6,7c6,7
< $Date: 2002/04/16 13:50:53 $
< $Revision: 1.14 $
---
> $Date: 2002/09/16 08:05:30 $
> $Revision: 1.15 $
163a164,167
> static void func_Igidl      ( struct ev_derivs *p_V, 
> 			      struct ev_derivs *p_Vov_0,
> 			      struct ev_derivs *p_Igidl_0 );
> 
243,254c247,262
< #define  ME_COX                MIN_DEVICE_PAR(42)
< #define  ME_CGDO               MIN_DEVICE_PAR(43)
< #define  ME_CGSO               MIN_DEVICE_PAR(44)
< #define  ME_GATENOISE          MIN_DEVICE_PAR(45)
< #define  ME_NT                 MIN_DEVICE_PAR(46)
< #define  ME_NFA                MIN_DEVICE_PAR(47)
< #define  ME_NFB                MIN_DEVICE_PAR(48)
< #define  ME_NFC                MIN_DEVICE_PAR(49)
< #define  ME_TOX                MIN_DEVICE_PAR(50)
< #define  ME_DTA                MIN_DEVICE_PAR(51)
< #define  ME_MULT               MIN_DEVICE_PAR(52)
< #define  N_ARGUMENTS_ME                       53
---
> #define  ME_AGIDL              MIN_DEVICE_PAR(42)
> #define  ME_BGIDL              MIN_DEVICE_PAR(43)
> #define  ME_STBGIDL            MIN_DEVICE_PAR(44)
> #define  ME_CGIDL              MIN_DEVICE_PAR(45)
> #define  ME_COX                MIN_DEVICE_PAR(46)
> #define  ME_CGDO               MIN_DEVICE_PAR(47)
> #define  ME_CGSO               MIN_DEVICE_PAR(48)
> #define  ME_GATENOISE          MIN_DEVICE_PAR(49)
> #define  ME_NT                 MIN_DEVICE_PAR(50)
> #define  ME_NFA                MIN_DEVICE_PAR(51)
> #define  ME_NFB                MIN_DEVICE_PAR(52)
> #define  ME_NFC                MIN_DEVICE_PAR(53)
> #define  ME_TOX                MIN_DEVICE_PAR(54)
> #define  ME_DTA                MIN_DEVICE_PAR(55)
> #define  ME_MULT               MIN_DEVICE_PAR(56)
> #define  N_ARGUMENTS_ME                       57
345,356c353,368
< #define  MG_TOX                 MIN_DEVICE_PAR(80)
< #define  MG_COL                 MIN_DEVICE_PAR(81)
< #define  MG_GATENOISE           MIN_DEVICE_PAR(82)
< #define  MG_NT                  MIN_DEVICE_PAR(83)
< #define  MG_NFAR                MIN_DEVICE_PAR(84)
< #define  MG_NFBR                MIN_DEVICE_PAR(85)
< #define  MG_NFCR                MIN_DEVICE_PAR(86)
< #define  MG_L                   MIN_DEVICE_PAR(87)  /* additional parameter */
< #define  MG_W                   MIN_DEVICE_PAR(88)  /* additional parameter */
< #define  MG_DTA                 MIN_DEVICE_PAR(89)  /* additional parameter */
< #define  MG_MULT                MIN_DEVICE_PAR(90)  /* additional parameter */
< #define  N_ARGUMENTS_MG                        91
---
> #define  MG_AGIDLR              MIN_DEVICE_PAR(80)
> #define  MG_BGIDL               MIN_DEVICE_PAR(81)
> #define  MG_STBGIDL             MIN_DEVICE_PAR(82)
> #define  MG_CGIDL               MIN_DEVICE_PAR(83)
> #define  MG_TOX                 MIN_DEVICE_PAR(84)
> #define  MG_COL                 MIN_DEVICE_PAR(85)
> #define  MG_GATENOISE           MIN_DEVICE_PAR(86)
> #define  MG_NT                  MIN_DEVICE_PAR(87)
> #define  MG_NFAR                MIN_DEVICE_PAR(88)
> #define  MG_NFBR                MIN_DEVICE_PAR(89)
> #define  MG_NFCR                MIN_DEVICE_PAR(90)
> #define  MG_L                   MIN_DEVICE_PAR(91)  /* additional parameter */
> #define  MG_W                   MIN_DEVICE_PAR(92)  /* additional parameter */
> #define  MG_DTA                 MIN_DEVICE_PAR(93)  /* additional parameter */
> #define  MG_MULT                MIN_DEVICE_PAR(94)  /* additional parameter */
> #define  N_ARGUMENTS_MG                        95
461,533c473,561
< #define  MG_TOX                 MIN_DEVICE_PAR(101)
< #define  MG_POCOX               MIN_DEVICE_PAR(102)
< #define  MG_PLCOX               MIN_DEVICE_PAR(103)
< #define  MG_PWCOX               MIN_DEVICE_PAR(104)
< #define  MG_PLWCOX              MIN_DEVICE_PAR(105)
< #define  MG_POCGDO              MIN_DEVICE_PAR(106)
< #define  MG_PLCGDO              MIN_DEVICE_PAR(107)
< #define  MG_PWCGDO              MIN_DEVICE_PAR(108)
< #define  MG_PLWCGDO             MIN_DEVICE_PAR(109)
< #define  MG_POCGSO              MIN_DEVICE_PAR(110)
< #define  MG_PLCGSO              MIN_DEVICE_PAR(111)
< #define  MG_PWCGSO              MIN_DEVICE_PAR(112)
< #define  MG_PLWCGSO             MIN_DEVICE_PAR(113)
< #define  MG_GATENOISE           MIN_DEVICE_PAR(114)
< #define  MG_NT 		        MIN_DEVICE_PAR(115)
< #define  MG_PONFA               MIN_DEVICE_PAR(116)
< #define  MG_PLNFA               MIN_DEVICE_PAR(117)
< #define  MG_PWNFA               MIN_DEVICE_PAR(118)
< #define  MG_PLWNFA              MIN_DEVICE_PAR(119)
< #define  MG_PONFB               MIN_DEVICE_PAR(120)
< #define  MG_PLNFB               MIN_DEVICE_PAR(121)
< #define  MG_PWNFB               MIN_DEVICE_PAR(122)
< #define  MG_PLWNFB              MIN_DEVICE_PAR(123)
< #define  MG_PONFC               MIN_DEVICE_PAR(124)
< #define  MG_PLNFC               MIN_DEVICE_PAR(125)
< #define  MG_PWNFC               MIN_DEVICE_PAR(126)
< #define  MG_PLWNFC              MIN_DEVICE_PAR(127)
< #define  MG_POTVFB              MIN_DEVICE_PAR(128)
< #define  MG_PLTVFB              MIN_DEVICE_PAR(129)
< #define  MG_PWTVFB              MIN_DEVICE_PAR(130)
< #define  MG_PLWTVFB             MIN_DEVICE_PAR(131)
< #define  MG_POTPHIB             MIN_DEVICE_PAR(132)
< #define  MG_PLTPHIB             MIN_DEVICE_PAR(133)
< #define  MG_PWTPHIB             MIN_DEVICE_PAR(134)
< #define  MG_PLWTPHIB            MIN_DEVICE_PAR(135)
< #define  MG_POTETABET           MIN_DEVICE_PAR(136)
< #define  MG_PLTETABET           MIN_DEVICE_PAR(137)
< #define  MG_PWTETABET           MIN_DEVICE_PAR(138)
< #define  MG_PLWTETABET          MIN_DEVICE_PAR(139)
< #define  MG_POTETASR            MIN_DEVICE_PAR(140)
< #define  MG_PLTETASR            MIN_DEVICE_PAR(141)
< #define  MG_PWTETASR            MIN_DEVICE_PAR(142)
< #define  MG_PLWTETASR           MIN_DEVICE_PAR(143)
< #define  MG_POTETAPH            MIN_DEVICE_PAR(144)
< #define  MG_PLTETAPH            MIN_DEVICE_PAR(145)
< #define  MG_PWTETAPH            MIN_DEVICE_PAR(146)
< #define  MG_PLWTETAPH           MIN_DEVICE_PAR(147)
< #define  MG_POTETAMOB           MIN_DEVICE_PAR(148)
< #define  MG_PLTETAMOB           MIN_DEVICE_PAR(149)
< #define  MG_PWTETAMOB           MIN_DEVICE_PAR(150)
< #define  MG_PLWTETAMOB          MIN_DEVICE_PAR(151)
< #define  MG_NU                  MIN_DEVICE_PAR(152)
< #define  MG_POTNUEXP            MIN_DEVICE_PAR(153)
< #define  MG_PLTNUEXP            MIN_DEVICE_PAR(154)
< #define  MG_PWTNUEXP            MIN_DEVICE_PAR(155)
< #define  MG_PLWTNUEXP           MIN_DEVICE_PAR(156)
< #define  MG_POTETAR             MIN_DEVICE_PAR(157)
< #define  MG_PLTETAR             MIN_DEVICE_PAR(158)
< #define  MG_PWTETAR             MIN_DEVICE_PAR(159)
< #define  MG_PLWTETAR            MIN_DEVICE_PAR(160)
< #define  MG_POTETASAT           MIN_DEVICE_PAR(161)
< #define  MG_PLTETASAT           MIN_DEVICE_PAR(162)
< #define  MG_PWTETASAT           MIN_DEVICE_PAR(163)
< #define  MG_PLWTETASAT          MIN_DEVICE_PAR(164)
< #define  MG_POTA1               MIN_DEVICE_PAR(165)
< #define  MG_PLTA1               MIN_DEVICE_PAR(166)
< #define  MG_PWTA1               MIN_DEVICE_PAR(167)
< #define  MG_PLWTA1              MIN_DEVICE_PAR(168)
< #define  MG_L                   MIN_DEVICE_PAR(169)  /* additional parameter */
< #define  MG_W                   MIN_DEVICE_PAR(170)  /* additional parameter */
< #define  MG_DTA                 MIN_DEVICE_PAR(171)  /* additional parameter */
< #define  MG_MULT                MIN_DEVICE_PAR(172)  /* additional parameter */
< #define  N_ARGUMENTS_MG                        173
---
> #define  MG_POAGIDL             MIN_DEVICE_PAR(101)
> #define  MG_PLAGIDL             MIN_DEVICE_PAR(102)
> #define  MG_PWAGIDL             MIN_DEVICE_PAR(103)
> #define  MG_PLWAGIDL            MIN_DEVICE_PAR(104)
> #define  MG_POBGIDL             MIN_DEVICE_PAR(105)
> #define  MG_PLBGIDL             MIN_DEVICE_PAR(106)
> #define  MG_PWBGIDL             MIN_DEVICE_PAR(107)
> #define  MG_PLWBGIDL            MIN_DEVICE_PAR(108)
> #define  MG_POCGIDL             MIN_DEVICE_PAR(109)
> #define  MG_PLCGIDL             MIN_DEVICE_PAR(110)
> #define  MG_PWCGIDL             MIN_DEVICE_PAR(111)
> #define  MG_PLWCGIDL            MIN_DEVICE_PAR(112)
> #define  MG_TOX                 MIN_DEVICE_PAR(113)
> #define  MG_POCOX               MIN_DEVICE_PAR(114)
> #define  MG_PLCOX               MIN_DEVICE_PAR(115)
> #define  MG_PWCOX               MIN_DEVICE_PAR(116)
> #define  MG_PLWCOX              MIN_DEVICE_PAR(117)
> #define  MG_POCGDO              MIN_DEVICE_PAR(118)
> #define  MG_PLCGDO              MIN_DEVICE_PAR(119)
> #define  MG_PWCGDO              MIN_DEVICE_PAR(120)
> #define  MG_PLWCGDO             MIN_DEVICE_PAR(121)
> #define  MG_POCGSO              MIN_DEVICE_PAR(122)
> #define  MG_PLCGSO              MIN_DEVICE_PAR(123)
> #define  MG_PWCGSO              MIN_DEVICE_PAR(124)
> #define  MG_PLWCGSO             MIN_DEVICE_PAR(125)
> #define  MG_GATENOISE           MIN_DEVICE_PAR(126)
> #define  MG_NT 		        MIN_DEVICE_PAR(127)
> #define  MG_PONFA               MIN_DEVICE_PAR(128)
> #define  MG_PLNFA               MIN_DEVICE_PAR(129)
> #define  MG_PWNFA               MIN_DEVICE_PAR(130)
> #define  MG_PLWNFA              MIN_DEVICE_PAR(131)
> #define  MG_PONFB               MIN_DEVICE_PAR(132)
> #define  MG_PLNFB               MIN_DEVICE_PAR(133)
> #define  MG_PWNFB               MIN_DEVICE_PAR(134)
> #define  MG_PLWNFB              MIN_DEVICE_PAR(135)
> #define  MG_PONFC               MIN_DEVICE_PAR(136)
> #define  MG_PLNFC               MIN_DEVICE_PAR(137)
> #define  MG_PWNFC               MIN_DEVICE_PAR(138)
> #define  MG_PLWNFC              MIN_DEVICE_PAR(139)
> #define  MG_POTVFB              MIN_DEVICE_PAR(140)
> #define  MG_PLTVFB              MIN_DEVICE_PAR(141)
> #define  MG_PWTVFB              MIN_DEVICE_PAR(142)
> #define  MG_PLWTVFB             MIN_DEVICE_PAR(143)
> #define  MG_POTPHIB             MIN_DEVICE_PAR(144)
> #define  MG_PLTPHIB             MIN_DEVICE_PAR(145)
> #define  MG_PWTPHIB             MIN_DEVICE_PAR(146)
> #define  MG_PLWTPHIB            MIN_DEVICE_PAR(147)
> #define  MG_POTETABET           MIN_DEVICE_PAR(148)
> #define  MG_PLTETABET           MIN_DEVICE_PAR(149)
> #define  MG_PWTETABET           MIN_DEVICE_PAR(150)
> #define  MG_PLWTETABET          MIN_DEVICE_PAR(151)
> #define  MG_POTETASR            MIN_DEVICE_PAR(152)
> #define  MG_PLTETASR            MIN_DEVICE_PAR(153)
> #define  MG_PWTETASR            MIN_DEVICE_PAR(154)
> #define  MG_PLWTETASR           MIN_DEVICE_PAR(155)
> #define  MG_POTETAPH            MIN_DEVICE_PAR(156)
> #define  MG_PLTETAPH            MIN_DEVICE_PAR(157)
> #define  MG_PWTETAPH            MIN_DEVICE_PAR(158)
> #define  MG_PLWTETAPH           MIN_DEVICE_PAR(159)
> #define  MG_POTETAMOB           MIN_DEVICE_PAR(160)
> #define  MG_PLTETAMOB           MIN_DEVICE_PAR(161)
> #define  MG_PWTETAMOB           MIN_DEVICE_PAR(162)
> #define  MG_PLWTETAMOB          MIN_DEVICE_PAR(163)
> #define  MG_NU                  MIN_DEVICE_PAR(164)
> #define  MG_POTNUEXP            MIN_DEVICE_PAR(165)
> #define  MG_PLTNUEXP            MIN_DEVICE_PAR(166)
> #define  MG_PWTNUEXP            MIN_DEVICE_PAR(167)
> #define  MG_PLWTNUEXP           MIN_DEVICE_PAR(168)
> #define  MG_POTETAR             MIN_DEVICE_PAR(169)
> #define  MG_PLTETAR             MIN_DEVICE_PAR(170)
> #define  MG_PWTETAR             MIN_DEVICE_PAR(171)
> #define  MG_PLWTETAR            MIN_DEVICE_PAR(172)
> #define  MG_POTETASAT           MIN_DEVICE_PAR(173)
> #define  MG_PLTETASAT           MIN_DEVICE_PAR(174)
> #define  MG_PWTETASAT           MIN_DEVICE_PAR(175)
> #define  MG_PLWTETASAT          MIN_DEVICE_PAR(176)
> #define  MG_POTA1               MIN_DEVICE_PAR(177)
> #define  MG_PLTA1               MIN_DEVICE_PAR(178)
> #define  MG_PWTA1               MIN_DEVICE_PAR(179)
> #define  MG_PLWTA1              MIN_DEVICE_PAR(180)
> #define  MG_POTBGIDL            MIN_DEVICE_PAR(181)
> #define  MG_PLTBGIDL            MIN_DEVICE_PAR(182)
> #define  MG_PWTBGIDL            MIN_DEVICE_PAR(183)
> #define  MG_PLWTBGIDL           MIN_DEVICE_PAR(184)
> #define  MG_L                   MIN_DEVICE_PAR(185)  /* additional parameter */
> #define  MG_W                   MIN_DEVICE_PAR(186)  /* additional parameter */
> #define  MG_DTA                 MIN_DEVICE_PAR(187)  /* additional parameter */
> #define  MG_MULT                MIN_DEVICE_PAR(188)  /* additional parameter */
> #define  N_ARGUMENTS_MG                        189
580,590c608,622
< #define  M_L_COX               MIN_DEVICE_INT_PAR(42)
< #define  M_L_CGDO              MIN_DEVICE_INT_PAR(43)
< #define  M_L_CGSO              MIN_DEVICE_INT_PAR(44)
< #define  M_L_GATENOISE         MIN_DEVICE_INT_PAR(45)
< #define  M_L_NT                MIN_DEVICE_INT_PAR(46)
< #define  M_L_NFA               MIN_DEVICE_INT_PAR(47)
< #define  M_L_NFB               MIN_DEVICE_INT_PAR(48)
< #define  M_L_NFC               MIN_DEVICE_INT_PAR(49)
< #define  M_L_TOX               MIN_DEVICE_INT_PAR(50)
< #define  M_L_DTA               MIN_DEVICE_INT_PAR(51)
< #define  M_L_MULT              MIN_DEVICE_INT_PAR(52)
---
> #define  M_L_AGIDL             MIN_DEVICE_INT_PAR(42)
> #define  M_L_BGIDL             MIN_DEVICE_INT_PAR(43)
> #define  M_L_STBGIDL           MIN_DEVICE_INT_PAR(44)
> #define  M_L_CGIDL             MIN_DEVICE_INT_PAR(45)
> #define  M_L_COX               MIN_DEVICE_INT_PAR(46)
> #define  M_L_CGDO              MIN_DEVICE_INT_PAR(47)
> #define  M_L_CGSO              MIN_DEVICE_INT_PAR(48)
> #define  M_L_GATENOISE         MIN_DEVICE_INT_PAR(49)
> #define  M_L_NT                MIN_DEVICE_INT_PAR(50)
> #define  M_L_NFA               MIN_DEVICE_INT_PAR(51)
> #define  M_L_NFB               MIN_DEVICE_INT_PAR(52)
> #define  M_L_NFC               MIN_DEVICE_INT_PAR(53)
> #define  M_L_TOX               MIN_DEVICE_INT_PAR(54)
> #define  M_L_DTA               MIN_DEVICE_INT_PAR(55)
> #define  M_L_MULT              MIN_DEVICE_INT_PAR(56)
592,609c624,642
< #define  M_L_PHIT              MIN_DEVICE_INT_PAR(53)
< #define  M_L_NPHIT	       MIN_DEVICE_INT_PAR(54)
< #define  M_L_KO_square_div4    MIN_DEVICE_INT_PAR(55)
< #define  M_L_KOV_square_div4   MIN_DEVICE_INT_PAR(56)
< #define  M_L_KPINV_square4     MIN_DEVICE_INT_PAR(57)
< #define  M_L_PD                MIN_DEVICE_INT_PAR(58)
< #define  M_L_two_PI_COX        MIN_DEVICE_INT_PAR(59)
< #define  M_L_Vlimit	       MIN_DEVICE_INT_PAR(60)
< #define  M_L_THESAT_square     MIN_DEVICE_INT_PAR(61)
< #define  M_L_THER_eff          MIN_DEVICE_INT_PAR(62)
< #define  M_L_ACC               MIN_DEVICE_INT_PAR(63)
< #define  M_L_ACCOV             MIN_DEVICE_INT_PAR(64)
< #define  M_L_ETAMOB2           MIN_DEVICE_INT_PAR(65)
< #define  M_L_QMPSI             MIN_DEVICE_INT_PAR(66)
< #define  M_L_QMTOX             MIN_DEVICE_INT_PAR(67)
< #define  M_L_CHIBINV           MIN_DEVICE_INT_PAR(68)
< #define  M_L_CHIBACC           MIN_DEVICE_INT_PAR(69)
< #define  N_INT_PAR                                70
---
> #define  M_L_PHIT              MIN_DEVICE_INT_PAR(57)
> #define  M_L_NPHIT	       MIN_DEVICE_INT_PAR(58)
> #define  M_L_KO_square_div4    MIN_DEVICE_INT_PAR(59)
> #define  M_L_KOV_square_div4   MIN_DEVICE_INT_PAR(60)
> #define  M_L_KPINV_square4     MIN_DEVICE_INT_PAR(61)
> #define  M_L_PD                MIN_DEVICE_INT_PAR(62)
> #define  M_L_two_PI_COX        MIN_DEVICE_INT_PAR(63)
> #define  M_L_Vlimit	       MIN_DEVICE_INT_PAR(64)
> #define  M_L_THESAT_square     MIN_DEVICE_INT_PAR(65)
> #define  M_L_THER_eff          MIN_DEVICE_INT_PAR(66)
> #define  M_L_ACC               MIN_DEVICE_INT_PAR(67)
> #define  M_L_ACCOV             MIN_DEVICE_INT_PAR(68)
> #define  M_L_ETAMOB2           MIN_DEVICE_INT_PAR(69)
> #define  M_L_QMPSI             MIN_DEVICE_INT_PAR(70)
> #define  M_L_QMTOX             MIN_DEVICE_INT_PAR(71)
> #define  M_L_CHIBINV           MIN_DEVICE_INT_PAR(72)
> #define  M_L_CHIBACC           MIN_DEVICE_INT_PAR(73)
> #define  M_L_CGIDL_square      MIN_DEVICE_INT_PAR(74)
> #define  N_INT_PAR                                75
774a808,811
>     {"AGIDL"    , TRUE,   0.00         , 0x01,  0.0	  , P_INFINITY },
>     {"BGIDL"    , TRUE,  41.00         , 0x01,  0.0	  , P_INFINITY },
>     {"STBGIDL"  , TRUE,  -3.638000e-04 , 0x00, -P_INFINITY, P_INFINITY },
>     {"CGIDL"    , TRUE,   0.00         , 0x01,  0.0	  , P_INFINITY },
832a870,873
>     {"AGIDL"    , TRUE,   0.00         , 0x01,  0.0	  , P_INFINITY },
>     {"BGIDL"    , TRUE,  41.00         , 0x01,  0.0	  , P_INFINITY },
>     {"STBGIDL"  , TRUE,  -3.638000e-04 , 0x00, -P_INFINITY, P_INFINITY },
>     {"CGIDL"    , TRUE,   0.00         , 0x01,  0.0	  , P_INFINITY },
931a973,976
>     {"AGIDLR"    , TRUE,  0.00      , 0x10,  0.0       , P_INFINITY },
>     {"BGIDL"     , TRUE, 41.00      , 0x10,  0.0       , P_INFINITY },
>     {"STBGIDL"   , TRUE, -3.638e-4  , 0x00, -P_INFINITY, P_INFINITY },
>     {"CGIDL"     , TRUE,  0.00      , 0x10,  0.0       , P_INFINITY },
1027a1073,1076
>     {"AGIDLR"    , TRUE,  0.00      , 0x10,  0.0       , P_INFINITY },
>     {"BGIDL"     , TRUE, 41.00      , 0x10,  0.0       , P_INFINITY },
>     {"STBGIDL"   , TRUE, -3.638e-4  , 0x00, -P_INFINITY, P_INFINITY },
>     {"CGIDL"     , TRUE,  0.00      , 0x10,  0.0       , P_INFINITY },
1031c1080
<     {"NT"       , TRUE,  1.656e-20 , 0x10,  0.0       , P_INFINITY },
---
>     {"NT"        , TRUE,  1.656e-20 , 0x10,  0.0       , P_INFINITY },
1146a1196,1207
>     {"POAGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLAGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PWAGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLWAGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"POBGIDL"	 , TRUE, 41.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLBGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PWBGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLWBGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"POCGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLCGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PWCGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLWCGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
1214a1276,1279
>     {"POTBGIDL"	 , TRUE, -3.638e-4  , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLTBGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PWTBGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLWTBGIDL" , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
1324a1390,1401
>     {"POAGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLAGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PWAGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLWAGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"POBGIDL"	 , TRUE, 41.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLBGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PWBGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLWBGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"POCGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLCGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PWCGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLWCGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
1392a1470,1473
>     {"POTBGIDL"	 , TRUE, -3.638e-4  , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLTBGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PWTBGIDL"	 , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
>     {"PLWTBGIDL" , TRUE,  0.00      , 0x00, -P_INFINITY, P_INFINITY },
1500a1582,1583
>               Igidl       = {0.0, 0.0, 0.0, 0.0},
>               Igisl       = {0.0, 0.0, 0.0, 0.0},
1837a1921,1925
>     /*  gate-induced drain leakage parameters  */
>     M_L_AGIDL  = ME_AGIDL;
>     M_L_STBGIDL= ME_STBGIDL;
>     M_L_BGIDL  = ME_BGIDL * ( 1 + delta_tk * M_L_STBGIDL );
>     M_L_CGIDL  = ME_CGIDL;
1853a1942
>     M_L_AGIDL *= ME_MULT;
1976a2066
>     M_L_STBGIDL= scal_typeI(Le_inv,We_inv,MG_POTBGIDL,MG_PLTBGIDL,MG_PWTBGIDL,MG_PLWTBGIDL);
2127d2216
<     /* gate Le_invakage parameters */
2142a2232,2248
>     /*  gate-induced drain leakage parameters  */
> #ifndef BINDEDSCALE
>     M_L_STBGIDL = MG_STBGIDL;
> 
>     M_L_AGIDL   = MG_AGIDLR / We_inv;
> 
>     M_L_BGIDL   = MG_BGIDL * ( 1 + delta_tk * M_L_STBGIDL );
> 
>     M_L_CGIDL   = MG_CGIDL;
> #else
>     M_L_AGIDL   = scal_typeIII(Le_inv,We_inv,MG_POAGIDL,MG_PLAGIDL,MG_PWAGIDL,MG_PLWAGIDL);
> 
>     M_L_BGIDL   = scal_typeI(Le_inv,We_inv,MG_POBGIDL,MG_PLBGIDL,MG_PWBGIDL,MG_PLWBGIDL) * ( 1 + delta_tk * M_L_STBGIDL );
> 
>     M_L_CGIDL   = scal_typeI(Le_inv,We_inv,MG_POCGIDL,MG_PLCGIDL,MG_PWCGIDL,MG_PLWCGIDL);
> #endif
> 
2177a2284
>     M_L_AGIDL *= MG_MULT;
2906c3013
<     real        ev_lim_vds, didv_min, dhypdx, Cin;
---
>     real        ev_lim_vds, didv_min, dhypdx, Cin, CGDO_internal, CGSO_internal;
2953a3061,3066
>         CGDO_internal = M_L_CGSO;
>         CGSO_internal = M_L_CGDO;
>     }
>     else {
>         CGDO_internal = M_L_CGDO;
>         CGSO_internal = M_L_CGSO;
3037a3151,3154
>     /*  Gate-Induced Drain Leakage Current Expressions  */
>        func_Igidl ( &Dummy   , &Vov_0  , &Igisl );
>        func_Igidl ( &Vds_out , &Vov_L  , &Igidl );
> 
3107,3110c3224,3227
<            Idb.value =   Iavl.value;
<            Idb.dVds  =   Iavl.dVds;
<            Idb.dVgs  =   Iavl.dVgs;
<            Idb.dVsb  =   Iavl.dVsb;
---
>            Idb.value =   Iavl.value + Igidl.value;
>            Idb.dVds  =   Iavl.dVds + Igidl.dVds;
>            Idb.dVgs  =   Iavl.dVgs + Igidl.dVgs;
>            Idb.dVsb  =   Iavl.dVsb + Igidl.dVsb;
3112,3115c3229,3232
<            Isb.value =   0.0;
<            Isb.dVds  =   0.0;
<            Isb.dVgs  =   0.0;
<            Isb.dVsb  =   0.0;
---
>            Isb.value =   Igisl.value;
>            Isb.dVds  =   Igisl.dVds;
>            Isb.dVgs  =   Igisl.dVgs;
>            Isb.dVsb  =   Igisl.dVsb;
3124,3127c3241,3244
<            Idb.value =   0.0;
<            Idb.dVds  =   0.0;
<            Idb.dVgs  =   0.0;
<            Idb.dVsb  =   0.0;
---
>            Idb.value =   Igisl.value;
>            Idb.dVds  = - Igisl.dVds - Igisl.dVgs + Igisl.dVsb;
>            Idb.dVgs  =   Igisl.dVgs;
>            Idb.dVsb  =   Igisl.dVsb;
3129,3132c3246,3249
<            Isb.value =   Iavl.value;
<            Isb.dVds  = - Iavl.dVds - Iavl.dVgs + Iavl.dVsb;
<            Isb.dVgs  =   Iavl.dVgs;
<            Isb.dVsb  =   Iavl.dVsb;
---
>            Isb.value =   Iavl.value + Igidl.value;
>            Isb.dVds  = - Iavl.dVds - Iavl.dVgs + Iavl.dVsb - Igidl.dVds - Igidl.dVgs + Igidl.dVsb;
>            Isb.dVgs  =   Iavl.dVgs + Igidl.dVgs;
>            Isb.dVsb  =   Iavl.dVsb + Igidl.dVsb;
3196c3313
<        if (M_L_A1 != 0.0 || M_L_IGACC != 0.0) {
---
>        if (M_L_A1 != 0.0 || M_L_IGACC != 0.0 || M_L_AGIDL != 0.0) {
3351,3354c3468,3471
< 	Qov_0.value = M_L_CGSO * Vov_0.value;
< 	Qov_0.dVgs  = M_L_CGSO * Vov_0.dVgs;
< 	Qov_0.dVds  = M_L_CGSO * Vov_0.dVds;
< 	Qov_0.dVsb  = M_L_CGSO * Vov_0.dVsb;
---
> 	Qov_0.value = CGSO_internal * Vov_0.value;
> 	Qov_0.dVgs  = CGSO_internal * Vov_0.dVgs;
> 	Qov_0.dVds  = CGSO_internal * Vov_0.dVds;
> 	Qov_0.dVsb  = CGSO_internal * Vov_0.dVsb;
3357,3360c3474,3477
< 	Qov_L.value = M_L_CGDO * Vov_L.value;
< 	Qov_L.dVgs  = M_L_CGDO * Vov_L.dVgs;
< 	Qov_L.dVds  = M_L_CGDO * Vov_L.dVds;
< 	Qov_L.dVsb  = M_L_CGDO * Vov_L.dVsb;
---
> 	Qov_L.value = CGDO_internal * Vov_L.value;
> 	Qov_L.dVgs  = CGDO_internal * Vov_L.dVgs;
> 	Qov_L.dVds  = CGDO_internal * Vov_L.dVds;
> 	Qov_L.dVsb  = CGDO_internal * Vov_L.dVsb;
4311d4427
< 
4556a4673,4718
> static void func_Igidl ( 
> 	struct	ev_derivs	*p_V,		/* in  */
> 	struct	ev_derivs	*p_Vox,		/* in  */
> 	struct	ev_derivs	*p_Igidl)	/* out */
> 
> /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
>  *  Functionality  : calc Igidl or Igisl and 1st derivative to Vgs, Vds and Vsb
>  *  Globals        : 
>  *  Return_value   : 
>  *- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*/
> /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
>  *  Returns Igisl or Igidl depending on p_V and p_Vox
>  *- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*/
> {
>     real  x, Vx, Vox, E, dE_dVox, dE_dVx, dI_dVx, dI_dVox , dhypdx;
> 
>     Vx     = p_V->value + Vsb;
>     Vox    = p_Vox->value - hypf( p_Vox->value , EPS5, &dhypdx );
>     E      = sqrt( Vox * Vox + M_L_CGIDL_square * Vx * Vx );
> 
>     if ((E <= - M_L_BGIDL/LN_MINDOUBLE) || (M_L_AGIDL == 0.0) ) {
> 
>         p_Igidl->value = 0.0;
>         p_Igidl->dVgs  = 0.0;
>         p_Igidl->dVds  = 0.0;
>         p_Igidl->dVsb  = 0.0;
> 
>     } else {
> 
>         dE_dVox = p_Vox->value * ( 1.0 - dhypdx ) / E;
>         dE_dVx  = M_L_CGIDL_square * Vx / E;
> 
>         x       = M_L_AGIDL * exp ( - M_L_BGIDL / E );
> 
>         p_Igidl->value = Vx * E * E * x;
>         dI_dVx  = x * ( E * E + Vx * ( M_L_BGIDL + 2.0 * E ) * dE_dVx );
>         dI_dVox = x * Vx * ( M_L_BGIDL + 2.0 * E ) * dE_dVox;
>         p_Igidl->dVgs  = dI_dVx * ( p_V->dVgs  + 0.0 ) + dI_dVox * p_Vox->dVgs;
>         p_Igidl->dVds  = dI_dVx * ( p_V->dVds  + 0.0 ) + dI_dVox * p_Vox->dVds;
>         p_Igidl->dVsb  = dI_dVx * ( p_V->dVsb  + 1.0 ) + dI_dVox * p_Vox->dVsb;
> 
>    }
> 
> }                                             /* end of func_Igidl */
> _FF_
> 
4844a5007
>     M_L_CGIDL_square   = M_L_CGIDL * M_L_CGIDL;