You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
80 lines
2.1 KiB
80 lines
2.1 KiB
/**********
|
|
Copyright 1990 Regents of the University of California. All rights reserved.
|
|
Author: 1985 Thomas L. Quarles
|
|
Modifed: 2000 AlansFixes
|
|
**********/
|
|
|
|
#include <config.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <cktdefs.h>
|
|
#include <sperror.h>
|
|
|
|
|
|
int
|
|
CKTinit(void **ckt) /* new circuit to create */
|
|
{
|
|
int i;
|
|
CKTcircuit *sckt;
|
|
|
|
*ckt = (void *) tmalloc(sizeof(CKTcircuit));
|
|
sckt = (CKTcircuit *)(*ckt);
|
|
if (sckt == NULL)
|
|
return(E_NOMEM);
|
|
|
|
/* gtri - begin - dynamically allocate the array of model lists */
|
|
/* CKThead used to be statically sized in CKTdefs.h, but has been changed */
|
|
/* to a ** pointer */
|
|
(sckt)->CKThead = (GENmodel **)MALLOC(DEVmaxnum * sizeof(GENmodel *));
|
|
if((sckt)->CKThead == NULL) return(E_NOMEM);
|
|
/* gtri - end - dynamically allocate the array of model lists */
|
|
|
|
|
|
|
|
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->CKTgshunt=0;
|
|
sckt->CKTabstol = 1e-12;
|
|
sckt->CKTreltol = 1e-3;
|
|
sckt->CKTchgtol = 1e-14;
|
|
sckt->CKTvoltTol = 1e-6;
|
|
sckt->CKTtrtol = 7;
|
|
sckt->CKTbypass = 0;
|
|
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->CKTdefaultMosM = 1;
|
|
sckt->CKTdefaultMosL = 1e-4;
|
|
sckt->CKTdefaultMosW = 1e-4;
|
|
sckt->CKTdefaultMosAD = 0;
|
|
sckt->CKTdefaultMosAS = 0;
|
|
sckt->CKTsrcFact=1;
|
|
sckt->CKTdiagGmin=0;
|
|
sckt->CKTstat = (STATistics *) tmalloc(sizeof(STATistics));
|
|
sckt->CKTtroubleNode = 0;
|
|
sckt->CKTtroubleElt = NULL;
|
|
sckt->CKTtimePoints = NULL;
|
|
if (sckt->CKTstat == (STATistics *)NULL)
|
|
return E_NOMEM;
|
|
sckt->CKTnodeDamping = 0;
|
|
sckt->CKTabsDv = 0.5;
|
|
sckt->CKTrelDv = 2.0;
|
|
|
|
return OK;
|
|
}
|