Branch data Line data Source code
1 : : /*
2 : : * bsim3v34nMOS.core.cpp - device implementations for bsim3v34nMOS module
3 : : *
4 : : * This is free software; you can redistribute it and/or modify
5 : : * it under the terms of the GNU General Public License as published by
6 : : * the Free Software Foundation; either version 2, or (at your option)
7 : : * any later version.
8 : : *
9 : : */
10 : :
11 : : #if HAVE_CONFIG_H
12 : : #include <config.h>
13 : : #endif
14 : :
15 : : #include "bsim3v34nMOS.analogfunction.h"
16 : : #include "component.h"
17 : : #include "device.h"
18 : : #include "bsim3v34nMOS.core.h"
19 : :
20 : : #ifndef CIR_bsim3v34nMOS
21 : : #define CIR_bsim3v34nMOS -1
22 : : #endif
23 : :
24 : : // external nodes
25 : : #define drain 0
26 : : #define gate 1
27 : : #define source 2
28 : : #define bulk 3
29 : : // internal nodes
30 : : #define drainp 4
31 : : #define sourcep 5
32 : :
33 : : // useful macro definitions
34 : : #define NP(node) real (getV (node))
35 : : #define BP(pnode,nnode) (NP(pnode) - NP(nnode))
36 : : #define _load_static_residual2(pnode,nnode,current)\
37 : : _rhs[pnode] -= current;\
38 : : _rhs[nnode] += current;
39 : : #define _load_static_augmented_residual2(pnode,nnode,current)\
40 : : _rhs[pnode] -= current;\
41 : : _rhs[nnode] += current;
42 : : #define _load_static_residual1(node,current)\
43 : : _rhs[node] -= current;
44 : : #define _load_static_augmented_residual1(node,current)\
45 : : _rhs[node] -= current;
46 : : #define _load_static_jacobian4(pnode,nnode,vpnode,vnnode,conductance)\
47 : : _jstat[pnode][vpnode] += conductance;\
48 : : _jstat[nnode][vnnode] += conductance;\
49 : : _jstat[pnode][vnnode] -= conductance;\
50 : : _jstat[nnode][vpnode] -= conductance;\
51 : : if (doHB) {\
52 : : _ghs[pnode] += conductance * BP(vpnode,vnnode);\
53 : : _ghs[nnode] -= conductance * BP(vpnode,vnnode);\
54 : : } else {\
55 : : _rhs[pnode] += conductance * BP(vpnode,vnnode);\
56 : : _rhs[nnode] -= conductance * BP(vpnode,vnnode);\
57 : : }
58 : : #define _load_static_jacobian2p(node,vpnode,vnnode,conductance)\
59 : : _jstat[node][vpnode] += conductance;\
60 : : _jstat[node][vnnode] -= conductance;\
61 : : if (doHB) {\
62 : : _ghs[node] += conductance * BP(vpnode,vnnode);\
63 : : } else {\
64 : : _rhs[node] += conductance * BP(vpnode,vnnode);\
65 : : }
66 : : #define _load_static_jacobian2s(pnode,nnode,node,conductance)\
67 : : _jstat[pnode][node] += conductance;\
68 : : _jstat[nnode][node] -= conductance;\
69 : : if (doHB) {\
70 : : _ghs[pnode] += conductance * NP(node);\
71 : : _ghs[nnode] -= conductance * NP(node);\
72 : : } else {\
73 : : _rhs[pnode] += conductance * NP(node);\
74 : : _rhs[nnode] -= conductance * NP(node);\
75 : : }
76 : : #define _load_static_jacobian1(node,vnode,conductance)\
77 : : _jstat[node][vnode] += conductance;\
78 : : if (doHB) {\
79 : : _ghs[node] += conductance * NP(vnode);\
80 : : } else {\
81 : : _rhs[node] += conductance * NP(vnode);\
82 : : }
83 : : #define _load_dynamic_residual2(pnode,nnode,charge)\
84 : : if (doTR) _charges[pnode][nnode] += charge;\
85 : : if (doHB) {\
86 : : _qhs[pnode] -= charge;\
87 : : _qhs[nnode] += charge;\
88 : : }
89 : : #define _load_dynamic_residual1(node,charge)\
90 : : if (doTR) _charges[node][node] += charge;\
91 : : if (doHB) {\
92 : : _qhs[node] -= charge;\
93 : : }
94 : : #define _load_dynamic_jacobian4(pnode,nnode,vpnode,vnnode,capacitance)\
95 : : if (doAC) {\
96 : : _jdyna[pnode][vpnode] += capacitance;\
97 : : _jdyna[nnode][vnnode] += capacitance;\
98 : : _jdyna[pnode][vnnode] -= capacitance;\
99 : : _jdyna[nnode][vpnode] -= capacitance;\
100 : : }\
101 : : if (doTR) {\
102 : : _caps[pnode][nnode][vpnode][vnnode] += capacitance;\
103 : : }\
104 : : if (doHB) {\
105 : : _chs[pnode] += capacitance * BP(vpnode,vnnode);\
106 : : _chs[nnode] -= capacitance * BP(vpnode,vnnode);\
107 : : }
108 : : #define _load_dynamic_jacobian2s(pnode,nnode,vnode,capacitance)\
109 : : if (doAC) {\
110 : : _jdyna[pnode][vnode] += capacitance;\
111 : : _jdyna[nnode][vnode] -= capacitance;\
112 : : }\
113 : : if (doTR) {\
114 : : _caps[pnode][nnode][vnode][vnode] += capacitance;\
115 : : }\
116 : : if (doHB) {\
117 : : _chs[pnode] += capacitance * NP(vnode);\
118 : : _chs[nnode] -= capacitance * NP(vnode);\
119 : : }
120 : : #define _load_dynamic_jacobian2p(node,vpnode,vnnode,capacitance)\
121 : : if (doAC) {\
122 : : _jdyna[node][vpnode] += capacitance;\
123 : : _jdyna[node][vnnode] -= capacitance;\
124 : : }\
125 : : if (doTR) {\
126 : : _caps[node][node][vpnode][vnnode] += capacitance;\
127 : : }\
128 : : if (doHB) {\
129 : : _chs[node] += capacitance * BP(vpnode,vnnode);\
130 : : }
131 : : #define _load_dynamic_jacobian1(node,vnode,capacitance)\
132 : : if (doAC) {\
133 : : _jdyna[node][vnode] += capacitance;\
134 : : }\
135 : : if (doTR) {\
136 : : _caps[node][node][vnode][vnode] += capacitance;\
137 : : }\
138 : : if (doHB) {\
139 : : _chs[node] += capacitance * NP(vnode);\
140 : : }
141 : :
142 : : #define _save_whitenoise1(n1,pwr,type)\
143 : : _white_pwr[n1][n1] += pwr;
144 : : #define _save_whitenoise2(n1,n2,pwr,type)\
145 : : _white_pwr[n1][n2] += pwr;
146 : : #define _save_flickernoise1(n1,pwr,exp,type)\
147 : : _flicker_pwr[n1][n1] += pwr;\
148 : : _flicker_exp[n1][n1] += exp;
149 : : #define _save_flickernoise2(n1,n2,pwr,exp,type)\
150 : : _flicker_pwr[n1][n2] += pwr;\
151 : : _flicker_exp[n1][n2] += exp;
152 : : #define _load_whitenoise2(n1,n2,pwr)\
153 : : cy (n1,n2) -= pwr/kB/T0; cy (n2,n1) -= pwr/kB/T0;\
154 : : cy (n1,n1) += pwr/kB/T0; cy (n2,n2) += pwr/kB/T0;
155 : : #define _load_whitenoise1(n1,pwr)\
156 : : cy (n1,n1) += pwr/kB/T0;
157 : : #define _load_flickernoise2(n1,n2,pwr,exp)\
158 : : cy (n1,n2) -= pwr*pow(_freq,-exp)/kB/T0;\
159 : : cy (n2,n1) -= pwr*pow(_freq,-exp)/kB/T0;\
160 : : cy (n1,n1) += pwr*pow(_freq,-exp)/kB/T0;\
161 : : cy (n2,n2) += pwr*pow(_freq,-exp)/kB/T0;
162 : : #define _load_flickernoise1(n1,pwr,exp)\
163 : : cy (n1,n1) += pwr*pow(_freq,-exp)/kB/T0;
164 : :
165 : : // derivative helper macros
166 : : // transcendental LRM p. 59
167 : : #define m00_cos(v00,x) v00 = cos(x);
168 : : #define m10_cos(v10,v00,x) v10 = (-sin(x));
169 : : #define m00_sin(v00,x) v00 = sin(x);
170 : : #define m10_sin(v10,v00,x) v10 = (cos(x));
171 : : #define m00_tan(v00,x) v00 = tan(x);
172 : : #define m10_tan(v10,v00,x) v10 = (1.0/cos(x)/cos(x));
173 : : #define m00_cosh(v00,x) v00 = cosh(x);
174 : : #define m10_cosh(v10,v00,x) v10 = (sinh(x));
175 : : #define m00_sinh(v00,x) v00 = sinh(x);
176 : : #define m10_sinh(v10,v00,x) v10 = (cosh(x));
177 : : #define m00_tanh(v00,x) v00 = tanh(x);
178 : : #define m10_tanh(v10,v00,x) v10 = (1.0/cosh(x)/cosh(x));
179 : : #define m00_acos(v00,x) v00 = acos(x);
180 : : #define m10_acos(v10,v00,x) v10 = (-1.0/sqrt(1-x*x));
181 : : #define m00_asin(v00,x) v00 = asin(x);
182 : : #define m10_asin(v10,v00,x) v10 = (+1.0/sqrt(1-x*x));
183 : : #define m00_atan(v00,x) v00 = atan(x);
184 : : #define m10_atan(v10,v00,x) v10 = (+1.0/(1+x*x));
185 : : #define m00_hypot(v00,x,y) v00 = sqrt((x)*(x)+(y)*(y));
186 : : #define m10_hypot(v10,v00,x,y) v10 = (x)/(v00);
187 : : #define m11_hypot(v11,v00,x,y) v11 = (y)/(v00);
188 : : #define m00_atan2(v00,x,y) v00 = atan2(x,y);
189 : : // TODO atan2 derivatives ?
190 : : #define m00_acosh(v00,x) v00 = acosh(x);
191 : : #define m10_acosh(v10,v00,x) v10 = (1.0/(sqrt(x-1)*sqrt(x+1)));
192 : : #define m00_asinh(v00,x) v00 = asinh(x);
193 : : #define m10_asinh(v10,v00,x) v10 = (1.0/(sqrt(x*x+1)));
194 : : #define m00_atanh(v00,x) v00 = atanh(x);
195 : : #define m10_atanh(v10,v00,x) v10 = (1.0/(1-x*x));
196 : :
197 : :
198 : : // standard functions LRM p.58
199 : : #define m00_logE(v00,x) v00 = log(x);
200 : : #define m10_logE(v10,v00,x) v10 = (1.0/x);
201 : : #define m00_log10(v00,x) v00 = log10(x);
202 : : #define m10_log10(v10,v00,x) v10 = (1.0/x/M_LN10);
203 : : #define m00_exp(v00,x) v00 = exp(x);
204 : : #define m10_exp(v10,v00,x) v10 = v00;
205 : : #define m00_sqrt(v00,x) v00 = sqrt(x);
206 : : #define m10_sqrt(v10,v00,x) v10 = (0.5/v00);
207 : : #define m00_min(v00,x,y) v00 = ((x)<(y))?(x):(y);
208 : : #define m10_min(v10,v00,x,y) v10 = ((x)<(y))?1.0:0.0;
209 : : #define m11_min(v11,v00,x,y) v11 = ((x)<(y))?0.0:1.0;
210 : : #define m00_max(v00,x,y) v00 = ((x)>(y))?(x):(y);
211 : : #define m10_max(v10,v00,x,y) v10 = ((x)>(y))?1.0:0.0;
212 : : #define m11_max(v11,v00,x,y) v11 = ((x)>(y))?0.0:1.0;
213 : : #define m00_pow(v00,x,y) v00 = pow(x,y);
214 : : #define m10_pow(v10,v00,x,y) v10 = (x==0.0)?0.0:(v00)*(y)/(x);
215 : : #define m11_pow(v11,v00,x,y) v11 = (x==0.0)?0.0:(log(x)*(v00));
216 : : #define m00_abs(v00,x) v00 = ((x)<(0)?(-(x)):(x));
217 : : #define m10_abs(v10,v00,x) v10 = (((x)>=0)?(+1.0):(-1.0));
218 : : #define m00_floor(v00,x) v00 = floor(x);
219 : : #define m10_floor(v10,v00,x) v10 = 1.0;
220 : :
221 : : #define m00_ceil(v00,x) v00 = ceil(x);
222 : : // TODO ceil derivative, needed?
223 : :
224 : : // analog operator, LRM p.61
225 : : #define m00_limexp(v00,x) v00 = ((x)<80.0?exp(x):exp(80.0)*(x-79.0));
226 : : #define m10_limexp(v10,v00,x) v10 = ((x)<80.0?(v00):exp(80.0));
227 : :
228 : : // analog kernel parameter system functions, LRM p.215
229 : : #define m00_vt(x) (kBoverQ*(x))
230 : : #define m10_vt(x) (kBoverQ)
231 : :
232 : : // extra functions (?)
233 : : #define m00_div(v00,v10,x,y) double v10=1/(y); double v00=(x)*v10;
234 : : #define m10_div(v10,v00,vv,x,y)
235 : : #define m11_div(v11,v00,vv,x,y) double v11 = -v00*vv;
236 : : #define m00_mult(v00,v10,v11,x,y) double v10=(x); double v11=(y); double v00=v10*v11;
237 : : #define m00_add(v00,x,y) double v00=(x)+(y);
238 : :
239 : : // second derivatives
240 : : #define m20_logE(v00) (-1.0/v00/v00)
241 : : #define m20_exp(v00) exp(v00)
242 : : #define m20_limexp(v00) ((v00)<80.0?exp(v00):0.0)
243 : : #define m20_sqrt(v00) (-0.25/(v00)/sqrt(v00))
244 : : #define m20_abs(v00) 0.0
245 : : #define m20_pow(x,y) ((y)*((y)-1.0)*pow(x,y)/(x)/(x))
246 : :
247 : :
248 : : // simulator specific definitions
249 : : #define _modelname "bsim3v34nMOS"
250 : : #define _instancename getName()
251 : : #define _circuit_temp (getPropertyDouble("Temp")+273.15)
252 : : #define _param_given(p) (isPropertyGiven(p)?1:0)
253 : :
254 : :
255 : : // $vt and $vt() functions
256 : : #define _vt_nom (kBoverQ*_circuit_temp)
257 : :
258 : : using namespace qucs::device;
259 : : using qucs::matrix;
260 : :
261 : : /* Device constructor. */
262 : 0 : bsim3v34nMOS::bsim3v34nMOS() : circuit (6)
263 : : {
264 : 0 : type = CIR_bsim3v34nMOS;
265 : 0 : }
266 : :
267 : : /* Initialization of model. */
268 : 0 : void bsim3v34nMOS::initModel (void)
269 : : {
270 : : // create internal nodes
271 : 0 : setInternalNode (drainp, "drainp");
272 : 0 : setInternalNode (sourcep, "sourcep");
273 : :
274 : : // get device model parameters
275 : 0 : loadVariables ();
276 : : // evaluate global model equations
277 : 0 : initializeModel ();
278 : : // evaluate initial step equations
279 : 0 : initialStep ();
280 : : // evaluate global instance equations
281 : 0 : initializeInstance ();
282 : 0 : }
283 : :
284 : : /* Initialization of DC analysis. */
285 : 0 : void bsim3v34nMOS::initDC (void)
286 : : {
287 : 0 : allocMatrixMNA ();
288 : 0 : initModel ();
289 : 0 : pol = 1;
290 : 0 : restartDC ();
291 : 0 : doAC = 1;
292 : 0 : doTR = 0;
293 : 0 : doHB = 0;
294 : 0 : }
295 : :
296 : : /* Run when DC is restarted (fallback algorithms). */
297 : 0 : void bsim3v34nMOS::restartDC (void)
298 : : {
299 : 0 : }
300 : :
301 : : /* Initialize Verilog-AMS code. */
302 : 0 : void bsim3v34nMOS::initVerilog (void)
303 : : {
304 : : // initialization of noise variables
305 : 0 : _white_pwr[sourcep][source] = 0.0;
306 : 0 : _white_pwr[drain][drainp] = 0.0;
307 : 0 : _white_pwr[drainp][sourcep] = 0.0;
308 : 0 : _flicker_pwr[drainp][sourcep] = 0.0;
309 : 0 : _flicker_exp[drainp][sourcep] = 0.0;
310 : :
311 : : int i1, i2, i3, i4;
312 : :
313 : : // zero charges
314 [ # # ]: 0 : for (i1 = 0; i1 < 6; i1++) {
315 [ # # ]: 0 : for (i2 = 0; i2 < 6; i2++) {
316 : 0 : _charges[i1][i2] = 0.0;
317 : : } }
318 : :
319 : : // zero capacitances
320 [ # # ]: 0 : for (i1 = 0; i1 < 6; i1++) {
321 [ # # ]: 0 : for (i2 = 0; i2 < 6; i2++) {
322 [ # # ]: 0 : for (i3 = 0; i3 < 6; i3++) {
323 [ # # ]: 0 : for (i4 = 0; i4 < 6; i4++) {
324 : 0 : _caps[i1][i2][i3][i4] = 0.0;
325 : : } } } }
326 : :
327 : : // zero right hand side, static and dynamic jacobian
328 [ # # ]: 0 : for (i1 = 0; i1 < 6; i1++) {
329 : 0 : _rhs[i1] = 0.0;
330 : 0 : _qhs[i1] = 0.0;
331 : 0 : _chs[i1] = 0.0;
332 : 0 : _ghs[i1] = 0.0;
333 [ # # ]: 0 : for (i2 = 0; i2 < 6; i2++) {
334 : 0 : _jstat[i1][i2] = 0.0;
335 : 0 : _jdyna[i1][i2] = 0.0;
336 : : }
337 : : }
338 : 0 : }
339 : :
340 : : /* Load device model input parameters. */
341 : 0 : void bsim3v34nMOS::loadVariables (void)
342 : : {
343 : 0 : L = getPropertyDouble ("L");
344 : 0 : W = getPropertyDouble ("W");
345 : 0 : PS = getPropertyDouble ("PS");
346 : 0 : PD = getPropertyDouble ("PD");
347 : 0 : AS = getPropertyDouble ("AS");
348 : 0 : AD = getPropertyDouble ("AD");
349 : 0 : NRS = getPropertyDouble ("NRS");
350 : 0 : NRD = getPropertyDouble ("NRD");
351 : 0 : NQSMOD = getPropertyDouble ("NQSMOD");
352 : 0 : GMIN = getPropertyDouble ("GMIN");
353 : 0 : VERSION = getPropertyDouble ("VERSION");
354 : 0 : PARAMCHK = getPropertyDouble ("PARAMCHK");
355 : 0 : MOBMOD = getPropertyDouble ("MOBMOD");
356 : 0 : CAPMOD = getPropertyDouble ("CAPMOD");
357 : 0 : NOIMOD = getPropertyDouble ("NOIMOD");
358 : 0 : BINUNIT = getPropertyDouble ("BINUNIT");
359 : 0 : TOX = getPropertyDouble ("TOX");
360 : 0 : TOXM = getPropertyDouble ("TOXM");
361 : 0 : CDSC = getPropertyDouble ("CDSC");
362 : 0 : CDSCB = getPropertyDouble ("CDSCB");
363 : 0 : CDSCD = getPropertyDouble ("CDSCD");
364 : 0 : CIT = getPropertyDouble ("CIT");
365 : 0 : NFACTOR = getPropertyDouble ("NFACTOR");
366 : 0 : XJ = getPropertyDouble ("XJ");
367 : 0 : VSAT = getPropertyDouble ("VSAT");
368 : 0 : AT = getPropertyDouble ("AT");
369 : 0 : A0 = getPropertyDouble ("A0");
370 : 0 : AGS = getPropertyDouble ("AGS");
371 : 0 : A1 = getPropertyDouble ("A1");
372 : 0 : A2 = getPropertyDouble ("A2");
373 : 0 : KETA = getPropertyDouble ("KETA");
374 : 0 : NSUB = getPropertyDouble ("NSUB");
375 : 0 : NCH = getPropertyDouble ("NCH");
376 : 0 : NGATE = getPropertyDouble ("NGATE");
377 : 0 : GAMMA1 = getPropertyDouble ("GAMMA1");
378 : 0 : GAMMA2 = getPropertyDouble ("GAMMA2");
379 : 0 : VBX = getPropertyDouble ("VBX");
380 : 0 : VBM = getPropertyDouble ("VBM");
381 : 0 : XT = getPropertyDouble ("XT");
382 : 0 : K1 = getPropertyDouble ("K1");
383 : 0 : KT1 = getPropertyDouble ("KT1");
384 : 0 : KT1L = getPropertyDouble ("KT1L");
385 : 0 : KT2 = getPropertyDouble ("KT2");
386 : 0 : K2 = getPropertyDouble ("K2");
387 : 0 : K3 = getPropertyDouble ("K3");
388 : 0 : K3B = getPropertyDouble ("K3B");
389 : 0 : W0 = getPropertyDouble ("W0");
390 : 0 : NLX = getPropertyDouble ("NLX");
391 : 0 : DVT0 = getPropertyDouble ("DVT0");
392 : 0 : DVT1 = getPropertyDouble ("DVT1");
393 : 0 : DVT2 = getPropertyDouble ("DVT2");
394 : 0 : DVT0W = getPropertyDouble ("DVT0W");
395 : 0 : DVT1W = getPropertyDouble ("DVT1W");
396 : 0 : DVT2W = getPropertyDouble ("DVT2W");
397 : 0 : DROUT = getPropertyDouble ("DROUT");
398 : 0 : DSUB = getPropertyDouble ("DSUB");
399 : 0 : VTHO = getPropertyDouble ("VTHO");
400 : 0 : VTH0 = getPropertyDouble ("VTH0");
401 : 0 : UA = getPropertyDouble ("UA");
402 : 0 : UA1 = getPropertyDouble ("UA1");
403 : 0 : UB = getPropertyDouble ("UB");
404 : 0 : UB1 = getPropertyDouble ("UB1");
405 : 0 : UC = getPropertyDouble ("UC");
406 : 0 : UC1 = getPropertyDouble ("UC1");
407 : 0 : U0 = getPropertyDouble ("U0");
408 : 0 : UTE = getPropertyDouble ("UTE");
409 : 0 : VOFF = getPropertyDouble ("VOFF");
410 : 0 : TNOM = getPropertyDouble ("TNOM");
411 : 0 : CGSO = getPropertyDouble ("CGSO");
412 : 0 : CGDO = getPropertyDouble ("CGDO");
413 : 0 : CGBO = getPropertyDouble ("CGBO");
414 : 0 : XPART = getPropertyDouble ("XPART");
415 : 0 : ELM = getPropertyDouble ("ELM");
416 : 0 : DELTA = getPropertyDouble ("DELTA");
417 : 0 : RSH = getPropertyDouble ("RSH");
418 : 0 : RDSW = getPropertyDouble ("RDSW");
419 : 0 : PRWG = getPropertyDouble ("PRWG");
420 : 0 : PRWB = getPropertyDouble ("PRWB");
421 : 0 : PRT = getPropertyDouble ("PRT");
422 : 0 : ETA0 = getPropertyDouble ("ETA0");
423 : 0 : ETAB = getPropertyDouble ("ETAB");
424 : 0 : PCLM = getPropertyDouble ("PCLM");
425 : 0 : PDIBLC1 = getPropertyDouble ("PDIBLC1");
426 : 0 : PDIBLC2 = getPropertyDouble ("PDIBLC2");
427 : 0 : PDIBLCB = getPropertyDouble ("PDIBLCB");
428 : 0 : PSCBE1 = getPropertyDouble ("PSCBE1");
429 : 0 : PSCBE2 = getPropertyDouble ("PSCBE2");
430 : 0 : PVAG = getPropertyDouble ("PVAG");
431 : 0 : JS = getPropertyDouble ("JS");
432 : 0 : JSW = getPropertyDouble ("JSW");
433 : 0 : PB = getPropertyDouble ("PB");
434 : 0 : NJ = getPropertyDouble ("NJ");
435 : 0 : XTI = getPropertyDouble ("XTI");
436 : 0 : MJ = getPropertyDouble ("MJ");
437 : 0 : PBSW = getPropertyDouble ("PBSW");
438 : 0 : MJSW = getPropertyDouble ("MJSW");
439 : 0 : PBSWG = getPropertyDouble ("PBSWG");
440 : 0 : MJSWG = getPropertyDouble ("MJSWG");
441 : 0 : CJ = getPropertyDouble ("CJ");
442 : 0 : VFBCV = getPropertyDouble ("VFBCV");
443 : 0 : VFB = getPropertyDouble ("VFB");
444 : 0 : CJSW = getPropertyDouble ("CJSW");
445 : 0 : CJSWG = getPropertyDouble ("CJSWG");
446 : 0 : TPB = getPropertyDouble ("TPB");
447 : 0 : TCJ = getPropertyDouble ("TCJ");
448 : 0 : TPBSW = getPropertyDouble ("TPBSW");
449 : 0 : TCJSW = getPropertyDouble ("TCJSW");
450 : 0 : TPBSWG = getPropertyDouble ("TPBSWG");
451 : 0 : TCJSWG = getPropertyDouble ("TCJSWG");
452 : 0 : ACDE = getPropertyDouble ("ACDE");
453 : 0 : MOIN = getPropertyDouble ("MOIN");
454 : 0 : NOFF = getPropertyDouble ("NOFF");
455 : 0 : VOFFCV = getPropertyDouble ("VOFFCV");
456 : 0 : LINT = getPropertyDouble ("LINT");
457 : 0 : LL = getPropertyDouble ("LL");
458 : 0 : LLC = getPropertyDouble ("LLC");
459 : 0 : LLN = getPropertyDouble ("LLN");
460 : 0 : LW = getPropertyDouble ("LW");
461 : 0 : LWC = getPropertyDouble ("LWC");
462 : 0 : LWN = getPropertyDouble ("LWN");
463 : 0 : LWL = getPropertyDouble ("LWL");
464 : 0 : LWLC = getPropertyDouble ("LWLC");
465 : 0 : LMIN = getPropertyDouble ("LMIN");
466 : 0 : LMAX = getPropertyDouble ("LMAX");
467 : 0 : WR = getPropertyDouble ("WR");
468 : 0 : WINT = getPropertyDouble ("WINT");
469 : 0 : DWG = getPropertyDouble ("DWG");
470 : 0 : DWB = getPropertyDouble ("DWB");
471 : 0 : WL = getPropertyDouble ("WL");
472 : 0 : WLC = getPropertyDouble ("WLC");
473 : 0 : WLN = getPropertyDouble ("WLN");
474 : 0 : WW = getPropertyDouble ("WW");
475 : 0 : WWC = getPropertyDouble ("WWC");
476 : 0 : WWN = getPropertyDouble ("WWN");
477 : 0 : WWL = getPropertyDouble ("WWL");
478 : 0 : WWLC = getPropertyDouble ("WWLC");
479 : 0 : WMIN = getPropertyDouble ("WMIN");
480 : 0 : WMAX = getPropertyDouble ("WMAX");
481 : 0 : B0 = getPropertyDouble ("B0");
482 : 0 : B1 = getPropertyDouble ("B1");
483 : 0 : CGSL = getPropertyDouble ("CGSL");
484 : 0 : CGDL = getPropertyDouble ("CGDL");
485 : 0 : CKAPPA = getPropertyDouble ("CKAPPA");
486 : 0 : CF = getPropertyDouble ("CF");
487 : 0 : CLC = getPropertyDouble ("CLC");
488 : 0 : CLE = getPropertyDouble ("CLE");
489 : 0 : DWC = getPropertyDouble ("DWC");
490 : 0 : DLC = getPropertyDouble ("DLC");
491 : 0 : ALPHA0 = getPropertyDouble ("ALPHA0");
492 : 0 : ALPHA1 = getPropertyDouble ("ALPHA1");
493 : 0 : BETA0 = getPropertyDouble ("BETA0");
494 : 0 : IJTH = getPropertyDouble ("IJTH");
495 : 0 : LCDSC = getPropertyDouble ("LCDSC");
496 : 0 : LCDSCB = getPropertyDouble ("LCDSCB");
497 : 0 : LCDSCD = getPropertyDouble ("LCDSCD");
498 : 0 : LCIT = getPropertyDouble ("LCIT");
499 : 0 : LNFACTOR = getPropertyDouble ("LNFACTOR");
500 : 0 : LXJ = getPropertyDouble ("LXJ");
501 : 0 : LVSAT = getPropertyDouble ("LVSAT");
502 : 0 : LAT = getPropertyDouble ("LAT");
503 : 0 : LA0 = getPropertyDouble ("LA0");
504 : 0 : LAGS = getPropertyDouble ("LAGS");
505 : 0 : LA1 = getPropertyDouble ("LA1");
506 : 0 : LA2 = getPropertyDouble ("LA2");
507 : 0 : LKETA = getPropertyDouble ("LKETA");
508 : 0 : LNSUB = getPropertyDouble ("LNSUB");
509 : 0 : LNCH = getPropertyDouble ("LNCH");
510 : 0 : LNGATE = getPropertyDouble ("LNGATE");
511 : 0 : LGAMMA1 = getPropertyDouble ("LGAMMA1");
512 : 0 : LGAMMA2 = getPropertyDouble ("LGAMMA2");
513 : 0 : LVBX = getPropertyDouble ("LVBX");
514 : 0 : LVBM = getPropertyDouble ("LVBM");
515 : 0 : LXT = getPropertyDouble ("LXT");
516 : 0 : LK1 = getPropertyDouble ("LK1");
517 : 0 : LKT1 = getPropertyDouble ("LKT1");
518 : 0 : LKT1L = getPropertyDouble ("LKT1L");
519 : 0 : LKT2 = getPropertyDouble ("LKT2");
520 : 0 : LK2 = getPropertyDouble ("LK2");
521 : 0 : LK3 = getPropertyDouble ("LK3");
522 : 0 : LK3B = getPropertyDouble ("LK3B");
523 : 0 : LW0 = getPropertyDouble ("LW0");
524 : 0 : LNLX = getPropertyDouble ("LNLX");
525 : 0 : LDVT0 = getPropertyDouble ("LDVT0");
526 : 0 : LDVT1 = getPropertyDouble ("LDVT1");
527 : 0 : LDVT2 = getPropertyDouble ("LDVT2");
528 : 0 : LDVT0W = getPropertyDouble ("LDVT0W");
529 : 0 : LDVT1W = getPropertyDouble ("LDVT1W");
530 : 0 : LDVT2W = getPropertyDouble ("LDVT2W");
531 : 0 : LDROUT = getPropertyDouble ("LDROUT");
532 : 0 : LDSUB = getPropertyDouble ("LDSUB");
533 : 0 : LVTH0 = getPropertyDouble ("LVTH0");
534 : 0 : LVTHO = getPropertyDouble ("LVTHO");
535 : 0 : LUA = getPropertyDouble ("LUA");
536 : 0 : LUA1 = getPropertyDouble ("LUA1");
537 : 0 : LUB = getPropertyDouble ("LUB");
538 : 0 : LUB1 = getPropertyDouble ("LUB1");
539 : 0 : LUC = getPropertyDouble ("LUC");
540 : 0 : LUC1 = getPropertyDouble ("LUC1");
541 : 0 : LU0 = getPropertyDouble ("LU0");
542 : 0 : LUTE = getPropertyDouble ("LUTE");
543 : 0 : LVOFF = getPropertyDouble ("LVOFF");
544 : 0 : LELM = getPropertyDouble ("LELM");
545 : 0 : LDELTA = getPropertyDouble ("LDELTA");
546 : 0 : LRDSW = getPropertyDouble ("LRDSW");
547 : 0 : LPRWG = getPropertyDouble ("LPRWG");
548 : 0 : LPRWB = getPropertyDouble ("LPRWB");
549 : 0 : LPRT = getPropertyDouble ("LPRT");
550 : 0 : LETA0 = getPropertyDouble ("LETA0");
551 : 0 : LETAB = getPropertyDouble ("LETAB");
552 : 0 : LPCLM = getPropertyDouble ("LPCLM");
553 : 0 : LPDIBLC1 = getPropertyDouble ("LPDIBLC1");
554 : 0 : LPDIBLC2 = getPropertyDouble ("LPDIBLC2");
555 : 0 : LPDIBLCB = getPropertyDouble ("LPDIBLCB");
556 : 0 : LPSCBE1 = getPropertyDouble ("LPSCBE1");
557 : 0 : LPSCBE2 = getPropertyDouble ("LPSCBE2");
558 : 0 : LPVAG = getPropertyDouble ("LPVAG");
559 : 0 : LWR = getPropertyDouble ("LWR");
560 : 0 : LDWG = getPropertyDouble ("LDWG");
561 : 0 : LDWB = getPropertyDouble ("LDWB");
562 : 0 : LB0 = getPropertyDouble ("LB0");
563 : 0 : LB1 = getPropertyDouble ("LB1");
564 : 0 : LCGSL = getPropertyDouble ("LCGSL");
565 : 0 : LCGDL = getPropertyDouble ("LCGDL");
566 : 0 : LCKAPPA = getPropertyDouble ("LCKAPPA");
567 : 0 : LCF = getPropertyDouble ("LCF");
568 : 0 : LCLC = getPropertyDouble ("LCLC");
569 : 0 : LCLE = getPropertyDouble ("LCLE");
570 : 0 : LALPHA0 = getPropertyDouble ("LALPHA0");
571 : 0 : LALPHA1 = getPropertyDouble ("LALPHA1");
572 : 0 : LBETA0 = getPropertyDouble ("LBETA0");
573 : 0 : LVFBCV = getPropertyDouble ("LVFBCV");
574 : 0 : LVFB = getPropertyDouble ("LVFB");
575 : 0 : LACDE = getPropertyDouble ("LACDE");
576 : 0 : LMOIN = getPropertyDouble ("LMOIN");
577 : 0 : LNOFF = getPropertyDouble ("LNOFF");
578 : 0 : LVOFFCV = getPropertyDouble ("LVOFFCV");
579 : 0 : WCDSC = getPropertyDouble ("WCDSC");
580 : 0 : WCDSCB = getPropertyDouble ("WCDSCB");
581 : 0 : WCDSCD = getPropertyDouble ("WCDSCD");
582 : 0 : WCIT = getPropertyDouble ("WCIT");
583 : 0 : WNFACTOR = getPropertyDouble ("WNFACTOR");
584 : 0 : WXJ = getPropertyDouble ("WXJ");
585 : 0 : WVSAT = getPropertyDouble ("WVSAT");
586 : 0 : WAT = getPropertyDouble ("WAT");
587 : 0 : WA0 = getPropertyDouble ("WA0");
588 : 0 : WAGS = getPropertyDouble ("WAGS");
589 : 0 : WA1 = getPropertyDouble ("WA1");
590 : 0 : WA2 = getPropertyDouble ("WA2");
591 : 0 : WKETA = getPropertyDouble ("WKETA");
592 : 0 : WNSUB = getPropertyDouble ("WNSUB");
593 : 0 : WNCH = getPropertyDouble ("WNCH");
594 : 0 : WNGATE = getPropertyDouble ("WNGATE");
595 : 0 : WGAMMA1 = getPropertyDouble ("WGAMMA1");
596 : 0 : WGAMMA2 = getPropertyDouble ("WGAMMA2");
597 : 0 : WVBX = getPropertyDouble ("WVBX");
598 : 0 : WVBM = getPropertyDouble ("WVBM");
599 : 0 : WXT = getPropertyDouble ("WXT");
600 : 0 : WK1 = getPropertyDouble ("WK1");
601 : 0 : WKT1 = getPropertyDouble ("WKT1");
602 : 0 : WKT1L = getPropertyDouble ("WKT1L");
603 : 0 : WKT2 = getPropertyDouble ("WKT2");
604 : 0 : WK2 = getPropertyDouble ("WK2");
605 : 0 : WK3 = getPropertyDouble ("WK3");
606 : 0 : WK3B = getPropertyDouble ("WK3B");
607 : 0 : WW0 = getPropertyDouble ("WW0");
608 : 0 : WNLX = getPropertyDouble ("WNLX");
609 : 0 : WDVT0 = getPropertyDouble ("WDVT0");
610 : 0 : WDVT1 = getPropertyDouble ("WDVT1");
611 : 0 : WDVT2 = getPropertyDouble ("WDVT2");
612 : 0 : WDVT0W = getPropertyDouble ("WDVT0W");
613 : 0 : WDVT1W = getPropertyDouble ("WDVT1W");
614 : 0 : WDVT2W = getPropertyDouble ("WDVT2W");
615 : 0 : WDROUT = getPropertyDouble ("WDROUT");
616 : 0 : WDSUB = getPropertyDouble ("WDSUB");
617 : 0 : WVTH0 = getPropertyDouble ("WVTH0");
618 : 0 : WVTHO = getPropertyDouble ("WVTHO");
619 : 0 : WUA = getPropertyDouble ("WUA");
620 : 0 : WUA1 = getPropertyDouble ("WUA1");
621 : 0 : WUB = getPropertyDouble ("WUB");
622 : 0 : WUB1 = getPropertyDouble ("WUB1");
623 : 0 : WUC = getPropertyDouble ("WUC");
624 : 0 : WUC1 = getPropertyDouble ("WUC1");
625 : 0 : WU0 = getPropertyDouble ("WU0");
626 : 0 : WUTE = getPropertyDouble ("WUTE");
627 : 0 : WVOFF = getPropertyDouble ("WVOFF");
628 : 0 : WELM = getPropertyDouble ("WELM");
629 : 0 : WDELTA = getPropertyDouble ("WDELTA");
630 : 0 : WRDSW = getPropertyDouble ("WRDSW");
631 : 0 : WPRWG = getPropertyDouble ("WPRWG");
632 : 0 : WPRWB = getPropertyDouble ("WPRWB");
633 : 0 : WPRT = getPropertyDouble ("WPRT");
634 : 0 : WETA0 = getPropertyDouble ("WETA0");
635 : 0 : WETAB = getPropertyDouble ("WETAB");
636 : 0 : WPCLM = getPropertyDouble ("WPCLM");
637 : 0 : WPDIBLC1 = getPropertyDouble ("WPDIBLC1");
638 : 0 : WPDIBLC2 = getPropertyDouble ("WPDIBLC2");
639 : 0 : WPDIBLCB = getPropertyDouble ("WPDIBLCB");
640 : 0 : WPSCBE1 = getPropertyDouble ("WPSCBE1");
641 : 0 : WPSCBE2 = getPropertyDouble ("WPSCBE2");
642 : 0 : WPVAG = getPropertyDouble ("WPVAG");
643 : 0 : WWR = getPropertyDouble ("WWR");
644 : 0 : WDWG = getPropertyDouble ("WDWG");
645 : 0 : WDWB = getPropertyDouble ("WDWB");
646 : 0 : WB0 = getPropertyDouble ("WB0");
647 : 0 : WB1 = getPropertyDouble ("WB1");
648 : 0 : WCGSL = getPropertyDouble ("WCGSL");
649 : 0 : WCGDL = getPropertyDouble ("WCGDL");
650 : 0 : WCKAPPA = getPropertyDouble ("WCKAPPA");
651 : 0 : WCF = getPropertyDouble ("WCF");
652 : 0 : WCLC = getPropertyDouble ("WCLC");
653 : 0 : WCLE = getPropertyDouble ("WCLE");
654 : 0 : WALPHA0 = getPropertyDouble ("WALPHA0");
655 : 0 : WALPHA1 = getPropertyDouble ("WALPHA1");
656 : 0 : WBETA0 = getPropertyDouble ("WBETA0");
657 : 0 : WVFBCV = getPropertyDouble ("WVFBCV");
658 : 0 : WVFB = getPropertyDouble ("WVFB");
659 : 0 : WACDE = getPropertyDouble ("WACDE");
660 : 0 : WMOIN = getPropertyDouble ("WMOIN");
661 : 0 : WNOFF = getPropertyDouble ("WNOFF");
662 : 0 : WVOFFCV = getPropertyDouble ("WVOFFCV");
663 : 0 : PCDSC = getPropertyDouble ("PCDSC");
664 : 0 : PCDSCB = getPropertyDouble ("PCDSCB");
665 : 0 : PCDSCD = getPropertyDouble ("PCDSCD");
666 : 0 : PCIT = getPropertyDouble ("PCIT");
667 : 0 : PNFACTOR = getPropertyDouble ("PNFACTOR");
668 : 0 : PXJ = getPropertyDouble ("PXJ");
669 : 0 : PVSAT = getPropertyDouble ("PVSAT");
670 : 0 : PAT = getPropertyDouble ("PAT");
671 : 0 : PA0 = getPropertyDouble ("PA0");
672 : 0 : PAGS = getPropertyDouble ("PAGS");
673 : 0 : PA1 = getPropertyDouble ("PA1");
674 : 0 : PA2 = getPropertyDouble ("PA2");
675 : 0 : PKETA = getPropertyDouble ("PKETA");
676 : 0 : PNSUB = getPropertyDouble ("PNSUB");
677 : 0 : PNCH = getPropertyDouble ("PNCH");
678 : 0 : PNGATE = getPropertyDouble ("PNGATE");
679 : 0 : PGAMMA1 = getPropertyDouble ("PGAMMA1");
680 : 0 : PGAMMA2 = getPropertyDouble ("PGAMMA2");
681 : 0 : PVBX = getPropertyDouble ("PVBX");
682 : 0 : PVBM = getPropertyDouble ("PVBM");
683 : 0 : PXT = getPropertyDouble ("PXT");
684 : 0 : PK1 = getPropertyDouble ("PK1");
685 : 0 : PKT1 = getPropertyDouble ("PKT1");
686 : 0 : PKT1L = getPropertyDouble ("PKT1L");
687 : 0 : PKT2 = getPropertyDouble ("PKT2");
688 : 0 : PK2 = getPropertyDouble ("PK2");
689 : 0 : PK3 = getPropertyDouble ("PK3");
690 : 0 : PK3B = getPropertyDouble ("PK3B");
691 : 0 : PW0 = getPropertyDouble ("PW0");
692 : 0 : PNLX = getPropertyDouble ("PNLX");
693 : 0 : PDVT0 = getPropertyDouble ("PDVT0");
694 : 0 : PDVT1 = getPropertyDouble ("PDVT1");
695 : 0 : PDVT2 = getPropertyDouble ("PDVT2");
696 : 0 : PDVT0W = getPropertyDouble ("PDVT0W");
697 : 0 : PDVT1W = getPropertyDouble ("PDVT1W");
698 : 0 : PDVT2W = getPropertyDouble ("PDVT2W");
699 : 0 : PDROUT = getPropertyDouble ("PDROUT");
700 : 0 : PDSUB = getPropertyDouble ("PDSUB");
701 : 0 : PVTH0 = getPropertyDouble ("PVTH0");
702 : 0 : PVTHO = getPropertyDouble ("PVTHO");
703 : 0 : PUA = getPropertyDouble ("PUA");
704 : 0 : PUA1 = getPropertyDouble ("PUA1");
705 : 0 : PUB = getPropertyDouble ("PUB");
706 : 0 : PUB1 = getPropertyDouble ("PUB1");
707 : 0 : PUC = getPropertyDouble ("PUC");
708 : 0 : PUC1 = getPropertyDouble ("PUC1");
709 : 0 : PU0 = getPropertyDouble ("PU0");
710 : 0 : PUTE = getPropertyDouble ("PUTE");
711 : 0 : PVOFF = getPropertyDouble ("PVOFF");
712 : 0 : PELM = getPropertyDouble ("PELM");
713 : 0 : PDELTA = getPropertyDouble ("PDELTA");
714 : 0 : PRDSW = getPropertyDouble ("PRDSW");
715 : 0 : PPRWG = getPropertyDouble ("PPRWG");
716 : 0 : PPRWB = getPropertyDouble ("PPRWB");
717 : 0 : PPRT = getPropertyDouble ("PPRT");
718 : 0 : PETA0 = getPropertyDouble ("PETA0");
719 : 0 : PETAB = getPropertyDouble ("PETAB");
720 : 0 : PPCLM = getPropertyDouble ("PPCLM");
721 : 0 : PPDIBLC1 = getPropertyDouble ("PPDIBLC1");
722 : 0 : PPDIBLC2 = getPropertyDouble ("PPDIBLC2");
723 : 0 : PPDIBLCB = getPropertyDouble ("PPDIBLCB");
724 : 0 : PPSCBE1 = getPropertyDouble ("PPSCBE1");
725 : 0 : PPSCBE2 = getPropertyDouble ("PPSCBE2");
726 : 0 : PPVAG = getPropertyDouble ("PPVAG");
727 : 0 : PWR = getPropertyDouble ("PWR");
728 : 0 : PDWG = getPropertyDouble ("PDWG");
729 : 0 : PDWB = getPropertyDouble ("PDWB");
730 : 0 : PB0 = getPropertyDouble ("PB0");
731 : 0 : PB1 = getPropertyDouble ("PB1");
732 : 0 : PCGSL = getPropertyDouble ("PCGSL");
733 : 0 : PCGDL = getPropertyDouble ("PCGDL");
734 : 0 : PCKAPPA = getPropertyDouble ("PCKAPPA");
735 : 0 : PCF = getPropertyDouble ("PCF");
736 : 0 : PCLC = getPropertyDouble ("PCLC");
737 : 0 : PCLE = getPropertyDouble ("PCLE");
738 : 0 : PALPHA0 = getPropertyDouble ("PALPHA0");
739 : 0 : PALPHA1 = getPropertyDouble ("PALPHA1");
740 : 0 : PBETA0 = getPropertyDouble ("PBETA0");
741 : 0 : PVFBCV = getPropertyDouble ("PVFBCV");
742 : 0 : PVFB = getPropertyDouble ("PVFB");
743 : 0 : PACDE = getPropertyDouble ("PACDE");
744 : 0 : PMOIN = getPropertyDouble ("PMOIN");
745 : 0 : PNOFF = getPropertyDouble ("PNOFF");
746 : 0 : PVOFFCV = getPropertyDouble ("PVOFFCV");
747 : 0 : KF = getPropertyDouble ("KF");
748 : 0 : AF = getPropertyDouble ("AF");
749 : 0 : EF = getPropertyDouble ("EF");
750 : 0 : }
751 : :
752 : : /* #define's for translated code */
753 : : #undef _DDT
754 : : #define _DDT(q) q
755 : : #define _DYNAMIC
756 : : #define _DERIVATE
757 : : #define _DDX
758 : : #define _DERIVATEFORDDX
759 : :
760 : : /* Evaluate Verilog-AMS equations in model initialization. */
761 : 0 : void bsim3v34nMOS::initializeModel (void)
762 : : {
763 : 0 : }
764 : :
765 : : /* Evaluate Verilog-AMS equations in instance initialization. */
766 : 0 : void bsim3v34nMOS::initializeInstance (void)
767 : : {
768 : 0 : }
769 : :
770 : : /* Evaluate Verilog-AMS equations in initial step. */
771 : 0 : void bsim3v34nMOS::initialStep (void)
772 : : {
773 : : #if defined(_DERIVATE)
774 : : double tmp3_Vdrainp_sourcep;
775 : : double tmp3_Vbulk_sourcep;
776 : : #endif
777 : : #if defined(_DERIVATE)
778 : : double T5_Vgate_sourcep;
779 : : double T5_Vdrainp_sourcep;
780 : : double T5_Vbulk_sourcep;
781 : : #endif
782 : : #if defined(_DERIVATE)
783 : : double T4_Vgate_sourcep;
784 : : double T4_Vdrainp_sourcep;
785 : : double T4_Vbulk_sourcep;
786 : : #endif
787 : : #if defined(_DERIVATE)
788 : : double tmp_Vgate_sourcep;
789 : : double tmp_Vdrainp_sourcep;
790 : : double tmp_Vbulk_sourcep;
791 : : #endif
792 : : double tconst;
793 : : int Fatal_Flag;
794 : : double cle;
795 : : double clc;
796 : : #if defined(_DYNAMIC)
797 : : #endif
798 : : #if defined(_DYNAMIC)
799 : : #endif
800 : : #if defined(_DYNAMIC)
801 : : #endif
802 : : double elm;
803 : : double wr;
804 : : double prt;
805 : : double rdsw;
806 : : double ute;
807 : : double ub1;
808 : : double ua1;
809 : : double dsub;
810 : : double drout;
811 : : double vbm;
812 : : double at;
813 : : double vsat;
814 : : double Inv_LW;
815 : : double Inv_W;
816 : : double Inv_L;
817 : : double dwc;
818 : : double dw;
819 : : #if defined(_DERIVATE)
820 : : double T3_Vgate_sourcep;
821 : : double T3_Vdrainp_sourcep;
822 : : double T3_Vbulk_sourcep;
823 : : #endif
824 : : #if defined(_DERIVATE)
825 : : double T2_Vgate_sourcep;
826 : : double T2_Vdrainp_sourcep;
827 : : double T2_Vbulk_sourcep;
828 : : #endif
829 : : #if defined(_DERIVATE)
830 : : double tmp2_Vgate_sourcep;
831 : : double tmp2_Vdrainp_sourcep;
832 : : double tmp2_Vbulk_sourcep;
833 : : #endif
834 : : double dl;
835 : : #if defined(_DERIVATE)
836 : : double tmp1_Vdrainp_sourcep;
837 : : double tmp1_Vbulk_sourcep;
838 : : #endif
839 : : double Wdrn;
840 : : double Ldrn;
841 : : double delTemp;
842 : : double jctSidewallTempSatCurDensity;
843 : : double jctTempSatCurDensity;
844 : : #if defined(_DERIVATE)
845 : : double T1_Vgate_sourcep;
846 : : double T1_Vdrainp_sourcep;
847 : : double T1_Vbulk_sourcep;
848 : : #endif
849 : : #if defined(_DERIVATE)
850 : : double T_0_Vgate_sourcep;
851 : : double T_0_Vdrainp_sourcep;
852 : : double T_0_Vbulk_sourcep;
853 : : #endif
854 : : double Eg;
855 : : double ni;
856 : : double Eg0;
857 : : double Vtm0;
858 : : double TRatio;
859 : : double Tnom;
860 : : double ppdiblb;
861 : : double ppdibl2;
862 : : double ppdibl1;
863 : : double pvth0;
864 : : double pngate;
865 : : double pnpeak;
866 : : double wpdiblb;
867 : : double wpdibl2;
868 : : double wpdibl1;
869 : : double wvth0;
870 : : double wngate;
871 : : double wnpeak;
872 : : double lpdiblb;
873 : : double lpdibl2;
874 : : double lpdibl1;
875 : : double lvth0;
876 : : double lngate;
877 : : double lnpeak;
878 : : #if defined(_DYNAMIC)
879 : : double cf;
880 : : #endif
881 : : double sourceSquares;
882 : : double drainSquares;
883 : : double sheetResistance;
884 : : double GatesidewallJctPotential;
885 : : double sidewallJctPotential;
886 : : double jctTempExponent;
887 : : double jctEmissionCoeff;
888 : : double bulkJctPotential;
889 : : double jctSidewallSatCurDensity;
890 : : double jctSatCurDensity;
891 : : double pdibl2;
892 : : double pdibl1;
893 : : double dlc;
894 : : double dlcGiven;
895 : : double u0;
896 : : double uc1;
897 : : double vth0Given;
898 : : double pk2;
899 : : double wk2;
900 : : double lk2;
901 : : double k2Given;
902 : : double k2;
903 : : double pk1;
904 : : double wk1;
905 : : double lk1;
906 : : double k1Given;
907 : : double vfbGiven;
908 : : double pvbx;
909 : : double wvbx;
910 : : double lvbx;
911 : : double vbxGiven;
912 : : double vbx;
913 : : double pgamma2;
914 : : double wgamma2;
915 : : double lgamma2;
916 : : double gamma2Given;
917 : : double gamma2;
918 : : double pgamma1;
919 : : double wgamma1;
920 : : double lgamma1;
921 : : double gamma1Given;
922 : : double gamma1;
923 : : double npeakGiven;
924 : : double npeak;
925 : : double xtGiven;
926 : : double xt;
927 : : double nsubGiven;
928 : : double nsub;
929 : : {
930 : 0 : tox=TOX;
931 : 0 : cox=(3.453133e-11/tox);
932 : 0 : TYPE=1.0;
933 [ # # ]: 0 : if
934 : : (NSUB==(-99.0))
935 : : {
936 : 0 : nsub=6.0e16;
937 : 0 : nsubGiven=0;
938 : : }
939 : : else
940 : : {
941 : 0 : nsub=NSUB;
942 : 0 : nsubGiven=1;
943 : : }
944 [ # # ]: 0 : if
945 : : (XT==(-99.0))
946 : : {
947 : 0 : xt=1.55e-7;
948 : 0 : xtGiven=0;
949 : : }
950 : : else
951 : : {
952 : 0 : xt=XT;
953 : 0 : xtGiven=1;
954 : : }
955 [ # # ]: 0 : if
956 : : (NCH==(-99.0))
957 : : {
958 : 0 : npeak=1.7e17;
959 : 0 : npeakGiven=0;
960 : : }
961 : : else
962 : : {
963 : 0 : npeak=NCH;
964 : 0 : npeakGiven=1;
965 : : }
966 [ # # ]: 0 : if
967 : : (GAMMA1==(-99.0))
968 : : {
969 : 0 : gamma1=0.0;
970 : 0 : gamma1Given=0;
971 : : }
972 : : else
973 : : {
974 : 0 : gamma1=GAMMA1;
975 : 0 : gamma1Given=1;
976 : : }
977 [ # # ]: 0 : if
978 : : (LGAMMA1==(-99.0))
979 : : {
980 : 0 : lgamma1=0.0;
981 : : }
982 : : else
983 : : {
984 : 0 : lgamma1=LGAMMA1;
985 : : }
986 [ # # ]: 0 : if
987 : : (WGAMMA1==(-99.0))
988 : : {
989 : 0 : wgamma1=0.0;
990 : : }
991 : : else
992 : : {
993 : 0 : wgamma1=WGAMMA1;
994 : : }
995 [ # # ]: 0 : if
996 : : (PGAMMA1==(-99.0))
997 : : {
998 : 0 : pgamma1=0.0;
999 : : }
1000 : : else
1001 : : {
1002 : 0 : pgamma1=PGAMMA1;
1003 : : }
1004 [ # # ]: 0 : if
1005 : : (GAMMA2==(-99.0))
1006 : : {
1007 : 0 : gamma2=0.0;
1008 : 0 : gamma2Given=0;
1009 : : }
1010 : : else
1011 : : {
1012 : 0 : gamma2=GAMMA2;
1013 : 0 : gamma2Given=1;
1014 : : }
1015 [ # # ]: 0 : if
1016 : : (LGAMMA2==(-99.0))
1017 : : {
1018 : 0 : lgamma2=0.0;
1019 : : }
1020 : : else
1021 : : {
1022 : 0 : lgamma2=LGAMMA2;
1023 : : }
1024 [ # # ]: 0 : if
1025 : : (WGAMMA2==(-99.0))
1026 : : {
1027 : 0 : wgamma2=0.0;
1028 : : }
1029 : : else
1030 : : {
1031 : 0 : wgamma2=WGAMMA2;
1032 : : }
1033 [ # # ]: 0 : if
1034 : : (PGAMMA2==(-99.0))
1035 : : {
1036 : 0 : pgamma2=0.0;
1037 : : }
1038 : : else
1039 : : {
1040 : 0 : pgamma2=PGAMMA2;
1041 : : }
1042 [ # # ]: 0 : if
1043 : : (VBX==(-99.0))
1044 : : {
1045 : 0 : vbx=0.0;
1046 : 0 : vbxGiven=0.0;
1047 : : }
1048 : : else
1049 : : {
1050 : 0 : vbx=VBX;
1051 : 0 : vbxGiven=1;
1052 : : }
1053 [ # # ]: 0 : if
1054 : : (LVBX==(-99.0))
1055 : : {
1056 : 0 : lvbx=0.0;
1057 : : }
1058 : : else
1059 : : {
1060 : 0 : lvbx=LVBX;
1061 : : }
1062 [ # # ]: 0 : if
1063 : : (WVBX==(-99.0))
1064 : : {
1065 : 0 : wvbx=0.0;
1066 : : }
1067 : : else
1068 : : {
1069 : 0 : wvbx=WVBX;
1070 : : }
1071 [ # # ]: 0 : if
1072 : : (PVBX==(-99.0))
1073 : : {
1074 : 0 : pvbx=0.0;
1075 : : }
1076 : : else
1077 : : {
1078 : 0 : pvbx=PVBX;
1079 : : }
1080 [ # # ]: 0 : if
1081 : : (VFB==(-99.0))
1082 : : {
1083 : 0 : vfb=0.0;
1084 : 0 : vfbGiven=0.0;
1085 : : }
1086 : : else
1087 : : {
1088 : 0 : vfb=VFB;
1089 : 0 : vfbGiven=1.0;
1090 : : }
1091 [ # # ]: 0 : if
1092 : : (K1==(-99.0))
1093 : : {
1094 : 0 : k1=0.0;
1095 : 0 : k1Given=0.0;
1096 : : }
1097 : : else
1098 : : {
1099 : 0 : k1=K1;
1100 : 0 : k1Given=1.0;
1101 : : }
1102 [ # # ]: 0 : if
1103 : : (LK1==(-99.0))
1104 : : {
1105 : 0 : lk1=0.0;
1106 : : }
1107 : : else
1108 : : {
1109 : 0 : lk1=LK1;
1110 : : }
1111 [ # # ]: 0 : if
1112 : : (WK1==(-99.0))
1113 : : {
1114 : 0 : wk1=0.0;
1115 : : }
1116 : : else
1117 : : {
1118 : 0 : wk1=WK1;
1119 : : }
1120 [ # # ]: 0 : if
1121 : : (PK1==(-99.0))
1122 : : {
1123 : 0 : pk1=0.0;
1124 : : }
1125 : : else
1126 : : {
1127 : 0 : pk1=PK1;
1128 : : }
1129 [ # # ]: 0 : if
1130 : : (K2==(-99.0))
1131 : : {
1132 : 0 : k2=0.0;
1133 : 0 : k2Given=0.0;
1134 : : }
1135 : : else
1136 : : {
1137 : 0 : k2=K2;
1138 : 0 : k2Given=1.0;
1139 : : }
1140 [ # # ]: 0 : if
1141 : : (LK2==(-99.0))
1142 : : {
1143 : 0 : lk2=0.0;
1144 : : }
1145 : : else
1146 : : {
1147 : 0 : lk2=LK2;
1148 : : }
1149 [ # # ]: 0 : if
1150 : : (WK2==(-99.0))
1151 : : {
1152 : 0 : wk2=0.0;
1153 : : }
1154 : : else
1155 : : {
1156 : 0 : wk2=WK2;
1157 : : }
1158 [ # # ]: 0 : if
1159 : : (PK2==(-99.0))
1160 : : {
1161 : 0 : pk2=0.0;
1162 : : }
1163 : : else
1164 : : {
1165 : 0 : pk2=PK2;
1166 : : }
1167 [ # # ]: 0 : if
1168 : : (NCH>1.0e20)
1169 : : {
1170 : 0 : npeak=(npeak*1.0e-6);
1171 : : }
1172 : : else
1173 : : {
1174 : 0 : npeak=npeak;
1175 : : }
1176 [ # # ]: 0 : if
1177 : : (NGATE>1.0e23)
1178 : : {
1179 : 0 : ngate=(NGATE*1.0e-6);
1180 : : }
1181 : : else
1182 : : {
1183 : 0 : ngate=NGATE;
1184 : : }
1185 [ # # ][ # # ]: 0 : if
1186 : : ((VTHO==(-99.0))&&(VTH0==(-99.0)))
1187 : : {
1188 [ # # ]: 0 : vth0=((TYPE>0.0)?0.7:(-0.7));
1189 : 0 : vth0Given=0;
1190 : : }
1191 : : else
1192 : : {
1193 : 0 : vth0Given=1;
1194 [ # # ]: 0 : if
1195 : : (VTH0!=(-99))
1196 : : {
1197 : 0 : vth0=VTHO;
1198 : : }
1199 [ # # ]: 0 : if
1200 : : (VTHO!=(-99))
1201 : : {
1202 : 0 : vth0=VTH0;
1203 : : }
1204 : : }
1205 [ # # ]: 0 : if
1206 : : (UC==(-99.0))
1207 : : {
1208 [ # # ]: 0 : uc=((MOBMOD==3)?(-0.0465):(-0.0465e-9));
1209 : : }
1210 : : else
1211 : : {
1212 : 0 : uc=UC;
1213 : : }
1214 [ # # ]: 0 : if
1215 : : (UC1==(-99.0))
1216 : : {
1217 [ # # ]: 0 : uc1=((MOBMOD==3)?(-0.056):(-0.056e-9));
1218 : : }
1219 : : else
1220 : : {
1221 : 0 : uc1=UC1;
1222 : : }
1223 [ # # ]: 0 : if
1224 : : (U0==(-99.0))
1225 : : {
1226 [ # # ]: 0 : u0=((TYPE==1)?0.067:0.025);
1227 : : }
1228 : : else
1229 : : {
1230 : 0 : u0=U0;
1231 : : }
1232 [ # # ]: 0 : if
1233 : : (TNOM==(-99.0))
1234 : : {
1235 : 0 : tnom=300.15;
1236 : : }
1237 : : else
1238 : : {
1239 : 0 : tnom=(TNOM+273.15);
1240 : : }
1241 [ # # ]: 0 : if
1242 : : (DLC==(-99.0))
1243 : : {
1244 : 0 : dlcGiven=0;
1245 : 0 : dlc=LINT;
1246 : : }
1247 : : else
1248 : : {
1249 : 0 : dlcGiven=1;
1250 : 0 : dlc=DLC;
1251 : : }
1252 [ # # ]: 0 : if
1253 : : (CGSO==(-99.0))
1254 : : {
1255 [ # # ][ # # ]: 0 : if
1256 : : (dlcGiven&&(dlc>0.0))
1257 : : {
1258 : 0 : cgso_param=((dlc*cox)-CGSL);
1259 : : }
1260 : : else
1261 : : {
1262 : 0 : cgso_param=((0.6*XJ)*cox);
1263 : : }
1264 : : }
1265 : : else
1266 : : {
1267 : 0 : cgso_param=CGSO;
1268 : : }
1269 [ # # ]: 0 : if
1270 : : (CGDO==(-99.0))
1271 : : {
1272 [ # # ][ # # ]: 0 : if
1273 : : (dlcGiven&&(dlc>0.0))
1274 : : {
1275 : 0 : cgdo_param=((dlc*cox)-CGDL);
1276 : : }
1277 : : else
1278 : : {
1279 : 0 : cgdo_param=((0.6*XJ)*cox);
1280 : : }
1281 : : }
1282 : : else
1283 : : {
1284 : 0 : cgdo_param=CGDO;
1285 : : }
1286 [ # # ]: 0 : if
1287 : : (CGBO==(-99.0))
1288 : : {
1289 : 0 : cgbo_param=((2.0*DWC)*cox);
1290 : : }
1291 : : else
1292 : : {
1293 : 0 : cgbo_param=CGBO;
1294 : : }
1295 : 0 : pdibl1=PDIBLC1;
1296 : 0 : pdibl2=PDIBLC2;
1297 : 0 : pdiblb=PDIBLCB;
1298 : 0 : jctSatCurDensity=JS;
1299 : 0 : jctSidewallSatCurDensity=JSW;
1300 : 0 : bulkJctPotential=PB;
1301 : 0 : jctEmissionCoeff=NJ;
1302 : 0 : jctTempExponent=XTI;
1303 : 0 : bulkJctBotGradingCoeff=MJ;
1304 : 0 : sidewallJctPotential=PBSW;
1305 : 0 : bulkJctSideGradingCoeff=MJSW;
1306 : 0 : GatesidewallJctPotential=PBSWG;
1307 : 0 : bulkJctGateSideGradingCoeff=MJSWG;
1308 : 0 : unitAreaJctCap=CJ;
1309 : 0 : unitLengthSidewallJctCap=CJSW;
1310 : 0 : unitLengthGateSidewallJctCap=CJSWG;
1311 : 0 : sheetResistance=RSH;
1312 : 0 : drainSquares=NRD;
1313 : 0 : sourceSquares=NRS;
1314 : 0 : drainArea=AD;
1315 : 0 : sourceArea=AS;
1316 : 0 : drainPerimeter=PD;
1317 : 0 : sourcePerimeter=PS;
1318 : : #ifdef _DYNAMIC
1319 [ # # ]: 0 : if
1320 : : (CF==(-99.0))
1321 : : {
1322 : : #if defined(_DYNAMIC)
1323 : : {
1324 : 0 : double m00_logE(d00_logE0,(1.0+(0.4e-6/tox)))
1325 : 0 : cf=(((2.0*3.453133e-11)/3.141592654)*d00_logE0);
1326 : : }
1327 : : #endif
1328 : : }
1329 : : else
1330 : : {
1331 : : #if defined(_DYNAMIC)
1332 : 0 : cf=CF;
1333 : : #endif
1334 : : }
1335 : : #endif /* if (...) */
1336 [ # # ]: 0 : if
1337 : : (LNCH>1.0e20)
1338 : : {
1339 : 0 : lnpeak=(LNCH*1.0e-6);
1340 : : }
1341 : : else
1342 : : {
1343 : 0 : lnpeak=LNCH;
1344 : : }
1345 [ # # ]: 0 : if
1346 : : (LNGATE>1.0e23)
1347 : : {
1348 : 0 : lngate=(LNGATE*1.0e-6);
1349 : : }
1350 : : else
1351 : : {
1352 : 0 : lngate=LNGATE;
1353 : : }
1354 [ # # ]: 0 : if
1355 : : (LVTH0!=0.0)
1356 : : {
1357 : 0 : lvth0=LVTH0;
1358 : : }
1359 [ # # ]: 0 : if
1360 : : (LVTHO!=0.0)
1361 : : {
1362 : 0 : lvth0=LVTHO;
1363 : : }
1364 : 0 : lpdibl1=LPDIBLC1;
1365 : 0 : lpdibl2=LPDIBLC2;
1366 : 0 : lpdiblb=LPDIBLCB;
1367 [ # # ]: 0 : if
1368 : : (WNCH>1.0e20)
1369 : : {
1370 : 0 : wnpeak=(WNCH*1.0e-6);
1371 : : }
1372 : : else
1373 : : {
1374 : 0 : wnpeak=WNCH;
1375 : : }
1376 [ # # ]: 0 : if
1377 : : (WNGATE>1.0e23)
1378 : : {
1379 : 0 : wngate=(WNGATE*1.0e-6);
1380 : : }
1381 : : else
1382 : : {
1383 : 0 : wngate=WNGATE;
1384 : : }
1385 [ # # ]: 0 : if
1386 : : (WVTH0!=0.0)
1387 : : {
1388 : 0 : wvth0=WVTH0;
1389 : : }
1390 [ # # ]: 0 : if
1391 : : (WVTHO!=0.0)
1392 : : {
1393 : 0 : wvth0=WVTHO;
1394 : : }
1395 : 0 : wpdibl1=WPDIBLC1;
1396 : 0 : wpdibl2=WPDIBLC2;
1397 : 0 : wpdiblb=WPDIBLCB;
1398 [ # # ]: 0 : if
1399 : : (PNCH>1.0e20)
1400 : : {
1401 : 0 : pnpeak=(PNCH*1.0e-6);
1402 : : }
1403 : : else
1404 : : {
1405 : 0 : pnpeak=PNCH;
1406 : : }
1407 [ # # ]: 0 : if
1408 : : (PNGATE>1.0e20)
1409 : : {
1410 : 0 : pngate=(PNGATE*1.0e-6);
1411 : : }
1412 : : else
1413 : : {
1414 : 0 : pngate=PNGATE;
1415 : : }
1416 [ # # ]: 0 : if
1417 : : (PVTH0!=0.0)
1418 : : {
1419 : 0 : pvth0=PVTH0;
1420 : : }
1421 [ # # ]: 0 : if
1422 : : (PVTHO!=0.0)
1423 : : {
1424 : 0 : pvth0=PVTHO;
1425 : : }
1426 : 0 : ppdibl1=PPDIBLC1;
1427 : 0 : ppdibl2=PPDIBLC2;
1428 : 0 : ppdiblb=PPDIBLCB;
1429 [ # # ]: 0 : if
1430 : : (bulkJctPotential<0.1)
1431 : : {
1432 : 0 : bulkJctPotential=0.1;
1433 : 0 : logprint(LOG_ERROR,"Given pb is less than 0.1. Pb is set to 0.1.");
1434 : 0 : logprint(LOG_ERROR,"\n");
1435 : : }
1436 [ # # ]: 0 : if
1437 : : (sidewallJctPotential<0.1)
1438 : : {
1439 : 0 : sidewallJctPotential=0.1;
1440 : 0 : logprint(LOG_ERROR,"Given pbsw is less than 0.1. Pbsw is set to 0.1.");
1441 : 0 : logprint(LOG_ERROR,"\n");
1442 : : }
1443 [ # # ]: 0 : if
1444 : : (GatesidewallJctPotential<0.1)
1445 : : {
1446 : 0 : GatesidewallJctPotential=0.1;
1447 : 0 : logprint(LOG_ERROR,"Given pbswg is less than 0.1. Pbswg is set to 0.1.");
1448 : 0 : logprint(LOG_ERROR,"\n");
1449 : : }
1450 : 0 : Temp=_circuit_temp;
1451 : 0 : Tnom=tnom;
1452 : 0 : TRatio=(Temp/Tnom);
1453 : : {
1454 : 0 : double m00_sqrt(d00_sqrt0,((1.03594e-10/3.453133e-11)*tox))
1455 : 0 : factor1=d00_sqrt0;
1456 : : }
1457 : 0 : Vtm0=(8.617087e-5*Tnom);
1458 : 0 : Eg0=(1.16-(((7.02e-4*Tnom)*Tnom)/(Tnom+1108.0)));
1459 : : {
1460 : 0 : double m00_sqrt(d00_sqrt0,(Tnom/300.15))
1461 : 0 : double m00_exp(d00_exp1,(21.5565981-(Eg0/(2.0*Vtm0))))
1462 : 0 : ni=(((1.45e10*(Tnom/300.15))*d00_sqrt0)*d00_exp1);
1463 : : }
1464 : 0 : vtm=(8.617087e-5*Temp);
1465 : 0 : Eg=(1.16-(((7.02e-4*Temp)*Temp)/(Temp+1108.0)));
1466 [ # # ]: 0 : if
1467 : : (Temp!=Tnom)
1468 : : {
1469 : : {
1470 : 0 : double m00_logE(d00_logE0,(Temp/Tnom))
1471 : : #if defined(_DERIVATE)
1472 : 0 : T_0_Vgate_sourcep=0.0;
1473 : 0 : T_0_Vdrainp_sourcep=0.0;
1474 : 0 : T_0_Vbulk_sourcep=0.0;
1475 : : #endif
1476 : 0 : T_0=(((Eg0/Vtm0)-(Eg/vtm))+(jctTempExponent*d00_logE0));
1477 : : }
1478 : : {
1479 : 0 : double m00_exp(d00_exp0,(T_0/jctEmissionCoeff))
1480 : : #if defined(_DERIVATE)
1481 : 0 : T1_Vgate_sourcep=0.0;
1482 : 0 : T1_Vdrainp_sourcep=0.0;
1483 : 0 : T1_Vbulk_sourcep=0.0;
1484 : : #endif
1485 : 0 : T1=d00_exp0;
1486 : : }
1487 : 0 : jctTempSatCurDensity=(jctSatCurDensity*T1);
1488 : 0 : jctSidewallTempSatCurDensity=(jctSidewallSatCurDensity*T1);
1489 : : }
1490 : : else
1491 : : {
1492 : 0 : jctTempSatCurDensity=jctSatCurDensity;
1493 : 0 : jctSidewallTempSatCurDensity=jctSidewallSatCurDensity;
1494 : : }
1495 [ # # ]: 0 : if
1496 : : (jctTempSatCurDensity<0.0)
1497 : : {
1498 : 0 : jctTempSatCurDensity=0.0;
1499 : : }
1500 [ # # ]: 0 : if
1501 : : (jctSidewallTempSatCurDensity<0.0)
1502 : : {
1503 : 0 : jctSidewallTempSatCurDensity=0.0;
1504 : : }
1505 : 0 : delTemp=(_circuit_temp-tnom);
1506 : : #if defined(_DERIVATE)
1507 : 0 : T_0_Vgate_sourcep=0.0;
1508 : 0 : T_0_Vdrainp_sourcep=0.0;
1509 : 0 : T_0_Vbulk_sourcep=0.0;
1510 : : #endif
1511 : 0 : T_0=(TCJ*delTemp);
1512 [ # # ]: 0 : if
1513 : : (T_0>=(-1.0))
1514 : : {
1515 [ # # ]: 0 : if
1516 : : (VERSION==3.24)
1517 : : {
1518 : 0 : unitAreaTempJctCap=(unitAreaJctCap*(1.0+T_0));
1519 : : }
1520 : : else
1521 : : {
1522 : 0 : unitAreaJctCap=(unitAreaJctCap*(1.0+T_0));
1523 : : }
1524 : : }
1525 : : else
1526 : : {
1527 [ # # ]: 0 : if
1528 : : (unitAreaJctCap>0.0)
1529 : : {
1530 [ # # ]: 0 : if
1531 : : (VERSION==3.24)
1532 : : {
1533 : 0 : unitAreaTempJctCap=0.0;
1534 : : }
1535 : : else
1536 : : {
1537 : 0 : unitAreaJctCap=0.0;
1538 : : }
1539 : 0 : logprint(LOG_ERROR,"Temperature effect has caused cj to be negative. Cj is clamped to zero.");
1540 : 0 : logprint(LOG_ERROR,"\n");
1541 : : }
1542 : : }
1543 : : #if defined(_DERIVATE)
1544 : 0 : T_0_Vgate_sourcep=0.0;
1545 : 0 : T_0_Vdrainp_sourcep=0.0;
1546 : 0 : T_0_Vbulk_sourcep=0.0;
1547 : : #endif
1548 : 0 : T_0=(TCJSW*delTemp);
1549 [ # # ]: 0 : if
1550 : : (T_0>=(-1.0))
1551 : : {
1552 [ # # ]: 0 : if
1553 : : (VERSION==3.24)
1554 : : {
1555 : 0 : unitLengthSidewallTempJctCap=(unitLengthSidewallJctCap*(1.0+T_0));
1556 : : }
1557 : : else
1558 : : {
1559 : 0 : unitLengthSidewallJctCap=(unitLengthSidewallJctCap*(1.0+T_0));
1560 : : }
1561 : : }
1562 : : else
1563 : : {
1564 [ # # ]: 0 : if
1565 : : (unitLengthSidewallJctCap>0.0)
1566 : : {
1567 [ # # ]: 0 : if
1568 : : (VERSION==3.24)
1569 : : {
1570 : 0 : unitLengthSidewallTempJctCap=0.0;
1571 : : }
1572 : : else
1573 : : {
1574 : 0 : unitLengthSidewallJctCap=0.0;
1575 : : }
1576 : 0 : logprint(LOG_ERROR,"Temperature effect has caused cjsw to be negative. Cjsw is clamped to zero.");
1577 : 0 : logprint(LOG_ERROR,"\n");
1578 : : }
1579 : : }
1580 : : #if defined(_DERIVATE)
1581 : 0 : T_0_Vgate_sourcep=0.0;
1582 : 0 : T_0_Vdrainp_sourcep=0.0;
1583 : 0 : T_0_Vbulk_sourcep=0.0;
1584 : : #endif
1585 : 0 : T_0=(TCJSWG*delTemp);
1586 [ # # ]: 0 : if
1587 : : (T_0>=(-1.0))
1588 : : {
1589 [ # # ]: 0 : if
1590 : : (VERSION==3.24)
1591 : : {
1592 : 0 : unitLengthGateSidewallTempJctCap=(unitLengthGateSidewallJctCap*(1.0+T_0));
1593 : : }
1594 : : else
1595 : : {
1596 : 0 : unitLengthGateSidewallJctCap=(unitLengthGateSidewallJctCap*(1.0+T_0));
1597 : : }
1598 : : }
1599 : : else
1600 : : {
1601 [ # # ]: 0 : if
1602 : : (unitLengthGateSidewallJctCap>0.0)
1603 : : {
1604 [ # # ]: 0 : if
1605 : : (VERSION==3.24)
1606 : : {
1607 : 0 : unitLengthGateSidewallTempJctCap=0.0;
1608 : : }
1609 : : else
1610 : : {
1611 : 0 : unitLengthGateSidewallJctCap=0.0;
1612 : : }
1613 : 0 : logprint(LOG_ERROR,"Temperature effect has caused cjswg to be negative. Cjswg is clamped to zero.");
1614 : 0 : logprint(LOG_ERROR,"\n");
1615 : : }
1616 : : }
1617 : 0 : PhiB=(bulkJctPotential-(TPB*delTemp));
1618 [ # # ]: 0 : if
1619 : : (PhiB<0.01)
1620 : : {
1621 : 0 : PhiB=0.01;
1622 : 0 : logprint(LOG_ERROR,"Temperature effect has caused pb to be less than 0.01. Pb is clamped to 0.01.");
1623 : 0 : logprint(LOG_ERROR,"\n");
1624 : : }
1625 : 0 : PhiBSW=(sidewallJctPotential-(TPBSW*delTemp));
1626 [ # # ]: 0 : if
1627 : : (PhiBSW<=0.01)
1628 : : {
1629 : 0 : PhiBSW=0.01;
1630 : 0 : logprint(LOG_ERROR,"Temperature effect has caused pbsw to be less than 0.01. Pbsw is clamped to 0.01.");
1631 : 0 : logprint(LOG_ERROR,"\n");
1632 : : }
1633 : 0 : PhiBSWG=(GatesidewallJctPotential-(TPBSWG*delTemp));
1634 [ # # ]: 0 : if
1635 : : (PhiBSWG<=0.01)
1636 : : {
1637 : 0 : PhiBSWG=0.01;
1638 : 0 : logprint(LOG_ERROR,"Temperature effect has caused pbswg to be less than 0.01. Pbswg is clamped to 0.01.");
1639 : 0 : logprint(LOG_ERROR,"\n");
1640 : : }
1641 : 0 : Ldrn=L;
1642 : 0 : Wdrn=W;
1643 : : {
1644 : 0 : double m00_pow(d00_pow0,Ldrn,LLN)
1645 : : #if defined(_DERIVATE)
1646 : 0 : T_0_Vgate_sourcep=0.0;
1647 : 0 : T_0_Vdrainp_sourcep=0.0;
1648 : 0 : T_0_Vbulk_sourcep=0.0;
1649 : : #endif
1650 : 0 : T_0=d00_pow0;
1651 : : }
1652 : : {
1653 : 0 : double m00_pow(d00_pow0,Wdrn,LWN)
1654 : : #if defined(_DERIVATE)
1655 : 0 : T1_Vgate_sourcep=0.0;
1656 : 0 : T1_Vdrainp_sourcep=0.0;
1657 : 0 : T1_Vbulk_sourcep=0.0;
1658 : : #endif
1659 : 0 : T1=d00_pow0;
1660 : : }
1661 : : #if defined(_DERIVATE)
1662 : 0 : tmp1_Vdrainp_sourcep=0.0;
1663 : 0 : tmp1_Vbulk_sourcep=0.0;
1664 : : #endif
1665 : 0 : tmp1=(((LL/T_0)+(LW/T1))+(LWL/(T_0*T1)));
1666 : 0 : dl=(LINT+tmp1);
1667 : : #if defined(_DERIVATE)
1668 : 0 : tmp2_Vgate_sourcep=0.0;
1669 : 0 : tmp2_Vdrainp_sourcep=0.0;
1670 : 0 : tmp2_Vbulk_sourcep=0.0;
1671 : : #endif
1672 : 0 : tmp2=(((LLC/T_0)+(LWC/T1))+(LWLC/(T_0*T1)));
1673 : 0 : dlc=(dlc+tmp2);
1674 : : {
1675 : 0 : double m00_pow(d00_pow0,Ldrn,WLN)
1676 : : #if defined(_DERIVATE)
1677 : 0 : T2_Vgate_sourcep=0.0;
1678 : 0 : T2_Vdrainp_sourcep=0.0;
1679 : 0 : T2_Vbulk_sourcep=0.0;
1680 : : #endif
1681 : 0 : T2=d00_pow0;
1682 : : }
1683 : : {
1684 : 0 : double m00_pow(d00_pow0,Wdrn,WWN)
1685 : : #if defined(_DERIVATE)
1686 : 0 : T3_Vgate_sourcep=0.0;
1687 : 0 : T3_Vdrainp_sourcep=0.0;
1688 : 0 : T3_Vbulk_sourcep=0.0;
1689 : : #endif
1690 : 0 : T3=d00_pow0;
1691 : : }
1692 : : #if defined(_DERIVATE)
1693 : 0 : tmp1_Vdrainp_sourcep=0.0;
1694 : 0 : tmp1_Vbulk_sourcep=0.0;
1695 : : #endif
1696 : 0 : tmp1=(((WL/T2)+(WW/T3))+(WWL/(T2*T3)));
1697 : 0 : dw=(WINT+tmp1);
1698 : : #if defined(_DERIVATE)
1699 : 0 : tmp2_Vgate_sourcep=0.0;
1700 : 0 : tmp2_Vdrainp_sourcep=0.0;
1701 : 0 : tmp2_Vbulk_sourcep=0.0;
1702 : : #endif
1703 : 0 : tmp2=(((WLC/T2)+(WWC/T3))+(WWLC/(T2*T3)));
1704 : 0 : dwc=(DWC+tmp2);
1705 : 0 : leff=(L-(2.0*dl));
1706 [ # # ]: 0 : if
1707 : : (leff<=0.0)
1708 : : {
1709 : 0 : logprint(LOG_ERROR,"BSIM3: device %m: Effective channel length <= 0");
1710 : 0 : logprint(LOG_ERROR,"\n");
1711 : 0 : exit(1);
1712 : : }
1713 : 0 : weff=(W-(2.0*dw));
1714 [ # # ]: 0 : if
1715 : : (leff<=0.0)
1716 : : {
1717 : 0 : logprint(LOG_ERROR,"BSIM3: device %m: Effective channel width <= 0");
1718 : 0 : logprint(LOG_ERROR,"\n");
1719 : 0 : exit(1);
1720 : : }
1721 : 0 : leffCV=(L-(2.0*dlc));
1722 [ # # ]: 0 : if
1723 : : (leffCV<=0.0)
1724 : : {
1725 : 0 : logprint(LOG_ERROR,"BSIM3: device %m: Effective channel length for C-V <= 0");
1726 : 0 : logprint(LOG_ERROR,"\n");
1727 : 0 : exit(1);
1728 : : }
1729 : 0 : weffCV=(W-(2.0*dwc));
1730 [ # # ]: 0 : if
1731 : : (weffCV<=0.0)
1732 : : {
1733 : 0 : logprint(LOG_ERROR,"BSIM3: device %m: Effective channel width for C-V <= 0");
1734 : 0 : logprint(LOG_ERROR,"\n");
1735 : 0 : exit(1);
1736 : : }
1737 [ # # ]: 0 : if
1738 : : (BINUNIT==1)
1739 : : {
1740 : 0 : Inv_L=(1.0e-6/leff);
1741 : 0 : Inv_W=(1.0e-6/weff);
1742 : 0 : Inv_LW=(1.0e-12/(leff*weff));
1743 : : }
1744 : : else
1745 : : {
1746 : 0 : Inv_L=(1.0/leff);
1747 : 0 : Inv_W=(1.0/weff);
1748 : 0 : Inv_LW=(1.0/(leff*weff));
1749 : : }
1750 : 0 : cdsc=(((CDSC+(LCDSC*Inv_L))+(WCDSC*Inv_W))+(PCDSC*Inv_LW));
1751 : 0 : cdscb=(((CDSCB+(LCDSCB*Inv_L))+(WCDSCB*Inv_W))+(PCDSCB*Inv_LW));
1752 : 0 : cdscd=(((CDSCD+(LCDSCD*Inv_L))+(WCDSCD*Inv_W))+(PCDSCD*Inv_LW));
1753 : 0 : cit=(((CIT+(LCIT*Inv_L))+(WCIT*Inv_W))+(PCIT*Inv_LW));
1754 : 0 : nfactor=(((NFACTOR+(LNFACTOR*Inv_L))+(WNFACTOR*Inv_W))+(PNFACTOR*Inv_LW));
1755 : 0 : xj=(((XJ+(LXJ*Inv_L))+(WXJ*Inv_W))+(PXJ*Inv_LW));
1756 : 0 : vsat=(((VSAT+(LVSAT*Inv_L))+(WVSAT*Inv_W))+(PVSAT*Inv_LW));
1757 : 0 : at=(((AT+(LAT*Inv_L))+(WAT*Inv_W))+(PAT*Inv_LW));
1758 : 0 : a0=(((A0+(LA0*Inv_L))+(WA0*Inv_W))+(PA0*Inv_LW));
1759 : 0 : ags=(((AGS+(LAGS*Inv_L))+(WAGS*Inv_W))+(PAGS*Inv_LW));
1760 : 0 : a1=(((A1+(LA1*Inv_L))+(WA1*Inv_W))+(PA1*Inv_LW));
1761 : 0 : a2=(((A2+(LA2*Inv_L))+(WA2*Inv_W))+(PA2*Inv_LW));
1762 : 0 : keta=(((KETA+(LKETA*Inv_L))+(WKETA*Inv_W))+(PKETA*Inv_LW));
1763 : 0 : nsub=(((nsub+(LNSUB*Inv_L))+(WNSUB*Inv_W))+(PNSUB*Inv_LW));
1764 : 0 : npeak=(((npeak+(lnpeak*Inv_L))+(wnpeak*Inv_W))+(pnpeak*Inv_LW));
1765 : 0 : ngate=(((ngate+(lngate*Inv_L))+(wngate*Inv_W))+(pngate*Inv_LW));
1766 : 0 : gamma1=(((gamma1+(lgamma1*Inv_L))+(wgamma1*Inv_W))+(pgamma1*Inv_LW));
1767 : 0 : gamma2=(((gamma2+(lgamma2*Inv_L))+(wgamma2*Inv_W))+(pgamma2*Inv_LW));
1768 : 0 : vbx=(((vbx+(lvbx*Inv_L))+(wvbx*Inv_W))+(pvbx*Inv_LW));
1769 : 0 : vbm=(((VBM+(LVBM*Inv_L))+(WVBM*Inv_W))+(PVBM*Inv_LW));
1770 : 0 : xt=(((xt+(LXT*Inv_L))+(WXT*Inv_W))+(PXT*Inv_LW));
1771 : 0 : vfb=(((vfb+(LVFB*Inv_L))+(WVFB*Inv_W))+(PVFB*Inv_LW));
1772 : 0 : k1=(((k1+(lk1*Inv_L))+(wk1*Inv_W))+(pk1*Inv_LW));
1773 : 0 : kt1=(((KT1+(LKT1*Inv_L))+(WKT1*Inv_W))+(PKT1*Inv_LW));
1774 : 0 : kt1l=(((KT1L+(LKT1L*Inv_L))+(WKT1L*Inv_W))+(PKT1L*Inv_LW));
1775 : 0 : k2=(((k2+(lk2*Inv_L))+(wk2*Inv_W))+(pk2*Inv_LW));
1776 : 0 : kt2=(((KT2+(LKT2*Inv_L))+(WKT2*Inv_W))+(PKT2*Inv_LW));
1777 : 0 : k3=(((K3+(LK3*Inv_L))+(WK3*Inv_W))+(PK3*Inv_LW));
1778 : 0 : k3b=(((K3B+(LK3B*Inv_L))+(WK3B*Inv_W))+(PK3B*Inv_LW));
1779 : 0 : w0=(((W0+(LW0*Inv_L))+(WW0*Inv_W))+(PW0*Inv_LW));
1780 : 0 : nlx=(((NLX+(LNLX*Inv_L))+(WNLX*Inv_W))+(PNLX*Inv_LW));
1781 : 0 : dvt0=(((DVT0+(LDVT0*Inv_L))+(WDVT0*Inv_W))+(PDVT0*Inv_LW));
1782 : 0 : dvt1=(((DVT1+(LDVT1*Inv_L))+(WDVT1*Inv_W))+(PDVT1*Inv_LW));
1783 : 0 : dvt2=(((DVT2+(LDVT2*Inv_L))+(WDVT2*Inv_W))+(PDVT2*Inv_LW));
1784 : 0 : dvt0w=(((DVT0W+(LDVT0W*Inv_L))+(WDVT0W*Inv_W))+(PDVT0W*Inv_LW));
1785 : 0 : dvt1w=(((DVT1W+(LDVT1W*Inv_L))+(WDVT1W*Inv_W))+(PDVT1W*Inv_LW));
1786 : 0 : dvt2w=(((DVT2W+(LDVT2W*Inv_L))+(WDVT2W*Inv_W))+(PDVT2W*Inv_LW));
1787 : 0 : drout=(((DROUT+(LDROUT*Inv_L))+(WDROUT*Inv_W))+(PDROUT*Inv_LW));
1788 : 0 : dsub=(((DSUB+(LDSUB*Inv_L))+(WDSUB*Inv_W))+(PDSUB*Inv_LW));
1789 : 0 : vth0=(((vth0+(lvth0*Inv_L))+(wvth0*Inv_W))+(pvth0*Inv_LW));
1790 : 0 : ua=(((UA+(LUA*Inv_L))+(WUA*Inv_W))+(PUA*Inv_LW));
1791 : 0 : ua1=(((UA1+(LUA1*Inv_L))+(WUA1*Inv_W))+(PUA1*Inv_LW));
1792 : 0 : ub=(((UB+(LUB*Inv_L))+(WUB*Inv_W))+(PUB*Inv_LW));
1793 : 0 : ub1=(((UB1+(LUB1*Inv_L))+(WUB1*Inv_W))+(PUB1*Inv_LW));
1794 : 0 : uc=(((uc+(LUC*Inv_L))+(WUC*Inv_W))+(PUC*Inv_LW));
1795 : 0 : uc1=(((uc1+(LUC1*Inv_L))+(WUC1*Inv_W))+(PUC1*Inv_LW));
1796 : 0 : u0=(((u0+(LU0*Inv_L))+(WU0*Inv_W))+(PU0*Inv_LW));
1797 : 0 : ute=(((UTE+(LUTE*Inv_L))+(WUTE*Inv_W))+(PUTE*Inv_LW));
1798 : 0 : voff=(((VOFF+(LVOFF*Inv_L))+(WVOFF*Inv_W))+(PVOFF*Inv_LW));
1799 : 0 : delta=(((DELTA+(LDELTA*Inv_L))+(WDELTA*Inv_W))+(PDELTA*Inv_LW));
1800 : 0 : rdsw=(((RDSW+(LRDSW*Inv_L))+(WRDSW*Inv_W))+(PRDSW*Inv_LW));
1801 : 0 : prwg=(((PRWG+(LPRWG*Inv_L))+(WPRWG*Inv_W))+(PPRWG*Inv_LW));
1802 : 0 : prwb=(((PRWB+(LPRWB*Inv_L))+(WPRWB*Inv_W))+(PPRWB*Inv_LW));
1803 : 0 : prt=(((PRT+(LPRT*Inv_L))+(WPRT*Inv_W))+(PPRT*Inv_LW));
1804 : 0 : eta0=(((ETA0+(LETA0*Inv_L))+(WETA0*Inv_W))+(PETA0*Inv_LW));
1805 : 0 : etab=(((ETAB+(LETAB*Inv_L))+(WETAB*Inv_W))+(PETAB*Inv_LW));
1806 : 0 : pclm=(((PCLM+(LPCLM*Inv_L))+(WPCLM*Inv_W))+(PPCLM*Inv_LW));
1807 : 0 : pdibl1=(((pdibl1+(lpdibl1*Inv_L))+(wpdibl1*Inv_W))+(ppdibl1*Inv_LW));
1808 : 0 : pdibl2=(((pdibl2+(lpdibl2*Inv_L))+(wpdibl2*Inv_W))+(ppdibl2*Inv_LW));
1809 : 0 : pdiblb=(((pdiblb+(lpdiblb*Inv_L))+(wpdiblb*Inv_W))+(ppdiblb*Inv_LW));
1810 : 0 : pscbe1=(((PSCBE1+(LPSCBE1*Inv_L))+(WPSCBE1*Inv_W))+(PPSCBE1*Inv_LW));
1811 : 0 : pscbe2=(((PSCBE2+(LPSCBE2*Inv_L))+(WPSCBE2*Inv_W))+(PPSCBE2*Inv_LW));
1812 : 0 : pvag=(((PVAG+(LPVAG*Inv_L))+(WPVAG*Inv_W))+(PPVAG*Inv_LW));
1813 : 0 : wr=(((WR+(LWR*Inv_L))+(WWR*Inv_W))+(PWR*Inv_LW));
1814 : 0 : dwg=(((DWG+(LDWG*Inv_L))+(WDWG*Inv_W))+(PDWG*Inv_LW));
1815 : 0 : dwb=(((DWB+(LDWB*Inv_L))+(WDWB*Inv_W))+(PDWB*Inv_LW));
1816 : 0 : b0=(((B0+(LB0*Inv_L))+(WB0*Inv_W))+(PB0*Inv_LW));
1817 : 0 : b1=(((B1+(LB1*Inv_L))+(WB1*Inv_W))+(PB1*Inv_LW));
1818 : 0 : alpha0=(((ALPHA0+(LALPHA0*Inv_L))+(WALPHA0*Inv_W))+(PALPHA0*Inv_LW));
1819 : 0 : alpha1=(((ALPHA1+(LALPHA1*Inv_L))+(WALPHA1*Inv_W))+(PALPHA1*Inv_LW));
1820 : 0 : beta0=(((BETA0+(LBETA0*Inv_L))+(WBETA0*Inv_W))+(PBETA0*Inv_LW));
1821 : : #if defined(_DYNAMIC)
1822 : 0 : elm=(((ELM+(LELM*Inv_L))+(WELM*Inv_W))+(PELM*Inv_LW));
1823 : : #endif
1824 : : #if defined(_DYNAMIC)
1825 : 0 : cgsl=(((CGSL+(LCGSL*Inv_L))+(WCGSL*Inv_W))+(PCGSL*Inv_LW));
1826 : : #endif
1827 : : #if defined(_DYNAMIC)
1828 : 0 : cgdl=(((CGDL+(LCGDL*Inv_L))+(WCGDL*Inv_W))+(PCGDL*Inv_LW));
1829 : : #endif
1830 : : #if defined(_DYNAMIC)
1831 : 0 : ckappa=(((CKAPPA+(LCKAPPA*Inv_L))+(WCKAPPA*Inv_W))+(PCKAPPA*Inv_LW));
1832 : : #endif
1833 : : #if defined(_DYNAMIC)
1834 : 0 : cf=(((cf+(LCF*Inv_L))+(WCF*Inv_W))+(PCF*Inv_LW));
1835 : : #endif
1836 : 0 : clc=(((CLC+(LCLC*Inv_L))+(WCLC*Inv_W))+(PCLC*Inv_LW));
1837 : 0 : cle=(((CLE+(LCLE*Inv_L))+(WCLE*Inv_W))+(PCLE*Inv_LW));
1838 : 0 : vfbcv=(((VFBCV+(LVFBCV*Inv_L))+(WVFBCV*Inv_W))+(PVFBCV*Inv_LW));
1839 : 0 : acde=(((ACDE+(LACDE*Inv_L))+(WACDE*Inv_W))+(PACDE*Inv_LW));
1840 : 0 : moin=(((MOIN+(LMOIN*Inv_L))+(WMOIN*Inv_W))+(PMOIN*Inv_LW));
1841 : 0 : noff_param=(((NOFF+(LNOFF*Inv_L))+(WNOFF*Inv_W))+(PNOFF*Inv_LW));
1842 : 0 : voffcv_param=(((VOFFCV+(LVOFFCV*Inv_L))+(WVOFFCV*Inv_W))+(PVOFFCV*Inv_LW));
1843 : : {
1844 : 0 : double m00_pow(d00_pow0,(clc/leffCV),cle)
1845 : 0 : abulkCVfactor=(1.0+d00_pow0);
1846 : : }
1847 : : #if defined(_DERIVATE)
1848 : 0 : T_0_Vgate_sourcep=0.0;
1849 : 0 : T_0_Vdrainp_sourcep=0.0;
1850 : 0 : T_0_Vbulk_sourcep=0.0;
1851 : : #endif
1852 : 0 : T_0=(TRatio-1.0);
1853 : 0 : ua=(ua+(ua1*T_0));
1854 : 0 : ub=(ub+(ub1*T_0));
1855 : 0 : uc=(uc+(uc1*T_0));
1856 [ # # ]: 0 : if
1857 : : (u0>1.0)
1858 : : {
1859 : 0 : u0=(u0/1.0e4);
1860 : : }
1861 : : {
1862 : 0 : double m00_pow(d00_pow0,TRatio,ute)
1863 : 0 : u0temp=(u0*d00_pow0);
1864 : : }
1865 : 0 : vsattemp=(vsat-(at*T_0));
1866 : : {
1867 : 0 : double m00_pow(d00_pow0,(weff*1E6),wr)
1868 : 0 : rds0=((rdsw+(prt*T_0))/d00_pow0);
1869 : : }
1870 : 0 : Fatal_Flag=0;
1871 [ # # ]: 0 : if
1872 : : (nlx<(-leff))
1873 : : {
1874 : 0 : logprint(LOG_ERROR,"Fatal: Nlx = %g is less than -Leff.",nlx);
1875 : 0 : logprint(LOG_ERROR,"\n");
1876 : 0 : Fatal_Flag=1;
1877 : : }
1878 [ # # ]: 0 : if
1879 : : (tox<=0.0)
1880 : : {
1881 : 0 : logprint(LOG_ERROR,"Fatal: Tox = %g is not positive.",tox);
1882 : 0 : logprint(LOG_ERROR,"\n");
1883 : 0 : Fatal_Flag=1;
1884 : : }
1885 [ # # ]: 0 : if
1886 : : (TOXM<=0.0)
1887 : : {
1888 : 0 : logprint(LOG_ERROR,"Fatal: Toxm = %g is not positive.",TOXM);
1889 : 0 : logprint(LOG_ERROR,"\n");
1890 : 0 : Fatal_Flag=1;
1891 : : }
1892 [ # # ]: 0 : if
1893 : : (npeak<=0.0)
1894 : : {
1895 : 0 : logprint(LOG_ERROR,"Fatal: Nch = %g is not positive.",npeak);
1896 : 0 : logprint(LOG_ERROR,"\n");
1897 : 0 : Fatal_Flag=1;
1898 : : }
1899 [ # # ]: 0 : if
1900 : : (nsub<=0.0)
1901 : : {
1902 : 0 : logprint(LOG_ERROR,"Fatal: Nsub = %g is not positive.",nsub);
1903 : 0 : logprint(LOG_ERROR,"\n");
1904 : 0 : Fatal_Flag=1;
1905 : : }
1906 [ # # ]: 0 : if
1907 : : (ngate<0.0)
1908 : : {
1909 : 0 : logprint(LOG_ERROR,"Fatal: Ngate = %g Ngate is not positive.",ngate);
1910 : 0 : logprint(LOG_ERROR,"\n");
1911 : 0 : Fatal_Flag=1;
1912 : : }
1913 [ # # ]: 0 : if
1914 : : (ngate>1.0e25)
1915 : : {
1916 : 0 : logprint(LOG_ERROR,"Fatal: Ngate = %g Ngate is too high",ngate);
1917 : 0 : logprint(LOG_ERROR,"\n");
1918 : 0 : Fatal_Flag=1;
1919 : : }
1920 [ # # ]: 0 : if
1921 : : (xj<=0.0)
1922 : : {
1923 : 0 : logprint(LOG_ERROR,"Fatal: Xj = %g is not positive.",xj);
1924 : 0 : logprint(LOG_ERROR,"\n");
1925 : 0 : Fatal_Flag=1;
1926 : : }
1927 [ # # ]: 0 : if
1928 : : (dvt1<0.0)
1929 : : {
1930 : 0 : logprint(LOG_ERROR,"Fatal: Dvt1 = %g is negative.",dvt1);
1931 : 0 : logprint(LOG_ERROR,"\n");
1932 : 0 : Fatal_Flag=1;
1933 : : }
1934 [ # # ]: 0 : if
1935 : : (dvt1w<0.0)
1936 : : {
1937 : 0 : logprint(LOG_ERROR,"Fatal: Dvt1w = %g is negative.",dvt1w);
1938 : 0 : logprint(LOG_ERROR,"\n");
1939 : 0 : Fatal_Flag=1;
1940 : : }
1941 [ # # ]: 0 : if
1942 : : (w0==(-weff))
1943 : : {
1944 : 0 : logprint(LOG_ERROR,"Fatal: (W0 + Weff) = 0 causing divided-by-zero.");
1945 : 0 : logprint(LOG_ERROR,"\n");
1946 : 0 : Fatal_Flag=1;
1947 : : }
1948 [ # # ]: 0 : if
1949 : : (dsub<0.0)
1950 : : {
1951 : 0 : logprint(LOG_ERROR,"Fatal: Dsub = %g is negative.",dsub);
1952 : 0 : logprint(LOG_ERROR,"\n");
1953 : 0 : Fatal_Flag=1;
1954 : : }
1955 [ # # ]: 0 : if
1956 : : (b1==(-weff))
1957 : : {
1958 : 0 : logprint(LOG_ERROR,"Fatal: (B1 + Weff) = 0 causing divided-by-zero.");
1959 : 0 : logprint(LOG_ERROR,"\n");
1960 : 0 : Fatal_Flag=1;
1961 : : }
1962 [ # # ]: 0 : if
1963 : : (u0temp<=0.0)
1964 : : {
1965 : 0 : logprint(LOG_ERROR,"Fatal: u0 at current temperature = %g is not positive.",u0temp);
1966 : 0 : logprint(LOG_ERROR,"\n");
1967 : 0 : Fatal_Flag=1;
1968 : : }
1969 [ # # ]: 0 : if
1970 : : (delta<0.0)
1971 : : {
1972 : 0 : logprint(LOG_ERROR,"Fatal: Delta = %g is less than zero.",delta);
1973 : 0 : logprint(LOG_ERROR,"\n");
1974 : 0 : Fatal_Flag=1;
1975 : : }
1976 [ # # ]: 0 : if
1977 : : (vsattemp<=0.0)
1978 : : {
1979 : 0 : logprint(LOG_ERROR,"Fatal: Vsat at current temperature = %g is not positive.",vsattemp);
1980 : 0 : logprint(LOG_ERROR,"\n");
1981 : 0 : Fatal_Flag=1;
1982 : : }
1983 [ # # ]: 0 : if
1984 : : (pclm<=0.0)
1985 : : {
1986 : 0 : logprint(LOG_ERROR,"Fatal: Pclm = %g is not positive.",pclm);
1987 : 0 : logprint(LOG_ERROR,"\n");
1988 : 0 : Fatal_Flag=1;
1989 : : }
1990 [ # # ]: 0 : if
1991 : : (drout<0.0)
1992 : : {
1993 : 0 : logprint(LOG_ERROR,"Fatal: Drout = %g is negative.",drout);
1994 : 0 : logprint(LOG_ERROR,"\n");
1995 : 0 : Fatal_Flag=1;
1996 : : }
1997 [ # # ]: 0 : if
1998 : : (pscbe2<=0.0)
1999 : : {
2000 : 0 : logprint(LOG_ERROR,"Warning: Pscbe2 = %g is not positive.",pscbe2);
2001 : 0 : logprint(LOG_ERROR,"\n");
2002 : : }
2003 [ # # ][ # # ]: 0 : if
2004 : : ((unitLengthSidewallJctCap>0.0)||(unitLengthGateSidewallJctCap>0.0))
2005 : : {
2006 [ # # ]: 0 : if
2007 : : (drainPerimeter<weff)
2008 : : {
2009 : 0 : logprint(LOG_ERROR,"Warning: Pd = %g is less than W.",drainPerimeter);
2010 : 0 : logprint(LOG_ERROR,"\n");
2011 : : }
2012 [ # # ]: 0 : if
2013 : : (sourcePerimeter<weff)
2014 : : {
2015 : 0 : logprint(LOG_ERROR,"Warning: Ps = %g is less than W.",sourcePerimeter);
2016 : 0 : logprint(LOG_ERROR,"\n");
2017 : : }
2018 : : }
2019 [ # # ]: 0 : if
2020 : : (noff_param<0.1)
2021 : : {
2022 : 0 : logprint(LOG_ERROR,"Warning: Noff = %g is too small.",noff_param);
2023 : 0 : logprint(LOG_ERROR,"\n");
2024 : : }
2025 [ # # ]: 0 : if
2026 : : (noff_param>4.0)
2027 : : {
2028 : 0 : logprint(LOG_ERROR,"Warning: Noff = %g is too large.",noff_param);
2029 : 0 : logprint(LOG_ERROR,"\n");
2030 : : }
2031 [ # # ]: 0 : if
2032 : : (voffcv_param<(-0.5))
2033 : : {
2034 : 0 : logprint(LOG_ERROR,"Warning: Voffcv = %g is too small.",voffcv_param);
2035 : 0 : logprint(LOG_ERROR,"\n");
2036 : : }
2037 [ # # ]: 0 : if
2038 : : (voffcv_param>0.5)
2039 : : {
2040 : 0 : logprint(LOG_ERROR,"Warning: Voffcv = %g is too large.",voffcv_param);
2041 : 0 : logprint(LOG_ERROR,"\n");
2042 : : }
2043 [ # # ]: 0 : if
2044 : : (IJTH<0.0)
2045 : : {
2046 : 0 : logprint(LOG_ERROR,"Fatal: Ijth = %g cannot be negative.",IJTH);
2047 : 0 : logprint(LOG_ERROR,"\n");
2048 : 0 : Fatal_Flag=1;
2049 : : }
2050 [ # # ]: 0 : if
2051 : : (clc<0.0)
2052 : : {
2053 : 0 : logprint(LOG_ERROR,"Fatal: Clc = %g is negative.",clc);
2054 : 0 : logprint(LOG_ERROR,"\n");
2055 : 0 : Fatal_Flag=1;
2056 : : }
2057 [ # # ]: 0 : if
2058 : : (moin<5.0)
2059 : : {
2060 : 0 : logprint(LOG_ERROR,"Warning: Moin = %g is too small.",moin);
2061 : 0 : logprint(LOG_ERROR,"\n");
2062 : : }
2063 [ # # ]: 0 : if
2064 : : (moin>25.0)
2065 : : {
2066 : 0 : logprint(LOG_ERROR,"Warning: Moin = %g is too large.",moin);
2067 : 0 : logprint(LOG_ERROR,"\n");
2068 : : }
2069 [ # # ][ # # ]: 0 : if
[ # # ][ # # ]
[ # # ]
2070 : 0 : (((acde<0.4)&&(!(VERSION==3.24)))||(((acde<0.4)&&(VERSION==3.24))&&(CAPMOD==3.0)))
2071 : : {
2072 : 0 : logprint(LOG_ERROR,"Warning: Acde = %g is too small.",acde);
2073 : 0 : logprint(LOG_ERROR,"\n");
2074 : : }
2075 [ # # ][ # # ]: 0 : if
[ # # ][ # # ]
[ # # ]
2076 : 0 : (((acde>1.6)&&(!(VERSION==3.24)))||(((acde>1.6)&&(VERSION==3.24))&&(CAPMOD==3.0)))
2077 : : {
2078 : 0 : logprint(LOG_ERROR,"Warning: Acde = %g is too large.",acde);
2079 : 0 : logprint(LOG_ERROR,"\n");
2080 : : }
2081 [ # # ]: 0 : if
2082 : : (PARAMCHK==1)
2083 : : {
2084 [ # # ]: 0 : if
2085 : : (leff<=5.0e-8)
2086 : : {
2087 : 0 : logprint(LOG_ERROR,"Warning: Leff = %g may be too small.",leff);
2088 : 0 : logprint(LOG_ERROR,"\n");
2089 : : }
2090 [ # # ]: 0 : if
2091 : : (leffCV<=5.0e-8)
2092 : : {
2093 : 0 : logprint(LOG_ERROR,"Warning: Leff for CV = %g may be too small.",leffCV);
2094 : 0 : logprint(LOG_ERROR,"\n");
2095 : : }
2096 [ # # ]: 0 : if
2097 : : (weff<=1.0e-7)
2098 : : {
2099 : 0 : logprint(LOG_ERROR,"Warning: Weff = %g may be too small.",weff);
2100 : 0 : logprint(LOG_ERROR,"\n");
2101 : : }
2102 [ # # ]: 0 : if
2103 : : (weffCV<=1.0e-7)
2104 : : {
2105 : 0 : logprint(LOG_ERROR,"Warning: Weff for CV = %g may be too small.",weffCV);
2106 : 0 : logprint(LOG_ERROR,"\n");
2107 : : }
2108 [ # # ]: 0 : if
2109 : : (nlx<0.0)
2110 : : {
2111 : 0 : logprint(LOG_ERROR,"Warning: Nlx = %g is negative.",nlx);
2112 : 0 : logprint(LOG_ERROR,"\n");
2113 : : }
2114 [ # # ]: 0 : if
2115 : : (tox<1.0e-9)
2116 : : {
2117 : 0 : logprint(LOG_ERROR,"Warning: Tox = %g is less than 10A.",tox);
2118 : 0 : logprint(LOG_ERROR,"\n");
2119 : : }
2120 [ # # ]: 0 : if
2121 : : (npeak<=1.0e15)
2122 : : {
2123 : 0 : logprint(LOG_ERROR,"Warning: Nch = %g may be too small.",npeak);
2124 : 0 : logprint(LOG_ERROR,"\n");
2125 : : }
2126 : : else
2127 : : {
2128 [ # # ]: 0 : if
2129 : : (npeak>=1.0e21)
2130 : : {
2131 : 0 : logprint(LOG_ERROR,"Warning: Nch = %g may be too large.",npeak);
2132 : 0 : logprint(LOG_ERROR,"\n");
2133 : : }
2134 : : }
2135 [ # # ]: 0 : if
2136 : : (nsub<=1.0e14)
2137 : : {
2138 : 0 : logprint(LOG_ERROR,"Warning: Nsub = %g may be too small.",nsub);
2139 : 0 : logprint(LOG_ERROR,"\n");
2140 : : }
2141 : : else
2142 : : {
2143 [ # # ]: 0 : if
2144 : : (nsub>=1.0e21)
2145 : : {
2146 : 0 : logprint(LOG_ERROR,"Warning: Nsub = %g may be too large.",nsub);
2147 : 0 : logprint(LOG_ERROR,"\n");
2148 : : }
2149 : : }
2150 [ # # ][ # # ]: 0 : if
2151 : : ((ngate>0.0)&&(ngate<=1.0e18))
2152 : : {
2153 : 0 : logprint(LOG_ERROR,"Warning: Ngate = %g is less than 1.E18cm^-3.",ngate);
2154 : 0 : logprint(LOG_ERROR,"\n");
2155 : : }
2156 [ # # ]: 0 : if
2157 : : (dvt0<0.0)
2158 : : {
2159 : 0 : logprint(LOG_ERROR,"Warning: Dvt0 = %g is negative.",dvt0);
2160 : 0 : logprint(LOG_ERROR,"\n");
2161 : : }
2162 : : {
2163 [ # # ]: 0 : double m00_abs(d00_abs0,(1.0e-6/(w0+weff)))
2164 [ # # ]: 0 : if
2165 : : (d00_abs0>10.0)
2166 : : {
2167 : 0 : logprint(LOG_ERROR,"Warning: (W0 + Weff) may be too small.");
2168 : 0 : logprint(LOG_ERROR,"\n");
2169 : : }
2170 : : }
2171 [ # # ]: 0 : if
2172 : : (nfactor<0.0)
2173 : : {
2174 : 0 : logprint(LOG_ERROR,"Warning: Nfactor = %g is negative.",nfactor);
2175 : 0 : logprint(LOG_ERROR,"\n");
2176 : : }
2177 [ # # ]: 0 : if
2178 : : (cdsc<0.0)
2179 : : {
2180 : 0 : logprint(LOG_ERROR,"Warning: Cdsc = %g is negative.",cdsc);
2181 : 0 : logprint(LOG_ERROR,"\n");
2182 : : }
2183 [ # # ]: 0 : if
2184 : : (cdscd<0.0)
2185 : : {
2186 : 0 : logprint(LOG_ERROR,"Warning: Cdscd = %g is negative.",cdscd);
2187 : 0 : logprint(LOG_ERROR,"\n");
2188 : : }
2189 [ # # ]: 0 : if
2190 : : (eta0<0.0)
2191 : : {
2192 : 0 : logprint(LOG_ERROR,"Warning: Eta0 = %g is negative.",eta0);
2193 : 0 : logprint(LOG_ERROR,"\n");
2194 : : }
2195 : : {
2196 [ # # ]: 0 : double m00_abs(d00_abs0,(1.0e-6/(b1+weff)))
2197 [ # # ]: 0 : if
2198 : : (d00_abs0>10.0)
2199 : : {
2200 : 0 : logprint(LOG_ERROR,"Warning: (B1 + Weff) may be too small.");
2201 : 0 : logprint(LOG_ERROR,"\n");
2202 : : }
2203 : : }
2204 [ # # ]: 0 : if
2205 : : (a2<0.01)
2206 : : {
2207 : 0 : logprint(LOG_ERROR,"Warning: A2 = %g is too small. Set to 0.01.",a2);
2208 : 0 : logprint(LOG_ERROR,"\n");
2209 : 0 : a2=0.01;
2210 : : }
2211 : : else
2212 : : {
2213 [ # # ]: 0 : if
2214 : : (a2>1.0)
2215 : : {
2216 : 0 : logprint(LOG_ERROR,"Warning: A2 = %g is larger than 1. A2 is set to 1 and A1 is set to 0.",a2);
2217 : 0 : logprint(LOG_ERROR,"\n");
2218 : 0 : a2=1.0;
2219 : 0 : a1=0.0;
2220 : : }
2221 : : }
2222 [ # # ]: 0 : if
2223 : : (rdsw<0.0)
2224 : : {
2225 : 0 : logprint(LOG_ERROR,"Warning: Rdsw = %g is negative. Set to zero.",rdsw);
2226 : 0 : logprint(LOG_ERROR,"\n");
2227 : : #if defined(_DYNAMIC)
2228 : 0 : rdsw=0.0;
2229 : : #endif
2230 : 0 : rds0=0.0;
2231 : : }
2232 : : else
2233 : : {
2234 [ # # ][ # # ]: 0 : if
2235 : : ((rds0>0.0)&&(rds0<0.001))
2236 : : {
2237 : 0 : logprint(LOG_ERROR,"Warning: Rds at current temperature = %g is less than 0.001 ohm. Set to zero.",rds0);
2238 : 0 : logprint(LOG_ERROR,"\n");
2239 : 0 : rds0=0.0;
2240 : : }
2241 : : }
2242 [ # # ]: 0 : if
2243 : : (vsattemp<1.0e3)
2244 : : {
2245 : 0 : logprint(LOG_ERROR,"Warning: Vsat at current temperature = %g may be too small.",vsattemp);
2246 : 0 : logprint(LOG_ERROR,"\n");
2247 : : }
2248 [ # # ]: 0 : if
2249 : : (pdibl1<0.0)
2250 : : {
2251 : 0 : logprint(LOG_ERROR,"Warning: Pdibl1 = %g is negative.",pdibl1);
2252 : 0 : logprint(LOG_ERROR,"\n");
2253 : : }
2254 [ # # ]: 0 : if
2255 : : (pdibl2<0.0)
2256 : : {
2257 : 0 : logprint(LOG_ERROR,"Warning: Pdibl2 = %g is negative.",pdibl2);
2258 : 0 : logprint(LOG_ERROR,"\n");
2259 : : }
2260 [ # # ]: 0 : if
2261 : : (cgdo_param<0.0)
2262 : : {
2263 : 0 : logprint(LOG_ERROR,"Warning: cgdo = %g is negative. Set to zero.",cgdo_param);
2264 : 0 : logprint(LOG_ERROR,"\n");
2265 : : #if defined(_DYNAMIC)
2266 : 0 : cgdo_param=0.0;
2267 : : #endif
2268 : : }
2269 [ # # ]: 0 : if
2270 : : (cgso_param<0.0)
2271 : : {
2272 : 0 : logprint(LOG_ERROR,"Warning: cgso = %g is negative. Set to zero.",cgso_param);
2273 : 0 : logprint(LOG_ERROR,"\n");
2274 : : #if defined(_DYNAMIC)
2275 : 0 : cgso_param=0.0;
2276 : : #endif
2277 : : }
2278 [ # # ]: 0 : if
2279 : : (cgbo_param<0.0)
2280 : : {
2281 : 0 : logprint(LOG_ERROR,"Warning: cgbo = %g is negative. Set to zero.",cgbo_param);
2282 : 0 : logprint(LOG_ERROR,"\n");
2283 : : #if defined(_DYNAMIC)
2284 : 0 : cgbo_param=0.0;
2285 : : #endif
2286 : : }
2287 : : }
2288 [ # # ]: 0 : if
2289 : : (Fatal_Flag)
2290 : : {
2291 : 0 : exit(1);
2292 : : }
2293 : : #if defined(_DYNAMIC)
2294 : 0 : cgdo_param=((cgdo_param+cf)*weffCV);
2295 : : #endif
2296 : : #if defined(_DYNAMIC)
2297 : 0 : cgso_param=((cgso_param+cf)*weffCV);
2298 : : #endif
2299 : : #if defined(_DYNAMIC)
2300 : 0 : cgbo_param=(cgbo_param*leffCV);
2301 : : #endif
2302 : : #if defined(_DERIVATE)
2303 : 0 : T_0_Vgate_sourcep=0.0;
2304 : 0 : T_0_Vdrainp_sourcep=0.0;
2305 : 0 : T_0_Vbulk_sourcep=0.0;
2306 : : #endif
2307 : 0 : T_0=(leffCV*leffCV);
2308 : : #if defined(_DYNAMIC)
2309 : 0 : tconst=((u0temp*elm)/(((cox*weffCV)*leffCV)*T_0));
2310 : : #endif
2311 [ # # ][ # # ]: 0 : if
2312 : : ((!npeakGiven)&&gamma1Given)
2313 : : {
2314 : : #if defined(_DERIVATE)
2315 : 0 : T_0_Vgate_sourcep=0.0;
2316 : 0 : T_0_Vdrainp_sourcep=0.0;
2317 : 0 : T_0_Vbulk_sourcep=0.0;
2318 : : #endif
2319 : 0 : T_0=(gamma1*cox);
2320 : 0 : npeak=((3.021E22*T_0)*T_0);
2321 : : }
2322 : : {
2323 : 0 : double m00_logE(d00_logE0,(npeak/ni))
2324 : 0 : phi=((2.0*Vtm0)*d00_logE0);
2325 : : }
2326 : : {
2327 : 0 : double m00_sqrt(d00_sqrt0,phi)
2328 : 0 : sqrtPhi=d00_sqrt0;
2329 : : }
2330 : 0 : phis3=(sqrtPhi*phi);
2331 : : {
2332 : 0 : double m00_sqrt(d00_sqrt0,((2.0*1.03594e-10)/((1.60219e-19*npeak)*1.0e6)))
2333 : 0 : Xdep0=(d00_sqrt0*sqrtPhi);
2334 : : }
2335 : : {
2336 : 0 : double m00_sqrt(d00_sqrt0,((3.0*xj)*tox))
2337 : 0 : litl=d00_sqrt0;
2338 : : }
2339 : : {
2340 : 0 : double m00_logE(d00_logE0,((1.0e20*npeak)/(ni*ni)))
2341 : 0 : vbi=(Vtm0*d00_logE0);
2342 : : }
2343 : : {
2344 : 0 : double m00_sqrt(d00_sqrt0,(((((1.60219e-19*1.03594e-10)*npeak)*1.0e6)/2.0)/phi))
2345 : 0 : cdep0=d00_sqrt0;
2346 : : }
2347 : : {
2348 : 0 : double m00_sqrt(d00_sqrt0,((1.03594e-10*Vtm0)/((1.60219e-19*npeak)*1.0e6)))
2349 : 0 : ldeb=(d00_sqrt0/3.0);
2350 : : }
2351 : : {
2352 : 0 : double m00_pow(d00_pow0,(npeak/2.0e16),(-0.25))
2353 : 0 : acde=(acde*d00_pow0);
2354 : : }
2355 [ # # ][ # # ]: 0 : if
2356 : : (k1Given||k2Given)
2357 : : {
2358 [ # # ]: 0 : if
2359 : : (!k1Given)
2360 : : {
2361 : 0 : logprint(LOG_ERROR,"Warning: k1 should be specified with k2.");
2362 : 0 : logprint(LOG_ERROR,"\n");
2363 : 0 : k1=0.53;
2364 : : }
2365 [ # # ]: 0 : if
2366 : : (!k2Given)
2367 : : {
2368 : 0 : logprint(LOG_ERROR,"Warning: k2 should be specified with k1.");
2369 : 0 : logprint(LOG_ERROR,"\n");
2370 : 0 : k2=(-0.0186);
2371 : : }
2372 [ # # ]: 0 : if
2373 : : (nsubGiven)
2374 : : {
2375 : 0 : logprint(LOG_ERROR,"Warning: nsub is ignored because k1 or k2 is given.");
2376 : 0 : logprint(LOG_ERROR,"\n");
2377 : : }
2378 [ # # ]: 0 : if
2379 : : (xtGiven)
2380 : : {
2381 : 0 : logprint(LOG_ERROR,"Warning: xt is ignored because k1 or k2 is given.");
2382 : 0 : logprint(LOG_ERROR,"\n");
2383 : : }
2384 [ # # ]: 0 : if
2385 : : (vbxGiven)
2386 : : {
2387 : 0 : logprint(LOG_ERROR,"Warning: vbx is ignored because k1 or k2 is given.");
2388 : 0 : logprint(LOG_ERROR,"\n");
2389 : : }
2390 [ # # ]: 0 : if
2391 : : (gamma1Given)
2392 : : {
2393 : 0 : logprint(LOG_ERROR,"Warning: gamma1 is ignored because k1 or k2 is given.");
2394 : 0 : logprint(LOG_ERROR,"\n");
2395 : : }
2396 [ # # ]: 0 : if
2397 : : (gamma2Given)
2398 : : {
2399 : 0 : logprint(LOG_ERROR,"Warning: gamma2 is ignored because k1 or k2 is given.");
2400 : 0 : logprint(LOG_ERROR,"\n");
2401 : : }
2402 : : }
2403 : : else
2404 : : {
2405 [ # # ]: 0 : if
2406 : : (!vbxGiven)
2407 : : {
2408 : 0 : vbx=(phi-(((7.7348e-4*npeak)*xt)*xt));
2409 : : }
2410 [ # # ]: 0 : if
2411 : : (vbx>0.0)
2412 : : {
2413 : 0 : vbx=(-vbx);
2414 : : }
2415 [ # # ]: 0 : if
2416 : : (vbm>0.0)
2417 : : {
2418 : 0 : vbm=(-vbm);
2419 : : }
2420 [ # # ]: 0 : if
2421 : : (!gamma1Given)
2422 : : {
2423 : : {
2424 : 0 : double m00_sqrt(d00_sqrt0,npeak)
2425 : 0 : gamma1=((5.753e-12*d00_sqrt0)/cox);
2426 : : }
2427 : : }
2428 [ # # ]: 0 : if
2429 : : (!gamma2Given)
2430 : : {
2431 : : {
2432 : 0 : double m00_sqrt(d00_sqrt0,nsub)
2433 : 0 : gamma2=((5.753e-12*d00_sqrt0)/cox);
2434 : : }
2435 : : }
2436 : : #if defined(_DERIVATE)
2437 : 0 : T_0_Vgate_sourcep=0.0;
2438 : 0 : T_0_Vdrainp_sourcep=0.0;
2439 : 0 : T_0_Vbulk_sourcep=0.0;
2440 : : #endif
2441 : 0 : T_0=(gamma1-gamma2);
2442 : : {
2443 : 0 : double m00_sqrt(d00_sqrt0,(phi-vbx))
2444 : : #if defined(_DERIVATE)
2445 : 0 : T1_Vgate_sourcep=0.0;
2446 : 0 : T1_Vdrainp_sourcep=0.0;
2447 : 0 : T1_Vbulk_sourcep=0.0;
2448 : : #endif
2449 : 0 : T1=(d00_sqrt0-sqrtPhi);
2450 : : }
2451 : : {
2452 : 0 : double m00_sqrt(d00_sqrt0,(phi*(phi-vbm)))
2453 : : #if defined(_DERIVATE)
2454 : 0 : T2_Vgate_sourcep=0.0;
2455 : 0 : T2_Vdrainp_sourcep=0.0;
2456 : 0 : T2_Vbulk_sourcep=0.0;
2457 : : #endif
2458 : 0 : T2=(d00_sqrt0-phi);
2459 : : }
2460 : 0 : k2=((T_0*T1)/((2.0*T2)+vbm));
2461 : : {
2462 : 0 : double m00_sqrt(d00_sqrt0,(phi-vbm))
2463 : 0 : k1=(gamma2-((2.0*k2)*d00_sqrt0));
2464 : : }
2465 : : }
2466 [ # # ]: 0 : if
2467 : : (k2<0.0)
2468 : : {
2469 : : #if defined(_DERIVATE)
2470 : 0 : T_0_Vgate_sourcep=0.0;
2471 : 0 : T_0_Vdrainp_sourcep=0.0;
2472 : 0 : T_0_Vbulk_sourcep=0.0;
2473 : : #endif
2474 : 0 : T_0=((0.5*k1)/k2);
2475 : 0 : vbsc=(0.9*(phi-(T_0*T_0)));
2476 [ # # ]: 0 : if
2477 : : (vbsc>(-3.0))
2478 : : {
2479 : 0 : vbsc=(-3.0);
2480 : : }
2481 : : else
2482 : : {
2483 [ # # ]: 0 : if
2484 : : (vbsc<(-30.0))
2485 : : {
2486 : 0 : vbsc=(-30.0);
2487 : : }
2488 : : }
2489 : : }
2490 : : else
2491 : : {
2492 : 0 : vbsc=(-30.0);
2493 : : }
2494 [ # # ]: 0 : if
2495 : : (vbsc>vbm)
2496 : : {
2497 : 0 : vbsc=vbm;
2498 : : }
2499 [ # # ]: 0 : if
2500 : : (!vfbGiven)
2501 : : {
2502 [ # # ]: 0 : if
2503 : : (vth0Given)
2504 : : {
2505 : 0 : vfb=(((TYPE*vth0)-phi)-(k1*sqrtPhi));
2506 : : }
2507 : : else
2508 : : {
2509 : 0 : vfb=(-1.0);
2510 : : }
2511 : : }
2512 [ # # ]: 0 : if
2513 : : (!vth0Given)
2514 : : {
2515 : 0 : vth0=(TYPE*((vfb+phi)+(k1*sqrtPhi)));
2516 : : }
2517 : 0 : k1ox=((k1*tox)/TOXM);
2518 : 0 : k2ox=((k2*tox)/TOXM);
2519 : : {
2520 : 0 : double m00_sqrt(d00_sqrt0,(((1.03594e-10/3.453133e-11)*tox)*Xdep0))
2521 : : #if defined(_DERIVATE)
2522 : 0 : T1_Vgate_sourcep=0.0;
2523 : 0 : T1_Vdrainp_sourcep=0.0;
2524 : 0 : T1_Vbulk_sourcep=0.0;
2525 : : #endif
2526 : 0 : T1=d00_sqrt0;
2527 : : }
2528 : : {
2529 : 0 : double m00_exp(d00_exp0,((((-0.5)*dsub)*leff)/T1))
2530 : : #if defined(_DERIVATE)
2531 : 0 : T_0_Vgate_sourcep=0.0;
2532 : 0 : T_0_Vdrainp_sourcep=0.0;
2533 : 0 : T_0_Vbulk_sourcep=0.0;
2534 : : #endif
2535 : 0 : T_0=d00_exp0;
2536 : : }
2537 : 0 : theta0vb0=(T_0+((2.0*T_0)*T_0));
2538 : : {
2539 : 0 : double m00_exp(d00_exp0,((((-0.5)*drout)*leff)/T1))
2540 : : #if defined(_DERIVATE)
2541 : 0 : T_0_Vgate_sourcep=0.0;
2542 : 0 : T_0_Vdrainp_sourcep=0.0;
2543 : 0 : T_0_Vbulk_sourcep=0.0;
2544 : : #endif
2545 : 0 : T_0=d00_exp0;
2546 : : }
2547 : : #if defined(_DERIVATE)
2548 : 0 : T2_Vgate_sourcep=0.0;
2549 : 0 : T2_Vdrainp_sourcep=0.0;
2550 : 0 : T2_Vbulk_sourcep=0.0;
2551 : : #endif
2552 : 0 : T2=(T_0+((2.0*T_0)*T_0));
2553 : 0 : thetaRout=((pdibl1*T2)+pdibl2);
2554 : : {
2555 : 0 : double m00_sqrt(d00_sqrt0,Xdep0)
2556 : : #if defined(_DERIVATE)
2557 : 0 : tmp_Vgate_sourcep=0.0;
2558 : 0 : tmp_Vdrainp_sourcep=0.0;
2559 : 0 : tmp_Vbulk_sourcep=0.0;
2560 : : #endif
2561 : 0 : tmp=d00_sqrt0;
2562 : : }
2563 : : #if defined(_DERIVATE)
2564 : 0 : tmp1_Vdrainp_sourcep=0.0;
2565 : 0 : tmp1_Vbulk_sourcep=0.0;
2566 : : #endif
2567 : 0 : tmp1=(vbi-phi);
2568 : : #if defined(_DERIVATE)
2569 : 0 : tmp2_Vgate_sourcep=0.0;
2570 : 0 : tmp2_Vdrainp_sourcep=0.0;
2571 : 0 : tmp2_Vbulk_sourcep=0.0;
2572 : : #endif
2573 : 0 : tmp2=(factor1*tmp);
2574 : : #if defined(_DERIVATE)
2575 : 0 : T_0_Vgate_sourcep=0.0;
2576 : 0 : T_0_Vdrainp_sourcep=0.0;
2577 : 0 : T_0_Vbulk_sourcep=0.0;
2578 : : #endif
2579 : 0 : T_0=(((((-0.5)*dvt1w)*weff)*leff)/tmp2);
2580 [ # # ]: 0 : if
2581 : : (T_0>(-34.0))
2582 : : {
2583 : : {
2584 : 0 : double m00_exp(d00_exp0,T_0)
2585 : : #if defined(_DERIVATE)
2586 : 0 : T1_Vgate_sourcep=0.0;
2587 : 0 : T1_Vdrainp_sourcep=0.0;
2588 : 0 : T1_Vbulk_sourcep=0.0;
2589 : : #endif
2590 : 0 : T1=d00_exp0;
2591 : : }
2592 : : #if defined(_DERIVATE)
2593 : 0 : T2_Vgate_sourcep=0.0;
2594 : 0 : T2_Vdrainp_sourcep=0.0;
2595 : 0 : T2_Vbulk_sourcep=0.0;
2596 : : #endif
2597 : 0 : T2=(T1*(1.0+(2.0*T1)));
2598 : : }
2599 : : else
2600 : : {
2601 : : #if defined(_DERIVATE)
2602 : 0 : T1_Vgate_sourcep=0.0;
2603 : 0 : T1_Vdrainp_sourcep=0.0;
2604 : 0 : T1_Vbulk_sourcep=0.0;
2605 : : #endif
2606 : 0 : T1=1.713908431e-15;
2607 : : #if defined(_DERIVATE)
2608 : 0 : T2_Vgate_sourcep=0.0;
2609 : 0 : T2_Vdrainp_sourcep=0.0;
2610 : 0 : T2_Vbulk_sourcep=0.0;
2611 : : #endif
2612 : 0 : T2=(T1*(1.0+(2.0*T1)));
2613 : : }
2614 : : #if defined(_DERIVATE)
2615 : 0 : T_0_Vgate_sourcep=0.0;
2616 : 0 : T_0_Vdrainp_sourcep=0.0;
2617 : 0 : T_0_Vbulk_sourcep=0.0;
2618 : : #endif
2619 : 0 : T_0=(dvt0w*T2);
2620 : : #if defined(_DERIVATE)
2621 : 0 : T2_Vgate_sourcep=0.0;
2622 : 0 : T2_Vdrainp_sourcep=0.0;
2623 : 0 : T2_Vbulk_sourcep=0.0;
2624 : : #endif
2625 : 0 : T2=(T_0*tmp1);
2626 : : #if defined(_DERIVATE)
2627 : 0 : T_0_Vgate_sourcep=0.0;
2628 : 0 : T_0_Vdrainp_sourcep=0.0;
2629 : 0 : T_0_Vbulk_sourcep=0.0;
2630 : : #endif
2631 : 0 : T_0=((((-0.5)*dvt1)*leff)/tmp2);
2632 [ # # ]: 0 : if
2633 : : (T_0>(-34.0))
2634 : : {
2635 : : {
2636 : 0 : double m00_exp(d00_exp0,T_0)
2637 : : #if defined(_DERIVATE)
2638 : 0 : T1_Vgate_sourcep=0.0;
2639 : 0 : T1_Vdrainp_sourcep=0.0;
2640 : 0 : T1_Vbulk_sourcep=0.0;
2641 : : #endif
2642 : 0 : T1=d00_exp0;
2643 : : }
2644 : : #if defined(_DERIVATE)
2645 : 0 : T3_Vgate_sourcep=0.0;
2646 : 0 : T3_Vdrainp_sourcep=0.0;
2647 : 0 : T3_Vbulk_sourcep=0.0;
2648 : : #endif
2649 : 0 : T3=(T1*(1.0+(2.0*T1)));
2650 : : }
2651 : : else
2652 : : {
2653 : : #if defined(_DERIVATE)
2654 : 0 : T1_Vgate_sourcep=0.0;
2655 : 0 : T1_Vdrainp_sourcep=0.0;
2656 : 0 : T1_Vbulk_sourcep=0.0;
2657 : : #endif
2658 : 0 : T1=1.713908431e-15;
2659 : : #if defined(_DERIVATE)
2660 : 0 : T3_Vgate_sourcep=0.0;
2661 : 0 : T3_Vdrainp_sourcep=0.0;
2662 : 0 : T3_Vbulk_sourcep=0.0;
2663 : : #endif
2664 : 0 : T3=(T1*(1.0+(2.0*T1)));
2665 : : }
2666 : : #if defined(_DERIVATE)
2667 : 0 : T3_Vgate_sourcep=0.0;
2668 : 0 : T3_Vdrainp_sourcep=0.0;
2669 : 0 : T3_Vbulk_sourcep=0.0;
2670 : : #endif
2671 : 0 : T3=((dvt0*T3)*tmp1);
2672 : : #if defined(_DERIVATE)
2673 : 0 : T4_Vgate_sourcep=0.0;
2674 : 0 : T4_Vdrainp_sourcep=0.0;
2675 : 0 : T4_Vbulk_sourcep=0.0;
2676 : : #endif
2677 : 0 : T4=((tox*phi)/(weff+w0));
2678 : : {
2679 : 0 : double m00_sqrt(d00_sqrt0,(1.0+(nlx/leff)))
2680 : : #if defined(_DERIVATE)
2681 : 0 : T_0_Vgate_sourcep=0.0;
2682 : 0 : T_0_Vdrainp_sourcep=0.0;
2683 : 0 : T_0_Vbulk_sourcep=0.0;
2684 : : #endif
2685 : 0 : T_0=d00_sqrt0;
2686 : : }
2687 : : #if defined(_DERIVATE)
2688 : 0 : T5_Vgate_sourcep=0.0;
2689 : 0 : T5_Vdrainp_sourcep=0.0;
2690 : 0 : T5_Vbulk_sourcep=0.0;
2691 : : #endif
2692 : 0 : T5=(((k1ox*(T_0-1.0))*sqrtPhi)+((kt1+(kt1l/leff))*(TRatio-1.0)));
2693 : : #if defined(_DERIVATE)
2694 : 0 : tmp3_Vdrainp_sourcep=0.0;
2695 : 0 : tmp3_Vbulk_sourcep=0.0;
2696 : : #endif
2697 : 0 : tmp3=(((((TYPE*vth0)-T2)-T3)+(k3*T4))+T5);
2698 : 0 : vfbzb=((tmp3-phi)-(k1*sqrtPhi));
2699 : 0 : drainConductance=(sheetResistance*drainSquares);
2700 [ # # ]: 0 : if
2701 : : (drainConductance>0.0)
2702 : : {
2703 : 0 : drainConductance=(1.0/drainConductance);
2704 : : }
2705 : : else
2706 : : {
2707 : 0 : drainConductance=0.0;
2708 : : }
2709 : 0 : sourceConductance=(sheetResistance*sourceSquares);
2710 [ # # ]: 0 : if
2711 : : (sourceConductance>0.0)
2712 : : {
2713 : 0 : sourceConductance=(1.0/sourceConductance);
2714 : : }
2715 : : else
2716 : : {
2717 : 0 : sourceConductance=0.0;
2718 : : }
2719 : 0 : Nvtm=(vtm*jctEmissionCoeff);
2720 [ # # ][ # # ]: 0 : if
2721 : : ((sourceArea<=0.0)&&(sourcePerimeter<=0.0))
2722 : : {
2723 : 0 : SourceSatCurrent=1.0e-14;
2724 : : }
2725 : : else
2726 : : {
2727 : 0 : SourceSatCurrent=((sourceArea*jctTempSatCurDensity)+(sourcePerimeter*jctSidewallTempSatCurDensity));
2728 : : }
2729 [ # # ][ # # ]: 0 : if
2730 : : ((SourceSatCurrent>0.0)&&(IJTH>0.0))
2731 : : {
2732 : : {
2733 : 0 : double m00_logE(d00_logE0,((IJTH/SourceSatCurrent)+1.0))
2734 : 0 : vjsm=(Nvtm*d00_logE0);
2735 : : }
2736 [ # # ]: 0 : if
2737 : : (VERSION==3.24)
2738 : : {
2739 : : {
2740 : 0 : double m00_exp(d00_exp0,(vjsm/Nvtm))
2741 : 0 : IsEvjsm=(SourceSatCurrent*d00_exp0);
2742 : : }
2743 : : }
2744 : : }
2745 [ # # ][ # # ]: 0 : if
2746 : : ((drainArea<=0.0)&&(drainPerimeter<=0.0))
2747 : : {
2748 : 0 : DrainSatCurrent=1.0e-14;
2749 : : }
2750 : : else
2751 : : {
2752 : 0 : DrainSatCurrent=((drainArea*jctTempSatCurDensity)+(drainPerimeter*jctSidewallTempSatCurDensity));
2753 : : }
2754 [ # # ][ # # ]: 0 : if
2755 : : ((DrainSatCurrent>0.0)&&(IJTH>0.0))
2756 : : {
2757 : : {
2758 : 0 : double m00_logE(d00_logE0,((IJTH/DrainSatCurrent)+1.0))
2759 : 0 : vjdm=(Nvtm*d00_logE0);
2760 : : }
2761 [ # # ]: 0 : if
2762 : : (VERSION==3.24)
2763 : : {
2764 : : {
2765 : 0 : double m00_exp(d00_exp0,(vjdm/Nvtm))
2766 : 0 : IsEvjdm=(DrainSatCurrent*d00_exp0);
2767 : : }
2768 : : }
2769 : : }
2770 : : }
2771 : 0 : }
2772 : :
2773 : : /* Evaluate Verilog-AMS equations in final step. */
2774 : 0 : void bsim3v34nMOS::finalStep (void)
2775 : : {
2776 : 0 : }
2777 : :
2778 : : /* Evaluate Verilog-AMS equations in analog block. */
2779 : 0 : void bsim3v34nMOS::calcVerilog (void)
2780 : : {
2781 : :
2782 : : /* ----------------- evaluate verilog analog equations -------------------- */
2783 : : double leffx2;
2784 : : double fourkt;
2785 : : double cqbulk;
2786 : : double cqdrn;
2787 : : double cqgate;
2788 : : #if defined(_DYNAMIC)
2789 : : double Qgate;
2790 : : #if defined(_DERIVATE)
2791 : : double Qgate_Vdrainp_sourcep;
2792 : : double Qgate_Vgate_sourcep;
2793 : : double Qgate_Vbulk_sourcep;
2794 : : #endif
2795 : : #endif
2796 : : #if defined(_DYNAMIC)
2797 : : double Qbulk;
2798 : : #if defined(_DERIVATE)
2799 : : double Qbulk_Vdrainp_sourcep;
2800 : : double Qbulk_Vgate_sourcep;
2801 : : double Qbulk_Vbulk_sourcep;
2802 : : #endif
2803 : : #endif
2804 : : double Qsrc;
2805 : : #if defined(_DYNAMIC)
2806 : : double Qdrn;
2807 : : #if defined(_DERIVATE)
2808 : : double Qdrn_Vgate_sourcep;
2809 : : double Qdrn_Vdrainp_sourcep;
2810 : : double Qdrn_Vbulk_sourcep;
2811 : : #endif
2812 : : #endif
2813 : : #if defined(_DYNAMIC)
2814 : : double qgb;
2815 : : #if defined(_DERIVATE)
2816 : : double qgb_Vgate_sourcep;
2817 : : double qgb_Vbulk_sourcep;
2818 : : #endif
2819 : : #endif
2820 : : #if defined(_DYNAMIC)
2821 : : double qgs;
2822 : : #if defined(_DERIVATE)
2823 : : double qgs_Vdrainp_sourcep;
2824 : : double qgs_Vbulk_sourcep;
2825 : : double qgs_Vgate_sourcep;
2826 : : #endif
2827 : : #endif
2828 : : #if defined(_DYNAMIC)
2829 : : double qgd;
2830 : : #if defined(_DERIVATE)
2831 : : double qgd_Vbulk_sourcep;
2832 : : double qgd_Vgate_sourcep;
2833 : : double qgd_Vdrainp_sourcep;
2834 : : #endif
2835 : : #endif
2836 : : #if defined(_DYNAMIC)
2837 : : double qgso;
2838 : : #if defined(_DERIVATE)
2839 : : double qgso_Vdrainp_sourcep;
2840 : : double qgso_Vbulk_sourcep;
2841 : : double qgso_Vgate_sourcep;
2842 : : #endif
2843 : : #endif
2844 : : #if defined(_DYNAMIC)
2845 : : double qgdo;
2846 : : #if defined(_DERIVATE)
2847 : : double qgdo_Vbulk_sourcep;
2848 : : double qgdo_Vgate_sourcep;
2849 : : double qgdo_Vdrainp_sourcep;
2850 : : #endif
2851 : : #endif
2852 : : double Tox2;
2853 : : double DeltaPhi;
2854 : : #if defined(_DERIVATE)
2855 : : double DeltaPhi_Vgate_sourcep;
2856 : : double DeltaPhi_Vdrainp_sourcep;
2857 : : double DeltaPhi_Vbulk_sourcep;
2858 : : #endif
2859 : : double CoxWLcen;
2860 : : #if defined(_DERIVATE)
2861 : : double CoxWLcen_Vgate_sourcep;
2862 : : double CoxWLcen_Vdrainp_sourcep;
2863 : : double CoxWLcen_Vbulk_sourcep;
2864 : : #endif
2865 : : double Coxeff;
2866 : : #if defined(_DERIVATE)
2867 : : double Coxeff_Vgate_sourcep;
2868 : : double Coxeff_Vdrainp_sourcep;
2869 : : double Coxeff_Vbulk_sourcep;
2870 : : #endif
2871 : : double Ccen;
2872 : : #if defined(_DERIVATE)
2873 : : double Ccen_Vgate_sourcep;
2874 : : double Ccen_Vdrainp_sourcep;
2875 : : double Ccen_Vbulk_sourcep;
2876 : : #endif
2877 : : double LINK;
2878 : : double Tcen;
2879 : : #if defined(_DERIVATE)
2880 : : double Tcen_Vgate_sourcep;
2881 : : double Tcen_Vdrainp_sourcep;
2882 : : double Tcen_Vbulk_sourcep;
2883 : : #endif
2884 : : double Tox;
2885 : : double Cox;
2886 : : double qinoi;
2887 : : #if defined(_DERIVATE)
2888 : : double qinoi_Vdrainp_sourcep;
2889 : : double qinoi_Vgate_sourcep;
2890 : : double qinoi_Vbulk_sourcep;
2891 : : #endif
2892 : : double VdseffCV;
2893 : : #if defined(_DERIVATE)
2894 : : double VdseffCV_Vdrainp_sourcep;
2895 : : double VdseffCV_Vgate_sourcep;
2896 : : double VdseffCV_Vbulk_sourcep;
2897 : : #endif
2898 : : double V4;
2899 : : #if defined(_DERIVATE)
2900 : : double V4_Vdrainp_sourcep;
2901 : : double V4_Vgate_sourcep;
2902 : : double V4_Vbulk_sourcep;
2903 : : #endif
2904 : : #if defined(_DYNAMIC)
2905 : : double Qsub0;
2906 : : #if defined(_DERIVATE)
2907 : : double Qsub0_Vgate_sourcep;
2908 : : double Qsub0_Vdrainp_sourcep;
2909 : : double Qsub0_Vbulk_sourcep;
2910 : : #endif
2911 : : #endif
2912 : : #if defined(_DYNAMIC)
2913 : : double Qac0;
2914 : : #if defined(_DERIVATE)
2915 : : double Qac0_Vdrainp_sourcep;
2916 : : double Qac0_Vbulk_sourcep;
2917 : : double Qac0_Vgate_sourcep;
2918 : : #endif
2919 : : #endif
2920 : : double Vfbeff;
2921 : : #if defined(_DERIVATE)
2922 : : double Vfbeff_Vdrainp_sourcep;
2923 : : double Vfbeff_Vbulk_sourcep;
2924 : : double Vfbeff_Vgate_sourcep;
2925 : : #endif
2926 : : double V3;
2927 : : #if defined(_DERIVATE)
2928 : : double V3_Vdrainp_sourcep;
2929 : : double V3_Vbulk_sourcep;
2930 : : double V3_Vgate_sourcep;
2931 : : #endif
2932 : : double VdsatCV;
2933 : : #if defined(_DERIVATE)
2934 : : double VdsatCV_Vdrainp_sourcep;
2935 : : double VdsatCV_Vgate_sourcep;
2936 : : double VdsatCV_Vbulk_sourcep;
2937 : : #endif
2938 : : double Noff2;
2939 : : #if defined(_DERIVATE)
2940 : : double Noff2_Vdrainp_sourcep;
2941 : : double Noff2_Vbulk_sourcep;
2942 : : #endif
2943 : : double VbseffCV;
2944 : : #if defined(_DERIVATE)
2945 : : double VbseffCV_Vdrainp_sourcep;
2946 : : double VbseffCV_Vbulk_sourcep;
2947 : : #endif
2948 : : double Alphaz;
2949 : : #if defined(_DERIVATE)
2950 : : double Alphaz_Vdrainp_sourcep;
2951 : : double Alphaz_Vgate_sourcep;
2952 : : double Alphaz_Vbulk_sourcep;
2953 : : #endif
2954 : : double AbulkCV;
2955 : : #if defined(_DERIVATE)
2956 : : double AbulkCV_Vgate_sourcep;
2957 : : double AbulkCV_Vdrainp_sourcep;
2958 : : double AbulkCV_Vbulk_sourcep;
2959 : : #endif
2960 : : double Two_Third_CoxWL;
2961 : : double One_Third_CoxWL;
2962 : : double qinv;
2963 : : #if defined(_DERIVATE)
2964 : : double qinv_Vdrainp_sourcep;
2965 : : double qinv_Vgate_sourcep;
2966 : : double qinv_Vbulk_sourcep;
2967 : : #endif
2968 : : double Arg1;
2969 : : #if defined(_DERIVATE)
2970 : : double Arg1_Vdrainp_sourcep;
2971 : : double Arg1_Vgate_sourcep;
2972 : : double Arg1_Vbulk_sourcep;
2973 : : #endif
2974 : : double CoxWL;
2975 : : double Vfb;
2976 : : #if defined(_DERIVATE)
2977 : : double Vfb_Vdrainp_sourcep;
2978 : : double Vfb_Vbulk_sourcep;
2979 : : #endif
2980 : : double qbulk;
2981 : : #if defined(_DERIVATE)
2982 : : double qbulk_Vdrainp_sourcep;
2983 : : double qbulk_Vgate_sourcep;
2984 : : double qbulk_Vbulk_sourcep;
2985 : : #endif
2986 : : #if defined(_DYNAMIC)
2987 : : double qsrc;
2988 : : #if defined(_DERIVATE)
2989 : : double qsrc_Vgate_sourcep;
2990 : : double qsrc_Vdrainp_sourcep;
2991 : : double qsrc_Vbulk_sourcep;
2992 : : #endif
2993 : : #endif
2994 : : double qdrn;
2995 : : #if defined(_DERIVATE)
2996 : : double qdrn_Vgate_sourcep;
2997 : : double qdrn_Vdrainp_sourcep;
2998 : : double qdrn_Vbulk_sourcep;
2999 : : #endif
3000 : : double qgate;
3001 : : #if defined(_DERIVATE)
3002 : : double qgate_Vdrainp_sourcep;
3003 : : double qgate_Vgate_sourcep;
3004 : : double qgate_Vbulk_sourcep;
3005 : : #endif
3006 : : double capbd;
3007 : : #if defined(_DYNAMIC)
3008 : : double sarg;
3009 : : #if defined(_DERIVATE)
3010 : : double sarg_Vdrainp_sourcep;
3011 : : double sarg_Vbulk_sourcep;
3012 : : #endif
3013 : : #endif
3014 : : #if defined(_DYNAMIC)
3015 : : double arg;
3016 : : #if defined(_DERIVATE)
3017 : : double arg_Vdrainp_sourcep;
3018 : : double arg_Vbulk_sourcep;
3019 : : #endif
3020 : : #endif
3021 : : double capbs;
3022 : : #if defined(_DYNAMIC)
3023 : : double qbd;
3024 : : #if defined(_DERIVATE)
3025 : : double qbd_Vgate_sourcep;
3026 : : double qbd_Vdrainp_sourcep;
3027 : : double qbd_Vbulk_sourcep;
3028 : : #endif
3029 : : #endif
3030 : : #if defined(_DYNAMIC)
3031 : : double qbs;
3032 : : #if defined(_DERIVATE)
3033 : : double qbs_Vgate_sourcep;
3034 : : double qbs_Vdrainp_sourcep;
3035 : : double qbs_Vbulk_sourcep;
3036 : : #endif
3037 : : #endif
3038 : : double mjswg;
3039 : : double mjsw;
3040 : : double mj;
3041 : : double czbsswg;
3042 : : double czbssw;
3043 : : double czbdsw;
3044 : : double czbdswg;
3045 : : double czbs;
3046 : : double czbd;
3047 : : double csub;
3048 : : #if defined(_DERIVATE)
3049 : : double csub_Vgate_sourcep;
3050 : : double csub_Vdrainp_sourcep;
3051 : : double csub_Vbulk_sourcep;
3052 : : #endif
3053 : : double cdrain;
3054 : : #if defined(_DERIVATE)
3055 : : double cdrain_Vgate_sourcep;
3056 : : double cdrain_Vdrainp_sourcep;
3057 : : double cdrain_Vbulk_sourcep;
3058 : : #endif
3059 : : double Isub;
3060 : : #if defined(_DERIVATE)
3061 : : double Isub_Vgate_sourcep;
3062 : : double Isub_Vdrainp_sourcep;
3063 : : double Isub_Vbulk_sourcep;
3064 : : #endif
3065 : : #if defined(_DERIVATE)
3066 : : double tmp_Vgate_sourcep;
3067 : : double tmp_Vdrainp_sourcep;
3068 : : double tmp_Vbulk_sourcep;
3069 : : #endif
3070 : : double Ids;
3071 : : #if defined(_DERIVATE)
3072 : : double Ids_Vgate_sourcep;
3073 : : double Ids_Vdrainp_sourcep;
3074 : : double Ids_Vbulk_sourcep;
3075 : : #endif
3076 : : double Idsa;
3077 : : #if defined(_DERIVATE)
3078 : : double Idsa_Vgate_sourcep;
3079 : : double Idsa_Vdrainp_sourcep;
3080 : : double Idsa_Vbulk_sourcep;
3081 : : #endif
3082 : : double Idl;
3083 : : #if defined(_DERIVATE)
3084 : : double Idl_Vgate_sourcep;
3085 : : double Idl_Vdrainp_sourcep;
3086 : : double Idl_Vbulk_sourcep;
3087 : : #endif
3088 : : double gche;
3089 : : #if defined(_DERIVATE)
3090 : : double gche_Vgate_sourcep;
3091 : : double gche_Vdrainp_sourcep;
3092 : : double gche_Vbulk_sourcep;
3093 : : #endif
3094 : : double fgche2;
3095 : : #if defined(_DERIVATE)
3096 : : double fgche2_Vgate_sourcep;
3097 : : double fgche2_Vdrainp_sourcep;
3098 : : double fgche2_Vbulk_sourcep;
3099 : : #endif
3100 : : double fgche1;
3101 : : #if defined(_DERIVATE)
3102 : : double fgche1_Vdrainp_sourcep;
3103 : : double fgche1_Vgate_sourcep;
3104 : : double fgche1_Vbulk_sourcep;
3105 : : #endif
3106 : : double beta;
3107 : : #if defined(_DERIVATE)
3108 : : double beta_Vgate_sourcep;
3109 : : double beta_Vdrainp_sourcep;
3110 : : double beta_Vbulk_sourcep;
3111 : : #endif
3112 : : double CoxWovL;
3113 : : #if defined(_DERIVATE)
3114 : : double CoxWovL_Vdrainp_sourcep;
3115 : : double CoxWovL_Vgate_sourcep;
3116 : : double CoxWovL_Vbulk_sourcep;
3117 : : #endif
3118 : : double VASCBE;
3119 : : #if defined(_DERIVATE)
3120 : : double VASCBE_Vdrainp_sourcep;
3121 : : double VASCBE_Vgate_sourcep;
3122 : : double VASCBE_Vbulk_sourcep;
3123 : : #endif
3124 : : double Va;
3125 : : #if defined(_DERIVATE)
3126 : : double Va_Vgate_sourcep;
3127 : : double Va_Vdrainp_sourcep;
3128 : : double Va_Vbulk_sourcep;
3129 : : #endif
3130 : : double VADIBL;
3131 : : #if defined(_DERIVATE)
3132 : : double VADIBL_Vdrainp_sourcep;
3133 : : double VADIBL_Vgate_sourcep;
3134 : : double VADIBL_Vbulk_sourcep;
3135 : : #endif
3136 : : double VACLM;
3137 : : #if defined(_DERIVATE)
3138 : : double VACLM_Vgate_sourcep;
3139 : : double VACLM_Vdrainp_sourcep;
3140 : : double VACLM_Vbulk_sourcep;
3141 : : #endif
3142 : : double diffVds;
3143 : : #if defined(_DERIVATE)
3144 : : double diffVds_Vdrainp_sourcep;
3145 : : double diffVds_Vgate_sourcep;
3146 : : double diffVds_Vbulk_sourcep;
3147 : : #endif
3148 : : double Vasat;
3149 : : #if defined(_DERIVATE)
3150 : : double Vasat_Vgate_sourcep;
3151 : : double Vasat_Vdrainp_sourcep;
3152 : : double Vasat_Vbulk_sourcep;
3153 : : #endif
3154 : : double Vdseff;
3155 : : #if defined(_DERIVATE)
3156 : : double Vdseff_Vgate_sourcep;
3157 : : double Vdseff_Vdrainp_sourcep;
3158 : : double Vdseff_Vbulk_sourcep;
3159 : : #endif
3160 : : double vdsat;
3161 : : double Vdsat;
3162 : : #if defined(_DERIVATE)
3163 : : double Vdsat_Vgate_sourcep;
3164 : : double Vdsat_Vdrainp_sourcep;
3165 : : double Vdsat_Vbulk_sourcep;
3166 : : #endif
3167 : : double Vgst2Vtm;
3168 : : #if defined(_DERIVATE)
3169 : : double Vgst2Vtm_Vdrainp_sourcep;
3170 : : double Vgst2Vtm_Vgate_sourcep;
3171 : : double Vgst2Vtm_Vbulk_sourcep;
3172 : : #endif
3173 : : double Lambda;
3174 : : #if defined(_DERIVATE)
3175 : : double Lambda_Vgate_sourcep;
3176 : : double Lambda_Vdrainp_sourcep;
3177 : : double Lambda_Vbulk_sourcep;
3178 : : #endif
3179 : : double EsatL;
3180 : : #if defined(_DERIVATE)
3181 : : double EsatL_Vgate_sourcep;
3182 : : double EsatL_Vdrainp_sourcep;
3183 : : double EsatL_Vbulk_sourcep;
3184 : : #endif
3185 : : double Esat;
3186 : : #if defined(_DERIVATE)
3187 : : double Esat_Vgate_sourcep;
3188 : : double Esat_Vdrainp_sourcep;
3189 : : double Esat_Vbulk_sourcep;
3190 : : #endif
3191 : : double WVCoxRds;
3192 : : #if defined(_DERIVATE)
3193 : : double WVCoxRds_Vdrainp_sourcep;
3194 : : double WVCoxRds_Vgate_sourcep;
3195 : : double WVCoxRds_Vbulk_sourcep;
3196 : : #endif
3197 : : double WVCox;
3198 : : #if defined(_DERIVATE)
3199 : : double WVCox_Vdrainp_sourcep;
3200 : : double WVCox_Vgate_sourcep;
3201 : : double WVCox_Vbulk_sourcep;
3202 : : #endif
3203 : : double ueff;
3204 : : #if defined(_DERIVATE)
3205 : : double ueff_Vgate_sourcep;
3206 : : double ueff_Vdrainp_sourcep;
3207 : : double ueff_Vbulk_sourcep;
3208 : : #endif
3209 : : double Denomi;
3210 : : #if defined(_DERIVATE)
3211 : : double Denomi_Vgate_sourcep;
3212 : : double Denomi_Vdrainp_sourcep;
3213 : : double Denomi_Vbulk_sourcep;
3214 : : #endif
3215 : : double Abulk;
3216 : : #if defined(_DERIVATE)
3217 : : double Abulk_Vgate_sourcep;
3218 : : double Abulk_Vdrainp_sourcep;
3219 : : double Abulk_Vbulk_sourcep;
3220 : : #endif
3221 : : double T8;
3222 : : #if defined(_DERIVATE)
3223 : : double T8_Vgate_sourcep;
3224 : : double T8_Vdrainp_sourcep;
3225 : : double T8_Vbulk_sourcep;
3226 : : #endif
3227 : : double Abulk0;
3228 : : #if defined(_DERIVATE)
3229 : : double Abulk0_Vgate_sourcep;
3230 : : double Abulk0_Vdrainp_sourcep;
3231 : : double Abulk0_Vbulk_sourcep;
3232 : : #endif
3233 : : #if defined(_DERIVATE)
3234 : : double tmp1_Vdrainp_sourcep;
3235 : : double tmp1_Vbulk_sourcep;
3236 : : #endif
3237 : : double Rds;
3238 : : #if defined(_DERIVATE)
3239 : : double Rds_Vgate_sourcep;
3240 : : double Rds_Vdrainp_sourcep;
3241 : : double Rds_Vbulk_sourcep;
3242 : : #endif
3243 : : double Weff;
3244 : : #if defined(_DERIVATE)
3245 : : double Weff_Vdrainp_sourcep;
3246 : : double Weff_Vgate_sourcep;
3247 : : double Weff_Vbulk_sourcep;
3248 : : #endif
3249 : : double ExpVgst;
3250 : : #if defined(_DERIVATE)
3251 : : double ExpVgst_Vgate_sourcep;
3252 : : double ExpVgst_Vdrainp_sourcep;
3253 : : double ExpVgst_Vbulk_sourcep;
3254 : : #endif
3255 : : double Vgsteff;
3256 : : #if defined(_DERIVATE)
3257 : : double Vgsteff_Vdrainp_sourcep;
3258 : : double Vgsteff_Vgate_sourcep;
3259 : : double Vgsteff_Vbulk_sourcep;
3260 : : #endif
3261 : : double ExpArg;
3262 : : #if defined(_DERIVATE)
3263 : : double ExpArg_Vdrainp_sourcep;
3264 : : double ExpArg_Vgate_sourcep;
3265 : : double ExpArg_Vbulk_sourcep;
3266 : : #endif
3267 : : double VgstNVt;
3268 : : #if defined(_DERIVATE)
3269 : : double VgstNVt_Vdrainp_sourcep;
3270 : : double VgstNVt_Vgate_sourcep;
3271 : : double VgstNVt_Vbulk_sourcep;
3272 : : #endif
3273 : : double T10;
3274 : : #if defined(_DERIVATE)
3275 : : double T10_Vgate_sourcep;
3276 : : double T10_Vdrainp_sourcep;
3277 : : double T10_Vbulk_sourcep;
3278 : : #endif
3279 : : double Vgst;
3280 : : #if defined(_DERIVATE)
3281 : : double Vgst_Vdrainp_sourcep;
3282 : : double Vgst_Vgate_sourcep;
3283 : : double Vgst_Vbulk_sourcep;
3284 : : #endif
3285 : : double Vgs_eff;
3286 : : #if defined(_DERIVATE)
3287 : : double Vgs_eff_Vdrainp_sourcep;
3288 : : double Vgs_eff_Vgate_sourcep;
3289 : : double Vgs_eff_Vbulk_sourcep;
3290 : : #endif
3291 : : #if defined(_DERIVATE)
3292 : : double T5_Vgate_sourcep;
3293 : : double T5_Vdrainp_sourcep;
3294 : : double T5_Vbulk_sourcep;
3295 : : #endif
3296 : : double T6;
3297 : : #if defined(_DERIVATE)
3298 : : double T6_Vgate_sourcep;
3299 : : double T6_Vdrainp_sourcep;
3300 : : double T6_Vbulk_sourcep;
3301 : : #endif
3302 : : double T7;
3303 : : #if defined(_DERIVATE)
3304 : : double T7_Vgate_sourcep;
3305 : : double T7_Vdrainp_sourcep;
3306 : : double T7_Vbulk_sourcep;
3307 : : #endif
3308 : : double n;
3309 : : #if defined(_DERIVATE)
3310 : : double n_Vdrainp_sourcep;
3311 : : double n_Vbulk_sourcep;
3312 : : #endif
3313 : : double tmp4;
3314 : : #if defined(_DERIVATE)
3315 : : double tmp4_Vgate_sourcep;
3316 : : double tmp4_Vdrainp_sourcep;
3317 : : double tmp4_Vbulk_sourcep;
3318 : : #endif
3319 : : #if defined(_DERIVATE)
3320 : : double tmp3_Vdrainp_sourcep;
3321 : : double tmp3_Vbulk_sourcep;
3322 : : #endif
3323 : : double Vth;
3324 : : #if defined(_DERIVATE)
3325 : : double Vth_Vdrainp_sourcep;
3326 : : double Vth_Vbulk_sourcep;
3327 : : #endif
3328 : : double DIBL_Sft;
3329 : : #if defined(_DERIVATE)
3330 : : double DIBL_Sft_Vdrainp_sourcep;
3331 : : double DIBL_Sft_Vbulk_sourcep;
3332 : : #endif
3333 : : double dDIBL_Sft_dVd;
3334 : : #if defined(_DERIVATE)
3335 : : double dDIBL_Sft_dVd_Vdrainp_sourcep;
3336 : : double dDIBL_Sft_dVd_Vbulk_sourcep;
3337 : : #endif
3338 : : double T9;
3339 : : #if defined(_DERIVATE)
3340 : : double T9_Vgate_sourcep;
3341 : : double T9_Vdrainp_sourcep;
3342 : : double T9_Vbulk_sourcep;
3343 : : #endif
3344 : : #if defined(_DERIVATE)
3345 : : double tmp2_Vgate_sourcep;
3346 : : double tmp2_Vdrainp_sourcep;
3347 : : double tmp2_Vbulk_sourcep;
3348 : : #endif
3349 : : double TempRatio;
3350 : : double Delt_vth;
3351 : : #if defined(_DERIVATE)
3352 : : double Delt_vth_Vdrainp_sourcep;
3353 : : double Delt_vth_Vbulk_sourcep;
3354 : : #endif
3355 : : double thetavth;
3356 : : #if defined(_DERIVATE)
3357 : : double thetavth_Vdrainp_sourcep;
3358 : : double thetavth_Vbulk_sourcep;
3359 : : #endif
3360 : : double Theta0;
3361 : : #if defined(_DERIVATE)
3362 : : double Theta0_Vdrainp_sourcep;
3363 : : double Theta0_Vbulk_sourcep;
3364 : : #endif
3365 : : double ltw;
3366 : : #if defined(_DERIVATE)
3367 : : double ltw_Vdrainp_sourcep;
3368 : : double ltw_Vbulk_sourcep;
3369 : : #endif
3370 : : double lt1;
3371 : : #if defined(_DERIVATE)
3372 : : double lt1_Vdrainp_sourcep;
3373 : : double lt1_Vbulk_sourcep;
3374 : : #endif
3375 : : #if defined(_DERIVATE)
3376 : : double T4_Vgate_sourcep;
3377 : : double T4_Vdrainp_sourcep;
3378 : : double T4_Vbulk_sourcep;
3379 : : #endif
3380 : : #if defined(_DERIVATE)
3381 : : double T2_Vgate_sourcep;
3382 : : double T2_Vdrainp_sourcep;
3383 : : double T2_Vbulk_sourcep;
3384 : : #endif
3385 : : double V0;
3386 : : #if defined(_DERIVATE)
3387 : : double T3_Vgate_sourcep;
3388 : : double T3_Vdrainp_sourcep;
3389 : : double T3_Vbulk_sourcep;
3390 : : #endif
3391 : : double Vtm;
3392 : : double Leff;
3393 : : double Xdep;
3394 : : #if defined(_DERIVATE)
3395 : : double Xdep_Vdrainp_sourcep;
3396 : : double Xdep_Vbulk_sourcep;
3397 : : #endif
3398 : : double sqrtPhis;
3399 : : #if defined(_DERIVATE)
3400 : : double sqrtPhis_Vdrainp_sourcep;
3401 : : double sqrtPhis_Vbulk_sourcep;
3402 : : #endif
3403 : : double Phis;
3404 : : #if defined(_DERIVATE)
3405 : : double Phis_Vdrainp_sourcep;
3406 : : double Phis_Vbulk_sourcep;
3407 : : #endif
3408 : : double Vbseff;
3409 : : #if defined(_DERIVATE)
3410 : : double Vbseff_Vdrainp_sourcep;
3411 : : double Vbseff_Vbulk_sourcep;
3412 : : #endif
3413 : : #if defined(_DERIVATE)
3414 : : double T1_Vgate_sourcep;
3415 : : double T1_Vdrainp_sourcep;
3416 : : double T1_Vbulk_sourcep;
3417 : : #endif
3418 : : double Vbs;
3419 : : #if defined(_DERIVATE)
3420 : : double Vbs_Vdrainp_sourcep;
3421 : : double Vbs_Vbulk_sourcep;
3422 : : #endif
3423 : : double Vgs;
3424 : : #if defined(_DERIVATE)
3425 : : double Vgs_Vdrainp_sourcep;
3426 : : double Vgs_Vgate_sourcep;
3427 : : #endif
3428 : : double Vds;
3429 : : #if defined(_DERIVATE)
3430 : : double Vds_Vdrainp_sourcep;
3431 : : #endif
3432 : : double mode;
3433 : : double evbd;
3434 : : #if defined(_DERIVATE)
3435 : : double evbd_Vbulk_sourcep;
3436 : : double evbd_Vdrainp_sourcep;
3437 : : #endif
3438 : : double cbd;
3439 : : #if defined(_DERIVATE)
3440 : : double cbd_Vbulk_sourcep;
3441 : : double cbd_Vdrainp_sourcep;
3442 : : #endif
3443 : : double gbd;
3444 : : #if defined(_DERIVATE)
3445 : : double gbd_Vbulk_sourcep;
3446 : : double gbd_Vdrainp_sourcep;
3447 : : #endif
3448 : : #if defined(_DERIVATE)
3449 : : double T_0_Vgate_sourcep;
3450 : : double T_0_Vdrainp_sourcep;
3451 : : double T_0_Vbulk_sourcep;
3452 : : #endif
3453 : : double evbs;
3454 : : #if defined(_DERIVATE)
3455 : : double evbs_Vbulk_sourcep;
3456 : : #endif
3457 : : double cbs;
3458 : : #if defined(_DERIVATE)
3459 : : double cbs_Vbulk_sourcep;
3460 : : #endif
3461 : : double gbs;
3462 : : #if defined(_DERIVATE)
3463 : : double gbs_Vbulk_sourcep;
3464 : : #endif
3465 : : double temp;
3466 : : #if defined(_DYNAMIC)
3467 : : double vgb;
3468 : : #if defined(_DERIVATE)
3469 : : double vgb_Vgate_sourcep;
3470 : : double vgb_Vbulk_sourcep;
3471 : : #endif
3472 : : #endif
3473 : : double vgd;
3474 : : #if defined(_DERIVATE)
3475 : : double vgd_Vgate_sourcep;
3476 : : double vgd_Vdrainp_sourcep;
3477 : : #endif
3478 : : double vbd;
3479 : : #if defined(_DERIVATE)
3480 : : double vbd_Vbulk_sourcep;
3481 : : double vbd_Vdrainp_sourcep;
3482 : : #endif
3483 : : double vds;
3484 : : #if defined(_DERIVATE)
3485 : : double vds_Vdrainp_sourcep;
3486 : : #endif
3487 : : double vgs;
3488 : : #if defined(_DERIVATE)
3489 : : double vgs_Vgate_sourcep;
3490 : : #endif
3491 : : double vbs;
3492 : : #if defined(_DERIVATE)
3493 : : double vbs_Vbulk_sourcep;
3494 : : #endif
3495 : : #if defined(_DERIVATE)
3496 : 0 : vbs_Vbulk_sourcep=(TYPE);
3497 : : #endif
3498 [ # # ]: 0 : vbs=(TYPE*BP(bulk,sourcep));
3499 : : #if defined(_DERIVATE)
3500 : 0 : vgs_Vgate_sourcep=(TYPE);
3501 : : #endif
3502 [ # # ]: 0 : vgs=(TYPE*BP(gate,sourcep));
3503 : : #if defined(_DERIVATE)
3504 : 0 : vds_Vdrainp_sourcep=(TYPE);
3505 : : #endif
3506 [ # # ]: 0 : vds=(TYPE*BP(drainp,sourcep));
3507 : : #if defined(_DERIVATE)
3508 : 0 : vbd_Vbulk_sourcep=vbs_Vbulk_sourcep;
3509 : 0 : vbd_Vdrainp_sourcep=(-vds_Vdrainp_sourcep);
3510 : : #endif
3511 : 0 : vbd=(vbs-vds);
3512 : : #if defined(_DERIVATE)
3513 : 0 : vgd_Vgate_sourcep=vgs_Vgate_sourcep;
3514 : 0 : vgd_Vdrainp_sourcep=(-vds_Vdrainp_sourcep);
3515 : : #endif
3516 : 0 : vgd=(vgs-vds);
3517 : : #if defined(_DYNAMIC)
3518 : : #if defined(_DERIVATE)
3519 : 0 : vgb_Vgate_sourcep=vgs_Vgate_sourcep;
3520 : 0 : vgb_Vbulk_sourcep=(-vbs_Vbulk_sourcep);
3521 : : #endif
3522 : 0 : vgb=(vgs-vbs);
3523 : : #endif
3524 : 0 : temp=_circuit_temp;
3525 [ # # ]: 0 : if
3526 : : (SourceSatCurrent<=0.0)
3527 : : {
3528 : : #if defined(_DERIVATE)
3529 : 0 : gbs_Vbulk_sourcep=0.0;
3530 : : #endif
3531 : 0 : gbs=GMIN;
3532 : : #if defined(_DERIVATE)
3533 : 0 : cbs_Vbulk_sourcep=((gbs_Vbulk_sourcep*vbs)+(gbs*vbs_Vbulk_sourcep));
3534 : : #endif
3535 : 0 : cbs=(gbs*vbs);
3536 : : }
3537 : : else
3538 : : {
3539 [ # # ]: 0 : if
3540 : : (IJTH==0.0)
3541 : : {
3542 : : {
3543 : 0 : double m00_exp(d00_exp0,(vbs/Nvtm))
3544 : : #if defined(_DERIVATE)
3545 : : #define d10_exp0 d00_exp0
3546 : : #endif
3547 : : #if defined(_DERIVATE)
3548 : 0 : evbs_Vbulk_sourcep=(vbs_Vbulk_sourcep/Nvtm)*d10_exp0;
3549 : : #endif
3550 : 0 : evbs=d00_exp0;
3551 : : }
3552 : : #if defined(_DYNAMIC)
3553 : : #if defined(_DERIVATE)
3554 : 0 : gbs_Vbulk_sourcep=((SourceSatCurrent*evbs_Vbulk_sourcep)/Nvtm);
3555 : : #endif
3556 : 0 : gbs=(((SourceSatCurrent*evbs)/Nvtm)+GMIN);
3557 : : #endif
3558 : : #if defined(_DERIVATE)
3559 : 0 : cbs_Vbulk_sourcep=((SourceSatCurrent*evbs_Vbulk_sourcep)+(GMIN*vbs_Vbulk_sourcep));
3560 : : #endif
3561 : 0 : cbs=((SourceSatCurrent*(evbs-1.0))+(GMIN*vbs));
3562 : : }
3563 : : else
3564 : : {
3565 [ # # ]: 0 : if
3566 : : (vbs<vjsm)
3567 : : {
3568 : : {
3569 : 0 : double m00_exp(d00_exp0,(vbs/Nvtm))
3570 : : #if defined(_DERIVATE)
3571 : : #define d10_exp0 d00_exp0
3572 : : #endif
3573 : : #if defined(_DERIVATE)
3574 : 0 : evbs_Vbulk_sourcep=(vbs_Vbulk_sourcep/Nvtm)*d10_exp0;
3575 : : #endif
3576 : 0 : evbs=d00_exp0;
3577 : : }
3578 : : #if defined(_DYNAMIC)
3579 : : #if defined(_DERIVATE)
3580 : 0 : gbs_Vbulk_sourcep=((SourceSatCurrent*evbs_Vbulk_sourcep)/Nvtm);
3581 : : #endif
3582 : 0 : gbs=(((SourceSatCurrent*evbs)/Nvtm)+GMIN);
3583 : : #endif
3584 : : #if defined(_DERIVATE)
3585 : 0 : cbs_Vbulk_sourcep=((SourceSatCurrent*evbs_Vbulk_sourcep)+(GMIN*vbs_Vbulk_sourcep));
3586 : : #endif
3587 : 0 : cbs=((SourceSatCurrent*(evbs-1.0))+(GMIN*vbs));
3588 : : }
3589 : : else
3590 : : {
3591 [ # # ]: 0 : if
3592 : : (VERSION==3.24)
3593 : : {
3594 : : #if defined(_DERIVATE)
3595 : 0 : T_0_Vgate_sourcep=0.0;
3596 : 0 : T_0_Vdrainp_sourcep=0.0;
3597 : 0 : T_0_Vbulk_sourcep=0.0;
3598 : : #endif
3599 : 0 : T_0=(IsEvjsm/Nvtm);
3600 : : #if defined(_DERIVATE)
3601 : 0 : cbs_Vbulk_sourcep=((GMIN*vbs_Vbulk_sourcep)+((T_0_Vbulk_sourcep*(vbs-vjsm))+(T_0*vbs_Vbulk_sourcep)));
3602 : : #endif
3603 : 0 : cbs=(((IsEvjsm-SourceSatCurrent)+(GMIN*vbs))+(T_0*(vbs-vjsm)));
3604 : : }
3605 : : else
3606 : : {
3607 : : #if defined(_DERIVATE)
3608 : 0 : T_0_Vgate_sourcep=0.0;
3609 : 0 : T_0_Vdrainp_sourcep=0.0;
3610 : 0 : T_0_Vbulk_sourcep=0.0;
3611 : : #endif
3612 : 0 : T_0=((SourceSatCurrent+IJTH)/Nvtm);
3613 : : #if defined(_DERIVATE)
3614 : 0 : cbs_Vbulk_sourcep=((GMIN*vbs_Vbulk_sourcep)+((T_0_Vbulk_sourcep*(vbs-vjsm))+(T_0*vbs_Vbulk_sourcep)));
3615 : : #endif
3616 : 0 : cbs=((IJTH+(GMIN*vbs))+(T_0*(vbs-vjsm)));
3617 : : }
3618 : : #if defined(_DYNAMIC)
3619 : : #if defined(_DERIVATE)
3620 : 0 : gbs_Vbulk_sourcep=0.0;
3621 : : #endif
3622 : 0 : gbs=(T_0+GMIN);
3623 : : #endif
3624 : : }
3625 : : }
3626 : : }
3627 [ # # ]: 0 : if
3628 : : (DrainSatCurrent<=0.0)
3629 : : {
3630 : : #if defined(_DERIVATE)
3631 : 0 : gbd_Vbulk_sourcep=0.0;
3632 : 0 : gbd_Vdrainp_sourcep=0.0;
3633 : : #endif
3634 : 0 : gbd=GMIN;
3635 : : #if defined(_DERIVATE)
3636 : 0 : cbd_Vbulk_sourcep=((gbd_Vbulk_sourcep*vbd)+(gbd*vbd_Vbulk_sourcep));
3637 : 0 : cbd_Vdrainp_sourcep=((gbd_Vdrainp_sourcep*vbd)+(gbd*vbd_Vdrainp_sourcep));
3638 : : #endif
3639 : 0 : cbd=(gbd*vbd);
3640 : : }
3641 : : else
3642 : : {
3643 [ # # ]: 0 : if
3644 : : (IJTH==0.0)
3645 : : {
3646 : : {
3647 : 0 : double m00_exp(d00_exp0,(vbd/Nvtm))
3648 : : #if defined(_DERIVATE)
3649 : : #define d10_exp0 d00_exp0
3650 : : #endif
3651 : : #if defined(_DERIVATE)
3652 : 0 : evbd_Vbulk_sourcep=(vbd_Vbulk_sourcep/Nvtm)*d10_exp0;
3653 : 0 : evbd_Vdrainp_sourcep=(vbd_Vdrainp_sourcep/Nvtm)*d10_exp0;
3654 : : #endif
3655 : 0 : evbd=d00_exp0;
3656 : : }
3657 : : #if defined(_DYNAMIC)
3658 : : #if defined(_DERIVATE)
3659 : 0 : gbd_Vbulk_sourcep=((DrainSatCurrent*evbd_Vbulk_sourcep)/Nvtm);
3660 : 0 : gbd_Vdrainp_sourcep=((DrainSatCurrent*evbd_Vdrainp_sourcep)/Nvtm);
3661 : : #endif
3662 : 0 : gbd=(((DrainSatCurrent*evbd)/Nvtm)+GMIN);
3663 : : #endif
3664 : : #if defined(_DERIVATE)
3665 : 0 : cbd_Vbulk_sourcep=((DrainSatCurrent*evbd_Vbulk_sourcep)+(GMIN*vbd_Vbulk_sourcep));
3666 : 0 : cbd_Vdrainp_sourcep=((DrainSatCurrent*evbd_Vdrainp_sourcep)+(GMIN*vbd_Vdrainp_sourcep));
3667 : : #endif
3668 : 0 : cbd=((DrainSatCurrent*(evbd-1.0))+(GMIN*vbd));
3669 : : }
3670 : : else
3671 : : {
3672 [ # # ]: 0 : if
3673 : : (vbd<vjdm)
3674 : : {
3675 : : {
3676 : 0 : double m00_exp(d00_exp0,(vbd/Nvtm))
3677 : : #if defined(_DERIVATE)
3678 : : #define d10_exp0 d00_exp0
3679 : : #endif
3680 : : #if defined(_DERIVATE)
3681 : 0 : evbd_Vbulk_sourcep=(vbd_Vbulk_sourcep/Nvtm)*d10_exp0;
3682 : 0 : evbd_Vdrainp_sourcep=(vbd_Vdrainp_sourcep/Nvtm)*d10_exp0;
3683 : : #endif
3684 : 0 : evbd=d00_exp0;
3685 : : }
3686 : : #if defined(_DYNAMIC)
3687 : : #if defined(_DERIVATE)
3688 : 0 : gbd_Vbulk_sourcep=((DrainSatCurrent*evbd_Vbulk_sourcep)/Nvtm);
3689 : 0 : gbd_Vdrainp_sourcep=((DrainSatCurrent*evbd_Vdrainp_sourcep)/Nvtm);
3690 : : #endif
3691 : 0 : gbd=(((DrainSatCurrent*evbd)/Nvtm)+GMIN);
3692 : : #endif
3693 : : #if defined(_DERIVATE)
3694 : 0 : cbd_Vbulk_sourcep=((DrainSatCurrent*evbd_Vbulk_sourcep)+(GMIN*vbd_Vbulk_sourcep));
3695 : 0 : cbd_Vdrainp_sourcep=((DrainSatCurrent*evbd_Vdrainp_sourcep)+(GMIN*vbd_Vdrainp_sourcep));
3696 : : #endif
3697 : 0 : cbd=((DrainSatCurrent*(evbd-1.0))+(GMIN*vbd));
3698 : : }
3699 : : else
3700 : : {
3701 [ # # ]: 0 : if
3702 : : (VERSION==3.24)
3703 : : {
3704 : : #if defined(_DERIVATE)
3705 : 0 : T_0_Vgate_sourcep=0.0;
3706 : 0 : T_0_Vdrainp_sourcep=0.0;
3707 : 0 : T_0_Vbulk_sourcep=0.0;
3708 : : #endif
3709 : 0 : T_0=(IsEvjdm/Nvtm);
3710 : : #if defined(_DERIVATE)
3711 : 0 : cbd_Vbulk_sourcep=((GMIN*vbd_Vbulk_sourcep)+((T_0_Vbulk_sourcep*(vbd-vjdm))+(T_0*vbd_Vbulk_sourcep)));
3712 : 0 : cbd_Vdrainp_sourcep=((GMIN*vbd_Vdrainp_sourcep)+((T_0_Vdrainp_sourcep*(vbd-vjdm))+(T_0*vbd_Vdrainp_sourcep)));
3713 : : #endif
3714 : 0 : cbd=(((IsEvjdm-DrainSatCurrent)+(GMIN*vbd))+(T_0*(vbd-vjdm)));
3715 : : }
3716 : : else
3717 : : {
3718 : : #if defined(_DERIVATE)
3719 : 0 : T_0_Vgate_sourcep=0.0;
3720 : 0 : T_0_Vdrainp_sourcep=0.0;
3721 : 0 : T_0_Vbulk_sourcep=0.0;
3722 : : #endif
3723 : 0 : T_0=((DrainSatCurrent+IJTH)/Nvtm);
3724 : : #if defined(_DERIVATE)
3725 : 0 : cbd_Vbulk_sourcep=((GMIN*vbd_Vbulk_sourcep)+((T_0_Vbulk_sourcep*(vbd-vjdm))+(T_0*vbd_Vbulk_sourcep)));
3726 : 0 : cbd_Vdrainp_sourcep=((GMIN*vbd_Vdrainp_sourcep)+((T_0_Vdrainp_sourcep*(vbd-vjdm))+(T_0*vbd_Vdrainp_sourcep)));
3727 : : #endif
3728 : 0 : cbd=((IJTH+(GMIN*vbd))+(T_0*(vbd-vjdm)));
3729 : : }
3730 : : #if defined(_DYNAMIC)
3731 : : #if defined(_DERIVATE)
3732 : 0 : gbd_Vbulk_sourcep=0.0;
3733 : 0 : gbd_Vdrainp_sourcep=0.0;
3734 : : #endif
3735 : 0 : gbd=(T_0+GMIN);
3736 : : #endif
3737 : : }
3738 : : }
3739 : : }
3740 [ # # ]: 0 : if
3741 : : (vds>=0.0)
3742 : : {
3743 : 0 : mode=1;
3744 : : #if defined(_DERIVATE)
3745 : 0 : Vds_Vdrainp_sourcep=vds_Vdrainp_sourcep;
3746 : : #endif
3747 : 0 : Vds=vds;
3748 : : #if defined(_DERIVATE)
3749 : 0 : Vgs_Vdrainp_sourcep=0.0;
3750 : 0 : Vgs_Vgate_sourcep=vgs_Vgate_sourcep;
3751 : : #endif
3752 : 0 : Vgs=vgs;
3753 : : #if defined(_DERIVATE)
3754 : 0 : Vbs_Vdrainp_sourcep=0.0;
3755 : 0 : Vbs_Vbulk_sourcep=vbs_Vbulk_sourcep;
3756 : : #endif
3757 : 0 : Vbs=vbs;
3758 : : }
3759 : : else
3760 : : {
3761 : 0 : mode=(-1);
3762 : : #if defined(_DERIVATE)
3763 : 0 : Vds_Vdrainp_sourcep=(-vds_Vdrainp_sourcep);
3764 : : #endif
3765 : 0 : Vds=(-vds);
3766 : : #if defined(_DERIVATE)
3767 : 0 : Vgs_Vdrainp_sourcep=vgd_Vdrainp_sourcep;
3768 : 0 : Vgs_Vgate_sourcep=vgd_Vgate_sourcep;
3769 : : #endif
3770 : 0 : Vgs=vgd;
3771 : : #if defined(_DERIVATE)
3772 : 0 : Vbs_Vdrainp_sourcep=vbd_Vdrainp_sourcep;
3773 : 0 : Vbs_Vbulk_sourcep=vbd_Vbulk_sourcep;
3774 : : #endif
3775 : 0 : Vbs=vbd;
3776 : : }
3777 : : #if defined(_DERIVATE)
3778 : 0 : T_0_Vgate_sourcep=0.0;
3779 : 0 : T_0_Vdrainp_sourcep=Vbs_Vdrainp_sourcep;
3780 : 0 : T_0_Vbulk_sourcep=Vbs_Vbulk_sourcep;
3781 : : #endif
3782 : 0 : T_0=((Vbs-vbsc)-0.001);
3783 : : {
3784 : 0 : double m00_sqrt(d00_sqrt0,((T_0*T_0)-(0.004*vbsc)))
3785 : : #if defined(_DERIVATE)
3786 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T_0*T_0)-(0.004*vbsc)))
3787 : : #endif
3788 : : #if defined(_DERIVATE)
3789 : 0 : T1_Vgate_sourcep=0.0;
3790 : 0 : T1_Vdrainp_sourcep=((T_0_Vdrainp_sourcep*T_0)+(T_0*T_0_Vdrainp_sourcep))*d10_sqrt0;
3791 : 0 : T1_Vbulk_sourcep=((T_0_Vbulk_sourcep*T_0)+(T_0*T_0_Vbulk_sourcep))*d10_sqrt0;
3792 : : #endif
3793 : 0 : T1=d00_sqrt0;
3794 : : }
3795 : : #if defined(_DERIVATE)
3796 : 0 : Vbseff_Vdrainp_sourcep=(0.5*(T_0_Vdrainp_sourcep+T1_Vdrainp_sourcep));
3797 : 0 : Vbseff_Vbulk_sourcep=(0.5*(T_0_Vbulk_sourcep+T1_Vbulk_sourcep));
3798 : : #endif
3799 : 0 : Vbseff=(vbsc+(0.5*(T_0+T1)));
3800 [ # # ]: 0 : if
3801 : : (Vbseff<Vbs)
3802 : : {
3803 : : #if defined(_DERIVATE)
3804 : 0 : Vbseff_Vdrainp_sourcep=Vbs_Vdrainp_sourcep;
3805 : 0 : Vbseff_Vbulk_sourcep=Vbs_Vbulk_sourcep;
3806 : : #endif
3807 : 0 : Vbseff=Vbs;
3808 : : }
3809 [ # # ]: 0 : if
3810 : : (Vbseff>0.0)
3811 : : {
3812 : : #if defined(_DERIVATE)
3813 : 0 : T_0_Vgate_sourcep=0.0;
3814 : 0 : T_0_Vdrainp_sourcep=(-phi*Vbseff_Vdrainp_sourcep/(phi+Vbseff)/(phi+Vbseff));
3815 : 0 : T_0_Vbulk_sourcep=(-phi*Vbseff_Vbulk_sourcep/(phi+Vbseff)/(phi+Vbseff));
3816 : : #endif
3817 : 0 : T_0=(phi/(phi+Vbseff));
3818 : : #if defined(_DERIVATE)
3819 : 0 : Phis_Vdrainp_sourcep=(phi*T_0_Vdrainp_sourcep);
3820 : 0 : Phis_Vbulk_sourcep=(phi*T_0_Vbulk_sourcep);
3821 : : #endif
3822 : 0 : Phis=(phi*T_0);
3823 : : #if defined(_DERIVATE)
3824 : 0 : sqrtPhis_Vdrainp_sourcep=(-phis3*(0.5*Vbseff_Vdrainp_sourcep)/(phi+(0.5*Vbseff))/(phi+(0.5*Vbseff)));
3825 : 0 : sqrtPhis_Vbulk_sourcep=(-phis3*(0.5*Vbseff_Vbulk_sourcep)/(phi+(0.5*Vbseff))/(phi+(0.5*Vbseff)));
3826 : : #endif
3827 : 0 : sqrtPhis=(phis3/(phi+(0.5*Vbseff)));
3828 : : }
3829 : : else
3830 : : {
3831 : : #if defined(_DERIVATE)
3832 : 0 : Phis_Vdrainp_sourcep=(-Vbseff_Vdrainp_sourcep);
3833 : 0 : Phis_Vbulk_sourcep=(-Vbseff_Vbulk_sourcep);
3834 : : #endif
3835 : 0 : Phis=(phi-Vbseff);
3836 : : {
3837 : 0 : double m00_sqrt(d00_sqrt0,Phis)
3838 : : #if defined(_DERIVATE)
3839 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,Phis)
3840 : : #endif
3841 : : #if defined(_DERIVATE)
3842 : 0 : sqrtPhis_Vdrainp_sourcep=Phis_Vdrainp_sourcep*d10_sqrt0;
3843 : 0 : sqrtPhis_Vbulk_sourcep=Phis_Vbulk_sourcep*d10_sqrt0;
3844 : : #endif
3845 : 0 : sqrtPhis=d00_sqrt0;
3846 : : }
3847 : : }
3848 : : #if defined(_DERIVATE)
3849 : 0 : Xdep_Vdrainp_sourcep=((Xdep0*sqrtPhis_Vdrainp_sourcep)/sqrtPhi);
3850 : 0 : Xdep_Vbulk_sourcep=((Xdep0*sqrtPhis_Vbulk_sourcep)/sqrtPhi);
3851 : : #endif
3852 : 0 : Xdep=((Xdep0*sqrtPhis)/sqrtPhi);
3853 : 0 : Leff=leff;
3854 : 0 : Vtm=vtm;
3855 : : {
3856 : 0 : double m00_sqrt(d00_sqrt0,Xdep)
3857 : : #if defined(_DERIVATE)
3858 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,Xdep)
3859 : : #endif
3860 : : #if defined(_DERIVATE)
3861 : 0 : T3_Vgate_sourcep=0.0;
3862 : 0 : T3_Vdrainp_sourcep=Xdep_Vdrainp_sourcep*d10_sqrt0;
3863 : 0 : T3_Vbulk_sourcep=Xdep_Vbulk_sourcep*d10_sqrt0;
3864 : : #endif
3865 : 0 : T3=d00_sqrt0;
3866 : : }
3867 : 0 : V0=(vbi-phi);
3868 : : #if defined(_DERIVATE)
3869 : 0 : T_0_Vgate_sourcep=0.0;
3870 : 0 : T_0_Vdrainp_sourcep=(dvt2*Vbseff_Vdrainp_sourcep);
3871 : 0 : T_0_Vbulk_sourcep=(dvt2*Vbseff_Vbulk_sourcep);
3872 : : #endif
3873 : 0 : T_0=(dvt2*Vbseff);
3874 [ # # ]: 0 : if
3875 : : (T_0>=(-0.5))
3876 : : {
3877 : : #if defined(_DERIVATE)
3878 : 0 : T1_Vgate_sourcep=0.0;
3879 : 0 : T1_Vdrainp_sourcep=T_0_Vdrainp_sourcep;
3880 : 0 : T1_Vbulk_sourcep=T_0_Vbulk_sourcep;
3881 : : #endif
3882 : 0 : T1=(1.0+T_0);
3883 : : #if defined(_DERIVATE)
3884 : 0 : T2_Vgate_sourcep=0.0;
3885 : 0 : T2_Vdrainp_sourcep=0.0;
3886 : 0 : T2_Vbulk_sourcep=0.0;
3887 : : #endif
3888 : 0 : T2=dvt2;
3889 : : }
3890 : : else
3891 : : {
3892 : : #if defined(_DERIVATE)
3893 : 0 : T4_Vgate_sourcep=0.0;
3894 : 0 : T4_Vdrainp_sourcep=(-(8.0*T_0_Vdrainp_sourcep)/(3.0+(8.0*T_0))/(3.0+(8.0*T_0)));
3895 : 0 : T4_Vbulk_sourcep=(-(8.0*T_0_Vbulk_sourcep)/(3.0+(8.0*T_0))/(3.0+(8.0*T_0)));
3896 : : #endif
3897 : 0 : T4=(1.0/(3.0+(8.0*T_0)));
3898 : : #if defined(_DERIVATE)
3899 : 0 : T1_Vgate_sourcep=0.0;
3900 : 0 : T1_Vdrainp_sourcep=(((3.0*T_0_Vdrainp_sourcep)*T4)+((1.0+(3.0*T_0))*T4_Vdrainp_sourcep));
3901 : 0 : T1_Vbulk_sourcep=(((3.0*T_0_Vbulk_sourcep)*T4)+((1.0+(3.0*T_0))*T4_Vbulk_sourcep));
3902 : : #endif
3903 : 0 : T1=((1.0+(3.0*T_0))*T4);
3904 : : #if defined(_DERIVATE)
3905 : 0 : T2_Vgate_sourcep=0.0;
3906 : 0 : T2_Vdrainp_sourcep=(((dvt2*T4_Vdrainp_sourcep)*T4)+((dvt2*T4)*T4_Vdrainp_sourcep));
3907 : 0 : T2_Vbulk_sourcep=(((dvt2*T4_Vbulk_sourcep)*T4)+((dvt2*T4)*T4_Vbulk_sourcep));
3908 : : #endif
3909 : 0 : T2=((dvt2*T4)*T4);
3910 : : }
3911 : : #if defined(_DERIVATE)
3912 : 0 : lt1_Vdrainp_sourcep=(((factor1*T3_Vdrainp_sourcep)*T1)+((factor1*T3)*T1_Vdrainp_sourcep));
3913 : 0 : lt1_Vbulk_sourcep=(((factor1*T3_Vbulk_sourcep)*T1)+((factor1*T3)*T1_Vbulk_sourcep));
3914 : : #endif
3915 : 0 : lt1=((factor1*T3)*T1);
3916 : : #if defined(_DERIVATE)
3917 : 0 : T_0_Vgate_sourcep=0.0;
3918 : 0 : T_0_Vdrainp_sourcep=(dvt2w*Vbseff_Vdrainp_sourcep);
3919 : 0 : T_0_Vbulk_sourcep=(dvt2w*Vbseff_Vbulk_sourcep);
3920 : : #endif
3921 : 0 : T_0=(dvt2w*Vbseff);
3922 [ # # ]: 0 : if
3923 : : (T_0>=(-0.5))
3924 : : {
3925 : : #if defined(_DERIVATE)
3926 : 0 : T1_Vgate_sourcep=0.0;
3927 : 0 : T1_Vdrainp_sourcep=T_0_Vdrainp_sourcep;
3928 : 0 : T1_Vbulk_sourcep=T_0_Vbulk_sourcep;
3929 : : #endif
3930 : 0 : T1=(1.0+T_0);
3931 : : #if defined(_DERIVATE)
3932 : 0 : T2_Vgate_sourcep=0.0;
3933 : 0 : T2_Vdrainp_sourcep=0.0;
3934 : 0 : T2_Vbulk_sourcep=0.0;
3935 : : #endif
3936 : 0 : T2=dvt2w;
3937 : : }
3938 : : else
3939 : : {
3940 : : #if defined(_DERIVATE)
3941 : 0 : T4_Vgate_sourcep=0.0;
3942 : 0 : T4_Vdrainp_sourcep=(-(8.0*T_0_Vdrainp_sourcep)/(3.0+(8.0*T_0))/(3.0+(8.0*T_0)));
3943 : 0 : T4_Vbulk_sourcep=(-(8.0*T_0_Vbulk_sourcep)/(3.0+(8.0*T_0))/(3.0+(8.0*T_0)));
3944 : : #endif
3945 : 0 : T4=(1.0/(3.0+(8.0*T_0)));
3946 : : #if defined(_DERIVATE)
3947 : 0 : T1_Vgate_sourcep=0.0;
3948 : 0 : T1_Vdrainp_sourcep=(((3.0*T_0_Vdrainp_sourcep)*T4)+((1.0+(3.0*T_0))*T4_Vdrainp_sourcep));
3949 : 0 : T1_Vbulk_sourcep=(((3.0*T_0_Vbulk_sourcep)*T4)+((1.0+(3.0*T_0))*T4_Vbulk_sourcep));
3950 : : #endif
3951 : 0 : T1=((1.0+(3.0*T_0))*T4);
3952 : : #if defined(_DERIVATE)
3953 : 0 : T2_Vgate_sourcep=0.0;
3954 : 0 : T2_Vdrainp_sourcep=(((dvt2w*T4_Vdrainp_sourcep)*T4)+((dvt2w*T4)*T4_Vdrainp_sourcep));
3955 : 0 : T2_Vbulk_sourcep=(((dvt2w*T4_Vbulk_sourcep)*T4)+((dvt2w*T4)*T4_Vbulk_sourcep));
3956 : : #endif
3957 : 0 : T2=((dvt2w*T4)*T4);
3958 : : }
3959 : : #if defined(_DERIVATE)
3960 : 0 : ltw_Vdrainp_sourcep=(((factor1*T3_Vdrainp_sourcep)*T1)+((factor1*T3)*T1_Vdrainp_sourcep));
3961 : 0 : ltw_Vbulk_sourcep=(((factor1*T3_Vbulk_sourcep)*T1)+((factor1*T3)*T1_Vbulk_sourcep));
3962 : : #endif
3963 : 0 : ltw=((factor1*T3)*T1);
3964 : : #if defined(_DERIVATE)
3965 : 0 : T_0_Vgate_sourcep=0.0;
3966 : 0 : T_0_Vdrainp_sourcep=(-(((-0.5)*dvt1)*Leff)*lt1_Vdrainp_sourcep/lt1/lt1);
3967 : 0 : T_0_Vbulk_sourcep=(-(((-0.5)*dvt1)*Leff)*lt1_Vbulk_sourcep/lt1/lt1);
3968 : : #endif
3969 : 0 : T_0=((((-0.5)*dvt1)*Leff)/lt1);
3970 [ # # ]: 0 : if
3971 : : (T_0>(-34.0))
3972 : : {
3973 : : {
3974 : 0 : double m00_exp(d00_exp0,T_0)
3975 : : #if defined(_DERIVATE)
3976 : : #define d10_exp0 d00_exp0
3977 : : #endif
3978 : : #if defined(_DERIVATE)
3979 : 0 : T1_Vgate_sourcep=0.0;
3980 : 0 : T1_Vdrainp_sourcep=T_0_Vdrainp_sourcep*d10_exp0;
3981 : 0 : T1_Vbulk_sourcep=T_0_Vbulk_sourcep*d10_exp0;
3982 : : #endif
3983 : 0 : T1=d00_exp0;
3984 : : }
3985 : : #if defined(_DERIVATE)
3986 : 0 : Theta0_Vdrainp_sourcep=((T1_Vdrainp_sourcep*(1.0+(2.0*T1)))+(T1*(2.0*T1_Vdrainp_sourcep)));
3987 : 0 : Theta0_Vbulk_sourcep=((T1_Vbulk_sourcep*(1.0+(2.0*T1)))+(T1*(2.0*T1_Vbulk_sourcep)));
3988 : : #endif
3989 : 0 : Theta0=(T1*(1.0+(2.0*T1)));
3990 : : }
3991 : : else
3992 : : {
3993 : : #if defined(_DERIVATE)
3994 : 0 : T1_Vgate_sourcep=0.0;
3995 : 0 : T1_Vdrainp_sourcep=0.0;
3996 : 0 : T1_Vbulk_sourcep=0.0;
3997 : : #endif
3998 : 0 : T1=1.713908431e-15;
3999 : : #if defined(_DERIVATE)
4000 : 0 : Theta0_Vdrainp_sourcep=((T1_Vdrainp_sourcep*(1.0+(2.0*T1)))+(T1*(2.0*T1_Vdrainp_sourcep)));
4001 : 0 : Theta0_Vbulk_sourcep=((T1_Vbulk_sourcep*(1.0+(2.0*T1)))+(T1*(2.0*T1_Vbulk_sourcep)));
4002 : : #endif
4003 : 0 : Theta0=(T1*(1.0+(2.0*T1)));
4004 : : }
4005 : : #if defined(_DERIVATE)
4006 : 0 : thetavth_Vdrainp_sourcep=(dvt0*Theta0_Vdrainp_sourcep);
4007 : 0 : thetavth_Vbulk_sourcep=(dvt0*Theta0_Vbulk_sourcep);
4008 : : #endif
4009 : 0 : thetavth=(dvt0*Theta0);
4010 : : #if defined(_DERIVATE)
4011 : 0 : Delt_vth_Vdrainp_sourcep=thetavth_Vdrainp_sourcep*V0;
4012 : 0 : Delt_vth_Vbulk_sourcep=thetavth_Vbulk_sourcep*V0;
4013 : : #endif
4014 : 0 : Delt_vth=(thetavth*V0);
4015 : : #if defined(_DERIVATE)
4016 : 0 : T_0_Vgate_sourcep=0.0;
4017 : 0 : T_0_Vdrainp_sourcep=(-((((-0.5)*dvt1w)*weff)*Leff)*ltw_Vdrainp_sourcep/ltw/ltw);
4018 : 0 : T_0_Vbulk_sourcep=(-((((-0.5)*dvt1w)*weff)*Leff)*ltw_Vbulk_sourcep/ltw/ltw);
4019 : : #endif
4020 : 0 : T_0=(((((-0.5)*dvt1w)*weff)*Leff)/ltw);
4021 [ # # ]: 0 : if
4022 : : (T_0>(-34.0))
4023 : : {
4024 : : {
4025 : 0 : double m00_exp(d00_exp0,T_0)
4026 : : #if defined(_DERIVATE)
4027 : : #define d10_exp0 d00_exp0
4028 : : #endif
4029 : : #if defined(_DERIVATE)
4030 : 0 : T1_Vgate_sourcep=0.0;
4031 : 0 : T1_Vdrainp_sourcep=T_0_Vdrainp_sourcep*d10_exp0;
4032 : 0 : T1_Vbulk_sourcep=T_0_Vbulk_sourcep*d10_exp0;
4033 : : #endif
4034 : 0 : T1=d00_exp0;
4035 : : }
4036 : : #if defined(_DERIVATE)
4037 : 0 : T2_Vgate_sourcep=0.0;
4038 : 0 : T2_Vdrainp_sourcep=((T1_Vdrainp_sourcep*(1.0+(2.0*T1)))+(T1*(2.0*T1_Vdrainp_sourcep)));
4039 : 0 : T2_Vbulk_sourcep=((T1_Vbulk_sourcep*(1.0+(2.0*T1)))+(T1*(2.0*T1_Vbulk_sourcep)));
4040 : : #endif
4041 : 0 : T2=(T1*(1.0+(2.0*T1)));
4042 : : }
4043 : : else
4044 : : {
4045 : : #if defined(_DERIVATE)
4046 : 0 : T1_Vgate_sourcep=0.0;
4047 : 0 : T1_Vdrainp_sourcep=0.0;
4048 : 0 : T1_Vbulk_sourcep=0.0;
4049 : : #endif
4050 : 0 : T1=1.713908431e-15;
4051 : : #if defined(_DERIVATE)
4052 : 0 : T2_Vgate_sourcep=0.0;
4053 : 0 : T2_Vdrainp_sourcep=((T1_Vdrainp_sourcep*(1.0+(2.0*T1)))+(T1*(2.0*T1_Vdrainp_sourcep)));
4054 : 0 : T2_Vbulk_sourcep=((T1_Vbulk_sourcep*(1.0+(2.0*T1)))+(T1*(2.0*T1_Vbulk_sourcep)));
4055 : : #endif
4056 : 0 : T2=(T1*(1.0+(2.0*T1)));
4057 : : }
4058 : : #if defined(_DERIVATE)
4059 : 0 : T_0_Vgate_sourcep=0.0;
4060 : 0 : T_0_Vdrainp_sourcep=(dvt0w*T2_Vdrainp_sourcep);
4061 : 0 : T_0_Vbulk_sourcep=(dvt0w*T2_Vbulk_sourcep);
4062 : : #endif
4063 : 0 : T_0=(dvt0w*T2);
4064 : : #if defined(_DERIVATE)
4065 : 0 : T2_Vgate_sourcep=0.0;
4066 : 0 : T2_Vdrainp_sourcep=T_0_Vdrainp_sourcep*V0;
4067 : 0 : T2_Vbulk_sourcep=T_0_Vbulk_sourcep*V0;
4068 : : #endif
4069 : 0 : T2=(T_0*V0);
4070 : 0 : TempRatio=((temp/tnom)-1.0);
4071 : : {
4072 : 0 : double m00_sqrt(d00_sqrt0,(1.0+(nlx/Leff)))
4073 : : #if defined(_DERIVATE)
4074 : 0 : T_0_Vgate_sourcep=0.0;
4075 : 0 : T_0_Vdrainp_sourcep=0.0;
4076 : 0 : T_0_Vbulk_sourcep=0.0;
4077 : : #endif
4078 : 0 : T_0=d00_sqrt0;
4079 : : }
4080 : : #if defined(_DERIVATE)
4081 : 0 : T1_Vgate_sourcep=0.0;
4082 : 0 : T1_Vdrainp_sourcep=((k1ox*T_0_Vdrainp_sourcep)*sqrtPhi+(kt2*Vbseff_Vdrainp_sourcep)*TempRatio);
4083 : 0 : T1_Vbulk_sourcep=((k1ox*T_0_Vbulk_sourcep)*sqrtPhi+(kt2*Vbseff_Vbulk_sourcep)*TempRatio);
4084 : : #endif
4085 : 0 : T1=(((k1ox*(T_0-1.0))*sqrtPhi)+(((kt1+(kt1l/Leff))+(kt2*Vbseff))*TempRatio));
4086 : : #if defined(_DERIVATE)
4087 : 0 : tmp2_Vgate_sourcep=0.0;
4088 : 0 : tmp2_Vdrainp_sourcep=0.0;
4089 : 0 : tmp2_Vbulk_sourcep=0.0;
4090 : : #endif
4091 : 0 : tmp2=((tox*phi)/(weff+w0));
4092 : : #if defined(_DERIVATE)
4093 : 0 : T3_Vgate_sourcep=0.0;
4094 : 0 : T3_Vdrainp_sourcep=(etab*Vbseff_Vdrainp_sourcep);
4095 : 0 : T3_Vbulk_sourcep=(etab*Vbseff_Vbulk_sourcep);
4096 : : #endif
4097 : 0 : T3=(eta0+(etab*Vbseff));
4098 [ # # ]: 0 : if
4099 : : (T3<1.0e-4)
4100 : : {
4101 : : #if defined(_DERIVATE)
4102 : 0 : T9_Vgate_sourcep=0.0;
4103 : 0 : T9_Vdrainp_sourcep=(-(-(2.0e4*T3_Vdrainp_sourcep))/(3.0-(2.0e4*T3))/(3.0-(2.0e4*T3)));
4104 : 0 : T9_Vbulk_sourcep=(-(-(2.0e4*T3_Vbulk_sourcep))/(3.0-(2.0e4*T3))/(3.0-(2.0e4*T3)));
4105 : : #endif
4106 : 0 : T9=(1.0/(3.0-(2.0e4*T3)));
4107 : : #if defined(_DERIVATE)
4108 : 0 : T3_Vgate_sourcep=0.0;
4109 : 0 : T3_Vdrainp_sourcep=(((-T3_Vdrainp_sourcep)*T9)+((2.0e-4-T3)*T9_Vdrainp_sourcep));
4110 : 0 : T3_Vbulk_sourcep=(((-T3_Vbulk_sourcep)*T9)+((2.0e-4-T3)*T9_Vbulk_sourcep));
4111 : : #endif
4112 : 0 : T3=((2.0e-4-T3)*T9);
4113 : : #if defined(_DERIVATE)
4114 : 0 : T4_Vgate_sourcep=0.0;
4115 : 0 : T4_Vdrainp_sourcep=((T9_Vdrainp_sourcep*T9)+(T9*T9_Vdrainp_sourcep));
4116 : 0 : T4_Vbulk_sourcep=((T9_Vbulk_sourcep*T9)+(T9*T9_Vbulk_sourcep));
4117 : : #endif
4118 : 0 : T4=(T9*T9);
4119 : : }
4120 : : else
4121 : : {
4122 : : #if defined(_DERIVATE)
4123 : 0 : T4_Vgate_sourcep=0.0;
4124 : 0 : T4_Vdrainp_sourcep=0.0;
4125 : 0 : T4_Vbulk_sourcep=0.0;
4126 : : #endif
4127 : 0 : T4=1.0;
4128 : : }
4129 : : #if defined(_DERIVATE)
4130 : 0 : dDIBL_Sft_dVd_Vdrainp_sourcep=T3_Vdrainp_sourcep*theta0vb0;
4131 : 0 : dDIBL_Sft_dVd_Vbulk_sourcep=T3_Vbulk_sourcep*theta0vb0;
4132 : : #endif
4133 : 0 : dDIBL_Sft_dVd=(T3*theta0vb0);
4134 : : #if defined(_DERIVATE)
4135 : 0 : DIBL_Sft_Vdrainp_sourcep=((dDIBL_Sft_dVd_Vdrainp_sourcep*Vds)+(dDIBL_Sft_dVd*Vds_Vdrainp_sourcep));
4136 : 0 : DIBL_Sft_Vbulk_sourcep=dDIBL_Sft_dVd_Vbulk_sourcep*Vds;
4137 : : #endif
4138 : 0 : DIBL_Sft=(dDIBL_Sft_dVd*Vds);
4139 : : #if defined(_DERIVATE)
4140 : 0 : Vth_Vdrainp_sourcep=(((((((k1ox*sqrtPhis_Vdrainp_sourcep)-(k2ox*Vbseff_Vdrainp_sourcep))-Delt_vth_Vdrainp_sourcep)-T2_Vdrainp_sourcep)+(((k3b*Vbseff_Vdrainp_sourcep)*tmp2)+((k3+(k3b*Vbseff))*tmp2_Vdrainp_sourcep)))+T1_Vdrainp_sourcep)-DIBL_Sft_Vdrainp_sourcep);
4141 : 0 : Vth_Vbulk_sourcep=(((((((k1ox*sqrtPhis_Vbulk_sourcep)-(k2ox*Vbseff_Vbulk_sourcep))-Delt_vth_Vbulk_sourcep)-T2_Vbulk_sourcep)+(((k3b*Vbseff_Vbulk_sourcep)*tmp2)+((k3+(k3b*Vbseff))*tmp2_Vbulk_sourcep)))+T1_Vbulk_sourcep)-DIBL_Sft_Vbulk_sourcep);
4142 : : #endif
4143 : 0 : Vth=(((((((((TYPE*vth0)-(k1*sqrtPhi))+(k1ox*sqrtPhis))-(k2ox*Vbseff))-Delt_vth)-T2)+((k3+(k3b*Vbseff))*tmp2))+T1)-DIBL_Sft);
4144 : : #if defined(_DERIVATE)
4145 : 0 : tmp2_Vgate_sourcep=0.0;
4146 : 0 : tmp2_Vdrainp_sourcep=(-(nfactor*1.03594e-10)*Xdep_Vdrainp_sourcep/Xdep/Xdep);
4147 : 0 : tmp2_Vbulk_sourcep=(-(nfactor*1.03594e-10)*Xdep_Vbulk_sourcep/Xdep/Xdep);
4148 : : #endif
4149 : 0 : tmp2=((nfactor*1.03594e-10)/Xdep);
4150 : : #if defined(_DERIVATE)
4151 : 0 : tmp3_Vdrainp_sourcep=((cdscb*Vbseff_Vdrainp_sourcep)+(cdscd*Vds_Vdrainp_sourcep));
4152 : 0 : tmp3_Vbulk_sourcep=(cdscb*Vbseff_Vbulk_sourcep);
4153 : : #endif
4154 : 0 : tmp3=((cdsc+(cdscb*Vbseff))+(cdscd*Vds));
4155 : : #if defined(_DERIVATE)
4156 : 0 : tmp4_Vgate_sourcep=0.0;
4157 : 0 : tmp4_Vdrainp_sourcep=((tmp2_Vdrainp_sourcep+((tmp3_Vdrainp_sourcep*Theta0)+(tmp3*Theta0_Vdrainp_sourcep)))/cox);
4158 : 0 : tmp4_Vbulk_sourcep=((tmp2_Vbulk_sourcep+((tmp3_Vbulk_sourcep*Theta0)+(tmp3*Theta0_Vbulk_sourcep)))/cox);
4159 : : #endif
4160 : 0 : tmp4=(((tmp2+(tmp3*Theta0))+cit)/cox);
4161 [ # # ]: 0 : if
4162 : : (tmp4>=(-0.5))
4163 : : {
4164 : : #if defined(_DERIVATE)
4165 : 0 : n_Vdrainp_sourcep=tmp4_Vdrainp_sourcep;
4166 : 0 : n_Vbulk_sourcep=tmp4_Vbulk_sourcep;
4167 : : #endif
4168 : 0 : n=(1.0+tmp4);
4169 : : }
4170 : : else
4171 : : {
4172 : : #if defined(_DERIVATE)
4173 : 0 : T_0_Vgate_sourcep=0.0;
4174 : 0 : T_0_Vdrainp_sourcep=(-(8.0*tmp4_Vdrainp_sourcep)/(3.0+(8.0*tmp4))/(3.0+(8.0*tmp4)));
4175 : 0 : T_0_Vbulk_sourcep=(-(8.0*tmp4_Vbulk_sourcep)/(3.0+(8.0*tmp4))/(3.0+(8.0*tmp4)));
4176 : : #endif
4177 : 0 : T_0=(1.0/(3.0+(8.0*tmp4)));
4178 : : #if defined(_DERIVATE)
4179 : 0 : n_Vdrainp_sourcep=(((3.0*tmp4_Vdrainp_sourcep)*T_0)+((1.0+(3.0*tmp4))*T_0_Vdrainp_sourcep));
4180 : 0 : n_Vbulk_sourcep=(((3.0*tmp4_Vbulk_sourcep)*T_0)+((1.0+(3.0*tmp4))*T_0_Vbulk_sourcep));
4181 : : #endif
4182 : 0 : n=((1.0+(3.0*tmp4))*T_0);
4183 : : }
4184 : : #if defined(_DERIVATE)
4185 : 0 : T_0_Vgate_sourcep=0.0;
4186 : 0 : T_0_Vdrainp_sourcep=0.0;
4187 : 0 : T_0_Vbulk_sourcep=0.0;
4188 : : #endif
4189 : 0 : T_0=(vfb+phi);
4190 [ # # ][ # # ]: 0 : if
[ # # ]
4191 : : (((ngate>1.0e18)&&(ngate<1.0e25))&&(Vgs>T_0))
4192 : : {
4193 : : #if defined(_DERIVATE)
4194 : 0 : T1_Vgate_sourcep=0.0;
4195 : 0 : T1_Vdrainp_sourcep=0.0;
4196 : 0 : T1_Vbulk_sourcep=0.0;
4197 : : #endif
4198 : 0 : T1=((((1.0e6*1.60219e-19)*1.03594e-10)*ngate)/(cox*cox));
4199 : : {
4200 : 0 : double m00_sqrt(d00_sqrt0,(1.0+((2.0*(Vgs-T_0))/T1)))
4201 : : #if defined(_DERIVATE)
4202 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,(1.0+((2.0*(Vgs-T_0))/T1)))
4203 : : #endif
4204 : : #if defined(_DERIVATE)
4205 : 0 : T4_Vgate_sourcep=(((2.0*(Vgs_Vgate_sourcep-T_0_Vgate_sourcep))*T1-(2.0*(Vgs-T_0))*T1_Vgate_sourcep)/T1/T1)*d10_sqrt0;
4206 : 0 : T4_Vdrainp_sourcep=(((2.0*(Vgs_Vdrainp_sourcep-T_0_Vdrainp_sourcep))*T1-(2.0*(Vgs-T_0))*T1_Vdrainp_sourcep)/T1/T1)*d10_sqrt0;
4207 : 0 : T4_Vbulk_sourcep=(((2.0*(-T_0_Vbulk_sourcep))*T1-(2.0*(Vgs-T_0))*T1_Vbulk_sourcep)/T1/T1)*d10_sqrt0;
4208 : : #endif
4209 : 0 : T4=d00_sqrt0;
4210 : : }
4211 : : #if defined(_DERIVATE)
4212 : 0 : T2_Vgate_sourcep=((T1_Vgate_sourcep*(T4-1.0))+(T1*T4_Vgate_sourcep));
4213 : 0 : T2_Vdrainp_sourcep=((T1_Vdrainp_sourcep*(T4-1.0))+(T1*T4_Vdrainp_sourcep));
4214 : 0 : T2_Vbulk_sourcep=((T1_Vbulk_sourcep*(T4-1.0))+(T1*T4_Vbulk_sourcep));
4215 : : #endif
4216 : 0 : T2=(T1*(T4-1.0));
4217 : : #if defined(_DERIVATE)
4218 : 0 : T3_Vgate_sourcep=(((((0.5*T2_Vgate_sourcep)*T2)+((0.5*T2)*T2_Vgate_sourcep))*T1-((0.5*T2)*T2)*T1_Vgate_sourcep)/T1/T1);
4219 : 0 : T3_Vdrainp_sourcep=(((((0.5*T2_Vdrainp_sourcep)*T2)+((0.5*T2)*T2_Vdrainp_sourcep))*T1-((0.5*T2)*T2)*T1_Vdrainp_sourcep)/T1/T1);
4220 : 0 : T3_Vbulk_sourcep=(((((0.5*T2_Vbulk_sourcep)*T2)+((0.5*T2)*T2_Vbulk_sourcep))*T1-((0.5*T2)*T2)*T1_Vbulk_sourcep)/T1/T1);
4221 : : #endif
4222 : 0 : T3=(((0.5*T2)*T2)/T1);
4223 : : #if defined(_DERIVATE)
4224 : 0 : T7_Vgate_sourcep=(-T3_Vgate_sourcep);
4225 : 0 : T7_Vdrainp_sourcep=(-T3_Vdrainp_sourcep);
4226 : 0 : T7_Vbulk_sourcep=(-T3_Vbulk_sourcep);
4227 : : #endif
4228 : 0 : T7=((1.12-T3)-0.05);
4229 : : {
4230 : 0 : double m00_sqrt(d00_sqrt0,((T7*T7)+0.224))
4231 : : #if defined(_DERIVATE)
4232 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T7*T7)+0.224))
4233 : : #endif
4234 : : #if defined(_DERIVATE)
4235 : 0 : T6_Vgate_sourcep=((T7_Vgate_sourcep*T7)+(T7*T7_Vgate_sourcep))*d10_sqrt0;
4236 : 0 : T6_Vdrainp_sourcep=((T7_Vdrainp_sourcep*T7)+(T7*T7_Vdrainp_sourcep))*d10_sqrt0;
4237 : 0 : T6_Vbulk_sourcep=((T7_Vbulk_sourcep*T7)+(T7*T7_Vbulk_sourcep))*d10_sqrt0;
4238 : : #endif
4239 : 0 : T6=d00_sqrt0;
4240 : : }
4241 : : #if defined(_DERIVATE)
4242 : 0 : T5_Vgate_sourcep=(-(0.5*(T7_Vgate_sourcep+T6_Vgate_sourcep)));
4243 : 0 : T5_Vdrainp_sourcep=(-(0.5*(T7_Vdrainp_sourcep+T6_Vdrainp_sourcep)));
4244 : 0 : T5_Vbulk_sourcep=(-(0.5*(T7_Vbulk_sourcep+T6_Vbulk_sourcep)));
4245 : : #endif
4246 : 0 : T5=(1.12-(0.5*(T7+T6)));
4247 : : #if defined(_DERIVATE)
4248 : 0 : Vgs_eff_Vdrainp_sourcep=(Vgs_Vdrainp_sourcep-T5_Vdrainp_sourcep);
4249 : 0 : Vgs_eff_Vgate_sourcep=(Vgs_Vgate_sourcep-T5_Vgate_sourcep);
4250 : 0 : Vgs_eff_Vbulk_sourcep=(-T5_Vbulk_sourcep);
4251 : : #endif
4252 : 0 : Vgs_eff=(Vgs-T5);
4253 : : }
4254 : : else
4255 : : {
4256 : : #if defined(_DERIVATE)
4257 : 0 : Vgs_eff_Vdrainp_sourcep=Vgs_Vdrainp_sourcep;
4258 : 0 : Vgs_eff_Vgate_sourcep=Vgs_Vgate_sourcep;
4259 : 0 : Vgs_eff_Vbulk_sourcep=0.0;
4260 : : #endif
4261 : 0 : Vgs_eff=Vgs;
4262 : : }
4263 : : #if defined(_DERIVATE)
4264 : 0 : Vgst_Vdrainp_sourcep=(Vgs_eff_Vdrainp_sourcep-Vth_Vdrainp_sourcep);
4265 : 0 : Vgst_Vgate_sourcep=Vgs_eff_Vgate_sourcep;
4266 : 0 : Vgst_Vbulk_sourcep=(Vgs_eff_Vbulk_sourcep-Vth_Vbulk_sourcep);
4267 : : #endif
4268 : 0 : Vgst=(Vgs_eff-Vth);
4269 : : #if defined(_DERIVATE)
4270 : 0 : T10_Vgate_sourcep=0.0;
4271 : 0 : T10_Vdrainp_sourcep=(2.0*n_Vdrainp_sourcep)*Vtm;
4272 : 0 : T10_Vbulk_sourcep=(2.0*n_Vbulk_sourcep)*Vtm;
4273 : : #endif
4274 : 0 : T10=((2.0*n)*Vtm);
4275 : : #if defined(_DERIVATE)
4276 : 0 : VgstNVt_Vdrainp_sourcep=((Vgst_Vdrainp_sourcep*T10-Vgst*T10_Vdrainp_sourcep)/T10/T10);
4277 : 0 : VgstNVt_Vgate_sourcep=((Vgst_Vgate_sourcep*T10-Vgst*T10_Vgate_sourcep)/T10/T10);
4278 : 0 : VgstNVt_Vbulk_sourcep=((Vgst_Vbulk_sourcep*T10-Vgst*T10_Vbulk_sourcep)/T10/T10);
4279 : : #endif
4280 : 0 : VgstNVt=(Vgst/T10);
4281 : : #if defined(_DERIVATE)
4282 : 0 : ExpArg_Vdrainp_sourcep=(((-Vgst_Vdrainp_sourcep)*T10-((2.0*voff)-Vgst)*T10_Vdrainp_sourcep)/T10/T10);
4283 : 0 : ExpArg_Vgate_sourcep=(((-Vgst_Vgate_sourcep)*T10-((2.0*voff)-Vgst)*T10_Vgate_sourcep)/T10/T10);
4284 : 0 : ExpArg_Vbulk_sourcep=(((-Vgst_Vbulk_sourcep)*T10-((2.0*voff)-Vgst)*T10_Vbulk_sourcep)/T10/T10);
4285 : : #endif
4286 : 0 : ExpArg=(((2.0*voff)-Vgst)/T10);
4287 [ # # ]: 0 : if
4288 : : (VgstNVt>34.0)
4289 : : {
4290 : : #if defined(_DERIVATE)
4291 : 0 : Vgsteff_Vdrainp_sourcep=Vgst_Vdrainp_sourcep;
4292 : 0 : Vgsteff_Vgate_sourcep=Vgst_Vgate_sourcep;
4293 : 0 : Vgsteff_Vbulk_sourcep=Vgst_Vbulk_sourcep;
4294 : : #endif
4295 : 0 : Vgsteff=Vgst;
4296 : : }
4297 : : else
4298 : : {
4299 [ # # ]: 0 : if
4300 : : (ExpArg>34.0)
4301 : : {
4302 : : #if defined(_DERIVATE)
4303 : 0 : T_0_Vgate_sourcep=(Vgst_Vgate_sourcep/(n*Vtm));
4304 : 0 : T_0_Vdrainp_sourcep=((Vgst_Vdrainp_sourcep*(n*Vtm)-(Vgst-voff)*n_Vdrainp_sourcep*Vtm)/(n*Vtm)/(n*Vtm));
4305 : 0 : T_0_Vbulk_sourcep=((Vgst_Vbulk_sourcep*(n*Vtm)-(Vgst-voff)*n_Vbulk_sourcep*Vtm)/(n*Vtm)/(n*Vtm));
4306 : : #endif
4307 : 0 : T_0=((Vgst-voff)/(n*Vtm));
4308 : : {
4309 : 0 : double m00_exp(d00_exp0,T_0)
4310 : : #if defined(_DERIVATE)
4311 : : #define d10_exp0 d00_exp0
4312 : : #endif
4313 : : #if defined(_DERIVATE)
4314 : 0 : ExpVgst_Vgate_sourcep=T_0_Vgate_sourcep*d10_exp0;
4315 : 0 : ExpVgst_Vdrainp_sourcep=T_0_Vdrainp_sourcep*d10_exp0;
4316 : 0 : ExpVgst_Vbulk_sourcep=T_0_Vbulk_sourcep*d10_exp0;
4317 : : #endif
4318 : 0 : ExpVgst=d00_exp0;
4319 : : }
4320 : : #if defined(_DERIVATE)
4321 : 0 : Vgsteff_Vdrainp_sourcep=(((Vtm*cdep0)/cox)*ExpVgst_Vdrainp_sourcep);
4322 : 0 : Vgsteff_Vgate_sourcep=(((Vtm*cdep0)/cox)*ExpVgst_Vgate_sourcep);
4323 : 0 : Vgsteff_Vbulk_sourcep=(((Vtm*cdep0)/cox)*ExpVgst_Vbulk_sourcep);
4324 : : #endif
4325 : 0 : Vgsteff=(((Vtm*cdep0)/cox)*ExpVgst);
4326 : : }
4327 : : else
4328 : : {
4329 : : {
4330 : 0 : double m00_exp(d00_exp0,VgstNVt)
4331 : : #if defined(_DERIVATE)
4332 : : #define d10_exp0 d00_exp0
4333 : : #endif
4334 : : #if defined(_DERIVATE)
4335 : 0 : ExpVgst_Vgate_sourcep=VgstNVt_Vgate_sourcep*d10_exp0;
4336 : 0 : ExpVgst_Vdrainp_sourcep=VgstNVt_Vdrainp_sourcep*d10_exp0;
4337 : 0 : ExpVgst_Vbulk_sourcep=VgstNVt_Vbulk_sourcep*d10_exp0;
4338 : : #endif
4339 : 0 : ExpVgst=d00_exp0;
4340 : : }
4341 : : {
4342 : 0 : double m00_logE(d00_logE0,(1.0+ExpVgst))
4343 : : #if defined(_DERIVATE)
4344 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+ExpVgst))
4345 : : #endif
4346 : : #if defined(_DERIVATE)
4347 : 0 : T1_Vgate_sourcep=((T10_Vgate_sourcep*d00_logE0)+(T10*ExpVgst_Vgate_sourcep*d10_logE0));
4348 : 0 : T1_Vdrainp_sourcep=((T10_Vdrainp_sourcep*d00_logE0)+(T10*ExpVgst_Vdrainp_sourcep*d10_logE0));
4349 : 0 : T1_Vbulk_sourcep=((T10_Vbulk_sourcep*d00_logE0)+(T10*ExpVgst_Vbulk_sourcep*d10_logE0));
4350 : : #endif
4351 : 0 : T1=(T10*d00_logE0);
4352 : : }
4353 : : {
4354 : 0 : double m00_exp(d00_exp0,ExpArg)
4355 : : #if defined(_DERIVATE)
4356 : : #define d10_exp0 d00_exp0
4357 : : #endif
4358 : : #if defined(_DERIVATE)
4359 : 0 : T2_Vgate_sourcep=(-((T10_Vgate_sourcep*(((-cox)/(Vtm*cdep0))*d00_exp0))+(T10*(((-cox)/(Vtm*cdep0))*ExpArg_Vgate_sourcep*d10_exp0))));
4360 : 0 : T2_Vdrainp_sourcep=(-((T10_Vdrainp_sourcep*(((-cox)/(Vtm*cdep0))*d00_exp0))+(T10*(((-cox)/(Vtm*cdep0))*ExpArg_Vdrainp_sourcep*d10_exp0))));
4361 : 0 : T2_Vbulk_sourcep=(-((T10_Vbulk_sourcep*(((-cox)/(Vtm*cdep0))*d00_exp0))+(T10*(((-cox)/(Vtm*cdep0))*ExpArg_Vbulk_sourcep*d10_exp0))));
4362 : : #endif
4363 : 0 : T2=(1.0-(T10*(((-cox)/(Vtm*cdep0))*d00_exp0)));
4364 : : }
4365 : : #if defined(_DERIVATE)
4366 : 0 : Vgsteff_Vdrainp_sourcep=((T1_Vdrainp_sourcep*T2-T1*T2_Vdrainp_sourcep)/T2/T2);
4367 : 0 : Vgsteff_Vgate_sourcep=((T1_Vgate_sourcep*T2-T1*T2_Vgate_sourcep)/T2/T2);
4368 : 0 : Vgsteff_Vbulk_sourcep=((T1_Vbulk_sourcep*T2-T1*T2_Vbulk_sourcep)/T2/T2);
4369 : : #endif
4370 : 0 : Vgsteff=(T1/T2);
4371 : : }
4372 : : }
4373 : : #if defined(_DERIVATE)
4374 : 0 : T9_Vgate_sourcep=0.0;
4375 : 0 : T9_Vdrainp_sourcep=sqrtPhis_Vdrainp_sourcep;
4376 : 0 : T9_Vbulk_sourcep=sqrtPhis_Vbulk_sourcep;
4377 : : #endif
4378 : 0 : T9=(sqrtPhis-sqrtPhi);
4379 : : #if defined(_DERIVATE)
4380 : 0 : Weff_Vdrainp_sourcep=(-(2.0*((dwg*Vgsteff_Vdrainp_sourcep)+(dwb*T9_Vdrainp_sourcep))));
4381 : 0 : Weff_Vgate_sourcep=(-(2.0*((dwg*Vgsteff_Vgate_sourcep)+(dwb*T9_Vgate_sourcep))));
4382 : 0 : Weff_Vbulk_sourcep=(-(2.0*((dwg*Vgsteff_Vbulk_sourcep)+(dwb*T9_Vbulk_sourcep))));
4383 : : #endif
4384 : 0 : Weff=(weff-(2.0*((dwg*Vgsteff)+(dwb*T9))));
4385 [ # # ]: 0 : if
4386 : : (Weff<2.0e-8)
4387 : : {
4388 : : #if defined(_DERIVATE)
4389 : 0 : T_0_Vgate_sourcep=(-(-(2.0*Weff_Vgate_sourcep))/(6.0e-8-(2.0*Weff))/(6.0e-8-(2.0*Weff)));
4390 : 0 : T_0_Vdrainp_sourcep=(-(-(2.0*Weff_Vdrainp_sourcep))/(6.0e-8-(2.0*Weff))/(6.0e-8-(2.0*Weff)));
4391 : 0 : T_0_Vbulk_sourcep=(-(-(2.0*Weff_Vbulk_sourcep))/(6.0e-8-(2.0*Weff))/(6.0e-8-(2.0*Weff)));
4392 : : #endif
4393 : 0 : T_0=(1.0/(6.0e-8-(2.0*Weff)));
4394 : : #if defined(_DERIVATE)
4395 : 0 : Weff_Vdrainp_sourcep=(((2.0e-8*(-Weff_Vdrainp_sourcep))*T_0)+((2.0e-8*(4.0e-8-Weff))*T_0_Vdrainp_sourcep));
4396 : 0 : Weff_Vgate_sourcep=(((2.0e-8*(-Weff_Vgate_sourcep))*T_0)+((2.0e-8*(4.0e-8-Weff))*T_0_Vgate_sourcep));
4397 : 0 : Weff_Vbulk_sourcep=(((2.0e-8*(-Weff_Vbulk_sourcep))*T_0)+((2.0e-8*(4.0e-8-Weff))*T_0_Vbulk_sourcep));
4398 : : #endif
4399 : 0 : Weff=((2.0e-8*(4.0e-8-Weff))*T_0);
4400 : : }
4401 : : #if defined(_DERIVATE)
4402 : 0 : T_0_Vgate_sourcep=((prwg*Vgsteff_Vgate_sourcep)+(prwb*T9_Vgate_sourcep));
4403 : 0 : T_0_Vdrainp_sourcep=((prwg*Vgsteff_Vdrainp_sourcep)+(prwb*T9_Vdrainp_sourcep));
4404 : 0 : T_0_Vbulk_sourcep=((prwg*Vgsteff_Vbulk_sourcep)+(prwb*T9_Vbulk_sourcep));
4405 : : #endif
4406 : 0 : T_0=((prwg*Vgsteff)+(prwb*T9));
4407 [ # # ]: 0 : if
4408 : : (T_0>=(-0.9))
4409 : : {
4410 : : #if defined(_DERIVATE)
4411 : 0 : Rds_Vgate_sourcep=(rds0*T_0_Vgate_sourcep);
4412 : 0 : Rds_Vdrainp_sourcep=(rds0*T_0_Vdrainp_sourcep);
4413 : 0 : Rds_Vbulk_sourcep=(rds0*T_0_Vbulk_sourcep);
4414 : : #endif
4415 : 0 : Rds=(rds0*(1.0+T_0));
4416 : : }
4417 : : else
4418 : : {
4419 : : #if defined(_DERIVATE)
4420 : 0 : T1_Vgate_sourcep=(-(20.0*T_0_Vgate_sourcep)/(17.0+(20.0*T_0))/(17.0+(20.0*T_0)));
4421 : 0 : T1_Vdrainp_sourcep=(-(20.0*T_0_Vdrainp_sourcep)/(17.0+(20.0*T_0))/(17.0+(20.0*T_0)));
4422 : 0 : T1_Vbulk_sourcep=(-(20.0*T_0_Vbulk_sourcep)/(17.0+(20.0*T_0))/(17.0+(20.0*T_0)));
4423 : : #endif
4424 : 0 : T1=(1.0/(17.0+(20.0*T_0)));
4425 : : #if defined(_DERIVATE)
4426 : 0 : Rds_Vgate_sourcep=(((rds0*T_0_Vgate_sourcep)*T1)+((rds0*(0.8+T_0))*T1_Vgate_sourcep));
4427 : 0 : Rds_Vdrainp_sourcep=(((rds0*T_0_Vdrainp_sourcep)*T1)+((rds0*(0.8+T_0))*T1_Vdrainp_sourcep));
4428 : 0 : Rds_Vbulk_sourcep=(((rds0*T_0_Vbulk_sourcep)*T1)+((rds0*(0.8+T_0))*T1_Vbulk_sourcep));
4429 : : #endif
4430 : 0 : Rds=((rds0*(0.8+T_0))*T1);
4431 : : }
4432 : : #if defined(_DERIVATE)
4433 : 0 : T1_Vgate_sourcep=0.0;
4434 : 0 : T1_Vdrainp_sourcep=(-(0.5*k1ox)*sqrtPhis_Vdrainp_sourcep/sqrtPhis/sqrtPhis);
4435 : 0 : T1_Vbulk_sourcep=(-(0.5*k1ox)*sqrtPhis_Vbulk_sourcep/sqrtPhis/sqrtPhis);
4436 : : #endif
4437 : 0 : T1=((0.5*k1ox)/sqrtPhis);
4438 : : {
4439 : 0 : double m00_sqrt(d00_sqrt0,(xj*Xdep))
4440 : : #if defined(_DERIVATE)
4441 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,(xj*Xdep))
4442 : : #endif
4443 : : #if defined(_DERIVATE)
4444 : 0 : T9_Vgate_sourcep=0.0;
4445 : 0 : T9_Vdrainp_sourcep=(xj*Xdep_Vdrainp_sourcep)*d10_sqrt0;
4446 : 0 : T9_Vbulk_sourcep=(xj*Xdep_Vbulk_sourcep)*d10_sqrt0;
4447 : : #endif
4448 : 0 : T9=d00_sqrt0;
4449 : : }
4450 : : #if defined(_DERIVATE)
4451 : 0 : tmp1_Vdrainp_sourcep=(2.0*T9_Vdrainp_sourcep);
4452 : 0 : tmp1_Vbulk_sourcep=(2.0*T9_Vbulk_sourcep);
4453 : : #endif
4454 : 0 : tmp1=(Leff+(2.0*T9));
4455 : : #if defined(_DERIVATE)
4456 : 0 : T5_Vgate_sourcep=0.0;
4457 : 0 : T5_Vdrainp_sourcep=(-Leff*tmp1_Vdrainp_sourcep/tmp1/tmp1);
4458 : 0 : T5_Vbulk_sourcep=(-Leff*tmp1_Vbulk_sourcep/tmp1/tmp1);
4459 : : #endif
4460 : 0 : T5=(Leff/tmp1);
4461 : : #if defined(_DERIVATE)
4462 : 0 : tmp2_Vgate_sourcep=(a0*T5_Vgate_sourcep);
4463 : 0 : tmp2_Vdrainp_sourcep=(a0*T5_Vdrainp_sourcep);
4464 : 0 : tmp2_Vbulk_sourcep=(a0*T5_Vbulk_sourcep);
4465 : : #endif
4466 : 0 : tmp2=(a0*T5);
4467 : : #if defined(_DERIVATE)
4468 : 0 : tmp3_Vdrainp_sourcep=0.0;
4469 : 0 : tmp3_Vbulk_sourcep=0.0;
4470 : : #endif
4471 : 0 : tmp3=(weff+b1);
4472 : : #if defined(_DERIVATE)
4473 : 0 : tmp4_Vgate_sourcep=0.0;
4474 : 0 : tmp4_Vdrainp_sourcep=(-b0*tmp3_Vdrainp_sourcep/tmp3/tmp3);
4475 : 0 : tmp4_Vbulk_sourcep=(-b0*tmp3_Vbulk_sourcep/tmp3/tmp3);
4476 : : #endif
4477 : 0 : tmp4=(b0/tmp3);
4478 : : #if defined(_DERIVATE)
4479 : 0 : T2_Vgate_sourcep=(tmp2_Vgate_sourcep+tmp4_Vgate_sourcep);
4480 : 0 : T2_Vdrainp_sourcep=(tmp2_Vdrainp_sourcep+tmp4_Vdrainp_sourcep);
4481 : 0 : T2_Vbulk_sourcep=(tmp2_Vbulk_sourcep+tmp4_Vbulk_sourcep);
4482 : : #endif
4483 : 0 : T2=(tmp2+tmp4);
4484 : : #if defined(_DERIVATE)
4485 : 0 : T6_Vgate_sourcep=((T5_Vgate_sourcep*T5)+(T5*T5_Vgate_sourcep));
4486 : 0 : T6_Vdrainp_sourcep=((T5_Vdrainp_sourcep*T5)+(T5*T5_Vdrainp_sourcep));
4487 : 0 : T6_Vbulk_sourcep=((T5_Vbulk_sourcep*T5)+(T5*T5_Vbulk_sourcep));
4488 : : #endif
4489 : 0 : T6=(T5*T5);
4490 : : #if defined(_DERIVATE)
4491 : 0 : T7_Vgate_sourcep=((T5_Vgate_sourcep*T6)+(T5*T6_Vgate_sourcep));
4492 : 0 : T7_Vdrainp_sourcep=((T5_Vdrainp_sourcep*T6)+(T5*T6_Vdrainp_sourcep));
4493 : 0 : T7_Vbulk_sourcep=((T5_Vbulk_sourcep*T6)+(T5*T6_Vbulk_sourcep));
4494 : : #endif
4495 : 0 : T7=(T5*T6);
4496 : : #if defined(_DERIVATE)
4497 : 0 : Abulk0_Vgate_sourcep=((T1_Vgate_sourcep*T2)+(T1*T2_Vgate_sourcep));
4498 : 0 : Abulk0_Vdrainp_sourcep=((T1_Vdrainp_sourcep*T2)+(T1*T2_Vdrainp_sourcep));
4499 : 0 : Abulk0_Vbulk_sourcep=((T1_Vbulk_sourcep*T2)+(T1*T2_Vbulk_sourcep));
4500 : : #endif
4501 : 0 : Abulk0=(1.0+(T1*T2));
4502 : : #if defined(_DERIVATE)
4503 : 0 : T8_Vgate_sourcep=((ags*a0)*T7_Vgate_sourcep);
4504 : 0 : T8_Vdrainp_sourcep=((ags*a0)*T7_Vdrainp_sourcep);
4505 : 0 : T8_Vbulk_sourcep=((ags*a0)*T7_Vbulk_sourcep);
4506 : : #endif
4507 : 0 : T8=((ags*a0)*T7);
4508 : : #if defined(_DERIVATE)
4509 : 0 : Abulk_Vgate_sourcep=(Abulk0_Vgate_sourcep+(((((-T1_Vgate_sourcep)*T8)+((-T1)*T8_Vgate_sourcep))*Vgsteff)+(((-T1)*T8)*Vgsteff_Vgate_sourcep)));
4510 : 0 : Abulk_Vdrainp_sourcep=(Abulk0_Vdrainp_sourcep+(((((-T1_Vdrainp_sourcep)*T8)+((-T1)*T8_Vdrainp_sourcep))*Vgsteff)+(((-T1)*T8)*Vgsteff_Vdrainp_sourcep)));
4511 : 0 : Abulk_Vbulk_sourcep=(Abulk0_Vbulk_sourcep+(((((-T1_Vbulk_sourcep)*T8)+((-T1)*T8_Vbulk_sourcep))*Vgsteff)+(((-T1)*T8)*Vgsteff_Vbulk_sourcep)));
4512 : : #endif
4513 : 0 : Abulk=(Abulk0+(((-T1)*T8)*Vgsteff));
4514 [ # # ]: 0 : if
4515 : : (Abulk0<0.1)
4516 : : {
4517 : : #if defined(_DERIVATE)
4518 : 0 : T9_Vgate_sourcep=(-(-(20.0*Abulk0_Vgate_sourcep))/(3.0-(20.0*Abulk0))/(3.0-(20.0*Abulk0)));
4519 : 0 : T9_Vdrainp_sourcep=(-(-(20.0*Abulk0_Vdrainp_sourcep))/(3.0-(20.0*Abulk0))/(3.0-(20.0*Abulk0)));
4520 : 0 : T9_Vbulk_sourcep=(-(-(20.0*Abulk0_Vbulk_sourcep))/(3.0-(20.0*Abulk0))/(3.0-(20.0*Abulk0)));
4521 : : #endif
4522 : 0 : T9=(1.0/(3.0-(20.0*Abulk0)));
4523 : : #if defined(_DERIVATE)
4524 : 0 : Abulk0_Vgate_sourcep=(((-Abulk0_Vgate_sourcep)*T9)+((0.2-Abulk0)*T9_Vgate_sourcep));
4525 : 0 : Abulk0_Vdrainp_sourcep=(((-Abulk0_Vdrainp_sourcep)*T9)+((0.2-Abulk0)*T9_Vdrainp_sourcep));
4526 : 0 : Abulk0_Vbulk_sourcep=(((-Abulk0_Vbulk_sourcep)*T9)+((0.2-Abulk0)*T9_Vbulk_sourcep));
4527 : : #endif
4528 : 0 : Abulk0=((0.2-Abulk0)*T9);
4529 : : }
4530 [ # # ]: 0 : if
4531 : : (Abulk<0.1)
4532 : : {
4533 : : #if defined(_DERIVATE)
4534 : 0 : T9_Vgate_sourcep=(-(-(20.0*Abulk_Vgate_sourcep))/(3.0-(20.0*Abulk))/(3.0-(20.0*Abulk)));
4535 : 0 : T9_Vdrainp_sourcep=(-(-(20.0*Abulk_Vdrainp_sourcep))/(3.0-(20.0*Abulk))/(3.0-(20.0*Abulk)));
4536 : 0 : T9_Vbulk_sourcep=(-(-(20.0*Abulk_Vbulk_sourcep))/(3.0-(20.0*Abulk))/(3.0-(20.0*Abulk)));
4537 : : #endif
4538 : 0 : T9=(1.0/(3.0-(20.0*Abulk)));
4539 : : #if defined(_DERIVATE)
4540 : 0 : Abulk_Vgate_sourcep=(((-Abulk_Vgate_sourcep)*T9)+((0.2-Abulk)*T9_Vgate_sourcep));
4541 : 0 : Abulk_Vdrainp_sourcep=(((-Abulk_Vdrainp_sourcep)*T9)+((0.2-Abulk)*T9_Vdrainp_sourcep));
4542 : 0 : Abulk_Vbulk_sourcep=(((-Abulk_Vbulk_sourcep)*T9)+((0.2-Abulk)*T9_Vbulk_sourcep));
4543 : : #endif
4544 : 0 : Abulk=((0.2-Abulk)*T9);
4545 : : }
4546 : : #if defined(_DERIVATE)
4547 : 0 : T2_Vgate_sourcep=0.0;
4548 : 0 : T2_Vdrainp_sourcep=(keta*Vbseff_Vdrainp_sourcep);
4549 : 0 : T2_Vbulk_sourcep=(keta*Vbseff_Vbulk_sourcep);
4550 : : #endif
4551 : 0 : T2=(keta*Vbseff);
4552 [ # # ]: 0 : if
4553 : : (T2>=(-0.9))
4554 : : {
4555 : : #if defined(_DERIVATE)
4556 : 0 : T_0_Vgate_sourcep=(-T2_Vgate_sourcep/(1.0+T2)/(1.0+T2));
4557 : 0 : T_0_Vdrainp_sourcep=(-T2_Vdrainp_sourcep/(1.0+T2)/(1.0+T2));
4558 : 0 : T_0_Vbulk_sourcep=(-T2_Vbulk_sourcep/(1.0+T2)/(1.0+T2));
4559 : : #endif
4560 : 0 : T_0=(1.0/(1.0+T2));
4561 : : }
4562 : : else
4563 : : {
4564 : : #if defined(_DERIVATE)
4565 : 0 : T1_Vgate_sourcep=(-T2_Vgate_sourcep/(0.8+T2)/(0.8+T2));
4566 : 0 : T1_Vdrainp_sourcep=(-T2_Vdrainp_sourcep/(0.8+T2)/(0.8+T2));
4567 : 0 : T1_Vbulk_sourcep=(-T2_Vbulk_sourcep/(0.8+T2)/(0.8+T2));
4568 : : #endif
4569 : 0 : T1=(1.0/(0.8+T2));
4570 : : #if defined(_DERIVATE)
4571 : 0 : T_0_Vgate_sourcep=(((20.0*T2_Vgate_sourcep)*T1)+((17.0+(20.0*T2))*T1_Vgate_sourcep));
4572 : 0 : T_0_Vdrainp_sourcep=(((20.0*T2_Vdrainp_sourcep)*T1)+((17.0+(20.0*T2))*T1_Vdrainp_sourcep));
4573 : 0 : T_0_Vbulk_sourcep=(((20.0*T2_Vbulk_sourcep)*T1)+((17.0+(20.0*T2))*T1_Vbulk_sourcep));
4574 : : #endif
4575 : 0 : T_0=((17.0+(20.0*T2))*T1);
4576 : : }
4577 : : #if defined(_DERIVATE)
4578 : 0 : Abulk_Vgate_sourcep=((T_0_Vgate_sourcep*Abulk)+(T_0*Abulk_Vgate_sourcep));
4579 : 0 : Abulk_Vdrainp_sourcep=((T_0_Vdrainp_sourcep*Abulk)+(T_0*Abulk_Vdrainp_sourcep));
4580 : 0 : Abulk_Vbulk_sourcep=((T_0_Vbulk_sourcep*Abulk)+(T_0*Abulk_Vbulk_sourcep));
4581 : : #endif
4582 : 0 : Abulk=(T_0*Abulk);
4583 : : #if defined(_DERIVATE)
4584 : 0 : Abulk0_Vgate_sourcep=((T_0_Vgate_sourcep*Abulk0)+(T_0*Abulk0_Vgate_sourcep));
4585 : 0 : Abulk0_Vdrainp_sourcep=((T_0_Vdrainp_sourcep*Abulk0)+(T_0*Abulk0_Vdrainp_sourcep));
4586 : 0 : Abulk0_Vbulk_sourcep=((T_0_Vbulk_sourcep*Abulk0)+(T_0*Abulk0_Vbulk_sourcep));
4587 : : #endif
4588 : 0 : Abulk0=(T_0*Abulk0);
4589 [ # # ]: 0 : if
4590 : : (MOBMOD==1)
4591 : : {
4592 : : #if defined(_DERIVATE)
4593 : 0 : T_0_Vgate_sourcep=Vgsteff_Vgate_sourcep;
4594 : 0 : T_0_Vdrainp_sourcep=((Vgsteff_Vdrainp_sourcep+Vth_Vdrainp_sourcep)+Vth_Vdrainp_sourcep);
4595 : 0 : T_0_Vbulk_sourcep=((Vgsteff_Vbulk_sourcep+Vth_Vbulk_sourcep)+Vth_Vbulk_sourcep);
4596 : : #endif
4597 : 0 : T_0=((Vgsteff+Vth)+Vth);
4598 : : #if defined(_DERIVATE)
4599 : 0 : T2_Vgate_sourcep=0.0;
4600 : 0 : T2_Vdrainp_sourcep=(uc*Vbseff_Vdrainp_sourcep);
4601 : 0 : T2_Vbulk_sourcep=(uc*Vbseff_Vbulk_sourcep);
4602 : : #endif
4603 : 0 : T2=(ua+(uc*Vbseff));
4604 : : #if defined(_DERIVATE)
4605 : 0 : T3_Vgate_sourcep=(T_0_Vgate_sourcep/tox);
4606 : 0 : T3_Vdrainp_sourcep=(T_0_Vdrainp_sourcep/tox);
4607 : 0 : T3_Vbulk_sourcep=(T_0_Vbulk_sourcep/tox);
4608 : : #endif
4609 : 0 : T3=(T_0/tox);
4610 : : #if defined(_DERIVATE)
4611 : 0 : T5_Vgate_sourcep=((T3_Vgate_sourcep*(T2+(ub*T3)))+(T3*(T2_Vgate_sourcep+(ub*T3_Vgate_sourcep))));
4612 : 0 : T5_Vdrainp_sourcep=((T3_Vdrainp_sourcep*(T2+(ub*T3)))+(T3*(T2_Vdrainp_sourcep+(ub*T3_Vdrainp_sourcep))));
4613 : 0 : T5_Vbulk_sourcep=((T3_Vbulk_sourcep*(T2+(ub*T3)))+(T3*(T2_Vbulk_sourcep+(ub*T3_Vbulk_sourcep))));
4614 : : #endif
4615 : 0 : T5=(T3*(T2+(ub*T3)));
4616 : : }
4617 : : else
4618 : : {
4619 [ # # ]: 0 : if
4620 : : (MOBMOD==2)
4621 : : {
4622 : : #if defined(_DERIVATE)
4623 : 0 : T5_Vgate_sourcep=(((Vgsteff_Vgate_sourcep/tox)*((ua+(uc*Vbseff))+((ub*Vgsteff)/tox)))+((Vgsteff/tox)*((ub*Vgsteff_Vgate_sourcep)/tox)));
4624 : 0 : T5_Vdrainp_sourcep=(((Vgsteff_Vdrainp_sourcep/tox)*((ua+(uc*Vbseff))+((ub*Vgsteff)/tox)))+((Vgsteff/tox)*((uc*Vbseff_Vdrainp_sourcep)+((ub*Vgsteff_Vdrainp_sourcep)/tox))));
4625 : 0 : T5_Vbulk_sourcep=(((Vgsteff_Vbulk_sourcep/tox)*((ua+(uc*Vbseff))+((ub*Vgsteff)/tox)))+((Vgsteff/tox)*((uc*Vbseff_Vbulk_sourcep)+((ub*Vgsteff_Vbulk_sourcep)/tox))));
4626 : : #endif
4627 : 0 : T5=((Vgsteff/tox)*((ua+(uc*Vbseff))+((ub*Vgsteff)/tox)));
4628 : : }
4629 : : else
4630 : : {
4631 : : #if defined(_DERIVATE)
4632 : 0 : T_0_Vgate_sourcep=Vgsteff_Vgate_sourcep;
4633 : 0 : T_0_Vdrainp_sourcep=((Vgsteff_Vdrainp_sourcep+Vth_Vdrainp_sourcep)+Vth_Vdrainp_sourcep);
4634 : 0 : T_0_Vbulk_sourcep=((Vgsteff_Vbulk_sourcep+Vth_Vbulk_sourcep)+Vth_Vbulk_sourcep);
4635 : : #endif
4636 : 0 : T_0=((Vgsteff+Vth)+Vth);
4637 : : #if defined(_DERIVATE)
4638 : 0 : T2_Vgate_sourcep=0.0;
4639 : 0 : T2_Vdrainp_sourcep=(uc*Vbseff_Vdrainp_sourcep);
4640 : 0 : T2_Vbulk_sourcep=(uc*Vbseff_Vbulk_sourcep);
4641 : : #endif
4642 : 0 : T2=(1.0+(uc*Vbseff));
4643 : : #if defined(_DERIVATE)
4644 : 0 : T3_Vgate_sourcep=(T_0_Vgate_sourcep/tox);
4645 : 0 : T3_Vdrainp_sourcep=(T_0_Vdrainp_sourcep/tox);
4646 : 0 : T3_Vbulk_sourcep=(T_0_Vbulk_sourcep/tox);
4647 : : #endif
4648 : 0 : T3=(T_0/tox);
4649 : : #if defined(_DERIVATE)
4650 : 0 : T4_Vgate_sourcep=((T3_Vgate_sourcep*(ua+(ub*T3)))+(T3*(ub*T3_Vgate_sourcep)));
4651 : 0 : T4_Vdrainp_sourcep=((T3_Vdrainp_sourcep*(ua+(ub*T3)))+(T3*(ub*T3_Vdrainp_sourcep)));
4652 : 0 : T4_Vbulk_sourcep=((T3_Vbulk_sourcep*(ua+(ub*T3)))+(T3*(ub*T3_Vbulk_sourcep)));
4653 : : #endif
4654 : 0 : T4=(T3*(ua+(ub*T3)));
4655 : : #if defined(_DERIVATE)
4656 : 0 : T5_Vgate_sourcep=((T4_Vgate_sourcep*T2)+(T4*T2_Vgate_sourcep));
4657 : 0 : T5_Vdrainp_sourcep=((T4_Vdrainp_sourcep*T2)+(T4*T2_Vdrainp_sourcep));
4658 : 0 : T5_Vbulk_sourcep=((T4_Vbulk_sourcep*T2)+(T4*T2_Vbulk_sourcep));
4659 : : #endif
4660 : 0 : T5=(T4*T2);
4661 : : }
4662 : : }
4663 [ # # ]: 0 : if
4664 : : (T5>=(-0.8))
4665 : : {
4666 : : #if defined(_DERIVATE)
4667 : 0 : Denomi_Vgate_sourcep=T5_Vgate_sourcep;
4668 : 0 : Denomi_Vdrainp_sourcep=T5_Vdrainp_sourcep;
4669 : 0 : Denomi_Vbulk_sourcep=T5_Vbulk_sourcep;
4670 : : #endif
4671 : 0 : Denomi=(1.0+T5);
4672 : : }
4673 : : else
4674 : : {
4675 : : #if defined(_DERIVATE)
4676 : 0 : Denomi_Vgate_sourcep=((T5_Vgate_sourcep*(1.0/(7.0+(10.0*T5))))+((0.6+T5)*(-(10.0*T5_Vgate_sourcep)/(7.0+(10.0*T5))/(7.0+(10.0*T5)))));
4677 : 0 : Denomi_Vdrainp_sourcep=((T5_Vdrainp_sourcep*(1.0/(7.0+(10.0*T5))))+((0.6+T5)*(-(10.0*T5_Vdrainp_sourcep)/(7.0+(10.0*T5))/(7.0+(10.0*T5)))));
4678 : 0 : Denomi_Vbulk_sourcep=((T5_Vbulk_sourcep*(1.0/(7.0+(10.0*T5))))+((0.6+T5)*(-(10.0*T5_Vbulk_sourcep)/(7.0+(10.0*T5))/(7.0+(10.0*T5)))));
4679 : : #endif
4680 : 0 : Denomi=((0.6+T5)*(1.0/(7.0+(10.0*T5))));
4681 : : }
4682 : : #if defined(_DERIVATE)
4683 : 0 : ueff_Vgate_sourcep=(-u0temp*Denomi_Vgate_sourcep/Denomi/Denomi);
4684 : 0 : ueff_Vdrainp_sourcep=(-u0temp*Denomi_Vdrainp_sourcep/Denomi/Denomi);
4685 : 0 : ueff_Vbulk_sourcep=(-u0temp*Denomi_Vbulk_sourcep/Denomi/Denomi);
4686 : : #endif
4687 : 0 : ueff=(u0temp/Denomi);
4688 : : #if defined(_DERIVATE)
4689 : 0 : WVCox_Vdrainp_sourcep=Weff_Vdrainp_sourcep*vsattemp*cox;
4690 : 0 : WVCox_Vgate_sourcep=Weff_Vgate_sourcep*vsattemp*cox;
4691 : 0 : WVCox_Vbulk_sourcep=Weff_Vbulk_sourcep*vsattemp*cox;
4692 : : #endif
4693 : 0 : WVCox=((Weff*vsattemp)*cox);
4694 : : #if defined(_DERIVATE)
4695 : 0 : WVCoxRds_Vdrainp_sourcep=((WVCox_Vdrainp_sourcep*Rds)+(WVCox*Rds_Vdrainp_sourcep));
4696 : 0 : WVCoxRds_Vgate_sourcep=((WVCox_Vgate_sourcep*Rds)+(WVCox*Rds_Vgate_sourcep));
4697 : 0 : WVCoxRds_Vbulk_sourcep=((WVCox_Vbulk_sourcep*Rds)+(WVCox*Rds_Vbulk_sourcep));
4698 : : #endif
4699 : 0 : WVCoxRds=(WVCox*Rds);
4700 : : #if defined(_DERIVATE)
4701 : 0 : Esat_Vgate_sourcep=(-(2.0*vsattemp)*ueff_Vgate_sourcep/ueff/ueff);
4702 : 0 : Esat_Vdrainp_sourcep=(-(2.0*vsattemp)*ueff_Vdrainp_sourcep/ueff/ueff);
4703 : 0 : Esat_Vbulk_sourcep=(-(2.0*vsattemp)*ueff_Vbulk_sourcep/ueff/ueff);
4704 : : #endif
4705 : 0 : Esat=((2.0*vsattemp)/ueff);
4706 : : #if defined(_DERIVATE)
4707 : 0 : EsatL_Vgate_sourcep=Esat_Vgate_sourcep*Leff;
4708 : 0 : EsatL_Vdrainp_sourcep=Esat_Vdrainp_sourcep*Leff;
4709 : 0 : EsatL_Vbulk_sourcep=Esat_Vbulk_sourcep*Leff;
4710 : : #endif
4711 : 0 : EsatL=(Esat*Leff);
4712 [ # # ]: 0 : if
4713 : : (a1==0.0)
4714 : : {
4715 : : #if defined(_DERIVATE)
4716 : 0 : Lambda_Vgate_sourcep=0.0;
4717 : 0 : Lambda_Vdrainp_sourcep=0.0;
4718 : 0 : Lambda_Vbulk_sourcep=0.0;
4719 : : #endif
4720 : 0 : Lambda=a2;
4721 : : }
4722 : : else
4723 : : {
4724 [ # # ]: 0 : if
4725 : : (a1>0.0)
4726 : : {
4727 : : #if defined(_DERIVATE)
4728 : 0 : T_0_Vgate_sourcep=0.0;
4729 : 0 : T_0_Vdrainp_sourcep=0.0;
4730 : 0 : T_0_Vbulk_sourcep=0.0;
4731 : : #endif
4732 : 0 : T_0=(1.0-a2);
4733 : : #if defined(_DERIVATE)
4734 : 0 : T1_Vgate_sourcep=(T_0_Vgate_sourcep-(a1*Vgsteff_Vgate_sourcep));
4735 : 0 : T1_Vdrainp_sourcep=(T_0_Vdrainp_sourcep-(a1*Vgsteff_Vdrainp_sourcep));
4736 : 0 : T1_Vbulk_sourcep=(T_0_Vbulk_sourcep-(a1*Vgsteff_Vbulk_sourcep));
4737 : : #endif
4738 : 0 : T1=((T_0-(a1*Vgsteff))-0.0001);
4739 : : {
4740 : 0 : double m00_sqrt(d00_sqrt0,((T1*T1)+(0.0004*T_0)))
4741 : : #if defined(_DERIVATE)
4742 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T1*T1)+(0.0004*T_0)))
4743 : : #endif
4744 : : #if defined(_DERIVATE)
4745 : 0 : T2_Vgate_sourcep=(((T1_Vgate_sourcep*T1)+(T1*T1_Vgate_sourcep))+(0.0004*T_0_Vgate_sourcep))*d10_sqrt0;
4746 : 0 : T2_Vdrainp_sourcep=(((T1_Vdrainp_sourcep*T1)+(T1*T1_Vdrainp_sourcep))+(0.0004*T_0_Vdrainp_sourcep))*d10_sqrt0;
4747 : 0 : T2_Vbulk_sourcep=(((T1_Vbulk_sourcep*T1)+(T1*T1_Vbulk_sourcep))+(0.0004*T_0_Vbulk_sourcep))*d10_sqrt0;
4748 : : #endif
4749 : 0 : T2=d00_sqrt0;
4750 : : }
4751 : : #if defined(_DERIVATE)
4752 : 0 : Lambda_Vgate_sourcep=(T_0_Vgate_sourcep-(0.5*(T1_Vgate_sourcep+T2_Vgate_sourcep)));
4753 : 0 : Lambda_Vdrainp_sourcep=(T_0_Vdrainp_sourcep-(0.5*(T1_Vdrainp_sourcep+T2_Vdrainp_sourcep)));
4754 : 0 : Lambda_Vbulk_sourcep=(T_0_Vbulk_sourcep-(0.5*(T1_Vbulk_sourcep+T2_Vbulk_sourcep)));
4755 : : #endif
4756 : 0 : Lambda=((a2+T_0)-(0.5*(T1+T2)));
4757 : : }
4758 : : else
4759 : : {
4760 : : #if defined(_DERIVATE)
4761 : 0 : T1_Vgate_sourcep=(a1*Vgsteff_Vgate_sourcep);
4762 : 0 : T1_Vdrainp_sourcep=(a1*Vgsteff_Vdrainp_sourcep);
4763 : 0 : T1_Vbulk_sourcep=(a1*Vgsteff_Vbulk_sourcep);
4764 : : #endif
4765 : 0 : T1=((a2+(a1*Vgsteff))-0.0001);
4766 : : {
4767 : 0 : double m00_sqrt(d00_sqrt0,((T1*T1)+(0.0004*a2)))
4768 : : #if defined(_DERIVATE)
4769 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T1*T1)+(0.0004*a2)))
4770 : : #endif
4771 : : #if defined(_DERIVATE)
4772 : 0 : T2_Vgate_sourcep=((T1_Vgate_sourcep*T1)+(T1*T1_Vgate_sourcep))*d10_sqrt0;
4773 : 0 : T2_Vdrainp_sourcep=((T1_Vdrainp_sourcep*T1)+(T1*T1_Vdrainp_sourcep))*d10_sqrt0;
4774 : 0 : T2_Vbulk_sourcep=((T1_Vbulk_sourcep*T1)+(T1*T1_Vbulk_sourcep))*d10_sqrt0;
4775 : : #endif
4776 : 0 : T2=d00_sqrt0;
4777 : : }
4778 : : #if defined(_DERIVATE)
4779 : 0 : Lambda_Vgate_sourcep=(0.5*(T1_Vgate_sourcep+T2_Vgate_sourcep));
4780 : 0 : Lambda_Vdrainp_sourcep=(0.5*(T1_Vdrainp_sourcep+T2_Vdrainp_sourcep));
4781 : 0 : Lambda_Vbulk_sourcep=(0.5*(T1_Vbulk_sourcep+T2_Vbulk_sourcep));
4782 : : #endif
4783 : 0 : Lambda=(0.5*(T1+T2));
4784 : : }
4785 : : }
4786 : : #if defined(_DERIVATE)
4787 : 0 : Vgst2Vtm_Vdrainp_sourcep=Vgsteff_Vdrainp_sourcep;
4788 : 0 : Vgst2Vtm_Vgate_sourcep=Vgsteff_Vgate_sourcep;
4789 : 0 : Vgst2Vtm_Vbulk_sourcep=Vgsteff_Vbulk_sourcep;
4790 : : #endif
4791 : 0 : Vgst2Vtm=(Vgsteff+(2.0*Vtm));
4792 [ # # ][ # # ]: 0 : if
4793 : : ((Rds==0.0)&&(Lambda==1.0))
4794 : : {
4795 : : #if defined(_DERIVATE)
4796 : 0 : T_0_Vgate_sourcep=(-(((Abulk_Vgate_sourcep*EsatL)+(Abulk*EsatL_Vgate_sourcep))+Vgst2Vtm_Vgate_sourcep)/((Abulk*EsatL)+Vgst2Vtm)/((Abulk*EsatL)+Vgst2Vtm));
4797 : 0 : T_0_Vdrainp_sourcep=(-(((Abulk_Vdrainp_sourcep*EsatL)+(Abulk*EsatL_Vdrainp_sourcep))+Vgst2Vtm_Vdrainp_sourcep)/((Abulk*EsatL)+Vgst2Vtm)/((Abulk*EsatL)+Vgst2Vtm));
4798 : 0 : T_0_Vbulk_sourcep=(-(((Abulk_Vbulk_sourcep*EsatL)+(Abulk*EsatL_Vbulk_sourcep))+Vgst2Vtm_Vbulk_sourcep)/((Abulk*EsatL)+Vgst2Vtm)/((Abulk*EsatL)+Vgst2Vtm));
4799 : : #endif
4800 : 0 : T_0=(1.0/((Abulk*EsatL)+Vgst2Vtm));
4801 : : #if defined(_DYNAMIC)
4802 : : #if defined(_DERIVATE)
4803 : 0 : tmp1_Vdrainp_sourcep=0.0;
4804 : 0 : tmp1_Vbulk_sourcep=0.0;
4805 : : #endif
4806 : 0 : tmp1=0.0;
4807 : : #endif
4808 : : #if defined(_DERIVATE)
4809 : 0 : T1_Vgate_sourcep=((T_0_Vgate_sourcep*T_0)+(T_0*T_0_Vgate_sourcep));
4810 : 0 : T1_Vdrainp_sourcep=((T_0_Vdrainp_sourcep*T_0)+(T_0*T_0_Vdrainp_sourcep));
4811 : 0 : T1_Vbulk_sourcep=((T_0_Vbulk_sourcep*T_0)+(T_0*T_0_Vbulk_sourcep));
4812 : : #endif
4813 : 0 : T1=(T_0*T_0);
4814 : : #if defined(_DERIVATE)
4815 : 0 : T2_Vgate_sourcep=((Vgst2Vtm_Vgate_sourcep*T_0)+(Vgst2Vtm*T_0_Vgate_sourcep));
4816 : 0 : T2_Vdrainp_sourcep=((Vgst2Vtm_Vdrainp_sourcep*T_0)+(Vgst2Vtm*T_0_Vdrainp_sourcep));
4817 : 0 : T2_Vbulk_sourcep=((Vgst2Vtm_Vbulk_sourcep*T_0)+(Vgst2Vtm*T_0_Vbulk_sourcep));
4818 : : #endif
4819 : 0 : T2=(Vgst2Vtm*T_0);
4820 : : #if defined(_DERIVATE)
4821 : 0 : T3_Vgate_sourcep=((EsatL_Vgate_sourcep*Vgst2Vtm)+(EsatL*Vgst2Vtm_Vgate_sourcep));
4822 : 0 : T3_Vdrainp_sourcep=((EsatL_Vdrainp_sourcep*Vgst2Vtm)+(EsatL*Vgst2Vtm_Vdrainp_sourcep));
4823 : 0 : T3_Vbulk_sourcep=((EsatL_Vbulk_sourcep*Vgst2Vtm)+(EsatL*Vgst2Vtm_Vbulk_sourcep));
4824 : : #endif
4825 : 0 : T3=(EsatL*Vgst2Vtm);
4826 : : #if defined(_DERIVATE)
4827 : 0 : Vdsat_Vgate_sourcep=((T3_Vgate_sourcep*T_0)+(T3*T_0_Vgate_sourcep));
4828 : 0 : Vdsat_Vdrainp_sourcep=((T3_Vdrainp_sourcep*T_0)+(T3*T_0_Vdrainp_sourcep));
4829 : 0 : Vdsat_Vbulk_sourcep=((T3_Vbulk_sourcep*T_0)+(T3*T_0_Vbulk_sourcep));
4830 : : #endif
4831 : 0 : Vdsat=(T3*T_0);
4832 : : }
4833 : : else
4834 : : {
4835 : : #if defined(_DERIVATE)
4836 : 0 : T9_Vgate_sourcep=((Abulk_Vgate_sourcep*WVCoxRds)+(Abulk*WVCoxRds_Vgate_sourcep));
4837 : 0 : T9_Vdrainp_sourcep=((Abulk_Vdrainp_sourcep*WVCoxRds)+(Abulk*WVCoxRds_Vdrainp_sourcep));
4838 : 0 : T9_Vbulk_sourcep=((Abulk_Vbulk_sourcep*WVCoxRds)+(Abulk*WVCoxRds_Vbulk_sourcep));
4839 : : #endif
4840 : 0 : T9=(Abulk*WVCoxRds);
4841 : : #if defined(_DERIVATE)
4842 : 0 : T7_Vgate_sourcep=((Vgst2Vtm_Vgate_sourcep*T9)+(Vgst2Vtm*T9_Vgate_sourcep));
4843 : 0 : T7_Vdrainp_sourcep=((Vgst2Vtm_Vdrainp_sourcep*T9)+(Vgst2Vtm*T9_Vdrainp_sourcep));
4844 : 0 : T7_Vbulk_sourcep=((Vgst2Vtm_Vbulk_sourcep*T9)+(Vgst2Vtm*T9_Vbulk_sourcep));
4845 : : #endif
4846 : 0 : T7=(Vgst2Vtm*T9);
4847 : : #if defined(_DERIVATE)
4848 : 0 : T6_Vgate_sourcep=((Vgst2Vtm_Vgate_sourcep*WVCoxRds)+(Vgst2Vtm*WVCoxRds_Vgate_sourcep));
4849 : 0 : T6_Vdrainp_sourcep=((Vgst2Vtm_Vdrainp_sourcep*WVCoxRds)+(Vgst2Vtm*WVCoxRds_Vdrainp_sourcep));
4850 : 0 : T6_Vbulk_sourcep=((Vgst2Vtm_Vbulk_sourcep*WVCoxRds)+(Vgst2Vtm*WVCoxRds_Vbulk_sourcep));
4851 : : #endif
4852 : 0 : T6=(Vgst2Vtm*WVCoxRds);
4853 : : #if defined(_DERIVATE)
4854 : 0 : T_0_Vgate_sourcep=(((2.0*Abulk_Vgate_sourcep)*((T9-1.0)+(1.0/Lambda)))+((2.0*Abulk)*(T9_Vgate_sourcep+(-Lambda_Vgate_sourcep/Lambda/Lambda))));
4855 : 0 : T_0_Vdrainp_sourcep=(((2.0*Abulk_Vdrainp_sourcep)*((T9-1.0)+(1.0/Lambda)))+((2.0*Abulk)*(T9_Vdrainp_sourcep+(-Lambda_Vdrainp_sourcep/Lambda/Lambda))));
4856 : 0 : T_0_Vbulk_sourcep=(((2.0*Abulk_Vbulk_sourcep)*((T9-1.0)+(1.0/Lambda)))+((2.0*Abulk)*(T9_Vbulk_sourcep+(-Lambda_Vbulk_sourcep/Lambda/Lambda))));
4857 : : #endif
4858 : 0 : T_0=((2.0*Abulk)*((T9-1.0)+(1.0/Lambda)));
4859 : : #if defined(_DERIVATE)
4860 : 0 : T1_Vgate_sourcep=((((Vgst2Vtm_Vgate_sourcep*((2.0/Lambda)-1.0))+(Vgst2Vtm*(-2.0*Lambda_Vgate_sourcep/Lambda/Lambda)))+((Abulk_Vgate_sourcep*EsatL)+(Abulk*EsatL_Vgate_sourcep)))+(3.0*T7_Vgate_sourcep));
4861 : 0 : T1_Vdrainp_sourcep=((((Vgst2Vtm_Vdrainp_sourcep*((2.0/Lambda)-1.0))+(Vgst2Vtm*(-2.0*Lambda_Vdrainp_sourcep/Lambda/Lambda)))+((Abulk_Vdrainp_sourcep*EsatL)+(Abulk*EsatL_Vdrainp_sourcep)))+(3.0*T7_Vdrainp_sourcep));
4862 : 0 : T1_Vbulk_sourcep=((((Vgst2Vtm_Vbulk_sourcep*((2.0/Lambda)-1.0))+(Vgst2Vtm*(-2.0*Lambda_Vbulk_sourcep/Lambda/Lambda)))+((Abulk_Vbulk_sourcep*EsatL)+(Abulk*EsatL_Vbulk_sourcep)))+(3.0*T7_Vbulk_sourcep));
4863 : : #endif
4864 : 0 : T1=(((Vgst2Vtm*((2.0/Lambda)-1.0))+(Abulk*EsatL))+(3.0*T7));
4865 : : #if defined(_DERIVATE)
4866 : 0 : T2_Vgate_sourcep=((Vgst2Vtm_Vgate_sourcep*(EsatL+(2.0*T6)))+(Vgst2Vtm*(EsatL_Vgate_sourcep+(2.0*T6_Vgate_sourcep))));
4867 : 0 : T2_Vdrainp_sourcep=((Vgst2Vtm_Vdrainp_sourcep*(EsatL+(2.0*T6)))+(Vgst2Vtm*(EsatL_Vdrainp_sourcep+(2.0*T6_Vdrainp_sourcep))));
4868 : 0 : T2_Vbulk_sourcep=((Vgst2Vtm_Vbulk_sourcep*(EsatL+(2.0*T6)))+(Vgst2Vtm*(EsatL_Vbulk_sourcep+(2.0*T6_Vbulk_sourcep))));
4869 : : #endif
4870 : 0 : T2=(Vgst2Vtm*(EsatL+(2.0*T6)));
4871 : : {
4872 : 0 : double m00_sqrt(d00_sqrt0,((T1*T1)-((2.0*T_0)*T2)))
4873 : : #if defined(_DERIVATE)
4874 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T1*T1)-((2.0*T_0)*T2)))
4875 : : #endif
4876 : : #if defined(_DERIVATE)
4877 : 0 : T3_Vgate_sourcep=(((T1_Vgate_sourcep*T1)+(T1*T1_Vgate_sourcep))-(((2.0*T_0_Vgate_sourcep)*T2)+((2.0*T_0)*T2_Vgate_sourcep)))*d10_sqrt0;
4878 : 0 : T3_Vdrainp_sourcep=(((T1_Vdrainp_sourcep*T1)+(T1*T1_Vdrainp_sourcep))-(((2.0*T_0_Vdrainp_sourcep)*T2)+((2.0*T_0)*T2_Vdrainp_sourcep)))*d10_sqrt0;
4879 : 0 : T3_Vbulk_sourcep=(((T1_Vbulk_sourcep*T1)+(T1*T1_Vbulk_sourcep))-(((2.0*T_0_Vbulk_sourcep)*T2)+((2.0*T_0)*T2_Vbulk_sourcep)))*d10_sqrt0;
4880 : : #endif
4881 : 0 : T3=d00_sqrt0;
4882 : : }
4883 : : #if defined(_DERIVATE)
4884 : 0 : Vdsat_Vgate_sourcep=(((T1_Vgate_sourcep-T3_Vgate_sourcep)*T_0-(T1-T3)*T_0_Vgate_sourcep)/T_0/T_0);
4885 : 0 : Vdsat_Vdrainp_sourcep=(((T1_Vdrainp_sourcep-T3_Vdrainp_sourcep)*T_0-(T1-T3)*T_0_Vdrainp_sourcep)/T_0/T_0);
4886 : 0 : Vdsat_Vbulk_sourcep=(((T1_Vbulk_sourcep-T3_Vbulk_sourcep)*T_0-(T1-T3)*T_0_Vbulk_sourcep)/T_0/T_0);
4887 : : #endif
4888 : 0 : Vdsat=((T1-T3)/T_0);
4889 : : }
4890 : : #if defined(_DYNAMIC)
4891 : 0 : vdsat=Vdsat;
4892 : : #endif
4893 : : #if defined(_DERIVATE)
4894 : 0 : T1_Vgate_sourcep=Vdsat_Vgate_sourcep;
4895 : 0 : T1_Vdrainp_sourcep=(Vdsat_Vdrainp_sourcep-Vds_Vdrainp_sourcep);
4896 : 0 : T1_Vbulk_sourcep=Vdsat_Vbulk_sourcep;
4897 : : #endif
4898 : 0 : T1=((Vdsat-Vds)-delta);
4899 : : {
4900 : 0 : double m00_sqrt(d00_sqrt0,((T1*T1)+((4.0*delta)*Vdsat)))
4901 : : #if defined(_DERIVATE)
4902 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T1*T1)+((4.0*delta)*Vdsat)))
4903 : : #endif
4904 : : #if defined(_DERIVATE)
4905 : 0 : T2_Vgate_sourcep=(((T1_Vgate_sourcep*T1)+(T1*T1_Vgate_sourcep))+((4.0*delta)*Vdsat_Vgate_sourcep))*d10_sqrt0;
4906 : 0 : T2_Vdrainp_sourcep=(((T1_Vdrainp_sourcep*T1)+(T1*T1_Vdrainp_sourcep))+((4.0*delta)*Vdsat_Vdrainp_sourcep))*d10_sqrt0;
4907 : 0 : T2_Vbulk_sourcep=(((T1_Vbulk_sourcep*T1)+(T1*T1_Vbulk_sourcep))+((4.0*delta)*Vdsat_Vbulk_sourcep))*d10_sqrt0;
4908 : : #endif
4909 : 0 : T2=d00_sqrt0;
4910 : : }
4911 : : #if defined(_DERIVATE)
4912 : 0 : Vdseff_Vgate_sourcep=(Vdsat_Vgate_sourcep-(0.5*(T1_Vgate_sourcep+T2_Vgate_sourcep)));
4913 : 0 : Vdseff_Vdrainp_sourcep=(Vdsat_Vdrainp_sourcep-(0.5*(T1_Vdrainp_sourcep+T2_Vdrainp_sourcep)));
4914 : 0 : Vdseff_Vbulk_sourcep=(Vdsat_Vbulk_sourcep-(0.5*(T1_Vbulk_sourcep+T2_Vbulk_sourcep)));
4915 : : #endif
4916 : 0 : Vdseff=(Vdsat-(0.5*(T1+T2)));
4917 [ # # ][ # # ]: 0 : if
4918 : : ((Vds==0.0)&&(VERSION==3.24))
4919 : : {
4920 : : #if defined(_DERIVATE)
4921 : 0 : Vdseff_Vgate_sourcep=0.0;
4922 : 0 : Vdseff_Vdrainp_sourcep=0.0;
4923 : 0 : Vdseff_Vbulk_sourcep=0.0;
4924 : : #endif
4925 : 0 : Vdseff=0.0;
4926 : : }
4927 : : #if defined(_DERIVATE)
4928 : 0 : tmp4_Vgate_sourcep=(-(((((0.5*Abulk_Vgate_sourcep)*Vdsat)+((0.5*Abulk)*Vdsat_Vgate_sourcep))*Vgst2Vtm-((0.5*Abulk)*Vdsat)*Vgst2Vtm_Vgate_sourcep)/Vgst2Vtm/Vgst2Vtm));
4929 : 0 : tmp4_Vdrainp_sourcep=(-(((((0.5*Abulk_Vdrainp_sourcep)*Vdsat)+((0.5*Abulk)*Vdsat_Vdrainp_sourcep))*Vgst2Vtm-((0.5*Abulk)*Vdsat)*Vgst2Vtm_Vdrainp_sourcep)/Vgst2Vtm/Vgst2Vtm));
4930 : 0 : tmp4_Vbulk_sourcep=(-(((((0.5*Abulk_Vbulk_sourcep)*Vdsat)+((0.5*Abulk)*Vdsat_Vbulk_sourcep))*Vgst2Vtm-((0.5*Abulk)*Vdsat)*Vgst2Vtm_Vbulk_sourcep)/Vgst2Vtm/Vgst2Vtm));
4931 : : #endif
4932 : 0 : tmp4=(1.0-(((0.5*Abulk)*Vdsat)/Vgst2Vtm));
4933 : : #if defined(_DERIVATE)
4934 : 0 : T9_Vgate_sourcep=((WVCoxRds_Vgate_sourcep*Vgsteff)+(WVCoxRds*Vgsteff_Vgate_sourcep));
4935 : 0 : T9_Vdrainp_sourcep=((WVCoxRds_Vdrainp_sourcep*Vgsteff)+(WVCoxRds*Vgsteff_Vdrainp_sourcep));
4936 : 0 : T9_Vbulk_sourcep=((WVCoxRds_Vbulk_sourcep*Vgsteff)+(WVCoxRds*Vgsteff_Vbulk_sourcep));
4937 : : #endif
4938 : 0 : T9=(WVCoxRds*Vgsteff);
4939 : : #if defined(_DERIVATE)
4940 : 0 : T_0_Vgate_sourcep=((EsatL_Vgate_sourcep+Vdsat_Vgate_sourcep)+(((2.0*T9_Vgate_sourcep)*tmp4)+((2.0*T9)*tmp4_Vgate_sourcep)));
4941 : 0 : T_0_Vdrainp_sourcep=((EsatL_Vdrainp_sourcep+Vdsat_Vdrainp_sourcep)+(((2.0*T9_Vdrainp_sourcep)*tmp4)+((2.0*T9)*tmp4_Vdrainp_sourcep)));
4942 : 0 : T_0_Vbulk_sourcep=((EsatL_Vbulk_sourcep+Vdsat_Vbulk_sourcep)+(((2.0*T9_Vbulk_sourcep)*tmp4)+((2.0*T9)*tmp4_Vbulk_sourcep)));
4943 : : #endif
4944 : 0 : T_0=((EsatL+Vdsat)+((2.0*T9)*tmp4));
4945 : : #if defined(_DERIVATE)
4946 : 0 : T9_Vgate_sourcep=((WVCoxRds_Vgate_sourcep*Abulk)+(WVCoxRds*Abulk_Vgate_sourcep));
4947 : 0 : T9_Vdrainp_sourcep=((WVCoxRds_Vdrainp_sourcep*Abulk)+(WVCoxRds*Abulk_Vdrainp_sourcep));
4948 : 0 : T9_Vbulk_sourcep=((WVCoxRds_Vbulk_sourcep*Abulk)+(WVCoxRds*Abulk_Vbulk_sourcep));
4949 : : #endif
4950 : 0 : T9=(WVCoxRds*Abulk);
4951 : : #if defined(_DERIVATE)
4952 : 0 : T1_Vgate_sourcep=((-2.0*Lambda_Vgate_sourcep/Lambda/Lambda)+T9_Vgate_sourcep);
4953 : 0 : T1_Vdrainp_sourcep=((-2.0*Lambda_Vdrainp_sourcep/Lambda/Lambda)+T9_Vdrainp_sourcep);
4954 : 0 : T1_Vbulk_sourcep=((-2.0*Lambda_Vbulk_sourcep/Lambda/Lambda)+T9_Vbulk_sourcep);
4955 : : #endif
4956 : 0 : T1=(((2.0/Lambda)-1.0)+T9);
4957 : : #if defined(_DERIVATE)
4958 : 0 : Vasat_Vgate_sourcep=((T_0_Vgate_sourcep*T1-T_0*T1_Vgate_sourcep)/T1/T1);
4959 : 0 : Vasat_Vdrainp_sourcep=((T_0_Vdrainp_sourcep*T1-T_0*T1_Vdrainp_sourcep)/T1/T1);
4960 : 0 : Vasat_Vbulk_sourcep=((T_0_Vbulk_sourcep*T1-T_0*T1_Vbulk_sourcep)/T1/T1);
4961 : : #endif
4962 : 0 : Vasat=(T_0/T1);
4963 [ # # ]: 0 : if
4964 : : (Vdseff>Vds)
4965 : : {
4966 : : #if defined(_DERIVATE)
4967 : 0 : Vdseff_Vgate_sourcep=0.0;
4968 : 0 : Vdseff_Vdrainp_sourcep=Vds_Vdrainp_sourcep;
4969 : 0 : Vdseff_Vbulk_sourcep=0.0;
4970 : : #endif
4971 : 0 : Vdseff=Vds;
4972 : : }
4973 : : #if defined(_DERIVATE)
4974 : 0 : diffVds_Vdrainp_sourcep=(Vds_Vdrainp_sourcep-Vdseff_Vdrainp_sourcep);
4975 : 0 : diffVds_Vgate_sourcep=(-Vdseff_Vgate_sourcep);
4976 : 0 : diffVds_Vbulk_sourcep=(-Vdseff_Vbulk_sourcep);
4977 : : #endif
4978 : 0 : diffVds=(Vds-Vdseff);
4979 [ # # ][ # # ]: 0 : if
4980 : : ((pclm>0.0)&&(diffVds>1.0e-10))
4981 : : {
4982 : : #if defined(_DERIVATE)
4983 : 0 : T_0_Vgate_sourcep=(-(pclm*Abulk_Vgate_sourcep)*litl/((pclm*Abulk)*litl)/((pclm*Abulk)*litl));
4984 : 0 : T_0_Vdrainp_sourcep=(-(pclm*Abulk_Vdrainp_sourcep)*litl/((pclm*Abulk)*litl)/((pclm*Abulk)*litl));
4985 : 0 : T_0_Vbulk_sourcep=(-(pclm*Abulk_Vbulk_sourcep)*litl/((pclm*Abulk)*litl)/((pclm*Abulk)*litl));
4986 : : #endif
4987 : 0 : T_0=(1.0/((pclm*Abulk)*litl));
4988 : : #if defined(_DERIVATE)
4989 : 0 : T2_Vgate_sourcep=((Vgsteff_Vgate_sourcep*EsatL-Vgsteff*EsatL_Vgate_sourcep)/EsatL/EsatL);
4990 : 0 : T2_Vdrainp_sourcep=((Vgsteff_Vdrainp_sourcep*EsatL-Vgsteff*EsatL_Vdrainp_sourcep)/EsatL/EsatL);
4991 : 0 : T2_Vbulk_sourcep=((Vgsteff_Vbulk_sourcep*EsatL-Vgsteff*EsatL_Vbulk_sourcep)/EsatL/EsatL);
4992 : : #endif
4993 : 0 : T2=(Vgsteff/EsatL);
4994 : : #if defined(_DERIVATE)
4995 : 0 : T1_Vgate_sourcep=(Leff*(Abulk_Vgate_sourcep+T2_Vgate_sourcep));
4996 : 0 : T1_Vdrainp_sourcep=(Leff*(Abulk_Vdrainp_sourcep+T2_Vdrainp_sourcep));
4997 : 0 : T1_Vbulk_sourcep=(Leff*(Abulk_Vbulk_sourcep+T2_Vbulk_sourcep));
4998 : : #endif
4999 : 0 : T1=(Leff*(Abulk+T2));
5000 : : #if defined(_DERIVATE)
5001 : 0 : T9_Vgate_sourcep=((T_0_Vgate_sourcep*T1)+(T_0*T1_Vgate_sourcep));
5002 : 0 : T9_Vdrainp_sourcep=((T_0_Vdrainp_sourcep*T1)+(T_0*T1_Vdrainp_sourcep));
5003 : 0 : T9_Vbulk_sourcep=((T_0_Vbulk_sourcep*T1)+(T_0*T1_Vbulk_sourcep));
5004 : : #endif
5005 : 0 : T9=(T_0*T1);
5006 : : #if defined(_DERIVATE)
5007 : 0 : VACLM_Vgate_sourcep=((T9_Vgate_sourcep*diffVds)+(T9*diffVds_Vgate_sourcep));
5008 : 0 : VACLM_Vdrainp_sourcep=((T9_Vdrainp_sourcep*diffVds)+(T9*diffVds_Vdrainp_sourcep));
5009 : 0 : VACLM_Vbulk_sourcep=((T9_Vbulk_sourcep*diffVds)+(T9*diffVds_Vbulk_sourcep));
5010 : : #endif
5011 : 0 : VACLM=(T9*diffVds);
5012 : : }
5013 : : else
5014 : : {
5015 : : #if defined(_DERIVATE)
5016 : 0 : VACLM_Vgate_sourcep=0.0;
5017 : 0 : VACLM_Vdrainp_sourcep=0.0;
5018 : 0 : VACLM_Vbulk_sourcep=0.0;
5019 : : #endif
5020 : 0 : VACLM=5.834617425e14;
5021 : : }
5022 [ # # ]: 0 : if
5023 : : (thetaRout>0.0)
5024 : : {
5025 : : #if defined(_DERIVATE)
5026 : 0 : T_0_Vgate_sourcep=((((Vgst2Vtm_Vgate_sourcep*Abulk)+(Vgst2Vtm*Abulk_Vgate_sourcep))*Vdsat)+((Vgst2Vtm*Abulk)*Vdsat_Vgate_sourcep));
5027 : 0 : T_0_Vdrainp_sourcep=((((Vgst2Vtm_Vdrainp_sourcep*Abulk)+(Vgst2Vtm*Abulk_Vdrainp_sourcep))*Vdsat)+((Vgst2Vtm*Abulk)*Vdsat_Vdrainp_sourcep));
5028 : 0 : T_0_Vbulk_sourcep=((((Vgst2Vtm_Vbulk_sourcep*Abulk)+(Vgst2Vtm*Abulk_Vbulk_sourcep))*Vdsat)+((Vgst2Vtm*Abulk)*Vdsat_Vbulk_sourcep));
5029 : : #endif
5030 : 0 : T_0=((Vgst2Vtm*Abulk)*Vdsat);
5031 : : #if defined(_DERIVATE)
5032 : 0 : T1_Vgate_sourcep=(Vgst2Vtm_Vgate_sourcep+((Abulk_Vgate_sourcep*Vdsat)+(Abulk*Vdsat_Vgate_sourcep)));
5033 : 0 : T1_Vdrainp_sourcep=(Vgst2Vtm_Vdrainp_sourcep+((Abulk_Vdrainp_sourcep*Vdsat)+(Abulk*Vdsat_Vdrainp_sourcep)));
5034 : 0 : T1_Vbulk_sourcep=(Vgst2Vtm_Vbulk_sourcep+((Abulk_Vbulk_sourcep*Vdsat)+(Abulk*Vdsat_Vbulk_sourcep)));
5035 : : #endif
5036 : 0 : T1=(Vgst2Vtm+(Abulk*Vdsat));
5037 : : #if defined(_DERIVATE)
5038 : 0 : VADIBL_Vdrainp_sourcep=((Vgst2Vtm_Vdrainp_sourcep-((T_0_Vdrainp_sourcep*T1-T_0*T1_Vdrainp_sourcep)/T1/T1))/thetaRout);
5039 : 0 : VADIBL_Vgate_sourcep=((Vgst2Vtm_Vgate_sourcep-((T_0_Vgate_sourcep*T1-T_0*T1_Vgate_sourcep)/T1/T1))/thetaRout);
5040 : 0 : VADIBL_Vbulk_sourcep=((Vgst2Vtm_Vbulk_sourcep-((T_0_Vbulk_sourcep*T1-T_0*T1_Vbulk_sourcep)/T1/T1))/thetaRout);
5041 : : #endif
5042 : 0 : VADIBL=((Vgst2Vtm-(T_0/T1))/thetaRout);
5043 : : #if defined(_DERIVATE)
5044 : 0 : T7_Vgate_sourcep=0.0;
5045 : 0 : T7_Vdrainp_sourcep=(pdiblb*Vbseff_Vdrainp_sourcep);
5046 : 0 : T7_Vbulk_sourcep=(pdiblb*Vbseff_Vbulk_sourcep);
5047 : : #endif
5048 : 0 : T7=(pdiblb*Vbseff);
5049 [ # # ]: 0 : if
5050 : : (T7>=(-0.9))
5051 : : {
5052 : : #if defined(_DERIVATE)
5053 : 0 : T3_Vgate_sourcep=(-T7_Vgate_sourcep/(1.0+T7)/(1.0+T7));
5054 : 0 : T3_Vdrainp_sourcep=(-T7_Vdrainp_sourcep/(1.0+T7)/(1.0+T7));
5055 : 0 : T3_Vbulk_sourcep=(-T7_Vbulk_sourcep/(1.0+T7)/(1.0+T7));
5056 : : #endif
5057 : 0 : T3=(1.0/(1.0+T7));
5058 : : #if defined(_DERIVATE)
5059 : 0 : VADIBL_Vdrainp_sourcep=((T3_Vdrainp_sourcep*VADIBL)+(T3*VADIBL_Vdrainp_sourcep));
5060 : 0 : VADIBL_Vgate_sourcep=((T3_Vgate_sourcep*VADIBL)+(T3*VADIBL_Vgate_sourcep));
5061 : 0 : VADIBL_Vbulk_sourcep=((T3_Vbulk_sourcep*VADIBL)+(T3*VADIBL_Vbulk_sourcep));
5062 : : #endif
5063 : 0 : VADIBL=(T3*VADIBL);
5064 : : }
5065 : : else
5066 : : {
5067 : : #if defined(_DERIVATE)
5068 : 0 : T4_Vgate_sourcep=(-T7_Vgate_sourcep/(0.8+T7)/(0.8+T7));
5069 : 0 : T4_Vdrainp_sourcep=(-T7_Vdrainp_sourcep/(0.8+T7)/(0.8+T7));
5070 : 0 : T4_Vbulk_sourcep=(-T7_Vbulk_sourcep/(0.8+T7)/(0.8+T7));
5071 : : #endif
5072 : 0 : T4=(1.0/(0.8+T7));
5073 : : #if defined(_DERIVATE)
5074 : 0 : T3_Vgate_sourcep=(((20.0*T7_Vgate_sourcep)*T4)+((17.0+(20.0*T7))*T4_Vgate_sourcep));
5075 : 0 : T3_Vdrainp_sourcep=(((20.0*T7_Vdrainp_sourcep)*T4)+((17.0+(20.0*T7))*T4_Vdrainp_sourcep));
5076 : 0 : T3_Vbulk_sourcep=(((20.0*T7_Vbulk_sourcep)*T4)+((17.0+(20.0*T7))*T4_Vbulk_sourcep));
5077 : : #endif
5078 : 0 : T3=((17.0+(20.0*T7))*T4);
5079 : : #if defined(_DERIVATE)
5080 : 0 : VADIBL_Vdrainp_sourcep=((T3_Vdrainp_sourcep*VADIBL)+(T3*VADIBL_Vdrainp_sourcep));
5081 : 0 : VADIBL_Vgate_sourcep=((T3_Vgate_sourcep*VADIBL)+(T3*VADIBL_Vgate_sourcep));
5082 : 0 : VADIBL_Vbulk_sourcep=((T3_Vbulk_sourcep*VADIBL)+(T3*VADIBL_Vbulk_sourcep));
5083 : : #endif
5084 : 0 : VADIBL=(T3*VADIBL);
5085 : : }
5086 : : }
5087 : : else
5088 : : {
5089 : : #if defined(_DERIVATE)
5090 : 0 : VADIBL_Vdrainp_sourcep=0.0;
5091 : 0 : VADIBL_Vgate_sourcep=0.0;
5092 : 0 : VADIBL_Vbulk_sourcep=0.0;
5093 : : #endif
5094 : 0 : VADIBL=5.834617425e14;
5095 : : }
5096 : : #if defined(_DERIVATE)
5097 : 0 : T9_Vgate_sourcep=(((-pvag*EsatL_Vgate_sourcep/EsatL/EsatL)*Vgsteff)+((pvag/EsatL)*Vgsteff_Vgate_sourcep));
5098 : 0 : T9_Vdrainp_sourcep=(((-pvag*EsatL_Vdrainp_sourcep/EsatL/EsatL)*Vgsteff)+((pvag/EsatL)*Vgsteff_Vdrainp_sourcep));
5099 : 0 : T9_Vbulk_sourcep=(((-pvag*EsatL_Vbulk_sourcep/EsatL/EsatL)*Vgsteff)+((pvag/EsatL)*Vgsteff_Vbulk_sourcep));
5100 : : #endif
5101 : 0 : T9=((pvag/EsatL)*Vgsteff);
5102 [ # # ]: 0 : if
5103 : : (T9>(-0.9))
5104 : : {
5105 : : #if defined(_DERIVATE)
5106 : 0 : T_0_Vgate_sourcep=T9_Vgate_sourcep;
5107 : 0 : T_0_Vdrainp_sourcep=T9_Vdrainp_sourcep;
5108 : 0 : T_0_Vbulk_sourcep=T9_Vbulk_sourcep;
5109 : : #endif
5110 : 0 : T_0=(1.0+T9);
5111 : : }
5112 : : else
5113 : : {
5114 : : #if defined(_DERIVATE)
5115 : 0 : T_0_Vgate_sourcep=((T9_Vgate_sourcep*1.0*(17.0+(20.0*T9))-((0.8+T9)*1.0)*(20.0*T9_Vgate_sourcep))/(17.0+(20.0*T9))/(17.0+(20.0*T9)));
5116 : 0 : T_0_Vdrainp_sourcep=((T9_Vdrainp_sourcep*1.0*(17.0+(20.0*T9))-((0.8+T9)*1.0)*(20.0*T9_Vdrainp_sourcep))/(17.0+(20.0*T9))/(17.0+(20.0*T9)));
5117 : 0 : T_0_Vbulk_sourcep=((T9_Vbulk_sourcep*1.0*(17.0+(20.0*T9))-((0.8+T9)*1.0)*(20.0*T9_Vbulk_sourcep))/(17.0+(20.0*T9))/(17.0+(20.0*T9)));
5118 : : #endif
5119 : 0 : T_0=(((0.8+T9)*1.0)/(17.0+(20.0*T9)));
5120 : : }
5121 : : #if defined(_DERIVATE)
5122 : 0 : T1_Vgate_sourcep=((((VACLM_Vgate_sourcep*VADIBL)+(VACLM*VADIBL_Vgate_sourcep))*(VACLM+VADIBL)-(VACLM*VADIBL)*(VACLM_Vgate_sourcep+VADIBL_Vgate_sourcep))/(VACLM+VADIBL)/(VACLM+VADIBL));
5123 : 0 : T1_Vdrainp_sourcep=((((VACLM_Vdrainp_sourcep*VADIBL)+(VACLM*VADIBL_Vdrainp_sourcep))*(VACLM+VADIBL)-(VACLM*VADIBL)*(VACLM_Vdrainp_sourcep+VADIBL_Vdrainp_sourcep))/(VACLM+VADIBL)/(VACLM+VADIBL));
5124 : 0 : T1_Vbulk_sourcep=((((VACLM_Vbulk_sourcep*VADIBL)+(VACLM*VADIBL_Vbulk_sourcep))*(VACLM+VADIBL)-(VACLM*VADIBL)*(VACLM_Vbulk_sourcep+VADIBL_Vbulk_sourcep))/(VACLM+VADIBL)/(VACLM+VADIBL));
5125 : : #endif
5126 : 0 : T1=((VACLM*VADIBL)/(VACLM+VADIBL));
5127 : : #if defined(_DERIVATE)
5128 : 0 : Va_Vgate_sourcep=(Vasat_Vgate_sourcep+((T_0_Vgate_sourcep*T1)+(T_0*T1_Vgate_sourcep)));
5129 : 0 : Va_Vdrainp_sourcep=(Vasat_Vdrainp_sourcep+((T_0_Vdrainp_sourcep*T1)+(T_0*T1_Vdrainp_sourcep)));
5130 : 0 : Va_Vbulk_sourcep=(Vasat_Vbulk_sourcep+((T_0_Vbulk_sourcep*T1)+(T_0*T1_Vbulk_sourcep)));
5131 : : #endif
5132 : 0 : Va=(Vasat+(T_0*T1));
5133 [ # # ]: 0 : if
5134 : : (pscbe2>0.0)
5135 : : {
5136 [ # # ]: 0 : if
5137 : : (diffVds>((pscbe1*litl)/34.0))
5138 : : {
5139 : : {
5140 : 0 : double m00_exp(d00_exp0,((pscbe1*litl)/diffVds))
5141 : : #if defined(_DERIVATE)
5142 : : #define d10_exp0 d00_exp0
5143 : : #endif
5144 : : #if defined(_DERIVATE)
5145 : 0 : VASCBE_Vdrainp_sourcep=((Leff*(-(pscbe1*litl)*diffVds_Vdrainp_sourcep/diffVds/diffVds)*d10_exp0)/pscbe2);
5146 : 0 : VASCBE_Vgate_sourcep=((Leff*(-(pscbe1*litl)*diffVds_Vgate_sourcep/diffVds/diffVds)*d10_exp0)/pscbe2);
5147 : 0 : VASCBE_Vbulk_sourcep=((Leff*(-(pscbe1*litl)*diffVds_Vbulk_sourcep/diffVds/diffVds)*d10_exp0)/pscbe2);
5148 : : #endif
5149 : 0 : VASCBE=((Leff*d00_exp0)/pscbe2);
5150 : : }
5151 : : }
5152 : : else
5153 : : {
5154 : : #if defined(_DERIVATE)
5155 : 0 : VASCBE_Vdrainp_sourcep=0.0;
5156 : 0 : VASCBE_Vgate_sourcep=0.0;
5157 : 0 : VASCBE_Vbulk_sourcep=0.0;
5158 : : #endif
5159 : 0 : VASCBE=((5.834617425e14*Leff)/pscbe2);
5160 : : }
5161 : : }
5162 : : else
5163 : : {
5164 : : #if defined(_DERIVATE)
5165 : 0 : VASCBE_Vdrainp_sourcep=0.0;
5166 : 0 : VASCBE_Vgate_sourcep=0.0;
5167 : 0 : VASCBE_Vbulk_sourcep=0.0;
5168 : : #endif
5169 : 0 : VASCBE=5.834617425e14;
5170 : : }
5171 : : #if defined(_DERIVATE)
5172 : 0 : CoxWovL_Vdrainp_sourcep=((cox*Weff_Vdrainp_sourcep)/Leff);
5173 : 0 : CoxWovL_Vgate_sourcep=((cox*Weff_Vgate_sourcep)/Leff);
5174 : 0 : CoxWovL_Vbulk_sourcep=((cox*Weff_Vbulk_sourcep)/Leff);
5175 : : #endif
5176 : 0 : CoxWovL=((cox*Weff)/Leff);
5177 : : #if defined(_DERIVATE)
5178 : 0 : beta_Vgate_sourcep=((ueff_Vgate_sourcep*CoxWovL)+(ueff*CoxWovL_Vgate_sourcep));
5179 : 0 : beta_Vdrainp_sourcep=((ueff_Vdrainp_sourcep*CoxWovL)+(ueff*CoxWovL_Vdrainp_sourcep));
5180 : 0 : beta_Vbulk_sourcep=((ueff_Vbulk_sourcep*CoxWovL)+(ueff*CoxWovL_Vbulk_sourcep));
5181 : : #endif
5182 : 0 : beta=(ueff*CoxWovL);
5183 : : #if defined(_DERIVATE)
5184 : 0 : fgche1_Vdrainp_sourcep=((Vgsteff_Vdrainp_sourcep*(1.0-(((0.5*Abulk)*Vdseff)/Vgst2Vtm)))+(Vgsteff*(-(((((0.5*Abulk_Vdrainp_sourcep)*Vdseff)+((0.5*Abulk)*Vdseff_Vdrainp_sourcep))*Vgst2Vtm-((0.5*Abulk)*Vdseff)*Vgst2Vtm_Vdrainp_sourcep)/Vgst2Vtm/Vgst2Vtm))));
5185 : 0 : fgche1_Vgate_sourcep=((Vgsteff_Vgate_sourcep*(1.0-(((0.5*Abulk)*Vdseff)/Vgst2Vtm)))+(Vgsteff*(-(((((0.5*Abulk_Vgate_sourcep)*Vdseff)+((0.5*Abulk)*Vdseff_Vgate_sourcep))*Vgst2Vtm-((0.5*Abulk)*Vdseff)*Vgst2Vtm_Vgate_sourcep)/Vgst2Vtm/Vgst2Vtm))));
5186 : 0 : fgche1_Vbulk_sourcep=((Vgsteff_Vbulk_sourcep*(1.0-(((0.5*Abulk)*Vdseff)/Vgst2Vtm)))+(Vgsteff*(-(((((0.5*Abulk_Vbulk_sourcep)*Vdseff)+((0.5*Abulk)*Vdseff_Vbulk_sourcep))*Vgst2Vtm-((0.5*Abulk)*Vdseff)*Vgst2Vtm_Vbulk_sourcep)/Vgst2Vtm/Vgst2Vtm))));
5187 : : #endif
5188 : 0 : fgche1=(Vgsteff*(1.0-(((0.5*Abulk)*Vdseff)/Vgst2Vtm)));
5189 : : #if defined(_DERIVATE)
5190 : 0 : fgche2_Vgate_sourcep=((Vdseff_Vgate_sourcep*EsatL-Vdseff*EsatL_Vgate_sourcep)/EsatL/EsatL);
5191 : 0 : fgche2_Vdrainp_sourcep=((Vdseff_Vdrainp_sourcep*EsatL-Vdseff*EsatL_Vdrainp_sourcep)/EsatL/EsatL);
5192 : 0 : fgche2_Vbulk_sourcep=((Vdseff_Vbulk_sourcep*EsatL-Vdseff*EsatL_Vbulk_sourcep)/EsatL/EsatL);
5193 : : #endif
5194 : 0 : fgche2=(1.0+(Vdseff/EsatL));
5195 : : #if defined(_DERIVATE)
5196 : 0 : gche_Vgate_sourcep=((((beta_Vgate_sourcep*fgche1)+(beta*fgche1_Vgate_sourcep))*fgche2-(beta*fgche1)*fgche2_Vgate_sourcep)/fgche2/fgche2);
5197 : 0 : gche_Vdrainp_sourcep=((((beta_Vdrainp_sourcep*fgche1)+(beta*fgche1_Vdrainp_sourcep))*fgche2-(beta*fgche1)*fgche2_Vdrainp_sourcep)/fgche2/fgche2);
5198 : 0 : gche_Vbulk_sourcep=((((beta_Vbulk_sourcep*fgche1)+(beta*fgche1_Vbulk_sourcep))*fgche2-(beta*fgche1)*fgche2_Vbulk_sourcep)/fgche2/fgche2);
5199 : : #endif
5200 : 0 : gche=((beta*fgche1)/fgche2);
5201 : : #if defined(_DERIVATE)
5202 : 0 : Idl_Vgate_sourcep=((((gche_Vgate_sourcep*Vdseff)+(gche*Vdseff_Vgate_sourcep))*(1.0+(gche*Rds))-(gche*Vdseff)*((gche_Vgate_sourcep*Rds)+(gche*Rds_Vgate_sourcep)))/(1.0+(gche*Rds))/(1.0+(gche*Rds)));
5203 : 0 : Idl_Vdrainp_sourcep=((((gche_Vdrainp_sourcep*Vdseff)+(gche*Vdseff_Vdrainp_sourcep))*(1.0+(gche*Rds))-(gche*Vdseff)*((gche_Vdrainp_sourcep*Rds)+(gche*Rds_Vdrainp_sourcep)))/(1.0+(gche*Rds))/(1.0+(gche*Rds)));
5204 : 0 : Idl_Vbulk_sourcep=((((gche_Vbulk_sourcep*Vdseff)+(gche*Vdseff_Vbulk_sourcep))*(1.0+(gche*Rds))-(gche*Vdseff)*((gche_Vbulk_sourcep*Rds)+(gche*Rds_Vbulk_sourcep)))/(1.0+(gche*Rds))/(1.0+(gche*Rds)));
5205 : : #endif
5206 : 0 : Idl=((gche*Vdseff)/(1.0+(gche*Rds)));
5207 : : #if defined(_DERIVATE)
5208 : 0 : Idsa_Vgate_sourcep=((Idl_Vgate_sourcep*(1.0+(diffVds/Va)))+(Idl*((diffVds_Vgate_sourcep*Va-diffVds*Va_Vgate_sourcep)/Va/Va)));
5209 : 0 : Idsa_Vdrainp_sourcep=((Idl_Vdrainp_sourcep*(1.0+(diffVds/Va)))+(Idl*((diffVds_Vdrainp_sourcep*Va-diffVds*Va_Vdrainp_sourcep)/Va/Va)));
5210 : 0 : Idsa_Vbulk_sourcep=((Idl_Vbulk_sourcep*(1.0+(diffVds/Va)))+(Idl*((diffVds_Vbulk_sourcep*Va-diffVds*Va_Vbulk_sourcep)/Va/Va)));
5211 : : #endif
5212 : 0 : Idsa=(Idl*(1.0+(diffVds/Va)));
5213 : : #if defined(_DERIVATE)
5214 : 0 : Ids_Vgate_sourcep=((Idsa_Vgate_sourcep*(1.0+(diffVds/VASCBE)))+(Idsa*((diffVds_Vgate_sourcep*VASCBE-diffVds*VASCBE_Vgate_sourcep)/VASCBE/VASCBE)));
5215 : 0 : Ids_Vdrainp_sourcep=((Idsa_Vdrainp_sourcep*(1.0+(diffVds/VASCBE)))+(Idsa*((diffVds_Vdrainp_sourcep*VASCBE-diffVds*VASCBE_Vdrainp_sourcep)/VASCBE/VASCBE)));
5216 : 0 : Ids_Vbulk_sourcep=((Idsa_Vbulk_sourcep*(1.0+(diffVds/VASCBE)))+(Idsa*((diffVds_Vbulk_sourcep*VASCBE-diffVds*VASCBE_Vbulk_sourcep)/VASCBE/VASCBE)));
5217 : : #endif
5218 : 0 : Ids=(Idsa*(1.0+(diffVds/VASCBE)));
5219 : : #if defined(_DERIVATE)
5220 : 0 : tmp_Vgate_sourcep=0.0;
5221 : 0 : tmp_Vdrainp_sourcep=0.0;
5222 : 0 : tmp_Vbulk_sourcep=0.0;
5223 : : #endif
5224 : 0 : tmp=(alpha0+(alpha1*Leff));
5225 [ # # ][ # # ]: 0 : if
5226 : : ((tmp<=0.0)||(beta0<=0.0))
5227 : : {
5228 : : #if defined(_DERIVATE)
5229 : 0 : Isub_Vgate_sourcep=0.0;
5230 : 0 : Isub_Vdrainp_sourcep=0.0;
5231 : 0 : Isub_Vbulk_sourcep=0.0;
5232 : : #endif
5233 : 0 : Isub=0.0;
5234 : : }
5235 : : else
5236 : : {
5237 : : #if defined(_DERIVATE)
5238 : 0 : T2_Vgate_sourcep=0.0;
5239 : 0 : T2_Vdrainp_sourcep=0.0;
5240 : 0 : T2_Vbulk_sourcep=0.0;
5241 : : #endif
5242 : 0 : T2=(tmp/Leff);
5243 [ # # ]: 0 : if
5244 : : (diffVds>(beta0/34.0))
5245 : : {
5246 : : {
5247 : 0 : double m00_exp(d00_exp0,((-beta0)/diffVds))
5248 : : #if defined(_DERIVATE)
5249 : : #define d10_exp0 d00_exp0
5250 : : #endif
5251 : : #if defined(_DERIVATE)
5252 : 0 : T1_Vgate_sourcep=((((T2_Vgate_sourcep*diffVds)+(T2*diffVds_Vgate_sourcep))*d00_exp0)+((T2*diffVds)*(-(-beta0)*diffVds_Vgate_sourcep/diffVds/diffVds)*d10_exp0));
5253 : 0 : T1_Vdrainp_sourcep=((((T2_Vdrainp_sourcep*diffVds)+(T2*diffVds_Vdrainp_sourcep))*d00_exp0)+((T2*diffVds)*(-(-beta0)*diffVds_Vdrainp_sourcep/diffVds/diffVds)*d10_exp0));
5254 : 0 : T1_Vbulk_sourcep=((((T2_Vbulk_sourcep*diffVds)+(T2*diffVds_Vbulk_sourcep))*d00_exp0)+((T2*diffVds)*(-(-beta0)*diffVds_Vbulk_sourcep/diffVds/diffVds)*d10_exp0));
5255 : : #endif
5256 : 0 : T1=((T2*diffVds)*d00_exp0);
5257 : : }
5258 : : }
5259 : : else
5260 : : {
5261 : : #if defined(_DERIVATE)
5262 : 0 : T1_Vgate_sourcep=((T2_Vgate_sourcep*1.713908431e-15*diffVds)+((T2*1.713908431e-15)*diffVds_Vgate_sourcep));
5263 : 0 : T1_Vdrainp_sourcep=((T2_Vdrainp_sourcep*1.713908431e-15*diffVds)+((T2*1.713908431e-15)*diffVds_Vdrainp_sourcep));
5264 : 0 : T1_Vbulk_sourcep=((T2_Vbulk_sourcep*1.713908431e-15*diffVds)+((T2*1.713908431e-15)*diffVds_Vbulk_sourcep));
5265 : : #endif
5266 : 0 : T1=((T2*1.713908431e-15)*diffVds);
5267 : : }
5268 : : #if defined(_DERIVATE)
5269 : 0 : Isub_Vgate_sourcep=((T1_Vgate_sourcep*Idsa)+(T1*Idsa_Vgate_sourcep));
5270 : 0 : Isub_Vdrainp_sourcep=((T1_Vdrainp_sourcep*Idsa)+(T1*Idsa_Vdrainp_sourcep));
5271 : 0 : Isub_Vbulk_sourcep=((T1_Vbulk_sourcep*Idsa)+(T1*Idsa_Vbulk_sourcep));
5272 : : #endif
5273 : 0 : Isub=(T1*Idsa);
5274 : : }
5275 : : #if defined(_DERIVATE)
5276 : 0 : cdrain_Vgate_sourcep=Ids_Vgate_sourcep;
5277 : 0 : cdrain_Vdrainp_sourcep=Ids_Vdrainp_sourcep;
5278 : 0 : cdrain_Vbulk_sourcep=Ids_Vbulk_sourcep;
5279 : : #endif
5280 : 0 : cdrain=Ids;
5281 : : #if defined(_DERIVATE)
5282 : 0 : csub_Vgate_sourcep=Isub_Vgate_sourcep;
5283 : 0 : csub_Vdrainp_sourcep=Isub_Vdrainp_sourcep;
5284 : 0 : csub_Vbulk_sourcep=Isub_Vbulk_sourcep;
5285 : : #endif
5286 : 0 : csub=Isub;
5287 [ # # ]: 0 : if
5288 : : (VERSION==3.24)
5289 : : {
5290 : 0 : czbd=(unitAreaTempJctCap*drainArea);
5291 : 0 : czbs=(unitAreaTempJctCap*sourceArea);
5292 : : }
5293 : : else
5294 : : {
5295 : 0 : czbd=(unitAreaJctCap*drainArea);
5296 : 0 : czbs=(unitAreaJctCap*sourceArea);
5297 : : }
5298 [ # # ]: 0 : if
5299 : : (drainPerimeter<weff)
5300 : : {
5301 [ # # ]: 0 : if
5302 : : (VERSION==3.24)
5303 : : {
5304 : 0 : czbdswg=(unitLengthGateSidewallTempJctCap*drainPerimeter);
5305 : : }
5306 : : else
5307 : : {
5308 : 0 : czbdswg=(unitLengthGateSidewallJctCap*drainPerimeter);
5309 : : }
5310 : 0 : czbdsw=0.0;
5311 : : }
5312 : : else
5313 : : {
5314 [ # # ]: 0 : if
5315 : : (VERSION==3.24)
5316 : : {
5317 : 0 : czbdsw=(unitLengthSidewallTempJctCap*(drainPerimeter-weff));
5318 : 0 : czbdswg=(unitLengthGateSidewallTempJctCap*weff);
5319 : : }
5320 : : else
5321 : : {
5322 : 0 : czbdsw=(unitLengthSidewallJctCap*(drainPerimeter-weff));
5323 : 0 : czbdswg=(unitLengthGateSidewallJctCap*weff);
5324 : : }
5325 : : }
5326 [ # # ]: 0 : if
5327 : : (sourcePerimeter<weff)
5328 : : {
5329 : 0 : czbssw=0.0;
5330 [ # # ]: 0 : if
5331 : : (VERSION==3.24)
5332 : : {
5333 : 0 : czbsswg=(unitLengthGateSidewallTempJctCap*sourcePerimeter);
5334 : : }
5335 : : else
5336 : : {
5337 : 0 : czbsswg=(unitLengthGateSidewallJctCap*sourcePerimeter);
5338 : : }
5339 : : }
5340 : : else
5341 : : {
5342 [ # # ]: 0 : if
5343 : : (VERSION==3.24)
5344 : : {
5345 : 0 : czbssw=(unitLengthSidewallTempJctCap*(sourcePerimeter-weff));
5346 : 0 : czbsswg=(unitLengthGateSidewallTempJctCap*weff);
5347 : : }
5348 : : else
5349 : : {
5350 : 0 : czbssw=(unitLengthSidewallJctCap*(sourcePerimeter-weff));
5351 : 0 : czbsswg=(unitLengthGateSidewallJctCap*weff);
5352 : : }
5353 : : }
5354 : 0 : mj=bulkJctBotGradingCoeff;
5355 : 0 : mjsw=bulkJctSideGradingCoeff;
5356 : 0 : mjswg=bulkJctGateSideGradingCoeff;
5357 : : #if defined(_DYNAMIC)
5358 : : #if defined(_DERIVATE)
5359 : 0 : qbs_Vgate_sourcep=0.0;
5360 : 0 : qbs_Vdrainp_sourcep=0.0;
5361 : 0 : qbs_Vbulk_sourcep=0.0;
5362 : : #endif
5363 : 0 : qbs=0.0;
5364 : : #endif
5365 : : #if defined(_DYNAMIC)
5366 : : #if defined(_DERIVATE)
5367 : 0 : qbd_Vgate_sourcep=0.0;
5368 : 0 : qbd_Vdrainp_sourcep=0.0;
5369 : 0 : qbd_Vbulk_sourcep=0.0;
5370 : : #endif
5371 : 0 : qbd=0.0;
5372 : : #endif
5373 [ # # ]: 0 : if
5374 : : (vbs==0.0)
5375 : : {
5376 : : #if defined(_DYNAMIC)
5377 : : #if defined(_DERIVATE)
5378 : 0 : qbs_Vgate_sourcep=0.0;
5379 : 0 : qbs_Vdrainp_sourcep=0.0;
5380 : 0 : qbs_Vbulk_sourcep=0.0;
5381 : : #endif
5382 : 0 : qbs=0.0;
5383 : : #endif
5384 : : #if defined(_DYNAMIC)
5385 : 0 : capbs=((czbs+czbssw)+czbsswg);
5386 : : #endif
5387 : : }
5388 : : else
5389 : : {
5390 [ # # ]: 0 : if
5391 : : (vbs<0.0)
5392 : : {
5393 : : #ifdef _DYNAMIC
5394 [ # # ]: 0 : if
5395 : : (czbs>0.0)
5396 : : {
5397 : : #if defined(_DYNAMIC)
5398 : : #if defined(_DERIVATE)
5399 : 0 : arg_Vdrainp_sourcep=0.0;
5400 : 0 : arg_Vbulk_sourcep=(-(vbs_Vbulk_sourcep/PhiB));
5401 : : #endif
5402 : 0 : arg=(1.0-(vbs/PhiB));
5403 : : #endif
5404 : : #ifdef _DYNAMIC
5405 [ # # ]: 0 : if
5406 : : (mj==0.5)
5407 : : {
5408 : : #if defined(_DYNAMIC)
5409 : : {
5410 : 0 : double m00_sqrt(d00_sqrt0,arg)
5411 : : #if defined(_DERIVATE)
5412 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,arg)
5413 : : #endif
5414 : : #if defined(_DERIVATE)
5415 : 0 : sarg_Vdrainp_sourcep=0.0;
5416 : 0 : sarg_Vbulk_sourcep=(-arg_Vbulk_sourcep*d10_sqrt0/d00_sqrt0/d00_sqrt0);
5417 : : #endif
5418 : 0 : sarg=(1.0/d00_sqrt0);
5419 : : }
5420 : : #endif
5421 : : }
5422 : : else
5423 : : {
5424 : : #if defined(_DYNAMIC)
5425 : : {
5426 : 0 : double m00_logE(d00_logE0,arg)
5427 : 0 : double m00_exp(d00_exp1,((-mj)*d00_logE0))
5428 : : #if defined(_DERIVATE)
5429 : 0 : double m10_logE(d10_logE0,d00_logE0,arg)
5430 : : #define d10_exp1 d00_exp1
5431 : : #endif
5432 : : #if defined(_DERIVATE)
5433 : 0 : sarg_Vdrainp_sourcep=0.0;
5434 : 0 : sarg_Vbulk_sourcep=((-mj)*arg_Vbulk_sourcep*d10_logE0)*d10_exp1;
5435 : : #endif
5436 : 0 : sarg=d00_exp1;
5437 : : }
5438 : : #endif
5439 : : }
5440 : : #endif /* if (...) */
5441 : : #if defined(_DYNAMIC)
5442 : : #if defined(_DERIVATE)
5443 : 0 : qbs_Vgate_sourcep=0.0;
5444 : 0 : qbs_Vdrainp_sourcep=0.0;
5445 : 0 : qbs_Vbulk_sourcep=(((PhiB*czbs)*(-((arg_Vbulk_sourcep*sarg)+(arg*sarg_Vbulk_sourcep))))/(1.0-mj));
5446 : : #endif
5447 : 0 : qbs=(((PhiB*czbs)*(1.0-(arg*sarg)))/(1.0-mj));
5448 : : #endif
5449 : : #if defined(_DYNAMIC)
5450 : 0 : capbs=(czbs*sarg);
5451 : : #endif
5452 : : }
5453 : : else
5454 : : {
5455 : : #if defined(_DYNAMIC)
5456 : : #if defined(_DERIVATE)
5457 : 0 : qbs_Vgate_sourcep=0.0;
5458 : 0 : qbs_Vdrainp_sourcep=0.0;
5459 : 0 : qbs_Vbulk_sourcep=0.0;
5460 : : #endif
5461 : 0 : qbs=0.0;
5462 : : #endif
5463 : : #if defined(_DYNAMIC)
5464 : 0 : capbs=0.0;
5465 : : #endif
5466 : : }
5467 : : #endif /* if (...) */
5468 : : #ifdef _DYNAMIC
5469 [ # # ]: 0 : if
5470 : : (czbssw>0.0)
5471 : : {
5472 : : #if defined(_DYNAMIC)
5473 : : #if defined(_DERIVATE)
5474 : 0 : arg_Vdrainp_sourcep=0.0;
5475 : 0 : arg_Vbulk_sourcep=(-(vbs_Vbulk_sourcep/PhiBSW));
5476 : : #endif
5477 : 0 : arg=(1.0-(vbs/PhiBSW));
5478 : : #endif
5479 : : #ifdef _DYNAMIC
5480 [ # # ]: 0 : if
5481 : : (mjsw==0.5)
5482 : : {
5483 : : #if defined(_DYNAMIC)
5484 : : {
5485 : 0 : double m00_sqrt(d00_sqrt0,arg)
5486 : : #if defined(_DERIVATE)
5487 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,arg)
5488 : : #endif
5489 : : #if defined(_DERIVATE)
5490 : 0 : sarg_Vdrainp_sourcep=0.0;
5491 : 0 : sarg_Vbulk_sourcep=(-arg_Vbulk_sourcep*d10_sqrt0/d00_sqrt0/d00_sqrt0);
5492 : : #endif
5493 : 0 : sarg=(1.0/d00_sqrt0);
5494 : : }
5495 : : #endif
5496 : : }
5497 : : else
5498 : : {
5499 : : #if defined(_DYNAMIC)
5500 : : {
5501 : 0 : double m00_logE(d00_logE0,arg)
5502 : 0 : double m00_exp(d00_exp1,((-mjsw)*d00_logE0))
5503 : : #if defined(_DERIVATE)
5504 : 0 : double m10_logE(d10_logE0,d00_logE0,arg)
5505 : : #define d10_exp1 d00_exp1
5506 : : #endif
5507 : : #if defined(_DERIVATE)
5508 : 0 : sarg_Vdrainp_sourcep=0.0;
5509 : 0 : sarg_Vbulk_sourcep=((-mjsw)*arg_Vbulk_sourcep*d10_logE0)*d10_exp1;
5510 : : #endif
5511 : 0 : sarg=d00_exp1;
5512 : : }
5513 : : #endif
5514 : : }
5515 : : #endif /* if (...) */
5516 : : #if defined(_DYNAMIC)
5517 : : #if defined(_DERIVATE)
5518 : 0 : qbs_Vgate_sourcep=0.0;
5519 : 0 : qbs_Vdrainp_sourcep=0.0;
5520 : 0 : qbs_Vbulk_sourcep=(qbs_Vbulk_sourcep+(((PhiBSW*czbssw)*(-((arg_Vbulk_sourcep*sarg)+(arg*sarg_Vbulk_sourcep))))/(1.0-mjsw)));
5521 : : #endif
5522 : 0 : qbs=(qbs+(((PhiBSW*czbssw)*(1.0-(arg*sarg)))/(1.0-mjsw)));
5523 : : #endif
5524 : : #if defined(_DYNAMIC)
5525 : 0 : capbs=(capbs+(czbssw*sarg));
5526 : : #endif
5527 : : }
5528 : : #endif /* if (...) */
5529 : : #ifdef _DYNAMIC
5530 [ # # ]: 0 : if
5531 : : (czbsswg>0.0)
5532 : : {
5533 : : #if defined(_DYNAMIC)
5534 : : #if defined(_DERIVATE)
5535 : 0 : arg_Vdrainp_sourcep=0.0;
5536 : 0 : arg_Vbulk_sourcep=(-(vbs_Vbulk_sourcep/PhiBSWG));
5537 : : #endif
5538 : 0 : arg=(1.0-(vbs/PhiBSWG));
5539 : : #endif
5540 : : #ifdef _DYNAMIC
5541 [ # # ]: 0 : if
5542 : : (mjswg==0.5)
5543 : : {
5544 : : #if defined(_DYNAMIC)
5545 : : {
5546 : 0 : double m00_sqrt(d00_sqrt0,arg)
5547 : : #if defined(_DERIVATE)
5548 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,arg)
5549 : : #endif
5550 : : #if defined(_DERIVATE)
5551 : 0 : sarg_Vdrainp_sourcep=0.0;
5552 : 0 : sarg_Vbulk_sourcep=(-arg_Vbulk_sourcep*d10_sqrt0/d00_sqrt0/d00_sqrt0);
5553 : : #endif
5554 : 0 : sarg=(1.0/d00_sqrt0);
5555 : : }
5556 : : #endif
5557 : : }
5558 : : else
5559 : : {
5560 : : #if defined(_DYNAMIC)
5561 : : {
5562 : 0 : double m00_logE(d00_logE0,arg)
5563 : 0 : double m00_exp(d00_exp1,((-mjswg)*d00_logE0))
5564 : : #if defined(_DERIVATE)
5565 : 0 : double m10_logE(d10_logE0,d00_logE0,arg)
5566 : : #define d10_exp1 d00_exp1
5567 : : #endif
5568 : : #if defined(_DERIVATE)
5569 : 0 : sarg_Vdrainp_sourcep=0.0;
5570 : 0 : sarg_Vbulk_sourcep=((-mjswg)*arg_Vbulk_sourcep*d10_logE0)*d10_exp1;
5571 : : #endif
5572 : 0 : sarg=d00_exp1;
5573 : : }
5574 : : #endif
5575 : : }
5576 : : #endif /* if (...) */
5577 : : #if defined(_DYNAMIC)
5578 : : #if defined(_DERIVATE)
5579 : 0 : qbs_Vgate_sourcep=0.0;
5580 : 0 : qbs_Vdrainp_sourcep=0.0;
5581 : 0 : qbs_Vbulk_sourcep=(qbs_Vbulk_sourcep+(((PhiBSWG*czbsswg)*(-((arg_Vbulk_sourcep*sarg)+(arg*sarg_Vbulk_sourcep))))/(1.0-mjswg)));
5582 : : #endif
5583 : 0 : qbs=(qbs+(((PhiBSWG*czbsswg)*(1.0-(arg*sarg)))/(1.0-mjswg)));
5584 : : #endif
5585 : : #if defined(_DYNAMIC)
5586 : 0 : capbs=(capbs+(czbsswg*sarg));
5587 : : #endif
5588 : : }
5589 : : #endif /* if (...) */
5590 : : }
5591 : : else
5592 : : {
5593 : : #if defined(_DERIVATE)
5594 : 0 : T_0_Vgate_sourcep=0.0;
5595 : 0 : T_0_Vdrainp_sourcep=0.0;
5596 : 0 : T_0_Vbulk_sourcep=0.0;
5597 : : #endif
5598 : 0 : T_0=((czbs+czbssw)+czbsswg);
5599 : : #if defined(_DERIVATE)
5600 : 0 : T1_Vgate_sourcep=0.0;
5601 : 0 : T1_Vdrainp_sourcep=0.0;
5602 : 0 : T1_Vbulk_sourcep=vbs_Vbulk_sourcep*((((czbs*mj)/PhiB)+((czbssw*mjsw)/PhiBSW))+((czbsswg*mjswg)/PhiBSWG));
5603 : : #endif
5604 : 0 : T1=(vbs*((((czbs*mj)/PhiB)+((czbssw*mjsw)/PhiBSW))+((czbsswg*mjswg)/PhiBSWG)));
5605 : : #if defined(_DYNAMIC)
5606 : : #if defined(_DERIVATE)
5607 : 0 : qbs_Vgate_sourcep=(vbs*(T_0_Vgate_sourcep+(0.5*T1_Vgate_sourcep)));
5608 : 0 : qbs_Vdrainp_sourcep=(vbs*(T_0_Vdrainp_sourcep+(0.5*T1_Vdrainp_sourcep)));
5609 : 0 : qbs_Vbulk_sourcep=((vbs_Vbulk_sourcep*(T_0+(0.5*T1)))+(vbs*(T_0_Vbulk_sourcep+(0.5*T1_Vbulk_sourcep))));
5610 : : #endif
5611 : 0 : qbs=(vbs*(T_0+(0.5*T1)));
5612 : : #endif
5613 : : #if defined(_DYNAMIC)
5614 : 0 : capbs=(T_0+T1);
5615 : : #endif
5616 : : }
5617 : : }
5618 [ # # ]: 0 : if
5619 : : (vbd==0.0)
5620 : : {
5621 : : #if defined(_DYNAMIC)
5622 : : #if defined(_DERIVATE)
5623 : 0 : qbd_Vgate_sourcep=0.0;
5624 : 0 : qbd_Vdrainp_sourcep=0.0;
5625 : 0 : qbd_Vbulk_sourcep=0.0;
5626 : : #endif
5627 : 0 : qbd=0.0;
5628 : : #endif
5629 : : #if defined(_DYNAMIC)
5630 : 0 : capbd=((czbd+czbdsw)+czbdswg);
5631 : : #endif
5632 : : }
5633 : : else
5634 : : {
5635 [ # # ]: 0 : if
5636 : : (vbd<0.0)
5637 : : {
5638 : : #ifdef _DYNAMIC
5639 [ # # ]: 0 : if
5640 : : (czbd>0.0)
5641 : : {
5642 : : #if defined(_DYNAMIC)
5643 : : #if defined(_DERIVATE)
5644 : 0 : arg_Vdrainp_sourcep=(-(vbd_Vdrainp_sourcep/PhiB));
5645 : 0 : arg_Vbulk_sourcep=(-(vbd_Vbulk_sourcep/PhiB));
5646 : : #endif
5647 : 0 : arg=(1.0-(vbd/PhiB));
5648 : : #endif
5649 : : #ifdef _DYNAMIC
5650 [ # # ]: 0 : if
5651 : : (mj==0.5)
5652 : : {
5653 : : #if defined(_DYNAMIC)
5654 : : {
5655 : 0 : double m00_sqrt(d00_sqrt0,arg)
5656 : : #if defined(_DERIVATE)
5657 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,arg)
5658 : : #endif
5659 : : #if defined(_DERIVATE)
5660 : 0 : sarg_Vdrainp_sourcep=(-arg_Vdrainp_sourcep*d10_sqrt0/d00_sqrt0/d00_sqrt0);
5661 : 0 : sarg_Vbulk_sourcep=(-arg_Vbulk_sourcep*d10_sqrt0/d00_sqrt0/d00_sqrt0);
5662 : : #endif
5663 : 0 : sarg=(1.0/d00_sqrt0);
5664 : : }
5665 : : #endif
5666 : : }
5667 : : else
5668 : : {
5669 : : #if defined(_DYNAMIC)
5670 : : {
5671 : 0 : double m00_logE(d00_logE0,arg)
5672 : 0 : double m00_exp(d00_exp1,((-mj)*d00_logE0))
5673 : : #if defined(_DERIVATE)
5674 : 0 : double m10_logE(d10_logE0,d00_logE0,arg)
5675 : : #define d10_exp1 d00_exp1
5676 : : #endif
5677 : : #if defined(_DERIVATE)
5678 : 0 : sarg_Vdrainp_sourcep=((-mj)*arg_Vdrainp_sourcep*d10_logE0)*d10_exp1;
5679 : 0 : sarg_Vbulk_sourcep=((-mj)*arg_Vbulk_sourcep*d10_logE0)*d10_exp1;
5680 : : #endif
5681 : 0 : sarg=d00_exp1;
5682 : : }
5683 : : #endif
5684 : : }
5685 : : #endif /* if (...) */
5686 : : #if defined(_DYNAMIC)
5687 : : #if defined(_DERIVATE)
5688 : 0 : qbd_Vgate_sourcep=0.0;
5689 : 0 : qbd_Vdrainp_sourcep=(((PhiB*czbd)*(-((arg_Vdrainp_sourcep*sarg)+(arg*sarg_Vdrainp_sourcep))))/(1.0-mj));
5690 : 0 : qbd_Vbulk_sourcep=(((PhiB*czbd)*(-((arg_Vbulk_sourcep*sarg)+(arg*sarg_Vbulk_sourcep))))/(1.0-mj));
5691 : : #endif
5692 : 0 : qbd=(((PhiB*czbd)*(1.0-(arg*sarg)))/(1.0-mj));
5693 : : #endif
5694 : : #if defined(_DYNAMIC)
5695 : 0 : capbd=(czbd*sarg);
5696 : : #endif
5697 : : }
5698 : : else
5699 : : {
5700 : : #if defined(_DYNAMIC)
5701 : : #if defined(_DERIVATE)
5702 : 0 : qbd_Vgate_sourcep=0.0;
5703 : 0 : qbd_Vdrainp_sourcep=0.0;
5704 : 0 : qbd_Vbulk_sourcep=0.0;
5705 : : #endif
5706 : 0 : qbd=0.0;
5707 : : #endif
5708 : : #if defined(_DYNAMIC)
5709 : 0 : capbd=0.0;
5710 : : #endif
5711 : : }
5712 : : #endif /* if (...) */
5713 : : #ifdef _DYNAMIC
5714 [ # # ]: 0 : if
5715 : : (czbdsw>0.0)
5716 : : {
5717 : : #if defined(_DYNAMIC)
5718 : : #if defined(_DERIVATE)
5719 : 0 : arg_Vdrainp_sourcep=(-(vbd_Vdrainp_sourcep/PhiBSW));
5720 : 0 : arg_Vbulk_sourcep=(-(vbd_Vbulk_sourcep/PhiBSW));
5721 : : #endif
5722 : 0 : arg=(1.0-(vbd/PhiBSW));
5723 : : #endif
5724 : : #ifdef _DYNAMIC
5725 [ # # ]: 0 : if
5726 : : (mjsw==0.5)
5727 : : {
5728 : : #if defined(_DYNAMIC)
5729 : : {
5730 : 0 : double m00_sqrt(d00_sqrt0,arg)
5731 : : #if defined(_DERIVATE)
5732 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,arg)
5733 : : #endif
5734 : : #if defined(_DERIVATE)
5735 : 0 : sarg_Vdrainp_sourcep=(-arg_Vdrainp_sourcep*d10_sqrt0/d00_sqrt0/d00_sqrt0);
5736 : 0 : sarg_Vbulk_sourcep=(-arg_Vbulk_sourcep*d10_sqrt0/d00_sqrt0/d00_sqrt0);
5737 : : #endif
5738 : 0 : sarg=(1.0/d00_sqrt0);
5739 : : }
5740 : : #endif
5741 : : }
5742 : : else
5743 : : {
5744 : : #if defined(_DYNAMIC)
5745 : : {
5746 : 0 : double m00_logE(d00_logE0,arg)
5747 : 0 : double m00_exp(d00_exp1,((-mjsw)*d00_logE0))
5748 : : #if defined(_DERIVATE)
5749 : 0 : double m10_logE(d10_logE0,d00_logE0,arg)
5750 : : #define d10_exp1 d00_exp1
5751 : : #endif
5752 : : #if defined(_DERIVATE)
5753 : 0 : sarg_Vdrainp_sourcep=((-mjsw)*arg_Vdrainp_sourcep*d10_logE0)*d10_exp1;
5754 : 0 : sarg_Vbulk_sourcep=((-mjsw)*arg_Vbulk_sourcep*d10_logE0)*d10_exp1;
5755 : : #endif
5756 : 0 : sarg=d00_exp1;
5757 : : }
5758 : : #endif
5759 : : }
5760 : : #endif /* if (...) */
5761 : : #if defined(_DYNAMIC)
5762 : : #if defined(_DERIVATE)
5763 : 0 : qbd_Vgate_sourcep=0.0;
5764 : 0 : qbd_Vdrainp_sourcep=(qbd_Vdrainp_sourcep+(((PhiBSW*czbdsw)*(-((arg_Vdrainp_sourcep*sarg)+(arg*sarg_Vdrainp_sourcep))))/(1.0-mjsw)));
5765 : 0 : qbd_Vbulk_sourcep=(qbd_Vbulk_sourcep+(((PhiBSW*czbdsw)*(-((arg_Vbulk_sourcep*sarg)+(arg*sarg_Vbulk_sourcep))))/(1.0-mjsw)));
5766 : : #endif
5767 : 0 : qbd=(qbd+(((PhiBSW*czbdsw)*(1.0-(arg*sarg)))/(1.0-mjsw)));
5768 : : #endif
5769 : : #if defined(_DYNAMIC)
5770 : 0 : capbd=(capbd+(czbdsw*sarg));
5771 : : #endif
5772 : : }
5773 : : #endif /* if (...) */
5774 : : #ifdef _DYNAMIC
5775 [ # # ]: 0 : if
5776 : : (czbdswg>0.0)
5777 : : {
5778 : : #if defined(_DYNAMIC)
5779 : : #if defined(_DERIVATE)
5780 : 0 : arg_Vdrainp_sourcep=(-(vbd_Vdrainp_sourcep/PhiBSWG));
5781 : 0 : arg_Vbulk_sourcep=(-(vbd_Vbulk_sourcep/PhiBSWG));
5782 : : #endif
5783 : 0 : arg=(1.0-(vbd/PhiBSWG));
5784 : : #endif
5785 : : #ifdef _DYNAMIC
5786 [ # # ]: 0 : if
5787 : : (mjswg==0.5)
5788 : : {
5789 : : #if defined(_DYNAMIC)
5790 : : {
5791 : 0 : double m00_sqrt(d00_sqrt0,arg)
5792 : : #if defined(_DERIVATE)
5793 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,arg)
5794 : : #endif
5795 : : #if defined(_DERIVATE)
5796 : 0 : sarg_Vdrainp_sourcep=(-arg_Vdrainp_sourcep*d10_sqrt0/d00_sqrt0/d00_sqrt0);
5797 : 0 : sarg_Vbulk_sourcep=(-arg_Vbulk_sourcep*d10_sqrt0/d00_sqrt0/d00_sqrt0);
5798 : : #endif
5799 : 0 : sarg=(1.0/d00_sqrt0);
5800 : : }
5801 : : #endif
5802 : : }
5803 : : else
5804 : : {
5805 : : #if defined(_DYNAMIC)
5806 : : {
5807 : 0 : double m00_logE(d00_logE0,arg)
5808 : 0 : double m00_exp(d00_exp1,((-mjswg)*d00_logE0))
5809 : : #if defined(_DERIVATE)
5810 : 0 : double m10_logE(d10_logE0,d00_logE0,arg)
5811 : : #define d10_exp1 d00_exp1
5812 : : #endif
5813 : : #if defined(_DERIVATE)
5814 : 0 : sarg_Vdrainp_sourcep=((-mjswg)*arg_Vdrainp_sourcep*d10_logE0)*d10_exp1;
5815 : 0 : sarg_Vbulk_sourcep=((-mjswg)*arg_Vbulk_sourcep*d10_logE0)*d10_exp1;
5816 : : #endif
5817 : 0 : sarg=d00_exp1;
5818 : : }
5819 : : #endif
5820 : : }
5821 : : #endif /* if (...) */
5822 : : #if defined(_DYNAMIC)
5823 : : #if defined(_DERIVATE)
5824 : 0 : qbd_Vgate_sourcep=0.0;
5825 : 0 : qbd_Vdrainp_sourcep=(qbd_Vdrainp_sourcep+(((PhiBSWG*czbdswg)*(-((arg_Vdrainp_sourcep*sarg)+(arg*sarg_Vdrainp_sourcep))))/(1.0-mjswg)));
5826 : 0 : qbd_Vbulk_sourcep=(qbd_Vbulk_sourcep+(((PhiBSWG*czbdswg)*(-((arg_Vbulk_sourcep*sarg)+(arg*sarg_Vbulk_sourcep))))/(1.0-mjswg)));
5827 : : #endif
5828 : 0 : qbd=(qbd+(((PhiBSWG*czbdswg)*(1.0-(arg*sarg)))/(1.0-mjswg)));
5829 : : #endif
5830 : : #if defined(_DYNAMIC)
5831 : 0 : capbd=(capbd+(czbdswg*sarg));
5832 : : #endif
5833 : : }
5834 : : #endif /* if (...) */
5835 : : }
5836 : : else
5837 : : {
5838 : : #if defined(_DERIVATE)
5839 : 0 : T_0_Vgate_sourcep=0.0;
5840 : 0 : T_0_Vdrainp_sourcep=0.0;
5841 : 0 : T_0_Vbulk_sourcep=0.0;
5842 : : #endif
5843 : 0 : T_0=((czbd+czbdsw)+czbdswg);
5844 : : #if defined(_DERIVATE)
5845 : 0 : T1_Vgate_sourcep=0.0;
5846 : 0 : T1_Vdrainp_sourcep=vbd_Vdrainp_sourcep*((((czbd*mj)/PhiB)+((czbdsw*mjsw)/PhiBSW))+((czbdswg*mjswg)/PhiBSWG));
5847 : 0 : T1_Vbulk_sourcep=vbd_Vbulk_sourcep*((((czbd*mj)/PhiB)+((czbdsw*mjsw)/PhiBSW))+((czbdswg*mjswg)/PhiBSWG));
5848 : : #endif
5849 : 0 : T1=(vbd*((((czbd*mj)/PhiB)+((czbdsw*mjsw)/PhiBSW))+((czbdswg*mjswg)/PhiBSWG)));
5850 : : #if defined(_DYNAMIC)
5851 : : #if defined(_DERIVATE)
5852 : 0 : qbd_Vgate_sourcep=(vbd*(T_0_Vgate_sourcep+(0.5*T1_Vgate_sourcep)));
5853 : 0 : qbd_Vdrainp_sourcep=((vbd_Vdrainp_sourcep*(T_0+(0.5*T1)))+(vbd*(T_0_Vdrainp_sourcep+(0.5*T1_Vdrainp_sourcep))));
5854 : 0 : qbd_Vbulk_sourcep=((vbd_Vbulk_sourcep*(T_0+(0.5*T1)))+(vbd*(T_0_Vbulk_sourcep+(0.5*T1_Vbulk_sourcep))));
5855 : : #endif
5856 : 0 : qbd=(vbd*(T_0+(0.5*T1)));
5857 : : #endif
5858 : : #if defined(_DYNAMIC)
5859 : 0 : capbd=(T_0+T1);
5860 : : #endif
5861 : : }
5862 : : }
5863 : : #if defined(_DERIVATE)
5864 : 0 : qgate_Vdrainp_sourcep=0.0;
5865 : 0 : qgate_Vgate_sourcep=0.0;
5866 : 0 : qgate_Vbulk_sourcep=0.0;
5867 : : #endif
5868 : 0 : qgate=0.0;
5869 : : #if defined(_DERIVATE)
5870 : 0 : qdrn_Vgate_sourcep=0.0;
5871 : 0 : qdrn_Vdrainp_sourcep=0.0;
5872 : 0 : qdrn_Vbulk_sourcep=0.0;
5873 : : #endif
5874 : 0 : qdrn=0.0;
5875 : : #if defined(_DYNAMIC)
5876 : : #if defined(_DERIVATE)
5877 : 0 : qsrc_Vgate_sourcep=0.0;
5878 : 0 : qsrc_Vdrainp_sourcep=0.0;
5879 : 0 : qsrc_Vbulk_sourcep=0.0;
5880 : : #endif
5881 : 0 : qsrc=0.0;
5882 : : #endif
5883 : : #if defined(_DERIVATE)
5884 : 0 : qbulk_Vdrainp_sourcep=0.0;
5885 : 0 : qbulk_Vgate_sourcep=0.0;
5886 : 0 : qbulk_Vbulk_sourcep=0.0;
5887 : : #endif
5888 : 0 : qbulk=0.0;
5889 [ # # ]: 0 : if
5890 : : (XPART<0)
5891 : : {
5892 : : #if defined(_DERIVATE)
5893 : 0 : qgate_Vdrainp_sourcep=0.0;
5894 : 0 : qgate_Vgate_sourcep=0.0;
5895 : 0 : qgate_Vbulk_sourcep=0.0;
5896 : : #endif
5897 : 0 : qgate=0.0;
5898 : : #if defined(_DERIVATE)
5899 : 0 : qdrn_Vgate_sourcep=0.0;
5900 : 0 : qdrn_Vdrainp_sourcep=0.0;
5901 : 0 : qdrn_Vbulk_sourcep=0.0;
5902 : : #endif
5903 : 0 : qdrn=0.0;
5904 : : #if defined(_DYNAMIC)
5905 : : #if defined(_DERIVATE)
5906 : 0 : qsrc_Vgate_sourcep=0.0;
5907 : 0 : qsrc_Vdrainp_sourcep=0.0;
5908 : 0 : qsrc_Vbulk_sourcep=0.0;
5909 : : #endif
5910 : 0 : qsrc=0.0;
5911 : : #endif
5912 : : #if defined(_DERIVATE)
5913 : 0 : qbulk_Vdrainp_sourcep=0.0;
5914 : 0 : qbulk_Vgate_sourcep=0.0;
5915 : 0 : qbulk_Vbulk_sourcep=0.0;
5916 : : #endif
5917 : 0 : qbulk=0.0;
5918 : : }
5919 : : else
5920 : : {
5921 [ # # ]: 0 : if
5922 : : (CAPMOD==0)
5923 : : {
5924 [ # # ]: 0 : if
5925 : : (Vbseff<0.0)
5926 : : {
5927 : : #if defined(_DERIVATE)
5928 : 0 : Vbseff_Vdrainp_sourcep=Vbs_Vdrainp_sourcep;
5929 : 0 : Vbseff_Vbulk_sourcep=Vbs_Vbulk_sourcep;
5930 : : #endif
5931 : 0 : Vbseff=Vbs;
5932 : : }
5933 : : else
5934 : : {
5935 : : #if defined(_DERIVATE)
5936 : 0 : Vbseff_Vdrainp_sourcep=(-Phis_Vdrainp_sourcep);
5937 : 0 : Vbseff_Vbulk_sourcep=(-Phis_Vbulk_sourcep);
5938 : : #endif
5939 : 0 : Vbseff=(phi-Phis);
5940 : : }
5941 : : #if defined(_DERIVATE)
5942 : 0 : Vfb_Vdrainp_sourcep=0.0;
5943 : 0 : Vfb_Vbulk_sourcep=0.0;
5944 : : #endif
5945 : 0 : Vfb=vfbcv;
5946 : : #if defined(_DERIVATE)
5947 : 0 : Vth_Vdrainp_sourcep=(Vfb_Vdrainp_sourcep+(k1ox*sqrtPhis_Vdrainp_sourcep));
5948 : 0 : Vth_Vbulk_sourcep=(Vfb_Vbulk_sourcep+(k1ox*sqrtPhis_Vbulk_sourcep));
5949 : : #endif
5950 : 0 : Vth=((Vfb+phi)+(k1ox*sqrtPhis));
5951 : : #if defined(_DERIVATE)
5952 : 0 : Vgst_Vdrainp_sourcep=(Vgs_eff_Vdrainp_sourcep-Vth_Vdrainp_sourcep);
5953 : 0 : Vgst_Vgate_sourcep=Vgs_eff_Vgate_sourcep;
5954 : 0 : Vgst_Vbulk_sourcep=(Vgs_eff_Vbulk_sourcep-Vth_Vbulk_sourcep);
5955 : : #endif
5956 : 0 : Vgst=(Vgs_eff-Vth);
5957 : 0 : CoxWL=((cox*weffCV)*leffCV);
5958 : : #if defined(_DERIVATE)
5959 : 0 : Arg1_Vdrainp_sourcep=((Vgs_eff_Vdrainp_sourcep-Vbseff_Vdrainp_sourcep)-Vfb_Vdrainp_sourcep);
5960 : 0 : Arg1_Vgate_sourcep=Vgs_eff_Vgate_sourcep;
5961 : 0 : Arg1_Vbulk_sourcep=((Vgs_eff_Vbulk_sourcep-Vbseff_Vbulk_sourcep)-Vfb_Vbulk_sourcep);
5962 : : #endif
5963 : 0 : Arg1=((Vgs_eff-Vbseff)-Vfb);
5964 [ # # ]: 0 : if
5965 : : (Arg1<=0.0)
5966 : : {
5967 : : #if defined(_DERIVATE)
5968 : 0 : qgate_Vdrainp_sourcep=(CoxWL*Arg1_Vdrainp_sourcep);
5969 : 0 : qgate_Vgate_sourcep=(CoxWL*Arg1_Vgate_sourcep);
5970 : 0 : qgate_Vbulk_sourcep=(CoxWL*Arg1_Vbulk_sourcep);
5971 : : #endif
5972 : 0 : qgate=(CoxWL*Arg1);
5973 : : #if defined(_DERIVATE)
5974 : 0 : qbulk_Vdrainp_sourcep=(-qgate_Vdrainp_sourcep);
5975 : 0 : qbulk_Vgate_sourcep=(-qgate_Vgate_sourcep);
5976 : 0 : qbulk_Vbulk_sourcep=(-qgate_Vbulk_sourcep);
5977 : : #endif
5978 : 0 : qbulk=(-qgate);
5979 : : #if defined(_DERIVATE)
5980 : 0 : qdrn_Vgate_sourcep=0.0;
5981 : 0 : qdrn_Vdrainp_sourcep=0.0;
5982 : 0 : qdrn_Vbulk_sourcep=0.0;
5983 : : #endif
5984 : 0 : qdrn=0.0;
5985 : : #if defined(_DERIVATE)
5986 : 0 : qinv_Vdrainp_sourcep=0.0;
5987 : 0 : qinv_Vgate_sourcep=0.0;
5988 : 0 : qinv_Vbulk_sourcep=0.0;
5989 : : #endif
5990 : 0 : qinv=0.0;
5991 : : }
5992 : : else
5993 : : {
5994 [ # # ]: 0 : if
5995 : : (Vgst<=0.0)
5996 : : {
5997 : : #if defined(_DERIVATE)
5998 : 0 : T1_Vgate_sourcep=0.0;
5999 : 0 : T1_Vdrainp_sourcep=0.0;
6000 : 0 : T1_Vbulk_sourcep=0.0;
6001 : : #endif
6002 : 0 : T1=(0.5*k1ox);
6003 : : {
6004 : 0 : double m00_sqrt(d00_sqrt0,((T1*T1)+Arg1))
6005 : : #if defined(_DERIVATE)
6006 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T1*T1)+Arg1))
6007 : : #endif
6008 : : #if defined(_DERIVATE)
6009 : 0 : T2_Vgate_sourcep=(((T1_Vgate_sourcep*T1)+(T1*T1_Vgate_sourcep))+Arg1_Vgate_sourcep)*d10_sqrt0;
6010 : 0 : T2_Vdrainp_sourcep=(((T1_Vdrainp_sourcep*T1)+(T1*T1_Vdrainp_sourcep))+Arg1_Vdrainp_sourcep)*d10_sqrt0;
6011 : 0 : T2_Vbulk_sourcep=(((T1_Vbulk_sourcep*T1)+(T1*T1_Vbulk_sourcep))+Arg1_Vbulk_sourcep)*d10_sqrt0;
6012 : : #endif
6013 : 0 : T2=d00_sqrt0;
6014 : : }
6015 : : #if defined(_DERIVATE)
6016 : 0 : qgate_Vdrainp_sourcep=((CoxWL*k1ox)*(T2_Vdrainp_sourcep-T1_Vdrainp_sourcep));
6017 : 0 : qgate_Vgate_sourcep=((CoxWL*k1ox)*(T2_Vgate_sourcep-T1_Vgate_sourcep));
6018 : 0 : qgate_Vbulk_sourcep=((CoxWL*k1ox)*(T2_Vbulk_sourcep-T1_Vbulk_sourcep));
6019 : : #endif
6020 : 0 : qgate=((CoxWL*k1ox)*(T2-T1));
6021 : : #if defined(_DERIVATE)
6022 : 0 : qbulk_Vdrainp_sourcep=(-qgate_Vdrainp_sourcep);
6023 : 0 : qbulk_Vgate_sourcep=(-qgate_Vgate_sourcep);
6024 : 0 : qbulk_Vbulk_sourcep=(-qgate_Vbulk_sourcep);
6025 : : #endif
6026 : 0 : qbulk=(-qgate);
6027 : : #if defined(_DERIVATE)
6028 : 0 : qdrn_Vgate_sourcep=0.0;
6029 : 0 : qdrn_Vdrainp_sourcep=0.0;
6030 : 0 : qdrn_Vbulk_sourcep=0.0;
6031 : : #endif
6032 : 0 : qdrn=0.0;
6033 : : #if defined(_DERIVATE)
6034 : 0 : qinv_Vdrainp_sourcep=0.0;
6035 : 0 : qinv_Vgate_sourcep=0.0;
6036 : 0 : qinv_Vbulk_sourcep=0.0;
6037 : : #endif
6038 : 0 : qinv=0.0;
6039 : : }
6040 : : else
6041 : : {
6042 : 0 : One_Third_CoxWL=(CoxWL/3.0);
6043 : 0 : Two_Third_CoxWL=(2.0*One_Third_CoxWL);
6044 : : #if defined(_DERIVATE)
6045 : 0 : AbulkCV_Vgate_sourcep=Abulk0_Vgate_sourcep*abulkCVfactor;
6046 : 0 : AbulkCV_Vdrainp_sourcep=Abulk0_Vdrainp_sourcep*abulkCVfactor;
6047 : 0 : AbulkCV_Vbulk_sourcep=Abulk0_Vbulk_sourcep*abulkCVfactor;
6048 : : #endif
6049 : 0 : AbulkCV=(Abulk0*abulkCVfactor);
6050 : : #if defined(_DERIVATE)
6051 : 0 : Vdsat_Vgate_sourcep=((Vgst_Vgate_sourcep*AbulkCV-Vgst*AbulkCV_Vgate_sourcep)/AbulkCV/AbulkCV);
6052 : 0 : Vdsat_Vdrainp_sourcep=((Vgst_Vdrainp_sourcep*AbulkCV-Vgst*AbulkCV_Vdrainp_sourcep)/AbulkCV/AbulkCV);
6053 : 0 : Vdsat_Vbulk_sourcep=((Vgst_Vbulk_sourcep*AbulkCV-Vgst*AbulkCV_Vbulk_sourcep)/AbulkCV/AbulkCV);
6054 : : #endif
6055 : 0 : Vdsat=(Vgst/AbulkCV);
6056 [ # # ]: 0 : if
6057 : : (XPART>0.5)
6058 : : {
6059 [ # # ]: 0 : if
6060 : : (Vdsat<=Vds)
6061 : : {
6062 : : #if defined(_DERIVATE)
6063 : 0 : T1_Vgate_sourcep=(Vdsat_Vgate_sourcep/3.0);
6064 : 0 : T1_Vdrainp_sourcep=(Vdsat_Vdrainp_sourcep/3.0);
6065 : 0 : T1_Vbulk_sourcep=(Vdsat_Vbulk_sourcep/3.0);
6066 : : #endif
6067 : 0 : T1=(Vdsat/3.0);
6068 : : #if defined(_DERIVATE)
6069 : 0 : qgate_Vdrainp_sourcep=(CoxWL*((Vgs_eff_Vdrainp_sourcep-Vfb_Vdrainp_sourcep)-T1_Vdrainp_sourcep));
6070 : 0 : qgate_Vgate_sourcep=(CoxWL*(Vgs_eff_Vgate_sourcep-T1_Vgate_sourcep));
6071 : 0 : qgate_Vbulk_sourcep=(CoxWL*((Vgs_eff_Vbulk_sourcep-Vfb_Vbulk_sourcep)-T1_Vbulk_sourcep));
6072 : : #endif
6073 : 0 : qgate=(CoxWL*(((Vgs_eff-Vfb)-phi)-T1));
6074 : : #if defined(_DERIVATE)
6075 : 0 : T2_Vgate_sourcep=((-Two_Third_CoxWL)*Vgst_Vgate_sourcep);
6076 : 0 : T2_Vdrainp_sourcep=((-Two_Third_CoxWL)*Vgst_Vdrainp_sourcep);
6077 : 0 : T2_Vbulk_sourcep=((-Two_Third_CoxWL)*Vgst_Vbulk_sourcep);
6078 : : #endif
6079 : 0 : T2=((-Two_Third_CoxWL)*Vgst);
6080 : : #if defined(_DERIVATE)
6081 : 0 : qbulk_Vdrainp_sourcep=(-(qgate_Vdrainp_sourcep+T2_Vdrainp_sourcep));
6082 : 0 : qbulk_Vgate_sourcep=(-(qgate_Vgate_sourcep+T2_Vgate_sourcep));
6083 : 0 : qbulk_Vbulk_sourcep=(-(qgate_Vbulk_sourcep+T2_Vbulk_sourcep));
6084 : : #endif
6085 : 0 : qbulk=(-(qgate+T2));
6086 : : #if defined(_DERIVATE)
6087 : 0 : qdrn_Vgate_sourcep=0.0;
6088 : 0 : qdrn_Vdrainp_sourcep=0.0;
6089 : 0 : qdrn_Vbulk_sourcep=0.0;
6090 : : #endif
6091 : 0 : qdrn=0.0;
6092 : : #if defined(_DERIVATE)
6093 : 0 : qinv_Vdrainp_sourcep=(-(qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep));
6094 : 0 : qinv_Vgate_sourcep=(-(qgate_Vgate_sourcep+qbulk_Vgate_sourcep));
6095 : 0 : qinv_Vbulk_sourcep=(-(qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep));
6096 : : #endif
6097 : 0 : qinv=(-(qgate+qbulk));
6098 : : }
6099 : : else
6100 : : {
6101 : : #if defined(_DERIVATE)
6102 : 0 : Alphaz_Vdrainp_sourcep=((Vgst_Vdrainp_sourcep*Vdsat-Vgst*Vdsat_Vdrainp_sourcep)/Vdsat/Vdsat);
6103 : 0 : Alphaz_Vgate_sourcep=((Vgst_Vgate_sourcep*Vdsat-Vgst*Vdsat_Vgate_sourcep)/Vdsat/Vdsat);
6104 : 0 : Alphaz_Vbulk_sourcep=((Vgst_Vbulk_sourcep*Vdsat-Vgst*Vdsat_Vbulk_sourcep)/Vdsat/Vdsat);
6105 : : #endif
6106 : 0 : Alphaz=(Vgst/Vdsat);
6107 : : #if defined(_DERIVATE)
6108 : 0 : T1_Vgate_sourcep=(2.0*Vdsat_Vgate_sourcep);
6109 : 0 : T1_Vdrainp_sourcep=((2.0*Vdsat_Vdrainp_sourcep)-Vds_Vdrainp_sourcep);
6110 : 0 : T1_Vbulk_sourcep=(2.0*Vdsat_Vbulk_sourcep);
6111 : : #endif
6112 : 0 : T1=((2.0*Vdsat)-Vds);
6113 : : #if defined(_DERIVATE)
6114 : 0 : T2_Vgate_sourcep=(-Vds*(3.0*T1_Vgate_sourcep)/(3.0*T1)/(3.0*T1));
6115 : 0 : T2_Vdrainp_sourcep=((Vds_Vdrainp_sourcep*(3.0*T1)-Vds*(3.0*T1_Vdrainp_sourcep))/(3.0*T1)/(3.0*T1));
6116 : 0 : T2_Vbulk_sourcep=(-Vds*(3.0*T1_Vbulk_sourcep)/(3.0*T1)/(3.0*T1));
6117 : : #endif
6118 : 0 : T2=(Vds/(3.0*T1));
6119 : : #if defined(_DERIVATE)
6120 : 0 : T3_Vgate_sourcep=T2_Vgate_sourcep*Vds;
6121 : 0 : T3_Vdrainp_sourcep=((T2_Vdrainp_sourcep*Vds)+(T2*Vds_Vdrainp_sourcep));
6122 : 0 : T3_Vbulk_sourcep=T2_Vbulk_sourcep*Vds;
6123 : : #endif
6124 : 0 : T3=(T2*Vds);
6125 : : #if defined(_DERIVATE)
6126 : 0 : T9_Vgate_sourcep=0.0;
6127 : 0 : T9_Vdrainp_sourcep=0.0;
6128 : 0 : T9_Vbulk_sourcep=0.0;
6129 : : #endif
6130 : 0 : T9=(0.25*CoxWL);
6131 : : #if defined(_DERIVATE)
6132 : 0 : T4_Vgate_sourcep=((T9_Vgate_sourcep*Alphaz)+(T9*Alphaz_Vgate_sourcep));
6133 : 0 : T4_Vdrainp_sourcep=((T9_Vdrainp_sourcep*Alphaz)+(T9*Alphaz_Vdrainp_sourcep));
6134 : 0 : T4_Vbulk_sourcep=((T9_Vbulk_sourcep*Alphaz)+(T9*Alphaz_Vbulk_sourcep));
6135 : : #endif
6136 : 0 : T4=(T9*Alphaz);
6137 : : #if defined(_DERIVATE)
6138 : 0 : T7_Vgate_sourcep=((-T1_Vgate_sourcep)-(3.0*T3_Vgate_sourcep));
6139 : 0 : T7_Vdrainp_sourcep=(((2.0*Vds_Vdrainp_sourcep)-T1_Vdrainp_sourcep)-(3.0*T3_Vdrainp_sourcep));
6140 : 0 : T7_Vbulk_sourcep=((-T1_Vbulk_sourcep)-(3.0*T3_Vbulk_sourcep));
6141 : : #endif
6142 : 0 : T7=(((2.0*Vds)-T1)-(3.0*T3));
6143 : : #if defined(_DERIVATE)
6144 : 0 : T8_Vgate_sourcep=(T3_Vgate_sourcep-T1_Vgate_sourcep);
6145 : 0 : T8_Vdrainp_sourcep=((T3_Vdrainp_sourcep-T1_Vdrainp_sourcep)-(2.0*Vds_Vdrainp_sourcep));
6146 : 0 : T8_Vbulk_sourcep=(T3_Vbulk_sourcep-T1_Vbulk_sourcep);
6147 : : #endif
6148 : 0 : T8=((T3-T1)-(2.0*Vds));
6149 : : #if defined(_DERIVATE)
6150 : 0 : qgate_Vdrainp_sourcep=(CoxWL*((Vgs_eff_Vdrainp_sourcep-Vfb_Vdrainp_sourcep)-(0.5*(Vds_Vdrainp_sourcep-T3_Vdrainp_sourcep))));
6151 : 0 : qgate_Vgate_sourcep=(CoxWL*(Vgs_eff_Vgate_sourcep-(0.5*(-T3_Vgate_sourcep))));
6152 : 0 : qgate_Vbulk_sourcep=(CoxWL*((Vgs_eff_Vbulk_sourcep-Vfb_Vbulk_sourcep)-(0.5*(-T3_Vbulk_sourcep))));
6153 : : #endif
6154 : 0 : qgate=(CoxWL*(((Vgs_eff-Vfb)-phi)-(0.5*(Vds-T3))));
6155 : : #if defined(_DERIVATE)
6156 : 0 : T10_Vgate_sourcep=((T4_Vgate_sourcep*T8)+(T4*T8_Vgate_sourcep));
6157 : 0 : T10_Vdrainp_sourcep=((T4_Vdrainp_sourcep*T8)+(T4*T8_Vdrainp_sourcep));
6158 : 0 : T10_Vbulk_sourcep=((T4_Vbulk_sourcep*T8)+(T4*T8_Vbulk_sourcep));
6159 : : #endif
6160 : 0 : T10=(T4*T8);
6161 : : #if defined(_DERIVATE)
6162 : 0 : qdrn_Vgate_sourcep=((T4_Vgate_sourcep*T7)+(T4*T7_Vgate_sourcep));
6163 : 0 : qdrn_Vdrainp_sourcep=((T4_Vdrainp_sourcep*T7)+(T4*T7_Vdrainp_sourcep));
6164 : 0 : qdrn_Vbulk_sourcep=((T4_Vbulk_sourcep*T7)+(T4*T7_Vbulk_sourcep));
6165 : : #endif
6166 : 0 : qdrn=(T4*T7);
6167 : : #if defined(_DERIVATE)
6168 : 0 : qbulk_Vdrainp_sourcep=(-((qgate_Vdrainp_sourcep+qdrn_Vdrainp_sourcep)+T10_Vdrainp_sourcep));
6169 : 0 : qbulk_Vgate_sourcep=(-((qgate_Vgate_sourcep+qdrn_Vgate_sourcep)+T10_Vgate_sourcep));
6170 : 0 : qbulk_Vbulk_sourcep=(-((qgate_Vbulk_sourcep+qdrn_Vbulk_sourcep)+T10_Vbulk_sourcep));
6171 : : #endif
6172 : 0 : qbulk=(-((qgate+qdrn)+T10));
6173 : : #if defined(_DERIVATE)
6174 : 0 : qinv_Vdrainp_sourcep=(-(qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep));
6175 : 0 : qinv_Vgate_sourcep=(-(qgate_Vgate_sourcep+qbulk_Vgate_sourcep));
6176 : 0 : qinv_Vbulk_sourcep=(-(qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep));
6177 : : #endif
6178 : 0 : qinv=(-(qgate+qbulk));
6179 : : }
6180 : : }
6181 : : else
6182 : : {
6183 [ # # ]: 0 : if
6184 : : (XPART<0.5)
6185 : : {
6186 [ # # ]: 0 : if
6187 : : (Vds>=Vdsat)
6188 : : {
6189 : : #if defined(_DERIVATE)
6190 : 0 : T1_Vgate_sourcep=(Vdsat_Vgate_sourcep/3.0);
6191 : 0 : T1_Vdrainp_sourcep=(Vdsat_Vdrainp_sourcep/3.0);
6192 : 0 : T1_Vbulk_sourcep=(Vdsat_Vbulk_sourcep/3.0);
6193 : : #endif
6194 : 0 : T1=(Vdsat/3.0);
6195 : : #if defined(_DERIVATE)
6196 : 0 : qgate_Vdrainp_sourcep=(CoxWL*((Vgs_eff_Vdrainp_sourcep-Vfb_Vdrainp_sourcep)-T1_Vdrainp_sourcep));
6197 : 0 : qgate_Vgate_sourcep=(CoxWL*(Vgs_eff_Vgate_sourcep-T1_Vgate_sourcep));
6198 : 0 : qgate_Vbulk_sourcep=(CoxWL*((Vgs_eff_Vbulk_sourcep-Vfb_Vbulk_sourcep)-T1_Vbulk_sourcep));
6199 : : #endif
6200 : 0 : qgate=(CoxWL*(((Vgs_eff-Vfb)-phi)-T1));
6201 : : #if defined(_DERIVATE)
6202 : 0 : T2_Vgate_sourcep=((-Two_Third_CoxWL)*Vgst_Vgate_sourcep);
6203 : 0 : T2_Vdrainp_sourcep=((-Two_Third_CoxWL)*Vgst_Vdrainp_sourcep);
6204 : 0 : T2_Vbulk_sourcep=((-Two_Third_CoxWL)*Vgst_Vbulk_sourcep);
6205 : : #endif
6206 : 0 : T2=((-Two_Third_CoxWL)*Vgst);
6207 : : #if defined(_DERIVATE)
6208 : 0 : qbulk_Vdrainp_sourcep=(-(qgate_Vdrainp_sourcep+T2_Vdrainp_sourcep));
6209 : 0 : qbulk_Vgate_sourcep=(-(qgate_Vgate_sourcep+T2_Vgate_sourcep));
6210 : 0 : qbulk_Vbulk_sourcep=(-(qgate_Vbulk_sourcep+T2_Vbulk_sourcep));
6211 : : #endif
6212 : 0 : qbulk=(-(qgate+T2));
6213 : : #if defined(_DERIVATE)
6214 : 0 : qdrn_Vgate_sourcep=(0.4*T2_Vgate_sourcep);
6215 : 0 : qdrn_Vdrainp_sourcep=(0.4*T2_Vdrainp_sourcep);
6216 : 0 : qdrn_Vbulk_sourcep=(0.4*T2_Vbulk_sourcep);
6217 : : #endif
6218 : 0 : qdrn=(0.4*T2);
6219 : : #if defined(_DERIVATE)
6220 : 0 : qinv_Vdrainp_sourcep=(-(qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep));
6221 : 0 : qinv_Vgate_sourcep=(-(qgate_Vgate_sourcep+qbulk_Vgate_sourcep));
6222 : 0 : qinv_Vbulk_sourcep=(-(qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep));
6223 : : #endif
6224 : 0 : qinv=(-(qgate+qbulk));
6225 : : }
6226 : : else
6227 : : {
6228 : : #if defined(_DERIVATE)
6229 : 0 : Alphaz_Vdrainp_sourcep=((Vgst_Vdrainp_sourcep*Vdsat-Vgst*Vdsat_Vdrainp_sourcep)/Vdsat/Vdsat);
6230 : 0 : Alphaz_Vgate_sourcep=((Vgst_Vgate_sourcep*Vdsat-Vgst*Vdsat_Vgate_sourcep)/Vdsat/Vdsat);
6231 : 0 : Alphaz_Vbulk_sourcep=((Vgst_Vbulk_sourcep*Vdsat-Vgst*Vdsat_Vbulk_sourcep)/Vdsat/Vdsat);
6232 : : #endif
6233 : 0 : Alphaz=(Vgst/Vdsat);
6234 : : #if defined(_DERIVATE)
6235 : 0 : T1_Vgate_sourcep=(2.0*Vdsat_Vgate_sourcep);
6236 : 0 : T1_Vdrainp_sourcep=((2.0*Vdsat_Vdrainp_sourcep)-Vds_Vdrainp_sourcep);
6237 : 0 : T1_Vbulk_sourcep=(2.0*Vdsat_Vbulk_sourcep);
6238 : : #endif
6239 : 0 : T1=((2.0*Vdsat)-Vds);
6240 : : #if defined(_DERIVATE)
6241 : 0 : T2_Vgate_sourcep=(-Vds*(3.0*T1_Vgate_sourcep)/(3.0*T1)/(3.0*T1));
6242 : 0 : T2_Vdrainp_sourcep=((Vds_Vdrainp_sourcep*(3.0*T1)-Vds*(3.0*T1_Vdrainp_sourcep))/(3.0*T1)/(3.0*T1));
6243 : 0 : T2_Vbulk_sourcep=(-Vds*(3.0*T1_Vbulk_sourcep)/(3.0*T1)/(3.0*T1));
6244 : : #endif
6245 : 0 : T2=(Vds/(3.0*T1));
6246 : : #if defined(_DERIVATE)
6247 : 0 : T3_Vgate_sourcep=T2_Vgate_sourcep*Vds;
6248 : 0 : T3_Vdrainp_sourcep=((T2_Vdrainp_sourcep*Vds)+(T2*Vds_Vdrainp_sourcep));
6249 : 0 : T3_Vbulk_sourcep=T2_Vbulk_sourcep*Vds;
6250 : : #endif
6251 : 0 : T3=(T2*Vds);
6252 : : #if defined(_DERIVATE)
6253 : 0 : T9_Vgate_sourcep=0.0;
6254 : 0 : T9_Vdrainp_sourcep=0.0;
6255 : 0 : T9_Vbulk_sourcep=0.0;
6256 : : #endif
6257 : 0 : T9=(0.25*CoxWL);
6258 : : #if defined(_DERIVATE)
6259 : 0 : T4_Vgate_sourcep=((T9_Vgate_sourcep*Alphaz)+(T9*Alphaz_Vgate_sourcep));
6260 : 0 : T4_Vdrainp_sourcep=((T9_Vdrainp_sourcep*Alphaz)+(T9*Alphaz_Vdrainp_sourcep));
6261 : 0 : T4_Vbulk_sourcep=((T9_Vbulk_sourcep*Alphaz)+(T9*Alphaz_Vbulk_sourcep));
6262 : : #endif
6263 : 0 : T4=(T9*Alphaz);
6264 : : #if defined(_DERIVATE)
6265 : 0 : qgate_Vdrainp_sourcep=(CoxWL*((Vgs_eff_Vdrainp_sourcep-Vfb_Vdrainp_sourcep)-(0.5*(Vds_Vdrainp_sourcep-T3_Vdrainp_sourcep))));
6266 : 0 : qgate_Vgate_sourcep=(CoxWL*(Vgs_eff_Vgate_sourcep-(0.5*(-T3_Vgate_sourcep))));
6267 : 0 : qgate_Vbulk_sourcep=(CoxWL*((Vgs_eff_Vbulk_sourcep-Vfb_Vbulk_sourcep)-(0.5*(-T3_Vbulk_sourcep))));
6268 : : #endif
6269 : 0 : qgate=(CoxWL*(((Vgs_eff-Vfb)-phi)-(0.5*(Vds-T3))));
6270 : : #if defined(_DERIVATE)
6271 : 0 : T6_Vgate_sourcep=((((8.0*Vdsat_Vgate_sourcep)*Vdsat)+((8.0*Vdsat)*Vdsat_Vgate_sourcep))-(6.0*Vdsat_Vgate_sourcep)*Vds);
6272 : 0 : T6_Vdrainp_sourcep=(((((8.0*Vdsat_Vdrainp_sourcep)*Vdsat)+((8.0*Vdsat)*Vdsat_Vdrainp_sourcep))-(((6.0*Vdsat_Vdrainp_sourcep)*Vds)+((6.0*Vdsat)*Vds_Vdrainp_sourcep)))+(((1.2*Vds_Vdrainp_sourcep)*Vds)+((1.2*Vds)*Vds_Vdrainp_sourcep)));
6273 : 0 : T6_Vbulk_sourcep=((((8.0*Vdsat_Vbulk_sourcep)*Vdsat)+((8.0*Vdsat)*Vdsat_Vbulk_sourcep))-(6.0*Vdsat_Vbulk_sourcep)*Vds);
6274 : : #endif
6275 : 0 : T6=((((8.0*Vdsat)*Vdsat)-((6.0*Vdsat)*Vds))+((1.2*Vds)*Vds));
6276 : : #if defined(_DERIVATE)
6277 : 0 : T8_Vgate_sourcep=((T2_Vgate_sourcep*T1-T2*T1_Vgate_sourcep)/T1/T1);
6278 : 0 : T8_Vdrainp_sourcep=((T2_Vdrainp_sourcep*T1-T2*T1_Vdrainp_sourcep)/T1/T1);
6279 : 0 : T8_Vbulk_sourcep=((T2_Vbulk_sourcep*T1-T2*T1_Vbulk_sourcep)/T1/T1);
6280 : : #endif
6281 : 0 : T8=(T2/T1);
6282 : : #if defined(_DERIVATE)
6283 : 0 : T7_Vgate_sourcep=((-T1_Vgate_sourcep)-((T8_Vgate_sourcep*T6)+(T8*T6_Vgate_sourcep)));
6284 : 0 : T7_Vdrainp_sourcep=((Vds_Vdrainp_sourcep-T1_Vdrainp_sourcep)-((T8_Vdrainp_sourcep*T6)+(T8*T6_Vdrainp_sourcep)));
6285 : 0 : T7_Vbulk_sourcep=((-T1_Vbulk_sourcep)-((T8_Vbulk_sourcep*T6)+(T8*T6_Vbulk_sourcep)));
6286 : : #endif
6287 : 0 : T7=((Vds-T1)-(T8*T6));
6288 : : #if defined(_DERIVATE)
6289 : 0 : qdrn_Vgate_sourcep=((T4_Vgate_sourcep*T7)+(T4*T7_Vgate_sourcep));
6290 : 0 : qdrn_Vdrainp_sourcep=((T4_Vdrainp_sourcep*T7)+(T4*T7_Vdrainp_sourcep));
6291 : 0 : qdrn_Vbulk_sourcep=((T4_Vbulk_sourcep*T7)+(T4*T7_Vbulk_sourcep));
6292 : : #endif
6293 : 0 : qdrn=(T4*T7);
6294 : : #if defined(_DERIVATE)
6295 : 0 : T7_Vgate_sourcep=(2.0*(T1_Vgate_sourcep+T3_Vgate_sourcep));
6296 : 0 : T7_Vdrainp_sourcep=(2.0*(T1_Vdrainp_sourcep+T3_Vdrainp_sourcep));
6297 : 0 : T7_Vbulk_sourcep=(2.0*(T1_Vbulk_sourcep+T3_Vbulk_sourcep));
6298 : : #endif
6299 : 0 : T7=(2.0*(T1+T3));
6300 : : #if defined(_DERIVATE)
6301 : 0 : qbulk_Vdrainp_sourcep=(-(qgate_Vdrainp_sourcep-((T4_Vdrainp_sourcep*T7)+(T4*T7_Vdrainp_sourcep))));
6302 : 0 : qbulk_Vgate_sourcep=(-(qgate_Vgate_sourcep-((T4_Vgate_sourcep*T7)+(T4*T7_Vgate_sourcep))));
6303 : 0 : qbulk_Vbulk_sourcep=(-(qgate_Vbulk_sourcep-((T4_Vbulk_sourcep*T7)+(T4*T7_Vbulk_sourcep))));
6304 : : #endif
6305 : 0 : qbulk=(-(qgate-(T4*T7)));
6306 : : #if defined(_DERIVATE)
6307 : 0 : qinv_Vdrainp_sourcep=(-(qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep));
6308 : 0 : qinv_Vgate_sourcep=(-(qgate_Vgate_sourcep+qbulk_Vgate_sourcep));
6309 : 0 : qinv_Vbulk_sourcep=(-(qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep));
6310 : : #endif
6311 : 0 : qinv=(-(qgate+qbulk));
6312 : : }
6313 : : }
6314 : : else
6315 : : {
6316 [ # # ]: 0 : if
6317 : : (Vds>=Vdsat)
6318 : : {
6319 : : #if defined(_DERIVATE)
6320 : 0 : T1_Vgate_sourcep=(Vdsat_Vgate_sourcep/3.0);
6321 : 0 : T1_Vdrainp_sourcep=(Vdsat_Vdrainp_sourcep/3.0);
6322 : 0 : T1_Vbulk_sourcep=(Vdsat_Vbulk_sourcep/3.0);
6323 : : #endif
6324 : 0 : T1=(Vdsat/3.0);
6325 : : #if defined(_DERIVATE)
6326 : 0 : qgate_Vdrainp_sourcep=(CoxWL*((Vgs_eff_Vdrainp_sourcep-Vfb_Vdrainp_sourcep)-T1_Vdrainp_sourcep));
6327 : 0 : qgate_Vgate_sourcep=(CoxWL*(Vgs_eff_Vgate_sourcep-T1_Vgate_sourcep));
6328 : 0 : qgate_Vbulk_sourcep=(CoxWL*((Vgs_eff_Vbulk_sourcep-Vfb_Vbulk_sourcep)-T1_Vbulk_sourcep));
6329 : : #endif
6330 : 0 : qgate=(CoxWL*(((Vgs_eff-Vfb)-phi)-T1));
6331 : : #if defined(_DERIVATE)
6332 : 0 : T2_Vgate_sourcep=((-Two_Third_CoxWL)*Vgst_Vgate_sourcep);
6333 : 0 : T2_Vdrainp_sourcep=((-Two_Third_CoxWL)*Vgst_Vdrainp_sourcep);
6334 : 0 : T2_Vbulk_sourcep=((-Two_Third_CoxWL)*Vgst_Vbulk_sourcep);
6335 : : #endif
6336 : 0 : T2=((-Two_Third_CoxWL)*Vgst);
6337 : : #if defined(_DERIVATE)
6338 : 0 : qbulk_Vdrainp_sourcep=(-(qgate_Vdrainp_sourcep+T2_Vdrainp_sourcep));
6339 : 0 : qbulk_Vgate_sourcep=(-(qgate_Vgate_sourcep+T2_Vgate_sourcep));
6340 : 0 : qbulk_Vbulk_sourcep=(-(qgate_Vbulk_sourcep+T2_Vbulk_sourcep));
6341 : : #endif
6342 : 0 : qbulk=(-(qgate+T2));
6343 : : #if defined(_DERIVATE)
6344 : 0 : qdrn_Vgate_sourcep=(0.5*T2_Vgate_sourcep);
6345 : 0 : qdrn_Vdrainp_sourcep=(0.5*T2_Vdrainp_sourcep);
6346 : 0 : qdrn_Vbulk_sourcep=(0.5*T2_Vbulk_sourcep);
6347 : : #endif
6348 : 0 : qdrn=(0.5*T2);
6349 : : #if defined(_DERIVATE)
6350 : 0 : qinv_Vdrainp_sourcep=(-(qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep));
6351 : 0 : qinv_Vgate_sourcep=(-(qgate_Vgate_sourcep+qbulk_Vgate_sourcep));
6352 : 0 : qinv_Vbulk_sourcep=(-(qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep));
6353 : : #endif
6354 : 0 : qinv=(-(qgate+qbulk));
6355 : : }
6356 : : else
6357 : : {
6358 : : #if defined(_DERIVATE)
6359 : 0 : Alphaz_Vdrainp_sourcep=((Vgst_Vdrainp_sourcep*Vdsat-Vgst*Vdsat_Vdrainp_sourcep)/Vdsat/Vdsat);
6360 : 0 : Alphaz_Vgate_sourcep=((Vgst_Vgate_sourcep*Vdsat-Vgst*Vdsat_Vgate_sourcep)/Vdsat/Vdsat);
6361 : 0 : Alphaz_Vbulk_sourcep=((Vgst_Vbulk_sourcep*Vdsat-Vgst*Vdsat_Vbulk_sourcep)/Vdsat/Vdsat);
6362 : : #endif
6363 : 0 : Alphaz=(Vgst/Vdsat);
6364 : : #if defined(_DERIVATE)
6365 : 0 : T1_Vgate_sourcep=(2.0*Vdsat_Vgate_sourcep);
6366 : 0 : T1_Vdrainp_sourcep=((2.0*Vdsat_Vdrainp_sourcep)-Vds_Vdrainp_sourcep);
6367 : 0 : T1_Vbulk_sourcep=(2.0*Vdsat_Vbulk_sourcep);
6368 : : #endif
6369 : 0 : T1=((2.0*Vdsat)-Vds);
6370 : : #if defined(_DERIVATE)
6371 : 0 : T2_Vgate_sourcep=(-Vds*(3.0*T1_Vgate_sourcep)/(3.0*T1)/(3.0*T1));
6372 : 0 : T2_Vdrainp_sourcep=((Vds_Vdrainp_sourcep*(3.0*T1)-Vds*(3.0*T1_Vdrainp_sourcep))/(3.0*T1)/(3.0*T1));
6373 : 0 : T2_Vbulk_sourcep=(-Vds*(3.0*T1_Vbulk_sourcep)/(3.0*T1)/(3.0*T1));
6374 : : #endif
6375 : 0 : T2=(Vds/(3.0*T1));
6376 : : #if defined(_DERIVATE)
6377 : 0 : T3_Vgate_sourcep=T2_Vgate_sourcep*Vds;
6378 : 0 : T3_Vdrainp_sourcep=((T2_Vdrainp_sourcep*Vds)+(T2*Vds_Vdrainp_sourcep));
6379 : 0 : T3_Vbulk_sourcep=T2_Vbulk_sourcep*Vds;
6380 : : #endif
6381 : 0 : T3=(T2*Vds);
6382 : : #if defined(_DERIVATE)
6383 : 0 : T9_Vgate_sourcep=0.0;
6384 : 0 : T9_Vdrainp_sourcep=0.0;
6385 : 0 : T9_Vbulk_sourcep=0.0;
6386 : : #endif
6387 : 0 : T9=(0.25*CoxWL);
6388 : : #if defined(_DERIVATE)
6389 : 0 : T4_Vgate_sourcep=((T9_Vgate_sourcep*Alphaz)+(T9*Alphaz_Vgate_sourcep));
6390 : 0 : T4_Vdrainp_sourcep=((T9_Vdrainp_sourcep*Alphaz)+(T9*Alphaz_Vdrainp_sourcep));
6391 : 0 : T4_Vbulk_sourcep=((T9_Vbulk_sourcep*Alphaz)+(T9*Alphaz_Vbulk_sourcep));
6392 : : #endif
6393 : 0 : T4=(T9*Alphaz);
6394 : : #if defined(_DERIVATE)
6395 : 0 : qgate_Vdrainp_sourcep=(CoxWL*((Vgs_eff_Vdrainp_sourcep-Vfb_Vdrainp_sourcep)-(0.5*(Vds_Vdrainp_sourcep-T3_Vdrainp_sourcep))));
6396 : 0 : qgate_Vgate_sourcep=(CoxWL*(Vgs_eff_Vgate_sourcep-(0.5*(-T3_Vgate_sourcep))));
6397 : 0 : qgate_Vbulk_sourcep=(CoxWL*((Vgs_eff_Vbulk_sourcep-Vfb_Vbulk_sourcep)-(0.5*(-T3_Vbulk_sourcep))));
6398 : : #endif
6399 : 0 : qgate=(CoxWL*(((Vgs_eff-Vfb)-phi)-(0.5*(Vds-T3))));
6400 : : #if defined(_DERIVATE)
6401 : 0 : T7_Vgate_sourcep=(T1_Vgate_sourcep+T3_Vgate_sourcep);
6402 : 0 : T7_Vdrainp_sourcep=(T1_Vdrainp_sourcep+T3_Vdrainp_sourcep);
6403 : 0 : T7_Vbulk_sourcep=(T1_Vbulk_sourcep+T3_Vbulk_sourcep);
6404 : : #endif
6405 : 0 : T7=(T1+T3);
6406 : : #if defined(_DERIVATE)
6407 : 0 : qdrn_Vgate_sourcep=(((-T4_Vgate_sourcep)*T7)+((-T4)*T7_Vgate_sourcep));
6408 : 0 : qdrn_Vdrainp_sourcep=(((-T4_Vdrainp_sourcep)*T7)+((-T4)*T7_Vdrainp_sourcep));
6409 : 0 : qdrn_Vbulk_sourcep=(((-T4_Vbulk_sourcep)*T7)+((-T4)*T7_Vbulk_sourcep));
6410 : : #endif
6411 : 0 : qdrn=((-T4)*T7);
6412 : : #if defined(_DERIVATE)
6413 : 0 : qbulk_Vdrainp_sourcep=(-((qgate_Vdrainp_sourcep+qdrn_Vdrainp_sourcep)+qdrn_Vdrainp_sourcep));
6414 : 0 : qbulk_Vgate_sourcep=(-((qgate_Vgate_sourcep+qdrn_Vgate_sourcep)+qdrn_Vgate_sourcep));
6415 : 0 : qbulk_Vbulk_sourcep=(-((qgate_Vbulk_sourcep+qdrn_Vbulk_sourcep)+qdrn_Vbulk_sourcep));
6416 : : #endif
6417 : 0 : qbulk=(-((qgate+qdrn)+qdrn));
6418 : : #if defined(_DERIVATE)
6419 : 0 : qinv_Vdrainp_sourcep=(-(qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep));
6420 : 0 : qinv_Vgate_sourcep=(-(qgate_Vgate_sourcep+qbulk_Vgate_sourcep));
6421 : 0 : qinv_Vbulk_sourcep=(-(qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep));
6422 : : #endif
6423 : 0 : qinv=(-(qgate+qbulk));
6424 : : }
6425 : : }
6426 : : }
6427 : : }
6428 : : }
6429 : : }
6430 : : else
6431 : : {
6432 [ # # ]: 0 : if
6433 : : (Vbseff<0.0)
6434 : : {
6435 : : #if defined(_DERIVATE)
6436 : 0 : VbseffCV_Vdrainp_sourcep=Vbseff_Vdrainp_sourcep;
6437 : 0 : VbseffCV_Vbulk_sourcep=Vbseff_Vbulk_sourcep;
6438 : : #endif
6439 : 0 : VbseffCV=Vbseff;
6440 : : }
6441 : : else
6442 : : {
6443 : : #if defined(_DERIVATE)
6444 : 0 : VbseffCV_Vdrainp_sourcep=(-Phis_Vdrainp_sourcep);
6445 : 0 : VbseffCV_Vbulk_sourcep=(-Phis_Vbulk_sourcep);
6446 : : #endif
6447 : 0 : VbseffCV=(phi-Phis);
6448 : : }
6449 : 0 : CoxWL=((cox*weffCV)*leffCV);
6450 : : #if defined(_DERIVATE)
6451 : 0 : Noff2_Vdrainp_sourcep=n_Vdrainp_sourcep*noff_param;
6452 : 0 : Noff2_Vbulk_sourcep=n_Vbulk_sourcep*noff_param;
6453 : : #endif
6454 : 0 : Noff2=(n*noff_param);
6455 : : #if defined(_DERIVATE)
6456 : 0 : T_0_Vgate_sourcep=0.0;
6457 : 0 : T_0_Vdrainp_sourcep=(Vtm*Noff2_Vdrainp_sourcep);
6458 : 0 : T_0_Vbulk_sourcep=(Vtm*Noff2_Vbulk_sourcep);
6459 : : #endif
6460 : 0 : T_0=(Vtm*Noff2);
6461 : : #if defined(_DERIVATE)
6462 : 0 : VgstNVt_Vdrainp_sourcep=((Vgst_Vdrainp_sourcep*T_0-(Vgst-voffcv_param)*T_0_Vdrainp_sourcep)/T_0/T_0);
6463 : 0 : VgstNVt_Vgate_sourcep=((Vgst_Vgate_sourcep*T_0-(Vgst-voffcv_param)*T_0_Vgate_sourcep)/T_0/T_0);
6464 : 0 : VgstNVt_Vbulk_sourcep=((Vgst_Vbulk_sourcep*T_0-(Vgst-voffcv_param)*T_0_Vbulk_sourcep)/T_0/T_0);
6465 : : #endif
6466 : 0 : VgstNVt=((Vgst-voffcv_param)/T_0);
6467 [ # # ]: 0 : if
6468 : : (VgstNVt>34.0)
6469 : : {
6470 : : #if defined(_DERIVATE)
6471 : 0 : Vgsteff_Vdrainp_sourcep=Vgst_Vdrainp_sourcep;
6472 : 0 : Vgsteff_Vgate_sourcep=Vgst_Vgate_sourcep;
6473 : 0 : Vgsteff_Vbulk_sourcep=Vgst_Vbulk_sourcep;
6474 : : #endif
6475 : 0 : Vgsteff=(Vgst-voffcv_param);
6476 : : }
6477 : : else
6478 : : {
6479 [ # # ]: 0 : if
6480 : : (VgstNVt<(-34.0))
6481 : : {
6482 : : {
6483 : 0 : double m00_logE(d00_logE0,(1.0+1.713908431e-15))
6484 : : #if defined(_DERIVATE)
6485 : 0 : Vgsteff_Vdrainp_sourcep=T_0_Vdrainp_sourcep*d00_logE0;
6486 : 0 : Vgsteff_Vgate_sourcep=T_0_Vgate_sourcep*d00_logE0;
6487 : 0 : Vgsteff_Vbulk_sourcep=T_0_Vbulk_sourcep*d00_logE0;
6488 : : #endif
6489 : 0 : Vgsteff=(T_0*d00_logE0);
6490 : : }
6491 : : }
6492 : : else
6493 : : {
6494 : : {
6495 : 0 : double m00_exp(d00_exp0,VgstNVt)
6496 : : #if defined(_DERIVATE)
6497 : : #define d10_exp0 d00_exp0
6498 : : #endif
6499 : : #if defined(_DERIVATE)
6500 : 0 : ExpVgst_Vgate_sourcep=VgstNVt_Vgate_sourcep*d10_exp0;
6501 : 0 : ExpVgst_Vdrainp_sourcep=VgstNVt_Vdrainp_sourcep*d10_exp0;
6502 : 0 : ExpVgst_Vbulk_sourcep=VgstNVt_Vbulk_sourcep*d10_exp0;
6503 : : #endif
6504 : 0 : ExpVgst=d00_exp0;
6505 : : }
6506 : : {
6507 : 0 : double m00_logE(d00_logE0,(1.0+ExpVgst))
6508 : : #if defined(_DERIVATE)
6509 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+ExpVgst))
6510 : : #endif
6511 : : #if defined(_DERIVATE)
6512 : 0 : Vgsteff_Vdrainp_sourcep=((T_0_Vdrainp_sourcep*d00_logE0)+(T_0*ExpVgst_Vdrainp_sourcep*d10_logE0));
6513 : 0 : Vgsteff_Vgate_sourcep=((T_0_Vgate_sourcep*d00_logE0)+(T_0*ExpVgst_Vgate_sourcep*d10_logE0));
6514 : 0 : Vgsteff_Vbulk_sourcep=((T_0_Vbulk_sourcep*d00_logE0)+(T_0*ExpVgst_Vbulk_sourcep*d10_logE0));
6515 : : #endif
6516 : 0 : Vgsteff=(T_0*d00_logE0);
6517 : : }
6518 : : }
6519 : : }
6520 [ # # ]: 0 : if
6521 : : (CAPMOD==1)
6522 : : {
6523 [ # # ]: 0 : if
6524 : : (VERSION<3.2)
6525 : : {
6526 : : #if defined(_DERIVATE)
6527 : 0 : Vfb_Vdrainp_sourcep=(Vth_Vdrainp_sourcep-(k1ox*sqrtPhis_Vdrainp_sourcep));
6528 : 0 : Vfb_Vbulk_sourcep=(Vth_Vbulk_sourcep-(k1ox*sqrtPhis_Vbulk_sourcep));
6529 : : #endif
6530 : 0 : Vfb=((Vth-phi)-(k1ox*sqrtPhis));
6531 : : }
6532 : : else
6533 : : {
6534 : : #if defined(_DERIVATE)
6535 : 0 : Vfb_Vdrainp_sourcep=0.0;
6536 : 0 : Vfb_Vbulk_sourcep=0.0;
6537 : : #endif
6538 : 0 : Vfb=vfbzb;
6539 : : }
6540 : : #if defined(_DERIVATE)
6541 : 0 : Arg1_Vdrainp_sourcep=(((Vgs_eff_Vdrainp_sourcep-VbseffCV_Vdrainp_sourcep)-Vfb_Vdrainp_sourcep)-Vgsteff_Vdrainp_sourcep);
6542 : 0 : Arg1_Vgate_sourcep=(Vgs_eff_Vgate_sourcep-Vgsteff_Vgate_sourcep);
6543 : 0 : Arg1_Vbulk_sourcep=(((Vgs_eff_Vbulk_sourcep-VbseffCV_Vbulk_sourcep)-Vfb_Vbulk_sourcep)-Vgsteff_Vbulk_sourcep);
6544 : : #endif
6545 : 0 : Arg1=(((Vgs_eff-VbseffCV)-Vfb)-Vgsteff);
6546 [ # # ]: 0 : if
6547 : : (Arg1<=0.0)
6548 : : {
6549 : : #if defined(_DERIVATE)
6550 : 0 : qgate_Vdrainp_sourcep=(CoxWL*Arg1_Vdrainp_sourcep);
6551 : 0 : qgate_Vgate_sourcep=(CoxWL*Arg1_Vgate_sourcep);
6552 : 0 : qgate_Vbulk_sourcep=(CoxWL*Arg1_Vbulk_sourcep);
6553 : : #endif
6554 : 0 : qgate=(CoxWL*Arg1);
6555 : : }
6556 : : else
6557 : : {
6558 : : #if defined(_DERIVATE)
6559 : 0 : T_0_Vgate_sourcep=0.0;
6560 : 0 : T_0_Vdrainp_sourcep=0.0;
6561 : 0 : T_0_Vbulk_sourcep=0.0;
6562 : : #endif
6563 : 0 : T_0=(0.5*k1ox);
6564 : : {
6565 : 0 : double m00_sqrt(d00_sqrt0,((T_0*T_0)+Arg1))
6566 : : #if defined(_DERIVATE)
6567 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T_0*T_0)+Arg1))
6568 : : #endif
6569 : : #if defined(_DERIVATE)
6570 : 0 : T1_Vgate_sourcep=(((T_0_Vgate_sourcep*T_0)+(T_0*T_0_Vgate_sourcep))+Arg1_Vgate_sourcep)*d10_sqrt0;
6571 : 0 : T1_Vdrainp_sourcep=(((T_0_Vdrainp_sourcep*T_0)+(T_0*T_0_Vdrainp_sourcep))+Arg1_Vdrainp_sourcep)*d10_sqrt0;
6572 : 0 : T1_Vbulk_sourcep=(((T_0_Vbulk_sourcep*T_0)+(T_0*T_0_Vbulk_sourcep))+Arg1_Vbulk_sourcep)*d10_sqrt0;
6573 : : #endif
6574 : 0 : T1=d00_sqrt0;
6575 : : }
6576 : : #if defined(_DERIVATE)
6577 : 0 : qgate_Vdrainp_sourcep=((CoxWL*k1ox)*(T1_Vdrainp_sourcep-T_0_Vdrainp_sourcep));
6578 : 0 : qgate_Vgate_sourcep=((CoxWL*k1ox)*(T1_Vgate_sourcep-T_0_Vgate_sourcep));
6579 : 0 : qgate_Vbulk_sourcep=((CoxWL*k1ox)*(T1_Vbulk_sourcep-T_0_Vbulk_sourcep));
6580 : : #endif
6581 : 0 : qgate=((CoxWL*k1ox)*(T1-T_0));
6582 : : }
6583 : : #if defined(_DERIVATE)
6584 : 0 : qbulk_Vdrainp_sourcep=(-qgate_Vdrainp_sourcep);
6585 : 0 : qbulk_Vgate_sourcep=(-qgate_Vgate_sourcep);
6586 : 0 : qbulk_Vbulk_sourcep=(-qgate_Vbulk_sourcep);
6587 : : #endif
6588 : 0 : qbulk=(-qgate);
6589 : 0 : One_Third_CoxWL=(CoxWL/3.0);
6590 : 0 : Two_Third_CoxWL=(2.0*One_Third_CoxWL);
6591 : : #if defined(_DERIVATE)
6592 : 0 : AbulkCV_Vgate_sourcep=Abulk0_Vgate_sourcep*abulkCVfactor;
6593 : 0 : AbulkCV_Vdrainp_sourcep=Abulk0_Vdrainp_sourcep*abulkCVfactor;
6594 : 0 : AbulkCV_Vbulk_sourcep=Abulk0_Vbulk_sourcep*abulkCVfactor;
6595 : : #endif
6596 : 0 : AbulkCV=(Abulk0*abulkCVfactor);
6597 : : #if defined(_DERIVATE)
6598 : 0 : VdsatCV_Vdrainp_sourcep=((Vgsteff_Vdrainp_sourcep*AbulkCV-Vgsteff*AbulkCV_Vdrainp_sourcep)/AbulkCV/AbulkCV);
6599 : 0 : VdsatCV_Vgate_sourcep=((Vgsteff_Vgate_sourcep*AbulkCV-Vgsteff*AbulkCV_Vgate_sourcep)/AbulkCV/AbulkCV);
6600 : 0 : VdsatCV_Vbulk_sourcep=((Vgsteff_Vbulk_sourcep*AbulkCV-Vgsteff*AbulkCV_Vbulk_sourcep)/AbulkCV/AbulkCV);
6601 : : #endif
6602 : 0 : VdsatCV=(Vgsteff/AbulkCV);
6603 [ # # ]: 0 : if
6604 : : (VdsatCV<Vds)
6605 : : {
6606 : : #if defined(_DERIVATE)
6607 : 0 : T_0_Vgate_sourcep=(Vgsteff_Vgate_sourcep-(VdsatCV_Vgate_sourcep/3.0));
6608 : 0 : T_0_Vdrainp_sourcep=(Vgsteff_Vdrainp_sourcep-(VdsatCV_Vdrainp_sourcep/3.0));
6609 : 0 : T_0_Vbulk_sourcep=(Vgsteff_Vbulk_sourcep-(VdsatCV_Vbulk_sourcep/3.0));
6610 : : #endif
6611 : 0 : T_0=(Vgsteff-(VdsatCV/3.0));
6612 : : #if defined(_DERIVATE)
6613 : 0 : qgate_Vdrainp_sourcep=(qgate_Vdrainp_sourcep+(CoxWL*T_0_Vdrainp_sourcep));
6614 : 0 : qgate_Vgate_sourcep=(qgate_Vgate_sourcep+(CoxWL*T_0_Vgate_sourcep));
6615 : 0 : qgate_Vbulk_sourcep=(qgate_Vbulk_sourcep+(CoxWL*T_0_Vbulk_sourcep));
6616 : : #endif
6617 : 0 : qgate=(qgate+(CoxWL*T_0));
6618 : : #if defined(_DERIVATE)
6619 : 0 : T_0_Vgate_sourcep=(VdsatCV_Vgate_sourcep-Vgsteff_Vgate_sourcep);
6620 : 0 : T_0_Vdrainp_sourcep=(VdsatCV_Vdrainp_sourcep-Vgsteff_Vdrainp_sourcep);
6621 : 0 : T_0_Vbulk_sourcep=(VdsatCV_Vbulk_sourcep-Vgsteff_Vbulk_sourcep);
6622 : : #endif
6623 : 0 : T_0=(VdsatCV-Vgsteff);
6624 : : #if defined(_DERIVATE)
6625 : 0 : qbulk_Vdrainp_sourcep=(qbulk_Vdrainp_sourcep+(One_Third_CoxWL*T_0_Vdrainp_sourcep));
6626 : 0 : qbulk_Vgate_sourcep=(qbulk_Vgate_sourcep+(One_Third_CoxWL*T_0_Vgate_sourcep));
6627 : 0 : qbulk_Vbulk_sourcep=(qbulk_Vbulk_sourcep+(One_Third_CoxWL*T_0_Vbulk_sourcep));
6628 : : #endif
6629 : 0 : qbulk=(qbulk+(One_Third_CoxWL*T_0));
6630 [ # # ]: 0 : if
6631 : : (XPART>0.5)
6632 : : {
6633 : : #if defined(_DERIVATE)
6634 : 0 : T_0_Vgate_sourcep=0.0;
6635 : 0 : T_0_Vdrainp_sourcep=0.0;
6636 : 0 : T_0_Vbulk_sourcep=0.0;
6637 : : #endif
6638 : 0 : T_0=(-Two_Third_CoxWL);
6639 : : }
6640 : : else
6641 : : {
6642 [ # # ]: 0 : if
6643 : : (XPART<0.5)
6644 : : {
6645 : : #if defined(_DERIVATE)
6646 : 0 : T_0_Vgate_sourcep=0.0;
6647 : 0 : T_0_Vdrainp_sourcep=0.0;
6648 : 0 : T_0_Vbulk_sourcep=0.0;
6649 : : #endif
6650 : 0 : T_0=((-0.4)*CoxWL);
6651 : : }
6652 : : else
6653 : : {
6654 : : #if defined(_DERIVATE)
6655 : 0 : T_0_Vgate_sourcep=0.0;
6656 : 0 : T_0_Vdrainp_sourcep=0.0;
6657 : 0 : T_0_Vbulk_sourcep=0.0;
6658 : : #endif
6659 : 0 : T_0=(-One_Third_CoxWL);
6660 : : }
6661 : : }
6662 : : #if defined(_DYNAMIC)
6663 : : #if defined(_DERIVATE)
6664 : 0 : qsrc_Vgate_sourcep=((T_0_Vgate_sourcep*Vgsteff)+(T_0*Vgsteff_Vgate_sourcep));
6665 : 0 : qsrc_Vdrainp_sourcep=((T_0_Vdrainp_sourcep*Vgsteff)+(T_0*Vgsteff_Vdrainp_sourcep));
6666 : 0 : qsrc_Vbulk_sourcep=((T_0_Vbulk_sourcep*Vgsteff)+(T_0*Vgsteff_Vbulk_sourcep));
6667 : : #endif
6668 : 0 : qsrc=(T_0*Vgsteff);
6669 : : #endif
6670 : : }
6671 : : else
6672 : : {
6673 : : #if defined(_DERIVATE)
6674 : 0 : T_0_Vgate_sourcep=AbulkCV_Vgate_sourcep*Vds;
6675 : 0 : T_0_Vdrainp_sourcep=((AbulkCV_Vdrainp_sourcep*Vds)+(AbulkCV*Vds_Vdrainp_sourcep));
6676 : 0 : T_0_Vbulk_sourcep=AbulkCV_Vbulk_sourcep*Vds;
6677 : : #endif
6678 : 0 : T_0=(AbulkCV*Vds);
6679 : : #if defined(_DERIVATE)
6680 : 0 : T1_Vgate_sourcep=(12.0*(Vgsteff_Vgate_sourcep-(0.5*T_0_Vgate_sourcep)));
6681 : 0 : T1_Vdrainp_sourcep=(12.0*(Vgsteff_Vdrainp_sourcep-(0.5*T_0_Vdrainp_sourcep)));
6682 : 0 : T1_Vbulk_sourcep=(12.0*(Vgsteff_Vbulk_sourcep-(0.5*T_0_Vbulk_sourcep)));
6683 : : #endif
6684 : 0 : T1=(12.0*((Vgsteff-(0.5*T_0))+1.0e-20));
6685 : : #if defined(_DERIVATE)
6686 : 0 : T2_Vgate_sourcep=(-Vds*T1_Vgate_sourcep/T1/T1);
6687 : 0 : T2_Vdrainp_sourcep=((Vds_Vdrainp_sourcep*T1-Vds*T1_Vdrainp_sourcep)/T1/T1);
6688 : 0 : T2_Vbulk_sourcep=(-Vds*T1_Vbulk_sourcep/T1/T1);
6689 : : #endif
6690 : 0 : T2=(Vds/T1);
6691 : : #if defined(_DERIVATE)
6692 : 0 : T3_Vgate_sourcep=((T_0_Vgate_sourcep*T2)+(T_0*T2_Vgate_sourcep));
6693 : 0 : T3_Vdrainp_sourcep=((T_0_Vdrainp_sourcep*T2)+(T_0*T2_Vdrainp_sourcep));
6694 : 0 : T3_Vbulk_sourcep=((T_0_Vbulk_sourcep*T2)+(T_0*T2_Vbulk_sourcep));
6695 : : #endif
6696 : 0 : T3=(T_0*T2);
6697 : : #if defined(_DERIVATE)
6698 : 0 : qgate_Vdrainp_sourcep=(qgate_Vdrainp_sourcep+(CoxWL*((Vgsteff_Vdrainp_sourcep-(0.5*Vds_Vdrainp_sourcep))+T3_Vdrainp_sourcep)));
6699 : 0 : qgate_Vgate_sourcep=(qgate_Vgate_sourcep+(CoxWL*(Vgsteff_Vgate_sourcep+T3_Vgate_sourcep)));
6700 : 0 : qgate_Vbulk_sourcep=(qgate_Vbulk_sourcep+(CoxWL*(Vgsteff_Vbulk_sourcep+T3_Vbulk_sourcep)));
6701 : : #endif
6702 : 0 : qgate=(qgate+(CoxWL*((Vgsteff-(0.5*Vds))+T3)));
6703 : : #if defined(_DERIVATE)
6704 : 0 : qbulk_Vdrainp_sourcep=(qbulk_Vdrainp_sourcep+(((CoxWL*(-AbulkCV_Vdrainp_sourcep))*((0.5*Vds)-T3))+((CoxWL*(1.0-AbulkCV))*((0.5*Vds_Vdrainp_sourcep)-T3_Vdrainp_sourcep))));
6705 : 0 : qbulk_Vgate_sourcep=(qbulk_Vgate_sourcep+(((CoxWL*(-AbulkCV_Vgate_sourcep))*((0.5*Vds)-T3))+((CoxWL*(1.0-AbulkCV))*(-T3_Vgate_sourcep))));
6706 : 0 : qbulk_Vbulk_sourcep=(qbulk_Vbulk_sourcep+(((CoxWL*(-AbulkCV_Vbulk_sourcep))*((0.5*Vds)-T3))+((CoxWL*(1.0-AbulkCV))*(-T3_Vbulk_sourcep))));
6707 : : #endif
6708 : 0 : qbulk=(qbulk+((CoxWL*(1.0-AbulkCV))*((0.5*Vds)-T3)));
6709 [ # # ]: 0 : if
6710 : : (XPART>0.5)
6711 : : {
6712 : : #if defined(_DYNAMIC)
6713 : : #if defined(_DERIVATE)
6714 : 0 : qsrc_Vgate_sourcep=((-CoxWL)*(((0.5*Vgsteff_Vgate_sourcep)+(0.25*T_0_Vgate_sourcep))-((((T_0_Vgate_sourcep*T_0)+(T_0*T_0_Vgate_sourcep))*(T1+T1)-(T_0*T_0)*(T1_Vgate_sourcep+T1_Vgate_sourcep))/(T1+T1)/(T1+T1))));
6715 : 0 : qsrc_Vdrainp_sourcep=((-CoxWL)*(((0.5*Vgsteff_Vdrainp_sourcep)+(0.25*T_0_Vdrainp_sourcep))-((((T_0_Vdrainp_sourcep*T_0)+(T_0*T_0_Vdrainp_sourcep))*(T1+T1)-(T_0*T_0)*(T1_Vdrainp_sourcep+T1_Vdrainp_sourcep))/(T1+T1)/(T1+T1))));
6716 : 0 : qsrc_Vbulk_sourcep=((-CoxWL)*(((0.5*Vgsteff_Vbulk_sourcep)+(0.25*T_0_Vbulk_sourcep))-((((T_0_Vbulk_sourcep*T_0)+(T_0*T_0_Vbulk_sourcep))*(T1+T1)-(T_0*T_0)*(T1_Vbulk_sourcep+T1_Vbulk_sourcep))/(T1+T1)/(T1+T1))));
6717 : : #endif
6718 : 0 : qsrc=((-CoxWL)*(((0.5*Vgsteff)+(0.25*T_0))-((T_0*T_0)/(T1+T1))));
6719 : : #endif
6720 : : }
6721 : : else
6722 : : {
6723 [ # # ]: 0 : if
6724 : : (XPART<0.5)
6725 : : {
6726 : : #if defined(_DERIVATE)
6727 : 0 : T2_Vgate_sourcep=(-(0.5*CoxWL)*((((T1_Vgate_sourcep/12.0)*T1)+((T1/12.0)*T1_Vgate_sourcep))/12.0)/(((T1/12.0)*T1)/12.0)/(((T1/12.0)*T1)/12.0));
6728 : 0 : T2_Vdrainp_sourcep=(-(0.5*CoxWL)*((((T1_Vdrainp_sourcep/12.0)*T1)+((T1/12.0)*T1_Vdrainp_sourcep))/12.0)/(((T1/12.0)*T1)/12.0)/(((T1/12.0)*T1)/12.0));
6729 : 0 : T2_Vbulk_sourcep=(-(0.5*CoxWL)*((((T1_Vbulk_sourcep/12.0)*T1)+((T1/12.0)*T1_Vbulk_sourcep))/12.0)/(((T1/12.0)*T1)/12.0)/(((T1/12.0)*T1)/12.0));
6730 : : #endif
6731 : 0 : T2=((0.5*CoxWL)/(((T1/12.0)*T1)/12.0));
6732 : : #if defined(_DERIVATE)
6733 : 0 : T3_Vgate_sourcep=(((Vgsteff_Vgate_sourcep*((((2.0*T_0)*T_0)/3.0)+(Vgsteff*(Vgsteff-((4.0*T_0)/3.0)))))+(Vgsteff*(((((2.0*T_0_Vgate_sourcep)*T_0)+((2.0*T_0)*T_0_Vgate_sourcep))/3.0)+((Vgsteff_Vgate_sourcep*(Vgsteff-((4.0*T_0)/3.0)))+(Vgsteff*(Vgsteff_Vgate_sourcep-((4.0*T_0_Vgate_sourcep)/3.0)))))))-((((((2.0*T_0_Vgate_sourcep)*T_0)+((2.0*T_0)*T_0_Vgate_sourcep))*T_0)+(((2.0*T_0)*T_0)*T_0_Vgate_sourcep))/15.0));
6734 : 0 : T3_Vdrainp_sourcep=(((Vgsteff_Vdrainp_sourcep*((((2.0*T_0)*T_0)/3.0)+(Vgsteff*(Vgsteff-((4.0*T_0)/3.0)))))+(Vgsteff*(((((2.0*T_0_Vdrainp_sourcep)*T_0)+((2.0*T_0)*T_0_Vdrainp_sourcep))/3.0)+((Vgsteff_Vdrainp_sourcep*(Vgsteff-((4.0*T_0)/3.0)))+(Vgsteff*(Vgsteff_Vdrainp_sourcep-((4.0*T_0_Vdrainp_sourcep)/3.0)))))))-((((((2.0*T_0_Vdrainp_sourcep)*T_0)+((2.0*T_0)*T_0_Vdrainp_sourcep))*T_0)+(((2.0*T_0)*T_0)*T_0_Vdrainp_sourcep))/15.0));
6735 : 0 : T3_Vbulk_sourcep=(((Vgsteff_Vbulk_sourcep*((((2.0*T_0)*T_0)/3.0)+(Vgsteff*(Vgsteff-((4.0*T_0)/3.0)))))+(Vgsteff*(((((2.0*T_0_Vbulk_sourcep)*T_0)+((2.0*T_0)*T_0_Vbulk_sourcep))/3.0)+((Vgsteff_Vbulk_sourcep*(Vgsteff-((4.0*T_0)/3.0)))+(Vgsteff*(Vgsteff_Vbulk_sourcep-((4.0*T_0_Vbulk_sourcep)/3.0)))))))-((((((2.0*T_0_Vbulk_sourcep)*T_0)+((2.0*T_0)*T_0_Vbulk_sourcep))*T_0)+(((2.0*T_0)*T_0)*T_0_Vbulk_sourcep))/15.0));
6736 : : #endif
6737 : 0 : T3=((Vgsteff*((((2.0*T_0)*T_0)/3.0)+(Vgsteff*(Vgsteff-((4.0*T_0)/3.0)))))-((((2.0*T_0)*T_0)*T_0)/15.0));
6738 : : #if defined(_DYNAMIC)
6739 : : #if defined(_DERIVATE)
6740 : 0 : qsrc_Vgate_sourcep=(((-T2_Vgate_sourcep)*T3)+((-T2)*T3_Vgate_sourcep));
6741 : 0 : qsrc_Vdrainp_sourcep=(((-T2_Vdrainp_sourcep)*T3)+((-T2)*T3_Vdrainp_sourcep));
6742 : 0 : qsrc_Vbulk_sourcep=(((-T2_Vbulk_sourcep)*T3)+((-T2)*T3_Vbulk_sourcep));
6743 : : #endif
6744 : 0 : qsrc=((-T2)*T3);
6745 : : #endif
6746 : : }
6747 : : else
6748 : : {
6749 : : #if defined(_DYNAMIC)
6750 : : #if defined(_DERIVATE)
6751 : 0 : qsrc_Vgate_sourcep=((-0.5)*(qgate_Vgate_sourcep+qbulk_Vgate_sourcep));
6752 : 0 : qsrc_Vdrainp_sourcep=((-0.5)*(qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep));
6753 : 0 : qsrc_Vbulk_sourcep=((-0.5)*(qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep));
6754 : : #endif
6755 : 0 : qsrc=((-0.5)*(qgate+qbulk));
6756 : : #endif
6757 : : }
6758 : : }
6759 : : }
6760 : : #if defined(_DYNAMIC)
6761 : : #if defined(_DERIVATE)
6762 : 0 : qdrn_Vgate_sourcep=(-((qgate_Vgate_sourcep+qbulk_Vgate_sourcep)+qsrc_Vgate_sourcep));
6763 : 0 : qdrn_Vdrainp_sourcep=(-((qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep)+qsrc_Vdrainp_sourcep));
6764 : 0 : qdrn_Vbulk_sourcep=(-((qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep)+qsrc_Vbulk_sourcep));
6765 : : #endif
6766 : 0 : qdrn=(-((qgate+qbulk)+qsrc));
6767 : : #endif
6768 : : #if defined(_DERIVATE)
6769 : 0 : qinv_Vdrainp_sourcep=(-(qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep));
6770 : 0 : qinv_Vgate_sourcep=(-(qgate_Vgate_sourcep+qbulk_Vgate_sourcep));
6771 : 0 : qinv_Vbulk_sourcep=(-(qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep));
6772 : : #endif
6773 : 0 : qinv=(-(qgate+qbulk));
6774 : : }
6775 : : else
6776 : : {
6777 [ # # ]: 0 : if
6778 : : (CAPMOD==2)
6779 : : {
6780 [ # # ]: 0 : if
6781 : : (VERSION<3.2)
6782 : : {
6783 : : #if defined(_DERIVATE)
6784 : 0 : Vfb_Vdrainp_sourcep=(Vth_Vdrainp_sourcep-(k1ox*sqrtPhis_Vdrainp_sourcep));
6785 : 0 : Vfb_Vbulk_sourcep=(Vth_Vbulk_sourcep-(k1ox*sqrtPhis_Vbulk_sourcep));
6786 : : #endif
6787 : 0 : Vfb=((Vth-phi)-(k1ox*sqrtPhis));
6788 : : }
6789 : : else
6790 : : {
6791 : : #if defined(_DERIVATE)
6792 : 0 : Vfb_Vdrainp_sourcep=0.0;
6793 : 0 : Vfb_Vbulk_sourcep=0.0;
6794 : : #endif
6795 : 0 : Vfb=vfbzb;
6796 : : }
6797 : : #if defined(_DERIVATE)
6798 : 0 : V3_Vdrainp_sourcep=((Vfb_Vdrainp_sourcep-Vgs_eff_Vdrainp_sourcep)+VbseffCV_Vdrainp_sourcep);
6799 : 0 : V3_Vbulk_sourcep=((Vfb_Vbulk_sourcep-Vgs_eff_Vbulk_sourcep)+VbseffCV_Vbulk_sourcep);
6800 : 0 : V3_Vgate_sourcep=(-Vgs_eff_Vgate_sourcep);
6801 : : #endif
6802 : 0 : V3=(((Vfb-Vgs_eff)+VbseffCV)-0.02);
6803 [ # # ]: 0 : if
6804 : : (Vfb<=0.0)
6805 : : {
6806 : : {
6807 : 0 : double m00_sqrt(d00_sqrt0,((V3*V3)-((4.0*0.02)*Vfb)))
6808 : : #if defined(_DERIVATE)
6809 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((V3*V3)-((4.0*0.02)*Vfb)))
6810 : : #endif
6811 : : #if defined(_DERIVATE)
6812 : 0 : T_0_Vgate_sourcep=((V3_Vgate_sourcep*V3)+(V3*V3_Vgate_sourcep))*d10_sqrt0;
6813 : 0 : T_0_Vdrainp_sourcep=(((V3_Vdrainp_sourcep*V3)+(V3*V3_Vdrainp_sourcep))-((4.0*0.02)*Vfb_Vdrainp_sourcep))*d10_sqrt0;
6814 : 0 : T_0_Vbulk_sourcep=(((V3_Vbulk_sourcep*V3)+(V3*V3_Vbulk_sourcep))-((4.0*0.02)*Vfb_Vbulk_sourcep))*d10_sqrt0;
6815 : : #endif
6816 : 0 : T_0=d00_sqrt0;
6817 : : }
6818 : : #if defined(_DERIVATE)
6819 : 0 : T2_Vgate_sourcep=(-(-0.02)*T_0_Vgate_sourcep/T_0/T_0);
6820 : 0 : T2_Vdrainp_sourcep=(-(-0.02)*T_0_Vdrainp_sourcep/T_0/T_0);
6821 : 0 : T2_Vbulk_sourcep=(-(-0.02)*T_0_Vbulk_sourcep/T_0/T_0);
6822 : : #endif
6823 : 0 : T2=((-0.02)/T_0);
6824 : : }
6825 : : else
6826 : : {
6827 : : {
6828 : 0 : double m00_sqrt(d00_sqrt0,((V3*V3)+((4.0*0.02)*Vfb)))
6829 : : #if defined(_DERIVATE)
6830 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((V3*V3)+((4.0*0.02)*Vfb)))
6831 : : #endif
6832 : : #if defined(_DERIVATE)
6833 : 0 : T_0_Vgate_sourcep=((V3_Vgate_sourcep*V3)+(V3*V3_Vgate_sourcep))*d10_sqrt0;
6834 : 0 : T_0_Vdrainp_sourcep=(((V3_Vdrainp_sourcep*V3)+(V3*V3_Vdrainp_sourcep))+((4.0*0.02)*Vfb_Vdrainp_sourcep))*d10_sqrt0;
6835 : 0 : T_0_Vbulk_sourcep=(((V3_Vbulk_sourcep*V3)+(V3*V3_Vbulk_sourcep))+((4.0*0.02)*Vfb_Vbulk_sourcep))*d10_sqrt0;
6836 : : #endif
6837 : 0 : T_0=d00_sqrt0;
6838 : : }
6839 : : #if defined(_DERIVATE)
6840 : 0 : T2_Vgate_sourcep=(-0.02*T_0_Vgate_sourcep/T_0/T_0);
6841 : 0 : T2_Vdrainp_sourcep=(-0.02*T_0_Vdrainp_sourcep/T_0/T_0);
6842 : 0 : T2_Vbulk_sourcep=(-0.02*T_0_Vbulk_sourcep/T_0/T_0);
6843 : : #endif
6844 : 0 : T2=(0.02/T_0);
6845 : : }
6846 : : #if defined(_DERIVATE)
6847 : 0 : T1_Vgate_sourcep=(0.5*((V3_Vgate_sourcep*T_0-V3*T_0_Vgate_sourcep)/T_0/T_0));
6848 : 0 : T1_Vdrainp_sourcep=(0.5*((V3_Vdrainp_sourcep*T_0-V3*T_0_Vdrainp_sourcep)/T_0/T_0));
6849 : 0 : T1_Vbulk_sourcep=(0.5*((V3_Vbulk_sourcep*T_0-V3*T_0_Vbulk_sourcep)/T_0/T_0));
6850 : : #endif
6851 : 0 : T1=(0.5*(1.0+(V3/T_0)));
6852 : : #if defined(_DERIVATE)
6853 : 0 : Vfbeff_Vdrainp_sourcep=(Vfb_Vdrainp_sourcep-(0.5*(V3_Vdrainp_sourcep+T_0_Vdrainp_sourcep)));
6854 : 0 : Vfbeff_Vbulk_sourcep=(Vfb_Vbulk_sourcep-(0.5*(V3_Vbulk_sourcep+T_0_Vbulk_sourcep)));
6855 : 0 : Vfbeff_Vgate_sourcep=(-(0.5*(V3_Vgate_sourcep+T_0_Vgate_sourcep)));
6856 : : #endif
6857 : 0 : Vfbeff=(Vfb-(0.5*(V3+T_0)));
6858 : : #if defined(_DYNAMIC)
6859 : : #if defined(_DERIVATE)
6860 : 0 : Qac0_Vdrainp_sourcep=(CoxWL*(Vfbeff_Vdrainp_sourcep-Vfb_Vdrainp_sourcep));
6861 : 0 : Qac0_Vbulk_sourcep=(CoxWL*(Vfbeff_Vbulk_sourcep-Vfb_Vbulk_sourcep));
6862 : 0 : Qac0_Vgate_sourcep=(CoxWL*Vfbeff_Vgate_sourcep);
6863 : : #endif
6864 : 0 : Qac0=(CoxWL*(Vfbeff-Vfb));
6865 : : #endif
6866 : : #if defined(_DERIVATE)
6867 : 0 : T_0_Vgate_sourcep=0.0;
6868 : 0 : T_0_Vdrainp_sourcep=0.0;
6869 : 0 : T_0_Vbulk_sourcep=0.0;
6870 : : #endif
6871 : 0 : T_0=(0.5*k1ox);
6872 : : #if defined(_DERIVATE)
6873 : 0 : T3_Vgate_sourcep=((Vgs_eff_Vgate_sourcep-Vfbeff_Vgate_sourcep)-Vgsteff_Vgate_sourcep);
6874 : 0 : T3_Vdrainp_sourcep=(((Vgs_eff_Vdrainp_sourcep-Vfbeff_Vdrainp_sourcep)-VbseffCV_Vdrainp_sourcep)-Vgsteff_Vdrainp_sourcep);
6875 : 0 : T3_Vbulk_sourcep=(((Vgs_eff_Vbulk_sourcep-Vfbeff_Vbulk_sourcep)-VbseffCV_Vbulk_sourcep)-Vgsteff_Vbulk_sourcep);
6876 : : #endif
6877 : 0 : T3=(((Vgs_eff-Vfbeff)-VbseffCV)-Vgsteff);
6878 [ # # ]: 0 : if
6879 : : (k1ox==0.0)
6880 : : {
6881 : : #if defined(_DERIVATE)
6882 : 0 : T1_Vgate_sourcep=0.0;
6883 : 0 : T1_Vdrainp_sourcep=0.0;
6884 : 0 : T1_Vbulk_sourcep=0.0;
6885 : : #endif
6886 : 0 : T1=0.0;
6887 : : #if defined(_DERIVATE)
6888 : 0 : T2_Vgate_sourcep=0.0;
6889 : 0 : T2_Vdrainp_sourcep=0.0;
6890 : 0 : T2_Vbulk_sourcep=0.0;
6891 : : #endif
6892 : 0 : T2=0.0;
6893 : : }
6894 : : else
6895 : : {
6896 [ # # ]: 0 : if
6897 : : (T3<0.0)
6898 : : {
6899 : : #if defined(_DERIVATE)
6900 : 0 : T1_Vgate_sourcep=(T_0_Vgate_sourcep+(T3_Vgate_sourcep/k1ox));
6901 : 0 : T1_Vdrainp_sourcep=(T_0_Vdrainp_sourcep+(T3_Vdrainp_sourcep/k1ox));
6902 : 0 : T1_Vbulk_sourcep=(T_0_Vbulk_sourcep+(T3_Vbulk_sourcep/k1ox));
6903 : : #endif
6904 : 0 : T1=(T_0+(T3/k1ox));
6905 : : #if defined(_DERIVATE)
6906 : 0 : T2_Vgate_sourcep=0.0;
6907 : 0 : T2_Vdrainp_sourcep=0.0;
6908 : 0 : T2_Vbulk_sourcep=0.0;
6909 : : #endif
6910 : 0 : T2=CoxWL;
6911 : : }
6912 : : else
6913 : : {
6914 : : {
6915 : 0 : double m00_sqrt(d00_sqrt0,((T_0*T_0)+T3))
6916 : : #if defined(_DERIVATE)
6917 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T_0*T_0)+T3))
6918 : : #endif
6919 : : #if defined(_DERIVATE)
6920 : 0 : T1_Vgate_sourcep=(((T_0_Vgate_sourcep*T_0)+(T_0*T_0_Vgate_sourcep))+T3_Vgate_sourcep)*d10_sqrt0;
6921 : 0 : T1_Vdrainp_sourcep=(((T_0_Vdrainp_sourcep*T_0)+(T_0*T_0_Vdrainp_sourcep))+T3_Vdrainp_sourcep)*d10_sqrt0;
6922 : 0 : T1_Vbulk_sourcep=(((T_0_Vbulk_sourcep*T_0)+(T_0*T_0_Vbulk_sourcep))+T3_Vbulk_sourcep)*d10_sqrt0;
6923 : : #endif
6924 : 0 : T1=d00_sqrt0;
6925 : : }
6926 : : #if defined(_DERIVATE)
6927 : 0 : T2_Vgate_sourcep=(((CoxWL*T_0_Vgate_sourcep)*T1-(CoxWL*T_0)*T1_Vgate_sourcep)/T1/T1);
6928 : 0 : T2_Vdrainp_sourcep=(((CoxWL*T_0_Vdrainp_sourcep)*T1-(CoxWL*T_0)*T1_Vdrainp_sourcep)/T1/T1);
6929 : 0 : T2_Vbulk_sourcep=(((CoxWL*T_0_Vbulk_sourcep)*T1-(CoxWL*T_0)*T1_Vbulk_sourcep)/T1/T1);
6930 : : #endif
6931 : 0 : T2=((CoxWL*T_0)/T1);
6932 : : }
6933 : : }
6934 : : #if defined(_DYNAMIC)
6935 : : #if defined(_DERIVATE)
6936 : 0 : Qsub0_Vgate_sourcep=((CoxWL*k1ox)*(T1_Vgate_sourcep-T_0_Vgate_sourcep));
6937 : 0 : Qsub0_Vdrainp_sourcep=((CoxWL*k1ox)*(T1_Vdrainp_sourcep-T_0_Vdrainp_sourcep));
6938 : 0 : Qsub0_Vbulk_sourcep=((CoxWL*k1ox)*(T1_Vbulk_sourcep-T_0_Vbulk_sourcep));
6939 : : #endif
6940 : 0 : Qsub0=((CoxWL*k1ox)*(T1-T_0));
6941 : : #endif
6942 : : #if defined(_DERIVATE)
6943 : 0 : AbulkCV_Vgate_sourcep=Abulk0_Vgate_sourcep*abulkCVfactor;
6944 : 0 : AbulkCV_Vdrainp_sourcep=Abulk0_Vdrainp_sourcep*abulkCVfactor;
6945 : 0 : AbulkCV_Vbulk_sourcep=Abulk0_Vbulk_sourcep*abulkCVfactor;
6946 : : #endif
6947 : 0 : AbulkCV=(Abulk0*abulkCVfactor);
6948 : : #if defined(_DERIVATE)
6949 : 0 : VdsatCV_Vdrainp_sourcep=((Vgsteff_Vdrainp_sourcep*AbulkCV-Vgsteff*AbulkCV_Vdrainp_sourcep)/AbulkCV/AbulkCV);
6950 : 0 : VdsatCV_Vgate_sourcep=((Vgsteff_Vgate_sourcep*AbulkCV-Vgsteff*AbulkCV_Vgate_sourcep)/AbulkCV/AbulkCV);
6951 : 0 : VdsatCV_Vbulk_sourcep=((Vgsteff_Vbulk_sourcep*AbulkCV-Vgsteff*AbulkCV_Vbulk_sourcep)/AbulkCV/AbulkCV);
6952 : : #endif
6953 : 0 : VdsatCV=(Vgsteff/AbulkCV);
6954 : : #if defined(_DERIVATE)
6955 : 0 : V4_Vdrainp_sourcep=(VdsatCV_Vdrainp_sourcep-Vds_Vdrainp_sourcep);
6956 : 0 : V4_Vgate_sourcep=VdsatCV_Vgate_sourcep;
6957 : 0 : V4_Vbulk_sourcep=VdsatCV_Vbulk_sourcep;
6958 : : #endif
6959 : 0 : V4=((VdsatCV-Vds)-0.02);
6960 : : {
6961 : 0 : double m00_sqrt(d00_sqrt0,((V4*V4)+((4.0*0.02)*VdsatCV)))
6962 : : #if defined(_DERIVATE)
6963 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((V4*V4)+((4.0*0.02)*VdsatCV)))
6964 : : #endif
6965 : : #if defined(_DERIVATE)
6966 : 0 : T_0_Vgate_sourcep=(((V4_Vgate_sourcep*V4)+(V4*V4_Vgate_sourcep))+((4.0*0.02)*VdsatCV_Vgate_sourcep))*d10_sqrt0;
6967 : 0 : T_0_Vdrainp_sourcep=(((V4_Vdrainp_sourcep*V4)+(V4*V4_Vdrainp_sourcep))+((4.0*0.02)*VdsatCV_Vdrainp_sourcep))*d10_sqrt0;
6968 : 0 : T_0_Vbulk_sourcep=(((V4_Vbulk_sourcep*V4)+(V4*V4_Vbulk_sourcep))+((4.0*0.02)*VdsatCV_Vbulk_sourcep))*d10_sqrt0;
6969 : : #endif
6970 : 0 : T_0=d00_sqrt0;
6971 : : }
6972 : : #if defined(_DERIVATE)
6973 : 0 : VdseffCV_Vdrainp_sourcep=(VdsatCV_Vdrainp_sourcep-(0.5*(V4_Vdrainp_sourcep+T_0_Vdrainp_sourcep)));
6974 : 0 : VdseffCV_Vgate_sourcep=(VdsatCV_Vgate_sourcep-(0.5*(V4_Vgate_sourcep+T_0_Vgate_sourcep)));
6975 : 0 : VdseffCV_Vbulk_sourcep=(VdsatCV_Vbulk_sourcep-(0.5*(V4_Vbulk_sourcep+T_0_Vbulk_sourcep)));
6976 : : #endif
6977 : 0 : VdseffCV=(VdsatCV-(0.5*(V4+T_0)));
6978 [ # # ][ # # ]: 0 : if
6979 : : ((Vds==0.0)&&(VERSION==3.24))
6980 : : {
6981 : : #if defined(_DERIVATE)
6982 : 0 : VdseffCV_Vdrainp_sourcep=0.0;
6983 : 0 : VdseffCV_Vgate_sourcep=0.0;
6984 : 0 : VdseffCV_Vbulk_sourcep=0.0;
6985 : : #endif
6986 : 0 : VdseffCV=0.0;
6987 : : }
6988 : : #if defined(_DERIVATE)
6989 : 0 : T_0_Vgate_sourcep=((AbulkCV_Vgate_sourcep*VdseffCV)+(AbulkCV*VdseffCV_Vgate_sourcep));
6990 : 0 : T_0_Vdrainp_sourcep=((AbulkCV_Vdrainp_sourcep*VdseffCV)+(AbulkCV*VdseffCV_Vdrainp_sourcep));
6991 : 0 : T_0_Vbulk_sourcep=((AbulkCV_Vbulk_sourcep*VdseffCV)+(AbulkCV*VdseffCV_Vbulk_sourcep));
6992 : : #endif
6993 : 0 : T_0=(AbulkCV*VdseffCV);
6994 : : #if defined(_DERIVATE)
6995 : 0 : T1_Vgate_sourcep=(12.0*(Vgsteff_Vgate_sourcep-(0.5*T_0_Vgate_sourcep)));
6996 : 0 : T1_Vdrainp_sourcep=(12.0*(Vgsteff_Vdrainp_sourcep-(0.5*T_0_Vdrainp_sourcep)));
6997 : 0 : T1_Vbulk_sourcep=(12.0*(Vgsteff_Vbulk_sourcep-(0.5*T_0_Vbulk_sourcep)));
6998 : : #endif
6999 : 0 : T1=(12.0*((Vgsteff-(0.5*T_0))+1e-20));
7000 : : #if defined(_DERIVATE)
7001 : 0 : T2_Vgate_sourcep=((VdseffCV_Vgate_sourcep*T1-VdseffCV*T1_Vgate_sourcep)/T1/T1);
7002 : 0 : T2_Vdrainp_sourcep=((VdseffCV_Vdrainp_sourcep*T1-VdseffCV*T1_Vdrainp_sourcep)/T1/T1);
7003 : 0 : T2_Vbulk_sourcep=((VdseffCV_Vbulk_sourcep*T1-VdseffCV*T1_Vbulk_sourcep)/T1/T1);
7004 : : #endif
7005 : 0 : T2=(VdseffCV/T1);
7006 : : #if defined(_DERIVATE)
7007 : 0 : T3_Vgate_sourcep=((T_0_Vgate_sourcep*T2)+(T_0*T2_Vgate_sourcep));
7008 : 0 : T3_Vdrainp_sourcep=((T_0_Vdrainp_sourcep*T2)+(T_0*T2_Vdrainp_sourcep));
7009 : 0 : T3_Vbulk_sourcep=((T_0_Vbulk_sourcep*T2)+(T_0*T2_Vbulk_sourcep));
7010 : : #endif
7011 : 0 : T3=(T_0*T2);
7012 : : #if defined(_DYNAMIC)
7013 : : #if defined(_DERIVATE)
7014 : 0 : T4_Vgate_sourcep=(-(((((12.0*T2_Vgate_sourcep)*T2)+((12.0*T2)*T2_Vgate_sourcep))*AbulkCV)+(((12.0*T2)*T2)*AbulkCV_Vgate_sourcep)));
7015 : 0 : T4_Vdrainp_sourcep=(-(((((12.0*T2_Vdrainp_sourcep)*T2)+((12.0*T2)*T2_Vdrainp_sourcep))*AbulkCV)+(((12.0*T2)*T2)*AbulkCV_Vdrainp_sourcep)));
7016 : 0 : T4_Vbulk_sourcep=(-(((((12.0*T2_Vbulk_sourcep)*T2)+((12.0*T2)*T2_Vbulk_sourcep))*AbulkCV)+(((12.0*T2)*T2)*AbulkCV_Vbulk_sourcep)));
7017 : : #endif
7018 : 0 : T4=(1.0-(((12.0*T2)*T2)*AbulkCV));
7019 : : #endif
7020 : : #if defined(_DYNAMIC)
7021 : : #if defined(_DERIVATE)
7022 : 0 : T5_Vgate_sourcep=(((((6.0*T_0_Vgate_sourcep)*((4.0*Vgsteff)-T_0))+((6.0*T_0)*((4.0*Vgsteff_Vgate_sourcep)-T_0_Vgate_sourcep)))*(T1*T1)-((6.0*T_0)*((4.0*Vgsteff)-T_0))*((T1_Vgate_sourcep*T1)+(T1*T1_Vgate_sourcep)))/(T1*T1)/(T1*T1));
7023 : 0 : T5_Vdrainp_sourcep=(((((6.0*T_0_Vdrainp_sourcep)*((4.0*Vgsteff)-T_0))+((6.0*T_0)*((4.0*Vgsteff_Vdrainp_sourcep)-T_0_Vdrainp_sourcep)))*(T1*T1)-((6.0*T_0)*((4.0*Vgsteff)-T_0))*((T1_Vdrainp_sourcep*T1)+(T1*T1_Vdrainp_sourcep)))/(T1*T1)/(T1*T1));
7024 : 0 : T5_Vbulk_sourcep=(((((6.0*T_0_Vbulk_sourcep)*((4.0*Vgsteff)-T_0))+((6.0*T_0)*((4.0*Vgsteff_Vbulk_sourcep)-T_0_Vbulk_sourcep)))*(T1*T1)-((6.0*T_0)*((4.0*Vgsteff)-T_0))*((T1_Vbulk_sourcep*T1)+(T1*T1_Vbulk_sourcep)))/(T1*T1)/(T1*T1));
7025 : : #endif
7026 : 0 : T5=((((6.0*T_0)*((4.0*Vgsteff)-T_0))/(T1*T1))-0.5);
7027 : : #endif
7028 : : #if defined(_DYNAMIC)
7029 : : #if defined(_DERIVATE)
7030 : 0 : T6_Vgate_sourcep=(((((12.0*T2_Vgate_sourcep)*T2)+((12.0*T2)*T2_Vgate_sourcep))*Vgsteff)+(((12.0*T2)*T2)*Vgsteff_Vgate_sourcep));
7031 : 0 : T6_Vdrainp_sourcep=(((((12.0*T2_Vdrainp_sourcep)*T2)+((12.0*T2)*T2_Vdrainp_sourcep))*Vgsteff)+(((12.0*T2)*T2)*Vgsteff_Vdrainp_sourcep));
7032 : 0 : T6_Vbulk_sourcep=(((((12.0*T2_Vbulk_sourcep)*T2)+((12.0*T2)*T2_Vbulk_sourcep))*Vgsteff)+(((12.0*T2)*T2)*Vgsteff_Vbulk_sourcep));
7033 : : #endif
7034 : 0 : T6=(((12.0*T2)*T2)*Vgsteff);
7035 : : #endif
7036 : : #if defined(_DERIVATE)
7037 : 0 : qinoi_Vdrainp_sourcep=((-CoxWL)*((Vgsteff_Vdrainp_sourcep-(0.5*T_0_Vdrainp_sourcep))+((AbulkCV_Vdrainp_sourcep*T3)+(AbulkCV*T3_Vdrainp_sourcep))));
7038 : 0 : qinoi_Vgate_sourcep=((-CoxWL)*((Vgsteff_Vgate_sourcep-(0.5*T_0_Vgate_sourcep))+((AbulkCV_Vgate_sourcep*T3)+(AbulkCV*T3_Vgate_sourcep))));
7039 : 0 : qinoi_Vbulk_sourcep=((-CoxWL)*((Vgsteff_Vbulk_sourcep-(0.5*T_0_Vbulk_sourcep))+((AbulkCV_Vbulk_sourcep*T3)+(AbulkCV*T3_Vbulk_sourcep))));
7040 : : #endif
7041 : 0 : qinoi=((-CoxWL)*((Vgsteff-(0.5*T_0))+(AbulkCV*T3)));
7042 : : #if defined(_DYNAMIC)
7043 : : #if defined(_DERIVATE)
7044 : 0 : qgate_Vdrainp_sourcep=(CoxWL*((Vgsteff_Vdrainp_sourcep-(0.5*VdseffCV_Vdrainp_sourcep))+T3_Vdrainp_sourcep));
7045 : 0 : qgate_Vgate_sourcep=(CoxWL*((Vgsteff_Vgate_sourcep-(0.5*VdseffCV_Vgate_sourcep))+T3_Vgate_sourcep));
7046 : 0 : qgate_Vbulk_sourcep=(CoxWL*((Vgsteff_Vbulk_sourcep-(0.5*VdseffCV_Vbulk_sourcep))+T3_Vbulk_sourcep));
7047 : : #endif
7048 : 0 : qgate=(CoxWL*((Vgsteff-(0.5*VdseffCV))+T3));
7049 : : #endif
7050 : : #if defined(_DYNAMIC)
7051 : : #if defined(_DERIVATE)
7052 : 0 : T7_Vgate_sourcep=(-AbulkCV_Vgate_sourcep);
7053 : 0 : T7_Vdrainp_sourcep=(-AbulkCV_Vdrainp_sourcep);
7054 : 0 : T7_Vbulk_sourcep=(-AbulkCV_Vbulk_sourcep);
7055 : : #endif
7056 : 0 : T7=(1.0-AbulkCV);
7057 : : #endif
7058 : : #if defined(_DYNAMIC)
7059 : : #if defined(_DERIVATE)
7060 : 0 : qbulk_Vdrainp_sourcep=(((CoxWL*T7_Vdrainp_sourcep)*((0.5*VdseffCV)-T3))+((CoxWL*T7)*((0.5*VdseffCV_Vdrainp_sourcep)-T3_Vdrainp_sourcep)));
7061 : 0 : qbulk_Vgate_sourcep=(((CoxWL*T7_Vgate_sourcep)*((0.5*VdseffCV)-T3))+((CoxWL*T7)*((0.5*VdseffCV_Vgate_sourcep)-T3_Vgate_sourcep)));
7062 : 0 : qbulk_Vbulk_sourcep=(((CoxWL*T7_Vbulk_sourcep)*((0.5*VdseffCV)-T3))+((CoxWL*T7)*((0.5*VdseffCV_Vbulk_sourcep)-T3_Vbulk_sourcep)));
7063 : : #endif
7064 : 0 : qbulk=((CoxWL*T7)*((0.5*VdseffCV)-T3));
7065 : : #endif
7066 [ # # ]: 0 : if
7067 : : (XPART>0.5)
7068 : : {
7069 : : #if defined(_DYNAMIC)
7070 : : #if defined(_DERIVATE)
7071 : 0 : qsrc_Vgate_sourcep=((-CoxWL)*(((0.5*Vgsteff_Vgate_sourcep)+(0.25*T_0_Vgate_sourcep))-((((T_0_Vgate_sourcep*T_0)+(T_0*T_0_Vgate_sourcep))*(T1+T1)-(T_0*T_0)*(T1_Vgate_sourcep+T1_Vgate_sourcep))/(T1+T1)/(T1+T1))));
7072 : 0 : qsrc_Vdrainp_sourcep=((-CoxWL)*(((0.5*Vgsteff_Vdrainp_sourcep)+(0.25*T_0_Vdrainp_sourcep))-((((T_0_Vdrainp_sourcep*T_0)+(T_0*T_0_Vdrainp_sourcep))*(T1+T1)-(T_0*T_0)*(T1_Vdrainp_sourcep+T1_Vdrainp_sourcep))/(T1+T1)/(T1+T1))));
7073 : 0 : qsrc_Vbulk_sourcep=((-CoxWL)*(((0.5*Vgsteff_Vbulk_sourcep)+(0.25*T_0_Vbulk_sourcep))-((((T_0_Vbulk_sourcep*T_0)+(T_0*T_0_Vbulk_sourcep))*(T1+T1)-(T_0*T_0)*(T1_Vbulk_sourcep+T1_Vbulk_sourcep))/(T1+T1)/(T1+T1))));
7074 : : #endif
7075 : 0 : qsrc=((-CoxWL)*(((0.5*Vgsteff)+(0.25*T_0))-((T_0*T_0)/(T1+T1))));
7076 : : #endif
7077 : : }
7078 : : else
7079 : : {
7080 [ # # ]: 0 : if
7081 : : (XPART<0.5)
7082 : : {
7083 : : #if defined(_DERIVATE)
7084 : 0 : T2_Vgate_sourcep=(-(0.5*CoxWL)*((((T1_Vgate_sourcep/12.0)*T1)+((T1/12.0)*T1_Vgate_sourcep))/12.0)/(((T1/12.0)*T1)/12.0)/(((T1/12.0)*T1)/12.0));
7085 : 0 : T2_Vdrainp_sourcep=(-(0.5*CoxWL)*((((T1_Vdrainp_sourcep/12.0)*T1)+((T1/12.0)*T1_Vdrainp_sourcep))/12.0)/(((T1/12.0)*T1)/12.0)/(((T1/12.0)*T1)/12.0));
7086 : 0 : T2_Vbulk_sourcep=(-(0.5*CoxWL)*((((T1_Vbulk_sourcep/12.0)*T1)+((T1/12.0)*T1_Vbulk_sourcep))/12.0)/(((T1/12.0)*T1)/12.0)/(((T1/12.0)*T1)/12.0));
7087 : : #endif
7088 : 0 : T2=((0.5*CoxWL)/(((T1/12.0)*T1)/12.0));
7089 : : #if defined(_DERIVATE)
7090 : 0 : T3_Vgate_sourcep=(((Vgsteff_Vgate_sourcep*((((2.0*T_0)*T_0)/3.0)+(Vgsteff*(Vgsteff-((4.0*T_0)/3.0)))))+(Vgsteff*(((((2.0*T_0_Vgate_sourcep)*T_0)+((2.0*T_0)*T_0_Vgate_sourcep))/3.0)+((Vgsteff_Vgate_sourcep*(Vgsteff-((4.0*T_0)/3.0)))+(Vgsteff*(Vgsteff_Vgate_sourcep-((4.0*T_0_Vgate_sourcep)/3.0)))))))-((((((2.0*T_0_Vgate_sourcep)*T_0)+((2.0*T_0)*T_0_Vgate_sourcep))*T_0)+(((2.0*T_0)*T_0)*T_0_Vgate_sourcep))/15.0));
7091 : 0 : T3_Vdrainp_sourcep=(((Vgsteff_Vdrainp_sourcep*((((2.0*T_0)*T_0)/3.0)+(Vgsteff*(Vgsteff-((4.0*T_0)/3.0)))))+(Vgsteff*(((((2.0*T_0_Vdrainp_sourcep)*T_0)+((2.0*T_0)*T_0_Vdrainp_sourcep))/3.0)+((Vgsteff_Vdrainp_sourcep*(Vgsteff-((4.0*T_0)/3.0)))+(Vgsteff*(Vgsteff_Vdrainp_sourcep-((4.0*T_0_Vdrainp_sourcep)/3.0)))))))-((((((2.0*T_0_Vdrainp_sourcep)*T_0)+((2.0*T_0)*T_0_Vdrainp_sourcep))*T_0)+(((2.0*T_0)*T_0)*T_0_Vdrainp_sourcep))/15.0));
7092 : 0 : T3_Vbulk_sourcep=(((Vgsteff_Vbulk_sourcep*((((2.0*T_0)*T_0)/3.0)+(Vgsteff*(Vgsteff-((4.0*T_0)/3.0)))))+(Vgsteff*(((((2.0*T_0_Vbulk_sourcep)*T_0)+((2.0*T_0)*T_0_Vbulk_sourcep))/3.0)+((Vgsteff_Vbulk_sourcep*(Vgsteff-((4.0*T_0)/3.0)))+(Vgsteff*(Vgsteff_Vbulk_sourcep-((4.0*T_0_Vbulk_sourcep)/3.0)))))))-((((((2.0*T_0_Vbulk_sourcep)*T_0)+((2.0*T_0)*T_0_Vbulk_sourcep))*T_0)+(((2.0*T_0)*T_0)*T_0_Vbulk_sourcep))/15.0));
7093 : : #endif
7094 : 0 : T3=((Vgsteff*((((2.0*T_0)*T_0)/3.0)+(Vgsteff*(Vgsteff-((4.0*T_0)/3.0)))))-((((2.0*T_0)*T_0)*T_0)/15.0));
7095 : : #if defined(_DYNAMIC)
7096 : : #if defined(_DERIVATE)
7097 : 0 : qsrc_Vgate_sourcep=(((-T2_Vgate_sourcep)*T3)+((-T2)*T3_Vgate_sourcep));
7098 : 0 : qsrc_Vdrainp_sourcep=(((-T2_Vdrainp_sourcep)*T3)+((-T2)*T3_Vdrainp_sourcep));
7099 : 0 : qsrc_Vbulk_sourcep=(((-T2_Vbulk_sourcep)*T3)+((-T2)*T3_Vbulk_sourcep));
7100 : : #endif
7101 : 0 : qsrc=((-T2)*T3);
7102 : : #endif
7103 : : }
7104 : : else
7105 : : {
7106 : : #if defined(_DYNAMIC)
7107 : : #if defined(_DERIVATE)
7108 : 0 : qsrc_Vgate_sourcep=((-0.5)*(qgate_Vgate_sourcep+qbulk_Vgate_sourcep));
7109 : 0 : qsrc_Vdrainp_sourcep=((-0.5)*(qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep));
7110 : 0 : qsrc_Vbulk_sourcep=((-0.5)*(qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep));
7111 : : #endif
7112 : 0 : qsrc=((-0.5)*(qgate+qbulk));
7113 : : #endif
7114 : : }
7115 : : }
7116 : : #if defined(_DYNAMIC)
7117 : : #if defined(_DERIVATE)
7118 : 0 : qgate_Vdrainp_sourcep=((qgate_Vdrainp_sourcep+Qac0_Vdrainp_sourcep)+Qsub0_Vdrainp_sourcep);
7119 : 0 : qgate_Vgate_sourcep=((qgate_Vgate_sourcep+Qac0_Vgate_sourcep)+Qsub0_Vgate_sourcep);
7120 : 0 : qgate_Vbulk_sourcep=((qgate_Vbulk_sourcep+Qac0_Vbulk_sourcep)+Qsub0_Vbulk_sourcep);
7121 : : #endif
7122 : 0 : qgate=((qgate+Qac0)+Qsub0);
7123 : : #endif
7124 : : #if defined(_DYNAMIC)
7125 : : #if defined(_DERIVATE)
7126 : 0 : qbulk_Vdrainp_sourcep=(qbulk_Vdrainp_sourcep-(Qac0_Vdrainp_sourcep+Qsub0_Vdrainp_sourcep));
7127 : 0 : qbulk_Vgate_sourcep=(qbulk_Vgate_sourcep-(Qac0_Vgate_sourcep+Qsub0_Vgate_sourcep));
7128 : 0 : qbulk_Vbulk_sourcep=(qbulk_Vbulk_sourcep-(Qac0_Vbulk_sourcep+Qsub0_Vbulk_sourcep));
7129 : : #endif
7130 : 0 : qbulk=(qbulk-(Qac0+Qsub0));
7131 : : #endif
7132 : : #if defined(_DYNAMIC)
7133 : : #if defined(_DERIVATE)
7134 : 0 : qdrn_Vgate_sourcep=(-((qgate_Vgate_sourcep+qbulk_Vgate_sourcep)+qsrc_Vgate_sourcep));
7135 : 0 : qdrn_Vdrainp_sourcep=(-((qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep)+qsrc_Vdrainp_sourcep));
7136 : 0 : qdrn_Vbulk_sourcep=(-((qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep)+qsrc_Vbulk_sourcep));
7137 : : #endif
7138 : 0 : qdrn=(-((qgate+qbulk)+qsrc));
7139 : : #endif
7140 : : #if defined(_DERIVATE)
7141 : 0 : qinv_Vdrainp_sourcep=qinoi_Vdrainp_sourcep;
7142 : 0 : qinv_Vgate_sourcep=qinoi_Vgate_sourcep;
7143 : 0 : qinv_Vbulk_sourcep=qinoi_Vbulk_sourcep;
7144 : : #endif
7145 : 0 : qinv=qinoi;
7146 : : }
7147 : : else
7148 : : {
7149 [ # # ]: 0 : if
7150 : : (CAPMOD==3)
7151 : : {
7152 : : #if defined(_DERIVATE)
7153 : 0 : V3_Vdrainp_sourcep=((-Vgs_eff_Vdrainp_sourcep)+VbseffCV_Vdrainp_sourcep);
7154 : 0 : V3_Vbulk_sourcep=((-Vgs_eff_Vbulk_sourcep)+VbseffCV_Vbulk_sourcep);
7155 : 0 : V3_Vgate_sourcep=(-Vgs_eff_Vgate_sourcep);
7156 : : #endif
7157 : 0 : V3=(((vfbzb-Vgs_eff)+VbseffCV)-0.02);
7158 [ # # ]: 0 : if
7159 : : (vfbzb<=0.0)
7160 : : {
7161 : : {
7162 : 0 : double m00_sqrt(d00_sqrt0,((V3*V3)-((4.0*0.02)*vfbzb)))
7163 : : #if defined(_DERIVATE)
7164 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((V3*V3)-((4.0*0.02)*vfbzb)))
7165 : : #endif
7166 : : #if defined(_DERIVATE)
7167 : 0 : T_0_Vgate_sourcep=((V3_Vgate_sourcep*V3)+(V3*V3_Vgate_sourcep))*d10_sqrt0;
7168 : 0 : T_0_Vdrainp_sourcep=((V3_Vdrainp_sourcep*V3)+(V3*V3_Vdrainp_sourcep))*d10_sqrt0;
7169 : 0 : T_0_Vbulk_sourcep=((V3_Vbulk_sourcep*V3)+(V3*V3_Vbulk_sourcep))*d10_sqrt0;
7170 : : #endif
7171 : 0 : T_0=d00_sqrt0;
7172 : : }
7173 : : #if defined(_DERIVATE)
7174 : 0 : T2_Vgate_sourcep=(-(-0.02)*T_0_Vgate_sourcep/T_0/T_0);
7175 : 0 : T2_Vdrainp_sourcep=(-(-0.02)*T_0_Vdrainp_sourcep/T_0/T_0);
7176 : 0 : T2_Vbulk_sourcep=(-(-0.02)*T_0_Vbulk_sourcep/T_0/T_0);
7177 : : #endif
7178 : 0 : T2=((-0.02)/T_0);
7179 : : }
7180 : : else
7181 : : {
7182 : : {
7183 : 0 : double m00_sqrt(d00_sqrt0,((V3*V3)+((4.0*0.02)*vfbzb)))
7184 : : #if defined(_DERIVATE)
7185 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((V3*V3)+((4.0*0.02)*vfbzb)))
7186 : : #endif
7187 : : #if defined(_DERIVATE)
7188 : 0 : T_0_Vgate_sourcep=((V3_Vgate_sourcep*V3)+(V3*V3_Vgate_sourcep))*d10_sqrt0;
7189 : 0 : T_0_Vdrainp_sourcep=((V3_Vdrainp_sourcep*V3)+(V3*V3_Vdrainp_sourcep))*d10_sqrt0;
7190 : 0 : T_0_Vbulk_sourcep=((V3_Vbulk_sourcep*V3)+(V3*V3_Vbulk_sourcep))*d10_sqrt0;
7191 : : #endif
7192 : 0 : T_0=d00_sqrt0;
7193 : : }
7194 : : #if defined(_DERIVATE)
7195 : 0 : T2_Vgate_sourcep=(-0.02*T_0_Vgate_sourcep/T_0/T_0);
7196 : 0 : T2_Vdrainp_sourcep=(-0.02*T_0_Vdrainp_sourcep/T_0/T_0);
7197 : 0 : T2_Vbulk_sourcep=(-0.02*T_0_Vbulk_sourcep/T_0/T_0);
7198 : : #endif
7199 : 0 : T2=(0.02/T_0);
7200 : : }
7201 : : #if defined(_DERIVATE)
7202 : 0 : T1_Vgate_sourcep=(0.5*((V3_Vgate_sourcep*T_0-V3*T_0_Vgate_sourcep)/T_0/T_0));
7203 : 0 : T1_Vdrainp_sourcep=(0.5*((V3_Vdrainp_sourcep*T_0-V3*T_0_Vdrainp_sourcep)/T_0/T_0));
7204 : 0 : T1_Vbulk_sourcep=(0.5*((V3_Vbulk_sourcep*T_0-V3*T_0_Vbulk_sourcep)/T_0/T_0));
7205 : : #endif
7206 : 0 : T1=(0.5*(1.0+(V3/T_0)));
7207 : : #if defined(_DERIVATE)
7208 : 0 : Vfbeff_Vdrainp_sourcep=(-(0.5*(V3_Vdrainp_sourcep+T_0_Vdrainp_sourcep)));
7209 : 0 : Vfbeff_Vbulk_sourcep=(-(0.5*(V3_Vbulk_sourcep+T_0_Vbulk_sourcep)));
7210 : 0 : Vfbeff_Vgate_sourcep=(-(0.5*(V3_Vgate_sourcep+T_0_Vgate_sourcep)));
7211 : : #endif
7212 : 0 : Vfbeff=(vfbzb-(0.5*(V3+T_0)));
7213 : 0 : Cox=cox;
7214 : 0 : Tox=(1.0e8*tox);
7215 : : #if defined(_DERIVATE)
7216 : 0 : T_0_Vgate_sourcep=(Vgs_eff_Vgate_sourcep/Tox);
7217 : 0 : T_0_Vdrainp_sourcep=((Vgs_eff_Vdrainp_sourcep-VbseffCV_Vdrainp_sourcep)/Tox);
7218 : 0 : T_0_Vbulk_sourcep=((Vgs_eff_Vbulk_sourcep-VbseffCV_Vbulk_sourcep)/Tox);
7219 : : #endif
7220 : 0 : T_0=(((Vgs_eff-VbseffCV)-vfbzb)/Tox);
7221 : : #if defined(_DERIVATE)
7222 : 0 : tmp_Vgate_sourcep=T_0_Vgate_sourcep*acde;
7223 : 0 : tmp_Vdrainp_sourcep=T_0_Vdrainp_sourcep*acde;
7224 : 0 : tmp_Vbulk_sourcep=T_0_Vbulk_sourcep*acde;
7225 : : #endif
7226 : 0 : tmp=(T_0*acde);
7227 [ # # ][ # # ]: 0 : if
7228 : : (((-34.0)<tmp)&&(tmp<34.0))
7229 : : {
7230 : : {
7231 : 0 : double m00_exp(d00_exp0,tmp)
7232 : : #if defined(_DERIVATE)
7233 : : #define d10_exp0 d00_exp0
7234 : : #endif
7235 : : #if defined(_DERIVATE)
7236 : 0 : Tcen_Vgate_sourcep=(ldeb*tmp_Vgate_sourcep*d10_exp0);
7237 : 0 : Tcen_Vdrainp_sourcep=(ldeb*tmp_Vdrainp_sourcep*d10_exp0);
7238 : 0 : Tcen_Vbulk_sourcep=(ldeb*tmp_Vbulk_sourcep*d10_exp0);
7239 : : #endif
7240 : 0 : Tcen=(ldeb*d00_exp0);
7241 : 0 : }
7242 : : }
7243 : : else
7244 : : {
7245 [ # # ]: 0 : if
7246 : : (tmp<=(-34.0))
7247 : : {
7248 : : #if defined(_DERIVATE)
7249 : 0 : Tcen_Vgate_sourcep=0.0;
7250 : 0 : Tcen_Vdrainp_sourcep=0.0;
7251 : 0 : Tcen_Vbulk_sourcep=0.0;
7252 : : #endif
7253 : 0 : Tcen=(ldeb*1.713908431e-15);
7254 : : }
7255 : : else
7256 : : {
7257 : : #if defined(_DERIVATE)
7258 : 0 : Tcen_Vgate_sourcep=0.0;
7259 : 0 : Tcen_Vdrainp_sourcep=0.0;
7260 : 0 : Tcen_Vbulk_sourcep=0.0;
7261 : : #endif
7262 : 0 : Tcen=(ldeb*5.834617425e14);
7263 : : }
7264 : : }
7265 : 0 : LINK=(1.0e-3*tox);
7266 : : #if defined(_DERIVATE)
7267 : 0 : V3_Vdrainp_sourcep=(-Tcen_Vdrainp_sourcep);
7268 : 0 : V3_Vbulk_sourcep=(-Tcen_Vbulk_sourcep);
7269 : 0 : V3_Vgate_sourcep=(-Tcen_Vgate_sourcep);
7270 : : #endif
7271 : 0 : V3=((ldeb-Tcen)-LINK);
7272 : : {
7273 : 0 : double m00_sqrt(d00_sqrt0,((V3*V3)+((4.0*LINK)*ldeb)))
7274 : : #if defined(_DERIVATE)
7275 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((V3*V3)+((4.0*LINK)*ldeb)))
7276 : : #endif
7277 : : #if defined(_DERIVATE)
7278 : 0 : V4_Vdrainp_sourcep=((V3_Vdrainp_sourcep*V3)+(V3*V3_Vdrainp_sourcep))*d10_sqrt0;
7279 : 0 : V4_Vgate_sourcep=((V3_Vgate_sourcep*V3)+(V3*V3_Vgate_sourcep))*d10_sqrt0;
7280 : 0 : V4_Vbulk_sourcep=((V3_Vbulk_sourcep*V3)+(V3*V3_Vbulk_sourcep))*d10_sqrt0;
7281 : : #endif
7282 : 0 : V4=d00_sqrt0;
7283 : : }
7284 : : #if defined(_DERIVATE)
7285 : 0 : Tcen_Vgate_sourcep=(-(0.5*(V3_Vgate_sourcep+V4_Vgate_sourcep)));
7286 : 0 : Tcen_Vdrainp_sourcep=(-(0.5*(V3_Vdrainp_sourcep+V4_Vdrainp_sourcep)));
7287 : 0 : Tcen_Vbulk_sourcep=(-(0.5*(V3_Vbulk_sourcep+V4_Vbulk_sourcep)));
7288 : : #endif
7289 : 0 : Tcen=(ldeb-(0.5*(V3+V4)));
7290 : : #if defined(_DERIVATE)
7291 : 0 : T1_Vgate_sourcep=(0.5*((V3_Vgate_sourcep*V4-V3*V4_Vgate_sourcep)/V4/V4));
7292 : 0 : T1_Vdrainp_sourcep=(0.5*((V3_Vdrainp_sourcep*V4-V3*V4_Vdrainp_sourcep)/V4/V4));
7293 : 0 : T1_Vbulk_sourcep=(0.5*((V3_Vbulk_sourcep*V4-V3*V4_Vbulk_sourcep)/V4/V4));
7294 : : #endif
7295 : 0 : T1=(0.5*(1.0+(V3/V4)));
7296 : : #if defined(_DERIVATE)
7297 : 0 : Ccen_Vgate_sourcep=(-1.03594e-10*Tcen_Vgate_sourcep/Tcen/Tcen);
7298 : 0 : Ccen_Vdrainp_sourcep=(-1.03594e-10*Tcen_Vdrainp_sourcep/Tcen/Tcen);
7299 : 0 : Ccen_Vbulk_sourcep=(-1.03594e-10*Tcen_Vbulk_sourcep/Tcen/Tcen);
7300 : : #endif
7301 : 0 : Ccen=(1.03594e-10/Tcen);
7302 : : #if defined(_DERIVATE)
7303 : 0 : T2_Vgate_sourcep=(-Cox*Ccen_Vgate_sourcep/(Cox+Ccen)/(Cox+Ccen));
7304 : 0 : T2_Vdrainp_sourcep=(-Cox*Ccen_Vdrainp_sourcep/(Cox+Ccen)/(Cox+Ccen));
7305 : 0 : T2_Vbulk_sourcep=(-Cox*Ccen_Vbulk_sourcep/(Cox+Ccen)/(Cox+Ccen));
7306 : : #endif
7307 : 0 : T2=(Cox/(Cox+Ccen));
7308 : : #if defined(_DERIVATE)
7309 : 0 : Coxeff_Vgate_sourcep=((T2_Vgate_sourcep*Ccen)+(T2*Ccen_Vgate_sourcep));
7310 : 0 : Coxeff_Vdrainp_sourcep=((T2_Vdrainp_sourcep*Ccen)+(T2*Ccen_Vdrainp_sourcep));
7311 : 0 : Coxeff_Vbulk_sourcep=((T2_Vbulk_sourcep*Ccen)+(T2*Ccen_Vbulk_sourcep));
7312 : : #endif
7313 : 0 : Coxeff=(T2*Ccen);
7314 : : #if defined(_DERIVATE)
7315 : 0 : T3_Vgate_sourcep=(((-Ccen_Vgate_sourcep)*Tcen-(-Ccen)*Tcen_Vgate_sourcep)/Tcen/Tcen);
7316 : 0 : T3_Vdrainp_sourcep=(((-Ccen_Vdrainp_sourcep)*Tcen-(-Ccen)*Tcen_Vdrainp_sourcep)/Tcen/Tcen);
7317 : 0 : T3_Vbulk_sourcep=(((-Ccen_Vbulk_sourcep)*Tcen-(-Ccen)*Tcen_Vbulk_sourcep)/Tcen/Tcen);
7318 : : #endif
7319 : 0 : T3=((-Ccen)/Tcen);
7320 : : #if defined(_DERIVATE)
7321 : 0 : CoxWLcen_Vgate_sourcep=((CoxWL*Coxeff_Vgate_sourcep)/Cox);
7322 : 0 : CoxWLcen_Vdrainp_sourcep=((CoxWL*Coxeff_Vdrainp_sourcep)/Cox);
7323 : 0 : CoxWLcen_Vbulk_sourcep=((CoxWL*Coxeff_Vbulk_sourcep)/Cox);
7324 : : #endif
7325 : 0 : CoxWLcen=((CoxWL*Coxeff)/Cox);
7326 : : #if defined(_DYNAMIC)
7327 : : #if defined(_DERIVATE)
7328 : 0 : Qac0_Vdrainp_sourcep=((CoxWLcen_Vdrainp_sourcep*(Vfbeff-vfbzb))+(CoxWLcen*Vfbeff_Vdrainp_sourcep));
7329 : 0 : Qac0_Vbulk_sourcep=((CoxWLcen_Vbulk_sourcep*(Vfbeff-vfbzb))+(CoxWLcen*Vfbeff_Vbulk_sourcep));
7330 : 0 : Qac0_Vgate_sourcep=((CoxWLcen_Vgate_sourcep*(Vfbeff-vfbzb))+(CoxWLcen*Vfbeff_Vgate_sourcep));
7331 : : #endif
7332 : 0 : Qac0=(CoxWLcen*(Vfbeff-vfbzb));
7333 : : #endif
7334 : : #if defined(_DERIVATE)
7335 : 0 : T_0_Vgate_sourcep=0.0;
7336 : 0 : T_0_Vdrainp_sourcep=0.0;
7337 : 0 : T_0_Vbulk_sourcep=0.0;
7338 : : #endif
7339 : 0 : T_0=(0.5*k1ox);
7340 : : #if defined(_DERIVATE)
7341 : 0 : T3_Vgate_sourcep=((Vgs_eff_Vgate_sourcep-Vfbeff_Vgate_sourcep)-Vgsteff_Vgate_sourcep);
7342 : 0 : T3_Vdrainp_sourcep=(((Vgs_eff_Vdrainp_sourcep-Vfbeff_Vdrainp_sourcep)-VbseffCV_Vdrainp_sourcep)-Vgsteff_Vdrainp_sourcep);
7343 : 0 : T3_Vbulk_sourcep=(((Vgs_eff_Vbulk_sourcep-Vfbeff_Vbulk_sourcep)-VbseffCV_Vbulk_sourcep)-Vgsteff_Vbulk_sourcep);
7344 : : #endif
7345 : 0 : T3=(((Vgs_eff-Vfbeff)-VbseffCV)-Vgsteff);
7346 [ # # ]: 0 : if
7347 : : (k1ox==0.0)
7348 : : {
7349 : : #if defined(_DERIVATE)
7350 : 0 : T1_Vgate_sourcep=0.0;
7351 : 0 : T1_Vdrainp_sourcep=0.0;
7352 : 0 : T1_Vbulk_sourcep=0.0;
7353 : : #endif
7354 : 0 : T1=0.0;
7355 : : #if defined(_DERIVATE)
7356 : 0 : T2_Vgate_sourcep=0.0;
7357 : 0 : T2_Vdrainp_sourcep=0.0;
7358 : 0 : T2_Vbulk_sourcep=0.0;
7359 : : #endif
7360 : 0 : T2=0.0;
7361 : : }
7362 : : else
7363 : : {
7364 [ # # ]: 0 : if
7365 : : (T3<0.0)
7366 : : {
7367 : : #if defined(_DERIVATE)
7368 : 0 : T1_Vgate_sourcep=(T_0_Vgate_sourcep+(T3_Vgate_sourcep/k1ox));
7369 : 0 : T1_Vdrainp_sourcep=(T_0_Vdrainp_sourcep+(T3_Vdrainp_sourcep/k1ox));
7370 : 0 : T1_Vbulk_sourcep=(T_0_Vbulk_sourcep+(T3_Vbulk_sourcep/k1ox));
7371 : : #endif
7372 : 0 : T1=(T_0+(T3/k1ox));
7373 : : #if defined(_DERIVATE)
7374 : 0 : T2_Vgate_sourcep=CoxWLcen_Vgate_sourcep;
7375 : 0 : T2_Vdrainp_sourcep=CoxWLcen_Vdrainp_sourcep;
7376 : 0 : T2_Vbulk_sourcep=CoxWLcen_Vbulk_sourcep;
7377 : : #endif
7378 : 0 : T2=CoxWLcen;
7379 : : }
7380 : : else
7381 : : {
7382 : : {
7383 : 0 : double m00_sqrt(d00_sqrt0,((T_0*T_0)+T3))
7384 : : #if defined(_DERIVATE)
7385 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T_0*T_0)+T3))
7386 : : #endif
7387 : : #if defined(_DERIVATE)
7388 : 0 : T1_Vgate_sourcep=(((T_0_Vgate_sourcep*T_0)+(T_0*T_0_Vgate_sourcep))+T3_Vgate_sourcep)*d10_sqrt0;
7389 : 0 : T1_Vdrainp_sourcep=(((T_0_Vdrainp_sourcep*T_0)+(T_0*T_0_Vdrainp_sourcep))+T3_Vdrainp_sourcep)*d10_sqrt0;
7390 : 0 : T1_Vbulk_sourcep=(((T_0_Vbulk_sourcep*T_0)+(T_0*T_0_Vbulk_sourcep))+T3_Vbulk_sourcep)*d10_sqrt0;
7391 : : #endif
7392 : 0 : T1=d00_sqrt0;
7393 : : }
7394 : : #if defined(_DERIVATE)
7395 : 0 : T2_Vgate_sourcep=((((CoxWLcen_Vgate_sourcep*T_0)+(CoxWLcen*T_0_Vgate_sourcep))*T1-(CoxWLcen*T_0)*T1_Vgate_sourcep)/T1/T1);
7396 : 0 : T2_Vdrainp_sourcep=((((CoxWLcen_Vdrainp_sourcep*T_0)+(CoxWLcen*T_0_Vdrainp_sourcep))*T1-(CoxWLcen*T_0)*T1_Vdrainp_sourcep)/T1/T1);
7397 : 0 : T2_Vbulk_sourcep=((((CoxWLcen_Vbulk_sourcep*T_0)+(CoxWLcen*T_0_Vbulk_sourcep))*T1-(CoxWLcen*T_0)*T1_Vbulk_sourcep)/T1/T1);
7398 : : #endif
7399 : 0 : T2=((CoxWLcen*T_0)/T1);
7400 : : }
7401 : : }
7402 : : #if defined(_DYNAMIC)
7403 : : #if defined(_DERIVATE)
7404 : 0 : Qsub0_Vgate_sourcep=((CoxWLcen_Vgate_sourcep*k1ox*(T1-T_0))+((CoxWLcen*k1ox)*(T1_Vgate_sourcep-T_0_Vgate_sourcep)));
7405 : 0 : Qsub0_Vdrainp_sourcep=((CoxWLcen_Vdrainp_sourcep*k1ox*(T1-T_0))+((CoxWLcen*k1ox)*(T1_Vdrainp_sourcep-T_0_Vdrainp_sourcep)));
7406 : 0 : Qsub0_Vbulk_sourcep=((CoxWLcen_Vbulk_sourcep*k1ox*(T1-T_0))+((CoxWLcen*k1ox)*(T1_Vbulk_sourcep-T_0_Vbulk_sourcep)));
7407 : : #endif
7408 : 0 : Qsub0=((CoxWLcen*k1ox)*(T1-T_0));
7409 : : #endif
7410 [ # # ]: 0 : if
7411 : : (k1ox<=0.0)
7412 : : {
7413 : : #if defined(_DERIVATE)
7414 : 0 : Denomi_Vgate_sourcep=0.0;
7415 : 0 : Denomi_Vdrainp_sourcep=0.0;
7416 : 0 : Denomi_Vbulk_sourcep=0.0;
7417 : : #endif
7418 : 0 : Denomi=((0.25*moin)*Vtm);
7419 : : #if defined(_DERIVATE)
7420 : 0 : T_0_Vgate_sourcep=0.0;
7421 : 0 : T_0_Vdrainp_sourcep=0.0;
7422 : 0 : T_0_Vbulk_sourcep=0.0;
7423 : : #endif
7424 : 0 : T_0=(0.5*sqrtPhi);
7425 : : }
7426 : : else
7427 : : {
7428 : : #if defined(_DERIVATE)
7429 : 0 : Denomi_Vgate_sourcep=0.0;
7430 : 0 : Denomi_Vdrainp_sourcep=0.0;
7431 : 0 : Denomi_Vbulk_sourcep=0.0;
7432 : : #endif
7433 : 0 : Denomi=(((moin*Vtm)*k1ox)*k1ox);
7434 : : #if defined(_DERIVATE)
7435 : 0 : T_0_Vgate_sourcep=0.0;
7436 : 0 : T_0_Vdrainp_sourcep=0.0;
7437 : 0 : T_0_Vbulk_sourcep=0.0;
7438 : : #endif
7439 : 0 : T_0=(k1ox*sqrtPhi);
7440 : : }
7441 : : #if defined(_DERIVATE)
7442 : 0 : T1_Vgate_sourcep=((2.0*T_0_Vgate_sourcep)+Vgsteff_Vgate_sourcep);
7443 : 0 : T1_Vdrainp_sourcep=((2.0*T_0_Vdrainp_sourcep)+Vgsteff_Vdrainp_sourcep);
7444 : 0 : T1_Vbulk_sourcep=((2.0*T_0_Vbulk_sourcep)+Vgsteff_Vbulk_sourcep);
7445 : : #endif
7446 : 0 : T1=((2.0*T_0)+Vgsteff);
7447 : : {
7448 : 0 : double m00_logE(d00_logE0,(1.0+((T1*Vgsteff)/Denomi)))
7449 : : #if defined(_DERIVATE)
7450 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+((T1*Vgsteff)/Denomi)))
7451 : : #endif
7452 : : #if defined(_DERIVATE)
7453 : 0 : DeltaPhi_Vgate_sourcep=(Vtm*((((T1_Vgate_sourcep*Vgsteff)+(T1*Vgsteff_Vgate_sourcep))*Denomi-(T1*Vgsteff)*Denomi_Vgate_sourcep)/Denomi/Denomi)*d10_logE0);
7454 : 0 : DeltaPhi_Vdrainp_sourcep=(Vtm*((((T1_Vdrainp_sourcep*Vgsteff)+(T1*Vgsteff_Vdrainp_sourcep))*Denomi-(T1*Vgsteff)*Denomi_Vdrainp_sourcep)/Denomi/Denomi)*d10_logE0);
7455 : 0 : DeltaPhi_Vbulk_sourcep=(Vtm*((((T1_Vbulk_sourcep*Vgsteff)+(T1*Vgsteff_Vbulk_sourcep))*Denomi-(T1*Vgsteff)*Denomi_Vbulk_sourcep)/Denomi/Denomi)*d10_logE0);
7456 : : #endif
7457 : 0 : DeltaPhi=(Vtm*d00_logE0);
7458 : : }
7459 : : #if defined(_DERIVATE)
7460 : 0 : T3_Vgate_sourcep=0.0;
7461 : 0 : T3_Vdrainp_sourcep=(4.0*Vth_Vdrainp_sourcep);
7462 : 0 : T3_Vbulk_sourcep=(4.0*Vth_Vbulk_sourcep);
7463 : : #endif
7464 : 0 : T3=(4.0*((Vth-vfbzb)-phi));
7465 : 0 : Tox2=(Tox+Tox);
7466 [ # # ]: 0 : if
7467 : : (T3>=0.0)
7468 : : {
7469 : : #if defined(_DERIVATE)
7470 : 0 : T_0_Vgate_sourcep=((Vgsteff_Vgate_sourcep+T3_Vgate_sourcep)/Tox2);
7471 : 0 : T_0_Vdrainp_sourcep=((Vgsteff_Vdrainp_sourcep+T3_Vdrainp_sourcep)/Tox2);
7472 : 0 : T_0_Vbulk_sourcep=((Vgsteff_Vbulk_sourcep+T3_Vbulk_sourcep)/Tox2);
7473 : : #endif
7474 : 0 : T_0=((Vgsteff+T3)/Tox2);
7475 : : }
7476 : : else
7477 : : {
7478 : : #if defined(_DERIVATE)
7479 : 0 : T_0_Vgate_sourcep=(Vgsteff_Vgate_sourcep/Tox2);
7480 : 0 : T_0_Vdrainp_sourcep=(Vgsteff_Vdrainp_sourcep/Tox2);
7481 : 0 : T_0_Vbulk_sourcep=(Vgsteff_Vbulk_sourcep/Tox2);
7482 : : #endif
7483 : 0 : T_0=((Vgsteff+1.0e-20)/Tox2);
7484 : : }
7485 : : {
7486 : 0 : double m00_logE(d00_logE0,T_0)
7487 : 0 : double m00_exp(d00_exp1,(0.7*d00_logE0))
7488 : : #if defined(_DERIVATE)
7489 : 0 : double m10_logE(d10_logE0,d00_logE0,T_0)
7490 : : #define d10_exp1 d00_exp1
7491 : : #endif
7492 : : #if defined(_DERIVATE)
7493 : 0 : tmp_Vgate_sourcep=(0.7*T_0_Vgate_sourcep*d10_logE0)*d10_exp1;
7494 : 0 : tmp_Vdrainp_sourcep=(0.7*T_0_Vdrainp_sourcep*d10_logE0)*d10_exp1;
7495 : 0 : tmp_Vbulk_sourcep=(0.7*T_0_Vbulk_sourcep*d10_logE0)*d10_exp1;
7496 : : #endif
7497 : 0 : tmp=d00_exp1;
7498 : : }
7499 : : #if defined(_DERIVATE)
7500 : 0 : T1_Vgate_sourcep=tmp_Vgate_sourcep;
7501 : 0 : T1_Vdrainp_sourcep=tmp_Vdrainp_sourcep;
7502 : 0 : T1_Vbulk_sourcep=tmp_Vbulk_sourcep;
7503 : : #endif
7504 : 0 : T1=(1.0+tmp);
7505 : : #if defined(_DERIVATE)
7506 : 0 : T2_Vgate_sourcep=(((0.7*tmp_Vgate_sourcep)*(T_0*Tox2)-(0.7*tmp)*T_0_Vgate_sourcep*Tox2)/(T_0*Tox2)/(T_0*Tox2));
7507 : 0 : T2_Vdrainp_sourcep=(((0.7*tmp_Vdrainp_sourcep)*(T_0*Tox2)-(0.7*tmp)*T_0_Vdrainp_sourcep*Tox2)/(T_0*Tox2)/(T_0*Tox2));
7508 : 0 : T2_Vbulk_sourcep=(((0.7*tmp_Vbulk_sourcep)*(T_0*Tox2)-(0.7*tmp)*T_0_Vbulk_sourcep*Tox2)/(T_0*Tox2)/(T_0*Tox2));
7509 : : #endif
7510 : 0 : T2=((0.7*tmp)/(T_0*Tox2));
7511 : : #if defined(_DERIVATE)
7512 : 0 : Tcen_Vgate_sourcep=(-1.9e-9*T1_Vgate_sourcep/T1/T1);
7513 : 0 : Tcen_Vdrainp_sourcep=(-1.9e-9*T1_Vdrainp_sourcep/T1/T1);
7514 : 0 : Tcen_Vbulk_sourcep=(-1.9e-9*T1_Vbulk_sourcep/T1/T1);
7515 : : #endif
7516 : 0 : Tcen=(1.9e-9/T1);
7517 : : #if defined(_DERIVATE)
7518 : 0 : Ccen_Vgate_sourcep=(-1.03594e-10*Tcen_Vgate_sourcep/Tcen/Tcen);
7519 : 0 : Ccen_Vdrainp_sourcep=(-1.03594e-10*Tcen_Vdrainp_sourcep/Tcen/Tcen);
7520 : 0 : Ccen_Vbulk_sourcep=(-1.03594e-10*Tcen_Vbulk_sourcep/Tcen/Tcen);
7521 : : #endif
7522 : 0 : Ccen=(1.03594e-10/Tcen);
7523 : : #if defined(_DERIVATE)
7524 : 0 : T_0_Vgate_sourcep=(-Cox*Ccen_Vgate_sourcep/(Cox+Ccen)/(Cox+Ccen));
7525 : 0 : T_0_Vdrainp_sourcep=(-Cox*Ccen_Vdrainp_sourcep/(Cox+Ccen)/(Cox+Ccen));
7526 : 0 : T_0_Vbulk_sourcep=(-Cox*Ccen_Vbulk_sourcep/(Cox+Ccen)/(Cox+Ccen));
7527 : : #endif
7528 : 0 : T_0=(Cox/(Cox+Ccen));
7529 : : #if defined(_DERIVATE)
7530 : 0 : Coxeff_Vgate_sourcep=((T_0_Vgate_sourcep*Ccen)+(T_0*Ccen_Vgate_sourcep));
7531 : 0 : Coxeff_Vdrainp_sourcep=((T_0_Vdrainp_sourcep*Ccen)+(T_0*Ccen_Vdrainp_sourcep));
7532 : 0 : Coxeff_Vbulk_sourcep=((T_0_Vbulk_sourcep*Ccen)+(T_0*Ccen_Vbulk_sourcep));
7533 : : #endif
7534 : 0 : Coxeff=(T_0*Ccen);
7535 : : #if defined(_DERIVATE)
7536 : 0 : T1_Vgate_sourcep=(((-Ccen_Vgate_sourcep)*Tcen-(-Ccen)*Tcen_Vgate_sourcep)/Tcen/Tcen);
7537 : 0 : T1_Vdrainp_sourcep=(((-Ccen_Vdrainp_sourcep)*Tcen-(-Ccen)*Tcen_Vdrainp_sourcep)/Tcen/Tcen);
7538 : 0 : T1_Vbulk_sourcep=(((-Ccen_Vbulk_sourcep)*Tcen-(-Ccen)*Tcen_Vbulk_sourcep)/Tcen/Tcen);
7539 : : #endif
7540 : 0 : T1=((-Ccen)/Tcen);
7541 : : #if defined(_DERIVATE)
7542 : 0 : CoxWLcen_Vgate_sourcep=((CoxWL*Coxeff_Vgate_sourcep)/Cox);
7543 : 0 : CoxWLcen_Vdrainp_sourcep=((CoxWL*Coxeff_Vdrainp_sourcep)/Cox);
7544 : 0 : CoxWLcen_Vbulk_sourcep=((CoxWL*Coxeff_Vbulk_sourcep)/Cox);
7545 : : #endif
7546 : 0 : CoxWLcen=((CoxWL*Coxeff)/Cox);
7547 : : #if defined(_DERIVATE)
7548 : 0 : AbulkCV_Vgate_sourcep=Abulk0_Vgate_sourcep*abulkCVfactor;
7549 : 0 : AbulkCV_Vdrainp_sourcep=Abulk0_Vdrainp_sourcep*abulkCVfactor;
7550 : 0 : AbulkCV_Vbulk_sourcep=Abulk0_Vbulk_sourcep*abulkCVfactor;
7551 : : #endif
7552 : 0 : AbulkCV=(Abulk0*abulkCVfactor);
7553 : : #if defined(_DERIVATE)
7554 : 0 : VdsatCV_Vdrainp_sourcep=(((Vgsteff_Vdrainp_sourcep-DeltaPhi_Vdrainp_sourcep)*AbulkCV-(Vgsteff-DeltaPhi)*AbulkCV_Vdrainp_sourcep)/AbulkCV/AbulkCV);
7555 : 0 : VdsatCV_Vgate_sourcep=(((Vgsteff_Vgate_sourcep-DeltaPhi_Vgate_sourcep)*AbulkCV-(Vgsteff-DeltaPhi)*AbulkCV_Vgate_sourcep)/AbulkCV/AbulkCV);
7556 : 0 : VdsatCV_Vbulk_sourcep=(((Vgsteff_Vbulk_sourcep-DeltaPhi_Vbulk_sourcep)*AbulkCV-(Vgsteff-DeltaPhi)*AbulkCV_Vbulk_sourcep)/AbulkCV/AbulkCV);
7557 : : #endif
7558 : 0 : VdsatCV=((Vgsteff-DeltaPhi)/AbulkCV);
7559 : : #if defined(_DERIVATE)
7560 : 0 : V4_Vdrainp_sourcep=(VdsatCV_Vdrainp_sourcep-Vds_Vdrainp_sourcep);
7561 : 0 : V4_Vgate_sourcep=VdsatCV_Vgate_sourcep;
7562 : 0 : V4_Vbulk_sourcep=VdsatCV_Vbulk_sourcep;
7563 : : #endif
7564 : 0 : V4=((VdsatCV-Vds)-0.02);
7565 : : {
7566 : 0 : double m00_sqrt(d00_sqrt0,((V4*V4)+((4.0*0.02)*VdsatCV)))
7567 : : #if defined(_DERIVATE)
7568 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((V4*V4)+((4.0*0.02)*VdsatCV)))
7569 : : #endif
7570 : : #if defined(_DERIVATE)
7571 : 0 : T_0_Vgate_sourcep=(((V4_Vgate_sourcep*V4)+(V4*V4_Vgate_sourcep))+((4.0*0.02)*VdsatCV_Vgate_sourcep))*d10_sqrt0;
7572 : 0 : T_0_Vdrainp_sourcep=(((V4_Vdrainp_sourcep*V4)+(V4*V4_Vdrainp_sourcep))+((4.0*0.02)*VdsatCV_Vdrainp_sourcep))*d10_sqrt0;
7573 : 0 : T_0_Vbulk_sourcep=(((V4_Vbulk_sourcep*V4)+(V4*V4_Vbulk_sourcep))+((4.0*0.02)*VdsatCV_Vbulk_sourcep))*d10_sqrt0;
7574 : : #endif
7575 : 0 : T_0=d00_sqrt0;
7576 : : }
7577 : : #if defined(_DERIVATE)
7578 : 0 : VdseffCV_Vdrainp_sourcep=(VdsatCV_Vdrainp_sourcep-(0.5*(V4_Vdrainp_sourcep+T_0_Vdrainp_sourcep)));
7579 : 0 : VdseffCV_Vgate_sourcep=(VdsatCV_Vgate_sourcep-(0.5*(V4_Vgate_sourcep+T_0_Vgate_sourcep)));
7580 : 0 : VdseffCV_Vbulk_sourcep=(VdsatCV_Vbulk_sourcep-(0.5*(V4_Vbulk_sourcep+T_0_Vbulk_sourcep)));
7581 : : #endif
7582 : 0 : VdseffCV=(VdsatCV-(0.5*(V4+T_0)));
7583 : : #if defined(_DERIVATE)
7584 : 0 : T1_Vgate_sourcep=(0.5*((V4_Vgate_sourcep*T_0-V4*T_0_Vgate_sourcep)/T_0/T_0));
7585 : 0 : T1_Vdrainp_sourcep=(0.5*((V4_Vdrainp_sourcep*T_0-V4*T_0_Vdrainp_sourcep)/T_0/T_0));
7586 : 0 : T1_Vbulk_sourcep=(0.5*((V4_Vbulk_sourcep*T_0-V4*T_0_Vbulk_sourcep)/T_0/T_0));
7587 : : #endif
7588 : 0 : T1=(0.5*(1.0+(V4/T_0)));
7589 : : #if defined(_DERIVATE)
7590 : 0 : T2_Vgate_sourcep=(-0.02*T_0_Vgate_sourcep/T_0/T_0);
7591 : 0 : T2_Vdrainp_sourcep=(-0.02*T_0_Vdrainp_sourcep/T_0/T_0);
7592 : 0 : T2_Vbulk_sourcep=(-0.02*T_0_Vbulk_sourcep/T_0/T_0);
7593 : : #endif
7594 : 0 : T2=(0.02/T_0);
7595 : : #if defined(_DERIVATE)
7596 : 0 : T3_Vgate_sourcep=((((-T1_Vgate_sourcep)-T2_Vgate_sourcep)*AbulkCV-((1.0-T1)-T2)*AbulkCV_Vgate_sourcep)/AbulkCV/AbulkCV);
7597 : 0 : T3_Vdrainp_sourcep=((((-T1_Vdrainp_sourcep)-T2_Vdrainp_sourcep)*AbulkCV-((1.0-T1)-T2)*AbulkCV_Vdrainp_sourcep)/AbulkCV/AbulkCV);
7598 : 0 : T3_Vbulk_sourcep=((((-T1_Vbulk_sourcep)-T2_Vbulk_sourcep)*AbulkCV-((1.0-T1)-T2)*AbulkCV_Vbulk_sourcep)/AbulkCV/AbulkCV);
7599 : : #endif
7600 : 0 : T3=(((1.0-T1)-T2)/AbulkCV);
7601 [ # # ][ # # ]: 0 : if
7602 : : ((Vds==0.0)&&(VERSION==3.24))
7603 : : {
7604 : : #if defined(_DERIVATE)
7605 : 0 : VdseffCV_Vdrainp_sourcep=0.0;
7606 : 0 : VdseffCV_Vgate_sourcep=0.0;
7607 : 0 : VdseffCV_Vbulk_sourcep=0.0;
7608 : : #endif
7609 : 0 : VdseffCV=0.0;
7610 : : }
7611 : : #if defined(_DERIVATE)
7612 : 0 : T_0_Vgate_sourcep=((AbulkCV_Vgate_sourcep*VdseffCV)+(AbulkCV*VdseffCV_Vgate_sourcep));
7613 : 0 : T_0_Vdrainp_sourcep=((AbulkCV_Vdrainp_sourcep*VdseffCV)+(AbulkCV*VdseffCV_Vdrainp_sourcep));
7614 : 0 : T_0_Vbulk_sourcep=((AbulkCV_Vbulk_sourcep*VdseffCV)+(AbulkCV*VdseffCV_Vbulk_sourcep));
7615 : : #endif
7616 : 0 : T_0=(AbulkCV*VdseffCV);
7617 : : #if defined(_DERIVATE)
7618 : 0 : T1_Vgate_sourcep=(Vgsteff_Vgate_sourcep-DeltaPhi_Vgate_sourcep);
7619 : 0 : T1_Vdrainp_sourcep=(Vgsteff_Vdrainp_sourcep-DeltaPhi_Vdrainp_sourcep);
7620 : 0 : T1_Vbulk_sourcep=(Vgsteff_Vbulk_sourcep-DeltaPhi_Vbulk_sourcep);
7621 : : #endif
7622 : 0 : T1=(Vgsteff-DeltaPhi);
7623 : : #if defined(_DERIVATE)
7624 : 0 : T2_Vgate_sourcep=(12.0*(T1_Vgate_sourcep-(0.5*T_0_Vgate_sourcep)));
7625 : 0 : T2_Vdrainp_sourcep=(12.0*(T1_Vdrainp_sourcep-(0.5*T_0_Vdrainp_sourcep)));
7626 : 0 : T2_Vbulk_sourcep=(12.0*(T1_Vbulk_sourcep-(0.5*T_0_Vbulk_sourcep)));
7627 : : #endif
7628 : 0 : T2=(12.0*((T1-(0.5*T_0))+1.0e-20));
7629 : : #if defined(_DERIVATE)
7630 : 0 : T3_Vgate_sourcep=((T_0_Vgate_sourcep*T2-T_0*T2_Vgate_sourcep)/T2/T2);
7631 : 0 : T3_Vdrainp_sourcep=((T_0_Vdrainp_sourcep*T2-T_0*T2_Vdrainp_sourcep)/T2/T2);
7632 : 0 : T3_Vbulk_sourcep=((T_0_Vbulk_sourcep*T2-T_0*T2_Vbulk_sourcep)/T2/T2);
7633 : : #endif
7634 : 0 : T3=(T_0/T2);
7635 : : #if defined(_DYNAMIC)
7636 : : #if defined(_DERIVATE)
7637 : 0 : T4_Vgate_sourcep=(-(((12.0*T3_Vgate_sourcep)*T3)+((12.0*T3)*T3_Vgate_sourcep)));
7638 : 0 : T4_Vdrainp_sourcep=(-(((12.0*T3_Vdrainp_sourcep)*T3)+((12.0*T3)*T3_Vdrainp_sourcep)));
7639 : 0 : T4_Vbulk_sourcep=(-(((12.0*T3_Vbulk_sourcep)*T3)+((12.0*T3)*T3_Vbulk_sourcep)));
7640 : : #endif
7641 : 0 : T4=(1.0-((12.0*T3)*T3));
7642 : : #endif
7643 : : #if defined(_DYNAMIC)
7644 : : #if defined(_DERIVATE)
7645 : 0 : T5_Vgate_sourcep=((AbulkCV_Vgate_sourcep*((((6.0*T_0)*((4.0*T1)-T_0))/(T2*T2))-0.5))+(AbulkCV*(((((6.0*T_0_Vgate_sourcep)*((4.0*T1)-T_0))+((6.0*T_0)*((4.0*T1_Vgate_sourcep)-T_0_Vgate_sourcep)))*(T2*T2)-((6.0*T_0)*((4.0*T1)-T_0))*((T2_Vgate_sourcep*T2)+(T2*T2_Vgate_sourcep)))/(T2*T2)/(T2*T2))));
7646 : 0 : T5_Vdrainp_sourcep=((AbulkCV_Vdrainp_sourcep*((((6.0*T_0)*((4.0*T1)-T_0))/(T2*T2))-0.5))+(AbulkCV*(((((6.0*T_0_Vdrainp_sourcep)*((4.0*T1)-T_0))+((6.0*T_0)*((4.0*T1_Vdrainp_sourcep)-T_0_Vdrainp_sourcep)))*(T2*T2)-((6.0*T_0)*((4.0*T1)-T_0))*((T2_Vdrainp_sourcep*T2)+(T2*T2_Vdrainp_sourcep)))/(T2*T2)/(T2*T2))));
7647 : 0 : T5_Vbulk_sourcep=((AbulkCV_Vbulk_sourcep*((((6.0*T_0)*((4.0*T1)-T_0))/(T2*T2))-0.5))+(AbulkCV*(((((6.0*T_0_Vbulk_sourcep)*((4.0*T1)-T_0))+((6.0*T_0)*((4.0*T1_Vbulk_sourcep)-T_0_Vbulk_sourcep)))*(T2*T2)-((6.0*T_0)*((4.0*T1)-T_0))*((T2_Vbulk_sourcep*T2)+(T2*T2_Vbulk_sourcep)))/(T2*T2)/(T2*T2))));
7648 : : #endif
7649 : 0 : T5=(AbulkCV*((((6.0*T_0)*((4.0*T1)-T_0))/(T2*T2))-0.5));
7650 : : #endif
7651 : : #if defined(_DYNAMIC)
7652 : : #if defined(_DERIVATE)
7653 : 0 : T6_Vgate_sourcep=((((T5_Vgate_sourcep*VdseffCV)+(T5*VdseffCV_Vgate_sourcep))*AbulkCV-(T5*VdseffCV)*AbulkCV_Vgate_sourcep)/AbulkCV/AbulkCV);
7654 : 0 : T6_Vdrainp_sourcep=((((T5_Vdrainp_sourcep*VdseffCV)+(T5*VdseffCV_Vdrainp_sourcep))*AbulkCV-(T5*VdseffCV)*AbulkCV_Vdrainp_sourcep)/AbulkCV/AbulkCV);
7655 : 0 : T6_Vbulk_sourcep=((((T5_Vbulk_sourcep*VdseffCV)+(T5*VdseffCV_Vbulk_sourcep))*AbulkCV-(T5*VdseffCV)*AbulkCV_Vbulk_sourcep)/AbulkCV/AbulkCV);
7656 : : #endif
7657 : 0 : T6=((T5*VdseffCV)/AbulkCV);
7658 : : #endif
7659 : : #if defined(_DERIVATE)
7660 : 0 : qinoi_Vdrainp_sourcep=((CoxWLcen_Vdrainp_sourcep*(T1-(T_0*(0.5-T3))))+(CoxWLcen*(T1_Vdrainp_sourcep-((T_0_Vdrainp_sourcep*(0.5-T3))+(T_0*(-T3_Vdrainp_sourcep))))));
7661 : 0 : qinoi_Vgate_sourcep=((CoxWLcen_Vgate_sourcep*(T1-(T_0*(0.5-T3))))+(CoxWLcen*(T1_Vgate_sourcep-((T_0_Vgate_sourcep*(0.5-T3))+(T_0*(-T3_Vgate_sourcep))))));
7662 : 0 : qinoi_Vbulk_sourcep=((CoxWLcen_Vbulk_sourcep*(T1-(T_0*(0.5-T3))))+(CoxWLcen*(T1_Vbulk_sourcep-((T_0_Vbulk_sourcep*(0.5-T3))+(T_0*(-T3_Vbulk_sourcep))))));
7663 : : #endif
7664 : 0 : qinoi=(CoxWLcen*(T1-(T_0*(0.5-T3))));
7665 : : #if defined(_DYNAMIC)
7666 : : #if defined(_DERIVATE)
7667 : 0 : qgate_Vdrainp_sourcep=qinoi_Vdrainp_sourcep;
7668 : 0 : qgate_Vgate_sourcep=qinoi_Vgate_sourcep;
7669 : 0 : qgate_Vbulk_sourcep=qinoi_Vbulk_sourcep;
7670 : : #endif
7671 : 0 : qgate=qinoi;
7672 : : #endif
7673 : : #if defined(_DYNAMIC)
7674 : : #if defined(_DERIVATE)
7675 : 0 : T7_Vgate_sourcep=(-AbulkCV_Vgate_sourcep);
7676 : 0 : T7_Vdrainp_sourcep=(-AbulkCV_Vdrainp_sourcep);
7677 : 0 : T7_Vbulk_sourcep=(-AbulkCV_Vbulk_sourcep);
7678 : : #endif
7679 : 0 : T7=(1.0-AbulkCV);
7680 : : #endif
7681 : : #if defined(_DYNAMIC)
7682 : : #if defined(_DERIVATE)
7683 : 0 : qbulk_Vdrainp_sourcep=((((CoxWLcen_Vdrainp_sourcep*T7)+(CoxWLcen*T7_Vdrainp_sourcep))*((0.5*VdseffCV)-((T_0*VdseffCV)/T2)))+((CoxWLcen*T7)*((0.5*VdseffCV_Vdrainp_sourcep)-((((T_0_Vdrainp_sourcep*VdseffCV)+(T_0*VdseffCV_Vdrainp_sourcep))*T2-(T_0*VdseffCV)*T2_Vdrainp_sourcep)/T2/T2))));
7684 : 0 : qbulk_Vgate_sourcep=((((CoxWLcen_Vgate_sourcep*T7)+(CoxWLcen*T7_Vgate_sourcep))*((0.5*VdseffCV)-((T_0*VdseffCV)/T2)))+((CoxWLcen*T7)*((0.5*VdseffCV_Vgate_sourcep)-((((T_0_Vgate_sourcep*VdseffCV)+(T_0*VdseffCV_Vgate_sourcep))*T2-(T_0*VdseffCV)*T2_Vgate_sourcep)/T2/T2))));
7685 : 0 : qbulk_Vbulk_sourcep=((((CoxWLcen_Vbulk_sourcep*T7)+(CoxWLcen*T7_Vbulk_sourcep))*((0.5*VdseffCV)-((T_0*VdseffCV)/T2)))+((CoxWLcen*T7)*((0.5*VdseffCV_Vbulk_sourcep)-((((T_0_Vbulk_sourcep*VdseffCV)+(T_0*VdseffCV_Vbulk_sourcep))*T2-(T_0*VdseffCV)*T2_Vbulk_sourcep)/T2/T2))));
7686 : : #endif
7687 : 0 : qbulk=((CoxWLcen*T7)*((0.5*VdseffCV)-((T_0*VdseffCV)/T2)));
7688 : : #endif
7689 : : #ifdef _DYNAMIC
7690 [ # # ]: 0 : if
7691 : : (XPART>0.5)
7692 : : {
7693 : : #if defined(_DYNAMIC)
7694 : : #if defined(_DERIVATE)
7695 : 0 : qsrc_Vgate_sourcep=(((-CoxWLcen_Vgate_sourcep)*(((T1/2.0)+(T_0/4.0))-(((0.5*T_0)*T_0)/T2)))+((-CoxWLcen)*(((T1_Vgate_sourcep/2.0)+(T_0_Vgate_sourcep/4.0))-(((((0.5*T_0_Vgate_sourcep)*T_0)+((0.5*T_0)*T_0_Vgate_sourcep))*T2-((0.5*T_0)*T_0)*T2_Vgate_sourcep)/T2/T2))));
7696 : 0 : qsrc_Vdrainp_sourcep=(((-CoxWLcen_Vdrainp_sourcep)*(((T1/2.0)+(T_0/4.0))-(((0.5*T_0)*T_0)/T2)))+((-CoxWLcen)*(((T1_Vdrainp_sourcep/2.0)+(T_0_Vdrainp_sourcep/4.0))-(((((0.5*T_0_Vdrainp_sourcep)*T_0)+((0.5*T_0)*T_0_Vdrainp_sourcep))*T2-((0.5*T_0)*T_0)*T2_Vdrainp_sourcep)/T2/T2))));
7697 : 0 : qsrc_Vbulk_sourcep=(((-CoxWLcen_Vbulk_sourcep)*(((T1/2.0)+(T_0/4.0))-(((0.5*T_0)*T_0)/T2)))+((-CoxWLcen)*(((T1_Vbulk_sourcep/2.0)+(T_0_Vbulk_sourcep/4.0))-(((((0.5*T_0_Vbulk_sourcep)*T_0)+((0.5*T_0)*T_0_Vbulk_sourcep))*T2-((0.5*T_0)*T_0)*T2_Vbulk_sourcep)/T2/T2))));
7698 : : #endif
7699 : 0 : qsrc=((-CoxWLcen)*(((T1/2.0)+(T_0/4.0))-(((0.5*T_0)*T_0)/T2)));
7700 : : #endif
7701 : : }
7702 : : else
7703 : : {
7704 : : #ifdef _DYNAMIC
7705 [ # # ]: 0 : if
7706 : : (XPART<0.5)
7707 : : {
7708 : : #if defined(_DYNAMIC)
7709 : : #if defined(_DERIVATE)
7710 : 0 : T2_Vgate_sourcep=(T2_Vgate_sourcep/12.0);
7711 : 0 : T2_Vdrainp_sourcep=(T2_Vdrainp_sourcep/12.0);
7712 : 0 : T2_Vbulk_sourcep=(T2_Vbulk_sourcep/12.0);
7713 : : #endif
7714 : 0 : T2=(T2/12.0);
7715 : : #endif
7716 : : #if defined(_DYNAMIC)
7717 : : #if defined(_DERIVATE)
7718 : 0 : T3_Vgate_sourcep=(((0.5*CoxWLcen_Vgate_sourcep)*(T2*T2)-(0.5*CoxWLcen)*((T2_Vgate_sourcep*T2)+(T2*T2_Vgate_sourcep)))/(T2*T2)/(T2*T2));
7719 : 0 : T3_Vdrainp_sourcep=(((0.5*CoxWLcen_Vdrainp_sourcep)*(T2*T2)-(0.5*CoxWLcen)*((T2_Vdrainp_sourcep*T2)+(T2*T2_Vdrainp_sourcep)))/(T2*T2)/(T2*T2));
7720 : 0 : T3_Vbulk_sourcep=(((0.5*CoxWLcen_Vbulk_sourcep)*(T2*T2)-(0.5*CoxWLcen)*((T2_Vbulk_sourcep*T2)+(T2*T2_Vbulk_sourcep)))/(T2*T2)/(T2*T2));
7721 : : #endif
7722 : 0 : T3=((0.5*CoxWLcen)/(T2*T2));
7723 : : #endif
7724 : : #if defined(_DYNAMIC)
7725 : : #if defined(_DERIVATE)
7726 : 0 : T4_Vgate_sourcep=(((T1_Vgate_sourcep*((((2.0*T_0)*T_0)/3.0)+(T1*(T1-((4.0*T_0)/3.0)))))+(T1*(((((2.0*T_0_Vgate_sourcep)*T_0)+((2.0*T_0)*T_0_Vgate_sourcep))/3.0)+((T1_Vgate_sourcep*(T1-((4.0*T_0)/3.0)))+(T1*(T1_Vgate_sourcep-((4.0*T_0_Vgate_sourcep)/3.0)))))))-((((((2.0*T_0_Vgate_sourcep)*T_0)+((2.0*T_0)*T_0_Vgate_sourcep))*T_0)+(((2.0*T_0)*T_0)*T_0_Vgate_sourcep))/15.0));
7727 : 0 : T4_Vdrainp_sourcep=(((T1_Vdrainp_sourcep*((((2.0*T_0)*T_0)/3.0)+(T1*(T1-((4.0*T_0)/3.0)))))+(T1*(((((2.0*T_0_Vdrainp_sourcep)*T_0)+((2.0*T_0)*T_0_Vdrainp_sourcep))/3.0)+((T1_Vdrainp_sourcep*(T1-((4.0*T_0)/3.0)))+(T1*(T1_Vdrainp_sourcep-((4.0*T_0_Vdrainp_sourcep)/3.0)))))))-((((((2.0*T_0_Vdrainp_sourcep)*T_0)+((2.0*T_0)*T_0_Vdrainp_sourcep))*T_0)+(((2.0*T_0)*T_0)*T_0_Vdrainp_sourcep))/15.0));
7728 : 0 : T4_Vbulk_sourcep=(((T1_Vbulk_sourcep*((((2.0*T_0)*T_0)/3.0)+(T1*(T1-((4.0*T_0)/3.0)))))+(T1*(((((2.0*T_0_Vbulk_sourcep)*T_0)+((2.0*T_0)*T_0_Vbulk_sourcep))/3.0)+((T1_Vbulk_sourcep*(T1-((4.0*T_0)/3.0)))+(T1*(T1_Vbulk_sourcep-((4.0*T_0_Vbulk_sourcep)/3.0)))))))-((((((2.0*T_0_Vbulk_sourcep)*T_0)+((2.0*T_0)*T_0_Vbulk_sourcep))*T_0)+(((2.0*T_0)*T_0)*T_0_Vbulk_sourcep))/15.0));
7729 : : #endif
7730 : 0 : T4=((T1*((((2.0*T_0)*T_0)/3.0)+(T1*(T1-((4.0*T_0)/3.0)))))-((((2.0*T_0)*T_0)*T_0)/15.0));
7731 : : #endif
7732 : : #if defined(_DYNAMIC)
7733 : : #if defined(_DERIVATE)
7734 : 0 : qsrc_Vgate_sourcep=(((-T3_Vgate_sourcep)*T4)+((-T3)*T4_Vgate_sourcep));
7735 : 0 : qsrc_Vdrainp_sourcep=(((-T3_Vdrainp_sourcep)*T4)+((-T3)*T4_Vdrainp_sourcep));
7736 : 0 : qsrc_Vbulk_sourcep=(((-T3_Vbulk_sourcep)*T4)+((-T3)*T4_Vbulk_sourcep));
7737 : : #endif
7738 : 0 : qsrc=((-T3)*T4);
7739 : : #endif
7740 : : }
7741 : : else
7742 : : {
7743 : : #if defined(_DYNAMIC)
7744 : : #if defined(_DERIVATE)
7745 : 0 : qsrc_Vgate_sourcep=((-0.5)*qgate_Vgate_sourcep);
7746 : 0 : qsrc_Vdrainp_sourcep=((-0.5)*qgate_Vdrainp_sourcep);
7747 : 0 : qsrc_Vbulk_sourcep=((-0.5)*qgate_Vbulk_sourcep);
7748 : : #endif
7749 : 0 : qsrc=((-0.5)*qgate);
7750 : : #endif
7751 : : }
7752 : : #endif /* if (...) */
7753 : : }
7754 : : #endif /* if (...) */
7755 : : #if defined(_DYNAMIC)
7756 : : #if defined(_DERIVATE)
7757 : 0 : qgate_Vdrainp_sourcep=(((qgate_Vdrainp_sourcep+Qac0_Vdrainp_sourcep)+Qsub0_Vdrainp_sourcep)-qbulk_Vdrainp_sourcep);
7758 : 0 : qgate_Vgate_sourcep=(((qgate_Vgate_sourcep+Qac0_Vgate_sourcep)+Qsub0_Vgate_sourcep)-qbulk_Vgate_sourcep);
7759 : 0 : qgate_Vbulk_sourcep=(((qgate_Vbulk_sourcep+Qac0_Vbulk_sourcep)+Qsub0_Vbulk_sourcep)-qbulk_Vbulk_sourcep);
7760 : : #endif
7761 : 0 : qgate=(((qgate+Qac0)+Qsub0)-qbulk);
7762 : : #endif
7763 : : #if defined(_DYNAMIC)
7764 : : #if defined(_DERIVATE)
7765 : 0 : qbulk_Vdrainp_sourcep=(qbulk_Vdrainp_sourcep-(Qac0_Vdrainp_sourcep+Qsub0_Vdrainp_sourcep));
7766 : 0 : qbulk_Vgate_sourcep=(qbulk_Vgate_sourcep-(Qac0_Vgate_sourcep+Qsub0_Vgate_sourcep));
7767 : 0 : qbulk_Vbulk_sourcep=(qbulk_Vbulk_sourcep-(Qac0_Vbulk_sourcep+Qsub0_Vbulk_sourcep));
7768 : : #endif
7769 : 0 : qbulk=(qbulk-(Qac0+Qsub0));
7770 : : #endif
7771 : : #if defined(_DYNAMIC)
7772 : : #if defined(_DERIVATE)
7773 : 0 : qdrn_Vgate_sourcep=(-((qgate_Vgate_sourcep+qbulk_Vgate_sourcep)+qsrc_Vgate_sourcep));
7774 : 0 : qdrn_Vdrainp_sourcep=(-((qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep)+qsrc_Vdrainp_sourcep));
7775 : 0 : qdrn_Vbulk_sourcep=(-((qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep)+qsrc_Vbulk_sourcep));
7776 : : #endif
7777 : 0 : qdrn=(-((qgate+qbulk)+qsrc));
7778 : : #endif
7779 : : #if defined(_DERIVATE)
7780 : 0 : qinv_Vdrainp_sourcep=(-qinoi_Vdrainp_sourcep);
7781 : 0 : qinv_Vgate_sourcep=(-qinoi_Vgate_sourcep);
7782 : 0 : qinv_Vbulk_sourcep=(-qinoi_Vbulk_sourcep);
7783 : : #endif
7784 : 0 : qinv=(-qinoi);
7785 : : }
7786 : : }
7787 : : }
7788 : : }
7789 : : }
7790 : : #if defined(_DYNAMIC)
7791 : : #if defined(_DERIVATE)
7792 : 0 : qgdo_Vbulk_sourcep=0.0;
7793 : 0 : qgdo_Vgate_sourcep=0.0;
7794 : 0 : qgdo_Vdrainp_sourcep=0.0;
7795 : : #endif
7796 : 0 : qgdo=0.0;
7797 : : #endif
7798 : : #if defined(_DYNAMIC)
7799 : : #if defined(_DERIVATE)
7800 : 0 : qgso_Vdrainp_sourcep=0.0;
7801 : 0 : qgso_Vbulk_sourcep=0.0;
7802 : 0 : qgso_Vgate_sourcep=0.0;
7803 : : #endif
7804 : 0 : qgso=0.0;
7805 : : #endif
7806 : : #ifdef _DYNAMIC
7807 [ # # ]: 0 : if
7808 : : (CAPMOD==0.0)
7809 : : {
7810 : : #if defined(_DYNAMIC)
7811 : : #if defined(_DERIVATE)
7812 : 0 : qgdo_Vbulk_sourcep=0.0;
7813 : 0 : qgdo_Vgate_sourcep=(cgdo_param*vgd_Vgate_sourcep);
7814 : 0 : qgdo_Vdrainp_sourcep=(cgdo_param*vgd_Vdrainp_sourcep);
7815 : : #endif
7816 : 0 : qgdo=(cgdo_param*vgd);
7817 : : #endif
7818 : : #if defined(_DYNAMIC)
7819 : : #if defined(_DERIVATE)
7820 : 0 : qgso_Vdrainp_sourcep=0.0;
7821 : 0 : qgso_Vbulk_sourcep=0.0;
7822 : 0 : qgso_Vgate_sourcep=(cgso_param*vgs_Vgate_sourcep);
7823 : : #endif
7824 : 0 : qgso=(cgso_param*vgs);
7825 : : #endif
7826 : : }
7827 : : else
7828 : : {
7829 : : #ifdef _DYNAMIC
7830 [ # # ]: 0 : if
7831 : : (CAPMOD==1.0)
7832 : : {
7833 : : #ifdef _DYNAMIC
7834 [ # # ]: 0 : if
7835 : : (vgd<0.0)
7836 : : {
7837 : : #if defined(_DYNAMIC)
7838 : : {
7839 : 0 : double m00_sqrt(d00_sqrt0,(1.0-((4.0*vgd)/ckappa)))
7840 : : #if defined(_DERIVATE)
7841 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,(1.0-((4.0*vgd)/ckappa)))
7842 : : #endif
7843 : : #if defined(_DERIVATE)
7844 : 0 : T1_Vgate_sourcep=(-((4.0*vgd_Vgate_sourcep)/ckappa))*d10_sqrt0;
7845 : 0 : T1_Vdrainp_sourcep=(-((4.0*vgd_Vdrainp_sourcep)/ckappa))*d10_sqrt0;
7846 : 0 : T1_Vbulk_sourcep=0.0;
7847 : : #endif
7848 : 0 : T1=d00_sqrt0;
7849 : : }
7850 : : #endif
7851 : : #if defined(_DYNAMIC)
7852 : : #if defined(_DERIVATE)
7853 : 0 : qgdo_Vbulk_sourcep=(-((((weffCV*0.5)*cgdl)*ckappa)*T1_Vbulk_sourcep));
7854 : 0 : qgdo_Vgate_sourcep=((cgdo_param*vgd_Vgate_sourcep)-((((weffCV*0.5)*cgdl)*ckappa)*T1_Vgate_sourcep));
7855 : 0 : qgdo_Vdrainp_sourcep=((cgdo_param*vgd_Vdrainp_sourcep)-((((weffCV*0.5)*cgdl)*ckappa)*T1_Vdrainp_sourcep));
7856 : : #endif
7857 : 0 : qgdo=((cgdo_param*vgd)-((((weffCV*0.5)*cgdl)*ckappa)*(T1-1.0)));
7858 : : #endif
7859 : : }
7860 : : else
7861 : : {
7862 : : #if defined(_DYNAMIC)
7863 : : #if defined(_DERIVATE)
7864 : 0 : qgdo_Vbulk_sourcep=0.0;
7865 : 0 : qgdo_Vgate_sourcep=(((weffCV*cgdl)+cgdo_param)*vgd_Vgate_sourcep);
7866 : 0 : qgdo_Vdrainp_sourcep=(((weffCV*cgdl)+cgdo_param)*vgd_Vdrainp_sourcep);
7867 : : #endif
7868 : 0 : qgdo=(((weffCV*cgdl)+cgdo_param)*vgd);
7869 : : #endif
7870 : : }
7871 : : #endif /* if (...) */
7872 : : #ifdef _DYNAMIC
7873 [ # # ]: 0 : if
7874 : : (vgs<0.0)
7875 : : {
7876 : : #if defined(_DYNAMIC)
7877 : : {
7878 : 0 : double m00_sqrt(d00_sqrt0,(1.0-((4.0*vgs)/ckappa)))
7879 : : #if defined(_DERIVATE)
7880 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,(1.0-((4.0*vgs)/ckappa)))
7881 : : #endif
7882 : : #if defined(_DERIVATE)
7883 : 0 : T1_Vgate_sourcep=(-((4.0*vgs_Vgate_sourcep)/ckappa))*d10_sqrt0;
7884 : 0 : T1_Vdrainp_sourcep=0.0;
7885 : 0 : T1_Vbulk_sourcep=0.0;
7886 : : #endif
7887 : 0 : T1=d00_sqrt0;
7888 : : }
7889 : : #endif
7890 : : #if defined(_DYNAMIC)
7891 : : #if defined(_DERIVATE)
7892 : 0 : qgso_Vdrainp_sourcep=(-((((weffCV*0.5)*cgsl)*ckappa)*T1_Vdrainp_sourcep));
7893 : 0 : qgso_Vbulk_sourcep=(-((((weffCV*0.5)*cgsl)*ckappa)*T1_Vbulk_sourcep));
7894 : 0 : qgso_Vgate_sourcep=((cgso_param*vgs_Vgate_sourcep)-((((weffCV*0.5)*cgsl)*ckappa)*T1_Vgate_sourcep));
7895 : : #endif
7896 : 0 : qgso=((cgso_param*vgs)-((((weffCV*0.5)*cgsl)*ckappa)*(T1-1.0)));
7897 : : #endif
7898 : : }
7899 : : else
7900 : : {
7901 : : #if defined(_DYNAMIC)
7902 : : #if defined(_DERIVATE)
7903 : 0 : qgso_Vdrainp_sourcep=0.0;
7904 : 0 : qgso_Vbulk_sourcep=0.0;
7905 : 0 : qgso_Vgate_sourcep=(((weffCV*cgsl)+cgso_param)*vgs_Vgate_sourcep);
7906 : : #endif
7907 : 0 : qgso=(((weffCV*cgsl)+cgso_param)*vgs);
7908 : : #endif
7909 : : }
7910 : : #endif /* if (...) */
7911 : : }
7912 : : else
7913 : : {
7914 : : #if defined(_DYNAMIC)
7915 : : #if defined(_DERIVATE)
7916 : 0 : T_0_Vgate_sourcep=vgd_Vgate_sourcep;
7917 : 0 : T_0_Vdrainp_sourcep=vgd_Vdrainp_sourcep;
7918 : 0 : T_0_Vbulk_sourcep=0.0;
7919 : : #endif
7920 : 0 : T_0=(vgd+0.02);
7921 : : #endif
7922 : : #if defined(_DYNAMIC)
7923 : : {
7924 : 0 : double m00_sqrt(d00_sqrt0,((T_0*T_0)+(4.0*0.02)))
7925 : : #if defined(_DERIVATE)
7926 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T_0*T_0)+(4.0*0.02)))
7927 : : #endif
7928 : : #if defined(_DERIVATE)
7929 : 0 : T1_Vgate_sourcep=((T_0_Vgate_sourcep*T_0)+(T_0*T_0_Vgate_sourcep))*d10_sqrt0;
7930 : 0 : T1_Vdrainp_sourcep=((T_0_Vdrainp_sourcep*T_0)+(T_0*T_0_Vdrainp_sourcep))*d10_sqrt0;
7931 : 0 : T1_Vbulk_sourcep=((T_0_Vbulk_sourcep*T_0)+(T_0*T_0_Vbulk_sourcep))*d10_sqrt0;
7932 : : #endif
7933 : 0 : T1=d00_sqrt0;
7934 : : }
7935 : : #endif
7936 : : #if defined(_DYNAMIC)
7937 : : #if defined(_DERIVATE)
7938 : 0 : T2_Vgate_sourcep=(0.5*(T_0_Vgate_sourcep-T1_Vgate_sourcep));
7939 : 0 : T2_Vdrainp_sourcep=(0.5*(T_0_Vdrainp_sourcep-T1_Vdrainp_sourcep));
7940 : 0 : T2_Vbulk_sourcep=(0.5*(T_0_Vbulk_sourcep-T1_Vbulk_sourcep));
7941 : : #endif
7942 : 0 : T2=(0.5*(T_0-T1));
7943 : : #endif
7944 : : #if defined(_DYNAMIC)
7945 : : #if defined(_DERIVATE)
7946 : 0 : T3_Vgate_sourcep=0.0;
7947 : 0 : T3_Vdrainp_sourcep=0.0;
7948 : 0 : T3_Vbulk_sourcep=0.0;
7949 : : #endif
7950 : 0 : T3=(weffCV*cgdl);
7951 : : #endif
7952 : : #if defined(_DYNAMIC)
7953 : : {
7954 : 0 : double m00_sqrt(d00_sqrt0,(1.0-((4.0*T2)/ckappa)))
7955 : : #if defined(_DERIVATE)
7956 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,(1.0-((4.0*T2)/ckappa)))
7957 : : #endif
7958 : : #if defined(_DERIVATE)
7959 : 0 : T4_Vgate_sourcep=(-((4.0*T2_Vgate_sourcep)/ckappa))*d10_sqrt0;
7960 : 0 : T4_Vdrainp_sourcep=(-((4.0*T2_Vdrainp_sourcep)/ckappa))*d10_sqrt0;
7961 : 0 : T4_Vbulk_sourcep=(-((4.0*T2_Vbulk_sourcep)/ckappa))*d10_sqrt0;
7962 : : #endif
7963 : 0 : T4=d00_sqrt0;
7964 : : }
7965 : : #endif
7966 : : #if defined(_DYNAMIC)
7967 : : #if defined(_DERIVATE)
7968 : 0 : qgdo_Vbulk_sourcep=(T3_Vbulk_sourcep*vgd-((T3_Vbulk_sourcep*(T2+((0.5*ckappa)*(T4-1.0))))+(T3*(T2_Vbulk_sourcep+((0.5*ckappa)*T4_Vbulk_sourcep)))));
7969 : 0 : qgdo_Vgate_sourcep=(((T3_Vgate_sourcep*vgd)+((cgdo_param+T3)*vgd_Vgate_sourcep))-((T3_Vgate_sourcep*(T2+((0.5*ckappa)*(T4-1.0))))+(T3*(T2_Vgate_sourcep+((0.5*ckappa)*T4_Vgate_sourcep)))));
7970 : 0 : qgdo_Vdrainp_sourcep=(((T3_Vdrainp_sourcep*vgd)+((cgdo_param+T3)*vgd_Vdrainp_sourcep))-((T3_Vdrainp_sourcep*(T2+((0.5*ckappa)*(T4-1.0))))+(T3*(T2_Vdrainp_sourcep+((0.5*ckappa)*T4_Vdrainp_sourcep)))));
7971 : : #endif
7972 : 0 : qgdo=(((cgdo_param+T3)*vgd)-(T3*(T2+((0.5*ckappa)*(T4-1.0)))));
7973 : : #endif
7974 : : #if defined(_DYNAMIC)
7975 : : #if defined(_DERIVATE)
7976 : 0 : T_0_Vgate_sourcep=vgs_Vgate_sourcep;
7977 : 0 : T_0_Vdrainp_sourcep=0.0;
7978 : 0 : T_0_Vbulk_sourcep=0.0;
7979 : : #endif
7980 : 0 : T_0=(vgs+0.02);
7981 : : #endif
7982 : : #if defined(_DYNAMIC)
7983 : : {
7984 : 0 : double m00_sqrt(d00_sqrt0,((T_0*T_0)+(4.0*0.02)))
7985 : : #if defined(_DERIVATE)
7986 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T_0*T_0)+(4.0*0.02)))
7987 : : #endif
7988 : : #if defined(_DERIVATE)
7989 : 0 : T1_Vgate_sourcep=((T_0_Vgate_sourcep*T_0)+(T_0*T_0_Vgate_sourcep))*d10_sqrt0;
7990 : 0 : T1_Vdrainp_sourcep=((T_0_Vdrainp_sourcep*T_0)+(T_0*T_0_Vdrainp_sourcep))*d10_sqrt0;
7991 : 0 : T1_Vbulk_sourcep=((T_0_Vbulk_sourcep*T_0)+(T_0*T_0_Vbulk_sourcep))*d10_sqrt0;
7992 : : #endif
7993 : 0 : T1=d00_sqrt0;
7994 : : }
7995 : : #endif
7996 : : #if defined(_DYNAMIC)
7997 : : #if defined(_DERIVATE)
7998 : 0 : T2_Vgate_sourcep=(0.5*(T_0_Vgate_sourcep-T1_Vgate_sourcep));
7999 : 0 : T2_Vdrainp_sourcep=(0.5*(T_0_Vdrainp_sourcep-T1_Vdrainp_sourcep));
8000 : 0 : T2_Vbulk_sourcep=(0.5*(T_0_Vbulk_sourcep-T1_Vbulk_sourcep));
8001 : : #endif
8002 : 0 : T2=(0.5*(T_0-T1));
8003 : : #endif
8004 : : #if defined(_DYNAMIC)
8005 : : #if defined(_DERIVATE)
8006 : 0 : T3_Vgate_sourcep=0.0;
8007 : 0 : T3_Vdrainp_sourcep=0.0;
8008 : 0 : T3_Vbulk_sourcep=0.0;
8009 : : #endif
8010 : 0 : T3=(weffCV*cgsl);
8011 : : #endif
8012 : : #if defined(_DYNAMIC)
8013 : : {
8014 : 0 : double m00_sqrt(d00_sqrt0,(1.0-((4.0*T2)/ckappa)))
8015 : : #if defined(_DERIVATE)
8016 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,(1.0-((4.0*T2)/ckappa)))
8017 : : #endif
8018 : : #if defined(_DERIVATE)
8019 : 0 : T4_Vgate_sourcep=(-((4.0*T2_Vgate_sourcep)/ckappa))*d10_sqrt0;
8020 : 0 : T4_Vdrainp_sourcep=(-((4.0*T2_Vdrainp_sourcep)/ckappa))*d10_sqrt0;
8021 : 0 : T4_Vbulk_sourcep=(-((4.0*T2_Vbulk_sourcep)/ckappa))*d10_sqrt0;
8022 : : #endif
8023 : 0 : T4=d00_sqrt0;
8024 : : }
8025 : : #endif
8026 : : #if defined(_DYNAMIC)
8027 : : #if defined(_DERIVATE)
8028 : 0 : qgso_Vdrainp_sourcep=(T3_Vdrainp_sourcep*vgs-((T3_Vdrainp_sourcep*(T2+((0.5*ckappa)*(T4-1.0))))+(T3*(T2_Vdrainp_sourcep+((0.5*ckappa)*T4_Vdrainp_sourcep)))));
8029 : 0 : qgso_Vbulk_sourcep=(T3_Vbulk_sourcep*vgs-((T3_Vbulk_sourcep*(T2+((0.5*ckappa)*(T4-1.0))))+(T3*(T2_Vbulk_sourcep+((0.5*ckappa)*T4_Vbulk_sourcep)))));
8030 : 0 : qgso_Vgate_sourcep=(((T3_Vgate_sourcep*vgs)+((cgso_param+T3)*vgs_Vgate_sourcep))-((T3_Vgate_sourcep*(T2+((0.5*ckappa)*(T4-1.0))))+(T3*(T2_Vgate_sourcep+((0.5*ckappa)*T4_Vgate_sourcep)))));
8031 : : #endif
8032 : 0 : qgso=(((cgso_param+T3)*vgs)-(T3*(T2+((0.5*ckappa)*(T4-1.0)))));
8033 : : #endif
8034 : : }
8035 : : #endif /* if (...) */
8036 : : }
8037 : : #endif /* if (...) */
8038 : : #ifdef _DYNAMIC
8039 [ # # ]: 0 : if
8040 : : (mode>0)
8041 : : {
8042 : : #ifdef _DYNAMIC
8043 [ # # ]: 0 : if
8044 : : (NQSMOD==0)
8045 : : {
8046 : : #if defined(_DYNAMIC)
8047 : : #if defined(_DERIVATE)
8048 : 0 : qgd_Vbulk_sourcep=qgdo_Vbulk_sourcep;
8049 : 0 : qgd_Vgate_sourcep=qgdo_Vgate_sourcep;
8050 : 0 : qgd_Vdrainp_sourcep=qgdo_Vdrainp_sourcep;
8051 : : #endif
8052 : 0 : qgd=qgdo;
8053 : : #endif
8054 : : #if defined(_DYNAMIC)
8055 : : #if defined(_DERIVATE)
8056 : 0 : qgs_Vdrainp_sourcep=qgso_Vdrainp_sourcep;
8057 : 0 : qgs_Vbulk_sourcep=qgso_Vbulk_sourcep;
8058 : 0 : qgs_Vgate_sourcep=qgso_Vgate_sourcep;
8059 : : #endif
8060 : 0 : qgs=qgso;
8061 : : #endif
8062 : : #if defined(_DYNAMIC)
8063 : : #if defined(_DERIVATE)
8064 : 0 : qgb_Vgate_sourcep=(cgbo_param*vgb_Vgate_sourcep);
8065 : 0 : qgb_Vbulk_sourcep=(cgbo_param*vgb_Vbulk_sourcep);
8066 : : #endif
8067 : 0 : qgb=(cgbo_param*vgb);
8068 : : #endif
8069 : : #if defined(_DYNAMIC)
8070 : : #if defined(_DERIVATE)
8071 : 0 : qgate_Vdrainp_sourcep=((qgate_Vdrainp_sourcep+qgd_Vdrainp_sourcep)+qgs_Vdrainp_sourcep);
8072 : 0 : qgate_Vgate_sourcep=(((qgate_Vgate_sourcep+qgd_Vgate_sourcep)+qgs_Vgate_sourcep)+qgb_Vgate_sourcep);
8073 : 0 : qgate_Vbulk_sourcep=(((qgate_Vbulk_sourcep+qgd_Vbulk_sourcep)+qgs_Vbulk_sourcep)+qgb_Vbulk_sourcep);
8074 : : #endif
8075 : 0 : qgate=(((qgate+qgd)+qgs)+qgb);
8076 : : #endif
8077 : : #if defined(_DYNAMIC)
8078 : : #if defined(_DERIVATE)
8079 : 0 : qbulk_Vdrainp_sourcep=qbulk_Vdrainp_sourcep;
8080 : 0 : qbulk_Vgate_sourcep=(qbulk_Vgate_sourcep-qgb_Vgate_sourcep);
8081 : 0 : qbulk_Vbulk_sourcep=(qbulk_Vbulk_sourcep-qgb_Vbulk_sourcep);
8082 : : #endif
8083 : 0 : qbulk=(qbulk-qgb);
8084 : : #endif
8085 : : #if defined(_DYNAMIC)
8086 : : #if defined(_DERIVATE)
8087 : 0 : qdrn_Vgate_sourcep=(qdrn_Vgate_sourcep-qgd_Vgate_sourcep);
8088 : 0 : qdrn_Vdrainp_sourcep=(qdrn_Vdrainp_sourcep-qgd_Vdrainp_sourcep);
8089 : 0 : qdrn_Vbulk_sourcep=(qdrn_Vbulk_sourcep-qgd_Vbulk_sourcep);
8090 : : #endif
8091 : 0 : qdrn=(qdrn-qgd);
8092 : : #endif
8093 : : #if defined(_DYNAMIC)
8094 : : #if defined(_DERIVATE)
8095 : 0 : qsrc_Vgate_sourcep=(-((qgate_Vgate_sourcep+qbulk_Vgate_sourcep)+qdrn_Vgate_sourcep));
8096 : 0 : qsrc_Vdrainp_sourcep=(-((qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep)+qdrn_Vdrainp_sourcep));
8097 : 0 : qsrc_Vbulk_sourcep=(-((qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep)+qdrn_Vbulk_sourcep));
8098 : : #endif
8099 : 0 : qsrc=(-((qgate+qbulk)+qdrn));
8100 : : #endif
8101 : : }
8102 : : else
8103 : : {
8104 : : #if defined(_DYNAMIC)
8105 : 0 : CoxWL=((cox*weffCV)*leffCV);
8106 : : #endif
8107 : : #if defined(_DYNAMIC)
8108 : : #if defined(_DERIVATE)
8109 : 0 : qgd_Vbulk_sourcep=qgdo_Vbulk_sourcep;
8110 : 0 : qgd_Vgate_sourcep=qgdo_Vgate_sourcep;
8111 : 0 : qgd_Vdrainp_sourcep=qgdo_Vdrainp_sourcep;
8112 : : #endif
8113 : 0 : qgd=qgdo;
8114 : : #endif
8115 : : #if defined(_DYNAMIC)
8116 : : #if defined(_DERIVATE)
8117 : 0 : qgs_Vdrainp_sourcep=qgso_Vdrainp_sourcep;
8118 : 0 : qgs_Vbulk_sourcep=qgso_Vbulk_sourcep;
8119 : 0 : qgs_Vgate_sourcep=qgso_Vgate_sourcep;
8120 : : #endif
8121 : 0 : qgs=qgso;
8122 : : #endif
8123 : : #if defined(_DYNAMIC)
8124 : : #if defined(_DERIVATE)
8125 : 0 : qgb_Vgate_sourcep=(cgbo_param*vgb_Vgate_sourcep);
8126 : 0 : qgb_Vbulk_sourcep=(cgbo_param*vgb_Vbulk_sourcep);
8127 : : #endif
8128 : 0 : qgb=(cgbo_param*vgb);
8129 : : #endif
8130 : : #if defined(_DYNAMIC)
8131 : : #if defined(_DERIVATE)
8132 : 0 : qgate_Vdrainp_sourcep=(qgd_Vdrainp_sourcep+qgs_Vdrainp_sourcep);
8133 : 0 : qgate_Vgate_sourcep=((qgd_Vgate_sourcep+qgs_Vgate_sourcep)+qgb_Vgate_sourcep);
8134 : 0 : qgate_Vbulk_sourcep=((qgd_Vbulk_sourcep+qgs_Vbulk_sourcep)+qgb_Vbulk_sourcep);
8135 : : #endif
8136 : 0 : qgate=((qgd+qgs)+qgb);
8137 : : #endif
8138 : : #if defined(_DYNAMIC)
8139 : : #if defined(_DERIVATE)
8140 : 0 : qbulk_Vdrainp_sourcep=0.0;
8141 : 0 : qbulk_Vgate_sourcep=(-qgb_Vgate_sourcep);
8142 : 0 : qbulk_Vbulk_sourcep=(-qgb_Vbulk_sourcep);
8143 : : #endif
8144 : 0 : qbulk=(-qgb);
8145 : : #endif
8146 : : #if defined(_DYNAMIC)
8147 : : #if defined(_DERIVATE)
8148 : 0 : qdrn_Vgate_sourcep=(-qgd_Vgate_sourcep);
8149 : 0 : qdrn_Vdrainp_sourcep=(-qgd_Vdrainp_sourcep);
8150 : 0 : qdrn_Vbulk_sourcep=(-qgd_Vbulk_sourcep);
8151 : : #endif
8152 : 0 : qdrn=(-qgd);
8153 : : #endif
8154 : : #if defined(_DYNAMIC)
8155 : : #if defined(_DERIVATE)
8156 : 0 : qsrc_Vgate_sourcep=(-((qgate_Vgate_sourcep+qbulk_Vgate_sourcep)+qdrn_Vgate_sourcep));
8157 : 0 : qsrc_Vdrainp_sourcep=(-((qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep)+qdrn_Vdrainp_sourcep));
8158 : 0 : qsrc_Vbulk_sourcep=(-((qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep)+qdrn_Vbulk_sourcep));
8159 : : #endif
8160 : 0 : qsrc=(-((qgate+qbulk)+qdrn));
8161 : : #endif
8162 : : }
8163 : : #endif /* if (...) */
8164 : : }
8165 : : else
8166 : : {
8167 : : #ifdef _DYNAMIC
8168 [ # # ]: 0 : if
8169 : : (NQSMOD==0)
8170 : : {
8171 : : #if defined(_DYNAMIC)
8172 : : #if defined(_DERIVATE)
8173 : 0 : qgd_Vbulk_sourcep=qgdo_Vbulk_sourcep;
8174 : 0 : qgd_Vgate_sourcep=qgdo_Vgate_sourcep;
8175 : 0 : qgd_Vdrainp_sourcep=qgdo_Vdrainp_sourcep;
8176 : : #endif
8177 : 0 : qgd=qgdo;
8178 : : #endif
8179 : : #if defined(_DYNAMIC)
8180 : : #if defined(_DERIVATE)
8181 : 0 : qgs_Vdrainp_sourcep=qgso_Vdrainp_sourcep;
8182 : 0 : qgs_Vbulk_sourcep=qgso_Vbulk_sourcep;
8183 : 0 : qgs_Vgate_sourcep=qgso_Vgate_sourcep;
8184 : : #endif
8185 : 0 : qgs=qgso;
8186 : : #endif
8187 : : #if defined(_DYNAMIC)
8188 : : #if defined(_DERIVATE)
8189 : 0 : qgb_Vgate_sourcep=(cgbo_param*vgb_Vgate_sourcep);
8190 : 0 : qgb_Vbulk_sourcep=(cgbo_param*vgb_Vbulk_sourcep);
8191 : : #endif
8192 : 0 : qgb=(cgbo_param*vgb);
8193 : : #endif
8194 : : #if defined(_DYNAMIC)
8195 : : #if defined(_DERIVATE)
8196 : 0 : qgate_Vdrainp_sourcep=((qgate_Vdrainp_sourcep+qgd_Vdrainp_sourcep)+qgs_Vdrainp_sourcep);
8197 : 0 : qgate_Vgate_sourcep=(((qgate_Vgate_sourcep+qgd_Vgate_sourcep)+qgs_Vgate_sourcep)+qgb_Vgate_sourcep);
8198 : 0 : qgate_Vbulk_sourcep=(((qgate_Vbulk_sourcep+qgd_Vbulk_sourcep)+qgs_Vbulk_sourcep)+qgb_Vbulk_sourcep);
8199 : : #endif
8200 : 0 : qgate=(((qgate+qgd)+qgs)+qgb);
8201 : : #endif
8202 : : #if defined(_DYNAMIC)
8203 : : #if defined(_DERIVATE)
8204 : 0 : qbulk_Vdrainp_sourcep=qbulk_Vdrainp_sourcep;
8205 : 0 : qbulk_Vgate_sourcep=(qbulk_Vgate_sourcep-qgb_Vgate_sourcep);
8206 : 0 : qbulk_Vbulk_sourcep=(qbulk_Vbulk_sourcep-qgb_Vbulk_sourcep);
8207 : : #endif
8208 : 0 : qbulk=(qbulk-qgb);
8209 : : #endif
8210 : : #if defined(_DYNAMIC)
8211 : : #if defined(_DERIVATE)
8212 : 0 : qsrc_Vgate_sourcep=(qdrn_Vgate_sourcep-qgs_Vgate_sourcep);
8213 : 0 : qsrc_Vdrainp_sourcep=(qdrn_Vdrainp_sourcep-qgs_Vdrainp_sourcep);
8214 : 0 : qsrc_Vbulk_sourcep=(qdrn_Vbulk_sourcep-qgs_Vbulk_sourcep);
8215 : : #endif
8216 : 0 : qsrc=(qdrn-qgs);
8217 : : #endif
8218 : : #if defined(_DYNAMIC)
8219 : : #if defined(_DERIVATE)
8220 : 0 : qdrn_Vgate_sourcep=(-((qgate_Vgate_sourcep+qbulk_Vgate_sourcep)+qsrc_Vgate_sourcep));
8221 : 0 : qdrn_Vdrainp_sourcep=(-((qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep)+qsrc_Vdrainp_sourcep));
8222 : 0 : qdrn_Vbulk_sourcep=(-((qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep)+qsrc_Vbulk_sourcep));
8223 : : #endif
8224 : 0 : qdrn=(-((qgate+qbulk)+qsrc));
8225 : : #endif
8226 : : }
8227 : : else
8228 : : {
8229 : : #if defined(_DYNAMIC)
8230 : 0 : CoxWL=((cox*weffCV)*leffCV);
8231 : : #endif
8232 : : #if defined(_DYNAMIC)
8233 : : #if defined(_DERIVATE)
8234 : 0 : qgd_Vbulk_sourcep=qgdo_Vbulk_sourcep;
8235 : 0 : qgd_Vgate_sourcep=qgdo_Vgate_sourcep;
8236 : 0 : qgd_Vdrainp_sourcep=qgdo_Vdrainp_sourcep;
8237 : : #endif
8238 : 0 : qgd=qgdo;
8239 : : #endif
8240 : : #if defined(_DYNAMIC)
8241 : : #if defined(_DERIVATE)
8242 : 0 : qgs_Vdrainp_sourcep=qgso_Vdrainp_sourcep;
8243 : 0 : qgs_Vbulk_sourcep=qgso_Vbulk_sourcep;
8244 : 0 : qgs_Vgate_sourcep=qgso_Vgate_sourcep;
8245 : : #endif
8246 : 0 : qgs=qgso;
8247 : : #endif
8248 : : #if defined(_DYNAMIC)
8249 : : #if defined(_DERIVATE)
8250 : 0 : qgb_Vgate_sourcep=(cgbo_param*vgb_Vgate_sourcep);
8251 : 0 : qgb_Vbulk_sourcep=(cgbo_param*vgb_Vbulk_sourcep);
8252 : : #endif
8253 : 0 : qgb=(cgbo_param*vgb);
8254 : : #endif
8255 : : #if defined(_DYNAMIC)
8256 : : #if defined(_DERIVATE)
8257 : 0 : qgate_Vdrainp_sourcep=(qgd_Vdrainp_sourcep+qgs_Vdrainp_sourcep);
8258 : 0 : qgate_Vgate_sourcep=((qgd_Vgate_sourcep+qgs_Vgate_sourcep)+qgb_Vgate_sourcep);
8259 : 0 : qgate_Vbulk_sourcep=((qgd_Vbulk_sourcep+qgs_Vbulk_sourcep)+qgb_Vbulk_sourcep);
8260 : : #endif
8261 : 0 : qgate=((qgd+qgs)+qgb);
8262 : : #endif
8263 : : #if defined(_DYNAMIC)
8264 : : #if defined(_DERIVATE)
8265 : 0 : qbulk_Vdrainp_sourcep=0.0;
8266 : 0 : qbulk_Vgate_sourcep=(-qgb_Vgate_sourcep);
8267 : 0 : qbulk_Vbulk_sourcep=(-qgb_Vbulk_sourcep);
8268 : : #endif
8269 : 0 : qbulk=(-qgb);
8270 : : #endif
8271 : : #if defined(_DYNAMIC)
8272 : : #if defined(_DERIVATE)
8273 : 0 : qsrc_Vgate_sourcep=(-qgs_Vgate_sourcep);
8274 : 0 : qsrc_Vdrainp_sourcep=(-qgs_Vdrainp_sourcep);
8275 : 0 : qsrc_Vbulk_sourcep=(-qgs_Vbulk_sourcep);
8276 : : #endif
8277 : 0 : qsrc=(-qgs);
8278 : : #endif
8279 : : #if defined(_DYNAMIC)
8280 : : #if defined(_DERIVATE)
8281 : 0 : qdrn_Vgate_sourcep=(-((qgate_Vgate_sourcep+qbulk_Vgate_sourcep)+qsrc_Vgate_sourcep));
8282 : 0 : qdrn_Vdrainp_sourcep=(-((qgate_Vdrainp_sourcep+qbulk_Vdrainp_sourcep)+qsrc_Vdrainp_sourcep));
8283 : 0 : qdrn_Vbulk_sourcep=(-((qgate_Vbulk_sourcep+qbulk_Vbulk_sourcep)+qsrc_Vbulk_sourcep));
8284 : : #endif
8285 : 0 : qdrn=(-((qgate+qbulk)+qsrc));
8286 : : #endif
8287 : : }
8288 : : #endif /* if (...) */
8289 : : }
8290 : : #endif /* if (...) */
8291 : : #if defined(_DYNAMIC)
8292 : : #if defined(_DERIVATE)
8293 : 0 : Qdrn_Vgate_sourcep=(qdrn_Vgate_sourcep-qbd_Vgate_sourcep);
8294 : 0 : Qdrn_Vdrainp_sourcep=(qdrn_Vdrainp_sourcep-qbd_Vdrainp_sourcep);
8295 : 0 : Qdrn_Vbulk_sourcep=(qdrn_Vbulk_sourcep-qbd_Vbulk_sourcep);
8296 : : #endif
8297 : 0 : Qdrn=(qdrn-qbd);
8298 : : #endif
8299 : : #if defined(_DYNAMIC)
8300 : 0 : Qsrc=(qsrc-qbs);
8301 : : #endif
8302 : : #if defined(_DYNAMIC)
8303 : : #if defined(_DERIVATE)
8304 : 0 : Qbulk_Vdrainp_sourcep=((qbulk_Vdrainp_sourcep+qbd_Vdrainp_sourcep)+qbs_Vdrainp_sourcep);
8305 : 0 : Qbulk_Vgate_sourcep=((qbulk_Vgate_sourcep+qbd_Vgate_sourcep)+qbs_Vgate_sourcep);
8306 : 0 : Qbulk_Vbulk_sourcep=((qbulk_Vbulk_sourcep+qbd_Vbulk_sourcep)+qbs_Vbulk_sourcep);
8307 : : #endif
8308 : 0 : Qbulk=((qbulk+qbd)+qbs);
8309 : : #endif
8310 : : #if defined(_DYNAMIC)
8311 : : #if defined(_DERIVATE)
8312 : 0 : Qgate_Vdrainp_sourcep=qgate_Vdrainp_sourcep;
8313 : 0 : Qgate_Vgate_sourcep=qgate_Vgate_sourcep;
8314 : 0 : Qgate_Vbulk_sourcep=qgate_Vbulk_sourcep;
8315 : : #endif
8316 : 0 : Qgate=qgate;
8317 : : #endif
8318 [ # # ]: 0 : if
8319 : : (mode>0)
8320 : : {
8321 : 0 : _load_static_residual2(drainp,sourcep,(TYPE*cdrain));
8322 : : #if defined(_DERIVATE)
8323 [ # # ][ # # ]: 0 : _load_static_jacobian4(drainp,sourcep,bulk,sourcep,(TYPE*cdrain_Vbulk_sourcep));
[ # # ][ # # ]
[ # # ]
8324 [ # # ][ # # ]: 0 : _load_static_jacobian4(drainp,sourcep,drainp,sourcep,(TYPE*cdrain_Vdrainp_sourcep));
[ # # ][ # # ]
[ # # ]
8325 [ # # ][ # # ]: 0 : _load_static_jacobian4(drainp,sourcep,gate,sourcep,(TYPE*cdrain_Vgate_sourcep));
[ # # ][ # # ]
[ # # ]
8326 : : #endif
8327 : 0 : _load_static_residual2(bulk,drainp,(TYPE*(cbd-csub)));
8328 : : #if defined(_DERIVATE)
8329 [ # # ][ # # ]: 0 : _load_static_jacobian4(bulk,drainp,gate,sourcep,(TYPE*(-csub_Vgate_sourcep)));
[ # # ][ # # ]
[ # # ]
8330 [ # # ][ # # ]: 0 : _load_static_jacobian4(bulk,drainp,drainp,sourcep,(TYPE*(cbd_Vdrainp_sourcep-csub_Vdrainp_sourcep)));
[ # # ][ # # ]
[ # # ]
8331 [ # # ][ # # ]: 0 : _load_static_jacobian4(bulk,drainp,bulk,sourcep,(TYPE*(cbd_Vbulk_sourcep-csub_Vbulk_sourcep)));
[ # # ][ # # ]
[ # # ]
8332 : : #endif
8333 : 0 : _load_static_residual2(bulk,sourcep,(TYPE*cbs));
8334 : : #if defined(_DERIVATE)
8335 [ # # ][ # # ]: 0 : _load_static_jacobian4(bulk,sourcep,bulk,sourcep,(TYPE*cbs_Vbulk_sourcep));
[ # # ][ # # ]
[ # # ]
8336 : : #endif
8337 : : }
8338 : : else
8339 : : {
8340 : 0 : _load_static_residual2(drainp,sourcep,(TYPE*(-cdrain)));
8341 : : #if defined(_DERIVATE)
8342 [ # # ][ # # ]: 0 : _load_static_jacobian4(drainp,sourcep,bulk,sourcep,(TYPE*(-cdrain_Vbulk_sourcep)));
[ # # ][ # # ]
[ # # ]
8343 [ # # ][ # # ]: 0 : _load_static_jacobian4(drainp,sourcep,drainp,sourcep,(TYPE*(-cdrain_Vdrainp_sourcep)));
[ # # ][ # # ]
[ # # ]
8344 [ # # ][ # # ]: 0 : _load_static_jacobian4(drainp,sourcep,gate,sourcep,(TYPE*(-cdrain_Vgate_sourcep)));
[ # # ][ # # ]
[ # # ]
8345 : : #endif
8346 : 0 : _load_static_residual2(bulk,drainp,(TYPE*cbd));
8347 : : #if defined(_DERIVATE)
8348 [ # # ][ # # ]: 0 : _load_static_jacobian4(bulk,drainp,drainp,sourcep,(TYPE*cbd_Vdrainp_sourcep));
[ # # ][ # # ]
[ # # ]
8349 [ # # ][ # # ]: 0 : _load_static_jacobian4(bulk,drainp,bulk,sourcep,(TYPE*cbd_Vbulk_sourcep));
[ # # ][ # # ]
[ # # ]
8350 : : #endif
8351 : 0 : _load_static_residual2(bulk,sourcep,(TYPE*(cbs-csub)));
8352 : : #if defined(_DERIVATE)
8353 [ # # ][ # # ]: 0 : _load_static_jacobian4(bulk,sourcep,drainp,sourcep,(TYPE*(-csub_Vdrainp_sourcep)));
[ # # ][ # # ]
[ # # ]
8354 [ # # ][ # # ]: 0 : _load_static_jacobian4(bulk,sourcep,gate,sourcep,(TYPE*(-csub_Vgate_sourcep)));
[ # # ][ # # ]
[ # # ]
8355 [ # # ][ # # ]: 0 : _load_static_jacobian4(bulk,sourcep,bulk,sourcep,(TYPE*(cbs_Vbulk_sourcep-csub_Vbulk_sourcep)));
[ # # ][ # # ]
[ # # ]
8356 : : #endif
8357 : : }
8358 [ # # ]: 0 : if
8359 : : (drainConductance>0.0)
8360 : : {
8361 [ # # ][ # # ]: 0 : _load_static_residual2(drain,drainp,(drainConductance*BP(drain,drainp)));
8362 : : #if defined(_DERIVATE)
8363 [ # # ][ # # ]: 0 : _load_static_jacobian4(drain,drainp,drain,drainp,(drainConductance));
[ # # ][ # # ]
[ # # ]
8364 : : #endif
8365 : : }
8366 : : else
8367 : : {
8368 [ # # ][ # # ]: 0 : _load_static_residual2(drain,drainp,(BP(drain,drainp)*1e3));
8369 : : #if defined(_DERIVATE)
8370 [ # # ][ # # ]: 0 : _load_static_jacobian4(drain,drainp,drain,drainp,(1e3));
[ # # ][ # # ]
[ # # ]
8371 : : #endif
8372 : : }
8373 [ # # ]: 0 : if
8374 : : (sourceConductance>0.0)
8375 : : {
8376 [ # # ][ # # ]: 0 : _load_static_residual2(source,sourcep,(sourceConductance*BP(source,sourcep)));
8377 : : #if defined(_DERIVATE)
8378 [ # # ][ # # ]: 0 : _load_static_jacobian4(source,sourcep,source,sourcep,(sourceConductance));
[ # # ][ # # ]
[ # # ]
8379 : : #endif
8380 : : }
8381 : : else
8382 : : {
8383 [ # # ][ # # ]: 0 : _load_static_residual2(source,sourcep,(BP(source,sourcep)*1e3));
8384 : : #if defined(_DERIVATE)
8385 [ # # ][ # # ]: 0 : _load_static_jacobian4(source,sourcep,source,sourcep,(1e3));
[ # # ][ # # ]
[ # # ]
8386 : : #endif
8387 : : }
8388 : : #if defined(_DYNAMIC)
8389 : 0 : cqgate=(TYPE*_DDT(Qgate));
8390 : : #endif
8391 : : #if defined(_DYNAMIC)
8392 : 0 : cqdrn=(TYPE*_DDT(Qdrn));
8393 : : #endif
8394 : : #if defined(_DYNAMIC)
8395 : 0 : cqbulk=(TYPE*_DDT(Qbulk));
8396 : : #endif
8397 : : #if defined(_DYNAMIC)
8398 [ # # ][ # # ]: 0 : _load_dynamic_residual1(gate,(TYPE*_DDT(Qgate)));
8399 : : #if defined(_DERIVATE)
8400 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2p(gate,bulk,sourcep,(TYPE*Qgate_Vbulk_sourcep));
[ # # ][ # # ]
8401 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2p(gate,gate,sourcep,(TYPE*Qgate_Vgate_sourcep));
[ # # ][ # # ]
8402 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2p(gate,drainp,sourcep,(TYPE*Qgate_Vdrainp_sourcep));
[ # # ][ # # ]
8403 : : #endif
8404 : : #endif
8405 : : #if defined(_DYNAMIC)
8406 [ # # ][ # # ]: 0 : _load_dynamic_residual1(drainp,(TYPE*_DDT(Qdrn)));
8407 : : #if defined(_DERIVATE)
8408 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2p(drainp,bulk,sourcep,(TYPE*Qdrn_Vbulk_sourcep));
[ # # ][ # # ]
8409 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2p(drainp,drainp,sourcep,(TYPE*Qdrn_Vdrainp_sourcep));
[ # # ][ # # ]
8410 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2p(drainp,gate,sourcep,(TYPE*Qdrn_Vgate_sourcep));
[ # # ][ # # ]
8411 : : #endif
8412 : : #endif
8413 : : #if defined(_DYNAMIC)
8414 [ # # ][ # # ]: 0 : _load_dynamic_residual1(bulk,(TYPE*_DDT(Qbulk)));
8415 : : #if defined(_DERIVATE)
8416 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2p(bulk,bulk,sourcep,(TYPE*Qbulk_Vbulk_sourcep));
[ # # ][ # # ]
8417 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2p(bulk,gate,sourcep,(TYPE*Qbulk_Vgate_sourcep));
[ # # ][ # # ]
8418 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2p(bulk,drainp,sourcep,(TYPE*Qbulk_Vdrainp_sourcep));
[ # # ][ # # ]
8419 : : #endif
8420 : : #endif
8421 : : #if defined(_DYNAMIC)
8422 [ # # ][ # # ]: 0 : _load_dynamic_residual1(sourcep,(-(((TYPE*_DDT(Qgate))+(TYPE*_DDT(Qdrn)))+(TYPE*_DDT(Qbulk)))));
8423 : : #if defined(_DERIVATE)
8424 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2p(sourcep,bulk,sourcep,(-(((TYPE*Qgate_Vbulk_sourcep)+(TYPE*Qdrn_Vbulk_sourcep))+(TYPE*Qbulk_Vbulk_sourcep))));
[ # # ][ # # ]
8425 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2p(sourcep,gate,sourcep,(-(((TYPE*Qgate_Vgate_sourcep)+(TYPE*Qdrn_Vgate_sourcep))+(TYPE*Qbulk_Vgate_sourcep))));
[ # # ][ # # ]
8426 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2p(sourcep,drainp,sourcep,(-(((TYPE*Qgate_Vdrainp_sourcep)+(TYPE*Qdrn_Vdrainp_sourcep))+(TYPE*Qbulk_Vdrainp_sourcep))));
[ # # ][ # # ]
8427 : : #endif
8428 : : #endif
8429 [ # # ]: 0 : if
8430 : : (NOIMOD==4)
8431 : : {
8432 : 0 : fourkt=(5.5226012e-23*Temp);
8433 : 0 : leffx2=(leff*leff);
8434 : 0 : _save_flickernoise2(drainp,sourcep,((KF*pow(cdrain,AF))/(cox*leffx2)),EF,"flicker");
8435 : 0 : _save_whitenoise2(drainp,sourcep,(((fourkt*ueff)*abs(qinv))/leffx2),"channel");
8436 : 0 : _save_whitenoise2(drain,drainp,abs((fourkt*drainConductance)),"thermal");
8437 : 0 : _save_whitenoise2(sourcep,source,abs((fourkt*sourceConductance)),"thermal");
8438 : : }
8439 : :
8440 : : /* ------------------ end of verilog analog equations --------------------- */
8441 : :
8442 : : /* ------------------ evaluate verilog noise equations -------------------- */
8443 : :
8444 : : /* ------------------- end of verilog noise equations --------------------- */
8445 : 0 : }
8446 : :
8447 : : /* Perform DC iteration. */
8448 : 0 : void bsim3v34nMOS::calcDC (void)
8449 : : {
8450 : : // evaluate Verilog code
8451 : 0 : initVerilog ();
8452 : 0 : calcVerilog ();
8453 : :
8454 : : // fill right hand side and static jacobian
8455 [ # # ]: 0 : for (int i1 = 0; i1 < 6; i1++) {
8456 [ # # ]: 0 : setI (i1, _rhs[i1]);
8457 [ # # ]: 0 : for (int i2 = 0; i2 < 6; i2++) {
8458 [ # # ]: 0 : setY (i1, i2, _jstat[i1][i2]);
8459 : : }
8460 : : }
8461 : 0 : }
8462 : :
8463 : : /* Save operating points. */
8464 : 0 : void bsim3v34nMOS::saveOperatingPoints (void)
8465 : : {
8466 : : // save global instance operating points
8467 : 0 : setOperatingPoint ("TYPE", TYPE);
8468 : 0 : setOperatingPoint ("tox", tox);
8469 : 0 : setOperatingPoint ("cox", cox);
8470 : 0 : setOperatingPoint ("vth0", vth0);
8471 : 0 : setOperatingPoint ("ngate", ngate);
8472 : 0 : setOperatingPoint ("uc", uc);
8473 : 0 : setOperatingPoint ("tnom", tnom);
8474 : 0 : setOperatingPoint ("pdiblb", pdiblb);
8475 : 0 : setOperatingPoint ("bulkJctBotGradingCoeff", bulkJctBotGradingCoeff);
8476 : 0 : setOperatingPoint ("bulkJctSideGradingCoeff", bulkJctSideGradingCoeff);
8477 : 0 : setOperatingPoint ("bulkJctGateSideGradingCoeff", bulkJctGateSideGradingCoeff);
8478 : 0 : setOperatingPoint ("unitAreaJctCap", unitAreaJctCap);
8479 : 0 : setOperatingPoint ("unitAreaTempJctCap", unitAreaTempJctCap);
8480 : 0 : setOperatingPoint ("unitLengthSidewallJctCap", unitLengthSidewallJctCap);
8481 : 0 : setOperatingPoint ("unitLengthSidewallTempJctCap", unitLengthSidewallTempJctCap);
8482 : 0 : setOperatingPoint ("unitLengthGateSidewallJctCap", unitLengthGateSidewallJctCap);
8483 : 0 : setOperatingPoint ("unitLengthGateSidewallTempJctCap", unitLengthGateSidewallTempJctCap);
8484 : 0 : setOperatingPoint ("Temp", Temp);
8485 : 0 : setOperatingPoint ("factor1", factor1);
8486 : 0 : setOperatingPoint ("vtm", vtm);
8487 : 0 : setOperatingPoint ("T_0", T_0);
8488 : 0 : setOperatingPoint ("T1", T1);
8489 : 0 : setOperatingPoint ("T2", T2);
8490 : 0 : setOperatingPoint ("T3", T3);
8491 : 0 : setOperatingPoint ("T4", T4);
8492 : 0 : setOperatingPoint ("T5", T5);
8493 : 0 : setOperatingPoint ("PhiB", PhiB);
8494 : 0 : setOperatingPoint ("PhiBSW", PhiBSW);
8495 : 0 : setOperatingPoint ("PhiBSWG", PhiBSWG);
8496 : 0 : setOperatingPoint ("tmp", tmp);
8497 : 0 : setOperatingPoint ("tmp1", tmp1);
8498 : 0 : setOperatingPoint ("tmp2", tmp2);
8499 : 0 : setOperatingPoint ("tmp3", tmp3);
8500 : 0 : setOperatingPoint ("leff", leff);
8501 : 0 : setOperatingPoint ("weff", weff);
8502 : 0 : setOperatingPoint ("leffCV", leffCV);
8503 : 0 : setOperatingPoint ("weffCV", weffCV);
8504 : 0 : setOperatingPoint ("cdsc", cdsc);
8505 : 0 : setOperatingPoint ("cdscb", cdscb);
8506 : 0 : setOperatingPoint ("cdscd", cdscd);
8507 : 0 : setOperatingPoint ("cit", cit);
8508 : 0 : setOperatingPoint ("nfactor", nfactor);
8509 : 0 : setOperatingPoint ("xj", xj);
8510 : 0 : setOperatingPoint ("a0", a0);
8511 : 0 : setOperatingPoint ("ags", ags);
8512 : 0 : setOperatingPoint ("a1", a1);
8513 : 0 : setOperatingPoint ("a2", a2);
8514 : 0 : setOperatingPoint ("keta", keta);
8515 : 0 : setOperatingPoint ("vfb", vfb);
8516 : 0 : setOperatingPoint ("k1", k1);
8517 : 0 : setOperatingPoint ("kt1", kt1);
8518 : 0 : setOperatingPoint ("kt1l", kt1l);
8519 : 0 : setOperatingPoint ("kt2", kt2);
8520 : 0 : setOperatingPoint ("k3", k3);
8521 : 0 : setOperatingPoint ("k3b", k3b);
8522 : 0 : setOperatingPoint ("w0", w0);
8523 : 0 : setOperatingPoint ("nlx", nlx);
8524 : 0 : setOperatingPoint ("dvt0", dvt0);
8525 : 0 : setOperatingPoint ("dvt1", dvt1);
8526 : 0 : setOperatingPoint ("dvt2", dvt2);
8527 : 0 : setOperatingPoint ("dvt0w", dvt0w);
8528 : 0 : setOperatingPoint ("dvt1w", dvt1w);
8529 : 0 : setOperatingPoint ("dvt2w", dvt2w);
8530 : 0 : setOperatingPoint ("ua", ua);
8531 : 0 : setOperatingPoint ("ub", ub);
8532 : 0 : setOperatingPoint ("voff", voff);
8533 : 0 : setOperatingPoint ("delta", delta);
8534 : 0 : setOperatingPoint ("prwg", prwg);
8535 : 0 : setOperatingPoint ("prwb", prwb);
8536 : 0 : setOperatingPoint ("eta0", eta0);
8537 : 0 : setOperatingPoint ("etab", etab);
8538 : 0 : setOperatingPoint ("pclm", pclm);
8539 : 0 : setOperatingPoint ("pscbe1", pscbe1);
8540 : 0 : setOperatingPoint ("pscbe2", pscbe2);
8541 : 0 : setOperatingPoint ("pvag", pvag);
8542 : 0 : setOperatingPoint ("dwg", dwg);
8543 : 0 : setOperatingPoint ("dwb", dwb);
8544 : 0 : setOperatingPoint ("b0", b0);
8545 : 0 : setOperatingPoint ("b1", b1);
8546 : 0 : setOperatingPoint ("alpha0", alpha0);
8547 : 0 : setOperatingPoint ("alpha1", alpha1);
8548 : 0 : setOperatingPoint ("beta0", beta0);
8549 : 0 : setOperatingPoint ("cgsl", cgsl);
8550 : 0 : setOperatingPoint ("cgdl", cgdl);
8551 : 0 : setOperatingPoint ("ckappa", ckappa);
8552 : 0 : setOperatingPoint ("vfbcv", vfbcv);
8553 : 0 : setOperatingPoint ("acde", acde);
8554 : 0 : setOperatingPoint ("moin", moin);
8555 : 0 : setOperatingPoint ("noff_param", noff_param);
8556 : 0 : setOperatingPoint ("voffcv_param", voffcv_param);
8557 : 0 : setOperatingPoint ("abulkCVfactor", abulkCVfactor);
8558 : 0 : setOperatingPoint ("u0temp", u0temp);
8559 : 0 : setOperatingPoint ("vsattemp", vsattemp);
8560 : 0 : setOperatingPoint ("rds0", rds0);
8561 : 0 : setOperatingPoint ("phi", phi);
8562 : 0 : setOperatingPoint ("sqrtPhi", sqrtPhi);
8563 : 0 : setOperatingPoint ("phis3", phis3);
8564 : 0 : setOperatingPoint ("Xdep0", Xdep0);
8565 : 0 : setOperatingPoint ("litl", litl);
8566 : 0 : setOperatingPoint ("vbi", vbi);
8567 : 0 : setOperatingPoint ("cdep0", cdep0);
8568 : 0 : setOperatingPoint ("ldeb", ldeb);
8569 : 0 : setOperatingPoint ("vbsc", vbsc);
8570 : 0 : setOperatingPoint ("k1ox", k1ox);
8571 : 0 : setOperatingPoint ("k2ox", k2ox);
8572 : 0 : setOperatingPoint ("theta0vb0", theta0vb0);
8573 : 0 : setOperatingPoint ("thetaRout", thetaRout);
8574 : 0 : setOperatingPoint ("vfbzb", vfbzb);
8575 : 0 : setOperatingPoint ("sourceArea", sourceArea);
8576 : 0 : setOperatingPoint ("drainArea", drainArea);
8577 : 0 : setOperatingPoint ("sourcePerimeter", sourcePerimeter);
8578 : 0 : setOperatingPoint ("drainPerimeter", drainPerimeter);
8579 : 0 : setOperatingPoint ("SourceSatCurrent", SourceSatCurrent);
8580 : 0 : setOperatingPoint ("DrainSatCurrent", DrainSatCurrent);
8581 : 0 : setOperatingPoint ("sourceConductance", sourceConductance);
8582 : 0 : setOperatingPoint ("drainConductance", drainConductance);
8583 : 0 : setOperatingPoint ("Nvtm", Nvtm);
8584 : 0 : setOperatingPoint ("vjsm", vjsm);
8585 : 0 : setOperatingPoint ("vjdm", vjdm);
8586 : 0 : setOperatingPoint ("IsEvjsm", IsEvjsm);
8587 : 0 : setOperatingPoint ("IsEvjdm", IsEvjdm);
8588 : 0 : setOperatingPoint ("cgso_param", cgso_param);
8589 : 0 : setOperatingPoint ("cgdo_param", cgdo_param);
8590 : 0 : setOperatingPoint ("cgbo_param", cgbo_param);
8591 : 0 : }
8592 : :
8593 : : /* Load operating points. */
8594 : 0 : void bsim3v34nMOS::loadOperatingPoints (void)
8595 : : {
8596 : 0 : }
8597 : :
8598 : : /* Calculate operating points. */
8599 : 0 : void bsim3v34nMOS::calcOperatingPoints (void)
8600 : : {
8601 : 0 : }
8602 : :
8603 : : /* Initialization of AC analysis. */
8604 : 0 : void bsim3v34nMOS::initAC (void)
8605 : : {
8606 : 0 : allocMatrixMNA ();
8607 : 0 : }
8608 : :
8609 : : /* Perform AC calculations. */
8610 : 0 : void bsim3v34nMOS::calcAC (nr_double_t frequency)
8611 : : {
8612 [ # # ]: 0 : setMatrixY (calcMatrixY (frequency));
8613 : 0 : }
8614 : :
8615 : : /* Compute Y-matrix for AC analysis. */
8616 : 0 : matrix bsim3v34nMOS::calcMatrixY (nr_double_t frequency)
8617 : : {
8618 : 0 : _freq = frequency;
8619 : 0 : saveOperatingPoints ();
8620 : 0 : matrix y (6);
8621 : :
8622 [ # # ]: 0 : for (int i1 = 0; i1 < 6; i1++) {
8623 [ # # ]: 0 : for (int i2 = 0; i2 < 6; i2++) {
8624 : 0 : y (i1,i2) = nr_complex_t (_jstat[i1][i2], _jdyna[i1][i2] * 2 * M_PI * _freq);
8625 : : }
8626 : : }
8627 : :
8628 : 0 : return y;
8629 : : }
8630 : :
8631 : : /* Initialization of S-parameter analysis. */
8632 : 0 : void bsim3v34nMOS::initSP (void)
8633 : : {
8634 : 0 : allocMatrixS ();
8635 : 0 : }
8636 : :
8637 : : /* Perform S-parameter calculations. */
8638 : 0 : void bsim3v34nMOS::calcSP (nr_double_t frequency)
8639 : : {
8640 [ # # ][ # # ]: 0 : setMatrixS (ytos (calcMatrixY (frequency)));
[ # # ][ # # ]
[ # # ]
8641 : 0 : }
8642 : :
8643 : : /* Initialization of transient analysis. */
8644 : 0 : void bsim3v34nMOS::initTR (void)
8645 : : {
8646 : 0 : setStates (2 * 6 * 6);
8647 : 0 : initDC ();
8648 : 0 : }
8649 : :
8650 : : /* Perform transient analysis iteration step. */
8651 : 0 : void bsim3v34nMOS::calcTR (nr_double_t)
8652 : : {
8653 : 0 : doHB = 0;
8654 : 0 : doAC = 1;
8655 : 0 : doTR = 1;
8656 : 0 : calcDC ();
8657 : :
8658 : : int i1, i2, i3, i4, state;
8659 : :
8660 : : // 2-node charge integrations
8661 [ # # ]: 0 : for (i1 = 0; i1 < 6; i1++) {
8662 [ # # ]: 0 : for (i2 = 0; i2 < 6; i2++) {
8663 : 0 : state = 2 * (i2 + 6 * i1);
8664 [ # # ]: 0 : if (i1 != i2)
8665 [ # # ]: 0 : if (_charges[i1][i2] != 0.0)
8666 : 0 : transientCapacitanceQ (state, i1, i2, _charges[i1][i2]);
8667 : : } }
8668 : :
8669 : : // 1-node charge integrations
8670 [ # # ]: 0 : for (i1 = 0; i1 < 6; i1++) {
8671 : 0 : state = 2 * (i1 + 6 * i1);
8672 [ # # ]: 0 : if (_charges[i1][i1] != 0.0)
8673 : 0 : transientCapacitanceQ (state, i1, _charges[i1][i1]);
8674 : : }
8675 : :
8676 : : // charge: 2-node, voltage: 2-node
8677 [ # # ]: 0 : for (i1 = 0; i1 < 6; i1++) {
8678 [ # # ]: 0 : for (i2 = 0; i2 < 6; i2++) {
8679 [ # # ]: 0 : if (i1 != i2)
8680 [ # # ]: 0 : for (i3 = 0; i3 < 6; i3++) {
8681 [ # # ]: 0 : for (i4 = 0; i4 < 6; i4++) {
8682 [ # # ]: 0 : if (i3 != i4)
8683 [ # # ]: 0 : if (_caps[i1][i2][i3][i4] != 0.0)
8684 [ # # ][ # # ]: 0 : transientCapacitanceC (i1, i2, i3, i4, _caps[i1][i2][i3][i4], BP(i3,i4));
8685 : : } } } }
8686 : :
8687 : : // charge: 2-node, voltage: 1-node
8688 [ # # ]: 0 : for (i1 = 0; i1 < 6; i1++) {
8689 [ # # ]: 0 : for (i2 = 0; i2 < 6; i2++) {
8690 [ # # ]: 0 : if (i1 != i2)
8691 [ # # ]: 0 : for (i3 = 0; i3 < 6; i3++) {
8692 [ # # ]: 0 : if (_caps[i1][i2][i3][i3] != 0.0)
8693 [ # # ]: 0 : transientCapacitanceC2Q (i1, i2, i3, _caps[i1][i2][i3][i3], NP(i3));
8694 : : } } }
8695 : :
8696 : : // charge: 1-node, voltage: 2-node
8697 [ # # ]: 0 : for (i1 = 0; i1 < 6; i1++) {
8698 [ # # ]: 0 : for (i3 = 0; i3 < 6; i3++) {
8699 [ # # ]: 0 : for (i4 = 0; i4 < 6; i4++) {
8700 [ # # ]: 0 : if (i3 != i4)
8701 [ # # ]: 0 : if (_caps[i1][i1][i3][i4] != 0.0)
8702 [ # # ][ # # ]: 0 : transientCapacitanceC2V (i1, i3, i4, _caps[i1][i1][i3][i4], BP(i3,i4));
8703 : : } } }
8704 : :
8705 : : // charge: 1-node, voltage: 1-node
8706 [ # # ]: 0 : for (i1 = 0; i1 < 6; i1++) {
8707 [ # # ]: 0 : for (i3 = 0; i3 < 6; i3++) {
8708 [ # # ]: 0 : if (_caps[i1][i1][i3][i3] != 0.0)
8709 [ # # ]: 0 : transientCapacitanceC (i1, i3, _caps[i1][i1][i3][i3], NP(i3));
8710 : : } }
8711 : 0 : }
8712 : :
8713 : : /* Compute Cy-matrix for AC noise analysis. */
8714 : 0 : matrix bsim3v34nMOS::calcMatrixCy (nr_double_t frequency)
8715 : : {
8716 : 0 : _freq = frequency;
8717 : 0 : matrix cy (6);
8718 : :
8719 : 0 : _load_flickernoise2 (drainp,sourcep,_flicker_pwr[drainp][sourcep],_flicker_exp[drainp][sourcep]);
8720 : 0 : _load_whitenoise2 (sourcep,source,_white_pwr[sourcep][source]);
8721 : 0 : _load_whitenoise2 (drain,drainp,_white_pwr[drain][drainp]);
8722 : 0 : _load_whitenoise2 (drainp,sourcep,_white_pwr[drainp][sourcep]);
8723 : :
8724 : 0 : return cy;
8725 : : }
8726 : :
8727 : : /* Perform AC noise computations. */
8728 : 0 : void bsim3v34nMOS::calcNoiseAC (nr_double_t frequency)
8729 : : {
8730 [ # # ]: 0 : setMatrixN (calcMatrixCy (frequency));
8731 : 0 : }
8732 : :
8733 : : /* Perform S-parameter noise computations. */
8734 : 0 : void bsim3v34nMOS::calcNoiseSP (nr_double_t frequency)
8735 : : {
8736 [ # # ][ # # ]: 0 : setMatrixN (cytocs (calcMatrixCy (frequency) * z0, getMatrixS ()));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
8737 : 0 : }
8738 : :
8739 : : /* Initialization of HB analysis. */
8740 : 0 : void bsim3v34nMOS::initHB (int)
8741 : : {
8742 : 0 : initDC ();
8743 : 0 : allocMatrixHB ();
8744 : 0 : }
8745 : :
8746 : : /* Perform HB analysis. */
8747 : 0 : void bsim3v34nMOS::calcHB (int)
8748 : : {
8749 : 0 : doHB = 1;
8750 : 0 : doAC = 1;
8751 : 0 : doTR = 0;
8752 : :
8753 : : // jacobian dI/dV and currents get filled
8754 : 0 : calcDC ();
8755 : 0 : saveOperatingPoints ();
8756 : :
8757 : : // fill in HB matrices
8758 [ # # ]: 0 : for (int i1 = 0; i1 < 6; i1++) {
8759 [ # # ]: 0 : setQ (i1, _qhs[i1]); // charges
8760 [ # # ]: 0 : setCV (i1, _chs[i1]); // jacobian dQ/dV * V
8761 [ # # ]: 0 : setGV (i1, _ghs[i1]); // jacobian dI/dV * V
8762 [ # # ]: 0 : for (int i2 = 0; i2 < 6; i2++) {
8763 [ # # ]: 0 : setQV (i1, i2, _jdyna[i1][i2]); // jacobian dQ/dV
8764 : : }
8765 : : }
8766 : 0 : }
8767 : :
8768 : : #include "bsim3v34nMOS.defs.h"
8769 : :
|
