63 lines
1.7 KiB
C
63 lines
1.7 KiB
C
|
/**********
|
||
|
|
Copyright 1990 Regents of the University of California. All rights reserved.
|
||
|
|
Author: 1985 Thomas L. Quarles
|
||
|
|
**********/
|
||
|
|
|
||
|
|
#include "ngspice.h"
|
||
|
|
#include <stdio.h>
|
||
|
|
#include "ifsim.h"
|
||
|
|
#include "cktdefs.h"
|
||
|
|
#include "const.h"
|
||
|
|
#include "sperror.h"
|
||
|
|
|
||
|
|
|
||
|
|
int
|
||
|
|
CKTinit(void **ckt)
|
||
|
|
/* new circuit to create */
|
||
|
|
{
|
||
|
|
register int i;
|
||
|
|
register CKTcircuit *sckt;
|
||
|
|
|
||
|
|
sckt = (CKTcircuit *)( *ckt = (char *)MALLOC(sizeof(CKTcircuit)) );
|
||
|
|
if(sckt == NULL) return(E_NOMEM);
|
||
|
|
for (i=0;i<DEVmaxnum;i++) {
|
||
|
|
(sckt)->CKThead[i] = (GENmodel *) NULL;
|
||
|
|
}
|
||
|
|
(sckt)->CKTmaxEqNum = 1;
|
||
|
|
(sckt)->CKTnodes = (CKTnode *)NULL;
|
||
|
|
(sckt)->CKTlastNode = (CKTnode *)NULL;
|
||
|
|
sckt->CKTmatrix = NULL;
|
||
|
|
|
||
|
|
(sckt)->CKTgmin = 1e-12;
|
||
|
|
(sckt)->CKTabstol = 1e-12;
|
||
|
|
(sckt)->CKTreltol = 1e-3;
|
||
|
|
(sckt)->CKTchgtol = 1e-14;
|
||
|
|
(sckt)->CKTvoltTol = 1e-6;
|
||
|
|
(sckt)->CKTtrtol = 7;
|
||
|
|
(sckt)->CKTbypass = 1;
|
||
|
|
(sckt)->CKTisSetup = 0;
|
||
|
|
(sckt)->CKTtranMaxIter = 10;
|
||
|
|
(sckt)->CKTdcMaxIter = 100;
|
||
|
|
(sckt)->CKTdcTrcvMaxIter = 50;
|
||
|
|
(sckt)->CKTintegrateMethod = TRAPEZOIDAL;
|
||
|
|
(sckt)->CKTorder = 1;
|
||
|
|
(sckt)->CKTmaxOrder = 2;
|
||
|
|
(sckt)->CKTpivotAbsTol = 1e-13;
|
||
|
|
(sckt)->CKTpivotRelTol = 1e-3;
|
||
|
|
(sckt)->CKTtemp = 300.15;
|
||
|
|
(sckt)->CKTnomTemp = 300.15;
|
||
|
|
(sckt)->CKTdefaultMosL = 1e-4;
|
||
|
|
(sckt)->CKTdefaultMosW = 1e-4;
|
||
|
|
(sckt)->CKTdefaultMosAD = 0;
|
||
|
|
(sckt)->CKTdefaultMosAS = 0;
|
||
|
|
(sckt)->CKTsrcFact=1;
|
||
|
|
(sckt)->CKTdiagGmin=0;
|
||
|
|
(sckt)->CKTstat = (STATistics *)MALLOC(sizeof(STATistics));
|
||
|
|
(sckt)->CKTtroubleNode = 0;
|
||
|
|
(sckt)->CKTtroubleElt = NULL;
|
||
|
|
(sckt)->CKTtimePoints = NULL;
|
||
|
|
if( (sckt)->CKTstat == (STATistics *)NULL) return(E_NOMEM);
|
||
|
|
|
||
|
|
return(OK);
|
||
|
|
}
|