23 #define CKALLOC(var,size,type) \ 24 if(size && (!(var =(type *)MALLOC((size)*sizeof(type))))){\ 42 ckt->CKTnumStates = 0;
43 matrix = ckt->CKTmatrix;
50 for (mh = ckt->CKTheadList; mh !=
NULL; mh = mh->
next) {
52 error = (*func)(matrix,mh->
head,ckt,&ckt->CKTnumStates);
53 if (error)
return (error);
57 for (i = 0; i <= ckt->CKTmaxOrder+1; i++) {
58 FREE(ckt->CKTstates[i]);
59 CKALLOC(ckt->CKTstates[i],ckt->CKTnumStates,
double);
63 if (error)
return (error);
struct sCKTmodHead * next
#define CKALLOC(var, size, type)
int CKTsetup(CKTcircuit *ckt)