M_Real
M_Get_SP(void *pM, Uint i, Uint j)
{
M_MatrixSP *M=pM;
M_Real *element = spFindElement(M->d, i, j);
return element == NULL ? 0.0 : *element;
}
/*
* Check for numerical errors in the Jacobian. Useful debugging aid when new
* models are being incorporated.
*/
void
TWOjacCheck(TWOdevice *pDevice, BOOLEAN tranAnalysis, TWOtranInfo *info)
{
int index, rIndex;
double del, diff, tol, *dptr;
if (TWOjacDebug) {
if (!OneCarrier) {
TWO_sysLoad(pDevice, tranAnalysis, info);
} else if (OneCarrier == N_TYPE) {
TWONsysLoad(pDevice, tranAnalysis, info);
} else if (OneCarrier == P_TYPE) {
TWOPsysLoad(pDevice, tranAnalysis, info);
}
/*
* spPrint( pDevice->matrix, 0, 1, 1 );
*/
pDevice->rhsNorm = maxNorm(pDevice->rhs, pDevice->numEqns);
for (index = 1; index <= pDevice->numEqns; index++) {
if (1e3 * ABS(pDevice->rhs[index]) > pDevice->rhsNorm) {
fprintf(stderr, "eqn %d: res %11.4e, norm %11.4e\n",
index, pDevice->rhs[index], pDevice->rhsNorm);
}
}
for (index = 1; index <= pDevice->numEqns; index++) {
pDevice->rhsImag[index] = pDevice->rhs[index];
}
for (index = 1; index <= pDevice->numEqns; index++) {
pDevice->copiedSolution[index] = pDevice->dcSolution[index];
del = 1e-4 * pDevice->abstol + 1e-6 * ABS(pDevice->dcSolution[index]);
pDevice->dcSolution[index] += del;
if (!OneCarrier) {
TWO_rhsLoad(pDevice, tranAnalysis, info);
} else if (OneCarrier == N_TYPE) {
TWONrhsLoad(pDevice, tranAnalysis, info);
} else if (OneCarrier == P_TYPE) {
TWOPrhsLoad(pDevice, tranAnalysis, info);
}
pDevice->dcSolution[index] = pDevice->copiedSolution[index];
for (rIndex = 1; rIndex <= pDevice->numEqns; rIndex++) {
diff = (pDevice->rhsImag[rIndex] - pDevice->rhs[rIndex]) / del;
dptr = spFindElement(pDevice->matrix, rIndex, index);
if (dptr != NULL) {
tol = (1e-4 * pDevice->abstol) + (1e-2 * MAX(ABS(diff), ABS(*dptr)));
if ((diff != 0.0) && (ABS(diff - *dptr) > tol)) {
fprintf(stderr, "Mismatch[%d][%d]: FD = %11.4e, AJ = %11.4e\n\t FD-AJ = %11.4e vs. %11.4e\n",
rIndex, index, diff, *dptr,
ABS(diff - *dptr), tol);
}
} else {
if (diff != 0.0) {
fprintf(stderr, "Missing [%d][%d]: FD = %11.4e, AJ = 0.0\n",
rIndex, index, diff);
}
}
}
}
}
}
