15 #define CKALLOC(ptr,size,type) if(( ckt->ptr =\ 16 (type *) MALLOC((size)*sizeof(type))) == NULL) return(E_NOMEM); 30 ckt->CKTmatrix =
spCreate(0,1,&error);
48 printf(
"Matrix not found.\n");
68 FREE(ckt->CKTrhsSpare);
70 FREE(ckt->CKTirhsOld);
71 FREE(ckt->CKTirhsSpare);
73 CKALLOC(CKTrhsOld,size+1,
double);
74 CKALLOC(CKTrhsSpare,size+1,
double);
76 CKALLOC(CKTirhsOld,size+1,
double);
77 CKALLOC(CKTirhsSpare,size+1,
double);
78 for (i = 0; i < 8; i++) {
79 FREE(ckt->CKTsols[i]);
80 CKALLOC(CKTsols[i],size+1,
double);
96 ckt->CKTmatrix =
NULL;
99 FREE(ckt->CKTrhsSpare);
101 FREE(ckt->CKTirhsOld);
102 FREE(ckt->CKTirhsSpare);
int NIreinit(CKTcircuit *ckt)
#define NIACSHOULDREORDER
void NIdestroy(CKTcircuit *ckt)
#define CKALLOC(ptr, size, type)
#define NIPZSHOULDREORDER
void NIprint(CKTcircuit *ckt)
int NIinit(CKTcircuit *ckt)