1 /**********
2 STAG version 2.7
3 Copyright 2000 owned by the United Kingdom Secretary of State for Defence
4 acting through the Defence Evaluation and Research Agency.
5 Developed by : Jim Benson,
6 Department of Electronics and Computer Science,
7 University of Southampton,
8 United Kingdom.
9 With help from : Nele D'Halleweyn, Ketan Mistry, Bill Redman-White, and Craig Easson.
10
11 Based on STAG version 2.1
12 Developed by : Mike Lee,
13 With help from : Bernard Tenbroek, Bill Redman-White, Mike Uren, Chris Edwards
14 and John Bunyan.
15 Acknowledgements : Rupert Howes and Pete Mole.
16 **********/
17
18 /**********
19 Modified by Paolo Nenzi 2002
20 ngspice integration
21 **********/
22
23 #include "ngspice/ngspice.h"
24 #include "ngspice/cktdefs.h"
25 #include "soi3defs.h"
26 #include "ngspice/sperror.h"
27 #include "ngspice/suffix.h"
28
29
30 int
SOI3trunc(GENmodel * inModel,CKTcircuit * ckt,double * timeStep)31 SOI3trunc(GENmodel *inModel, CKTcircuit *ckt, double *timeStep)
32 {
33 SOI3model *model = (SOI3model *)inModel;
34 SOI3instance *here;
35
36 for( ; model != NULL; model = SOI3nextModel(model))
37 {
38 for(here=SOI3instances(model);here!=NULL;here = SOI3nextInstance(here))
39 {
40 CKTterr(here->SOI3qgf,ckt,timeStep);
41 CKTterr(here->SOI3qd,ckt,timeStep);
42 CKTterr(here->SOI3qs,ckt,timeStep);
43 }
44 }
45 return(OK);
46 }
47