#include "ngspice/ngspice.h" #include "ngspice/cktdefs.h" #include "ngspice/smpdefs.h" #include "$(module)defs.h" #include "ngspice/const.h" #include "ngspice/sperror.h" #include "ngspice/ifsim.h" #include "ngspice/suffix.h" int $(module)setup (SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states) /* load the $(module) device structure with those pointers needed later * for fast matrix loading */ { register $(module)model *model = ($(module)model*)inModel; register $(module)instance *here; /* loop through all the $(module) device models */ for ( ;model != NULL ;model = model->$(module)nextModel ) { if(model->%s_Given == FALSE) model->%s=%s; for ( here = model->$(module)instances ;here != NULL ; here = here->$(module)nextInstance ) { if(here->%s_Given == FALSE) here->%s=%s; /* Internal Nodes */ { here->%sNode = -1; } /* set states */ here->state_%s_%s = *states; *states += 2; /* set Sparse Matrix Pointers */ here->PTR_J_%s_%s_required=0; $(module)guesstopology(matrix,ckt,model,here); /* Internal Nodes */ { int error; CKTnode *tmp; if(here->%sNode == -1) { error=CKTmkVolt(ckt,&tmp,here->$(module)name,"$info"); if(error) return(error); here->%sNode = tmp->number; } } if(here->PTR_J_%s_%s_required==1) { here->PTR_J_%s_%s=SMPmakeElt(matrix,here->%sNode,here->%sNode); } } } return(OK); }