luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Changes to compile under Sun Studio 11 for Solaris

This commit is contained in:
dwarning 2008-05-18 19:25:17 +00:00
parent 189421c373
commit 6bd5f8470b
10 changed files with 505 additions and 475 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ChangeLog
View File

@ -1,3 +1,16 @@
2008-05-18 Dietmar Warning
* Small changes to compile under Sun Studio 11 for Solaris - may be useful in other
configurations too
* configure.in
* src/frontend/control.c
* src/include/ngspice.h
* src/maths/misc/equality.c
* src/spicelib/devices/cpl/cplask.c
* src/spicelib/devices/hisim/hsm1eval102.c
* src/spicelib/devices/hisim/hsm1eval112.c
* src/spicelib/devices/hisim/hsm1eval120.c
* src/spicelib/devices/soi3/soi3acld.c
2008-05-12 Dietmar Warning 2008-05-12 Dietmar Warning
* src/frontend/inp.c, src/frontend/inp.c, src/frontend/Makefile.am, src/Makefile.am, * src/frontend/inp.c, src/frontend/inp.c, src/frontend/Makefile.am, src/Makefile.am,
configure.in: global nodes and numparams now as default - configure switches not needed configure.in: global nodes and numparams now as default - configure switches not needed

25
configure.in
View File

@ -188,18 +188,23 @@ dnl ---------------
dnl Work on compiler options according to system: dnl Work on compiler options according to system:
dnl Set default CFLAG - only use -Wall if we have gcc dnl Set default CFLAG - only use -Wall if we have gcc
AC_PROG_CC AC_PROG_CC(cc gcc)
dnl the above AC_PROG_CC may set CFLAGS to "-O2 -g" dnl the above AC_PROG_CC may set CFLAGS to "-O2 -g"
if test "$enable_debug" = "no"; then if test "$enable_debug" = "no"; then
AC_MSG_WARN(Removing debugging option!) if test "x$GCC" = "xyes"; then
CFLAGS="-O2" AC_MSG_WARN(Removing debugging option!)
CFLAGS="-O2 -Wall"
else
AC_MSG_WARN(Removing debugging option!)
CFLAGS=""
fi
else else
CFLAGS="-g -O0" if test "x$GCC" = "xyes"; then
fi CFLAGS="-g -O0 -Wall"
else
if test "x$GCC" = "xyes"; then CFLAGS="-g"
CFLAGS="$CFLAGS -Wall" fi
fi fi
@ -378,7 +383,7 @@ AC_CHECK_HEADERS(ctype.h pwd.h fcntl.h sys/ioctl.h stropts.h)
AC_HEADER_SYS_WAIT AC_HEADER_SYS_WAIT
AC_HEADER_STAT AC_HEADER_STAT
AC_CHECK_HEADERS([arpa/inet.h netdb.h netinet/in.h stddef.h sys/file.h sys/param.h sys/socket.h sys/time.h sys/timeb.h]) AC_CHECK_HEADERS([arpa/inet.h netdb.h netinet/in.h stddef.h sys/file.h sys/param.h sys/socket.h sys/time.h sys/timeb.h sys/io.h])
dnl Check time and resources headers and functions: dnl Check time and resources headers and functions:
@ -409,7 +414,7 @@ AC_CHECK_FUNCS(getcwd getwd, break)
AC_MSG_RESULT(Checking mathematical features of the system:) AC_MSG_RESULT(Checking mathematical features of the system:)
dnl Look for math library: dnl Look for math library:
AC_CHECK_LIB(m, sqrt) AC_CHECK_LIB(m, sqrt)
AC_CHECK_HEADERS(float.h limits.h values.h) AC_CHECK_HEADERS(float.h limits.h values.h ieeefp.h)
dnl Check for a few mathematical functions: dnl Check for a few mathematical functions:
AC_CHECK_FUNCS(erfc logb scalb scalbn asinh acosh atanh isnan) AC_CHECK_FUNCS(erfc logb scalb scalbn asinh acosh atanh isnan)

2
src/frontend/control.c
View File

@ -548,7 +548,7 @@ get_alt_prompt(void)
struct control *c; struct control *c;
/* if nothing on the command stack return NULL */ /* if nothing on the command stack return NULL */
if (cend[stackp] <= 0) if (cend[stackp] == 0)
return NULL; return NULL;
/* measure stack depth */ /* measure stack depth */

20
src/include/ngspice.h
View File

@ -36,7 +36,9 @@
#ifdef STDC_HEADERS #ifdef STDC_HEADERS
# include <stdlib.h> # include <stdlib.h>
# include <string.h> # include <string.h>
#else #endif
#ifdef HAVE_STRINGS_H
# include <strings.h> # include <strings.h>
#endif #endif
@ -60,10 +62,6 @@
# endif # endif
#endif #endif
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#ifdef HAVE_PWD_H #ifdef HAVE_PWD_H
#include <pwd.h> #include <pwd.h>
#endif #endif
@ -121,6 +119,10 @@ struct timeb timebegin;
# endif # endif
#endif #endif
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#ifdef HAS_TIME_H #ifdef HAS_TIME_H
#include <time.h> #include <time.h>
#endif #endif
@ -129,6 +131,14 @@ struct timeb timebegin;
#include "wstdio.h" #include "wstdio.h"
#endif #endif
#if defined (__MINGW32__) || defined (__CYGWIN__)
#include <io.h>
#else
# ifdef HAVE_SYS_IO_H
# include <sys/io.h>
# endif
#endif
#ifndef HAVE_RANDOM #ifndef HAVE_RANDOM
#define srandom(a) srand(a) #define srandom(a) srand(a)
#define random rand #define random rand

6
src/maths/misc/equality.c
View File

@ -3,15 +3,15 @@ Copyright 1991 Regents of the University of California. All rights reserved.
**********/ **********/
#include <assert.h> #include <assert.h>
#include "ngspice.h" #include "ngspice.h"
#ifdef _MSC_VER #ifdef _MSC_VER
typedef __int64 long64; typedef __int64 long64;
#else #else
typedef long long long64; typedef long long long64;
#endif #endif
#define Abs(x) ((x) < 0 ? -(x) : (x)) #define Abs(x) ((x) < 0 ? -(x) : (x))
/* From Bruce Dawson, Comparing floating point numbers, /* From Bruce Dawson, Comparing floating point numbers,
http://www.cygnus-software.com/papers/comparingfloats/Comparing%20floating%20point%20numbers.htm http://www.cygnus-software.com/papers/comparingfloats/Comparing%20floating%20point%20numbers.htm

1
src/spicelib/devices/cpl/cplask.c
View File

@ -38,5 +38,4 @@ CPLask(CKTcircuit *ckt, GENinstance *inst, int which, IFvalue *value, IFvalue *s
default: default:
return(E_BADPARM); return(E_BADPARM);
} }
return(OK);
} }

5
src/spicelib/devices/hisim/hsm1eval102.c
View File

@ -67,8 +67,9 @@
#include <stdio.h> #include <stdio.h>
#include <math.h> #include <math.h>
#include <float.h> #include <float.h>
#ifdef __STDC__ #include "config.h"
//# include <ieeefp.h> #ifdef HAVE_IEEEFP_H
# include <ieeefp.h>
#endif #endif
/*-----------------------------------* /*-----------------------------------*

5
src/spicelib/devices/hisim/hsm1eval112.c
View File

@ -67,8 +67,9 @@
#include <stdio.h> #include <stdio.h>
#include <math.h> #include <math.h>
#include <float.h> #include <float.h>
#ifdef __STDC__ #include "config.h"
//# include <ieeefp.h> #ifdef HAVE_IEEEFP_H
# include <ieeefp.h>
#endif #endif
/*-----------------------------------* /*-----------------------------------*

5
src/spicelib/devices/hisim/hsm1eval120.c
View File

@ -67,8 +67,9 @@
#include <stdio.h> #include <stdio.h>
#include <math.h> #include <math.h>
#include <float.h> #include <float.h>
#ifdef __STDC__ #include "config.h"
/* # include <ieeefp.h> */ #ifdef HAVE_IEEEFP_H
# include <ieeefp.h>
#endif #endif
/*-----------------------------------* /*-----------------------------------*

898
src/spicelib/devices/soi3/soi3acld.c
View File

@ -1,449 +1,449 @@
/********** /**********
STAG version 2.7 STAG version 2.7
Copyright 2000 owned by the United Kingdom Secretary of State for Defence Copyright 2000 owned by the United Kingdom Secretary of State for Defence
acting through the Defence Evaluation and Research Agency. acting through the Defence Evaluation and Research Agency.
Developed by : Jim Benson, Developed by : Jim Benson,
Department of Electronics and Computer Science, Department of Electronics and Computer Science,
University of Southampton, University of Southampton,
United Kingdom. United Kingdom.
With help from : Nele D'Halleweyn, Ketan Mistry, Bill Redman-White, With help from : Nele D'Halleweyn, Ketan Mistry, Bill Redman-White,
and Craig Easson. and Craig Easson.
Based on STAG version 2.1 Based on STAG version 2.1
Developed by : Mike Lee, Developed by : Mike Lee,
With help from : Bernard Tenbroek, Bill Redman-White, Mike Uren, Chris Edwards With help from : Bernard Tenbroek, Bill Redman-White, Mike Uren, Chris Edwards
and John Bunyan. and John Bunyan.
Acknowledgements : Rupert Howes and Pete Mole. Acknowledgements : Rupert Howes and Pete Mole.
**********/ **********/
/********** /**********
Modified by Paolo Nenzi 2002 Modified by Paolo Nenzi 2002
ngspice integration ngspice integration
**********/ **********/
#include "ngspice.h" #include "ngspice.h"
#include "cktdefs.h" #include "cktdefs.h"
#include "soi3defs.h" #include "soi3defs.h"
#include "sperror.h" #include "sperror.h"
#include "suffix.h" #include "suffix.h"
int int
SOI3acLoad(GENmodel *inModel, CKTcircuit *ckt) SOI3acLoad(GENmodel *inModel, CKTcircuit *ckt)
{ {
SOI3model *model = (SOI3model*)inModel; SOI3model *model = (SOI3model*)inModel;
SOI3instance *here; SOI3instance *here;
int xnrm; int xnrm;
int xrev; int xrev;
double cgfgf,cgfd,cgfs,cgfdeltaT,cgfgb; double cgfgf,cgfd,cgfs,cgfdeltaT,cgfgb;
double cdgf,cdd,cds,cddeltaT,cdgb; double cdgf,cdd,cds,cddeltaT,cdgb;
double csgf,csd,css,csdeltaT,csgb; double csgf,csd,css,csdeltaT,csgb;
double cbgf,cbd,cbs,cbdeltaT,cbgb; double cbgf,cbd,cbs,cbdeltaT,cbgb;
double cgbgf,cgbd,cgbs,cgbdeltaT,cgbgb; double cgbgf,cgbd,cgbs,cgbdeltaT,cgbgb;
double xcgfgf,xcgfd,xcgfs,xcgfdeltaT,xcgfgb; double xcgfgf,xcgfd,xcgfs,xcgfdeltaT,xcgfgb;
double xcdgf,xcdd,xcds,xcddeltaT,xcdgb; double xcdgf,xcdd,xcds,xcddeltaT,xcdgb;
double xcsgf,xcsd,xcss,xcsdeltaT,xcsgb; double xcsgf,xcsd,xcss,xcsdeltaT,xcsgb;
double xcbgf,xcbd,xcbs,xcbdeltaT,xcbgb; double xcbgf,xcbd,xcbs,xcbdeltaT,xcbgb;
double xcgbgf,xcgbd,xcgbs,xcgbdeltaT,xcgbgb; double xcgbgf,xcgbd,xcgbs,xcgbdeltaT,xcgbgb;
double capbd,capbs; /* diode capacitances */ double capbd,capbs; /* diode capacitances */
double xcBJTbsbs,xcBJTbsdeltaT; double xcBJTbsbs,xcBJTbsdeltaT;
double xcBJTbdbd,xcBJTbddeltaT; double xcBJTbdbd,xcBJTbddeltaT;
double rtargs[5]; double rtargs[5];
double grt[5]; double grt[5];
double ctargs[5]; double ctargs[5];
double xct[5]; /* 1/reactance of thermal cap */ double xct[5]; /* 1/reactance of thermal cap */
int tnodeindex; int tnodeindex;
double cgfb0; double cgfb0;
double cgfd0; double cgfd0;
double cgfs0; double cgfs0;
double cgbb0; double cgbb0;
double cgbd0; double cgbd0;
double cgbs0; double cgbs0;
double EffectiveLength; double EffectiveLength;
double omega; double omega;
double m; double m;
omega = ckt->CKTomega; omega = ckt->CKTomega;
for( ; model != NULL; model = model->SOI3nextModel) for( ; model != NULL; model = model->SOI3nextModel)
{ {
for(here = model->SOI3instances; here!= NULL; for(here = model->SOI3instances; here!= NULL;
here = here->SOI3nextInstance) here = here->SOI3nextInstance)
{ {
if (here->SOI3owner != ARCHme) if (here->SOI3owner != ARCHme)
continue; continue;
if (here->SOI3mode < 0) if (here->SOI3mode < 0)
{ {
xnrm=0; xnrm=0;
xrev=1; xrev=1;
} }
else else
{ {
xnrm=1; xnrm=1;
xrev=0; xrev=0;
} }
EffectiveLength=here->SOI3l - 2*model->SOI3latDiff; EffectiveLength=here->SOI3l - 2*model->SOI3latDiff;
/* JimB - can use basic device geometry to estimate front and back */ /* JimB - can use basic device geometry to estimate front and back */
/* overlap capacitances to a first approximation. Use this default */ /* overlap capacitances to a first approximation. Use this default */
/* model if capacitance factors aren't given in model netlist. */ /* model if capacitance factors aren't given in model netlist. */
/* Calculate front gate overlap capacitances. */ /* Calculate front gate overlap capacitances. */
if(model->SOI3frontGateSourceOverlapCapFactorGiven) if(model->SOI3frontGateSourceOverlapCapFactorGiven)
{ {
cgfs0 = model->SOI3frontGateSourceOverlapCapFactor * here->SOI3w; cgfs0 = model->SOI3frontGateSourceOverlapCapFactor * here->SOI3w;
} }
else else
{ {
cgfs0 = model->SOI3latDiff * here->SOI3w * model->SOI3frontOxideCapFactor; cgfs0 = model->SOI3latDiff * here->SOI3w * model->SOI3frontOxideCapFactor;
} }
if(model->SOI3frontGateDrainOverlapCapFactorGiven) if(model->SOI3frontGateDrainOverlapCapFactorGiven)
{ {
cgfd0 = model->SOI3frontGateDrainOverlapCapFactor * here->SOI3w; cgfd0 = model->SOI3frontGateDrainOverlapCapFactor * here->SOI3w;
} }
else else
{ {
cgfd0 = model->SOI3latDiff * here->SOI3w * model->SOI3frontOxideCapFactor; cgfd0 = model->SOI3latDiff * here->SOI3w * model->SOI3frontOxideCapFactor;
} }
if(model->SOI3frontGateBulkOverlapCapFactorGiven) if(model->SOI3frontGateBulkOverlapCapFactorGiven)
{ {
cgfb0 = model->SOI3frontGateBulkOverlapCapFactor * EffectiveLength; cgfb0 = model->SOI3frontGateBulkOverlapCapFactor * EffectiveLength;
} }
else else
{ {
cgfb0 = EffectiveLength * (0.1*1e-6*model->SOI3minimumFeatureSize) cgfb0 = EffectiveLength * (0.1*1e-6*model->SOI3minimumFeatureSize)
* model->SOI3frontOxideCapFactor; * model->SOI3frontOxideCapFactor;
} }
/* Calculate back gate overlap capacitances. */ /* Calculate back gate overlap capacitances. */
if( (model->SOI3backGateSourceOverlapCapAreaFactorGiven) && if( (model->SOI3backGateSourceOverlapCapAreaFactorGiven) &&
(!model->SOI3backGateSourceOverlapCapAreaFactor || here->SOI3asGiven) ) (!model->SOI3backGateSourceOverlapCapAreaFactor || here->SOI3asGiven) )
{ {
cgbs0 = model->SOI3backGateSourceOverlapCapAreaFactor * here->SOI3as; cgbs0 = model->SOI3backGateSourceOverlapCapAreaFactor * here->SOI3as;
} }
else else
{ {
cgbs0 = (2*1e-6*model->SOI3minimumFeatureSize + model->SOI3latDiff) * here->SOI3w cgbs0 = (2*1e-6*model->SOI3minimumFeatureSize + model->SOI3latDiff) * here->SOI3w
* model->SOI3backOxideCapFactor; * model->SOI3backOxideCapFactor;
} }
if( (model->SOI3backGateDrainOverlapCapAreaFactorGiven) && if( (model->SOI3backGateDrainOverlapCapAreaFactorGiven) &&
(!model->SOI3backGateDrainOverlapCapAreaFactor || here->SOI3adGiven) ) (!model->SOI3backGateDrainOverlapCapAreaFactor || here->SOI3adGiven) )
{ {
cgbd0 = model->SOI3backGateDrainOverlapCapAreaFactor * here->SOI3ad; cgbd0 = model->SOI3backGateDrainOverlapCapAreaFactor * here->SOI3ad;
} }
else else
{ {
cgbd0 = (2*1e-6*model->SOI3minimumFeatureSize + model->SOI3latDiff) * here->SOI3w cgbd0 = (2*1e-6*model->SOI3minimumFeatureSize + model->SOI3latDiff) * here->SOI3w
* model->SOI3backOxideCapFactor; * model->SOI3backOxideCapFactor;
} }
if( (model->SOI3backGateBulkOverlapCapAreaFactorGiven) && if( (model->SOI3backGateBulkOverlapCapAreaFactorGiven) &&
(!model->SOI3backGateBulkOverlapCapAreaFactor || here->SOI3abGiven) ) (!model->SOI3backGateBulkOverlapCapAreaFactor || here->SOI3abGiven) )
{ {
cgbb0 = model->SOI3backGateBulkOverlapCapAreaFactor * here->SOI3ab; cgbb0 = model->SOI3backGateBulkOverlapCapAreaFactor * here->SOI3ab;
} }
else else
{ {
cgbb0 = EffectiveLength * (0.1*1e-6*model->SOI3minimumFeatureSize + here->SOI3w) cgbb0 = EffectiveLength * (0.1*1e-6*model->SOI3minimumFeatureSize + here->SOI3w)
* model->SOI3backOxideCapFactor; * model->SOI3backOxideCapFactor;
} }
capbd = here->SOI3capbd; capbd = here->SOI3capbd;
capbs = here->SOI3capbs; capbs = here->SOI3capbs;
cgfgf = *(ckt->CKTstate0 + here->SOI3cgfgf); cgfgf = *(ckt->CKTstate0 + here->SOI3cgfgf);
cgfd = *(ckt->CKTstate0 + here->SOI3cgfd); cgfd = *(ckt->CKTstate0 + here->SOI3cgfd);
cgfs = *(ckt->CKTstate0 + here->SOI3cgfs); cgfs = *(ckt->CKTstate0 + here->SOI3cgfs);
cgfdeltaT = *(ckt->CKTstate0 + here->SOI3cgfdeltaT); cgfdeltaT = *(ckt->CKTstate0 + here->SOI3cgfdeltaT);
cgfgb = *(ckt->CKTstate0 + here->SOI3cgfgb); cgfgb = *(ckt->CKTstate0 + here->SOI3cgfgb);
csgf = *(ckt->CKTstate0 + here->SOI3csgf); csgf = *(ckt->CKTstate0 + here->SOI3csgf);
csd = *(ckt->CKTstate0 + here->SOI3csd); csd = *(ckt->CKTstate0 + here->SOI3csd);
css = *(ckt->CKTstate0 + here->SOI3css); css = *(ckt->CKTstate0 + here->SOI3css);
csdeltaT = *(ckt->CKTstate0 + here->SOI3csdeltaT); csdeltaT = *(ckt->CKTstate0 + here->SOI3csdeltaT);
csgb = *(ckt->CKTstate0 + here->SOI3csgb); csgb = *(ckt->CKTstate0 + here->SOI3csgb);
cdgf = *(ckt->CKTstate0 + here->SOI3cdgf); cdgf = *(ckt->CKTstate0 + here->SOI3cdgf);
cdd = *(ckt->CKTstate0 + here->SOI3cdd); cdd = *(ckt->CKTstate0 + here->SOI3cdd);
cds = *(ckt->CKTstate0 + here->SOI3cds); cds = *(ckt->CKTstate0 + here->SOI3cds);
cddeltaT = *(ckt->CKTstate0 + here->SOI3cddeltaT); cddeltaT = *(ckt->CKTstate0 + here->SOI3cddeltaT);
cdgb = *(ckt->CKTstate0 + here->SOI3cdgb); cdgb = *(ckt->CKTstate0 + here->SOI3cdgb);
cgbgf = *(ckt->CKTstate0 + here->SOI3cgbgf); cgbgf = *(ckt->CKTstate0 + here->SOI3cgbgf);
cgbd = *(ckt->CKTstate0 + here->SOI3cgbd); cgbd = *(ckt->CKTstate0 + here->SOI3cgbd);
cgbs = *(ckt->CKTstate0 + here->SOI3cgbs); cgbs = *(ckt->CKTstate0 + here->SOI3cgbs);
cgbdeltaT = *(ckt->CKTstate0 + here->SOI3cgbdeltaT); cgbdeltaT = *(ckt->CKTstate0 + here->SOI3cgbdeltaT);
cgbgb = *(ckt->CKTstate0 + here->SOI3cgbgb); cgbgb = *(ckt->CKTstate0 + here->SOI3cgbgb);
cbgf = -(cgfgf + cdgf + csgf + cgbgf); cbgf = -(cgfgf + cdgf + csgf + cgbgf);
cbd = -(cgfd + cdd + csd + cgbd); cbd = -(cgfd + cdd + csd + cgbd);
cbs = -(cgfs + cds + css + cgbs); cbs = -(cgfs + cds + css + cgbs);
cbdeltaT = -(cgfdeltaT + cddeltaT + csdeltaT + cgbdeltaT); cbdeltaT = -(cgfdeltaT + cddeltaT + csdeltaT + cgbdeltaT);
cbgb = -(cgfgb + cdgb + csgb + cgbgb); cbgb = -(cgfgb + cdgb + csgb + cgbgb);
xcgfgf = (cgfgf + cgfd0 + cgfs0 + cgfb0) * omega; xcgfgf = (cgfgf + cgfd0 + cgfs0 + cgfb0) * omega;
xcgfd = (cgfd - cgfd0) * omega; xcgfd = (cgfd - cgfd0) * omega;
xcgfs = (cgfs - cgfs0) * omega; xcgfs = (cgfs - cgfs0) * omega;
xcgfdeltaT = cgfdeltaT * omega; xcgfdeltaT = cgfdeltaT * omega;
xcgfgb = cgfgb * omega; xcgfgb = cgfgb * omega;
xcdgf = (cdgf - cgfd0) * omega; xcdgf = (cdgf - cgfd0) * omega;
xcdd = (cdd + capbd + cgfd0 + cgbd0) * omega; xcdd = (cdd + capbd + cgfd0 + cgbd0) * omega;
xcds = cds * omega; xcds = cds * omega;
xcddeltaT = cddeltaT * omega; xcddeltaT = cddeltaT * omega;
xcdgb = (cdgb - cgbd0) * omega; xcdgb = (cdgb - cgbd0) * omega;
xcsgf = (csgf - cgfs0) * omega; xcsgf = (csgf - cgfs0) * omega;
xcsd = csd * omega; xcsd = csd * omega;
xcss = (css + capbs + cgfs0 + cgbs0) * omega; xcss = (css + capbs + cgfs0 + cgbs0) * omega;
xcsdeltaT = csdeltaT * omega; xcsdeltaT = csdeltaT * omega;
xcsgb = (csgb - cgbs0) * omega; xcsgb = (csgb - cgbs0) * omega;
xcbgf = (cbgf - cgfb0) * omega; xcbgf = (cbgf - cgfb0) * omega;
xcbd = (cbd - capbd) * omega; xcbd = (cbd - capbd) * omega;
xcbs = (cbs - capbs) * omega; xcbs = (cbs - capbs) * omega;
xcbdeltaT = cbdeltaT * omega; xcbdeltaT = cbdeltaT * omega;
xcbgb = (cbgb - cgbb0) * omega; xcbgb = (cbgb - cgbb0) * omega;
xcgbgf = cgbgf * omega; xcgbgf = cgbgf * omega;
xcgbd = (cgbd - cgbd0) * omega; xcgbd = (cgbd - cgbd0) * omega;
xcgbs = (cgbs - cgbs0) * omega; xcgbs = (cgbs - cgbs0) * omega;
xcgbdeltaT = cgbdeltaT * omega; xcgbdeltaT = cgbdeltaT * omega;
xcgbgb = (cgbgb + cgbd0 + cgbs0 + cgbb0) * omega; xcgbgb = (cgbgb + cgbd0 + cgbs0 + cgbb0) * omega;
xcBJTbsbs = *(ckt->CKTstate0 + here->SOI3cBJTbsbs) * omega; xcBJTbsbs = *(ckt->CKTstate0 + here->SOI3cBJTbsbs) * omega;
xcBJTbsdeltaT = *(ckt->CKTstate0 + here->SOI3cBJTbsdeltaT) * omega; xcBJTbsdeltaT = *(ckt->CKTstate0 + here->SOI3cBJTbsdeltaT) * omega;
xcBJTbdbd = *(ckt->CKTstate0 + here->SOI3cBJTbdbd) * omega; xcBJTbdbd = *(ckt->CKTstate0 + here->SOI3cBJTbdbd) * omega;
xcBJTbddeltaT = *(ckt->CKTstate0 + here->SOI3cBJTbddeltaT) * omega; xcBJTbddeltaT = *(ckt->CKTstate0 + here->SOI3cBJTbddeltaT) * omega;
/* JimB - 15/9/99 */ /* JimB - 15/9/99 */
/* Code for multiple thermal time constants. Start by moving all */ /* Code for multiple thermal time constants. Start by moving all */
/* rt and ct constants into arrays. */ /* rt and ct constants into arrays. */
rtargs[0]=here->SOI3rt; rtargs[0]=here->SOI3rt;
rtargs[1]=here->SOI3rt1; rtargs[1]=here->SOI3rt1;
rtargs[2]=here->SOI3rt2; rtargs[2]=here->SOI3rt2;
rtargs[3]=here->SOI3rt3; rtargs[3]=here->SOI3rt3;
rtargs[4]=here->SOI3rt4; rtargs[4]=here->SOI3rt4;
ctargs[0]=here->SOI3ct; ctargs[0]=here->SOI3ct;
ctargs[1]=here->SOI3ct1; ctargs[1]=here->SOI3ct1;
ctargs[2]=here->SOI3ct2; ctargs[2]=here->SOI3ct2;
ctargs[3]=here->SOI3ct3; ctargs[3]=here->SOI3ct3;
ctargs[4]=here->SOI3ct4; ctargs[4]=here->SOI3ct4;
/* Set all admittance components to zero. */ /* Set all admittance components to zero. */
grt[0]=grt[1]=grt[2]=grt[3]=grt[4]=0.0; grt[0]=grt[1]=grt[2]=grt[3]=grt[4]=0.0;
xct[0]=xct[1]=xct[2]=xct[3]=xct[4]=0.0; xct[0]=xct[1]=xct[2]=xct[3]=xct[4]=0.0;
/* Now calculate conductances and susceptances from rt and ct. */ /* Now calculate conductances and susceptances from rt and ct. */
/* Don't need to worry about divide by zero when calculating */ /* Don't need to worry about divide by zero when calculating */
/* grt components, as soi3setup() only creates a thermal node */ /* grt components, as soi3setup() only creates a thermal node */
/* if corresponding rt is greater than zero. */ /* if corresponding rt is greater than zero. */
for(tnodeindex=0;tnodeindex<here->SOI3numThermalNodes;tnodeindex++) for(tnodeindex=0;tnodeindex<here->SOI3numThermalNodes;tnodeindex++)
{ {
xct[tnodeindex] = ctargs[tnodeindex] * ckt->CKTomega; xct[tnodeindex] = ctargs[tnodeindex] * ckt->CKTomega;
grt[tnodeindex] = 1/rtargs[tnodeindex]; grt[tnodeindex] = 1/rtargs[tnodeindex];
} }
/* End JimB */ /* End JimB */
/* /*
* load matrix * load matrix
*/ */
m = here->SOI3m; m = here->SOI3m;
*(here->SOI3GF_gfPtr + 1) += m * xcgfgf; *(here->SOI3GF_gfPtr + 1) += m * xcgfgf;
*(here->SOI3GF_gbPtr + 1) += m * xcgfgb; *(here->SOI3GF_gbPtr + 1) += m * xcgfgb;
*(here->SOI3GF_dpPtr + 1) += m * xcgfd; *(here->SOI3GF_dpPtr + 1) += m * xcgfd;
*(here->SOI3GF_spPtr + 1) += m * xcgfs; *(here->SOI3GF_spPtr + 1) += m * xcgfs;
*(here->SOI3GF_bPtr + 1) -= m * (xcgfgf + xcgfd + xcgfs + xcgfgb); *(here->SOI3GF_bPtr + 1) -= m * (xcgfgf + xcgfd + xcgfs + xcgfgb);
*(here->SOI3GB_gfPtr + 1) += m * xcgbgf; *(here->SOI3GB_gfPtr + 1) += m * xcgbgf;
*(here->SOI3GB_gbPtr + 1) += m * xcgbgb; *(here->SOI3GB_gbPtr + 1) += m * xcgbgb;
*(here->SOI3GB_dpPtr + 1) += m * xcgbd; *(here->SOI3GB_dpPtr + 1) += m * xcgbd;
*(here->SOI3GB_spPtr + 1) += m * xcgbs; *(here->SOI3GB_spPtr + 1) += m * xcgbs;
*(here->SOI3GB_bPtr + 1) -= m * (xcgbgf + xcgbd + xcgbs + xcgbgb); *(here->SOI3GB_bPtr + 1) -= m * (xcgbgf + xcgbd + xcgbs + xcgbgb);
*(here->SOI3B_gfPtr + 1) += m * xcbgf; *(here->SOI3B_gfPtr + 1) += m * xcbgf;
*(here->SOI3B_gbPtr + 1) += m * xcbgb; *(here->SOI3B_gbPtr + 1) += m * xcbgb;
*(here->SOI3B_dpPtr + 1) += m * (xcbd-xcBJTbdbd); *(here->SOI3B_dpPtr + 1) += m * (xcbd-xcBJTbdbd);
*(here->SOI3B_spPtr + 1) += m * (xcbs-xcBJTbsbs); *(here->SOI3B_spPtr + 1) += m * (xcbs-xcBJTbsbs);
*(here->SOI3B_bPtr + 1) += m * (-(xcbgf+xcbd+xcbs+xcbgb) *(here->SOI3B_bPtr + 1) += m * (-(xcbgf+xcbd+xcbs+xcbgb)
+xcBJTbsbs+xcBJTbdbd); +xcBJTbsbs+xcBJTbdbd);
*(here->SOI3DP_gfPtr + 1) += m * xcdgf; *(here->SOI3DP_gfPtr + 1) += m * xcdgf;
*(here->SOI3DP_gbPtr + 1) += m * xcdgb; *(here->SOI3DP_gbPtr + 1) += m * xcdgb;
*(here->SOI3DP_dpPtr + 1) += m * (xcdd+xcBJTbdbd); *(here->SOI3DP_dpPtr + 1) += m * (xcdd+xcBJTbdbd);
*(here->SOI3DP_spPtr + 1) += m * xcds; *(here->SOI3DP_spPtr + 1) += m * xcds;
*(here->SOI3DP_bPtr + 1) -= m * (xcdgf + xcdd + xcds + xcdgb + xcBJTbdbd); *(here->SOI3DP_bPtr + 1) -= m * (xcdgf + xcdd + xcds + xcdgb + xcBJTbdbd);
*(here->SOI3SP_gfPtr + 1) += m * xcsgf; *(here->SOI3SP_gfPtr + 1) += m * xcsgf;
*(here->SOI3SP_gbPtr + 1) += m * xcsgb; *(here->SOI3SP_gbPtr + 1) += m * xcsgb;
*(here->SOI3SP_dpPtr + 1) += m * xcsd; *(here->SOI3SP_dpPtr + 1) += m * xcsd;
*(here->SOI3SP_spPtr + 1) += m * (xcss+xcBJTbsbs); *(here->SOI3SP_spPtr + 1) += m * (xcss+xcBJTbsbs);
*(here->SOI3SP_bPtr + 1) -= m * (xcsgf + xcsd + xcss + xcsgb + xcBJTbsbs); *(here->SOI3SP_bPtr + 1) -= m * (xcsgf + xcsd + xcss + xcsgb + xcBJTbsbs);
/* if no thermal behaviour specified, then put in zero valued indpt. voltage source /* if no thermal behaviour specified, then put in zero valued indpt. voltage source
between TOUT and ground */ between TOUT and ground */
if (here->SOI3rt==0) if (here->SOI3rt==0)
{ {
*(here->SOI3TOUT_ibrPtr + 1) += m * 1.0; *(here->SOI3TOUT_ibrPtr + 1) += m * 1.0;
*(here->SOI3IBR_toutPtr + 1) += m * 1.0; *(here->SOI3IBR_toutPtr + 1) += m * 1.0;
*(ckt->CKTirhs + (here->SOI3branch)) = 0; *(ckt->CKTirhs + (here->SOI3branch)) = 0;
} }
else else
{ {
*(here->SOI3TOUT_toutPtr + 1) += m * xct[0]; *(here->SOI3TOUT_toutPtr + 1) += m * xct[0];
if (here->SOI3numThermalNodes > 1) if (here->SOI3numThermalNodes > 1)
{ {
*(here->SOI3TOUT_tout1Ptr + 1) += m * (-xct[0]); *(here->SOI3TOUT_tout1Ptr + 1) += m * (-xct[0]);
*(here->SOI3TOUT1_toutPtr + 1) += m * (-xct[0]); *(here->SOI3TOUT1_toutPtr + 1) += m * (-xct[0]);
*(here->SOI3TOUT1_tout1Ptr + 1) += m * (xct[0]+xct[1]); *(here->SOI3TOUT1_tout1Ptr + 1) += m * (xct[0]+xct[1]);
} }
if (here->SOI3numThermalNodes > 2) if (here->SOI3numThermalNodes > 2)
{ {
*(here->SOI3TOUT1_tout2Ptr + 1) += m * (-xct[1]); *(here->SOI3TOUT1_tout2Ptr + 1) += m * (-xct[1]);
*(here->SOI3TOUT2_tout1Ptr + 1) += m * (-xct[1]); *(here->SOI3TOUT2_tout1Ptr + 1) += m * (-xct[1]);
*(here->SOI3TOUT2_tout2Ptr + 1) += m * (xct[1]+xct[2]); *(here->SOI3TOUT2_tout2Ptr + 1) += m * (xct[1]+xct[2]);
} }
if (here->SOI3numThermalNodes > 3) if (here->SOI3numThermalNodes > 3)
{ {
*(here->SOI3TOUT2_tout3Ptr + 1) += m * (-xct[2]); *(here->SOI3TOUT2_tout3Ptr + 1) += m * (-xct[2]);
*(here->SOI3TOUT3_tout2Ptr + 1) += m * (-xct[2]); *(here->SOI3TOUT3_tout2Ptr + 1) += m * (-xct[2]);
*(here->SOI3TOUT3_tout3Ptr + 1) += m * (xct[2]+xct[3]); *(here->SOI3TOUT3_tout3Ptr + 1) += m * (xct[2]+xct[3]);
} }
if (here->SOI3numThermalNodes > 4) if (here->SOI3numThermalNodes > 4)
{ {
*(here->SOI3TOUT3_tout4Ptr + 1) += m * (-xct[3]); *(here->SOI3TOUT3_tout4Ptr + 1) += m * (-xct[3]);
*(here->SOI3TOUT4_tout3Ptr + 1) += m * (-xct[3]); *(here->SOI3TOUT4_tout3Ptr + 1) += m * (-xct[3]);
*(here->SOI3TOUT4_tout4Ptr + 1) += m * (xct[3]+xct[4]); *(here->SOI3TOUT4_tout4Ptr + 1) += m * (xct[3]+xct[4]);
} }
*(here->SOI3GF_toutPtr + 1) += m * xcgfdeltaT*model->SOI3type; *(here->SOI3GF_toutPtr + 1) += m * xcgfdeltaT*model->SOI3type;
*(here->SOI3DP_toutPtr + 1) += m * (xcddeltaT - xcBJTbddeltaT)*model->SOI3type; *(here->SOI3DP_toutPtr + 1) += m * (xcddeltaT - xcBJTbddeltaT)*model->SOI3type;
*(here->SOI3SP_toutPtr + 1) += m * (xcsdeltaT - xcBJTbsdeltaT)*model->SOI3type; *(here->SOI3SP_toutPtr + 1) += m * (xcsdeltaT - xcBJTbsdeltaT)*model->SOI3type;
*(here->SOI3B_toutPtr + 1) += m * model->SOI3type * *(here->SOI3B_toutPtr + 1) += m * model->SOI3type *
(xcbdeltaT + xcBJTbsdeltaT + xcBJTbddeltaT); (xcbdeltaT + xcBJTbsdeltaT + xcBJTbddeltaT);
*(here->SOI3GB_toutPtr + 1) += m * xcgbdeltaT*model->SOI3type; *(here->SOI3GB_toutPtr + 1) += m * xcgbdeltaT*model->SOI3type;
} }
/* and now real part */ /* and now real part */
*(here->SOI3D_dPtr) += (m * here->SOI3drainConductance); *(here->SOI3D_dPtr) += (m * here->SOI3drainConductance);
*(here->SOI3D_dpPtr) += (m * (-here->SOI3drainConductance)); *(here->SOI3D_dpPtr) += (m * (-here->SOI3drainConductance));
*(here->SOI3DP_dPtr) += (m * (-here->SOI3drainConductance)); *(here->SOI3DP_dPtr) += (m * (-here->SOI3drainConductance));
*(here->SOI3S_sPtr) += (m * here->SOI3sourceConductance); *(here->SOI3S_sPtr) += (m * here->SOI3sourceConductance);
*(here->SOI3S_spPtr) += (m * (-here->SOI3sourceConductance)); *(here->SOI3S_spPtr) += (m * (-here->SOI3sourceConductance));
*(here->SOI3SP_sPtr) += (m * (-here->SOI3sourceConductance)); *(here->SOI3SP_sPtr) += (m * (-here->SOI3sourceConductance));
*(here->SOI3DP_gfPtr) += ((m * (xnrm-xrev)*here->SOI3gmf + *(here->SOI3DP_gfPtr) += ((m * (xnrm-xrev)*here->SOI3gmf +
xnrm*here->SOI3gMmf)); xnrm*here->SOI3gMmf));
*(here->SOI3DP_gbPtr) += (m * ((xnrm-xrev)*here->SOI3gmb + *(here->SOI3DP_gbPtr) += (m * ((xnrm-xrev)*here->SOI3gmb +
xnrm*here->SOI3gMmb)); xnrm*here->SOI3gMmb));
*(here->SOI3DP_dpPtr) += m * (here->SOI3drainConductance+here->SOI3gds+ *(here->SOI3DP_dpPtr) += m * (here->SOI3drainConductance+here->SOI3gds+
here->SOI3gbd+xrev*(here->SOI3gmf+here->SOI3gmbs+ here->SOI3gbd+xrev*(here->SOI3gmf+here->SOI3gmbs+
here->SOI3gmb)+xnrm*here->SOI3gMd); here->SOI3gmb)+xnrm*here->SOI3gMd);
*(here->SOI3DP_spPtr) += m * (-here->SOI3gds - here->SOI3gBJTdb_bs *(here->SOI3DP_spPtr) += m * (-here->SOI3gds - here->SOI3gBJTdb_bs
-xnrm*(here->SOI3gmf+here->SOI3gmb+here->SOI3gmbs + -xnrm*(here->SOI3gmf+here->SOI3gmb+here->SOI3gmbs +
here->SOI3gMmf+here->SOI3gMmb+here->SOI3gMmbs+here->SOI3gMd)); here->SOI3gMmf+here->SOI3gMmb+here->SOI3gMmbs+here->SOI3gMd));
*(here->SOI3DP_bPtr) += m * (-here->SOI3gbd + here->SOI3gBJTdb_bs *(here->SOI3DP_bPtr) += m * (-here->SOI3gbd + here->SOI3gBJTdb_bs
+(xnrm-xrev)*here->SOI3gmbs+ +(xnrm-xrev)*here->SOI3gmbs+
xnrm*here->SOI3gMmbs); xnrm*here->SOI3gMmbs);
*(here->SOI3SP_gfPtr) += m * (-(xnrm-xrev)*here->SOI3gmf+ *(here->SOI3SP_gfPtr) += m * (-(xnrm-xrev)*here->SOI3gmf+
xrev*here->SOI3gMmf); xrev*here->SOI3gMmf);
*(here->SOI3SP_gbPtr) += m * (-(xnrm-xrev)*here->SOI3gmb+ *(here->SOI3SP_gbPtr) += m * (-(xnrm-xrev)*here->SOI3gmb+
xrev*here->SOI3gMmb); xrev*here->SOI3gMmb);
*(here->SOI3SP_dpPtr) += m * (-here->SOI3gds - here->SOI3gBJTsb_bd *(here->SOI3SP_dpPtr) += m * (-here->SOI3gds - here->SOI3gBJTsb_bd
-xrev*(here->SOI3gmf+here->SOI3gmb+here->SOI3gmbs+ -xrev*(here->SOI3gmf+here->SOI3gmb+here->SOI3gmbs+
here->SOI3gMmf+here->SOI3gMmb+here->SOI3gMmbs+here->SOI3gMd)); here->SOI3gMmf+here->SOI3gMmb+here->SOI3gMmbs+here->SOI3gMd));
*(here->SOI3SP_spPtr) += m * (here->SOI3sourceConductance+here->SOI3gds+ *(here->SOI3SP_spPtr) += m * (here->SOI3sourceConductance+here->SOI3gds+
here->SOI3gbs+xnrm*(here->SOI3gmf+here->SOI3gmbs+ here->SOI3gbs+xnrm*(here->SOI3gmf+here->SOI3gmbs+
here->SOI3gmb)+xrev*here->SOI3gMd); here->SOI3gmb)+xrev*here->SOI3gMd);
*(here->SOI3SP_bPtr) += m * (-here->SOI3gbs + here->SOI3gBJTsb_bd *(here->SOI3SP_bPtr) += m * (-here->SOI3gbs + here->SOI3gBJTsb_bd
-(xnrm-xrev)*here->SOI3gmbs+ -(xnrm-xrev)*here->SOI3gmbs+
xrev*here->SOI3gMmbs); xrev*here->SOI3gMmbs);
*(here->SOI3B_gfPtr) += m * (-here->SOI3gMmf); *(here->SOI3B_gfPtr) += m * (-here->SOI3gMmf);
*(here->SOI3B_gbPtr) += m * (-here->SOI3gMmb); *(here->SOI3B_gbPtr) += m * (-here->SOI3gMmb);
*(here->SOI3B_dpPtr) += m * (-(here->SOI3gbd) + here->SOI3gBJTsb_bd + *(here->SOI3B_dpPtr) += m * (-(here->SOI3gbd) + here->SOI3gBJTsb_bd +
xrev*(here->SOI3gMmf+here->SOI3gMmb+ xrev*(here->SOI3gMmf+here->SOI3gMmb+
here->SOI3gMmbs+here->SOI3gMd) - here->SOI3gMmbs+here->SOI3gMd) -
xnrm*here->SOI3gMd); xnrm*here->SOI3gMd);
*(here->SOI3B_spPtr) += m * (-(here->SOI3gbs) + here->SOI3gBJTdb_bs + *(here->SOI3B_spPtr) += m * (-(here->SOI3gbs) + here->SOI3gBJTdb_bs +
xnrm*(here->SOI3gMmf+here->SOI3gMmb+ xnrm*(here->SOI3gMmf+here->SOI3gMmb+
here->SOI3gMmbs+here->SOI3gMd) - here->SOI3gMmbs+here->SOI3gMd) -
xrev*here->SOI3gMd); xrev*here->SOI3gMd);
*(here->SOI3B_bPtr) += m * (here->SOI3gbd+here->SOI3gbs - *(here->SOI3B_bPtr) += m * (here->SOI3gbd+here->SOI3gbs -
here->SOI3gMmbs here->SOI3gMmbs
- here->SOI3gBJTdb_bs - here->SOI3gBJTsb_bd); - here->SOI3gBJTdb_bs - here->SOI3gBJTsb_bd);
/* if no thermal behaviour specified, then put in zero valued indpt. voltage source /* if no thermal behaviour specified, then put in zero valued indpt. voltage source
between TOUT and ground */ between TOUT and ground */
if (here->SOI3rt==0) if (here->SOI3rt==0)
{ {
*(here->SOI3TOUT_ibrPtr) += m * 1.0; *(here->SOI3TOUT_ibrPtr) += m * 1.0;
*(here->SOI3IBR_toutPtr) += m * 1.0; *(here->SOI3IBR_toutPtr) += m * 1.0;
*(ckt->CKTrhs + (here->SOI3branch)) = 0; *(ckt->CKTrhs + (here->SOI3branch)) = 0;
} }
else else
{ {
*(here->SOI3TOUT_toutPtr) += m * (-(here->SOI3gPdT)+grt[0]); *(here->SOI3TOUT_toutPtr) += m * (-(here->SOI3gPdT)+grt[0]);
if (here->SOI3numThermalNodes > 1) if (here->SOI3numThermalNodes > 1)
{ {
*(here->SOI3TOUT_tout1Ptr) += m * (-grt[0]); *(here->SOI3TOUT_tout1Ptr) += m * (-grt[0]);
*(here->SOI3TOUT1_toutPtr) += m * (-grt[0]); *(here->SOI3TOUT1_toutPtr) += m * (-grt[0]);
*(here->SOI3TOUT1_tout1Ptr) += m * (grt[0]+grt[1]); *(here->SOI3TOUT1_tout1Ptr) += m * (grt[0]+grt[1]);
} }
if (here->SOI3numThermalNodes > 2) if (here->SOI3numThermalNodes > 2)
{ {
*(here->SOI3TOUT1_tout2Ptr) += m * (-grt[1]); *(here->SOI3TOUT1_tout2Ptr) += m * (-grt[1]);
*(here->SOI3TOUT2_tout1Ptr) += m * (-grt[1]); *(here->SOI3TOUT2_tout1Ptr) += m * (-grt[1]);
*(here->SOI3TOUT2_tout2Ptr) += m * (grt[1]+grt[2]); *(here->SOI3TOUT2_tout2Ptr) += m * (grt[1]+grt[2]);
} }
if (here->SOI3numThermalNodes > 3) if (here->SOI3numThermalNodes > 3)
{ {
*(here->SOI3TOUT2_tout3Ptr) += m * (-grt[2]); *(here->SOI3TOUT2_tout3Ptr) += m * (-grt[2]);
*(here->SOI3TOUT3_tout2Ptr) += m * (-grt[2]); *(here->SOI3TOUT3_tout2Ptr) += m * (-grt[2]);
*(here->SOI3TOUT3_tout3Ptr) += m * (grt[2]+grt[3]); *(here->SOI3TOUT3_tout3Ptr) += m * (grt[2]+grt[3]);
} }
if (here->SOI3numThermalNodes > 4) if (here->SOI3numThermalNodes > 4)
{ {
*(here->SOI3TOUT3_tout4Ptr) += m * (-grt[3]); *(here->SOI3TOUT3_tout4Ptr) += m * (-grt[3]);
*(here->SOI3TOUT4_tout3Ptr) += m * (-grt[3]); *(here->SOI3TOUT4_tout3Ptr) += m * (-grt[3]);
*(here->SOI3TOUT4_tout4Ptr) += m * (grt[3]+grt[4]); *(here->SOI3TOUT4_tout4Ptr) += m * (grt[3]+grt[4]);
} }
*(here->SOI3TOUT_dpPtr) += m * (xnrm*(-(here->SOI3gPds*model->SOI3type)) *(here->SOI3TOUT_dpPtr) += m * (xnrm*(-(here->SOI3gPds*model->SOI3type))
+xrev*(here->SOI3gPds+here->SOI3gPmf+ +xrev*(here->SOI3gPds+here->SOI3gPmf+
here->SOI3gPmb+here->SOI3gPmbs)* here->SOI3gPmb+here->SOI3gPmbs)*
model->SOI3type); model->SOI3type);
*(here->SOI3TOUT_gfPtr) += m * (-(here->SOI3gPmf*model->SOI3type)); *(here->SOI3TOUT_gfPtr) += m * (-(here->SOI3gPmf*model->SOI3type));
*(here->SOI3TOUT_gbPtr) += m * (-(here->SOI3gPmb*model->SOI3type)); *(here->SOI3TOUT_gbPtr) += m * (-(here->SOI3gPmb*model->SOI3type));
*(here->SOI3TOUT_bPtr) += m * (-(here->SOI3gPmbs*model->SOI3type)); *(here->SOI3TOUT_bPtr) += m * (-(here->SOI3gPmbs*model->SOI3type));
*(here->SOI3TOUT_spPtr) += m * (xnrm*(here->SOI3gPds+here->SOI3gPmf+ *(here->SOI3TOUT_spPtr) += m * (xnrm*(here->SOI3gPds+here->SOI3gPmf+
here->SOI3gPmb+here->SOI3gPmbs)*model->SOI3type here->SOI3gPmb+here->SOI3gPmbs)*model->SOI3type
+xrev*(-(here->SOI3gPds*model->SOI3type))); +xrev*(-(here->SOI3gPds*model->SOI3type)));
*(here->SOI3DP_toutPtr) += m * (xnrm-xrev)*here->SOI3gt*model->SOI3type; *(here->SOI3DP_toutPtr) += m * (xnrm-xrev)*here->SOI3gt*model->SOI3type;
*(here->SOI3SP_toutPtr) += m * (xrev-xnrm)*here->SOI3gt*model->SOI3type; *(here->SOI3SP_toutPtr) += m * (xrev-xnrm)*here->SOI3gt*model->SOI3type;
/* need to mult by type in above as conductances will be used with exterior voltages /* need to mult by type in above as conductances will be used with exterior voltages
which will be -ve for PMOS except for gPdT */ which will be -ve for PMOS except for gPdT */
/* now for thermal influence on impact ionisation current and transient stuff */ /* now for thermal influence on impact ionisation current and transient stuff */
*(here->SOI3DP_toutPtr) += m * (xnrm*here->SOI3gMdeltaT - *(here->SOI3DP_toutPtr) += m * (xnrm*here->SOI3gMdeltaT -
here->SOI3gbdT + here->SOI3gBJTdb_deltaT)*model->SOI3type; here->SOI3gbdT + here->SOI3gBJTdb_deltaT)*model->SOI3type;
*(here->SOI3SP_toutPtr) += m * (xrev*here->SOI3gMdeltaT - *(here->SOI3SP_toutPtr) += m * (xrev*here->SOI3gMdeltaT -
here->SOI3gbsT + here->SOI3gBJTsb_deltaT)*model->SOI3type; here->SOI3gbsT + here->SOI3gBJTsb_deltaT)*model->SOI3type;
*(here->SOI3B_toutPtr) -= m * (here->SOI3gMdeltaT - here->SOI3gbsT - *(here->SOI3B_toutPtr) -= m * (here->SOI3gMdeltaT - here->SOI3gbsT -
here->SOI3gbdT + here->SOI3gBJTdb_deltaT + here->SOI3gbdT + here->SOI3gBJTdb_deltaT +
here->SOI3gBJTsb_deltaT)*model->SOI3type; here->SOI3gBJTsb_deltaT)*model->SOI3type;
} }
} }
} }
return(OK); return(OK);
} }