1 
2 
3 #include "SimTKmath.h"
4 using SimTK::Real;
5 using SimTK::Vector;
6 using SimTK::Matrix;
7 using SimTK::isNaN;
8 using SimTK::isFinite;
9 using SimTK::Optimizer;
10 using SimTK::OptimizerSystem;
11 
12 #include <cstdlib>
13 #include <cassert>
14 #include <cstdio>
15 #include <cmath>
16 #include <limits>
17 
18 #include "nlpqlp.h"
19 
pow_ii(int * ap,int * bp)20 static int pow_ii(int *ap, int *bp) {
21     int pow, x, n;
22 
23     pow = 1;
24     x = *ap;
25     n = *bp;
26 
27     if(n < 0)
28         { }
29     else if(n > 0)
30         for( ; ; )
31             {
32             if(n & 01)
33                 pow *= x;
34             if(n >>= 1)
35                 x *= x;
36             else
37                 break;
38             }
39     return(pow);
40 }
41 
42 static const Real log10e = 0.43429448190325182765;
d_lg10(Real * x)43 Real  d_lg10(Real *x)
44 {
45 
46 return( log10e * log(*x) );
47 }
d_sign(Real * a,Real * b)48 static Real d_sign(Real *a, Real *b)
49 {
50    Real x;
51    x = (*a >= 0 ? *a : - *a);
52    return( *b >= 0 ? x : -x);
53 }
pow_di(Real * ap,int * bp)54 static Real pow_di(Real *ap, int *bp)
55 {
56 Real pow, x;
57 int n;
58 
59 pow = 1;
60 x = *ap;
61 n = *bp;
62 
63 if(n != 0)
64     {
65     if(n < 0)
66         {
67         n = -n;
68         x = 1/x;
69         }
70     for( ; ; )
71         {
72         if(n & 01)
73             pow *= x;
74         if(n >>= 1)
75             x *= x;
76         else
77             break;
78         }
79     }
80 return(pow);
81 }
82 
83 int (*current_test)(int*);
84 
85 typedef struct l20_values {
86              bool lex;
87         int nex;
88         Real fex, *xex;
89 }*L20_vals;
90 
91 typedef struct l1_values {
92         int n,nili,ninl,neli,nenl;
93 }*L1_vals;
94 
95 int tp1_(int*),tp2_(int*),tp3_(int*),tp4_(int*),tp5_(int*),tp6_(int*),tp7_(int*),tp8_(int*),tp9_(int*),tp10_(int*);
96 int tp11_(int*),tp12_(int*),tp13_(int*),tp14_(int*),tp15_(int*),tp16_(int*),tp17_(int*),tp18_(int*),tp19_(int*),tp20_(int*);
97 int tp21_(int*),tp22_(int*),tp23_(int*),tp24_(int*),tp25_(int*),tp26_(int*),tp27_(int*),tp28_(int*),tp29_(int*),tp30_(int*);
98 int tp31_(int*),tp32_(int*),tp33_(int*),tp34_(int*),tp35_(int*),tp36_(int*),tp37_(int*),tp38_(int*),tp39_(int*),tp40_(int*);
99 int tp41_(int*),tp42_(int*),tp43_(int*),tp44_(int*),tp45_(int*),tp46_(int*),tp47_(int*),tp48_(int*),tp49_(int*),tp50_(int*);
100 int tp51_(int*),tp52_(int*),tp53_(int*),tp54_(int*),tp55_(int*),tp56_(int*),tp57_(int*),tp58_(int*),tp59_(int*),tp60_(int*);
101 int tp61_(int*),tp62_(int*),tp63_(int*),tp64_(int*),tp65_(int*),tp66_(int*),tp67_(int*),tp68_(int*),tp69_(int*),tp70_(int*);
102 int tp71_(int*),tp72_(int*),tp73_(int*),tp74_(int*),tp75_(int*),tp76_(int*),tp77_(int*),tp78_(int*),tp79_(int*),tp80_(int*);
103 int tp81_(int*),tp82_(int*),tp83_(int*),tp84_(int*),tp85_(int*),tp86_(int*),tp87_(int*),tp88_(int*),tp89_(int*),tp90_(int*);
104 int tp91_(int*),tp92_(int*),tp93_(int*),tp94_(int*),tp95_(int*),tp96_(int*),tp97_(int*),tp98_(int*),tp99_(int*),tp100_(int*);
105 int tp101_(int*),tp102_(int*),tp103_(int*),tp104_(int*),tp105_(int*),tp106_(int*),tp107_(int*),tp108_(int*),tp109_(int*),tp110_(int*);
106 int tp111_(int*),tp112_(int*),tp113_(int*),tp114_(int*),             tp116_(int*),tp117_(int*),tp118_(int*),tp119_(int*);
107 int tp201_(int*),tp202_(int*),tp203_(int*),tp204_(int*),tp205_(int*),tp206_(int*),tp207_(int*),tp208_(int*),tp209_(int*),tp210_(int*);
108 int tp211_(int*),tp212_(int*),tp213_(int*),tp214_(int*),tp215_(int*),tp216_(int*),tp217_(int*),tp218_(int*),tp219_(int*),tp220_(int*);
109 int tp221_(int*),tp222_(int*),tp223_(int*),tp224_(int*),tp225_(int*),tp226_(int*),tp227_(int*),tp228_(int*),tp229_(int*),tp230_(int*);
110 int tp231_(int*),tp232_(int*),tp233_(int*),tp234_(int*),tp235_(int*),tp236_(int*),tp237_(int*),tp238_(int*),tp239_(int*),tp240_(int*);
111 int tp241_(int*),tp242_(int*),tp243_(int*),tp244_(int*),tp245_(int*),tp246_(int*),tp247_(int*),tp248_(int*),tp249_(int*),tp250_(int*);
112 int tp251_(int*),tp252_(int*),tp253_(int*),tp254_(int*),tp255_(int*),tp256_(int*),tp257_(int*),tp258_(int*),tp259_(int*),tp260_(int*);
113 int tp261_(int*),tp262_(int*),tp263_(int*),tp264_(int*),tp265_(int*),tp266_(int*),tp267_(int*),tp268_(int*),tp269_(int*),tp270_(int*);
114 int tp271_(int*),tp272_(int*),tp273_(int*),tp274_(int*),tp275_(int*),tp276_(int*),tp277_(int*),tp278_(int*),tp279_(int*),tp280_(int*);
115 int tp281_(int*),tp282_(int*),tp283_(int*),tp284_(int*),tp285_(int*),tp286_(int*),tp287_(int*),tp288_(int*),tp289_(int*),tp290_(int*);
116 int tp291_(int*),tp292_(int*),tp293_(int*),tp294_(int*),tp295_(int*),tp296_(int*),tp297_(int*),tp298_(int*),tp299_(int*),tp300_(int*);
117 int tp301_(int*),tp302_(int*),tp303_(int*),tp304_(int*),tp305_(int*),tp306_(int*),tp307_(int*),tp308_(int*),tp309_(int*),tp310_(int*);
118 int tp311_(int*),tp312_(int*),tp313_(int*),tp314_(int*),tp315_(int*),tp316_(int*),tp317_(int*),tp318_(int*),tp319_(int*),tp320_(int*);
119 int tp321_(int*),tp322_(int*),tp323_(int*),tp324_(int*),tp325_(int*),tp326_(int*),tp327_(int*),tp328_(int*),tp329_(int*),tp330_(int*);
120 int tp331_(int*),tp332_(int*),tp333_(int*),tp334_(int*),tp335_(int*),tp336_(int*),tp337_(int*),tp338_(int*),tp339_(int*),tp340_(int*);
121 int tp341_(int*),tp342_(int*),tp343_(int*),tp344_(int*),tp345_(int*),tp346_(int*),tp347_(int*),tp348_(int*),tp349_(int*),tp350_(int*);
122 int tp351_(int*),tp352_(int*),tp353_(int*),tp354_(int*),tp355_(int*),tp356_(int*),tp357_(int*),tp358_(int*),tp359_(int*),tp360_(int*);
123 int tp361_(int*),tp362_(int*),tp363_(int*);
124 
125 static int (*(tests[]))(int*) = {  tp1_,  tp2_,  tp3_,  tp4_,  tp5_,  tp6_,  tp7_,  tp8_,  tp9_, tp10_,
126                            tp11_, tp12_, tp13_, tp14_, tp15_, tp16_, tp17_, tp18_, tp19_, tp20_,
127                            tp21_, tp22_, tp23_, tp24_, tp25_, tp26_, tp27_, tp28_, tp29_, tp30_,
128                            tp31_, tp32_, tp33_, tp34_, tp35_, tp36_, tp37_, tp38_, tp39_, tp40_,
129                            tp41_, tp42_, tp43_, tp44_, tp45_, tp46_, tp47_, tp48_, tp49_, tp50_,
130                            tp51_, tp52_, tp53_, tp54_, tp55_, tp56_, tp57_, tp58_, tp59_, tp60_,
131                            tp61_, tp62_, tp63_, tp64_, tp65_, tp66_, tp67_, tp68_, tp69_, tp70_,
132                            tp71_, tp72_, tp73_, tp74_, tp75_, tp76_, tp77_, tp78_, tp79_, tp80_,
133                            tp81_,        tp83_, tp84_, tp85_, tp86_, tp87_, tp88_, tp89_, tp90_,
134                            tp91_, tp92_, tp93_,        tp95_, tp96_, tp97_, tp98_, tp99_, tp100_,
135                            tp101_, tp102_, tp103_, tp104_, tp105_, tp106_, tp107_, tp108_, tp109_, tp110_,
136                            tp111_, tp112_, tp113_, tp114_,         tp116_, tp117_, tp118_, tp119_,
137                            tp201_, tp202_, tp203_, tp204_, tp205_, tp206_, tp207_, tp208_, tp209_, tp210_,
138                            tp211_, tp212_, tp213_, tp214_, tp215_, tp216_, tp217_, tp218_, tp219_, tp220_,
139                            tp221_, tp222_, tp223_, tp224_, tp225_, tp226_, tp227_, tp228_, tp229_, tp230_,
140                            tp231_, tp232_, tp233_, tp234_, tp235_, tp236_, tp237_, tp238_, tp239_, tp240_,
141                            tp241_, tp242_, tp243_, tp244_, tp245_, tp246_, tp247_, tp248_, tp249_, tp250_,
142                            tp251_, tp252_, tp253_, tp254_, tp255_, tp256_, tp257_, tp258_, tp259_, tp260_,
143                            tp261_, tp262_, tp263_, tp264_, tp265_, tp266_, tp267_, tp268_, tp269_, tp270_,
144                            tp271_, tp272_, tp273_, tp274_, tp275_, tp276_, tp277_, tp278_, tp279_, tp280_,
145                            tp281_, tp282_, tp283_, tp284_, tp285_, tp286_, tp287_, tp288_, tp289_, tp290_,
146                            tp291_, tp292_, tp293_, tp294_, tp295_, tp296_, tp297_, tp298_, tp299_, tp300_,
147                            tp301_, tp302_, tp303_, tp304_, tp305_, tp306_, tp307_, tp308_, tp309_, tp310_,
148                            tp311_, tp312_, tp313_, tp314_, tp315_, tp316_, tp317_, tp318_, tp319_, tp320_,
149                            tp321_, tp322_, tp323_, tp324_, tp325_, tp326_, tp327_, tp328_, tp329_, tp330_,
150                            tp331_, tp332_, tp333_, tp334_, tp335_, tp336_, tp337_, tp338_, tp339_, tp340_,
151                            tp341_, tp342_, tp343_, tp344_, tp345_, tp346_, tp347_, tp348_, tp349_, tp350_,
152                            tp351_, tp352_, tp353_, tp354_, tp355_, tp356_, tp357_, tp358_, tp359_, tp360_,
153                            tp361_, tp362_, tp363_
154                          };
155 
156 static const char *test_names[] = {     "tp1_",  "tp2_",  "tp3_",  "tp4_",  "tp5_",  "tp6_",  "tp7_",  "tp8_",  "tp9_", "tp10_",
157                            "tp11_", "tp12_", "tp13_", "tp14_", "tp15_", "tp16_", "tp17_", "tp18_", "tp19_", "tp20_",
158                            "tp21_", "tp22_", "tp23_", "tp24_", "tp25_", "tp26_", "tp27_", "tp28_", "tp29_", "tp30_",
159                            "tp31_", "tp32_", "tp33_", "tp34_", "tp35_", "tp36_", "tp37_", "tp38_", "tp39_", "tp40_",
160                            "tp41_", "tp42_", "tp43_", "tp44_", "tp45_", "tp46_", "tp47_", "tp48_", "tp49_", "tp50_",
161                            "tp51_", "tp52_", "tp53_", "tp54_", "tp55_", "tp56_", "tp57_", "tp58_", "tp59_", "tp60_",
162                            "tp61_", "tp62_", "tp63_", "tp64_", "tp65_", "tp66_", "tp67_", "tp68_", "tp69_", "tp70_",
163                            "tp71_", "tp72_", "tp73_", "tp74_", "tp75_", "tp76_", "tp77_", "tp78_", "tp79_", "tp80_",
164                            "tp81_",        "tp83_", "tp84_", "tp85_", "tp86_", "tp87_", "tp88_", "tp89_", "tp90_",
165                            "tp91_", "tp92_", "tp93_",        "tp95_", "tp96_", "tp97_", "tp98_", "tp99_", "tp100_",
166                            "tp101_", "tp102_", "tp103_", "tp104_", "tp105_", "tp106_", "tp107_", "tp108_", "tp109_", "tp110_",
167                            "tp111_", "tp112_", "tp113_", "tp114_",         "tp116_", "tp117_", "tp118_", "tp119_",
168                            "tp201_", "tp202_", "tp203_", "tp204_", "tp205_", "tp206_", "tp207_", "tp208_", "tp209_", "tp210_",
169                            "tp211_", "tp212_", "tp213_", "tp214_", "tp215_", "tp216_", "tp217_", "tp218_", "tp219_", "tp220_",
170                            "tp221_", "tp222_", "tp223_", "tp224_", "tp225_", "tp226_", "tp227_", "tp228_", "tp229_", "tp230_",
171                            "tp231_", "tp232_", "tp233_", "tp234_", "tp235_", "tp236_", "tp237_", "tp238_", "tp239_", "tp240_",
172                            "tp241_", "tp242_", "tp243_", "tp244_", "tp245_", "tp246_", "tp247_", "tp248_", "tp249_", "tp250_",
173                            "tp251_", "tp252_", "tp253_", "tp254_", "tp255_", "tp256_", "tp257_", "tp258_", "tp259_", "tp260_",
174                            "tp261_", "tp262_", "tp263_", "tp264_", "tp265_", "tp266_", "tp267_", "tp268_", "tp269_", "tp270_",
175                            "tp271_", "tp272_", "tp273_", "tp274_", "tp275_", "tp276_", "tp277_", "tp278_", "tp279_", "tp280_",
176                            "tp281_", "tp282_", "tp283_", "tp284_", "tp285_", "tp286_", "tp287_", "tp288_", "tp289_", "tp290_",
177                            "tp291_", "tp292_", "tp293_", "tp294_", "tp295_", "tp296_", "tp297_", "tp298_", "tp299_", "tp300_",
178                            "tp301_", "tp302_", "tp303_", "tp304_", "tp305_", "tp306_", "tp307_", "tp308_", "tp309_", "tp310_",
179                            "tp311_", "tp312_", "tp313_", "tp314_", "tp315_", "tp316_", "tp317_", "tp318_", "tp319_", "tp320_",
180                            "tp321_", "tp322_", "tp323_", "tp324_", "tp325_", "tp326_", "tp327_", "tp328_", "tp329_", "tp330_",
181                            "tp331_", "tp332_", "tp333_", "tp334_", "tp335_", "tp336_", "tp337_", "tp338_", "tp339_", "tp340_",
182                            "tp341_", "tp342_", "tp343_", "tp344_", "tp345_", "tp346_", "tp347_", "tp348_", "tp349_", "tp350_",
183                            "tp351_", "tp352_", "tp353_", "tp354_", "tp355_", "tp356_", "tp357_", "tp358_", "tp359_", "tp360_",
184                            "tp361_", "tp362_", "tp363_"
185                          };
186 extern L1 l1_;
187 extern L2 l2_;
188 extern L3 l3_;
189 extern L4 l4_;
190 extern L5 l5_;
191 extern L6 l6_;
192 extern L9 l9_;
193 extern L10 l10_;
194 extern L11 l11_;
195 extern L12 l12_;
196 extern L13 l13_;
197 extern L14 l14_;
198 extern L20 l20_;
init_common_blocks()199 void init_common_blocks() {
200   int *iptr,i;
201   Real *rptr;
202   bool *bptr;
203 
204   iptr = (int*)&l1_;  for(i=0;i<4;i++) *iptr++= std::numeric_limits<int>::quiet_NaN();
205   rptr = (SimTK::Real*)&l2_;  for(i=0;i<100;i++) *rptr++= std::numeric_limits<double>::quiet_NaN();
206   rptr = (SimTK::Real*)&l3_;  for(i=0;i<45;i++) *rptr++= std::numeric_limits<double>::quiet_NaN();
207   rptr = (SimTK::Real*)&l4_;  for(i=0;i<100;i++) *rptr++= std::numeric_limits<double>::quiet_NaN();
208   rptr = (SimTK::Real*)&l5_;  for(i=0;i<435;i++) *rptr++= std::numeric_limits<double>::quiet_NaN();
209   rptr = (SimTK::Real*)&l6_;  for(i=0;i<1;i++) *rptr++= std::numeric_limits<double>::quiet_NaN();
210   bptr = (bool*)&l9_;  for(i=0;i<45;i++) *bptr++= false;
211   bptr = (bool*)&l10_;  for(i=0;i<38;i++) *bptr++= false;
212   bptr = (bool*)&l11_;  for(i=0;i<100;i++) *bptr++= false;
213   bptr = (bool*)&l12_;  for(i=0;i<100;i++) *bptr++= false;
214   rptr = (SimTK::Real*)&l13_;  for(i=0;i<100;i++) *rptr++= std::numeric_limits<double>::quiet_NaN();
215   rptr = (SimTK::Real*)&l14_;  for(i=0;i<100;i++) *rptr++= std::numeric_limits<double>::quiet_NaN();
216 
217 
218   return;
219 }
220 
221 /* Function Implementations */
222 class ProblemSystem : public OptimizerSystem {
223 public:
224 
225     int m;
226 
objectiveFunc(const Vector & coefficients,bool new_coefficients,Real & f) const227     int objectiveFunc(  const Vector &coefficients, bool new_coefficients, Real& f ) const override {
228         int mode = 2;
229         int i;
230 
231         Real *nx = (Real *)&l2_;
232         for(i=0;i<getNumParameters();i++) nx[i] = coefficients(i);
233         current_test(&mode);
234 
235         f = l6_.fx;
236         if( !isFinite(f) ) {
237             printf(" objective is not finite \n");
238             exit(0);
239         }
240         /*
241         printf("f = %f   x=",f);
242         for(i=0;i<numParameters;i++)printf(" %f",coefficients(i)); printf("\n");
243         */
244 
245         return (0);
246     }
247 
gradientFunc(const Vector & coefficients,bool new_coefficients,Vector & gradient) const248     int gradientFunc( const Vector &coefficients, bool new_coefficients, Vector &gradient ) const override {
249         int i,mode = 3;
250         int fmode = 2;
251 
252         Real *nx = (Real *)&l2_;
253         for(i=0;i<getNumParameters();i++) nx[i] = coefficients(i);
254 
255         current_test(&fmode);   // bug in tp260_ assumes objective has been calculated prior to gradient calc.
256         current_test(&mode);
257 
258         Real *g = (Real*)&l4_;
259         for(i=0;i<getNumParameters();i++)  {
260             if( !isFinite(g[i]) ) {
261                 printf(" gradient is not finite i=%d g[i]=%f\n",i,g[i]);
262                 exit(0);
263             }
264             gradient(i) = g[i];
265         }
266 
267         return(0);
268     }
269 
constraintFunc(const Vector & coefficients,bool new_coefficients,Vector & constraints) const270     int constraintFunc( const Vector &coefficients, bool new_coefficients, Vector &constraints)  const override {
271         int i,mode = 4;
272 
273         Real *nx = (Real *)&l2_;
274         for(i=0;i<getNumParameters();i++) nx[i] = coefficients[i];
275         current_test(&mode);
276 
277         Real *cv = (Real*)&l3_;
278         for(i=0;i<m;i++)  {
279             if( !isFinite(cv[i]) ) {
280                 printf(" constraint is not finite \n");
281                 exit(0);
282             }
283             constraints(i) = cv[i];
284         }
285 
286         return(0);
287     }
288 
constraintJacobian(const Vector & coefficients,bool new_coefficients,Matrix & jac) const289     int constraintJacobian( const Vector& coefficients, bool new_coefficients, Matrix& jac)  const override {
290         int i,j;
291         int mode = 5;
292 
293 
294         Real *nx = (Real *)&l2_;
295         for(i=0;i<getNumParameters();i++) nx[i] = coefficients(i);
296 
297         current_test(&mode);
298         Real *jv = (Real*)&l5_;
299         for(j=0;j<getNumEqualityConstraints();j++) {
300             for(i=0;i<getNumParameters();i++) {
301                 if( !isFinite(jv[i*m+j]) ) {
302                     printf(" jacobian(%d,%d) is not finite index=%d\n",j,i,i*getNumEqualityConstraints()+j);
303                     exit(0);
304                 }
305                 jac(j,i) = jv[i*m+j];   // original
306                 //          jac(j,i) = jv[i+getNumParameters()*j];
307             }
308         }
309         return (0);
310     }
311 
ProblemSystem(const int numParams,const int numEqualityConstraints,const int numInEqualityConstraints)312     ProblemSystem( const int numParams, const int numEqualityConstraints, const int numInEqualityConstraints)
313     :   OptimizerSystem( numParams ) {
314         setNumEqualityConstraints( numEqualityConstraints );
315         setNumInequalityConstraints( numInEqualityConstraints );
316 
317         m = numEqualityConstraints+ numInEqualityConstraints;
318     }
319 
ProblemSystem(const int numParams)320     ProblemSystem( const int numParams) : OptimizerSystem( numParams ) {}
321 
322 };
323 
324 /* Main Program */
main()325 int main()
326 {
327   int j, num_tests=0,num_passed=0;
328   bool run_test( int );
329   void init_common_blocks();
330   int failures [] = { 27, 74, 75, 76, 97, 99, 103, 107, 112, 114, 133, 135, 136,
331                       162, 164, 176, 182, 184,  197, 222, 223,
332                       224, 241, 248, 265,  277 };
333    int fail64bit[] = { 76, 99, 103, 136, 164, 184 };
334 
335 
336    for( j=0;j<279;j++) {
337 //   for( j=0;j<20;j++) {
338 //   for( j=83;j<86;j++) {
339 //   for( l=0;l<26;l++) {
340 //   for( l=0;l<1;l++) {
341 //      j = failures[l]-1;
342 
343       num_tests++;
344       init_common_blocks();
345       if( run_test( j ) ) num_passed++;
346    }
347 
348    printf(" %d PASSED     out of  %d tests   pass rate = %f %%\n",num_passed, num_tests, 100.0*(float)num_passed/(float)num_tests);
349    return 0;
350 }
351 
run_test(int j)352 bool run_test(int j ) {
353 
354   L20_vals expect;
355   L1_vals ndim;
356 
357   Real *initial_values,f;
358   int mode = 1;
359   int n,m,i;
360   bool *index1, *index2;
361 
362   current_test = tests[j];
363   current_test(&mode);
364 
365   ndim = (L1_vals)&l1_;
366   n = ndim->n;
367   m = ndim->nili + ndim->ninl + ndim->neli + ndim->nenl;
368 
369   ProblemSystem sys( n,  ndim->neli + ndim->nenl, ndim->nili + ndim->ninl );
370 
371   index1 = (bool *)&l9_;
372   for(i=0;i<m;i++)  index1[i] = true;
373 
374   /* initialize the L10 common block for which constaint gradients are computed for mode 5. */
375   index2 = (bool *)&l10_;
376   for(i=0;i<m;i++)  index2[i] = true;
377 
378 
379   Vector results(n);
380   Vector lower_bounds(n);
381   Vector upper_bounds(n);
382   initial_values = (Real *)&l2_;
383   for(i=0;i<n;i++) {
384      results(i) = initial_values[i];
385   }
386 
387   /* set the values for the variable bounds */
388 
389   bool *lxl = (bool *)&l11_;
390   bool *lxu = (bool *)&l12_;
391   Real *xl = (Real *)&l13_;
392   Real *xu = (Real *)&l14_;
393   bool has_limits = false;
394   for (i=0; i<n; i++) {
395      if( lxl[i] ) {
396         has_limits = true;
397         lower_bounds(i) = xl[i];
398      } else {
399         lower_bounds(i) = -2e19;
400      }
401      if( lxu[i] ) {
402         has_limits = true;
403         upper_bounds(i) = xu[i];
404      } else {
405         upper_bounds(i) = 2e19;
406      }
407   }
408 
409   if( has_limits ) {
410      sys.setParameterLimits( lower_bounds, upper_bounds );
411   }
412   /* set the number of constraints and allocate space for the bounds */
413 
414 
415   bool converged = true;
416   try {
417 
418     Optimizer opt( sys );
419 
420 //    opt.setConvergenceTolerance( .0001 );
421     opt.setConvergenceTolerance( 1e-3 );
422 
423 //    opt.useNumericalGradient( true );
424     opt.useNumericalJacobian( true );
425 //    opt.setDiagnosticsLevel( 7 );
426 
427     // some tests do nor supply gradients
428     if( j == 248-1 ||
429         j == 264-1 ||
430         j == 265-1 ||
431         j == 272-1 ||
432         j == 273-1 ||
433         j == 277-1 ||
434         j == 278-1 ||
435         j == 279-1 ) {
436          opt.useNumericalGradient( true );
437          opt.useNumericalJacobian( true );
438     }
439 
440     opt.setDiagnosticsLevel( 0 );
441 
442     printf("%d %s ",j+1, test_names[j]);
443     /* compute  optimization */
444     f = opt.optimize( results );
445   }
446   catch (const std::exception&) {
447     converged = false;
448   }
449 
450   if (converged ) {
451     expect = (L20_vals)&l20_;
452     printf("f(x*) = %e  expected = %e  diff=%e", f,expect->fex,f - expect->fex);
453     if( fabs(f - expect->fex) < 1.0e-4 ) {
454          printf("\n");
455     } else {
456        printf(" *** %d \n",j+1);
457     }
458   } else {
459     printf("#### Failed to converge #### \n" );
460   }
461 
462   return( converged );
463  } /* end of test */
464 
465 
466 /* prob.f -- translated by f2c (version 19991025).
467    You must link the resulting object file with the libraries:
468     -lf2c -lm   (in that order)
469 */
470 
471 L1 l1_;
472 L2 l2_;
473 L3 l3_;
474 L4 l4_;
475 L5 l5_;
476 L6 l6_;
477 L9 l9_;
478 L10 l10_;
479 L11 l11_;
480 L12 l12_;
481 L13 l13_;
482 L14 l14_;
483 L20 l20_;
484 
485 
486 /* Table of constant values */
487 
488 static Real c_b74 = .33333333333333331;
489 static Real c_b305 = 2.;
490 static Real c_b306 = -.33333333333333331;
491 static Real c_b308 = -.5;
492 static Real c_b310 = -.91666666666666663;
493 static Real c_b312 = -.25;
494 static Real c_b590 = .5;
495 static int c_n1 = -1;
496 static Real c_b933 = .66666666666666663;
497 static Real c_b934 = .25;
498 static Real c_b940 = 1.5;
499 static Real c_b949 = .75;
500 static Real c_b993 = .67;
501 static Real c_b997 = -.33;
502 static Real c_b998 = -.67;
503 static Real c_b1002 = -1.67;
504 static Real c_b1008 = -.71;
505 static Real c_b1009 = -1.3;
506 static Real c_b1015 = -1.71;
507 static Real c_b1016 = -2.3;
508 static Real c_b1157 = .2;
509 static Real c_b1523 = 3.;
510 static int c__1 = 1;
511 static int c__2 = 2;
512 static Real c_b1920 = -.66666666666666663;
513 static Real c_b2003 = -1.;
514 static Real c_b2368 = .35;
515 static Real c_b2380 = .33333333;
516 static Real c_b2383 = .782;
517 static Real c_b2387 = .546;
518 static Real c_b2390 = .3;
519 static Real c_b2391 = .467;
520 static Real c_b2746 = .666;
521 static Real c_b2748 = 1.6;
522 static Real c_b2752 = 3.55;
523 static Real c_b2753 = 5.66;
524 static Real c_b2754 = 1.2;
525 static Real c_b2757 = 2.42;
526 static Real c_b2758 = 4.17;
527 static Real c_b2761 = .803;
528 static Real c_b2782 = .334;
529 static Real c_b2789 = .6;
530 static Real c_b2800 = 4.66;
531 static Real c_b2801 = 2.55;
532 static Real c_b2813 = 1.42;
533 static Real c_b2816 = 3.17;
534 static Real c_b2823 = .197;
535 static Real c_b3046 = .827;
536 static Real c_b3047 = .182;
537 static Real c_b3048 = 10.;
538 static Real c_b3049 = 3.378;
539 static Real c_b3050 = .126;
540 static Real c_b3053 = 20.;
541 static Real c_b3054 = .656;
542 
543 /* Initialized data */
544 
545 static struct {
546     Real e_1[2];
547     Real fill_2[201];
548     int e_3;
549     } b_ = { .3, 7.263e-4, {0}, 98 };
550 
551 
tp1_(int * mode)552 /* Subroutine */ int tp1_(int *mode)
553 {
554     /* System generated locals */
555     Real d__1, d__2, d__3;
556 
557     switch ((int)*mode) {
558     case 1:  goto labelL1;
559     case 2:  goto labelL2;
560     case 3:  goto labelL3;
561     case 4:  goto labelL4;
562     case 5:  goto labelL4;
563     }
564 labelL1:
565     l1_1.n = 2;
566     l1_1.nili = 0;
567     l1_1.ninl = 0;
568     l1_1.neli = 0;
569     l1_1.nenl = 0;
570     l2_1.x[0] = -2.;
571     l2_1.x[1] = 1.;
572     l11_1.lxl[0] = false;
573     l11_1.lxl[1] = true;
574     l12_1.lxu[0] = false;
575     l12_1.lxu[1] = false;
576     l13_1.xl[1] = -1.5;
577     l20_1.lex = true;
578     l20_1.nex = 1;
579     l20_1.xex[0] = 1.;
580     l20_1.xex[1] = 1.;
581     l20_1.fex = 0.;
582     return 0;
583 labelL2:
584 /* Computing 2nd power */
585     d__2 = l2_1.x[0];
586 /* Computing 2nd power */
587     d__1 = l2_1.x[1] - d__2 * d__2;
588 /* Computing 2nd power */
589     d__3 = 1. - l2_1.x[0];
590     l6_1.fx = d__1 * d__1 * 100. + d__3 * d__3;
591     return 0;
592 labelL3:
593 /* Computing 2nd power */
594     d__1 = l2_1.x[0];
595     l4_1.gf[1] = (l2_1.x[1] - d__1 * d__1) * 200.;
596     l4_1.gf[0] = (l2_1.x[0] * (l4_1.gf[1] - 1.) + 1.) * -2.;
597 labelL4:
598     return 0;
599 } /* tp1_ */
600 
601 
tp2_(int * mode)602 /* Subroutine */ int tp2_(int *mode)
603 {
604     /* System generated locals */
605     Real r__1;
606     Real d__1, d__2, d__3;
607 
608     /* Local variables */
609     static Real w1;
610 
611     switch ((int)*mode) {
612     case 1:  goto labelL1;
613     case 2:  goto labelL2;
614     case 3:  goto labelL3;
615     case 4:  goto labelL4;
616     case 5:  goto labelL4;
617     }
618 labelL1:
619     l1_1.n = 2;
620     l1_1.nili = 0;
621     l1_1.ninl = 0;
622     l1_1.neli = 0;
623     l1_1.nenl = 0;
624     l2_1.x[0] = -2.;
625     l2_1.x[1] = 1.;
626     l11_1.lxl[0] = false;
627     l11_1.lxl[1] = true;
628     l12_1.lxu[0] = false;
629     l12_1.lxu[1] = false;
630     l13_1.xl[1] = 1.5;
631     l20_1.lex = true;
632     l20_1.nex = 1;
633     w1 = std::sqrt(.49833333333333335);
634 /* Computing 3rd power */
635     r__1 = w1;
636     l20_1.xex[0] = w1 * 2. * std::cos(std::acos(.0025 / (r__1 * (r__1 * r__1))) / 3.);
637     l20_1.xex[1] = 1.5;
638 /* Computing 2nd power */
639     d__2 = l20_1.xex[0];
640 /* Computing 2nd power */
641     d__1 = l20_1.xex[1] - d__2 * d__2;
642 /* Computing 2nd power */
643     d__3 = 1. - l20_1.xex[0];
644     l20_1.fex = d__1 * d__1 * 100. + d__3 * d__3;
645     return 0;
646 labelL2:
647 /* Computing 2nd power */
648     d__2 = l2_1.x[0];
649 /* Computing 2nd power */
650     d__1 = l2_1.x[1] - d__2 * d__2;
651 /* Computing 2nd power */
652     d__3 = 1. - l2_1.x[0];
653     l6_1.fx = d__1 * d__1 * 100. + d__3 * d__3;
654     return 0;
655 labelL3:
656 /* Computing 2nd power */
657     d__1 = l2_1.x[0];
658     l4_1.gf[1] = (l2_1.x[1] - d__1 * d__1) * 200.;
659     l4_1.gf[0] = (l2_1.x[0] * (l4_1.gf[1] - 1.) + 1.) * -2.;
660 labelL4:
661     return 0;
662 } /* tp2_ */
663 
664 
tp3_(int * mode)665 /* Subroutine */ int tp3_(int *mode)
666 {
667     /* System generated locals */
668     Real d__1;
669 
670     switch ((int)*mode) {
671     case 1:  goto labelL1;
672     case 2:  goto labelL2;
673     case 3:  goto labelL3;
674     case 4:  goto labelL4;
675     case 5:  goto labelL4;
676     }
677 labelL1:
678     l1_1.n = 2;
679     l1_1.nili = 0;
680     l1_1.ninl = 0;
681     l1_1.neli = 0;
682     l1_1.nenl = 0;
683     l2_1.x[0] = 10.;
684     l2_1.x[1] = 1.;
685     l11_1.lxl[0] = false;
686     l11_1.lxl[1] = true;
687     l12_1.lxu[0] = false;
688     l12_1.lxu[1] = false;
689     l13_1.xl[1] = 0.;
690     l20_1.lex = true;
691     l20_1.xex[0] = 0.;
692     l20_1.xex[1] = 0.;
693     l20_1.fex = 0.;
694     l20_1.nex = 1;
695     return 0;
696 labelL2:
697 /* Computing 2nd power */
698     d__1 = l2_1.x[1] - l2_1.x[0];
699     l6_1.fx = l2_1.x[1] + d__1 * d__1 * 1e-5;
700     return 0;
701 labelL3:
702     l4_1.gf[0] = (l2_1.x[1] - l2_1.x[0]) * -2. * 1e-5;
703     l4_1.gf[1] = 1. - l4_1.gf[0];
704 labelL4:
705     return 0;
706 } /* tp3_ */
707 
708 
tp4_(int * mode)709 /* Subroutine */ int tp4_(int *mode)
710 {
711     /* System generated locals */
712     Real d__1;
713 
714     /* Local variables */
715     static int i__;
716 
717     switch ((int)*mode) {
718     case 1:  goto labelL1;
719     case 2:  goto labelL2;
720     case 3:  goto labelL3;
721     case 4:  goto labelL4;
722     case 5:  goto labelL4;
723     }
724 labelL1:
725     l1_1.n = 2;
726     l1_1.nili = 0;
727     l1_1.ninl = 0;
728     l1_1.neli = 0;
729     l1_1.nenl = 0;
730     l2_1.x[0] = 1.125;
731     l2_1.x[1] = .125;
732     for (i__ = 1; i__ <= 2; ++i__) {
733     l12_1.lxu[i__ - 1] = false;
734 /* labelL6: */
735     l11_1.lxl[i__ - 1] = true;
736     }
737     l13_1.xl[0] = 1.;
738     l13_1.xl[1] = 0.;
739     l20_1.lex = true;
740     l20_1.nex = 1;
741     l20_1.xex[0] = 1.;
742     l20_1.xex[1] = 0.;
743     l20_1.fex = 2.6666666666666665;
744     l4_1.gf[1] = 1.;
745     return 0;
746 labelL2:
747 /* Computing 3rd power */
748     d__1 = l2_1.x[0] + 1.;
749     l6_1.fx = d__1 * (d__1 * d__1) / 3. + l2_1.x[1];
750     return 0;
751 labelL3:
752 /* Computing 2nd power */
753     d__1 = l2_1.x[0] + 1.;
754     l4_1.gf[0] = d__1 * d__1;
755 labelL4:
756     return 0;
757 } /* tp4_ */
758 
759 
tp5_(int * mode)760 /* Subroutine */ int tp5_(int *mode)
761 {
762     /* System generated locals */
763     Real d__1;
764 
765     /* Local variables */
766     static Real a;
767     static int i__;
768     static Real v1, v2;
769 
770     switch ((int)*mode) {
771     case 1:  goto labelL1;
772     case 2:  goto labelL2;
773     case 3:  goto labelL3;
774     case 4:  goto labelL4;
775     case 5:  goto labelL4;
776     }
777 labelL1:
778     l1_1.n = 2;
779     l1_1.nili = 0;
780     l1_1.ninl = 0;
781     l1_1.neli = 0;
782     l1_1.nenl = 0;
783     l2_1.x[0] = 0.;
784     l2_1.x[1] = 0.;
785     for (i__ = 1; i__ <= 2; ++i__) {
786     l11_1.lxl[i__ - 1] = true;
787 /* labelL6: */
788     l12_1.lxu[i__ - 1] = true;
789     }
790     l13_1.xl[0] = -1.5;
791     l13_1.xl[1] = -3.;
792     l14_1.xu[0] = 4.;
793     l14_1.xu[1] = 3.;
794     a = std::atan(1.) * 4.;
795     l20_1.lex = true;
796     l20_1.nex = 1;
797     l20_1.xex[0] = .5 - a / 3.;
798     l20_1.xex[1] = l20_1.xex[0] - 1.;
799     l20_1.fex = -std::sqrt(3.) / 2. - a / 3.;
800     return 0;
801 labelL2:
802 /* Computing 2nd power */
803     d__1 = l2_1.x[0] - l2_1.x[1];
804     l6_1.fx = std::sin(l2_1.x[0] + l2_1.x[1]) + d__1 * d__1 - l2_1.x[0] * 1.5 +
805         l2_1.x[1] * 2.5 + 1.;
806     return 0;
807 labelL3:
808     v1 = std::cos(l2_1.x[0] + l2_1.x[1]);
809     v2 = (l2_1.x[0] - l2_1.x[1]) * 2.;
810     l4_1.gf[0] = v1 + v2 - 1.5;
811     l4_1.gf[1] = v1 - v2 + 2.5;
812 labelL4:
813     return 0;
814 } /* tp5_ */
815 
816 
tp6_(int * mode)817 /* Subroutine */ int tp6_(int *mode)
818 {
819     /* System generated locals */
820     Real d__1;
821 
822     /* Local variables */
823     static int i__;
824 
825     switch ((int)*mode) {
826     case 1:  goto labelL1;
827     case 2:  goto labelL2;
828     case 3:  goto labelL3;
829     case 4:  goto labelL4;
830     case 5:  goto labelL5;
831     }
832 labelL1:
833     l1_1.n = 2;
834     l1_1.nili = 0;
835     l1_1.ninl = 0;
836     l1_1.neli = 0;
837     l1_1.nenl = 1;
838     l2_1.x[0] = -1.2;
839     l2_1.x[1] = 1.;
840     for (i__ = 1; i__ <= 2; ++i__) {
841     l11_1.lxl[i__ - 1] = false;
842 /* labelL6: */
843     l12_1.lxu[i__ - 1] = false;
844     }
845     l20_1.lex = true;
846     l20_1.nex = 1;
847     l20_1.xex[0] = 1.;
848     l20_1.xex[1] = 1.;
849     l20_1.fex = 0.;
850     l5_1.gg[1] = 10.;
851     l4_1.gf[1] = 0.;
852     return 0;
853 labelL2:
854 /* Computing 2nd power */
855     d__1 = 1. - l2_1.x[0];
856     l6_1.fx = d__1 * d__1;
857     return 0;
858 labelL3:
859     l4_1.gf[0] = l2_1.x[0] * 2. - 2.;
860     return 0;
861 labelL4:
862     if (l9_2.index1[0]) {
863 /* Computing 2nd power */
864     d__1 = l2_1.x[0];
865     l3_1.g[0] = (l2_1.x[1] - d__1 * d__1) * 10.;
866     }
867     return 0;
868 labelL5:
869     if (l10_2.index2[0]) {
870     l5_1.gg[0] = l2_1.x[0] * -20.;
871     }
872     return 0;
873 } /* tp6_ */
874 
875 
tp7_(int * mode)876 /* Subroutine */ int tp7_(int *mode)
877 {
878     /* System generated locals */
879     Real d__1, d__2, d__3;
880 
881     /* Local variables */
882     static int i__;
883 
884     switch ((int)*mode) {
885     case 1:  goto labelL1;
886     case 2:  goto labelL2;
887     case 3:  goto labelL3;
888     case 4:  goto labelL4;
889     case 5:  goto labelL5;
890     }
891 labelL1:
892     l1_1.n = 2;
893     l1_1.nili = 0;
894     l1_1.ninl = 0;
895     l1_1.neli = 0;
896     l1_1.nenl = 1;
897     l2_1.x[0] = 2.;
898     l2_1.x[1] = 2.;
899     for (i__ = 1; i__ <= 2; ++i__) {
900     l11_1.lxl[i__ - 1] = false;
901 /* labelL6: */
902     l12_1.lxu[i__ - 1] = false;
903     }
904     l20_1.lex = true;
905     l20_1.fex = -std::sqrt(3.);
906     l20_1.xex[0] = 0.;
907     l20_1.xex[1] = -l20_1.fex;
908     l20_1.nex = 1;
909     l4_1.gf[1] = -1.;
910     return 0;
911 labelL2:
912 /* Computing 2nd power */
913     d__1 = l2_1.x[0];
914     l6_1.fx = std::log(d__1 * d__1 + 1.) - l2_1.x[1];
915     return 0;
916 labelL3:
917 /* Computing 2nd power */
918     d__1 = l2_1.x[0];
919     l4_1.gf[0] = l2_1.x[0] * 2. / (d__1 * d__1 + 1.);
920     return 0;
921 labelL4:
922     if (l9_2.index1[0]) {
923 /* Computing 2nd power */
924     d__2 = l2_1.x[0];
925 /* Computing 2nd power */
926     d__1 = d__2 * d__2 + 1.;
927 /* Computing 2nd power */
928     d__3 = l2_1.x[1];
929     l3_1.g[0] = d__1 * d__1 + d__3 * d__3 - 4.;
930     }
931     return 0;
932 labelL5:
933     if (! l10_2.index2[0]) {
934     goto L7;
935     }
936 /* Computing 2nd power */
937     d__1 = l2_1.x[0];
938     l5_1.gg[0] = l2_1.x[0] * 4. * (d__1 * d__1 + 1.);
939     l5_1.gg[1] = l2_1.x[1] * 2.;
940 L7:
941     return 0;
942 } /* tp7_ */
943 
944 
tp8_(int * mode)945 /* Subroutine */ int tp8_(int *mode)
946 {
947     /* System generated locals */
948     Real d__1, d__2;
949 
950     /* Local variables */
951     static Real a, b;
952     static int i__, j;
953 
954     switch ((int)*mode) {
955     case 1:  goto labelL1;
956     case 2:  goto labelL3;
957     case 3:  goto labelL3;
958     case 4:  goto labelL4;
959     case 5:  goto labelL5;
960     }
961 labelL1:
962     l1_1.n = 2;
963     l1_1.nili = 0;
964     l1_1.ninl = 0;
965     l1_1.neli = 0;
966     l1_1.nenl = 2;
967     l2_1.x[0] = 2.;
968     l2_1.x[1] = 1.;
969     a = std::sqrt((std::sqrt(301.) + 25.) / 2.);
970     b = std::sqrt((25. - std::sqrt(301.)) / 2.);
971     for (i__ = 1; i__ <= 2; ++i__) {
972     l11_1.lxl[i__ - 1] = false;
973 /* labelL6: */
974     l12_1.lxu[i__ - 1] = false;
975     }
976     l20_2.lex = true;
977     l20_2.nex = 4;
978     l20_2.xex[0] = a;
979     l20_2.xex[1] = 9. / a;
980     l20_2.xex[4] = b;
981     l20_2.xex[5] = 9. / b;
982     for (i__ = 3; i__ <= 7; i__ += 4) {
983     for (j = 1; j <= 2; ++j) {
984 /* L30: */
985         l20_2.xex[i__ + j - 2] = -l20_2.xex[i__ + j - 4];
986     }
987     }
988     l20_2.fex = -1.;
989     l4_1.gf[0] = 0.;
990     l4_1.gf[1] = 0.;
991     l6_1.fx = -1.;
992 labelL3:
993     return 0;
994 labelL4:
995     if (l9_3.index1[0]) {
996 /* Computing 2nd power */
997     d__1 = l2_1.x[0];
998 /* Computing 2nd power */
999     d__2 = l2_1.x[1];
1000     l3_2.g[0] = d__1 * d__1 + d__2 * d__2 - 25.;
1001     }
1002     if (l9_3.index1[1]) {
1003     l3_2.g[1] = l2_1.x[0] * l2_1.x[1] - 9.;
1004     }
1005     return 0;
1006 labelL5:
1007     if (! l10_3.index2[0]) {
1008     goto L7;
1009     }
1010     l5_2.gg[0] = l2_1.x[0] * 2.;
1011     l5_2.gg[2] = l2_1.x[1] * 2.;
1012 L7:
1013     if (! l10_3.index2[1]) {
1014     goto L8;
1015     }
1016     l5_2.gg[1] = l2_1.x[1];
1017     l5_2.gg[3] = l2_1.x[0];
1018 L8:
1019     return 0;
1020 } /* tp8_ */
1021 
1022 
tp9_(int * mode)1023 /* Subroutine */ int tp9_(int *mode)
1024 {
1025     /* Local variables */
1026     static int i__;
1027     static Real v, v1, v2, v3, v4;
1028 
1029     v = std::atan(1.) * 4.;
1030     switch ((int)*mode) {
1031     case 1:  goto labelL1;
1032     case 2:  goto labelL2;
1033     case 3:  goto labelL3;
1034     case 4:  goto labelL4;
1035     case 5:  goto labelL5;
1036     }
1037 labelL1:
1038     l1_1.n = 2;
1039     l1_1.nili = 0;
1040     l1_1.ninl = 0;
1041     l1_1.neli = 1;
1042     l1_1.nenl = 0;
1043     l2_1.x[0] = 0.;
1044     l2_1.x[1] = 0.;
1045     for (i__ = 1; i__ <= 2; ++i__) {
1046     l11_1.lxl[i__ - 1] = false;
1047 /* labelL6: */
1048     l12_1.lxu[i__ - 1] = false;
1049     }
1050     l20_1.lex = true;
1051     l20_1.nex = -1;
1052     l20_1.fex = -.5;
1053     l20_1.xex[0] = -3.;
1054     l20_1.xex[1] = -4.;
1055     l5_1.gg[0] = 4.;
1056     l5_1.gg[1] = -3.;
1057     return 0;
1058 labelL2:
1059     l6_1.fx = std::sin(v * l2_1.x[0] / 12.) * std::cos(v * l2_1.x[1] / 16.);
1060     return 0;
1061 labelL3:
1062     v3 = v / 12.;
1063     v4 = v / 16.;
1064     v1 = v3 * l2_1.x[0];
1065     v2 = v4 * l2_1.x[1];
1066     l4_1.gf[0] = v3 * std::cos(v1) * std::cos(v2);
1067     l4_1.gf[1] = -v4 * std::sin(v1) * std:: sin(v2);
1068     return 0;
1069 labelL4:
1070     if (l9_2.index1[0]) {
1071     l3_1.g[0] = l2_1.x[0] * 4. - l2_1.x[1] * 3.;
1072     }
1073 labelL5:
1074     return 0;
1075 } /* tp9_ */
1076 
1077 
tp10_(int * mode)1078 /* Subroutine */ int tp10_(int *mode)
1079 {
1080     /* System generated locals */
1081     Real d__1, d__2;
1082 
1083     /* Local variables */
1084     static int i__;
1085 
1086     switch ((int)*mode) {
1087     case 1:  goto labelL1;
1088     case 2:  goto labelL2;
1089     case 3:  goto labelL3;
1090     case 4:  goto labelL4;
1091     case 5:  goto labelL5;
1092     }
1093 labelL1:
1094     l1_1.n = 2;
1095     l1_1.nili = 0;
1096     l1_1.ninl = 1;
1097     l1_1.neli = 0;
1098     l1_1.nenl = 0;
1099     l2_1.x[0] = -10.;
1100     l2_1.x[1] = 10.;
1101     for (i__ = 1; i__ <= 2; ++i__) {
1102     l11_1.lxl[i__ - 1] = false;
1103 /* labelL6: */
1104     l12_1.lxu[i__ - 1] = false;
1105     }
1106     l20_1.lex = true;
1107     l20_1.nex = 1;
1108     l20_1.xex[0] = 0.;
1109     l20_1.xex[1] = 1.;
1110     l20_1.fex = -1.;
1111     l4_1.gf[0] = 1.;
1112     l4_1.gf[1] = -1.;
1113     return 0;
1114 labelL2:
1115     l6_1.fx = l2_1.x[0] - l2_1.x[1];
1116 labelL3:
1117     return 0;
1118 labelL4:
1119     if (l9_2.index1[0]) {
1120 /* Computing 2nd power */
1121     d__1 = l2_1.x[0];
1122 /* Computing 2nd power */
1123     d__2 = l2_1.x[1];
1124     l3_1.g[0] = d__1 * d__1 * -3. + l2_1.x[0] * 2. * l2_1.x[1] - d__2 *
1125         d__2 + 1.;
1126     }
1127     return 0;
1128 labelL5:
1129     if (! l10_2.index2[0]) {
1130     goto L7;
1131     }
1132     l5_1.gg[0] = l2_1.x[0] * -6. + l2_1.x[1] * 2.;
1133     l5_1.gg[1] = (l2_1.x[0] - l2_1.x[1]) * 2.;
1134 L7:
1135     return 0;
1136 } /* tp10_ */
1137 
1138 
tp11_(int * mode)1139 /* Subroutine */ int tp11_(int *mode)
1140 {
1141     /* System generated locals */
1142     Real d__1, d__2;
1143 
1144     /* Local variables */
1145     static int i__;
1146     static Real aw, aex, qaw;
1147 
1148     switch ((int)*mode) {
1149     case 1:  goto labelL1;
1150     case 2:  goto labelL2;
1151     case 3:  goto labelL3;
1152     case 4:  goto labelL4;
1153     case 5:  goto labelL5;
1154     }
1155 labelL1:
1156     l1_1.n = 2;
1157     l1_1.nili = 0;
1158     l1_1.ninl = 1;
1159     l1_1.neli = 0;
1160     l1_1.nenl = 0;
1161     for (i__ = 1; i__ <= 2; ++i__) {
1162     l11_1.lxl[i__ - 1] = false;
1163 /* labelL6: */
1164     l12_1.lxu[i__ - 1] = false;
1165     }
1166     l2_1.x[0] = 4.9;
1167     l2_1.x[1] = .1;
1168     l20_1.lex = true;
1169     l20_1.nex = 1;
1170     aex = std::sqrt(6.) * 7.5;
1171 /* Computing 2nd power */
1172     d__2 = aex;
1173     d__1 = std::sqrt(d__2 * d__2 + 1.) + aex;
1174     aw = pow_dd(&d__1, &c_b74);
1175 /* Computing 2nd power */
1176     d__1 = aw;
1177     qaw = d__1 * d__1;
1178     l20_1.xex[0] = (aw - 1. / aw) / std::sqrt(6.);
1179     l20_1.xex[1] = (qaw - 2. + 1. / qaw) / 6.;
1180 /* Computing 2nd power */
1181     d__1 = l20_1.xex[0] - 5.;
1182 /* Computing 2nd power */
1183     d__2 = l20_1.xex[1];
1184     l20_1.fex = d__1 * d__1 + d__2 * d__2 - 25.;
1185     l5_1.gg[1] = 1.;
1186     return 0;
1187 labelL2:
1188 /* Computing 2nd power */
1189     d__1 = l2_1.x[0] - 5.;
1190 /* Computing 2nd power */
1191     d__2 = l2_1.x[1];
1192     l6_1.fx = d__1 * d__1 + d__2 * d__2 - 25.;
1193     return 0;
1194 labelL3:
1195     l4_1.gf[0] = (l2_1.x[0] - 5.) * 2.;
1196     l4_1.gf[1] = l2_1.x[1] * 2.;
1197     return 0;
1198 labelL4:
1199     if (l9_2.index1[0]) {
1200 /* Computing 2nd power */
1201     d__1 = l2_1.x[0];
1202     l3_1.g[0] = -(d__1 * d__1) + l2_1.x[1];
1203     }
1204     return 0;
1205 labelL5:
1206     if (l10_2.index2[0]) {
1207     l5_1.gg[0] = l2_1.x[0] * -2.;
1208     }
1209     return 0;
1210 } /* tp11_ */
1211 
1212 
tp12_(int * mode)1213 /* Subroutine */ int tp12_(int *mode)
1214 {
1215     /* System generated locals */
1216     Real d__1, d__2;
1217 
1218     /* Local variables */
1219     static int i__;
1220 
1221     switch ((int)*mode) {
1222     case 1:  goto labelL1;
1223     case 2:  goto labelL2;
1224     case 3:  goto labelL3;
1225     case 4:  goto labelL4;
1226     case 5:  goto labelL5;
1227     }
1228 labelL1:
1229     l1_1.n = 2;
1230     l1_1.nili = 0;
1231     l1_1.ninl = 1;
1232     l1_1.neli = 0;
1233     l1_1.nenl = 0;
1234     l2_1.x[0] = 0.;
1235     l2_1.x[1] = 0.;
1236     for (i__ = 1; i__ <= 2; ++i__) {
1237     l11_1.lxl[i__ - 1] = false;
1238 /* labelL6: */
1239     l12_1.lxu[i__ - 1] = false;
1240     }
1241     l20_1.lex = true;
1242     l20_1.nex = 1;
1243     l20_1.xex[0] = 2.;
1244     l20_1.xex[1] = 3.;
1245     l20_1.fex = -30.;
1246     return 0;
1247 labelL2:
1248 /* Computing 2nd power */
1249     d__1 = l2_1.x[0];
1250 /* Computing 2nd power */
1251     d__2 = l2_1.x[1];
1252     l6_1.fx = d__1 * d__1 * .5 + d__2 * d__2 - l2_1.x[0] * l2_1.x[1] - l2_1.x[
1253         0] * 7. - l2_1.x[1] * 7.;
1254     return 0;
1255 labelL3:
1256     l4_1.gf[0] = l2_1.x[0] - l2_1.x[1] - 7.;
1257     l4_1.gf[1] = l2_1.x[1] * 2. - l2_1.x[0] - 7.;
1258     return 0;
1259 labelL4:
1260     if (l9_2.index1[0]) {
1261 /* Computing 2nd power */
1262     d__1 = l2_1.x[0];
1263 /* Computing 2nd power */
1264     d__2 = l2_1.x[1];
1265     l3_1.g[0] = 25. - d__1 * d__1 * 4. - d__2 * d__2;
1266     }
1267     return 0;
1268 labelL5:
1269     if (! l10_2.index2[0]) {
1270     goto L7;
1271     }
1272     l5_1.gg[0] = l2_1.x[0] * -8.;
1273     l5_1.gg[1] = l2_1.x[1] * -2.;
1274 L7:
1275     return 0;
1276 } /* tp12_ */
1277 
1278 
tp13_(int * mode)1279 /* Subroutine */ int tp13_(int *mode)
1280 {
1281     /* System generated locals */
1282     Real d__1, d__2;
1283 
1284     /* Local variables */
1285     static int i__;
1286 
1287     switch ((int)*mode) {
1288     case 1:  goto labelL1;
1289     case 2:  goto labelL2;
1290     case 3:  goto labelL3;
1291     case 4:  goto labelL4;
1292     case 5:  goto labelL5;
1293     }
1294 labelL1:
1295     l1_1.n = 2;
1296     l1_1.nili = 0;
1297     l1_1.ninl = 1;
1298     l1_1.neli = 0;
1299     l1_1.nenl = 0;
1300     l2_1.x[0] = -2.;
1301     l2_1.x[1] = -2.;
1302     for (i__ = 1; i__ <= 2; ++i__) {
1303     l12_1.lxu[i__ - 1] = false;
1304     l11_1.lxl[i__ - 1] = true;
1305 /* labelL6: */
1306     l13_1.xl[i__ - 1] = 0.;
1307     }
1308     l20_1.lex = true;
1309     l20_1.nex = 1;
1310     l20_1.xex[0] = 1.;
1311     l20_1.xex[1] = 0.;
1312     l20_1.fex = 1.;
1313     l5_1.gg[1] = -1.;
1314     return 0;
1315 labelL2:
1316 /* Computing 2nd power */
1317     d__1 = l2_1.x[0] - 2.;
1318 /* Computing 2nd power */
1319     d__2 = l2_1.x[1];
1320     l6_1.fx = d__1 * d__1 + d__2 * d__2;
1321     return 0;
1322 labelL3:
1323     l4_1.gf[0] = (l2_1.x[0] - 2.) * 2.;
1324     l4_1.gf[1] = l2_1.x[1] * 2.;
1325     return 0;
1326 labelL4:
1327     if (l9_2.index1[0]) {
1328 /* Computing 3rd power */
1329     d__1 = 1. - l2_1.x[0];
1330     l3_1.g[0] = d__1 * (d__1 * d__1) - l2_1.x[1];
1331     }
1332     return 0;
1333 labelL5:
1334     if (l10_2.index2[0]) {
1335 /* Computing 2nd power */
1336     d__1 = 1. - l2_1.x[0];
1337     l5_1.gg[0] = d__1 * d__1 * -3.;
1338     }
1339     return 0;
1340 } /* tp13_ */
1341 
1342 
tp14_(int * mode)1343 /* Subroutine */ int tp14_(int *mode)
1344 {
1345     /* System generated locals */
1346     Real d__1, d__2;
1347 
1348     /* Local variables */
1349     static int i__;
1350     static Real w7;
1351 
1352     switch ((int)*mode) {
1353     case 1:  goto labelL1;
1354     case 2:  goto labelL2;
1355     case 3:  goto labelL3;
1356     case 4:  goto labelL4;
1357     case 5:  goto labelL5;
1358     }
1359 labelL1:
1360     l1_1.n = 2;
1361     l1_1.nili = 0;
1362     l1_1.ninl = 1;
1363     l1_1.neli = 1;
1364     l1_1.nenl = 0;
1365     l2_1.x[0] = 2.;
1366     l2_1.x[1] = 2.;
1367     for (i__ = 1; i__ <= 2; ++i__) {
1368     l11_1.lxl[i__ - 1] = false;
1369 /* labelL6: */
1370     l12_1.lxu[i__ - 1] = false;
1371     }
1372     l20_1.lex = true;
1373     l20_1.nex = 1;
1374     w7 = std::sqrt(7.);
1375     l20_1.xex[0] = (w7 - 1.) * .5;
1376     l20_1.xex[1] = (w7 + 1.) * .25;
1377     l20_1.fex = 9. - w7 * 23. / 8.;
1378     l5_2.gg[1] = 1.;
1379     l5_2.gg[3] = -2.;
1380     return 0;
1381 labelL2:
1382 /* Computing 2nd power */
1383     d__1 = l2_1.x[0] - 2.;
1384 /* Computing 2nd power */
1385     d__2 = l2_1.x[1] - 1.;
1386     l6_1.fx = d__1 * d__1 + d__2 * d__2;
1387     return 0;
1388 labelL3:
1389     l4_1.gf[0] = (l2_1.x[0] - 2.) * 2.;
1390     l4_1.gf[1] = (l2_1.x[1] - 1.) * 2.;
1391     return 0;
1392 labelL4:
1393     if (l9_3.index1[0]) {
1394 /* Computing 2nd power */
1395     d__1 = l2_1.x[0];
1396 /* Computing 2nd power */
1397     d__2 = l2_1.x[1];
1398     l3_2.g[0] = 1. - d__1 * d__1 * .25 - d__2 * d__2;
1399     }
1400     if (l9_3.index1[1]) {
1401     l3_2.g[1] = l2_1.x[0] - l2_1.x[1] * 2. + 1.;
1402     }
1403     return 0;
1404 labelL5:
1405     if (! l10_3.index2[0]) {
1406     goto L7;
1407     }
1408     l5_2.gg[0] = -l2_1.x[0] * .5;
1409     l5_2.gg[2] = l2_1.x[1] * -2.;
1410 L7:
1411     return 0;
1412 } /* tp14_ */
1413 
1414 
tp15_(int * mode)1415 /* Subroutine */ int tp15_(int *mode)
1416 {
1417     /* System generated locals */
1418     Real d__1, d__2, d__3;
1419 
1420     switch ((int)*mode) {
1421     case 1:  goto labelL1;
1422     case 2:  goto labelL2;
1423     case 3:  goto labelL3;
1424     case 4:  goto labelL4;
1425     case 5:  goto labelL5;
1426     }
1427 labelL1:
1428     l1_1.n = 2;
1429     l1_1.nili = 0;
1430     l1_1.ninl = 2;
1431     l1_1.neli = 0;
1432     l1_1.nenl = 0;
1433     l2_1.x[0] = -2.;
1434     l2_1.x[1] = 1.;
1435     l11_1.lxl[0] = false;
1436     l11_1.lxl[1] = false;
1437     l12_1.lxu[0] = true;
1438     l12_1.lxu[1] = false;
1439     l14_1.xu[0] = .5;
1440     l20_1.lex = true;
1441     l20_1.xex[0] = .5;
1442     l20_1.xex[1] = (float)2.;
1443     l20_1.fex = (float)3.065;
1444     l20_1.nex = 1;
1445     l5_2.gg[1] = 1.;
1446     return 0;
1447 labelL2:
1448 /* Computing 2nd power */
1449     d__2 = l2_1.x[0];
1450 /* Computing 2nd power */
1451     d__1 = l2_1.x[1] - d__2 * d__2;
1452 /* Computing 2nd power */
1453     d__3 = 1. - l2_1.x[0];
1454     l6_1.fx = d__1 * d__1 + d__3 * d__3 * (float).01;
1455     return 0;
1456 labelL3:
1457 /* Computing 2nd power */
1458     d__1 = l2_1.x[0];
1459     l4_1.gf[1] = (l2_1.x[1] - d__1 * d__1) * (float)2.;
1460     l4_1.gf[0] = (l2_1.x[0] * (l4_1.gf[1] - 1.) + 1.) * -.02;
1461     return 0;
1462 labelL4:
1463     if (l9_3.index1[0]) {
1464     l3_2.g[0] = l2_1.x[0] * l2_1.x[1] - 1.;
1465     }
1466     if (l9_3.index1[1]) {
1467 /* Computing 2nd power */
1468     d__1 = l2_1.x[1];
1469     l3_2.g[1] = d__1 * d__1 + l2_1.x[0];
1470     }
1471     return 0;
1472 labelL5:
1473     if (! l10_3.index2[0]) {
1474     goto L7;
1475     }
1476     l5_2.gg[0] = l2_1.x[1];
1477     l5_2.gg[2] = l2_1.x[0];
1478 L7:
1479     if (l10_3.index2[1]) {
1480     l5_2.gg[3] = l2_1.x[1] * 2.;
1481     }
1482     return 0;
1483 } /* tp15_ */
1484 
1485 
tp16_(int * mode)1486 /* Subroutine */ int tp16_(int *mode)
1487 {
1488     /* System generated locals */
1489     Real d__1, d__2, d__3;
1490 
1491     switch ((int)*mode) {
1492     case 1:  goto labelL1;
1493     case 2:  goto labelL2;
1494     case 3:  goto labelL3;
1495     case 4:  goto labelL4;
1496     case 5:  goto labelL5;
1497     }
1498 labelL1:
1499     l1_1.n = 2;
1500     l1_1.nili = 0;
1501     l1_1.ninl = 2;
1502     l1_1.neli = 0;
1503     l1_1.nenl = 0;
1504     l2_1.x[0] = -2.;
1505     l2_1.x[1] = 1.;
1506     l11_1.lxl[0] = true;
1507     l11_1.lxl[1] = false;
1508     l12_1.lxu[0] = true;
1509     l12_1.lxu[1] = true;
1510     l13_1.xl[0] = -2.;
1511     l14_1.xu[0] = .5;
1512     l14_1.xu[1] = 1.;
1513     l20_1.lex = true;
1514     l20_1.nex = 1;
1515     l20_1.xex[0] = .5;
1516     l20_1.xex[1] = .25;
1517     l20_1.fex = .25;
1518     l5_2.gg[0] = 1.;
1519     l5_2.gg[3] = 1.;
1520     return 0;
1521 labelL2:
1522 /* Computing 2nd power */
1523     d__2 = l2_1.x[0];
1524 /* Computing 2nd power */
1525     d__1 = l2_1.x[1] - d__2 * d__2;
1526 /* Computing 2nd power */
1527     d__3 = 1. - l2_1.x[0];
1528     l6_1.fx = d__1 * d__1 * 100. + d__3 * d__3;
1529     return 0;
1530 labelL3:
1531 /* Computing 2nd power */
1532     d__1 = l2_1.x[0];
1533     l4_1.gf[1] = (l2_1.x[1] - d__1 * d__1) * 200.;
1534     l4_1.gf[0] = (l2_1.x[0] * (l4_1.gf[1] - 1.) + 1.) * -2.;
1535     return 0;
1536 labelL4:
1537     if (l9_3.index1[0]) {
1538 /* Computing 2nd power */
1539     d__1 = l2_1.x[1];
1540     l3_2.g[0] = d__1 * d__1 + l2_1.x[0];
1541     }
1542     if (l9_3.index1[1]) {
1543 /* Computing 2nd power */
1544     d__1 = l2_1.x[0];
1545     l3_2.g[1] = d__1 * d__1 + l2_1.x[1];
1546     }
1547     return 0;
1548 labelL5:
1549     if (l10_3.index2[0]) {
1550     l5_2.gg[2] = l2_1.x[1] * 2.;
1551     }
1552     if (l10_3.index2[1]) {
1553     l5_2.gg[1] = l2_1.x[0] * 2.;
1554     }
1555     return 0;
1556 } /* tp16_ */
1557 
1558 
tp17_(int * mode)1559 /* Subroutine */ int tp17_(int *mode)
1560 {
1561     /* System generated locals */
1562     Real d__1, d__2, d__3;
1563 
1564     switch ((int)*mode) {
1565     case 1:  goto labelL1;
1566     case 2:  goto labelL2;
1567     case 3:  goto labelL3;
1568     case 4:  goto labelL4;
1569     case 5:  goto labelL5;
1570     }
1571 labelL1:
1572     l1_1.n = 2;
1573     l1_1.nili = 0;
1574     l1_1.ninl = 2;
1575     l1_1.neli = 0;
1576     l1_1.nenl = 0;
1577     l2_1.x[0] = (float)-2.;
1578     l2_1.x[1] = 1.;
1579     l11_1.lxl[0] = true;
1580     l11_1.lxl[1] = false;
1581     l12_1.lxu[0] = true;
1582     l12_1.lxu[1] = true;
1583     l13_1.xl[0] = (float)-2.;
1584     l14_1.xu[0] = .5;
1585     l14_1.xu[1] = 1.;
1586     l20_1.lex = true;
1587     l20_1.nex = 1;
1588     l20_1.xex[0] = 0.;
1589     l20_1.xex[1] = 0.;
1590     l20_1.fex = .01;
1591     l5_2.gg[0] = -1.;
1592     l5_2.gg[3] = -1.;
1593     return 0;
1594 labelL2:
1595 /* Computing 2nd power */
1596     d__2 = l2_1.x[0];
1597 /* Computing 2nd power */
1598     d__1 = l2_1.x[1] - d__2 * d__2;
1599 /* Computing 2nd power */
1600     d__3 = 1. - l2_1.x[0];
1601     l6_1.fx = (d__1 * d__1 * 100. + d__3 * d__3) * (float).01;
1602     return 0;
1603 labelL3:
1604 /* Computing 2nd power */
1605     d__1 = l2_1.x[0];
1606     l4_1.gf[1] = (l2_1.x[1] - d__1 * d__1) * 200. * (float).01;
1607     l4_1.gf[0] = (l2_1.x[0] * (l4_1.gf[1] - 1.) + 1.) * -2. * (float).01;
1608     return 0;
1609 labelL4:
1610     if (l9_3.index1[0]) {
1611 /* Computing 2nd power */
1612     d__1 = l2_1.x[1];
1613     l3_2.g[0] = d__1 * d__1 - l2_1.x[0];
1614     }
1615     if (l9_3.index1[1]) {
1616 /* Computing 2nd power */
1617     d__1 = l2_1.x[0];
1618     l3_2.g[1] = d__1 * d__1 - l2_1.x[1];
1619     }
1620     return 0;
1621 labelL5:
1622     if (l10_3.index2[0]) {
1623     l5_2.gg[2] = l2_1.x[1] * 2.;
1624     }
1625     if (l10_3.index2[1]) {
1626     l5_2.gg[1] = l2_1.x[0] * 2.;
1627     }
1628     return 0;
1629 } /* tp17_ */
1630 
1631 
tp18_(int * mode)1632 /* Subroutine */ int tp18_(int *mode)
1633 {
1634     /* System generated locals */
1635     Real d__1, d__2;
1636 
1637     /* Local variables */
1638     static int i__;
1639 
1640     switch ((int)*mode) {
1641     case 1:  goto labelL1;
1642     case 2:  goto labelL2;
1643     case 3:  goto labelL3;
1644     case 4:  goto labelL4;
1645     case 5:  goto labelL5;
1646     }
1647 labelL1:
1648     l1_1.n = 2;
1649     l1_1.nili = 0;
1650     l1_1.ninl = 2;
1651     l1_1.neli = 0;
1652     l1_1.nenl = 0;
1653     l2_1.x[0] = 2.;
1654     l2_1.x[1] = 2.;
1655     for (i__ = 1; i__ <= 2; ++i__) {
1656     l11_1.lxl[i__ - 1] = true;
1657     l12_1.lxu[i__ - 1] = true;
1658 /* labelL6: */
1659     l14_1.xu[i__ - 1] = 50.;
1660     }
1661     l13_1.xl[0] = 2.;
1662     l13_1.xl[1] = 0.;
1663     l20_1.lex = true;
1664     l20_1.nex = 1;
1665     l20_1.xex[0] = std::sqrt(250.);
1666     l20_1.xex[1] = l20_1.xex[0] * .1;
1667     l20_1.fex = 5.;
1668     return 0;
1669 labelL2:
1670 /* Computing 2nd power */
1671     d__1 = l2_1.x[0];
1672 /* Computing 2nd power */
1673     d__2 = l2_1.x[1];
1674     l6_1.fx = d__1 * d__1 * .01 + d__2 * d__2;
1675     return 0;
1676 labelL3:
1677     l4_1.gf[0] = l2_1.x[0] * .02;
1678     l4_1.gf[1] = l2_1.x[1] * 2.;
1679     return 0;
1680 labelL4:
1681     if (l9_3.index1[0]) {
1682     l3_2.g[0] = l2_1.x[0] * l2_1.x[1] - 25.;
1683     }
1684     if (l9_3.index1[1]) {
1685 /* Computing 2nd power */
1686     d__1 = l2_1.x[0];
1687 /* Computing 2nd power */
1688     d__2 = l2_1.x[1];
1689     l3_2.g[1] = d__1 * d__1 + d__2 * d__2 - 25.;
1690     }
1691     return 0;
1692 labelL5:
1693     if (! l10_3.index2[0]) {
1694     goto L7;
1695     }
1696     l5_2.gg[0] = l2_1.x[1];
1697     l5_2.gg[2] = l2_1.x[0];
1698 L7:
1699     if (! l10_3.index2[1]) {
1700     goto L8;
1701     }
1702     l5_2.gg[1] = l2_1.x[0] * 2.;
1703     l5_2.gg[3] = l2_1.x[1] * 2.;
1704 L8:
1705     return 0;
1706 } /* tp18_ */
1707 
1708 
tp19_(int * mode)1709 /* Subroutine */ int tp19_(int *mode)
1710 {
1711     /* System generated locals */
1712     Real d__1, d__2;
1713 
1714     /* Local variables */
1715     static Real saex;
1716     static int i__;
1717     static Real aex;
1718 
1719     switch ((int)*mode) {
1720     case 1:  goto labelL1;
1721     case 2:  goto labelL2;
1722     case 3:  goto labelL3;
1723     case 4:  goto labelL4;
1724     case 5:  goto labelL5;
1725     }
1726 labelL1:
1727     l1_1.n = 2;
1728     l1_1.nili = 0;
1729     l1_1.ninl = 2;
1730     l1_1.neli = 0;
1731     l1_1.nenl = 0;
1732     l2_1.x[0] = 20.1;
1733     l2_1.x[1] = 5.84;
1734     for (i__ = 1; i__ <= 2; ++i__) {
1735     l11_1.lxl[i__ - 1] = true;
1736     l12_1.lxu[i__ - 1] = true;
1737 /* labelL6: */
1738     l14_1.xu[i__ - 1] = 100.;
1739     }
1740     l13_1.xl[0] = 13.;
1741     l13_1.xl[1] = 0.;
1742     l20_1.lex = true;
1743     l20_1.nex = 1;
1744     saex = 17.280975;
1745     aex = std::sqrt(saex);
1746     l20_1.xex[0] = 14.095;
1747     l20_1.xex[1] = 5. - aex;
1748 /* Computing 3rd power */
1749     d__1 = aex + 15.;
1750     l20_1.fex = (68.669157374999998 - d__1 * (d__1 * d__1)) * (float)1e-4;
1751     return 0;
1752 labelL2:
1753 /* Computing 3rd power */
1754     d__1 = l2_1.x[0] - 10.;
1755 /* Computing 3rd power */
1756     d__2 = l2_1.x[1] - 20.;
1757     l6_1.fx = (d__1 * (d__1 * d__1) + d__2 * (d__2 * d__2)) * (float)1e-4;
1758     return 0;
1759 labelL3:
1760 /* Computing 2nd power */
1761     d__1 = l2_1.x[0] - 10.;
1762     l4_1.gf[0] = d__1 * d__1 * 3. * (float)1e-4;
1763 /* Computing 2nd power */
1764     d__1 = l2_1.x[1] - 20.;
1765     l4_1.gf[1] = d__1 * d__1 * 3. * (float)1e-4;
1766     return 0;
1767 labelL4:
1768     if (l9_3.index1[0]) {
1769 /* Computing 2nd power */
1770     d__1 = l2_1.x[0] - 5.;
1771 /* Computing 2nd power */
1772     d__2 = l2_1.x[1] - 5.;
1773     l3_2.g[0] = d__1 * d__1 + d__2 * d__2 - 100.;
1774     }
1775     if (l9_3.index1[1]) {
1776 /* Computing 2nd power */
1777     d__1 = l2_1.x[0] - 6.;
1778 /* Computing 2nd power */
1779     d__2 = l2_1.x[1] - 5.;
1780     l3_2.g[1] = 82.81 - d__1 * d__1 - d__2 * d__2;
1781     }
1782     return 0;
1783 labelL5:
1784     if (! l10_3.index2[0]) {
1785     goto L7;
1786     }
1787     l5_2.gg[0] = (l2_1.x[0] - 5.) * 2.;
1788     l5_2.gg[2] = (l2_1.x[1] - 5.) * 2.;
1789 L7:
1790     if (! l10_3.index2[1]) {
1791     goto L8;
1792     }
1793     l5_2.gg[1] = (l2_1.x[0] - 6.) * -2.;
1794     l5_2.gg[3] = (l2_1.x[1] - 5.) * -2.;
1795 L8:
1796     return 0;
1797 } /* tp19_ */
1798 
1799 
tp20_(int * mode)1800 /* Subroutine */ int tp20_(int *mode)
1801 {
1802     /* System generated locals */
1803     Real d__1, d__2, d__3;
1804 
1805     switch ((int)*mode) {
1806     case 1:  goto labelL1;
1807     case 2:  goto labelL2;
1808     case 3:  goto labelL3;
1809     case 4:  goto labelL4;
1810     case 5:  goto labelL5;
1811     }
1812 labelL1:
1813     l1_1.n = 2;
1814     l1_1.nili = 0;
1815     l1_1.ninl = 3;
1816     l1_1.neli = 0;
1817     l1_1.nenl = 0;
1818     l2_1.x[0] = 1.;
1819     l2_1.x[1] = 1.;
1820     l11_1.lxl[0] = true;
1821     l11_1.lxl[1] = false;
1822     l12_1.lxu[0] = true;
1823     l12_1.lxu[1] = false;
1824     l13_1.xl[0] = -.5;
1825     l14_1.xu[0] = .5;
1826     l20_1.lex = true;
1827     l20_1.nex = 1;
1828     l20_1.xex[0] = .5;
1829     l20_1.xex[1] = std::sqrt(3.) * .5;
1830     l20_1.fex = 81.5 - std::sqrt(3.) * 25.;
1831     l5_3.gg[0] = 1.;
1832     l5_3.gg[4] = 1.;
1833     return 0;
1834 labelL2:
1835 /* Computing 2nd power */
1836     d__2 = l2_1.x[0];
1837 /* Computing 2nd power */
1838     d__1 = l2_1.x[1] - d__2 * d__2;
1839 /* Computing 2nd power */
1840     d__3 = 1. - l2_1.x[0];
1841     l6_1.fx = d__1 * d__1 * 100. + d__3 * d__3;
1842     return 0;
1843 labelL3:
1844 /* Computing 2nd power */
1845     d__1 = l2_1.x[0];
1846     l4_1.gf[1] = (l2_1.x[1] - d__1 * d__1) * 200. * (float).01;
1847     l4_1.gf[0] = (l2_1.x[0] * (l4_1.gf[1] - 1.) + 1.) * -2. * (float).01;
1848     return 0;
1849 labelL4:
1850     if (l9_4.index1[0]) {
1851 /* Computing 2nd power */
1852     d__1 = l2_1.x[1];
1853     l3_3.g[0] = d__1 * d__1 + l2_1.x[0];
1854     }
1855     if (l9_4.index1[1]) {
1856 /* Computing 2nd power */
1857     d__1 = l2_1.x[0];
1858     l3_3.g[1] = d__1 * d__1 + l2_1.x[1];
1859     }
1860     if (l9_4.index1[2]) {
1861 /* Computing 2nd power */
1862     d__1 = l2_1.x[0];
1863 /* Computing 2nd power */
1864     d__2 = l2_1.x[1];
1865     l3_3.g[2] = d__1 * d__1 + d__2 * d__2 - 1.;
1866     }
1867     return 0;
1868 labelL5:
1869     if (l10_4.index2[0]) {
1870     l5_3.gg[3] = l2_1.x[1] * 2.;
1871     }
1872     if (l10_4.index2[1]) {
1873     l5_3.gg[1] = l2_1.x[0] * 2.;
1874     }
1875     if (! l10_4.index2[2]) {
1876     goto labelL9;
1877     }
1878     l5_3.gg[2] = l2_1.x[0] * 2.;
1879     l5_3.gg[5] = l2_1.x[1] * 2.;
1880 labelL9:
1881     return 0;
1882 } /* tp20_ */
1883 
1884 
tp21_(int * mode)1885 /* Subroutine */ int tp21_(int *mode)
1886 {
1887     /* System generated locals */
1888     Real d__1, d__2;
1889 
1890     /* Local variables */
1891     static int i__;
1892 
1893     switch ((int)*mode) {
1894     case 1:  goto labelL1;
1895     case 2:  goto labelL2;
1896     case 3:  goto labelL3;
1897     case 4:  goto labelL4;
1898     case 5:  goto labelL5;
1899     }
1900 labelL1:
1901     l1_1.n = 2;
1902     l1_1.nili = 1;
1903     l1_1.ninl = 0;
1904     l1_1.neli = 0;
1905     l1_1.nenl = 0;
1906     l2_1.x[0] = -1.;
1907     l2_1.x[1] = -1.;
1908     for (i__ = 1; i__ <= 2; ++i__) {
1909     l11_1.lxl[i__ - 1] = true;
1910     l12_1.lxu[i__ - 1] = true;
1911 /* labelL6: */
1912     l14_1.xu[i__ - 1] = 50.;
1913     }
1914     l13_1.xl[0] = 2.;
1915     l13_1.xl[1] = -50.;
1916     l20_1.lex = true;
1917     l20_1.nex = 1;
1918     l20_1.xex[0] = 2.;
1919     l20_1.xex[1] = 0.;
1920     l20_1.fex = -.99959999999999993;
1921     l5_1.gg[0] = 10.;
1922     l5_1.gg[1] = -1.;
1923     return 0;
1924 labelL2:
1925 /* Computing 2nd power */
1926     d__1 = l2_1.x[0];
1927 /* Computing 2nd power */
1928     d__2 = l2_1.x[1];
1929     l6_1.fx = (d__1 * d__1 * (float).01 + d__2 * d__2 - 100.) * (float).01;
1930     return 0;
1931 labelL3:
1932     l4_1.gf[0] = l2_1.x[0] * (float).02 * (float).01;
1933     l4_1.gf[1] = l2_1.x[1] * (float)2. * (float).01;
1934     return 0;
1935 labelL4:
1936     if (l9_2.index1[0]) {
1937     l3_1.g[0] = l2_1.x[0] * 10. - l2_1.x[1] - 10.;
1938     }
1939 labelL5:
1940     return 0;
1941 } /* tp21_ */
1942 
1943 
tp22_(int * mode)1944 /* Subroutine */ int tp22_(int *mode)
1945 {
1946     /* System generated locals */
1947     Real d__1, d__2;
1948 
1949     /* Local variables */
1950     static int i__;
1951 
1952     switch ((int)*mode) {
1953     case 1:  goto labelL1;
1954     case 2:  goto labelL2;
1955     case 3:  goto labelL3;
1956     case 4:  goto labelL4;
1957     case 5:  goto labelL5;
1958     }
1959 labelL1:
1960     l1_1.n = 2;
1961     l1_1.nili = 1;
1962     l1_1.ninl = 1;
1963     l1_1.neli = 0;
1964     l1_1.nenl = 0;
1965     l2_1.x[0] = 2.;
1966     l2_1.x[1] = 2.;
1967     for (i__ = 1; i__ <= 2; ++i__) {
1968     l11_1.lxl[i__ - 1] = false;
1969 /* labelL6: */
1970     l12_1.lxu[i__ - 1] = false;
1971     }
1972     l20_1.lex = true;
1973     l20_1.nex = 1;
1974     l20_1.xex[0] = 1.;
1975     l20_1.xex[1] = 1.;
1976     l20_1.fex = 1.;
1977     l5_2.gg[0] = -1.;
1978     l5_2.gg[2] = -1.;
1979     l5_2.gg[3] = 1.;
1980     return 0;
1981 labelL2:
1982 /* Computing 2nd power */
1983     d__1 = l2_1.x[0] - 2.;
1984 /* Computing 2nd power */
1985     d__2 = l2_1.x[1] - 1.;
1986     l6_1.fx = d__1 * d__1 + d__2 * d__2;
1987     return 0;
1988 labelL3:
1989     l4_1.gf[0] = (l2_1.x[0] - 2.) * 2.;
1990     l4_1.gf[1] = (l2_1.x[1] - 1.) * 2.;
1991     return 0;
1992 labelL4:
1993     if (l9_3.index1[0]) {
1994     l3_2.g[0] = 2. - l2_1.x[0] - l2_1.x[1];
1995     }
1996     if (l9_3.index1[1]) {
1997 /* Computing 2nd power */
1998     d__1 = l2_1.x[0];
1999     l3_2.g[1] = l2_1.x[1] - d__1 * d__1;
2000     }
2001     return 0;
2002 labelL5:
2003     if (l10_3.index2[1]) {
2004     l5_2.gg[1] = l2_1.x[0] * -2.;
2005     }
2006     return 0;
2007 } /* tp22_ */
2008 
2009 
tp23_(int * mode)2010 /* Subroutine */ int tp23_(int *mode)
2011 {
2012     /* System generated locals */
2013     Real d__1, d__2;
2014 
2015     /* Local variables */
2016     static int i__;
2017 
2018     switch ((int)*mode) {
2019     case 1:  goto labelL1;
2020     case 2:  goto labelL2;
2021     case 3:  goto labelL3;
2022     case 4:  goto labelL4;
2023     case 5:  goto labelL5;
2024     }
2025 labelL1:
2026     l1_1.n = 2;
2027     l1_1.nili = 1;
2028     l1_1.ninl = 4;
2029     l1_1.neli = 0;
2030     l1_1.nenl = 0;
2031     l2_1.x[0] = 3.;
2032     l2_1.x[1] = 1.;
2033     for (i__ = 1; i__ <= 2; ++i__) {
2034     l11_1.lxl[i__ - 1] = true;
2035     l12_1.lxu[i__ - 1] = true;
2036     l13_1.xl[i__ - 1] = -50.;
2037 /* labelL6: */
2038     l14_1.xu[i__ - 1] = 50.;
2039     }
2040     l20_1.lex = true;
2041     l20_1.nex = 1;
2042     l20_1.xex[0] = 1.;
2043     l20_1.xex[1] = 1.;
2044     l20_1.fex = 2.;
2045     l5_4.gg[0] = 1.;
2046     l5_4.gg[5] = 1.;
2047     l5_4.gg[8] = -1.;
2048     l5_4.gg[4] = -1.;
2049     return 0;
2050 labelL2:
2051 /* Computing 2nd power */
2052     d__1 = l2_1.x[0];
2053 /* Computing 2nd power */
2054     d__2 = l2_1.x[1];
2055     l6_1.fx = d__1 * d__1 + d__2 * d__2;
2056     return 0;
2057 labelL3:
2058     l4_1.gf[0] = l2_1.x[0] * 2.;
2059     l4_1.gf[1] = l2_1.x[1] * 2.;
2060     return 0;
2061 labelL4:
2062     if (l9_5.index1[0]) {
2063     l3_4.g[0] = l2_1.x[0] + l2_1.x[1] - 1.;
2064     }
2065     if (l9_5.index1[1]) {
2066 /* Computing 2nd power */
2067     d__1 = l2_1.x[0];
2068 /* Computing 2nd power */
2069     d__2 = l2_1.x[1];
2070     l3_4.g[1] = d__1 * d__1 + d__2 * d__2 - 1.;
2071     }
2072     if (l9_5.index1[2]) {
2073 /* Computing 2nd power */
2074     d__1 = l2_1.x[0];
2075 /* Computing 2nd power */
2076     d__2 = l2_1.x[1];
2077     l3_4.g[2] = d__1 * d__1 * 9. + d__2 * d__2 - 9.;
2078     }
2079     if (l9_5.index1[3]) {
2080 /* Computing 2nd power */
2081     d__1 = l2_1.x[0];
2082     l3_4.g[3] = d__1 * d__1 - l2_1.x[1];
2083     }
2084     if (l9_5.index1[4]) {
2085 /* Computing 2nd power */
2086     d__1 = l2_1.x[1];
2087     l3_4.g[4] = d__1 * d__1 - l2_1.x[0];
2088     }
2089     return 0;
2090 labelL5:
2091     if (! l10_5.index2[1]) {
2092     goto L8;
2093     }
2094     l5_4.gg[1] = l2_1.x[0] * 2.;
2095     l5_4.gg[6] = l2_1.x[1] * 2.;
2096 L8:
2097     if (! l10_5.index2[2]) {
2098     goto labelL9;
2099     }
2100     l5_4.gg[2] = l2_1.x[0] * 18.;
2101     l5_4.gg[7] = l2_1.x[1] * 2.;
2102 labelL9:
2103     if (l10_5.index2[3]) {
2104     l5_4.gg[3] = l2_1.x[0] * 2.;
2105     }
2106     if (l10_5.index2[4]) {
2107     l5_4.gg[9] = l2_1.x[1] * 2.;
2108     }
2109     return 0;
2110 } /* tp23_ */
2111 
2112 
tp24_(int * mode)2113 /* Subroutine */ int tp24_(int *mode)
2114 {
2115     /* System generated locals */
2116     Real d__1, d__2;
2117 
2118     /* Local variables */
2119     static Real a;
2120     static int i__;
2121 
2122     a = std::sqrt(3.);
2123     switch ((int)*mode) {
2124     case 1:  goto labelL1;
2125     case 2:  goto labelL2;
2126     case 3:  goto labelL3;
2127     case 4:  goto labelL4;
2128     case 5:  goto labelL5;
2129     }
2130 labelL1:
2131     l1_1.n = 2;
2132     l1_1.nili = 3;
2133     l1_1.ninl = 0;
2134     l1_1.neli = 0;
2135     l1_1.nenl = 0;
2136     l2_1.x[0] = 1.;
2137     l2_1.x[1] = .5;
2138     for (i__ = 1; i__ <= 2; ++i__) {
2139     l11_1.lxl[i__ - 1] = true;
2140     l12_1.lxu[i__ - 1] = false;
2141 /* labelL6: */
2142     l13_1.xl[i__ - 1] = 0.;
2143     }
2144     l20_1.lex = true;
2145     l20_1.nex = 1;
2146     l20_1.xex[0] = 3.;
2147     l20_1.xex[1] = a;
2148     l20_1.fex = -1.;
2149     l5_3.gg[0] = 1. / a;
2150     l5_3.gg[3] = -1.;
2151     l5_3.gg[1] = 1.;
2152     l5_3.gg[4] = a;
2153     l5_3.gg[2] = -1.;
2154     l5_3.gg[5] = -a;
2155     return 0;
2156 labelL2:
2157 /* Computing 2nd power */
2158     d__1 = l2_1.x[0] - 3.;
2159 /* Computing 3rd power */
2160     d__2 = l2_1.x[1];
2161     l6_1.fx = (d__1 * d__1 - 9.) * (d__2 * (d__2 * d__2)) / (a * 27.);
2162     return 0;
2163 labelL3:
2164 /* Computing 3rd power */
2165     d__1 = l2_1.x[1];
2166     l4_1.gf[0] = (l2_1.x[0] - 3.) * 2. * (d__1 * (d__1 * d__1)) / (a * 27.);
2167 /* Computing 2nd power */
2168     d__1 = l2_1.x[0] - 3.;
2169 /* Computing 2nd power */
2170     d__2 = l2_1.x[1];
2171     l4_1.gf[1] = (d__1 * d__1 - 9.) * (d__2 * d__2) / (a * 9.);
2172     return 0;
2173 labelL4:
2174     if (l9_4.index1[0]) {
2175     l3_3.g[0] = l2_1.x[0] / a - l2_1.x[1];
2176     }
2177     if (l9_4.index1[1]) {
2178     l3_3.g[1] = l2_1.x[0] + l2_1.x[1] * a;
2179     }
2180     if (l9_4.index1[2]) {
2181     l3_3.g[2] = 6. - l2_1.x[1] * a - l2_1.x[0];
2182     }
2183 labelL5:
2184     return 0;
2185 } /* tp24_ */
2186 
2187 
tp25_(int * mode)2188 /* Subroutine */ int tp25_(int *mode)
2189 {
2190     /* System generated locals */
2191     Real d__1;
2192 
2193     /* Local variables */
2194     static Real a[99], b[99];
2195     static int i__, j;
2196     static Real s, t, u[99], v1, v2, da[297]    /* was [99][3] */,
2197         v11, v22;
2198 
2199     switch ((int)*mode) {
2200     case 1:  goto labelL1;
2201     case 2:  goto labelL2;
2202     case 3:  goto labelL3;
2203     case 4:  goto labelL4;
2204     case 5:  goto labelL4;
2205     }
2206 labelL1:
2207     l1_1.n = 3;
2208     l1_1.nili = 0;
2209     l1_1.ninl = 0;
2210     l1_1.neli = 0;
2211     l1_1.nenl = 0;
2212     l2_2.x[0] = 100.;
2213     l2_2.x[1] = 12.5;
2214     l2_2.x[2] = 3.;
2215     for (i__ = 1; i__ <= 3; ++i__) {
2216     l11_2.lxl[i__ - 1] = true;
2217 /* labelL6: */
2218     l12_2.lxu[i__ - 1] = true;
2219     }
2220     l13_2.xl[0] = .1;
2221     l13_2.xl[1] = 1e-5;
2222     l13_2.xl[2] = 1e-5;
2223     l14_2.xu[0] = 100.;
2224     l14_2.xu[1] = 25.6;
2225     l14_2.xu[2] = 5.;
2226     l20_3.lex = true;
2227     l20_3.nex = 1;
2228     l20_3.xex[0] = 50.;
2229     l20_3.xex[1] = 25.;
2230     l20_3.xex[2] = 3.;
2231     l20_3.fex = 0.;
2232     return 0;
2233 labelL2:
2234     for (i__ = 1; i__ <= 99; ++i__) {
2235     v1 = .66666666666666663;
2236     d__1 = std::log((Real) i__ * .01) * -50.;
2237     u[i__ - 1] = pow_dd(&d__1, &v1) + 25.;
2238     v1 = u[i__ - 1] - l2_2.x[1];
2239     if (v1 < 0.) {
2240         goto L7;
2241     }
2242     v11 = -pow_dd(&v1, &l2_2.x[2]) / l2_2.x[0];
2243     b[i__ - 1] = std::exp(v11);
2244 /* L30: */
2245     a[i__ - 1] = b[i__ - 1] - (Real) i__ * .01;
2246     }
2247     t = 0.;
2248     for (i__ = 1; i__ <= 99; ++i__) {
2249 /* L31: */
2250 /* Computing 2nd power */
2251     d__1 = a[i__ - 1];
2252     t += d__1 * d__1;
2253     }
2254     l6_1.fx = t;
2255     return 0;
2256 L7:
2257     s = 0.;
2258     for (i__ = 1; i__ <= 3; ++i__) {
2259 /* L8: */
2260 /* Computing 2nd power */
2261     d__1 = l2_2.x[i__ - 1] - 5.;
2262     s += d__1 * d__1;
2263     }
2264     l6_1.fx = s;
2265     return 0;
2266 labelL3:
2267     for (i__ = 1; i__ <= 99; ++i__) {
2268     v1 = .66666666666666663;
2269     d__1 = std::log((Real) i__ * .01) * -50.;
2270     u[i__ - 1] = pow_dd(&d__1, &v1) + 25.;
2271     v2 = u[i__ - 1] - l2_2.x[1];
2272     if (v2 <= 0.) {
2273         goto labelL9;
2274     }
2275     v22 = -pow_dd(&v2, &l2_2.x[2]) / l2_2.x[0];
2276     if (v22 > -150.) {
2277         goto L42;
2278     }
2279     b[i__ - 1] = 0.;
2280     goto L43;
2281 L42:
2282     b[i__ - 1] = std::exp(v22);
2283 L43:
2284     a[i__ - 1] = b[i__ - 1] - (Real) i__ * .01;
2285 /* Computing 2nd power */
2286     d__1 = l2_2.x[0];
2287     da[i__ - 1] = pow_dd(&v2, &l2_2.x[2]) / (d__1 * d__1) * b[i__ - 1];
2288     d__1 = l2_2.x[2] - 1.;
2289     da[i__ + 98] = l2_2.x[2] * pow_dd(&v2, &d__1) / l2_2.x[0] * b[i__ - 1]
2290         ;
2291 /* L36: */
2292     da[i__ + 197] = -pow_dd(&v2, &l2_2.x[2]) / l2_2.x[0] * std::log(v2) * b[
2293         i__ - 1];
2294     }
2295     for (i__ = 1; i__ <= 3; ++i__) {
2296     t = 0.;
2297     for (j = 1; j <= 99; ++j) {
2298 /* L33: */
2299         t += a[j - 1] * 2. * da[j + i__ * 99 - 100];
2300     }
2301 /* L34: */
2302     l4_2.gf[i__ - 1] = t;
2303     }
2304     return 0;
2305 labelL9:
2306     for (i__ = 1; i__ <= 3; ++i__) {
2307 /* labelL10: */
2308     l4_2.gf[i__ - 1] = (l2_2.x[i__ - 1] - 5.) * 2.;
2309     }
2310 labelL4:
2311     return 0;
2312 } /* tp25_ */
2313 
2314 
tp26_(int * mode)2315 /* Subroutine */ int tp26_(int *mode)
2316 {
2317     /* System generated locals */
2318     Real d__1, d__2;
2319 
2320     /* Local variables */
2321     static Real a;
2322     static int i__;
2323 
2324     switch ((int)*mode) {
2325     case 1:  goto labelL1;
2326     case 2:  goto labelL2;
2327     case 3:  goto labelL3;
2328     case 4:  goto labelL4;
2329     case 5:  goto labelL5;
2330     }
2331 labelL1:
2332     l1_1.n = 3;
2333     l1_1.nili = 0;
2334     l1_1.ninl = 0;
2335     l1_1.neli = 0;
2336     l1_1.nenl = 1;
2337     l2_2.x[0] = -2.6;
2338     l2_2.x[1] = 2.;
2339     l2_2.x[2] = 2.;
2340     for (i__ = 1; i__ <= 3; ++i__) {
2341     l11_2.lxl[i__ - 1] = false;
2342 /* labelL6: */
2343     l12_2.lxu[i__ - 1] = false;
2344     }
2345     l20_4.lex = true;
2346     l20_4.nex = 2;
2347     l20_4.xex[0] = 1.;
2348     l20_4.xex[1] = 1.;
2349     l20_4.xex[2] = 1.;
2350     a = std::sqrt(1.287037037037037);
2351     d__1 = a - 1.1296296296296295;
2352     d__2 = a + 1.1296296296296295;
2353     l20_4.xex[3] = pow_dd(&d__1, &c_b74) - pow_dd(&d__2, &c_b74) -
2354         .66666666666666663;
2355     l20_4.xex[4] = l20_4.xex[3];
2356     l20_4.xex[5] = l20_4.xex[3];
2357     l20_4.fex = 0.;
2358     return 0;
2359 labelL2:
2360 /* Computing 2nd power */
2361     d__1 = l2_2.x[0] - l2_2.x[1];
2362 /* Computing 4th power */
2363     d__2 = l2_2.x[1] - l2_2.x[2], d__2 *= d__2;
2364     l6_1.fx = d__1 * d__1 + d__2 * d__2;
2365     return 0;
2366 labelL3:
2367     l4_2.gf[0] = (l2_2.x[0] - l2_2.x[1]) * 2.;
2368 /* Computing 3rd power */
2369     d__1 = l2_2.x[1] - l2_2.x[2];
2370     l4_2.gf[2] = d__1 * (d__1 * d__1) * -4.;
2371     l4_2.gf[1] = -l4_2.gf[0] - l4_2.gf[2];
2372     return 0;
2373 labelL4:
2374     if (l9_2.index1[0]) {
2375 /* Computing 2nd power */
2376     d__1 = l2_2.x[1];
2377 /* Computing 4th power */
2378     d__2 = l2_2.x[2], d__2 *= d__2;
2379     l3_1.g[0] = l2_2.x[0] * (d__1 * d__1 + 1.) + d__2 * d__2 - 3.;
2380     }
2381     return 0;
2382 labelL5:
2383     if (! l10_2.index2[0]) {
2384     goto L7;
2385     }
2386 /* Computing 2nd power */
2387     d__1 = l2_2.x[1];
2388     l5_5.gg[0] = d__1 * d__1 + 1.;
2389     l5_5.gg[1] = l2_2.x[0] * 2. * l2_2.x[1];
2390 /* Computing 3rd power */
2391     d__1 = l2_2.x[2];
2392     l5_5.gg[2] = d__1 * (d__1 * d__1) * 4.;
2393 L7:
2394     return 0;
2395 } /* tp26_ */
2396 
2397 
tp27_(int * mode)2398 /* Subroutine */ int tp27_(int *mode)
2399 {
2400     /* System generated locals */
2401     Real d__1, d__2, d__3;
2402 
2403     /* Local variables */
2404     static int i__;
2405 
2406     switch ((int)*mode) {
2407     case 1:  goto labelL1;
2408     case 2:  goto labelL2;
2409     case 3:  goto labelL3;
2410     case 4:  goto labelL4;
2411     case 5:  goto labelL5;
2412     }
2413 labelL1:
2414     l1_1.n = 3;
2415     l1_1.nili = 0;
2416     l1_1.ninl = 0;
2417     l1_1.neli = 0;
2418     l1_1.nenl = 1;
2419     for (i__ = 1; i__ <= 3; ++i__) {
2420     l2_2.x[i__ - 1] = 2.;
2421     l11_2.lxl[i__ - 1] = false;
2422 /* labelL6: */
2423     l12_2.lxu[i__ - 1] = false;
2424     }
2425     l20_3.lex = true;
2426     l20_3.nex = 1;
2427     l20_3.xex[0] = -1.;
2428     l20_3.xex[1] = 1.;
2429     l20_3.xex[2] = 0.;
2430     l20_3.fex = (float)4.;
2431     l4_2.gf[2] = 0.;
2432     l5_5.gg[0] = 1.;
2433     l5_5.gg[1] = 0.;
2434     return 0;
2435 labelL2:
2436 /* Computing 2nd power */
2437     d__1 = l2_2.x[0] - 1.;
2438 /* Computing 2nd power */
2439     d__3 = l2_2.x[0];
2440 /* Computing 2nd power */
2441     d__2 = l2_2.x[1] - d__3 * d__3;
2442     l6_1.fx = d__1 * d__1 + d__2 * d__2 * (float)100.;
2443     return 0;
2444 labelL3:
2445 /* Computing 2nd power */
2446     d__1 = l2_2.x[0];
2447     l4_2.gf[1] = (l2_2.x[1] - d__1 * d__1) * 200.;
2448     l4_2.gf[0] = (l2_2.x[0] * (.01 - l4_2.gf[1]) - .01) * 200.;
2449     return 0;
2450 labelL4:
2451     if (l9_2.index1[0]) {
2452 /* Computing 2nd power */
2453     d__1 = l2_2.x[2];
2454     l3_1.g[0] = l2_2.x[0] + d__1 * d__1 + 1.;
2455     }
2456     return 0;
2457 labelL5:
2458     if (l10_2.index2[0]) {
2459     l5_5.gg[2] = l2_2.x[2] * 2.;
2460     }
2461     return 0;
2462 } /* tp27_ */
2463 
2464 
tp28_(int * mode)2465 /* Subroutine */ int tp28_(int *mode)
2466 {
2467     /* System generated locals */
2468     Real d__1, d__2;
2469 
2470     /* Local variables */
2471     static int i__;
2472 
2473     switch ((int)*mode) {
2474     case 1:  goto labelL1;
2475     case 2:  goto labelL2;
2476     case 3:  goto labelL3;
2477     case 4:  goto labelL4;
2478     case 5:  goto labelL5;
2479     }
2480 labelL1:
2481     l1_1.n = 3;
2482     l1_1.nili = 0;
2483     l1_1.ninl = 0;
2484     l1_1.neli = 1;
2485     l1_1.nenl = 0;
2486     l2_2.x[0] = -4.;
2487     l2_2.x[1] = 1.;
2488     l2_2.x[2] = 1.;
2489     for (i__ = 1; i__ <= 3; ++i__) {
2490     l11_2.lxl[i__ - 1] = false;
2491 /* labelL6: */
2492     l12_2.lxu[i__ - 1] = false;
2493     }
2494     l20_3.lex = true;
2495     l20_3.nex = 1;
2496     l20_3.xex[0] = .5;
2497     l20_3.xex[1] = -.5;
2498     l20_3.xex[2] = .5;
2499     l20_3.fex = 0.;
2500     l5_5.gg[0] = 1.;
2501     l5_5.gg[1] = 2.;
2502     l5_5.gg[2] = 3.;
2503     return 0;
2504 labelL2:
2505 /* Computing 2nd power */
2506     d__1 = l2_2.x[0] + l2_2.x[1];
2507 /* Computing 2nd power */
2508     d__2 = l2_2.x[1] + l2_2.x[2];
2509     l6_1.fx = d__1 * d__1 + d__2 * d__2;
2510     return 0;
2511 labelL3:
2512     l4_2.gf[0] = (l2_2.x[0] + l2_2.x[1]) * 2.;
2513     l4_2.gf[2] = (l2_2.x[1] + l2_2.x[2]) * 2.;
2514     l4_2.gf[1] = l4_2.gf[0] + l4_2.gf[2];
2515     return 0;
2516 labelL4:
2517     if (l9_2.index1[0]) {
2518     l3_1.g[0] = l2_2.x[0] + l2_2.x[1] * 2. + l2_2.x[2] * 3. - 1.;
2519     }
2520 labelL5:
2521     return 0;
2522 } /* tp28_ */
2523 
2524 
tp29_(int * mode)2525 /* Subroutine */ int tp29_(int *mode)
2526 {
2527     /* System generated locals */
2528     Real d__1, d__2, d__3;
2529 
2530     /* Local variables */
2531     static int i__;
2532 
2533     switch ((int)*mode) {
2534     case 1:  goto labelL1;
2535     case 2:  goto labelL2;
2536     case 3:  goto labelL3;
2537     case 4:  goto labelL4;
2538     case 5:  goto labelL5;
2539     }
2540 labelL1:
2541     l1_1.n = 3;
2542     l1_1.nili = 0;
2543     l1_1.ninl = 1;
2544     l1_1.neli = 0;
2545     l1_1.nenl = 0;
2546     for (i__ = 1; i__ <= 3; ++i__) {
2547     l2_2.x[i__ - 1] = 1.;
2548     l11_2.lxl[i__ - 1] = false;
2549 /* labelL6: */
2550     l12_2.lxu[i__ - 1] = false;
2551     }
2552     l20_5.lex = true;
2553     l20_5.nex = 4;
2554     l20_5.xex[0] = 4.;
2555     l20_5.xex[1] = std::sqrt(2.) * 2.;
2556     l20_5.xex[2] = 2.;
2557     l20_5.xex[3] = l20_5.xex[0];
2558     l20_5.xex[4] = -l20_5.xex[1];
2559     l20_5.xex[5] = -l20_5.xex[2];
2560     l20_5.xex[6] = -l20_5.xex[0];
2561     l20_5.xex[7] = l20_5.xex[1];
2562     l20_5.xex[8] = -l20_5.xex[2];
2563     l20_5.xex[9] = -l20_5.xex[0];
2564     l20_5.xex[10] = -l20_5.xex[1];
2565     l20_5.xex[11] = l20_5.xex[2];
2566     l20_5.fex = std::sqrt(2.) * -16.;
2567     return 0;
2568 labelL2:
2569     l6_1.fx = -l2_2.x[0] * l2_2.x[1] * l2_2.x[2];
2570     return 0;
2571 labelL3:
2572     l4_2.gf[0] = -l2_2.x[1] * l2_2.x[2];
2573     l4_2.gf[1] = -l2_2.x[0] * l2_2.x[2];
2574     l4_2.gf[2] = -l2_2.x[0] * l2_2.x[1];
2575     return 0;
2576 labelL4:
2577     if (l9_2.index1[0]) {
2578 /* Computing 2nd power */
2579     d__1 = l2_2.x[0];
2580 /* Computing 2nd power */
2581     d__2 = l2_2.x[1];
2582 /* Computing 2nd power */
2583     d__3 = l2_2.x[2];
2584     l3_1.g[0] = 48. - d__1 * d__1 - d__2 * d__2 * 2. - d__3 * d__3 * 4.;
2585     }
2586     return 0;
2587 labelL5:
2588     if (! l10_2.index2[0]) {
2589     goto L7;
2590     }
2591     l5_5.gg[0] = l2_2.x[0] * -2.;
2592     l5_5.gg[1] = l2_2.x[1] * -4.;
2593     l5_5.gg[2] = l2_2.x[2] * -8.;
2594 L7:
2595     return 0;
2596 } /* tp29_ */
2597 
2598 
tp30_(int * mode)2599 /* Subroutine */ int tp30_(int *mode)
2600 {
2601     /* System generated locals */
2602     Real d__1, d__2, d__3;
2603 
2604     /* Local variables */
2605     static int i__;
2606 
2607     switch ((int)*mode) {
2608     case 1:  goto labelL1;
2609     case 2:  goto labelL2;
2610     case 3:  goto labelL3;
2611     case 4:  goto labelL4;
2612     case 5:  goto labelL5;
2613     }
2614 labelL1:
2615     l1_1.n = 3;
2616     l1_1.nili = 0;
2617     l1_1.ninl = 1;
2618     l1_1.neli = 0;
2619     l1_1.nenl = 0;
2620     for (i__ = 1; i__ <= 3; ++i__) {
2621     l2_2.x[i__ - 1] = 1.;
2622     l11_2.lxl[i__ - 1] = true;
2623     l12_2.lxu[i__ - 1] = true;
2624 /* labelL6: */
2625     l14_2.xu[i__ - 1] = 10.;
2626     }
2627     l13_2.xl[0] = 1.;
2628     l13_2.xl[1] = -10.;
2629     l13_2.xl[2] = -10.;
2630     l20_3.lex = true;
2631     l20_3.nex = 1;
2632     l20_3.xex[0] = 1.;
2633     l20_3.xex[1] = 0.;
2634     l20_3.xex[2] = 0.;
2635     l20_3.fex = 1.;
2636     l5_5.gg[2] = 0.;
2637     return 0;
2638 labelL2:
2639 /* Computing 2nd power */
2640     d__1 = l2_2.x[0];
2641 /* Computing 2nd power */
2642     d__2 = l2_2.x[1];
2643 /* Computing 2nd power */
2644     d__3 = l2_2.x[2];
2645     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3;
2646     return 0;
2647 labelL3:
2648     l4_2.gf[0] = l2_2.x[0] * 2.;
2649     l4_2.gf[1] = l2_2.x[1] * 2.;
2650     l4_2.gf[2] = l2_2.x[2] * 2.;
2651     return 0;
2652 labelL4:
2653     if (l9_2.index1[0]) {
2654 /* Computing 2nd power */
2655     d__1 = l2_2.x[0];
2656 /* Computing 2nd power */
2657     d__2 = l2_2.x[1];
2658     l3_1.g[0] = d__1 * d__1 + d__2 * d__2 - 1.;
2659     }
2660     return 0;
2661 labelL5:
2662     if (! l10_2.index2[0]) {
2663     goto L7;
2664     }
2665     l5_5.gg[0] = l2_2.x[0] * 2.;
2666     l5_5.gg[1] = l2_2.x[1] * 2.;
2667 L7:
2668     return 0;
2669 } /* tp30_ */
2670 
2671 
tp31_(int * mode)2672 /* Subroutine */ int tp31_(int *mode)
2673 {
2674     /* System generated locals */
2675     Real d__1, d__2, d__3;
2676 
2677     /* Local variables */
2678     static int i__;
2679 
2680     switch ((int)*mode) {
2681     case 1:  goto labelL1;
2682     case 2:  goto labelL2;
2683     case 3:  goto labelL3;
2684     case 4:  goto labelL4;
2685     case 5:  goto labelL5;
2686     }
2687 labelL1:
2688     l1_1.n = 3;
2689     l1_1.nili = 0;
2690     l1_1.ninl = 1;
2691     l1_1.neli = 0;
2692     l1_1.nenl = 0;
2693     for (i__ = 1; i__ <= 3; ++i__) {
2694     l2_2.x[i__ - 1] = 1.;
2695     l11_2.lxl[i__ - 1] = true;
2696 /* labelL6: */
2697     l12_2.lxu[i__ - 1] = true;
2698     }
2699     l13_2.xl[0] = -10.;
2700     l13_2.xl[1] = 1.;
2701     l13_2.xl[2] = -10.;
2702     l14_2.xu[0] = 10.;
2703     l14_2.xu[1] = 10.;
2704     l14_2.xu[2] = 1.;
2705     l20_3.lex = true;
2706     l20_3.nex = 1;
2707     l20_3.xex[0] = 1. / std::sqrt(3.);
2708     l20_3.xex[1] = std::sqrt(3.);
2709     l20_3.xex[2] = 0.;
2710     l20_3.fex = 6.;
2711     l5_5.gg[2] = 0.;
2712     return 0;
2713 labelL2:
2714 /* Computing 2nd power */
2715     d__1 = l2_2.x[0];
2716 /* Computing 2nd power */
2717     d__2 = l2_2.x[1];
2718 /* Computing 2nd power */
2719     d__3 = l2_2.x[2];
2720     l6_1.fx = d__1 * d__1 * 9. + d__2 * d__2 + d__3 * d__3 * 9.;
2721     return 0;
2722 labelL3:
2723     l4_2.gf[0] = l2_2.x[0] * 18.;
2724     l4_2.gf[1] = l2_2.x[1] * 2.;
2725     l4_2.gf[2] = l2_2.x[2] * 18.;
2726     return 0;
2727 labelL4:
2728     if (l9_2.index1[0]) {
2729     l3_1.g[0] = l2_2.x[0] * l2_2.x[1] - 1.;
2730     }
2731     return 0;
2732 labelL5:
2733     if (! l10_2.index2[0]) {
2734     goto L7;
2735     }
2736     l5_5.gg[0] = l2_2.x[1];
2737     l5_5.gg[1] = l2_2.x[0];
2738 L7:
2739     return 0;
2740 } /* tp31_ */
2741 
2742 
tp32_(int * mode)2743 /* Subroutine */ int tp32_(int *mode)
2744 {
2745     /* System generated locals */
2746     Real d__1, d__2;
2747 
2748     /* Local variables */
2749     static int i__;
2750 
2751     switch ((int)*mode) {
2752     case 1:  goto labelL1;
2753     case 2:  goto labelL2;
2754     case 3:  goto labelL3;
2755     case 4:  goto labelL4;
2756     case 5:  goto labelL5;
2757     }
2758 labelL1:
2759     l1_1.n = 3;
2760     l1_1.nili = 0;
2761     l1_1.ninl = 1;
2762     l1_1.neli = 1;
2763     l1_1.nenl = 0;
2764     l2_2.x[0] = .1;
2765     l2_2.x[1] = .7;
2766     l2_2.x[2] = .2;
2767     for (i__ = 1; i__ <= 3; ++i__) {
2768     l11_2.lxl[i__ - 1] = true;
2769     l12_2.lxu[i__ - 1] = false;
2770 /* labelL6: */
2771     l13_2.xl[i__ - 1] = 0.;
2772     }
2773     l20_3.lex = true;
2774     l20_3.nex = 1;
2775     l20_3.xex[0] = 0.;
2776     l20_3.xex[1] = 0.;
2777     l20_3.xex[2] = 1.;
2778     l20_3.fex = 1.;
2779     l5_3.gg[2] = 6.;
2780     l5_3.gg[4] = 4.;
2781     l5_3.gg[1] = -1.;
2782     l5_3.gg[3] = -1.;
2783     l5_3.gg[5] = -1.;
2784     return 0;
2785 labelL2:
2786 /* Computing 2nd power */
2787     d__1 = l2_2.x[0] + l2_2.x[1] * 3. + l2_2.x[2];
2788 /* Computing 2nd power */
2789     d__2 = l2_2.x[0] - l2_2.x[1];
2790     l6_1.fx = d__1 * d__1 + d__2 * d__2 * 4.;
2791     return 0;
2792 labelL3:
2793     l4_2.gf[0] = l2_2.x[0] * 10. - l2_2.x[1] * 2. + l2_2.x[2] * 2.;
2794     l4_2.gf[1] = l2_2.x[0] * -2. + l2_2.x[1] * 26. + l2_2.x[2] * 6.;
2795     l4_2.gf[2] = (l2_2.x[0] + l2_2.x[1] * 3. + l2_2.x[2]) * 2.;
2796     return 0;
2797 labelL4:
2798     if (l9_3.index1[0]) {
2799 /* Computing 3rd power */
2800     d__1 = l2_2.x[0];
2801     l3_2.g[0] = -(d__1 * (d__1 * d__1)) + l2_2.x[1] * 6. + l2_2.x[2] * 4.
2802         - 3.;
2803     }
2804     if (l9_3.index1[1]) {
2805     l3_2.g[1] = 1. - l2_2.x[0] - l2_2.x[1] - l2_2.x[2];
2806     }
2807     return 0;
2808 labelL5:
2809     if (l10_3.index2[0]) {
2810 /* Computing 2nd power */
2811     d__1 = l2_2.x[0];
2812     l5_3.gg[0] = d__1 * d__1 * -3.;
2813     }
2814     return 0;
2815 } /* tp32_ */
2816 
2817 
tp33_(int * mode)2818 /* Subroutine */ int tp33_(int *mode)
2819 {
2820     /* System generated locals */
2821     Real d__1, d__2, d__3;
2822 
2823 
2824     /* Local variables */
2825     static int i__;
2826 
2827     switch ((int)*mode) {
2828     case 1:  goto labelL1;
2829     case 2:  goto labelL2;
2830     case 3:  goto labelL3;
2831     case 4:  goto labelL4;
2832     case 5:  goto labelL5;
2833     }
2834 labelL1:
2835     l1_1.n = 3;
2836     l1_1.nili = 0;
2837     l1_1.ninl = 2;
2838     l1_1.neli = 0;
2839     l1_1.nenl = 0;
2840     l2_2.x[0] = 0.;
2841     l2_2.x[1] = 0.;
2842     l2_2.x[2] = 3.;
2843     for (i__ = 1; i__ <= 3; ++i__) {
2844     l11_2.lxl[i__ - 1] = true;
2845 /* labelL6: */
2846     l13_2.xl[i__ - 1] = 0.;
2847     }
2848     l12_2.lxu[0] = false;
2849     l12_2.lxu[1] = false;
2850     l12_2.lxu[2] = true;
2851     l14_2.xu[2] = 5.;
2852     l20_3.lex = true;
2853     l20_3.nex = 2;
2854     l20_3.xex[0] = 0.;
2855     l20_3.xex[1] = std::sqrt(2.);
2856     l20_3.xex[2] = std::sqrt(2.);
2857     l20_3.fex = std::sqrt(2.) - (float)6.;
2858     l4_2.gf[1] = 0.;
2859     l4_2.gf[2] = 1.;
2860     return 0;
2861 labelL2:
2862     l6_1.fx = (l2_2.x[0] - 1.) * (l2_2.x[0] - 2.) * (l2_2.x[0] - 3.) + l2_2.x[
2863         2];
2864     return 0;
2865 labelL3:
2866 /* Computing 2nd power */
2867     d__1 = l2_2.x[0];
2868     l4_2.gf[0] = d__1 * d__1 * 3. - l2_2.x[0] * 12. + 11.;
2869     return 0;
2870 labelL4:
2871     if (l9_3.index1[0]) {
2872 /* Computing 2nd power */
2873     d__1 = l2_2.x[2];
2874 /* Computing 2nd power */
2875     d__2 = l2_2.x[0];
2876 /* Computing 2nd power */
2877     d__3 = l2_2.x[1];
2878     l3_2.g[0] = d__1 * d__1 - d__2 * d__2 - d__3 * d__3;
2879     }
2880     if (l9_3.index1[1]) {
2881 /* Computing 2nd power */
2882     d__1 = l2_2.x[0];
2883 /* Computing 2nd power */
2884     d__2 = l2_2.x[1];
2885 /* Computing 2nd power */
2886     d__3 = l2_2.x[2];
2887     l3_2.g[1] = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 - 4.;
2888     }
2889     return 0;
2890 labelL5:
2891     if (! l10_3.index2[0]) {
2892     goto L7;
2893     }
2894     l5_3.gg[0] = l2_2.x[0] * -2.;
2895     l5_3.gg[2] = l2_2.x[1] * -2.;
2896     l5_3.gg[4] = l2_2.x[2] * 2.;
2897 L7:
2898     if (! l10_3.index2[1]) {
2899     goto L8;
2900     }
2901     l5_3.gg[1] = l2_2.x[0] * 2.;
2902     l5_3.gg[3] = l2_2.x[1] * 2.;
2903     l5_3.gg[5] = l2_2.x[2] * 2.;
2904 L8:
2905     return 0;
2906 } /* tp33_ */
2907 
2908 
tp34_(int * mode)2909 /* Subroutine */ int tp34_(int *mode)
2910 {
2911     /* Local variables */
2912     static int i__;
2913 
2914     switch ((int)*mode) {
2915     case 1:  goto labelL1;
2916     case 2:  goto labelL2;
2917     case 3:  goto labelL3;
2918     case 4:  goto labelL4;
2919     case 5:  goto labelL5;
2920     }
2921 labelL1:
2922     l1_1.n = 3;
2923     l1_1.nili = 0;
2924     l1_1.ninl = 2;
2925     l1_1.neli = 0;
2926     l1_1.nenl = 0;
2927     l2_2.x[0] = 0.;
2928     l2_2.x[1] = 1.05;
2929     l2_2.x[2] = 2.9;
2930     for (i__ = 1; i__ <= 3; ++i__) {
2931     l11_2.lxl[i__ - 1] = true;
2932     l12_2.lxu[i__ - 1] = true;
2933 /* labelL6: */
2934     l13_2.xl[i__ - 1] = 0.;
2935     }
2936     l14_2.xu[0] = 100.;
2937     l14_2.xu[1] = 100.;
2938     l14_2.xu[2] = 10.;
2939     l20_3.lex = true;
2940     l20_3.nex = 1;
2941     l20_3.xex[0] = std::log(std::log(10.));
2942     l20_3.xex[1] = std::log(10.);
2943     l20_3.xex[2] = 10.;
2944     l20_3.fex = -l20_3.xex[0];
2945     l4_2.gf[0] = -1.;
2946     l4_2.gf[1] = 0.;
2947     l4_2.gf[2] = 0.;
2948     l5_3.gg[2] = 1.;
2949     l5_3.gg[4] = 0.;
2950     l5_3.gg[1] = 0.;
2951     l5_3.gg[5] = 1.;
2952     return 0;
2953 labelL2:
2954     l6_1.fx = -l2_2.x[0];
2955 labelL3:
2956     return 0;
2957 labelL4:
2958     if (l9_3.index1[0]) {
2959     l3_2.g[0] = l2_2.x[1] - std::exp(l2_2.x[0]);
2960     }
2961     if (l9_3.index1[1]) {
2962     l3_2.g[1] = l2_2.x[2] - std::exp(l2_2.x[1]);
2963     }
2964     return 0;
2965 labelL5:
2966     if (l10_3.index2[0]) {
2967     l5_3.gg[0] = -std::exp(l2_2.x[0]);
2968     }
2969     if (l10_3.index2[1]) {
2970     l5_3.gg[3] = -std::exp(l2_2.x[1]);
2971     }
2972     return 0;
2973 } /* tp34_ */
2974 
2975 
tp35_(int * mode)2976 /* Subroutine */ int tp35_(int *mode)
2977 {
2978     /* System generated locals */
2979     Real d__1, d__2, d__3;
2980 
2981     /* Local variables */
2982     static int i__;
2983 
2984     switch ((int)*mode) {
2985     case 1:  goto labelL1;
2986     case 2:  goto labelL2;
2987     case 3:  goto labelL3;
2988     case 4:  goto labelL4;
2989     case 5:  goto labelL5;
2990     }
2991 labelL1:
2992     l1_1.n = 3;
2993     l1_1.nili = 1;
2994     l1_1.ninl = 0;
2995     l1_1.neli = 0;
2996     l1_1.nenl = 0;
2997     for (i__ = 1; i__ <= 3; ++i__) {
2998     l2_2.x[i__ - 1] = .5;
2999     l11_2.lxl[i__ - 1] = true;
3000     l12_2.lxu[i__ - 1] = false;
3001 /* labelL6: */
3002     l13_2.xl[i__ - 1] = 0.;
3003     }
3004     l20_3.lex = true;
3005     l20_3.nex = 1;
3006     l20_3.xex[0] = 1.3333333333333333;
3007     l20_3.xex[1] = .77777777777777779;
3008     l20_3.xex[2] = .44444444444444442;
3009     l20_3.fex = .1111111111111111;
3010     l5_5.gg[0] = -1.;
3011     l5_5.gg[1] = -1.;
3012     l5_5.gg[2] = -2.;
3013     return 0;
3014 labelL2:
3015 /* Computing 2nd power */
3016     d__1 = l2_2.x[0];
3017 /* Computing 2nd power */
3018     d__2 = l2_2.x[1];
3019 /* Computing 2nd power */
3020     d__3 = l2_2.x[2];
3021     l6_1.fx = 9. - l2_2.x[0] * 8. - l2_2.x[1] * 6. - l2_2.x[2] * 4. + d__1 *
3022         d__1 * 2. + d__2 * d__2 * 2. + d__3 * d__3 + l2_2.x[0] * 2. *
3023         l2_2.x[1] + l2_2.x[0] * 2. * l2_2.x[2];
3024     return 0;
3025 labelL3:
3026     l4_2.gf[0] = l2_2.x[0] * 4. - 8. + l2_2.x[1] * 2. + l2_2.x[2] * 2.;
3027     l4_2.gf[1] = l2_2.x[1] * 4. - 6. + l2_2.x[0] * 2.;
3028     l4_2.gf[2] = l2_2.x[2] * 2. - 4. + l2_2.x[0] * 2.;
3029     return 0;
3030 labelL4:
3031     if (l9_2.index1[0]) {
3032     l3_1.g[0] = -l2_2.x[0] - l2_2.x[1] - l2_2.x[2] * 2. + 3.;
3033     }
3034 labelL5:
3035     return 0;
3036 } /* tp35_ */
3037 
3038 
tp36_(int * mode)3039 /* Subroutine */ int tp36_(int *mode)
3040 {
3041     static int i__;
3042 
3043     switch ((int)*mode) {
3044     case 1:  goto labelL1;
3045     case 2:  goto labelL2;
3046     case 3:  goto labelL3;
3047     case 4:  goto labelL4;
3048     case 5:  goto labelL5;
3049     }
3050 labelL1:
3051     l1_1.n = 3;
3052     l1_1.nili = 1;
3053     l1_1.ninl = 0;
3054     l1_1.neli = 0;
3055     l1_1.nenl = 0;
3056     for (i__ = 1; i__ <= 3; ++i__) {
3057     l2_2.x[i__ - 1] = 10.;
3058     l11_2.lxl[i__ - 1] = true;
3059     l12_2.lxu[i__ - 1] = true;
3060 /* labelL6: */
3061     l13_2.xl[i__ - 1] = 0.;
3062     }
3063     l14_2.xu[0] = 20.;
3064     l14_2.xu[1] = 11.;
3065     l14_2.xu[2] = 42.;
3066     l20_3.lex = true;
3067     l20_3.nex = 1;
3068     l20_3.xex[0] = 20.;
3069     l20_3.xex[1] = 11.;
3070     l20_3.xex[2] = 15.;
3071     l20_3.fex = -3300.;
3072     l5_5.gg[0] = -1.;
3073     l5_5.gg[1] = -2.;
3074     l5_5.gg[2] = -2.;
3075     return 0;
3076 labelL2:
3077     l6_1.fx = -l2_2.x[0] * l2_2.x[1] * l2_2.x[2];
3078     return 0;
3079 labelL3:
3080     l4_2.gf[0] = -l2_2.x[1] * l2_2.x[2];
3081     l4_2.gf[1] = -l2_2.x[0] * l2_2.x[2];
3082     l4_2.gf[2] = -l2_2.x[0] * l2_2.x[1];
3083     return 0;
3084 labelL4:
3085     if (l9_2.index1[0]) {
3086     l3_1.g[0] = 72. - l2_2.x[0] - l2_2.x[1] * 2. - l2_2.x[2] * 2.;
3087     }
3088     return 0;
3089 labelL5:
3090     return 0;
3091 } /* tp36_ */
3092 
3093 
tp37_(int * mode)3094 /* Subroutine */ int tp37_(int *mode)
3095 {
3096     static int i__;
3097 
3098     switch ((int)*mode) {
3099     case 1:  goto labelL1;
3100     case 2:  goto labelL2;
3101     case 3:  goto labelL3;
3102     case 4:  goto labelL4;
3103     case 5:  goto labelL5;
3104     }
3105 labelL1:
3106     l1_1.n = 3;
3107     l1_1.nili = 2;
3108     l1_1.ninl = 0;
3109     l1_1.neli = 0;
3110     l1_1.nenl = 0;
3111     for (i__ = 1; i__ <= 3; ++i__) {
3112     l2_2.x[i__ - 1] = 10.;
3113     l11_2.lxl[i__ - 1] = true;
3114     l12_2.lxu[i__ - 1] = true;
3115     l14_2.xu[i__ - 1] = 42.;
3116 /* labelL6: */
3117     l13_2.xl[i__ - 1] = 0.;
3118     }
3119     l20_3.lex = true;
3120     l20_3.nex = 1;
3121     l20_3.xex[0] = 24.;
3122     l20_3.xex[1] = 12.;
3123     l20_3.xex[2] = 12.;
3124     l20_3.fex = -3456.;
3125     l5_3.gg[0] = -1.;
3126     l5_3.gg[2] = -2.;
3127     l5_3.gg[4] = -2.;
3128     l5_3.gg[1] = 1.;
3129     l5_3.gg[3] = 2.;
3130     l5_3.gg[5] = 2.;
3131     return 0;
3132 labelL2:
3133     l6_1.fx = -l2_2.x[0] * l2_2.x[1] * l2_2.x[2];
3134     return 0;
3135 labelL3:
3136     l4_2.gf[0] = -l2_2.x[1] * l2_2.x[2];
3137     l4_2.gf[1] = -l2_2.x[0] * l2_2.x[2];
3138     l4_2.gf[2] = -l2_2.x[0] * l2_2.x[1];
3139     return 0;
3140 labelL4:
3141     if (l9_3.index1[0]) {
3142     l3_2.g[0] = 72. - l2_2.x[0] - l2_2.x[1] * 2. - l2_2.x[2] * 2.;
3143     }
3144     if (l9_3.index1[1]) {
3145     l3_2.g[1] = l2_2.x[0] + l2_2.x[1] * 2. + l2_2.x[2] * 2.;
3146     }
3147 labelL5:
3148     return 0;
3149 } /* tp37_ */
3150 
3151 
tp38_(int * mode)3152 /* Subroutine */ int tp38_(int *mode)
3153 {
3154     /* System generated locals */
3155     Real d__1, d__2, d__3, d__4, d__5, d__6, d__7, d__8;
3156 
3157     /* Local variables */
3158     static int i__;
3159 
3160     switch ((int)*mode) {
3161     case 1:  goto labelL1;
3162     case 2:  goto labelL2;
3163     case 3:  goto labelL3;
3164     case 4:  goto labelL4;
3165     case 5:  goto labelL4;
3166     }
3167 labelL1:
3168     l1_1.n = 4;
3169     l1_1.nili = 0;
3170     l1_1.ninl = 0;
3171     l1_1.neli = 0;
3172     l1_1.nenl = 0;
3173     l2_3.x[0] = -3.;
3174     l2_3.x[1] = -1.;
3175     l2_3.x[2] = -3.;
3176     l2_3.x[3] = -1.;
3177     for (i__ = 1; i__ <= 4; ++i__) {
3178     l11_3.lxl[i__ - 1] = true;
3179     l12_3.lxu[i__ - 1] = true;
3180     l13_3.xl[i__ - 1] = -10.;
3181 /* labelL6: */
3182     l14_3.xu[i__ - 1] = 10.;
3183     }
3184     l20_6.lex = true;
3185     l20_6.nex = 1;
3186     for (i__ = 1; i__ <= 4; ++i__) {
3187 /* L30: */
3188     l20_6.xex[i__ - 1] = 1.;
3189     }
3190     l20_6.fex = 0.;
3191     return 0;
3192 labelL2:
3193 /* Computing 2nd power */
3194     d__2 = l2_3.x[0];
3195 /* Computing 2nd power */
3196     d__1 = l2_3.x[1] - d__2 * d__2;
3197 /* Computing 2nd power */
3198     d__3 = 1. - l2_3.x[0];
3199 /* Computing 2nd power */
3200     d__5 = l2_3.x[2];
3201 /* Computing 2nd power */
3202     d__4 = l2_3.x[3] - d__5 * d__5;
3203 /* Computing 2nd power */
3204     d__6 = 1. - l2_3.x[2];
3205 /* Computing 2nd power */
3206     d__7 = l2_3.x[1] - 1.;
3207 /* Computing 2nd power */
3208     d__8 = l2_3.x[3] - 1.;
3209     l6_1.fx = (d__1 * d__1 * 100. + d__3 * d__3 + d__4 * d__4 * 90. + d__6 *
3210         d__6 + (d__7 * d__7 + d__8 * d__8) * 10.1 + (l2_3.x[1] - 1.) *
3211         19.8 * (l2_3.x[3] - 1.)) * 1e-5;
3212     return 0;
3213 labelL3:
3214 /* Computing 2nd power */
3215     d__1 = l2_3.x[0];
3216     l4_3.gf[0] = (l2_3.x[0] * -400. * (l2_3.x[1] - d__1 * d__1) - (1. -
3217         l2_3.x[0]) * 2.) * 1e-5;
3218 /* Computing 2nd power */
3219     d__1 = l2_3.x[0];
3220     l4_3.gf[1] = ((l2_3.x[1] - d__1 * d__1) * 200. + (l2_3.x[1] - 1.) * 20.2
3221         + (l2_3.x[3] - 1.) * 19.8) * 1e-5;
3222 /* Computing 2nd power */
3223     d__1 = l2_3.x[2];
3224     l4_3.gf[2] = (l2_3.x[2] * -360. * (l2_3.x[3] - d__1 * d__1) - (1. -
3225         l2_3.x[2]) * 2.) * 1e-5;
3226 /* Computing 2nd power */
3227     d__1 = l2_3.x[2];
3228     l4_3.gf[3] = ((l2_3.x[3] - d__1 * d__1) * 180. + (l2_3.x[3] - 1.) * 20.2
3229         + (l2_3.x[1] - 1.) * 19.8) * 1e-5;
3230 labelL4:
3231     return 0;
3232 } /* tp38_ */
3233 
3234 
tp39_(int * mode)3235 /* Subroutine */ int tp39_(int *mode)
3236 {
3237     /* System generated locals */
3238     Real d__1, d__2;
3239 
3240     /* Local variables */
3241     static int i__;
3242 
3243     switch ((int)*mode) {
3244     case 1:  goto labelL1;
3245     case 2:  goto labelL2;
3246     case 3:  goto labelL3;
3247     case 4:  goto labelL4;
3248     case 5:  goto labelL5;
3249     }
3250 labelL1:
3251     l1_1.n = 4;
3252     l1_1.nili = 0;
3253     l1_1.ninl = 0;
3254     l1_1.neli = 0;
3255     l1_1.nenl = 2;
3256     for (i__ = 1; i__ <= 4; ++i__) {
3257     l2_3.x[i__ - 1] = 2.;
3258     l11_3.lxl[i__ - 1] = false;
3259 /* labelL6: */
3260     l12_3.lxu[i__ - 1] = false;
3261     }
3262     l20_6.nex = 1;
3263     l20_6.lex = true;
3264     l20_6.xex[0] = 1.;
3265     l20_6.xex[1] = 1.;
3266     l20_6.xex[2] = 0.;
3267     l20_6.xex[3] = 0.;
3268     l20_6.fex = -1.;
3269     l4_3.gf[0] = -1.;
3270     l4_3.gf[1] = 0.;
3271     l4_3.gf[2] = 0.;
3272     l4_3.gf[3] = 0.;
3273     l5_6.gg[2] = 1.;
3274     l5_6.gg[6] = 0.;
3275     l5_6.gg[3] = -1.;
3276     l5_6.gg[5] = 0.;
3277     return 0;
3278 labelL2:
3279     l6_1.fx = -l2_3.x[0];
3280 labelL3:
3281     return 0;
3282 labelL4:
3283     if (l9_3.index1[0]) {
3284 /* Computing 3rd power */
3285     d__1 = l2_3.x[0];
3286 /* Computing 2nd power */
3287     d__2 = l2_3.x[2];
3288     l3_2.g[0] = l2_3.x[1] - d__1 * (d__1 * d__1) - d__2 * d__2;
3289     }
3290     if (l9_3.index1[1]) {
3291 /* Computing 2nd power */
3292     d__1 = l2_3.x[0];
3293 /* Computing 2nd power */
3294     d__2 = l2_3.x[3];
3295     l3_2.g[1] = d__1 * d__1 - l2_3.x[1] - d__2 * d__2;
3296     }
3297     return 0;
3298 labelL5:
3299     if (! l10_3.index2[0]) {
3300     goto L7;
3301     }
3302 /* Computing 2nd power */
3303     d__1 = l2_3.x[0];
3304     l5_6.gg[0] = d__1 * d__1 * -3.;
3305     l5_6.gg[4] = l2_3.x[2] * -2.;
3306 L7:
3307     if (! l10_3.index2[1]) {
3308     goto L8;
3309     }
3310     l5_6.gg[1] = l2_3.x[0] * 2.;
3311     l5_6.gg[7] = l2_3.x[3] * -2.;
3312 L8:
3313     return 0;
3314 } /* tp39_ */
3315 
3316 
tp40_(int * mode)3317 /* Subroutine */ int tp40_(int *mode)
3318 {
3319     /* System generated locals */
3320     Real d__1, d__2;
3321 
3322     /* Local variables */
3323     static int i__, j;
3324 
3325     switch ((int)*mode) {
3326     case 1:  goto labelL1;
3327     case 2:  goto labelL2;
3328     case 3:  goto labelL3;
3329     case 4:  goto labelL4;
3330     case 5:  goto labelL5;
3331     }
3332 labelL1:
3333     l1_1.n = 4;
3334     l1_1.nili = 0;
3335     l1_1.ninl = 0;
3336     l1_1.neli = 0;
3337     l1_1.nenl = 3;
3338     for (i__ = 1; i__ <= 4; ++i__) {
3339     l2_3.x[i__ - 1] = .8;
3340     l11_3.lxl[i__ - 1] = false;
3341 /* labelL6: */
3342     l12_3.lxu[i__ - 1] = false;
3343     }
3344     for (i__ = 1; i__ <= 3; ++i__) {
3345     for (j = 1; j <= 4; ++j) {
3346 /* L15: */
3347         l5_7.gg[i__ + j * 3 - 4] = 0.;
3348     }
3349     }
3350     l5_7.gg[7] = -1.;
3351     l5_7.gg[5] = -1.;
3352     l20_2.lex = true;
3353     l20_2.xex[0] = pow_dd(&c_b305, &c_b306);
3354     l20_2.xex[1] = pow_dd(&c_b305, &c_b308);
3355     l20_2.xex[2] = pow_dd(&c_b305, &c_b310);
3356     l20_2.xex[3] = pow_dd(&c_b305, &c_b312);
3357     l20_2.xex[4] = l20_2.xex[0];
3358     l20_2.xex[5] = l20_2.xex[1];
3359     l20_2.xex[6] = -l20_2.xex[2];
3360     l20_2.xex[7] = -l20_2.xex[3];
3361     l20_2.fex = -.25;
3362     l20_2.nex = 2;
3363     return 0;
3364 labelL2:
3365     l6_1.fx = -l2_3.x[0] * l2_3.x[1] * l2_3.x[2] * l2_3.x[3];
3366     return 0;
3367 labelL3:
3368     l4_3.gf[0] = -l2_3.x[1] * l2_3.x[2] * l2_3.x[3];
3369     l4_3.gf[1] = -l2_3.x[0] * l2_3.x[2] * l2_3.x[3];
3370     l4_3.gf[2] = -l2_3.x[0] * l2_3.x[1] * l2_3.x[3];
3371     l4_3.gf[3] = -l2_3.x[0] * l2_3.x[1] * l2_3.x[2];
3372     return 0;
3373 labelL4:
3374     if (l9_4.index1[0]) {
3375 /* Computing 3rd power */
3376     d__1 = l2_3.x[0];
3377 /* Computing 2nd power */
3378     d__2 = l2_3.x[1];
3379     l3_3.g[0] = d__1 * (d__1 * d__1) + d__2 * d__2 - 1.;
3380     }
3381     if (l9_4.index1[1]) {
3382 /* Computing 2nd power */
3383     d__1 = l2_3.x[0];
3384     l3_3.g[1] = d__1 * d__1 * l2_3.x[3] - l2_3.x[2];
3385     }
3386     if (l9_4.index1[2]) {
3387 /* Computing 2nd power */
3388     d__1 = l2_3.x[3];
3389     l3_3.g[2] = d__1 * d__1 - l2_3.x[1];
3390     }
3391     return 0;
3392 labelL5:
3393     if (! l10_4.index2[0]) {
3394     goto L7;
3395     }
3396 /* Computing 2nd power */
3397     d__1 = l2_3.x[0];
3398     l5_7.gg[0] = d__1 * d__1 * 3.;
3399     l5_7.gg[3] = l2_3.x[1] * 2.;
3400 L7:
3401     if (! l10_4.index2[1]) {
3402     goto L8;
3403     }
3404     l5_7.gg[1] = l2_3.x[0] * 2. * l2_3.x[3];
3405 /* Computing 2nd power */
3406     d__1 = l2_3.x[0];
3407     l5_7.gg[10] = d__1 * d__1;
3408 L8:
3409     if (! l10_4.index2[2]) {
3410     goto labelL9;
3411     }
3412     l5_7.gg[11] = l2_3.x[3] * 2.;
3413 labelL9:
3414     return 0;
3415 } /* tp40_ */
3416 
3417 
tp41_(int * mode)3418 /* Subroutine */ int tp41_(int *mode)
3419 {
3420     static int i__;
3421 
3422     switch ((int)*mode) {
3423     case 1:  goto labelL1;
3424     case 2:  goto labelL2;
3425     case 3:  goto labelL3;
3426     case 4:  goto labelL4;
3427     case 5:  goto labelL5;
3428     }
3429 labelL1:
3430     l1_1.n = 4;
3431     l1_1.nili = 0;
3432     l1_1.ninl = 0;
3433     l1_1.neli = 1;
3434     l1_1.nenl = 0;
3435     for (i__ = 1; i__ <= 4; ++i__) {
3436     l2_3.x[i__ - 1] = 2.;
3437     l11_3.lxl[i__ - 1] = true;
3438     l12_3.lxu[i__ - 1] = true;
3439 /* labelL6: */
3440     l13_3.xl[i__ - 1] = 0.;
3441     }
3442     l14_3.xu[0] = 1.;
3443     l14_3.xu[1] = 1.;
3444     l14_3.xu[2] = 1.;
3445     l14_3.xu[3] = 2.;
3446     l4_3.gf[3] = 0.;
3447     l5_2.gg[0] = 1.;
3448     l5_2.gg[1] = 2.;
3449     l5_2.gg[2] = 2.;
3450     l5_2.gg[3] = -1.;
3451     l20_6.lex = true;
3452     l20_6.nex = 1;
3453     l20_6.xex[0] = .66666666666666663;
3454     l20_6.xex[1] = .33333333333333331;
3455     l20_6.xex[2] = l20_6.xex[1];
3456     l20_6.xex[3] = 2.;
3457     l20_6.fex = 1.9259259259259258;
3458     return 0;
3459 labelL2:
3460     l6_1.fx = 2. - l2_3.x[0] * l2_3.x[1] * l2_3.x[2];
3461     return 0;
3462 labelL3:
3463     l4_3.gf[0] = -l2_3.x[1] * l2_3.x[2];
3464     l4_3.gf[1] = -l2_3.x[0] * l2_3.x[2];
3465     l4_3.gf[2] = -l2_3.x[0] * l2_3.x[1];
3466     return 0;
3467 labelL4:
3468     if (l9_2.index1[0]) {
3469     l3_1.g[0] = l2_3.x[0] + l2_3.x[1] * 2. + l2_3.x[2] * 2. - l2_3.x[3];
3470     }
3471 labelL5:
3472     return 0;
3473 } /* tp41_ */
3474 
3475 
tp42_(int * mode)3476 /* Subroutine */ int tp42_(int *mode)
3477 {
3478     /* System generated locals */
3479     Real d__1, d__2, d__3, d__4;
3480 
3481     /* Local variables */
3482     static int i__;
3483 
3484     switch ((int)*mode) {
3485     case 1:  goto labelL1;
3486     case 2:  goto labelL2;
3487     case 3:  goto labelL3;
3488     case 4:  goto labelL4;
3489     case 5:  goto labelL5;
3490     }
3491 labelL1:
3492     l1_1.n = 4;
3493     l1_1.nili = 0;
3494     l1_1.ninl = 0;
3495     l1_1.neli = 1;
3496     l1_1.nenl = 1;
3497     for (i__ = 1; i__ <= 4; ++i__) {
3498     l2_3.x[i__ - 1] = 1.;
3499     l12_3.lxu[i__ - 1] = false;
3500 /* labelL6: */
3501     l11_3.lxl[i__ - 1] = false;
3502     }
3503     l5_6.gg[0] = 1.;
3504     l5_6.gg[2] = 0.;
3505     l5_6.gg[4] = 0.;
3506     l5_6.gg[6] = 0.;
3507     l5_6.gg[1] = 0.;
3508     l5_6.gg[3] = 0.;
3509     l20_6.lex = true;
3510     l20_6.nex = 1;
3511     l20_6.xex[0] = 2.;
3512     l20_6.xex[1] = 2.;
3513     l20_6.xex[2] = std::sqrt(.72);
3514     l20_6.xex[3] = std::sqrt(1.28);
3515     l20_6.fex = 28. - std::sqrt(2.) * 10.;
3516     return 0;
3517 labelL2:
3518 /* Computing 2nd power */
3519     d__1 = l2_3.x[0] - 1.;
3520 /* Computing 2nd power */
3521     d__2 = l2_3.x[1] - 2.;
3522 /* Computing 2nd power */
3523     d__3 = l2_3.x[2] - 3.;
3524 /* Computing 2nd power */
3525     d__4 = l2_3.x[3] - 4.;
3526     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4;
3527     return 0;
3528 labelL3:
3529     for (i__ = 1; i__ <= 4; ++i__) {
3530 /* L21: */
3531     l4_3.gf[i__ - 1] = (l2_3.x[i__ - 1] - (Real) i__) * 2.;
3532     }
3533     return 0;
3534 labelL4:
3535     if (l9_3.index1[0]) {
3536     l3_2.g[0] = l2_3.x[0] - 2.;
3537     }
3538     if (l9_3.index1[1]) {
3539 /* Computing 2nd power */
3540     d__1 = l2_3.x[2];
3541 /* Computing 2nd power */
3542     d__2 = l2_3.x[3];
3543     l3_2.g[1] = d__1 * d__1 + d__2 * d__2 - 2.;
3544     }
3545     return 0;
3546 labelL5:
3547     if (! l10_3.index2[1]) {
3548     goto L8;
3549     }
3550     l5_6.gg[5] = l2_3.x[2] * 2.;
3551     l5_6.gg[7] = l2_3.x[3] * 2.;
3552 L8:
3553     return 0;
3554 } /* tp42_ */
3555 
3556 
tp43_(int * mode)3557 /* Subroutine */ int tp43_(int *mode)
3558 {
3559     /* System generated locals */
3560     Real d__1, d__2, d__3, d__4;
3561 
3562     /* Local variables */
3563     static int i__;
3564 
3565     switch ((int)*mode) {
3566     case 1:  goto labelL1;
3567     case 2:  goto labelL2;
3568     case 3:  goto labelL3;
3569     case 4:  goto labelL4;
3570     case 5:  goto labelL5;
3571     }
3572 labelL1:
3573     l1_1.n = 4;
3574     l1_1.nili = 0;
3575     l1_1.ninl = 3;
3576     l1_1.neli = 0;
3577     l1_1.nenl = 0;
3578     for (i__ = 1; i__ <= 4; ++i__) {
3579     l2_3.x[i__ - 1] = 0.;
3580     l11_3.lxl[i__ - 1] = false;
3581 /* labelL6: */
3582     l12_3.lxu[i__ - 1] = false;
3583     }
3584     l20_6.lex = true;
3585     l20_6.nex = 1;
3586     l20_6.xex[0] = 0.;
3587     l20_6.xex[1] = 1.;
3588     l20_6.xex[2] = 2.;
3589     l20_6.xex[3] = -1.;
3590     l20_6.fex = -44.;
3591     l5_7.gg[11] = 1.;
3592     return 0;
3593 labelL2:
3594 /* Computing 2nd power */
3595     d__1 = l2_3.x[0];
3596 /* Computing 2nd power */
3597     d__2 = l2_3.x[1];
3598 /* Computing 2nd power */
3599     d__3 = l2_3.x[2];
3600 /* Computing 2nd power */
3601     d__4 = l2_3.x[3];
3602     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 * 2. + d__4 * d__4 -
3603         l2_3.x[0] * 5. - l2_3.x[1] * 5. - l2_3.x[2] * 21. + l2_3.x[3] *
3604         7.;
3605     return 0;
3606 labelL3:
3607     l4_3.gf[0] = l2_3.x[0] * 2. - 5.;
3608     l4_3.gf[1] = l2_3.x[1] * 2. - 5.;
3609     l4_3.gf[2] = l2_3.x[2] * 4. - 21.;
3610     l4_3.gf[3] = l2_3.x[3] * 2. + 7.;
3611     return 0;
3612 labelL4:
3613     if (l9_4.index1[0]) {
3614 /* Computing 2nd power */
3615     d__1 = l2_3.x[0];
3616 /* Computing 2nd power */
3617     d__2 = l2_3.x[1];
3618 /* Computing 2nd power */
3619     d__3 = l2_3.x[2];
3620 /* Computing 2nd power */
3621     d__4 = l2_3.x[3];
3622     l3_3.g[0] = -(d__1 * d__1) - d__2 * d__2 - d__3 * d__3 - d__4 * d__4
3623         - l2_3.x[0] + l2_3.x[1] - l2_3.x[2] + l2_3.x[3] + 8.;
3624     }
3625     if (l9_4.index1[1]) {
3626 /* Computing 2nd power */
3627     d__1 = l2_3.x[0];
3628 /* Computing 2nd power */
3629     d__2 = l2_3.x[1];
3630 /* Computing 2nd power */
3631     d__3 = l2_3.x[2];
3632 /* Computing 2nd power */
3633     d__4 = l2_3.x[3];
3634     l3_3.g[1] = -(d__1 * d__1) - d__2 * d__2 * 2. - d__3 * d__3 - d__4 *
3635         d__4 * 2. + l2_3.x[0] + l2_3.x[3] + 10.;
3636     }
3637     if (l9_4.index1[2]) {
3638 /* Computing 2nd power */
3639     d__1 = l2_3.x[0];
3640 /* Computing 2nd power */
3641     d__2 = l2_3.x[1];
3642 /* Computing 2nd power */
3643     d__3 = l2_3.x[2];
3644     l3_3.g[2] = d__1 * d__1 * -2. - d__2 * d__2 - d__3 * d__3 - l2_3.x[0]
3645         * 2. + l2_3.x[1] + l2_3.x[3] + 5.;
3646     }
3647     return 0;
3648 labelL5:
3649     if (! l10_4.index2[0]) {
3650     goto L7;
3651     }
3652     l5_7.gg[0] = l2_3.x[0] * -2. - 1.;
3653     l5_7.gg[3] = l2_3.x[1] * -2. + 1.;
3654     l5_7.gg[6] = l2_3.x[2] * -2. - 1.;
3655     l5_7.gg[9] = l2_3.x[3] * -2. + 1.;
3656 L7:
3657     if (! l10_4.index2[1]) {
3658     goto L8;
3659     }
3660     l5_7.gg[1] = l2_3.x[0] * -2. + 1.;
3661     l5_7.gg[4] = l2_3.x[1] * -4.;
3662     l5_7.gg[7] = l2_3.x[2] * -2.;
3663     l5_7.gg[10] = l2_3.x[3] * -4. + 1.;
3664 L8:
3665     if (! l10_4.index2[2]) {
3666     goto labelL9;
3667     }
3668     l5_7.gg[2] = l2_3.x[0] * -4. - 2.;
3669     l5_7.gg[5] = l2_3.x[1] * -2. + 1.;
3670     l5_7.gg[8] = l2_3.x[2] * -2.;
3671 labelL9:
3672     return 0;
3673 } /* tp43_ */
3674 
3675 
tp44_(int * mode)3676 /* Subroutine */ int tp44_(int *mode)
3677 {
3678     static int i__, j;
3679 
3680     switch ((int)*mode) {
3681     case 1:  goto labelL1;
3682     case 2:  goto labelL2;
3683     case 3:  goto labelL3;
3684     case 4:  goto labelL4;
3685     case 5:  goto labelL5;
3686     }
3687 labelL1:
3688     l1_1.n = 4;
3689     l1_1.nili = 6;
3690     l1_1.ninl = 0;
3691     l1_1.neli = 0;
3692     l1_1.nenl = 0;
3693     for (i__ = 1; i__ <= 4; ++i__) {
3694     l2_3.x[i__ - 1] = 0.;
3695     l13_3.xl[i__ - 1] = 0.;
3696     l11_3.lxl[i__ - 1] = true;
3697 /* labelL6: */
3698     l12_3.lxu[i__ - 1] = false;
3699     }
3700     for (i__ = 1; i__ <= 6; ++i__) {
3701     for (j = 1; j <= 4; ++j) {
3702 /* L15: */
3703         l5_8.gg[i__ + j * 6 - 7] = 0.;
3704     }
3705     }
3706     l5_8.gg[0] = -1.;
3707     l5_8.gg[6] = -2.;
3708     l5_8.gg[1] = -4.;
3709     l5_8.gg[7] = -1.;
3710     l5_8.gg[2] = -3.;
3711     l5_8.gg[8] = -4.;
3712     l5_8.gg[15] = -2.;
3713     l5_8.gg[21] = -1.;
3714     l5_8.gg[16] = -1.;
3715     l5_8.gg[22] = -2.;
3716     l5_8.gg[17] = -1.;
3717     l5_8.gg[23] = -1.;
3718     l20_6.lex = true;
3719     l20_6.nex = 1;
3720     l20_6.xex[0] = 0.;
3721     l20_6.xex[1] = 3.;
3722     l20_6.xex[2] = 0.;
3723     l20_6.xex[3] = 4.;
3724     l20_6.fex = -15.;
3725     return 0;
3726 labelL2:
3727     l6_1.fx = l2_3.x[0] - l2_3.x[1] - l2_3.x[2] - l2_3.x[0] * l2_3.x[2] +
3728         l2_3.x[0] * l2_3.x[3] + l2_3.x[1] * l2_3.x[2] - l2_3.x[1] *
3729         l2_3.x[3];
3730     return 0;
3731 labelL3:
3732     l4_3.gf[0] = 1. - l2_3.x[2] + l2_3.x[3];
3733     l4_3.gf[1] = l2_3.x[2] - 1. - l2_3.x[3];
3734     l4_3.gf[2] = -1. - l2_3.x[0] + l2_3.x[1];
3735     l4_3.gf[3] = l2_3.x[0] - l2_3.x[1];
3736     return 0;
3737 labelL4:
3738     if (l9_6.index1[0]) {
3739     l3_5.g[0] = 8. - l2_3.x[0] - l2_3.x[1] * 2.;
3740     }
3741     if (l9_6.index1[1]) {
3742     l3_5.g[1] = 12. - l2_3.x[0] * 4. - l2_3.x[1];
3743     }
3744     if (l9_6.index1[2]) {
3745     l3_5.g[2] = 12. - l2_3.x[0] * 3. - l2_3.x[1] * 4.;
3746     }
3747     if (l9_6.index1[3]) {
3748     l3_5.g[3] = 8. - l2_3.x[2] * 2. - l2_3.x[3];
3749     }
3750     if (l9_6.index1[4]) {
3751     l3_5.g[4] = 8. - l2_3.x[2] - l2_3.x[3] * 2.;
3752     }
3753     if (l9_6.index1[5]) {
3754     l3_5.g[5] = 5. - l2_3.x[2] - l2_3.x[3];
3755     }
3756 labelL5:
3757     return 0;
3758 } /* tp44_ */
3759 
3760 
tp45_(int * mode)3761 /* Subroutine */ int tp45_(int *mode)
3762 {
3763     static int i__;
3764 
3765     switch ((int)*mode) {
3766     case 1:  goto labelL1;
3767     case 2:  goto labelL2;
3768     case 3:  goto labelL3;
3769     case 4:  goto labelL4;
3770     case 5:  goto labelL4;
3771     }
3772 labelL1:
3773     l1_1.n = 5;
3774     l1_1.nili = 0;
3775     l1_1.ninl = 0;
3776     l1_1.neli = 0;
3777     l1_1.nenl = 0;
3778     for (i__ = 1; i__ <= 5; ++i__) {
3779     l2_4.x[i__ - 1] = 2.;
3780     l11_4.lxl[i__ - 1] = true;
3781     l12_4.lxu[i__ - 1] = true;
3782     l13_4.xl[i__ - 1] = 0.;
3783 /* labelL6: */
3784     l14_4.xu[i__ - 1] = (Real) i__;
3785     }
3786     l20_7.lex = true;
3787     l20_7.nex = 1;
3788     for (i__ = 1; i__ <= 5; ++i__) {
3789 /* L30: */
3790     l20_7.xex[i__ - 1] = (Real) i__;
3791     }
3792     l20_7.fex = 1.;
3793     return 0;
3794 labelL2:
3795     l6_1.fx = 2. - l2_4.x[0] * l2_4.x[1] * l2_4.x[2] * l2_4.x[3] * l2_4.x[4] /
3796          120.;
3797     return 0;
3798 labelL3:
3799     l4_4.gf[0] = -l2_4.x[1] * l2_4.x[2] * l2_4.x[3] * l2_4.x[4] / 120.;
3800     l4_4.gf[1] = -l2_4.x[0] * l2_4.x[2] * l2_4.x[3] * l2_4.x[4] / 120.;
3801     l4_4.gf[2] = -l2_4.x[0] * l2_4.x[1] * l2_4.x[3] * l2_4.x[4] / 120.;
3802     l4_4.gf[3] = -l2_4.x[0] * l2_4.x[1] * l2_4.x[2] * l2_4.x[4] / 120.;
3803     l4_4.gf[4] = -l2_4.x[0] * l2_4.x[1] * l2_4.x[2] * l2_4.x[3] / 120.;
3804 labelL4:
3805     return 0;
3806 } /* tp45_ */
3807 
3808 
tp46_(int * mode)3809 /* Subroutine */ int tp46_(int *mode)
3810 {
3811     /* System generated locals */
3812     Real d__1, d__2, d__3, d__4;
3813 
3814     /* Local variables */
3815     static int i__;
3816 
3817     switch ((int)*mode) {
3818     case 1:  goto labelL1;
3819     case 2:  goto labelL2;
3820     case 3:  goto labelL3;
3821     case 4:  goto labelL4;
3822     case 5:  goto labelL5;
3823     }
3824 labelL1:
3825     l1_1.n = 5;
3826     l1_1.nili = 0;
3827     l1_1.ninl = 0;
3828     l1_1.neli = 0;
3829     l1_1.nenl = 2;
3830     l2_4.x[0] = std::sqrt(2.) * .5;
3831     l2_4.x[1] = 1.75;
3832     l2_4.x[2] = .5;
3833     l2_4.x[3] = 2.;
3834     l2_4.x[4] = 2.;
3835     for (i__ = 1; i__ <= 5; ++i__) {
3836     l11_4.lxl[i__ - 1] = false;
3837 /* labelL6: */
3838     l12_4.lxu[i__ - 1] = false;
3839     }
3840     l5_4.gg[2] = 0.;
3841     l5_4.gg[4] = 0.;
3842     l5_4.gg[1] = 0.;
3843     l5_4.gg[3] = 1.;
3844     l5_4.gg[9] = 0.;
3845     l20_7.lex = true;
3846     l20_7.nex = 1;
3847     for (i__ = 1; i__ <= 5; ++i__) {
3848 /* L30: */
3849     l20_7.xex[i__ - 1] = 1.;
3850     }
3851     l20_7.fex = 0.;
3852     return 0;
3853 labelL2:
3854 /* Computing 2nd power */
3855     d__1 = l2_4.x[0] - l2_4.x[1];
3856 /* Computing 2nd power */
3857     d__2 = l2_4.x[2] - 1.;
3858 /* Computing 4th power */
3859     d__3 = l2_4.x[3] - 1., d__3 *= d__3;
3860 /* Computing 6th power */
3861     d__4 = l2_4.x[4] - 1., d__4 *= d__4;
3862     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * (d__4 * d__4);
3863     return 0;
3864 labelL3:
3865     l4_4.gf[0] = (l2_4.x[0] - l2_4.x[1]) * 2.;
3866     l4_4.gf[1] = -l4_4.gf[0];
3867     l4_4.gf[2] = (l2_4.x[2] - 1.) * 2.;
3868 /* Computing 3rd power */
3869     d__1 = l2_4.x[3] - 1.;
3870     l4_4.gf[3] = d__1 * (d__1 * d__1) * 4.;
3871 /* Computing 5th power */
3872     d__1 = l2_4.x[4] - 1., d__2 = d__1, d__1 *= d__1;
3873     l4_4.gf[4] = d__2 * (d__1 * d__1) * 6.;
3874     return 0;
3875 labelL4:
3876     if (l9_3.index1[0]) {
3877 /* Computing 2nd power */
3878     d__1 = l2_4.x[0];
3879     l3_2.g[0] = d__1 * d__1 * l2_4.x[3] + std::sin(l2_4.x[3] - l2_4.x[4]) - 1.;
3880     }
3881     if (l9_3.index1[1]) {
3882 /* Computing 4th power */
3883     d__1 = l2_4.x[2], d__1 *= d__1;
3884 /* Computing 2nd power */
3885     d__2 = l2_4.x[3];
3886     l3_2.g[1] = l2_4.x[1] + d__1 * d__1 * (d__2 * d__2) - 2.;
3887     }
3888     return 0;
3889 labelL5:
3890     if (! l10_3.index2[0]) {
3891     goto L7;
3892     }
3893     l5_4.gg[0] = l2_4.x[0] * 2. * l2_4.x[3];
3894     l5_4.gg[8] = -std::cos(l2_4.x[3] - l2_4.x[4]);
3895 /* Computing 2nd power */
3896     d__1 = l2_4.x[0];
3897     l5_4.gg[6] = d__1 * d__1 - l5_4.gg[8];
3898 L7:
3899     if (! l10_3.index2[1]) {
3900     goto L8;
3901     }
3902 /* Computing 3rd power */
3903     d__1 = l2_4.x[2];
3904 /* Computing 2nd power */
3905     d__2 = l2_4.x[3];
3906     l5_4.gg[5] = d__1 * (d__1 * d__1) * 4. * (d__2 * d__2);
3907 /* Computing 4th power */
3908     d__1 = l2_4.x[2], d__1 *= d__1;
3909     l5_4.gg[7] = d__1 * d__1 * 2. * l2_4.x[3];
3910 L8:
3911     return 0;
3912 } /* tp46_ */
3913 
3914 
tp47_(int * mode)3915 /* Subroutine */ int tp47_(int *mode)
3916 {
3917     /* System generated locals */
3918     Real d__1, d__2, d__3, d__4;
3919 
3920     /* Local variables */
3921     static int i__, j;
3922     static Real v1, v2, v3, v4;
3923 
3924     switch ((int)*mode) {
3925     case 1:  goto labelL1;
3926     case 2:  goto labelL2;
3927     case 3:  goto labelL3;
3928     case 4:  goto labelL4;
3929     case 5:  goto labelL5;
3930     }
3931 labelL1:
3932     l1_1.n = 5;
3933     l1_1.nili = 0;
3934     l1_1.ninl = 0;
3935     l1_1.neli = 0;
3936     l1_1.nenl = 3;
3937     l2_4.x[0] = 2.;
3938     l2_4.x[1] = std::sqrt(2.);
3939     l2_4.x[2] = -1.;
3940     l2_4.x[3] = 2. - l2_4.x[1];
3941     l2_4.x[4] = .5;
3942     for (i__ = 1; i__ <= 5; ++i__) {
3943     l11_4.lxl[i__ - 1] = false;
3944 /* labelL6: */
3945     l12_4.lxu[i__ - 1] = false;
3946     }
3947     for (i__ = 1; i__ <= 3; ++i__) {
3948     for (j = 1; j <= 5; ++j) {
3949 /* L15: */
3950         l5_9.gg[i__ + j * 3 - 4] = 0.;
3951     }
3952     }
3953     l5_9.gg[0] = 1.;
3954     l5_9.gg[4] = 1.;
3955     l5_9.gg[10] = 1.;
3956     l20_7.lex = true;
3957     l20_7.nex = 1;
3958     for (i__ = 1; i__ <= 5; ++i__) {
3959 /* L30: */
3960     l20_7.xex[i__ - 1] = 1.;
3961     }
3962     l20_7.fex = 0.;
3963     return 0;
3964 labelL2:
3965 /* Computing 2nd power */
3966     d__1 = l2_4.x[0] - l2_4.x[1];
3967 /* Computing 2nd power */
3968     d__2 = l2_4.x[1] - l2_4.x[2];
3969 /* Computing 4th power */
3970     d__3 = l2_4.x[2] - l2_4.x[3], d__3 *= d__3;
3971 /* Computing 4th power */
3972     d__4 = l2_4.x[3] - l2_4.x[4], d__4 *= d__4;
3973     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4;
3974     return 0;
3975 labelL3:
3976     v1 = (l2_4.x[0] - l2_4.x[1]) * 2.;
3977     v2 = (l2_4.x[1] - l2_4.x[2]) * 2.;
3978 /* Computing 3rd power */
3979     d__1 = l2_4.x[2] - l2_4.x[3];
3980     v3 = d__1 * (d__1 * d__1) * 4.;
3981 /* Computing 3rd power */
3982     d__1 = l2_4.x[3] - l2_4.x[4];
3983     v4 = d__1 * (d__1 * d__1) * 4.;
3984     l4_4.gf[0] = v1;
3985     l4_4.gf[1] = -v1 + v2;
3986     l4_4.gf[2] = -v2 + v3;
3987     l4_4.gf[3] = -v3 + v4;
3988     l4_4.gf[4] = -v4;
3989     return 0;
3990 labelL4:
3991     if (l9_4.index1[0]) {
3992 /* Computing 2nd power */
3993     d__1 = l2_4.x[1];
3994 /* Computing 3rd power */
3995     d__2 = l2_4.x[2];
3996     l3_3.g[0] = l2_4.x[0] + d__1 * d__1 + d__2 * (d__2 * d__2) - 3.;
3997     }
3998     if (l9_4.index1[1]) {
3999 /* Computing 2nd power */
4000     d__1 = l2_4.x[2];
4001     l3_3.g[1] = l2_4.x[1] - d__1 * d__1 + l2_4.x[3] - 1.;
4002     }
4003     if (l9_4.index1[2]) {
4004     l3_3.g[2] = l2_4.x[0] * l2_4.x[4] - 1.;
4005     }
4006     return 0;
4007 labelL5:
4008     if (! l10_4.index2[0]) {
4009     goto L7;
4010     }
4011     l5_9.gg[3] = l2_4.x[1] * 2.;
4012 /* Computing 2nd power */
4013     d__1 = l2_4.x[2];
4014     l5_9.gg[6] = d__1 * d__1 * 3.;
4015 L7:
4016     if (l10_4.index2[1]) {
4017     l5_9.gg[7] = l2_4.x[2] * -2.;
4018     }
4019 /* L8: */
4020     if (! l10_4.index2[2]) {
4021     goto labelL9;
4022     }
4023     l5_9.gg[2] = l2_4.x[4];
4024     l5_9.gg[14] = l2_4.x[0];
4025 labelL9:
4026     return 0;
4027 } /* tp47_ */
4028 
4029 
tp48_(int * mode)4030 /* Subroutine */ int tp48_(int *mode)
4031 {
4032     /* System generated locals */
4033     Real d__1, d__2, d__3;
4034 
4035     /* Local variables */
4036     static int i__;
4037 
4038     switch ((int)*mode) {
4039     case 1:  goto labelL1;
4040     case 2:  goto labelL2;
4041     case 3:  goto labelL3;
4042     case 4:  goto labelL4;
4043     case 5:  goto labelL5;
4044     }
4045 labelL1:
4046     l1_1.n = 5;
4047     l1_1.nili = 0;
4048     l1_1.ninl = 0;
4049     l1_1.neli = 2;
4050     l1_1.nenl = 0;
4051     l2_4.x[0] = 3.;
4052     l2_4.x[1] = 5.;
4053     l2_4.x[2] = -3.;
4054     l2_4.x[3] = 2.;
4055     l2_4.x[4] = -2.;
4056     for (i__ = 1; i__ <= 5; ++i__) {
4057     l11_4.lxl[i__ - 1] = false;
4058 /* labelL6: */
4059     l12_4.lxu[i__ - 1] = false;
4060     }
4061     l5_4.gg[1] = 0.;
4062     l5_4.gg[3] = 0.;
4063     for (i__ = 1; i__ <= 5; ++i__) {
4064 /* labelL20: */
4065     l5_4.gg[(i__ << 1) - 2] = 1.;
4066     }
4067     l5_4.gg[5] = 1.;
4068     l5_4.gg[7] = -2.;
4069     l5_4.gg[9] = -2.;
4070     l20_7.lex = true;
4071     l20_7.nex = 1;
4072     for (i__ = 1; i__ <= 5; ++i__) {
4073 /* L30: */
4074     l20_7.xex[i__ - 1] = 1.;
4075     }
4076     l20_7.fex = 0.;
4077     return 0;
4078 labelL2:
4079 /* Computing 2nd power */
4080     d__1 = l2_4.x[0] - 1.;
4081 /* Computing 2nd power */
4082     d__2 = l2_4.x[1] - l2_4.x[2];
4083 /* Computing 2nd power */
4084     d__3 = l2_4.x[3] - l2_4.x[4];
4085     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3;
4086     return 0;
4087 labelL3:
4088     l4_4.gf[0] = (l2_4.x[0] - 1.) * 2.;
4089     l4_4.gf[1] = (l2_4.x[1] - l2_4.x[2]) * 2.;
4090     l4_4.gf[2] = -l4_4.gf[1];
4091     l4_4.gf[3] = (l2_4.x[3] - l2_4.x[4]) * 2.;
4092     l4_4.gf[4] = -l4_4.gf[3];
4093     return 0;
4094 labelL4:
4095     if (l9_3.index1[0]) {
4096     l3_2.g[0] = l2_4.x[0] + l2_4.x[1] + l2_4.x[2] + l2_4.x[3] + l2_4.x[4]
4097         - 5.;
4098     }
4099     if (l9_3.index1[1]) {
4100     l3_2.g[1] = l2_4.x[2] - (l2_4.x[3] + l2_4.x[4]) * 2. + 3.;
4101     }
4102 labelL5:
4103     return 0;
4104 } /* tp48_ */
4105 
4106 
tp49_(int * mode)4107 /* Subroutine */ int tp49_(int *mode)
4108 {
4109     /* System generated locals */
4110     Real d__1, d__2, d__3, d__4;
4111 
4112     /* Local variables */
4113     static int i__;
4114 
4115     switch ((int)*mode) {
4116     case 1:  goto labelL1;
4117     case 2:  goto labelL2;
4118     case 3:  goto labelL3;
4119     case 4:  goto labelL4;
4120     case 5:  goto labelL5;
4121     }
4122 labelL1:
4123     l1_1.n = 5;
4124     l1_1.nili = 0;
4125     l1_1.ninl = 0;
4126     l1_1.neli = 2;
4127     l1_1.nenl = 0;
4128     l2_4.x[0] = 10.;
4129     l2_4.x[1] = 7.;
4130     l2_4.x[2] = 2.;
4131     l2_4.x[3] = -3.;
4132     l2_4.x[4] = .8;
4133     for (i__ = 1; i__ <= 5; ++i__) {
4134     l11_4.lxl[i__ - 1] = false;
4135 /* labelL6: */
4136     l12_4.lxu[i__ - 1] = false;
4137     }
4138     l5_4.gg[8] = 0.;
4139     l5_4.gg[1] = 0.;
4140     l5_4.gg[3] = 0.;
4141     l5_4.gg[7] = 0.;
4142     l5_4.gg[0] = 1.;
4143     l5_4.gg[2] = 1.;
4144     l5_4.gg[4] = 1.;
4145     l5_4.gg[6] = 4.;
4146     l5_4.gg[5] = 1.;
4147     l5_4.gg[9] = 5.;
4148     l20_7.lex = true;
4149     l20_7.nex = 1;
4150     for (i__ = 1; i__ <= 5; ++i__) {
4151 /* L30: */
4152     l20_7.xex[i__ - 1] = 1.;
4153     }
4154     l20_7.fex = 0.;
4155     return 0;
4156 labelL2:
4157 /* Computing 2nd power */
4158     d__1 = l2_4.x[0] - l2_4.x[1];
4159 /* Computing 2nd power */
4160     d__2 = l2_4.x[2] - 1.;
4161 /* Computing 4th power */
4162     d__3 = l2_4.x[3] - 1., d__3 *= d__3;
4163 /* Computing 6th power */
4164     d__4 = l2_4.x[4] - 1., d__4 *= d__4;
4165     l6_1.fx = (d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * (d__4 * d__4))
4166          * .001;
4167     return 0;
4168 labelL3:
4169     l4_4.gf[0] = (l2_4.x[0] - l2_4.x[1]) * 2. * .001;
4170     l4_4.gf[1] = -l4_4.gf[0];
4171     l4_4.gf[2] = (l2_4.x[2] - 1.) * 2. * .001;
4172 /* Computing 3rd power */
4173     d__1 = l2_4.x[3] - 1.;
4174     l4_4.gf[3] = d__1 * (d__1 * d__1) * 4. * .001;
4175 /* Computing 5th power */
4176     d__1 = l2_4.x[4] - 1., d__2 = d__1, d__1 *= d__1;
4177     l4_4.gf[4] = d__2 * (d__1 * d__1) * 6. * .001;
4178     return 0;
4179 labelL4:
4180     if (l9_3.index1[0]) {
4181     l3_2.g[0] = l2_4.x[0] + l2_4.x[1] + l2_4.x[2] + l2_4.x[3] * 4. - 7.;
4182     }
4183     if (l9_3.index1[1]) {
4184     l3_2.g[1] = l2_4.x[2] + l2_4.x[4] * 5. - 6.;
4185     }
4186 labelL5:
4187     return 0;
4188 } /* tp49_ */
4189 
4190 
tp50_(int * mode)4191 /* Subroutine */ int tp50_(int *mode)
4192 {
4193     /* System generated locals */
4194     Real d__1, d__2, d__3, d__4;
4195 
4196     /* Local variables */
4197     static int i__, j;
4198     static Real v1, v2, v3, v4;
4199 
4200     switch ((int)*mode) {
4201     case 1:  goto labelL1;
4202     case 2:  goto labelL2;
4203     case 3:  goto labelL3;
4204     case 4:  goto labelL4;
4205     case 5:  goto labelL5;
4206     }
4207 labelL1:
4208     l1_1.n = 5;
4209     l1_1.nili = 0;
4210     l1_1.ninl = 0;
4211     l1_1.neli = 3;
4212     l1_1.nenl = 0;
4213     l2_4.x[0] = 35.;
4214     l2_4.x[1] = -31.;
4215     l2_4.x[2] = 11.;
4216     l2_4.x[3] = 5.;
4217     l2_4.x[4] = -5.;
4218     for (i__ = 1; i__ <= 5; ++i__) {
4219     l11_4.lxl[i__ - 1] = false;
4220 /* labelL6: */
4221     l12_4.lxu[i__ - 1] = false;
4222     }
4223     for (i__ = 1; i__ <= 3; ++i__) {
4224     for (j = 1; j <= 5; ++j) {
4225 /* L15: */
4226         l5_9.gg[i__ + j * 3 - 4] = 0.;
4227     }
4228     }
4229     l5_9.gg[0] = 1.;
4230     l5_9.gg[3] = 2.;
4231     l5_9.gg[6] = 3.;
4232     l5_9.gg[4] = 1.;
4233     l5_9.gg[7] = 2.;
4234     l5_9.gg[10] = 3.;
4235     l5_9.gg[8] = 1.;
4236     l5_9.gg[11] = 2.;
4237     l5_9.gg[14] = 3.;
4238     l20_7.lex = true;
4239     l20_7.nex = 1;
4240     for (i__ = 1; i__ <= 5; ++i__) {
4241 /* L30: */
4242     l20_7.xex[i__ - 1] = 1.;
4243     }
4244     l20_7.fex = 0.;
4245     return 0;
4246 labelL2:
4247 /* Computing 2nd power */
4248     d__1 = l2_4.x[0] - l2_4.x[1];
4249 /* Computing 2nd power */
4250     d__2 = l2_4.x[1] - l2_4.x[2];
4251 /* Computing 4th power */
4252     d__3 = l2_4.x[2] - l2_4.x[3], d__3 *= d__3;
4253 /* Computing 4th power */
4254     d__4 = l2_4.x[3] - l2_4.x[4], d__4 *= d__4;
4255     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4;
4256     return 0;
4257 labelL3:
4258     v1 = (l2_4.x[0] - l2_4.x[1]) * 2.;
4259     v2 = (l2_4.x[1] - l2_4.x[2]) * 2.;
4260 /* Computing 3rd power */
4261     d__1 = l2_4.x[2] - l2_4.x[3];
4262     v3 = d__1 * (d__1 * d__1) * 4.;
4263 /* Computing 3rd power */
4264     d__1 = l2_4.x[3] - l2_4.x[4];
4265     v4 = d__1 * (d__1 * d__1) * 4.;
4266     l4_4.gf[0] = v1;
4267     l4_4.gf[1] = -v1 + v2;
4268     l4_4.gf[2] = -v2 + v3;
4269     l4_4.gf[3] = -v3 + v4;
4270     l4_4.gf[4] = -v4;
4271     return 0;
4272 labelL4:
4273     if (l9_4.index1[0]) {
4274     l3_3.g[0] = l2_4.x[0] + l2_4.x[1] * 2. + l2_4.x[2] * 3. - 6.;
4275     }
4276     if (l9_4.index1[1]) {
4277     l3_3.g[1] = l2_4.x[1] + l2_4.x[2] * 2. + l2_4.x[3] * 3. - 6.;
4278     }
4279     if (l9_4.index1[2]) {
4280     l3_3.g[2] = l2_4.x[2] + l2_4.x[3] * 2. + l2_4.x[4] * 3. - 6.;
4281     }
4282 labelL5:
4283     return 0;
4284 } /* tp50_ */
4285 
4286 
tp51_(int * mode)4287 /* Subroutine */ int tp51_(int *mode)
4288 {
4289     /* System generated locals */
4290     Real d__1, d__2, d__3, d__4;
4291 
4292     /* Local variables */
4293     static int i__, j;
4294 
4295     switch ((int)*mode) {
4296     case 1:  goto labelL1;
4297     case 2:  goto labelL2;
4298     case 3:  goto labelL3;
4299     case 4:  goto labelL4;
4300     case 5:  goto labelL5;
4301     }
4302 labelL1:
4303     l1_1.n = 5;
4304     l1_1.nili = 0;
4305     l1_1.ninl = 0;
4306     l1_1.neli = 3;
4307     l1_1.nenl = 0;
4308     l2_4.x[0] = 2.5;
4309     l2_4.x[1] = .5;
4310     l2_4.x[2] = 2.;
4311     l2_4.x[3] = -1.;
4312     l2_4.x[4] = .5;
4313     for (i__ = 1; i__ <= 5; ++i__) {
4314     l11_4.lxl[i__ - 1] = false;
4315 /* labelL6: */
4316     l12_4.lxu[i__ - 1] = false;
4317     }
4318     for (i__ = 1; i__ <= 3; ++i__) {
4319     for (j = 1; j <= 5; ++j) {
4320 /* L15: */
4321         l5_9.gg[i__ + j * 3 - 4] = 0.;
4322     }
4323     }
4324     l5_9.gg[0] = 1.;
4325     l5_9.gg[3] = 3.;
4326     l5_9.gg[7] = 1.;
4327     l5_9.gg[10] = 1.;
4328     l5_9.gg[13] = -2.;
4329     l5_9.gg[5] = 1.;
4330     l5_9.gg[14] = -1.;
4331     l20_7.lex = true;
4332     l20_7.nex = 1;
4333     for (i__ = 1; i__ <= 5; ++i__) {
4334 /* L30: */
4335     l20_7.xex[i__ - 1] = 1.;
4336     }
4337     l20_7.fex = 0.;
4338     return 0;
4339 labelL2:
4340 /* Computing 2nd power */
4341     d__1 = l2_4.x[0] - l2_4.x[1];
4342 /* Computing 2nd power */
4343     d__2 = l2_4.x[1] + l2_4.x[2] - 2.;
4344 /* Computing 2nd power */
4345     d__3 = l2_4.x[3] - 1.;
4346 /* Computing 2nd power */
4347     d__4 = l2_4.x[4] - 1.;
4348     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4;
4349     return 0;
4350 labelL3:
4351     l4_4.gf[0] = (l2_4.x[0] - l2_4.x[1]) * 2.;
4352     l4_4.gf[2] = (l2_4.x[1] + l2_4.x[2] - 2.) * 2.;
4353     l4_4.gf[1] = l4_4.gf[2] - l4_4.gf[0];
4354     l4_4.gf[3] = (l2_4.x[3] - 1.) * 2.;
4355     l4_4.gf[4] = (l2_4.x[4] - 1.) * 2.;
4356     return 0;
4357 labelL4:
4358     if (l9_4.index1[0]) {
4359     l3_3.g[0] = l2_4.x[0] + l2_4.x[1] * 3. - 4.;
4360     }
4361     if (l9_4.index1[1]) {
4362     l3_3.g[1] = l2_4.x[2] + l2_4.x[3] - l2_4.x[4] * 2.;
4363     }
4364     if (l9_4.index1[2]) {
4365     l3_3.g[2] = l2_4.x[1] - l2_4.x[4];
4366     }
4367 labelL5:
4368     return 0;
4369 } /* tp51_ */
4370 
4371 
tp52_(int * mode)4372 /* Subroutine */ int tp52_(int *mode)
4373 {
4374     /* System generated locals */
4375     Real d__1, d__2, d__3, d__4;
4376 
4377     /* Local variables */
4378     static int i__, j;
4379 
4380     switch ((int)*mode) {
4381     case 1:  goto labelL1;
4382     case 2:  goto labelL2;
4383     case 3:  goto labelL3;
4384     case 4:  goto labelL4;
4385     case 5:  goto labelL5;
4386     }
4387 labelL1:
4388     l1_1.n = 5;
4389     l1_1.nili = 0;
4390     l1_1.ninl = 0;
4391     l1_1.neli = 3;
4392     l1_1.nenl = 0;
4393     for (i__ = 1; i__ <= 5; ++i__) {
4394     l2_4.x[i__ - 1] = 2.;
4395     l11_4.lxl[i__ - 1] = false;
4396 /* labelL6: */
4397     l12_4.lxu[i__ - 1] = false;
4398     }
4399     for (i__ = 1; i__ <= 3; ++i__) {
4400     for (j = 1; j <= 5; ++j) {
4401 /* L15: */
4402         l5_9.gg[i__ + j * 3 - 4] = 0.;
4403     }
4404     }
4405     l5_9.gg[0] = 1.;
4406     l5_9.gg[3] = 3.;
4407     l5_9.gg[7] = 1.;
4408     l5_9.gg[10] = 1.;
4409     l5_9.gg[13] = -2.;
4410     l5_9.gg[5] = 1.;
4411     l5_9.gg[14] = -1.;
4412     l20_7.lex = true;
4413     l20_7.nex = 1;
4414     l20_7.xex[0] = -.094555873925501438;
4415     l20_7.xex[1] = .03151862464183381;
4416     l20_7.xex[2] = .51575931232091687;
4417     l20_7.xex[3] = -.45272206303724927;
4418     l20_7.xex[4] = l20_7.xex[1];
4419     l20_7.fex = 5.3266475644699138;
4420     return 0;
4421 labelL2:
4422 /* Computing 2nd power */
4423     d__1 = l2_4.x[0] * 4. - l2_4.x[1];
4424 /* Computing 2nd power */
4425     d__2 = l2_4.x[1] + l2_4.x[2] - 2.;
4426 /* Computing 2nd power */
4427     d__3 = l2_4.x[3] - 1.;
4428 /* Computing 2nd power */
4429     d__4 = l2_4.x[4] - 1.;
4430     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4;
4431     return 0;
4432 labelL3:
4433     l4_4.gf[0] = (l2_4.x[0] * 4. - l2_4.x[1]) * 8.;
4434     l4_4.gf[2] = (l2_4.x[1] + l2_4.x[2] - 2.) * 2.;
4435     l4_4.gf[1] = l4_4.gf[0] * -.25 + l4_4.gf[2];
4436     l4_4.gf[3] = (l2_4.x[3] - 1.) * 2.;
4437     l4_4.gf[4] = (l2_4.x[4] - 1.) * 2.;
4438     return 0;
4439 labelL4:
4440     if (l9_4.index1[0]) {
4441     l3_3.g[0] = l2_4.x[0] + l2_4.x[1] * 3.;
4442     }
4443     if (l9_4.index1[1]) {
4444     l3_3.g[1] = l2_4.x[2] + l2_4.x[3] - l2_4.x[4] * 2.;
4445     }
4446     if (l9_4.index1[2]) {
4447     l3_3.g[2] = l2_4.x[1] - l2_4.x[4];
4448     }
4449 labelL5:
4450     return 0;
4451 } /* tp52_ */
4452 
4453 
tp53_(int * mode)4454 /* Subroutine */ int tp53_(int *mode)
4455 {
4456     /* System generated locals */
4457     Real d__1, d__2, d__3, d__4;
4458 
4459     /* Local variables */
4460     static int i__, j;
4461 
4462     switch ((int)*mode) {
4463     case 1:  goto labelL1;
4464     case 2:  goto labelL2;
4465     case 3:  goto labelL3;
4466     case 4:  goto labelL4;
4467     case 5:  goto labelL5;
4468     }
4469 labelL1:
4470     l1_1.n = 5;
4471     l1_1.nili = 0;
4472     l1_1.ninl = 0;
4473     l1_1.neli = 3;
4474     l1_1.nenl = 0;
4475     for (i__ = 1; i__ <= 5; ++i__) {
4476     l2_4.x[i__ - 1] = 2.;
4477     l11_4.lxl[i__ - 1] = true;
4478     l12_4.lxu[i__ - 1] = true;
4479     l13_4.xl[i__ - 1] = -10.;
4480 /* labelL6: */
4481     l14_4.xu[i__ - 1] = 10.;
4482     }
4483     for (i__ = 1; i__ <= 3; ++i__) {
4484     for (j = 1; j <= 5; ++j) {
4485 /* L15: */
4486         l5_9.gg[i__ + j * 3 - 4] = 0.;
4487     }
4488     }
4489     l5_9.gg[0] = 1.;
4490     l5_9.gg[3] = 3.;
4491     l5_9.gg[7] = 1.;
4492     l5_9.gg[10] = 1.;
4493     l5_9.gg[13] = -2.;
4494     l5_9.gg[5] = 1.;
4495     l5_9.gg[14] = -1.;
4496     l20_7.lex = true;
4497     l20_7.nex = 1;
4498     l20_7.xex[0] = -.76744186046511631;
4499     l20_7.xex[1] = .2558139534883721;
4500     l20_7.xex[2] = .62790697674418605;
4501     l20_7.xex[3] = -.11627906976744186;
4502     l20_7.xex[4] = .2558139534883721;
4503     l20_7.fex = 4.0930232558139537;
4504     return 0;
4505 labelL2:
4506 /* Computing 2nd power */
4507     d__1 = l2_4.x[0] - l2_4.x[1];
4508 /* Computing 2nd power */
4509     d__2 = l2_4.x[1] + l2_4.x[2] - 2.;
4510 /* Computing 2nd power */
4511     d__3 = l2_4.x[3] - 1.;
4512 /* Computing 2nd power */
4513     d__4 = l2_4.x[4] - 1.;
4514     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4;
4515     return 0;
4516 labelL3:
4517     l4_4.gf[0] = (l2_4.x[0] - l2_4.x[1]) * 2.;
4518     l4_4.gf[2] = (l2_4.x[1] + l2_4.x[2] - 2.) * 2.;
4519     l4_4.gf[1] = l4_4.gf[2] - l4_4.gf[0];
4520     l4_4.gf[3] = (l2_4.x[3] - 1.) * 2.;
4521     l4_4.gf[4] = (l2_4.x[4] - 1.) * 2.;
4522     return 0;
4523 labelL4:
4524     if (l9_4.index1[0]) {
4525     l3_3.g[0] = l2_4.x[0] + l2_4.x[1] * 3.;
4526     }
4527     if (l9_4.index1[1]) {
4528     l3_3.g[1] = l2_4.x[2] + l2_4.x[3] - l2_4.x[4] * 2.;
4529     }
4530     if (l9_4.index1[2]) {
4531     l3_3.g[2] = l2_4.x[1] - l2_4.x[4];
4532     }
4533 labelL5:
4534     return 0;
4535 } /* tp53_ */
4536 
4537 
tp54_(int * mode)4538 /* Subroutine */ int tp54_(int *mode)
4539 {
4540     /* System generated locals */
4541     Real d__1, d__2, d__3, d__4, d__5, d__6;
4542 
4543     /* Local variables */
4544     static int i__;
4545     static Real q, v1, v2, v3, v4, v5, v6, v7, v8, v9, dq[6];
4546 
4547     switch ((int)*mode) {
4548     case 1:  goto labelL1;
4549     case 2:  goto labelL2;
4550     case 3:  goto labelL3;
4551     case 4:  goto labelL4;
4552     case 5:  goto labelL5;
4553     }
4554 labelL1:
4555     l1_1.n = 6;
4556     l1_1.nili = 0;
4557     l1_1.ninl = 0;
4558     l1_1.neli = 1;
4559     l1_1.nenl = 0;
4560     l2_5.x[0] = 6e3;
4561     l2_5.x[1] = 1.5;
4562     l2_5.x[2] = 4e6;
4563     l2_5.x[3] = 2.;
4564     l2_5.x[4] = .003;
4565     l2_5.x[5] = 5e7;
4566     for (i__ = 1; i__ <= 6; ++i__) {
4567     l11_5.lxl[i__ - 1] = true;
4568 /* labelL6: */
4569     l12_5.lxu[i__ - 1] = true;
4570     }
4571     l13_5.xl[0] = 0.;
4572     l13_5.xl[1] = -10.;
4573     l13_5.xl[2] = 0.;
4574     l13_5.xl[3] = 0.;
4575     l13_5.xl[4] = -1.;
4576     l13_5.xl[5] = 0.;
4577     l14_5.xu[0] = 2e4;
4578     l14_5.xu[1] = 10.;
4579     l14_5.xu[2] = 1e7;
4580     l14_5.xu[3] = 20.;
4581     l14_5.xu[4] = 1.;
4582     l14_5.xu[5] = 2e8;
4583     l5_3.gg[0] = 1.;
4584     l5_3.gg[1] = 4e3;
4585     for (i__ = 3; i__ <= 6; ++i__) {
4586 /* L30: */
4587     l5_3.gg[i__ - 1] = (float)0.;
4588     }
4589     l20_4.lex = true;
4590     l20_4.nex = 1;
4591     l20_4.xex[0] = 13085.714285714286;
4592     l20_4.xex[1] = 1.1285714285714286;
4593     l20_4.xex[2] = 2e6;
4594     l20_4.xex[3] = 10.;
4595     l20_4.xex[4] = .001;
4596     l20_4.xex[5] = 1e8;
4597     l20_4.fex = -std::exp(-.096428571428571433);
4598     return 0;
4599 labelL2:
4600     v1 = l2_5.x[0] - 1e4;
4601     v2 = l2_5.x[1] - 1.;
4602     v3 = l2_5.x[2] - 2e6;
4603     v4 = l2_5.x[3] - 10.;
4604     v5 = l2_5.x[4] - .001;
4605     v6 = l2_5.x[5] - 1e8;
4606     v7 = 1.0416666666666667;
4607     v8 = 2.0408163265306122e-14;
4608     v9 = 4.0816326530612245e-14;
4609 /* Computing 2nd power */
4610     d__1 = v1;
4611 /* Computing 2nd power */
4612     d__2 = v2;
4613 /* Computing 2nd power */
4614     d__3 = l2_5.x[2] - 2e6;
4615 /* Computing 2nd power */
4616     d__4 = l2_5.x[3] - 10.;
4617 /* Computing 2nd power */
4618     d__5 = l2_5.x[4] - .001;
4619 /* Computing 2nd power */
4620     d__6 = l2_5.x[5] - 1e8;
4621     q = (d__1 * d__1 * 1.5625e-8 + v1 * 5e-5 * v2 + d__2 * d__2) * v7 + d__3 *
4622          d__3 * v8 + d__4 * d__4 * 4e-4 + d__5 * d__5 * 400. + d__6 *
4623         d__6 * 4e-18;
4624 /*      Q = ((X(1)-1.0D6)**2/6.4D+7 + (X(1)-1.0D+4)*(X(2)-1.0D0)/2.0D4 */
4625 /*     /       + (X(2)-1.0D0)**2)*(X(3)-2.0D6)**2/(0.96*4.9D13) */
4626 /*     /       + (X(4)-1.0D1)**2/2.5D3 + (X(5)-1.0D-3)**2/2.5D-3 */
4627 /*     /       + (X(6)-1.0D8)**2/2.5D17 */
4628     l6_1.fx = -std::exp(q * -.5);
4629     return 0;
4630 labelL3:
4631     v1 = l2_5.x[0] - 1e4;
4632     v2 = l2_5.x[1] - 1.;
4633     v3 = l2_5.x[2] - 2e6;
4634     v4 = l2_5.x[3] - 10.;
4635     v5 = l2_5.x[4] - .001;
4636     v6 = l2_5.x[5] - 1e8;
4637     v7 = 1.0416666666666667;
4638     v8 = 2.0408163265306122e-14;
4639     v9 = 4.0816326530612245e-14;
4640 /* Computing 2nd power */
4641     d__1 = v1;
4642 /* Computing 2nd power */
4643     d__2 = v2;
4644 /* Computing 2nd power */
4645     d__3 = v3;
4646 /* Computing 2nd power */
4647     d__4 = v4;
4648 /* Computing 2nd power */
4649     d__5 = v5;
4650 /* Computing 2nd power */
4651     d__6 = v6;
4652     q = (d__1 * d__1 * 1.5625e-8 + v1 * 5e-5 * v2 + d__2 * d__2) * v7 + d__3 *
4653          d__3 * v8 + d__4 * d__4 * 4e-4 + d__5 * d__5 * 400. + d__6 *
4654         d__6 * 4e-18;
4655     dq[0] = (v1 * 3.125e-8 + v2 * 5e-5) * v7;
4656     dq[1] = (v1 * 5e-5 + v2 * 2.) * v7;
4657     dq[2] = v3 * v9;
4658     dq[3] = v4 * 8e-4;
4659     dq[4] = v5 * 800.;
4660     dq[5] = v6 * 8e-18;
4661     for (i__ = 1; i__ <= 6; ++i__) {
4662 /* L31: */
4663     l4_5.gf[i__ - 1] = std::exp(q * -.5) * .5 * dq[i__ - 1];
4664     }
4665     return 0;
4666 labelL4:
4667     if (l9_2.index1[0]) {
4668     l3_1.g[0] = l2_5.x[0] + l2_5.x[1] * 4e3 - 17600.;
4669     }
4670 labelL5:
4671     return 0;
4672 } /* tp54_ */
4673 
4674 
tp55_(int * mode)4675 /* Subroutine */ int tp55_(int *mode)
4676 {
4677     /* Local variables */
4678     static int i__, j;
4679     static Real v1;
4680 
4681     switch ((int)*mode) {
4682     case 1:  goto labelL1;
4683     case 2:  goto labelL2;
4684     case 3:  goto labelL3;
4685     case 4:  goto labelL4;
4686     case 5:  goto labelL5;
4687     }
4688 labelL1:
4689     l1_1.n = 6;
4690     l1_1.nili = 0;
4691     l1_1.ninl = 0;
4692     l1_1.neli = 6;
4693     l1_1.nenl = 0;
4694     l2_5.x[0] = 1.;
4695     l2_5.x[1] = 2.;
4696     l2_5.x[2] = 0.;
4697     l2_5.x[3] = 0.;
4698     l2_5.x[4] = 0.;
4699     l2_5.x[5] = 2.;
4700     for (i__ = 1; i__ <= 6; ++i__) {
4701     l11_5.lxl[i__ - 1] = true;
4702     l12_5.lxu[i__ - 1] = false;
4703 /* labelL6: */
4704     l13_5.xl[i__ - 1] = 0.;
4705     }
4706     l12_5.lxu[0] = true;
4707     l12_5.lxu[3] = true;
4708     l14_5.xu[0] = 1.;
4709     l14_5.xu[3] = 1.;
4710     for (i__ = 1; i__ <= 6; ++i__) {
4711     for (j = 1; j <= 6; ++j) {
4712 /* L15: */
4713         l5_10.gg[i__ + j * 6 - 7] = 0.;
4714     }
4715     }
4716     l4_5.gf[1] = 2.;
4717     l4_5.gf[2] = 0.;
4718     l4_5.gf[4] = 4.;
4719     l4_5.gf[5] = 0.;
4720     l5_10.gg[0] = 1.;
4721     l5_10.gg[6] = 2.;
4722     l5_10.gg[24] = 5.;
4723     l5_10.gg[1] = 1.;
4724     l5_10.gg[7] = 1.;
4725     l5_10.gg[13] = 1.;
4726     l5_10.gg[20] = 1.;
4727     l5_10.gg[26] = 1.;
4728     l5_10.gg[32] = 1.;
4729     l5_10.gg[3] = 1.;
4730     l5_10.gg[21] = 1.;
4731     l5_10.gg[10] = 1.;
4732     l5_10.gg[28] = 1.;
4733     l5_10.gg[17] = 1.;
4734     l5_10.gg[35] = 1.;
4735     l20_4.lex = true;
4736     l20_4.nex = 1;
4737     l20_4.xex[0] = 0.;
4738     l20_4.xex[1] = 1.3333333333333333;
4739     l20_4.xex[2] = 1.6666666666666667;
4740     l20_4.xex[3] = 1.;
4741     l20_4.xex[4] = .66666666666666663;
4742     l20_4.xex[5] = .33333333333333331;
4743     l20_4.fex = 6.333333333333333;
4744     return 0;
4745 labelL2:
4746     l6_1.fx = l2_5.x[0] + l2_5.x[1] * 2. + l2_5.x[4] * 4. + std::exp(l2_5.x[0] *
4747         l2_5.x[3]);
4748     return 0;
4749 labelL3:
4750     v1 = std::exp(l2_5.x[0] * l2_5.x[3]);
4751     l4_5.gf[0] = l2_5.x[3] * v1 + 1.;
4752     l4_5.gf[3] = l2_5.x[0] * v1;
4753     return 0;
4754 labelL4:
4755     if (l9_6.index1[0]) {
4756     l3_5.g[0] = l2_5.x[0] + l2_5.x[1] * 2. + l2_5.x[4] * 5. - 6.;
4757     }
4758     if (l9_6.index1[1]) {
4759     l3_5.g[1] = l2_5.x[0] + l2_5.x[1] + l2_5.x[2] - 3.;
4760     }
4761     if (l9_6.index1[2]) {
4762     l3_5.g[2] = l2_5.x[3] + l2_5.x[4] + l2_5.x[5] - 2.;
4763     }
4764     if (l9_6.index1[3]) {
4765     l3_5.g[3] = l2_5.x[0] + l2_5.x[3] - 1.;
4766     }
4767     if (l9_6.index1[4]) {
4768     l3_5.g[4] = l2_5.x[1] + l2_5.x[4] - 2.;
4769     }
4770     if (l9_6.index1[5]) {
4771     l3_5.g[5] = l2_5.x[2] + l2_5.x[5] - 2.;
4772     }
4773 labelL5:
4774     return 0;
4775 } /* tp55_ */
4776 
4777 
tp56_(int * mode)4778 /* Subroutine */ int tp56_(int *mode)
4779 {
4780     /* System generated locals */
4781     Real d__1;
4782 
4783     /* Local variables */
4784     static int i__, j;
4785 
4786     switch ((int)*mode) {
4787     case 1:  goto labelL1;
4788     case 2:  goto labelL2;
4789     case 3:  goto labelL3;
4790     case 4:  goto labelL4;
4791     case 5:  goto labelL5;
4792     }
4793 labelL1:
4794     l1_1.n = 7;
4795     l1_1.nili = 0;
4796     l1_1.ninl = 0;
4797     l1_1.neli = 0;
4798     l1_1.nenl = 4;
4799     l2_6.x[0] = 1.;
4800     l2_6.x[1] = 1.;
4801     l2_6.x[2] = 1.;
4802     for (i__ = 1; i__ <= 7; ++i__) {
4803     l11_6.lxl[i__ - 1] = false;
4804 /* labelL6: */
4805     l12_6.lxu[i__ - 1] = false;
4806     }
4807     l2_6.x[3] = std::asin(std::sqrt(.23809523809523808));
4808     l2_6.x[4] = l2_6.x[3];
4809     l2_6.x[5] = l2_6.x[3];
4810     l2_6.x[6] = std::asin(std::sqrt(.69444444444444442));
4811     for (i__ = 4; i__ <= 7; ++i__) {
4812 /* L30: */
4813     l4_6.gf[i__ - 1] = 0.;
4814     }
4815     for (i__ = 1; i__ <= 4; ++i__) {
4816     for (j = 1; j <= 7; ++j) {
4817 /* L15: */
4818         l5_11.gg[i__ + (j << 2) - 5] = 0.;
4819     }
4820     }
4821     l5_11.gg[0] = 1.;
4822     l5_11.gg[5] = 1.;
4823     l5_11.gg[10] = 1.;
4824     l5_11.gg[3] = 1.;
4825     l5_11.gg[7] = 2.;
4826     l5_11.gg[11] = 2.;
4827     l20_8.lex = true;
4828     l20_8.nex = -1;
4829     l20_8.xex[0] = 2.4;
4830     l20_8.xex[1] = 1.2;
4831     l20_8.xex[2] = 1.2;
4832     l20_8.xex[3] = std::asin(std::sqrt(.5714285714285714));
4833     l20_8.xex[4] = std::asin(std::sqrt(.2857142857142857));
4834     l20_8.xex[5] = l20_8.xex[4];
4835     l20_8.xex[6] = std::atan(1.) * 2.;
4836     l20_8.fex = -3.456;
4837     return 0;
4838 labelL2:
4839     l6_1.fx = -l2_6.x[0] * l2_6.x[1] * l2_6.x[2];
4840     return 0;
4841 labelL3:
4842     l4_6.gf[0] = -l2_6.x[1] * l2_6.x[2];
4843     l4_6.gf[1] = -l2_6.x[0] * l2_6.x[2];
4844     l4_6.gf[2] = -l2_6.x[0] * l2_6.x[1];
4845     return 0;
4846 labelL4:
4847     if (l9_7.index1[0]) {
4848 /* Computing 2nd power */
4849     d__1 = std::sin(l2_6.x[3]);
4850     l3_6.g[0] = l2_6.x[0] - d__1 * d__1 * 4.2;
4851     }
4852     if (l9_7.index1[1]) {
4853 /* Computing 2nd power */
4854     d__1 = std::sin(l2_6.x[4]);
4855     l3_6.g[1] = l2_6.x[1] - d__1 * d__1 * 4.2;
4856     }
4857     if (l9_7.index1[2]) {
4858 /* Computing 2nd power */
4859     d__1 = std::sin(l2_6.x[5]);
4860     l3_6.g[2] = l2_6.x[2] - d__1 * d__1 * 4.2;
4861     }
4862     if (l9_7.index1[3]) {
4863 /* Computing 2nd power */
4864     d__1 = std::sin(l2_6.x[6]);
4865     l3_6.g[3] = l2_6.x[0] + l2_6.x[1] * 2. + l2_6.x[2] * 2. - d__1 * d__1
4866         * 7.2;
4867     }
4868     return 0;
4869 labelL5:
4870     if (l10_7.index2[0]) {
4871     l5_11.gg[12] = std::sin(l2_6.x[3]) * -8.4 * std::cos(l2_6.x[3]);
4872     }
4873     if (l10_7.index2[1]) {
4874     l5_11.gg[17] = std::sin(l2_6.x[4]) * -8.4 * std::cos(l2_6.x[4]);
4875     }
4876     if (l10_7.index2[2]) {
4877     l5_11.gg[22] = std::sin(l2_6.x[5]) * -8.4 * std::cos(l2_6.x[5]);
4878     }
4879     if (l10_7.index2[3]) {
4880     l5_11.gg[27] = std::sin(l2_6.x[6]) * -14.4 * std::cos(l2_6.x[6]);
4881     }
4882     return 0;
4883 } /* tp56_ */
4884 
4885 
tp57_(int * mode)4886 /* Subroutine */ int tp57_(int *mode)
4887 {
4888     /* System generated locals */
4889     int i__1;
4890     Real d__1;
4891 
4892     /* Local variables */
4893     static Real a[44], b[44], f[44];
4894     static int i__, j;
4895     static Real s[2], t, v1, df[88]    /* was [44][2] */;
4896 
4897     if (*mode - 2 >= 0) {
4898     goto L18;
4899     } else {
4900     goto labelL1;
4901     }
4902 labelL1:
4903     l1_1.n = 2;
4904     l1_1.nili = 0;
4905     l1_1.ninl = 1;
4906     l1_1.neli = 0;
4907     l1_1.nenl = 0;
4908     l2_1.x[0] = .42;
4909     l2_1.x[1] = 5.;
4910     for (i__ = 1; i__ <= 2; ++i__) {
4911     l11_1.lxl[i__ - 1] = true;
4912 /* labelL6: */
4913     l12_1.lxu[i__ - 1] = false;
4914     }
4915     l13_1.xl[0] = .4;
4916     l13_1.xl[1] = -4.;
4917     l20_1.lex = false;
4918     l20_1.xex[0] = .419952674511;
4919     l20_1.xex[1] = 1.2848456293;
4920     l20_1.fex = 2.8459669721299998;
4921     return 0;
4922 L18:
4923     for (i__ = 1; i__ <= 2; ++i__) {
4924     a[i__ - 1] = 8.;
4925     a[i__ + 15] = 18.;
4926     a[i__ + 29] = 28.;
4927     a[i__ + 34] = 32.;
4928     a[i__ + 37] = 36.;
4929     a[i__ + 39] = 38.;
4930     b[i__ - 1] = .49;
4931     b[i__ + 5] = .46;
4932     b[i__ + 10] = .43;
4933     b[i__ + 13] = .43;
4934     b[i__ + 17] = .42;
4935     b[i__ + 20] = .41;
4936     b[i__ + 24] = .4;
4937     b[i__ + 28] = .41;
4938     b[i__ + 35] = .4;
4939     b[i__ + 39] = .4;
4940 /* labelL20: */
4941     b[i__ + 41] = .39;
4942     }
4943     for (i__ = 1; i__ <= 3; ++i__) {
4944     a[i__ + 9] = 14.;
4945     a[i__ + 12] = 16.;
4946     a[i__ + 17] = 20.;
4947     a[i__ + 20] = 22.;
4948     a[i__ + 23] = 24.;
4949     a[i__ + 26] = 26.;
4950     a[i__ + 31] = 30.;
4951 /* L21: */
4952     b[i__ + 30] = .4;
4953     }
4954     for (i__ = 1; i__ <= 4; ++i__) {
4955     a[i__ + 1] = 10.;
4956 /* L22: */
4957     a[i__ + 5] = 12.;
4958     }
4959     a[37] = 34.;
4960     a[42] = 40.;
4961     a[43] = 42.;
4962     b[2] = .48;
4963     b[3] = .47;
4964     b[4] = .48;
4965     b[5] = .47;
4966     b[8] = .45;
4967     b[9] = .43;
4968     b[10] = .45;
4969     b[13] = .44;
4970     b[16] = .46;
4971     b[17] = .45;
4972     b[20] = .43;
4973     b[23] = .4;
4974     b[24] = .42;
4975     b[27] = .41;
4976     b[28] = .4;
4977     b[34] = .38;
4978     b[35] = .41;
4979     b[38] = .41;
4980     b[39] = .38;
4981     if ((i__1 = *mode - 4) < 0) {
4982     goto L17;
4983     } else if (i__1 == 0) {
4984     goto labelL4;
4985     } else {
4986     goto labelL5;
4987     }
4988 L17:
4989     for (i__ = 1; i__ <= 44; ++i__) {
4990 /* L30: */
4991     f[i__ - 1] = b[i__ - 1] - l2_1.x[0] - (.49 - l2_1.x[0]) * std::exp(-l2_1.x[
4992         1] * (a[i__ - 1] - 8.));
4993     }
4994     switch ((int)*mode) {
4995     case 1:  goto labelL1;
4996     case 2:  goto labelL2;
4997     case 3:  goto labelL3;
4998     }
4999 labelL2:
5000     t = 0.;
5001     for (i__ = 1; i__ <= 44; ++i__) {
5002 /* L19: */
5003 /* Computing 2nd power */
5004     d__1 = f[i__ - 1];
5005     t += d__1 * d__1;
5006     }
5007     l6_1.fx = t * (float)100.;
5008     return 0;
5009 labelL3:
5010     s[0] = 0.;
5011     s[1] = 0.;
5012     for (i__ = 1; i__ <= 44; ++i__) {
5013     v1 = std::exp(-l2_1.x[1] * (a[i__ - 1] - 8.));
5014     df[i__ - 1] = v1 - 1.;
5015     df[i__ + 43] = (a[i__ - 1] - 8.) * (.49 - l2_1.x[0]) * v1;
5016     for (j = 1; j <= 2; ++j) {
5017 /* L32: */
5018         s[j - 1] += f[i__ - 1] * 2. * df[i__ + j * 44 - 45];
5019     }
5020 /* L31: */
5021     }
5022     l4_1.gf[0] = s[0] * (float)100.;
5023     l4_1.gf[1] = s[1] * (float)100.;
5024     return 0;
5025 labelL4:
5026     if (l9_2.index1[0]) {
5027     l3_1.g[0] = -l2_1.x[0] * l2_1.x[1] + l2_1.x[1] * .49 - .09;
5028     }
5029     return 0;
5030 labelL5:
5031     if (! l10_2.index2[0]) {
5032     goto L7;
5033     }
5034     l5_1.gg[0] = -l2_1.x[1];
5035     l5_1.gg[1] = -l2_1.x[0] + .49;
5036 L7:
5037     return 0;
5038 } /* tp57_ */
5039 
5040 
tp58_(int * mode)5041 /* Subroutine */ int tp58_(int *mode)
5042 {
5043     /* System generated locals */
5044     Real d__1, d__2, d__3;
5045 
5046     switch ((int)*mode) {
5047     case 1:  goto labelL1;
5048     case 2:  goto labelL2;
5049     case 3:  goto labelL3;
5050     case 4:  goto labelL4;
5051     case 5:  goto labelL5;
5052     }
5053 labelL1:
5054     l1_1.n = 2;
5055     l1_1.nili = 0;
5056     l1_1.ninl = 3;
5057     l1_1.neli = 0;
5058     l1_1.nenl = 0;
5059     l2_1.x[0] = -2.;
5060     l2_1.x[1] = 1.;
5061     l11_1.lxl[0] = true;
5062     l12_1.lxu[0] = true;
5063     l11_1.lxl[1] = false;
5064     l12_1.lxu[1] = false;
5065     l13_1.xl[0] = -.5;
5066     l14_1.xu[0] = .5;
5067     l5_3.gg[0] = -1.;
5068     l5_3.gg[4] = -1.;
5069     l20_1.lex = false;
5070     l20_1.xex[0] = -.786150483331;
5071     l20_1.xex[1] = .618034533851;
5072     l20_1.fex = 3.19033354957;
5073     return 0;
5074 labelL2:
5075 /* Computing 2nd power */
5076     d__2 = l2_1.x[0];
5077 /* Computing 2nd power */
5078     d__1 = l2_1.x[1] - d__2 * d__2;
5079 /* Computing 2nd power */
5080     d__3 = 1. - l2_1.x[0];
5081     l6_1.fx = d__1 * d__1 * 100. + d__3 * d__3;
5082     return 0;
5083 labelL3:
5084 /* Computing 2nd power */
5085     d__1 = l2_1.x[0];
5086     l4_1.gf[1] = (l2_1.x[1] - d__1 * d__1) * 200.;
5087     l4_1.gf[0] = (l2_1.x[0] * (l4_1.gf[1] - 1.) + 1.) * -2.;
5088     return 0;
5089 labelL4:
5090     if (l9_4.index1[0]) {
5091 /* Computing 2nd power */
5092     d__1 = l2_1.x[1];
5093     l3_3.g[0] = d__1 * d__1 - l2_1.x[0];
5094     }
5095     if (l9_4.index1[1]) {
5096 /* Computing 2nd power */
5097     d__1 = l2_1.x[0];
5098     l3_3.g[1] = d__1 * d__1 - l2_1.x[1];
5099     }
5100     if (l9_4.index1[2]) {
5101 /* Computing 2nd power */
5102     d__1 = l2_1.x[0];
5103 /* Computing 2nd power */
5104     d__2 = l2_1.x[1];
5105     l3_3.g[2] = d__1 * d__1 + d__2 * d__2 - 1.;
5106     }
5107     return 0;
5108 labelL5:
5109     if (l10_4.index2[0]) {
5110     l5_3.gg[3] = l2_1.x[1] * 2.;
5111     }
5112     if (l10_4.index2[1]) {
5113     l5_3.gg[1] = l2_1.x[0] * 2.;
5114     }
5115     if (! l10_4.index2[2]) {
5116     goto labelL9;
5117     }
5118     l5_3.gg[2] = l2_1.x[0] * 2.;
5119     l5_3.gg[5] = l2_1.x[1] * 2.;
5120 labelL9:
5121     return 0;
5122 } /* tp58_ */
5123 
5124 
tp59_(int * mode)5125 /* Subroutine */ int tp59_(int *mode)
5126 {
5127     /* System generated locals */
5128     Real d__1;
5129 
5130     /* Local variables */
5131     static int i__;
5132     static Real x11, x12, x13, x14, x21, x22, x23, x24, xx12, xx21,
5133         xx31;
5134     static Real xx11;
5135 
5136     switch ((int)*mode) {
5137     case 1:  goto labelL1;
5138     case 2:  goto labelL2;
5139     case 3:  goto labelL3;
5140     case 4:  goto labelL4;
5141     case 5:  goto labelL5;
5142     }
5143 labelL1:
5144     l1_1.n = 2;
5145     l1_1.nili = 0;
5146     l1_1.ninl = 3;
5147     l1_1.neli = 0;
5148     l1_1.nenl = 0;
5149     l2_1.x[0] = 90.;
5150     l2_1.x[1] = 10.;
5151     for (i__ = 1; i__ <= 2; ++i__) {
5152     l11_1.lxl[i__ - 1] = true;
5153     l12_1.lxu[i__ - 1] = true;
5154 /* labelL6: */
5155     l13_1.xl[i__ - 1] = 0.;
5156     }
5157     l14_1.xu[0] = 75.;
5158     l14_1.xu[1] = 65.;
5159     l5_3.gg[4] = 1.;
5160     l5_3.gg[2] = -5.;
5161     l20_1.lex = false;
5162 /*     XEX(1) = 0.463995762710D+2 */
5163 /*     XEX(2) = 0.522196899513D+2 */
5164 /*     FEX = -0.675456604292D+1 */
5165     l20_1.xex[0] = 13.5501042366;
5166     l20_1.xex[1] = 51.6601812877;
5167     l20_1.fex = -7.80422632408;
5168     return 0;
5169 labelL2:
5170     x11 = l2_1.x[0];
5171     x12 = x11 * x11;
5172     x13 = x12 * x11;
5173     x14 = x13 * x11;
5174     x21 = l2_1.x[1];
5175     x22 = x21 * x21;
5176     x23 = x22 * x21;
5177     x24 = x23 * x21;
5178     l6_1.fx = x11 * 3.8112 - 75.196 - x12 * .12694 + x13 * .0020567 - x14 *
5179         1.0345e-5 + x21 * 6.8306 - x11 * .030234 * x21 + x12 * .00128134 *
5180          x21 - x13 * 3.5256e-5 * x21 + x14 * 2.266e-7 * x21 - x22 *
5181         .25645 + x23 * .0034604 - x24 * 1.3514e-5 + 28.106 / (x21 + 1.) +
5182         x12 * 5.2375e-6 * x22 + x13 * 6.3e-8 * x22 - x13 * 7e-10 * x23 -
5183         x11 * 3.4054e-4 * x22 + x11 * 1.6638e-6 * x23 + std::exp(x11 * 5e-4 *
5184         x21) * 2.8673;
5185     return 0;
5186 labelL3:
5187     x11 = l2_1.x[0];
5188     x12 = x11 * x11;
5189     x13 = x12 * x11;
5190     x14 = x13 * x11;
5191     x21 = l2_1.x[1];
5192     x22 = x21 * x21;
5193     x23 = x22 * x21;
5194     xx11 = x11 * x21;
5195     xx12 = x11 * x22;
5196     xx21 = x12 * x21;
5197     xx31 = x13 * x21;
5198     l4_1.gf[0] = 3.8112 - x11 * .25388 + x12 * .0061701 - x13 * 4.138e-5 -
5199         x21 * .030234 + xx11 * .00256268 - xx21 * 1.05768e-4 + xx31 *
5200         9.064e-7 + xx12 * 1.0475e-5 + x12 * 1.89e-7 * x22 - x12 * 2.1e-9 *
5201          x23 - x22 * 3.4054e-4 + x23 * 1.6638e-6 + x21 * .00143365 * std::exp(
5202         xx11 * 5e-4);
5203 /* Computing 2nd power */
5204     d__1 = x21 + 1.;
5205     l4_1.gf[1] = 6.8306 - x11 * .030234 + x12 * .00128134 - x13 * 3.5256e-5 +
5206         x14 * 2.266e-7 - x21 * .5129 + x22 * .0103812 - x23 * 5.4056e-5 -
5207         28.106 / (d__1 * d__1) + xx21 * 1.0475e-5 + xx31 * 1.26e-7 - x13 *
5208          2.1e-9 * x22 - xx11 * 6.8108e-4 + xx12 * 4.9914e-6 + x11 *
5209         .00143365 * std::exp(xx11 * 5e-4);
5210     return 0;
5211 labelL4:
5212     if (l9_4.index1[0]) {
5213     l3_3.g[0] = l2_1.x[0] * l2_1.x[1] - 700.;
5214     }
5215     if (l9_4.index1[1]) {
5216 /* Computing 2nd power */
5217     d__1 = l2_1.x[0];
5218     l3_3.g[1] = l2_1.x[1] - d__1 * d__1 * .008;
5219     }
5220     if (l9_4.index1[2]) {
5221 /* Computing 2nd power */
5222     d__1 = l2_1.x[1] - 50.;
5223     l3_3.g[2] = d__1 * d__1 - (l2_1.x[0] - 55.) * 5.;
5224     }
5225     return 0;
5226 labelL5:
5227     if (! l10_4.index2[0]) {
5228     goto L7;
5229     }
5230     l5_3.gg[0] = l2_1.x[1];
5231     l5_3.gg[3] = l2_1.x[0];
5232 L7:
5233     if (l10_4.index2[1]) {
5234     l5_3.gg[1] = l2_1.x[0] * -.016;
5235     }
5236     if (l10_4.index2[2]) {
5237     l5_3.gg[5] = (l2_1.x[1] - 50.) * 2.;
5238     }
5239     return 0;
5240 } /* tp59_ */
5241 
5242 
tp60_(int * mode)5243 /* Subroutine */ int tp60_(int *mode)
5244 {
5245     /* System generated locals */
5246     Real d__1, d__2, d__3;
5247 
5248     /* Local variables */
5249     static int i__;
5250     static Real v1;
5251 
5252     switch ((int)*mode) {
5253     case 1:  goto labelL1;
5254     case 2:  goto labelL2;
5255     case 3:  goto labelL3;
5256     case 4:  goto labelL4;
5257     case 5:  goto labelL5;
5258     }
5259 labelL1:
5260     l1_1.n = 3;
5261     l1_1.nili = 0;
5262     l1_1.ninl = 0;
5263     l1_1.neli = 0;
5264     l1_1.nenl = 1;
5265     for (i__ = 1; i__ <= 3; ++i__) {
5266     l2_2.x[i__ - 1] = 2.;
5267     l11_2.lxl[i__ - 1] = true;
5268     l12_2.lxu[i__ - 1] = true;
5269     l13_2.xl[i__ - 1] = -10.;
5270 /* labelL6: */
5271     l14_2.xu[i__ - 1] = 10.;
5272     }
5273     l20_3.lex = false;
5274     l20_3.xex[0] = 1.10485902423;
5275     l20_3.xex[1] = 1.19667419413;
5276     l20_3.xex[2] = 1.53526225739;
5277     l20_3.fex = .0325682002513;
5278     return 0;
5279 labelL2:
5280 /* Computing 2nd power */
5281     d__1 = l2_2.x[0] - 1.;
5282 /* Computing 2nd power */
5283     d__2 = l2_2.x[0] - l2_2.x[1];
5284 /* Computing 4th power */
5285     d__3 = l2_2.x[1] - l2_2.x[2], d__3 *= d__3;
5286     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3;
5287     return 0;
5288 labelL3:
5289     v1 = (l2_2.x[0] - l2_2.x[1]) * 2.;
5290     l4_2.gf[0] = (l2_2.x[0] - 1.) * 2. + v1;
5291 /* Computing 3rd power */
5292     d__1 = l2_2.x[1] - l2_2.x[2];
5293     l4_2.gf[2] = d__1 * (d__1 * d__1) * -4.;
5294     l4_2.gf[1] = -l4_2.gf[2] - v1;
5295     return 0;
5296 labelL4:
5297     if (l9_2.index1[0]) {
5298 /* Computing 2nd power */
5299     d__1 = l2_2.x[1];
5300 /* Computing 4th power */
5301     d__2 = l2_2.x[2], d__2 *= d__2;
5302     l3_1.g[0] = l2_2.x[0] * (d__1 * d__1 + 1.) + d__2 * d__2 - 4. - std::sqrt( 2.) * 3.;
5303     }
5304     return 0;
5305 labelL5:
5306     if (! l10_2.index2[0]) {
5307     goto L7;
5308     }
5309 /* Computing 2nd power */
5310     d__1 = l2_2.x[1];
5311     l5_5.gg[0] = d__1 * d__1 + 1.;
5312     l5_5.gg[1] = l2_2.x[0] * 2. * l2_2.x[1];
5313 /* Computing 3rd power */
5314     d__1 = l2_2.x[2];
5315     l5_5.gg[2] = d__1 * (d__1 * d__1) * 4.;
5316 L7:
5317     return 0;
5318 } /* tp60_ */
5319 
5320 
tp61_(int * mode)5321 /* Subroutine */ int tp61_(int *mode)
5322 {
5323     /* System generated locals */
5324     Real d__1, d__2, d__3;
5325 
5326     /* Local variables */
5327     static int i__;
5328 
5329     switch ((int)*mode) {
5330     case 1:  goto labelL1;
5331     case 2:  goto labelL2;
5332     case 3:  goto labelL3;
5333     case 4:  goto labelL4;
5334     case 5:  goto labelL5;
5335     }
5336 labelL1:
5337     l1_1.n = 3;
5338     l1_1.nili = 0;
5339     l1_1.ninl = 0;
5340     l1_1.neli = 0;
5341     l1_1.nenl = 2;
5342     for (i__ = 1; i__ <= 3; ++i__) {
5343     l2_2.x[i__ - 1] = 0.;
5344     l11_2.lxl[i__ - 1] = false;
5345 /* labelL6: */
5346     l12_2.lxu[i__ - 1] = false;
5347     }
5348     l20_3.lex = false;
5349     l20_3.xex[0] = 5.32677015744;
5350     l20_3.xex[1] = -2.11899863998;
5351     l20_3.xex[2] = 3.21046423906;
5352     l20_3.fex = -143.646142201;
5353     return 0;
5354 labelL2:
5355 /* Computing 2nd power */
5356     d__1 = l2_2.x[0];
5357 /* Computing 2nd power */
5358     d__2 = l2_2.x[1];
5359 /* Computing 2nd power */
5360     d__3 = l2_2.x[2];
5361     l6_1.fx = d__1 * d__1 * 4. + d__2 * d__2 * 2. + d__3 * d__3 * 2. - l2_2.x[
5362         0] * 33. + l2_2.x[1] * 16. - l2_2.x[2] * 24.;
5363     return 0;
5364 labelL3:
5365     l4_2.gf[0] = l2_2.x[0] * 8. - 33.;
5366     l4_2.gf[1] = l2_2.x[1] * 4. + 16.;
5367     l4_2.gf[2] = l2_2.x[2] * 4. - 24.;
5368     return 0;
5369 labelL4:
5370     if (l9_3.index1[0]) {
5371 /* Computing 2nd power */
5372     d__1 = l2_2.x[1];
5373     l3_2.g[0] = l2_2.x[0] * 3. - d__1 * d__1 * 2. - 7.;
5374     }
5375     if (l9_3.index1[1]) {
5376 /* Computing 2nd power */
5377     d__1 = l2_2.x[2];
5378     l3_2.g[1] = l2_2.x[0] * 4. - d__1 * d__1 - 11.;
5379     }
5380     return 0;
5381 labelL5:
5382     if (l10_3.index2[0]) {
5383     l5_3.gg[2] = l2_2.x[1] * -4.;
5384     }
5385     if (l10_3.index2[1]) {
5386     l5_3.gg[5] = l2_2.x[2] * -2.;
5387     }
5388     l5_3.gg[0] = 3.;
5389     l5_3.gg[4] = 0.;
5390     l5_3.gg[1] = 4.;
5391     l5_3.gg[3] = 0.;
5392     return 0;
5393 } /* tp61_ */
5394 
5395 
tp62_(int * mode)5396 /* Subroutine */ int tp62_(int *mode)
5397 {
5398     /* System generated locals */
5399     int i__1;
5400     Real d__1;
5401 
5402     /* Local variables */
5403     static int i__;
5404     static Real s, b1, b2, b3, c1, c2, c3, v1, v2, v3, v4, v5, v6, v7,
5405         rb1, rb2, rb3, rc1, rc2, rc3;
5406 
5407     if (*mode - 2 >= 0) {
5408     goto L17;
5409     } else {
5410     goto labelL1;
5411     }
5412 labelL1:
5413     l1_1.n = 3;
5414     l1_1.nili = 0;
5415     l1_1.ninl = 0;
5416     l1_1.neli = 1;
5417     l1_1.nenl = 0;
5418     l2_2.x[0] = .7;
5419     l2_2.x[1] = .2;
5420     l2_2.x[2] = .1;
5421     for (i__ = 1; i__ <= 3; ++i__) {
5422     l11_2.lxl[i__ - 1] = true;
5423     l12_2.lxu[i__ - 1] = true;
5424     l13_2.xl[i__ - 1] = 0.;
5425     l14_2.xu[i__ - 1] = 1.;
5426 /* labelL6: */
5427     l5_5.gg[i__ - 1] = 1.;
5428     }
5429     l20_3.lex = false;
5430     l20_3.xex[0] = .61781329821;
5431     l20_3.xex[1] = .328202155786;
5432     l20_3.xex[2] = .0539845460119;
5433     l20_3.fex = -26272.5144873;
5434     return 0;
5435 L17:
5436     if ((i__1 = *mode - 4) < 0) {
5437     goto L18;
5438     } else if (i__1 == 0) {
5439     goto labelL4;
5440     } else {
5441     goto labelL5;
5442     }
5443 L18:
5444     b3 = l2_2.x[2] + .03;
5445     c3 = l2_2.x[2] * .13 + .03;
5446     b2 = b3 + l2_2.x[1];
5447     c2 = b3 + l2_2.x[1] * .07;
5448     b1 = b2 + l2_2.x[0];
5449     c1 = b2 + l2_2.x[0] * .09;
5450     switch ((int)*mode) {
5451     case 1:  goto labelL1;
5452     case 2:  goto labelL2;
5453     case 3:  goto labelL3;
5454     }
5455 labelL2:
5456     v5 = b1 / c1;
5457     v6 = b2 / c2;
5458     v7 = b3 / c3;
5459     if (v5 <= 0. || v6 <= 0. || v7 <= 0.) {
5460     goto L7;
5461     }
5462     l6_1.fx = (std::log(v5) * 255. + std::log(v6) * 280. + std::log(v7) * 290.) * -32.174;
5463     return 0;
5464 L7:
5465     s = 0.;
5466     for (i__ = 1; i__ <= 3; ++i__) {
5467 /* L8: */
5468 /* Computing 2nd power */
5469     d__1 = l2_2.x[i__ - 1] - 5.;
5470     s += d__1 * d__1;
5471     }
5472     l6_1.fx = s + 1e3 - 26700.;
5473     return 0;
5474 labelL3:
5475     rb1 = 1. / b1;
5476     rb2 = 1. / b2;
5477     rb3 = 1. / b3;
5478     rc1 = 1. / c1;
5479     rc2 = 1. / c2;
5480     rc3 = 1. / c3;
5481     v1 = -8204.369999999999;
5482     v2 = -9008.7199999999993;
5483     v3 = -9330.4599999999991;
5484     v4 = v1 * (rb1 - rc1);
5485     l4_2.gf[0] = v1 * (rb1 - rc1 * .09);
5486     l4_2.gf[1] = v4 + v2 * (rb2 - rc2 * .07);
5487     l4_2.gf[2] = v4 + v2 * (rb2 - rc2) + v3 * (rb3 - rc3 * .13);
5488     return 0;
5489 labelL4:
5490     if (l9_2.index1[0]) {
5491     l3_1.g[0] = l2_2.x[0] + l2_2.x[1] + l2_2.x[2] - 1.;
5492     }
5493 labelL5:
5494     return 0;
5495 } /* tp62_ */
5496 
5497 
tp63_(int * mode)5498 /* Subroutine */ int tp63_(int *mode)
5499 {
5500     /* System generated locals */
5501     Real d__1, d__2, d__3;
5502 
5503     /* Local variables */
5504     static int i__;
5505 
5506     switch ((int)*mode) {
5507     case 1:  goto labelL1;
5508     case 2:  goto labelL2;
5509     case 3:  goto labelL3;
5510     case 4:  goto labelL4;
5511     case 5:  goto labelL5;
5512     }
5513 labelL1:
5514     l1_1.n = 3;
5515     l1_1.nili = 0;
5516     l1_1.ninl = 0;
5517     l1_1.neli = 1;
5518     l1_1.nenl = 1;
5519     for (i__ = 1; i__ <= 3; ++i__) {
5520     l2_2.x[i__ - 1] = 2.;
5521     l11_2.lxl[i__ - 1] = true;
5522     l12_2.lxu[i__ - 1] = false;
5523 /* labelL6: */
5524     l13_2.xl[i__ - 1] = 0.;
5525     }
5526     l5_3.gg[0] = 8.;
5527     l5_3.gg[2] = 14.;
5528     l5_3.gg[4] = 7.;
5529     l20_3.lex = false;
5530     l20_3.xex[0] = 3.51211841492;
5531     l20_3.xex[1] = .216988174172;
5532     l20_3.xex[2] = 3.55217403459;
5533     l20_3.fex = 961.715172127;
5534     return 0;
5535 labelL2:
5536 /* Computing 2nd power */
5537     d__1 = l2_2.x[0];
5538 /* Computing 2nd power */
5539     d__2 = l2_2.x[1];
5540 /* Computing 2nd power */
5541     d__3 = l2_2.x[2];
5542     l6_1.fx = 1e3 - d__1 * d__1 - d__2 * d__2 * 2. - d__3 * d__3 - l2_2.x[0] *
5543          l2_2.x[1] - l2_2.x[0] * l2_2.x[2];
5544     return 0;
5545 labelL3:
5546     l4_2.gf[0] = l2_2.x[0] * -2. - l2_2.x[1] - l2_2.x[2];
5547     l4_2.gf[1] = l2_2.x[1] * -4. - l2_2.x[0];
5548     l4_2.gf[2] = l2_2.x[2] * -2. - l2_2.x[0];
5549     return 0;
5550 labelL4:
5551     if (l9_3.index1[0]) {
5552     l3_2.g[0] = l2_2.x[0] * 8. + l2_2.x[1] * 14. + l2_2.x[2] * 7. - 56.;
5553     }
5554     if (l9_3.index1[1]) {
5555 /* Computing 2nd power */
5556     d__1 = l2_2.x[0];
5557 /* Computing 2nd power */
5558     d__2 = l2_2.x[1];
5559 /* Computing 2nd power */
5560     d__3 = l2_2.x[2];
5561     l3_2.g[1] = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 - 25.;
5562     }
5563     return 0;
5564 labelL5:
5565     if (! l10_3.index2[1]) {
5566     goto L8;
5567     }
5568     l5_3.gg[1] = l2_2.x[0] * 2.;
5569     l5_3.gg[3] = l2_2.x[1] * 2.;
5570     l5_3.gg[5] = l2_2.x[2] * 2.;
5571 L8:
5572     return 0;
5573 } /* tp63_ */
5574 
5575 
tp64_(int * mode)5576 /* Subroutine */ int tp64_(int *mode)
5577 {
5578     /* System generated locals */
5579     Real d__1;
5580 
5581     /* Local variables */
5582     static int i__;
5583 
5584     switch ((int)*mode) {
5585     case 1:  goto labelL1;
5586     case 2:  goto labelL2;
5587     case 3:  goto labelL3;
5588     case 4:  goto labelL4;
5589     case 5:  goto labelL5;
5590     }
5591 labelL1:
5592     l1_1.n = 3;
5593     l1_1.nili = 0;
5594     l1_1.ninl = 1;
5595     l1_1.neli = 0;
5596     l1_1.nenl = 0;
5597     for (i__ = 1; i__ <= 3; ++i__) {
5598     l2_2.x[i__ - 1] = 1.;
5599     l11_2.lxl[i__ - 1] = true;
5600     l12_2.lxu[i__ - 1] = false;
5601 /* labelL6: */
5602     l13_2.xl[i__ - 1] = 1e-5;
5603     }
5604     l20_3.lex = false;
5605     l20_3.xex[0] = 108.734717597;
5606     l20_3.xex[1] = 85.1261394257;
5607     l20_3.xex[2] = 204.324707858;
5608     l20_3.fex = 6299.84242821;
5609     return 0;
5610 labelL2:
5611     l6_1.fx = l2_2.x[0] * 5. + 5e4 / l2_2.x[0] + l2_2.x[1] * 20. + 7.2e4 /
5612         l2_2.x[1] + l2_2.x[2] * 10. + 1.44e5 / l2_2.x[2];
5613     return 0;
5614 labelL3:
5615 /* Computing 2nd power */
5616     d__1 = l2_2.x[0];
5617     l4_2.gf[0] = 5. - 5e4 / (d__1 * d__1);
5618 /* Computing 2nd power */
5619     d__1 = l2_2.x[1];
5620     l4_2.gf[1] = 20. - 7.2e4 / (d__1 * d__1);
5621 /* Computing 2nd power */
5622     d__1 = l2_2.x[2];
5623     l4_2.gf[2] = 10. - 1.44e5 / (d__1 * d__1);
5624     return 0;
5625 labelL4:
5626     if (l9_2.index1[0]) {
5627     l3_1.g[0] = 1. - 4. / l2_2.x[0] - 32. / l2_2.x[1] - 120. / l2_2.x[2];
5628     }
5629     return 0;
5630 labelL5:
5631     if (! l10_2.index2[0]) {
5632     goto L7;
5633     }
5634 /* Computing 2nd power */
5635     d__1 = l2_2.x[0];
5636     l5_5.gg[0] = 4. / (d__1 * d__1);
5637 /* Computing 2nd power */
5638     d__1 = l2_2.x[1];
5639     l5_5.gg[1] = 32. / (d__1 * d__1);
5640 /* Computing 2nd power */
5641     d__1 = l2_2.x[2];
5642     l5_5.gg[2] = 120. / (d__1 * d__1);
5643 L7:
5644     return 0;
5645 } /* tp64_ */
5646 
5647 
tp65_(int * mode)5648 /* Subroutine */ int tp65_(int *mode)
5649 {
5650     /* System generated locals */
5651     Real d__1, d__2, d__3;
5652 
5653     /* Local variables */
5654     static int i__;
5655     static Real v1, v2;
5656 
5657     switch ((int)*mode) {
5658     case 1:  goto labelL1;
5659     case 2:  goto labelL2;
5660     case 3:  goto labelL3;
5661     case 4:  goto labelL4;
5662     case 5:  goto labelL5;
5663     }
5664 labelL1:
5665     l1_1.n = 3;
5666     l1_1.nili = 0;
5667     l1_1.ninl = 1;
5668     l1_1.neli = 0;
5669     l1_1.nenl = 0;
5670     l2_2.x[0] = -5.;
5671     l2_2.x[1] = 5.;
5672     l2_2.x[2] = 0.;
5673     for (i__ = 1; i__ <= 3; ++i__) {
5674     l11_2.lxl[i__ - 1] = true;
5675 /* labelL6: */
5676     l12_2.lxu[i__ - 1] = true;
5677     }
5678     l13_2.xl[0] = -4.5;
5679     l13_2.xl[1] = -4.5;
5680     l13_2.xl[2] = -5.;
5681     l14_2.xu[0] = 4.5;
5682     l14_2.xu[1] = 4.5;
5683     l14_2.xu[2] = 5.;
5684     l20_3.lex = false;
5685     l20_3.xex[0] = 3.65046182158;
5686     l20_3.xex[1] = 3.6504616894;
5687     l20_3.xex[2] = 4.62041750754;
5688     l20_3.fex = .953528856757;
5689     return 0;
5690 labelL2:
5691 /* Computing 2nd power */
5692     d__1 = l2_2.x[0] - l2_2.x[1];
5693 /* Computing 2nd power */
5694     d__2 = (l2_2.x[0] + l2_2.x[1] - 10.) / 3.;
5695 /* Computing 2nd power */
5696     d__3 = l2_2.x[2] - 5.;
5697     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3;
5698     return 0;
5699 labelL3:
5700     v1 = (l2_2.x[0] - l2_2.x[1]) * 2.;
5701     v2 = (l2_2.x[0] + l2_2.x[1] - 10.) * 2. / 9.;
5702     l4_2.gf[0] = v1 + v2;
5703     l4_2.gf[1] = -v1 + v2;
5704     l4_2.gf[2] = (l2_2.x[2] - 5.) * 2.;
5705     return 0;
5706 labelL4:
5707     if (l9_2.index1[0]) {
5708 /* Computing 2nd power */
5709     d__1 = l2_2.x[0];
5710 /* Computing 2nd power */
5711     d__2 = l2_2.x[1];
5712 /* Computing 2nd power */
5713     d__3 = l2_2.x[2];
5714     l3_1.g[0] = 48. - d__1 * d__1 - d__2 * d__2 - d__3 * d__3;
5715     }
5716     return 0;
5717 labelL5:
5718     if (! l10_2.index2[0]) {
5719     goto L7;
5720     }
5721     l5_5.gg[0] = l2_2.x[0] * -2.;
5722     l5_5.gg[1] = l2_2.x[1] * -2.;
5723     l5_5.gg[2] = l2_2.x[2] * -2.;
5724 L7:
5725     return 0;
5726 } /* tp65_ */
5727 
5728 
tp66_(int * mode)5729 /* Subroutine */ int tp66_(int *mode)
5730 {
5731     /* Local variables */
5732     static int i__;
5733 
5734     switch ((int)*mode) {
5735     case 1:  goto labelL1;
5736     case 2:  goto labelL2;
5737     case 3:  goto labelL3;
5738     case 4:  goto labelL4;
5739     case 5:  goto labelL5;
5740     }
5741 labelL1:
5742     l1_1.n = 3;
5743     l1_1.nili = 0;
5744     l1_1.ninl = 2;
5745     l1_1.neli = 0;
5746     l1_1.nenl = 0;
5747     l2_2.x[0] = 0.;
5748     l2_2.x[1] = 1.05;
5749     l2_2.x[2] = 2.9;
5750     for (i__ = 1; i__ <= 3; ++i__) {
5751     l11_2.lxl[i__ - 1] = true;
5752     l12_2.lxu[i__ - 1] = true;
5753     l13_2.xl[i__ - 1] = 0.;
5754 /* labelL6: */
5755     l14_2.xu[i__ - 1] = 100.;
5756     }
5757     l14_2.xu[2] = 10.;
5758     l4_2.gf[0] = -.8;
5759     l4_2.gf[1] = 0.;
5760     l4_2.gf[2] = .2;
5761     l5_3.gg[2] = 1.;
5762     l5_3.gg[4] = 0.;
5763     l5_3.gg[1] = 0.;
5764     l5_3.gg[5] = 1.;
5765     l20_3.lex = false;
5766     l20_3.xex[0] = .184126487951;
5767     l20_3.xex[1] = 1.20216787321;
5768     l20_3.xex[2] = 3.32732232258;
5769     l20_3.fex = .518163274159;
5770     return 0;
5771 labelL2:
5772     l6_1.fx = l2_2.x[2] * .2 - l2_2.x[0] * .8;
5773 labelL3:
5774     return 0;
5775 labelL4:
5776     if (l9_3.index1[0]) {
5777     l3_2.g[0] = l2_2.x[1] - std::exp(l2_2.x[0]);
5778     }
5779     if (l9_3.index1[1]) {
5780     l3_2.g[1] = l2_2.x[2] - std::exp(l2_2.x[1]);
5781     }
5782     return 0;
5783 labelL5:
5784     if (l10_3.index2[0]) {
5785     l5_3.gg[0] = -std::exp(l2_2.x[0]);
5786     }
5787     if (l10_3.index2[1]) {
5788     l5_3.gg[3] = -std::exp(l2_2.x[1]);
5789     }
5790     return 0;
5791 } /* tp66_ */
5792 
5793 
tp67_(int * mode)5794 /* Subroutine */ int tp67_(int *mode)
5795 {
5796     /* System generated locals */
5797     Real d__1;
5798 
5799     /* Local variables */
5800     static Real a[3];
5801     static int i__, j;
5802     static Real y[8], v1, v2, v3, dy[24]    /* was [8][3] */, rx, y2c,
5803         y4c, dy2c[3], dy4c[3];
5804 
5805     if (*mode - 2 >= 0) {
5806     goto L17;
5807     } else {
5808     goto labelL1;
5809     }
5810 labelL1:
5811     l1_1.n = 3;
5812     l1_1.nili = 0;
5813     l1_1.ninl = 14;
5814     l1_1.neli = 0;
5815     l1_1.nenl = 0;
5816     l2_2.x[0] = 1745.;
5817     l2_2.x[1] = 1.2e4;
5818     l2_2.x[2] = 110.;
5819     for (i__ = 1; i__ <= 3; ++i__) {
5820     l11_2.lxl[i__ - 1] = true;
5821     l12_2.lxu[i__ - 1] = true;
5822 /* labelL6: */
5823     l13_2.xl[i__ - 1] = 1e-5;
5824     }
5825     l14_2.xu[0] = 2e3;
5826     l14_2.xu[1] = 1.6e4;
5827     l14_2.xu[2] = 120.;
5828     l20_3.lex = false;
5829     l20_3.xex[0] = 1728.37128614;
5830     l20_3.xex[1] = 1.6e4;
5831     l20_3.xex[2] = 98.1415140238;
5832     l20_3.fex = -1162.03650728;
5833     return 0;
5834 L17:
5835     rx = 1. / l2_2.x[0];
5836     y[1] = l2_2.x[0] * 1.6;
5837     dy[1] = 1.6;
5838     dy[9] = 0.;
5839     dy[17] = 0.;
5840 L100:
5841     y[2] = y[1] * 1.22 - l2_2.x[0];
5842     dy[2] = dy[1] * 1.22 - 1.;
5843     dy[10] = dy[9] * 1.22;
5844     dy[18] = dy[17] * 1.22;
5845     y[5] = (l2_2.x[1] + y[2]) * rx;
5846 /* Computing 2nd power */
5847     d__1 = rx;
5848     dy[5] = (l2_2.x[0] * dy[2] - l2_2.x[1] - y[2]) * (d__1 * d__1);
5849     dy[13] = (dy[10] + 1.) * rx;
5850     dy[21] = dy[2] * rx;
5851     v1 = l2_2.x[0] * .01 * (13.167 - y[5] * 1.3333999999999999);
5852     v2 = ((13.167 - y[5] * .6667) * y[5] + 112.) * .01;
5853     y2c = l2_2.x[0] * v2;
5854     dy2c[0] = v2 + v1 * dy[5];
5855     dy2c[1] = v1 * dy[13];
5856     dy2c[2] = v1 * dy[21];
5857     if ((d__1 = y2c - y[1], std::abs(d__1)) - .001 <= 0.) {
5858     goto L102;
5859     } else {
5860     goto L101;
5861     }
5862 L101:
5863     for (i__ = 1; i__ <= 3; ++i__) {
5864 /* L103: */
5865     dy[(i__ << 3) - 7] = dy2c[i__ - 1];
5866     }
5867     y[1] = y2c;
5868     goto L100;
5869 L102:
5870     y[3] = 93.;
5871     for (i__ = 1; i__ <= 3; ++i__) {
5872 /* L104: */
5873     dy[(i__ << 3) - 5] = 0.;
5874     }
5875 L105:
5876 /* Computing 2nd power */
5877     d__1 = y[5];
5878     y[4] = y[5] * 1.098 + 86.35 - d__1 * d__1 * .038 + (y[3] - 89.) * .325;
5879     y[7] = y[4] * 3. - 133.;
5880     y[6] = 35.82 - y[7] * .222;
5881     for (i__ = 1; i__ <= 3; ++i__) {
5882     dy[(i__ << 3) - 4] = dy[(i__ << 3) - 3] * 1.098 - y[5] * .076 * dy[(
5883         i__ << 3) - 3] + dy[(i__ << 3) - 5] * .325;
5884     dy[(i__ << 3) - 1] = dy[(i__ << 3) - 4] * 3.;
5885 /* L106: */
5886     dy[(i__ << 3) - 2] = dy[(i__ << 3) - 1] * -.222;
5887     }
5888     v3 = 1. / (y[1] * y[6] + l2_2.x[2] * 1e3);
5889     y4c = l2_2.x[2] * 9.8e4 * v3;
5890     for (i__ = 1; i__ <= 2; ++i__) {
5891 /* L107: */
5892 /* Computing 2nd power */
5893     d__1 = y[1] * y[6] + l2_2.x[2] * 1e3;
5894     dy4c[i__ - 1] = l2_2.x[2] * -9.8e4 * (y[1] * dy[(i__ << 3) - 2] + y[6]
5895          * dy[(i__ << 3) - 7]) / (d__1 * d__1);
5896     }
5897 /* Computing 2nd power */
5898     d__1 = v3;
5899     dy4c[2] = (y[1] * y[6] - l2_2.x[2] * (y[1] * dy[22] + y[6] * dy[17])) *
5900         9.8e4 * (d__1 * d__1);
5901     if ((d__1 = y4c - y[3], std::abs(d__1)) - 1e-4 <= 0.) {
5902     goto L109;
5903     } else {
5904     goto L108;
5905     }
5906 L108:
5907     y[3] = y4c;
5908     for (i__ = 1; i__ <= 3; ++i__) {
5909 /* L110: */
5910     dy[(i__ << 3) - 5] = dy4c[i__ - 1];
5911     }
5912     goto L105;
5913 L109:
5914     switch ((int)*mode) {
5915     case 1:  goto labelL1;
5916     case 2:  goto labelL2;
5917     case 3:  goto labelL3;
5918     case 4:  goto labelL4;
5919     case 5:  goto labelL5;
5920     }
5921 labelL2:
5922     l6_1.fx = -(y[1] * .063 * y[4] - l2_2.x[0] * 5.04 - y[2] * 3.36 - l2_2.x[
5923         1] * .035 - l2_2.x[2] * 10.);
5924     return 0;
5925 labelL3:
5926     for (i__ = 1; i__ <= 3; ++i__) {
5927 /* L120: */
5928     a[i__ - 1] = (dy[(i__ << 3) - 7] * y[4] + dy[(i__ << 3) - 4] * y[1]) *
5929          -.063 + dy[(i__ << 3) - 6] * 3.36;
5930     }
5931     l4_2.gf[0] = a[0] + 5.04;
5932     l4_2.gf[1] = a[1] + .035;
5933     l4_2.gf[2] = a[2] + 10.;
5934     return 0;
5935 labelL4:
5936     if (l9_8.index1[0]) {
5937     l3_7.g[0] = y[1];
5938     }
5939     if (l9_8.index1[1]) {
5940     l3_7.g[1] = y[2];
5941     }
5942     if (l9_8.index1[2]) {
5943     l3_7.g[2] = y[3] - 85.;
5944     }
5945     if (l9_8.index1[3]) {
5946     l3_7.g[3] = y[4] - 90.;
5947     }
5948     if (l9_8.index1[4]) {
5949     l3_7.g[4] = y[5] - 3.;
5950     }
5951     if (l9_8.index1[5]) {
5952     l3_7.g[5] = y[6] - .01;
5953     }
5954     if (l9_8.index1[6]) {
5955     l3_7.g[6] = y[7] - 145.;
5956     }
5957     if (l9_8.index1[7]) {
5958     l3_7.g[7] = 5e3 - y[1];
5959     }
5960     if (l9_8.index1[8]) {
5961     l3_7.g[8] = 2e3 - y[2];
5962     }
5963     if (l9_8.index1[9]) {
5964     l3_7.g[9] = 93. - y[3];
5965     }
5966     if (l9_8.index1[10]) {
5967     l3_7.g[10] = 95. - y[4];
5968     }
5969     if (l9_8.index1[11]) {
5970     l3_7.g[11] = 12. - y[5];
5971     }
5972     if (l9_8.index1[12]) {
5973     l3_7.g[12] = 4. - y[6];
5974     }
5975     if (l9_8.index1[13]) {
5976     l3_7.g[13] = 162. - y[7];
5977     }
5978     return 0;
5979 labelL5:
5980     for (j = 1; j <= 7; ++j) {
5981     if (! l10_8.index2[j - 1]) {
5982         goto L131;
5983     }
5984     for (i__ = 1; i__ <= 3; ++i__) {
5985 /* L130: */
5986         l5_12.gg[j + i__ * 14 - 15] = dy[j + 1 + (i__ << 3) - 9];
5987     }
5988 L131:
5989     if (! l10_8.index2[j + 6]) {
5990         goto L133;
5991     }
5992     for (i__ = 1; i__ <= 3; ++i__) {
5993 /* L132: */
5994         l5_12.gg[j + 7 + i__ * 14 - 15] = -dy[j + 1 + (i__ << 3) - 9];
5995     }
5996 L133:
5997     ;
5998     }
5999     return 0;
6000 } /* tp67_ */
6001 
6002 
tp68_0_(int n__,int * mode)6003 /* Subroutine */ int tp68_0_(int n__, int  *mode)
6004 {
6005     /* System generated locals */
6006     Real d__1, d__2;
6007 
6008     /* Local variables */
6009     static Real a[2], b[2], d__[2];
6010     static int i__;
6011     static Real z__[2], h1, h2, h3, v1, v2, v3, v4, v5;
6012     int mdnord_(Real*, Real*);
6013     static int kn1;
6014 
6015     switch(n__) {
6016     case 1: goto L_tp69;
6017     }
6018 
6019     kn1 = 1;
6020     l20_6.xex[0] = .0678587452312;
6021     l20_6.xex[1] = 3.64617174165;
6022     l20_6.xex[2] = 2.66175189694e-4;
6023     l20_6.xex[3] = .894862212037;
6024     l20_6.fex = -.920425020704;
6025     goto labelL9;
6026 
6027 L_tp69:
6028     kn1 = 2;
6029     l20_6.xex[0] = .029371418083;
6030     l20_6.xex[1] = 1.19025343488;
6031     l20_6.xex[2] = .233946796758;
6032     l20_6.xex[3] = .791667815694;
6033     l20_6.fex = -956.712887064;
6034 labelL9:
6035     switch ((int)*mode) {
6036     case 1:  goto labelL1;
6037     case 2:  goto labelL2;
6038     case 3:  goto labelL3;
6039     case 4:  goto labelL4;
6040     case 5:  goto labelL5;
6041     }
6042 labelL1:
6043     l1_1.n = 4;
6044     l1_1.nili = 0;
6045     l1_1.ninl = 0;
6046     l1_1.neli = 0;
6047     l1_1.nenl = 2;
6048     for (i__ = 1; i__ <= 2; ++i__) {
6049     l2_3.x[i__ - 1] = 1.;
6050     l2_3.x[i__ + 1] = 1.;
6051     l11_3.lxl[i__ - 1] = true;
6052     l11_3.lxl[i__ + 1] = true;
6053     l12_3.lxu[i__ - 1] = true;
6054     l12_3.lxu[i__ + 1] = true;
6055     l13_3.xl[i__ + 1] = 0.;
6056     l14_3.xu[i__ - 1] = 100.;
6057 /* labelL6: */
6058     l14_3.xu[i__ + 1] = 2.;
6059     }
6060     l13_3.xl[0] = 1e-4;
6061     l13_3.xl[1] = 0.;
6062     a[0] = 1e-4;
6063     a[1] = .1;
6064     b[0] = 1.;
6065     b[1] = 1e3;
6066     d__[0] = 1.;
6067     d__[1] = 1.;
6068     z__[0] = 24.;
6069     z__[1] = 4.;
6070     l5_6.gg[0] = 0.;
6071     l5_6.gg[6] = 0.;
6072     l5_6.gg[4] = 1.;
6073     l5_6.gg[1] = 0.;
6074     l5_6.gg[5] = 0.;
6075     l5_6.gg[7] = 1.;
6076     l4_3.gf[1] = 0.;
6077     l20_6.lex = false;
6078     return 0;
6079 labelL2:
6080     v1 = std::exp(l2_3.x[0]) - 1.;
6081     l6_1.fx = (a[kn1 - 1] * z__[kn1 - 1] - l2_3.x[3] * (b[kn1 - 1] * v1 -
6082         l2_3.x[2]) / (v1 + l2_3.x[3])) / l2_3.x[0];
6083     return 0;
6084 labelL3:
6085     v1 = std::exp(l2_3.x[0]);
6086     v2 = v1 - 1.;
6087     v3 = 1. / (v2 + l2_3.x[3]);
6088     v4 = 1. / l2_3.x[0];
6089     v5 = (b[kn1 - 1] * v2 - l2_3.x[2]) * v4;
6090     l4_3.gf[0] = -((v1 * (l2_3.x[3] * b[kn1 - 1] + l2_3.x[2]) * v3 - v5) *
6091         l2_3.x[3] * v3 + a[kn1 - 1] * z__[kn1 - 1] * v4) * v4;
6092     l4_3.gf[2] = l2_3.x[3] * v4 * v3;
6093 /* Computing 2nd power */
6094     d__1 = v3;
6095     l4_3.gf[3] = -v5 * v2 * (d__1 * d__1);
6096     return 0;
6097 labelL4:
6098     if (! l9_3.index1[0]) {
6099     goto L30;
6100     }
6101     d__1 = -l2_3.x[1];
6102     mdnord_(&d__1, &h1);
6103     l3_2.g[0] = l2_3.x[2] - h1 * 2.;
6104 L30:
6105     if (! l9_3.index1[1]) {
6106     return 0;
6107     }
6108     d__1 = -l2_3.x[1] + std::sqrt(z__[kn1 - 1]);
6109     mdnord_(&d__1, &h1);
6110     d__1 = -l2_3.x[1] - std::sqrt(z__[kn1 - 1]);
6111     mdnord_(&d__1, &h2);
6112     l3_2.g[1] = l2_3.x[3] - h1 - h2;
6113     return 0;
6114 labelL5:
6115     if (! l10_3.index2[0]) {
6116     goto L7;
6117     }
6118 /* Computing 2nd power */
6119     d__1 = l2_3.x[1];
6120     l5_6.gg[2] = std::exp(d__1 * d__1 * -.5) * 2. / std::sqrt(std::atan(1.) * 8.);
6121 L7:
6122     if (! l10_3.index2[1]) {
6123     goto L8;
6124     }
6125     h1 = -l2_3.x[1] - d__[kn1 - 1] * std::sqrt(z__[kn1 - 1]);
6126     h2 = -l2_3.x[1] + d__[kn1 - 1] * std::sqrt(z__[kn1 - 1]);
6127     h3 = 1. / std::sqrt(std::atan(1.) * 8.);
6128 /* Computing 2nd power */
6129     d__1 = h1;
6130 /* Computing 2nd power */
6131     d__2 = h2;
6132     l5_6.gg[3] = (std::exp(d__1 * d__1 * -.5) + std::exp(d__2 * d__2 * -.5)) * h3;
6133 L8:
6134     return 0;
6135 } /* tp68_ */
6136 
tp68_(int * mode)6137 /* Subroutine */ int tp68_(int *mode)
6138 {
6139     return tp68_0_(0, mode);
6140     }
6141 
tp69_(int * mode)6142 /* Subroutine */ int tp69_(int *mode)
6143 {
6144     return tp68_0_(1, mode);
6145     }
6146 
6147 
tp70_(int * mode)6148 /* Subroutine */ int tp70_(int *mode)
6149 {
6150     /* System generated locals */
6151     int i__1;
6152     Real d__1;
6153 
6154     /* Local variables */
6155     static Real b, c__[19], f[19];
6156     static int i__, j;
6157     static Real s, t, h1, h2, h3, h4, h5, h6, h7, h8, h9, u1[19], u2[19]
6158         , v3[19], v4[19], z1, z2, v8[19], v9[19], z5, z6, z7, h10, df[76]
6159         /* was [19][4] */, h30, h40, h11, h12, h13, h14, h15, h16, h17,
6160         h18, v10, v11, v12, h19, h20, yc[19], h21, h22, h23, yo[19];
6161     static bool log__;
6162     static Real sum;
6163 
6164     log__ = false;
6165     if (*mode - 2 >= 0) {
6166     goto L17;
6167     } else {
6168     goto labelL1;
6169     }
6170 labelL1:
6171     l1_1.n = 4;
6172     l1_1.nili = 0;
6173     l1_1.ninl = 1;
6174     l1_1.neli = 0;
6175     l1_1.nenl = 0;
6176     l2_3.x[0] = 2.;
6177     l2_3.x[1] = 4.;
6178     l2_3.x[2] = .04;
6179     l2_3.x[3] = 2.;
6180     for (i__ = 1; i__ <= 4; ++i__) {
6181     l12_3.lxu[i__ - 1] = true;
6182     l11_3.lxl[i__ - 1] = true;
6183     l13_3.xl[i__ - 1] = 1e-5;
6184 /* labelL6: */
6185     l14_3.xu[i__ - 1] = 100.;
6186     }
6187     l14_3.xu[2] = 1.;
6188     l5_2.gg[0] = 0.;
6189     l5_2.gg[1] = 0.;
6190     l20_6.xex[0] = 12.2769537557;
6191     l20_6.xex[1] = 4.63178796886;
6192     l20_6.xex[2] = .312862470961;
6193     l20_6.xex[3] = 2.0292903157;
6194     l20_6.fex = .00749846356143;
6195     l20_6.lex = false;
6196     return 0;
6197 L17:
6198     c__[0] = .1;
6199     for (i__ = 2; i__ <= 19; ++i__) {
6200 /* labelL20: */
6201     c__[i__ - 1] = (Real) (i__ - 1);
6202     }
6203     yo[0] = .00189;
6204     yo[1] = .1038;
6205     yo[2] = .268;
6206     yo[3] = .506;
6207     yo[4] = .577;
6208     yo[5] = .604;
6209     yo[6] = .725;
6210     yo[7] = .898;
6211     yo[8] = .947;
6212     yo[9] = .845;
6213     yo[10] = .702;
6214     yo[11] = .528;
6215     yo[12] = .385;
6216     yo[13] = .257;
6217     yo[14] = .159;
6218     yo[15] = .0869;
6219     yo[16] = .0453;
6220     yo[17] = .01509;
6221     yo[18] = .00189;
6222     if ((i__1 = *mode - 4) < 0) {
6223     goto L18;
6224     } else if (i__1 == 0) {
6225     goto labelL4;
6226     } else {
6227     goto labelL5;
6228     }
6229 L18:
6230     b = l2_3.x[2] + (1. - l2_3.x[2]) * l2_3.x[3];
6231     h1 = l2_3.x[0] - 1.;
6232     h2 = l2_3.x[1] - 1.;
6233     h3 = .13058239749281797;
6234     h5 = b * h3;
6235     h4 = h5 / l2_3.x[3];
6236     h6 = l2_3.x[0] * 12. / (l2_3.x[0] * 12. + 1.);
6237     h7 = l2_3.x[1] * 12. / (l2_3.x[1] * 12. + 1.);
6238     h30 = 0.;
6239     h40 = 0.;
6240     v10 = l2_3.x[1] / 6.2832;
6241     v11 = b / l2_3.x[3];
6242     v12 = l2_3.x[0] / 6.2832;
6243     if (b < 0. || v10 < 0. || v11 < 0. || v12 < 0.) {
6244     log__ = true;
6245     }
6246     if (log__ && *mode == 2) {
6247     goto L8;
6248     }
6249     if (log__ && *mode == 3) {
6250     goto labelL9;
6251     }
6252     z1 = l2_3.x[2] * pow_dd(&b, &l2_3.x[1]);
6253     z2 = pow_dd(&v10, &c_b590);
6254     z5 = 1. - l2_3.x[2];
6255     z6 = pow_dd(&v11, l2_3.x);
6256     z7 = pow_dd(&v12, &c_b590);
6257     for (i__ = 1; i__ <= 19; ++i__) {
6258     d__1 = c__[i__ - 1] * h3;
6259     v3[i__ - 1] = pow_dd(&d__1, &h2);
6260     v4[i__ - 1] = std::exp(l2_3.x[1] * (1. - c__[i__ - 1] * h5));
6261     d__1 = c__[i__ - 1] * h3;
6262     v8[i__ - 1] = pow_dd(&d__1, &h1);
6263     v9[i__ - 1] = std::exp(l2_3.x[0] * (1. - c__[i__ - 1] * h4));
6264     u1[i__ - 1] = z1 * z2 * v3[i__ - 1] * v4[i__ - 1] * h7;
6265     u2[i__ - 1] = z5 * z6 * z7 * v8[i__ - 1] * v9[i__ - 1] * h6;
6266     yc[i__ - 1] = u1[i__ - 1] + u2[i__ - 1];
6267 /* L30: */
6268     f[i__ - 1] = yc[i__ - 1] - yo[i__ - 1];
6269     }
6270     switch ((int)*mode) {
6271     case 1:  goto labelL1;
6272     case 2:  goto labelL2;
6273     case 3:  goto labelL3;
6274     }
6275 labelL2:
6276     t = 0.;
6277     for (i__ = 1; i__ <= 19; ++i__) {
6278 /* L31: */
6279 /* Computing 2nd power */
6280     d__1 = f[i__ - 1];
6281     t += d__1 * d__1;
6282     }
6283     l6_1.fx = t;
6284     return 0;
6285 labelL3:
6286     h8 = l2_3.x[3] - 1.;
6287     h9 = l2_3.x[2] - 1.;
6288     h10 = 1. / b;
6289     h11 = 1. / l2_3.x[3];
6290     h12 = (1. / (l2_3.x[0] * 12. + 1.) + .5) / l2_3.x[0] + 1.;
6291     h13 = (1. / (l2_3.x[1] * 12. + 1.) + .5) / l2_3.x[1] + 1.;
6292     h16 = l2_3.x[1] * h8;
6293     h17 = l2_3.x[0] * h8;
6294     h18 = 1. / l2_3.x[2] - h16 * h10;
6295     h19 = 1. / h9 - h17 * h10;
6296     h16 *= h3;
6297     h17 = h17 * h11 * h3;
6298     h20 = l2_3.x[1] * h9;
6299 /* Computing 2nd power */
6300     d__1 = h11;
6301     h21 = l2_3.x[0] * l2_3.x[2] * (d__1 * d__1);
6302     h22 = h20 * h3;
6303     h23 = h21 * h3;
6304     h20 *= h10;
6305     h21 = h21 * h10 * l2_3.x[3];
6306     for (j = 1; j <= 19; ++j) {
6307     h14 = h4 * c__[j - 1];
6308     h15 = h5 * c__[j - 1];
6309     if (h14 > 0.) {
6310         goto labelL10;
6311     }
6312     l4_3.gf[0] = (l2_3.x[0] - 5.) * 2.;
6313     h30 = 1.;
6314     goto labelL11;
6315 labelL10:
6316     df[j - 1] = u2[j - 1] * (h12 - h14 + std::log(h14));
6317 labelL11:
6318     if (h15 > 0.) {
6319         goto labelL12;
6320     }
6321     l4_3.gf[1] = (l2_3.x[1] - 5.) * 2.;
6322     h40 = 1.;
6323     goto labelL13;
6324 labelL12:
6325     df[j + 18] = u1[j - 1] * (h13 - h15 + std::log(h15));
6326 labelL13:
6327     df[j + 37] = u1[j - 1] * (h18 + c__[j - 1] * h16) + u2[j - 1] * (h19
6328         + c__[j - 1] * h17);
6329 /* L33: */
6330     df[j + 56] = u1[j - 1] * (h22 * c__[j - 1] - h20) + u2[j - 1] * (h23 *
6331          c__[j - 1] - h21);
6332     }
6333     if (h30 == 1. || h40 == 1.) {
6334     goto labelL14;
6335     }
6336     for (i__ = 1; i__ <= 4; ++i__) {
6337     s = 0.;
6338     for (j = 1; j <= 19; ++j) {
6339         s += f[j - 1] * 2. * df[j + i__ * 19 - 20];
6340 /* L36: */
6341     }
6342     l4_3.gf[i__ - 1] = s;
6343 /* L37: */
6344     }
6345     return 0;
6346 labelL14:
6347     for (i__ = 1; i__ <= 4; ++i__) {
6348     if (i__ == 1 && h30 == 1.) {
6349         goto L38;
6350     }
6351     if (i__ == 2 && h40 == (float).1) {
6352         goto L38;
6353     }
6354     s = 0.;
6355     for (j = 1; j <= 19; ++j) {
6356 /* L39: */
6357         s += f[j - 1] * 2. * df[j + i__ * 19 - 20];
6358     }
6359     l4_3.gf[i__ - 1] = s;
6360 L38:
6361     ;
6362     }
6363     h30 = 0.;
6364     h40 = 0.;
6365     return 0;
6366 L8:
6367     log__ = false;
6368     sum = 0.;
6369     for (i__ = 1; i__ <= 4; ++i__) {
6370 /* L40: */
6371 /* Computing 2nd power */
6372     d__1 = l2_3.x[i__ - 1] - 5.;
6373     sum += d__1 * d__1;
6374     }
6375     l6_1.fx = sum + 1e3 + .0075;
6376     return 0;
6377 labelL9:
6378     log__ = false;
6379     for (i__ = 1; i__ <= 4; ++i__) {
6380 /* L41: */
6381     l4_3.gf[i__ - 1] = (l2_3.x[i__ - 1] - 5.) * 2.;
6382     }
6383     return 0;
6384 labelL4:
6385     if (l9_2.index1[0]) {
6386     l3_1.g[0] = l2_3.x[2] + (1. - l2_3.x[2]) * l2_3.x[3];
6387     }
6388     return 0;
6389 labelL5:
6390     if (! l10_2.index2[0]) {
6391     goto L7;
6392     }
6393     l5_2.gg[2] = 1. - l2_3.x[3];
6394     l5_2.gg[3] = -l2_3.x[2] + 1.;
6395 L7:
6396     return 0;
6397 } /* tp70_ */
6398 
6399 
tp71_(int * mode)6400 /* Subroutine */ int tp71_(int *mode)
6401 {
6402     /* System generated locals */
6403     Real d__1, d__2, d__3, d__4;
6404 
6405     /* Local variables */
6406     static int i__;
6407 
6408     switch ((int)*mode) {
6409     case 1:  goto labelL1;
6410     case 2:  goto labelL2;
6411     case 3:  goto labelL3;
6412     case 4:  goto labelL4;
6413     case 5:  goto labelL5;
6414     }
6415 labelL1:
6416     l1_1.n = 4;
6417     l1_1.nili = 0;
6418     l1_1.ninl = 1;
6419     l1_1.neli = 0;
6420     l1_1.nenl = 1;
6421     for (i__ = 1; i__ <= 4; ++i__) {
6422     l11_3.lxl[i__ - 1] = true;
6423     l12_3.lxu[i__ - 1] = true;
6424     l13_3.xl[i__ - 1] = 1.;
6425 /* labelL6: */
6426     l14_3.xu[i__ - 1] = 5.;
6427     }
6428     l2_3.x[0] = 1.;
6429     l2_3.x[1] = 5.;
6430     l2_3.x[2] = 5.;
6431     l2_3.x[3] = 1.;
6432     l20_6.xex[0] = 1.;
6433     l20_6.xex[1] = 4.74299937545;
6434     l20_6.xex[2] = 3.82115032617;
6435     l20_6.xex[3] = 1.37940824585;
6436     l20_6.fex = 17.0140172895;
6437     l20_6.lex = false;
6438     return 0;
6439 labelL2:
6440     l6_1.fx = l2_3.x[0] * l2_3.x[3] * (l2_3.x[0] + l2_3.x[1] + l2_3.x[2]) +
6441         l2_3.x[2];
6442     return 0;
6443 labelL3:
6444     l4_3.gf[0] = l2_3.x[3] * (l2_3.x[0] * 2. + l2_3.x[1] + l2_3.x[2]);
6445     l4_3.gf[1] = l2_3.x[0] * l2_3.x[3];
6446     l4_3.gf[2] = l4_3.gf[1] + 1.;
6447     l4_3.gf[3] = l2_3.x[0] * (l2_3.x[0] + l2_3.x[1] + l2_3.x[2]);
6448     return 0;
6449 labelL4:
6450     if (l9_3.index1[0]) {
6451     l3_2.g[0] = (l2_3.x[0] * l2_3.x[1] * l2_3.x[2] * l2_3.x[3] - 25.) /
6452         25.;
6453     }
6454     if (l9_3.index1[1]) {
6455 /* Computing 2nd power */
6456     d__1 = l2_3.x[0];
6457 /* Computing 2nd power */
6458     d__2 = l2_3.x[1];
6459 /* Computing 2nd power */
6460     d__3 = l2_3.x[2];
6461 /* Computing 2nd power */
6462     d__4 = l2_3.x[3];
6463     l3_2.g[1] = (d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4 -
6464         40.) / 40.;
6465     }
6466     return 0;
6467 labelL5:
6468     if (! l10_3.index2[0]) {
6469     goto L7;
6470     }
6471     l5_6.gg[0] = l2_3.x[1] * l2_3.x[2] * l2_3.x[3] / 25.;
6472     l5_6.gg[2] = l2_3.x[0] * l2_3.x[2] * l2_3.x[3] / 25.;
6473     l5_6.gg[4] = l2_3.x[0] * l2_3.x[1] * l2_3.x[3] / 25.;
6474     l5_6.gg[6] = l2_3.x[0] * l2_3.x[1] * l2_3.x[2] / 25.;
6475 L7:
6476     if (! l10_3.index2[1]) {
6477     goto L8;
6478     }
6479     for (i__ = 1; i__ <= 4; ++i__) {
6480 /* labelL20: */
6481     l5_6.gg[(i__ << 1) - 1] = l2_3.x[i__ - 1] * 2. / 40.;
6482     }
6483 L8:
6484     return 0;
6485 } /* tp71_ */
6486 
6487 
tp72_(int * mode)6488 /* Subroutine */ int tp72_(int *mode)
6489 {
6490     /* System generated locals */
6491     Real d__1;
6492 
6493     /* Local variables */
6494     static int i__;
6495 
6496     switch ((int)*mode) {
6497     case 1:  goto labelL1;
6498     case 2:  goto labelL2;
6499     case 3:  goto labelL3;
6500     case 4:  goto labelL4;
6501     case 5:  goto labelL5;
6502     }
6503 labelL1:
6504     l1_1.n = 4;
6505     l1_1.nili = 0;
6506     l1_1.ninl = 2;
6507     l1_1.neli = 0;
6508     l1_1.nenl = 0;
6509     for (i__ = 1; i__ <= 4; ++i__) {
6510     l2_3.x[i__ - 1] = 1.;
6511     l13_3.xl[i__ - 1] = .001;
6512     l14_3.xu[i__ - 1] = (5. - (Real) i__) * 1e5;
6513     l11_3.lxl[i__ - 1] = true;
6514 /* labelL6: */
6515     l12_3.lxu[i__ - 1] = true;
6516     }
6517     for (i__ = 1; i__ <= 4; ++i__) {
6518 /* L30: */
6519     l4_3.gf[i__ - 1] = 1.;
6520     }
6521     l20_6.lex = false;
6522     l20_6.xex[0] = 193.407050141;
6523     l20_6.xex[1] = 179.547504555;
6524     l20_6.xex[2] = 185.018587841;
6525     l20_6.xex[3] = 168.706233485;
6526     l20_6.fex = 727.679376021;
6527     return 0;
6528 labelL2:
6529     l6_1.fx = l2_3.x[0] + 1. + l2_3.x[1] + l2_3.x[2] + l2_3.x[3];
6530 labelL3:
6531     return 0;
6532 labelL4:
6533     if (l9_3.index1[0]) {
6534     l3_2.g[0] = -4. / l2_3.x[0] - 2.25 / l2_3.x[1] - 1. / l2_3.x[2] - .25
6535         / l2_3.x[3] + .0401;
6536     }
6537     if (l9_3.index1[1]) {
6538     l3_2.g[1] = -.16 / l2_3.x[0] - .36 / l2_3.x[1] - (1. / l2_3.x[2] + 1.
6539         / l2_3.x[3]) * .64 + .010085;
6540     }
6541     return 0;
6542 labelL5:
6543     if (! l10_3.index2[0]) {
6544     goto L7;
6545     }
6546 /* Computing 2nd power */
6547     d__1 = l2_3.x[0];
6548     l5_6.gg[0] = 4. / (d__1 * d__1);
6549 /* Computing 2nd power */
6550     d__1 = l2_3.x[1];
6551     l5_6.gg[2] = 2.25 / (d__1 * d__1);
6552 /* Computing 2nd power */
6553     d__1 = l2_3.x[2];
6554     l5_6.gg[4] = 1. / (d__1 * d__1);
6555 /* Computing 2nd power */
6556     d__1 = l2_3.x[3];
6557     l5_6.gg[6] = .25 / (d__1 * d__1);
6558 L7:
6559     if (! l10_3.index2[1]) {
6560     goto L8;
6561     }
6562 /* Computing 2nd power */
6563     d__1 = l2_3.x[0];
6564     l5_6.gg[1] = .16 / (d__1 * d__1);
6565 /* Computing 2nd power */
6566     d__1 = l2_3.x[1];
6567     l5_6.gg[3] = .36 / (d__1 * d__1);
6568 /* Computing 2nd power */
6569     d__1 = l2_3.x[2];
6570     l5_6.gg[5] = .64 / (d__1 * d__1);
6571 /* Computing 2nd power */
6572     d__1 = l2_3.x[3];
6573     l5_6.gg[7] = .64 / (d__1 * d__1);
6574 L8:
6575     return 0;
6576 } /* tp72_ */
6577 
6578 
tp73_(int * mode)6579 /* Subroutine */ int tp73_(int *mode)
6580 {
6581     /* System generated locals */
6582     Real d__1, d__2, d__3, d__4, d__5;
6583 
6584 
6585     /* Local variables */
6586     static Real a[4];
6587     static int i__;
6588 
6589     switch ((int)*mode) {
6590     case 1:  goto labelL1;
6591     case 2:  goto labelL2;
6592     case 3:  goto labelL3;
6593     case 4:  goto labelL4;
6594     case 5:  goto labelL5;
6595     }
6596 labelL1:
6597     l1_1.n = 4;
6598     l1_1.nili = 1;
6599     l1_1.ninl = 1;
6600     l1_1.neli = 1;
6601     l1_1.nenl = 0;
6602     for (i__ = 1; i__ <= 4; ++i__) {
6603     l2_3.x[i__ - 1] = 1.;
6604     l13_3.xl[i__ - 1] = 0.;
6605     l11_3.lxl[i__ - 1] = true;
6606 /* labelL6: */
6607     l12_3.lxu[i__ - 1] = false;
6608     }
6609     l4_3.gf[0] = 24.55;
6610     l4_3.gf[1] = 26.75;
6611     l4_3.gf[2] = 39.;
6612     l4_3.gf[3] = 40.5;
6613     l5_7.gg[0] = 2.3;
6614     l5_7.gg[3] = 5.6;
6615     l5_7.gg[6] = 11.1;
6616     l5_7.gg[9] = 1.3;
6617     for (i__ = 1; i__ <= 4; ++i__) {
6618 /* L31: */
6619     l5_7.gg[i__ * 3 - 1] = 1.;
6620     }
6621     l20_6.lex = false;
6622     l20_6.xex[0] = .635521568605;
6623     l20_6.xex[1] = -1.1786227376e-12;
6624     l20_6.xex[2] = .312701880754;
6625     l20_6.xex[3] = .0517765506011;
6626     l20_6.fex = 29.8943781573;
6627     return 0;
6628 labelL2:
6629     l6_1.fx = l2_3.x[0] * 24.55 + l2_3.x[1] * 26.75 + l2_3.x[2] * 39. +
6630         l2_3.x[3] * 40.5;
6631 labelL3:
6632     return 0;
6633 labelL4:
6634     if (l9_4.index1[0]) {
6635     l3_3.g[0] = l2_3.x[0] * 2.3 + l2_3.x[1] * 5.6 + l2_3.x[2] * 11.1 +
6636         l2_3.x[3] * 1.3 - 5.;
6637     }
6638     if (l9_4.index1[1]) {
6639 /* Computing 2nd power */
6640     d__2 = l2_3.x[0];
6641 /* Computing 2nd power */
6642     d__3 = l2_3.x[1];
6643 /* Computing 2nd power */
6644     d__4 = l2_3.x[2];
6645 /* Computing 2nd power */
6646     d__5 = l2_3.x[3];
6647     d__1 = d__2 * d__2 * .28 + d__3 * d__3 * .19 + d__4 * d__4 * 20.5 +
6648         d__5 * d__5 * .62;
6649     l3_3.g[1] = l2_3.x[0] * 12. + l2_3.x[1] * 11.9 + l2_3.x[2] * 41.8 +
6650         l2_3.x[3] * 52.1 - pow_dd(&d__1, &c_b590) * 1.645 - 21.;
6651     }
6652     if (l9_4.index1[2]) {
6653     l3_3.g[2] = l2_3.x[0] + l2_3.x[1] + l2_3.x[2] + l2_3.x[3] - 1.;
6654     }
6655     return 0;
6656 labelL5:
6657     if (! l10_4.index2[1]) {
6658     goto L8;
6659     }
6660     for (i__ = 1; i__ <= 4; ++i__) {
6661 /* L30: */
6662 /* Computing 2nd power */
6663     d__2 = l2_3.x[0];
6664 /* Computing 2nd power */
6665     d__3 = l2_3.x[1];
6666 /* Computing 2nd power */
6667     d__4 = l2_3.x[2];
6668 /* Computing 2nd power */
6669     d__5 = l2_3.x[3];
6670     d__1 = d__2 * d__2 * .28 + d__3 * d__3 * .19 + d__4 * d__4 * 20.5 +
6671         d__5 * d__5 * .62;
6672     a[i__ - 1] = l2_3.x[i__ - 1] * 1.645 * pow_dd(&d__1, &c_b308);
6673     }
6674     l5_7.gg[1] = 12. - a[0] * .28;
6675     l5_7.gg[4] = 11.9 - a[1] * .19;
6676     l5_7.gg[7] = 41.8 - a[2] * 20.5;
6677     l5_7.gg[10] = 52.1 - a[3] * .62;
6678 L8:
6679     return 0;
6680 } /* tp73_ */
6681 
6682 
tp74_0_(int n__,int * mode)6683 /* Subroutine */ int tp74_0_(int n__, int *mode)
6684 {
6685     /* System generated locals */
6686     Real d__1, d__2;
6687 
6688     /* Local variables */
6689     static Real a[2];
6690     static int i__;
6691     static Real v1, v2;
6692     static int kn1;
6693 
6694     switch(n__) {
6695     case 1: goto L_tp75;
6696     }
6697 
6698     l20_6.xex[0] = 679.945319802;
6699     l20_6.xex[1] = 1026.06713256;
6700     l20_6.xex[2] = .11887636449;
6701     l20_6.xex[3] = -.39623355318;
6702     l20_6.fex = 5126.49810934;
6703     kn1 = 1;
6704     goto L7;
6705 
6706 L_tp75:
6707     kn1 = 2;
6708     l20_6.xex[0] = 776.159220293;
6709     l20_6.xex[1] = 925.194939196;
6710     l20_6.xex[2] = .0511087936804;
6711     l20_6.xex[3] = -.428891137432;
6712     l20_6.fex = 5174.41288686;
6713 L7:
6714     switch ((int)*mode) {
6715     case 1:  goto labelL1;
6716     case 2:  goto labelL2;
6717     case 3:  goto labelL3;
6718     case 4:  goto labelL4;
6719     case 5:  goto labelL5;
6720     }
6721 labelL1:
6722     l1_1.n = 4;
6723     l1_1.nili = 2;
6724     l1_1.ninl = 0;
6725     l1_1.neli = 0;
6726     l1_1.nenl = 3;
6727     a[0] = .55;
6728     a[1] = .48;
6729     for (i__ = 1; i__ <= 4; ++i__) {
6730     l2_3.x[i__ - 1] = 0.;
6731     l11_3.lxl[i__ - 1] = true;
6732 /* labelL6: */
6733     l12_3.lxu[i__ - 1] = true;
6734     }
6735     l13_3.xl[0] = 0.;
6736     l13_3.xl[1] = 0.;
6737     l13_3.xl[2] = -a[kn1 - 1];
6738     l13_3.xl[3] = -a[kn1 - 1];
6739     l14_3.xu[0] = 1200.;
6740     l14_3.xu[1] = 1200.;
6741     l14_3.xu[2] = a[kn1 - 1];
6742     l14_3.xu[3] = a[kn1 - 1];
6743     l4_3.gf[2] = 0.;
6744     l4_3.gf[3] = 0.;
6745     l5_13.gg[0] = 0.;
6746     l5_13.gg[5] = 0.;
6747     l5_13.gg[10] = -1.;
6748     l5_13.gg[15] = 1.;
6749     l5_13.gg[1] = 0.;
6750     l5_13.gg[6] = 0.;
6751     l5_13.gg[11] = 1.;
6752     l5_13.gg[16] = -1.;
6753     l5_13.gg[2] = -1.;
6754     l5_13.gg[7] = 0.;
6755     l5_13.gg[3] = 0.;
6756     l5_13.gg[8] = -1.;
6757     l5_13.gg[4] = 0.;
6758     l5_13.gg[9] = 0.;
6759     l20_6.lex = false;
6760     return 0;
6761 labelL2:
6762 /* Computing 3rd power */
6763     d__1 = l2_3.x[0];
6764 /* Computing 3rd power */
6765     d__2 = l2_3.x[1];
6766     l6_1.fx = l2_3.x[0] * 3. + d__1 * (d__1 * d__1) * 1e-6 + l2_3.x[1] * 2. +
6767         d__2 * (d__2 * d__2) * 6.666666666666666e-7;
6768     return 0;
6769 labelL3:
6770 /* Computing 2nd power */
6771     d__1 = l2_3.x[0];
6772     l4_3.gf[0] = d__1 * d__1 * 3e-6 + 3.;
6773 /* Computing 2nd power */
6774     d__1 = l2_3.x[1];
6775     l4_3.gf[1] = d__1 * d__1 * 2e-6 + 2.;
6776     return 0;
6777 labelL4:
6778     if (l9_5.index1[0]) {
6779     l3_4.g[0] = l2_3.x[3] - l2_3.x[2] + a[kn1 - 1];
6780     }
6781     if (l9_5.index1[1]) {
6782     l3_4.g[1] = l2_3.x[2] - l2_3.x[3] + a[kn1 - 1];
6783     }
6784     if (l9_5.index1[2]) {
6785     l3_4.g[2] = (sin(-l2_3.x[2] - .25) + std::sin(-l2_3.x[3] - .25)) * 1e3 +
6786         894.8 - l2_3.x[0];
6787     }
6788     if (l9_5.index1[3]) {
6789     l3_4.g[3] = (sin(l2_3.x[2] - .25) + std::sin(l2_3.x[2] - l2_3.x[3] - .25))
6790         * 1e3 + 894.8 - l2_3.x[1];
6791     }
6792     if (l9_5.index1[4]) {
6793     l3_4.g[4] = (sin(l2_3.x[3] - .25) + std::sin(l2_3.x[3] - l2_3.x[2] - .25))
6794         * 1e3 + 1294.8;
6795     }
6796     return 0;
6797 labelL5:
6798     if (! l10_5.index2[2]) {
6799     goto labelL9;
6800     }
6801     l5_13.gg[12] = std::cos(-l2_3.x[2] - .25) * -1e3;
6802     l5_13.gg[17] = std::cos(-l2_3.x[3] - .25) * -1e3;
6803 labelL9:
6804     if (! l10_5.index2[3]) {
6805     goto labelL10;
6806     }
6807     v1 = std::cos(l2_3.x[2] - l2_3.x[3] - .25);
6808     l5_13.gg[13] = (std::cos(l2_3.x[2] - .25) + v1) * 1e3;
6809     l5_13.gg[18] = v1 * -1e3;
6810 labelL10:
6811     if (! l10_5.index2[4]) {
6812     goto labelL11;
6813     }
6814     v2 = std::cos(l2_3.x[3] - l2_3.x[2] - .25);
6815     l5_13.gg[14] = v2 * -1e3;
6816     l5_13.gg[19] = (std::cos(l2_3.x[3] - .25) + v2) * 1e3;
6817 labelL11:
6818     return 0;
6819 } /* tp74_ */
6820 
tp74_(int * mode)6821 /* Subroutine */ int tp74_(int *mode)
6822 {
6823     return tp74_0_(0, mode);
6824     }
6825 
tp75_(int * mode)6826 /* Subroutine */ int tp75_(int *mode)
6827 {
6828     return tp74_0_(1, mode);
6829     }
6830 
6831 
tp76_(int * mode)6832 /* Subroutine */ int tp76_(int *mode)
6833 {
6834     /* System generated locals */
6835     Real d__1, d__2, d__3, d__4;
6836 
6837     /* Local variables */
6838     static int i__;
6839 
6840     switch ((int)*mode) {
6841     case 1:  goto labelL1;
6842     case 2:  goto labelL2;
6843     case 3:  goto labelL3;
6844     case 4:  goto labelL4;
6845     case 5:  goto labelL5;
6846     }
6847 labelL1:
6848     l1_1.n = 4;
6849     l1_1.nili = 3;
6850     l1_1.ninl = 0;
6851     l1_1.neli = 0;
6852     l1_1.nenl = 0;
6853     for (i__ = 1; i__ <= 4; ++i__) {
6854     l11_3.lxl[i__ - 1] = true;
6855     l12_3.lxu[i__ - 1] = false;
6856     l2_3.x[i__ - 1] = .5;
6857 /* labelL6: */
6858     l13_3.xl[i__ - 1] = 0.;
6859     }
6860     l5_7.gg[0] = -1.;
6861     l5_7.gg[3] = -2.;
6862     l5_7.gg[6] = -1.;
6863     l5_7.gg[9] = -1.;
6864     l5_7.gg[1] = -3.;
6865     l5_7.gg[4] = -1.;
6866     l5_7.gg[7] = -2.;
6867     l5_7.gg[10] = 1.;
6868     l5_7.gg[2] = 0.;
6869     l5_7.gg[5] = 1.;
6870     l5_7.gg[8] = 4.;
6871     l5_7.gg[11] = 0.;
6872     l20_6.lex = false;
6873     l20_6.xex[0] = .272727272717;
6874     l20_6.xex[1] = 2.09090909094;
6875     l20_6.xex[2] = -2.63371889808e-11;
6876     l20_6.xex[3] = .545454545496;
6877     l20_6.fex = -4.68181818182;
6878     return 0;
6879 labelL2:
6880 /* Computing 2nd power */
6881     d__1 = l2_3.x[0];
6882 /* Computing 2nd power */
6883     d__2 = l2_3.x[2];
6884 /* Computing 2nd power */
6885     d__3 = l2_3.x[1];
6886 /* Computing 2nd power */
6887     d__4 = l2_3.x[3];
6888     l6_1.fx = d__1 * d__1 + d__2 * d__2 + (d__3 * d__3 + d__4 * d__4) * .5 -
6889         l2_3.x[0] * l2_3.x[2] + l2_3.x[2] * l2_3.x[3] - l2_3.x[0] -
6890         l2_3.x[1] * 3. + l2_3.x[2] - l2_3.x[3];
6891     return 0;
6892 labelL3:
6893     l4_3.gf[0] = l2_3.x[0] * 2. - l2_3.x[2] - 1.;
6894     l4_3.gf[1] = l2_3.x[1] - 3.;
6895     l4_3.gf[2] = l2_3.x[2] * 2. - l2_3.x[0] + l2_3.x[3] + 1.;
6896     l4_3.gf[3] = l2_3.x[3] + l2_3.x[2] - 1.;
6897     return 0;
6898 labelL4:
6899     if (l9_4.index1[0]) {
6900     l3_3.g[0] = -l2_3.x[0] - l2_3.x[1] * 2. - l2_3.x[2] - l2_3.x[3] + 5.;
6901     }
6902     if (l9_4.index1[1]) {
6903     l3_3.g[1] = l2_3.x[0] * -3. - l2_3.x[1] - l2_3.x[2] * 2. + l2_3.x[3]
6904         + 4.;
6905     }
6906     if (l9_4.index1[2]) {
6907     l3_3.g[2] = l2_3.x[1] + l2_3.x[2] * 4. - 1.5;
6908     }
6909 labelL5:
6910     return 0;
6911 } /* tp76_ */
6912 
6913 
tp77_(int * mode)6914 /* Subroutine */ int tp77_(int *mode)
6915 {
6916     /* System generated locals */
6917     Real d__1, d__2, d__3, d__4, d__5;
6918 
6919     /* Local variables */
6920     static int i__;
6921     static Real v1;
6922 
6923     switch ((int)*mode) {
6924     case 1:  goto labelL1;
6925     case 2:  goto labelL2;
6926     case 3:  goto labelL3;
6927     case 4:  goto labelL4;
6928     case 5:  goto labelL5;
6929     }
6930 labelL1:
6931     l1_1.n = 5;
6932     l1_1.nili = 0;
6933     l1_1.ninl = 0;
6934     l1_1.neli = 0;
6935     l1_1.nenl = 2;
6936     for (i__ = 1; i__ <= 5; ++i__) {
6937     l2_4.x[i__ - 1] = 2.;
6938     l11_4.lxl[i__ - 1] = false;
6939 /* labelL6: */
6940     l12_4.lxu[i__ - 1] = false;
6941     }
6942     l5_4.gg[2] = 0.;
6943     l5_4.gg[4] = 0.;
6944     l5_4.gg[1] = 0.;
6945     l5_4.gg[3] = 1.;
6946     l5_4.gg[9] = 0.;
6947     l20_7.lex = false;
6948     l20_7.xex[0] = 1.16617219726;
6949     l20_7.xex[1] = 1.18211138813;
6950     l20_7.xex[2] = 1.38025704044;
6951     l20_7.xex[3] = 1.50603627961;
6952     l20_7.xex[4] = .610920257517;
6953     l20_7.fex = .241505128786;
6954     return 0;
6955 labelL2:
6956 /* Computing 2nd power */
6957     d__1 = l2_4.x[0] - 1.;
6958 /* Computing 2nd power */
6959     d__2 = l2_4.x[0] - l2_4.x[1];
6960 /* Computing 2nd power */
6961     d__3 = l2_4.x[2] - 1.;
6962 /* Computing 4th power */
6963     d__4 = l2_4.x[3] - 1., d__4 *= d__4;
6964 /* Computing 6th power */
6965     d__5 = l2_4.x[4] - 1., d__5 *= d__5;
6966     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4 + d__5 * (
6967         d__5 * d__5);
6968     return 0;
6969 labelL3:
6970     l4_4.gf[0] = (l2_4.x[0] * 2. - l2_4.x[1] - 1.) * 2.;
6971     l4_4.gf[1] = (l2_4.x[0] - l2_4.x[1]) * -2.;
6972     l4_4.gf[2] = (l2_4.x[2] - 1.) * 2.;
6973 /* Computing 3rd power */
6974     d__1 = l2_4.x[3] - 1.;
6975     l4_4.gf[3] = d__1 * (d__1 * d__1) * 4.;
6976 /* Computing 5th power */
6977     d__1 = l2_4.x[4] - 1., d__2 = d__1, d__1 *= d__1;
6978     l4_4.gf[4] = d__2 * (d__1 * d__1) * 6.;
6979     return 0;
6980 labelL4:
6981     if (l9_3.index1[0]) {
6982 /* Computing 2nd power */
6983     d__1 = l2_4.x[0];
6984     l3_2.g[0] = d__1 * d__1 * l2_4.x[3] + std::sin(l2_4.x[3] - l2_4.x[4]) -
6985         std::sqrt(2.) * 2.;
6986     }
6987     if (l9_3.index1[1]) {
6988 /* Computing 4th power */
6989     d__1 = l2_4.x[2], d__1 *= d__1;
6990 /* Computing 2nd power */
6991     d__2 = l2_4.x[3];
6992     l3_2.g[1] = l2_4.x[1] + d__1 * d__1 * (d__2 * d__2) - 8. - std::sqrt(2.);
6993     }
6994     return 0;
6995 labelL5:
6996     if (! l10_3.index2[0]) {
6997     goto L7;
6998     }
6999     v1 = std::cos(l2_4.x[3] - l2_4.x[4]);
7000     l5_4.gg[0] = l2_4.x[0] * 2. * l2_4.x[3];
7001 /* Computing 2nd power */
7002     d__1 = l2_4.x[0];
7003     l5_4.gg[6] = d__1 * d__1 + v1;
7004     l5_4.gg[8] = -v1;
7005 L7:
7006     if (! l10_3.index2[1]) {
7007     goto L8;
7008     }
7009 /* Computing 3rd power */
7010     d__1 = l2_4.x[2];
7011 /* Computing 2nd power */
7012     d__2 = l2_4.x[3];
7013     l5_4.gg[5] = d__1 * (d__1 * d__1) * 4. * (d__2 * d__2);
7014 /* Computing 4th power */
7015     d__1 = l2_4.x[2], d__1 *= d__1;
7016     l5_4.gg[7] = d__1 * d__1 * 2. * l2_4.x[3];
7017 L8:
7018     return 0;
7019 } /* tp77_ */
7020 
7021 
tp78_(int * mode)7022 /* Subroutine */ int tp78_(int *mode)
7023 {
7024     /* System generated locals */
7025     Real d__1, d__2, d__3, d__4, d__5;
7026 
7027     /* Local variables */
7028     static int i__;
7029 
7030     switch ((int)*mode) {
7031     case 1:  goto labelL1;
7032     case 2:  goto labelL2;
7033     case 3:  goto labelL3;
7034     case 4:  goto labelL4;
7035     case 5:  goto labelL5;
7036     }
7037 labelL1:
7038     l1_1.n = 5;
7039     l1_1.nili = 0;
7040     l1_1.ninl = 0;
7041     l1_1.neli = 0;
7042     l1_1.nenl = 3;
7043     for (i__ = 1; i__ <= 5; ++i__) {
7044     l11_4.lxl[i__ - 1] = false;
7045 /* labelL6: */
7046     l12_4.lxu[i__ - 1] = false;
7047     }
7048     l2_4.x[0] = -2.;
7049     l2_4.x[1] = 1.5;
7050     l2_4.x[2] = 2.;
7051     l2_4.x[3] = -1.;
7052     l2_4.x[4] = -1.;
7053     l5_9.gg[1] = 0.;
7054     l5_9.gg[8] = 0.;
7055     l5_9.gg[11] = 0.;
7056     l5_9.gg[14] = 0.;
7057     l20_7.lex = false;
7058     l20_7.xex[0] = -1.7171423423;
7059     l20_7.xex[1] = 1.59570826805;
7060     l20_7.xex[2] = 1.82724803488;
7061     l20_7.xex[3] = -.7636429466;
7062     l20_7.xex[4] = -.763643482853;
7063     l20_7.fex = -2.91970040911;
7064     return 0;
7065 labelL2:
7066     l6_1.fx = l2_4.x[0] * l2_4.x[1] * l2_4.x[2] * l2_4.x[3] * l2_4.x[4];
7067     return 0;
7068 labelL3:
7069     l4_4.gf[0] = l2_4.x[1] * l2_4.x[2] * l2_4.x[3] * l2_4.x[4];
7070     l4_4.gf[1] = l2_4.x[0] * l2_4.x[2] * l2_4.x[3] * l2_4.x[4];
7071     l4_4.gf[2] = l2_4.x[0] * l2_4.x[1] * l2_4.x[3] * l2_4.x[4];
7072     l4_4.gf[3] = l2_4.x[0] * l2_4.x[1] * l2_4.x[2] * l2_4.x[4];
7073     l4_4.gf[4] = l2_4.x[0] * l2_4.x[1] * l2_4.x[2] * l2_4.x[3];
7074     return 0;
7075 labelL4:
7076     if (l9_4.index1[0]) {
7077 /* Computing 2nd power */
7078     d__1 = l2_4.x[0];
7079 /* Computing 2nd power */
7080     d__2 = l2_4.x[1];
7081 /* Computing 2nd power */
7082     d__3 = l2_4.x[2];
7083 /* Computing 2nd power */
7084     d__4 = l2_4.x[3];
7085 /* Computing 2nd power */
7086     d__5 = l2_4.x[4];
7087     l3_3.g[0] = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4 +
7088         d__5 * d__5 - 10.;
7089     }
7090     if (l9_4.index1[1]) {
7091     l3_3.g[1] = l2_4.x[1] * l2_4.x[2] - l2_4.x[3] * 5. * l2_4.x[4];
7092     }
7093     if (l9_4.index1[2]) {
7094 /* Computing 3rd power */
7095     d__1 = l2_4.x[0];
7096 /* Computing 3rd power */
7097     d__2 = l2_4.x[1];
7098     l3_3.g[2] = d__1 * (d__1 * d__1) + d__2 * (d__2 * d__2) + 1.;
7099     }
7100     return 0;
7101 labelL5:
7102     if (! l10_4.index2[0]) {
7103     goto L7;
7104     }
7105     for (i__ = 1; i__ <= 5; ++i__) {
7106 /* L30: */
7107     l5_9.gg[i__ * 3 - 3] = l2_4.x[i__ - 1] * 2.;
7108     }
7109 L7:
7110     if (! l10_4.index2[1]) {
7111     goto L8;
7112     }
7113     l5_9.gg[4] = l2_4.x[2];
7114     l5_9.gg[7] = l2_4.x[1];
7115     l5_9.gg[10] = l2_4.x[4] * -5.;
7116     l5_9.gg[13] = l2_4.x[3] * -5.;
7117 L8:
7118     if (! l10_4.index2[2]) {
7119     goto labelL9;
7120     }
7121 /* Computing 2nd power */
7122     d__1 = l2_4.x[0];
7123     l5_9.gg[2] = d__1 * d__1 * 3.;
7124 /* Computing 2nd power */
7125     d__1 = l2_4.x[1];
7126     l5_9.gg[5] = d__1 * d__1 * 3.;
7127 labelL9:
7128     return 0;
7129 } /* tp78_ */
7130 
7131 
tp79_(int * mode)7132 /* Subroutine */ int tp79_(int *mode)
7133 {
7134     /* System generated locals */
7135     Real d__1, d__2, d__3, d__4, d__5;
7136 
7137     /* Local variables */
7138     static int i__;
7139     static Real v1, v2, v3, v4;
7140 
7141     switch ((int)*mode) {
7142     case 1:  goto labelL1;
7143     case 2:  goto labelL2;
7144     case 3:  goto labelL3;
7145     case 4:  goto labelL4;
7146     case 5:  goto labelL5;
7147     }
7148 labelL1:
7149     l1_1.n = 5;
7150     l1_1.nili = 0;
7151     l1_1.ninl = 0;
7152     l1_1.neli = 0;
7153     l1_1.nenl = 3;
7154     for (i__ = 1; i__ <= 5; ++i__) {
7155     l2_4.x[i__ - 1] = 2.;
7156     l11_4.lxl[i__ - 1] = false;
7157 /* labelL6: */
7158     l12_4.lxu[i__ - 1] = false;
7159     }
7160     l5_9.gg[0] = 1.;
7161     l5_9.gg[9] = 0.;
7162     l5_9.gg[12] = 0.;
7163     l5_9.gg[1] = 0.;
7164     l5_9.gg[4] = 1.;
7165     l5_9.gg[10] = 1.;
7166     l5_9.gg[13] = 0.;
7167     l5_9.gg[5] = 0.;
7168     l5_9.gg[8] = 0.;
7169     l5_9.gg[11] = 0.;
7170     l20_7.lex = false;
7171     l20_7.xex[0] = 1.19112745626;
7172     l20_7.xex[1] = 1.36260316492;
7173     l20_7.xex[2] = 1.4728179315;
7174     l20_7.xex[3] = 1.63501661894;
7175     l20_7.xex[4] = 1.67908143619;
7176     l20_7.fex = .0787768208538;
7177     return 0;
7178 labelL2:
7179 /* Computing 2nd power */
7180     d__1 = l2_4.x[0] - 1.;
7181 /* Computing 2nd power */
7182     d__2 = l2_4.x[0] - l2_4.x[1];
7183 /* Computing 2nd power */
7184     d__3 = l2_4.x[1] - l2_4.x[2];
7185 /* Computing 4th power */
7186     d__4 = l2_4.x[2] - l2_4.x[3], d__4 *= d__4;
7187 /* Computing 4th power */
7188     d__5 = l2_4.x[3] - l2_4.x[4], d__5 *= d__5;
7189     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4 + d__5 *
7190         d__5;
7191     return 0;
7192 labelL3:
7193     v1 = l2_4.x[0] - l2_4.x[1];
7194     v2 = l2_4.x[1] - l2_4.x[2];
7195     v3 = l2_4.x[2] - l2_4.x[3];
7196     v4 = l2_4.x[3] - l2_4.x[4];
7197     l4_4.gf[0] = (l2_4.x[0] - 1. + v1) * 2.;
7198     l4_4.gf[1] = (v2 - v1) * 2.;
7199 /* Computing 3rd power */
7200     d__1 = v3;
7201     l4_4.gf[2] = v2 * -2. + d__1 * (d__1 * d__1) * 4.;
7202 /* Computing 3rd power */
7203     d__1 = v4;
7204 /* Computing 3rd power */
7205     d__2 = v3;
7206     l4_4.gf[3] = (d__1 * (d__1 * d__1) - d__2 * (d__2 * d__2)) * 4.;
7207 /* Computing 3rd power */
7208     d__1 = v4;
7209     l4_4.gf[4] = d__1 * (d__1 * d__1) * -4.;
7210     return 0;
7211 labelL4:
7212     if (l9_4.index1[0]) {
7213 /* Computing 2nd power */
7214     d__1 = l2_4.x[1];
7215 /* Computing 3rd power */
7216     d__2 = l2_4.x[2];
7217     l3_3.g[0] = l2_4.x[0] + d__1 * d__1 + d__2 * (d__2 * d__2) - 2. -
7218         std::sqrt(2.) * 3.;
7219     }
7220     if (l9_4.index1[1]) {
7221 /* Computing 2nd power */
7222     d__1 = l2_4.x[2];
7223     l3_3.g[1] = l2_4.x[1] - d__1 * d__1 + l2_4.x[3] + 2. - std::sqrt(2.) * 2.;
7224     }
7225     if (l9_4.index1[2]) {
7226     l3_3.g[2] = l2_4.x[0] * l2_4.x[4] - 2.;
7227     }
7228     return 0;
7229 labelL5:
7230     if (! l10_4.index2[0]) {
7231     goto L7;
7232     }
7233     l5_9.gg[3] = l2_4.x[1] * 2.;
7234 /* Computing 2nd power */
7235     d__1 = l2_4.x[2];
7236     l5_9.gg[6] = d__1 * d__1 * 3.;
7237 L7:
7238     if (l10_4.index2[1]) {
7239     l5_9.gg[7] = l2_4.x[2] * -2.;
7240     }
7241     if (! l10_4.index2[2]) {
7242     goto labelL9;
7243     }
7244     l5_9.gg[2] = l2_4.x[4];
7245     l5_9.gg[14] = l2_4.x[0];
7246 labelL9:
7247     return 0;
7248 } /* tp79_ */
7249 
7250 
tp80_(int * mode)7251 /* Subroutine */ int tp80_(int *mode)
7252 {
7253     /* System generated locals */
7254     Real d__1, d__2, d__3, d__4, d__5;
7255 
7256     /* Local variables */
7257     static int i__;
7258     static Real t, v1, v2;
7259 
7260     switch ((int)*mode) {
7261     case 1:  goto labelL1;
7262     case 2:  goto labelL2;
7263     case 3:  goto labelL3;
7264     case 4:  goto labelL4;
7265     case 5:  goto labelL5;
7266     }
7267 labelL1:
7268     l1_1.n = 5;
7269     l1_1.nili = 0;
7270     l1_1.ninl = 0;
7271     l1_1.neli = 0;
7272     l1_1.nenl = 3;
7273     for (i__ = 1; i__ <= 5; ++i__) {
7274     l11_4.lxl[i__ - 1] = true;
7275 /* labelL6: */
7276     l12_4.lxu[i__ - 1] = true;
7277     }
7278     l2_4.x[0] = -2.;
7279     l2_4.x[1] = 2.;
7280     l2_4.x[2] = 2.;
7281     l2_4.x[3] = -1.;
7282     l2_4.x[4] = -1.;
7283     for (i__ = 1; i__ <= 2; ++i__) {
7284     l13_4.xl[i__ - 1] = -2.3;
7285 /* labelL20: */
7286     l14_4.xu[i__ - 1] = 2.3;
7287     }
7288     for (i__ = 3; i__ <= 5; ++i__) {
7289     l13_4.xl[i__ - 1] = -3.2;
7290 /* L21: */
7291     l14_4.xu[i__ - 1] = 3.2;
7292     }
7293     l5_9.gg[1] = 0.;
7294     l5_9.gg[8] = 0.;
7295     l5_9.gg[11] = 0.;
7296     l5_9.gg[14] = 0.;
7297     l20_7.lex = false;
7298     l20_7.xex[0] = -1.71714294417;
7299     l20_7.xex[1] = 1.59570896503;
7300     l20_7.xex[2] = 1.82724691654;
7301     l20_7.xex[3] = -.763641279311;
7302     l20_7.xex[4] = -.763645016315;
7303     l20_7.fex = .0539498477624;
7304     return 0;
7305 labelL2:
7306     l6_1.fx = std::exp(l2_4.x[0] * l2_4.x[1] * l2_4.x[2] * l2_4.x[3] * l2_4.x[4]);
7307     return 0;
7308 labelL3:
7309     v1 = l2_4.x[3] * l2_4.x[4];
7310     v2 = l2_4.x[0] * l2_4.x[1];
7311     t = std::exp(v2 * l2_4.x[2] * v1);
7312     l4_4.gf[0] = l2_4.x[1] * l2_4.x[2] * v1 * t;
7313     l4_4.gf[1] = l2_4.x[0] * l2_4.x[2] * v1 * t;
7314     l4_4.gf[2] = v1 * v2 * t;
7315     l4_4.gf[3] = v2 * l2_4.x[2] * l2_4.x[4] * t;
7316     l4_4.gf[4] = v2 * l2_4.x[2] * l2_4.x[3] * t;
7317     return 0;
7318 labelL4:
7319     if (l9_4.index1[0]) {
7320 /* Computing 2nd power */
7321     d__1 = l2_4.x[0];
7322 /* Computing 2nd power */
7323     d__2 = l2_4.x[1];
7324 /* Computing 2nd power */
7325     d__3 = l2_4.x[2];
7326 /* Computing 2nd power */
7327     d__4 = l2_4.x[3];
7328 /* Computing 2nd power */
7329     d__5 = l2_4.x[4];
7330     l3_3.g[0] = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4 +
7331         d__5 * d__5 - 10.;
7332     }
7333     if (l9_4.index1[1]) {
7334     l3_3.g[1] = l2_4.x[1] * l2_4.x[2] - l2_4.x[3] * 5. * l2_4.x[4];
7335     }
7336     if (l9_4.index1[2]) {
7337 /* Computing 3rd power */
7338     d__1 = l2_4.x[0];
7339 /* Computing 3rd power */
7340     d__2 = l2_4.x[1];
7341     l3_3.g[2] = d__1 * (d__1 * d__1) + d__2 * (d__2 * d__2) + 1.;
7342     }
7343     return 0;
7344 labelL5:
7345     if (! l10_4.index2[0]) {
7346     goto L7;
7347     }
7348     for (i__ = 1; i__ <= 5; ++i__) {
7349 /* L30: */
7350     l5_9.gg[i__ * 3 - 3] = l2_4.x[i__ - 1] * 2.;
7351     }
7352 L7:
7353     if (! l10_4.index2[1]) {
7354     goto L8;
7355     }
7356     l5_9.gg[4] = l2_4.x[2];
7357     l5_9.gg[7] = l2_4.x[1];
7358     l5_9.gg[10] = l2_4.x[4] * -5.;
7359     l5_9.gg[13] = l2_4.x[3] * -5.;
7360 L8:
7361     if (! l10_4.index2[2]) {
7362     goto labelL9;
7363     }
7364 /* Computing 2nd power */
7365     d__1 = l2_4.x[0];
7366     l5_9.gg[2] = d__1 * d__1 * 3.;
7367 /* Computing 2nd power */
7368     d__1 = l2_4.x[1];
7369     l5_9.gg[5] = d__1 * d__1 * 3.;
7370 labelL9:
7371     return 0;
7372 } /* tp80_ */
7373 
7374 
tp81_(int * mode)7375 /* Subroutine */ int tp81_(int *mode)
7376 {
7377     /* System generated locals */
7378     Real d__1, d__2, d__3, d__4, d__5;
7379 
7380     /* Local variables */
7381     static int i__;
7382     static Real t, v1, v2, v3;
7383 
7384     switch ((int)*mode) {
7385     case 1:  goto labelL1;
7386     case 2:  goto labelL2;
7387     case 3:  goto labelL3;
7388     case 4:  goto labelL4;
7389     case 5:  goto labelL5;
7390     }
7391 labelL1:
7392     l1_1.n = 5;
7393     l1_1.nili = 0;
7394     l1_1.ninl = 0;
7395     l1_1.neli = 0;
7396     l1_1.nenl = 3;
7397     for (i__ = 1; i__ <= 5; ++i__) {
7398     l11_4.lxl[i__ - 1] = true;
7399 /* labelL6: */
7400     l12_4.lxu[i__ - 1] = true;
7401     }
7402     for (i__ = 1; i__ <= 2; ++i__) {
7403     l13_4.xl[i__ - 1] = -2.3;
7404 /* labelL10: */
7405     l14_4.xu[i__ - 1] = 2.3;
7406     }
7407     for (i__ = 3; i__ <= 5; ++i__) {
7408     l13_4.xl[i__ - 1] = -3.2;
7409 /* labelL20: */
7410     l14_4.xu[i__ - 1] = 3.2;
7411     }
7412     l2_4.x[0] = -2.;
7413     l2_4.x[1] = 2.;
7414     l2_4.x[2] = 2.;
7415     l2_4.x[3] = -1.;
7416     l2_4.x[4] = -1.;
7417     l5_9.gg[1] = 0.;
7418     l5_9.gg[8] = 0.;
7419     l5_9.gg[11] = 0.;
7420     l5_9.gg[14] = 0.;
7421     l20_7.lex = false;
7422     l20_7.xex[0] = -1.71714240091;
7423     l20_7.xex[1] = 1.59570833592;
7424     l20_7.xex[2] = 1.82724792592;
7425     l20_7.xex[3] = -.763647440817;
7426     l20_7.xex[4] = -.763638975604;
7427     l20_7.fex = .0539498477749;
7428     return 0;
7429 labelL2:
7430 /* Computing 3rd power */
7431     d__2 = l2_4.x[0];
7432 /* Computing 3rd power */
7433     d__3 = l2_4.x[1];
7434 /* Computing 2nd power */
7435     d__1 = d__2 * (d__2 * d__2) + d__3 * (d__3 * d__3) + 1.;
7436     l6_1.fx = std::exp(l2_4.x[0] * l2_4.x[1] * l2_4.x[2] * l2_4.x[3] * l2_4.x[4])
7437         - d__1 * d__1 * .5;
7438     return 0;
7439 labelL3:
7440 /* Computing 3rd power */
7441     d__1 = l2_4.x[0];
7442 /* Computing 3rd power */
7443     d__2 = l2_4.x[1];
7444     v1 = d__1 * (d__1 * d__1) + d__2 * (d__2 * d__2) + 1.;
7445     v2 = l2_4.x[0] * l2_4.x[1];
7446     v3 = l2_4.x[3] * l2_4.x[4];
7447     t = std::exp(v2 * v3 * l2_4.x[2]);
7448 /* Computing 2nd power */
7449     d__1 = l2_4.x[0];
7450     l4_4.gf[0] = l2_4.x[1] * l2_4.x[2] * v3 * t - d__1 * d__1 * 3. * v1;
7451 /* Computing 2nd power */
7452     d__1 = l2_4.x[1];
7453     l4_4.gf[1] = l2_4.x[0] * l2_4.x[2] * v3 * t - d__1 * d__1 * 3. * v1;
7454     l4_4.gf[2] = v2 * v3 * t;
7455     l4_4.gf[3] = v2 * l2_4.x[2] * l2_4.x[4] * t;
7456     l4_4.gf[4] = v2 * l2_4.x[2] * l2_4.x[3] * t;
7457     return 0;
7458 labelL4:
7459     if (l9_4.index1[0]) {
7460 /* Computing 2nd power */
7461     d__1 = l2_4.x[0];
7462 /* Computing 2nd power */
7463     d__2 = l2_4.x[1];
7464 /* Computing 2nd power */
7465     d__3 = l2_4.x[2];
7466 /* Computing 2nd power */
7467     d__4 = l2_4.x[3];
7468 /* Computing 2nd power */
7469     d__5 = l2_4.x[4];
7470     l3_3.g[0] = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4 +
7471         d__5 * d__5 - 10.;
7472     }
7473     if (l9_4.index1[1]) {
7474     l3_3.g[1] = l2_4.x[1] * l2_4.x[2] - l2_4.x[3] * 5. * l2_4.x[4];
7475     }
7476     if (l9_4.index1[2]) {
7477 /* Computing 3rd power */
7478     d__1 = l2_4.x[0];
7479 /* Computing 3rd power */
7480     d__2 = l2_4.x[1];
7481     l3_3.g[2] = d__1 * (d__1 * d__1) + d__2 * (d__2 * d__2) + 1.;
7482     }
7483     return 0;
7484 labelL5:
7485     if (! l10_4.index2[0]) {
7486     goto L7;
7487     }
7488     for (i__ = 1; i__ <= 5; ++i__) {
7489 /* L30: */
7490     l5_9.gg[i__ * 3 - 3] = l2_4.x[i__ - 1] * 2.;
7491     }
7492 L7:
7493     if (! l10_4.index2[1]) {
7494     goto L8;
7495     }
7496     l5_9.gg[4] = l2_4.x[2];
7497     l5_9.gg[7] = l2_4.x[1];
7498     l5_9.gg[10] = l2_4.x[4] * -5.;
7499     l5_9.gg[13] = l2_4.x[3] * -5.;
7500 L8:
7501     if (! l10_4.index2[2]) {
7502     goto labelL9;
7503     }
7504 /* Computing 2nd power */
7505     d__1 = l2_4.x[0];
7506     l5_9.gg[2] = d__1 * d__1 * 3.;
7507 /* Computing 2nd power */
7508     d__1 = l2_4.x[1];
7509     l5_9.gg[5] = d__1 * d__1 * 3.;
7510 labelL9:
7511     return 0;
7512 } /* tp81_ */
7513 
7514 
tp83_(int * mode)7515 /* Subroutine */ int tp83_(int *mode)
7516 {
7517     /* System generated locals */
7518     Real d__1;
7519 
7520     /* Local variables */
7521     static Real a, b, c__, d__;
7522     static int i__;
7523     static Real a1, a2, a3, a4, a5, a6, a7, a8, a9, v1, v2, v3, a10,
7524         a11, a12;
7525 
7526     switch ((int)*mode) {
7527     case 1:  goto labelL1;
7528     case 2:  goto labelL2;
7529     case 3:  goto labelL3;
7530     case 4:  goto labelL4;
7531     case 5:  goto labelL5;
7532     }
7533 labelL1:
7534     l1_1.n = 5;
7535     l1_1.nili = 0;
7536     l1_1.ninl = 6;
7537     l1_1.neli = 0;
7538     l1_1.nenl = 0;
7539     l2_4.x[0] = 78.;
7540     l2_4.x[1] = 33.;
7541     l2_4.x[2] = 27.;
7542     l2_4.x[3] = 27.;
7543     l2_4.x[4] = 27.;
7544     for (i__ = 1; i__ <= 5; ++i__) {
7545     l11_4.lxl[i__ - 1] = true;
7546 /* labelL6: */
7547     l12_4.lxu[i__ - 1] = true;
7548     }
7549     l13_4.xl[0] = 78.;
7550     l13_4.xl[1] = 33.;
7551     l14_4.xu[0] = 102.;
7552     l14_4.xu[1] = 45.;
7553     for (i__ = 3; i__ <= 5; ++i__) {
7554     l13_4.xl[i__ - 1] = 27.;
7555 /* L31: */
7556     l14_4.xu[i__ - 1] = 45.;
7557     }
7558     a = 5.3578547;
7559     b = .8356891;
7560     c__ = 37.293239;
7561     d__ = 40792.141;
7562     a1 = 85.334407;
7563     a2 = .0056858;
7564     a3 = 6.262e-4;
7565     a4 = .0022053;
7566     a5 = 80.51249;
7567     a6 = .0071317;
7568     a7 = .0029955;
7569     a8 = .0021813;
7570     a9 = 9.300961;
7571     a10 = .0047026;
7572     a11 = .0012547;
7573     a12 = .0019085;
7574     l4_4.gf[1] = 0.;
7575     l4_4.gf[3] = 0.;
7576     l5_14.gg[19] = 0.;
7577     l5_14.gg[8] = 0.;
7578     l5_14.gg[22] = 0.;
7579     l5_14.gg[11] = 0.;
7580     l20_7.lex = false;
7581     l20_7.xex[0] = 78.;
7582     l20_7.xex[1] = 33.;
7583     l20_7.xex[2] = 29.9952560253;
7584     l20_7.xex[3] = 45.;
7585     l20_7.xex[4] = 36.7758129081;
7586     l20_7.fex = -30665.5386717;
7587     return 0;
7588 labelL2:
7589 /* Computing 2nd power */
7590     d__1 = l2_4.x[2];
7591     l6_1.fx = a * (d__1 * d__1) + b * l2_4.x[0] * l2_4.x[4] + c__ * l2_4.x[0]
7592         - d__;
7593     return 0;
7594 labelL3:
7595     l4_4.gf[0] = b * l2_4.x[4] + c__;
7596     l4_4.gf[2] = a * 2. * l2_4.x[2];
7597     l4_4.gf[4] = b * l2_4.x[0];
7598     return 0;
7599 labelL4:
7600     if (! (l9_6.index1[0] || l9_6.index1[3])) {
7601     goto L41;
7602     }
7603     v1 = a1 + a2 * l2_4.x[1] * l2_4.x[4] + a3 * l2_4.x[0] * l2_4.x[3] - a4 *
7604         l2_4.x[2] * l2_4.x[4];
7605     if (l9_6.index1[0]) {
7606     l3_5.g[0] = v1;
7607     }
7608     if (l9_6.index1[3]) {
7609     l3_5.g[3] = 92. - v1;
7610     }
7611 L41:
7612     if (! (l9_6.index1[1] || l9_6.index1[4])) {
7613     goto L42;
7614     }
7615 /* Computing 2nd power */
7616     d__1 = l2_4.x[2];
7617     v2 = a5 + a6 * l2_4.x[1] * l2_4.x[4] + a7 * l2_4.x[0] * l2_4.x[1] + a8 * (
7618         d__1 * d__1) - 90.;
7619     if (l9_6.index1[1]) {
7620     l3_5.g[1] = v2;
7621     }
7622     if (l9_6.index1[4]) {
7623     l3_5.g[4] = 20. - v2;
7624     }
7625 L42:
7626     if (! (l9_6.index1[2] || l9_6.index1[5])) {
7627     goto L43;
7628     }
7629     v3 = a9 + a10 * l2_4.x[2] * l2_4.x[4] + a11 * l2_4.x[0] * l2_4.x[2] + a12
7630         * l2_4.x[2] * l2_4.x[3] - 20.;
7631     if (l9_6.index1[2]) {
7632     l3_5.g[2] = v3;
7633     }
7634     if (l9_6.index1[5]) {
7635     l3_5.g[5] = 5. - v3;
7636     }
7637 L43:
7638     return 0;
7639 labelL5:
7640     if (! l10_6.index2[0]) {
7641     goto L7;
7642     }
7643     l5_14.gg[0] = a3 * l2_4.x[3];
7644     l5_14.gg[6] = a2 * l2_4.x[4];
7645     l5_14.gg[12] = -a4 * l2_4.x[4];
7646     l5_14.gg[18] = a3 * l2_4.x[0];
7647     l5_14.gg[24] = a2 * l2_4.x[1] - a4 * l2_4.x[2];
7648 L7:
7649     if (! l10_6.index2[1]) {
7650     goto L8;
7651     }
7652     l5_14.gg[1] = a7 * l2_4.x[1];
7653     l5_14.gg[7] = a6 * l2_4.x[4] + a7 * l2_4.x[0];
7654     l5_14.gg[13] = a8 * 2. * l2_4.x[2];
7655     l5_14.gg[25] = a6 * l2_4.x[1];
7656 L8:
7657     if (! l10_6.index2[2]) {
7658     goto labelL9;
7659     }
7660     l5_14.gg[2] = a11 * l2_4.x[2];
7661     l5_14.gg[14] = a10 * l2_4.x[4] + a11 * l2_4.x[0] + a12 * l2_4.x[3];
7662     l5_14.gg[20] = a12 * l2_4.x[2];
7663     l5_14.gg[26] = a10 * l2_4.x[2];
7664 labelL9:
7665     if (! l10_6.index2[3]) {
7666     goto labelL10;
7667     }
7668     l5_14.gg[3] = -a3 * l2_4.x[3];
7669     l5_14.gg[9] = -a2 * l2_4.x[4];
7670     l5_14.gg[15] = a4 * l2_4.x[4];
7671     l5_14.gg[21] = -a3 * l2_4.x[0];
7672     l5_14.gg[27] = -a2 * l2_4.x[1] + a4 * l2_4.x[2];
7673 labelL10:
7674     if (! l10_6.index2[4]) {
7675     goto labelL11;
7676     }
7677     l5_14.gg[4] = -a7 * l2_4.x[1];
7678     l5_14.gg[10] = -a6 * l2_4.x[4] - a7 * l2_4.x[0];
7679     l5_14.gg[16] = a8 * -2. * l2_4.x[2];
7680     l5_14.gg[28] = -a6 * l2_4.x[1];
7681 labelL11:
7682     if (! l10_6.index2[5]) {
7683     goto labelL12;
7684     }
7685     l5_14.gg[5] = -a11 * l2_4.x[2];
7686     l5_14.gg[17] = -a10 * l2_4.x[4] - a11 * l2_4.x[0] - a12 * l2_4.x[3];
7687     l5_14.gg[23] = -a12 * l2_4.x[2];
7688     l5_14.gg[29] = -a10 * l2_4.x[2];
7689 labelL12:
7690     return 0;
7691 } /* tp83_ */
7692 
7693 
tp84_(int * mode)7694 /* Subroutine */ int tp84_(int *mode)
7695 {
7696     static Real a[21], b[3];
7697     static int i__, j, i1;
7698     static Real v1;
7699 
7700     a[0] = -24345.;
7701     a[1] = -8720288.849;
7702     a[2] = 150512.5253;
7703     a[3] = -156.6950325;
7704     a[4] = 476470.3222;
7705     a[5] = 729482.8271;
7706     a[6] = -145421.402;
7707     a[7] = 2931.1506;
7708     a[8] = -40.427932;
7709     a[9] = 5106.192;
7710     a[10] = 15711.36;
7711     a[11] = -155011.1084;
7712     a[12] = 4360.53352;
7713     a[13] = 12.9492344;
7714     a[14] = 10236.884;
7715     a[15] = 13176.786;
7716     a[16] = -326669.5104;
7717     a[17] = 7390.68412;
7718     a[18] = -27.8986976;
7719     a[19] = 16643.076;
7720     a[20] = 30988.146;
7721     b[0] = 2.94e5;
7722     b[1] = 2.94e5;
7723     b[2] = 277200.;
7724     switch ((int)*mode) {
7725     case 1:  goto labelL1;
7726     case 2:  goto labelL2;
7727     case 3:  goto labelL3;
7728     case 4:  goto labelL4;
7729     case 5:  goto labelL5;
7730     }
7731 labelL1:
7732     l1_1.n = 5;
7733     l1_1.nili = 0;
7734     l1_1.ninl = 6;
7735     l1_1.neli = 0;
7736     l1_1.nenl = 0;
7737     l2_4.x[0] = 2.52;
7738     l2_4.x[1] = 2.;
7739     l2_4.x[2] = 37.5;
7740     l2_4.x[3] = 9.25;
7741     l2_4.x[4] = 6.8;
7742     for (i__ = 1; i__ <= 5; ++i__) {
7743     l12_4.lxu[i__ - 1] = true;
7744 /* labelL6: */
7745     l11_4.lxl[i__ - 1] = true;
7746     }
7747     l13_4.xl[0] = 0.;
7748     l13_4.xl[1] = 1.2;
7749     l13_4.xl[2] = 20.;
7750     l13_4.xl[3] = 9.;
7751     l13_4.xl[4] = 6.5;
7752     l14_4.xu[0] = 1e3;
7753     l14_4.xu[1] = 2.4;
7754     l14_4.xu[2] = 60.;
7755     l14_4.xu[3] = 9.3;
7756     l14_4.xu[4] = 7.;
7757     l20_7.lex = false;
7758     l20_7.xex[0] = 4.53743097466;
7759     l20_7.xex[1] = 2.40000000002;
7760     l20_7.xex[2] = 60.;
7761     l20_7.xex[3] = 9.29999999999;
7762     l20_7.xex[4] = 7.;
7763     l20_7.fex = -52.803351330600002;
7764     return 0;
7765 labelL2:
7766     l6_1.fx = -(a[0] + l2_4.x[0] * (a[1] + a[2] * l2_4.x[1] + a[3] * l2_4.x[2]
7767          + a[4] * l2_4.x[3] + a[5] * l2_4.x[4]));
7768     l6_1.fx *= 1e-5;
7769     return 0;
7770 labelL3:
7771     l4_4.gf[0] = -(a[1] + a[2] * l2_4.x[1] + a[3] * l2_4.x[2] + a[4] * l2_4.x[
7772         3] + a[5] * l2_4.x[4]) * 1e-5;
7773     for (i__ = 2; i__ <= 5; ++i__) {
7774 /* L30: */
7775     l4_4.gf[i__ - 1] = -a[i__] * l2_4.x[0] * 1e-5;
7776     }
7777     return 0;
7778 labelL4:
7779     for (i__ = 1; i__ <= 3; ++i__) {
7780     if (! (l9_6.index1[i__ - 1] || l9_6.index1[i__ + 2])) {
7781         goto L80;
7782     }
7783     i1 = i__ * 5;
7784     v1 = l2_4.x[0] * (a[i1 + 1] + a[i1 + 2] * l2_4.x[1] + a[i1 + 3] *
7785         l2_4.x[2] + a[i1 + 4] * l2_4.x[3] + a[i1 + 5] * l2_4.x[4]);
7786     if (l9_6.index1[i__ - 1]) {
7787         l3_5.g[i__ - 1] = v1;
7788     }
7789     if (l9_6.index1[i__ + 2]) {
7790         l3_5.g[i__ + 2] = b[i__ - 1] - v1;
7791     }
7792 L80:
7793     ;
7794     }
7795     return 0;
7796 labelL5:
7797     for (i__ = 1; i__ <= 3; ++i__) {
7798     if (! (l10_6.index2[i__ - 1] || l10_6.index2[i__ + 2])) {
7799         goto L90;
7800     }
7801     i1 = i__ * 5 + 1;
7802     if (! l10_6.index2[i__ - 1]) {
7803         goto L95;
7804     }
7805     l5_14.gg[i__ - 1] = a[i1] + a[i1 + 1] * l2_4.x[1] + a[i1 + 2] *
7806         l2_4.x[2] + a[i1 + 3] * l2_4.x[3] + a[i1 + 4] * l2_4.x[4];
7807     for (j = 2; j <= 5; ++j) {
7808 /* L91: */
7809         l5_14.gg[i__ + j * 6 - 7] = a[i1 + j - 1] * l2_4.x[0];
7810     }
7811     if (! l10_6.index2[i__ + 2]) {
7812         goto L90;
7813     }
7814     for (j = 1; j <= 5; ++j) {
7815 /* L92: */
7816         l5_14.gg[i__ + 3 + j * 6 - 7] = -l5_14.gg[i__ + j * 6 - 7];
7817     }
7818     goto L90;
7819 L95:
7820     l5_14.gg[i__ + 2] = -(a[i1] + a[i1 + 1] * l2_4.x[1] + a[i1 + 2] *
7821         l2_4.x[2] + a[i1 + 3] * l2_4.x[3] + a[i1 + 4] * l2_4.x[4]);
7822     for (j = 2; j <= 5; ++j) {
7823 /* L96: */
7824         l5_14.gg[i__ + 3 + j * 6 - 7] = -a[i1 + j - 1] * l2_4.x[0];
7825     }
7826 L90:
7827     ;
7828     }
7829     return 0;
7830 } /* tp84_ */
7831 
7832 
tp85_(int * mode)7833 /* Subroutine */ int tp85_(int *mode)
7834 {
7835     /* System generated locals */
7836     Real d__1, d__2;
7837 
7838     /* Local variables */
7839     static Real a[17], b[17], c__[17];
7840     static int i__, j;
7841     static Real y[17], v1, v2, v3, v4, v5, v6, v7, dc[85]    /* was [17][5]
7842          */, dy[85]    /* was [17][5] */;
7843 
7844     if (*mode - 2 >= 0) {
7845     goto L17;
7846     } else {
7847     goto labelL1;
7848     }
7849 labelL1:
7850     l1_1.n = 5;
7851     l1_1.nili = 3;
7852     l1_1.ninl = 35;
7853     l1_1.neli = 0;
7854     l1_1.nenl = 0;
7855     l2_4.x[0] = 900.;
7856     l2_4.x[1] = 80.;
7857     l2_4.x[2] = 115.;
7858     l2_4.x[3] = 267.;
7859     l2_4.x[4] = 27.;
7860     for (i__ = 1; i__ <= 5; ++i__) {
7861     l11_4.lxl[i__ - 1] = true;
7862 /* labelL6: */
7863     l12_4.lxu[i__ - 1] = true;
7864     }
7865     l13_4.xl[0] = 704.4148;
7866     l13_4.xl[1] = 68.6;
7867     l13_4.xl[2] = 0.;
7868     l13_4.xl[3] = 193.;
7869     l13_4.xl[4] = 25.;
7870     l14_4.xu[0] = 906.3855;
7871     l14_4.xu[1] = 288.88;
7872     l14_4.xu[2] = 134.75;
7873     l14_4.xu[3] = 287.0966;
7874     l14_4.xu[4] = 84.1988;
7875     a[1] = 17.505;
7876     a[2] = 11.275;
7877     a[3] = 214.228;
7878     a[4] = 7.458;
7879     a[5] = .961;
7880     a[6] = 1.612;
7881     a[7] = .146;
7882     a[8] = 107.99;
7883     a[9] = 922.693;
7884     a[10] = 926.832;
7885     a[11] = 18.766;
7886     a[12] = 1072.163;
7887     a[13] = 8961.448;
7888     a[14] = .063;
7889     a[15] = 71084.33;
7890     a[16] = 2802713.;
7891     b[1] = 1053.6667;
7892     b[2] = 35.03;
7893     b[3] = 665.585;
7894     b[4] = 584.463;
7895     b[5] = 265.916;
7896     b[6] = 7.046;
7897     b[7] = .222;
7898     b[8] = 273.366;
7899     b[9] = 1286.105;
7900     b[10] = 1444.046;
7901     b[11] = 537.141;
7902     b[12] = 3247.039;
7903     b[13] = 26844.086;
7904     b[14] = .386;
7905     b[15] = 1.4e5;
7906     b[16] = 12146108.;
7907     for (i__ = 1; i__ <= 5; ++i__) {
7908     l5_15.gg[i__ * 38 - 38] = 0.;
7909     l5_15.gg[i__ * 38 - 37] = 0.;
7910     l5_15.gg[i__ * 38 - 36] = 0.;
7911     dc[i__ * 17 - 17] = 0.;
7912     dc[i__ * 17 - 13] = 0.;
7913     dc[i__ * 17 - 8] = 0.;
7914 /* L61: */
7915     }
7916     l5_15.gg[38] = 1.5;
7917     l5_15.gg[76] = -1.;
7918     l5_15.gg[39] = 1.;
7919     l5_15.gg[77] = 1.;
7920     l5_15.gg[40] = -1.;
7921     l5_15.gg[78] = -1.;
7922     dy[0] = 0.;
7923     dy[17] = 1.;
7924     dy[34] = 1.;
7925     dy[51] = 0.;
7926     dy[68] = 0.;
7927     dc[51] = .024;
7928     dc[21] = 100.;
7929     l20_7.lex = false;
7930     l20_7.xex[0] = 705.180328772;
7931     l20_7.xex[1] = 68.6000529425;
7932     l20_7.xex[2] = 102.900013236;
7933     l20_7.xex[3] = 282.324998587;
7934     l20_7.xex[4] = 37.5850413432;
7935     l20_7.fex = -1.90513375046;
7936     return 0;
7937 L17:
7938     y[0] = l2_4.x[1] + l2_4.x[2] + 41.6;
7939     c__[0] = l2_4.x[3] * .024 - 4.62;
7940     y[1] = 12.5 / c__[0] + 12.;
7941     v3 = y[1] * l2_4.x[0];
7942     c__[1] = (l2_4.x[0] * 3.535e-4 + .5311) * l2_4.x[0] + v3 * .08705;
7943     c__[2] = l2_4.x[0] * .052 + 78. + v3 * .002377;
7944     y[2] = c__[1] / c__[2];
7945     y[3] = y[2] * 19.;
7946     v1 = l2_4.x[0] - y[2];
7947     c__[3] = (v1 * .1956 / l2_4.x[1] + .04782) * v1 + y[3] * .6376 + y[2] *
7948         1.594;
7949     c__[4] = l2_4.x[1] * 100.;
7950     c__[5] = v1 - y[3];
7951     c__[6] = .95 - c__[3] / c__[4];
7952     y[4] = c__[5] * c__[6];
7953     v2 = y[4] + y[3];
7954     y[5] = v1 - v2;
7955     c__[7] = v2 * .995;
7956     y[6] = c__[7] / y[0];
7957     y[7] = c__[7] / 3798.;
7958     c__[8] = y[6] - y[6] * .0663 / y[7] - .3153;
7959     y[8] = 96.82 / c__[8] + y[0] * .321;
7960     y[9] = y[4] * 1.29 + y[3] * 1.258 + y[2] * 2.29 + y[5] * 1.71;
7961     y[10] = l2_4.x[0] * 1.71 - y[3] * .452 + y[2] * .58;
7962     c__[9] = .016349860428020738;
7963     c__[10] = v3 * 1.74125;
7964     c__[11] = y[9] * .995 + 1998.;
7965     y[11] = c__[9] * l2_4.x[0] + c__[10] / c__[11];
7966     y[12] = c__[11] - y[1] * 1.75;
7967     v4 = y[8] + l2_4.x[4];
7968     y[13] = l2_4.x[1] * 64.4 + 3623. + l2_4.x[2] * 58.4 + 146312. / v4;
7969     c__[12] = y[9] * .995 + l2_4.x[1] * 60.8 + l2_4.x[3] * 48. - y[13] *
7970         .1121 - 5095.;
7971     y[14] = y[12] / c__[12];
7972     y[15] = 1.48e5 - y[14] * 3.31e5 + y[12] * 40. - y[14] * 61. * y[12];
7973     c__[13] = y[9] * 2324. - y[1] * 2.874e7;
7974     y[16] = 1.413e7 - y[9] * 1328. - y[10] * 531. + c__[13] / c__[11];
7975     c__[14] = y[12] / y[14] - y[12] / .52;
7976     c__[15] = 1.104 - y[14] * .72;
7977     c__[16] = v4;
7978     if (*mode == 3 || *mode == 5) {
7979     goto L71;
7980     }
7981     switch ((int)*mode) {
7982     case 1:  goto labelL1;
7983     case 2:  goto labelL2;
7984     case 3:  goto labelL3;
7985     case 4:  goto labelL4;
7986     case 5:  goto labelL5;
7987     }
7988 L71:
7989     for (i__ = 1; i__ <= 5; ++i__) {
7990 /* L30: */
7991 /* Computing 2nd power */
7992     d__1 = c__[0];
7993     dy[i__ * 17 - 16] = dc[i__ * 17 - 17] * -12.5 / (d__1 * d__1);
7994     }
7995     v5 = y[1] + l2_4.x[0] * dy[1];
7996     dc[1] = l2_4.x[0] * 7.07e-4 + .5311 + v5 * .08705;
7997     dc[2] = v5 * .002377 + .052;
7998     for (i__ = 2; i__ <= 5; ++i__) {
7999     v6 = l2_4.x[0] * dy[i__ * 17 - 16];
8000     dc[i__ * 17 - 16] = v6 * .08705;
8001 /* L32: */
8002     dc[i__ * 17 - 15] = v6 * .002377;
8003     }
8004     for (i__ = 1; i__ <= 5; ++i__) {
8005 /* Computing 2nd power */
8006     d__1 = c__[2];
8007     dy[i__ * 17 - 15] = (c__[2] * dc[i__ * 17 - 16] - c__[1] * dc[i__ *
8008         17 - 15]) / (d__1 * d__1);
8009 /* L33: */
8010     dy[i__ * 17 - 14] = dy[i__ * 17 - 15] * 19.;
8011     }
8012     dc[3] = (v1 * .3912 / l2_4.x[1] + .04782) * (1. - dy[2]) + dy[3] * .6376
8013         + dy[2] * 1.594;
8014 /* Computing 2nd power */
8015     d__1 = l2_4.x[1];
8016     dc[20] = v1 * -.1956 * (v1 + l2_4.x[1] * 2. * dy[19]) / (d__1 * d__1) +
8017         dy[19] * 1.54618 + dy[20] * .6376;
8018     for (i__ = 3; i__ <= 5; ++i__) {
8019 /* L34: */
8020     dc[i__ * 17 - 14] = (1.54618 - v1 * .3912 / l2_4.x[1]) * dy[i__ * 17
8021         - 15] + dy[i__ * 17 - 14] * .6376;
8022     }
8023     dc[5] = 1. - dy[2] - dy[3];
8024     for (i__ = 2; i__ <= 5; ++i__) {
8025 /* L35: */
8026     dc[i__ * 17 - 12] = -dy[i__ * 17 - 15] - dy[i__ * 17 - 14];
8027     }
8028     for (i__ = 1; i__ <= 5; ++i__) {
8029 /* Computing 2nd power */
8030     d__1 = c__[4];
8031     dc[i__ * 17 - 11] = -(c__[4] * dc[i__ * 17 - 14] - c__[3] * dc[i__ *
8032         17 - 13]) / (d__1 * d__1);
8033 /* L36: */
8034     dy[i__ * 17 - 13] = c__[5] * dc[i__ * 17 - 11] + c__[6] * dc[i__ * 17
8035         - 12];
8036     }
8037     for (i__ = 1; i__ <= 5; ++i__) {
8038 /* L37: */
8039     dy[i__ * 17 - 12] = -dy[i__ * 17 - 13] - dy[i__ * 17 - 14] - dy[i__ *
8040         17 - 15];
8041     }
8042     dy[5] += 1.;
8043     for (i__ = 1; i__ <= 5; ++i__) {
8044     dc[i__ * 17 - 10] = (dy[i__ * 17 - 13] + dy[i__ * 17 - 14]) * .995;
8045 /* Computing 2nd power */
8046     d__1 = y[0];
8047     dy[i__ * 17 - 11] = (y[0] * dc[i__ * 17 - 10] - c__[7] * dy[i__ * 17
8048         - 17]) / (d__1 * d__1);
8049     dy[i__ * 17 - 10] = dc[i__ * 17 - 10] / 3798.;
8050 /* Computing 2nd power */
8051     d__1 = y[7];
8052     dc[i__ * 17 - 9] = dy[i__ * 17 - 11] - (y[7] * dy[i__ * 17 - 11] - y[
8053         6] * dy[i__ * 17 - 10]) * .0663 / (d__1 * d__1);
8054 /* Computing 2nd power */
8055     d__1 = c__[8];
8056     dy[i__ * 17 - 9] = dc[i__ * 17 - 9] * -96.82 / (d__1 * d__1) + dy[i__
8057         * 17 - 17] * .321;
8058 /* L38: */
8059     dy[i__ * 17 - 8] = dy[i__ * 17 - 13] * 1.29 + dy[i__ * 17 - 14] *
8060         1.258 + dy[i__ * 17 - 15] * 2.29 + dy[i__ * 17 - 12] * 1.71;
8061     }
8062     dy[10] = 1.71 - dy[3] * .452 + dy[2] * .58;
8063     for (i__ = 2; i__ <= 5; ++i__) {
8064 /* L39: */
8065     dy[i__ * 17 - 7] = dy[i__ * 17 - 14] * -.452 + dy[i__ * 17 - 15] *
8066         .58;
8067     }
8068     dc[10] = (y[1] + l2_4.x[0] * dy[1]) * 1.74125;
8069     for (i__ = 2; i__ <= 5; ++i__) {
8070 /* L40: */
8071     dc[i__ * 17 - 7] = l2_4.x[0] * 1.74125 * dy[i__ * 17 - 16];
8072     }
8073     for (i__ = 1; i__ <= 5; ++i__) {
8074 /* L41: */
8075     dc[i__ * 17 - 6] = dy[i__ * 17 - 8] * .995;
8076     }
8077 /* Computing 2nd power */
8078     d__1 = c__[11];
8079     dy[11] = c__[9] + l2_4.x[0] * dc[9] + (c__[11] * dc[10] - c__[10] * dc[11]
8080         ) / (d__1 * d__1);
8081     for (i__ = 2; i__ <= 5; ++i__) {
8082 /* L42: */
8083 /* Computing 2nd power */
8084     d__1 = c__[11];
8085     dy[i__ * 17 - 6] = (c__[11] * dc[i__ * 17 - 7] - c__[10] * dc[i__ *
8086         17 - 6]) / (d__1 * d__1);
8087     }
8088     for (i__ = 1; i__ <= 5; ++i__) {
8089 /* L43: */
8090     dy[i__ * 17 - 5] = dc[i__ * 17 - 6] - dy[i__ * 17 - 16] * 1.75;
8091     }
8092 /* Computing 2nd power */
8093     d__1 = v4;
8094     v7 = -146312. / (d__1 * d__1);
8095     dy[13] = v7 * dy[8];
8096     dy[30] = v7 * dy[25] + 64.4;
8097     dy[47] = v7 * dy[42] + 58.4;
8098     dy[64] = v7 * dy[59];
8099     dy[81] = v7 * (dy[76] + 1.);
8100     for (i__ = 1; i__ <= 5; ++i__) {
8101 /* L44: */
8102     dc[i__ * 17 - 5] = dy[i__ * 17 - 8] * .995 - dy[i__ * 17 - 4] * .1121;
8103     }
8104     dc[29] += 60.8;
8105     dc[63] += 48.;
8106     for (i__ = 1; i__ <= 5; ++i__) {
8107 /* Computing 2nd power */
8108     d__1 = c__[12];
8109     dy[i__ * 17 - 3] = (c__[12] * dy[i__ * 17 - 5] - y[12] * dc[i__ * 17
8110         - 5]) / (d__1 * d__1);
8111     dy[i__ * 17 - 2] = dy[i__ * 17 - 3] * -3.31e5 + dy[i__ * 17 - 5] *
8112         40. - (y[14] * dy[i__ * 17 - 5] + y[12] * dy[i__ * 17 - 3]) *
8113         61.;
8114     dc[i__ * 17 - 4] = dy[i__ * 17 - 8] * 2324. - dy[i__ * 17 - 16] *
8115         2.874e7;
8116 /* Computing 2nd power */
8117     d__1 = c__[11];
8118     dy[i__ * 17 - 1] = dy[i__ * 17 - 8] * -1328. - dy[i__ * 17 - 7] *
8119         531. + (c__[11] * dc[i__ * 17 - 4] - c__[13] * dc[i__ * 17 -
8120         6]) / (d__1 * d__1);
8121 /* Computing 2nd power */
8122     d__1 = y[14];
8123     dc[i__ * 17 - 3] = (y[14] * dy[i__ * 17 - 5] - y[12] * dy[i__ * 17 -
8124         3]) / (d__1 * d__1) - dy[i__ * 17 - 5] / .52;
8125 /* L45: */
8126     dc[i__ * 17 - 2] = dy[i__ * 17 - 3] * -.72;
8127     }
8128     for (i__ = 1; i__ <= 4; ++i__) {
8129 /* L46: */
8130     dc[i__ * 17 - 1] = dy[i__ * 17 - 9];
8131     }
8132     dc[84] = dy[76] + 1.;
8133     switch ((int)*mode) {
8134     case 1:  goto labelL1;
8135     case 2:  goto labelL2;
8136     case 3:  goto labelL3;
8137     case 4:  goto labelL4;
8138     case 5:  goto labelL5;
8139     }
8140 labelL2:
8141     l6_1.fx = -(y[16] * 5.843e-7 - y[13] * 1.17e-4 - .1365 - y[12] * 2.358e-5
8142         - y[15] * 1.502e-6 - y[11] * .0321 - y[4] * .004324 - c__[14] *
8143         1e-4 / c__[15] - y[1] * 37.48 / c__[11]);
8144     return 0;
8145 labelL3:
8146     for (i__ = 1; i__ <= 5; ++i__) {
8147 /* Computing 2nd power */
8148     d__1 = c__[15];
8149 /* Computing 2nd power */
8150     d__2 = c__[11];
8151     l4_4.gf[i__ - 1] = dy[i__ * 17 - 1] * -5.843e-7 + dy[i__ * 17 - 4] *
8152         1.17e-4 + dy[i__ * 17 - 5] * 2.358e-5 + dy[i__ * 17 - 2] *
8153         1.502e-6 + dy[i__ * 17 - 6] * .0321 + dy[i__ * 17 - 13] *
8154         .004324 + (c__[15] * dc[i__ * 17 - 3] - c__[14] * dc[i__ * 17
8155         - 2]) * 1e-4 / (d__1 * d__1) + (c__[11] * dy[i__ * 17 - 16] -
8156         y[1] * dc[i__ * 17 - 6]) * 37.48 / (d__2 * d__2);
8157 /* L47: */
8158     }
8159     return 0;
8160 labelL4:
8161     if (l9_9.index1[0]) {
8162     l3_8.g[0] = l2_4.x[1] * 1.5 - l2_4.x[2];
8163     }
8164     if (l9_9.index1[1]) {
8165     l3_8.g[1] = y[0] - 213.1;
8166     }
8167     if (l9_9.index1[2]) {
8168     l3_8.g[2] = 405.23 - y[0];
8169     }
8170     for (i__ = 1; i__ <= 16; ++i__) {
8171     if (l9_9.index1[i__ + 2]) {
8172         l3_8.g[i__ + 2] = y[i__] - a[i__];
8173     }
8174     if (l9_9.index1[i__ + 18]) {
8175         l3_8.g[i__ + 18] = b[i__] - y[i__];
8176     }
8177 /* L50: */
8178     }
8179     if (l9_9.index1[35]) {
8180     l3_8.g[35] = y[3] - y[4] * .28 / .72;
8181     }
8182     if (l9_9.index1[36]) {
8183     l3_8.g[36] = 21. - y[1] * 3496. / c__[11];
8184     }
8185     if (l9_9.index1[37]) {
8186     l3_8.g[37] = 62212. / c__[16] - 110.6 - y[0];
8187     }
8188     return 0;
8189 labelL5:
8190     for (i__ = 1; i__ <= 16; ++i__) {
8191     if (! l10_9.index2[i__ + 2]) {
8192         goto L52;
8193     }
8194     for (j = 1; j <= 5; ++j) {
8195 /* L51: */
8196         l5_15.gg[i__ + 3 + j * 38 - 39] = dy[i__ + 1 + j * 17 - 18];
8197     }
8198 L52:
8199     if (! l10_9.index2[i__ + 18]) {
8200         goto L54;
8201     }
8202     for (j = 1; j <= 5; ++j) {
8203 /* L53: */
8204         l5_15.gg[i__ + 19 + j * 38 - 39] = -dy[i__ + 1 + j * 17 - 18];
8205     }
8206 L54:
8207     ;
8208     }
8209     if (! l10_9.index2[35]) {
8210     goto L56;
8211     }
8212     for (j = 1; j <= 5; ++j) {
8213 /* L55: */
8214     l5_15.gg[j * 38 - 3] = dy[j * 17 - 14] - dy[j * 17 - 13] * .28 / .72;
8215     }
8216 L56:
8217     if (! l10_9.index2[36]) {
8218     goto L58;
8219     }
8220     for (j = 1; j <= 5; ++j) {
8221 /* L57: */
8222 /* Computing 2nd power */
8223     d__1 = c__[11];
8224     l5_15.gg[j * 38 - 2] = (c__[11] * dy[j * 17 - 16] - y[1] * dc[j * 17
8225         - 6]) * -3496. / (d__1 * d__1);
8226     }
8227 L58:
8228     if (! l10_9.index2[37]) {
8229     goto L60;
8230     }
8231     for (j = 1; j <= 5; ++j) {
8232 /* L59: */
8233 /* Computing 2nd power */
8234     d__1 = c__[16];
8235     l5_15.gg[j * 38 - 1] = dc[j * 17 - 1] * -62212. / (d__1 * d__1) - dy[
8236         j * 17 - 17];
8237     }
8238 L60:
8239     return 0;
8240 } /* tp85_ */
8241 
8242 
tp86_(int * mode)8243 /* Subroutine */ int tp86_(int *mode)
8244 {
8245     /* System generated locals */
8246     Real d__1;
8247 
8248     /* Local variables */
8249     static Real a[50]    /* was [10][5] */, b[10], c__[25]    /*
8250         was [5][5] */, d__[5], e[5];
8251     static int i__, j;
8252     static Real t;
8253     static int i1;
8254     static Real t1;
8255 
8256     switch ((int)*mode) {
8257     case 1:  goto labelL1;
8258     case 2:  goto labelL2;
8259     case 3:  goto labelL3;
8260     case 4:  goto labelL4;
8261     case 5:  goto labelL5;
8262     }
8263 labelL1:
8264     l1_1.n = 5;
8265     l1_1.nili = 10;
8266     l1_1.ninl = 0;
8267     l1_1.neli = 0;
8268     l1_1.nenl = 0;
8269     for (i__ = 1; i__ <= 4; ++i__) {
8270 /* L26: */
8271     l2_4.x[i__ - 1] = 0.;
8272     }
8273     l2_4.x[4] = 1.;
8274     for (i__ = 1; i__ <= 5; ++i__) {
8275     l11_4.lxl[i__ - 1] = true;
8276     l12_4.lxu[i__ - 1] = false;
8277 /* labelL6: */
8278     l13_4.xl[i__ - 1] = 0.;
8279     }
8280     e[0] = -15.;
8281     e[1] = -27.;
8282     e[2] = -36.;
8283     e[3] = -18.;
8284     e[4] = -12.;
8285     c__[0] = 30.;
8286     c__[5] = -20.;
8287     c__[10] = -10.;
8288     c__[15] = 32.;
8289     c__[20] = -10.;
8290     c__[6] = 39.;
8291     c__[11] = -6.;
8292     c__[16] = -31.;
8293     c__[21] = 32.;
8294     c__[12] = 10.;
8295     c__[17] = -6.;
8296     c__[22] = -10.;
8297     c__[18] = 39.;
8298     c__[23] = -20.;
8299     c__[24] = 30.;
8300     for (i__ = 1; i__ <= 4; ++i__) {
8301     i1 = i__ + 1;
8302     for (j = i1; j <= 5; ++j) {
8303 /* L27: */
8304         c__[j + i__ * 5 - 6] = c__[i__ + j * 5 - 6];
8305     }
8306     }
8307     d__[0] = 4.;
8308     d__[1] = 8.;
8309     d__[2] = 10.;
8310     d__[3] = 6.;
8311     d__[4] = 2.;
8312     a[0] = -16.;
8313     a[10] = 2.;
8314     a[20] = 0.;
8315     a[30] = 1.;
8316     a[40] = 0.;
8317     a[1] = 0.;
8318     a[11] = -2.;
8319     a[21] = 0.;
8320     a[31] = .4;
8321     a[41] = 2.;
8322     a[2] = -3.5;
8323     a[12] = 0.;
8324     a[22] = 2.;
8325     a[32] = 0.;
8326     a[42] = 0.;
8327     a[3] = 0.;
8328     a[13] = -2.;
8329     a[23] = 0.;
8330     a[33] = -4.;
8331     a[43] = -1.;
8332     a[4] = 0.;
8333     a[14] = -9.;
8334     a[24] = -2.;
8335     a[34] = 1.;
8336     a[44] = -2.8;
8337     a[5] = 2.;
8338     a[15] = 0.;
8339     a[25] = -4.;
8340     a[35] = 0.;
8341     a[45] = 0.;
8342     a[7] = -1.;
8343     a[17] = -2.;
8344     a[27] = -3.;
8345     a[37] = -2.;
8346     a[47] = -1.;
8347     for (i__ = 1; i__ <= 5; ++i__) {
8348     a[i__ * 10 - 4] = -1.;
8349     a[i__ * 10 - 2] = (Real) i__;
8350 /* L29: */
8351     a[i__ * 10 - 1] = 1.;
8352     }
8353     b[0] = -40.;
8354     b[1] = -2.;
8355     b[2] = -.25;
8356     b[3] = -4.;
8357     b[4] = -4.;
8358     b[5] = -1.;
8359     b[6] = -40.;
8360     b[7] = -60.;
8361     b[8] = 5.;
8362     b[9] = 1.;
8363     for (i__ = 1; i__ <= 10; ++i__) {
8364     for (j = 1; j <= 5; ++j) {
8365 /* L25: */
8366         l5_16.gg[i__ + j * 10 - 11] = a[i__ + j * 10 - 11];
8367     }
8368     }
8369     l20_7.lex = false;
8370     l20_7.xex[0] = .299999999948;
8371     l20_7.xex[1] = .333467606492;
8372     l20_7.xex[2] = .400000000107;
8373     l20_7.xex[3] = .42831010474;
8374     l20_7.xex[4] = .223964873676;
8375     l20_7.fex = -32.3486789716;
8376     return 0;
8377 labelL2:
8378     t = 0.;
8379     for (i__ = 1; i__ <= 5; ++i__) {
8380     t1 = 0.;
8381     for (j = 1; j <= 5; ++j) {
8382 /* L21: */
8383         t1 += c__[j + i__ * 5 - 6] * l2_4.x[i__ - 1] * l2_4.x[j - 1];
8384     }
8385 /* labelL20: */
8386 /* Computing 3rd power */
8387     d__1 = l2_4.x[i__ - 1];
8388     t = t + e[i__ - 1] * l2_4.x[i__ - 1] + d__[i__ - 1] * (d__1 * (d__1 *
8389         d__1)) + t1;
8390     }
8391     l6_1.fx = t;
8392     return 0;
8393 labelL3:
8394     for (i__ = 1; i__ <= 5; ++i__) {
8395     t = 0.;
8396     for (j = 1; j <= 5; ++j) {
8397 /* L22: */
8398         t += (c__[i__ + j * 5 - 6] + c__[j + i__ * 5 - 6]) * l2_4.x[j - 1]
8399             ;
8400     }
8401 /* L23: */
8402 /* Computing 2nd power */
8403     d__1 = l2_4.x[i__ - 1];
8404     l4_4.gf[i__ - 1] = e[i__ - 1] + t + d__[i__ - 1] * 3. * (d__1 * d__1);
8405     }
8406     return 0;
8407 labelL4:
8408     for (i__ = 1; i__ <= 10; ++i__) {
8409 /* L24: */
8410     if (l9_10.index1[i__ - 1]) {
8411         l3_9.g[i__ - 1] = a[i__ - 1] * l2_4.x[0] + a[i__ + 9] * l2_4.x[1]
8412             + a[i__ + 19] * l2_4.x[2] + a[i__ + 29] * l2_4.x[3] + a[
8413             i__ + 39] * l2_4.x[4] - b[i__ - 1];
8414     }
8415     }
8416 labelL5:
8417     return 0;
8418 } /* tp86_ */
8419 
8420 
tp87_(int * mode)8421 /* Subroutine */ int tp87_(int *mode)
8422 {
8423     /* System generated locals */
8424     Real d__1;
8425 
8426     /* Local variables */
8427     static Real a, b, c__, d__, e;
8428     static int i__;
8429     static Real f1, f2, v1, v2, v3, v4, v5;
8430 
8431     switch ((int)*mode) {
8432     case 1:  goto labelL1;
8433     case 2:  goto labelL2;
8434     case 3:  goto labelL3;
8435     case 4:  goto labelL4;
8436     case 5:  goto labelL5;
8437     }
8438 labelL1:
8439     l1_1.n = 6;
8440     l1_1.nili = 0;
8441     l1_1.ninl = 0;
8442     l1_1.neli = 0;
8443     l1_1.nenl = 4;
8444     l2_5.x[0] = 390.;
8445     l2_5.x[1] = 1e3;
8446     l2_5.x[2] = 419.5;
8447     l2_5.x[3] = 340.5;
8448     l2_5.x[4] = 198.175;
8449     l2_5.x[5] = .5;
8450     for (i__ = 1; i__ <= 6; ++i__) {
8451     l11_5.lxl[i__ - 1] = true;
8452 /* labelL6: */
8453     l12_5.lxu[i__ - 1] = true;
8454     }
8455     l13_5.xl[0] = 0.;
8456     l13_5.xl[1] = 0.;
8457     l13_5.xl[2] = 340.;
8458     l13_5.xl[3] = 340.;
8459     l13_5.xl[4] = -1e3;
8460     l13_5.xl[5] = 0.;
8461     l14_5.xu[0] = 400.;
8462     l14_5.xu[1] = 1e3;
8463     l14_5.xu[2] = 420.;
8464     l14_5.xu[3] = 420.;
8465     l14_5.xu[4] = 1e3;
8466     l14_5.xu[5] = .5236;
8467     a = 131.078;
8468     b = 1.48477;
8469     c__ = .90798;
8470     d__ =std::cos(1.47588);
8471     e = std::sin(1.47588);
8472     for (i__ = 3; i__ <= 6; ++i__) {
8473 /* L70: */
8474     l4_5.gf[i__ - 1] = 0.;
8475     }
8476     l5_8.gg[0] = -1.;
8477     l5_8.gg[4] = 0.;
8478     l5_8.gg[16] = 0.;
8479     l5_8.gg[1] = 0.;
8480     l5_8.gg[5] = -1.;
8481     l5_8.gg[17] = 0.;
8482     l5_8.gg[2] = 0.;
8483     l5_8.gg[6] = 0.;
8484     l5_8.gg[18] = -1.;
8485     l5_8.gg[3] = 0.;
8486     l5_8.gg[7] = 0.;
8487     l5_8.gg[19] = 0.;
8488     l20_4.lex = false;
8489     l20_4.xex[0] = 107.811937779;
8490     l20_4.xex[1] = 196.318606955;
8491     l20_4.xex[2] = 373.830728516;
8492     l20_4.xex[3] = 420.;
8493     l20_4.xex[4] = 21.3071293896;
8494     l20_4.xex[5] = .153291953422;
8495     l20_4.fex = 8927.59773493;
8496     return 0;
8497 labelL2:
8498     if (l2_5.x[0] - 300. >= 0.) {
8499     goto L32;
8500     } else {
8501     goto L31;
8502     }
8503 L31:
8504     f1 = l2_5.x[0] * 30.;
8505     goto L33;
8506 L32:
8507     f1 = l2_5.x[0] * 31.;
8508 L33:
8509     if (l2_5.x[1] - 100. >= 0.) {
8510     goto L35;
8511     } else {
8512     goto L34;
8513     }
8514 L34:
8515     f2 = l2_5.x[1] * 28.;
8516     goto L46;
8517 L35:
8518     if (l2_5.x[1] - 200. >= 0.) {
8519     goto L37;
8520     } else {
8521     goto L36;
8522     }
8523 L36:
8524     f2 = l2_5.x[1] * 29.;
8525     goto L46;
8526 L37:
8527     f2 = l2_5.x[1] * 30.;
8528 L46:
8529     l6_1.fx = f1 + f2;
8530     return 0;
8531 labelL3:
8532     if (l2_5.x[0] - 300. >= 0.) {
8533     goto L39;
8534     } else {
8535     goto L38;
8536     }
8537 L38:
8538     l4_5.gf[0] = 30.;
8539     goto L40;
8540 L39:
8541     l4_5.gf[0] = 31.;
8542 L40:
8543     if (l2_5.x[1] - 100. >= 0.) {
8544     goto L42;
8545     } else {
8546     goto L41;
8547     }
8548 L41:
8549     l4_5.gf[1] = 28.;
8550     goto L45;
8551 L42:
8552     if (l2_5.x[1] - 200. >= 0.) {
8553     goto L44;
8554     } else {
8555     goto L43;
8556     }
8557 L43:
8558     l4_5.gf[1] = 29.;
8559     goto L45;
8560 L44:
8561     l4_5.gf[1] = 30.;
8562 L45:
8563     return 0;
8564 labelL4:
8565     if (l9_7.index1[0]) {
8566 /* Computing 2nd power */
8567     d__1 = l2_5.x[2];
8568     l3_6.g[0] = -l2_5.x[0] + 300. - l2_5.x[2] * l2_5.x[3] / a *std::cos(b -
8569         l2_5.x[5]) + c__ * (d__1 * d__1) / a * d__;
8570     }
8571     if (l9_7.index1[1]) {
8572 /* Computing 2nd power */
8573     d__1 = l2_5.x[3];
8574     l3_6.g[1] = -l2_5.x[1] - l2_5.x[2] * l2_5.x[3] / a *std::cos(b + l2_5.x[5]
8575         ) + c__ * (d__1 * d__1) / a * d__;
8576     }
8577     if (l9_7.index1[2]) {
8578 /* Computing 2nd power */
8579     d__1 = l2_5.x[3];
8580     l3_6.g[2] = -l2_5.x[4] - l2_5.x[2] * l2_5.x[3] / a * std::sin(b + l2_5.x[5]
8581         ) + c__ * (d__1 * d__1) / a * e;
8582     }
8583     if (l9_7.index1[3]) {
8584 /* Computing 2nd power */
8585     d__1 = l2_5.x[2];
8586     l3_6.g[3] = 200. - l2_5.x[2] * l2_5.x[3] / a * std::sin(b - l2_5.x[5]) +
8587         c__ * (d__1 * d__1) / a * e;
8588     }
8589     return 0;
8590 labelL5:
8591     v1 = 1. / a;
8592     if (! (l10_7.index2[0] || l10_7.index2[3])) {
8593     goto L8;
8594     }
8595     v2 = b - l2_5.x[5];
8596     v3 =std::cos(v2) * v1;
8597     v4 = std::sin(v2) * v1;
8598     v5 = c__ * 2. * l2_5.x[2] * v1;
8599     if (! l10_7.index2[0]) {
8600     goto L7;
8601     }
8602     l5_8.gg[8] = -l2_5.x[3] * v3 + v5 * d__;
8603     l5_8.gg[12] = -l2_5.x[2] * v3;
8604     l5_8.gg[20] = -l2_5.x[2] * l2_5.x[3] * v4;
8605 L7:
8606     if (! l10_7.index2[3]) {
8607     goto L8;
8608     }
8609     l5_8.gg[11] = -l2_5.x[3] * v4 + v5 * e;
8610     l5_8.gg[15] = -l2_5.x[2] * v4;
8611     l5_8.gg[23] = l2_5.x[2] * l2_5.x[3] * v3;
8612 L8:
8613     if (! (l10_7.index2[1] || l10_7.index2[2])) {
8614     goto labelL10;
8615     }
8616     v2 = b + l2_5.x[5];
8617     v3 =std::cos(v2) * v1;
8618     v4 = std::sin(v2) * v1;
8619     v5 = c__ * 2. * l2_5.x[3] * v1;
8620     if (! l10_7.index2[1]) {
8621     goto labelL9;
8622     }
8623     l5_8.gg[9] = -l2_5.x[3] * v3;
8624     l5_8.gg[13] = -l2_5.x[2] * v3 + v5 * d__;
8625     l5_8.gg[21] = l2_5.x[2] * l2_5.x[3] * v4;
8626 labelL9:
8627     if (! l10_7.index2[2]) {
8628     goto labelL10;
8629     }
8630     l5_8.gg[10] = -l2_5.x[3] * v4;
8631     l5_8.gg[14] = -l2_5.x[2] * v4 + v5 * e;
8632     l5_8.gg[22] = -l2_5.x[2] * l2_5.x[3] * v3;
8633 labelL10:
8634     return 0;
8635 } /* tp87_ */
8636 
8637 
tp88_0_(int n__,int * mode)8638 /* Subroutine */ int tp88_0_(int n__, int *mode)
8639 {
8640     /* System generated locals */
8641     int i__1, i__2;
8642     Real d__1;
8643 
8644     int pow_ii(int*, int*);
8645 
8646     /* Local variables */
8647     static Real a[30];
8648     static int i__, j;
8649     static Real t[6], u, w, z__, a1, intko;
8650     static int n1;
8651     static Real v1, v2, v3, pi, dv[6];
8652     Real gleich_(Real *);
8653     static Real dz[6];
8654     static Real dcosko[30];
8655     static Real ep1;
8656     static int kn1;
8657     static Real mue[30], rho[30];
8658 
8659     switch(n__) {
8660     case 1: goto L_tp89;
8661     case 2: goto L_tp90;
8662     case 3: goto L_tp91;
8663     case 4: goto L_tp92;
8664     }
8665 
8666     kn1 = 1;
8667     l20_4.xex[0] = 1.0743187294;
8668     l20_4.xex[1] = -.456613707247;
8669     l20_4.fex = 1.36265680997;
8670     goto L7;
8671 
8672 L_tp89:
8673     kn1 = 2;
8674     l20_4.xex[0] = 1.07431872754;
8675     l20_4.xex[1] = -.456613706239;
8676     l20_4.xex[2] = 3.00836097604e-11;
8677     l20_4.fex = 1.36265680508;
8678     goto L7;
8679 
8680 L_tp90:
8681     kn1 = 3;
8682     l20_4.xex[0] = .708479399007;
8683     l20_4.xex[1] = 2.37919269592e-5;
8684     l20_4.xex[2] = .807599939006;
8685     l20_4.xex[3] = -.456613723294;
8686     l20_4.fex = 1.36265681317;
8687     goto L7;
8688 
8689 L_tp91:
8690     kn1 = 4;
8691     l20_4.xex[0] = .701892928031;
8692     l20_4.xex[1] = 2.21084326516e-12;
8693     l20_4.xex[2] = .813330836201;
8694     l20_4.xex[3] = .456613707134;
8695     l20_4.xex[4] = 8.99937588382e-12;
8696     l20_4.fex = 1.3626568091;
8697     goto L7;
8698 
8699 L_tp92:
8700     kn1 = 5;
8701     l20_4.xex[0] = .494144465323;
8702     l20_4.xex[1] = -1.03530473697e-5;
8703     l20_4.xex[2] = .61495083955;
8704     l20_4.xex[3] = -2.42186612731e-6;
8705     l20_4.xex[4] = .729258528936;
8706     l20_4.xex[5] = -.456613099133;
8707     l20_4.fex = 1.36265681213;
8708 L7:
8709     if (*mode - 2 >= 0) {
8710     goto L17;
8711     } else {
8712     goto labelL1;
8713     }
8714 labelL1:
8715     l1_1.n = kn1 + 1;
8716     l1_1.nili = 0;
8717     l1_1.ninl = 1;
8718     l1_1.neli = 0;
8719     l1_1.nenl = 0;
8720     for (i__ = 1; i__ <= 3; ++i__) {
8721     l2_5.x[(i__ << 1) - 2] = .5;
8722 /* labelL11: */
8723     l2_5.x[(i__ << 1) - 1] = -.5;
8724     }
8725     for (i__ = 1; i__ <= 6; ++i__) {
8726     l11_5.lxl[i__ - 1] = true;
8727     l12_5.lxu[i__ - 1] = true;
8728     l13_5.xl[i__ - 1] = -10.;
8729 /* labelL6: */
8730     l14_5.xu[i__ - 1] = 10.;
8731     }
8732     pi = std::atan(1.) * 4.;
8733     for (i__ = 1; i__ <= 30; ++i__) {
8734     z__ = pi * (Real) (i__ - 1);
8735     mue[i__ - 1] = gleich_(&z__);
8736     v1 = std::sin(mue[i__ - 1]);
8737     v2 =std::cos(mue[i__ - 1]);
8738 /* Computing 2nd power */
8739     d__1 = mue[i__ - 1];
8740     dcosko[i__ - 1] = (v1 / mue[i__ - 1] - v2) / (d__1 * d__1);
8741 /* labelL10: */
8742     a[i__ - 1] = v1 * 2. / (mue[i__ - 1] + v1 * v2);
8743     }
8744     intko = .13333333333333333;
8745     l20_4.lex = false;
8746     return 0;
8747 L17:
8748     if (*mode - 4 >= 0) {
8749     goto L18;
8750     } else {
8751     goto L19;
8752     }
8753 L18:
8754     n1 = l1_1.n - 1;
8755 /* Computing 2nd power */
8756     d__1 = l2_5.x[l1_1.n - 1];
8757     t[l1_1.n - 1] = d__1 * d__1;
8758     i__1 = n1;
8759     for (i__ = 1; i__ <= i__1; ++i__) {
8760 /* L8: */
8761 /* Computing 2nd power */
8762     d__1 = l2_5.x[l1_1.n - i__ - 1];
8763     t[l1_1.n - i__ - 1] = t[l1_1.n - i__] + d__1 * d__1;
8764     }
8765     v1 = 0.;
8766     for (j = 1; j <= 30; ++j) {
8767     v2 = mue[j - 1];
8768 /* Computing 2nd power */
8769     d__1 = v2;
8770     v3 = -(d__1 * d__1);
8771     rho[j - 1] = (Real) pow_ii(&c_n1, &l1_1.n);
8772     i__1 = n1;
8773     for (i__ = 1; i__ <= i__1; ++i__) {
8774         ep1 = 0.;
8775         a1 = v3 * t[l1_1.n + 1 - i__ - 1];
8776         if (a1 > -100.) {
8777         ep1 = std::exp(a1);
8778         }
8779 /* labelL14: */
8780         i__2 = l1_1.n - i__;
8781         rho[j - 1] += (Real) pow_ii(&c_n1, &i__2) * 2. * ep1;
8782     }
8783     ep1 = 0.;
8784     a1 = v3 * t[0];
8785     if (a1 > -100.) {
8786         ep1 = std::exp(a1);
8787     }
8788     rho[j - 1] = (rho[j - 1] + ep1) / v3;
8789 /* labelL13: */
8790     v1 -= v3 * a[j - 1] * rho[j - 1] * (v2 * std::sin(v2) * rho[j - 1] -
8791         dcosko[j - 1] * 2.);
8792     }
8793 L19:
8794     switch ((int)*mode) {
8795     case 1:  goto labelL1;
8796     case 2:  goto labelL2;
8797     case 3:  goto labelL3;
8798     case 4:  goto labelL4;
8799     case 5:  goto labelL5;
8800     }
8801 labelL2:
8802     u = 0.;
8803     i__2 = l1_1.n;
8804     for (i__ = 1; i__ <= i__2; ++i__) {
8805 /* labelL20: */
8806 /* Computing 2nd power */
8807     d__1 = l2_5.x[i__ - 1];
8808     u += d__1 * d__1;
8809     }
8810     l6_1.fx = u;
8811     return 0;
8812 labelL3:
8813     i__2 = l1_1.n;
8814     for (i__ = 1; i__ <= i__2; ++i__) {
8815 /* L21: */
8816     l4_5.gf[i__ - 1] = l2_5.x[i__ - 1] * 2.;
8817     }
8818     return 0;
8819 labelL4:
8820     l3_1.g[0] = 1e-4 - v1 - intko;
8821     return 0;
8822 labelL5:
8823     i__2 = l1_1.n;
8824     for (i__ = 1; i__ <= i__2; ++i__) {
8825 /* L22: */
8826     dv[i__ - 1] = 0.;
8827     }
8828     for (j = 1; j <= 30; ++j) {
8829     w = mue[j - 1];
8830 /* Computing 2nd power */
8831     d__1 = w;
8832     v1 = d__1 * d__1 * a[j - 1] * (w * std::sin(w) * rho[j - 1] - dcosko[j - 1]
8833         );
8834     ep1 = 0.;
8835 /* Computing 2nd power */
8836     d__1 = mue[j - 1];
8837     a1 = -(d__1 * d__1) * t[0];
8838     if (a1 > -100.) {
8839         ep1 = std::exp(a1);
8840     }
8841     dz[0] = ep1;
8842     dv[0] += dz[0] * v1;
8843     i__2 = l1_1.n;
8844     for (i__ = 2; i__ <= i__2; ++i__) {
8845         ep1 = 0.;
8846 /* Computing 2nd power */
8847         d__1 = mue[j - 1];
8848         a1 = -(d__1 * d__1) * t[i__ - 1];
8849         if (a1 > -100.) {
8850         ep1 = std::exp(a1);
8851         }
8852         i__1 = i__ + 1;
8853         dz[i__ - 1] = dz[i__ - 2] + (Real) pow_ii(&c_n1, &i__1) *
8854             2. * ep1;
8855 /* L23: */
8856         dv[i__ - 1] += dz[i__ - 1] * v1;
8857     }
8858 /* L25: */
8859     }
8860     i__2 = l1_1.n;
8861     for (i__ = 1; i__ <= i__2; ++i__) {
8862 /* L24: */
8863     l5_3.gg[i__ - 1] = dv[i__ - 1] * -4. * l2_5.x[i__ - 1];
8864     }
8865     return 0;
8866 } /* tp88_ */
8867 
tp88_(int * mode)8868 /* Subroutine */ int tp88_(int *mode)
8869 {
8870     return tp88_0_(0, mode);
8871     }
8872 
tp89_(int * mode)8873 /* Subroutine */ int tp89_(int *mode)
8874 {
8875     return tp88_0_(1, mode);
8876     }
8877 
tp90_(int * mode)8878 /* Subroutine */ int tp90_(int *mode)
8879 {
8880     return tp88_0_(2, mode);
8881     }
8882 
tp91_(int * mode)8883 /* Subroutine */ int tp91_(int *mode)
8884 {
8885     return tp88_0_(3, mode);
8886     }
8887 
tp92_(int * mode)8888 /* Subroutine */ int tp92_(int *mode)
8889 {
8890     return tp88_0_(4, mode);
8891     }
8892 
8893 
tp93_(int * mode)8894 /* Subroutine */ int tp93_(int *mode)
8895 {
8896     /* System generated locals */
8897     Real d__1, d__2;
8898 
8899     /* Local variables */
8900     static int i__;
8901     static Real v1, v2, v3, v4, v5, v6, v7, v8, v9;
8902 
8903     switch ((int)*mode) {
8904     case 1:  goto labelL1;
8905     case 2:  goto labelL2;
8906     case 3:  goto labelL3;
8907     case 4:  goto labelL4;
8908     case 5:  goto labelL5;
8909     }
8910 labelL1:
8911     l1_1.n = 6;
8912     l1_1.nili = 0;
8913     l1_1.ninl = 2;
8914     l1_1.neli = 0;
8915     l1_1.nenl = 0;
8916     l2_5.x[0] = 5.54;
8917     l2_5.x[1] = 4.4;
8918     l2_5.x[2] = 12.02;
8919     l2_5.x[3] = 11.82;
8920     l2_5.x[4] = .702;
8921     l2_5.x[5] = .852;
8922     for (i__ = 1; i__ <= 6; ++i__) {
8923     l11_5.lxl[i__ - 1] = true;
8924     l12_5.lxu[i__ - 1] = false;
8925 /* labelL6: */
8926     l13_5.xl[i__ - 1] = 0.;
8927     }
8928     l20_4.lex = false;
8929     l20_4.xex[0] = 5.33266639884;
8930     l20_4.xex[1] = 4.65674439073;
8931     l20_4.xex[2] = 10.4329901123;
8932     l20_4.xex[3] = 12.0823085893;
8933     l20_4.xex[4] = .752607369745;
8934     l20_4.xex[5] = .87865083685;
8935     l20_4.fex = 135.075961229;
8936     return 0;
8937 labelL2:
8938     v1 = l2_5.x[0] + l2_5.x[1] + l2_5.x[2];
8939     v2 = l2_5.x[0] + l2_5.x[1] * 1.57 + l2_5.x[3];
8940     v3 = l2_5.x[0] * l2_5.x[3];
8941     v4 = l2_5.x[2] * l2_5.x[1];
8942 /* Computing 2nd power */
8943     d__1 = l2_5.x[4];
8944 /* Computing 2nd power */
8945     d__2 = l2_5.x[5];
8946     l6_1.fx = v3 * .0204 * v1 + v4 * .0187 * v2 + v3 * .0607 * v1 * (d__1 *
8947         d__1) + v4 * .0437 * v2 * (d__2 * d__2);
8948     return 0;
8949 labelL3:
8950     v1 = l2_5.x[0] * l2_5.x[3];
8951     v2 = l2_5.x[1] * l2_5.x[2];
8952     v3 = l2_5.x[1] + l2_5.x[2];
8953     v4 = l2_5.x[0] + l2_5.x[3];
8954     v5 = v3 + l2_5.x[0];
8955     v6 = l2_5.x[1] * 1.57 + v4;
8956 /* Computing 2nd power */
8957     d__1 = l2_5.x[4];
8958     v7 = l2_5.x[3] * (d__1 * d__1);
8959 /* Computing 2nd power */
8960     d__1 = l2_5.x[5];
8961     v8 = l2_5.x[2] * (d__1 * d__1);
8962     v9 = l2_5.x[0] * .0607 * v7;
8963     l4_5.gf[0] = v1 * .0408 + l2_5.x[3] * .0204 * v3 + v2 * .0187 + v9 * 2. +
8964         v7 * .0607 * v3 + l2_5.x[1] * .0437 * v8;
8965     l4_5.gf[1] = v1 * .0204 + v2 * .058718 + l2_5.x[2] * .0187 * v4 + v9 +
8966         l2_5.x[1] * .137218 * v8 + v8 * .0437 * v4;
8967 /* Computing 2nd power */
8968     d__1 = l2_5.x[5];
8969     l4_5.gf[2] = v1 * .0204 + l2_5.x[1] * .0187 * v6 + v9 + l2_5.x[1] * .0437
8970         * (d__1 * d__1) * v6;
8971 /* Computing 2nd power */
8972     d__1 = l2_5.x[4];
8973     l4_5.gf[3] = l2_5.x[0] * .0204 * v5 + v2 * .0187 + l2_5.x[1] * .0437 * v8
8974         + l2_5.x[0] * .0607 * (d__1 * d__1) * v5;
8975     l4_5.gf[4] = v1 * .1214 * l2_5.x[4] * v5;
8976     l4_5.gf[5] = l2_5.x[5] * .0874 * v2 * v6;
8977     return 0;
8978 labelL4:
8979     if (l9_3.index1[0]) {
8980     l3_2.g[0] = l2_5.x[0] * .001 * l2_5.x[1] * l2_5.x[2] * l2_5.x[3] *
8981         l2_5.x[4] * l2_5.x[5] - 2.07;
8982     }
8983     if (l9_3.index1[1]) {
8984 /* Computing 2nd power */
8985     d__1 = l2_5.x[4];
8986 /* Computing 2nd power */
8987     d__2 = l2_5.x[5];
8988     l3_2.g[1] = 1. - l2_5.x[0] * 6.2e-4 * l2_5.x[3] * (d__1 * d__1) * (
8989         l2_5.x[0] + l2_5.x[1] + l2_5.x[2]) - l2_5.x[1] * 5.8e-4 *
8990         l2_5.x[2] * (d__2 * d__2) * (l2_5.x[0] + l2_5.x[1] * 1.57 +
8991         l2_5.x[3]);
8992     }
8993     return 0;
8994 labelL5:
8995     if (! l10_3.index2[0]) {
8996     goto L7;
8997     }
8998     v1 = l2_5.x[0] * l2_5.x[1] * l2_5.x[2] * .001;
8999     v2 = l2_5.x[3] * l2_5.x[4] * l2_5.x[5] * .001;
9000     l5_7.gg[0] = l2_5.x[1] * l2_5.x[2] * v2;
9001     l5_7.gg[2] = l2_5.x[0] * l2_5.x[2] * v2;
9002     l5_7.gg[4] = l2_5.x[0] * l2_5.x[1] * v2;
9003     l5_7.gg[6] = l2_5.x[4] * l2_5.x[5] * v1;
9004     l5_7.gg[8] = l2_5.x[3] * l2_5.x[5] * v1;
9005     l5_7.gg[10] = l2_5.x[3] * l2_5.x[4] * v1;
9006 L7:
9007     if (! l10_3.index2[1]) {
9008     goto L8;
9009     }
9010 /* Computing 2nd power */
9011     d__1 = l2_5.x[4];
9012     v1 = -(d__1 * d__1) * 6.2e-4;
9013 /* Computing 2nd power */
9014     d__1 = l2_5.x[5];
9015     v2 = -(d__1 * d__1) * 5.8e-4;
9016     v3 = l2_5.x[0] + l2_5.x[1] + l2_5.x[2];
9017     v4 = l2_5.x[0] + l2_5.x[1] * 1.57 + l2_5.x[3];
9018     v5 = v1 * v3;
9019     v6 = v2 * v4;
9020     v7 = v1 * l2_5.x[0] * l2_5.x[3];
9021     v8 = v2 * l2_5.x[1] * l2_5.x[2];
9022     l5_7.gg[1] = v7 + v5 * l2_5.x[3] + v8;
9023     l5_7.gg[3] = v7 + v6 * l2_5.x[2] + v8 * 1.57;
9024     l5_7.gg[5] = v7 + v6 * l2_5.x[1];
9025     l5_7.gg[7] = v5 * l2_5.x[0] + v8;
9026     l5_7.gg[9] = l2_5.x[0] * -.00124 * l2_5.x[3] * l2_5.x[4] * v3;
9027     l5_7.gg[11] = l2_5.x[1] * -.00116 * l2_5.x[2] * l2_5.x[5] * v4;
9028 L8:
9029     return 0;
9030 } /* tp93_ */
9031 
9032 
tp95_0_(int n__,int * mode)9033 /* Subroutine */ int tp95_0_(int n__, int *mode)
9034 {
9035     /* System generated locals */
9036     int i__1;
9037 
9038     /* Local variables */
9039     static Real b[4];
9040     static int i__, kn1;
9041 
9042     switch(n__) {
9043     case 1: goto L_tp96;
9044     case 2: goto L_tp97;
9045     case 3: goto L_tp98;
9046     }
9047 
9048     kn1 = 1;
9049     l20_4.xex[0] = -4.76149332788e-12;
9050     l20_4.xex[1] = -3.55239427962e-11;
9051     l20_4.xex[2] = -7.02611041315e-11;
9052     l20_4.xex[3] = -1.71856469485e-11;
9053     l20_4.xex[4] = -7.48993551642e-11;
9054     l20_4.xex[5] = .00332330328254;
9055     l20_4.fex = .0156195144282;
9056     goto labelL11;
9057 
9058 L_tp96:
9059     kn1 = 2;
9060     l20_4.xex[0] = -5.19722825686e-12;
9061     l20_4.xex[1] = -3.87748184662e-11;
9062     l20_4.xex[2] = -7.66908552858e-11;
9063     l20_4.xex[3] = -1.87583442974e-11;
9064     l20_4.xex[4] = -8.17535626869e-11;
9065     l20_4.xex[5] = .00332330328612;
9066     l20_4.fex = .0156195134384;
9067     goto labelL11;
9068 
9069 L_tp97:
9070     kn1 = 3;
9071     l20_4.xex[0] = .268564912352;
9072     l20_4.xex[1] = 0.;
9073     l20_4.xex[2] = 0.;
9074     l20_4.xex[3] = 0.;
9075     l20_4.xex[4] = .028;
9076     l20_4.xex[5] = .0134000000001;
9077     l20_4.fex = 3.13580912311;
9078     goto labelL11;
9079 
9080 L_tp98:
9081     kn1 = 4;
9082     l20_4.xex[0] = .268564912323;
9083     l20_4.xex[1] = 0.;
9084     l20_4.xex[2] = 0.;
9085     l20_4.xex[3] = 0.;
9086     l20_4.xex[4] = .028;
9087     l20_4.xex[5] = .0134000000001;
9088     l20_4.fex = 3.13580912299;
9089 labelL11:
9090     switch ((int)*mode) {
9091     case 1:  goto labelL1;
9092     case 2:  goto labelL2;
9093     case 3:  goto labelL3;
9094     case 4:  goto labelL4;
9095     case 5:  goto labelL5;
9096     }
9097 labelL1:
9098     l1_1.n = 6;
9099     l1_1.nili = 0;
9100     l1_1.ninl = 4;
9101     l1_1.neli = 0;
9102     l1_1.nenl = 0;
9103     for (i__ = 1; i__ <= 6; ++i__) {
9104     l2_5.x[i__ - 1] = 0.;
9105     l11_5.lxl[i__ - 1] = true;
9106     l12_5.lxu[i__ - 1] = true;
9107 /* labelL6: */
9108     l13_5.xl[i__ - 1] = 0.;
9109     }
9110     l14_5.xu[0] = .31;
9111     l14_5.xu[1] = .046;
9112     l14_5.xu[2] = .068;
9113     l14_5.xu[3] = .042;
9114     l14_5.xu[4] = .028;
9115     l14_5.xu[5] = .0134;
9116     l4_5.gf[0] = 4.3;
9117     l4_5.gf[1] = 31.8;
9118     l4_5.gf[2] = 63.3;
9119     l4_5.gf[3] = 15.8;
9120     l4_5.gf[4] = 68.5;
9121     l4_5.gf[5] = 4.7;
9122     l5_8.gg[4] = 38.2;
9123     l5_8.gg[5] = 36.8;
9124     l5_8.gg[2] = 0.;
9125     l5_8.gg[6] = -273.;
9126     l5_8.gg[10] = 0.;
9127     l5_8.gg[22] = 0.;
9128     l5_8.gg[7] = -311.;
9129     l5_8.gg[11] = 0.;
9130     l5_8.gg[15] = 587.;
9131     l5_8.gg[19] = 391.;
9132     if (kn1 - 2 <= 0) {
9133     goto labelL20;
9134     } else {
9135     goto L21;
9136     }
9137 labelL20:
9138     b[0] = 4.97;
9139     b[1] = -1.88;
9140     goto L22;
9141 L21:
9142     b[0] = 32.97;
9143     b[1] = 25.12;
9144 L22:
9145     if ((i__1 = kn1 - 3) < 0) {
9146     goto L25;
9147     } else if (i__1 == 0) {
9148     goto L24;
9149     } else {
9150     goto L23;
9151     }
9152 L23:
9153     b[2] = -124.08;
9154     b[3] = -173.02;
9155     goto L27;
9156 L24:
9157     b[2] = -29.08;
9158     b[3] = -78.02;
9159     goto L27;
9160 L25:
9161     if (kn1 - 2 >= 0) {
9162     goto L26;
9163     } else {
9164     goto L24;
9165     }
9166 L26:
9167     b[2] = -69.08;
9168     b[3] = -118.02;
9169 L27:
9170     l20_4.lex = false;
9171     return 0;
9172 labelL2:
9173     l6_1.fx = l2_5.x[0] * 4.3 + l2_5.x[1] * 31.8 + l2_5.x[2] * 63.3 + l2_5.x[
9174         3] * 15.8 + l2_5.x[4] * 68.5 + l2_5.x[5] * 4.7;
9175 labelL3:
9176     return 0;
9177 labelL4:
9178     if (l9_7.index1[0]) {
9179     l3_6.g[0] = l2_5.x[0] * (float)17.1 + l2_5.x[1] * (float)38.2 +
9180         l2_5.x[2] * (float)204.2 + l2_5.x[3] * (float)212.3 + l2_5.x[
9181         4] * (float)623.4 + l2_5.x[5] * 1495.5 - l2_5.x[0] * (float)
9182         169. * l2_5.x[2] - l2_5.x[2] * 3580. * l2_5.x[4] - l2_5.x[3] *
9183          3810. * l2_5.x[4] - l2_5.x[3] * 18500. * l2_5.x[5] - l2_5.x[
9184         4] * 24300. * l2_5.x[5] - b[0];
9185     }
9186     if (l9_7.index1[1]) {
9187     l3_6.g[1] = l2_5.x[0] * (float)17.9 + l2_5.x[1] * (float)36.8 +
9188         l2_5.x[2] * (float)113.9 + l2_5.x[3] * (float)169.7 + l2_5.x[
9189         4] * (float)337.8 + l2_5.x[5] * 1385.2 - l2_5.x[0] * (float)
9190         139. * l2_5.x[2] - l2_5.x[3] * 2450. * l2_5.x[4] - l2_5.x[3] *
9191          16600. * l2_5.x[5] - l2_5.x[4] * 17200. * l2_5.x[5] - b[1];
9192     }
9193     if (l9_7.index1[2]) {
9194     l3_6.g[2] = l2_5.x[1] * (float)-273. - l2_5.x[3] * (float)70. -
9195         l2_5.x[4] * (float)819. + l2_5.x[3] * 2.6e4 * l2_5.x[4] - b[2]
9196         ;
9197     }
9198     if (l9_7.index1[3]) {
9199     l3_6.g[3] = l2_5.x[0] * 159.9 - l2_5.x[1] * 311. + l2_5.x[3] * 587. +
9200         l2_5.x[4] * (float)391. + l2_5.x[5] * 2198. - l2_5.x[0] *
9201         1.4e4 * l2_5.x[5] - b[3];
9202     }
9203     return 0;
9204 labelL5:
9205     if (! l10_7.index2[0]) {
9206     goto L7;
9207     }
9208     l5_8.gg[0] = (float)17.1 - l2_5.x[2] * (float)169.;
9209     l5_8.gg[8] = (float)204.2 - l2_5.x[0] * (float)169. - l2_5.x[4] * 3580.;
9210     l5_8.gg[12] = (float)212.3 - l2_5.x[4] * 3810. - l2_5.x[5] * 18500.;
9211     l5_8.gg[16] = (float)623.4 - l2_5.x[2] * 3580. - l2_5.x[3] * 3810. -
9212         l2_5.x[5] * 24300.;
9213     l5_8.gg[20] = 1495.5 - l2_5.x[3] * 18500. - l2_5.x[4] * 24300.;
9214 L7:
9215     if (! l10_7.index2[1]) {
9216     goto L8;
9217     }
9218     l5_8.gg[1] = (float)17.9 - l2_5.x[2] * (float)139.;
9219     l5_8.gg[9] = (float)113.9 - l2_5.x[0] * (float)139.;
9220     l5_8.gg[13] = (float)169.7 - l2_5.x[4] * 2450. - l2_5.x[5] * 16600.;
9221     l5_8.gg[17] = (float)337.8 - l2_5.x[3] * 2450. - l2_5.x[5] * 17200.;
9222     l5_8.gg[21] = 1385.2 - l2_5.x[3] * 16600. - l2_5.x[4] * 17200.;
9223 L8:
9224     if (! l10_7.index2[2]) {
9225     goto labelL9;
9226     }
9227     l5_8.gg[14] = l2_5.x[4] * 2.6e4 - 70.;
9228     l5_8.gg[18] = l2_5.x[3] * 2.6e4 - 819.;
9229 labelL9:
9230     if (! l10_7.index2[3]) {
9231     goto labelL10;
9232     }
9233     l5_8.gg[3] = (float)159.9 - l2_5.x[5] * 1.4e4;
9234     l5_8.gg[23] = 2198. - l2_5.x[0] * 1.4e4;
9235 labelL10:
9236     return 0;
9237 } /* tp95_ */
9238 
tp95_(int * mode)9239 /* Subroutine */ int tp95_(int *mode)
9240 {
9241     return tp95_0_(0, mode);
9242     }
9243 
tp96_(int * mode)9244 /* Subroutine */ int tp96_(int *mode)
9245 {
9246     return tp95_0_(1, mode);
9247     }
9248 
tp97_(int * mode)9249 /* Subroutine */ int tp97_(int *mode)
9250 {
9251     return tp95_0_(2, mode);
9252     }
9253 
tp98_(int * mode)9254 /* Subroutine */ int tp98_(int *mode)
9255 {
9256     return tp95_0_(3, mode);
9257     }
9258 
9259 
tp99_(int * mode)9260 /* Subroutine */ int tp99_(int *mode)
9261 {
9262     /* System generated locals */
9263     int i__1;
9264     Real d__1;
9265 
9266     /* Local variables */
9267     static Real a[8];
9268     static int i__, j;
9269     static Real p[8], q[8], r__[8], s[8], t[8];
9270     static int i1;
9271     static Real v1, v2, v3, v4, dp[56]    /* was [8][7] */, dq[56]
9272         /* was [8][7] */, dr[56]    /* was [8][7] */, ds[56]    /*
9273         was [8][7] */;
9274 
9275     if ((i__1 = *mode - 2) < 0) {
9276     goto labelL1;
9277     } else if (i__1 == 0) {
9278     goto L18;
9279     } else {
9280     goto L17;
9281     }
9282 labelL1:
9283     l1_1.n = 7;
9284     l1_1.nili = 0;
9285     l1_1.ninl = 0;
9286     l1_1.neli = 0;
9287     l1_1.nenl = 2;
9288     for (i__ = 1; i__ <= 7; ++i__) {
9289     l2_6.x[i__ - 1] = .5;
9290     l11_6.lxl[i__ - 1] = true;
9291     l12_6.lxu[i__ - 1] = true;
9292     l13_6.xl[i__ - 1] = 0.;
9293 /* labelL6: */
9294     l14_6.xu[i__ - 1] = 1.58;
9295     }
9296     a[0] = 0.;
9297     a[1] = 50.;
9298     a[2] = 50.;
9299     a[3] = 75.;
9300     a[4] = 75.;
9301     a[5] = 75.;
9302     a[6] = 100.;
9303     a[7] = 100.;
9304     t[0] = 0.;
9305     t[1] = 25.;
9306     t[2] = 50.;
9307     t[3] = 100.;
9308     t[4] = 150.;
9309     t[5] = 200.;
9310     t[6] = 290.;
9311     t[7] = 380.;
9312     p[0] = 0.;
9313     q[0] = 0.;
9314     r__[0] = 0.;
9315     s[0] = 0.;
9316     for (j = 1; j <= 7; ++j) {
9317     i__1 = j;
9318     for (i__ = 1; i__ <= i__1; ++i__) {
9319         dp[i__ + (j << 3) - 9] = 0.;
9320         dq[i__ + (j << 3) - 9] = 0.;
9321         dr[i__ + (j << 3) - 9] = 0.;
9322 /* L31: */
9323         ds[i__ + (j << 3) - 9] = 0.;
9324     }
9325     }
9326     l20_8.lex = false;
9327     l20_8.xex[0] = .542460319142;
9328     l20_8.xex[1] = .529015870015;
9329     l20_8.xex[2] = .508450583169;
9330     l20_8.xex[3] = .480269265187;
9331     l20_8.xex[4] = .451235157238;
9332     l20_8.xex[5] = .409187805755;
9333     l20_8.xex[6] = .352784693565;
9334     l20_8.fex = -831079891.516;
9335     return 0;
9336 L17:
9337     if (*mode - 4 <= 0) {
9338     goto L18;
9339     } else {
9340     goto L19;
9341     }
9342 L18:
9343     for (i__ = 2; i__ <= 8; ++i__) {
9344     i1 = i__ - 1;
9345     v1 = a[i__ - 1] * std::sin(l2_6.x[i1 - 1]) - 32.;
9346     v2 = a[i__ - 1] *std::cos(l2_6.x[i1 - 1]);
9347     v3 = t[i__ - 1] - t[i1 - 1];
9348 /* Computing 2nd power */
9349     d__1 = v3;
9350     v4 = d__1 * d__1 * .5;
9351     p[i__ - 1] = v2 * v4 + v3 * r__[i1 - 1] + p[i1 - 1];
9352     q[i__ - 1] = v1 * v4 + v3 * s[i1 - 1] + q[i1 - 1];
9353     r__[i__ - 1] = v2 * v3 + r__[i1 - 1];
9354 /* L30: */
9355     s[i__ - 1] = v1 * v3 + s[i1 - 1];
9356     }
9357     if (*mode - 3 != 0) {
9358     goto L40;
9359     } else {
9360     goto L19;
9361     }
9362 L19:
9363     for (i__ = 2; i__ <= 8; ++i__) {
9364     for (j = 1; j <= 7; ++j) {
9365         if ((i__1 = j - i__ + 1) < 0) {
9366         goto L33;
9367         } else if (i__1 == 0) {
9368         goto L32;
9369         } else {
9370         goto L34;
9371         }
9372 L32:
9373         i1 = i__ - 1;
9374         v1 = a[i__ - 1] * std::sin(l2_6.x[i1 - 1]);
9375         v2 = a[i__ - 1] *std::cos(l2_6.x[i1 - 1]);
9376         v3 = t[i__ - 1] - t[i1 - 1];
9377 /* Computing 2nd power */
9378         d__1 = v3;
9379         v4 = d__1 * d__1 * .5;
9380         dp[i__ + (i1 << 3) - 9] = -v1 * v4 + v3 * dr[i1 + (i1 << 3) - 9]
9381             + dp[i1 + (i1 << 3) - 9];
9382         dq[i__ + (i1 << 3) - 9] = v2 * v4 + v3 * ds[i1 + (i1 << 3) - 9] +
9383             dq[i1 + (i1 << 3) - 9];
9384         dr[i__ + (i1 << 3) - 9] = -v1 * v3 + dr[i1 + (i1 << 3) - 9];
9385         ds[i__ + (i1 << 3) - 9] = v2 * v3 + ds[i1 + (i1 << 3) - 9];
9386         goto L34;
9387 L33:
9388         i1 = i__ - 1;
9389         v1 = t[i__ - 1] - t[i1 - 1];
9390         dp[i__ + (j << 3) - 9] = v1 * dr[i1 + (j << 3) - 9] + dp[i1 + (j
9391             << 3) - 9];
9392         dq[i__ + (j << 3) - 9] = v1 * ds[i1 + (j << 3) - 9] + dq[i1 + (j
9393             << 3) - 9];
9394         dr[i__ + (j << 3) - 9] = dr[i1 + (j << 3) - 9];
9395         ds[i__ + (j << 3) - 9] = ds[i1 + (j << 3) - 9];
9396 L34:
9397         ;
9398     }
9399     }
9400 L40:
9401     switch ((int)*mode) {
9402     case 1:  goto labelL1;
9403     case 2:  goto labelL2;
9404     case 3:  goto labelL3;
9405     case 4:  goto labelL4;
9406     case 5:  goto labelL5;
9407     }
9408 labelL2:
9409 /* Computing 2nd power */
9410     d__1 = r__[7];
9411     l6_1.fx = -(d__1 * d__1);
9412     return 0;
9413 labelL3:
9414     for (i__ = 1; i__ <= 7; ++i__) {
9415 /* L35: */
9416     l4_6.gf[i__ - 1] = r__[7] * -2. * dr[(i__ << 3) - 1];
9417     }
9418     return 0;
9419 labelL4:
9420     if (l9_3.index1[0]) {
9421     l3_2.g[0] = q[7] - 1e5;
9422     }
9423     if (l9_3.index1[1]) {
9424     l3_2.g[1] = s[7] - 1e3;
9425     }
9426     return 0;
9427 labelL5:
9428     if (! l10_3.index2[0]) {
9429     goto L7;
9430     }
9431     for (i__ = 1; i__ <= 7; ++i__) {
9432 /* L36: */
9433     l5_17.gg[(i__ << 1) - 2] = dq[(i__ << 3) - 1];
9434     }
9435 L7:
9436     if (! l10_3.index2[1]) {
9437     goto L8;
9438     }
9439     for (i__ = 1; i__ <= 7; ++i__) {
9440 /* L37: */
9441     l5_17.gg[(i__ << 1) - 1] = ds[(i__ << 3) - 1];
9442     }
9443 L8:
9444     return 0;
9445 } /* tp99_ */
9446 
9447 
tp100_(int * mode)9448 /* Subroutine */ int tp100_(int *mode)
9449 {
9450     /* System generated locals */
9451     Real d__1, d__2, d__3, d__4, d__5, d__6, d__7;
9452 
9453     /* Local variables */
9454     static int i__;
9455     static Real v1, v2;
9456 
9457     switch ((int)*mode) {
9458     case 1:  goto labelL1;
9459     case 2:  goto labelL2;
9460     case 3:  goto labelL3;
9461     case 4:  goto labelL4;
9462     case 5:  goto labelL5;
9463     }
9464 labelL1:
9465     l1_1.n = 7;
9466     l1_1.nili = 0;
9467     l1_1.ninl = 4;
9468     l1_1.neli = 0;
9469     l1_1.nenl = 0;
9470     for (i__ = 1; i__ <= 7; ++i__) {
9471     l11_6.lxl[i__ - 1] = false;
9472 /* labelL6: */
9473     l12_6.lxu[i__ - 1] = false;
9474     }
9475     l2_6.x[0] = 1.;
9476     l2_6.x[1] = 2.;
9477     l2_6.x[2] = 0.;
9478     l2_6.x[3] = 4.;
9479     l2_6.x[4] = 0.;
9480     l2_6.x[5] = 1.;
9481     l2_6.x[6] = 1.;
9482     l5_11.gg[8] = -1.;
9483     l5_11.gg[16] = -5.;
9484     l5_11.gg[20] = 0.;
9485     l5_11.gg[24] = 0.;
9486     l5_11.gg[1] = -7.;
9487     l5_11.gg[5] = -3.;
9488     l5_11.gg[13] = -1.;
9489     l5_11.gg[17] = 1.;
9490     l5_11.gg[21] = 0.;
9491     l5_11.gg[25] = 0.;
9492     l5_11.gg[2] = -23.;
9493     l5_11.gg[10] = 0.;
9494     l5_11.gg[14] = 0.;
9495     l5_11.gg[18] = 0.;
9496     l5_11.gg[26] = 8.;
9497     l5_11.gg[15] = 0.;
9498     l5_11.gg[19] = 0.;
9499     l5_11.gg[23] = -5.;
9500     l5_11.gg[27] = 11.;
9501     l20_8.lex = false;
9502     l20_8.xex[0] = 2.33049937431;
9503     l20_8.xex[1] = 1.95137237315;
9504     l20_8.xex[2] = -.477541392625;
9505     l20_8.xex[3] = 4.36572623462;
9506     l20_8.xex[4] = -.624486970475;
9507     l20_8.xex[5] = 1.03813101881;
9508     l20_8.xex[6] = 1.59422671137;
9509     l20_8.fex = 680.630057275;
9510     return 0;
9511 labelL2:
9512 /* Computing 2nd power */
9513     d__1 = l2_6.x[0] - 10.;
9514 /* Computing 2nd power */
9515     d__2 = l2_6.x[1] - 12.;
9516 /* Computing 4th power */
9517     d__3 = l2_6.x[2], d__3 *= d__3;
9518 /* Computing 2nd power */
9519     d__4 = l2_6.x[3] - 11.;
9520 /* Computing 6th power */
9521     d__5 = l2_6.x[4], d__5 *= d__5;
9522 /* Computing 2nd power */
9523     d__6 = l2_6.x[5];
9524 /* Computing 4th power */
9525     d__7 = l2_6.x[6], d__7 *= d__7;
9526     l6_1.fx = d__1 * d__1 + d__2 * d__2 * 5. + d__3 * d__3 + d__4 * d__4 * 3.
9527         + d__5 * (d__5 * d__5) * 10. + d__6 * d__6 * 7. + d__7 * d__7 -
9528         l2_6.x[5] * 4. * l2_6.x[6] - l2_6.x[5] * 10. - l2_6.x[6] * 8.;
9529     return 0;
9530 labelL3:
9531     l4_6.gf[0] = (l2_6.x[0] - 10.) * 2.;
9532     l4_6.gf[1] = (l2_6.x[1] - 12.) * 10.;
9533 /* Computing 3rd power */
9534     d__1 = l2_6.x[2];
9535     l4_6.gf[2] = d__1 * (d__1 * d__1) * 4.;
9536     l4_6.gf[3] = (l2_6.x[3] - 11.) * 6.;
9537 /* Computing 5th power */
9538     d__1 = l2_6.x[4], d__2 = d__1, d__1 *= d__1;
9539     l4_6.gf[4] = d__2 * (d__1 * d__1) * 60.;
9540     l4_6.gf[5] = l2_6.x[5] * 14. - l2_6.x[6] * 4. - 10.;
9541 /* Computing 3rd power */
9542     d__1 = l2_6.x[6];
9543     l4_6.gf[6] = d__1 * (d__1 * d__1) * 4. - l2_6.x[5] * 4. - 8.;
9544     return 0;
9545 labelL4:
9546 /* Computing 2nd power */
9547     d__1 = l2_6.x[0];
9548     v1 = d__1 * d__1 * 2.;
9549 /* Computing 2nd power */
9550     d__1 = l2_6.x[1];
9551     v2 = d__1 * d__1;
9552     if (l9_7.index1[0]) {
9553 /* Computing 2nd power */
9554     d__1 = v2;
9555 /* Computing 2nd power */
9556     d__2 = l2_6.x[3];
9557     l3_6.g[0] = -v1 - d__1 * d__1 * 3. - l2_6.x[2] - d__2 * d__2 * 4. -
9558         l2_6.x[4] * 5. + 127.;
9559     }
9560     if (l9_7.index1[1]) {
9561 /* Computing 2nd power */
9562     d__1 = l2_6.x[2];
9563     l3_6.g[1] = l2_6.x[0] * -7. - l2_6.x[1] * 3. - d__1 * d__1 * 10. -
9564         l2_6.x[3] + l2_6.x[4] + 282.;
9565     }
9566     if (l9_7.index1[2]) {
9567 /* Computing 2nd power */
9568     d__1 = l2_6.x[5];
9569     l3_6.g[2] = l2_6.x[0] * -23. - v2 - d__1 * d__1 * 6. + l2_6.x[6] * 8.
9570         + 196.;
9571     }
9572     if (l9_7.index1[3]) {
9573 /* Computing 2nd power */
9574     d__1 = l2_6.x[2];
9575     l3_6.g[3] = v1 * -2. - v2 + l2_6.x[0] * 3. * l2_6.x[1] - d__1 * d__1 *
9576          2. - l2_6.x[5] * 5. + l2_6.x[6] * 11.;
9577     }
9578     return 0;
9579 labelL5:
9580     if (! l10_7.index2[0]) {
9581     goto L7;
9582     }
9583     l5_11.gg[0] = l2_6.x[0] * -4.;
9584 /* Computing 3rd power */
9585     d__1 = l2_6.x[1];
9586     l5_11.gg[4] = d__1 * (d__1 * d__1) * -12.;
9587     l5_11.gg[12] = l2_6.x[3] * -8.;
9588 L7:
9589     if (l10_7.index2[1]) {
9590     l5_11.gg[9] = l2_6.x[2] * -20.;
9591     }
9592     if (! l10_7.index2[2]) {
9593     goto labelL9;
9594     }
9595     l5_11.gg[6] = l2_6.x[1] * -2.;
9596     l5_11.gg[22] = l2_6.x[5] * -12.;
9597 labelL9:
9598     if (! l10_7.index2[3]) {
9599     goto labelL10;
9600     }
9601     l5_11.gg[3] = l2_6.x[0] * -8. + l2_6.x[1] * 3.;
9602     l5_11.gg[7] = l2_6.x[1] * -2. + l2_6.x[0] * 3.;
9603     l5_11.gg[11] = l2_6.x[2] * -4.;
9604 labelL10:
9605     return 0;
9606 } /* tp100_ */
9607 
9608 
tp101_0_(int n__,int * mode)9609 /* Subroutine */ int tp101_0_(int n__, int *mode)
9610 {
9611     /* System generated locals */
9612     Real d__1, d__2, d__3, d__4, d__5, d__6, d__7, d__8, d__9, d__10,
9613         d__11, d__12, d__13;
9614 
9615     /* Local variables */
9616     static Real fmin[3], a[3];
9617     static int i__, k, m;
9618     static Real v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13,
9619         v14, v15, gv[7], v16, v17, v18, v19, v20, v21, v22, v23, v24, v25,
9620          v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38,
9621         v39, v40, v41, v42, v43, v44, v45;
9622     static int kn1;
9623     static Real sum;
9624 
9625     switch(n__) {
9626     case 1: goto L_tp102;
9627     case 2: goto L_tp103;
9628     }
9629 
9630     kn1 = 1;
9631     l20_8.xex[0] = 2.85615855584;
9632     l20_8.xex[1] = .610823030755;
9633     l20_8.xex[2] = 2.15081256203;
9634     l20_8.xex[3] = 4.71287370945;
9635     l20_8.xex[4] = .999487540961;
9636     l20_8.xex[5] = 1.34750750498;
9637     l20_8.xex[6] = .0316527664991;
9638     l20_8.fex = 1809.76476556;
9639     goto labelL13;
9640 
9641 L_tp102:
9642     kn1 = 2;
9643     l20_8.xex[0] = 3.89625319099;
9644     l20_8.xex[1] = .809358760118;
9645     l20_8.xex[2] = 2.66438599373;
9646     l20_8.xex[3] = 4.30091287458;
9647     l20_8.xex[4] = .853554935267;
9648     l20_8.xex[5] = 1.09528744459;
9649     l20_8.xex[6] = .0273104596581;
9650     l20_8.fex = 911.880571336;
9651     goto labelL13;
9652 
9653 L_tp103:
9654     kn1 = 3;
9655     l20_8.xex[0] = 4.39410451026;
9656     l20_8.xex[1] = .854468738817;
9657     l20_8.xex[2] = 2.8432303138;
9658     l20_8.xex[3] = 3.39997866779;
9659     l20_8.xex[4] = .722926133025;
9660     l20_8.xex[5] = .87040638184;
9661     l20_8.xex[6] = .0246388263302;
9662     l20_8.fex = 543.667958424;
9663 labelL13:
9664     switch ((int)*mode) {
9665     case 1:  goto labelL1;
9666     case 2:  goto labelL2;
9667     case 3:  goto labelL3;
9668     case 4:  goto labelL4;
9669     case 5:  goto labelL5;
9670     }
9671 labelL1:
9672     l1_1.n = 7;
9673     m = kn1;
9674     a[0] = -.25;
9675     a[1] = .125;
9676     a[2] = .5;
9677     l1_1.nili = 0;
9678     l1_1.ninl = 6;
9679     l1_1.neli = 0;
9680     l1_1.nenl = 0;
9681     for (i__ = 1; i__ <= 7; ++i__) {
9682     l2_6.x[i__ - 1] = 6.;
9683     l13_6.xl[i__ - 1] = .1;
9684     l14_6.xu[i__ - 1] = 10.;
9685     l11_6.lxl[i__ - 1] = true;
9686 /* labelL6: */
9687     l12_6.lxu[i__ - 1] = true;
9688     }
9689     l13_6.xl[6] = .01;
9690     l5_12.gg[24] = 0.;
9691     l5_12.gg[37] = 0.;
9692     l5_12.gg[20] = 0.;
9693     l5_12.gg[33] = 0.;
9694     l20_8.lex = false;
9695     return 0;
9696 labelL2:
9697     for (k = 1; k <= 7; ++k) {
9698 /* L200: */
9699     if (l2_6.x[k - 1] < 0.) {
9700         goto labelL14;
9701     }
9702     }
9703 /* Computing 2nd power */
9704     d__1 = l2_6.x[3];
9705 /* Computing 3rd power */
9706     d__2 = l2_6.x[5];
9707 /* Computing 2nd power */
9708     d__3 = l2_6.x[1];
9709 /* Computing 2nd power */
9710     d__4 = l2_6.x[0];
9711 /* Computing 2nd power */
9712     d__5 = l2_6.x[4];
9713 /* Computing 2nd power */
9714     d__6 = l2_6.x[0];
9715 /* Computing 2nd power */
9716     d__7 = l2_6.x[1];
9717 /* Computing 2nd power */
9718     d__8 = l2_6.x[5];
9719     l6_1.fx = l2_6.x[0] * 10. * (d__1 * d__1) * pow_dd(&l2_6.x[6], &a[m - 1])
9720         / (l2_6.x[1] * (d__2 * (d__2 * d__2))) + l2_6.x[2] * 15. * l2_6.x[
9721         3] / (l2_6.x[0] * (d__3 * d__3) * l2_6.x[4] * pow_dd(&l2_6.x[6], &
9722         c_b590)) + l2_6.x[1] * 20. * l2_6.x[5] / (d__4 * d__4 * l2_6.x[3]
9723         * (d__5 * d__5)) + d__6 * d__6 * 25. * (d__7 * d__7) * pow_dd(&
9724         l2_6.x[4], &c_b590) * l2_6.x[6] / (l2_6.x[2] * (d__8 * d__8));
9725     return 0;
9726 labelL14:
9727     sum = 0.;
9728     for (i__ = 1; i__ <= 7; ++i__) {
9729 /* L40: */
9730 /* Computing 2nd power */
9731     d__1 = l2_6.x[i__ - 1] - 5.;
9732     sum += d__1 * d__1;
9733     }
9734     fmin[0] = 1800.;
9735     fmin[1] = 910.;
9736     fmin[2] = 540.;
9737     l6_1.fx = sum + 1e3 + fmin[kn1 - 1];
9738     return 0;
9739 labelL3:
9740     for (k = 1; k <= 7; ++k) {
9741 /* L201: */
9742     if (l2_6.x[k - 1] < 0.) {
9743         goto L15;
9744     }
9745     }
9746 /* Computing 2nd power */
9747     d__1 = l2_6.x[3];
9748     v1 = d__1 * d__1 * 10.;
9749     v2 = pow_dd(&l2_6.x[6], &a[m - 1]);
9750 /* Computing 3rd power */
9751     d__1 = l2_6.x[5];
9752     v3 = l2_6.x[1] * (d__1 * (d__1 * d__1));
9753     v4 = l2_6.x[2] * 15. * l2_6.x[3];
9754 /* Computing 2nd power */
9755     d__1 = l2_6.x[1];
9756     v5 = l2_6.x[0] * (d__1 * d__1) * l2_6.x[4] * pow_dd(&l2_6.x[6], &c_b590);
9757     v6 = l2_6.x[1] * 20. * l2_6.x[5];
9758 /* Computing 2nd power */
9759     d__1 = l2_6.x[0];
9760 /* Computing 2nd power */
9761     d__2 = l2_6.x[4];
9762     v7 = d__1 * d__1 * l2_6.x[3] * (d__2 * d__2);
9763     v8 = l2_6.x[0] * 25. * l2_6.x[1] * pow_dd(&l2_6.x[4], &c_b590) * l2_6.x[6]
9764         ;
9765 /* Computing 2nd power */
9766     d__1 = l2_6.x[5];
9767     v9 = l2_6.x[2] * (d__1 * d__1);
9768 /* Computing 2nd power */
9769     d__1 = l2_6.x[0];
9770 /* Computing 2nd power */
9771     d__2 = l2_6.x[1];
9772     v10 = d__1 * d__1 * 12.5 * (d__2 * d__2) * l2_6.x[6];
9773     v11 = pow_dd(&l2_6.x[4], &c_b590);
9774     l4_6.gf[0] = v1 * v2 / v3 - v4 / (l2_6.x[0] * v5) - v6 * 2. / (l2_6.x[0] *
9775          v7) + l2_6.x[1] * 2. * v8 / v9;
9776     l4_6.gf[1] = -v1 * l2_6.x[0] * v2 / (l2_6.x[1] * v3) - v4 * 2. / (l2_6.x[
9777         1] * v5) + l2_6.x[5] * 20. / v7 + l2_6.x[0] * 2. * v8 / v9;
9778     l4_6.gf[2] = l2_6.x[3] * 15. / v5 - l2_6.x[0] * l2_6.x[1] * v8 / (l2_6.x[
9779         2] * v9);
9780     l4_6.gf[3] = l2_6.x[0] * 20. * l2_6.x[3] * v2 / v3 + l2_6.x[2] * 15. / v5
9781         - v6 / (l2_6.x[3] * v7);
9782     l4_6.gf[4] = -v4 / (l2_6.x[4] * v5) - v6 * 2. / (l2_6.x[4] * v7) + v10 / (
9783         v9 * v11);
9784     l4_6.gf[5] = v1 * -3. * l2_6.x[0] * v2 / (l2_6.x[5] * v3) + l2_6.x[1] *
9785         20. / v7 - v10 * 4. * v11 / (l2_6.x[5] * v9);
9786     d__1 = a[m - 1] - 1.;
9787     l4_6.gf[6] = a[m - 1] * v1 * l2_6.x[0] * pow_dd(&l2_6.x[6], &d__1) / v3 -
9788         v4 * .5 / (v5 * l2_6.x[6]) + v8 * l2_6.x[0] * l2_6.x[1] / (l2_6.x[
9789         6] * v9);
9790     return 0;
9791 L15:
9792     for (i__ = 1; i__ <= 7; ++i__) {
9793 /* L50: */
9794     l4_6.gf[i__ - 1] = (l2_6.x[i__ - 1] - 5.) * 2.;
9795     }
9796     return 0;
9797 labelL4:
9798     if (l9_6.index1[0]) {
9799     d__1 = std::abs(l2_6.x[0]);
9800 /* Computing 2nd power */
9801     d__2 = l2_6.x[5];
9802 /* Computing 3rd power */
9803     d__3 = l2_6.x[0];
9804     d__4 = std::abs(l2_6.x[6]);
9805 /* Computing 2nd power */
9806     d__5 = l2_6.x[2];
9807     d__6 = std::abs(l2_6.x[5]);
9808     d__7 = std::abs(l2_6.x[6]);
9809     d__8 = std::abs(l2_6.x[3]);
9810     l3_5.g[0] = 1. - pow_dd(&d__1, &c_b590) * .5 * l2_6.x[6] / (l2_6.x[2]
9811         * (d__2 * d__2)) - d__3 * (d__3 * d__3) * .7 * l2_6.x[1] *
9812         l2_6.x[5] * pow_dd(&d__4, &c_b590) / (d__5 * d__5) - l2_6.x[2]
9813          * .2 * pow_dd(&d__6, &c_b933) * pow_dd(&d__7, &c_b934) / (
9814         l2_6.x[1] * pow_dd(&d__8, &c_b590));
9815     }
9816     if (l9_6.index1[1]) {
9817     d__1 = std::abs(l2_6.x[0]);
9818 /* Computing 2nd power */
9819     d__2 = l2_6.x[5];
9820     d__3 = std::abs(l2_6.x[1]);
9821     d__4 = std::abs(l2_6.x[5]);
9822 /* Computing 2nd power */
9823     d__5 = l2_6.x[3];
9824     l3_5.g[1] = 1. - l2_6.x[1] * 1.3 * l2_6.x[5] / (pow_dd(&d__1, &c_b590)
9825          * l2_6.x[2] * l2_6.x[4]) - l2_6.x[2] * .8 * (d__2 * d__2) / (
9826         l2_6.x[3] * l2_6.x[4]) - pow_dd(&d__3, &c_b590) * 3.1 *
9827         pow_dd(&d__4, &c_b74) / (l2_6.x[0] * (d__5 * d__5) * l2_6.x[4]
9828         );
9829     }
9830     if (l9_6.index1[2]) {
9831     d__2 = std::abs(l2_6.x[6]);
9832     d__3 = std::abs(l2_6.x[2]);
9833     d__4 = (d__1 = l2_6.x[2] * l2_6.x[6], std::abs(d__1));
9834     d__5 = std::abs(l2_6.x[2]);
9835 /* Computing 2nd power */
9836     d__6 = l2_6.x[1];
9837     l3_5.g[2] = 1. - l2_6.x[0] * 2. * l2_6.x[4] * pow_dd(&d__2, &c_b74) /
9838         (pow_dd(&d__3, &c_b940) * l2_6.x[5]) - l2_6.x[1] * .1 *
9839         l2_6.x[4] / (pow_dd(&d__4, &c_b590) * l2_6.x[5]) - l2_6.x[1] *
9840          pow_dd(&d__5, &c_b590) * l2_6.x[4] / l2_6.x[0] - l2_6.x[2] *
9841         .65 * l2_6.x[4] * l2_6.x[6] / (d__6 * d__6 * l2_6.x[5]);
9842     }
9843     if (l9_6.index1[3]) {
9844     d__1 = std::abs(l2_6.x[4]);
9845     d__2 = std::abs(l2_6.x[6]);
9846 /* Computing 2nd power */
9847     d__3 = l2_6.x[0];
9848     d__4 = std::abs(l2_6.x[0]);
9849 /* Computing 2nd power */
9850     d__5 = l2_6.x[1];
9851     d__6 = std::abs(l2_6.x[3]);
9852     d__7 = std::abs(l2_6.x[6]);
9853     d__8 = std::abs(l2_6.x[4]);
9854     d__9 = std::abs(l2_6.x[6]);
9855 /* Computing 3rd power */
9856     d__10 = l2_6.x[0];
9857 /* Computing 2nd power */
9858     d__11 = l2_6.x[1];
9859     d__12 = std::abs(l2_6.x[6]);
9860 /* Computing 2nd power */
9861     d__13 = l2_6.x[2];
9862     l3_5.g[3] = 1. - l2_6.x[1] * .2 * pow_dd(&d__1, &c_b590) * pow_dd(&
9863         d__2, &c_b74) / (d__3 * d__3 * l2_6.x[3]) - pow_dd(&d__4, &
9864         c_b590) * .3 * (d__5 * d__5) * l2_6.x[2] * pow_dd(&d__6, &
9865         c_b74) * pow_dd(&d__7, &c_b934) / pow_dd(&d__8, &c_b933) -
9866         l2_6.x[2] * .4 * l2_6.x[4] * pow_dd(&d__9, &c_b949) / (d__10 *
9867          (d__10 * d__10) * (d__11 * d__11)) - l2_6.x[3] * .5 * pow_dd(
9868         &d__12, &c_b590) / (d__13 * d__13);
9869     }
9870     if (l9_6.index1[4]) {
9871 /* Computing 2nd power */
9872     d__1 = l2_6.x[3];
9873     d__2 = std::abs(l2_6.x[6]);
9874 /* Computing 3rd power */
9875     d__3 = l2_6.x[5];
9876 /* Computing 2nd power */
9877     d__4 = l2_6.x[1];
9878     d__5 = std::abs(l2_6.x[6]);
9879 /* Computing 2nd power */
9880     d__6 = l2_6.x[0];
9881 /* Computing 2nd power */
9882     d__7 = l2_6.x[4];
9883 /* Computing 2nd power */
9884     d__8 = l2_6.x[0];
9885 /* Computing 2nd power */
9886     d__9 = l2_6.x[1];
9887     d__10 = std::abs(l2_6.x[4]);
9888 /* Computing 2nd power */
9889     d__11 = l2_6.x[5];
9890     l3_5.g[4] = l2_6.x[0] * 10. * (d__1 * d__1) * pow_dd(&d__2, &a[m - 1])
9891          / (l2_6.x[1] * (d__3 * (d__3 * d__3))) + l2_6.x[2] * 15. *
9892         l2_6.x[3] / (l2_6.x[0] * (d__4 * d__4) * l2_6.x[4] * pow_dd(&
9893         d__5, &c_b590)) + l2_6.x[1] * 20. * l2_6.x[5] / (d__6 * d__6 *
9894          l2_6.x[3] * (d__7 * d__7)) + d__8 * d__8 * 25. * (d__9 *
9895         d__9) * pow_dd(&d__10, &c_b590) * l2_6.x[6] / (l2_6.x[2] * (
9896         d__11 * d__11)) - 100.;
9897     }
9898     if (l9_6.index1[5]) {
9899 /* Computing 2nd power */
9900     d__1 = l2_6.x[3];
9901     d__2 = std::abs(l2_6.x[6]);
9902 /* Computing 3rd power */
9903     d__3 = l2_6.x[5];
9904 /* Computing 2nd power */
9905     d__4 = l2_6.x[1];
9906     d__5 = std::abs(l2_6.x[6]);
9907 /* Computing 2nd power */
9908     d__6 = l2_6.x[0];
9909 /* Computing 2nd power */
9910     d__7 = l2_6.x[4];
9911 /* Computing 2nd power */
9912     d__8 = l2_6.x[0];
9913 /* Computing 2nd power */
9914     d__9 = l2_6.x[1];
9915     d__10 = std::abs(l2_6.x[4]);
9916 /* Computing 2nd power */
9917     d__11 = l2_6.x[5];
9918     l3_5.g[5] = -(l2_6.x[0] * 10. * (d__1 * d__1) * pow_dd(&d__2, &a[m -
9919         1]) / (l2_6.x[1] * (d__3 * (d__3 * d__3))) + l2_6.x[2] * 15. *
9920          l2_6.x[3] / (l2_6.x[0] * (d__4 * d__4) * l2_6.x[4] * pow_dd(&
9921         d__5, &c_b590)) + l2_6.x[1] * 20. * l2_6.x[5] / (d__6 * d__6 *
9922          l2_6.x[3] * (d__7 * d__7)) + d__8 * d__8 * 25. * (d__9 *
9923         d__9) * pow_dd(&d__10, &c_b590) * l2_6.x[6] / (l2_6.x[2] * (
9924         d__11 * d__11))) + 3e3;
9925     }
9926     return 0;
9927 labelL5:
9928     if (! l10_6.index2[0]) {
9929     goto L7;
9930     }
9931     d__1 = std::abs(l2_6.x[0]);
9932     v1 = pow_dd(&d__1, &c_b590);
9933 /* Computing 3rd power */
9934     d__1 = l2_6.x[0];
9935     v2 = d__1 * (d__1 * d__1);
9936 /* Computing 2nd power */
9937     d__1 = l2_6.x[2];
9938     v4 = d__1 * d__1;
9939 /* Computing 2nd power */
9940     d__1 = v4;
9941     v5 = d__1 * d__1;
9942     d__1 = std::abs(l2_6.x[3]);
9943     v6 = pow_dd(&d__1, &c_b590);
9944 /* Computing 2nd power */
9945     d__1 = l2_6.x[5];
9946     v7 = d__1 * d__1;
9947     d__1 = std::abs(l2_6.x[5]);
9948     v8 = pow_dd(&d__1, &c_b933);
9949     d__1 = std::abs(l2_6.x[6]);
9950     v9 = pow_dd(&d__1, &c_b590);
9951     d__1 = std::abs(l2_6.x[6]);
9952     v10 = pow_dd(&d__1, &c_b934);
9953 /* Computing 2nd power */
9954     d__1 = l2_6.x[0];
9955     l5_12.gg[0] = l2_6.x[6] * -.25 / (v1 * l2_6.x[2] * v7) - d__1 * d__1 *
9956         2.1 * l2_6.x[1] * l2_6.x[5] * v9 / v4;
9957 /* Computing 2nd power */
9958     d__1 = l2_6.x[1];
9959     l5_12.gg[6] = v2 * -.7 * l2_6.x[5] * v9 / v4 + l2_6.x[2] * .2 * v8 * v10 /
9960          (d__1 * d__1 * v6);
9961     l5_12.gg[12] = v1 * .5 * l2_6.x[6] / (v4 * v7) + v2 * 1.4 * l2_6.x[1] *
9962         l2_6.x[5] * v9 / (l2_6.x[2] * v4) - v8 * .2 * v10 / (l2_6.x[1] *
9963         v6);
9964     l5_12.gg[18] = l2_6.x[2] * .1 * v8 * v10 / (l2_6.x[1] * l2_6.x[3] * v6);
9965     d__1 = std::abs(l2_6.x[5]);
9966     l5_12.gg[30] = v1 * l2_6.x[6] / (l2_6.x[2] * v7 * l2_6.x[5]) - v2 * .7 *
9967         l2_6.x[1] * v9 / v4 - l2_6.x[2] * .13333333333333333 * v10 / (
9968         l2_6.x[1] * v6 * pow_dd(&d__1, &c_b74));
9969     l5_12.gg[36] = v1 * -.5 / (l2_6.x[2] * v7) - v2 * .35 * l2_6.x[1] *
9970         l2_6.x[5] / (v4 * v9) - l2_6.x[2] * .05 * v8 / (l2_6.x[1] * v6 *
9971         v9 * v10);
9972 L7:
9973     if (! l10_6.index2[1]) {
9974     goto L8;
9975     }
9976     d__1 = std::abs(l2_6.x[0]);
9977     v11 = pow_dd(&d__1, &c_b590);
9978     d__1 = std::abs(l2_6.x[1]);
9979     v12 = pow_dd(&d__1, &c_b590);
9980 /* Computing 2nd power */
9981     d__1 = l2_6.x[3];
9982     v13 = d__1 * d__1;
9983 /* Computing 2nd power */
9984     d__1 = l2_6.x[4];
9985     v14 = d__1 * d__1;
9986     d__1 = std::abs(l2_6.x[5]);
9987     v15 = pow_dd(&d__1, &c_b74);
9988 /* Computing 2nd power */
9989     d__1 = l2_6.x[5];
9990     v16 = d__1 * d__1;
9991 /* Computing 2nd power */
9992     d__1 = l2_6.x[0];
9993     l5_12.gg[1] = l2_6.x[1] * .65 * l2_6.x[5] / (l2_6.x[0] * v11 * l2_6.x[2] *
9994          l2_6.x[4]) + v12 * 3.1 * v15 / (d__1 * d__1 * v13 * l2_6.x[4]);
9995     l5_12.gg[7] = l2_6.x[5] * -1.3 / (v11 * l2_6.x[2] * l2_6.x[4]) - v15 *
9996         1.55 / (l2_6.x[0] * v12 * v13 * l2_6.x[4]);
9997 /* Computing 2nd power */
9998     d__1 = l2_6.x[2];
9999     l5_12.gg[13] = l2_6.x[1] * 1.3 * l2_6.x[5] / (v11 * (d__1 * d__1) *
10000         l2_6.x[4]) - v16 * .8 / (l2_6.x[3] * l2_6.x[4]);
10001     l5_12.gg[19] = l2_6.x[2] * .8 * v16 / (v13 * l2_6.x[4]) + v12 * 6.2 * v15
10002         / (l2_6.x[0] * v13 * l2_6.x[3] * l2_6.x[4]);
10003     l5_12.gg[25] = l2_6.x[1] * 1.3 * l2_6.x[5] / (v11 * l2_6.x[2] * v14) +
10004         l2_6.x[2] * .8 * v16 / (l2_6.x[3] * v14) + v12 * 3.1 * v15 / (
10005         l2_6.x[0] * v13 * v14);
10006 /* Computing 2nd power */
10007     d__1 = v15;
10008     l5_12.gg[31] = l2_6.x[1] * -1.3 / (v11 * l2_6.x[2] * l2_6.x[4]) - l2_6.x[
10009         2] * 1.6 * l2_6.x[5] / (l2_6.x[3] * l2_6.x[4]) - v12 *
10010         1.0333333333333334 / (l2_6.x[0] * v13 * l2_6.x[4] * (d__1 * d__1))
10011         ;
10012 L8:
10013     if (! l10_6.index2[2]) {
10014     goto labelL9;
10015     }
10016 /* Computing 2nd power */
10017     d__1 = l2_6.x[1];
10018     v17 = d__1 * d__1;
10019     d__1 = std::abs(l2_6.x[2]);
10020     v18 = pow_dd(&d__1, &c_b590);
10021     v19 = v18 * l2_6.x[2];
10022 /* Computing 2nd power */
10023     d__1 = l2_6.x[5];
10024     v20 = d__1 * d__1;
10025     d__1 = std::abs(l2_6.x[6]);
10026     v21 = pow_dd(&d__1, &c_b74);
10027     d__1 = std::abs(l2_6.x[6]);
10028     v22 = pow_dd(&d__1, &c_b590);
10029 /* Computing 2nd power */
10030     d__1 = l2_6.x[0];
10031     l5_12.gg[2] = l2_6.x[4] * -2. * v21 / (v19 * l2_6.x[5]) + l2_6.x[1] * v18
10032         * l2_6.x[4] / (d__1 * d__1);
10033     l5_12.gg[8] = -v18 * l2_6.x[4] / l2_6.x[0] + l2_6.x[2] * 1.3 * l2_6.x[4] *
10034          l2_6.x[6] / (v17 * l2_6.x[1] * l2_6.x[5]) - l2_6.x[4] * .1 / (
10035         v18 * v22 * l2_6.x[5]);
10036     l5_12.gg[14] = l2_6.x[0] * 3. * l2_6.x[4] * v21 / (l2_6.x[2] * v19 *
10037         l2_6.x[5]) + l2_6.x[1] * .05 * l2_6.x[4] / (v19 * l2_6.x[5] * v22)
10038          - l2_6.x[1] * .5 * l2_6.x[4] / (l2_6.x[0] * v18) - l2_6.x[4] *
10039         .65 * l2_6.x[6] / (v17 * l2_6.x[5]);
10040     l5_12.gg[26] = l2_6.x[0] * -2. * v21 / (v19 * l2_6.x[5]) - l2_6.x[1] * .1
10041         / (v18 * l2_6.x[5] * v22) - l2_6.x[1] * v18 / l2_6.x[0] - l2_6.x[
10042         2] * .65 * l2_6.x[6] / (v17 * l2_6.x[5]);
10043     l5_12.gg[32] = l2_6.x[0] * 2. * l2_6.x[4] * v21 / (v19 * v20) + l2_6.x[1]
10044         * .1 * l2_6.x[4] / (v18 * v20 * v22) + l2_6.x[2] * .65 * l2_6.x[4]
10045          * l2_6.x[6] / (v17 * v20);
10046 /* Computing 2nd power */
10047     d__1 = v21;
10048     l5_12.gg[38] = l2_6.x[0] * -.66666666666666663 * l2_6.x[4] / (v19 *
10049         l2_6.x[5] * (d__1 * d__1)) + l2_6.x[1] * .05 * l2_6.x[4] / (v18 *
10050         l2_6.x[5] * v22 * l2_6.x[6]) - l2_6.x[2] * .65 * l2_6.x[4] / (v17
10051         * l2_6.x[5]);
10052 labelL9:
10053     if (! l10_6.index2[3]) {
10054     goto labelL10;
10055     }
10056     d__1 = std::abs(l2_6.x[0]);
10057     v23 = pow_dd(&d__1, &c_b590);
10058 /* Computing 2nd power */
10059     d__1 = l2_6.x[0];
10060     v24 = d__1 * d__1;
10061     v25 = v24 * l2_6.x[0];
10062 /* Computing 2nd power */
10063     d__1 = l2_6.x[1];
10064     v26 = d__1 * d__1;
10065 /* Computing 2nd power */
10066     d__1 = l2_6.x[2];
10067     v27 = d__1 * d__1;
10068     d__1 = std::abs(l2_6.x[3]);
10069     v28 = pow_dd(&d__1, &c_b74);
10070     d__1 = std::abs(l2_6.x[4]);
10071     v29 = pow_dd(&d__1, &c_b933);
10072     d__1 = std::abs(l2_6.x[4]);
10073     v30 = pow_dd(&d__1, &c_b590);
10074     d__1 = std::abs(l2_6.x[6]);
10075     v31 = pow_dd(&d__1, &c_b934);
10076 /* Computing 2nd power */
10077     d__1 = v31;
10078     v32 = d__1 * d__1;
10079     v33 = v31 * v32;
10080     d__1 = std::abs(l2_6.x[6]);
10081     v34 = pow_dd(&d__1, &c_b74);
10082 /* Computing 2nd power */
10083     d__1 = v24;
10084     l5_12.gg[3] = l2_6.x[1] * .4 * v30 * v34 / (v25 * l2_6.x[3]) - v26 * .15 *
10085          l2_6.x[2] * v28 * v31 / (v23 * v29) + l2_6.x[2] * 1.2 * l2_6.x[4]
10086          * v33 / (d__1 * d__1 * v26);
10087     l5_12.gg[9] = v30 * -.2 * v34 / (v24 * l2_6.x[3]) - v23 * .6 * l2_6.x[1] *
10088          l2_6.x[2] * v28 * v31 / v29 + l2_6.x[2] * .8 * l2_6.x[4] * v33 /
10089         (v25 * v26 * l2_6.x[1]);
10090     l5_12.gg[15] = v23 * -.3 * v26 * v28 * v31 / v29 - l2_6.x[4] * .4 * v33 /
10091         (v25 * v26) + l2_6.x[3] * v32 / (v27 * l2_6.x[2]);
10092 /* Computing 2nd power */
10093     d__1 = l2_6.x[3];
10094 /* Computing 2nd power */
10095     d__2 = v28;
10096     l5_12.gg[21] = l2_6.x[1] * .2 * v30 * v34 / (v24 * (d__1 * d__1)) - v23 *
10097         .1 * v26 * l2_6.x[2] * v31 / (d__2 * d__2 * v29) - v32 * .5 / v27;
10098     l5_12.gg[27] = l2_6.x[1] * -.1 * v34 / (v24 * l2_6.x[3] * v30) + v23 * .2
10099         * v26 * l2_6.x[2] * v28 * v31 / (l2_6.x[4] * v29) - l2_6.x[2] *
10100         .4 * v33 / (v25 * v26);
10101 /* Computing 2nd power */
10102     d__1 = v34;
10103     l5_12.gg[39] = l2_6.x[1] * -.066666666666666666 * v30 / (v24 * l2_6.x[3] *
10104          (d__1 * d__1)) - v23 * .075 * v26 * l2_6.x[2] * v28 / (v29 * v33)
10105          - l2_6.x[2] * .3 * l2_6.x[4] / (v25 * v26 * v31) - l2_6.x[3] *
10106         .25 / (v27 * v32);
10107 labelL10:
10108     if (! l10_6.index2[4] && ! l10_6.index2[5]) {
10109     goto labelL12;
10110     }
10111 /* Computing 2nd power */
10112     d__1 = l2_6.x[3];
10113     v35 = d__1 * d__1 * 10.;
10114     d__1 = std::abs(l2_6.x[6]);
10115     v36 = pow_dd(&d__1, &a[m - 1]);
10116 /* Computing 3rd power */
10117     d__1 = l2_6.x[5];
10118     v37 = l2_6.x[1] * (d__1 * (d__1 * d__1));
10119     v38 = l2_6.x[2] * 15. * l2_6.x[3];
10120 /* Computing 2nd power */
10121     d__1 = l2_6.x[1];
10122     d__2 = std::abs(l2_6.x[6]);
10123     v39 = l2_6.x[0] * (d__1 * d__1) * l2_6.x[4] * pow_dd(&d__2, &c_b590);
10124     v40 = l2_6.x[1] * 20. * l2_6.x[5];
10125 /* Computing 2nd power */
10126     d__1 = l2_6.x[0];
10127 /* Computing 2nd power */
10128     d__2 = l2_6.x[4];
10129     v41 = d__1 * d__1 * l2_6.x[3] * (d__2 * d__2);
10130     d__1 = std::abs(l2_6.x[4]);
10131     v42 = l2_6.x[0] * 25. * l2_6.x[1] * pow_dd(&d__1, &c_b590) * l2_6.x[6];
10132 /* Computing 2nd power */
10133     d__1 = l2_6.x[5];
10134     v43 = l2_6.x[2] * (d__1 * d__1);
10135 /* Computing 2nd power */
10136     d__1 = l2_6.x[0];
10137 /* Computing 2nd power */
10138     d__2 = l2_6.x[1];
10139     v44 = d__1 * d__1 * 12.5 * (d__2 * d__2) * l2_6.x[6];
10140     d__1 = std::abs(l2_6.x[4]);
10141     v45 = pow_dd(&d__1, &c_b590);
10142     gv[0] = v35 * v36 / v37 - v38 / (l2_6.x[0] * v39) - v40 * 2. / (l2_6.x[0]
10143         * v41) + l2_6.x[1] * 2. * v42 / v43;
10144     gv[1] = -v35 * l2_6.x[0] * v36 / (l2_6.x[1] * v37) - v38 * 2. / (l2_6.x[1]
10145          * v39) + l2_6.x[5] * 20. / v41 + l2_6.x[0] * 2. * v42 / v43;
10146     gv[2] = l2_6.x[3] * 15. / v39 - l2_6.x[0] * l2_6.x[1] * v42 / (l2_6.x[2] *
10147          v43);
10148     gv[3] = l2_6.x[0] * 20. * l2_6.x[3] * v36 / v37 + l2_6.x[2] * 15. / v39 -
10149         v40 / (l2_6.x[3] * v41);
10150     gv[4] = -v38 / (l2_6.x[4] * v39) - v40 * 2. / (l2_6.x[4] * v41) + v44 / (
10151         v43 * v45);
10152     gv[5] = v35 * -3. * l2_6.x[0] * v36 / (l2_6.x[5] * v37) + l2_6.x[1] * 20.
10153         / v41 - v44 * 4. * v45 / (l2_6.x[5] * v43);
10154     d__1 = std::abs(l2_6.x[6]);
10155     d__2 = a[m - 1] - 1.;
10156     gv[6] = a[m - 1] * v35 * l2_6.x[0] * pow_dd(&d__1, &d__2) / v37 - v38 *
10157         .5 / (v39 * l2_6.x[6]) + v42 * l2_6.x[0] * l2_6.x[1] / (l2_6.x[6]
10158         * v43);
10159     if (! l10_6.index2[4]) {
10160     goto labelL11;
10161     }
10162     for (i__ = 1; i__ <= 7; ++i__) {
10163 /* labelL20: */
10164     l5_12.gg[i__ * 6 - 2] = gv[i__ - 1];
10165     }
10166 labelL11:
10167     if (! l10_6.index2[5]) {
10168     goto labelL12;
10169     }
10170     for (i__ = 1; i__ <= 7; ++i__) {
10171 /* L30: */
10172     l5_12.gg[i__ * 6 - 1] = -gv[i__ - 1];
10173     }
10174 labelL12:
10175     return 0;
10176 } /* tp101_ */
10177 
tp101_(int * mode)10178 /* Subroutine */ int tp101_(int *mode)
10179 {
10180     return tp101_0_(0, mode);
10181     }
10182 
tp102_(int * mode)10183 /* Subroutine */ int tp102_(int *mode)
10184 {
10185     return tp101_0_(1, mode);
10186     }
10187 
tp103_(int * mode)10188 /* Subroutine */ int tp103_(int *mode)
10189 {
10190     return tp101_0_(2, mode);
10191     }
10192 
10193 
tp104_(int * mode)10194 /* Subroutine */ int tp104_(int *mode)
10195 {
10196     /* System generated locals */
10197     Real d__1, d__2, d__3, d__4;
10198 
10199     /* Local variables */
10200     static Real a;
10201     static int i__, j;
10202     static Real s, v1, v2, bx;
10203 
10204     switch ((int)*mode) {
10205     case 1:  goto labelL1;
10206     case 2:  goto labelL2;
10207     case 3:  goto labelL3;
10208     case 4:  goto labelL4;
10209     case 5:  goto labelL5;
10210     }
10211 labelL1:
10212     l1_1.n = 8;
10213     l1_1.nili = 0;
10214     l1_1.ninl = 6;
10215     l1_1.neli = 0;
10216     l1_1.nenl = 0;
10217     for (i__ = 1; i__ <= 8; ++i__) {
10218     l11_7.lxl[i__ - 1] = true;
10219     l12_7.lxu[i__ - 1] = true;
10220     l13_7.xl[i__ - 1] = .1;
10221     l14_7.xu[i__ - 1] = 10.;
10222 /* L33: */
10223     }
10224     a = .0588;
10225     l2_7.x[0] = 6.;
10226     l2_7.x[1] = 3.;
10227     l2_7.x[2] = .4;
10228     l2_7.x[3] = .2;
10229     l2_7.x[4] = 6.;
10230     l2_7.x[5] = 6.;
10231     l2_7.x[6] = 1.;
10232     l2_7.x[7] = .5;
10233     l4_7.gf[2] = 0.;
10234     l4_7.gf[3] = 0.;
10235     l4_7.gf[4] = 0.;
10236     l4_7.gf[5] = 0.;
10237     for (i__ = 1; i__ <= 4; ++i__) {
10238     for (j = 1; j <= 8; ++j) {
10239 /* L34: */
10240         l5_18.gg[i__ + j * 6 - 7] = 0.;
10241     }
10242     }
10243     l5_18.gg[0] = -.1;
10244     l5_18.gg[1] = -.1;
10245     l5_18.gg[7] = -.1;
10246     l20_2.lex = false;
10247     l20_2.xex[0] = 6.46511402796;
10248     l20_2.xex[1] = 2.23270864907;
10249     l20_2.xex[2] = .667397491303;
10250     l20_2.xex[3] = .595756422907;
10251     l20_2.xex[4] = 5.93267567811;
10252     l20_2.xex[5] = 5.52723456506;
10253     l20_2.xex[6] = 1.01332200907;
10254     l20_2.xex[7] = .400668229166;
10255     l20_2.fex = 3.95116343955;
10256     return 0;
10257 labelL2:
10258     if (l2_7.x[0] / l2_7.x[6] < 0. || l2_7.x[1] / l2_7.x[7] < 0.) {
10259     goto labelL13;
10260     }
10261     d__1 = l2_7.x[0] / l2_7.x[6];
10262     d__2 = l2_7.x[1] / l2_7.x[7];
10263     l6_1.fx = (pow_dd(&d__1, &c_b993) + pow_dd(&d__2, &c_b993)) * .4 + 10. -
10264         l2_7.x[0] - l2_7.x[1];
10265     return 0;
10266 labelL13:
10267     s = 0.;
10268     for (i__ = 1; i__ <= 8; ++i__) {
10269 /* labelL14: */
10270 /* Computing 2nd power */
10271     d__1 = l2_7.x[i__ - 1] - 5.;
10272     s += d__1 * d__1;
10273     }
10274     l6_1.fx = s + 1e3 + 3.9;
10275     return 0;
10276 labelL3:
10277     if (l2_7.x[0] < 0. || l2_7.x[1] < 0. || l2_7.x[6] < 0. || l2_7.x[7] < 0.)
10278         {
10279     goto L15;
10280     }
10281     l4_7.gf[0] = pow_dd(l2_7.x, &c_b997) * .268 * pow_dd(&l2_7.x[6], &c_b998)
10282         - 1.;
10283     l4_7.gf[1] = pow_dd(&l2_7.x[1], &c_b997) * .268 * pow_dd(&l2_7.x[7], &
10284         c_b998) - 1.;
10285     l4_7.gf[6] = pow_dd(l2_7.x, &c_b993) * -.268 * pow_dd(&l2_7.x[6], &
10286         c_b1002);
10287     l4_7.gf[7] = pow_dd(&l2_7.x[1], &c_b993) * -.268 * pow_dd(&l2_7.x[7], &
10288         c_b1002);
10289     return 0;
10290 L15:
10291     for (i__ = 1; i__ <= 2; ++i__) {
10292     l4_7.gf[i__ - 1] = (l2_7.x[i__ - 1] - 5.) * 2.;
10293 /* L16: */
10294     l4_7.gf[i__ + 5] = (l2_7.x[i__ + 5] - 5.) * 2.;
10295     }
10296     return 0;
10297 labelL4:
10298     d__3 = (d__1 = l2_7.x[0] / l2_7.x[6], std::abs(d__1));
10299     d__4 = (d__2 = l2_7.x[1] / l2_7.x[7], std::abs(d__2));
10300     bx = (pow_dd(&d__3, &c_b993) + pow_dd(&d__4, &c_b993)) * .4 + 10. -
10301         l2_7.x[0] - l2_7.x[1];
10302     if (l9_6.index1[0]) {
10303     l3_5.g[0] = -a * l2_7.x[4] * l2_7.x[6] - l2_7.x[0] * .1 + 1.;
10304     }
10305     if (l9_6.index1[1]) {
10306     l3_5.g[1] = -a * l2_7.x[5] * l2_7.x[7] - l2_7.x[0] * .1 - l2_7.x[1] *
10307         .1 + 1.;
10308     }
10309     if (l9_6.index1[2]) {
10310     d__1 = std::abs(l2_7.x[2]);
10311     d__2 = std::abs(l2_7.x[2]);
10312     l3_5.g[2] = (l2_7.x[2] * -4. - pow_dd(&d__1, &c_b1008) * 2.) / l2_7.x[
10313         4] - a * pow_dd(&d__2, &c_b1009) * l2_7.x[6] + 1.;
10314     }
10315     if (l9_6.index1[3]) {
10316     d__1 = std::abs(l2_7.x[3]);
10317     d__2 = std::abs(l2_7.x[3]);
10318     l3_5.g[3] = (l2_7.x[3] * -4. - pow_dd(&d__1, &c_b1008) * 2.) / l2_7.x[
10319         5] - a * pow_dd(&d__2, &c_b1009) * l2_7.x[7] + 1.;
10320     }
10321     if (l9_6.index1[4]) {
10322     l3_5.g[4] = bx - 1.;
10323     }
10324     if (l9_6.index1[5]) {
10325     l3_5.g[5] = 4.2 - bx;
10326     }
10327     return 0;
10328 labelL5:
10329     if (! l10_6.index2[0]) {
10330     goto L7;
10331     }
10332     l5_18.gg[24] = -a * l2_7.x[6];
10333     l5_18.gg[36] = -a * l2_7.x[4];
10334 L7:
10335     if (! l10_6.index2[1]) {
10336     goto L8;
10337     }
10338     l5_18.gg[31] = -a * l2_7.x[7];
10339     l5_18.gg[43] = -a * l2_7.x[5];
10340 L8:
10341     if (! l10_6.index2[2]) {
10342     goto labelL9;
10343     }
10344 /* Computing 2nd power */
10345     d__1 = l2_7.x[4];
10346     v1 = d__1 * d__1;
10347     d__1 = std::abs(l2_7.x[2]);
10348     d__2 = std::abs(l2_7.x[2]);
10349     l5_18.gg[14] = (pow_dd(&d__1, &c_b1015) * 1.42 - 4.) / l2_7.x[4] + a *
10350         1.3 * pow_dd(&d__2, &c_b1016) * l2_7.x[6];
10351     d__1 = std::abs(l2_7.x[2]);
10352     l5_18.gg[26] = (l2_7.x[2] * 4. + pow_dd(&d__1, &c_b1008) * 2.) / v1;
10353     d__1 = std::abs(l2_7.x[2]);
10354     l5_18.gg[38] = -a * pow_dd(&d__1, &c_b1009);
10355 labelL9:
10356     if (! l10_6.index2[3]) {
10357     goto labelL10;
10358     }
10359 /* Computing 2nd power */
10360     d__1 = l2_7.x[5];
10361     v2 = d__1 * d__1;
10362     d__1 = std::abs(l2_7.x[3]);
10363     d__2 = std::abs(l2_7.x[3]);
10364     l5_18.gg[21] = (pow_dd(&d__1, &c_b1015) * 1.42 - 4.) / l2_7.x[5] + a *
10365         1.3 * pow_dd(&d__2, &c_b1016) * l2_7.x[7];
10366     d__1 = std::abs(l2_7.x[3]);
10367     l5_18.gg[33] = (l2_7.x[3] * 4. + pow_dd(&d__1, &c_b1008) * 2.) / v2;
10368     d__1 = std::abs(l2_7.x[3]);
10369     l5_18.gg[45] = -a * pow_dd(&d__1, &c_b1009);
10370 labelL10:
10371     if (! l10_6.index2[4] && ! l10_6.index2[5]) {
10372     goto labelL12;
10373     }
10374     d__1 = std::abs(l2_7.x[0]);
10375     d__2 = std::abs(l2_7.x[6]);
10376     l4_7.gf[0] = pow_dd(&d__1, &c_b997) * .268 * pow_dd(&d__2, &c_b998) - 1.;
10377     d__1 = std::abs(l2_7.x[1]);
10378     d__2 = std::abs(l2_7.x[7]);
10379     l4_7.gf[1] = pow_dd(&d__1, &c_b997) * .268 * pow_dd(&d__2, &c_b998) - 1.;
10380     d__1 = std::abs(l2_7.x[0]);
10381     d__2 = std::abs(l2_7.x[6]);
10382     l4_7.gf[6] = pow_dd(&d__1, &c_b993) * -.268 * pow_dd(&d__2, &c_b1002);
10383     d__1 = std::abs(l2_7.x[1]);
10384     d__2 = std::abs(l2_7.x[7]);
10385     l4_7.gf[7] = pow_dd(&d__1, &c_b993) * -.268 * pow_dd(&d__2, &c_b1002);
10386     if (! l10_6.index2[4]) {
10387     goto labelL11;
10388     }
10389     for (i__ = 1; i__ <= 8; ++i__) {
10390 /* L31: */
10391     l5_18.gg[i__ * 6 - 2] = l4_7.gf[i__ - 1];
10392     }
10393 labelL11:
10394     if (! l10_6.index2[5]) {
10395     goto labelL12;
10396     }
10397     for (i__ = 1; i__ <= 8; ++i__) {
10398 /* L32: */
10399     l5_18.gg[i__ * 6 - 1] = -l4_7.gf[i__ - 1];
10400     }
10401 labelL12:
10402     return 0;
10403 } /* tp104_ */
10404 
10405 
tp105_(int * mode)10406 /* Subroutine */ int tp105_(int *mode)
10407 {
10408     /* System generated locals */
10409     int i__1;
10410     Real d__1;
10411 
10412     /* Local variables */
10413     static Real a[235], b[235], c__[235];
10414     static int i__, j;
10415     static Real s, v, y[235], t1, v0, v1, v2, v3, v4, v5, v6, v7, v8,
10416         v9, da[1880]    /* was [235][8] */, db[1880]    /* was [235][
10417         8] */, dc[1880]    /* was [235][8] */, v10, v11;
10418     static Real sum;
10419 
10420     if (*mode - 1 <= 0) {
10421     goto labelL1;
10422     } else {
10423     goto labelL20;
10424     }
10425 labelL1:
10426     l1_1.n = 8;
10427     l1_1.nili = 1;
10428     l1_1.ninl = 0;
10429     l1_1.neli = 0;
10430     l1_1.nenl = 0;
10431     for (i__ = 1; i__ <= 8; ++i__) {
10432     l11_7.lxl[i__ - 1] = true;
10433 /* L59: */
10434     l12_7.lxu[i__ - 1] = true;
10435     }
10436     l13_7.xl[0] = .001;
10437     l13_7.xl[1] = .001;
10438     l13_7.xl[2] = 100.;
10439     l13_7.xl[3] = 130.;
10440     l13_7.xl[4] = 170.;
10441     l14_7.xu[0] = .499;
10442     l14_7.xu[1] = .499;
10443     l14_7.xu[2] = 180.;
10444     l14_7.xu[3] = 210.;
10445     l14_7.xu[4] = 240.;
10446     for (i__ = 6; i__ <= 8; ++i__) {
10447     l13_7.xl[i__ - 1] = 5.;
10448 /* L62: */
10449     l14_7.xu[i__ - 1] = 25.;
10450     }
10451     l2_7.x[0] = .1;
10452     l2_7.x[1] = .2;
10453     l2_7.x[2] = 100.;
10454     l2_7.x[3] = 125.;
10455     l2_7.x[4] = 175.;
10456     l2_7.x[5] = 11.2;
10457     l2_7.x[6] = 13.2;
10458     l2_7.x[7] = 15.8;
10459     y[0] = 95.;
10460     y[1] = 105.;
10461     for (i__ = 3; i__ <= 6; ++i__) {
10462 /* L30: */
10463     y[i__ - 1] = 110.;
10464     }
10465     for (i__ = 7; i__ <= 10; ++i__) {
10466 /* L31: */
10467     y[i__ - 1] = 115.;
10468     }
10469     for (i__ = 11; i__ <= 25; ++i__) {
10470 /* L32: */
10471     y[i__ - 1] = 120.;
10472     }
10473     for (i__ = 26; i__ <= 40; ++i__) {
10474 /* L33: */
10475     y[i__ - 1] = 125.;
10476     }
10477     for (i__ = 41; i__ <= 55; ++i__) {
10478 /* L34: */
10479     y[i__ - 1] = 130.;
10480     }
10481     for (i__ = 56; i__ <= 68; ++i__) {
10482 /* L35: */
10483     y[i__ - 1] = 135.;
10484     }
10485     for (i__ = 69; i__ <= 89; ++i__) {
10486 /* L36: */
10487     y[i__ - 1] = 140.;
10488     }
10489     for (i__ = 90; i__ <= 101; ++i__) {
10490 /* L37: */
10491     y[i__ - 1] = 145.;
10492     }
10493     for (i__ = 102; i__ <= 118; ++i__) {
10494 /* L38: */
10495     y[i__ - 1] = 150.;
10496     }
10497     for (i__ = 119; i__ <= 122; ++i__) {
10498 /* L39: */
10499     y[i__ - 1] = 155.;
10500     }
10501     for (i__ = 123; i__ <= 142; ++i__) {
10502 /* L40: */
10503     y[i__ - 1] = 160.;
10504     }
10505     for (i__ = 143; i__ <= 150; ++i__) {
10506 /* L41: */
10507     y[i__ - 1] = 165.;
10508     }
10509     for (i__ = 151; i__ <= 167; ++i__) {
10510 /* L42: */
10511     y[i__ - 1] = 170.;
10512     }
10513     for (i__ = 168; i__ <= 175; ++i__) {
10514 /* L43: */
10515     y[i__ - 1] = 175.;
10516     }
10517     for (i__ = 176; i__ <= 181; ++i__) {
10518 /* L44: */
10519     y[i__ - 1] = 180.;
10520     }
10521     for (i__ = 182; i__ <= 187; ++i__) {
10522 /* L45: */
10523     y[i__ - 1] = 185.;
10524     }
10525     for (i__ = 188; i__ <= 194; ++i__) {
10526 /* L46: */
10527     y[i__ - 1] = 190.;
10528     }
10529     for (i__ = 195; i__ <= 198; ++i__) {
10530 /* L47: */
10531     y[i__ - 1] = 195.;
10532     }
10533     for (i__ = 199; i__ <= 201; ++i__) {
10534 /* L48: */
10535     y[i__ - 1] = 200.;
10536     }
10537     for (i__ = 202; i__ <= 204; ++i__) {
10538 /* L49: */
10539     y[i__ - 1] = 205.;
10540     }
10541     for (i__ = 205; i__ <= 212; ++i__) {
10542 /* L50: */
10543     y[i__ - 1] = 210.;
10544     }
10545     y[212] = 215.;
10546     for (i__ = 214; i__ <= 219; ++i__) {
10547 /* L51: */
10548     y[i__ - 1] = 220.;
10549     }
10550     for (i__ = 220; i__ <= 224; ++i__) {
10551 /* L52: */
10552     y[i__ - 1] = 230.;
10553     }
10554     y[224] = 235.;
10555     for (i__ = 226; i__ <= 232; ++i__) {
10556 /* L53: */
10557     y[i__ - 1] = 240.;
10558     }
10559     y[232] = 245.;
10560     y[233] = 260.;
10561     y[234] = 260.;
10562     l5_6.gg[0] = -1.;
10563     l5_6.gg[1] = -1.;
10564     for (i__ = 3; i__ <= 8; ++i__) {
10565 /* L58: */
10566     l5_6.gg[i__ - 1] = 0.;
10567     }
10568     l20_2.lex = false;
10569     l20_2.xex[0] = .412892753597;
10570     l20_2.xex[1] = .403352658261;
10571     l20_2.xex[2] = 131.261311486;
10572     l20_2.xex[3] = 164.313514476;
10573     l20_2.xex[4] = 217.422221771;
10574     l20_2.xex[5] = 12.2801780396;
10575     l20_2.xex[6] = 15.7716989473;
10576     l20_2.xex[7] = 20.7468249193;
10577     l20_2.fex = 1138.4162396;
10578     return 0;
10579 labelL20:
10580     if ((i__1 = *mode - 4) < 0) {
10581     goto L21;
10582     } else if (i__1 == 0) {
10583     goto labelL4;
10584     } else {
10585     goto labelL5;
10586     }
10587 L21:
10588     s = 0.;
10589     v = 1. / std::sqrt(std::atan(1.) * 8.);
10590     v1 = l2_7.x[0] / l2_7.x[5];
10591     v2 = l2_7.x[1] / l2_7.x[6];
10592     v3 = (1. - l2_7.x[0] - l2_7.x[1]) / l2_7.x[7];
10593 /* Computing 2nd power */
10594     d__1 = l2_7.x[5];
10595     v4 = 1. / (d__1 * d__1 * 2.);
10596 /* Computing 2nd power */
10597     d__1 = l2_7.x[6];
10598     v5 = 1. / (d__1 * d__1 * 2.);
10599 /* Computing 2nd power */
10600     d__1 = l2_7.x[7];
10601     v6 = 1. / (d__1 * d__1 * 2.);
10602     for (i__ = 1; i__ <= 235; ++i__) {
10603 /* Computing 2nd power */
10604     d__1 = y[i__ - 1] - l2_7.x[2];
10605     a[i__ - 1] = v1 * std::exp(-(d__1 * d__1) * v4);
10606 /* Computing 2nd power */
10607     d__1 = y[i__ - 1] - l2_7.x[3];
10608     b[i__ - 1] = v2 * std::exp(-(d__1 * d__1) * v5);
10609 /* Computing 2nd power */
10610     d__1 = y[i__ - 1] - l2_7.x[4];
10611     c__[i__ - 1] = v3 * std::exp(-(d__1 * d__1) * v6);
10612     v11 = (a[i__ - 1] + b[i__ - 1] + c__[i__ - 1]) * v;
10613     if (v11 <= 0.) {
10614         goto L70;
10615     }
10616 /* L54: */
10617     s += std::log(v11);
10618     }
10619     if (*mode == 3) {
10620     goto labelL3;
10621     }
10622 /* labelL2: */
10623     l6_1.fx = -s;
10624     return 0;
10625 labelL3:
10626     for (i__ = 1; i__ <= 235; ++i__) {
10627     for (j = 1; j <= 8; ++j) {
10628         da[i__ + j * 235 - 236] = 0.;
10629         db[i__ + j * 235 - 236] = 0.;
10630 /* L60: */
10631         dc[i__ + j * 235 - 236] = 0.;
10632     }
10633     }
10634     for (i__ = 1; i__ <= 235; ++i__) {
10635 /* Computing 2nd power */
10636     d__1 = l2_7.x[5];
10637     v0 = d__1 * d__1;
10638     v2 = y[i__ - 1] - l2_7.x[2];
10639 /* Computing 2nd power */
10640     d__1 = v2;
10641     v1 = std::exp(-(d__1 * d__1) / (v0 * 2.));
10642     da[i__ - 1] = v1 / l2_7.x[5];
10643 /* Computing 3rd power */
10644     d__1 = l2_7.x[5];
10645     da[i__ + 469] = l2_7.x[0] * v2 / (d__1 * (d__1 * d__1)) * v1;
10646 /* Computing 2nd power */
10647     d__1 = v2;
10648     da[i__ + 1174] = l2_7.x[0] / v0 * (d__1 * d__1 / v0 - 1.) * v1;
10649 /* Computing 2nd power */
10650     d__1 = l2_7.x[6];
10651     v3 = d__1 * d__1;
10652     v4 = y[i__ - 1] - l2_7.x[3];
10653 /* Computing 2nd power */
10654     d__1 = v4;
10655     v5 = std::exp(-(d__1 * d__1) / (v3 * 2.));
10656     db[i__ + 234] = v5 / l2_7.x[6];
10657 /* Computing 3rd power */
10658     d__1 = l2_7.x[6];
10659     db[i__ + 704] = l2_7.x[1] * v4 / (d__1 * (d__1 * d__1)) * v5;
10660 /* Computing 2nd power */
10661     d__1 = v4;
10662     db[i__ + 1409] = l2_7.x[1] / v3 * (d__1 * d__1 / v3 - 1.) * v5;
10663 /* Computing 2nd power */
10664     d__1 = l2_7.x[7];
10665     v7 = d__1 * d__1;
10666     v9 = y[i__ - 1] - l2_7.x[4];
10667 /* Computing 2nd power */
10668     d__1 = v9;
10669     v8 = std::exp(-(d__1 * d__1) / (v7 * 2.));
10670     v10 = 1. - l2_7.x[0] - l2_7.x[1];
10671     dc[i__ - 1] = -v8 / l2_7.x[7];
10672     dc[i__ + 234] = dc[i__ - 1];
10673 /* Computing 3rd power */
10674     d__1 = l2_7.x[7];
10675     dc[i__ + 939] = v10 * v9 / (d__1 * (d__1 * d__1)) * v8;
10676 /* Computing 2nd power */
10677     d__1 = v9;
10678     dc[i__ + 1644] = v10 / v7 * (d__1 * d__1 / v7 - 1.) * v8;
10679 /* L55: */
10680     }
10681     for (j = 1; j <= 8; ++j) {
10682     t1 = 0.;
10683     for (i__ = 1; i__ <= 235; ++i__) {
10684 /* L56: */
10685         t1 += (da[i__ + j * 235 - 236] + db[i__ + j * 235 - 236] + dc[i__
10686             + j * 235 - 236]) / (a[i__ - 1] + b[i__ - 1] + c__[i__ -
10687             1]);
10688     }
10689     l4_7.gf[j - 1] = -t1;
10690 /* L57: */
10691     }
10692     return 0;
10693 L70:
10694     for (i__ = 1; i__ <= 8; ++i__) {
10695     sum = (float)0.;
10696 /* L71: */
10697 /* Computing 2nd power */
10698     d__1 = l2_7.x[i__ - 1] - 5.;
10699     sum += d__1 * d__1;
10700     }
10701     l6_1.fx = sum + 2090.;
10702     return 0;
10703 labelL4:
10704     if (l9_2.index1[0]) {
10705     l3_1.g[0] = 1. - l2_7.x[0] - l2_7.x[1];
10706     }
10707 labelL5:
10708     return 0;
10709 } /* tp105_ */
10710 
10711 
tp106_(int * mode)10712 /* Subroutine */ int tp106_(int *mode)
10713 {
10714     static int i__, j;
10715 
10716     switch ((int)*mode) {
10717     case 1:  goto labelL1;
10718     case 2:  goto labelL2;
10719     case 3:  goto labelL3;
10720     case 4:  goto labelL4;
10721     case 5:  goto labelL5;
10722     }
10723 labelL1:
10724     l1_1.n = 8;
10725     l1_1.nili = 3;
10726     l1_1.ninl = 3;
10727     l1_1.neli = 0;
10728     l1_1.nenl = 0;
10729     for (i__ = 1; i__ <= 3; ++i__) {
10730     l2_7.x[i__ - 1] = 5e3;
10731     l13_7.xl[i__ - 1] = 1e3;
10732 /* L23: */
10733     l14_7.xu[i__ - 1] = 1e4;
10734     }
10735     l13_7.xl[0] = 100.;
10736     for (i__ = 4; i__ <= 8; ++i__) {
10737     l13_7.xl[i__ - 1] = 10.;
10738 /* L24: */
10739     l14_7.xu[i__ - 1] = 1e3;
10740     }
10741     l2_7.x[3] = 200.;
10742     l2_7.x[4] = 350.;
10743     l2_7.x[5] = 150.;
10744     l2_7.x[6] = 225.;
10745     l2_7.x[7] = 425.;
10746     for (i__ = 1; i__ <= 8; ++i__) {
10747     l11_7.lxl[i__ - 1] = true;
10748 /* labelL6: */
10749     l12_7.lxu[i__ - 1] = true;
10750     }
10751     for (i__ = 1; i__ <= 6; ++i__) {
10752     for (j = 1; j <= 8; ++j) {
10753 /* L22: */
10754         l5_18.gg[i__ + j * 6 - 7] = 0.;
10755     }
10756     }
10757     l4_7.gf[0] = 1.;
10758     l4_7.gf[1] = 1.;
10759     l4_7.gf[2] = 1.;
10760     for (i__ = 4; i__ <= 8; ++i__) {
10761 /* labelL20: */
10762     l4_7.gf[i__ - 1] = 0.;
10763     }
10764     l5_18.gg[18] = -.0025;
10765     l5_18.gg[30] = -.0025;
10766     l5_18.gg[25] = -.0025;
10767     l5_18.gg[37] = -.0025;
10768     l5_18.gg[19] = .0025;
10769     l5_18.gg[26] = .01;
10770     l5_18.gg[44] = -.01;
10771     l5_18.gg[21] = -.0083333252000000017;
10772     l5_18.gg[28] = -.012500000000000001;
10773     l20_2.lex = false;
10774     l20_2.xex[0] = 579.316670388;
10775     l20_2.xex[1] = 1359.94292292;
10776     l20_2.xex[2] = 5110.07132983;
10777     l20_2.xex[3] = 182.017426603;
10778     l20_2.xex[4] = 295.598526195;
10779     l20_2.xex[5] = 217.979874037;
10780     l20_2.xex[6] = 286.41620107;
10781     l20_2.xex[7] = 395.597851351;
10782     l20_2.fex = 7049.33092308;
10783     return 0;
10784 labelL2:
10785     l6_1.fx = l2_7.x[0] + l2_7.x[1] + l2_7.x[2];
10786 labelL3:
10787     return 0;
10788 labelL4:
10789     if (l9_6.index1[0]) {
10790     l3_5.g[0] = (l2_7.x[3] + l2_7.x[5]) * -.0025 + 1.;
10791     }
10792     if (l9_6.index1[1]) {
10793     l3_5.g[1] = (l2_7.x[4] + l2_7.x[6] - l2_7.x[3]) * -.0025 + 1.;
10794     }
10795     if (l9_6.index1[2]) {
10796     l3_5.g[2] = (l2_7.x[7] - l2_7.x[4]) * -.01 + 1.;
10797     }
10798     if (l9_6.index1[3]) {
10799     l3_5.g[3] = (l2_7.x[3] * -833.33252 - l2_7.x[0] * 100. + 83333.333 +
10800         l2_7.x[0] * l2_7.x[5]) * 1e-5;
10801     }
10802     if (l9_6.index1[4]) {
10803     l3_5.g[4] = (l2_7.x[4] * -1250. - l2_7.x[1] * l2_7.x[3] + l2_7.x[3] *
10804         1250. + l2_7.x[1] * l2_7.x[6]) * 1e-5;
10805     }
10806     if (l9_6.index1[5]) {
10807     l3_5.g[5] = (-1.25e6 - l2_7.x[2] * l2_7.x[4] + l2_7.x[4] * 2500. +
10808         l2_7.x[2] * l2_7.x[7]) * 1e-5;
10809     }
10810     return 0;
10811 labelL5:
10812     if (! l10_6.index2[3]) {
10813     goto labelL10;
10814     }
10815     l5_18.gg[3] = (l2_7.x[5] - 100.) * 1e-5;
10816     l5_18.gg[33] = l2_7.x[0] * 1e-5;
10817 labelL10:
10818     if (! l10_6.index2[4]) {
10819     goto labelL11;
10820     }
10821     l5_18.gg[10] = (-l2_7.x[3] + l2_7.x[6]) * 1e-5;
10822     l5_18.gg[22] = (-l2_7.x[1] + 1250.) * 1e-5;
10823     l5_18.gg[40] = l2_7.x[1] * 1e-5;
10824 labelL11:
10825     if (! l10_6.index2[5]) {
10826     goto labelL12;
10827     }
10828     l5_18.gg[17] = (-l2_7.x[4] + l2_7.x[7]) * 1e-5;
10829     l5_18.gg[29] = (-l2_7.x[2] + 2500.) * 1e-5;
10830     l5_18.gg[47] = l2_7.x[2] * 1e-5;
10831 labelL12:
10832     return 0;
10833 } /* tp106_ */
10834 
10835 
tp107_(int * mode)10836 /* Subroutine */ int tp107_(int *mode)
10837 {
10838     /* System generated locals */
10839     Real d__1, d__2;
10840 
10841     /* Local variables */
10842     static Real c__, d__;
10843     static int i__, j;
10844     static Real v1, v2, v3, v4, v5, v6, v7, v8, v9, y1, y2, y3, y4, y5,
10845         y6, v10, v11, v12, v13, v14, v15;
10846 
10847     switch ((int)*mode) {
10848     case 1:  goto labelL1;
10849     case 2:  goto labelL2;
10850     case 3:  goto labelL3;
10851     case 4:  goto labelL4;
10852     case 5:  goto labelL4;
10853     }
10854 labelL1:
10855     l1_1.n = 9;
10856     l1_1.nili = 0;
10857     l1_1.ninl = 0;
10858     l1_1.neli = 0;
10859     l1_1.nenl = 6;
10860     l2_8.x[0] = .8;
10861     l2_8.x[1] = .8;
10862     l2_8.x[2] = .2;
10863     l2_8.x[3] = .2;
10864     l2_8.x[4] = 1.0454;
10865     l2_8.x[5] = 1.0454;
10866     l2_8.x[6] = 1.0454;
10867     l2_8.x[7] = 0.;
10868     l2_8.x[8] = 0.;
10869     v1 = .96460459183673464;
10870     c__ = v1 * std::sin(.25);
10871     d__ = v1 *std::cos(.25);
10872     for (i__ = 1; i__ <= 6; ++i__) {
10873     for (j = 1; j <= 9; ++j) {
10874 /* labelL20: */
10875         l5_19.gg[i__ + j * 6 - 7] = 0.;
10876     }
10877     }
10878     for (i__ = 1; i__ <= 2; ++i__) {
10879     l11_8.lxl[i__ - 1] = true;
10880     l12_8.lxu[i__ - 1] = false;
10881 /* L21: */
10882     l13_8.xl[i__ - 1] = 0.;
10883     }
10884     for (i__ = 3; i__ <= 4; ++i__) {
10885     l11_8.lxl[i__ - 1] = false;
10886 /* L22: */
10887     l12_8.lxu[i__ - 1] = false;
10888     }
10889     for (i__ = 5; i__ <= 7; ++i__) {
10890     l11_8.lxl[i__ - 1] = true;
10891     l12_8.lxu[i__ - 1] = true;
10892     l13_8.xl[i__ - 1] = .90909;
10893 /* L23: */
10894     l14_8.xu[i__ - 1] = 1.0909;
10895     }
10896     for (i__ = 8; i__ <= 9; ++i__) {
10897     l11_8.lxl[i__ - 1] = false;
10898 /* L24: */
10899     l12_8.lxu[i__ - 1] = false;
10900     }
10901     for (i__ = 3; i__ <= 9; ++i__) {
10902 /* L25: */
10903     l4_8.gf[i__ - 1] = 0.;
10904     }
10905     l5_19.gg[0] = -1.;
10906     l5_19.gg[7] = -1.;
10907     l5_19.gg[15] = -1.;
10908     l5_19.gg[22] = -1.;
10909     l20_9.lex = false;
10910     l20_9.xex[0] = .667009506909;
10911     l20_9.xex[1] = 1.02238816675;
10912     l20_9.xex[2] = .228287932605;
10913     l20_9.xex[3] = .184821729352;
10914     l20_9.xex[4] = 1.09090000001;
10915     l20_9.xex[5] = 1.09090000001;
10916     l20_9.xex[6] = 1.06903593236;
10917     l20_9.xex[7] = .106612642267;
10918     l20_9.xex[8] = -.338786658776;
10919     l20_9.fex = 5055.01180339;
10920     return 0;
10921 labelL2:
10922 /* Computing 3rd power */
10923     d__1 = l2_8.x[0];
10924 /* Computing 3rd power */
10925     d__2 = l2_8.x[1];
10926     l6_1.fx = l2_8.x[0] * 3e3 + d__1 * (d__1 * d__1) * 1e3 + l2_8.x[1] * 2e3
10927         + d__2 * (d__2 * d__2) * 666.667;
10928     return 0;
10929 labelL3:
10930 /* Computing 2nd power */
10931     d__1 = l2_8.x[0];
10932     l4_8.gf[0] = d__1 * d__1 * 3e3 + 3e3;
10933 /* Computing 2nd power */
10934     d__1 = l2_8.x[1];
10935     l4_8.gf[1] = d__1 * d__1 * 2000.001 + 2e3;
10936     return 0;
10937 labelL4:
10938     y1 = std::sin(l2_8.x[7]);
10939     y2 =std::cos(l2_8.x[7]);
10940     y3 = std::sin(l2_8.x[8]);
10941     y4 =std::cos(l2_8.x[8]);
10942     y5 = std::sin(l2_8.x[7] - l2_8.x[8]);
10943     y6 =std::cos(l2_8.x[7] - l2_8.x[8]);
10944     if (*mode == 5) {
10945     goto labelL5;
10946     }
10947     if (l9_6.index1[0]) {
10948 /* Computing 2nd power */
10949     d__1 = l2_8.x[4];
10950     l3_5.g[0] = .4 - l2_8.x[0] + c__ * 2. * (d__1 * d__1) + l2_8.x[4] *
10951         l2_8.x[5] * (-d__ * y1 - c__ * y2) + l2_8.x[4] * l2_8.x[6] * (
10952         -d__ * y3 - c__ * y4);
10953     }
10954     if (l9_6.index1[1]) {
10955 /* Computing 2nd power */
10956     d__1 = l2_8.x[5];
10957     l3_5.g[1] = .4 - l2_8.x[1] + c__ * 2. * (d__1 * d__1) + l2_8.x[4] *
10958         l2_8.x[5] * (d__ * y1 - c__ * y2) + l2_8.x[5] * l2_8.x[6] * (
10959         d__ * y5 - c__ * y6);
10960     }
10961     if (l9_6.index1[2]) {
10962 /* Computing 2nd power */
10963     d__1 = l2_8.x[6];
10964     l3_5.g[2] = c__ * 2. * (d__1 * d__1) + .8 + l2_8.x[4] * l2_8.x[6] * (
10965         d__ * y3 - c__ * y4) + l2_8.x[5] * l2_8.x[6] * (-d__ * y5 -
10966         c__ * y6);
10967     }
10968     if (l9_6.index1[3]) {
10969 /* Computing 2nd power */
10970     d__1 = l2_8.x[4];
10971     l3_5.g[3] = .2 - l2_8.x[2] + d__ * 2. * (d__1 * d__1) - l2_8.x[4] *
10972         l2_8.x[5] * (-c__ * y1 + d__ * y2) - l2_8.x[4] * l2_8.x[6] * (
10973         -c__ * y3 + d__ * y4);
10974     }
10975     if (l9_6.index1[4]) {
10976 /* Computing 2nd power */
10977     d__1 = l2_8.x[5];
10978     l3_5.g[4] = .2 - l2_8.x[3] + d__ * 2. * (d__1 * d__1) - l2_8.x[4] *
10979         l2_8.x[5] * (c__ * y1 + d__ * y2) - l2_8.x[5] * l2_8.x[6] * (
10980         c__ * y5 + d__ * y6);
10981     }
10982     if (l9_6.index1[5]) {
10983 /* Computing 2nd power */
10984     d__1 = l2_8.x[6];
10985     l3_5.g[5] = d__ * 2. * (d__1 * d__1) - .337 - l2_8.x[4] * l2_8.x[6] *
10986         (c__ * y3 + d__ * y4) - l2_8.x[5] * l2_8.x[6] * (-c__ * y5 +
10987         d__ * y6);
10988     }
10989     return 0;
10990 labelL5:
10991     if (! l10_6.index2[0]) {
10992     goto L7;
10993     }
10994     v1 = -d__ * y1 - c__ * y2;
10995     v2 = -d__ * y3 - c__ * y4;
10996     l5_19.gg[24] = c__ * 4. * l2_8.x[4] + l2_8.x[5] * v1 + l2_8.x[6] * v2;
10997     l5_19.gg[30] = l2_8.x[4] * v1;
10998     l5_19.gg[36] = l2_8.x[4] * v2;
10999     l5_19.gg[42] = l2_8.x[4] * l2_8.x[5] * (-d__ * y2 + c__ * y1);
11000     l5_19.gg[48] = l2_8.x[4] * l2_8.x[6] * (-d__ * y4 + c__ * y3);
11001 L7:
11002     if (! l10_6.index2[1]) {
11003     goto L8;
11004     }
11005     v2 = d__ * y1 - c__ * y2;
11006     v3 = d__ * y6 + c__ * y5;
11007     v4 = d__ * y5 - c__ * y6;
11008     l5_19.gg[25] = l2_8.x[5] * v2;
11009     l5_19.gg[31] = c__ * 4. * l2_8.x[5] + l2_8.x[4] * v2 + l2_8.x[6] * v4;
11010     l5_19.gg[37] = l2_8.x[5] * v4;
11011     l5_19.gg[43] = l2_8.x[4] * l2_8.x[5] * (d__ * y2 + c__ * y1) + l2_8.x[5] *
11012          l2_8.x[6] * v3;
11013     l5_19.gg[49] = -l2_8.x[5] * l2_8.x[6] * v3;
11014 L8:
11015     if (! l10_6.index2[2]) {
11016     goto labelL9;
11017     }
11018     v5 = d__ * y3 - c__ * y4;
11019     v6 = -d__ * y5 - c__ * y6;
11020     v7 = -d__ * y6 + c__ * y5;
11021     l5_19.gg[26] = l2_8.x[6] * v5;
11022     l5_19.gg[32] = l2_8.x[6] * v6;
11023     l5_19.gg[38] = c__ * 4. * l2_8.x[6] + l2_8.x[4] * v5 + l2_8.x[5] * v6;
11024     l5_19.gg[44] = l2_8.x[5] * l2_8.x[6] * v7;
11025     l5_19.gg[50] = l2_8.x[4] * l2_8.x[6] * (d__ * y4 + c__ * y3) - l2_8.x[5] *
11026          l2_8.x[6] * v7;
11027 labelL9:
11028     if (! l10_6.index2[3]) {
11029     goto labelL10;
11030     }
11031     v8 = -c__ * y1 + d__ * y2;
11032     v9 = -c__ * y3 + d__ * y4;
11033     l5_19.gg[27] = d__ * 4. * l2_8.x[4] - l2_8.x[5] * v8 - l2_8.x[6] * v9;
11034     l5_19.gg[33] = -l2_8.x[4] * v8;
11035     l5_19.gg[39] = -l2_8.x[4] * v9;
11036     l5_19.gg[45] = l2_8.x[4] * l2_8.x[5] * (c__ * y2 + d__ * y1);
11037     l5_19.gg[51] = l2_8.x[4] * l2_8.x[6] * (c__ * y4 + d__ * y3);
11038 labelL10:
11039     if (! l10_6.index2[4]) {
11040     goto labelL11;
11041     }
11042     v10 = c__ * y1 + d__ * y2;
11043     v11 = c__ * y5 + d__ * y6;
11044     v12 = (c__ * y6 - d__ * y5) * l2_8.x[5];
11045     l5_19.gg[28] = -l2_8.x[5] * v10;
11046     l5_19.gg[34] = d__ * 4. * l2_8.x[5] - l2_8.x[4] * v10 - l2_8.x[6] * v11;
11047     l5_19.gg[40] = -l2_8.x[5] * v11;
11048     l5_19.gg[46] = -l2_8.x[4] * l2_8.x[5] * (c__ * y2 - d__ * y1) - l2_8.x[6]
11049         * v12;
11050     l5_19.gg[52] = l2_8.x[6] * v12;
11051 labelL11:
11052     if (! l10_6.index2[5]) {
11053     goto labelL12;
11054     }
11055     v13 = c__ * y3 + d__ * y4;
11056     v14 = -c__ * y5 + d__ * y6;
11057     v15 = (c__ * y6 + d__ * y5) * l2_8.x[5] * l2_8.x[6];
11058     l5_19.gg[29] = -l2_8.x[6] * v13;
11059     l5_19.gg[35] = -l2_8.x[6] * v14;
11060     l5_19.gg[41] = d__ * 4. * l2_8.x[6] - l2_8.x[4] * v13 - l2_8.x[5] * v14;
11061     l5_19.gg[47] = v15;
11062     l5_19.gg[53] = -l2_8.x[4] * l2_8.x[6] * (c__ * y4 - d__ * y3) - v15;
11063 labelL12:
11064     return 0;
11065 } /* tp107_ */
11066 
11067 
tp108_(int * mode)11068 /* Subroutine */ int tp108_(int *mode)
11069 {
11070     /* System generated locals */
11071     Real d__1, d__2;
11072 
11073     /* Local variables */
11074     static int i__, j;
11075 
11076     switch ((int)*mode) {
11077     case 1:  goto labelL1;
11078     case 2:  goto labelL2;
11079     case 3:  goto labelL3;
11080     case 4:  goto labelL4;
11081     case 5:  goto labelL5;
11082     }
11083 labelL1:
11084     l1_1.n = 9;
11085     l1_1.nili = 0;
11086     l1_1.ninl = 13;
11087     l1_1.neli = 0;
11088     l1_1.nenl = 0;
11089     for (j = 1; j <= 9; ++j) {
11090 /* L21: */
11091     l2_8.x[j - 1] = 1.;
11092     }
11093     for (i__ = 1; i__ <= 9; ++i__) {
11094 /*      XL(I)=0.0D0 */
11095     l11_8.lxl[i__ - 1] = false;
11096 /*      XU(I)=1.0D0 */
11097 /* L22: */
11098     l12_8.lxu[i__ - 1] = false;
11099     }
11100     l11_8.lxl[8] = true;
11101     l13_8.xl[8] = 0.;
11102     l20_9.lex = false;
11103     l20_9.xex[0] = .884129216724;
11104     l20_9.xex[1] = .467242472598;
11105     l20_9.xex[2] = .0374207573677;
11106     l20_9.xex[3] = .99929959821;
11107     l20_9.xex[4] = .884129216724;
11108     l20_9.xex[5] = .467242472594;
11109     l20_9.xex[6] = .0374207573618;
11110     l20_9.xex[7] = .99929959821;
11111     l20_9.xex[8] = 2.61984643608e-20;
11112     l20_9.fex = -.866025403841;
11113     return 0;
11114 labelL2:
11115     l6_1.fx = (l2_8.x[0] * l2_8.x[3] - l2_8.x[1] * l2_8.x[2] + l2_8.x[2] *
11116         l2_8.x[8] - l2_8.x[4] * l2_8.x[8] + l2_8.x[4] * l2_8.x[7] -
11117         l2_8.x[5] * l2_8.x[6]) * -.5;
11118     return 0;
11119 labelL3:
11120     l4_8.gf[0] = l2_8.x[3] * -.5;
11121     l4_8.gf[1] = l2_8.x[2] * .5;
11122     l4_8.gf[2] = (l2_8.x[1] - l2_8.x[8]) * .5;
11123     l4_8.gf[3] = l2_8.x[0] * -.5;
11124     l4_8.gf[4] = (l2_8.x[8] - l2_8.x[7]) * .5;
11125     l4_8.gf[5] = l2_8.x[6] * .5;
11126     l4_8.gf[6] = l2_8.x[5] * .5;
11127     l4_8.gf[7] = l2_8.x[4] * -.5;
11128     l4_8.gf[8] = -l4_8.gf[7] - l4_8.gf[1];
11129     return 0;
11130 labelL4:
11131     if (l9_11.index1[0]) {
11132 /* Computing 2nd power */
11133     d__1 = l2_8.x[2];
11134 /* Computing 2nd power */
11135     d__2 = l2_8.x[3];
11136     l3_10.g[0] = 1. - d__1 * d__1 - d__2 * d__2;
11137     }
11138     if (l9_11.index1[1]) {
11139 /* Computing 2nd power */
11140     d__1 = l2_8.x[8];
11141     l3_10.g[1] = 1. - d__1 * d__1;
11142     }
11143     if (l9_11.index1[2]) {
11144 /* Computing 2nd power */
11145     d__1 = l2_8.x[4];
11146 /* Computing 2nd power */
11147     d__2 = l2_8.x[5];
11148     l3_10.g[2] = 1. - d__1 * d__1 - d__2 * d__2;
11149     }
11150     if (l9_11.index1[3]) {
11151 /* Computing 2nd power */
11152     d__1 = l2_8.x[0];
11153 /* Computing 2nd power */
11154     d__2 = l2_8.x[1] - l2_8.x[8];
11155     l3_10.g[3] = 1. - d__1 * d__1 - d__2 * d__2;
11156     }
11157     if (l9_11.index1[4]) {
11158 /* Computing 2nd power */
11159     d__1 = l2_8.x[0] - l2_8.x[4];
11160 /* Computing 2nd power */
11161     d__2 = l2_8.x[1] - l2_8.x[5];
11162     l3_10.g[4] = 1. - d__1 * d__1 - d__2 * d__2;
11163     }
11164     if (l9_11.index1[5]) {
11165 /* Computing 2nd power */
11166     d__1 = l2_8.x[0] - l2_8.x[6];
11167 /* Computing 2nd power */
11168     d__2 = l2_8.x[1] - l2_8.x[7];
11169     l3_10.g[5] = 1. - d__1 * d__1 - d__2 * d__2;
11170     }
11171     if (l9_11.index1[6]) {
11172 /* Computing 2nd power */
11173     d__1 = l2_8.x[2] - l2_8.x[4];
11174 /* Computing 2nd power */
11175     d__2 = l2_8.x[3] - l2_8.x[5];
11176     l3_10.g[6] = 1. - d__1 * d__1 - d__2 * d__2;
11177     }
11178     if (l9_11.index1[7]) {
11179 /* Computing 2nd power */
11180     d__1 = l2_8.x[2] - l2_8.x[6];
11181 /* Computing 2nd power */
11182     d__2 = l2_8.x[3] - l2_8.x[7];
11183     l3_10.g[7] = 1. - d__1 * d__1 - d__2 * d__2;
11184     }
11185     if (l9_11.index1[8]) {
11186 /* Computing 2nd power */
11187     d__1 = l2_8.x[6];
11188 /* Computing 2nd power */
11189     d__2 = l2_8.x[7] - l2_8.x[8];
11190     l3_10.g[8] = 1. - d__1 * d__1 - d__2 * d__2;
11191     }
11192     if (l9_11.index1[9]) {
11193     l3_10.g[9] = l2_8.x[0] * l2_8.x[3] - l2_8.x[1] * l2_8.x[2];
11194     }
11195     if (l9_11.index1[10]) {
11196     l3_10.g[10] = l2_8.x[2] * l2_8.x[8];
11197     }
11198     if (l9_11.index1[11]) {
11199     l3_10.g[11] = -l2_8.x[4] * l2_8.x[8];
11200     }
11201     if (l9_11.index1[12]) {
11202     l3_10.g[12] = l2_8.x[4] * l2_8.x[7] - l2_8.x[5] * l2_8.x[6];
11203     }
11204     return 0;
11205 labelL5:
11206     for (i__ = 1; i__ <= 13; ++i__) {
11207     for (j = 1; j <= 9; ++j) {
11208 /* L23: */
11209         l5_20.gg[i__ + j * 13 - 14] = 0.;
11210     }
11211     }
11212     if (! l10_11.index2[0]) {
11213     goto L7;
11214     }
11215     l5_20.gg[26] = l2_8.x[2] * -2.;
11216     l5_20.gg[39] = l2_8.x[3] * -2.;
11217 L7:
11218     if (! l10_11.index2[1]) {
11219     goto L8;
11220     }
11221     l5_20.gg[105] = l2_8.x[8] * -2.;
11222 L8:
11223     if (! l10_11.index2[2]) {
11224     goto labelL9;
11225     }
11226     l5_20.gg[54] = l2_8.x[4] * -2.;
11227     l5_20.gg[67] = l2_8.x[5] * -2.;
11228 labelL9:
11229     if (! l10_11.index2[3]) {
11230     goto labelL10;
11231     }
11232     l5_20.gg[3] = l2_8.x[0] * -2.;
11233     l5_20.gg[16] = (l2_8.x[1] - l2_8.x[8]) * -2.;
11234     l5_20.gg[107] = -l5_20.gg[16];
11235 labelL10:
11236     if (! l10_11.index2[4]) {
11237     goto labelL11;
11238     }
11239     l5_20.gg[4] = (l2_8.x[0] - l2_8.x[4]) * -2.;
11240     l5_20.gg[17] = (l2_8.x[1] - l2_8.x[5]) * -2.;
11241     l5_20.gg[56] = -l5_20.gg[4];
11242     l5_20.gg[69] = -l5_20.gg[17];
11243 labelL11:
11244     if (! l10_11.index2[5]) {
11245     goto labelL12;
11246     }
11247     l5_20.gg[5] = (l2_8.x[0] - l2_8.x[6]) * -2.;
11248     l5_20.gg[18] = (l2_8.x[1] - l2_8.x[7]) * -2.;
11249     l5_20.gg[83] = -l5_20.gg[5];
11250     l5_20.gg[96] = -l5_20.gg[18];
11251 labelL12:
11252     if (! l10_11.index2[6]) {
11253     goto labelL13;
11254     }
11255     l5_20.gg[32] = (l2_8.x[2] - l2_8.x[4]) * -2.;
11256     l5_20.gg[45] = (l2_8.x[3] - l2_8.x[5]) * -2.;
11257     l5_20.gg[58] = -l5_20.gg[32];
11258     l5_20.gg[71] = -l5_20.gg[45];
11259 labelL13:
11260     if (! l10_11.index2[7]) {
11261     goto labelL14;
11262     }
11263     l5_20.gg[33] = (l2_8.x[2] - l2_8.x[6]) * -2.;
11264     l5_20.gg[46] = (l2_8.x[3] - l2_8.x[7]) * -2.;
11265     l5_20.gg[85] = -l5_20.gg[33];
11266     l5_20.gg[98] = -l5_20.gg[46];
11267 labelL14:
11268     if (! l10_11.index2[8]) {
11269     goto L15;
11270     }
11271     l5_20.gg[86] = l2_8.x[6] * -2.;
11272     l5_20.gg[99] = (l2_8.x[7] - l2_8.x[8]) * -2.;
11273     l5_20.gg[112] = -l5_20.gg[99];
11274 L15:
11275     if (! l10_11.index2[9]) {
11276     goto L16;
11277     }
11278     l5_20.gg[9] = l2_8.x[3];
11279     l5_20.gg[22] = -l2_8.x[2];
11280     l5_20.gg[35] = -l2_8.x[1];
11281     l5_20.gg[48] = l2_8.x[0];
11282 L16:
11283     if (! l10_11.index2[10]) {
11284     goto L17;
11285     }
11286     l5_20.gg[36] = l2_8.x[8];
11287     l5_20.gg[114] = l2_8.x[2];
11288 L17:
11289     if (! l10_11.index2[11]) {
11290     goto L18;
11291     }
11292     l5_20.gg[63] = -l2_8.x[8];
11293     l5_20.gg[115] = -l2_8.x[4];
11294 L18:
11295     if (! l10_11.index2[12]) {
11296     goto L19;
11297     }
11298     l5_20.gg[64] = l2_8.x[7];
11299     l5_20.gg[77] = -l2_8.x[6];
11300     l5_20.gg[90] = -l2_8.x[5];
11301     l5_20.gg[103] = l2_8.x[4];
11302 L19:
11303     return 0;
11304 } /* tp108_ */
11305 
11306 
tp109_(int * mode)11307 /* Subroutine */ int tp109_(int *mode)
11308 {
11309     /* System generated locals */
11310     Real d__1, d__2;
11311 
11312     /* Local variables */
11313     static Real a, b, c__;
11314     static int i__, j;
11315     static Real v1, v2, v3, v4, v5, v6, v7, v8, v9, ra, v10, v11, v12,
11316         v13, v14, v15, v16, v17, v18, v19, v20, hv1;
11317 
11318     switch ((int)*mode) {
11319     case 1:  goto labelL1;
11320     case 2:  goto labelL2;
11321     case 3:  goto labelL3;
11322     case 4:  goto labelL4;
11323     case 5:  goto labelL5;
11324     }
11325 labelL1:
11326     l1_1.n = 9;
11327     l1_1.nili = 2;
11328     l1_1.ninl = 2;
11329     l1_1.neli = 0;
11330     l1_1.nenl = 6;
11331     a = 50.176;
11332     ra = 1. / a;
11333     b = std::sin(.25);
11334     c__ =std::cos(.25);
11335     for (i__ = 1; i__ <= 2; ++i__) {
11336     l13_8.xl[i__ - 1] = 0.;
11337     l11_8.lxl[i__ - 1] = true;
11338     l12_8.lxu[i__ - 1] = false;
11339     l13_8.xl[i__ + 1] = -.55;
11340     l14_8.xu[i__ + 1] = .55;
11341     l13_8.xl[i__ + 6] = -400.;
11342     l14_8.xu[i__ + 6] = 800.;
11343     l13_8.xl[i__ + 3] = 196.;
11344     l14_8.xu[i__ + 3] = 252.;
11345 /* labelL20: */
11346     }
11347     l13_8.xl[6] = 196.;
11348     l14_8.xu[6] = 252.;
11349     for (i__ = 3; i__ <= 9; ++i__) {
11350     l11_8.lxl[i__ - 1] = true;
11351     l12_8.lxu[i__ - 1] = true;
11352 /* L21: */
11353     }
11354     for (j = 1; j <= 9; ++j) {
11355     l2_8.x[j - 1] = 0.;
11356     for (i__ = 1; i__ <= 10; ++i__) {
11357         l5_21.gg[i__ + j * 10 - 11] = 0.;
11358 /* L22: */
11359     }
11360     }
11361     for (i__ = 3; i__ <= 9; ++i__) {
11362 /* L30: */
11363     l4_8.gf[i__ - 1] = 0.;
11364     }
11365     l5_21.gg[20] = -1.;
11366     l5_21.gg[30] = 1.;
11367     l5_21.gg[21] = 1.;
11368     l5_21.gg[31] = -1.;
11369     l5_21.gg[4] = -1.;
11370     l5_21.gg[15] = -1.;
11371     l5_21.gg[77] = 1.;
11372     l5_21.gg[88] = 1.;
11373     l20_9.lex = false;
11374     l20_9.xex[0] = 674.888100445;
11375     l20_9.xex[1] = 1134.1703947;
11376     l20_9.xex[2] = .133569060261;
11377     l20_9.xex[3] = -.371152592466;
11378     l20_9.xex[4] = 252.;
11379     l20_9.xex[5] = 252.;
11380     l20_9.xex[6] = 201.464535316;
11381     l20_9.xex[7] = 426.660777226;
11382     l20_9.xex[8] = 368.494083867;
11383     l20_9.fex = 5362.06927538;
11384     return 0;
11385 labelL2:
11386 /* Computing 3rd power */
11387     d__1 = l2_8.x[0];
11388 /* Computing 3rd power */
11389     d__2 = l2_8.x[1];
11390     l6_1.fx = l2_8.x[0] * 3. + d__1 * (d__1 * d__1) * 1e-6 + d__2 * (d__2 *
11391         d__2) * 5.22074e-7 + l2_8.x[1] * 2.;
11392     return 0;
11393 labelL3:
11394 /* Computing 2nd power */
11395     d__1 = l2_8.x[0];
11396     l4_8.gf[0] = d__1 * d__1 * 3e-6 + 3.;
11397 /* Computing 2nd power */
11398     d__1 = l2_8.x[1];
11399     l4_8.gf[1] = d__1 * d__1 * 1.566222e-6 + 2.;
11400     return 0;
11401 labelL4:
11402     if (l9_10.index1[0]) {
11403     l3_9.g[0] = l2_8.x[3] - l2_8.x[2] + .55;
11404     }
11405     if (l9_10.index1[1]) {
11406     l3_9.g[1] = l2_8.x[2] - l2_8.x[3] + .55;
11407     }
11408     if (l9_10.index1[2]) {
11409 /* Computing 2nd power */
11410     d__1 = l2_8.x[0];
11411 /* Computing 2nd power */
11412     d__2 = l2_8.x[7];
11413     l3_9.g[2] = 2.25e6 - d__1 * d__1 - d__2 * d__2;
11414     }
11415     if (l9_10.index1[3]) {
11416 /* Computing 2nd power */
11417     d__1 = l2_8.x[1];
11418 /* Computing 2nd power */
11419     d__2 = l2_8.x[8];
11420     l3_9.g[3] = 2.25e6 - d__1 * d__1 - d__2 * d__2;
11421     }
11422     if (l9_10.index1[4]) {
11423 /* Computing 2nd power */
11424     d__1 = l2_8.x[4];
11425     l3_9.g[4] = (l2_8.x[4] * l2_8.x[5] * std::sin(-l2_8.x[2] - .25) + l2_8.x[4]
11426          * l2_8.x[6] * std::sin(-l2_8.x[3] - .25) + d__1 * d__1 * 2. * b) *
11427          ra + 400. - l2_8.x[0];
11428     }
11429     if (l9_10.index1[5]) {
11430 /* Computing 2nd power */
11431     d__1 = l2_8.x[5];
11432     l3_9.g[5] = (l2_8.x[4] * l2_8.x[5] * std::sin(l2_8.x[2] - .25) + l2_8.x[5]
11433         * l2_8.x[6] * std::sin(l2_8.x[2] - l2_8.x[3] - .25) + d__1 * d__1 *
11434          2. * b) * ra + 400. - l2_8.x[1];
11435     }
11436     if (l9_10.index1[6]) {
11437 /* Computing 2nd power */
11438     d__1 = l2_8.x[6];
11439     l3_9.g[6] = (l2_8.x[4] * l2_8.x[6] * std::sin(l2_8.x[3] - .25) + l2_8.x[5]
11440         * l2_8.x[6] * std::sin(l2_8.x[3] - l2_8.x[2] - .25) + d__1 * d__1 *
11441          2. * b) * ra + 881.779;
11442     }
11443     if (l9_10.index1[7]) {
11444 /* Computing 2nd power */
11445     d__1 = l2_8.x[4];
11446 /* Computing 2nd power */
11447     d__2 = l2_8.x[4];
11448     l3_9.g[7] = l2_8.x[7] + (l2_8.x[4] * l2_8.x[5] *std::cos(-l2_8.x[2] - .25)
11449          + l2_8.x[4] * l2_8.x[6] *std::cos(-l2_8.x[3] - .25) - d__1 *
11450         d__1 * 2. * c__) * ra + d__2 * d__2 * 7.533e-4 - 200.;
11451     }
11452     if (l9_10.index1[8]) {
11453 /* Computing 2nd power */
11454     d__1 = l2_8.x[5];
11455 /* Computing 2nd power */
11456     d__2 = l2_8.x[5];
11457     l3_9.g[8] = l2_8.x[8] + (l2_8.x[4] * l2_8.x[5] *std::cos(l2_8.x[2] - .25)
11458         + l2_8.x[6] * l2_8.x[5] *std::cos(l2_8.x[2] - l2_8.x[3] - .25) -
11459         d__1 * d__1 * 2. * c__) * ra + d__2 * d__2 * 7.533e-4 - 200.;
11460     }
11461     if (l9_10.index1[9]) {
11462 /* Computing 2nd power */
11463     d__1 = l2_8.x[6];
11464 /* Computing 2nd power */
11465     d__2 = l2_8.x[6];
11466     l3_9.g[9] = (l2_8.x[4] * l2_8.x[6] *std::cos(l2_8.x[3] - .25) + l2_8.x[5]
11467         * l2_8.x[6] *std::cos(l2_8.x[3] - l2_8.x[2] - .25) - d__1 * d__1 *
11468          2. * c__) * ra + d__2 * d__2 * 7.533e-4 - 22.938;
11469     }
11470     return 0;
11471 labelL5:
11472 /* L8: */
11473     if (! l10_10.index2[2]) {
11474     goto labelL9;
11475     }
11476     l5_21.gg[2] = l2_8.x[0] * -2.;
11477     l5_21.gg[72] = l2_8.x[7] * -2.;
11478 labelL9:
11479     if (! l10_10.index2[3]) {
11480     goto labelL10;
11481     }
11482     l5_21.gg[13] = l2_8.x[1] * -2.;
11483     l5_21.gg[83] = l2_8.x[8] * -2.;
11484 labelL10:
11485     if (! l10_10.index2[4]) {
11486     goto labelL11;
11487     }
11488     v1 = std::sin(-l2_8.x[2] - .25);
11489     v2 = std::sin(-l2_8.x[3] - .25);
11490     v3 = l2_8.x[4] * ra;
11491     l5_21.gg[24] = -l2_8.x[5] * v3 *std::cos(-l2_8.x[2] - .25);
11492     l5_21.gg[34] = -l2_8.x[6] * v3 *std::cos(-l2_8.x[3] - .25);
11493     l5_21.gg[44] = (l2_8.x[5] * v1 + l2_8.x[6] * v2 + l2_8.x[4] * 4. * b) *
11494         ra;
11495     l5_21.gg[54] = v3 * v1;
11496     l5_21.gg[64] = v3 * v2;
11497 labelL11:
11498     if (! l10_10.index2[5]) {
11499     goto labelL12;
11500     }
11501     hv1 = l2_8.x[2] - l2_8.x[3] - .25;
11502     v3 =std::cos(hv1);
11503     v4 = std::sin(l2_8.x[2] - .25);
11504     v5 = l2_8.x[5] * ra;
11505     v6 = std::sin(hv1);
11506     l5_21.gg[25] = l2_8.x[4] * v5 *std::cos(l2_8.x[2] - .25) + l2_8.x[6] * v5 *
11507         v3;
11508     l5_21.gg[35] = -l2_8.x[6] * v5 * v3;
11509     l5_21.gg[45] = v5 * v4;
11510     l5_21.gg[55] = (l2_8.x[4] * v4 + l2_8.x[6] * v6) * ra + v5 * 4. * b;
11511     l5_21.gg[65] = v5 * v6;
11512 labelL12:
11513     if (! l10_10.index2[6]) {
11514     goto labelL13;
11515     }
11516     hv1 = l2_8.x[3] - l2_8.x[2] - .25;
11517     v7 = l2_8.x[6] * ra;
11518     v8 =std::cos(hv1);
11519     v9 = std::sin(l2_8.x[3] - .25);
11520     v10 = std::sin(hv1);
11521     l5_21.gg[26] = -l2_8.x[5] * v7 * v8;
11522     l5_21.gg[36] = l2_8.x[4] * v7 *std::cos(l2_8.x[3] - .25) + l2_8.x[5] * v7 *
11523         v8;
11524     l5_21.gg[46] = v7 * v9;
11525     l5_21.gg[56] = v7 * v10;
11526     l5_21.gg[66] = (l2_8.x[4] * v9 + l2_8.x[5] * v10) * ra + v7 * 4. * b;
11527 labelL13:
11528     if (! l10_10.index2[7]) {
11529     goto labelL14;
11530     }
11531     v11 = l2_8.x[4] * ra;
11532     v12 =std::cos(-l2_8.x[2] - .25) * ra;
11533     v13 =std::cos(-l2_8.x[3] - .25) * ra;
11534     l5_21.gg[27] = l2_8.x[5] * v11 * std::sin(-l2_8.x[2] - .25);
11535     l5_21.gg[37] = l2_8.x[6] * v11 * std::sin(-l2_8.x[3] - .25);
11536     l5_21.gg[47] = l2_8.x[5] * v12 + l2_8.x[6] * v13 - v11 * 4. * c__ +
11537         l2_8.x[4] * .0015066;
11538     l5_21.gg[57] = l2_8.x[4] * v12;
11539     l5_21.gg[67] = l2_8.x[4] * v13;
11540 labelL14:
11541     if (! l10_10.index2[8]) {
11542     goto L15;
11543     }
11544     hv1 = l2_8.x[2] - l2_8.x[3] - .25;
11545     v14 = std::sin(hv1) * l2_8.x[5] * ra;
11546     v15 =std::cos(l2_8.x[2] - .25) * ra;
11547     v16 =std::cos(hv1) * ra;
11548     l5_21.gg[28] = -l2_8.x[4] * l2_8.x[5] * std::sin(l2_8.x[2] - .25) * ra -
11549         l2_8.x[6] * v14;
11550     l5_21.gg[38] = l2_8.x[6] * v14;
11551     l5_21.gg[48] = l2_8.x[5] * v15;
11552     l5_21.gg[58] = l2_8.x[4] * v15 + l2_8.x[6] * v16 - l2_8.x[5] * 4. * c__ *
11553         ra + l2_8.x[5] * .0015066;
11554     l5_21.gg[68] = l2_8.x[5] * v16;
11555 L15:
11556     if (! l10_10.index2[9]) {
11557     goto L16;
11558     }
11559     hv1 = l2_8.x[3] - l2_8.x[2] - .25;
11560     v17 = std::sin(hv1) * l2_8.x[5] * ra;
11561     v18 =std::cos(l2_8.x[3] - .25) * ra;
11562     v19 =std::cos(hv1) * ra;
11563     v20 = l2_8.x[6] * ra;
11564     l5_21.gg[29] = l2_8.x[6] * v17;
11565     l5_21.gg[39] = -l2_8.x[4] * v20 * std::sin(l2_8.x[3] - .25) - l2_8.x[6] * v17;
11566     l5_21.gg[49] = l2_8.x[6] * v18;
11567     l5_21.gg[59] = l2_8.x[6] * v19;
11568     l5_21.gg[69] = l2_8.x[4] * v18 + l2_8.x[5] * v19 - v20 * 4. * c__ +
11569         l2_8.x[6] * .0015066;
11570 L16:
11571     return 0;
11572 } /* tp109_ */
11573 
11574 
tp110_(int * mode)11575 /* Subroutine */ int tp110_(int *mode)
11576 {
11577     /* System generated locals */
11578     Real d__1, d__2;
11579 
11580     /* Local variables */
11581     Real d_sign(Real*, Real*);
11582     static int i__;
11583     static Real s, t, u, sum;
11584 
11585     switch ((int)*mode) {
11586     case 1:  goto labelL1;
11587     case 2:  goto labelL2;
11588     case 3:  goto labelL2;
11589     case 4:  goto labelL4;
11590     case 5:  goto labelL4;
11591     }
11592 labelL1:
11593     l1_1.n = 10;
11594     l1_1.nili = 0;
11595     l1_1.ninl = 0;
11596     l1_1.neli = 0;
11597     l1_1.nenl = 0;
11598     for (i__ = 1; i__ <= 10; ++i__) {
11599     l11_9.lxl[i__ - 1] = true;
11600     l12_9.lxu[i__ - 1] = true;
11601     l13_9.xl[i__ - 1] = 2.001;
11602     l14_9.xu[i__ - 1] = 9.999;
11603     l2_9.x[i__ - 1] = 9.;
11604 /* labelL20: */
11605     }
11606     l20_10.lex = false;
11607     l20_10.xex[0] = 9.35025654733;
11608     l20_10.xex[1] = 9.35025654733;
11609     l20_10.xex[2] = 9.35025654733;
11610     l20_10.xex[3] = 9.35025654733;
11611     l20_10.xex[4] = 9.35025654733;
11612     l20_10.xex[5] = 9.35025654733;
11613     l20_10.xex[6] = 9.35025654733;
11614     l20_10.xex[7] = 9.35025654733;
11615     l20_10.xex[8] = 9.35025654733;
11616     l20_10.xex[9] = 9.35025654733;
11617     l20_10.fex = -45.7784697153;
11618     return 0;
11619 labelL2:
11620     t = 1.;
11621     for (i__ = 1; i__ <= 10; ++i__) {
11622 /* L30: */
11623     t *= l2_9.x[i__ - 1];
11624     }
11625     d__1 = std::abs(t);
11626     s = pow_dd(&d__1, &c_b1157);
11627     s = d_sign(&s, &t);
11628     if (*mode == 3) {
11629     goto labelL3;
11630     }
11631     u = 0.;
11632     for (i__ = 1; i__ <= 10; ++i__) {
11633     if (l2_9.x[i__ - 1] - 2. <= 0. || 10. - l2_9.x[i__ - 1] <= 0.) {
11634         goto L33;
11635     }
11636 /* L31: */
11637 /* Computing 2nd power */
11638     d__1 = std::log(l2_9.x[i__ - 1] - 2.);
11639 /* Computing 2nd power */
11640     d__2 = std::log(10. - l2_9.x[i__ - 1]);
11641     u = u + d__1 * d__1 + d__2 * d__2;
11642     }
11643     l6_1.fx = u - s;
11644     return 0;
11645 L33:
11646     sum = 0.;
11647     for (i__ = 1; i__ <= 10; ++i__) {
11648 /* L34: */
11649 /* Computing 2nd power */
11650     d__1 = l2_9.x[i__ - 1] - 5.;
11651     sum += d__1 * d__1;
11652     }
11653     l6_1.fx = sum + 1e3 - 45.8;
11654     return 0;
11655 labelL3:
11656     for (i__ = 1; i__ <= 10; ++i__) {
11657     if (l2_9.x[i__ - 1] - 2. <= 0. || 10. - l2_9.x[i__ - 1] <= 0.) {
11658         goto L35;
11659     }
11660     l4_9.gf[i__ - 1] = (std::log(l2_9.x[i__ - 1] - 2.) / (l2_9.x[i__ - 1] - 2.)
11661          - log(10. - l2_9.x[i__ - 1]) / (10. - l2_9.x[i__ - 1])) * 2.
11662         - s / l2_9.x[i__ - 1] * .2;
11663     goto L32;
11664 L35:
11665     l4_9.gf[i__ - 1] = (l2_9.x[i__ - 1] - 5.) * 2.;
11666 L32:
11667     ;
11668     }
11669 labelL4:
11670     return 0;
11671 } /* tp110_ */
11672 
11673 
tp111_(int * mode)11674 /* Subroutine */ int tp111_(int *mode)
11675 {
11676     /* Local variables */
11677     static Real c__[10];
11678     static int i__, j;
11679     static Real s, t;
11680 
11681     switch ((int)*mode) {
11682     case 1:  goto labelL1;
11683     case 2:  goto labelL2;
11684     case 3:  goto labelL2;
11685     case 4:  goto labelL4;
11686     case 5:  goto labelL5;
11687     }
11688 labelL1:
11689     l1_1.n = 10;
11690     l1_1.nili = 0;
11691     l1_1.ninl = 0;
11692     l1_1.neli = 0;
11693     l1_1.nenl = 3;
11694     for (j = 1; j <= 10; ++j) {
11695     l2_9.x[j - 1] = -2.3;
11696     for (i__ = 1; i__ <= 3; ++i__) {
11697 /* labelL20: */
11698         l5_14.gg[i__ + j * 3 - 4] = 0.;
11699     }
11700     }
11701     c__[0] = -6.089;
11702     c__[1] = -17.164;
11703     c__[2] = -34.054;
11704     c__[3] = -5.914;
11705     c__[4] = -24.721;
11706     c__[5] = -14.986;
11707     c__[6] = -24.1;
11708     c__[7] = -10.708;
11709     c__[8] = -26.662;
11710     c__[9] = -22.179;
11711     for (i__ = 1; i__ <= 10; ++i__) {
11712     l13_9.xl[i__ - 1] = -100.;
11713     l14_9.xu[i__ - 1] = 100.;
11714     l11_9.lxl[i__ - 1] = true;
11715 /* labelL6: */
11716     l12_9.lxu[i__ - 1] = true;
11717     }
11718     l20_10.lex = false;
11719     l20_10.xex[0] = -3.20121253241;
11720     l20_10.xex[1] = -1.91205959435;
11721     l20_10.xex[2] = -.244441308369;
11722     l20_10.xex[3] = -6.53748856532;
11723     l20_10.xex[4] = -.723152425984;
11724     l20_10.xex[5] = -7.26773826993;
11725     l20_10.xex[6] = -3.59671064233;
11726     l20_10.xex[7] = -4.01776873216;
11727     l20_10.xex[8] = -3.28746169619;
11728     l20_10.xex[9] = -2.33558183059;
11729     l20_10.fex = -47.7610902637;
11730     return 0;
11731 labelL2:
11732     t = 0.;
11733     for (i__ = 1; i__ <= 10; ++i__) {
11734 /* L30: */
11735     t += std::exp(l2_9.x[i__ - 1]);
11736     }
11737     if (*mode == 3) {
11738     goto labelL3;
11739     }
11740     s = 0.;
11741     for (i__ = 1; i__ <= 10; ++i__) {
11742 /* L31: */
11743     s += std::exp(l2_9.x[i__ - 1]) * (c__[i__ - 1] + l2_9.x[i__ - 1] - std::log(t));
11744     }
11745     l6_1.fx = s;
11746     return 0;
11747 labelL3:
11748     for (i__ = 1; i__ <= 10; ++i__) {
11749 /* L33: */
11750     l4_9.gf[i__ - 1] = std::exp(l2_9.x[i__ - 1]) * (c__[i__ - 1] + l2_9.x[i__
11751         - 1] - std::log(t));
11752     }
11753     return 0;
11754 labelL4:
11755     if (l9_4.index1[0]) {
11756     l3_3.g[0] = std::exp(l2_9.x[0]) + std::exp(l2_9.x[1]) * 2. + std::exp(l2_9.x[2]) *
11757         2. + std::exp(l2_9.x[5]) + std::exp(l2_9.x[9]) - 2.;
11758     }
11759     if (l9_4.index1[1]) {
11760     l3_3.g[1] = std::exp(l2_9.x[3]) + std::exp(l2_9.x[4]) * 2. + std::exp(l2_9.x[5]) +
11761         std::exp(l2_9.x[6]) - 1.;
11762     }
11763     if (l9_4.index1[2]) {
11764     l3_3.g[2] = std::exp(l2_9.x[2]) + std::exp(l2_9.x[6]) + std::exp(l2_9.x[7]) + std::exp(
11765         l2_9.x[8]) * 2. + std::exp(l2_9.x[9]) - 1.;
11766     }
11767     return 0;
11768 labelL5:
11769     if (! l10_4.index2[0]) {
11770     goto L7;
11771     }
11772     l5_14.gg[0] = std::exp(l2_9.x[0]);
11773     l5_14.gg[3] = std::exp(l2_9.x[1]) * 2.;
11774     l5_14.gg[6] = std::exp(l2_9.x[2]) * 2.;
11775     l5_14.gg[15] = std::exp(l2_9.x[5]);
11776     l5_14.gg[27] = std::exp(l2_9.x[9]);
11777 L7:
11778     if (! l10_4.index2[1]) {
11779     goto L8;
11780     }
11781     l5_14.gg[10] = std::exp(l2_9.x[3]);
11782     l5_14.gg[13] = std::exp(l2_9.x[4]) * 2.;
11783     l5_14.gg[16] = std::exp(l2_9.x[5]);
11784     l5_14.gg[19] = std::exp(l2_9.x[6]);
11785 L8:
11786     if (! l10_4.index2[2]) {
11787     goto labelL9;
11788     }
11789     l5_14.gg[8] = std::exp(l2_9.x[2]);
11790     l5_14.gg[20] = std::exp(l2_9.x[6]);
11791     l5_14.gg[23] = std::exp(l2_9.x[7]);
11792     l5_14.gg[26] = std::exp(l2_9.x[8]) * 2.;
11793     l5_14.gg[29] = std::exp(l2_9.x[9]);
11794 labelL9:
11795     return 0;
11796 } /* tp111_ */
11797 
11798 
tp112_(int * mode)11799 /* Subroutine */ int tp112_(int *mode)
11800 {
11801     /* System generated locals */
11802     Real d__1;
11803 
11804     /* Local variables */
11805     static Real c__[10];
11806     static int i__, j;
11807     static Real s, t, dlogt;
11808 
11809     switch ((int)*mode) {
11810     case 1:  goto labelL1;
11811     case 2:  goto labelL2;
11812     case 3:  goto labelL2;
11813     case 4:  goto labelL4;
11814     case 5:  goto labelL5;
11815     }
11816 labelL1:
11817     l1_1.n = 10;
11818     l1_1.nili = 0;
11819     l1_1.ninl = 0;
11820     l1_1.neli = 3;
11821     l1_1.nenl = 0;
11822     for (i__ = 1; i__ <= 10; ++i__) {
11823     l13_9.xl[i__ - 1] = 1e-4;
11824     l11_9.lxl[i__ - 1] = true;
11825 /* labelL6: */
11826     l12_9.lxu[i__ - 1] = false;
11827     }
11828     c__[0] = -6.089;
11829     c__[1] = -17.164;
11830     c__[2] = -34.054;
11831     c__[3] = -5.914;
11832     c__[4] = -24.721;
11833     c__[5] = -14.986;
11834     c__[6] = -24.1;
11835     c__[7] = -10.708;
11836     c__[8] = -26.662;
11837     c__[9] = -22.179;
11838     for (j = 1; j <= 10; ++j) {
11839     l2_9.x[j - 1] = .1;
11840     for (i__ = 1; i__ <= 3; ++i__) {
11841 /* labelL20: */
11842         l5_14.gg[i__ + j * 3 - 4] = 0.;
11843     }
11844     }
11845     l5_14.gg[0] = 1.;
11846     l5_14.gg[3] = 2.;
11847     l5_14.gg[6] = 2.;
11848     l5_14.gg[15] = 1.;
11849     l5_14.gg[27] = 1.;
11850     l5_14.gg[10] = 1.;
11851     l5_14.gg[13] = 2.;
11852     l5_14.gg[16] = 1.;
11853     l5_14.gg[19] = 1.;
11854     l5_14.gg[8] = 1.;
11855     l5_14.gg[20] = 1.;
11856     l5_14.gg[23] = 1.;
11857     l5_14.gg[26] = 2.;
11858     l5_14.gg[29] = 1.;
11859     l20_10.lex = false;
11860     l20_10.xex[0] = .0177354776881;
11861     l20_10.xex[1] = .0820018011109;
11862     l20_10.xex[2] = .88256455892;
11863     l20_10.xex[3] = 7.23325625629e-4;
11864     l20_10.xex[4] = .490785079062;
11865     l20_10.xex[5] = 4.33546900325e-4;
11866     l20_10.xex[6] = .0172729773078;
11867     l20_10.xex[7] = .00776563912291;
11868     l20_10.xex[8] = .0198492864597;
11869     l20_10.xex[9] = .0526982611793;
11870     l20_10.fex = -.47761086;
11871     return 0;
11872 labelL2:
11873     t = 0.;
11874     for (i__ = 1; i__ <= 10; ++i__) {
11875 /* L30: */
11876     t += l2_9.x[i__ - 1];
11877     }
11878     if (*mode == 3) {
11879     goto labelL3;
11880     }
11881     if (t < 1e-5) {
11882     goto L34;
11883     }
11884     dlogt = std::log(t);
11885     s = 0.;
11886     for (i__ = 1; i__ <= 10; ++i__) {
11887     if (l2_9.x[i__ - 1] < 0.) {
11888         goto L34;
11889     }
11890 /* L31: */
11891     s += l2_9.x[i__ - 1] * (c__[i__ - 1] + std::log(l2_9.x[i__ - 1]) - dlogt);
11892     }
11893     l6_1.fx = s * (float).01;
11894     return 0;
11895 L34:
11896     s = 0.;
11897     for (i__ = 1; i__ <= 10; ++i__) {
11898 /* L35: */
11899     if (l2_9.x[i__ - 1] < 0.) {
11900 /* Computing 2nd power */
11901         d__1 = l2_9.x[i__ - 1] - 5.;
11902         s += d__1 * d__1;
11903     }
11904     }
11905     l6_1.fx = (s + 1e3 - 47.8) * (float).01;
11906     return 0;
11907 labelL3:
11908     if (t < 1e-5) {
11909     goto L36;
11910     }
11911     dlogt = std::log(t);
11912     for (i__ = 1; i__ <= 10; ++i__) {
11913     if (l2_9.x[i__ - 1] < 0.) {
11914         goto L36;
11915     }
11916 /* L33: */
11917     l4_9.gf[i__ - 1] = (c__[i__ - 1] + std::log(l2_9.x[i__ - 1]) - dlogt) * (
11918         float).01;
11919     }
11920     return 0;
11921 L36:
11922     for (i__ = 1; i__ <= 10; ++i__) {
11923     l4_9.gf[i__ - 1] = 0.;
11924 /* L37: */
11925     if (l2_9.x[i__ - 1] < 0.) {
11926         l4_9.gf[i__ - 1] = (l2_9.x[i__ - 1] - 5.) * 2. * (float).01;
11927     }
11928     }
11929     return 0;
11930 labelL4:
11931     if (l9_4.index1[0]) {
11932     l3_3.g[0] = l2_9.x[0] + l2_9.x[1] * 2. + l2_9.x[2] * 2. + l2_9.x[5] +
11933         l2_9.x[9] - (float)2.;
11934     }
11935     if (l9_4.index1[1]) {
11936     l3_3.g[1] = l2_9.x[3] + l2_9.x[4] * 2. + l2_9.x[5] + l2_9.x[6] - (
11937         float)1.;
11938     }
11939     if (l9_4.index1[2]) {
11940     l3_3.g[2] = l2_9.x[2] + l2_9.x[6] + l2_9.x[7] + l2_9.x[8] * 2. +
11941         l2_9.x[9] - (float)1.;
11942     }
11943 labelL5:
11944     return 0;
11945 } /* tp112_ */
11946 
11947 
tp113_(int * mode)11948 /* Subroutine */ int tp113_(int *mode)
11949 {
11950     /* System generated locals */
11951     Real d__1, d__2, d__3, d__4, d__5, d__6, d__7, d__8, d__9, d__10;
11952 
11953     /* Local variables */
11954     static int i__, j;
11955 
11956     switch ((int)*mode) {
11957     case 1:  goto labelL1;
11958     case 2:  goto labelL2;
11959     case 3:  goto labelL3;
11960     case 4:  goto labelL4;
11961     case 5:  goto labelL5;
11962     }
11963 labelL1:
11964     l1_1.n = 10;
11965     l1_1.nili = 3;
11966     l1_1.ninl = 5;
11967     l1_1.neli = 0;
11968     l1_1.nenl = 0;
11969     for (i__ = 1; i__ <= 8; ++i__) {
11970     for (j = 1; j <= 10; ++j) {
11971 /* labelL20: */
11972         l5_22.gg[i__ + (j << 3) - 9] = 0.;
11973     }
11974     }
11975     l2_9.x[0] = 2.;
11976     l2_9.x[1] = 3.;
11977     l2_9.x[2] = 5.;
11978     l2_9.x[3] = 5.;
11979     l2_9.x[4] = 1.;
11980     l2_9.x[5] = 2.;
11981     l2_9.x[6] = 7.;
11982     l2_9.x[7] = 3.;
11983     l2_9.x[8] = 6.;
11984     l2_9.x[9] = 10.;
11985     for (i__ = 1; i__ <= 10; ++i__) {
11986     l11_9.lxl[i__ - 1] = false;
11987 /* labelL6: */
11988     l12_9.lxu[i__ - 1] = false;
11989     }
11990     l5_22.gg[0] = -4.;
11991     l5_22.gg[8] = -5.;
11992     l5_22.gg[48] = 3.;
11993     l5_22.gg[56] = -9.;
11994     l5_22.gg[1] = -10.;
11995     l5_22.gg[9] = 8.;
11996     l5_22.gg[49] = 17.;
11997     l5_22.gg[57] = -2.;
11998     l5_22.gg[2] = 8.;
11999     l5_22.gg[10] = -2.;
12000     l5_22.gg[66] = -5.;
12001     l5_22.gg[74] = 2.;
12002     l5_22.gg[27] = 7.;
12003     l5_22.gg[12] = -8.;
12004     l5_22.gg[28] = 2.;
12005     l5_22.gg[45] = 1.;
12006     l5_22.gg[38] = -14.;
12007     l5_22.gg[46] = 6.;
12008     l5_22.gg[7] = 3.;
12009     l5_22.gg[15] = -6.;
12010     l5_22.gg[79] = 7.;
12011     l20_10.lex = false;
12012     l20_10.xex[0] = 2.17199637118;
12013     l20_10.xex[1] = 2.36368297378;
12014     l20_10.xex[2] = 8.77392573847;
12015     l20_10.xex[3] = 5.09598448797;
12016     l20_10.xex[4] = .990654764992;
12017     l20_10.xex[5] = 1.43057397893;
12018     l20_10.xex[6] = 1.32164420805;
12019     l20_10.xex[7] = 9.82872580801;
12020     l20_10.xex[8] = 8.28009167017;
12021     l20_10.xex[9] = 8.37592666387;
12022     l20_10.fex = 24.3062090641;
12023     return 0;
12024 labelL2:
12025 /* Computing 2nd power */
12026     d__1 = l2_9.x[0];
12027 /* Computing 2nd power */
12028     d__2 = l2_9.x[1];
12029 /* Computing 2nd power */
12030     d__3 = l2_9.x[2] - 10.;
12031 /* Computing 2nd power */
12032     d__4 = l2_9.x[3] - 5.;
12033 /* Computing 2nd power */
12034     d__5 = l2_9.x[4] - 3.;
12035 /* Computing 2nd power */
12036     d__6 = l2_9.x[5] - 1.;
12037 /* Computing 2nd power */
12038     d__7 = l2_9.x[6];
12039 /* Computing 2nd power */
12040     d__8 = l2_9.x[7] - 11.;
12041 /* Computing 2nd power */
12042     d__9 = l2_9.x[8] - 10.;
12043 /* Computing 2nd power */
12044     d__10 = l2_9.x[9] - 7.;
12045     l6_1.fx = d__1 * d__1 + d__2 * d__2 + l2_9.x[0] * l2_9.x[1] - l2_9.x[0] *
12046         14. - l2_9.x[1] * 16. + d__3 * d__3 + d__4 * d__4 * 4. + d__5 *
12047         d__5 + d__6 * d__6 * 2. + d__7 * d__7 * 5. + d__8 * d__8 * 7. +
12048         d__9 * d__9 * 2. + d__10 * d__10 + 45.;
12049     return 0;
12050 labelL3:
12051     l4_9.gf[0] = l2_9.x[0] * 2. + l2_9.x[1] - 14.;
12052     l4_9.gf[1] = l2_9.x[1] * 2. + l2_9.x[0] - 16.;
12053     l4_9.gf[2] = (l2_9.x[2] - 10.) * 2.;
12054     l4_9.gf[3] = (l2_9.x[3] - 5.) * 8.;
12055     l4_9.gf[4] = (l2_9.x[4] - 3.) * 2.;
12056     l4_9.gf[5] = (l2_9.x[5] - 1.) * 4.;
12057     l4_9.gf[6] = l2_9.x[6] * 10.;
12058     l4_9.gf[7] = (l2_9.x[7] - 11.) * 14.;
12059     l4_9.gf[8] = (l2_9.x[8] - 10.) * 4.;
12060     l4_9.gf[9] = (l2_9.x[9] - 7.) * 2.;
12061     return 0;
12062 labelL4:
12063     if (l9_12.index1[0]) {
12064     l3_11.g[0] = l2_9.x[0] * -4. - l2_9.x[1] * 5. + l2_9.x[6] * 3. -
12065         l2_9.x[7] * 9. + 105.;
12066     }
12067     if (l9_12.index1[1]) {
12068     l3_11.g[1] = l2_9.x[0] * -10. + l2_9.x[1] * 8. + l2_9.x[6] * 17. -
12069         l2_9.x[7] * 2.;
12070     }
12071     if (l9_12.index1[2]) {
12072     l3_11.g[2] = l2_9.x[0] * 8. - l2_9.x[1] * 2. - l2_9.x[8] * 5. +
12073         l2_9.x[9] * 2. + 12.;
12074     }
12075     if (l9_12.index1[3]) {
12076 /* Computing 2nd power */
12077     d__1 = l2_9.x[0] - 2.;
12078 /* Computing 2nd power */
12079     d__2 = l2_9.x[1] - 3.;
12080 /* Computing 2nd power */
12081     d__3 = l2_9.x[2];
12082     l3_11.g[3] = d__1 * d__1 * -3. - d__2 * d__2 * 4. - d__3 * d__3 * 2.
12083         + l2_9.x[3] * 7. + 120.;
12084     }
12085     if (l9_12.index1[4]) {
12086 /* Computing 2nd power */
12087     d__1 = l2_9.x[0];
12088 /* Computing 2nd power */
12089     d__2 = l2_9.x[2] - 6.;
12090     l3_11.g[4] = d__1 * d__1 * -5. - l2_9.x[1] * 8. - d__2 * d__2 +
12091         l2_9.x[3] * 2. + 40.;
12092     }
12093     if (l9_12.index1[5]) {
12094 /* Computing 2nd power */
12095     d__1 = l2_9.x[0] - 8.;
12096 /* Computing 2nd power */
12097     d__2 = l2_9.x[1] - 4.;
12098 /* Computing 2nd power */
12099     d__3 = l2_9.x[4];
12100     l3_11.g[5] = d__1 * d__1 * -.5 - d__2 * d__2 * 2. - d__3 * d__3 * 3.
12101         + l2_9.x[5] + 30.;
12102     }
12103     if (l9_12.index1[6]) {
12104 /* Computing 2nd power */
12105     d__1 = l2_9.x[0];
12106 /* Computing 2nd power */
12107     d__2 = l2_9.x[1] - 2.;
12108     l3_11.g[6] = -(d__1 * d__1) - d__2 * d__2 * 2. + l2_9.x[0] * 2. *
12109         l2_9.x[1] - l2_9.x[4] * 14. + l2_9.x[5] * 6.;
12110     }
12111     if (l9_12.index1[7]) {
12112 /* Computing 2nd power */
12113     d__1 = l2_9.x[8] - 8.;
12114     l3_11.g[7] = l2_9.x[0] * 3. - l2_9.x[1] * 6. - d__1 * d__1 * 12. +
12115         l2_9.x[9] * 7.;
12116     }
12117     return 0;
12118 labelL5:
12119     if (! l10_12.index2[3]) {
12120     goto labelL10;
12121     }
12122     l5_22.gg[3] = (l2_9.x[0] - 2.) * -6.;
12123     l5_22.gg[11] = (l2_9.x[1] - 3.) * -8.;
12124     l5_22.gg[19] = l2_9.x[2] * -4.;
12125 labelL10:
12126     if (! l10_12.index2[4]) {
12127     goto labelL11;
12128     }
12129     l5_22.gg[4] = l2_9.x[0] * -10.;
12130     l5_22.gg[20] = (l2_9.x[2] - 6.) * -2.;
12131 labelL11:
12132     if (! l10_12.index2[5]) {
12133     goto labelL12;
12134     }
12135     l5_22.gg[5] = 8. - l2_9.x[0];
12136     l5_22.gg[13] = (l2_9.x[1] - 4.) * -4.;
12137     l5_22.gg[37] = l2_9.x[4] * -6.;
12138 labelL12:
12139     if (! l10_12.index2[6]) {
12140     goto labelL13;
12141     }
12142     l5_22.gg[6] = l2_9.x[0] * -2. + l2_9.x[1] * 2.;
12143     l5_22.gg[14] = (l2_9.x[1] - 2.) * -4. + l2_9.x[0] * 2.;
12144 labelL13:
12145     if (l10_12.index2[7]) {
12146     l5_22.gg[71] = (l2_9.x[8] - 8.) * -24.;
12147     }
12148     return 0;
12149 } /* tp113_ */
12150 
12151 
tp114_(int * mode)12152 /* Subroutine */ int tp114_(int *mode)
12153 {
12154     /* System generated locals */
12155     Real d__1;
12156 
12157     /* Local variables */
12158     static int i__, j;
12159     static Real v1, v2, v3;
12160 
12161     switch ((int)*mode) {
12162     case 1:  goto labelL1;
12163     case 2:  goto labelL2;
12164     case 3:  goto labelL3;
12165     case 4:  goto labelL4;
12166     case 5:  goto labelL5;
12167     }
12168 labelL1:
12169     l1_1.n = 10;
12170     l1_1.nili = 4;
12171     l1_1.ninl = 4;
12172     l1_1.neli = 1;
12173     l1_1.nenl = 2;
12174     l2_9.x[0] = 1745.;
12175     l2_9.x[1] = 1.2e4;
12176     l2_9.x[2] = 110.;
12177     l2_9.x[3] = 3048.;
12178     l2_9.x[4] = 1974.;
12179     l2_9.x[5] = 89.2;
12180     l2_9.x[6] = 92.8;
12181     l2_9.x[7] = 8.;
12182     l2_9.x[8] = 3.6;
12183     l2_9.x[9] = 145.;
12184     for (i__ = 1; i__ <= 5; ++i__) {
12185 /* L25: */
12186     l13_9.xl[i__ - 1] = 1e-5;
12187     }
12188     l13_9.xl[5] = 85.;
12189     l13_9.xl[6] = 90.;
12190     l13_9.xl[7] = 3.;
12191     l13_9.xl[8] = 1.2;
12192     l13_9.xl[9] = 145.;
12193     l14_9.xu[0] = 2e3;
12194     l14_9.xu[1] = 1.6e4;
12195     l14_9.xu[2] = 120.;
12196     l14_9.xu[3] = 5e3;
12197     l14_9.xu[4] = 2e3;
12198     l14_9.xu[5] = 93.;
12199     l14_9.xu[6] = 95.;
12200     l14_9.xu[7] = 12.;
12201     l14_9.xu[8] = 4.;
12202     l14_9.xu[9] = 162.;
12203     for (i__ = 1; i__ <= 10; ++i__) {
12204     l11_9.lxl[i__ - 1] = true;
12205     l12_9.lxu[i__ - 1] = true;
12206     for (j = 1; j <= 11; ++j) {
12207 /* labelL6: */
12208         l5_23.gg[j + i__ * 11 - 12] = 0.;
12209     }
12210     }
12211     l4_9.gf[0] = 5.04e-4;
12212     l4_9.gf[1] = 3.5000000000000004e-6;
12213     l4_9.gf[2] = .001;
12214     l4_9.gf[4] = 3.3599999999999998e-4;
12215     l4_9.gf[5] = 0.;
12216     l4_9.gf[7] = 0.;
12217     l4_9.gf[8] = 0.;
12218     l4_9.gf[9] = 0.;
12219     l5_23.gg[88] = -.9;
12220     l5_23.gg[99] = -.222;
12221     l5_23.gg[67] = 3.;
12222     l5_23.gg[100] = -.99;
12223     l5_23.gg[90] = 1.1111111111111112;
12224     l5_23.gg[101] = .222;
12225     l5_23.gg[69] = -3.;
12226     l5_23.gg[102] = 1.0101010101010102;
12227     l5_23.gg[37] = -.99;
12228     l5_23.gg[60] = .325;
12229     l5_23.gg[71] = -.99;
12230     l5_23.gg[39] = 1.0101010101010102;
12231     l5_23.gg[62] = -.325;
12232     l5_23.gg[73] = 1.0101010101010102;
12233     l5_23.gg[8] = -1.;
12234     l5_23.gg[41] = 1.22;
12235     l5_23.gg[52] = -1.;
12236     l5_23.gg[64] = -1.;
12237     l5_23.gg[87] = -1.;
12238     l20_10.lex = false;
12239     l20_10.xex[0] = 1698.09564792;
12240     l20_10.xex[1] = 15818.7256985;
12241     l20_10.xex[2] = 54.1022827849;
12242     l20_10.xex[3] = 3031.22594099;
12243     l20_10.xex[4] = 2e3;
12244     l20_10.xex[5] = 90.1153669236;
12245     l20_10.xex[6] = 95.;
12246     l20_10.xex[7] = 10.4933580864;
12247     l20_10.xex[8] = 1.5616363638;
12248     l20_10.xex[9] = 153.535353535;
12249     l20_10.fex = -17.688069634399998;
12250     return 0;
12251 labelL2:
12252     l6_1.fx = l2_9.x[0] * 5.04 + l2_9.x[1] * .035 + l2_9.x[2] * 10. + l2_9.x[
12253         4] * 3.36 - l2_9.x[3] * .063 * l2_9.x[6];
12254     l6_1.fx *= .01;
12255 labelL3:
12256     l4_9.gf[3] = l2_9.x[6] * -.063 * .01;
12257     l4_9.gf[6] = l2_9.x[3] * -.063 * .01;
12258     return 0;
12259 labelL4:
12260     if (l9_13.index1[0]) {
12261     l3_12.g[0] = 35.82 - l2_9.x[9] * .222 - l2_9.x[8] * .9;
12262     }
12263     if (l9_13.index1[1]) {
12264     l3_12.g[1] = l2_9.x[6] * 3. - 133. - l2_9.x[9] * .99;
12265     }
12266     if (l9_13.index1[2]) {
12267     l3_12.g[2] = l2_9.x[9] * .222 - 35.82 + l2_9.x[8] *
12268         1.1111111111111112;
12269     }
12270     if (l9_13.index1[3]) {
12271     l3_12.g[3] = 133. - l2_9.x[6] * 3. + l2_9.x[9] / .99;
12272     }
12273     if (l9_13.index1[4]) {
12274 /* Computing 2nd power */
12275     d__1 = l2_9.x[7];
12276     l3_12.g[4] = l2_9.x[0] * 1.12 + l2_9.x[0] * .13167 * l2_9.x[7] -
12277         l2_9.x[0] * .00667 * (d__1 * d__1) - l2_9.x[3] * .99;
12278     }
12279     if (l9_13.index1[5]) {
12280 /* Computing 2nd power */
12281     d__1 = l2_9.x[7];
12282     l3_12.g[5] = l2_9.x[7] * 1.098 + 57.425 - d__1 * d__1 * .038 + l2_9.x[
12283         5] * .325 - l2_9.x[6] * .99;
12284     }
12285     if (l9_13.index1[6]) {
12286 /* Computing 2nd power */
12287     d__1 = l2_9.x[7];
12288     l3_12.g[6] = l2_9.x[0] * -1.12 - l2_9.x[0] * .13167 * l2_9.x[7] +
12289         l2_9.x[0] * .00667 * (d__1 * d__1) + l2_9.x[3] / .99;
12290     }
12291     if (l9_13.index1[7]) {
12292 /* Computing 2nd power */
12293     d__1 = l2_9.x[7];
12294     l3_12.g[7] = -57.425 - l2_9.x[7] * 1.098 + d__1 * d__1 * .038 -
12295         l2_9.x[5] * .325 + l2_9.x[6] / .99;
12296     }
12297     if (l9_13.index1[8]) {
12298     l3_12.g[8] = l2_9.x[3] * 1.22 - l2_9.x[0] - l2_9.x[4];
12299     }
12300     if (l9_13.index1[9]) {
12301     l3_12.g[9] = l2_9.x[2] * 9.8e4 / (l2_9.x[3] * l2_9.x[8] + l2_9.x[2] *
12302         1e3) - l2_9.x[5];
12303     }
12304     if (l9_13.index1[10]) {
12305     l3_12.g[10] = (l2_9.x[1] + l2_9.x[4]) / l2_9.x[0] - l2_9.x[7];
12306     }
12307     return 0;
12308 labelL5:
12309     if (! l10_13.index2[4]) {
12310     goto labelL11;
12311     }
12312 /* Computing 2nd power */
12313     d__1 = l2_9.x[7];
12314     l5_23.gg[4] = l2_9.x[7] * .13167 + 1.12 - d__1 * d__1 * .00667;
12315     l5_23.gg[81] = l2_9.x[0] * .13167 - l2_9.x[0] * .013339999999999999 *
12316         l2_9.x[7];
12317 labelL11:
12318     if (l10_13.index2[5]) {
12319     l5_23.gg[82] = 1.098 - l2_9.x[7] * .076;
12320     }
12321     if (! l10_13.index2[6]) {
12322     goto labelL13;
12323     }
12324     l5_23.gg[83] = l2_9.x[0] * -.13167 + l2_9.x[0] * .013339999999999999 *
12325         l2_9.x[7];
12326 /* Computing 2nd power */
12327     d__1 = l2_9.x[7];
12328     l5_23.gg[6] = l2_9.x[7] * -.13167 + d__1 * d__1 * .00667 - 1.12;
12329 labelL13:
12330     if (l10_13.index2[7]) {
12331     l5_23.gg[84] = l2_9.x[7] * .076 - 1.098;
12332     }
12333     if (! l10_13.index2[9]) {
12334     goto L16;
12335     }
12336 /* Computing 2nd power */
12337     d__1 = l2_9.x[3] * l2_9.x[8] + l2_9.x[2] * 1e3;
12338     v1 = d__1 * d__1;
12339     v2 = l2_9.x[8] * 9.8e4;
12340     v3 = v2 / v1;
12341     l5_23.gg[31] = l2_9.x[3] * v3;
12342     l5_23.gg[42] = -l2_9.x[2] * v3;
12343     l5_23.gg[97] = l2_9.x[2] * -9.8e4 * l2_9.x[3] / v1;
12344 L16:
12345     if (! l10_13.index2[10]) {
12346     goto L17;
12347     }
12348 /* Computing 2nd power */
12349     d__1 = l2_9.x[0];
12350     l5_23.gg[10] = -(l2_9.x[1] + l2_9.x[4]) / (d__1 * d__1);
12351     l5_23.gg[21] = 1. / l2_9.x[0];
12352     l5_23.gg[54] = l5_23.gg[21];
12353 L17:
12354     return 0;
12355 } /* tp114_ */
12356 
12357 
tp116_(int * mode)12358 /* Subroutine */ int tp116_(int *mode)
12359 {
12360     /* System generated locals */
12361     Real d__1;
12362 
12363     /* Local variables */
12364     static int i__, j;
12365 
12366     switch ((int)*mode) {
12367     case 1:  goto labelL1;
12368     case 2:  goto labelL2;
12369     case 3:  goto labelL3;
12370     case 4:  goto labelL4;
12371     case 5:  goto labelL5;
12372     }
12373 labelL1:
12374     l1_1.n = 13;
12375     l1_1.nili = 5;
12376     l1_1.ninl = 10;
12377     l1_1.neli = 0;
12378     l1_1.nenl = 0;
12379     l2_10.x[0] = .5;
12380     l2_10.x[1] = .8;
12381     l2_10.x[2] = .9;
12382     l2_10.x[3] = .1;
12383     l2_10.x[4] = .14;
12384     l2_10.x[5] = .5;
12385     l2_10.x[6] = 489.;
12386     l2_10.x[7] = 80.;
12387     l2_10.x[8] = 650.;
12388     l2_10.x[9] = 450.;
12389     l2_10.x[10] = 150.;
12390     l2_10.x[11] = 150.;
12391     l2_10.x[12] = 150.;
12392     for (i__ = 1; i__ <= 10; ++i__) {
12393 /* labelL6: */
12394     l13_10.xl[i__ - 1] = .1;
12395     }
12396     l13_10.xl[3] = 1e-4;
12397     l13_10.xl[8] = 500.;
12398     l13_10.xl[10] = 1.;
12399     l13_10.xl[11] = 1e-4;
12400     l13_10.xl[12] = 1e-4;
12401     for (i__ = 1; i__ <= 3; ++i__) {
12402     l14_10.xu[i__ - 1] = 1.;
12403     l14_10.xu[i__ + 5] = 1e3;
12404 /* L7: */
12405     l14_10.xu[i__ + 9] = 150.;
12406     }
12407     l14_10.xu[3] = .1;
12408     l14_10.xu[4] = .9;
12409     l14_10.xu[5] = .9;
12410     l14_10.xu[9] = 500.;
12411     for (i__ = 1; i__ <= 13; ++i__) {
12412     l11_10.lxl[i__ - 1] = true;
12413     l12_10.lxu[i__ - 1] = true;
12414     for (j = 1; j <= 15; ++j) {
12415 /* L32: */
12416         l5_24.gg[j + i__ * 15 - 16] = 0.;
12417     }
12418     }
12419     for (i__ = 1; i__ <= 10; ++i__) {
12420 /* L30: */
12421     l4_10.gf[i__ - 1] = 0.;
12422     }
12423     for (i__ = 11; i__ <= 13; ++i__) {
12424 /* L31: */
12425     l4_10.gf[i__ - 1] = 1.;
12426     }
12427     l5_24.gg[15] = -1.;
12428     l5_24.gg[30] = 1.;
12429     l5_24.gg[1] = -1.;
12430     l5_24.gg[16] = 1.;
12431     l5_24.gg[92] = -.002;
12432     l5_24.gg[107] = .002;
12433     l5_24.gg[153] = 1.;
12434     l5_24.gg[168] = 1.;
12435     l5_24.gg[183] = 1.;
12436     l5_24.gg[154] = -1.;
12437     l5_24.gg[169] = -1.;
12438     l5_24.gg[184] = -1.;
12439     l5_24.gg[185] = 1.;
12440     l5_24.gg[163] = 1.;
12441     l5_24.gg[179] = 1.;
12442     l20_11.lex = false;
12443     l20_11.xex[0] = .803770278595;
12444     l20_11.xex[1] = .89998603367;
12445     l20_11.xex[2] = .970972419495;
12446     l20_11.xex[3] = .0999995162129;
12447     l20_11.xex[4] = .190815447786;
12448     l20_11.xex[5] = .460571745738;
12449     l20_11.xex[6] = 574.080310673;
12450     l20_11.xex[7] = 74.0804261398;
12451     l20_11.xex[8] = 500.016155317;
12452     l20_11.xex[9] = .0999999999985;
12453     l20_11.xex[10] = 20.2341325935;
12454     l20_11.xex[11] = 77.3475459898;
12455     l20_11.xex[12] = .00673039736648;
12456     l20_11.fex = 97.5884089805;
12457     return 0;
12458 labelL2:
12459     l6_1.fx = l2_10.x[10] + l2_10.x[11] + l2_10.x[12];
12460 labelL3:
12461     return 0;
12462 labelL4:
12463     if (l9_14.index1[0]) {
12464     l3_13.g[0] = l2_10.x[2] - l2_10.x[1];
12465     }
12466     if (l9_14.index1[1]) {
12467     l3_13.g[1] = l2_10.x[1] - l2_10.x[0];
12468     }
12469     if (l9_14.index1[2]) {
12470     l3_13.g[2] = 1. - (l2_10.x[6] - l2_10.x[7]) * .002;
12471     }
12472     if (l9_14.index1[3]) {
12473     l3_13.g[3] = l2_10.x[10] + l2_10.x[11] + l2_10.x[12] - 50.;
12474     }
12475     if (l9_14.index1[4]) {
12476     l3_13.g[4] = 250. - l2_10.x[10] - l2_10.x[11] - l2_10.x[12];
12477     }
12478     if (l9_14.index1[5]) {
12479     l3_13.g[5] = l2_10.x[12] - l2_10.x[9] * 1.262626 + l2_10.x[2] *
12480         1.231059 * l2_10.x[9];
12481     }
12482     if (l9_14.index1[6]) {
12483 /* Computing 2nd power */
12484     d__1 = l2_10.x[1];
12485     l3_13.g[6] = l2_10.x[4] - l2_10.x[1] * .03475 - l2_10.x[1] * .975 *
12486         l2_10.x[4] + d__1 * d__1 * .00975;
12487     }
12488     if (l9_14.index1[7]) {
12489 /* Computing 2nd power */
12490     d__1 = l2_10.x[2];
12491     l3_13.g[7] = l2_10.x[5] - l2_10.x[2] * .03475 - l2_10.x[2] * .975 *
12492         l2_10.x[5] + d__1 * d__1 * .00975;
12493     }
12494     if (l9_14.index1[8]) {
12495     l3_13.g[8] = l2_10.x[4] * l2_10.x[6] - l2_10.x[0] * l2_10.x[7] -
12496         l2_10.x[3] * l2_10.x[6] + l2_10.x[3] * l2_10.x[7];
12497     }
12498     if (l9_14.index1[9]) {
12499     l3_13.g[9] = (l2_10.x[1] * l2_10.x[8] + l2_10.x[4] * l2_10.x[7] -
12500         l2_10.x[0] * l2_10.x[7] - l2_10.x[5] * l2_10.x[8]) * -.002 -
12501         l2_10.x[5] - l2_10.x[4] + 1.;
12502     }
12503     if (l9_14.index1[10]) {
12504     l3_13.g[10] = l2_10.x[1] * l2_10.x[8] - l2_10.x[2] * l2_10.x[9] -
12505         l2_10.x[5] * l2_10.x[8] - (l2_10.x[1] - l2_10.x[5]) * 500. +
12506         l2_10.x[1] * l2_10.x[9];
12507     }
12508     if (l9_14.index1[11]) {
12509     l3_13.g[11] = l2_10.x[1] - .9 - (l2_10.x[1] * l2_10.x[9] - l2_10.x[2]
12510         * l2_10.x[9]) * .002;
12511     }
12512     if (l9_14.index1[12]) {
12513 /* Computing 2nd power */
12514     d__1 = l2_10.x[0];
12515     l3_13.g[12] = l2_10.x[3] - l2_10.x[0] * .03475 - l2_10.x[0] * .975 *
12516         l2_10.x[3] + d__1 * d__1 * .00975;
12517     }
12518     if (l9_14.index1[13]) {
12519     l3_13.g[13] = l2_10.x[10] - l2_10.x[7] * 1.262626 + l2_10.x[0] *
12520         1.231059 * l2_10.x[7];
12521     }
12522     if (l9_14.index1[14]) {
12523     l3_13.g[14] = l2_10.x[11] - l2_10.x[8] * 1.262626 + l2_10.x[1] *
12524         1.231059 * l2_10.x[8];
12525     }
12526     return 0;
12527 labelL5:
12528     if (! l10_14.index2[5]) {
12529     goto labelL12;
12530     }
12531     l5_24.gg[35] = l2_10.x[9] * 1.231059;
12532     l5_24.gg[140] = l2_10.x[2] * 1.231059 - 1.262626;
12533 labelL12:
12534     if (! l10_14.index2[6]) {
12535     goto labelL13;
12536     }
12537     l5_24.gg[21] = -.03475 - l2_10.x[4] * .975 + l2_10.x[1] * .0195;
12538     l5_24.gg[66] = 1. - l2_10.x[1] * .975;
12539 labelL13:
12540     if (! l10_14.index2[7]) {
12541     goto labelL14;
12542     }
12543     l5_24.gg[37] = -.03475 - l2_10.x[5] * .975 + l2_10.x[2] * .0195;
12544     l5_24.gg[82] = 1. - l2_10.x[2] * .975;
12545 labelL14:
12546     if (! l10_14.index2[8]) {
12547     goto L15;
12548     }
12549     l5_24.gg[8] = -l2_10.x[7];
12550     l5_24.gg[53] = -l2_10.x[6] + l2_10.x[7];
12551     l5_24.gg[68] = l2_10.x[6];
12552     l5_24.gg[98] = l2_10.x[4] - l2_10.x[3];
12553     l5_24.gg[113] = -l2_10.x[0] + l2_10.x[3];
12554 L15:
12555     if (! l10_14.index2[9]) {
12556     goto L16;
12557     }
12558     l5_24.gg[9] = l2_10.x[7] * .002;
12559     l5_24.gg[24] = l2_10.x[8] * -.002;
12560     l5_24.gg[69] = l2_10.x[7] * -.002 - 1.;
12561     l5_24.gg[84] = l2_10.x[8] * .002 - 1.;
12562     l5_24.gg[114] = (l2_10.x[4] - l2_10.x[0]) * -.002;
12563     l5_24.gg[129] = (l2_10.x[1] - l2_10.x[5]) * -.002;
12564 L16:
12565     if (! l10_14.index2[10]) {
12566     goto L17;
12567     }
12568     l5_24.gg[25] = l2_10.x[8] - 500. + l2_10.x[9];
12569     l5_24.gg[40] = -l2_10.x[9];
12570     l5_24.gg[85] = -l2_10.x[8] + 500.;
12571     l5_24.gg[130] = l2_10.x[1] - l2_10.x[5];
12572     l5_24.gg[145] = -l2_10.x[2] + l2_10.x[1];
12573 L17:
12574     if (! l10_14.index2[11]) {
12575     goto L18;
12576     }
12577     l5_24.gg[26] = 1. - l2_10.x[9] * .002;
12578     l5_24.gg[41] = l2_10.x[9] * .002;
12579     l5_24.gg[146] = (l2_10.x[2] - l2_10.x[1]) * .002;
12580 L18:
12581     if (! l10_14.index2[12]) {
12582     goto L19;
12583     }
12584     l5_24.gg[12] = -.03475 - l2_10.x[3] * .975 + l2_10.x[0] * .0195;
12585     l5_24.gg[57] = 1. - l2_10.x[0] * .975;
12586 L19:
12587     if (! l10_14.index2[13]) {
12588     goto labelL20;
12589     }
12590     l5_24.gg[13] = l2_10.x[7] * 1.231059;
12591     l5_24.gg[118] = l2_10.x[0] * 1.231059 - 1.262626;
12592 labelL20:
12593     if (! l10_14.index2[14]) {
12594     goto L21;
12595     }
12596     l5_24.gg[29] = l2_10.x[8] * 1.231059;
12597     l5_24.gg[134] = l2_10.x[1] * 1.231059 - 1.262626;
12598 L21:
12599     return 0;
12600 } /* tp116_ */
12601 
12602 
tp117_(int * mode)12603 /* Subroutine */ int tp117_(int *mode)
12604 {
12605     /* System generated locals */
12606     Real d__1;
12607 
12608     /* Local variables */
12609     static Real a[50]    /* was [10][5] */, b[10], c__[25]    /*
12610         was [5][5] */, d__[5], e[5];
12611     static int i__, j;
12612     static Real t1, t2, t3, t4[5], t5[5], t6[5];
12613 
12614     switch ((int)*mode) {
12615     case 1:  goto labelL1;
12616     case 2:  goto labelL2;
12617     case 3:  goto labelL3;
12618     case 4:  goto labelL2;
12619     case 5:  goto labelL5;
12620     }
12621 labelL1:
12622     l1_1.n = 15;
12623     l1_1.nili = 0;
12624     l1_1.ninl = 5;
12625     l1_1.neli = 0;
12626     l1_1.nenl = 0;
12627     for (i__ = 1; i__ <= 15; ++i__) {
12628 /* labelL20: */
12629     l2_11.x[i__ - 1] = .001;
12630     }
12631     l2_11.x[6] = 60.;
12632     for (i__ = 1; i__ <= 15; ++i__) {
12633     l13_11.xl[i__ - 1] = 0.;
12634     l11_11.lxl[i__ - 1] = true;
12635     l12_11.lxu[i__ - 1] = false;
12636     for (j = 1; j <= 5; ++j) {
12637 /* L22: */
12638         l5_25.gg[j + i__ * 5 - 6] = 0.;
12639     }
12640     }
12641     e[0] = -15.;
12642     e[1] = -27.;
12643     e[2] = -36.;
12644     e[3] = -18.;
12645     e[4] = -12.;
12646     c__[0] = 30.;
12647     c__[5] = -20.;
12648     c__[10] = -10.;
12649     c__[15] = 32.;
12650     c__[20] = -10.;
12651     c__[6] = 39.;
12652     c__[11] = -6.;
12653     c__[16] = -31.;
12654     c__[21] = 32.;
12655     c__[12] = 10.;
12656     c__[17] = -6.;
12657     c__[22] = -10.;
12658     c__[18] = 39.;
12659     c__[23] = -20.;
12660     c__[24] = 30.;
12661     for (i__ = 1; i__ <= 5; ++i__) {
12662     for (j = 1; j <= 5; ++j) {
12663 /* L70: */
12664         c__[j + i__ * 5 - 6] = c__[i__ + j * 5 - 6];
12665     }
12666     }
12667     d__[0] = 4.;
12668     d__[1] = 8.;
12669     d__[2] = 10.;
12670     d__[3] = 6.;
12671     d__[4] = 2.;
12672     for (i__ = 1; i__ <= 6; ++i__) {
12673     for (j = 1; j <= 5; ++j) {
12674 /* L72: */
12675         a[i__ + j * 10 - 11] = 0.;
12676     }
12677     }
12678     a[0] = -16.;
12679     a[10] = 2.;
12680     a[30] = 1.;
12681     a[11] = -2.;
12682     a[31] = .4;
12683     a[41] = 2.;
12684     a[2] = -3.5;
12685     a[22] = 2.;
12686     a[13] = -2.;
12687     a[33] = -4.;
12688     a[43] = -1.;
12689     a[14] = -9.;
12690     a[24] = -2.;
12691     a[34] = 1.;
12692     a[44] = -2.8;
12693     a[5] = 2.;
12694     a[25] = -4.;
12695     a[7] = -1.;
12696     a[17] = -2.;
12697     a[27] = -3.;
12698     a[37] = -2.;
12699     a[47] = -1.;
12700     for (i__ = 1; i__ <= 5; ++i__) {
12701     a[i__ * 10 - 4] = -1.;
12702     a[i__ * 10 - 2] = (Real) i__;
12703 /* L73: */
12704     a[i__ * 10 - 1] = 1.;
12705     }
12706     b[0] = -40.;
12707     b[1] = -2.;
12708     b[2] = -.25;
12709     b[3] = -4.;
12710     b[4] = -4.;
12711     b[5] = -1.;
12712     b[6] = -40.;
12713     b[7] = -60.;
12714     b[8] = 5.;
12715     b[9] = 1.;
12716     for (i__ = 1; i__ <= 10; ++i__) {
12717 /* L35: */
12718     l4_11.gf[i__ - 1] = -b[i__ - 1];
12719     }
12720     for (i__ = 1; i__ <= 10; ++i__) {
12721     for (j = 1; j <= 5; ++j) {
12722 /* L40: */
12723         l5_25.gg[j + i__ * 5 - 6] = -a[i__ + j * 10 - 11];
12724     }
12725     }
12726     for (i__ = 1; i__ <= 5; ++i__) {
12727     for (j = 1; j <= 5; ++j) {
12728         if (i__ - j != 0) {
12729         goto L45;
12730         } else {
12731         goto L42;
12732         }
12733 L45:
12734         l5_25.gg[j + (i__ + 10) * 5 - 6] = c__[i__ + j * 5 - 6] * 2.;
12735 L42:
12736         ;
12737     }
12738 /* L41: */
12739     }
12740     l20_12.lex = false;
12741     l20_12.xex[0] = 0.;
12742     l20_12.xex[1] = 0.;
12743     l20_12.xex[2] = 5.1741363068;
12744     l20_12.xex[3] = 0.;
12745     l20_12.xex[4] = 3.06109271525;
12746     l20_12.xex[5] = 11.839676029;
12747     l20_12.xex[6] = 0.;
12748     l20_12.xex[7] = 0.;
12749     l20_12.xex[8] = .103907059194;
12750     l20_12.xex[9] = 0.;
12751     l20_12.xex[10] = .299992902601;
12752     l20_12.xex[11] = .333470928832;
12753     l20_12.xex[12] = .399990975915;
12754     l20_12.xex[13] = .428314541579;
12755     l20_12.xex[14] = .223960749729;
12756     l20_12.fex = 32.3486789791;
12757     return 0;
12758 labelL2:
12759     t1 = 0.;
12760     t2 = 0.;
12761     for (j = 1; j <= 5; ++j) {
12762 /* Computing 3rd power */
12763     d__1 = l2_11.x[j + 9];
12764     t2 += d__[j - 1] * (d__1 * (d__1 * d__1));
12765     for (i__ = 1; i__ <= 5; ++i__) {
12766         t1 += c__[i__ + j * 5 - 6] * l2_11.x[i__ + 9] * l2_11.x[j + 9];
12767 /* L30: */
12768     }
12769     }
12770     t3 = 0.;
12771     for (i__ = 1; i__ <= 10; ++i__) {
12772 /* L31: */
12773     t3 += b[i__ - 1] * l2_11.x[i__ - 1];
12774     }
12775     for (j = 1; j <= 5; ++j) {
12776     t4[j - 1] = 0.;
12777     t5[j - 1] = 0.;
12778     for (i__ = 1; i__ <= 5; ++i__) {
12779 /* L32: */
12780         t4[j - 1] += c__[i__ + j * 5 - 6] * l2_11.x[i__ + 9];
12781     }
12782     for (i__ = 1; i__ <= 10; ++i__) {
12783 /* L33: */
12784         t5[j - 1] += a[i__ + j * 10 - 11] * l2_11.x[i__ - 1];
12785     }
12786 /* L34: */
12787     }
12788     if (*mode == 4) {
12789     goto labelL4;
12790     }
12791     l6_1.fx = -(t3 - t1 - t2 * 2.);
12792     return 0;
12793 labelL3:
12794     for (i__ = 1; i__ <= 5; ++i__) {
12795     t6[i__ - 1] = 0.;
12796     for (j = 1; j <= 5; ++j) {
12797 /* L37: */
12798         t6[i__ - 1] += (c__[i__ + j * 5 - 6] + c__[j + i__ * 5 - 6]) *
12799             l2_11.x[j + 9];
12800     }
12801     }
12802     for (i__ = 1; i__ <= 5; ++i__) {
12803 /* L36: */
12804 /* Computing 2nd power */
12805     d__1 = l2_11.x[i__ + 9];
12806     l4_11.gf[i__ + 9] = t6[i__ - 1] + d__[i__ - 1] * 6. * (d__1 * d__1);
12807     }
12808     return 0;
12809 labelL4:
12810     for (j = 1; j <= 5; ++j) {
12811     if (l9_5.index1[j - 1]) {
12812 /* Computing 2nd power */
12813         d__1 = l2_11.x[j + 9];
12814         l3_4.g[j - 1] = t4[j - 1] * 2. + d__[j - 1] * 3. * (d__1 * d__1)
12815             + e[j - 1] - t5[j - 1];
12816     }
12817 /* L38: */
12818     }
12819     return 0;
12820 labelL5:
12821     for (j = 1; j <= 5; ++j) {
12822     if (! l10_5.index2[j - 1]) {
12823         goto L39;
12824     }
12825     l5_25.gg[j + (j + 10) * 5 - 6] = c__[j + j * 5 - 6] * 2. + d__[j - 1]
12826         * 6. * l2_11.x[j + 9];
12827 L39:
12828     ;
12829     }
12830     return 0;
12831 } /* tp117_ */
12832 
tp118_(int * mode)12833 /* Subroutine */ int tp118_(int *mode)
12834 {
12835     /* System generated locals */
12836     Real d__1, d__2, d__3;
12837 
12838     /* Local variables */
12839     static int i__, j, k, m;
12840     static Real t;
12841 
12842     switch ((int)*mode) {
12843     case 1:  goto labelL1;
12844     case 2:  goto labelL2;
12845     case 3:  goto labelL3;
12846     case 4:  goto labelL4;
12847     case 5:  goto labelL5;
12848     }
12849 labelL1:
12850     l1_1.n = 15;
12851     l1_1.nili = 29;
12852     l1_1.ninl = 0;
12853     l1_1.neli = 0;
12854     l1_1.nenl = 0;
12855     for (i__ = 1; i__ <= 15; ++i__) {
12856 /* labelL6: */
12857     l2_11.x[i__ - 1] = 20.;
12858     }
12859     l2_11.x[1] = 55.;
12860     l2_11.x[2] = 15.;
12861     l2_11.x[4] = 60.;
12862     l2_11.x[7] = 60.;
12863     l2_11.x[10] = 60.;
12864     l2_11.x[13] = 60.;
12865     l13_11.xl[0] = 8.;
12866     l13_11.xl[1] = 43.;
12867     l13_11.xl[2] = 3.;
12868     l14_11.xu[0] = 21.;
12869     l14_11.xu[1] = 57.;
12870     l14_11.xu[2] = 16.;
12871     for (i__ = 1; i__ <= 4; ++i__) {
12872     l13_11.xl[i__ * 3] = 0.;
12873     l13_11.xl[i__ * 3 + 1] = 0.;
12874     l13_11.xl[i__ * 3 + 2] = 0.;
12875     l14_11.xu[i__ * 3] = 90.;
12876     l14_11.xu[i__ * 3 + 1] = 120.;
12877     l14_11.xu[i__ * 3 + 2] = 60.;
12878 /* L22: */
12879     }
12880     for (i__ = 1; i__ <= 15; ++i__) {
12881     l11_11.lxl[i__ - 1] = true;
12882     l12_11.lxu[i__ - 1] = true;
12883     for (j = 1; j <= 29; ++j) {
12884 /* L25: */
12885         l5_26.gg[j + i__ * 29 - 30] = 0.;
12886     }
12887     }
12888     for (k = 1; k <= 4; ++k) {
12889     for (i__ = 1; i__ <= 3; ++i__) {
12890         l5_26.gg[k + (i__ << 2) - 4 + (k * 3 + i__) * 29 - 30] = 1.;
12891         l5_26.gg[k + (i__ << 2) - 4 + (k * 3 + i__ - 3) * 29 - 30] = -1.;
12892         l5_26.gg[k + 8 + (i__ << 2) + (k * 3 + i__) * 29 - 30] = -1.;
12893         l5_26.gg[k + 8 + (i__ << 2) + (k * 3 + i__ - 3) * 29 - 30] = 1.;
12894 /* labelL20: */
12895     }
12896     }
12897     for (k = 1; k <= 5; ++k) {
12898     for (i__ = 1; i__ <= 3; ++i__) {
12899 /* L21: */
12900         l5_26.gg[k + 24 + (k * 3 - 3 + i__) * 29 - 30] = 1.;
12901     }
12902     }
12903     l20_12.lex = false;
12904     l20_12.xex[0] = 8.;
12905     l20_12.xex[1] = 49.;
12906     l20_12.xex[2] = 3.;
12907     l20_12.xex[3] = 1.;
12908     l20_12.xex[4] = 56.;
12909     l20_12.xex[5] = 0.;
12910     l20_12.xex[6] = .999999999545;
12911     l20_12.xex[7] = 63.;
12912     l20_12.xex[8] = 6.;
12913     l20_12.xex[9] = 2.99999999965;
12914     l20_12.xex[10] = 70.;
12915     l20_12.xex[11] = 12.;
12916     l20_12.xex[12] = 4.99999999971;
12917     l20_12.xex[13] = 77.;
12918     l20_12.xex[14] = 18.;
12919     l20_12.fex = 664.820449993;
12920     return 0;
12921 labelL2:
12922     t = 0.;
12923     for (m = 1; m <= 5; ++m) {
12924     i__ = m - 1;
12925 /* L30: */
12926 /* Computing 2nd power */
12927     d__1 = l2_11.x[i__ * 3];
12928 /* Computing 2nd power */
12929     d__2 = l2_11.x[i__ * 3 + 1];
12930 /* Computing 2nd power */
12931     d__3 = l2_11.x[i__ * 3 + 2];
12932     t = t + l2_11.x[i__ * 3] * 2.3 + d__1 * d__1 * 1e-4 + l2_11.x[i__ * 3
12933         + 1] * 1.7 + d__2 * d__2 * 1e-4 + l2_11.x[i__ * 3 + 2] * 2.2
12934         + d__3 * d__3 * 1.5e-4;
12935     }
12936     l6_1.fx = t;
12937     return 0;
12938 labelL3:
12939     for (i__ = 1; i__ <= 5; ++i__) {
12940     l4_11.gf[i__ * 3 - 3] = l2_11.x[i__ * 3 - 3] * 2e-4 + 2.3;
12941     l4_11.gf[i__ * 3 - 2] = l2_11.x[i__ * 3 - 2] * 2e-4 + 1.7;
12942 /* L31: */
12943     l4_11.gf[i__ * 3 - 1] = l2_11.x[i__ * 3 - 1] * 3e-4 + 2.2;
12944     }
12945     return 0;
12946 labelL4:
12947     for (i__ = 1; i__ <= 4; ++i__) {
12948     if (l9_15.index1[i__ - 1]) {
12949         l3_14.g[i__ - 1] = l2_11.x[i__ * 3] - l2_11.x[i__ * 3 - 3] + 7.;
12950     }
12951     if (l9_15.index1[i__ + 3]) {
12952         l3_14.g[i__ + 3] = l2_11.x[i__ * 3 + 1] - l2_11.x[i__ * 3 - 2] +
12953             7.;
12954     }
12955     if (l9_15.index1[i__ + 7]) {
12956         l3_14.g[i__ + 7] = l2_11.x[i__ * 3 + 2] - l2_11.x[i__ * 3 - 1] +
12957             7.;
12958     }
12959     if (l9_15.index1[i__ + 11]) {
12960         l3_14.g[i__ + 11] = l2_11.x[i__ * 3 - 3] - l2_11.x[i__ * 3] + 6.;
12961     }
12962     if (l9_15.index1[i__ + 15]) {
12963         l3_14.g[i__ + 15] = l2_11.x[i__ * 3 - 2] - l2_11.x[i__ * 3 + 1] +
12964             7.;
12965     }
12966 /* L32: */
12967     if (l9_15.index1[i__ + 19]) {
12968         l3_14.g[i__ + 19] = l2_11.x[i__ * 3 - 1] - l2_11.x[i__ * 3 + 2] +
12969             6.;
12970     }
12971     }
12972     if (l9_15.index1[24]) {
12973     l3_14.g[24] = l2_11.x[0] + l2_11.x[1] + l2_11.x[2] - 60.;
12974     }
12975     if (l9_15.index1[25]) {
12976     l3_14.g[25] = l2_11.x[3] + l2_11.x[4] + l2_11.x[5] - 50.;
12977     }
12978     if (l9_15.index1[26]) {
12979     l3_14.g[26] = l2_11.x[6] + l2_11.x[7] + l2_11.x[8] - 70.;
12980     }
12981     if (l9_15.index1[27]) {
12982     l3_14.g[27] = l2_11.x[9] + l2_11.x[10] + l2_11.x[11] - 85.;
12983     }
12984     if (l9_15.index1[28]) {
12985     l3_14.g[28] = l2_11.x[12] + l2_11.x[13] + l2_11.x[14] - 100.;
12986     }
12987 labelL5:
12988     return 0;
12989 } /* tp118_ */
12990 
tp119_(int * mode)12991 /* Subroutine */ int tp119_(int *mode)
12992 {
12993     /* System generated locals */
12994     Real d__1, d__2;
12995 
12996     /* Local variables */
12997     static Real a[256]    /* was [16][16] */, b[128]    /* was [8][16]
12998          */, c__[8];
12999     static int i__, j;
13000     static Real s[16], t;
13001 
13002     switch ((int)*mode) {
13003     case 1:  goto labelL1;
13004     case 2:  goto labelL2;
13005     case 3:  goto labelL3;
13006     case 4:  goto labelL4;
13007     case 5:  goto labelL5;
13008     }
13009 labelL1:
13010     l1_1.n = 16;
13011     l1_1.nili = 0;
13012     l1_1.ninl = 0;
13013     l1_1.neli = 8;
13014     l1_1.nenl = 0;
13015     for (i__ = 1; i__ <= 16; ++i__) {
13016     for (j = 1; j <= 16; ++j) {
13017 /* L21: */
13018         a[i__ + (j << 4) - 17] = 0.;
13019     }
13020     a[i__ + (i__ << 4) - 17] = 1.;
13021     for (j = 1; j <= 8; ++j) {
13022 /* L81: */
13023         b[j + (i__ << 3) - 9] = 0.;
13024     }
13025 /* L80: */
13026     }
13027     for (i__ = 1; i__ <= 8; ++i__) {
13028 /* L22: */
13029     b[i__ + ((i__ + 8) << 3) - 9] = 1.;
13030     }
13031     a[48] = 1.;
13032     a[96] = 1.;
13033     a[112] = 1.;
13034     a[240] = 1.;
13035     a[33] = 1.;
13036     a[97] = 1.;
13037     a[145] = 1.;
13038     a[98] = 1.;
13039     a[130] = 1.;
13040     a[146] = 1.;
13041     a[210] = 1.;
13042     a[99] = 1.;
13043     a[163] = 1.;
13044     a[227] = 1.;
13045     a[84] = 1.;
13046     a[148] = 1.;
13047     a[180] = 1.;
13048     a[244] = 1.;
13049     a[117] = 1.;
13050     a[229] = 1.;
13051     a[166] = 1.;
13052     a[198] = 1.;
13053     a[151] = 1.;
13054     a[231] = 1.;
13055     a[184] = 1.;
13056     a[248] = 1.;
13057     a[217] = 1.;
13058     a[202] = 1.;
13059     a[219] = 1.;
13060     a[220] = 1.;
13061     b[0] = .22;
13062     b[8] = .2;
13063     b[16] = .19;
13064     b[24] = .25;
13065     b[32] = .15;
13066     b[40] = .11;
13067     b[48] = .12;
13068     b[56] = .13;
13069     b[1] = -1.46;
13070     b[17] = -1.3;
13071     b[25] = 1.82;
13072     b[33] = -1.15;
13073     b[49] = .8;
13074     b[2] = 1.29;
13075     b[10] = -.89;
13076     b[34] = -1.16;
13077     b[42] = -.96;
13078     b[58] = -.49;
13079     b[3] = -1.1;
13080     b[11] = -1.06;
13081     b[19] = .95;
13082     b[27] = -.54;
13083     b[43] = -1.78;
13084     b[51] = -.41;
13085     b[28] = -1.43;
13086     b[36] = 1.51;
13087     b[44] = .59;
13088     b[52] = -.33;
13089     b[60] = -.43;
13090     b[13] = -1.72;
13091     b[21] = -.33;
13092     b[37] = 1.62;
13093     b[45] = 1.24;
13094     b[53] = .21;
13095     b[61] = -.26;
13096     b[6] = 1.12;
13097     b[30] = .31;
13098     b[54] = 1.12;
13099     b[70] = -.36;
13100     b[15] = .45;
13101     b[23] = .26;
13102     b[31] = -1.1;
13103     b[39] = .58;
13104     b[55] = -1.03;
13105     b[63] = .1;
13106     c__[0] = 2.5;
13107     c__[1] = 1.1;
13108     c__[2] = -3.1;
13109     c__[3] = -3.5;
13110     c__[4] = 1.3;
13111     c__[5] = 2.1;
13112     c__[6] = 2.3;
13113     c__[7] = -1.5;
13114     for (i__ = 1; i__ <= 16; ++i__) {
13115     l11_12.lxl[i__ - 1] = true;
13116     l12_12.lxu[i__ - 1] = true;
13117     l2_12.x[i__ - 1] = 10.;
13118     l13_12.xl[i__ - 1] = 0.;
13119     l14_12.xu[i__ - 1] = 5.;
13120     for (j = 1; j <= 8; ++j) {
13121 /* labelL20: */
13122         l5_27.gg[j + (i__ << 3) - 9] = b[j + (i__ << 3) - 9];
13123     }
13124     }
13125     l20_13.lex = false;
13126     l20_13.xex[0] = .0398473514099;
13127     l20_13.xex[1] = .791983155694;
13128     l20_13.xex[2] = .202870330224;
13129     l20_13.xex[3] = .844357916347;
13130     l20_13.xex[4] = 1.26990645286;
13131     l20_13.xex[5] = .934738707827;
13132     l20_13.xex[6] = 1.68196196924;
13133     l20_13.xex[7] = .15530087749;
13134     l20_13.xex[8] = 1.56787033356;
13135     l20_13.xex[9] = -3.59021173251e-12;
13136     l20_13.xex[10] = -6.12900888082e-12;
13137     l20_13.xex[11] = -8.86794857449e-13;
13138     l20_13.xex[12] = .660204066;
13139     l20_13.xex[13] = -2.54340725727e-12;
13140     l20_13.xex[14] = .674255926901;
13141     l20_13.xex[15] = -1.10433723798e-11;
13142     l20_13.fex = 244.899697515;
13143     return 0;
13144 labelL2:
13145     t = 0.;
13146     for (i__ = 1; i__ <= 16; ++i__) {
13147     for (j = 1; j <= 16; ++j) {
13148 /* L30: */
13149 /* Computing 2nd power */
13150         d__1 = l2_12.x[i__ - 1];
13151 /* Computing 2nd power */
13152         d__2 = l2_12.x[j - 1];
13153         t += a[i__ + (j << 4) - 17] * (d__1 * d__1 + l2_12.x[i__ - 1] +
13154             1.) * (d__2 * d__2 + l2_12.x[j - 1] + 1.);
13155     }
13156     }
13157     l6_1.fx = t;
13158     return 0;
13159 labelL3:
13160     for (i__ = 1; i__ <= 16; ++i__) {
13161     s[i__ - 1] = 0.;
13162     for (j = 1; j <= 16; ++j) {
13163 /* L32: */
13164 /* Computing 2nd power */
13165         d__1 = l2_12.x[j - 1];
13166         s[i__ - 1] += (a[i__ + (j << 4) - 17] + a[j + (i__ << 4) - 17]) *
13167             (d__1 * d__1 + l2_12.x[j - 1] + 1.) * (l2_12.x[i__ - 1] *
13168             2. + 1.);
13169     }
13170 /* L31: */
13171     l4_12.gf[i__ - 1] = s[i__ - 1];
13172     }
13173     return 0;
13174 labelL4:
13175     for (i__ = 1; i__ <= 8; ++i__) {
13176     if (! l9_12.index1[i__ - 1]) {
13177         goto L33;
13178     }
13179     s[i__ - 1] = 0.;
13180     for (j = 1; j <= 16; ++j) {
13181 /* L34: */
13182         s[i__ - 1] += b[i__ + (j << 3) - 9] * l2_12.x[j - 1];
13183     }
13184     l3_11.g[i__ - 1] = s[i__ - 1] - c__[i__ - 1];
13185 L33:
13186     ;
13187     }
13188 labelL5:
13189     return 0;
13190 } /* tp119_ */
13191 
13192 
tp201_(int * mode)13193 /* Subroutine */ int tp201_(int *mode)
13194 {
13195     /* System generated locals */
13196     Real d__1, d__2;
13197 
13198     /* Local variables */
13199     static int i__;
13200 
13201     switch ((int)*mode) {
13202     case 1:  goto labelL1;
13203     case 2:  goto labelL2;
13204     case 3:  goto labelL3;
13205     case 4:  goto labelL4;
13206     case 5:  goto labelL4;
13207     }
13208 labelL1:
13209     l1_1.n = 2;
13210     l1_1.nili = 0;
13211     l1_1.ninl = 0;
13212     l1_1.neli = 0;
13213     l1_1.nenl = 0;
13214     l2_1.x[0] = 8.;
13215     l2_1.x[1] = 9.;
13216     for (i__ = 1; i__ <= 2; ++i__) {
13217     l12_1.lxu[i__ - 1] = false;
13218 /* labelL6: */
13219     l11_1.lxl[i__ - 1] = false;
13220     }
13221     l20_1.lex = true;
13222     l20_1.nex = 1;
13223     l20_1.fex = 0.;
13224     l20_1.xex[0] = 5.;
13225     l20_1.xex[1] = 6.;
13226     return 0;
13227 labelL2:
13228 /* Computing 2nd power */
13229     d__1 = l2_1.x[0] - 5.;
13230 /* Computing 2nd power */
13231     d__2 = l2_1.x[1] - 6.;
13232     l6_1.fx = d__1 * d__1 * 4. + d__2 * d__2;
13233     return 0;
13234 labelL3:
13235     l4_1.gf[0] = (l2_1.x[0] - 5.) * 8.;
13236     l4_1.gf[1] = (l2_1.x[1] - 6.) * 2.;
13237 labelL4:
13238     return 0;
13239 } /* tp201_ */
13240 
13241 
tp202_(int * mode)13242 /* Subroutine */ int tp202_(int *mode)
13243 {
13244     /* System generated locals */
13245     Real d__1, d__2;
13246 
13247     /* Local variables */
13248     static int i__;
13249 
13250     switch ((int)*mode) {
13251     case 1:  goto labelL1;
13252     case 2:  goto labelL2;
13253     case 3:  goto labelL3;
13254     case 4:  goto labelL4;
13255     case 5:  goto labelL4;
13256     }
13257 labelL1:
13258     l1_1.n = 2;
13259     l1_1.nili = 0;
13260     l1_1.ninl = 0;
13261     l1_1.neli = 0;
13262     l1_1.nenl = 0;
13263     l2_1.x[0] = 15.;
13264     l2_1.x[1] = -2.;
13265     for (i__ = 1; i__ <= 2; ++i__) {
13266     l12_1.lxu[i__ - 1] = true;
13267 /* labelL6: */
13268     l11_1.lxl[i__ - 1] = true;
13269     }
13270     l14_1.xu[0] = (float)20.;
13271     l14_1.xu[1] = (float)5.;
13272     l13_1.xl[0] = (float)1.;
13273     l13_1.xl[1] = (float)-5.;
13274     l20_6.lex = true;
13275     l20_6.nex = 2;
13276     l20_6.fex = 0.;
13277     l20_6.xex[0] = 5.;
13278     l20_6.xex[1] = 4.;
13279     l20_6.xex[2] = 48.98425;
13280     l20_6.xex[3] = -.89681;
13281     l15_1.lsum = 2;
13282     return 0;
13283 labelL2:
13284 /* Computing 2nd power */
13285     d__1 = l2_1.x[1];
13286 /* Computing 3rd power */
13287     d__2 = l2_1.x[1];
13288     l16_1.f[0] = l2_1.x[0] - 13. - l2_1.x[1] * 2. + d__1 * d__1 * 5. - d__2 *
13289         (d__2 * d__2);
13290 /* Computing 2nd power */
13291     d__1 = l2_1.x[1];
13292 /* Computing 3rd power */
13293     d__2 = l2_1.x[1];
13294     l16_1.f[1] = l2_1.x[0] - 29. - l2_1.x[1] * 14. + d__1 * d__1 + d__2 * (
13295         d__2 * d__2);
13296 /* Computing 2nd power */
13297     d__1 = l16_1.f[0];
13298 /* Computing 2nd power */
13299     d__2 = l16_1.f[1];
13300     l6_1.fx = d__1 * d__1 + d__2 * d__2;
13301     return 0;
13302 labelL3:
13303 /* Computing 2nd power */
13304     d__1 = l2_1.x[1];
13305 /* Computing 3rd power */
13306     d__2 = l2_1.x[1];
13307     l16_1.f[0] = l2_1.x[0] - 13. - l2_1.x[1] * 2. + d__1 * d__1 * 5. - d__2 *
13308         (d__2 * d__2);
13309 /* Computing 2nd power */
13310     d__1 = l2_1.x[1];
13311 /* Computing 3rd power */
13312     d__2 = l2_1.x[1];
13313     l16_1.f[1] = l2_1.x[0] - 29. - l2_1.x[1] * 14. + d__1 * d__1 + d__2 * (
13314         d__2 * d__2);
13315     l17_1.df[0] = 1.;
13316 /* Computing 2nd power */
13317     d__1 = l2_1.x[1];
13318     l17_1.df[2] = l2_1.x[1] * 10. - 2. - d__1 * d__1 * 3.;
13319     l17_1.df[1] = 1.;
13320 /* Computing 2nd power */
13321     d__1 = l2_1.x[1];
13322     l17_1.df[3] = l2_1.x[1] * 2. - 14. + d__1 * d__1 * 3.;
13323     for (i__ = 1; i__ <= 2; ++i__) {
13324 /* L7: */
13325     l4_1.gf[i__ - 1] = l16_1.f[0] * 2. * l17_1.df[(i__ << 1) - 2] +
13326         l16_1.f[1] * 2. * l17_1.df[(i__ << 1) - 1];
13327     }
13328 labelL4:
13329     return 0;
13330 } /* tp202_ */
13331 
13332 
tp203_(int * mode)13333 /* Subroutine */ int tp203_(int *mode)
13334 {
13335     /* Initialized data */
13336 
13337     static Real c__[3] = { 1.5,2.25,2.625 };
13338 
13339     /* System generated locals */
13340     Real d__1;
13341 
13342     /* Builtin functions */
13343     Real  pow_di(Real* , int*);
13344 
13345     /* Local variables */
13346     static int i__;
13347 
13348     switch ((int)*mode) {
13349     case 1:  goto labelL1;
13350     case 2:  goto labelL2;
13351     case 3:  goto labelL3;
13352     case 4:  goto labelL4;
13353     case 5:  goto labelL4;
13354     }
13355 labelL1:
13356     l1_1.n = 2;
13357     l1_1.nili = 0;
13358     l1_1.ninl = 0;
13359     l1_1.neli = 0;
13360     l1_1.nenl = 0;
13361     l2_1.x[0] = 2.;
13362     l2_1.x[1] = .2;
13363     for (i__ = 1; i__ <= 2; ++i__) {
13364     l12_1.lxu[i__ - 1] = false;
13365 /* labelL6: */
13366     l11_1.lxl[i__ - 1] = false;
13367     }
13368     l20_1.lex = true;
13369     l20_1.nex = 1;
13370     l20_1.fex = 0.;
13371     l20_1.xex[0] = 3.;
13372     l20_1.xex[1] = .5;
13373     l15_1.lsum = 3;
13374     return 0;
13375 labelL2:
13376     l6_1.fx = 0.;
13377     for (i__ = 1; i__ <= 3; ++i__) {
13378     l16_2.f[i__ - 1] = c__[i__ - 1] - l2_1.x[0] * (1. - pow_di(&l2_1.x[1],
13379          &i__));
13380 /* L7: */
13381 /* Computing 2nd power */
13382     d__1 = l16_2.f[i__ - 1];
13383     l6_1.fx += d__1 * d__1;
13384     }
13385     return 0;
13386 labelL3:
13387     for (i__ = 1; i__ <= 3; ++i__) {
13388 /* L8: */
13389     l16_2.f[i__ - 1] = c__[i__ - 1] - l2_1.x[0] * (1. - pow_di(&l2_1.x[1],
13390          &i__));
13391     }
13392     l17_2.df[0] = l2_1.x[1] - 1.;
13393     l17_2.df[3] = l2_1.x[0];
13394 /* Computing 2nd power */
13395     d__1 = l2_1.x[1];
13396     l17_2.df[1] = d__1 * d__1 - 1.;
13397     l17_2.df[4] = l2_1.x[0] * 2. * l2_1.x[1];
13398 /* Computing 3rd power */
13399     d__1 = l2_1.x[1];
13400     l17_2.df[2] = d__1 * (d__1 * d__1) - 1.;
13401 /* Computing 2nd power */
13402     d__1 = l2_1.x[1];
13403     l17_2.df[5] = l2_1.x[0] * 3. * (d__1 * d__1);
13404     for (i__ = 1; i__ <= 2; ++i__) {
13405 /* labelL9: */
13406     l4_1.gf[i__ - 1] = l16_2.f[0] * 2. * l17_2.df[i__ * 3 - 3] + l16_2.f[
13407         1] * 2. * l17_2.df[i__ * 3 - 2] + l16_2.f[2] * 2. * l17_2.df[
13408         i__ * 3 - 1];
13409     }
13410 labelL4:
13411     return 0;
13412 } /* tp203_ */
13413 
13414 
tp204_(int * mode)13415 /* Subroutine */ int tp204_(int *mode)
13416 {
13417     /* Initialized data */
13418 
13419     static Real a[3] = { .13294,-.244378,.325895 };
13420     static Real d__[3] = { 2.5074,-1.36401,1.02282 };
13421     static Real h__[6]    /* was [3][2] */ = { -.564255,-.404979,
13422         -.0735084,.392417,.927589,.535493 };
13423 
13424     /* System generated locals */
13425     Real d__1, d__2, d__3;
13426 
13427     /* Local variables */
13428     static Real prod;
13429     static int i__;
13430 
13431     switch ((int)*mode) {
13432     case 1:  goto labelL1;
13433     case 2:  goto labelL2;
13434     case 3:  goto labelL3;
13435     case 4:  goto labelL4;
13436     case 5:  goto labelL4;
13437     }
13438 labelL1:
13439     l1_1.n = 2;
13440     l1_1.nili = 0;
13441     l1_1.ninl = 0;
13442     l1_1.neli = 0;
13443     l1_1.nenl = 0;
13444     l2_1.x[0] = .1;
13445     l2_1.x[1] = .1;
13446     for (i__ = 1; i__ <= 2; ++i__) {
13447     l12_1.lxu[i__ - 1] = false;
13448 /* labelL6: */
13449     l11_1.lxl[i__ - 1] = false;
13450     }
13451     l20_1.lex = true;
13452     l20_1.nex = 1;
13453     l20_1.fex = .183601;
13454     l20_1.xex[0] = 0.;
13455     l20_1.xex[1] = 0.;
13456     l15_1.lsum = 3;
13457     return 0;
13458 labelL2:
13459     for (i__ = 1; i__ <= 3; ++i__) {
13460     prod = h__[i__ - 1] * l2_1.x[0] + h__[i__ + 2] * l2_1.x[1];
13461 /* labelL10: */
13462 /* Computing 2nd power */
13463     d__1 = prod;
13464     l16_2.f[i__ - 1] = a[i__ - 1] + prod + d__1 * d__1 * .5 * d__[i__ - 1]
13465         ;
13466     }
13467 /* Computing 2nd power */
13468     d__1 = l16_2.f[0];
13469 /* Computing 2nd power */
13470     d__2 = l16_2.f[1];
13471 /* Computing 2nd power */
13472     d__3 = l16_2.f[2];
13473     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3;
13474     return 0;
13475 labelL3:
13476     for (i__ = 1; i__ <= 3; ++i__) {
13477     prod = h__[i__ - 1] * l2_1.x[0] + h__[i__ + 2] * l2_1.x[1];
13478 /* labelL11: */
13479 /* Computing 2nd power */
13480     d__1 = prod;
13481     l16_2.f[i__ - 1] = a[i__ - 1] + prod + d__1 * d__1 * .5 * d__[i__ - 1]
13482         ;
13483     }
13484     for (i__ = 1; i__ <= 3; ++i__) {
13485 /* L7: */
13486     l17_2.df[i__ - 1] = h__[i__ - 1] + (h__[i__ - 1] * l2_1.x[0] + h__[
13487         i__ + 2] * l2_1.x[1]) * h__[i__ - 1] * d__[i__ - 1];
13488     }
13489     for (i__ = 1; i__ <= 3; ++i__) {
13490 /* L8: */
13491     l17_2.df[i__ + 2] = h__[i__ + 2] + (h__[i__ - 1] * l2_1.x[0] + h__[
13492         i__ + 2] * l2_1.x[1]) * h__[i__ + 2] * d__[i__ - 1];
13493     }
13494     for (i__ = 1; i__ <= 2; ++i__) {
13495 /* labelL9: */
13496     l4_1.gf[i__ - 1] = (l16_2.f[0] * l17_2.df[i__ * 3 - 3] + l16_2.f[1] *
13497         l17_2.df[i__ * 3 - 2] + l16_2.f[2] * l17_2.df[i__ * 3 - 1]) *
13498         2.;
13499     }
13500 labelL4:
13501     return 0;
13502 } /* tp204_ */
13503 
13504 
tp205_(int * mode)13505 /* Subroutine */ int tp205_(int *mode)
13506 {
13507     /* System generated locals */
13508     Real d__1, d__2, d__3;
13509 
13510     /* Local variables */
13511     static int i__;
13512 
13513     switch ((int)*mode) {
13514     case 1:  goto labelL1;
13515     case 2:  goto labelL2;
13516     case 3:  goto labelL3;
13517     case 4:  goto labelL4;
13518     case 5:  goto labelL4;
13519     }
13520 labelL1:
13521     l1_1.n = 2;
13522     l1_1.nili = 0;
13523     l1_1.ninl = 0;
13524     l1_1.neli = 0;
13525     l1_1.nenl = 0;
13526     l2_1.x[0] = 0.;
13527     l2_1.x[1] = 0.;
13528     for (i__ = 1; i__ <= 2; ++i__) {
13529     l12_1.lxu[i__ - 1] = false;
13530 /* labelL6: */
13531     l11_1.lxl[i__ - 1] = false;
13532     }
13533     l20_1.lex = true;
13534     l20_1.nex = 1;
13535     l20_1.fex = 0.;
13536     l20_1.xex[0] = 3.;
13537     l20_1.xex[1] = .5;
13538     l15_1.lsum = 3;
13539     return 0;
13540 labelL2:
13541     l16_2.f[0] = 1.5 - l2_1.x[0] * (1. - l2_1.x[1]);
13542 /* Computing 2nd power */
13543     d__1 = l2_1.x[1];
13544     l16_2.f[1] = 2.25 - l2_1.x[0] * (1. - d__1 * d__1);
13545 /* Computing 3rd power */
13546     d__1 = l2_1.x[1];
13547     l16_2.f[2] = 2.625 - l2_1.x[0] * (1. - d__1 * (d__1 * d__1));
13548 /* Computing 2nd power */
13549     d__1 = l16_2.f[0];
13550 /* Computing 2nd power */
13551     d__2 = l16_2.f[1];
13552 /* Computing 2nd power */
13553     d__3 = l16_2.f[2];
13554     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3;
13555     return 0;
13556 labelL3:
13557     l16_2.f[0] = 1.5 - l2_1.x[0] * (1. - l2_1.x[1]);
13558 /* Computing 2nd power */
13559     d__1 = l2_1.x[1];
13560     l16_2.f[1] = 2.25 - l2_1.x[0] * (1. - d__1 * d__1);
13561 /* Computing 3rd power */
13562     d__1 = l2_1.x[1];
13563     l16_2.f[2] = 2.625 - l2_1.x[0] * (1. - d__1 * (d__1 * d__1));
13564     l17_2.df[0] = l2_1.x[1] - 1.;
13565     l17_2.df[3] = l2_1.x[0];
13566 /* Computing 2nd power */
13567     d__1 = l2_1.x[1];
13568     l17_2.df[1] = d__1 * d__1 - 1.;
13569     l17_2.df[4] = l2_1.x[0] * 2. * l2_1.x[1];
13570 /* Computing 3rd power */
13571     d__1 = l2_1.x[1];
13572     l17_2.df[2] = d__1 * (d__1 * d__1) - 1.;
13573 /* Computing 2nd power */
13574     d__1 = l2_1.x[1];
13575     l17_2.df[5] = l2_1.x[0] * 3. * (d__1 * d__1);
13576     for (i__ = 1; i__ <= 2; ++i__) {
13577 /* L7: */
13578     l4_1.gf[i__ - 1] = l16_2.f[0] * 2. * l17_2.df[i__ * 3 - 3] + l16_2.f[
13579         1] * 2. * l17_2.df[i__ * 3 - 2] + l16_2.f[2] * 2. * l17_2.df[
13580         i__ * 3 - 1];
13581     }
13582 labelL4:
13583     return 0;
13584 } /* tp205_ */
13585 
13586 
tp206_(int * mode)13587 /* Subroutine */ int tp206_(int *mode)
13588 {
13589     /* System generated locals */
13590     Real d__1, d__2, d__3;
13591 
13592     /* Local variables */
13593     static int i__;
13594 
13595     switch ((int)*mode) {
13596     case 1:  goto labelL1;
13597     case 2:  goto labelL2;
13598     case 3:  goto labelL3;
13599     case 4:  goto labelL4;
13600     case 5:  goto labelL4;
13601     }
13602 labelL1:
13603     l1_1.n = 2;
13604     l1_1.nili = 0;
13605     l1_1.ninl = 0;
13606     l1_1.neli = 0;
13607     l1_1.nenl = 0;
13608     l2_1.x[0] = -1.2;
13609     l2_1.x[1] = 1.;
13610     for (i__ = 1; i__ <= 2; ++i__) {
13611     l12_1.lxu[i__ - 1] = false;
13612 /* labelL6: */
13613     l11_1.lxl[i__ - 1] = false;
13614     }
13615     l20_1.lex = true;
13616     l20_1.nex = 1;
13617     l20_1.fex = 0.;
13618     l20_1.xex[0] = 1.;
13619     l20_1.xex[1] = 1.;
13620     return 0;
13621 labelL2:
13622 /* Computing 2nd power */
13623     d__2 = l2_1.x[0];
13624 /* Computing 2nd power */
13625     d__1 = l2_1.x[1] - d__2 * d__2;
13626 /* Computing 2nd power */
13627     d__3 = 1. - l2_1.x[0];
13628     l6_1.fx = d__1 * d__1 + d__3 * d__3 * 100.;
13629     return 0;
13630 labelL3:
13631 /* Computing 2nd power */
13632     d__1 = l2_1.x[0];
13633     l4_1.gf[0] = (l2_1.x[1] - d__1 * d__1) * -2. * 2. * l2_1.x[0] - (1. -
13634         l2_1.x[0]) * 200.;
13635 /* Computing 2nd power */
13636     d__1 = l2_1.x[0];
13637     l4_1.gf[1] = (l2_1.x[1] - d__1 * d__1) * 2.;
13638 labelL4:
13639     return 0;
13640 } /* tp206_ */
13641 
13642 
tp207_(int * mode)13643 /* Subroutine */ int tp207_(int *mode)
13644 {
13645     /* Initialized data */
13646 
13647     static Real c__ = 1.;
13648 
13649     /* System generated locals */
13650     Real d__1, d__2, d__3;
13651 
13652     /* Local variables */
13653     static int lsum, i__;
13654 
13655     switch ((int)*mode) {
13656     case 1:  goto labelL1;
13657     case 2:  goto labelL2;
13658     case 3:  goto labelL3;
13659     case 4:  goto labelL4;
13660     case 5:  goto labelL4;
13661     }
13662 labelL1:
13663     l1_1.n = 2;
13664     l1_1.nili = 0;
13665     l1_1.ninl = 0;
13666     l1_1.neli = 0;
13667     l1_1.nenl = 0;
13668     l2_1.x[0] = -1.2;
13669     l2_1.x[1] = 1.;
13670     for (i__ = 1; i__ <= 2; ++i__) {
13671     l12_1.lxu[i__ - 1] = false;
13672 /* labelL6: */
13673     l11_1.lxl[i__ - 1] = false;
13674     }
13675     l20_1.lex = true;
13676     l20_1.nex = 1;
13677     l20_1.fex = 0.;
13678     l20_1.xex[0] = 1.;
13679     l20_1.xex[1] = 1.;
13680     lsum = 2;
13681     return 0;
13682 labelL2:
13683 /* Computing 2nd power */
13684     d__2 = l2_1.x[0];
13685 /* Computing 2nd power */
13686     d__1 = l2_1.x[1] - d__2 * d__2;
13687 /* Computing 2nd power */
13688     d__3 = 1. - l2_1.x[0];
13689     l6_1.fx = c__ * (d__1 * d__1) + d__3 * d__3;
13690     return 0;
13691 labelL3:
13692 /* Computing 2nd power */
13693     d__1 = l2_1.x[0];
13694     l4_1.gf[0] = c__ * -4. * (l2_1.x[1] - d__1 * d__1) * l2_1.x[0] - (1. -
13695         l2_1.x[0]) * 2.;
13696 /* Computing 2nd power */
13697     d__1 = l2_1.x[0];
13698     l4_1.gf[1] = c__ * 2. * (l2_1.x[1] - d__1 * d__1);
13699 labelL4:
13700     return 0;
13701 } /* tp207_ */
13702 
13703 
tp208_(int * mode)13704 /* Subroutine */ int tp208_(int *mode)
13705 {
13706     /* Initialized data */
13707 
13708     static Real c__ = 100.;
13709 
13710     /* System generated locals */
13711     Real d__1, d__2, d__3;
13712 
13713     /* Local variables */
13714     static int i__;
13715 
13716     switch ((int)*mode) {
13717     case 1:  goto labelL1;
13718     case 2:  goto labelL2;
13719     case 3:  goto labelL3;
13720     case 4:  goto labelL4;
13721     case 5:  goto labelL4;
13722     }
13723 labelL1:
13724     l1_1.n = 2;
13725     l1_1.nili = 0;
13726     l1_1.ninl = 0;
13727     l1_1.neli = 0;
13728     l1_1.nenl = 0;
13729     l2_1.x[0] = -1.2;
13730     l2_1.x[1] = 1.;
13731     for (i__ = 1; i__ <= 2; ++i__) {
13732     l12_1.lxu[i__ - 1] = false;
13733 /* labelL6: */
13734     l11_1.lxl[i__ - 1] = false;
13735     }
13736     l20_1.lex = true;
13737     l20_1.nex = 1;
13738     l20_1.fex = 0.;
13739     l20_1.xex[0] = 1.;
13740     l20_1.xex[1] = 1.;
13741     return 0;
13742 labelL2:
13743 /* Computing 2nd power */
13744     d__2 = l2_1.x[0];
13745 /* Computing 2nd power */
13746     d__1 = l2_1.x[1] - d__2 * d__2;
13747 /* Computing 2nd power */
13748     d__3 = 1. - l2_1.x[0];
13749     l6_1.fx = c__ * (d__1 * d__1) + d__3 * d__3;
13750     return 0;
13751 labelL3:
13752 /* Computing 2nd power */
13753     d__1 = l2_1.x[0];
13754     l4_1.gf[0] = c__ * -4. * (l2_1.x[1] - d__1 * d__1) * l2_1.x[0] - (1. -
13755         l2_1.x[0]) * 2.;
13756 /* Computing 2nd power */
13757     d__1 = l2_1.x[0];
13758     l4_1.gf[1] = c__ * 2. * (l2_1.x[1] - d__1 * d__1);
13759 labelL4:
13760     return 0;
13761 } /* tp208_ */
13762 
tp209_(int * mode)13763 /* Subroutine */ int tp209_(int *mode)
13764 {
13765     /* Initialized data */
13766 
13767     static Real c__ = 1e4;
13768 
13769     /* System generated locals */
13770     Real d__1, d__2, d__3;
13771 
13772     /* Local variables */
13773     static int i__;
13774 
13775     switch ((int)*mode) {
13776     case 1:  goto labelL1;
13777     case 2:  goto labelL2;
13778     case 3:  goto labelL3;
13779     case 4:  goto labelL4;
13780     case 5:  goto labelL4;
13781     }
13782 labelL1:
13783     l1_1.n = 2;
13784     l1_1.nili = 0;
13785     l1_1.ninl = 0;
13786     l1_1.neli = 0;
13787     l1_1.nenl = 0;
13788     l2_1.x[0] = -1.2;
13789     l2_1.x[1] = 1.;
13790     for (i__ = 1; i__ <= 2; ++i__) {
13791     l12_1.lxu[i__ - 1] = false;
13792 /* labelL6: */
13793     l11_1.lxl[i__ - 1] = false;
13794     }
13795     l20_1.lex = true;
13796     l20_1.nex = 1;
13797     l20_1.fex = 0.;
13798     l20_1.xex[0] = 1.;
13799     l20_1.xex[1] = 1.;
13800     return 0;
13801 labelL2:
13802 /* Computing 2nd power */
13803     d__2 = l2_1.x[0];
13804 /* Computing 2nd power */
13805     d__1 = l2_1.x[1] - d__2 * d__2;
13806 /* Computing 2nd power */
13807     d__3 = 1. - l2_1.x[0];
13808     l6_1.fx = c__ * (d__1 * d__1) + d__3 * d__3;
13809     return 0;
13810 labelL3:
13811 /* Computing 2nd power */
13812     d__1 = l2_1.x[0];
13813     l4_1.gf[0] = c__ * -4. * (l2_1.x[1] - d__1 * d__1) * l2_1.x[0] - (1. -
13814         l2_1.x[0]) * 2.;
13815 /* Computing 2nd power */
13816     d__1 = l2_1.x[0];
13817     l4_1.gf[1] = c__ * 2. * (l2_1.x[1] - d__1 * d__1);
13818 labelL4:
13819     return 0;
13820 } /* tp209_ */
13821 
tp210_(int * mode)13822 /* Subroutine */ int tp210_(int *mode)
13823 {
13824     /* Initialized data */
13825 
13826     static Real c__ = 1e6;
13827 
13828     /* System generated locals */
13829     Real d__1, d__2, d__3;
13830 
13831     /* Local variables */
13832     static int i__;
13833 
13834     switch ((int)*mode) {
13835     case 1:  goto labelL1;
13836     case 2:  goto labelL2;
13837     case 3:  goto labelL3;
13838     case 4:  goto labelL4;
13839     case 5:  goto labelL4;
13840     }
13841 labelL1:
13842     l1_1.n = 2;
13843     l1_1.nili = 0;
13844     l1_1.ninl = 0;
13845     l1_1.neli = 0;
13846     l1_1.nenl = 0;
13847     l2_1.x[0] = -1.2;
13848     l2_1.x[1] = 1.;
13849     for (i__ = 1; i__ <= 2; ++i__) {
13850     l12_1.lxu[i__ - 1] = false;
13851 /* labelL6: */
13852     l11_1.lxl[i__ - 1] = false;
13853     }
13854     l20_1.lex = true;
13855     l20_1.nex = 1;
13856     l20_1.fex = 0.;
13857     l20_1.xex[0] = 1.;
13858     l20_1.xex[1] = 1.;
13859     return 0;
13860 labelL2:
13861 /* Computing 2nd power */
13862     d__2 = l2_1.x[0];
13863 /* Computing 2nd power */
13864     d__1 = l2_1.x[1] - d__2 * d__2;
13865 /* Computing 2nd power */
13866     d__3 = 1. - l2_1.x[0];
13867     l6_1.fx = (c__ * (d__1 * d__1) + d__3 * d__3) / c__;
13868     return 0;
13869 labelL3:
13870 /* Computing 2nd power */
13871     d__1 = l2_1.x[0];
13872     l4_1.gf[0] = (c__ * -4. * (l2_1.x[1] - d__1 * d__1) * l2_1.x[0] - (1. -
13873         l2_1.x[0]) * 2.) / c__;
13874 /* Computing 2nd power */
13875     d__1 = l2_1.x[0];
13876     l4_1.gf[1] = c__ * 2. * (l2_1.x[1] - d__1 * d__1) / c__;
13877 labelL4:
13878     return 0;
13879 } /* tp210_ */
13880 
tp211_(int * mode)13881 /* Subroutine */ int tp211_(int *mode)
13882 {
13883     /* System generated locals */
13884     Real d__1, d__2, d__3;
13885 
13886     /* Local variables */
13887     static int i__;
13888 
13889     switch ((int)*mode) {
13890     case 1:  goto labelL1;
13891     case 2:  goto labelL2;
13892     case 3:  goto labelL3;
13893     case 4:  goto labelL4;
13894     case 5:  goto labelL4;
13895     }
13896 labelL1:
13897     l1_1.n = 2;
13898     l1_1.nili = 0;
13899     l1_1.ninl = 0;
13900     l1_1.neli = 0;
13901     l1_1.nenl = 0;
13902     l2_1.x[0] = -1.2;
13903     l2_1.x[1] = 1.;
13904     for (i__ = 1; i__ <= 2; ++i__) {
13905     l12_1.lxu[i__ - 1] = false;
13906 /* labelL6: */
13907     l11_1.lxl[i__ - 1] = false;
13908     }
13909     l20_1.lex = true;
13910     l20_1.nex = 1;
13911     l20_1.fex = 0.;
13912     l20_1.xex[0] = 1.;
13913     l20_1.xex[1] = 1.;
13914     return 0;
13915 labelL2:
13916 /* Computing 3rd power */
13917     d__2 = l2_1.x[0];
13918 /* Computing 2nd power */
13919     d__1 = l2_1.x[1] - d__2 * (d__2 * d__2);
13920 /* Computing 2nd power */
13921     d__3 = 1. - l2_1.x[0];
13922     l6_1.fx = d__1 * d__1 * 100. + d__3 * d__3;
13923     return 0;
13924 labelL3:
13925 /* Computing 3rd power */
13926     d__1 = l2_1.x[0];
13927 /* Computing 2nd power */
13928     d__2 = l2_1.x[0];
13929     l4_1.gf[0] = (l2_1.x[1] - d__1 * (d__1 * d__1)) * -200. * 3. * (d__2 *
13930         d__2) - (1. - l2_1.x[0]) * 2.;
13931 /* Computing 3rd power */
13932     d__1 = l2_1.x[0];
13933     l4_1.gf[1] = (l2_1.x[1] - d__1 * (d__1 * d__1)) * 200.;
13934 labelL4:
13935     return 0;
13936 } /* tp211_ */
13937 
tp212_(int * mode)13938 /* Subroutine */ int tp212_(int *mode)
13939 {
13940     /* System generated locals */
13941     Real d__1, d__2, d__3, d__4;
13942 
13943     /* Local variables */
13944     static int i__;
13945 
13946     switch ((int)*mode) {
13947     case 1:  goto labelL1;
13948     case 2:  goto labelL2;
13949     case 3:  goto labelL3;
13950     case 4:  goto labelL4;
13951     case 5:  goto labelL4;
13952     }
13953 labelL1:
13954     l1_1.n = 2;
13955     l1_1.nili = 0;
13956     l1_1.ninl = 0;
13957     l1_1.neli = 0;
13958     l1_1.nenl = 0;
13959     l2_1.x[0] = 2.;
13960     l2_1.x[1] = 0.;
13961     for (i__ = 1; i__ <= 2; ++i__) {
13962     l12_1.lxu[i__ - 1] = false;
13963 /* labelL6: */
13964     l11_1.lxl[i__ - 1] = false;
13965     }
13966     l20_1.lex = true;
13967     l20_1.nex = 1;
13968     l20_1.fex = 0.;
13969     l20_1.xex[0] = 0.;
13970     l20_1.xex[1] = 0.;
13971     return 0;
13972 labelL2:
13973 /* Computing 2nd power */
13974     d__1 = (l2_1.x[0] + l2_1.x[1]) * 4.;
13975 /* Computing 2nd power */
13976     d__3 = l2_1.x[0] - 2.;
13977 /* Computing 2nd power */
13978     d__4 = l2_1.x[1];
13979 /* Computing 2nd power */
13980     d__2 = (l2_1.x[0] + l2_1.x[1]) * 4. + (l2_1.x[0] - l2_1.x[1]) * (d__3 *
13981         d__3 + d__4 * d__4 - 1.);
13982     l6_1.fx = d__1 * d__1 + d__2 * d__2;
13983     return 0;
13984 labelL3:
13985 /* Computing 2nd power */
13986     d__1 = l2_1.x[0] - 2.;
13987 /* Computing 2nd power */
13988     d__2 = l2_1.x[1];
13989 /* Computing 2nd power */
13990     d__3 = l2_1.x[0] - 2.;
13991 /* Computing 2nd power */
13992     d__4 = l2_1.x[1];
13993     l4_1.gf[0] = (l2_1.x[0] + l2_1.x[1]) * 32. + ((l2_1.x[0] + l2_1.x[1]) *
13994         4. + (l2_1.x[0] - l2_1.x[1]) * (d__1 * d__1 + d__2 * d__2 - 1.)) *
13995          2. * (d__3 * d__3 + d__4 * d__4 - 1. + 4. + (l2_1.x[0] - l2_1.x[
13996         1]) * 2. * (l2_1.x[0] - 2.));
13997 /* Computing 2nd power */
13998     d__1 = l2_1.x[0] - 2.;
13999 /* Computing 2nd power */
14000     d__2 = l2_1.x[1];
14001 /* Computing 2nd power */
14002     d__3 = l2_1.x[0] - 2.;
14003 /* Computing 2nd power */
14004     d__4 = l2_1.x[1];
14005     l4_1.gf[1] = (l2_1.x[0] + l2_1.x[1]) * 32. + ((l2_1.x[0] + l2_1.x[1]) *
14006         4. + (l2_1.x[0] - l2_1.x[1]) * (d__1 * d__1 + d__2 * d__2 - 1.)) *
14007          2. * (4. - d__3 * d__3 + d__4 * d__4 - 1. + (l2_1.x[0] - l2_1.x[
14008         1]) * 2. * l2_1.x[1]);
14009 labelL4:
14010     return 0;
14011 } /* tp212_ */
14012 
14013 
tp213_(int * mode)14014 /* Subroutine */ int tp213_(int *mode)
14015 {
14016     /* System generated locals */
14017     Real d__1, d__2, d__3;
14018 
14019     /* Local variables */
14020     static int i__;
14021 
14022     switch ((int)*mode) {
14023     case 1:  goto labelL1;
14024     case 2:  goto labelL2;
14025     case 3:  goto labelL3;
14026     case 4:  goto labelL4;
14027     case 5:  goto labelL4;
14028     }
14029 labelL1:
14030     l1_1.n = 2;
14031     l1_1.nili = 0;
14032     l1_1.ninl = 0;
14033     l1_1.neli = 0;
14034     l1_1.nenl = 0;
14035     l2_1.x[0] = 3.;
14036     l2_1.x[1] = 1.;
14037     for (i__ = 1; i__ <= 2; ++i__) {
14038     l12_1.lxu[i__ - 1] = false;
14039 /* labelL6: */
14040     l11_1.lxl[i__ - 1] = false;
14041     }
14042     l20_1.lex = true;
14043     l20_1.nex = 1;
14044     l20_1.fex = 0.;
14045     l20_1.xex[0] = 1.;
14046     l20_1.xex[1] = 1.;
14047     return 0;
14048 labelL2:
14049 /* Computing 2nd power */
14050     d__2 = l2_1.x[0] - l2_1.x[1];
14051 /* Computing 2nd power */
14052     d__3 = l2_1.x[0] - 1.;
14053 /* Computing 4th power */
14054     d__1 = d__2 * d__2 * 10. + d__3 * d__3, d__1 *= d__1;
14055     l6_1.fx = d__1 * d__1 * 1e-6;
14056     return 0;
14057 labelL3:
14058 /* Computing 2nd power */
14059     d__2 = l2_1.x[0] - l2_1.x[1];
14060 /* Computing 2nd power */
14061     d__3 = l2_1.x[0] - 1.;
14062 /* Computing 3rd power */
14063     d__1 = d__2 * d__2 * 10. + d__3 * d__3;
14064     l4_1.gf[0] = d__1 * (d__1 * d__1) * 4. * ((l2_1.x[0] - l2_1.x[1]) * 20. +
14065         (l2_1.x[0] - 1.) * 2.) * 1e-6;
14066 /* Computing 2nd power */
14067     d__2 = l2_1.x[0] - l2_1.x[1];
14068 /* Computing 2nd power */
14069     d__3 = l2_1.x[0] - 1.;
14070 /* Computing 3rd power */
14071     d__1 = d__2 * d__2 * 10. + d__3 * d__3;
14072     l4_1.gf[1] = d__1 * (d__1 * d__1) * 4. * 20. * (l2_1.x[1] - l2_1.x[0]) *
14073         1e-6;
14074 labelL4:
14075     return 0;
14076 } /* tp213_ */
14077 
14078 
tp214_(int * mode)14079 /* Subroutine */ int tp214_(int *mode)
14080 {
14081     /* System generated locals */
14082     Real d__1, d__2, d__3;
14083 
14084     /* Local variables */
14085     static int i__;
14086 
14087     switch ((int)*mode) {
14088     case 1:  goto labelL1;
14089     case 2:  goto labelL2;
14090     case 3:  goto labelL3;
14091     case 4:  goto labelL4;
14092     case 5:  goto labelL4;
14093     }
14094 labelL1:
14095     l1_1.n = 2;
14096     l1_1.nili = 0;
14097     l1_1.ninl = 0;
14098     l1_1.neli = 0;
14099     l1_1.nenl = 0;
14100     l2_1.x[0] = -1.2;
14101     l2_1.x[1] = 1.;
14102     for (i__ = 1; i__ <= 2; ++i__) {
14103     l12_1.lxu[i__ - 1] = false;
14104 /* labelL6: */
14105     l11_1.lxl[i__ - 1] = false;
14106     }
14107     l20_1.lex = true;
14108     l20_1.nex = 1;
14109     l20_1.fex = 0.;
14110     l20_1.xex[0] = 1.;
14111     l20_1.xex[1] = 1.;
14112     return 0;
14113 labelL2:
14114 /* Computing 2nd power */
14115     d__2 = l2_1.x[0] - l2_1.x[1];
14116 /* Computing 2nd power */
14117     d__3 = l2_1.x[0] - 1.;
14118     d__1 = d__2 * d__2 * 10. + d__3 * d__3;
14119     l6_1.fx = pow_dd(&d__1, &c_b934) * (float)100.;
14120     return 0;
14121 labelL3:
14122 /* Computing 2nd power */
14123     d__2 = l2_1.x[0] - l2_1.x[1];
14124 /* Computing 2nd power */
14125     d__3 = l2_1.x[0] - 1.;
14126     d__1 = d__2 * d__2 * 10. + d__3 * d__3;
14127     l4_1.gf[0] = .25 / pow_dd(&d__1, &c_b949) * (l2_1.x[0] * 22. - l2_1.x[1] *
14128          20. - 2.) * (float)100.;
14129 /* Computing 2nd power */
14130     d__2 = l2_1.x[0] - l2_1.x[1];
14131 /* Computing 2nd power */
14132     d__3 = l2_1.x[0] - 1.;
14133     d__1 = d__2 * d__2 * 10. + d__3 * d__3;
14134     l4_1.gf[1] = .25 / pow_dd(&d__1, &c_b949) * 20. * (l2_1.x[1] - l2_1.x[0])
14135         * (float)100.;
14136 labelL4:
14137     return 0;
14138 } /* tp214_ */
14139 
14140 
tp215_(int * mode)14141 /* Subroutine */ int tp215_(int *mode)
14142 {
14143     /* System generated locals */
14144     Real d__1;
14145 
14146     switch ((int)*mode) {
14147     case 1:  goto labelL1;
14148     case 2:  goto labelL2;
14149     case 3:  goto labelL3;
14150     case 4:  goto labelL4;
14151     case 5:  goto labelL5;
14152     }
14153 labelL1:
14154     l1_1.n = 2;
14155     l1_1.nili = 0;
14156     l1_1.ninl = 1;
14157     l1_1.neli = 0;
14158     l1_1.nenl = 0;
14159     l2_1.x[0] = 1.;
14160     l2_1.x[1] = 1.;
14161     l12_1.lxu[0] = false;
14162     l12_1.lxu[1] = false;
14163     l11_1.lxl[0] = true;
14164     l11_1.lxl[1] = false;
14165     l13_1.xl[0] = 0.;
14166     l5_1.gg[1] = 1.;
14167     l20_1.lex = true;
14168     l20_1.nex = 1;
14169     l20_1.fex = 0.;
14170     l20_1.xex[0] = 0.;
14171     l20_1.xex[1] = 0.;
14172     return 0;
14173 labelL2:
14174     l6_1.fx = l2_1.x[1];
14175     return 0;
14176 labelL3:
14177     l4_1.gf[0] = 0.;
14178     l4_1.gf[1] = 1.;
14179     return 0;
14180 labelL4:
14181     if (l9_2.index1[0]) {
14182 /* Computing 2nd power */
14183     d__1 = l2_1.x[0];
14184     l3_1.g[0] = l2_1.x[1] - d__1 * d__1;
14185     }
14186     return 0;
14187 labelL5:
14188     if (l10_2.index2[0]) {
14189     l5_1.gg[0] = l2_1.x[0] * -2.;
14190     }
14191     return 0;
14192 } /* tp215_ */
14193 
14194 
tp216_(int * mode)14195 /* Subroutine */ int tp216_(int *mode)
14196 {
14197     /* System generated locals */
14198     Real d__1, d__2, d__3;
14199 
14200     /* Local variables */
14201     static int i__;
14202 
14203     switch ((int)*mode) {
14204     case 1:  goto labelL1;
14205     case 2:  goto labelL2;
14206     case 3:  goto labelL3;
14207     case 4:  goto labelL4;
14208     case 5:  goto labelL5;
14209     }
14210 labelL1:
14211     l1_1.n = 2;
14212     l1_1.nili = 0;
14213     l1_1.ninl = 0;
14214     l1_1.neli = 0;
14215     l1_1.nenl = 1;
14216     l2_1.x[0] = -1.2;
14217     l2_1.x[1] = 1.;
14218     for (i__ = 1; i__ <= 2; ++i__) {
14219     l14_1.xu[i__ - 1] = (float)10.;
14220     l12_1.lxu[i__ - 1] = true;
14221     l13_1.xl[i__ - 1] = (float)-3.;
14222 /* labelL6: */
14223     l11_1.lxl[i__ - 1] = true;
14224     }
14225     l5_1.gg[1] = -2.;
14226     l20_1.lex = true;
14227     l20_1.nex = 1;
14228     l20_1.fex = 1.;
14229     l20_1.xex[0] = 2.;
14230     l20_1.xex[1] = 4.;
14231     return 0;
14232 labelL2:
14233 /* Computing 2nd power */
14234     d__2 = l2_1.x[0];
14235 /* Computing 2nd power */
14236     d__1 = d__2 * d__2 - l2_1.x[1];
14237 /* Computing 2nd power */
14238     d__3 = l2_1.x[0] - 1.;
14239     l6_1.fx = d__1 * d__1 * 100. + d__3 * d__3;
14240     return 0;
14241 labelL3:
14242 /* Computing 2nd power */
14243     d__1 = l2_1.x[0];
14244     l4_1.gf[0] = (d__1 * d__1 - l2_1.x[1]) * 400. * l2_1.x[0] + (l2_1.x[0] -
14245         1.) * 2.;
14246 /* Computing 2nd power */
14247     d__1 = l2_1.x[0];
14248     l4_1.gf[1] = (d__1 * d__1 - l2_1.x[1]) * -200.;
14249     return 0;
14250 labelL4:
14251     if (l9_2.index1[0]) {
14252     l3_1.g[0] = l2_1.x[0] * (l2_1.x[0] - 4.) - l2_1.x[1] * 2. + 12.;
14253     }
14254     return 0;
14255 labelL5:
14256     if (l10_2.index2[0]) {
14257     l5_1.gg[0] = l2_1.x[0] * 2. - 4.;
14258     }
14259     return 0;
14260 } /* tp216_ */
14261 
14262 
tp217_(int * mode)14263 /* Subroutine */ int tp217_(int *mode)
14264 {
14265     /* System generated locals */
14266     Real d__1, d__2;
14267 
14268     switch ((int)*mode) {
14269     case 1:  goto labelL1;
14270     case 2:  goto labelL2;
14271     case 3:  goto labelL3;
14272     case 4:  goto labelL4;
14273     case 5:  goto labelL5;
14274     }
14275 labelL1:
14276     l1_1.n = 2;
14277     l1_1.nili = 1;
14278     l1_1.ninl = 0;
14279     l1_1.neli = 0;
14280     l1_1.nenl = 1;
14281     l2_1.x[0] = 10.;
14282     l2_1.x[1] = 10.;
14283     l12_1.lxu[0] = false;
14284     l12_1.lxu[1] = false;
14285     l11_1.lxl[0] = true;
14286     l11_1.lxl[1] = false;
14287     l13_1.xl[0] = 0.;
14288     l5_2.gg[0] = 1.;
14289     l5_2.gg[2] = -2.;
14290     l20_1.lex = true;
14291     l20_1.nex = 1;
14292     l20_1.fex = -.8;
14293     l20_1.xex[0] = .6;
14294     l20_1.xex[1] = .8;
14295     return 0;
14296 labelL2:
14297     l6_1.fx = -l2_1.x[1];
14298     return 0;
14299 labelL3:
14300     l4_1.gf[0] = 0.;
14301     l4_1.gf[1] = -1.;
14302     return 0;
14303 labelL4:
14304     if (l9_3.index1[0]) {
14305     l3_2.g[0] = l2_1.x[0] + 1. - l2_1.x[1] * 2.;
14306     }
14307     if (l9_3.index1[1]) {
14308 /* Computing 2nd power */
14309     d__1 = l2_1.x[0];
14310 /* Computing 2nd power */
14311     d__2 = l2_1.x[1];
14312     l3_2.g[1] = d__1 * d__1 + d__2 * d__2 - 1.;
14313     }
14314     return 0;
14315 labelL5:
14316     if (! l10_3.index2[1]) {
14317     goto L8;
14318     }
14319     l5_2.gg[1] = l2_1.x[0] * 2.;
14320     l5_2.gg[3] = l2_1.x[1] * 2.;
14321 L8:
14322     return 0;
14323 } /* tp217_ */
14324 
14325 
tp218_(int * mode)14326 /* Subroutine */ int tp218_(int *mode)
14327 {
14328     /* System generated locals */
14329     Real d__1;
14330 
14331     switch ((int)*mode) {
14332     case 1:  goto labelL1;
14333     case 2:  goto labelL2;
14334     case 3:  goto labelL3;
14335     case 4:  goto labelL4;
14336     case 5:  goto labelL5;
14337     }
14338 labelL1:
14339     l1_1.n = 2;
14340     l1_1.nili = 0;
14341     l1_1.ninl = 1;
14342     l1_1.neli = 0;
14343     l1_1.nenl = 0;
14344     l2_1.x[0] = 9.;
14345     l2_1.x[1] = 100.;
14346     l12_1.lxu[0] = false;
14347     l12_1.lxu[1] = false;
14348     l11_1.lxl[0] = false;
14349     l11_1.lxl[1] = true;
14350     l13_1.xl[1] = 0.;
14351     l5_1.gg[1] = 1.;
14352     l20_1.lex = true;
14353     l20_1.nex = 1;
14354     l20_1.fex = 0.;
14355     l20_1.xex[0] = 0.;
14356     l20_1.xex[1] = 0.;
14357     return 0;
14358 labelL2:
14359     l6_1.fx = l2_1.x[1];
14360     return 0;
14361 labelL3:
14362     l4_1.gf[0] = 0.;
14363     l4_1.gf[1] = 1.;
14364     return 0;
14365 labelL4:
14366     if (l9_2.index1[0]) {
14367 /* Computing 2nd power */
14368     d__1 = l2_1.x[0];
14369     l3_1.g[0] = l2_1.x[1] - d__1 * d__1;
14370     }
14371     return 0;
14372 labelL5:
14373     if (l10_2.index2[0]) {
14374     l5_1.gg[0] = l2_1.x[0] * -2.;
14375     }
14376     return 0;
14377 } /* tp218_ */
14378 
14379 
tp219_(int * mode)14380 /* Subroutine */ int tp219_(int *mode)
14381 {
14382     /* System generated locals */
14383     Real d__1, d__2;
14384 
14385     /* Local variables */
14386     static int i__;
14387 
14388     switch ((int)*mode) {
14389     case 1:  goto labelL1;
14390     case 2:  goto labelL2;
14391     case 3:  goto labelL3;
14392     case 4:  goto labelL4;
14393     case 5:  goto labelL5;
14394     }
14395 labelL1:
14396     l1_1.n = 4;
14397     l1_1.nili = 0;
14398     l1_1.ninl = 0;
14399     l1_1.neli = 0;
14400     l1_1.nenl = 2;
14401     for (i__ = 1; i__ <= 4; ++i__) {
14402     l2_3.x[i__ - 1] = 10.;
14403     l12_3.lxu[i__ - 1] = false;
14404 /* L8: */
14405     l11_3.lxl[i__ - 1] = false;
14406     }
14407     l5_6.gg[2] = 1.;
14408     l5_6.gg[6] = 0.;
14409     l5_6.gg[3] = -1.;
14410     l5_6.gg[5] = 0.;
14411     l20_6.lex = true;
14412     l20_6.nex = 1;
14413     l20_6.fex = -1.;
14414     l20_6.xex[0] = 1.;
14415     l20_6.xex[1] = 1.;
14416     l20_6.xex[2] = 0.;
14417     l20_6.xex[3] = 0.;
14418     return 0;
14419 labelL2:
14420     l6_1.fx = -l2_3.x[0];
14421     return 0;
14422 labelL3:
14423     l4_3.gf[0] = -1.0;
14424     l4_3.gf[1] = 0.0;
14425     l4_3.gf[2] = 0.0;
14426     l4_3.gf[3] = 0.0;
14427     return 0;
14428 labelL4:
14429     if (l9_3.index1[0]) {
14430 /* Computing 3rd power */
14431     d__1 = l2_3.x[0];
14432 /* Computing 2nd power */
14433     d__2 = l2_3.x[2];
14434     l3_2.g[0] = l2_3.x[1] - d__1 * (d__1 * d__1) - d__2 * d__2;
14435     }
14436     if (l9_3.index1[1]) {
14437 /* Computing 2nd power */
14438     d__1 = l2_3.x[0];
14439 /* Computing 2nd power */
14440     d__2 = l2_3.x[3];
14441     l3_2.g[1] = d__1 * d__1 - l2_3.x[1] - d__2 * d__2;
14442     }
14443     return 0;
14444 labelL5:
14445     if (! l10_3.index2[0]) {
14446     goto labelL6;
14447     }
14448 /* Computing 2nd power */
14449     d__1 = l2_3.x[0];
14450     l5_6.gg[0] = d__1 * d__1 * -3.;
14451     l5_6.gg[4] = l2_3.x[2] * -2.;
14452 labelL6:
14453     if (! l10_3.index2[1]) {
14454     goto L7;
14455     }
14456     l5_6.gg[1] = l2_3.x[0] * 2.;
14457     l5_6.gg[7] = l2_3.x[3] * -2.;
14458 L7:
14459     return 0;
14460 } /* tp219_ */
14461 
14462 
tp220_(int * mode)14463 /* Subroutine */ int tp220_(int *mode)
14464 {
14465     /* System generated locals */
14466     Real d__1;
14467 
14468     /* Local variables */
14469     static int i__;
14470 
14471     switch ((int)*mode) {
14472     case 1:  goto labelL1;
14473     case 2:  goto labelL2;
14474     case 3:  goto labelL3;
14475     case 4:  goto labelL4;
14476     case 5:  goto labelL5;
14477     }
14478 labelL1:
14479     l1_1.n = 2;
14480     l1_1.nili = 0;
14481     l1_1.ninl = 1;
14482     l1_1.neli = 0;
14483     l1_1.nenl = 0;
14484     for (i__ = 1; i__ <= 2; ++i__) {
14485     l2_1.x[i__ - 1] = (float)2.5e4;
14486     l12_1.lxu[i__ - 1] = false;
14487 /* labelL6: */
14488     l11_1.lxl[i__ - 1] = true;
14489     }
14490     l13_1.xl[0] = (float)1.;
14491     l13_1.xl[1] = (float)0.;
14492     l20_1.lex = true;
14493     l20_1.nex = 1;
14494     l20_1.fex = 1.;
14495     l20_1.xex[0] = (float)1.;
14496     l20_1.xex[1] = (float)0.;
14497     return 0;
14498 labelL2:
14499     l6_1.fx = l2_1.x[0];
14500     return 0;
14501 labelL3:
14502     l4_1.gf[0] = (float)1.;
14503     l4_1.gf[1] = (float)0.;
14504     return 0;
14505 labelL4:
14506     if (l9_2.index1[0]) {
14507 /* Computing 3rd power */
14508     d__1 = l2_1.x[0] - (float)1.;
14509     l3_1.g[0] = d__1 * (d__1 * d__1) - l2_1.x[1];
14510     }
14511     return 0;
14512 labelL5:
14513     if (! l10_2.index2[0]) {
14514     goto L7;
14515     }
14516 /* Computing 2nd power */
14517     d__1 = l2_1.x[0] - (float)1.;
14518     l5_1.gg[0] = d__1 * d__1 * (float)3.;
14519     l5_1.gg[1] = (float)-1.;
14520 L7:
14521     return 0;
14522 } /* tp220_ */
14523 
14524 
tp221_(int * mode)14525 /* Subroutine */ int tp221_(int *mode)
14526 {
14527     /* System generated locals */
14528     Real d__1;
14529 
14530     /* Local variables */
14531     static int i__;
14532 
14533     switch ((int)*mode) {
14534     case 1:  goto labelL1;
14535     case 2:  goto labelL2;
14536     case 3:  goto labelL3;
14537     case 4:  goto labelL4;
14538     case 5:  goto labelL5;
14539     }
14540 labelL1:
14541     l1_1.n = 2;
14542     l1_1.nili = 0;
14543     l1_1.ninl = 1;
14544     l1_1.neli = 0;
14545     l1_1.nenl = 0;
14546     for (i__ = 1; i__ <= 2; ++i__) {
14547     l2_1.x[i__ - 1] = .25;
14548     l12_1.lxu[i__ - 1] = true;
14549     l14_1.xu[i__ - 1] = (float)1.;
14550     l11_1.lxl[i__ - 1] = true;
14551 /* labelL6: */
14552     l13_1.xl[i__ - 1] = (float)0.;
14553     }
14554     l5_1.gg[1] = (float)-1.;
14555     l20_1.lex = true;
14556     l20_1.nex = 1;
14557     l20_1.fex = -1.;
14558     l20_1.xex[0] = 1.;
14559     l20_1.xex[1] = 0.;
14560     return 0;
14561 labelL2:
14562     l6_1.fx = -l2_1.x[0];
14563     return 0;
14564 labelL3:
14565     l4_1.gf[0] = -1.;
14566     l4_1.gf[1] = 0.;
14567     return 0;
14568 labelL4:
14569     if (l9_2.index1[0]) {
14570 /* Computing 3rd power */
14571     d__1 = l2_1.x[0] - 1.;
14572     l3_1.g[0] = -(d__1 * (d__1 * d__1)) - l2_1.x[1];
14573     }
14574     return 0;
14575 labelL5:
14576     if (l10_2.index2[0]) {
14577 /* Computing 2nd power */
14578     d__1 = l2_1.x[0] - 1.;
14579     l5_1.gg[0] = d__1 * d__1 * -3.;
14580     }
14581     return 0;
14582 } /* tp221_ */
14583 
14584 
tp222_(int * mode)14585 /* Subroutine */ int tp222_(int *mode)
14586 {
14587     /* System generated locals */
14588     Real d__1;
14589 
14590     /* Local variables */
14591     static int i__;
14592 
14593     switch ((int)*mode) {
14594     case 1:  goto labelL1;
14595     case 2:  goto labelL2;
14596     case 3:  goto labelL3;
14597     case 4:  goto labelL4;
14598     case 5:  goto labelL5;
14599     }
14600 labelL1:
14601     l1_1.n = 2;
14602     l1_1.nili = 0;
14603     l1_1.ninl = 1;
14604     l1_1.neli = 0;
14605     l1_1.nenl = 0;
14606     l2_1.x[0] = 1.3;
14607     l2_1.x[1] = .2;
14608     for (i__ = 1; i__ <= 2; ++i__) {
14609     l12_1.lxu[i__ - 1] = false;
14610     l11_1.lxl[i__ - 1] = true;
14611 /* labelL6: */
14612     l13_1.xl[i__ - 1] = 0.;
14613     }
14614     l5_1.gg[1] = -1.;
14615     l20_1.lex = true;
14616     l20_1.nex = 1;
14617     l20_1.fex = -1.5;
14618     l20_1.xex[0] = 1.5;
14619     l20_1.xex[1] = 0.;
14620     return 0;
14621 labelL2:
14622     l6_1.fx = -l2_1.x[0];
14623     return 0;
14624 labelL3:
14625     l4_1.gf[0] = -1.;
14626     l4_1.gf[1] = 0.;
14627     return 0;
14628 labelL4:
14629     if (l9_2.index1[0]) {
14630 /* Computing 3rd power */
14631     d__1 = l2_1.x[0] - 1.;
14632     l3_1.g[0] = .125 - d__1 * (d__1 * d__1) - l2_1.x[1];
14633     }
14634     return 0;
14635 labelL5:
14636     if (l10_2.index2[0]) {
14637 /* Computing 2nd power */
14638     d__1 = l2_1.x[0] - 1.;
14639     l5_1.gg[0] = d__1 * d__1 * -3.;
14640     }
14641     return 0;
14642 } /* tp222_ */
14643 
tp223_(int * mode)14644 /* Subroutine */ int tp223_(int *mode)
14645 {
14646     /* Local variables */
14647     static int i__;
14648 
14649     switch ((int)*mode) {
14650     case 1:  goto labelL1;
14651     case 2:  goto labelL2;
14652     case 3:  goto labelL3;
14653     case 4:  goto labelL4;
14654     case 5:  goto labelL5;
14655     }
14656 labelL1:
14657     l1_1.n = 2;
14658     l1_1.nili = 0;
14659     l1_1.ninl = 2;
14660     l1_1.neli = 0;
14661     l1_1.nenl = 0;
14662     l2_1.x[0] = .1;
14663     l2_1.x[1] = 3.3;
14664     for (i__ = 1; i__ <= 2; ++i__) {
14665     l12_1.lxu[i__ - 1] = true;
14666     l11_1.lxl[i__ - 1] = true;
14667     l14_1.xu[i__ - 1] = 10.;
14668 /* labelL6: */
14669     l13_1.xl[i__ - 1] = 0.;
14670     }
14671     l14_1.xu[0] = (float)1.;
14672     l5_2.gg[2] = 0.;
14673     l5_2.gg[3] = 1.;
14674     l20_1.lex = true;
14675     l20_1.nex = 1;
14676     l20_1.fex = -std::log(std::log(10.));
14677     l20_1.xex[0] = std::log(std::log(10.));
14678     l20_1.xex[1] = 10.;
14679     return 0;
14680 labelL2:
14681     l6_1.fx = -l2_1.x[0];
14682     return 0;
14683 labelL3:
14684     l4_1.gf[0] = -1.;
14685     l4_1.gf[1] = 0.;
14686     return 0;
14687 labelL4:
14688     if (l9_3.index1[0]) {
14689     l3_2.g[0] = std::exp(std::exp(l2_1.x[0]));
14690     }
14691     if (l9_3.index1[1]) {
14692     l3_2.g[1] = l2_1.x[1] - std::exp(std::exp(l2_1.x[0]));
14693     }
14694     return 0;
14695 labelL5:
14696     if (l10_3.index2[0]) {
14697     l5_2.gg[0] = std::exp(l2_1.x[0]) * std::exp(std::exp(l2_1.x[0]));
14698     }
14699     if (l10_3.index2[1]) {
14700     l5_2.gg[1] = -std::exp(l2_1.x[0]) * std::exp(std::exp(l2_1.x[0]));
14701     }
14702     return 0;
14703 } /* tp223_ */
14704 
tp224_(int * mode)14705 /* Subroutine */ int tp224_(int *mode)
14706 {
14707     /* System generated locals */
14708     Real d__1, d__2;
14709 
14710     /* Local variables */
14711     static int i__;
14712 
14713     switch ((int)*mode) {
14714     case 1:  goto labelL1;
14715     case 2:  goto labelL2;
14716     case 3:  goto labelL3;
14717     case 4:  goto labelL4;
14718     case 5:  goto labelL5;
14719     }
14720 labelL1:
14721     l1_1.n = 2;
14722     l1_1.nili = 4;
14723     l1_1.ninl = 0;
14724     l1_1.neli = 0;
14725     l1_1.nenl = 0;
14726     for (i__ = 1; i__ <= 2; ++i__) {
14727     l2_1.x[i__ - 1] = .1;
14728     l12_1.lxu[i__ - 1] = true;
14729     l11_1.lxl[i__ - 1] = true;
14730     l14_1.xu[i__ - 1] = 6.;
14731 /* labelL6: */
14732     l13_1.xl[i__ - 1] = 0.;
14733     }
14734     l5_6.gg[0] = 1.;
14735     l5_6.gg[4] = 3.;
14736     l5_6.gg[1] = -1.;
14737     l5_6.gg[5] = -3.;
14738     l5_6.gg[2] = 1.;
14739     l5_6.gg[6] = 1.;
14740     l5_6.gg[3] = -1.;
14741     l5_6.gg[7] = -1.;
14742     l20_1.lex = true;
14743     l20_1.nex = 1;
14744     l20_1.fex = -304.;
14745     l20_1.xex[0] = 4.;
14746     l20_1.xex[1] = 4.;
14747     return 0;
14748 labelL2:
14749 /* Computing 2nd power */
14750     d__1 = l2_1.x[0];
14751 /* Computing 2nd power */
14752     d__2 = l2_1.x[1];
14753     l6_1.fx = d__1 * d__1 * 2. + d__2 * d__2 - l2_1.x[0] * 48. - l2_1.x[1] *
14754         40.;
14755     return 0;
14756 labelL3:
14757     l4_1.gf[0] = l2_1.x[0] * 4. - 48.;
14758     l4_1.gf[1] = l2_1.x[1] * 2. - 40.;
14759     return 0;
14760 labelL4:
14761     if (l9_7.index1[0]) {
14762     l3_6.g[0] = l2_1.x[0] + l2_1.x[1] * 3.;
14763     }
14764     if (l9_7.index1[1]) {
14765     l3_6.g[1] = 18. - l2_1.x[0] - l2_1.x[1] * 3.;
14766     }
14767     if (l9_7.index1[2]) {
14768     l3_6.g[2] = l2_1.x[0] + l2_1.x[1];
14769     }
14770     if (l9_7.index1[3]) {
14771     l3_6.g[3] = 8. - l2_1.x[0] - l2_1.x[1];
14772     }
14773 labelL5:
14774     return 0;
14775 } /* tp224_ */
14776 
tp225_(int * mode)14777 /* Subroutine */ int tp225_(int *mode)
14778 {
14779     /* System generated locals */
14780     Real d__1, d__2;
14781 
14782     /* Local variables */
14783     static int i__;
14784 
14785     switch ((int)*mode) {
14786     case 1:  goto labelL1;
14787     case 2:  goto labelL2;
14788     case 3:  goto labelL3;
14789     case 4:  goto labelL4;
14790     case 5:  goto labelL5;
14791     }
14792 labelL1:
14793     l1_1.n = 2;
14794     l1_1.nili = 0;
14795     l1_1.ninl = 5;
14796     l1_1.neli = 0;
14797     l1_1.nenl = 0;
14798     l2_1.x[0] = 3.;
14799     l2_1.x[1] = 1.;
14800     for (i__ = 1; i__ <= 2; ++i__) {
14801     l12_1.lxu[i__ - 1] = false;
14802 /* labelL6: */
14803     l11_1.lxl[i__ - 1] = false;
14804     }
14805     l5_4.gg[0] = 1.;
14806     l5_4.gg[5] = 1.;
14807     l5_4.gg[8] = -1.;
14808     l5_4.gg[4] = -1.;
14809     l20_1.lex = true;
14810     l20_1.nex = 1;
14811     l20_1.fex = 2.;
14812     l20_1.xex[0] = 1.;
14813     l20_1.xex[1] = 1.;
14814     return 0;
14815 labelL2:
14816 /* Computing 2nd power */
14817     d__1 = l2_1.x[0];
14818 /* Computing 2nd power */
14819     d__2 = l2_1.x[1];
14820     l6_1.fx = d__1 * d__1 + d__2 * d__2;
14821     return 0;
14822 labelL3:
14823     l4_1.gf[0] = l2_1.x[0] * 2.;
14824     l4_1.gf[1] = l2_1.x[1] * 2.;
14825     return 0;
14826 labelL4:
14827     if (l9_5.index1[0]) {
14828     l3_4.g[0] = l2_1.x[0] + l2_1.x[1] - 1.;
14829     }
14830     if (l9_5.index1[1]) {
14831 /* Computing 2nd power */
14832     d__1 = l2_1.x[0];
14833 /* Computing 2nd power */
14834     d__2 = l2_1.x[1];
14835     l3_4.g[1] = d__1 * d__1 + d__2 * d__2 - 1.;
14836     }
14837     if (l9_5.index1[2]) {
14838 /* Computing 2nd power */
14839     d__1 = l2_1.x[0];
14840 /* Computing 2nd power */
14841     d__2 = l2_1.x[1];
14842     l3_4.g[2] = d__1 * d__1 * 9. + d__2 * d__2 - 9.;
14843     }
14844     if (l9_5.index1[3]) {
14845     l3_4.g[3] = pow_dd(l2_1.x, &c_b305) - l2_1.x[1];
14846     }
14847     if (l9_5.index1[4]) {
14848     l3_4.g[4] = pow_dd(&l2_1.x[1], &c_b305) - l2_1.x[0];
14849     }
14850     return 0;
14851 labelL5:
14852     if (! l10_5.index2[1]) {
14853     goto L7;
14854     }
14855     l5_4.gg[1] = l2_1.x[0] * 2.;
14856     l5_4.gg[6] = l2_1.x[1] * 2.;
14857 L7:
14858     if (! l10_5.index2[2]) {
14859     goto L8;
14860     }
14861     l5_4.gg[2] = l2_1.x[0] * 18.;
14862     l5_4.gg[7] = l2_1.x[1] * 2.;
14863 L8:
14864     if (l10_5.index2[3]) {
14865     l5_4.gg[3] = l2_1.x[0] * 2.;
14866     }
14867     if (l10_5.index2[4]) {
14868     l5_4.gg[9] = l2_1.x[1] * 2.;
14869     }
14870     return 0;
14871 } /* tp225_ */
14872 
tp226_(int * mode)14873 /* Subroutine */ int tp226_(int *mode)
14874 {
14875     /* System generated locals */
14876     Real d__1, d__2;
14877 
14878     /* Local variables */
14879     static int i__;
14880 
14881     switch ((int)*mode) {
14882     case 1:  goto labelL1;
14883     case 2:  goto labelL2;
14884     case 3:  goto labelL3;
14885     case 4:  goto labelL4;
14886     case 5:  goto labelL5;
14887     }
14888 labelL1:
14889     l1_1.n = 2;
14890     l1_1.nili = 0;
14891     l1_1.ninl = 2;
14892     l1_1.neli = 0;
14893     l1_1.nenl = 0;
14894     l2_1.x[0] = .8;
14895     l2_1.x[1] = .05;
14896     for (i__ = 1; i__ <= 2; ++i__) {
14897     l12_1.lxu[i__ - 1] = false;
14898     l11_1.lxl[i__ - 1] = true;
14899     l13_1.xl[i__ - 1] = 0.;
14900 /* labelL6: */
14901     l20_1.xex[i__ - 1] = 1. / std::sqrt(2.);
14902     }
14903     l20_1.lex = true;
14904     l20_1.fex = -.5;
14905     return 0;
14906 labelL2:
14907     l6_1.fx = -l2_1.x[0] * l2_1.x[1];
14908     return 0;
14909 labelL3:
14910     l4_1.gf[0] = -l2_1.x[1];
14911     l4_1.gf[1] = -l2_1.x[0];
14912     return 0;
14913 labelL4:
14914     if (l9_3.index1[0]) {
14915 /* Computing 2nd power */
14916     d__1 = l2_1.x[0];
14917 /* Computing 2nd power */
14918     d__2 = l2_1.x[1];
14919     l3_2.g[0] = d__1 * d__1 + d__2 * d__2;
14920     }
14921     if (l9_3.index1[1]) {
14922 /* Computing 2nd power */
14923     d__1 = l2_1.x[0];
14924 /* Computing 2nd power */
14925     d__2 = l2_1.x[1];
14926     l3_2.g[1] = 1. - d__1 * d__1 - d__2 * d__2;
14927     }
14928     return 0;
14929 labelL5:
14930     if (! l10_3.index2[0]) {
14931     goto L7;
14932     }
14933     l5_2.gg[0] = l2_1.x[0] * 2.;
14934     l5_2.gg[2] = l2_1.x[1] * 2.;
14935 L7:
14936     if (! l10_3.index2[1]) {
14937     goto L8;
14938     }
14939     l5_2.gg[1] = l2_1.x[0] * -2.;
14940     l5_2.gg[3] = l2_1.x[1] * -2.;
14941 L8:
14942     return 0;
14943 } /* tp226_ */
14944 
tp227_(int * mode)14945 /* Subroutine */ int tp227_(int *mode)
14946 {
14947     /* System generated locals */
14948     Real d__1, d__2;
14949 
14950     /* Local variables */
14951     static int i__;
14952 
14953     switch ((int)*mode) {
14954     case 1:  goto labelL1;
14955     case 2:  goto labelL2;
14956     case 3:  goto labelL3;
14957     case 4:  goto labelL4;
14958     case 5:  goto labelL5;
14959     }
14960 labelL1:
14961     l1_1.n = 2;
14962     l1_1.nili = 0;
14963     l1_1.ninl = 2;
14964     l1_1.neli = 0;
14965     l1_1.nenl = 0;
14966     for (i__ = 1; i__ <= 2; ++i__) {
14967     l2_1.x[i__ - 1] = .5;
14968     l12_1.lxu[i__ - 1] = false;
14969     l11_1.lxl[i__ - 1] = false;
14970 /* labelL6: */
14971     l20_1.xex[i__ - 1] = 1.;
14972     }
14973     l5_2.gg[2] = 1.;
14974     l5_2.gg[1] = 1.;
14975     l20_1.lex = true;
14976     l20_1.nex = 1;
14977     l20_1.fex = 1.;
14978     return 0;
14979 labelL2:
14980 /* Computing 2nd power */
14981     d__1 = l2_1.x[0] - 2.;
14982 /* Computing 2nd power */
14983     d__2 = l2_1.x[1] - 1.;
14984     l6_1.fx = d__1 * d__1 + d__2 * d__2;
14985     return 0;
14986 labelL3:
14987     l4_1.gf[0] = (l2_1.x[0] - 2.) * 2.;
14988     l4_1.gf[1] = (l2_1.x[1] - 1.) * 2.;
14989     return 0;
14990 labelL4:
14991     if (l9_3.index1[0]) {
14992 /* Computing 2nd power */
14993     d__1 = l2_1.x[0];
14994     l3_2.g[0] = -(d__1 * d__1) + l2_1.x[1];
14995     }
14996     if (l9_3.index1[1]) {
14997 /* Computing 2nd power */
14998     d__1 = l2_1.x[1];
14999     l3_2.g[1] = l2_1.x[0] - d__1 * d__1;
15000     }
15001     return 0;
15002 labelL5:
15003     if (l10_3.index2[0]) {
15004     l5_2.gg[0] = l2_1.x[0] * -2.;
15005     }
15006     if (l10_3.index2[1]) {
15007     l5_2.gg[3] = l2_1.x[1] * -2.;
15008     }
15009     return 0;
15010 } /* tp227_ */
15011 
tp228_(int * mode)15012 /* Subroutine */ int tp228_(int *mode)
15013 {
15014     /* System generated locals */
15015     Real d__1, d__2;
15016 
15017     /* Local variables */
15018     static int i__;
15019 
15020     switch ((int)*mode) {
15021     case 1:  goto labelL1;
15022     case 2:  goto labelL2;
15023     case 3:  goto labelL3;
15024     case 4:  goto labelL4;
15025     case 5:  goto labelL5;
15026     }
15027 labelL1:
15028     l1_1.n = 2;
15029     l1_1.nili = 1;
15030     l1_1.ninl = 1;
15031     l1_1.neli = 0;
15032     l1_1.nenl = 0;
15033     for (i__ = 1; i__ <= 2; ++i__) {
15034     l2_1.x[i__ - 1] = 0.;
15035     l12_1.lxu[i__ - 1] = false;
15036 /* labelL6: */
15037     l11_1.lxl[i__ - 1] = false;
15038     }
15039     l20_1.xex[0] = 0.;
15040     l20_1.xex[1] = -3.;
15041     l5_2.gg[0] = -1.;
15042     l5_2.gg[2] = -1.;
15043     l20_1.lex = true;
15044     l20_1.nex = 1;
15045     l20_1.fex = -3.;
15046     return 0;
15047 labelL2:
15048 /* Computing 2nd power */
15049     d__1 = l2_1.x[0];
15050     l6_1.fx = d__1 * d__1 + l2_1.x[1];
15051     return 0;
15052 labelL3:
15053     l4_1.gf[0] = l2_1.x[0] * 2.;
15054     l4_1.gf[1] = 1.;
15055     return 0;
15056 labelL4:
15057     if (l9_3.index1[0]) {
15058     l3_2.g[0] = -l2_1.x[0] - l2_1.x[1] + 1.;
15059     }
15060     if (l9_3.index1[1]) {
15061 /* Computing 2nd power */
15062     d__1 = l2_1.x[0];
15063 /* Computing 2nd power */
15064     d__2 = l2_1.x[1];
15065     l3_2.g[1] = -(d__1 * d__1 + d__2 * d__2) + 9.;
15066     }
15067     return 0;
15068 labelL5:
15069     if (! l10_3.index2[1]) {
15070     goto L7;
15071     }
15072     l5_2.gg[1] = l2_1.x[0] * -2.;
15073     l5_2.gg[3] = l2_1.x[1] * -2.;
15074 L7:
15075     return 0;
15076 } /* tp228_ */
15077 
tp229_(int * mode)15078 /* Subroutine */ int tp229_(int *mode)
15079 {
15080     /* System generated locals */
15081     Real d__1, d__2, d__3;
15082 
15083     /* Local variables */
15084     static int i__;
15085 
15086     switch ((int)*mode) {
15087     case 1:  goto labelL1;
15088     case 2:  goto labelL2;
15089     case 3:  goto labelL3;
15090     case 4:  goto labelL4;
15091     case 5:  goto labelL4;
15092     }
15093 labelL1:
15094     l1_1.n = 2;
15095     l1_1.nili = 0;
15096     l1_1.ninl = 0;
15097     l1_1.neli = 0;
15098     l1_1.nenl = 0;
15099     l2_1.x[0] = -1.2;
15100     l2_1.x[1] = 1.;
15101     for (i__ = 1; i__ <= 2; ++i__) {
15102     l12_1.lxu[i__ - 1] = true;
15103     l11_1.lxl[i__ - 1] = true;
15104     l14_1.xu[i__ - 1] = 2.;
15105     l13_1.xl[i__ - 1] = -2.;
15106 /* labelL6: */
15107     l20_1.xex[i__ - 1] = 1.;
15108     }
15109     l20_1.lex = true;
15110     l20_1.nex = 1;
15111     l20_1.fex = 0.;
15112     return 0;
15113 labelL2:
15114 /* Computing 2nd power */
15115     d__2 = l2_1.x[0];
15116 /* Computing 2nd power */
15117     d__1 = l2_1.x[1] - d__2 * d__2;
15118 /* Computing 2nd power */
15119     d__3 = 1. - l2_1.x[0];
15120     l6_1.fx = d__1 * d__1 * 100. + d__3 * d__3;
15121     return 0;
15122 labelL3:
15123 /* Computing 2nd power */
15124     d__1 = l2_1.x[0];
15125     l4_1.gf[0] = l2_1.x[0] * -400. * (l2_1.x[1] - d__1 * d__1) - (1. - l2_1.x[
15126         0]) * 2.;
15127 /* Computing 2nd power */
15128     d__1 = l2_1.x[0];
15129     l4_1.gf[1] = (l2_1.x[1] - d__1 * d__1) * 200.;
15130 labelL4:
15131     return 0;
15132 } /* tp229_ */
15133 
tp230_(int * mode)15134 /* Subroutine */ int tp230_(int *mode)
15135 {
15136     /* System generated locals */
15137     Real d__1, d__2;
15138 
15139     /* Local variables */
15140     static int i__;
15141 
15142     switch ((int)*mode) {
15143     case 1:  goto labelL1;
15144     case 2:  goto labelL2;
15145     case 3:  goto labelL3;
15146     case 4:  goto labelL4;
15147     case 5:  goto labelL5;
15148     }
15149 labelL1:
15150     l1_1.n = 2;
15151     l1_1.nili = 0;
15152     l1_1.ninl = 2;
15153     l1_1.neli = 0;
15154     l1_1.nenl = 0;
15155     for (i__ = 1; i__ <= 2; ++i__) {
15156     l2_1.x[i__ - 1] = 0.;
15157     l12_1.lxu[i__ - 1] = false;
15158 /* labelL6: */
15159     l11_1.lxl[i__ - 1] = false;
15160     }
15161     l20_1.xex[0] = .5;
15162     l20_1.xex[1] = .375;
15163     l5_2.gg[2] = 1.;
15164     l5_2.gg[3] = 1.;
15165     l20_1.lex = true;
15166     l20_1.nex = 1;
15167     l20_1.fex = .375;
15168     return 0;
15169 labelL2:
15170     l6_1.fx = l2_1.x[1];
15171     return 0;
15172 labelL3:
15173     l4_1.gf[0] = 0.;
15174     l4_1.gf[1] = 1.;
15175     return 0;
15176 labelL4:
15177     if (l9_3.index1[0]) {
15178 /* Computing 2nd power */
15179     d__1 = l2_1.x[0];
15180 /* Computing 3rd power */
15181     d__2 = l2_1.x[0];
15182     l3_2.g[0] = d__1 * d__1 * -2. + d__2 * (d__2 * d__2) + l2_1.x[1];
15183     }
15184     if (l9_3.index1[1]) {
15185 /* Computing 2nd power */
15186     d__1 = 1. - l2_1.x[0];
15187 /* Computing 3rd power */
15188     d__2 = 1. - l2_1.x[0];
15189     l3_2.g[1] = d__1 * d__1 * -2. + d__2 * (d__2 * d__2) + l2_1.x[1];
15190     }
15191     return 0;
15192 labelL5:
15193     if (l10_3.index2[0]) {
15194 /* Computing 2nd power */
15195     d__1 = l2_1.x[0];
15196     l5_2.gg[0] = l2_1.x[0] * -4. + d__1 * d__1 * 3.;
15197     }
15198     if (l10_3.index2[1]) {
15199 /* Computing 2nd power */
15200     d__1 = 1. - l2_1.x[0];
15201     l5_2.gg[1] = (1. - l2_1.x[0]) * 4. - d__1 * d__1 * 3.;
15202     }
15203     return 0;
15204 } /* tp230_ */
15205 
tp231_(int * mode)15206 /* Subroutine */ int tp231_(int *mode)
15207 {
15208     /* System generated locals */
15209     Real d__1, d__2, d__3;
15210 
15211     /* Local variables */
15212     static int i__;
15213 
15214     switch ((int)*mode) {
15215     case 1:  goto labelL1;
15216     case 2:  goto labelL2;
15217     case 3:  goto labelL3;
15218     case 4:  goto labelL4;
15219     case 5:  goto labelL5;
15220     }
15221 labelL1:
15222     l1_1.n = 2;
15223     l1_1.nili = 2;
15224     l1_1.ninl = 0;
15225     l1_1.neli = 0;
15226     l1_1.nenl = 0;
15227     l2_1.x[0] = -1.2;
15228     l2_1.x[1] = 1.;
15229     for (i__ = 1; i__ <= 2; ++i__) {
15230     l20_1.xex[i__ - 1] = 1.;
15231     l12_1.lxu[i__ - 1] = false;
15232 /* labelL6: */
15233     l11_1.lxl[i__ - 1] = false;
15234     }
15235     l5_2.gg[0] = .33333333333333331;
15236     l5_2.gg[2] = 1.;
15237     l5_2.gg[1] = -.33333333333333331;
15238     l5_2.gg[3] = 1.;
15239     l20_1.lex = true;
15240     l20_1.nex = 1;
15241     l20_1.fex = 0.;
15242     return 0;
15243 labelL2:
15244 /* Computing 2nd power */
15245     d__2 = l2_1.x[0];
15246 /* Computing 2nd power */
15247     d__1 = l2_1.x[1] - d__2 * d__2;
15248 /* Computing 2nd power */
15249     d__3 = 1. - l2_1.x[0];
15250     l6_1.fx = d__1 * d__1 * 100. + d__3 * d__3;
15251     return 0;
15252 labelL3:
15253 /* Computing 2nd power */
15254     d__1 = l2_1.x[0];
15255     l4_1.gf[0] = l2_1.x[0] * -400. * (l2_1.x[1] - d__1 * d__1) - (1. - l2_1.x[
15256         0]) * 2.;
15257 /* Computing 2nd power */
15258     d__1 = l2_1.x[0];
15259     l4_1.gf[1] = (l2_1.x[1] - d__1 * d__1) * 200.;
15260     return 0;
15261 labelL4:
15262     if (l9_3.index1[0]) {
15263     l3_2.g[0] = l2_1.x[0] / 3. + l2_1.x[1] + .1;
15264     }
15265     if (l9_3.index1[1]) {
15266     l3_2.g[1] = -l2_1.x[0] / 3. + l2_1.x[1] + .1;
15267     }
15268 labelL5:
15269     return 0;
15270 } /* tp231_ */
15271 
tp232_(int * mode)15272 /* Subroutine */ int tp232_(int *mode)
15273 {
15274     /* System generated locals */
15275     Real d__1, d__2;
15276 
15277     /* Local variables */
15278     static int i__;
15279     static Real hv;
15280 
15281     hv = std::sqrt(3.);
15282     switch ((int)*mode) {
15283     case 1:  goto labelL1;
15284     case 2:  goto labelL2;
15285     case 3:  goto labelL3;
15286     case 4:  goto labelL4;
15287     case 5:  goto labelL5;
15288     }
15289 labelL1:
15290     l1_1.n = 2;
15291     l1_1.nili = 3;
15292     l1_1.ninl = 0;
15293     l1_1.neli = 0;
15294     l1_1.nenl = 0;
15295     l2_1.x[0] = 2.;
15296     l2_1.x[1] = .5;
15297     for (i__ = 1; i__ <= 2; ++i__) {
15298     l12_1.lxu[i__ - 1] = false;
15299     l11_1.lxl[i__ - 1] = true;
15300 /* labelL6: */
15301     l13_1.xl[i__ - 1] = 0.;
15302     }
15303     l5_3.gg[0] = 1 / hv;
15304     l5_3.gg[3] = -1.;
15305     l5_3.gg[1] = 1.;
15306     l5_3.gg[4] = hv;
15307     l5_3.gg[2] = -1.;
15308     l5_3.gg[5] = -hv;
15309     l20_1.lex = true;
15310     l20_1.nex = 1;
15311     l20_1.fex = (float)-1.;
15312     l20_1.xex[0] = 3.;
15313     l20_1.xex[1] = hv;
15314 labelL2:
15315 /* Computing 2nd power */
15316     d__1 = l2_1.x[0] - 3.;
15317 /* Computing 3rd power */
15318     d__2 = l2_1.x[1];
15319     l6_1.fx = -(9. - d__1 * d__1) * (d__2 * (d__2 * d__2)) / (hv * 27.);
15320     return 0;
15321 labelL3:
15322     l4_1.gf[0] = (l2_1.x[0] - 3.) * 2. * pow_dd(&l2_1.x[1], &c_b1523) / (hv *
15323         27.);
15324 /* Computing 2nd power */
15325     d__1 = l2_1.x[0] - 3.;
15326 /* Computing 2nd power */
15327     d__2 = l2_1.x[1];
15328     l4_1.gf[1] = -(9. - d__1 * d__1) * (d__2 * d__2) / (hv * 9.);
15329     return 0;
15330 labelL4:
15331     if (l9_4.index1[0]) {
15332     l3_3.g[0] = l2_1.x[0] / hv - l2_1.x[1];
15333     }
15334     if (l9_4.index1[1]) {
15335     l3_3.g[1] = l2_1.x[0] + hv * l2_1.x[1];
15336     }
15337     if (l9_4.index1[2]) {
15338     l3_3.g[2] = 6. - l2_1.x[0] - hv * l2_1.x[1];
15339     }
15340 labelL5:
15341     return 0;
15342 } /* tp232_ */
15343 
tp233_(int * mode)15344 /* Subroutine */ int tp233_(int *mode)
15345 {
15346     /* System generated locals */
15347     Real d__1, d__2, d__3;
15348 
15349     /* Local variables */
15350     static int i__;
15351 
15352     switch ((int)*mode) {
15353     case 1:  goto labelL1;
15354     case 2:  goto labelL2;
15355     case 3:  goto labelL3;
15356     case 4:  goto labelL4;
15357     case 5:  goto labelL5;
15358     }
15359 labelL1:
15360     l1_1.n = 2;
15361     l1_1.nili = 0;
15362     l1_1.ninl = 1;
15363     l1_1.neli = 0;
15364     l1_1.nenl = 0;
15365     l2_1.x[0] = 1.2;
15366     l2_1.x[1] = 1.;
15367     for (i__ = 1; i__ <= 2; ++i__) {
15368     l12_1.lxu[i__ - 1] = false;
15369     l11_1.lxl[i__ - 1] = false;
15370 /* labelL6: */
15371     l20_1.xex[i__ - 1] = 1.;
15372     }
15373     l20_1.lex = true;
15374     l20_1.nex = 1;
15375     l20_1.fex = 0.;
15376     return 0;
15377 labelL2:
15378 /* Computing 2nd power */
15379     d__2 = l2_1.x[0];
15380 /* Computing 2nd power */
15381     d__1 = l2_1.x[1] - d__2 * d__2;
15382 /* Computing 2nd power */
15383     d__3 = 1. - l2_1.x[0];
15384     l6_1.fx = d__1 * d__1 * 100. + d__3 * d__3;
15385     return 0;
15386 labelL3:
15387 /* Computing 2nd power */
15388     d__1 = l2_1.x[0];
15389     l4_1.gf[0] = l2_1.x[0] * -400. * (l2_1.x[1] - d__1 * d__1) - (1. - l2_1.x[
15390         0]) * 2.;
15391 /* Computing 2nd power */
15392     d__1 = l2_1.x[0];
15393     l4_1.gf[1] = (l2_1.x[1] - d__1 * d__1) * 200.;
15394     return 0;
15395 labelL4:
15396     if (l9_2.index1[0]) {
15397 /* Computing 2nd power */
15398     d__1 = l2_1.x[0];
15399 /* Computing 2nd power */
15400     d__2 = l2_1.x[1];
15401     l3_1.g[0] = d__1 * d__1 + d__2 * d__2 - .25;
15402     }
15403     return 0;
15404 labelL5:
15405     if (! l10_2.index2[0]) {
15406     goto L7;
15407     }
15408     l5_1.gg[0] = l2_1.x[0] * 2.;
15409     l5_1.gg[1] = l2_1.x[1] * 2.;
15410 L7:
15411     return 0;
15412 } /* tp233_ */
15413 
15414 
tp234_(int * mode)15415 /* Subroutine */ int tp234_(int *mode)
15416 {
15417     /* System generated locals */
15418     Real d__1, d__2;
15419 
15420     /* Local variables */
15421     static int i__;
15422 
15423     switch ((int)*mode) {
15424     case 1:  goto labelL1;
15425     case 2:  goto labelL2;
15426     case 3:  goto labelL3;
15427     case 4:  goto labelL4;
15428     case 5:  goto labelL5;
15429     }
15430 labelL1:
15431     l1_1.n = 2;
15432     l1_1.nili = 0;
15433     l1_1.ninl = 1;
15434     l1_1.neli = 0;
15435     l1_1.nenl = 0;
15436     for (i__ = 1; i__ <= 2; ++i__) {
15437     l2_1.x[i__ - 1] = 1.;
15438     l12_1.lxu[i__ - 1] = true;
15439     l11_1.lxl[i__ - 1] = true;
15440     l13_1.xl[i__ - 1] = .2;
15441     l14_1.xu[i__ - 1] = 2.;
15442 /* labelL6: */
15443     l20_1.xex[i__ - 1] = .2;
15444     }
15445     l20_1.lex = true;
15446     l20_1.nex = 1;
15447     l20_1.fex = -.8;
15448     return 0;
15449 labelL2:
15450 /* Computing 4th power */
15451     d__1 = l2_1.x[1] - l2_1.x[0], d__1 *= d__1;
15452     l6_1.fx = d__1 * d__1 - (1. - l2_1.x[0]);
15453     return 0;
15454 labelL3:
15455 /* Computing 3rd power */
15456     d__1 = l2_1.x[1] - l2_1.x[0];
15457     l4_1.gf[0] = d__1 * (d__1 * d__1) * -4. + 1.;
15458 /* Computing 3rd power */
15459     d__1 = l2_1.x[1] - l2_1.x[0];
15460     l4_1.gf[1] = d__1 * (d__1 * d__1) * 4.;
15461     return 0;
15462 labelL4:
15463     if (l9_2.index1[0]) {
15464 /* Computing 2nd power */
15465     d__1 = l2_1.x[0];
15466 /* Computing 2nd power */
15467     d__2 = l2_1.x[1];
15468     l3_1.g[0] = -(d__1 * d__1) - d__2 * d__2 + 1.;
15469     }
15470     return 0;
15471 labelL5:
15472     if (! l10_2.index2[0]) {
15473     goto L7;
15474     }
15475     l5_1.gg[0] = l2_1.x[0] * -2.;
15476     l5_1.gg[1] = l2_1.x[1] * -2.;
15477 L7:
15478     return 0;
15479 } /* tp234_ */
15480 
15481 
tp235_(int * mode)15482 /* Subroutine */ int tp235_(int *mode)
15483 {
15484     /* System generated locals */
15485     Real d__1, d__2, d__3;
15486 
15487     /* Local variables */
15488     static int i__;
15489 
15490     switch ((int)*mode) {
15491     case 1:  goto labelL1;
15492     case 2:  goto labelL2;
15493     case 3:  goto labelL3;
15494     case 4:  goto labelL4;
15495     case 5:  goto labelL5;
15496     }
15497 labelL1:
15498     l1_1.n = 3;
15499     l1_1.nili = 0;
15500     l1_1.ninl = 0;
15501     l1_1.neli = 0;
15502     l1_1.nenl = 1;
15503     l2_2.x[0] = -2.;
15504     l2_2.x[1] = 3.;
15505     l2_2.x[2] = 1.;
15506     for (i__ = 1; i__ <= 2; ++i__) {
15507     l12_2.lxu[i__ - 1] = false;
15508 /* labelL6: */
15509     l11_2.lxl[i__ - 1] = false;
15510     }
15511     l5_5.gg[0] = 1.;
15512     l5_5.gg[1] = 0.;
15513     l20_3.xex[0] = -1.;
15514     l20_3.xex[1] = 1.;
15515     l20_3.xex[2] = 0.;
15516     l20_3.lex = true;
15517     l20_3.nex = 1;
15518     l20_3.fex = .04;
15519     return 0;
15520 labelL2:
15521 /* Computing 2nd power */
15522     d__2 = l2_2.x[0];
15523 /* Computing 2nd power */
15524     d__1 = l2_2.x[1] - d__2 * d__2;
15525 /* Computing 2nd power */
15526     d__3 = l2_2.x[0] - 1.;
15527     l6_1.fx = d__1 * d__1 + d__3 * d__3 * .01;
15528     return 0;
15529 labelL3:
15530 /* Computing 2nd power */
15531     d__1 = l2_2.x[0];
15532     l4_2.gf[0] = l2_2.x[0] * -4. * (l2_2.x[1] - d__1 * d__1) + (l2_2.x[0] -
15533         1.) * .02;
15534 /* Computing 2nd power */
15535     d__1 = l2_2.x[0];
15536     l4_2.gf[1] = (l2_2.x[1] - d__1 * d__1) * 2.;
15537     l4_2.gf[2] = 0.0;
15538 
15539     return 0;
15540 labelL4:
15541     if (l9_2.index1[0]) {
15542 /* Computing 2nd power */
15543     d__1 = l2_2.x[2];
15544     l3_1.g[0] = l2_2.x[0] + d__1 * d__1 + 1.;
15545     }
15546     return 0;
15547 labelL5:
15548     if (l10_2.index2[0]) {
15549     l5_5.gg[2] = l2_2.x[2] * 2.;
15550     }
15551     return 0;
15552 } /* tp235_ */
15553 
15554 
tp236239_(int * imode)15555 /* Subroutine */ int tp236239_(int *imode)
15556 {
15557     /* Initialized data */
15558 
15559     static Real b[20] = { 75.1963666677,-3.8112755343,.1269366345,
15560         -.0020567665,1.0345e-5,-6.8306567613,.0302344793,-.0012813448,
15561         3.52559e-5,-2.266e-7,.2564581253,-.003460403,1.35139e-5,
15562         -28.1064434908,-5.2375e-6,-6.3e-9,7e-10,3.405462e-4,-1.6638e-6,
15563         -2.8673112392 };
15564 
15565     /* System generated locals */
15566     Real d__1, d__2, d__3, d__4, d__5, d__6, d__7, d__8, d__9, d__10,
15567         d__11, d__12, d__13, d__14, d__15, d__16, d__17;
15568 
15569 
15570     switch ((int)*imode) {
15571     case 1:  goto labelL2;
15572     case 2:  goto labelL3;
15573     }
15574 labelL2:
15575 /* Computing 2nd power */
15576     d__1 = l2_1.x[0];
15577 /* Computing 3rd power */
15578     d__2 = l2_1.x[0];
15579 /* Computing 4th power */
15580     d__3 = l2_1.x[0], d__3 *= d__3;
15581 /* Computing 2nd power */
15582     d__4 = l2_1.x[0];
15583 /* Computing 3rd power */
15584     d__5 = l2_1.x[0];
15585 /* Computing 4th power */
15586     d__6 = l2_1.x[0], d__6 *= d__6;
15587 /* Computing 2nd power */
15588     d__7 = l2_1.x[1];
15589 /* Computing 3rd power */
15590     d__8 = l2_1.x[1];
15591 /* Computing 4th power */
15592     d__9 = l2_1.x[1], d__9 *= d__9;
15593 /* Computing 2nd power */
15594     d__10 = l2_1.x[0];
15595 /* Computing 2nd power */
15596     d__11 = l2_1.x[1];
15597 /* Computing 3rd power */
15598     d__12 = l2_1.x[0];
15599 /* Computing 2nd power */
15600     d__13 = l2_1.x[1];
15601 /* Computing 3rd power */
15602     d__14 = l2_1.x[0];
15603 /* Computing 3rd power */
15604     d__15 = l2_1.x[1];
15605 /* Computing 2nd power */
15606     d__16 = l2_1.x[1];
15607 /* Computing 3rd power */
15608     d__17 = l2_1.x[1];
15609     l6_1.fx = b[0] + b[1] * l2_1.x[0] + b[2] * (d__1 * d__1) + b[3] * (d__2 *
15610         (d__2 * d__2)) + b[4] * (d__3 * d__3) + b[5] * l2_1.x[1] + b[6] *
15611         l2_1.x[0] * l2_1.x[1] + b[7] * (d__4 * d__4) * l2_1.x[1] + b[8] *
15612         (d__5 * (d__5 * d__5)) * l2_1.x[1] + b[9] * (d__6 * d__6) *
15613         l2_1.x[1] + b[10] * (d__7 * d__7) + b[11] * (d__8 * (d__8 * d__8))
15614          + b[12] * (d__9 * d__9) + b[13] * (1. / (l2_1.x[1] + 1.)) + b[14]
15615          * (d__10 * d__10) * (d__11 * d__11) + b[15] * (d__12 * (d__12 *
15616         d__12)) * (d__13 * d__13) + b[16] * (d__14 * (d__14 * d__14)) * (
15617         d__15 * (d__15 * d__15)) + b[17] * l2_1.x[0] * (d__16 * d__16) +
15618         b[18] * l2_1.x[0] * (d__17 * (d__17 * d__17)) + b[19] * std::exp(
15619         l2_1.x[0] * 5e-4 * l2_1.x[1]);
15620     l6_1.fx = -l6_1.fx;
15621     return 0;
15622 labelL3:
15623 /* Computing 2nd power */
15624     d__1 = l2_1.x[0];
15625 /* Computing 3rd power */
15626     d__2 = l2_1.x[0];
15627 /* Computing 2nd power */
15628     d__3 = l2_1.x[0];
15629 /* Computing 3rd power */
15630     d__4 = l2_1.x[0];
15631 /* Computing 2nd power */
15632     d__5 = l2_1.x[1];
15633 /* Computing 2nd power */
15634     d__6 = l2_1.x[0];
15635 /* Computing 2nd power */
15636     d__7 = l2_1.x[1];
15637 /* Computing 2nd power */
15638     d__8 = l2_1.x[0];
15639 /* Computing 3rd power */
15640     d__9 = l2_1.x[1];
15641 /* Computing 2nd power */
15642     d__10 = l2_1.x[1];
15643 /* Computing 3rd power */
15644     d__11 = l2_1.x[1];
15645     l4_1.gf[0] = b[1] + b[2] * 2. * l2_1.x[0] + b[3] * 3. * (d__1 * d__1) + b[
15646         4] * 4. * (d__2 * (d__2 * d__2)) + b[6] * l2_1.x[1] + b[7] * 2. *
15647         l2_1.x[0] * l2_1.x[1] + b[8] * 3. * (d__3 * d__3) * l2_1.x[1] + b[
15648         9] * 4. * (d__4 * (d__4 * d__4)) * l2_1.x[1] + b[14] * 2. *
15649         l2_1.x[0] * (d__5 * d__5) + b[15] * 3. * (d__6 * d__6) * (d__7 *
15650         d__7) + b[16] * 3. * (d__8 * d__8) * (d__9 * (d__9 * d__9)) + b[
15651         17] * (d__10 * d__10) + b[18] * (d__11 * (d__11 * d__11)) + b[19]
15652         * std::exp(l2_1.x[0] * 5e-4 * l2_1.x[1]) * (l2_1.x[1] * 5e-4);
15653     l4_1.gf[0] = -l4_1.gf[0];
15654 /* Computing 2nd power */
15655     d__1 = l2_1.x[0];
15656 /* Computing 3rd power */
15657     d__2 = l2_1.x[0];
15658 /* Computing 4th power */
15659     d__3 = l2_1.x[0], d__3 *= d__3;
15660 /* Computing 2nd power */
15661     d__4 = l2_1.x[1];
15662 /* Computing 3rd power */
15663     d__5 = l2_1.x[1];
15664 /* Computing 2nd power */
15665     d__6 = l2_1.x[1] + 1.;
15666 /* Computing 2nd power */
15667     d__7 = l2_1.x[0];
15668 /* Computing 3rd power */
15669     d__8 = l2_1.x[0];
15670 /* Computing 3rd power */
15671     d__9 = l2_1.x[0];
15672 /* Computing 2nd power */
15673     d__10 = l2_1.x[1];
15674 /* Computing 2nd power */
15675     d__11 = l2_1.x[1];
15676     l4_1.gf[1] = b[5] + b[6] * l2_1.x[0] + b[7] * (d__1 * d__1) + b[8] * (
15677         d__2 * (d__2 * d__2)) + b[9] * (d__3 * d__3) + b[10] * 2. *
15678         l2_1.x[1] + b[11] * 3. * (d__4 * d__4) + b[12] * 4. * (d__5 * (
15679         d__5 * d__5)) + b[13] * (-1. / (d__6 * d__6)) + b[14] * (d__7 *
15680         d__7) * 2 * l2_1.x[1] + b[15] * (d__8 * (d__8 * d__8)) * 2 *
15681         l2_1.x[1] + b[16] * (d__9 * (d__9 * d__9)) * 3 * (d__10 * d__10)
15682         + b[17] * l2_1.x[0] * 2. * l2_1.x[1] + b[18] * l2_1.x[0] * 3. * (
15683         d__11 * d__11) + b[19] * std::exp(l2_1.x[0] * 5e-4 * l2_1.x[1]) * (
15684         l2_1.x[0] * 5e-4);
15685     l4_1.gf[1] = -l4_1.gf[1];
15686     return 0;
15687 } /* tp236239_ */
15688 
15689 
tp236_(int * mode)15690 /* Subroutine */ int tp236_(int *mode)
15691 {
15692     /* System generated locals */
15693     Real d__1;
15694 
15695     /* Local variables */
15696     static int i__;
15697     int tp236239_(int *);
15698 
15699     switch ((int)*mode) {
15700     case 1:  goto labelL1;
15701     case 2:  goto labelL2;
15702     case 3:  goto labelL3;
15703     case 4:  goto labelL4;
15704     case 5:  goto labelL5;
15705     }
15706 labelL1:
15707     l1_1.n = 2;
15708     l1_1.nili = 0;
15709     l1_1.ninl = 2;
15710     l1_1.neli = 0;
15711     l1_1.nenl = 0;
15712     l2_1.x[0] = 10.;
15713     l2_1.x[1] = 10.;
15714     for (i__ = 1; i__ <= 2; ++i__) {
15715     l12_1.lxu[i__ - 1] = true;
15716     l11_1.lxl[i__ - 1] = true;
15717 /* labelL6: */
15718     l13_1.xl[i__ - 1] = 0.;
15719     }
15720     l14_1.xu[0] = 75.;
15721     l14_1.xu[1] = 65.;
15722     l5_2.gg[3] = 1.;
15723     l20_1.lex = true;
15724     l20_1.nex = 1;
15725     l20_1.fex = -58.903436;
15726     l20_1.xex[0] = 75.;
15727     l20_1.xex[1] = 65.;
15728     return 0;
15729 labelL2:
15730     tp236239_(&c__1);
15731     return 0;
15732 labelL3:
15733     tp236239_(&c__2);
15734     return 0;
15735 labelL4:
15736     if (l9_3.index1[0]) {
15737     l3_2.g[0] = l2_1.x[0] * l2_1.x[1] - 700.;
15738     }
15739     if (l9_3.index1[1]) {
15740 /* Computing 2nd power */
15741     d__1 = l2_1.x[0] / 25.;
15742     l3_2.g[1] = l2_1.x[1] - d__1 * d__1 * 5.;
15743     }
15744     return 0;
15745 labelL5:
15746     if (! l10_3.index2[0]) {
15747     goto L7;
15748     }
15749     l5_2.gg[0] = l2_1.x[1];
15750     l5_2.gg[2] = l2_1.x[0];
15751 L7:
15752     if (l10_3.index2[1]) {
15753     l5_2.gg[1] = l2_1.x[0] * -.016;
15754     }
15755     return 0;
15756 } /* tp236_ */
15757 
15758 
tp237_(int * mode)15759 /* Subroutine */ int tp237_(int *mode)
15760 {
15761     /* System generated locals */
15762     Real d__1;
15763 
15764     /* Local variables */
15765     int tp236239_(int *);
15766 
15767     switch ((int)*mode) {
15768     case 1:  goto labelL1;
15769     case 2:  goto labelL2;
15770     case 3:  goto labelL3;
15771     case 4:  goto labelL4;
15772     case 5:  goto labelL5;
15773     }
15774 labelL1:
15775     l1_1.n = 2;
15776     l1_1.nili = 0;
15777     l1_1.ninl = 3;
15778     l1_1.neli = 0;
15779     l1_1.nenl = 0;
15780     l2_1.x[0] = 10.;
15781     l2_1.x[1] = 10.;
15782     l12_1.lxu[0] = true;
15783     l12_1.lxu[1] = true;
15784     l11_1.lxl[0] = true;
15785     l11_1.lxl[1] = false;
15786     l14_1.xu[0] = 75.;
15787     l14_1.xu[1] = 65.;
15788     l13_1.xl[0] = 54.;
15789     l5_3.gg[4] = 1.;
15790     l5_3.gg[2] = -5.;
15791     l20_1.lex = true;
15792     l20_1.nex = 1;
15793     l20_1.fex = -58.903436;
15794     l20_1.xex[0] = 75.;
15795     l20_1.xex[1] = 65.;
15796     return 0;
15797 labelL2:
15798     tp236239_(&c__1);
15799     return 0;
15800 labelL3:
15801     tp236239_(&c__2);
15802     return 0;
15803 labelL4:
15804     if (l9_4.index1[0]) {
15805     l3_3.g[0] = l2_1.x[0] * l2_1.x[1] - 700.;
15806     }
15807     if (l9_4.index1[1]) {
15808 /* Computing 2nd power */
15809     d__1 = l2_1.x[0] / 25.;
15810     l3_3.g[1] = l2_1.x[1] - d__1 * d__1 * 5.;
15811     }
15812     if (l9_4.index1[2]) {
15813 /* Computing 2nd power */
15814     d__1 = l2_1.x[1] - 50.;
15815     l3_3.g[2] = d__1 * d__1 - (l2_1.x[0] - 55.) * 5.;
15816     }
15817     return 0;
15818 labelL5:
15819     if (! l10_4.index2[0]) {
15820     goto labelL6;
15821     }
15822     l5_3.gg[0] = l2_1.x[1];
15823     l5_3.gg[3] = l2_1.x[0];
15824 labelL6:
15825     if (l10_4.index2[1]) {
15826     l5_3.gg[1] = l2_1.x[0] * -.016;
15827     }
15828     if (l10_4.index2[2]) {
15829     l5_3.gg[5] = l2_1.x[1] * 2. - 100.;
15830     }
15831     return 0;
15832 } /* tp237_ */
15833 
15834 
tp238_(int * mode)15835 /* Subroutine */ int tp238_(int *mode)
15836 {
15837     /* System generated locals */
15838     Real d__1;
15839 
15840     /* Local variables */
15841     static int i__;
15842     int tp236239_(int *);
15843 
15844     switch ((int)*mode) {
15845     case 1:  goto labelL1;
15846     case 2:  goto labelL2;
15847     case 3:  goto labelL3;
15848     case 4:  goto labelL4;
15849     case 5:  goto labelL5;
15850     }
15851 labelL1:
15852     l1_1.n = 2;
15853     l1_1.nili = 0;
15854     l1_1.ninl = 3;
15855     l1_1.neli = 0;
15856     l1_1.nenl = 0;
15857     l2_1.x[0] = 10.;
15858     l2_1.x[1] = 10.;
15859     for (i__ = 1; i__ <= 2; ++i__) {
15860     l12_1.lxu[i__ - 1] = true;
15861 /* labelL6: */
15862     l11_1.lxl[i__ - 1] = false;
15863     }
15864     l14_1.xu[0] = 75.;
15865     l14_1.xu[1] = 65.;
15866     l5_3.gg[4] = 1.;
15867     l5_3.gg[2] = -5.;
15868     l20_1.lex = true;
15869     l20_1.nex = 1;
15870     l20_1.fex = -58.903436;
15871     l20_1.xex[0] = 75.;
15872     l20_1.xex[1] = 65.;
15873     return 0;
15874 labelL2:
15875     tp236239_(&c__1);
15876     return 0;
15877 labelL3:
15878     tp236239_(&c__2);
15879     return 0;
15880 labelL4:
15881     if (l9_4.index1[0]) {
15882     l3_3.g[0] = l2_1.x[0] * l2_1.x[1] - 700.;
15883     }
15884     if (l9_4.index1[1]) {
15885 /* Computing 2nd power */
15886     d__1 = l2_1.x[0] / 25.;
15887     l3_3.g[1] = l2_1.x[1] - d__1 * d__1 * 5.;
15888     }
15889     if (l9_4.index1[2]) {
15890 /* Computing 2nd power */
15891     d__1 = l2_1.x[1] - 50.;
15892     l3_3.g[2] = d__1 * d__1 - (l2_1.x[0] - 55.) * 5.;
15893     }
15894     return 0;
15895 labelL5:
15896     if (! l10_4.index2[0]) {
15897     goto L7;
15898     }
15899     l5_3.gg[0] = l2_1.x[1];
15900     l5_3.gg[3] = l2_1.x[0];
15901 L7:
15902     if (l10_4.index2[1]) {
15903     l5_3.gg[1] = l2_1.x[0] * -.016;
15904     }
15905     if (l10_4.index2[2]) {
15906     l5_3.gg[5] = l2_1.x[1] * 2. - 100.;
15907     }
15908     return 0;
15909 } /* tp238_ */
15910 
15911 
tp239_(int * mode)15912 /* Subroutine */ int tp239_(int *mode)
15913 {
15914     static int i__;
15915     int tp236239_(int *);
15916 
15917     switch ((int)*mode) {
15918     case 1:  goto labelL1;
15919     case 2:  goto labelL2;
15920     case 3:  goto labelL3;
15921     case 4:  goto labelL4;
15922     case 5:  goto labelL5;
15923     }
15924 labelL1:
15925     l1_1.n = 2;
15926     l1_1.nili = 0;
15927     l1_1.ninl = 1;
15928     l1_1.neli = 0;
15929     l1_1.nenl = 0;
15930     l2_1.x[0] = 10.;
15931     l2_1.x[1] = 10.;
15932     for (i__ = 1; i__ <= 2; ++i__) {
15933     l12_1.lxu[i__ - 1] = true;
15934     l11_1.lxl[i__ - 1] = true;
15935 /* labelL6: */
15936     l13_1.xl[i__ - 1] = 0.;
15937     }
15938     l14_1.xu[0] = 75.;
15939     l14_1.xu[1] = 65.;
15940     l20_1.lex = true;
15941     l20_1.nex = 1;
15942     l20_1.fex = (float)-58.903436;
15943     l20_1.xex[0] = (float)75.;
15944     l20_1.xex[1] = (float)65.;
15945     return 0;
15946 labelL2:
15947     tp236239_(&c__1);
15948     return 0;
15949 labelL3:
15950     tp236239_(&c__2);
15951     return 0;
15952 labelL4:
15953     if (l9_2.index1[0]) {
15954     l3_1.g[0] = l2_1.x[0] * l2_1.x[1] - 700.;
15955     }
15956     return 0;
15957 labelL5:
15958     if (! l10_2.index2[0]) {
15959     goto L7;
15960     }
15961     l5_1.gg[0] = l2_1.x[1];
15962     l5_1.gg[1] = l2_1.x[0];
15963 L7:
15964     return 0;
15965 } /* tp239_ */
15966 
15967 
tp240_(int * mode)15968 /* Subroutine */ int tp240_(int *mode)
15969 {
15970     /* System generated locals */
15971     Real d__1, d__2, d__3;
15972 
15973     /* Local variables */
15974     static int i__;
15975 
15976     switch ((int)*mode) {
15977     case 1:  goto labelL1;
15978     case 2:  goto labelL2;
15979     case 3:  goto labelL3;
15980     case 4:  goto labelL4;
15981     case 5:  goto labelL4;
15982     }
15983 labelL1:
15984     l1_1.n = 3;
15985     l1_1.nili = 0;
15986     l1_1.ninl = 0;
15987     l1_1.neli = 0;
15988     l1_1.nenl = 0;
15989     l2_2.x[0] = 100.;
15990     l2_2.x[1] = -1.;
15991     l2_2.x[2] = 2.5;
15992     for (i__ = 1; i__ <= 3; ++i__) {
15993     l11_2.lxl[i__ - 1] = false;
15994     l12_2.lxu[i__ - 1] = false;
15995 /* labelL6: */
15996     l20_3.xex[i__ - 1] = 0.;
15997     }
15998     l20_3.lex = true;
15999     l20_3.nex = 1;
16000     l20_3.fex = 0.;
16001     return 0;
16002 labelL2:
16003 /* Computing 2nd power */
16004     d__1 = l2_2.x[0] - l2_2.x[1] + l2_2.x[2];
16005 /* Computing 2nd power */
16006     d__2 = -l2_2.x[0] + l2_2.x[1] + l2_2.x[2];
16007 /* Computing 2nd power */
16008     d__3 = l2_2.x[0] + l2_2.x[1] - l2_2.x[2];
16009     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3;
16010 labelL3:
16011     l4_2.gf[0] = (l2_2.x[0] - l2_2.x[1] + l2_2.x[2]) * 2. - (l2_2.x[1] -
16012         l2_2.x[0] + l2_2.x[2]) * 2. + (l2_2.x[0] + l2_2.x[1] - l2_2.x[2])
16013         * 2.;
16014     l4_2.gf[1] = (l2_2.x[1] - l2_2.x[0] + l2_2.x[2]) * 2. - (l2_2.x[0] -
16015         l2_2.x[1] + l2_2.x[2]) * 2. + (l2_2.x[0] + l2_2.x[1] - l2_2.x[2])
16016         * 2.;
16017     l4_2.gf[2] = (l2_2.x[0] - l2_2.x[1] + l2_2.x[2]) * 2. + (l2_2.x[1] -
16018         l2_2.x[0] + l2_2.x[2]) * 2. - (l2_2.x[0] + l2_2.x[1] - l2_2.x[2])
16019         * 2.;
16020 labelL4:
16021     return 0;
16022 } /* tp240_ */
16023 
tp241_(int * mode)16024 /* Subroutine */ int tp241_(int *mode)
16025 {
16026     /* System generated locals */
16027     Real d__1, d__2, d__3, d__4, d__5;
16028 
16029     /* Local variables */
16030     static int i__;
16031 
16032     switch ((int)*mode) {
16033     case 1:  goto labelL1;
16034     case 2:  goto labelL2;
16035     case 3:  goto labelL2;
16036     case 4:  goto labelL4;
16037     case 5:  goto labelL4;
16038     }
16039 labelL1:
16040     l1_1.n = 3;
16041     l1_1.nili = 0;
16042     l1_1.ninl = 0;
16043     l1_1.neli = 0;
16044     l1_1.nenl = 0;
16045     l15_1.lsum = 5;
16046     l2_2.x[0] = 1.;
16047     l2_2.x[1] = 2.;
16048     l2_2.x[2] = 0.;
16049     for (i__ = 1; i__ <= 3; ++i__) {
16050     l11_2.lxl[i__ - 1] = false;
16051 /* labelL6: */
16052     l12_2.lxu[i__ - 1] = false;
16053     }
16054     l20_3.lex = true;
16055     l20_3.nex = 1;
16056     l20_3.fex = 0.;
16057     l20_3.xex[0] = 0.;
16058     l20_3.xex[1] = 0.;
16059     l20_3.xex[2] = 1.;
16060     return 0;
16061 labelL2:
16062 /* Computing 2nd power */
16063     d__1 = l2_2.x[0];
16064 /* Computing 2nd power */
16065     d__2 = l2_2.x[1];
16066 /* Computing 2nd power */
16067     d__3 = l2_2.x[2];
16068     l16_3.f[0] = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 - 1.;
16069 /* Computing 2nd power */
16070     d__1 = l2_2.x[0];
16071 /* Computing 2nd power */
16072     d__2 = l2_2.x[1];
16073 /* Computing 2nd power */
16074     d__3 = l2_2.x[2] - 2.;
16075     l16_3.f[1] = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 - 1.;
16076     l16_3.f[2] = l2_2.x[0] + l2_2.x[1] + l2_2.x[2] - 1.;
16077     l16_3.f[3] = l2_2.x[0] + l2_2.x[1] - l2_2.x[2] + 1.;
16078 /* Computing 3rd power */
16079     d__1 = l2_2.x[0];
16080 /* Computing 2nd power */
16081     d__2 = l2_2.x[1];
16082 /* Computing 2nd power */
16083     d__3 = l2_2.x[2] * 5. - l2_2.x[0] + 1.;
16084     l16_3.f[4] = d__1 * (d__1 * d__1) + d__2 * d__2 * 3. + d__3 * d__3 - 36.;
16085     if (*mode == 3) {
16086     goto labelL3;
16087     }
16088 /* Computing 2nd power */
16089     d__1 = l16_3.f[0];
16090 /* Computing 2nd power */
16091     d__2 = l16_3.f[1];
16092 /* Computing 2nd power */
16093     d__3 = l16_3.f[2];
16094 /* Computing 2nd power */
16095     d__4 = l16_3.f[3];
16096 /* Computing 2nd power */
16097     d__5 = l16_3.f[4];
16098     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4 + d__5 *
16099         d__5;
16100     return 0;
16101 labelL3:
16102     for (i__ = 1; i__ <= 3; ++i__) {
16103     l17_3.df[i__ * 5 - 5] = l2_2.x[i__ - 1] * 2.;
16104 /* L7: */
16105     l17_3.df[i__ * 5 - 3] = 1.;
16106     }
16107     l17_3.df[1] = l17_3.df[0];
16108     l17_3.df[6] = l17_3.df[5];
16109     l17_3.df[11] = (l2_2.x[2] - 2.) * 2.;
16110     l17_3.df[3] = 1.;
16111     l17_3.df[8] = 1.;
16112     l17_3.df[13] = -1.;
16113 /* Computing 2nd power */
16114     d__1 = l2_2.x[0];
16115     l17_3.df[4] = d__1 * d__1 * 3. - (l2_2.x[2] * 5. - l2_2.x[0] + 1.) * 2.;
16116     l17_3.df[9] = l2_2.x[1] * 6.;
16117     l17_3.df[14] = (l2_2.x[2] * 5. - l2_2.x[0] + 1.) * 10.;
16118     l4_2.gf[0] = 0.;
16119     l4_2.gf[1] = 0.;
16120     l4_2.gf[2] = 0.;
16121     for (i__ = 1; i__ <= 5; ++i__) {
16122     l4_2.gf[0] += l16_3.f[i__ - 1] * l17_3.df[i__ - 1] * 2.;
16123     l4_2.gf[1] += l16_3.f[i__ - 1] * l17_3.df[i__ + 4] * 2.;
16124 /* L8: */
16125     l4_2.gf[2] += l16_3.f[i__ - 1] * l17_3.df[i__ + 9] * 2.;
16126     }
16127 labelL4:
16128     return 0;
16129 } /* tp241_ */
16130 
tp242_(int * mode)16131 /* Subroutine */ int tp242_(int *mode)
16132 {
16133     /* System generated locals */
16134     Real d__1;
16135 
16136     /* Local variables */
16137     static int i__;
16138     static Real ti;
16139 
16140     switch ((int)*mode) {
16141     case 1:  goto labelL1;
16142     case 2:  goto labelL2;
16143     case 3:  goto labelL2;
16144     case 4:  goto labelL4;
16145     case 5:  goto labelL4;
16146     }
16147 labelL1:
16148     l1_1.n = 3;
16149     l1_1.nili = 0;
16150     l1_1.ninl = 0;
16151     l1_1.neli = 0;
16152     l1_1.nenl = 0;
16153     l2_2.x[0] = 2.5;
16154     l2_2.x[1] = 10.;
16155     l2_2.x[2] = l2_2.x[1];
16156     for (i__ = 1; i__ <= 3; ++i__) {
16157     l11_2.lxl[i__ - 1] = true;
16158     l12_2.lxu[i__ - 1] = true;
16159     l13_2.xl[i__ - 1] = 0.;
16160 /* labelL6: */
16161     l14_2.xu[i__ - 1] = 10.;
16162     }
16163     l15_1.lsum = 10;
16164     l20_3.lex = true;
16165     l20_3.nex = -1;
16166     l20_3.fex = 0.;
16167     l20_3.xex[0] = 1.;
16168     l20_3.xex[1] = 10.;
16169     l20_3.xex[2] = 1.;
16170     return 0;
16171 labelL2:
16172     l6_1.fx = 0.;
16173     for (i__ = 1; i__ <= 10; ++i__) {
16174     ti = (Real) i__ * .1;
16175 /* L7: */
16176     l16_4.f[i__ - 1] = std::exp(-l2_2.x[0] * ti) - std::exp(-l2_2.x[1] * ti) -
16177         l2_2.x[2] * (std::exp(-ti) - std::exp(ti * -10.));
16178     }
16179     if (*mode == 3) {
16180     goto labelL3;
16181     }
16182     for (i__ = 1; i__ <= 10; ++i__) {
16183 /* L8: */
16184 /* Computing 2nd power */
16185     d__1 = l16_4.f[i__ - 1];
16186     l6_1.fx += d__1 * d__1;
16187     }
16188     return 0;
16189 labelL3:
16190     l4_2.gf[0] = 0.;
16191     l4_2.gf[1] = 0.;
16192     l4_2.gf[2] = 0.;
16193     for (i__ = 1; i__ <= 10; ++i__) {
16194     ti = (Real) i__ * .1;
16195     l16_4.f[i__ - 1] = std::exp(-l2_2.x[0] * ti) - std::exp(-l2_2.x[1] * ti) -
16196         l2_2.x[2] * (std::exp(-ti) - std::exp(ti * -10.));
16197     l17_4.df[i__ - 1] = -ti * std::exp(-l2_2.x[0] * ti);
16198     l17_4.df[i__ + 9] = ti * std::exp(-l2_2.x[1] * ti);
16199     l17_4.df[i__ + 19] = std::exp(ti * -10.) - std::exp(-ti);
16200     l4_2.gf[0] += l16_4.f[i__ - 1] * l17_4.df[i__ - 1] * 2.;
16201     l4_2.gf[1] += l16_4.f[i__ - 1] * l17_4.df[i__ + 9] * 2.;
16202 /* labelL9: */
16203     l4_2.gf[2] += l16_4.f[i__ - 1] * l17_4.df[i__ + 19] * 2.;
16204     }
16205 labelL4:
16206     return 0;
16207 } /* tp242_ */
16208 
tp243_(int * mode)16209 /* Subroutine */ int tp243_(int *mode)
16210 {
16211     /* Initialized data */
16212 
16213     static Real a[4] = { .14272,-.184981,-.521869,-.685306 };
16214     static Real d__[4] = { 1.75168,-1.35195,-.479048,-.3648 };
16215     static Real b[9]    /* was [3][3] */ = { 2.95137,4.87407,-2.0506,
16216         4.87407,9.39321,-3.93185,-2.0506,-3.93189,2.64745 };
16217 
16218     /* System generated locals */
16219     Real d__1;
16220 
16221     /* Local variables */
16222     static Real dxbx[3], g[12]    /* was [4][3] */;
16223     static int i__;
16224     static Real xbx;
16225 
16226     g[0] = -.564255;
16227     g[4] = .392417;
16228     g[8] = -.404979;
16229     g[1] = .927589;
16230     g[5] = -.0735083;
16231     g[9] = .535493;
16232     g[2] = .658799;
16233     g[6] = -.636666;
16234     g[10] = -.681091;
16235     g[3] = -.869487;
16236     g[7] = .586387;
16237     g[11] = .289826;
16238     switch ((int)*mode) {
16239     case 1:  goto labelL1;
16240     case 2:  goto labelL2;
16241     case 3:  goto labelL2;
16242     case 4:  goto labelL4;
16243     case 5:  goto labelL4;
16244     }
16245 labelL1:
16246     l1_1.n = 3;
16247     l1_1.nili = 0;
16248     l1_1.ninl = 0;
16249     l1_1.neli = 0;
16250     l1_1.nenl = 0;
16251     l15_1.lsum = 4;
16252     for (i__ = 1; i__ <= 3; ++i__) {
16253     l11_2.lxl[i__ - 1] = false;
16254     l12_2.lxu[i__ - 1] = false;
16255     l2_2.x[i__ - 1] = .1;
16256 /* labelL6: */
16257     l20_3.xex[i__ - 1] = 0.;
16258     }
16259     l20_3.lex = true;
16260     l20_3.nex = 1;
16261     l20_3.fex = .7966;
16262     return 0;
16263 labelL2:
16264     l6_1.fx = 0.;
16265     xbx = (l2_2.x[0] * b[0] + l2_2.x[1] * b[1] + l2_2.x[2] * b[2]) * l2_2.x[0]
16266          + (l2_2.x[0] * b[3] + l2_2.x[1] * b[4] + l2_2.x[2] * b[5]) *
16267         l2_2.x[1] + (l2_2.x[0] * b[6] + l2_2.x[1] * b[7] + l2_2.x[2] * b[
16268         8]) * l2_2.x[2];
16269     for (i__ = 1; i__ <= 4; ++i__) {
16270 /* L7: */
16271     l16_5.f[i__ - 1] = a[i__ - 1] + g[i__ - 1] * l2_2.x[0] + g[i__ + 3] *
16272         l2_2.x[1] + g[i__ + 7] * l2_2.x[2] + xbx * .5 * d__[i__ - 1];
16273     }
16274     if (*mode == 3) {
16275     goto labelL3;
16276     }
16277     for (i__ = 1; i__ <= 4; ++i__) {
16278 /* labelL10: */
16279 /* Computing 2nd power */
16280     d__1 = l16_5.f[i__ - 1];
16281     l6_1.fx += d__1 * d__1;
16282     }
16283     return 0;
16284 labelL3:
16285     dxbx[0] = (l2_2.x[0] * b[0] + l2_2.x[1] * b[1] + l2_2.x[2] * b[2]) * 2.;
16286     dxbx[1] = (l2_2.x[0] * b[3] + l2_2.x[1] * b[4] + l2_2.x[2] * b[5]) * 2.;
16287     dxbx[2] = (l2_2.x[0] * b[6] + l2_2.x[1] * b[7] + l2_2.x[2] * b[8]) * 2.;
16288     for (i__ = 1; i__ <= 3; ++i__) {
16289 /* labelL9: */
16290     l4_2.gf[i__ - 1] = 0.;
16291     }
16292     for (i__ = 1; i__ <= 4; ++i__) {
16293     l17_5.df[i__ - 1] = g[i__ - 1] + dxbx[0] * d__[i__ - 1] * .5;
16294     l17_5.df[i__ + 3] = g[i__ + 3] + dxbx[1] * d__[i__ - 1] * .5;
16295     l17_5.df[i__ + 7] = g[i__ + 7] + dxbx[2] * d__[i__ - 1] * .5;
16296     l4_2.gf[0] += l16_5.f[i__ - 1] * l17_5.df[i__ - 1] * 2.;
16297     l4_2.gf[1] += l16_5.f[i__ - 1] * l17_5.df[i__ + 3] * 2.;
16298 /* L8: */
16299     l4_2.gf[2] += l16_5.f[i__ - 1] * l17_5.df[i__ + 7] * 2.;
16300     }
16301 labelL4:
16302     return 0;
16303 } /* tp243_ */
16304 
16305 
tp244_(int * mode)16306 /* Subroutine */ int tp244_(int *mode)
16307 {
16308     /* System generated locals */
16309     Real d__1;
16310 
16311     /* Local variables */
16312     static int i__;
16313     static Real yi, zi;
16314 
16315     switch ((int)*mode) {
16316     case 1:  goto labelL1;
16317     case 2:  goto labelL2;
16318     case 3:  goto labelL2;
16319     case 4:  goto labelL4;
16320     case 5:  goto labelL4;
16321     }
16322 labelL1:
16323     l1_1.n = 3;
16324     l1_1.nili = 0;
16325     l1_1.ninl = 0;
16326     l1_1.neli = 0;
16327     l1_1.nenl = 0;
16328     l15_1.lsum = 10;
16329     l20_3.nex = 1;
16330     l2_2.x[0] = 1.;
16331     l2_2.x[1] = 2.;
16332     l2_2.x[2] = 1.;
16333     for (i__ = 1; i__ <= 3; ++i__) {
16334     l13_2.xl[i__ - 1] = (float)0.;
16335     l14_2.xu[i__ - 1] = 1e10;
16336     l11_2.lxl[i__ - 1] = true;
16337 /* labelL6: */
16338     l12_2.lxu[i__ - 1] = true;
16339     }
16340     l20_3.lex = true;
16341     l20_3.fex = 0.;
16342     l20_3.xex[0] = 1.;
16343     l20_3.xex[1] = 10.;
16344     l20_3.xex[2] = 5.;
16345     return 0;
16346 labelL2:
16347     l6_1.fx = 0.;
16348     for (i__ = 1; i__ <= 10; ++i__) {
16349     zi = (Real) i__ * .1;
16350     yi = std::exp(-zi) - std::exp(zi * -10.) * 5.;
16351 /* L7: */
16352     l16_4.f[i__ - 1] = std::exp(-l2_2.x[0] * zi) - l2_2.x[2] * std::exp(-l2_2.x[1] *
16353          zi) - yi;
16354     }
16355     if (*mode == 3) {
16356     goto labelL3;
16357     }
16358     for (i__ = 1; i__ <= 8; ++i__) {
16359 /* labelL10: */
16360 /* Computing 2nd power */
16361     d__1 = l16_4.f[i__ - 1];
16362     l6_1.fx += d__1 * d__1;
16363     }
16364     return 0;
16365 labelL3:
16366     for (i__ = 1; i__ <= 3; ++i__) {
16367 /* L8: */
16368     l4_2.gf[i__ - 1] = 0.;
16369     }
16370     for (i__ = 1; i__ <= 10; ++i__) {
16371     zi = (Real) i__ * .1;
16372     yi = std::exp(-zi) - std::exp(zi * -10.) * 5.;
16373     l17_4.df[i__ - 1] = -zi * std::exp(-l2_2.x[0] * zi);
16374     l17_4.df[i__ + 9] = zi * l2_2.x[2] * std::exp(-l2_2.x[1] * zi);
16375     l17_4.df[i__ + 19] = -exp(-l2_2.x[1] * zi);
16376     l4_2.gf[0] += l16_4.f[i__ - 1] * l17_4.df[i__ - 1] * 2.;
16377     l4_2.gf[1] += l16_4.f[i__ - 1] * l17_4.df[i__ + 9] * 2.;
16378 /* labelL9: */
16379     l4_2.gf[2] += l16_4.f[i__ - 1] * l17_4.df[i__ + 19] * 2.;
16380     }
16381 labelL4:
16382     return 0;
16383 } /* tp244_ */
16384 
16385 
tp245_(int * mode)16386 /* Subroutine */ int tp245_(int *mode)
16387 {
16388     /* System generated locals */
16389     Real d__1;
16390 
16391     /* Local variables */
16392     static int i__;
16393     static Real di;
16394 
16395     switch ((int)*mode) {
16396     case 1:  goto labelL1;
16397     case 2:  goto labelL2;
16398     case 3:  goto labelL2;
16399     case 4:  goto labelL4;
16400     case 5:  goto labelL4;
16401     }
16402 labelL1:
16403     l1_1.n = 3;
16404     l1_1.nili = 0;
16405     l1_1.ninl = 0;
16406     l1_1.neli = 0;
16407     l1_1.nenl = 0;
16408     l20_3.nex = -1;
16409     l2_2.x[0] = 0.;
16410     l2_2.x[1] = 10.;
16411     l2_2.x[2] = 20.;
16412     for (i__ = 1; i__ <= 3; ++i__) {
16413     l13_13.xl[i__ - 1] = (float)0.;
16414     l11_2.lxl[i__ - 1] = true;
16415     l14_13.xu[i__ - 1] = (float)20.;
16416 /* labelL6: */
16417     l12_2.lxu[i__ - 1] = true;
16418     }
16419     l14_13.xu[0] = (float)12.;
16420     l14_13.xu[1] = (float)12.;
16421     l20_3.lex = true;
16422     l20_3.fex = 0.;
16423     l20_3.xex[0] = 1.;
16424     l20_3.xex[1] = 10.;
16425     l20_3.xex[2] = 1.;
16426     l15_1.lsum = 10;
16427     return 0;
16428 labelL2:
16429     l6_1.fx = 0.;
16430     for (i__ = 1; i__ <= 10; ++i__) {
16431     di = (Real) i__;
16432 /* L7: */
16433     l16_4.f[i__ - 1] = std::exp(-di * l2_2.x[0] / 10.) - std::exp(-di * l2_2.x[1] /
16434         10.) - l2_2.x[2] * (exp(-di / 10.) - std::exp(-di));
16435     }
16436     if (*mode == 3) {
16437     goto labelL3;
16438     }
16439     for (i__ = 1; i__ <= 10; ++i__) {
16440 /* labelL10: */
16441 /* Computing 2nd power */
16442     d__1 = l16_4.f[i__ - 1];
16443     l6_1.fx += d__1 * d__1;
16444     }
16445     return 0;
16446 labelL3:
16447     for (i__ = 1; i__ <= 3; ++i__) {
16448 /* L8: */
16449     l4_2.gf[i__ - 1] = 0.;
16450     }
16451     for (i__ = 1; i__ <= 10; ++i__) {
16452     di = (Real) i__;
16453     l17_4.df[i__ - 1] = -di / 10. * std::exp(-di * l2_2.x[0] / 10.);
16454     l17_4.df[i__ + 9] = di / 10. * std::exp(-di * l2_2.x[1] / 10.);
16455     l17_4.df[i__ + 19] = std::exp(-di) - std::exp(-di / 10.);
16456     l4_2.gf[0] += l16_4.f[i__ - 1] * l17_4.df[i__ - 1] * 2.;
16457     l4_2.gf[1] += l16_4.f[i__ - 1] * l17_4.df[i__ + 9] * 2.;
16458 /* labelL9: */
16459     l4_2.gf[2] += l16_4.f[i__ - 1] * l17_4.df[i__ + 19] * 2.;
16460     }
16461 labelL4:
16462     return 0;
16463 } /* tp245_ */
16464 
16465 
tp246_(int * mode)16466 /* Subroutine */ int tp246_(int *mode)
16467 {
16468     /* System generated locals */
16469     Real d__1, d__2, d__3;
16470 
16471     /* Local variables */
16472     static int i__, j;
16473 
16474     switch ((int)*mode) {
16475     case 1:  goto labelL1;
16476     case 2:  goto labelL2;
16477     case 3:  goto labelL2;
16478     case 4:  goto labelL4;
16479     case 5:  goto labelL4;
16480     }
16481 labelL1:
16482     l1_1.n = 3;
16483     l1_1.nili = 0;
16484     l1_1.ninl = 0;
16485     l1_1.neli = 0;
16486     l1_1.nenl = 0;
16487     l2_2.x[0] = -1.2;
16488     l2_2.x[1] = 2.;
16489     l2_2.x[2] = 0.;
16490     for (i__ = 1; i__ <= 3; ++i__) {
16491     for (j = 1; j <= 3; ++j) {
16492 /* L7: */
16493         l17_6.df[i__ + j * 3 - 4] = 0.;
16494     }
16495     l11_2.lxl[i__ - 1] = false;
16496     l12_2.lxu[i__ - 1] = false;
16497 /* labelL6: */
16498     l20_3.xex[i__ - 1] = 1.;
16499     }
16500     l17_6.df[6] = 10.;
16501     l17_6.df[1] = -1.;
16502     l17_6.df[5] = -1.;
16503     l20_3.lex = true;
16504     l20_3.nex = 1;
16505     l20_3.fex = 0.;
16506     l15_1.lsum = 3;
16507     return 0;
16508 labelL2:
16509 /* Computing 2nd power */
16510     d__1 = (l2_2.x[0] + l2_2.x[1]) / 2.;
16511     l16_2.f[0] = (l2_2.x[2] - d__1 * d__1) * 10.;
16512     l16_2.f[1] = 1. - l2_2.x[0];
16513     l16_2.f[2] = 1. - l2_2.x[1];
16514     if (*mode == 3) {
16515     goto labelL3;
16516     }
16517 /* Computing 2nd power */
16518     d__1 = l16_2.f[0];
16519 /* Computing 2nd power */
16520     d__2 = l16_2.f[1];
16521 /* Computing 2nd power */
16522     d__3 = l16_2.f[2];
16523     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3;
16524     return 0;
16525 labelL3:
16526     l17_6.df[0] = (l2_2.x[0] + l2_2.x[1]) * -10.;
16527     l17_6.df[3] = (l2_2.x[0] + l2_2.x[1]) * -10.;
16528     for (i__ = 1; i__ <= 3; ++i__) {
16529     l4_2.gf[i__ - 1] = 0.;
16530     for (j = 1; j <= 3; ++j) {
16531 /* L8: */
16532         l4_2.gf[i__ - 1] += l16_2.f[j - 1] * 2. * l17_6.df[j + i__ * 3 -
16533             4];
16534     }
16535     }
16536 labelL4:
16537     return 0;
16538 } /* tp246_ */
16539 
16540 
tp247_(int * mode)16541 /* Subroutine */ int tp247_(int *mode)
16542 {
16543     /* System generated locals */
16544     Real d__1, d__2, d__3, d__4, d__5;
16545 
16546     /* Local variables */
16547     static int i__;
16548     static Real theta, dtheta[3], xpi;
16549 
16550     switch ((int)*mode) {
16551     case 1:  goto labelL1;
16552     case 2:  goto labelL2;
16553     case 3:  goto labelL3;
16554     case 4:  goto labelL4;
16555     case 5:  goto labelL4;
16556     }
16557 labelL1:
16558     l1_1.n = 3;
16559     l1_1.nili = 0;
16560     l1_1.ninl = 0;
16561     l1_1.neli = 0;
16562     l1_1.nenl = 0;
16563     l20_3.nex = 1;
16564     for (i__ = 1; i__ <= 2; ++i__) {
16565     l11_2.lxl[i__ - 1] = false;
16566 /* labelL6: */
16567     l12_2.lxu[i__ - 1] = false;
16568     }
16569     l11_2.lxl[2] = true;
16570     l12_2.lxu[2] = true;
16571     l11_2.lxl[0] = true;
16572     l13_2.xl[0] = .1;
16573     l13_2.xl[2] = -2.5;
16574     l14_2.xu[2] = 7.5;
16575     l20_3.lex = true;
16576     l2_2.x[0] = -1.;
16577     l2_2.x[1] = 0.;
16578     l2_2.x[2] = 0.;
16579     l20_3.fex = 0.;
16580     l20_3.xex[0] = 1.;
16581     l20_3.xex[1] = 0.;
16582     l20_3.xex[2] = 0.;
16583     return 0;
16584 labelL2:
16585     xpi = std::asin(1.) * 2.;
16586     theta = 1. / (xpi * 2.) * std::atan(l2_2.x[1] / l2_2.x[0]);
16587     if (l2_2.x[0] < 0.) {
16588     theta += .5;
16589     }
16590 /* Computing 2nd power */
16591     d__1 = l2_2.x[2] - theta * 10.;
16592 /* Computing 2nd power */
16593     d__3 = l2_2.x[0];
16594 /* Computing 2nd power */
16595     d__4 = l2_2.x[1];
16596 /* Computing 2nd power */
16597     d__2 = std::sqrt(d__3 * d__3 + d__4 * d__4) - 1.;
16598 /* Computing 2nd power */
16599     d__5 = l2_2.x[2];
16600     l6_1.fx = (d__1 * d__1 + d__2 * d__2) * 100. + d__5 * d__5;
16601     return 0;
16602 labelL3:
16603     xpi = std::asin(1.) * 2.;
16604     theta = 1. / (xpi * 2.) * std::atan(l2_2.x[1] / l2_2.x[0]);
16605 /* Computing 2nd power */
16606     d__1 = l2_2.x[1] / l2_2.x[0];
16607 /* Computing 2nd power */
16608     d__2 = l2_2.x[0];
16609     dtheta[0] = -l2_2.x[1] / ((d__1 * d__1 + 1.) * (d__2 * d__2));
16610 /* Computing 2nd power */
16611     d__1 = l2_2.x[1] / l2_2.x[0];
16612     dtheta[1] = 1. / ((d__1 * d__1 + 1.) * l2_2.x[0]);
16613     dtheta[2] = 0.;
16614     if (l2_2.x[0] < 0.) {
16615     theta += .5;
16616     }
16617 /* Computing 2nd power */
16618     d__1 = l2_2.x[0];
16619 /* Computing 2nd power */
16620     d__2 = l2_2.x[1];
16621 /* Computing 2nd power */
16622     d__3 = l2_2.x[0];
16623 /* Computing 2nd power */
16624     d__4 = l2_2.x[1];
16625     l4_2.gf[0] = ((l2_2.x[2] - theta * 10.) * 20. * dtheta[0] + (sqrt(d__1 *
16626         d__1 + d__2 * d__2) - 1.) * 2. / std::sqrt(d__3 * d__3 + d__4 * d__4) *
16627          l2_2.x[0]) * 100.;
16628 /* Computing 2nd power */
16629     d__1 = l2_2.x[0];
16630 /* Computing 2nd power */
16631     d__2 = l2_2.x[1];
16632 /* Computing 2nd power */
16633     d__3 = l2_2.x[0];
16634 /* Computing 2nd power */
16635     d__4 = l2_2.x[1];
16636     l4_2.gf[1] = ((l2_2.x[2] - theta * 10.) * 20. * dtheta[1] + (std::sqrt(d__1 *
16637         d__1 + d__2 * d__2) - 1.) * 2. / std::sqrt(d__3 * d__3 + d__4 * d__4) *
16638          l2_2.x[1]) * 100.;
16639     l4_2.gf[2] = (l2_2.x[2] - theta * 10.) * 2. * 100. + l2_2.x[2] * 2.;
16640 labelL4:
16641     return 0;
16642 } /* tp247_ */
16643 
tp248_(int * mode)16644 /* Subroutine */ int tp248_(int *mode)
16645 {
16646     /* System generated locals */
16647     Real d__1, d__2, d__3;
16648 
16649     /* Local variables */
16650     static int i__;
16651 
16652     switch ((int)*mode) {
16653     case 1:  goto labelL1;
16654     case 2:  goto labelL2;
16655     case 3:  goto labelL3;
16656     case 4:  goto labelL4;
16657     case 5:  goto labelL5;
16658     }
16659 labelL1:
16660     l1_1.n = 3;
16661     l1_1.nili = 1;
16662     l1_1.ninl = 0;
16663     l1_1.neli = 0;
16664     l1_1.nenl = 1;
16665     l2_2.x[0] = -.1;
16666     l2_2.x[1] = -1.;
16667     l2_2.x[2] = .1;
16668     for (i__ = 1; i__ <= 3; ++i__) {
16669     l11_2.lxl[i__ - 1] = false;
16670 /* labelL6: */
16671     l12_2.lxu[i__ - 1] = false;
16672     }
16673     l5_3.gg[0] = 1.;
16674     l5_3.gg[2] = -2.;
16675     l5_3.gg[4] = 0.;
16676     l20_3.lex = true;
16677     l20_3.nex = 1;
16678     l20_3.fex = -.8;
16679     l20_3.xex[0] = .6;
16680     l20_3.xex[1] = .8;
16681     l20_3.xex[2] = 0.;
16682     l4_2.gf[0] = 0.;
16683     l4_2.gf[1] = -1.;
16684     l4_2.gf[2] = 0.;
16685     return 0;
16686 labelL2:
16687     l6_1.fx = -l2_2.x[1];
16688 labelL3:
16689     return 0;
16690 labelL4:
16691     if (l9_3.index1[0]) {
16692     l3_2.g[0] = 1. - l2_2.x[1] * 2. + l2_2.x[0];
16693     }
16694     if (l9_3.index1[1]) {
16695 /* Computing 2nd power */
16696     d__1 = l2_2.x[0];
16697 /* Computing 2nd power */
16698     d__2 = l2_2.x[1];
16699 /* Computing 2nd power */
16700     d__3 = l2_2.x[2];
16701     l3_2.g[1] = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 - 1.;
16702     }
16703     return 0;
16704 labelL5:
16705     if (! l10_3.index2[1]) {
16706     goto L8;
16707     }
16708     for (i__ = 1; i__ <= 3; ++i__) {
16709 /* labelL9: */
16710     l5_3.gg[(i__ << 1) - 1] = l2_2.x[i__ - 1] * 2.;
16711     }
16712 L8:
16713     return 0;
16714 } /* tp248_ */
16715 
tp249_(int * mode)16716 /* Subroutine */ int tp249_(int *mode)
16717 {
16718     /* System generated locals */
16719     Real d__1, d__2, d__3;
16720 
16721     /* Local variables */
16722     static int i__;
16723 
16724     switch ((int)*mode) {
16725     case 1:  goto labelL1;
16726     case 2:  goto labelL2;
16727     case 3:  goto labelL3;
16728     case 4:  goto labelL4;
16729     case 5:  goto labelL5;
16730     }
16731 labelL1:
16732     l1_1.n = 3;
16733     l1_1.nili = 0;
16734     l1_1.ninl = 1;
16735     l1_1.neli = 0;
16736     l1_1.nenl = 0;
16737     for (i__ = 1; i__ <= 3; ++i__) {
16738     l2_2.x[i__ - 1] = 1.;
16739     l11_2.lxl[i__ - 1] = false;
16740 /* labelL6: */
16741     l12_2.lxu[i__ - 1] = false;
16742     }
16743     l11_2.lxl[0] = true;
16744     l5_5.gg[2] = 0.;
16745     l13_2.xl[0] = 1.;
16746     l20_3.lex = true;
16747     l20_3.nex = 1;
16748     l20_3.fex = 1.;
16749     l20_3.xex[0] = 1.;
16750     l20_3.xex[1] = 0.;
16751     l20_3.xex[2] = 0.;
16752     return 0;
16753 labelL2:
16754 /* Computing 2nd power */
16755     d__1 = l2_2.x[0];
16756 /* Computing 2nd power */
16757     d__2 = l2_2.x[1];
16758 /* Computing 2nd power */
16759     d__3 = l2_2.x[2];
16760     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3;
16761     return 0;
16762 labelL3:
16763     for (i__ = 1; i__ <= 3; ++i__) {
16764 /* L7: */
16765     l4_2.gf[i__ - 1] = l2_2.x[i__ - 1] * 2.;
16766     }
16767     return 0;
16768 labelL4:
16769     if (l9_2.index1[0]) {
16770 /* Computing 2nd power */
16771     d__1 = l2_2.x[0];
16772 /* Computing 2nd power */
16773     d__2 = l2_2.x[1];
16774     l3_1.g[0] = d__1 * d__1 + d__2 * d__2 - 1.;
16775     }
16776     return 0;
16777 labelL5:
16778     if (! l10_2.index2[0]) {
16779     goto L8;
16780     }
16781     l5_5.gg[0] = l2_2.x[0] * 2.;
16782     l5_5.gg[1] = l2_2.x[1] * 2.;
16783 L8:
16784     return 0;
16785 } /* tp249_ */
16786 
tp250_(int * mode)16787 /* Subroutine */ int tp250_(int *mode)
16788 {
16789     static int i__;
16790 
16791     switch ((int)*mode) {
16792     case 1:  goto labelL1;
16793     case 2:  goto labelL2;
16794     case 3:  goto labelL3;
16795     case 4:  goto labelL4;
16796     case 5:  goto labelL5;
16797     }
16798 labelL1:
16799     l1_1.n = 3;
16800     l1_1.nili = 2;
16801     l1_1.ninl = 0;
16802     l1_1.neli = 0;
16803     l1_1.nenl = 0;
16804     l20_3.nex = 1;
16805     for (i__ = 1; i__ <= 3; ++i__) {
16806     l11_2.lxl[i__ - 1] = true;
16807     l12_2.lxu[i__ - 1] = true;
16808     l13_2.xl[i__ - 1] = 0.;
16809 /* labelL6: */
16810     l2_2.x[i__ - 1] = 10.;
16811     }
16812     l14_2.xu[0] = 20.;
16813     l14_2.xu[1] = 11.;
16814     l14_2.xu[2] = 42.;
16815     l20_3.lex = true;
16816     l20_3.fex = -3300.;
16817     l20_3.xex[0] = 20.;
16818     l20_3.xex[1] = 11.;
16819     l20_3.xex[2] = 15.;
16820     l5_3.gg[0] = 1.;
16821     l5_3.gg[2] = 2.;
16822     l5_3.gg[4] = 2.;
16823     l5_3.gg[1] = -1.;
16824     l5_3.gg[3] = -2.;
16825     l5_3.gg[5] = -2.;
16826     return 0;
16827 labelL2:
16828     l6_1.fx = -l2_2.x[0] * l2_2.x[1] * l2_2.x[2];
16829     return 0;
16830 labelL3:
16831     l4_2.gf[0] = -l2_2.x[1] * l2_2.x[2];
16832     l4_2.gf[1] = -l2_2.x[0] * l2_2.x[2];
16833     l4_2.gf[2] = -l2_2.x[0] * l2_2.x[1];
16834     return 0;
16835 labelL4:
16836     if (l9_3.index1[0]) {
16837     l3_2.g[0] = l2_2.x[0] + l2_2.x[1] * 2. + l2_2.x[2] * 2.;
16838     }
16839     if (l9_3.index1[1]) {
16840     l3_2.g[1] = 72. - l2_2.x[0] - l2_2.x[1] * 2. - l2_2.x[2] * 2.;
16841     }
16842 labelL5:
16843     return 0;
16844 } /* tp250_ */
16845 
tp251_(int * mode)16846 /* Subroutine */ int tp251_(int *mode)
16847 {
16848     static int i__;
16849 
16850     switch ((int)*mode) {
16851     case 1:  goto labelL1;
16852     case 2:  goto labelL2;
16853     case 3:  goto labelL3;
16854     case 4:  goto labelL4;
16855     case 5:  goto labelL5;
16856     }
16857 labelL1:
16858     l1_1.n = 3;
16859     l1_1.nili = 1;
16860     l1_1.ninl = 0;
16861     l1_1.neli = 0;
16862     l1_1.nenl = 0;
16863     for (i__ = 1; i__ <= 3; ++i__) {
16864     l2_2.x[i__ - 1] = 10.;
16865     l11_2.lxl[i__ - 1] = true;
16866     l12_2.lxu[i__ - 1] = true;
16867     l13_2.xl[i__ - 1] = 0.;
16868 /* labelL6: */
16869     l14_2.xu[i__ - 1] = 42.;
16870     }
16871     l5_5.gg[0] = -1.;
16872     l5_5.gg[1] = -2.;
16873     l5_5.gg[2] = -2.;
16874     l20_3.lex = true;
16875     l20_3.nex = 1;
16876     l20_3.fex = -3456.;
16877     l20_3.xex[0] = 24.;
16878     l20_3.xex[1] = 12.;
16879     l20_3.xex[2] = 12.;
16880     return 0;
16881 labelL2:
16882     l6_1.fx = -l2_2.x[0] * l2_2.x[1] * l2_2.x[2];
16883     return 0;
16884 labelL3:
16885     l4_2.gf[0] = -l2_2.x[1] * l2_2.x[2];
16886     l4_2.gf[1] = -l2_2.x[0] * l2_2.x[2];
16887     l4_2.gf[2] = -l2_2.x[0] * l2_2.x[1];
16888     return 0;
16889 labelL4:
16890     if (l9_2.index1[0]) {
16891     l3_1.g[0] = 72. - l2_2.x[0] - l2_2.x[1] * 2. - l2_2.x[2] * 2.;
16892     }
16893 labelL5:
16894     return 0;
16895 } /* tp251_ */
16896 
tp252_(int * mode)16897 /* Subroutine */ int tp252_(int *mode)
16898 {
16899     /* System generated locals */
16900     Real d__1, d__2, d__3;
16901 
16902     /* Local variables */
16903     static int i__;
16904 
16905     switch ((int)*mode) {
16906     case 1:  goto labelL1;
16907     case 2:  goto labelL2;
16908     case 3:  goto labelL3;
16909     case 4:  goto labelL4;
16910     case 5:  goto labelL5;
16911     }
16912 labelL1:
16913     l1_1.n = 3;
16914     l1_1.nili = 0;
16915     l1_1.ninl = 0;
16916     l1_1.neli = 0;
16917     l1_1.nenl = 1;
16918     l2_2.x[0] = -1.;
16919     l2_2.x[1] = 2.;
16920     l2_2.x[2] = 2.;
16921     for (i__ = 1; i__ <= 3; ++i__) {
16922     l11_2.lxl[i__ - 1] = false;
16923 /* labelL6: */
16924     l12_2.lxu[i__ - 1] = false;
16925     }
16926     l12_2.lxu[0] = true;
16927     l14_2.xu[0] = -1.;
16928     l5_5.gg[0] = 1.;
16929     l5_5.gg[1] = 0.;
16930     l20_3.lex = true;
16931     l20_3.nex = 1;
16932     l20_3.fex = .04;
16933     l20_3.xex[0] = -1.;
16934     l20_3.xex[1] = 1.;
16935     l20_3.xex[2] = 0.;
16936     l4_2.gf[2] = 0.;
16937     return 0;
16938 labelL2:
16939 /* Computing 2nd power */
16940     d__1 = l2_2.x[0] - 1.;
16941 /* Computing 2nd power */
16942     d__3 = l2_2.x[0];
16943 /* Computing 2nd power */
16944     d__2 = l2_2.x[1] - d__3 * d__3;
16945     l6_1.fx = d__1 * d__1 * .01 + d__2 * d__2;
16946     return 0;
16947 labelL3:
16948 /* Computing 2nd power */
16949     d__1 = l2_2.x[0];
16950     l4_2.gf[0] = (l2_2.x[0] - 1.) * .02 - (l2_2.x[1] - d__1 * d__1) * 4. *
16951         l2_2.x[0];
16952 /* Computing 2nd power */
16953     d__1 = l2_2.x[0];
16954     l4_2.gf[1] = (l2_2.x[1] - d__1 * d__1) * 2.;
16955     return 0;
16956 labelL4:
16957     if (l9_2.index1[0]) {
16958 /* Computing 2nd power */
16959     d__1 = l2_2.x[2];
16960     l3_1.g[0] = l2_2.x[0] + d__1 * d__1 + 1.;
16961     }
16962     return 0;
16963 labelL5:
16964     if (l10_2.index2[0]) {
16965     l5_5.gg[2] = l2_2.x[2] * 2.;
16966     }
16967     return 0;
16968 } /* tp252_ */
16969 
16970 
tp253_(int * mode)16971 /* Subroutine */ int tp253_(int *mode)
16972 {
16973     /* Initialized data */
16974 
16975     static Real a[24]    /* was [3][8] */ = { 0.,0.,0.,10.,0.,0.,10.,
16976         10.,0.,0.,10.,0.,0.,0.,10.,10.,0.,10.,10.,10.,10.,0.,10.,10. };
16977 
16978     /* System generated locals */
16979     Real d__1, d__2, d__3;
16980 
16981     /* Local variables */
16982     static int i__, j;
16983 
16984 /*      DATA ((A(I,J),J=1,8),I=1,3) */
16985     switch ((int)*mode) {
16986     case 1:  goto labelL1;
16987     case 2:  goto labelL2;
16988     case 3:  goto labelL3;
16989     case 4:  goto labelL4;
16990     case 5:  goto labelL5;
16991     }
16992 labelL1:
16993     l1_1.n = 3;
16994     l1_1.nili = 1;
16995     l1_1.ninl = 0;
16996     l1_1.neli = 0;
16997     l1_1.nenl = 0;
16998     l2_2.x[0] = 0.;
16999     l2_2.x[1] = 2.;
17000     l2_2.x[2] = 0.;
17001     for (i__ = 1; i__ <= 3; ++i__) {
17002     l12_2.lxu[i__ - 1] = false;
17003     l11_2.lxl[i__ - 1] = true;
17004 /* labelL6: */
17005     l13_2.xl[i__ - 1] = 0.;
17006     }
17007     l5_5.gg[0] = -3.;
17008     l5_5.gg[1] = 0.;
17009     l5_5.gg[2] = -3.;
17010     l20_3.lex = true;
17011     l20_3.nex = 1;
17012     l20_3.fex = 69.282032;
17013     for (i__ = 1; i__ <= 3; ++i__) {
17014 /* L7: */
17015     l20_3.xex[i__ - 1] = (float).5;
17016     }
17017     return 0;
17018 labelL2:
17019     l6_1.fx = 0.;
17020     for (j = 1; j <= 8; ++j) {
17021 /* L8: */
17022 /* Computing 2nd power */
17023     d__1 = a[j * 3 - 3] - l2_2.x[0];
17024 /* Computing 2nd power */
17025     d__2 = a[j * 3 - 2] - l2_2.x[1];
17026 /* Computing 2nd power */
17027     d__3 = a[j * 3 - 1] - l2_2.x[2];
17028     l6_1.fx += std::sqrt(d__1 * d__1 + d__2 * d__2 + d__3 * d__3);
17029     }
17030     return 0;
17031 labelL3:
17032     for (i__ = 1; i__ <= 3; ++i__) {
17033     l4_2.gf[i__ - 1] = 0.;
17034     for (j = 1; j <= 8; ++j) {
17035 /* labelL9: */
17036 /* Computing 2nd power */
17037         d__1 = a[j * 3 - 3] - l2_2.x[0];
17038 /* Computing 2nd power */
17039         d__2 = a[j * 3 - 2] - l2_2.x[1];
17040 /* Computing 2nd power */
17041         d__3 = a[j * 3 - 1] - l2_2.x[2];
17042         l4_2.gf[i__ - 1] += (l2_2.x[i__ - 1] - a[i__ + j * 3 - 4]) / std::sqrt(
17043             d__1 * d__1 + d__2 * d__2 + d__3 * d__3);
17044     }
17045     }
17046     return 0;
17047 labelL4:
17048     if (l9_2.index1[0]) {
17049     l3_1.g[0] = 30. - l2_2.x[0] * 3. - l2_2.x[2] * 3.;
17050     }
17051 labelL5:
17052     return 0;
17053 } /* tp253_ */
17054 
17055 
tp254_(int * mode)17056 /* Subroutine */ int tp254_(int *mode)
17057 {
17058     /* System generated locals */
17059     Real d__1, d__2;
17060     Real d_lg10(Real *);
17061 
17062     /* Local variables */
17063     static int i__;
17064 
17065     switch ((int)*mode) {
17066     case 1:  goto labelL1;
17067     case 2:  goto labelL2;
17068     case 3:  goto labelL3;
17069     case 4:  goto labelL4;
17070     case 5:  goto labelL5;
17071     }
17072 labelL1:
17073     l1_1.n = 3;
17074     l1_1.nili = 0;
17075     l1_1.ninl = 0;
17076     l1_1.neli = 0;
17077     l1_1.nenl = 2;
17078     l2_2.x[0] = 1.;
17079     l2_2.x[1] = 1.;
17080     l2_2.x[2] = 1.;
17081     for (i__ = 1; i__ <= 2; ++i__) {
17082     l12_2.lxu[i__ - 1] = false;
17083 /* labelL6: */
17084     l11_2.lxl[i__ - 1] = false;
17085     }
17086     l12_2.lxu[2] = false;
17087     l11_2.lxl[2] = true;
17088     l13_2.xl[2] = 1.;
17089     l5_3.gg[0] = 0.;
17090     l5_3.gg[3] = 0.;
17091     l5_3.gg[5] = 1.;
17092     l20_3.lex = true;
17093     l20_3.nex = 1;
17094     l20_3.fex = -std::sqrt(3.);
17095     l20_3.xex[0] = 0.;
17096     l20_3.xex[1] = std::sqrt(3.);
17097     l20_3.xex[2] = 1.;
17098     l4_2.gf[0] = 0.;
17099     l4_2.gf[1] = -1.;
17100     return 0;
17101 labelL2:
17102     l6_1.fx = d_lg10(&l2_2.x[2]) - l2_2.x[1];
17103     return 0;
17104 labelL3:
17105     l4_2.gf[2] = 1. / (l2_2.x[2] * std::log(10.));
17106     return 0;
17107 labelL4:
17108     if (l9_3.index1[0]) {
17109 /* Computing 2nd power */
17110     d__1 = l2_2.x[1];
17111 /* Computing 2nd power */
17112     d__2 = l2_2.x[2];
17113     l3_2.g[0] = d__1 * d__1 + d__2 * d__2 - 4.;
17114     }
17115     if (l9_3.index1[1]) {
17116 /* Computing 2nd power */
17117     d__1 = l2_2.x[0];
17118     l3_2.g[1] = l2_2.x[2] - 1. - d__1 * d__1;
17119     }
17120     return 0;
17121 labelL5:
17122     if (! l10_3.index2[0]) {
17123     goto L7;
17124     }
17125     l5_3.gg[2] = l2_2.x[1] * 2.;
17126     l5_3.gg[4] = l2_2.x[2] * 2.;
17127 L7:
17128     if (l10_3.index2[1]) {
17129     l5_3.gg[1] = l2_2.x[0] * -2.;
17130     }
17131     return 0;
17132 } /* tp254_ */
17133 
17134 
tp255_(int * mode)17135 /* Subroutine */ int tp255_(int *mode)
17136 {
17137     /* System generated locals */
17138     Real d__1, d__2, d__3, d__4, d__5, d__6;
17139 
17140     /* Local variables */
17141     static int i__;
17142 
17143     switch ((int)*mode) {
17144     case 1:  goto labelL1;
17145     case 2:  goto labelL2;
17146     case 3:  goto labelL3;
17147     case 4:  goto labelL4;
17148     case 5:  goto labelL4;
17149     }
17150 labelL1:
17151     l1_1.n = 4;
17152     l1_1.nili = 0;
17153     l1_1.ninl = 0;
17154     l1_1.neli = 0;
17155     l1_1.nenl = 0;
17156     l2_3.x[0] = -3.;
17157     l2_3.x[1] = 1.;
17158     l2_3.x[2] = -3.;
17159     l2_3.x[3] = 1.;
17160     for (i__ = 1; i__ <= 4; ++i__) {
17161     l14_3.xu[i__ - 1] = (float)10.;
17162     l12_3.lxu[i__ - 1] = true;
17163     l13_3.xl[i__ - 1] = (float)-10.;
17164 /* labelL6: */
17165     l11_3.lxl[i__ - 1] = true;
17166     }
17167     l20_6.lex = true;
17168     l20_6.nex = 1;
17169     l20_6.fex = 0.;
17170     for (i__ = 1; i__ <= 4; ++i__) {
17171 /* L7: */
17172     l20_6.xex[i__ - 1] = 1.;
17173     }
17174     return 0;
17175 labelL2:
17176 /* Computing 2nd power */
17177     d__1 = l2_3.x[0];
17178 /* Computing 2nd power */
17179     d__2 = (float)1. - l2_3.x[0];
17180 /* Computing 2nd power */
17181     d__3 = l2_3.x[2];
17182 /* Computing 2nd power */
17183     d__4 = (float)1. - l2_3.x[2];
17184 /* Computing 2nd power */
17185     d__5 = l2_3.x[1] - (float)1.;
17186 /* Computing 2nd power */
17187     d__6 = l2_3.x[3] - (float)1.;
17188     l6_1.fx = (l2_3.x[1] - d__1 * d__1) * (float)100. + d__2 * d__2 + (l2_3.x[
17189         3] - d__3 * d__3) * (float)90. + d__4 * d__4 + (d__5 * d__5 +
17190         d__6 * d__6) * (float)10.1 + (l2_3.x[1] - (float)1.) * (float)
17191         19.8 * (l2_3.x[3] - (float)1.);
17192 /* Computing 2nd power */
17193     d__1 = l6_1.fx;
17194     l6_1.fx = d__1 * d__1 * (float).5;
17195     return 0;
17196 labelL3:
17197 /* Computing 2nd power */
17198     d__1 = l2_3.x[0];
17199 /* Computing 2nd power */
17200     d__2 = (float)1. - l2_3.x[0];
17201 /* Computing 2nd power */
17202     d__3 = l2_3.x[2];
17203 /* Computing 2nd power */
17204     d__4 = (float)1. - l2_3.x[2];
17205 /* Computing 2nd power */
17206     d__5 = l2_3.x[1] - (float)1.;
17207 /* Computing 2nd power */
17208     d__6 = l2_3.x[3] - (float)1.;
17209     l6_1.fx = (l2_3.x[1] - d__1 * d__1) * (float)100. + d__2 * d__2 + (l2_3.x[
17210         3] - d__3 * d__3) * (float)90. + d__4 * d__4 + (d__5 * d__5 +
17211         d__6 * d__6) * (float)10.1 + (l2_3.x[1] - (float)1.) * (float)
17212         19.8 * (l2_3.x[3] - (float)1.);
17213     l4_3.gf[0] = l6_1.fx * (l2_3.x[0] * -198. - 2.);
17214     l4_3.gf[1] = l6_1.fx * (l2_3.x[1] * 20.2 + l2_3.x[3] * 19.8 + 60.);
17215     l4_3.gf[2] = l6_1.fx * (l2_3.x[2] * -178. - 2.);
17216     l4_3.gf[3] = l6_1.fx * (l2_3.x[1] * 19.8 + l2_3.x[3] * 20.2 + 50.);
17217 labelL4:
17218     return 0;
17219 } /* tp255_ */
17220 
17221 
tp256_(int * mode)17222 /* Subroutine */ int tp256_(int *mode)
17223 {
17224     /* System generated locals */
17225     Real d__1, d__2, d__3, d__4;
17226 
17227     /* Local variables */
17228     static int i__;
17229 
17230     switch ((int)*mode) {
17231     case 1:  goto labelL1;
17232     case 2:  goto labelL2;
17233     case 3:  goto labelL3;
17234     case 4:  goto labelL4;
17235     case 5:  goto labelL4;
17236     }
17237 labelL1:
17238     l1_1.n = 4;
17239     l1_1.nili = 0;
17240     l1_1.ninl = 0;
17241     l1_1.neli = 0;
17242     l1_1.nenl = 0;
17243     l2_3.x[0] = 3.;
17244     l2_3.x[1] = -1.;
17245     l2_3.x[2] = 0.;
17246     l2_3.x[3] = 1.;
17247     for (i__ = 1; i__ <= 4; ++i__) {
17248     l12_3.lxu[i__ - 1] = false;
17249 /* labelL6: */
17250     l11_3.lxl[i__ - 1] = false;
17251     }
17252     l20_6.lex = true;
17253     l20_6.nex = 1;
17254     l20_6.fex = 0.;
17255     for (i__ = 1; i__ <= 4; ++i__) {
17256 /* L7: */
17257     l20_6.xex[i__ - 1] = 0.;
17258     }
17259     return 0;
17260 labelL2:
17261 /* Computing 2nd power */
17262     d__1 = l2_3.x[0] + l2_3.x[1] * 10.;
17263 /* Computing 2nd power */
17264     d__2 = l2_3.x[2] - l2_3.x[3];
17265 /* Computing 4th power */
17266     d__3 = l2_3.x[1] - l2_3.x[2] * 2., d__3 *= d__3;
17267 /* Computing 4th power */
17268     d__4 = l2_3.x[0] - l2_3.x[3], d__4 *= d__4;
17269     l6_1.fx = (d__1 * d__1 + d__2 * d__2 * 5. + d__3 * d__3 + d__4 * d__4 *
17270         10.) * 1e-4;
17271     return 0;
17272 labelL3:
17273 /* Computing 3rd power */
17274     d__1 = l2_3.x[0] - l2_3.x[3];
17275     l4_3.gf[0] = ((l2_3.x[0] + l2_3.x[1] * 10.) * 2. + d__1 * (d__1 * d__1) *
17276         40.) * 1e-4;
17277 /* Computing 3rd power */
17278     d__1 = l2_3.x[1] - l2_3.x[2] * 2.;
17279     l4_3.gf[1] = ((l2_3.x[0] + l2_3.x[1] * 10.) * 20. + d__1 * (d__1 * d__1) *
17280          4.) * 1e-4;
17281 /* Computing 3rd power */
17282     d__1 = l2_3.x[1] - l2_3.x[2] * 2.;
17283     l4_3.gf[2] = ((l2_3.x[2] - l2_3.x[3]) * 10. - d__1 * (d__1 * d__1) * 8.) *
17284          1e-4;
17285 /* Computing 3rd power */
17286     d__1 = l2_3.x[0] - l2_3.x[3];
17287     l4_3.gf[3] = ((l2_3.x[2] - l2_3.x[3]) * -10. - d__1 * (d__1 * d__1) * 40.)
17288          * 1e-4;
17289 labelL4:
17290     return 0;
17291 } /* tp256_ */
17292 
17293 
tp257_(int * mode)17294 /* Subroutine */ int tp257_(int *mode)
17295 {
17296     /* System generated locals */
17297     Real d__1, d__2, d__3, d__4, d__5, d__6, d__7, d__8;
17298 
17299     /* Local variables */
17300     static int i__;
17301 
17302     switch ((int)*mode) {
17303     case 1:  goto labelL1;
17304     case 2:  goto labelL2;
17305     case 3:  goto labelL3;
17306     case 4:  goto labelL4;
17307     case 5:  goto labelL4;
17308     }
17309 labelL1:
17310     l1_1.n = 4;
17311     l1_1.nili = 0;
17312     l1_1.ninl = 0;
17313     l1_1.neli = 0;
17314     l1_1.nenl = 0;
17315     l2_3.x[0] = -3.;
17316     l2_3.x[1] = -1.;
17317     l2_3.x[2] = -3.;
17318     l2_3.x[3] = -1.;
17319     for (i__ = 1; i__ <= 4; ++i__) {
17320 /* labelL6: */
17321     l12_3.lxu[i__ - 1] = false;
17322     }
17323     l11_3.lxl[0] = true;
17324     l11_3.lxl[1] = false;
17325     l11_3.lxl[2] = true;
17326     l11_3.lxl[3] = false;
17327     l13_3.xl[0] = 0.;
17328     l13_3.xl[2] = 0.;
17329     l20_6.lex = true;
17330     l20_6.nex = 1;
17331     l20_6.fex = 0.;
17332     for (i__ = 1; i__ <= 4; ++i__) {
17333 /* L7: */
17334     l20_6.xex[i__ - 1] = 1.;
17335     }
17336     return 0;
17337 labelL2:
17338 /* Computing 2nd power */
17339     d__2 = l2_3.x[0];
17340 /* Computing 2nd power */
17341     d__1 = d__2 * d__2 - l2_3.x[1];
17342 /* Computing 2nd power */
17343     d__3 = l2_3.x[0] - 1.;
17344 /* Computing 2nd power */
17345     d__5 = l2_3.x[2];
17346 /* Computing 2nd power */
17347     d__4 = d__5 * d__5 - l2_3.x[3];
17348 /* Computing 2nd power */
17349     d__6 = l2_3.x[2] - 1.;
17350 /* Computing 2nd power */
17351     d__7 = l2_3.x[1] - 1.;
17352 /* Computing 2nd power */
17353     d__8 = l2_3.x[3] - 1.;
17354     l6_1.fx = d__1 * d__1 * 100. + d__3 * d__3 + d__4 * d__4 * 90. + d__6 *
17355         d__6 + (d__7 * d__7 + d__8 * d__8) * 10.1 + (l2_3.x[0] - 1.) *
17356         19.8 * (l2_3.x[3] - 1.);
17357     return 0;
17358 labelL3:
17359 /* Computing 3rd power */
17360     d__1 = l2_3.x[0];
17361     l4_3.gf[0] = (d__1 * (d__1 * d__1) - l2_3.x[0] * l2_3.x[1]) * 400. +
17362         l2_3.x[0] * 2. + l2_3.x[3] * 19.8 - 21.8;
17363 /* Computing 2nd power */
17364     d__1 = l2_3.x[0];
17365     l4_3.gf[1] = d__1 * d__1 * -200. + l2_3.x[1] * 220.2 - 20.2;
17366 /* Computing 3rd power */
17367     d__1 = l2_3.x[2];
17368     l4_3.gf[2] = (d__1 * (d__1 * d__1) - l2_3.x[2] * l2_3.x[3]) * 360. +
17369         l2_3.x[2] * 2. - 2.;
17370 /* Computing 2nd power */
17371     d__1 = l2_3.x[2];
17372     l4_3.gf[3] = d__1 * d__1 * -180. + l2_3.x[3] * 200.2 + l2_3.x[0] * 19.8 -
17373         40.;
17374 labelL4:
17375     return 0;
17376 } /* tp257_ */
17377 
17378 
tp258_(int * mode)17379 /* Subroutine */ int tp258_(int *mode)
17380 {
17381     /* System generated locals */
17382     Real d__1, d__2, d__3, d__4, d__5, d__6, d__7, d__8;
17383 
17384     /* Local variables */
17385     static int i__;
17386 
17387     switch ((int)*mode) {
17388     case 1:  goto labelL1;
17389     case 2:  goto labelL2;
17390     case 3:  goto labelL3;
17391     case 4:  goto labelL4;
17392     case 5:  goto labelL4;
17393     }
17394 labelL1:
17395     l1_1.n = 4;
17396     l1_1.nili = 0;
17397     l1_1.ninl = 0;
17398     l1_1.neli = 0;
17399     l1_1.nenl = 0;
17400     l2_3.x[0] = -3.;
17401     l2_3.x[1] = -1.;
17402     l2_3.x[2] = -3.;
17403     l2_3.x[3] = -1.;
17404     for (i__ = 1; i__ <= 4; ++i__) {
17405     l12_3.lxu[i__ - 1] = false;
17406 /* labelL6: */
17407     l11_3.lxl[i__ - 1] = false;
17408     }
17409     l20_6.lex = true;
17410     l20_6.nex = 1;
17411     l20_6.fex = 0.;
17412     for (i__ = 1; i__ <= 4; ++i__) {
17413 /* L7: */
17414     l20_6.xex[i__ - 1] = 1.;
17415     }
17416     return 0;
17417 labelL2:
17418 /* Computing 2nd power */
17419     d__2 = l2_3.x[0];
17420 /* Computing 2nd power */
17421     d__1 = l2_3.x[1] - d__2 * d__2;
17422 /* Computing 2nd power */
17423     d__3 = 1. - l2_3.x[0];
17424 /* Computing 2nd power */
17425     d__5 = l2_3.x[2];
17426 /* Computing 2nd power */
17427     d__4 = l2_3.x[3] - d__5 * d__5;
17428 /* Computing 2nd power */
17429     d__6 = 1. - l2_3.x[2];
17430 /* Computing 2nd power */
17431     d__7 = l2_3.x[1] - 1.;
17432 /* Computing 2nd power */
17433     d__8 = l2_3.x[3] - 1.;
17434     l6_1.fx = (d__1 * d__1 * 100. + d__3 * d__3 + d__4 * d__4 * 90. + d__6 *
17435         d__6 + (d__7 * d__7 + d__8 * d__8) * 10.1 + (l2_3.x[1] - 1.) *
17436         19.8 * (l2_3.x[3] - 1.)) * 1e-4;
17437     return 0;
17438 labelL3:
17439 /* Computing 3rd power */
17440     d__1 = l2_3.x[0];
17441     l4_3.gf[0] = ((d__1 * (d__1 * d__1) - l2_3.x[0] * l2_3.x[1]) * 400. +
17442         l2_3.x[0] * 2. - 2.) * 1e-4;
17443 /* Computing 2nd power */
17444     d__1 = l2_3.x[0];
17445     l4_3.gf[1] = (d__1 * d__1 * -200. + l2_3.x[1] * 220.2 + l2_3.x[3] * 19.8
17446         - 40.) * 1e-4;
17447 /* Computing 3rd power */
17448     d__1 = l2_3.x[2];
17449     l4_3.gf[2] = ((d__1 * (d__1 * d__1) - l2_3.x[2] * l2_3.x[3]) * 360. +
17450         l2_3.x[2] * 2. - 2.) * 1e-4;
17451 /* Computing 2nd power */
17452     d__1 = l2_3.x[2];
17453     l4_3.gf[3] = (d__1 * d__1 * -180. + l2_3.x[3] * 200.2 + l2_3.x[1] * 19.8
17454         - 40.) * 1e-4;
17455 labelL4:
17456     return 0;
17457 } /* tp258_ */
17458 
17459 
tp259_(int * mode)17460 /* Subroutine */ int tp259_(int *mode)
17461 {
17462     /* System generated locals */
17463     Real d__1, d__2, d__3, d__4, d__5, d__6, d__7, d__8;
17464 
17465     /* Local variables */
17466     static int i__;
17467 
17468     switch ((int)*mode) {
17469     case 1:  goto labelL1;
17470     case 2:  goto labelL2;
17471     case 3:  goto labelL3;
17472     case 4:  goto labelL4;
17473     case 5:  goto labelL4;
17474     }
17475 labelL1:
17476     l1_1.n = 4;
17477     l1_1.nili = 0;
17478     l1_1.ninl = 0;
17479     l1_1.neli = 0;
17480     l1_1.nenl = 0;
17481     for (i__ = 1; i__ <= 4; ++i__) {
17482     l2_3.x[i__ - 1] = 0.;
17483     l12_3.lxu[i__ - 1] = false;
17484 /* labelL6: */
17485     l11_3.lxl[i__ - 1] = false;
17486     }
17487     l12_3.lxu[3] = true;
17488     l14_3.xu[3] = 1.;
17489     l20_6.lex = true;
17490     l20_6.nex = 1;
17491     l20_6.fex = 0.;
17492     for (i__ = 1; i__ <= 4; ++i__) {
17493 /* L7: */
17494     l20_6.xex[i__ - 1] = 1.;
17495     }
17496     return 0;
17497 labelL2:
17498 /* Computing 2nd power */
17499     d__2 = l2_3.x[0];
17500 /* Computing 2nd power */
17501     d__1 = l2_3.x[1] - d__2 * d__2;
17502 /* Computing 2nd power */
17503     d__3 = 1. - l2_3.x[0];
17504 /* Computing 2nd power */
17505     d__5 = l2_3.x[2];
17506 /* Computing 2nd power */
17507     d__4 = l2_3.x[3] - d__5 * d__5;
17508 /* Computing 3rd power */
17509     d__6 = 1. - l2_3.x[2];
17510 /* Computing 2nd power */
17511     d__7 = l2_3.x[1] - 1.;
17512 /* Computing 2nd power */
17513     d__8 = l2_3.x[3] - 1.;
17514     l6_1.fx = d__1 * d__1 * 100. + d__3 * d__3 + d__4 * d__4 * 90. + d__6 * (
17515         d__6 * d__6) + d__7 * d__7 * 10.1 + d__8 * d__8 + (l2_3.x[1] - 1.)
17516          * 19.8 * (l2_3.x[3] - 1.);
17517     return 0;
17518 labelL3:
17519 /* Computing 3rd power */
17520     d__1 = l2_3.x[0];
17521     l4_3.gf[0] = (d__1 * (d__1 * d__1) - l2_3.x[0] * l2_3.x[1]) * 400. +
17522         l2_3.x[0] * 2. - 2.;
17523 /* Computing 2nd power */
17524     d__1 = l2_3.x[0];
17525     l4_3.gf[1] = d__1 * d__1 * -200. + l2_3.x[1] * 220.2 + l2_3.x[3] * 19.8 -
17526         40.;
17527 /* Computing 3rd power */
17528     d__1 = l2_3.x[2];
17529 /* Computing 2nd power */
17530     d__2 = 1. - l2_3.x[2];
17531     l4_3.gf[2] = (d__1 * (d__1 * d__1) - l2_3.x[2] * l2_3.x[3]) * 360. - d__2
17532         * d__2 * 3.;
17533 /* Computing 2nd power */
17534     d__1 = l2_3.x[2];
17535     l4_3.gf[3] = d__1 * d__1 * -180. + l2_3.x[3] * 182. + l2_3.x[1] * 19.8 -
17536         21.8;
17537 labelL4:
17538     return 0;
17539 } /* tp259_ */
17540 
17541 
tp260_(int * mode)17542 /* Subroutine */ int tp260_(int *mode)
17543 {
17544     /* System generated locals */
17545     Real d__1;
17546 
17547     /* Local variables */
17548     static int i__, j;
17549 
17550     switch ((int)*mode) {
17551     case 1:  goto labelL1;
17552     case 2:  goto labelL2;
17553     case 3:  goto labelL3;
17554     case 4:  goto labelL4;
17555     case 5:  goto labelL4;
17556     }
17557 labelL1:
17558     l1_1.n = 4;
17559     l1_1.nili = 0;
17560     l1_1.ninl = 0;
17561     l1_1.neli = 0;
17562     l1_1.nenl = 0;
17563     l2_3.x[0] = -3.;
17564     l2_3.x[1] = -1.;
17565     l2_3.x[2] = -3.;
17566     l2_3.x[3] = -1.;
17567     for (i__ = 1; i__ <= 4; ++i__) {
17568     l12_3.lxu[i__ - 1] = false;
17569 /* labelL6: */
17570     l11_3.lxl[i__ - 1] = false;
17571     }
17572     l20_6.lex = true;
17573     l20_6.nex = 1;
17574     l20_6.fex = 0.;
17575     for (i__ = 1; i__ <= 4; ++i__) {
17576 /* L7: */
17577     l20_6.xex[i__ - 1] = 1.;
17578     }
17579     l15_1.lsum = 7;
17580     for (i__ = 1; i__ <= 7; ++i__) {
17581     for (j = 1; j <= 4; ++j) {
17582 /* L8: */
17583         l17_7.df[i__ + j * 7 - 8] = 0.;
17584     }
17585     }
17586     l17_7.df[7] = 10.;
17587     l17_7.df[1] = -1.;
17588     l17_7.df[23] = std::sqrt(90.);
17589     l17_7.df[17] = -1.;
17590     l17_7.df[11] = std::sqrt(9.9);
17591     l17_7.df[25] = std::sqrt(9.9);
17592     l17_7.df[12] = std::sqrt(.2);
17593     l17_7.df[27] = std::sqrt(.2);
17594     return 0;
17595 labelL2:
17596 /* Computing 2nd power */
17597     d__1 = l2_3.x[0];
17598     l16_6.f[0] = (l2_3.x[1] - d__1 * d__1) * 10.;
17599     l16_6.f[1] = 1. - l2_3.x[0];
17600 /* Computing 2nd power */
17601     d__1 = l2_3.x[2];
17602     l16_6.f[2] = std::sqrt(90.) * (l2_3.x[3] - d__1 * d__1);
17603     l16_6.f[3] = 1. - l2_3.x[2];
17604     l16_6.f[4] = std::sqrt(9.9) * (l2_3.x[1] - 1. + (l2_3.x[3] - 1.));
17605     l16_6.f[5] = std::sqrt(.2) * (l2_3.x[1] - 1.);
17606     l16_6.f[6] = std::sqrt(.2) * (l2_3.x[3] - 1.);
17607     if (*mode == 3) {
17608     goto labelL3;
17609     }
17610     l6_1.fx = 0.;
17611     for (i__ = 1; i__ <= 7; ++i__) {
17612 /* labelL9: */
17613 /* Computing 2nd power */
17614     d__1 = l16_6.f[i__ - 1];
17615     l6_1.fx += d__1 * d__1;
17616     }
17617     l6_1.fx *= 1e-4;
17618     return 0;
17619 labelL3:
17620     l17_7.df[0] = l2_3.x[0] * -20. * 1e-4;
17621     l17_7.df[16] = -std::sqrt(90.) * (float)2. * l2_3.x[2] * 1e-4;
17622     for (i__ = 1; i__ <= 4; ++i__) {
17623     l4_3.gf[i__ - 1] = 0.;
17624     for (j = 1; j <= 7; ++j) {
17625 /* labelL10: */
17626         l4_3.gf[i__ - 1] += l16_6.f[j - 1] * 2. * l17_7.df[j + i__ * 7 -
17627             8];
17628     }
17629     }
17630 labelL4:
17631     return 0;
17632 } /* tp260_ */
17633 
17634 
tp261_(int * mode)17635 /* Subroutine */ int tp261_(int *mode)
17636 {
17637     /* System generated locals */
17638     Real d__1, d__2, d__3;
17639 
17640     /* Local variables */
17641     static Real a, b, c__;
17642     static int i__, j;
17643 
17644     switch ((int)*mode) {
17645     case 1:  goto labelL1;
17646     case 2:  goto labelL2;
17647     case 3:  goto labelL2;
17648     case 4:  goto labelL4;
17649     case 5:  goto labelL4;
17650     }
17651 labelL1:
17652     l1_1.n = 4;
17653     l15_1.lsum = 5;
17654     l1_1.nili = 0;
17655     l1_1.ninl = 0;
17656     l1_1.neli = 0;
17657     l1_1.nenl = 0;
17658     for (i__ = 1; i__ <= 4; ++i__) {
17659     l13_14.xl[i__ - 1] = (float)0.;
17660     l11_3.lxl[i__ - 1] = true;
17661     l14_14.xu[i__ - 1] = (float)1e5;
17662     l12_3.lxu[i__ - 1] = true;
17663     l2_3.x[i__ - 1] = 0.;
17664     for (j = 1; j <= 5; ++j) {
17665 /* labelL6: */
17666         l17_8.df[j + i__ * 5 - 6] = 0.;
17667     }
17668     }
17669     l17_8.df[19] = 1.;
17670     l20_6.lex = true;
17671     l20_6.nex = 1;
17672     l20_6.fex = 0.;
17673     l20_6.xex[0] = 0.;
17674     for (i__ = 2; i__ <= 4; ++i__) {
17675 /* L7: */
17676     l20_6.xex[i__ - 1] = 1.;
17677     }
17678     return 0;
17679 labelL2:
17680 /* Computing 2nd power */
17681     d__1 = std::exp(l2_3.x[0]) - l2_3.x[1];
17682     l16_3.f[0] = d__1 * d__1;
17683 /* Computing 3rd power */
17684     d__1 = l2_3.x[1] - l2_3.x[2];
17685     l16_3.f[1] = d__1 * (d__1 * d__1) * 10.;
17686 /* Computing 2nd power */
17687     d__1 = std::tan(l2_3.x[2] - l2_3.x[3]);
17688     l16_3.f[2] = d__1 * d__1;
17689 /* Computing 4th power */
17690     d__1 = l2_3.x[0], d__1 *= d__1;
17691     l16_3.f[3] = d__1 * d__1;
17692     l16_3.f[4] = l2_3.x[3] - 1.;
17693     if (*mode == 3) {
17694     goto labelL3;
17695     }
17696     l6_1.fx = 0.;
17697     for (i__ = 1; i__ <= 5; ++i__) {
17698 /* L8: */
17699 /* Computing 2nd power */
17700     d__1 = l16_3.f[i__ - 1];
17701     l6_1.fx += d__1 * d__1;
17702     }
17703     return 0;
17704 labelL3:
17705     a = std::exp(l2_3.x[0]) - l2_3.x[1];
17706     b = std::tan(l2_3.x[2] - l2_3.x[3]);
17707 /* Computing 2nd power */
17708     d__1 =std::cos(l2_3.x[2] - l2_3.x[3]);
17709     c__ = b / (d__1 * d__1);
17710     l17_8.df[0] = std::exp(l2_3.x[0]) * 2. * a;
17711     l17_8.df[5] = a * -2.;
17712 /* Computing 2nd power */
17713     d__1 = l2_3.x[1] - l2_3.x[2];
17714     l17_8.df[6] = d__1 * d__1 * 30.;
17715     l17_8.df[11] = -l17_8.df[6];
17716     l17_8.df[12] = c__ * 2.;
17717     l17_8.df[17] = -l17_8.df[12];
17718 /* Computing 3rd power */
17719     d__1 = l2_3.x[0];
17720     l17_8.df[3] = d__1 * (d__1 * d__1) * 4.;
17721 /* Computing 3rd power */
17722     d__1 = a;
17723 /* Computing 7th power */
17724     d__2 = l2_3.x[0], d__3 = d__2, d__2 *= d__2, d__3 *= d__2;
17725     l4_3.gf[0] = std::exp(l2_3.x[0]) * 4. * (d__1 * (d__1 * d__1)) + d__3 * (d__2 *
17726          d__2) * 8.;
17727 /* Computing 3rd power */
17728     d__1 = a;
17729 /* Computing 5th power */
17730     d__2 = l2_3.x[1] - l2_3.x[2], d__3 = d__2, d__2 *= d__2;
17731     l4_3.gf[1] = d__1 * (d__1 * d__1) * -4. + d__3 * (d__2 * d__2) * 600.;
17732 /* Computing 5th power */
17733     d__1 = l2_3.x[1] - l2_3.x[2], d__2 = d__1, d__1 *= d__1;
17734     l4_3.gf[2] = b * 4. * b * c__ - d__2 * (d__1 * d__1) * 600.;
17735     l4_3.gf[3] = b * -4. * b * c__ + (l2_3.x[3] - 1.) * 2.;
17736 labelL4:
17737     return 0;
17738 } /* tp261_ */
17739 
17740 
tp262_(int * mode)17741 /* Subroutine */ int tp262_(int *mode)
17742 {
17743     /* Initialized data */
17744 
17745     static Real hgg[16]    /* was [4][4] */ = { -1.,-.2,-2.,1.,-1.,-.5,
17746         -1.,1.,-1.,-1.,-.5,1.,-1.,-2.,-.2,-2. };
17747 
17748     static int i__, j;
17749 
17750     switch ((int)*mode) {
17751     case 1:  goto labelL1;
17752     case 2:  goto labelL2;
17753     case 3:  goto labelL3;
17754     case 4:  goto labelL4;
17755     case 5:  goto labelL3;
17756     }
17757 labelL1:
17758     l1_1.n = 4;
17759     l1_1.nili = 3;
17760     l1_1.ninl = 0;
17761     l1_1.neli = 1;
17762     l1_1.nenl = 0;
17763     for (i__ = 1; i__ <= 4; ++i__) {
17764     l2_3.x[i__ - 1] = 1.;
17765     l11_3.lxl[i__ - 1] = true;
17766     l12_3.lxu[i__ - 1] = false;
17767     l13_3.xl[i__ - 1] = 0.;
17768     for (j = 1; j <= 4; ++j) {
17769         l5_28.gg[i__ + (j << 2) - 5] = hgg[i__ + (j << 2) - 5];
17770 /* labelL6: */
17771     }
17772     }
17773     for (i__ = 1; i__ <= 3; i__ += 2) {
17774     l4_3.gf[i__ - 1] = -.5;
17775 /* L7: */
17776     l4_3.gf[i__] = -1.;
17777     }
17778     l20_6.lex = true;
17779     l20_6.nex = 1;
17780     l20_6.fex = -10.;
17781     l20_6.xex[0] = 0.;
17782     l20_6.xex[1] = 8.6666666666666661;
17783     l20_6.xex[2] = 0.;
17784     l20_6.xex[3] = 1.3333333333333333;
17785     return 0;
17786 labelL2:
17787     l6_1.fx = l2_3.x[0] * -.5 - l2_3.x[1] - l2_3.x[2] * .5 - l2_3.x[3];
17788 labelL3:
17789     return 0;
17790 labelL4:
17791     if (l9_7.index1[0]) {
17792     l3_6.g[0] = 10. - l2_3.x[0] - l2_3.x[1] - l2_3.x[2] - l2_3.x[3];
17793     }
17794     if (l9_7.index1[1]) {
17795     l3_6.g[1] = 10. - l2_3.x[0] * .2 - l2_3.x[1] * .5 - l2_3.x[2] -
17796         l2_3.x[3] * 2.;
17797     }
17798     if (l9_7.index1[2]) {
17799     l3_6.g[2] = 10. - l2_3.x[0] * 2. - l2_3.x[1] - l2_3.x[2] * .5 -
17800         l2_3.x[3] * .2;
17801     }
17802     if (l9_7.index1[3]) {
17803     l3_6.g[3] = l2_3.x[0] + l2_3.x[1] + l2_3.x[2] - l2_3.x[3] * 2. - 6.;
17804     }
17805     return 0;
17806 } /* tp262_ */
17807 
17808 
tp263_(int * mode)17809 /* Subroutine */ int tp263_(int *mode)
17810 {
17811     /* System generated locals */
17812     Real d__1, d__2;
17813 
17814     /* Local variables */
17815     static int i__;
17816 
17817     switch ((int)*mode) {
17818     case 1:  goto labelL1;
17819     case 2:  goto labelL2;
17820     case 3:  goto labelL3;
17821     case 4:  goto labelL4;
17822     case 5:  goto labelL5;
17823     }
17824 labelL1:
17825     l1_1.n = 4;
17826     l1_1.nili = 0;
17827     l1_1.ninl = 2;
17828     l1_1.neli = 0;
17829     l1_1.nenl = 2;
17830     for (i__ = 1; i__ <= 4; ++i__) {
17831     l2_3.x[i__ - 1] = 10.;
17832     l11_3.lxl[i__ - 1] = false;
17833 /* labelL6: */
17834     l12_3.lxu[i__ - 1] = false;
17835     }
17836     l5_28.gg[4] = 1.;
17837     l5_28.gg[8] = 0.;
17838     l5_28.gg[5] = -1.;
17839     l5_28.gg[9] = 0.;
17840     l5_28.gg[6] = 1.;
17841     l5_28.gg[7] = -1.;
17842     l5_28.gg[11] = 0.;
17843     l4_3.gf[0] = -1.;
17844     for (i__ = 1; i__ <= 3; ++i__) {
17845     l5_28.gg[i__ + 11] = 0.;
17846 /* L7: */
17847     l4_3.gf[i__] = 0.;
17848     }
17849     l20_6.lex = true;
17850     l20_6.nex = 1;
17851     l20_6.fex = -1.;
17852     for (i__ = 1; i__ <= 2; ++i__) {
17853     l20_6.xex[i__ - 1] = 1.;
17854 /* L8: */
17855     l20_6.xex[i__ + 1] = 0.;
17856     }
17857     return 0;
17858 labelL2:
17859     l6_1.fx = -l2_3.x[0];
17860 labelL3:
17861     return 0;
17862 labelL4:
17863     if (l9_7.index1[0]) {
17864 /* Computing 3rd power */
17865     d__1 = l2_3.x[0];
17866     l3_6.g[0] = l2_3.x[1] - d__1 * (d__1 * d__1);
17867     }
17868     if (l9_7.index1[1]) {
17869 /* Computing 2nd power */
17870     d__1 = l2_3.x[0];
17871     l3_6.g[1] = d__1 * d__1 - l2_3.x[1];
17872     }
17873     if (l9_7.index1[2]) {
17874 /* Computing 3rd power */
17875     d__1 = l2_3.x[0];
17876 /* Computing 2nd power */
17877     d__2 = l2_3.x[2];
17878     l3_6.g[2] = l2_3.x[1] - d__1 * (d__1 * d__1) - d__2 * d__2;
17879     }
17880     if (l9_7.index1[3]) {
17881 /* Computing 2nd power */
17882     d__1 = l2_3.x[0];
17883 /* Computing 2nd power */
17884     d__2 = l2_3.x[3];
17885     l3_6.g[3] = d__1 * d__1 - l2_3.x[1] - d__2 * d__2;
17886     }
17887     return 0;
17888 labelL5:
17889     if (l10_7.index2[0]) {
17890 /* Computing 2nd power */
17891     d__1 = l2_3.x[0];
17892     l5_28.gg[0] = d__1 * d__1 * -3.;
17893     }
17894     if (l10_7.index2[1]) {
17895     l5_28.gg[1] = l2_3.x[0] * 2.;
17896     }
17897     if (! l10_7.index2[2]) {
17898     goto labelL9;
17899     }
17900 /* Computing 2nd power */
17901     d__1 = l2_3.x[0];
17902     l5_28.gg[2] = d__1 * d__1 * -3.;
17903     l5_28.gg[10] = l2_3.x[2] * -2.;
17904 labelL9:
17905     if (! l10_7.index2[3]) {
17906     goto labelL10;
17907     }
17908     l5_28.gg[3] = l2_3.x[0] * 2.;
17909     l5_28.gg[15] = l2_3.x[3] * -2.;
17910 labelL10:
17911     return 0;
17912 } /* tp263_ */
17913 
17914 
tp264_(int * mode)17915 /* Subroutine */ int tp264_(int *mode)
17916 {
17917     /* System generated locals */
17918     Real d__1, d__2, d__3, d__4;
17919 
17920     /* Local variables */
17921     static int i__;
17922 
17923     switch ((int)*mode) {
17924     case 1:  goto labelL1;
17925     case 2:  goto labelL2;
17926     case 3:  goto labelL3;
17927     case 4:  goto labelL4;
17928     case 5:  goto labelL5;
17929     }
17930 labelL1:
17931     l1_1.n = 4;
17932     l1_1.nili = 0;
17933     l1_1.ninl = 3;
17934     l1_1.neli = 0;
17935     l1_1.nenl = 0;
17936     for (i__ = 1; i__ <= 4; ++i__) {
17937     l2_3.x[i__ - 1] = 0.;
17938     l11_3.lxl[i__ - 1] = false;
17939 /* labelL6: */
17940     l12_3.lxu[i__ - 1] = false;
17941     }
17942     l5_7.gg[11] = 1.;
17943     l20_6.lex = true;
17944     l20_6.nex = 1;
17945     l20_6.fex = -.44;
17946     l20_6.xex[0] = 0.;
17947     l20_6.xex[1] = 1.;
17948     l20_6.xex[2] = 2.;
17949     l20_6.xex[3] = -1.;
17950     return 0;
17951 labelL2:
17952 /* Computing 2nd power */
17953     d__1 = l2_3.x[0];
17954 /* Computing 2nd power */
17955     d__2 = l2_3.x[1];
17956 /* Computing 2nd power */
17957     d__3 = l2_3.x[2];
17958 /* Computing 2nd power */
17959     d__4 = l2_3.x[3];
17960     l6_1.fx = (d__1 * d__1 + d__2 * d__2 + d__3 * d__3 * 2. + d__4 * d__4 -
17961         l2_3.x[0] * 5. - l2_3.x[1] * 5. - l2_3.x[2] * 21. + l2_3.x[3] *
17962         7.) * (float).01;
17963     return 0;
17964 labelL3:
17965     l4_3.gf[0] = (l2_3.x[0] * 2. - 5.) * (float).01;
17966     l4_3.gf[1] = (l2_3.x[1] * 2. - 5.) * (float).01;
17967     l4_3.gf[2] = (l2_3.x[2] * 4. - 21.) * (float).01;
17968     l4_3.gf[3] = (l2_3.x[3] * 2. + 7.) * (float).01;
17969     return 0;
17970 labelL4:
17971     if (l9_4.index1[0]) {
17972 /* Computing 2nd power */
17973     d__1 = l2_3.x[0];
17974 /* Computing 2nd power */
17975     d__2 = l2_3.x[1];
17976 /* Computing 2nd power */
17977     d__3 = l2_3.x[2];
17978 /* Computing 2nd power */
17979     d__4 = l2_3.x[3];
17980     l3_3.g[0] = 8. - d__1 * d__1 - d__2 * d__2 - d__3 * d__3 - d__4 *
17981         d__4 - l2_3.x[0] + l2_3.x[1] - l2_3.x[2] + l2_3.x[3];
17982     }
17983     if (l9_4.index1[1]) {
17984 /* Computing 2nd power */
17985     d__1 = l2_3.x[0];
17986 /* Computing 2nd power */
17987     d__2 = l2_3.x[1];
17988 /* Computing 2nd power */
17989     d__3 = l2_3.x[2];
17990 /* Computing 2nd power */
17991     d__4 = l2_3.x[3];
17992     l3_3.g[1] = 9. - d__1 * d__1 - d__2 * d__2 * 2. - d__3 * d__3 - d__4 *
17993          d__4 * 2. + l2_3.x[0] + l2_3.x[3];
17994     }
17995     if (l9_4.index1[2]) {
17996 /* Computing 2nd power */
17997     d__1 = l2_3.x[0];
17998 /* Computing 2nd power */
17999     d__2 = l2_3.x[1];
18000 /* Computing 2nd power */
18001     d__3 = l2_3.x[2];
18002     l3_3.g[2] = 5. - d__1 * d__1 * 2. - d__2 * d__2 - d__3 * d__3 -
18003         l2_3.x[0] * 2. + l2_3.x[1] + l2_3.x[3];
18004     }
18005     return 0;
18006 labelL5:
18007     if (! l10_4.index2[0]) {
18008     goto labelL9;
18009     }
18010     l5_7.gg[0] = -1. - l2_3.x[0] * 2.;
18011     l5_7.gg[3] = 1. - l2_3.x[1] * 2.;
18012     l5_7.gg[6] = -1. - l2_3.x[2] * 2.;
18013     l5_7.gg[9] = 1. - l2_3.x[3] * 2.;
18014 labelL9:
18015     if (! l10_4.index2[1]) {
18016     goto labelL10;
18017     }
18018     l5_7.gg[1] = 1. - l2_3.x[0] * 2.;
18019     l5_7.gg[4] = l2_3.x[1] * -4.;
18020     l5_7.gg[7] = l2_3.x[2] * -2.;
18021     l5_7.gg[10] = -1. - l2_3.x[3] * 4.;
18022 labelL10:
18023     if (! l10_4.index2[2]) {
18024     goto labelL11;
18025     }
18026     l5_7.gg[2] = -2. - l2_3.x[0] * 4.;
18027     l5_7.gg[5] = 1. - l2_3.x[1] * 2.;
18028     l5_7.gg[8] = l2_3.x[2] * -2.;
18029 labelL11:
18030     return 0;
18031 } /* tp264_ */
18032 
18033 
tp265_(int * mode)18034 /* Subroutine */ int tp265_(int *mode)
18035 {
18036     /* Initialized data */
18037 
18038     static Real hgg[8]    /* was [2][4] */ = { 1.,0.,1.,0.,0.,1.,0.,1. }
18039         ;
18040 
18041     /* Local variables */
18042     static int i__, j;
18043 
18044     switch ((int)*mode) {
18045     case 1:  goto labelL1;
18046     case 2:  goto labelL2;
18047     case 3:  goto labelL3;
18048     case 4:  goto labelL4;
18049     case 5:  goto labelL5;
18050     }
18051 labelL1:
18052     l1_1.n = 4;
18053     l1_1.nili = 0;
18054     l1_1.ninl = 0;
18055     l1_1.neli = 2;
18056     l1_1.nenl = 0;
18057     for (i__ = 1; i__ <= 4; ++i__) {
18058     l2_3.x[i__ - 1] = 0.;
18059     l11_3.lxl[i__ - 1] = true;
18060     l13_3.xl[i__ - 1] = 0.;
18061     l12_3.lxu[i__ - 1] = false;
18062     l14_3.xu[i__ - 1] = 1.;
18063     for (j = 1; j <= 2; ++j) {
18064         l5_6.gg[j + (i__ << 1) - 3] = hgg[j + (i__ << 1) - 3];
18065 /* labelL6: */
18066     }
18067     }
18068     l20_2.lex = true;
18069     l20_2.nex = 2;
18070     l20_2.fex = .97474658;
18071     for (i__ = 1; i__ <= 3; i__ += 2) {
18072     l20_2.xex[i__ - 1] = 1.;
18073 /* L7: */
18074     l20_2.xex[i__] = 0.;
18075     }
18076     for (i__ = 5; i__ <= 8; ++i__) {
18077 /* L8: */
18078     l20_2.xex[i__ - 1] = l20_2.xex[9 - i__ - 1];
18079     }
18080     return 0;
18081 labelL2:
18082     l6_1.fx = 2.;
18083     for (i__ = 1; i__ <= 2; ++i__) {
18084 /* labelL9: */
18085     l6_1.fx -= std::exp(l2_3.x[i__ - 1] * -10. * std::exp(-l2_3.x[i__ + 1]));
18086     }
18087     return 0;
18088 labelL3:
18089     for (i__ = 1; i__ <= 2; ++i__) {
18090     l4_3.gf[i__ - 1] = std::exp(l2_3.x[i__ - 1] * -10. * std::exp(-l2_3.x[i__ + 1])
18091         - l2_3.x[i__ + 1]) * 10.;
18092 /* labelL10: */
18093     l4_3.gf[i__ + 1] = -l2_3.x[i__ - 1] * l4_3.gf[i__ - 1];
18094     }
18095     return 0;
18096 labelL4:
18097     if (l9_3.index1[0]) {
18098     l3_2.g[0] = l2_3.x[0] + l2_3.x[1] - 1.;
18099     }
18100     if (l9_3.index1[1]) {
18101     l3_2.g[1] = l2_3.x[2] + l2_3.x[3] - 1.;
18102     }
18103 labelL5:
18104     return 0;
18105 } /* tp265_ */
18106 
18107 
tp266_(int * mode)18108 /* Subroutine */ int tp266_(int *mode)
18109 {
18110     /* Initialized data */
18111 
18112     static Real a[10] = { .0426149,.0352053,.0878058,.0330812,.0580924,
18113         .649704,.344144,-.627443,.001828,-.224783 };
18114     static Real d__[10] = { 2.34659,2.84048,1.13888,3.02286,1.72139,
18115         .153917,.290577,-.159378,54.691,-.444873 };
18116     static Real c__[50]    /* was [10][5] */ = { -.564255,.535493,
18117         .586387,.608734,.774227,-.435033,.759468,-.152448,-.821772,
18118         .819831,.392417,.658799,.289826,.984915,.325421,-.688583,-.627795,
18119         -.546437,-.53412,-.910632,-.404979,-.0636666,.854402,.375699,
18120         -.151719,.222278,.0403142,.484134,-.798498,-.480344,.927589,
18121         -.681091,.789312,.239547,.448051,-.524653,.724666,.353951,
18122         -.658572,-.871758,-.0735083,-.869487,.949721,.463136,.149926,
18123         .413248,-.0182537,.887866,.662362,-.978666 };
18124     static Real b[25]    /* was [5][5] */ = { .354033,-.0230349,
18125         -.211938,-.0554288,.220429,-.0230349,.29135,-.00180333,-.111141,
18126         .0485461,-.211938,-.00180333,-.815808,-.133538,-.38067,-.0554288,
18127         -.111141,-.133538,.389198,-.131586,.220429,.0485461,-.38067,
18128         -.131586,.534706 };
18129 
18130     /* System generated locals */
18131     Real d__1;
18132 
18133     /* Local variables */
18134     static int ninl;
18135     Real tp266a_(Real*, Real*, Real*, Real*, int*, Real*);
18136     static int i__, k, l;
18137     static Real hf;
18138 
18139     switch ((int)*mode) {
18140     case 1:  goto labelL1;
18141     case 2:  goto labelL2;
18142     case 3:  goto labelL2;
18143     case 4:  goto labelL4;
18144     case 5:  goto labelL4;
18145     }
18146 labelL1:
18147     l1_2.n = 5;
18148     l15_1.lsum = 10;
18149     l1_2.nili = 0;
18150     ninl = 0;
18151     l1_2.neli = 0;
18152     l1_2.nenl = 0;
18153     for (i__ = 1; i__ <= 5; ++i__) {
18154     l2_4.x[i__ - 1] = .1;
18155     l11_4.lxl[i__ - 1] = false;
18156     l12_4.lxu[i__ - 1] = false;
18157 /* labelL6: */
18158     l20_7.xex[i__ - 1] = 0.;
18159     }
18160     l20_7.nex = 1;
18161     l20_7.lex = true;
18162 /*      FEX=0.0 */
18163 /*      DO I=1,10 */
18164 /*         FEX=FEX+A(I)**2 */
18165 /*      ENDDO */
18166     l20_7.fex = 1e4;
18167     return 0;
18168 labelL2:
18169     for (i__ = 1; i__ <= 10; ++i__) {
18170 /* labelL20: */
18171     l16_4.f[i__ - 1] = tp266a_(&a[i__ - 1], b, c__, &d__[i__ - 1], &i__,
18172         l2_4.x);
18173     }
18174     if (*mode == 3) {
18175     goto labelL3;
18176     }
18177     l6_1.fx = 0.;
18178     for (i__ = 1; i__ <= 10; ++i__) {
18179 /* L7: */
18180 /* Computing 2nd power */
18181     d__1 = l16_4.f[i__ - 1];
18182     l6_1.fx += d__1 * d__1;
18183     }
18184     l6_1.fx *= 1e4;
18185     return 0;
18186 labelL3:
18187     for (k = 1; k <= 5; ++k) {
18188     l4_4.gf[k - 1] = 0.;
18189     for (i__ = 1; i__ <= 10; ++i__) {
18190         hf = 0.;
18191         for (l = 1; l <= 5; ++l) {
18192 /* labelL10: */
18193         hf += (b[k + l * 5 - 6] + b[l + k * 5 - 6]) * l2_4.x[l - 1];
18194         }
18195         l17_9.df[i__ + k * 10 - 11] = c__[i__ + k * 10 - 11] + d__[i__ -
18196             1] * .5 * hf;
18197         l4_4.gf[k - 1] += l16_4.f[i__ - 1] * 2. * l17_9.df[i__ + k * 10 -
18198             11];
18199 /* L8: */
18200         l4_4.gf[k - 1] *= 1e4;
18201     }
18202     }
18203 labelL4:
18204     return 0;
18205 } /* tp266_ */
18206 
tp266a_(Real * ai,Real * b,Real * c__,Real * di,int * i__,Real * x)18207 Real tp266a_(Real *ai, Real *b, Real *c__, Real *di, int *i__, Real *x)
18208 {
18209     /* System generated locals */
18210     Real ret_val;
18211 
18212     /* Local variables */
18213     static int k, l;
18214     static Real hf;
18215 
18216 
18217 /*  FUNKTION ZUR BERECHNUNG VON */
18218 /*      F(I,X)=(A+C*X+0.5*X'*B*X*D)(I) */
18219 /*  D.H. DAS I-TE ELEMENT DES REAL*8 VEKTORS F(10) FUER I=1,..,10 */
18220 
18221     /* Parameter adjustments */
18222     --x;
18223     c__ -= 11;
18224     b -= 6;
18225 
18226     /* Function Body */
18227     ret_val = *ai;
18228     for (k = 1; k <= 5; ++k) {
18229     hf = 0.;
18230     for (l = 1; l <= 5; ++l) {
18231 /* labelL20: */
18232         hf += b[k + l * 5] * x[l];
18233     }
18234     ret_val += x[k] * (c__[*i__ + k * 10] + *di * .5 * hf);
18235 /* labelL10: */
18236     }
18237     return ret_val;
18238 } /* tp266a_ */
18239 
18240 
tp267_(int * mode)18241 /* Subroutine */ int tp267_(int *mode)
18242 {
18243     /* System generated locals */
18244     Real d__1;
18245 
18246     /* Local variables */
18247     static Real h__;
18248     static int i__, j;
18249 
18250     switch ((int)*mode) {
18251     case 1:  goto labelL1;
18252     case 2:  goto labelL2;
18253     case 3:  goto labelL2;
18254     case 4:  goto labelL4;
18255     case 5:  goto labelL4;
18256     }
18257 labelL1:
18258     l1_1.n = 5;
18259     l1_1.nili = 0;
18260     l1_1.ninl = 0;
18261     l1_1.neli = 0;
18262     l1_1.nenl = 0;
18263     for (i__ = 1; i__ <= 5; ++i__) {
18264     l2_4.x[i__ - 1] = 2.;
18265     l11_4.lxl[i__ - 1] = false;
18266     l14_4.xu[i__ - 1] = (float)15.;
18267 /* labelL6: */
18268     l12_4.lxu[i__ - 1] = true;
18269     }
18270     l11_4.lxl[0] = true;
18271     l11_4.lxl[1] = true;
18272     l11_4.lxl[4] = true;
18273     l13_4.xl[0] = (float)0.;
18274     l13_4.xl[1] = (float)0.;
18275     l13_4.xl[4] = (float)0.;
18276     l15_1.lsum = 11;
18277     l20_10.lex = true;
18278     l20_10.nex = 2;
18279     l20_10.fex = 0.;
18280     l20_10.xex[0] = 1.;
18281     l20_10.xex[1] = 10.;
18282     l20_10.xex[2] = 1.;
18283     l20_10.xex[3] = 5.;
18284     l20_10.xex[4] = 4.;
18285     l20_10.xex[5] = 10.;
18286     l20_10.xex[6] = 1.;
18287     l20_10.xex[7] = -5.;
18288     l20_10.xex[8] = -1.;
18289     l20_10.xex[9] = 4.;
18290     return 0;
18291 labelL2:
18292     for (i__ = 1; i__ <= 11; ++i__) {
18293     h__ = (Real) i__ * .1;
18294 /*      HF(1)=X(3)*DEXP(-X(1)*H) */
18295 /*      HF(2)=X(4)*DEXP(-X(2)*H) */
18296 /*      HF(3)=3.D+0*DEXP(-X(5)*H) */
18297 /*      HF(4)=-DEXP(-H)+5.D+0*DEXP(-1.D+1*H)-3.D+0*DEXP(-4.D+0*H) */
18298 /*      F(I)=HF(1)-HF(2)+HF(3)+HF(4) */
18299 /* labelL20: */
18300     l16_7.f[i__ - 1] = l2_4.x[2] * std::exp(-l2_4.x[0] * h__) - l2_4.x[3] *
18301         exp(-l2_4.x[1] * h__) + std::exp(-l2_4.x[4] * h__) * 3. - (exp(
18302         -h__) - std::exp(h__ * -10.) * 5. + std::exp(h__ * -4.) * 3.);
18303     }
18304     if (*mode == 3) {
18305     goto labelL3;
18306     }
18307     l6_1.fx = 0.;
18308     for (i__ = 1; i__ <= 11; ++i__) {
18309 /* L7: */
18310 /* Computing 2nd power */
18311     d__1 = l16_7.f[i__ - 1];
18312     l6_1.fx += d__1 * d__1;
18313     }
18314     return 0;
18315 labelL3:
18316     for (j = 1; j <= 11; ++j) {
18317     h__ = (Real) j * .1;
18318     l17_10.df[j + 21] = std::exp(-l2_4.x[0] * h__);
18319     l17_10.df[j + 32] = -exp(-l2_4.x[1] * h__);
18320     l17_10.df[j - 1] = -h__ * l2_4.x[2] * l17_10.df[j + 21];
18321     l17_10.df[j + 10] = -h__ * l2_4.x[3] * l17_10.df[j + 32];
18322 /* L8: */
18323     l17_10.df[j + 43] = -h__ * 3. * std::exp(-l2_4.x[4] * h__);
18324     }
18325     for (i__ = 1; i__ <= 5; ++i__) {
18326     l4_4.gf[i__ - 1] = 0.;
18327     for (j = 1; j <= 11; ++j) {
18328 /* labelL13: */
18329         l4_4.gf[i__ - 1] += l16_7.f[j - 1] * 2. * l17_10.df[j + i__ * 11
18330             - 12];
18331     }
18332     }
18333 labelL4:
18334     return 0;
18335 } /* tp267_ */
18336 
18337 
tp268_(int * mode)18338 /* Subroutine */ int tp268_(int *mode)
18339 {
18340     /* Initialized data */
18341 
18342     static int hgg[25]    /* was [5][5] */ = { -1,10,-8,8,-4,-1,10,1,-1,
18343         -2,-1,-3,-2,2,3,-1,5,-5,5,-5,-1,4,3,-3,1 };
18344     static int dd[25]    /* was [5][5] */ = { 10197,-12454,-1013,1948,
18345         329,-12454,20909,-1733,-4914,-186,-1013,-1733,1755,1089,-174,1948,
18346         -4914,1089,1515,-22,329,-186,-174,-22,27 };
18347     static int ddvekt[5] = { -9170,17099,-2271,-4336,-43 };
18348     static int dvdv = 14463;
18349 
18350     static int ninl, i__, j;
18351     static Real hf;
18352 
18353 /* KONSTANTE DATEN DER ZIELFUNKTION: */
18354 /*         DD=D'*D */
18355 /*         DDVEKT=DVEKT'*D */
18356 /*         DVDV=DVEKT'*DVEKT=14463 */
18357 /* MIT */
18358 /*          -                      - */
18359 /*          |  -74   80   18  -11  -4  | */
18360 /*          |   14  -69   21   28   0  | */
18361 /*     D= |   66  -72   -5    7   1  | */
18362 /*          |  -12   66  -30  -23   3  | */
18363 /*          |    3    8   -7   -4   1  | */
18364 /*          |    4  -12    4    4   0  | */
18365 /*          -                       - */
18366 
18367 /*     DVEKT=( 51, -61, -56, 69, 10, -12 )' */
18368     switch ((int)*mode) {
18369     case 1:  goto labelL1;
18370     case 2:  goto labelL2;
18371     case 3:  goto labelL3;
18372     case 4:  goto labelL4;
18373     case 5:  goto labelL5;
18374     }
18375 labelL1:
18376     l1_2.n = 5;
18377     l1_2.nili = 5;
18378     ninl = 0;
18379     l1_2.neli = 0;
18380     l1_2.nenl = 0;
18381     for (i__ = 1; i__ <= 5; ++i__) {
18382     l2_4.x[i__ - 1] = 1.;
18383     l11_4.lxl[i__ - 1] = false;
18384     l12_4.lxu[i__ - 1] = false;
18385     for (j = 1; j <= 5; ++j) {
18386 /* labelL6: */
18387         l5_29.gg[i__ + j * 5 - 6] = (Real) hgg[i__ + j * 5 - 6];
18388     }
18389     }
18390     l20_7.lex = true;
18391     l20_7.nex = 1;
18392     l20_7.fex = 0.;
18393     l20_7.xex[0] = 1.;
18394     l20_7.xex[1] = 2.;
18395     l20_7.xex[2] = -1.;
18396     l20_7.xex[3] = 3.;
18397     l20_7.xex[4] = -4.;
18398     return 0;
18399 labelL2:
18400     l6_1.fx = (Real) dvdv;
18401     for (i__ = 1; i__ <= 5; ++i__) {
18402     hf = 0.;
18403     for (j = 1; j <= 5; ++j) {
18404 /* L8: */
18405         hf += (Real) dd[i__ + j * 5 - 6] * l2_4.x[j - 1];
18406     }
18407 /* L7: */
18408     l6_1.fx += l2_4.x[i__ - 1] * (hf - (Real) ddvekt[i__ - 1] * 2.);
18409     }
18410     return 0;
18411 labelL3:
18412     for (i__ = 1; i__ <= 5; ++i__) {
18413     l4_4.gf[i__ - 1] = (Real) ddvekt[i__ - 1] * -2.;
18414     for (j = 1; j <= 5; ++j) {
18415 /* labelL9: */
18416         l4_4.gf[i__ - 1] += (Real) (dd[i__ + j * 5 - 6] + dd[j +
18417             i__ * 5 - 6]) * l2_4.x[j - 1];
18418     }
18419     }
18420     return 0;
18421 labelL4:
18422     if (l9_5.index1[0]) {
18423     l3_4.g[0] = -l2_4.x[0] - l2_4.x[1] - l2_4.x[2] - l2_4.x[3] - l2_4.x[4]
18424          + 5;
18425     }
18426     if (l9_5.index1[1]) {
18427     l3_4.g[1] = l2_4.x[0] * 10. + l2_4.x[1] * 10. - l2_4.x[2] * 3. +
18428         l2_4.x[3] * 5. + l2_4.x[4] * 4. - 20.;
18429     }
18430     if (l9_5.index1[2]) {
18431     l3_4.g[2] = l2_4.x[0] * -8. + l2_4.x[1] - l2_4.x[2] * 2. - l2_4.x[3] *
18432          5. + l2_4.x[4] * 3. + 40.;
18433     }
18434     if (l9_5.index1[3]) {
18435     l3_4.g[3] = l2_4.x[0] * 8. - l2_4.x[1] + l2_4.x[2] * 2. + l2_4.x[3] *
18436         5. - l2_4.x[4] * 3. - 11.;
18437     }
18438     if (l9_5.index1[4]) {
18439     l3_4.g[4] = l2_4.x[0] * -4. - l2_4.x[1] * 2. + l2_4.x[2] * 3. -
18440         l2_4.x[3] * 5. + l2_4.x[4] + 30.;
18441     }
18442 labelL5:
18443     return 0;
18444 } /* tp268_ */
18445 
18446 
tp269_(int * mode)18447 /* Subroutine */ int tp269_(int *mode)
18448 {
18449     /* Initialized data */
18450 
18451     static Real hgg[15]    /* was [3][5] */ = { 1.,0.,0.,3.,0.,1.,0.,1.,
18452         0.,0.,1.,0.,0.,-2.,-1. };
18453     static Real hdf[20]    /* was [4][5] */ = { 1.,0.,0.,0.,-1.,1.,0.,0.,
18454         0.,1.,0.,0.,0.,0.,1.,0.,0.,0.,0.,1. };
18455 
18456     /* System generated locals */
18457     Real d__1;
18458 
18459     /* Local variables */
18460     static int i__, j;
18461 
18462     switch ((int)*mode) {
18463     case 1:  goto labelL1;
18464     case 2:  goto labelL2;
18465     case 3:  goto labelL2;
18466     case 4:  goto labelL4;
18467     case 5:  goto labelL5;
18468     }
18469 labelL1:
18470     l1_1.n = 5;
18471     l15_1.lsum = 4;
18472     l1_1.nili = 0;
18473     l1_1.ninl = 0;
18474     l1_1.neli = 3;
18475     l1_1.nenl = 0;
18476     for (i__ = 1; i__ <= 5; ++i__) {
18477     l2_4.x[i__ - 1] = 2.;
18478     l11_4.lxl[i__ - 1] = false;
18479     l12_4.lxu[i__ - 1] = false;
18480     for (j = 1; j <= 3; ++j) {
18481         l5_9.gg[j + i__ * 3 - 4] = hgg[j + i__ * 3 - 4];
18482 /* L7: */
18483         l17_8.df[j + (i__ << 2) - 5] = hdf[j + (i__ << 2) - 5];
18484     }
18485 /* labelL6: */
18486     l17_8.df[(i__ << 2) - 1] = hdf[(i__ << 2) - 1];
18487     }
18488     l20_7.lex = true;
18489     l20_7.nex = 1;
18490     l20_7.fex = 4.0930232558139537;
18491     l20_7.xex[0] = -.76744186046511631;
18492     l20_7.xex[1] = .2558139534883721;
18493     l20_7.xex[2] = .62790697674418605;
18494     l20_7.xex[3] = -.11627906976744186;
18495     l20_7.xex[4] = .2558139534883721;
18496     return 0;
18497 labelL2:
18498     l16_3.f[0] = l2_4.x[0] - l2_4.x[1];
18499     l16_3.f[1] = l2_4.x[1] + l2_4.x[2] - 2.;
18500     l16_3.f[2] = l2_4.x[3] - 1.;
18501     l16_3.f[3] = l2_4.x[4] - 1.;
18502     if (*mode == 3) {
18503     goto labelL3;
18504     }
18505     l6_1.fx = 0.;
18506     for (i__ = 1; i__ <= 4; ++i__) {
18507 /* L8: */
18508 /* Computing 2nd power */
18509     d__1 = l16_3.f[i__ - 1];
18510     l6_1.fx += d__1 * d__1;
18511     }
18512     return 0;
18513 labelL3:
18514     l4_4.gf[0] = (l2_4.x[0] - l2_4.x[1]) * 2.;
18515     l4_4.gf[1] = (l2_4.x[1] * 2. + l2_4.x[2] - l2_4.x[0] - 2.) * 2.;
18516     l4_4.gf[2] = (l2_4.x[1] + l2_4.x[2] - 2.) * 2.;
18517     l4_4.gf[3] = (l2_4.x[3] - 1.) * 2.;
18518     l4_4.gf[4] = (l2_4.x[4] - 1.) * 2.;
18519     return 0;
18520 labelL4:
18521     if (l9_4.index1[0]) {
18522     l3_3.g[0] = l2_4.x[0] + l2_4.x[1] * 3.;
18523     }
18524     if (l9_4.index1[1]) {
18525     l3_3.g[1] = l2_4.x[2] + l2_4.x[3] - l2_4.x[4] * 2.;
18526     }
18527     if (l9_4.index1[2]) {
18528     l3_3.g[2] = l2_4.x[1] - l2_4.x[4];
18529     }
18530 labelL5:
18531     return 0;
18532 } /* tp269_ */
18533 
tp270_(int * mode)18534 /* Subroutine */ int tp270_(int *mode)
18535 {
18536     /* System generated locals */
18537     Real d__1, d__2, d__3, d__4, d__5;
18538 
18539     /* Local variables */
18540     static int i__;
18541 
18542     switch ((int)*mode) {
18543     case 1:  goto labelL1;
18544     case 2:  goto labelL2;
18545     case 3:  goto labelL3;
18546     case 4:  goto labelL4;
18547     case 5:  goto labelL5;
18548     }
18549 labelL1:
18550     l1_1.n = 5;
18551     l1_1.nili = 0;
18552     l1_1.ninl = 1;
18553     l1_1.neli = 0;
18554     l1_1.nenl = 0;
18555     for (i__ = 1; i__ <= 4; ++i__) {
18556     l2_4.x[i__ - 1] = (Real) i__ + .1;
18557     l20_7.xex[i__ - 1] = (Real) i__;
18558     l11_4.lxl[i__ - 1] = true;
18559     l12_4.lxu[i__ - 1] = false;
18560 /* labelL6: */
18561     l13_4.xl[i__ - 1] = (Real) i__;
18562     }
18563     l11_4.lxl[4] = false;
18564     l12_4.lxu[4] = false;
18565     l2_4.x[4] = -1.;
18566     l20_7.xex[4] = 2.;
18567     l20_7.nex = 1;
18568     l20_7.lex = true;
18569     l20_7.fex = -1.;
18570     return 0;
18571 labelL2:
18572 /* Computing 4th power */
18573     d__1 = l2_4.x[4], d__1 *= d__1;
18574 /* Computing 3rd power */
18575     d__2 = l2_4.x[4];
18576 /* Computing 2nd power */
18577     d__3 = l2_4.x[4];
18578     l6_1.fx = l2_4.x[0] * l2_4.x[1] * l2_4.x[2] * l2_4.x[3] - l2_4.x[0] * 3. *
18579          l2_4.x[1] * l2_4.x[3] - l2_4.x[0] * 4. * l2_4.x[1] * l2_4.x[2] +
18580         l2_4.x[0] * 12. * l2_4.x[1] - l2_4.x[1] * l2_4.x[2] * l2_4.x[3] +
18581         l2_4.x[1] * 3. * l2_4.x[3] + l2_4.x[1] * 4. * l2_4.x[2] - l2_4.x[
18582         1] * 12. - l2_4.x[0] * 2. * l2_4.x[2] * l2_4.x[3] + l2_4.x[0] *
18583         6. * l2_4.x[3] + l2_4.x[0] * 8. * l2_4.x[2] - l2_4.x[0] * 24. +
18584         l2_4.x[2] * 2. * l2_4.x[3] - l2_4.x[3] * 6. - l2_4.x[2] * 8. +
18585         24. + d__1 * d__1 * 1.5 - d__2 * (d__2 * d__2) * 5.75 + d__3 *
18586         d__3 * 5.25;
18587     return 0;
18588 labelL3:
18589     l4_4.gf[0] = l2_4.x[1] * l2_4.x[2] * l2_4.x[3] - l2_4.x[1] * 3. * l2_4.x[
18590         3] - l2_4.x[1] * 4. * l2_4.x[2] + l2_4.x[1] * 12. - l2_4.x[2] *
18591         2. * l2_4.x[3] + l2_4.x[3] * 6. + l2_4.x[2] * 8. - 24.;
18592     l4_4.gf[1] = l2_4.x[0] * l2_4.x[2] * l2_4.x[3] - l2_4.x[0] * 3. * l2_4.x[
18593         3] - l2_4.x[0] * 4. * l2_4.x[2] + l2_4.x[0] * 12. - l2_4.x[2] *
18594         l2_4.x[3] + l2_4.x[3] * 3. + l2_4.x[2] * 4. - 12.;
18595     l4_4.gf[2] = l2_4.x[0] * l2_4.x[1] * l2_4.x[3] - l2_4.x[0] * 4. * l2_4.x[
18596         1] - l2_4.x[1] * l2_4.x[3] + l2_4.x[1] * 4. - l2_4.x[0] * 2. *
18597         l2_4.x[3] + l2_4.x[0] * 8. + l2_4.x[3] * 2. - 8.;
18598     l4_4.gf[3] = l2_4.x[0] * l2_4.x[1] * l2_4.x[2] - l2_4.x[0] * 3. * l2_4.x[
18599         1] - l2_4.x[1] * l2_4.x[2] + l2_4.x[1] * 3. - l2_4.x[0] * 2. *
18600         l2_4.x[2] + l2_4.x[0] * 6. + l2_4.x[2] * 2. - 6.;
18601 /* Computing 2nd power */
18602     d__1 = l2_4.x[4];
18603 /* Computing 3rd power */
18604     d__2 = l2_4.x[4];
18605     l4_4.gf[4] = l2_4.x[4] * 10.5 - d__1 * d__1 * 17.25 + d__2 * (d__2 * d__2)
18606          * 6.;
18607     return 0;
18608 labelL4:
18609     if (l9_2.index1[0]) {
18610 /* Computing 2nd power */
18611     d__1 = l2_4.x[0];
18612 /* Computing 2nd power */
18613     d__2 = l2_4.x[1];
18614 /* Computing 2nd power */
18615     d__3 = l2_4.x[2];
18616 /* Computing 2nd power */
18617     d__4 = l2_4.x[3];
18618 /* Computing 2nd power */
18619     d__5 = l2_4.x[4];
18620     l3_1.g[0] = 34. - d__1 * d__1 - d__2 * d__2 - d__3 * d__3 - d__4 *
18621         d__4 - d__5 * d__5;
18622     }
18623     return 0;
18624 labelL5:
18625     if (! l10_2.index2[0]) {
18626     goto L7;
18627     }
18628     for (i__ = 1; i__ <= 5; ++i__) {
18629 /* L8: */
18630     l5_30.gg[i__ - 1] = l2_4.x[i__ - 1] * -2.;
18631     }
18632 L7:
18633     return 0;
18634 } /* tp270_ */
18635 
tp271_(int * mode)18636 /* Subroutine */ int tp271_(int *mode)
18637 {
18638     /* System generated locals */
18639     Real d__1;
18640 
18641     /* Local variables */
18642     static int i__, j;
18643 
18644     switch ((int)*mode) {
18645     case 1:  goto labelL1;
18646     case 2:  goto labelL2;
18647     case 3:  goto labelL2;
18648     case 4:  goto labelL4;
18649     case 5:  goto labelL4;
18650     }
18651 labelL1:
18652     l1_1.n = 6;
18653     l15_1.lsum = 6;
18654     l1_1.nili = 0;
18655     l1_1.ninl = 0;
18656     l1_1.neli = 0;
18657     l1_1.nenl = 0;
18658     for (i__ = 1; i__ <= 6; ++i__) {
18659     l11_5.lxl[i__ - 1] = false;
18660     l12_5.lxu[i__ - 1] = false;
18661     l2_5.x[i__ - 1] = 0.;
18662 /* labelL6: */
18663     l20_4.xex[i__ - 1] = 1.;
18664     }
18665     l20_4.lex = true;
18666     l20_4.fex = 0.;
18667     return 0;
18668 labelL2:
18669     for (i__ = 1; i__ <= 6; ++i__) {
18670 /* labelL10: */
18671     l16_8.f[i__ - 1] = std::sqrt((Real) ((16 - i__) * 10)) * (l2_5.x[i__
18672         - 1] - 1.);
18673     }
18674     if (*mode == 3) {
18675     goto labelL3;
18676     }
18677     l6_1.fx = 0.;
18678     for (i__ = 1; i__ <= 6; ++i__) {
18679 /* L7: */
18680 /* Computing 2nd power */
18681     d__1 = l16_8.f[i__ - 1];
18682     l6_1.fx += d__1 * d__1;
18683     }
18684     return 0;
18685 labelL3:
18686     for (i__ = 1; i__ <= 6; ++i__) {
18687     l4_5.gf[i__ - 1] = (Real) ((16 - i__) * 20) * (l2_5.x[i__ - 1]
18688         - 1.);
18689     for (j = 1; j <= 6; ++j) {
18690 /* labelL9: */
18691         l17_11.df[i__ + j * 6 - 7] = 0.;
18692     }
18693 /* L8: */
18694     l17_11.df[i__ + i__ * 6 - 7] = std::sqrt((Real) ((16 - i__) * 10));
18695     }
18696 labelL4:
18697     return 0;
18698 } /* tp271_ */
18699 
tp272_(int * mode)18700 /* Subroutine */ int tp272_(int *mode)
18701 {
18702     /* System generated locals */
18703     Real d__1;
18704 
18705     /* Local variables */
18706     static Real h__;
18707     static int i__, j;
18708 
18709     switch ((int)*mode) {
18710     case 1:  goto labelL1;
18711     case 2:  goto labelL2;
18712     case 3:  goto labelL2;
18713     case 4:  goto labelL4;
18714     case 5:  goto labelL4;
18715     }
18716 labelL1:
18717     l1_1.n = 6;
18718     l1_1.nili = 0;
18719     l1_1.ninl = 0;
18720     l1_1.neli = 0;
18721     l1_1.nenl = 0;
18722     for (i__ = 1; i__ <= 6; ++i__) {
18723     l2_5.x[i__ - 1] = 1.;
18724     l13_5.xl[i__ - 1] = (float)0.;
18725     l11_5.lxl[i__ - 1] = true;
18726 /* labelL6: */
18727     l12_5.lxu[i__ - 1] = false;
18728     }
18729     l2_5.x[1] = 2.;
18730     l15_1.lsum = 13;
18731     l20_4.lex = true;
18732     l20_4.nex = 1;
18733     l20_4.fex = 0.;
18734     l20_4.xex[0] = 1.;
18735     l20_4.xex[1] = 10.;
18736     l20_4.xex[2] = 4.;
18737     l20_4.xex[3] = 1.;
18738     l20_4.xex[4] = 5.;
18739     l20_4.xex[5] = 3.;
18740     return 0;
18741 labelL2:
18742     for (i__ = 1; i__ <= 13; ++i__) {
18743     h__ = (Real) i__ * .1;
18744 /* labelL20: */
18745     l16_9.f[i__ - 1] = l2_5.x[3] * std::exp(-l2_5.x[0] * h__) - l2_5.x[4] *
18746         exp(-l2_5.x[1] * h__) + l2_5.x[5] * std::exp(-l2_5.x[2] * h__) -
18747         exp(-h__) + std::exp(h__ * -10.) * 5. - std::exp(h__ * -4.) * 3.;
18748     }
18749     if (*mode == 3) {
18750     goto labelL3;
18751     }
18752     l6_1.fx = 0.;
18753     for (i__ = 1; i__ <= 13; ++i__) {
18754 /* L7: */
18755 /* Computing 2nd power */
18756     d__1 = l16_9.f[i__ - 1];
18757     l6_1.fx += d__1 * d__1;
18758     }
18759     return 0;
18760 labelL3:
18761     for (j = 1; j <= 13; ++j) {
18762     h__ = (Real) j * .1;
18763     l17_12.df[j + 38] = std::exp(-l2_5.x[0] * h__);
18764     l17_12.df[j + 51] = -exp(-l2_5.x[1] * h__);
18765     l17_12.df[j + 64] = std::exp(-l2_5.x[2] * h__);
18766     for (i__ = 1; i__ <= 3; ++i__) {
18767 /* L8: */
18768         l17_12.df[j + i__ * 13 - 14] = -h__ * l2_5.x[i__ + 2] * l17_12.df[
18769             j + (i__ + 3) * 13 - 14];
18770     }
18771     }
18772     for (i__ = 1; i__ <= 6; ++i__) {
18773     l4_5.gf[i__ - 1] = 0.;
18774     for (j = 1; j <= 13; ++j) {
18775 /* labelL13: */
18776         l4_5.gf[i__ - 1] += l17_12.df[j + i__ * 13 - 14] * 2. * l16_9.f[j
18777             - 1];
18778     }
18779     }
18780 labelL4:
18781     return 0;
18782 } /* tp272_ */
18783 
tp273_(int * mode)18784 /* Subroutine */ int tp273_(int *mode)
18785 {
18786     static int ninl;
18787     Real tp273a_(Real *);
18788     static int i__;
18789     static Real hx;
18790 
18791     switch ((int)*mode) {
18792     case 1:  goto labelL1;
18793     case 2:  goto labelL2;
18794     case 3:  goto labelL3;
18795     case 4:  goto labelL4;
18796     case 5:  goto labelL4;
18797     }
18798 labelL1:
18799     l1_2.n = 6;
18800     l1_2.nili = 0;
18801     ninl = 0;
18802     l1_2.neli = 0;
18803     l1_2.nenl = 0;
18804     for (i__ = 1; i__ <= 6; ++i__) {
18805     l2_5.x[i__ - 1] = 0.;
18806     l20_4.xex[i__ - 1] = 1.;
18807     l11_5.lxl[i__ - 1] = false;
18808 /* labelL6: */
18809     l12_5.lxu[i__ - 1] = false;
18810     }
18811     l20_4.lex = true;
18812     l20_4.nex = 1;
18813     l20_4.fex = 0.;
18814     return 0;
18815 labelL2:
18816     hx = tp273a_(l2_5.x);
18817     l6_1.fx = hx * 10. * (hx + 1.);
18818     return 0;
18819 labelL3:
18820     hx = tp273a_(l2_5.x);
18821     for (i__ = 1; i__ <= 6; ++i__) {
18822 /* L7: */
18823     l4_5.gf[i__ - 1] = (16. - (Real) i__) * 20. * (l2_5.x[i__ - 1]
18824         - 1.) * (hx * 2. + 1.);
18825     }
18826 labelL4:
18827     return 0;
18828 } /* tp273_ */
18829 
tp273a_(Real * x)18830 Real tp273a_(Real *x)
18831 {
18832     /* System generated locals */
18833     Real ret_val, d__1;
18834 
18835     /* Local variables */
18836     static int i__;
18837 
18838 
18839 /*  BERECHNUNG VON H(X) IN TP273 */
18840 /*  HX=SUM( (16-I)*(X(I)-1)**2,I=1,..,6) */
18841 
18842     /* Parameter adjustments */
18843     --x;
18844 
18845     /* Function Body */
18846     ret_val = 0.;
18847     for (i__ = 1; i__ <= 6; ++i__) {
18848 /* labelL10: */
18849 /* Computing 2nd power */
18850     d__1 = x[i__] - 1.;
18851     ret_val += (16. - (Real) i__) * (d__1 * d__1);
18852     }
18853     return ret_val;
18854 } /* tp273a_ */
18855 
tp274_0_(int n__,int * mode)18856 /* Subroutine */ int tp274_0_(int n__, int *mode)
18857 {
18858     /* System generated locals */
18859     int i__1, i__2;
18860 
18861     /* Local variables */
18862     static Real a[36]    /* was [6][6] */;
18863     static int i__, j;
18864 
18865     switch(n__) {
18866     case 1: goto L_tp275;
18867     case 2: goto L_tp276;
18868     }
18869 
18870     l1_1.n = 2;
18871     goto labelL10;
18872 
18873 L_tp275:
18874     l1_1.n = 4;
18875     goto labelL10;
18876 
18877 L_tp276:
18878     l1_1.n = 6;
18879 labelL10:
18880     switch ((int)*mode) {
18881     case 1:  goto labelL1;
18882     case 2:  goto labelL2;
18883     case 3:  goto labelL3;
18884     case 4:  goto labelL4;
18885     case 5:  goto labelL4;
18886     }
18887 labelL1:
18888     l1_1.nili = 0;
18889     l1_1.ninl = 0;
18890     l1_1.neli = 0;
18891     l1_1.nenl = 0;
18892     i__1 = l1_1.n;
18893     for (i__ = 1; i__ <= i__1; ++i__) {
18894     l2_5.x[i__ - 1] = -4. / (Real) i__;
18895     i__2 = l1_1.n;
18896     for (j = 1; j <= i__2; ++j) {
18897 /* labelL11: */
18898         a[i__ + j * 6 - 7] = 1. / (Real) (i__ + j - 1);
18899     }
18900     l20_4.xex[i__ - 1] = 0.;
18901     l11_5.lxl[i__ - 1] = false;
18902 /* labelL6: */
18903     l12_5.lxu[i__ - 1] = false;
18904     }
18905     l20_4.lex = true;
18906     l20_4.nex = 1;
18907     l20_4.fex = 0.;
18908     return 0;
18909 labelL2:
18910     l6_1.fx = 0.;
18911     i__1 = l1_1.n;
18912     for (i__ = 1; i__ <= i__1; ++i__) {
18913     i__2 = l1_1.n;
18914     for (j = 1; j <= i__2; ++j) {
18915 /* L7: */
18916         l6_1.fx += a[i__ + j * 6 - 7] * l2_5.x[i__ - 1] * l2_5.x[j - 1];
18917     }
18918     }
18919     return 0;
18920 labelL3:
18921     i__2 = l1_1.n;
18922     for (i__ = 1; i__ <= i__2; ++i__) {
18923     l4_5.gf[i__ - 1] = 0.;
18924     i__1 = l1_1.n;
18925     for (j = 1; j <= i__1; ++j) {
18926 /* L8: */
18927         l4_5.gf[i__ - 1] += l2_5.x[j - 1] * (a[i__ + j * 6 - 7] + a[j +
18928             i__ * 6 - 7]);
18929     }
18930     }
18931 labelL4:
18932     return 0;
18933 } /* tp274_ */
18934 
tp274_(int * mode)18935 /* Subroutine */ int tp274_(int *mode)
18936 {
18937     return tp274_0_(0, mode);
18938     }
18939 
tp275_(int * mode)18940 /* Subroutine */ int tp275_(int *mode)
18941 {
18942     return tp274_0_(1, mode);
18943     }
18944 
tp276_(int * mode)18945 /* Subroutine */ int tp276_(int *mode)
18946 {
18947     return tp274_0_(2, mode);
18948     }
18949 
tp277_0_(int n__,int * mode)18950 /* Subroutine */ int tp277_0_(int n__, int *mode)
18951 {
18952     /* System generated locals */
18953     int i__1, i__2;
18954 
18955     /* Local variables */
18956     static Real h__;
18957     static int i__, j;
18958 
18959     switch(n__) {
18960     case 1: goto L_tp278;
18961     case 2: goto L_tp279;
18962     case 3: goto L_tp280;
18963     }
18964 
18965     l1_1.n = 4;
18966     goto labelL10;
18967 
18968 L_tp278:
18969     l1_1.n = 6;
18970     goto labelL10;
18971 
18972 L_tp279:
18973     l1_1.n = 8;
18974     goto labelL10;
18975 
18976 L_tp280:
18977     l1_1.n = 10;
18978 labelL10:
18979     switch ((int)*mode) {
18980     case 1:  goto labelL1;
18981     case 2:  goto labelL2;
18982     case 3:  goto labelL3;
18983     case 4:  goto labelL4;
18984     case 5:  goto labelL5;
18985     }
18986 labelL1:
18987     l1_1.nili = l1_1.n;
18988     l1_1.ninl = 0;
18989     l1_1.neli = 0;
18990     l1_1.nenl = 0;
18991     l20_10.fex = 0.;
18992     i__1 = l1_1.n;
18993     for (i__ = 1; i__ <= i__1; ++i__) {
18994     l2_9.x[i__ - 1] = 0.;
18995     i__2 = l1_1.n;
18996     for (j = 1; j <= i__2; ++j) {
18997         l20_10.fex += 1. / (Real) (i__ + j - 1);
18998 /* L16: */
18999         l5_31.gg[j + (i__ * l1_1.n) - (l1_1.n+1)] = 1. / (Real) (i__ + j - 1);
19000 //printf("jac[%d] = %f \n",j + (i__ * l1_1.n) - (l1_1.n+1),l5_31.gg[j + (i__ * l1_1.n) - (l1_1.n+1)] );
19001     }
19002     l11_9.lxl[i__ - 1] = true;
19003     l12_9.lxu[i__ - 1] = false;
19004     l13_9.xl[i__ - 1] = 0.;
19005 /* labelL6: */
19006     l20_10.xex[i__ - 1] = 1.;
19007     }
19008     l20_10.lex = true;
19009     l20_10.nex = 1;
19010     return 0;
19011 labelL2:
19012     l6_1.fx = 0.;
19013     i__1 = l1_1.n;
19014     for (i__ = 1; i__ <= i__1; ++i__) {
19015     h__ = 0.;
19016     i__2 = l1_1.n;
19017     for (j = 1; j <= i__2; ++j) {
19018 /* L17: */
19019         h__ += 1. / (Real) (i__ + j - 1);
19020     }
19021 /* L7: */
19022     l6_1.fx += h__ * l2_9.x[i__ - 1];
19023     }
19024     return 0;
19025 labelL3:
19026     i__1 = l1_1.n;
19027     for (i__ = 1; i__ <= i__1; ++i__) {
19028     h__ = 0.;
19029     i__2 = l1_1.n;
19030     for (j = 1; j <= i__2; ++j) {
19031 /* L18: */
19032         h__ += 1. / (Real) (i__ + j - 1);
19033     }
19034 /* L8: */
19035     l4_9.gf[i__ - 1] = h__;
19036     }
19037     return 0;
19038 labelL4:
19039     i__1 = l1_1.n;
19040     for (i__ = 1; i__ <= i__1; ++i__) {
19041     h__ = 0.;
19042     i__2 = l1_1.n;
19043     for (j = 1; j <= i__2; ++j) {
19044 /* L19: */
19045         h__ += (l2_9.x[j - 1] - 1.) / (Real) (i__ + j - 1);
19046     }
19047 /* labelL9: */
19048     if (l9_10.index1[i__ - 1]) {
19049         l3_9.g[i__ - 1] = h__;
19050     }
19051     }
19052 labelL5:
19053     return 0;
19054 } /* tp277_ */
19055 
tp277_(int * mode)19056 /* Subroutine */ int tp277_(int *mode)
19057 {
19058     int tp277_0_(int, int *);
19059     return tp277_0_(0, mode);
19060     }
19061 
tp278_(int * mode)19062 /* Subroutine */ int tp278_(int *mode)
19063 {
19064     int tp277_0_(int, int *);
19065     return tp277_0_(1, mode);
19066     }
19067 
tp279_(int * mode)19068 /* Subroutine */ int tp279_(int *mode)
19069 {
19070     int tp277_0_(int, int *);
19071     return tp277_0_(2, mode);
19072     }
19073 
tp280_(int * mode)19074 /* Subroutine */ int tp280_(int *mode)
19075 {
19076     int tp277_0_(int, int *);
19077     return tp277_0_(3, mode);
19078     }
19079 
19080 
tp281_(int * mode)19081 /* Subroutine */ int tp281_(int *mode)
19082 {
19083     /* System generated locals */
19084     int i__1;
19085     Real d__1;
19086 
19087     /* Local variables */
19088     static Real h__;
19089     static int i__;
19090 
19091     switch ((int)*mode) {
19092     case 1:  goto labelL1;
19093     case 2:  goto labelL2;
19094     case 3:  goto labelL3;
19095     case 4:  goto labelL4;
19096     case 5:  goto labelL4;
19097     }
19098 labelL1:
19099     l1_1.n = 10;
19100     l1_1.nili = 0;
19101     l1_1.ninl = 0;
19102     l1_1.neli = 0;
19103     l1_1.nenl = 0;
19104     for (i__ = 1; i__ <= 10; ++i__) {
19105     l2_9.x[i__ - 1] = 0.;
19106     l11_9.lxl[i__ - 1] = false;
19107     l12_9.lxu[i__ - 1] = false;
19108 /* labelL6: */
19109     l20_10.xex[i__ - 1] = 1.;
19110     }
19111     l20_10.lex = true;
19112     l20_10.nex = 1;
19113     l20_10.fex = 0.;
19114     return 0;
19115 labelL2:
19116     l6_1.fx = 0.;
19117     for (i__ = 1; i__ <= 10; ++i__) {
19118 /* L7: */
19119 /* Computing 3rd power */
19120     i__1 = i__;
19121 /* Computing 2nd power */
19122     d__1 = l2_9.x[i__ - 1] - 1.;
19123     l6_1.fx += (Real) (i__1 * (i__1 * i__1)) * (d__1 * d__1);
19124     }
19125     l6_1.fx = pow_dd(&l6_1.fx, &c_b74);
19126     return 0;
19127 labelL3:
19128     h__ = 0.;
19129     for (i__ = 1; i__ <= 10; ++i__) {
19130 /* L8: */
19131 /* Computing 3rd power */
19132     i__1 = i__;
19133 /* Computing 2nd power */
19134     d__1 = l2_9.x[i__ - 1] - 1.;
19135     h__ += (Real) (i__1 * (i__1 * i__1)) * (d__1 * d__1);
19136     }
19137     for (i__ = 1; i__ <= 10; ++i__) {
19138 /* labelL13: */
19139 /* Computing 3rd power */
19140     i__1 = i__;
19141     l4_9.gf[i__ - 1] = (Real) (i__1 * (i__1 * i__1)) *
19142         .66666666666666663 * (l2_9.x[i__ - 1] - 1.) * pow_dd(&h__, &
19143         c_b1920);
19144    if( !isFinite(l4_9.gf[i__ - 1])) l4_9.gf[i__ - 1] = 0.0;
19145     }
19146 labelL4:
19147     return 0;
19148 } /* tp281_ */
19149 
19150 
tp282_(int * mode)19151 /* Subroutine */ int tp282_(int *mode)
19152 {
19153     /* System generated locals */
19154     Real d__1, d__2;
19155 
19156     /* Local variables */
19157     static Real h__;
19158     static int i__, j;
19159 
19160     switch ((int)*mode) {
19161     case 1:  goto labelL1;
19162     case 2:  goto labelL2;
19163     case 3:  goto labelL2;
19164     case 4:  goto labelL4;
19165     case 5:  goto labelL4;
19166     }
19167 labelL1:
19168     l1_1.n = 10;
19169     l1_1.nili = 0;
19170     l1_1.ninl = 0;
19171     l1_1.neli = 0;
19172     l1_1.nenl = 0;
19173     for (i__ = 1; i__ <= 10; ++i__) {
19174     l2_9.x[i__ - 1] = 0.;
19175     l11_9.lxl[i__ - 1] = false;
19176     l12_9.lxu[i__ - 1] = false;
19177 /* labelL6: */
19178     l20_10.xex[i__ - 1] = 1.;
19179     }
19180     l2_9.x[0] = -1.2;
19181     l20_10.lex = true;
19182     l20_10.nex = 1;
19183     l20_10.fex = 0.;
19184     l15_1.lsum = 11;
19185     return 0;
19186 labelL2:
19187     l16_7.f[9] = l2_9.x[0] - 1.;
19188     l16_7.f[10] = l2_9.x[9] - 1.;
19189     for (i__ = 1; i__ <= 9; ++i__) {
19190 /* labelL20: */
19191 /* Computing 2nd power */
19192     d__1 = l2_9.x[i__ - 1];
19193     l16_7.f[i__ - 1] = std::sqrt((10. - (Real) i__) * 10.) * (d__1 *
19194         d__1 - l2_9.x[i__]);
19195     }
19196     if (*mode == 3) {
19197     goto labelL3;
19198     }
19199 /* Computing 2nd power */
19200     d__1 = l16_7.f[9];
19201 /* Computing 2nd power */
19202     d__2 = l16_7.f[10];
19203     l6_1.fx = d__1 * d__1 + d__2 * d__2;
19204     for (i__ = 1; i__ <= 9; ++i__) {
19205 /* L7: */
19206 /* Computing 2nd power */
19207     d__1 = l16_7.f[i__ - 1];
19208     l6_1.fx += d__1 * d__1;
19209     }
19210     return 0;
19211 labelL3:
19212     for (i__ = 1; i__ <= 11; ++i__) {
19213     for (j = 1; j <= 10; ++j) {
19214 /* L8: */
19215         l17_13.df[i__ + j * 11 - 12] = 0.;
19216     }
19217     }
19218     for (i__ = 1; i__ <= 9; ++i__) {
19219     h__ = std::sqrt((10. - (Real) i__) * 10.);
19220     l17_13.df[i__ + i__ * 11 - 12] = h__ * 2. * l2_9.x[i__ - 1];
19221 /* labelL13: */
19222     l17_13.df[i__ + (i__ + 1) * 11 - 12] = -h__;
19223     }
19224     l17_13.df[9] = 1.;
19225     l17_13.df[109] = 1.;
19226     for (i__ = 1; i__ <= 10; ++i__) {
19227     l4_9.gf[i__ - 1] = 0.;
19228     for (j = 1; j <= 11; ++j) {
19229 /* L18: */
19230         l4_9.gf[i__ - 1] += l17_13.df[j + i__ * 11 - 12] * 2. * l16_7.f[j
19231             - 1];
19232     }
19233     }
19234 labelL4:
19235     return 0;
19236 } /* tp282_ */
19237 
19238 
tp283_(int * mode)19239 /* Subroutine */ int tp283_(int *mode)
19240 {
19241     /* System generated locals */
19242     int i__1;
19243     Real d__1;
19244 
19245     /* Local variables */
19246     static Real h__;
19247     static int i__;
19248 
19249     switch ((int)*mode) {
19250     case 1:  goto labelL1;
19251     case 2:  goto labelL2;
19252     case 3:  goto labelL3;
19253     case 4:  goto labelL4;
19254     case 5:  goto labelL4;
19255     }
19256 labelL1:
19257     l1_1.n = 10;
19258     l1_1.nili = 0;
19259     l1_1.ninl = 0;
19260     l1_1.neli = 0;
19261     l1_1.nenl = 0;
19262     for (i__ = 1; i__ <= 10; ++i__) {
19263     l2_9.x[i__ - 1] = 0.;
19264     l11_9.lxl[i__ - 1] = false;
19265     l12_9.lxu[i__ - 1] = false;
19266 /* labelL6: */
19267     l20_10.xex[i__ - 1] = 1.;
19268     }
19269     l20_10.lex = true;
19270     l20_10.nex = 1;
19271     l20_10.fex = 0.;
19272     return 0;
19273 labelL2:
19274     l6_1.fx = 0.;
19275     for (i__ = 1; i__ <= 10; ++i__) {
19276 /* L7: */
19277 /* Computing 3rd power */
19278     i__1 = i__;
19279 /* Computing 2nd power */
19280     d__1 = l2_9.x[i__ - 1] - 1.;
19281     l6_1.fx += (Real) (i__1 * (i__1 * i__1)) * (d__1 * d__1);
19282     }
19283 /* Computing 3rd power */
19284     d__1 = l6_1.fx;
19285     l6_1.fx = d__1 * (d__1 * d__1) * 1e-5;
19286     return 0;
19287 labelL3:
19288     h__ = 0.;
19289     for (i__ = 1; i__ <= 10; ++i__) {
19290 /* L8: */
19291 /* Computing 3rd power */
19292     i__1 = i__;
19293 /* Computing 2nd power */
19294     d__1 = l2_9.x[i__ - 1] - 1.;
19295     h__ += (Real) (i__1 * (i__1 * i__1)) * (d__1 * d__1);
19296     }
19297     for (i__ = 1; i__ <= 10; ++i__) {
19298 /* labelL13: */
19299 /* Computing 3rd power */
19300     i__1 = i__;
19301 /* Computing 2nd power */
19302     d__1 = h__;
19303     l4_9.gf[i__ - 1] = (Real) (i__1 * (i__1 * i__1)) * (float)6. * (
19304         l2_9.x[i__ - 1] - 1.) * (d__1 * d__1) * 1e-5;
19305     }
19306 labelL4:
19307     return 0;
19308 } /* tp283_ */
19309 
19310 
tp284_(int * mode)19311 /* Subroutine */ int tp284_(int *mode)
19312 {
19313     /* Initialized data */
19314 
19315     static int c__[15] = { 20,40,400,20,80,20,40,140,380,280,80,40,140,40,
19316         120 };
19317     static int b[10] = { 385,470,560,565,645,430,485,455,390,460 };
19318     static int a[150]    /* was [10][15] */ = { 100,90,70,50,50,40,30,
19319         20,10,5,100,100,50,0,10,0,60,30,70,10,10,10,0,0,70,50,30,40,10,
19320         100,5,35,55,65,60,95,90,25,35,5,10,20,25,35,45,50,0,40,25,20,0,5,
19321         100,100,45,35,30,25,65,5,0,0,40,35,0,10,5,15,0,10,25,35,50,60,35,
19322         60,25,10,30,35,0,55,0,0,65,0,0,80,0,95,10,25,30,15,5,45,70,20,0,
19323         70,55,20,60,0,75,15,20,30,25,20,5,0,10,75,100,20,25,30,0,10,45,40,
19324         30,35,75,0,70,5,15,35,20,25,0,30,10,5,15,65,50,10,0,10,40,65,0,5,
19325         15,20,55,30 };
19326 
19327     /* System generated locals */
19328     Real d__1;
19329 
19330     /* Local variables */
19331     static int i__, j;
19332     static Real sum;
19333 
19334     switch ((int)*mode) {
19335     case 1:  goto labelL1;
19336     case 2:  goto labelL2;
19337     case 3:  goto labelL3;
19338     case 4:  goto labelL4;
19339     case 5:  goto labelL5;
19340     }
19341 labelL1:
19342     l1_1.n = 15;
19343     l1_1.nili = 0;
19344     l1_1.ninl = 10;
19345     l1_1.neli = 0;
19346     l1_1.nenl = 0;
19347     l20_12.fex = 0.;
19348     for (i__ = 1; i__ <= 15; ++i__) {
19349     l2_11.x[i__ - 1] = 0.;
19350     l20_12.xex[i__ - 1] = 1.;
19351     l20_12.fex -= (Real) c__[i__ - 1];
19352     l12_11.lxu[i__ - 1] = false;
19353 /* labelL6: */
19354     l11_11.lxl[i__ - 1] = false;
19355     }
19356     l20_12.lex = true;
19357     l20_12.nex = 1;
19358     return 0;
19359 labelL2:
19360     l6_1.fx = 0.;
19361     for (i__ = 1; i__ <= 15; ++i__) {
19362 /* L7: */
19363     l6_1.fx -= (Real) c__[i__ - 1] * l2_11.x[i__ - 1];
19364     }
19365     return 0;
19366 labelL3:
19367     for (i__ = 1; i__ <= 15; ++i__) {
19368 /* L8: */
19369     l4_11.gf[i__ - 1] = -((Real) c__[i__ - 1]);
19370     }
19371     return 0;
19372 labelL4:
19373     for (i__ = 1; i__ <= 10; ++i__) {
19374     sum = 0.;
19375     for (j = 1; j <= 15; ++j) {
19376 /* labelL9: */
19377 /* Computing 2nd power */
19378         d__1 = l2_11.x[j - 1];
19379         sum += (Real) a[i__ + j * 10 - 11] * (d__1 * d__1);
19380     }
19381 /* labelL10: */
19382     if (l9_10.index1[i__ - 1]) {
19383         l3_9.g[i__ - 1] = (Real) b[i__ - 1] - sum;
19384     }
19385     }
19386     return 0;
19387 labelL5:
19388     for (j = 1; j <= 10; ++j) {
19389     for (i__ = 1; i__ <= 15; ++i__) {
19390         if (! l10_10.index2[j - 1]) {
19391         goto labelL12;
19392         }
19393 /* labelL11: */
19394         l5_32.gg[(i__ - 1) * 10 + j - 1] = (Real) a[j + i__ * 10 -
19395             11] * -2. * l2_11.x[i__ - 1];
19396     }
19397 labelL12:
19398     ;
19399     }
19400     return 0;
19401 } /* tp284_ */
19402 
tp285_(int * mode)19403 /* Subroutine */ int tp285_(int *mode)
19404 {
19405     /* Initialized data */
19406 
19407     static int c__[15] = { 486,640,758,776,477,707,175,619,627,614,475,
19408         377,524,468,529 };
19409     static int b[10] = { 385,470,560,565,645,430,485,455,390,460 };
19410     static int a[150]    /* was [10][15] */ = { 100,90,70,50,50,40,30,
19411         20,10,5,100,100,50,0,10,0,60,30,70,10,10,10,0,0,70,50,30,40,10,
19412         100,5,35,55,65,60,95,90,25,35,5,10,20,25,35,45,50,0,40,25,20,0,5,
19413         100,100,45,35,30,25,65,5,0,0,40,35,0,10,5,15,0,10,25,35,50,60,35,
19414         60,25,10,30,35,0,55,0,0,65,0,0,80,0,95,10,25,30,15,5,45,70,20,0,
19415         70,55,20,60,0,75,15,20,30,25,20,5,0,10,75,100,20,25,30,0,10,45,40,
19416         30,35,75,0,70,5,15,35,20,25,0,30,10,5,15,65,50,10,0,10,40,65,0,5,
19417         15,20,55,30 };
19418 
19419     /* System generated locals */
19420     Real d__1;
19421 
19422     /* Local variables */
19423     static int i__, j;
19424     static Real sum;
19425 
19426     switch ((int)*mode) {
19427     case 1:  goto labelL1;
19428     case 2:  goto labelL2;
19429     case 3:  goto labelL3;
19430     case 4:  goto labelL4;
19431     case 5:  goto labelL5;
19432     }
19433 labelL1:
19434     l1_1.n = 15;
19435     l1_1.nili = 0;
19436     l1_1.ninl = 10;
19437     l1_1.neli = 0;
19438     l1_1.nenl = 0;
19439     l20_12.fex = 0.;
19440     for (i__ = 1; i__ <= 15; ++i__) {
19441     l2_11.x[i__ - 1] = 0.;
19442     l20_12.xex[i__ - 1] = 1.;
19443     l20_12.fex -= (Real) c__[i__ - 1];
19444     l12_11.lxu[i__ - 1] = false;
19445 /* labelL6: */
19446     l11_11.lxl[i__ - 1] = false;
19447     }
19448     l20_12.lex = true;
19449     l20_12.nex = 1;
19450     return 0;
19451 labelL2:
19452     l6_1.fx = 0.;
19453     for (i__ = 1; i__ <= 15; ++i__) {
19454 /* L7: */
19455     l6_1.fx -= (Real) c__[i__ - 1] * l2_11.x[i__ - 1];
19456     }
19457     return 0;
19458 labelL3:
19459     for (i__ = 1; i__ <= 15; ++i__) {
19460 /* L8: */
19461     l4_11.gf[i__ - 1] = -((Real) c__[i__ - 1]);
19462     }
19463     return 0;
19464 labelL4:
19465     for (i__ = 1; i__ <= 10; ++i__) {
19466     sum = 0.;
19467     for (j = 1; j <= 15; ++j) {
19468 /* labelL9: */
19469 /* Computing 2nd power */
19470         d__1 = l2_11.x[j - 1];
19471         sum += (Real) a[i__ + j * 10 - 11] * (d__1 * d__1);
19472     }
19473 /* labelL10: */
19474     if (l9_10.index1[i__ - 1]) {
19475         l3_9.g[i__ - 1] = (Real) b[i__ - 1] - sum;
19476     }
19477     }
19478     return 0;
19479 labelL5:
19480     for (j = 1; j <= 10; ++j) {
19481     for (i__ = 1; i__ <= 15; ++i__) {
19482         if (! l10_10.index2[j - 1]) {
19483         goto labelL12;
19484         }
19485 /* labelL11: */
19486         l5_32.gg[(i__ - 1) * 10 + j - 1] = (Real) a[j + i__ * 10 -
19487             11] * -2. * l2_11.x[i__ - 1];
19488     }
19489 labelL12:
19490     ;
19491     }
19492     return 0;
19493 } /* tp285_ */
19494 
tp286_(int * mode)19495 /* Subroutine */ int tp286_(int *mode)
19496 {
19497     /* System generated locals */
19498     Real d__1;
19499 
19500     /* Local variables */
19501     static int i__, j;
19502 
19503     switch ((int)*mode) {
19504     case 1:  goto labelL1;
19505     case 2:  goto labelL3;
19506     case 3:  goto labelL3;
19507     case 4:  goto labelL4;
19508     case 5:  goto labelL4;
19509     }
19510 labelL1:
19511     l1_1.n = 20;
19512     l1_1.nili = 0;
19513     l1_1.ninl = 0;
19514     l1_1.neli = 0;
19515     l1_1.nenl = 0;
19516     for (i__ = 1; i__ <= 20; ++i__) {
19517     l2_13.x[i__ - 1] = -1.2;
19518     l20_14.xex[i__ - 1] = 1.;
19519     l12_13.lxu[i__ - 1] = false;
19520 /* labelL6: */
19521     l11_13.lxl[i__ - 1] = false;
19522     }
19523     for (i__ = 11; i__ <= 20; ++i__) {
19524 /* L7: */
19525     l2_13.x[i__ - 1] = 1.;
19526     }
19527     l20_14.lex = true;
19528     l20_14.nex = 1;
19529     l20_14.fex = 0.;
19530     l15_1.lsum = 20;
19531     return 0;
19532 labelL2:
19533     l6_1.fx = 0.;
19534     for (i__ = 1; i__ <= 20; ++i__) {
19535 /* L8: */
19536 /* Computing 2nd power */
19537     d__1 = l16_10.f[i__ - 1];
19538     l6_1.fx += d__1 * d__1;
19539     }
19540     return 0;
19541 labelL3:
19542     for (i__ = 1; i__ <= 10; ++i__) {
19543     l16_10.f[i__ - 1] = l2_13.x[i__ - 1] - 1.;
19544 /* labelL12: */
19545 /* Computing 2nd power */
19546     d__1 = l2_13.x[i__ - 1];
19547     l16_10.f[i__ + 9] = (d__1 * d__1 - l2_13.x[i__ + 9]) * 10.;
19548     }
19549     if (*mode == 2) {
19550     goto labelL2;
19551     }
19552     for (i__ = 1; i__ <= 10; ++i__) {
19553     for (j = 1; j <= 20; ++j) {
19554         l17_14.df[i__ + j * 198 - 199] = 0.;
19555         if (i__ == j) {
19556         l17_14.df[i__ + j * 198 - 199] = 1.;
19557         }
19558         l17_14.df[i__ + 10 + j * 198 - 199] = 0.;
19559         if (i__ == j) {
19560         l17_14.df[i__ + 10 + j * 198 - 199] = l2_13.x[i__ - 1] * 20.;
19561         }
19562 /* labelL9: */
19563         if (j == i__ + 10) {
19564         l17_14.df[i__ + 10 + j * 198 - 199] = -10.;
19565         }
19566     }
19567     }
19568     for (j = 1; j <= 20; ++j) {
19569     l4_13.gf[j - 1] = 0.;
19570     for (i__ = 1; i__ <= 20; ++i__) {
19571 /* labelL11: */
19572         l4_13.gf[j - 1] += l16_10.f[i__ - 1] * 2. * l17_14.df[i__ + j *
19573             198 - 199];
19574     }
19575     }
19576 labelL4:
19577     return 0;
19578 } /* tp286_ */
19579 
tp287_(int * mode)19580 /* Subroutine */ int tp287_(int *mode)
19581 {
19582     /* System generated locals */
19583     Real d__1, d__2, d__3, d__4, d__5, d__6, d__7, d__8;
19584 
19585     /* Local variables */
19586     static int i__;
19587 
19588     switch ((int)*mode) {
19589     case 1:  goto labelL1;
19590     case 2:  goto labelL2;
19591     case 3:  goto labelL3;
19592     case 4:  goto labelL4;
19593     case 5:  goto labelL4;
19594     }
19595 labelL1:
19596     l1_1.n = 20;
19597     l1_1.nili = 0;
19598     l1_1.ninl = 0;
19599     l1_1.neli = 0;
19600     l1_1.nenl = 0;
19601     for (i__ = 1; i__ <= 5; ++i__) {
19602     l2_13.x[i__ - 1] = -3.;
19603     l2_13.x[i__ + 4] = -1.;
19604     l2_13.x[i__ + 9] = -3.;
19605 /* labelL6: */
19606     l2_13.x[i__ + 14] = -1.;
19607     }
19608     for (i__ = 1; i__ <= 20; ++i__) {
19609     l12_13.lxu[i__ - 1] = false;
19610     l11_13.lxl[i__ - 1] = false;
19611 /* L7: */
19612     l20_14.xex[i__ - 1] = 1.;
19613     }
19614     l20_14.lex = true;
19615     l20_14.nex = 1;
19616     l20_14.fex = 0.;
19617     return 0;
19618 labelL2:
19619     l6_1.fx = 0.;
19620     for (i__ = 1; i__ <= 5; ++i__) {
19621 /* L8: */
19622 /* Computing 2nd power */
19623     d__2 = l2_13.x[i__ - 1];
19624 /* Computing 2nd power */
19625     d__1 = d__2 * d__2 - l2_13.x[i__ + 4];
19626 /* Computing 2nd power */
19627     d__3 = l2_13.x[i__ - 1] - 1.;
19628 /* Computing 2nd power */
19629     d__5 = l2_13.x[i__ + 9];
19630 /* Computing 2nd power */
19631     d__4 = d__5 * d__5 - l2_13.x[i__ + 14];
19632 /* Computing 2nd power */
19633     d__6 = l2_13.x[i__ + 9] - 1.;
19634 /* Computing 2nd power */
19635     d__7 = l2_13.x[i__ + 4] - 1.;
19636 /* Computing 2nd power */
19637     d__8 = l2_13.x[i__ + 14] - 1.;
19638     l6_1.fx = l6_1.fx + d__1 * d__1 * 100. + d__3 * d__3 + d__4 * d__4 *
19639         90. + d__6 * d__6 + (d__7 * d__7 + d__8 * d__8) * 10.1 + (
19640         l2_13.x[i__ + 4] - 1.) * 19.8 * (l2_13.x[i__ + 14] - 1.);
19641     }
19642     l6_1.fx *= 1e-5;
19643     return 0;
19644 labelL3:
19645     for (i__ = 1; i__ <= 5; ++i__) {
19646 /* Computing 2nd power */
19647     d__1 = l2_13.x[i__ - 1];
19648     l4_13.gf[i__ - 1] = (d__1 * d__1 - l2_13.x[i__ + 4]) * 400. * l2_13.x[
19649         i__ - 1] + (l2_13.x[i__ - 1] - 1.) * 2.;
19650     l4_13.gf[i__ - 1] *= 1e-5;
19651 /* Computing 2nd power */
19652     d__1 = l2_13.x[i__ - 1];
19653     l4_13.gf[i__ + 4] = (d__1 * d__1 - l2_13.x[i__ + 4]) * -200. + (
19654         l2_13.x[i__ + 4] - 1.) * 20.2 + (l2_13.x[i__ + 14] - 1.) *
19655         19.8;
19656     l4_13.gf[i__ + 4] *= 1e-5;
19657 /* Computing 2nd power */
19658     d__1 = l2_13.x[i__ + 9];
19659     l4_13.gf[i__ + 9] = l2_13.x[i__ + 9] * 360. * (d__1 * d__1 - l2_13.x[
19660         i__ + 14]) + (l2_13.x[i__ + 9] - 1.) * 2.;
19661     l4_13.gf[i__ + 9] *= 1e-5;
19662 /* Computing 2nd power */
19663     d__1 = l2_13.x[i__ + 9];
19664     l4_13.gf[i__ + 14] = (d__1 * d__1 - l2_13.x[i__ + 14]) * -180. + (
19665         l2_13.x[i__ + 14] - 1.) * 20.2 + (l2_13.x[i__ + 4] - 1.) *
19666         19.8;
19667 /* labelL9: */
19668     l4_13.gf[i__ + 14] *= 1e-5;
19669     }
19670 labelL4:
19671     return 0;
19672 } /* tp287_ */
19673 
tp288_(int * mode)19674 /* Subroutine */ int tp288_(int *mode)
19675 {
19676     /* System generated locals */
19677     Real d__1;
19678 
19679     /* Local variables */
19680     static int i__, j;
19681 
19682     switch ((int)*mode) {
19683     case 1:  goto labelL1;
19684     case 2:  goto labelL3;
19685     case 3:  goto labelL3;
19686     case 4:  goto labelL4;
19687     case 5:  goto labelL4;
19688     }
19689 labelL1:
19690     l1_1.n = 20;
19691     l1_1.nili = 0;
19692     l1_1.ninl = 0;
19693     l1_1.neli = 0;
19694     l1_1.nenl = 0;
19695     for (i__ = 1; i__ <= 5; ++i__) {
19696     l2_13.x[i__ - 1] = 3.;
19697     l2_13.x[i__ + 4] = -1.;
19698     l2_13.x[i__ + 9] = 0.;
19699 /* labelL6: */
19700     l2_13.x[i__ + 14] = 1.;
19701     }
19702     for (i__ = 1; i__ <= 20; ++i__) {
19703     l20_14.xex[i__ - 1] = 0.;
19704     l11_13.lxl[i__ - 1] = false;
19705 /* L7: */
19706     l12_13.lxu[i__ - 1] = false;
19707     }
19708     l20_14.fex = 0.;
19709     l20_14.lex = true;
19710     l20_14.nex = 1;
19711     l15_1.lsum = 20;
19712     return 0;
19713 labelL2:
19714     l6_1.fx = 0.;
19715     for (i__ = 1; i__ <= 20; ++i__) {
19716 /* labelL9: */
19717 /* Computing 2nd power */
19718     d__1 = l16_10.f[i__ - 1];
19719     l6_1.fx += d__1 * d__1;
19720     }
19721     return 0;
19722 labelL3:
19723     for (i__ = 1; i__ <= 5; ++i__) {
19724     l16_10.f[i__ - 1] = l2_13.x[i__ - 1] + l2_13.x[i__ + 4] * 10.;
19725     l16_10.f[i__ + 4] = std::sqrt(5.) * (l2_13.x[i__ + 9] - l2_13.x[i__ + 14]);
19726 /* Computing 2nd power */
19727     d__1 = l2_13.x[i__ + 4] - l2_13.x[i__ + 9] * 2.;
19728     l16_10.f[i__ + 9] = d__1 * d__1;
19729 /* L8: */
19730 /* Computing 2nd power */
19731     d__1 = l2_13.x[i__ - 1] - l2_13.x[i__ + 14];
19732     l16_10.f[i__ + 14] = std::sqrt(10.) * (d__1 * d__1);
19733     }
19734     if (*mode == 2) {
19735     goto labelL2;
19736     }
19737     for (i__ = 1; i__ <= 5; ++i__) {
19738     for (j = 1; j <= 20; ++j) {
19739         l17_14.df[i__ + j * 198 - 199] = 0.;
19740         if (j == i__) {
19741         l17_14.df[i__ + j * 198 - 199] = 1.;
19742         }
19743         if (j == i__ + 5) {
19744         l17_14.df[i__ + j * 198 - 199] = 10.;
19745         }
19746         l17_14.df[i__ + 5 + j * 198 - 199] = 0.;
19747         if (j == i__ + 10) {
19748         l17_14.df[i__ + 5 + j * 198 - 199] = std::sqrt(5.);
19749         }
19750         if (j == i__ + 15) {
19751         l17_14.df[i__ + 5 + j * 198 - 199] = -std::sqrt(5.);
19752         }
19753         l17_14.df[i__ + 10 + j * 198 - 199] = 0.;
19754         if (j == i__ + 5) {
19755         l17_14.df[i__ + 10 + j * 198 - 199] = (l2_13.x[i__ + 4] -
19756             l2_13.x[i__ + 9] * 2.) * 2.;
19757         }
19758         if (j == i__ + 10) {
19759         l17_14.df[i__ + 10 + j * 198 - 199] = (l2_13.x[i__ + 4] -
19760             l2_13.x[i__ + 9] * 2.) * -4.;
19761         }
19762         l17_14.df[i__ + 15 + j * 198 - 199] = 0.;
19763         if (j == i__) {
19764         l17_14.df[i__ + 15 + j * 198 - 199] = std::sqrt(10.) * 2. * (
19765             l2_13.x[i__ - 1] - l2_13.x[i__ + 14]);
19766         }
19767 /* labelL11: */
19768         if (j == i__ + 15) {
19769         l17_14.df[i__ + 15 + j * 198 - 199] = -std::sqrt(10.) * 2. * (
19770             l2_13.x[i__ - 1] - l2_13.x[i__ + 14]);
19771         }
19772     }
19773     }
19774     for (j = 1; j <= 20; ++j) {
19775     l4_13.gf[j - 1] = 0.;
19776     for (i__ = 1; i__ <= 20; ++i__) {
19777 /* labelL10: */
19778         l4_13.gf[j - 1] += l16_10.f[i__ - 1] * 2. * l17_14.df[i__ + j *
19779             198 - 199];
19780     }
19781     }
19782 labelL4:
19783     return 0;
19784 } /* tp288_ */
19785 
tp289_(int * mode)19786 /* Subroutine */ int tp289_(int *mode)
19787 {
19788     /* System generated locals */
19789     Real d__1;
19790     Real pow_di( Real*, int*);
19791 
19792     /* Local variables */
19793     static int i__;
19794 
19795     switch ((int)*mode) {
19796     case 1:  goto labelL1;
19797     case 2:  goto labelL2;
19798     case 3:  goto labelL2;
19799     case 4:  goto labelL4;
19800     case 5:  goto labelL4;
19801     }
19802 labelL1:
19803     l1_1.n = 30;
19804     l1_1.nili = 0;
19805     l1_1.ninl = 0;
19806     l1_1.neli = 0;
19807     l1_1.nenl = 0;
19808     for (i__ = 1; i__ <= 30; ++i__) {
19809     l2_14.x[i__ - 1] = pow_di(&c_b2003, &i__) * ((Real) i__ / 30. +
19810         1.);
19811     l20_15.xex[i__ - 1] = 0.;
19812     l12_14.lxu[i__ - 1] = false;
19813 /* labelL6: */
19814     l11_14.lxl[i__ - 1] = false;
19815     }
19816     l20_15.lex = true;
19817     l20_15.nex = 1;
19818     l20_15.fex = 0.;
19819     return 0;
19820 labelL2:
19821     l6_1.fx = 0.;
19822     for (i__ = 1; i__ <= 30; ++i__) {
19823 /* L7: */
19824 /* Computing 2nd power */
19825     d__1 = l2_14.x[i__ - 1];
19826     l6_1.fx += d__1 * d__1;
19827     }
19828     l6_1.fx = 1. - std::exp(-l6_1.fx / 60.);
19829     if (*mode == 2) {
19830     return 0;
19831     }
19832     for (i__ = 1; i__ <= 30; ++i__) {
19833 /* L8: */
19834     l4_14.gf[i__ - 1] = (l6_1.fx - 1.) * (l2_14.x[i__ - 1] * -2. / 60.);
19835     }
19836 labelL4:
19837     return 0;
19838 } /* tp289_ */
19839 
tp290_0_(int n__,int * mode)19840 /* Subroutine */ int tp290_0_(int n__, int *mode)
19841 {
19842     /* System generated locals */
19843     int i__1;
19844     Real d__1;
19845 
19846     /* Local variables */
19847     static int i__, j;
19848 
19849     switch(n__) {
19850     case 1: goto L_tp291;
19851     case 2: goto L_tp292;
19852     case 3: goto L_tp293;
19853     }
19854 
19855     l1_1.n = 2;
19856     goto labelL10;
19857 
19858 L_tp291:
19859     l1_1.n = 10;
19860     goto labelL10;
19861 
19862 L_tp292:
19863     l1_1.n = 30;
19864     goto labelL10;
19865 
19866 L_tp293:
19867     l1_1.n = 50;
19868 labelL10:
19869     switch ((int)*mode) {
19870     case 1:  goto labelL1;
19871     case 2:  goto labelL3;
19872     case 3:  goto labelL3;
19873     case 4:  goto labelL4;
19874     case 5:  goto labelL4;
19875     }
19876 labelL1:
19877     l1_1.nili = 0;
19878     l1_1.ninl = 0;
19879     l1_1.neli = 0;
19880     l1_1.nenl = 0;
19881     i__1 = l1_1.n;
19882     for (i__ = 1; i__ <= i__1; ++i__) {
19883     l2_15.x[i__ - 1] = 1.;
19884     l20_16.xex[i__ - 1] = 0.;
19885     l12_15.lxu[i__ - 1] = false;
19886 /* labelL6: */
19887     l11_15.lxl[i__ - 1] = false;
19888     }
19889     l20_16.fex = 0.;
19890     l20_16.lex = true;
19891     l20_16.nex = 1;
19892     l15_1.lsum = 1;
19893     return 0;
19894 labelL2:
19895 /* Computing 2nd power */
19896     d__1 = l16_11.f[0];
19897     l6_1.fx = d__1 * d__1;
19898     return 0;
19899 labelL3:
19900     l16_11.f[0] = 0.;
19901     i__1 = l1_1.n;
19902     for (i__ = 1; i__ <= i__1; ++i__) {
19903 /* L7: */
19904 /* Computing 2nd power */
19905     d__1 = l2_15.x[i__ - 1];
19906     l16_11.f[0] += (Real) i__ * (d__1 * d__1);
19907     }
19908     if (*mode == 2) {
19909     goto labelL2;
19910     }
19911     i__1 = l1_1.n;
19912     for (i__ = 1; i__ <= i__1; ++i__) {
19913 /* L8: */
19914     l17_9.df[i__ - 1] = (Real) i__ * 2. * l2_15.x[i__ - 1];
19915     }
19916     i__1 = l1_1.n;
19917     for (j = 1; j <= i__1; ++j) {
19918 /* labelL9: */
19919     l4_15.gf[j - 1] = l16_11.f[0] * 2. * l17_9.df[j - 1];
19920     }
19921 labelL4:
19922     return 0;
19923 } /* tp290_ */
19924 
tp290_(int * mode)19925 /* Subroutine */ int tp290_(int *mode)
19926 {
19927     return tp290_0_(0, mode);
19928     }
19929 
tp291_(int * mode)19930 /* Subroutine */ int tp291_(int *mode)
19931 {
19932     return tp290_0_(1, mode);
19933     }
19934 
tp292_(int * mode)19935 /* Subroutine */ int tp292_(int *mode)
19936 {
19937     return tp290_0_(2, mode);
19938     }
19939 
tp293_(int * mode)19940 /* Subroutine */ int tp293_(int *mode)
19941 {
19942     return tp290_0_(3, mode);
19943     }
19944 
19945 
tp294_0_(int n__,int * mode)19946 /* Subroutine */ int tp294_0_(int n__, int *mode)
19947 {
19948     /* System generated locals */
19949     int i__1, i__2;
19950     Real d__1, d__2;
19951 
19952     /* Local variables */
19953     static int i__, j, k;
19954 
19955     switch(n__) {
19956     case 1: goto L_tp295;
19957     case 2: goto L_tp296;
19958     case 3: goto L_tp297;
19959     case 4: goto L_tp298;
19960     case 5: goto L_tp299;
19961     }
19962 
19963     l1_1.n = 6;
19964     goto labelL20;
19965 
19966 L_tp295:
19967     l1_1.n = 10;
19968     goto labelL20;
19969 
19970 L_tp296:
19971     l1_1.n = 16;
19972     goto labelL20;
19973 
19974 L_tp297:
19975     l1_1.n = 30;
19976     goto labelL20;
19977 
19978 L_tp298:
19979     l1_1.n = 50;
19980     goto labelL20;
19981 
19982 L_tp299:
19983     l1_1.n = 100;
19984 labelL20:
19985     k = l1_1.n - 1;
19986     switch ((int)*mode) {
19987     case 1:  goto labelL1;
19988     case 2:  goto labelL3;
19989     case 3:  goto labelL3;
19990     case 4:  goto labelL4;
19991     case 5:  goto labelL4;
19992     }
19993 labelL1:
19994     l1_1.nili = 0;
19995     l1_1.ninl = 0;
19996     l1_1.neli = 0;
19997     l1_1.nenl = 0;
19998     i__1 = l1_1.n;
19999     for (i__ = 1; i__ <= i__1; ++i__) {
20000     l2_16.x[i__ - 1] = -1.2;
20001     l20_17.xex[i__ - 1] = 1.;
20002     l12_16.lxu[i__ - 1] = false;
20003 /* labelL6: */
20004     l11_16.lxl[i__ - 1] = false;
20005     }
20006     i__1 = l1_1.n / 2;
20007     for (i__ = 1; i__ <= i__1; ++i__) {
20008 /* L7: */
20009     l2_16.x[(i__ << 1) - 1] = 1.;
20010     }
20011     l20_17.fex = 0.;
20012     l20_17.lex = true;
20013     l20_17.nex = 1;
20014     l15_1.lsum = k << 1;
20015     return 0;
20016 labelL2:
20017     l6_1.fx = 0.;
20018     i__1 = k;
20019     for (i__ = 1; i__ <= i__1; ++i__) {
20020 /* L8: */
20021 /* Computing 2nd power */
20022     d__1 = l16_12.f[i__ - 1];
20023 /* Computing 2nd power */
20024     d__2 = l16_12.f[i__ + k - 1];
20025     l6_1.fx = l6_1.fx + d__1 * d__1 + d__2 * d__2;
20026     }
20027     l6_1.fx *= 1e-4;
20028     return 0;
20029 labelL3:
20030     i__1 = k;
20031     for (i__ = 1; i__ <= i__1; ++i__) {
20032 /* Computing 2nd power */
20033     d__1 = l2_16.x[i__ - 1];
20034     l16_12.f[i__ - 1] = (l2_16.x[i__] - d__1 * d__1) * 10.;
20035 /* labelL12: */
20036     l16_12.f[i__ + k - 1] = 1. - l2_16.x[i__ - 1];
20037     }
20038     if (*mode == 2) {
20039     goto labelL2;
20040     }
20041     i__1 = k;
20042     for (i__ = 1; i__ <= i__1; ++i__) {
20043     i__2 = l1_1.n;
20044     for (j = 1; j <= i__2; ++j) {
20045         l17_14.df[i__ + j * 198 - 199] = 0.;
20046         if (j == i__) {
20047         l17_14.df[i__ + j * 198 - 199] = l2_16.x[i__ - 1] * -20.;
20048         }
20049         if (j == i__ + 1) {
20050         l17_14.df[i__ + j * 198 - 199] = 10.;
20051         }
20052         l17_14.df[i__ + k + j * 198 - 199] = 0.;
20053 /* labelL9: */
20054         if (j == i__) {
20055         l17_14.df[i__ + k + j * 198 - 199] = -1.;
20056         }
20057     }
20058     }
20059     i__2 = l1_1.n;
20060     for (j = 1; j <= i__2; ++j) {
20061     l4_16.gf[j - 1] = 0.;
20062     i__1 = l15_1.lsum;
20063     for (i__ = 1; i__ <= i__1; ++i__) {
20064 /* labelL13: */
20065         l4_16.gf[j - 1] += l16_12.f[i__ - 1] * 2. * l17_14.df[i__ + j *
20066             198 - 199];
20067     }
20068     l4_16.gf[j - 1] *= 1e-4;
20069 /* labelL11: */
20070     }
20071 labelL4:
20072     return 0;
20073 } /* tp294_ */
20074 
tp294_(int * mode)20075 /* Subroutine */ int tp294_(int *mode)
20076 {
20077     return tp294_0_(0, mode);
20078     }
20079 
tp295_(int * mode)20080 /* Subroutine */ int tp295_(int *mode)
20081 {
20082     return tp294_0_(1, mode);
20083     }
20084 
tp296_(int * mode)20085 /* Subroutine */ int tp296_(int *mode)
20086 {
20087     return tp294_0_(2, mode);
20088     }
20089 
tp297_(int * mode)20090 /* Subroutine */ int tp297_(int *mode)
20091 {
20092     return tp294_0_(3, mode);
20093     }
20094 
tp298_(int * mode)20095 /* Subroutine */ int tp298_(int *mode)
20096 {
20097     return tp294_0_(4, mode);
20098     }
20099 
tp299_(int * mode)20100 /* Subroutine */ int tp299_(int *mode)
20101 {
20102     return tp294_0_(5, mode);
20103     }
20104 
20105 
tp300_0_(int n__,int * mode)20106 /* Subroutine */ int tp300_0_(int n__, int *mode)
20107 {
20108     /* System generated locals */
20109     int i__1;
20110     Real d__1;
20111 
20112     /* Local variables */
20113     static int i__;
20114 
20115     switch(n__) {
20116     case 1: goto L_tp301;
20117     case 2: goto L_tp302;
20118     }
20119 
20120     l1_1.n = 20;
20121     l20_17.fex = -20.;
20122     goto labelL10;
20123 
20124 L_tp301:
20125     l1_1.n = 50;
20126     l20_17.fex = -50.;
20127     goto labelL10;
20128 
20129 L_tp302:
20130     l1_1.n = 100;
20131     l20_17.fex = -100.;
20132 labelL10:
20133     switch ((int)*mode) {
20134     case 1:  goto labelL1;
20135     case 2:  goto labelL2;
20136     case 3:  goto labelL3;
20137     case 4:  goto labelL4;
20138     case 5:  goto labelL4;
20139     }
20140 labelL1:
20141     l1_1.nili = 0;
20142     l1_1.ninl = 0;
20143     l1_1.neli = 0;
20144     l1_1.nenl = 0;
20145     i__1 = l1_1.n;
20146     for (i__ = 1; i__ <= i__1; ++i__) {
20147     l2_16.x[i__ - 1] = 0.;
20148     l20_17.xex[i__ - 1] = (Real) (l1_1.n - i__) + 1.;
20149     l12_16.lxu[i__ - 1] = false;
20150 /* labelL6: */
20151     l11_16.lxl[i__ - 1] = false;
20152     }
20153     l20_17.lex = true;
20154     l20_17.nex = 1;
20155     return 0;
20156 labelL2:
20157 /* Computing 2nd power */
20158     d__1 = l2_16.x[0];
20159     l6_1.fx = d__1 * d__1 - l2_16.x[0] * 2.;
20160     i__1 = l1_1.n;
20161     for (i__ = 2; i__ <= i__1; ++i__) {
20162 /* L7: */
20163 /* Computing 2nd power */
20164     d__1 = l2_16.x[i__ - 1];
20165     l6_1.fx = l6_1.fx + d__1 * d__1 * 2. - l2_16.x[i__ - 2] * 2. *
20166         l2_16.x[i__ - 1];
20167     }
20168     return 0;
20169 labelL3:
20170     l4_16.gf[0] = l2_16.x[0] * 2. - l2_16.x[1] * 2. - 2.;
20171     i__1 = l1_1.n - 1;
20172     for (i__ = 2; i__ <= i__1; ++i__) {
20173 /* L8: */
20174     l4_16.gf[i__ - 1] = l2_16.x[i__ - 1] * 4. - (l2_16.x[i__ - 2] +
20175         l2_16.x[i__]) * 2.;
20176     }
20177     l4_16.gf[l1_1.n - 1] = l2_16.x[l1_1.n - 1] * 4. - l2_16.x[l1_1.n - 2] *
20178         2.;
20179 labelL4:
20180     return 0;
20181 } /* tp300_ */
20182 
tp300_(int * mode)20183 /* Subroutine */ int tp300_(int *mode)
20184 {
20185     return tp300_0_(0, mode);
20186     }
20187 
tp301_(int * mode)20188 /* Subroutine */ int tp301_(int *mode)
20189 {
20190     return tp300_0_(1, mode);
20191     }
20192 
tp302_(int * mode)20193 /* Subroutine */ int tp302_(int *mode)
20194 {
20195     return tp300_0_(2, mode);
20196     }
20197 
20198 
tp303_0_(int n__,int * mode)20199 /* Subroutine */ int tp303_0_(int n__, int *mode)
20200 {
20201     /* System generated locals */
20202     int i__1;
20203     Real d__1, d__2;
20204 
20205     /* Local variables */
20206     static int i__;
20207     static Real pom;
20208 
20209     switch(n__) {
20210     case 1: goto L_tp304;
20211     case 2: goto L_tp305;
20212     }
20213 
20214     l1_1.n = 20;
20215     goto labelL10;
20216 
20217 L_tp304:
20218     l1_1.n = 50;
20219     goto labelL10;
20220 
20221 L_tp305:
20222     l1_1.n = 100;
20223 labelL10:
20224     switch ((int)*mode) {
20225     case 1:  goto labelL1;
20226     case 2:  goto labelL2;
20227     case 3:  goto labelL3;
20228     case 4:  goto labelL4;
20229     case 5:  goto labelL4;
20230     }
20231 labelL1:
20232     l1_1.nili = 0;
20233     l1_1.ninl = 0;
20234     l1_1.neli = 0;
20235     l1_1.nenl = 0;
20236     i__1 = l1_1.n;
20237     for (i__ = 1; i__ <= i__1; ++i__) {
20238     l2_16.x[i__ - 1] = .1;
20239     l20_17.xex[i__ - 1] = 0.;
20240     l12_16.lxu[i__ - 1] = false;
20241 /* labelL6: */
20242     l11_16.lxl[i__ - 1] = false;
20243     }
20244     l20_17.lex = true;
20245     l20_17.nex = 1;
20246     l20_17.fex = 0.;
20247     return 0;
20248 labelL2:
20249     pom = 0.;
20250     i__1 = l1_1.n;
20251     for (i__ = 1; i__ <= i__1; ++i__) {
20252 /* L7: */
20253     pom += (Real) i__ * .5 * l2_16.x[i__ - 1];
20254     }
20255 /* Computing 2nd power */
20256     d__1 = pom;
20257 /* Computing 4th power */
20258     d__2 = pom, d__2 *= d__2;
20259     l6_1.fx = d__1 * d__1 + d__2 * d__2;
20260     i__1 = l1_1.n;
20261     for (i__ = 1; i__ <= i__1; ++i__) {
20262 /* L8: */
20263 /* Computing 2nd power */
20264     d__1 = l2_16.x[i__ - 1];
20265     l6_1.fx += d__1 * d__1;
20266     }
20267     return 0;
20268 labelL3:
20269     i__1 = l1_1.n;
20270     for (i__ = 1; i__ <= i__1; ++i__) {
20271 /* labelL9: */
20272 /* Computing 3rd power */
20273     d__1 = pom;
20274     l4_16.gf[i__ - 1] = l2_16.x[i__ - 1] * 2. + pom * (Real) i__ + (
20275         Real) i__ * 2. * (d__1 * (d__1 * d__1));
20276     }
20277 labelL4:
20278     return 0;
20279 } /* tp303_ */
20280 
tp303_(int * mode)20281 /* Subroutine */ int tp303_(int *mode)
20282 {
20283     return tp303_0_(0, mode);
20284     }
20285 
tp304_(int * mode)20286 /* Subroutine */ int tp304_(int *mode)
20287 {
20288     return tp303_0_(1, mode);
20289     }
20290 
tp305_(int * mode)20291 /* Subroutine */ int tp305_(int *mode)
20292 {
20293     return tp303_0_(2, mode);
20294     }
20295 
20296 
tp306_(int * mode)20297 /* Subroutine */ int tp306_(int *mode)
20298 {
20299     /* System generated locals */
20300     Real d__1, d__2;
20301 
20302     /* Local variables */
20303     static Real a, b;
20304     static int i__;
20305 
20306     switch ((int)*mode) {
20307     case 1:  goto labelL1;
20308     case 2:  goto labelL2;
20309     case 3:  goto labelL3;
20310     case 4:  goto labelL4;
20311     case 5:  goto labelL4;
20312     }
20313 labelL1:
20314     l1_1.n = 2;
20315     l1_1.nili = 0;
20316     l1_1.ninl = 0;
20317     l1_1.neli = 0;
20318     l1_1.nenl = 0;
20319     for (i__ = 1; i__ <= 2; ++i__) {
20320     l2_1.x[i__ - 1] = 1.;
20321     l12_1.lxu[i__ - 1] = false;
20322 /* labelL6: */
20323     l11_1.lxl[i__ - 1] = false;
20324     }
20325     l20_6.lex = false;
20326     l20_6.nex = 2;
20327     l20_6.fex = -1.1036;
20328     l20_6.xex[0] = 0.;
20329     l20_6.xex[1] = 1.;
20330 /*      XEX(3)=.0D+0 */
20331 /*      XEX(4)=-.1D+1 */
20332     return 0;
20333 labelL2:
20334 /* Computing 2nd power */
20335     d__1 = l2_1.x[0];
20336 /* Computing 2nd power */
20337     d__2 = l2_1.x[1];
20338     l6_1.fx = -exp(-l2_1.x[0] - l2_1.x[1]) * (d__1 * d__1 * 2. + d__2 * d__2 *
20339          3.);
20340     return 0;
20341 labelL3:
20342     a = std::exp(-l2_1.x[0] - l2_1.x[1]);
20343 /* Computing 2nd power */
20344     d__1 = l2_1.x[0];
20345 /* Computing 2nd power */
20346     d__2 = l2_1.x[1];
20347     b = d__1 * d__1 * 2. + d__2 * d__2 * 3.;
20348     l4_1.gf[0] = a * (b - l2_1.x[0] * 4.);
20349     l4_1.gf[1] = a * (b - l2_1.x[1] * 6.);
20350 labelL4:
20351     return 0;
20352 } /* tp306_ */
20353 
20354 
tp307_(int * mode)20355 /* Subroutine */ int tp307_(int *mode)
20356 {
20357     /* System generated locals */
20358     Real d__1;
20359 
20360     /* Local variables */
20361     static int i__;
20362     static Real wi, xi1, xi2;
20363 
20364     switch ((int)*mode) {
20365     case 1:  goto labelL1;
20366     case 2:  goto labelL2;
20367     case 3:  goto labelL3;
20368     case 4:  goto labelL4;
20369     case 5:  goto labelL4;
20370     }
20371 labelL1:
20372     l1_1.n = 2;
20373     l1_1.nili = 0;
20374     l1_1.ninl = 0;
20375     l1_1.neli = 0;
20376     l1_1.nenl = 0;
20377     l2_1.x[0] = (float).3;
20378     l2_1.x[1] = (float).4;
20379     for (i__ = 1; i__ <= 2; ++i__) {
20380     l11_1.lxl[i__ - 1] = true;
20381     l13_1.xl[i__ - 1] = (float)0.;
20382     l12_1.lxu[i__ - 1] = true;
20383     l14_20.xu[i__ - 1] = (float).26;
20384 /* labelL6: */
20385     l20_1.xex[i__ - 1] = .25783;
20386     }
20387     l20_1.nex = 1;
20388     l20_1.lex = false;
20389 /*      FEX=0.12436*0.001 */
20390     l20_1.fex = (float)0.;
20391     l15_1.lsum = 10;
20392     return 0;
20393 labelL2:
20394     l6_1.fx = (float)0.;
20395     goto labelL9;
20396 labelL3:
20397     l4_1.gf[0] = (float)0.;
20398     l4_1.gf[1] = (float)0.;
20399 labelL9:
20400     for (i__ = 1; i__ <= 10; ++i__) {
20401     wi = (Real) i__;
20402     xi1 = wi * l2_1.x[0];
20403     if (xi1 > 20.) {
20404         xi1 = (float)0.;
20405     }
20406     xi2 = wi * l2_1.x[1];
20407     if (xi2 > 20.) {
20408         xi2 = (float)0.;
20409     }
20410     l16_4.f[i__ - 1] = wi * (float)2. + (float)2. - std::exp(xi1) - std::exp(xi2);
20411     if (*mode == 2) {
20412         goto L8;
20413     }
20414     l17_8.df[i__ - 1] = -wi * std::exp(xi1);
20415     l17_8.df[i__ + 9] = -wi * std::exp(xi2);
20416     l4_1.gf[0] += l16_4.f[i__ - 1] * (float)2. * l17_8.df[i__ - 1];
20417     l4_1.gf[1] += l16_4.f[i__ - 1] * (float)2. * l17_8.df[i__ + 9];
20418     goto L7;
20419 L8:
20420 /* Computing 2nd power */
20421     d__1 = l16_4.f[i__ - 1];
20422     l6_1.fx += d__1 * d__1;
20423     l6_1.fx *= (float).001;
20424 L7:
20425     ;
20426     }
20427     l4_1.gf[0] *= (float).001;
20428     l4_1.gf[1] *= (float).001;
20429 labelL4:
20430     return 0;
20431 } /* tp307_ */
20432 
20433 
tp308_(int * mode)20434 /* Subroutine */ int tp308_(int *mode)
20435 {
20436     /* System generated locals */
20437     Real d__1, d__2;
20438 
20439     /* Local variables */
20440     static int i__;
20441 
20442     switch ((int)*mode) {
20443     case 1:  goto labelL1;
20444     case 2:  goto labelL2;
20445     case 3:  goto labelL2;
20446     case 4:  goto labelL4;
20447     case 5:  goto labelL4;
20448     }
20449 labelL1:
20450     l1_1.n = 2;
20451     l1_1.nili = 0;
20452     l1_1.ninl = 0;
20453     l1_1.neli = 0;
20454     l1_1.nenl = 0;
20455     l2_1.x[0] = 3.;
20456     l2_1.x[1] = .1;
20457     l12_1.lxu[0] = false;
20458     l12_1.lxu[1] = false;
20459     l11_1.lxl[0] = false;
20460     l11_1.lxl[1] = false;
20461     l20_1.lex = false;
20462     l15_1.lsum = 3;
20463     l20_1.nex = 1;
20464     l20_1.fex = .77319906;
20465     l20_1.xex[0] = -.15543724;
20466     l20_1.xex[1] = .69456378;
20467     return 0;
20468 labelL2:
20469 /* Computing 2nd power */
20470     d__1 = l2_1.x[0];
20471 /* Computing 2nd power */
20472     d__2 = l2_1.x[1];
20473     l16_2.f[0] = d__1 * d__1 + d__2 * d__2 + l2_1.x[0] * l2_1.x[1];
20474     l16_2.f[1] = std::sin(l2_1.x[0]);
20475     l16_2.f[2] =std::cos(l2_1.x[1]);
20476     if (*mode == 3) {
20477     goto labelL3;
20478     }
20479     l6_1.fx = 0.;
20480     for (i__ = 1; i__ <= 3; ++i__) {
20481 /* labelL5: */
20482 /* Computing 2nd power */
20483     d__1 = l16_2.f[i__ - 1];
20484     l6_1.fx += d__1 * d__1;
20485     }
20486     return 0;
20487 labelL3:
20488     l17_2.df[0] = l2_1.x[0] * 2. + l2_1.x[1];
20489     l17_2.df[3] = l2_1.x[1] * 2. + l2_1.x[0];
20490     l17_2.df[1] = std::sin(l2_1.x[0]) * 2. *std::cos(l2_1.x[0]);
20491     l17_2.df[4] = 0.;
20492     l17_2.df[2] = 0.;
20493     l17_2.df[5] =std::cos(l2_1.x[1]) * -2. * std::sin(l2_1.x[1]);
20494     l4_1.gf[0] = 0.;
20495     l4_1.gf[1] = 0.;
20496     for (i__ = 1; i__ <= 3; ++i__) {
20497     l4_1.gf[0] += l16_2.f[i__ - 1] * 2. * l17_2.df[i__ - 1];
20498 /* labelL6: */
20499     l4_1.gf[1] += l16_2.f[i__ - 1] * 2. * l17_2.df[i__ + 2];
20500     }
20501 labelL4:
20502     return 0;
20503 } /* tp308_ */
20504 
tp309_(int * mode)20505 /* Subroutine */ int tp309_(int *mode)
20506 {
20507     /* System generated locals */
20508     Real d__1, d__2, d__3, d__4;
20509 
20510     /* Local variables */
20511     static int i__;
20512 
20513     switch ((int)*mode) {
20514     case 1:  goto labelL1;
20515     case 2:  goto labelL2;
20516     case 3:  goto labelL3;
20517     case 4:  goto labelL4;
20518     case 5:  goto labelL4;
20519     }
20520 labelL1:
20521     l1_1.n = 2;
20522     l1_1.nili = 0;
20523     l1_1.ninl = 0;
20524     l1_1.neli = 0;
20525     l1_1.nenl = 0;
20526     for (i__ = 1; i__ <= 2; ++i__) {
20527     l2_1.x[i__ - 1] = 0.;
20528     l11_1.lxl[i__ - 1] = false;
20529 /* labelL5: */
20530     l12_1.lxu[i__ - 1] = false;
20531     }
20532     l20_1.lex = false;
20533     l20_1.nex = 1;
20534     l20_1.xex[0] = 3.4826826;
20535     l20_1.xex[1] = 3.9;
20536     l20_1.fex = -3.9871708;
20537 labelL4:
20538     return 0;
20539 labelL2:
20540 /* Computing 4th power */
20541     d__1 = l2_1.x[0], d__1 *= d__1;
20542 /* Computing 3rd power */
20543     d__2 = l2_1.x[0];
20544 /* Computing 2nd power */
20545     d__3 = l2_1.x[0];
20546 /* Computing 2nd power */
20547     d__4 = l2_1.x[1] - 3.9;
20548     l6_1.fx = d__1 * d__1 * 1.41 - d__2 * (d__2 * d__2) * 12.76 + d__3 * d__3
20549         * 39.91 - l2_1.x[0] * 51.93 + 24.37 + d__4 * d__4;
20550     return 0;
20551 labelL3:
20552 /* Computing 3rd power */
20553     d__1 = l2_1.x[0];
20554 /* Computing 2nd power */
20555     d__2 = l2_1.x[0];
20556     l4_1.gf[0] = d__1 * (d__1 * d__1) * 5.64 - d__2 * d__2 * 38.28 + l2_1.x[0]
20557          * 79.82 - 51.93;
20558     l4_1.gf[1] = l2_1.x[1] * 2. - 7.8;
20559     return 0;
20560 } /* tp309_ */
20561 
tp310_(int * mode)20562 /* Subroutine */ int tp310_(int *mode)
20563 {
20564     /* System generated locals */
20565     Real d__1, d__2, d__3, d__4, d__5;
20566 
20567     /* Local variables */
20568     static Real a, b, c__;
20569     static int i__;
20570 
20571     switch ((int)*mode) {
20572     case 1:  goto labelL1;
20573     case 2:  goto labelL2;
20574     case 3:  goto labelL3;
20575     case 4:  goto labelL4;
20576     case 5:  goto labelL4;
20577     }
20578 labelL1:
20579     l1_1.n = 2;
20580     l1_1.nili = 0;
20581     l1_1.ninl = 0;
20582     l1_1.neli = 0;
20583     l1_1.nenl = 0;
20584     l2_1.x[0] = -1.2;
20585     l2_1.x[1] = 1.;
20586     for (i__ = 1; i__ <= 2; ++i__) {
20587     l12_1.lxu[i__ - 1] = false;
20588 /* L7: */
20589     l11_1.lxl[i__ - 1] = false;
20590     }
20591     l20_1.lex = false;
20592     l20_1.nex = -1;
20593     l20_1.fex = 0.;
20594     l20_1.xex[0] = -1.2;
20595     l20_1.xex[1] = 1.;
20596     return 0;
20597 labelL2:
20598 /* Computing 2nd power */
20599     d__1 = l2_1.x[0] * l2_1.x[1];
20600 /* Computing 2nd power */
20601     d__2 = 1. - l2_1.x[0];
20602 /* Computing 5th power */
20603     d__4 = 1. - l2_1.x[0], d__5 = d__4, d__4 *= d__4;
20604 /* Computing 2nd power */
20605     d__3 = 1. - l2_1.x[0] - l2_1.x[1] * (d__5 * (d__4 * d__4));
20606     l6_1.fx = d__1 * d__1 * (d__2 * d__2) * (d__3 * d__3);
20607     return 0;
20608 labelL3:
20609     a = l2_1.x[0] * l2_1.x[1];
20610     b = 1. - l2_1.x[0];
20611 /* Computing 5th power */
20612     d__1 = b, d__2 = d__1, d__1 *= d__1;
20613     c__ = b - l2_1.x[1] * (d__2 * (d__1 * d__1));
20614 /* Computing 4th power */
20615     d__1 = b, d__1 *= d__1;
20616     l4_1.gf[0] = a * 2. * b * c__ * (l2_1.x[1] - 1. - l2_1.x[1] * 5. * (d__1 *
20617          d__1));
20618 /* Computing 5th power */
20619     d__1 = b, d__2 = d__1, d__1 *= d__1;
20620     l4_1.gf[1] = a * 2. * b * c__ * (l2_1.x[0] - d__2 * (d__1 * d__1));
20621 labelL4:
20622     return 0;
20623 } /* tp310_ */
20624 
tp311_(int * mode)20625 /* Subroutine */ int tp311_(int *mode)
20626 {
20627     /* System generated locals */
20628     Real d__1, d__2, d__3, d__4;
20629 
20630     /* Local variables */
20631     static int i__;
20632 
20633     switch ((int)*mode) {
20634     case 1:  goto labelL1;
20635     case 2:  goto labelL2;
20636     case 3:  goto labelL3;
20637     case 4:  goto labelL4;
20638     case 5:  goto labelL4;
20639     }
20640 labelL1:
20641     l1_1.n = 2;
20642     l1_1.nili = 0;
20643     l1_1.ninl = 0;
20644     l1_1.neli = 0;
20645     l1_1.nenl = 0;
20646     for (i__ = 1; i__ <= 2; ++i__) {
20647     l2_1.x[i__ - 1] = 1.;
20648     l11_1.lxl[i__ - 1] = false;
20649 /* labelL5: */
20650     l12_1.lxu[i__ - 1] = false;
20651     }
20652     l20_6.lex = false;
20653     l20_6.nex = 2;
20654     l20_6.xex[0] = 3.;
20655     l20_6.xex[1] = 2.;
20656     l20_6.xex[2] = 3.58443;
20657     l20_6.xex[3] = -1.84813;
20658     l20_6.fex = 0.;
20659 labelL4:
20660     return 0;
20661 labelL2:
20662 /* Computing 2nd power */
20663     d__2 = l2_1.x[0];
20664 /* Computing 2nd power */
20665     d__1 = d__2 * d__2 + l2_1.x[1] - 11.;
20666 /* Computing 2nd power */
20667     d__4 = l2_1.x[1];
20668 /* Computing 2nd power */
20669     d__3 = l2_1.x[0] + d__4 * d__4 - 7.;
20670     l6_1.fx = d__1 * d__1 + d__3 * d__3;
20671     return 0;
20672 labelL3:
20673 /* Computing 2nd power */
20674     d__1 = l2_1.x[0];
20675 /* Computing 2nd power */
20676     d__2 = l2_1.x[1];
20677     l4_1.gf[0] = l2_1.x[0] * 4. * (d__1 * d__1 + l2_1.x[1] - 11.) + (l2_1.x[0]
20678          + d__2 * d__2 - 7.) * 2.;
20679 /* Computing 2nd power */
20680     d__1 = l2_1.x[0];
20681 /* Computing 2nd power */
20682     d__2 = l2_1.x[1];
20683     l4_1.gf[1] = (d__1 * d__1 + l2_1.x[1] - 11.) * 2. + l2_1.x[1] * 4. * (
20684         l2_1.x[0] + d__2 * d__2 - 7.);
20685     return 0;
20686 } /* tp311_ */
20687 
tp312_(int * mode)20688 /* Subroutine */ int tp312_(int *mode)
20689 {
20690     /* System generated locals */
20691     Real d__1, d__2;
20692 
20693     /* Local variables */
20694     static Real a, b;
20695     static int i__;
20696 
20697     switch ((int)*mode) {
20698     case 1:  goto labelL1;
20699     case 2:  goto labelL2;
20700     case 3:  goto labelL3;
20701     case 4:  goto labelL4;
20702     case 5:  goto labelL4;
20703     }
20704 labelL1:
20705     l1_1.n = 2;
20706     l1_1.nili = 0;
20707     l1_1.ninl = 0;
20708     l1_1.neli = 0;
20709     l1_1.nenl = 0;
20710     for (i__ = 1; i__ <= 2; ++i__) {
20711     l2_1.x[i__ - 1] = 1.;
20712     l12_1.lxu[i__ - 1] = false;
20713 /* labelL6: */
20714     l11_1.lxl[i__ - 1] = false;
20715     }
20716     l20_1.lex = false;
20717     l20_1.nex = 1;
20718     l20_1.fex = 0.;
20719     l20_1.xex[0] = -21.026652;
20720     l20_1.xex[1] = -36.760009;
20721     return 0;
20722 labelL2:
20723 /* Computing 2nd power */
20724     d__1 = l2_1.x[0];
20725     a = d__1 * d__1 + l2_1.x[1] * 12. - 1.;
20726 /* Computing 2nd power */
20727     d__1 = l2_1.x[0];
20728 /* Computing 2nd power */
20729     d__2 = l2_1.x[1];
20730     b = (d__1 * d__1 + d__2 * d__2) * 49. + l2_1.x[0] * 84. + l2_1.x[1] *
20731         2324. - 681.;
20732 /* Computing 2nd power */
20733     d__1 = a;
20734 /* Computing 2nd power */
20735     d__2 = b;
20736     l6_1.fx = d__1 * d__1 + d__2 * d__2;
20737     l6_1.fx *= 1e-4;
20738     return 0;
20739 labelL3:
20740 /* Computing 2nd power */
20741     d__1 = l2_1.x[0];
20742     a = d__1 * d__1 + l2_1.x[1] * 12. - 1.;
20743 /* Computing 2nd power */
20744     d__1 = l2_1.x[0];
20745 /* Computing 2nd power */
20746     d__2 = l2_1.x[1];
20747     b = (d__1 * d__1 + d__2 * d__2) * 49. + l2_1.x[0] * 84. + l2_1.x[1] *
20748         2324. - 681.;
20749     l4_1.gf[0] = (l2_1.x[0] * 2. * a + b * (l2_1.x[0] * 98. + 84.)) * 2. *
20750         1e-4;
20751     l4_1.gf[1] = (a * 12. + b * (l2_1.x[1] * 98. + 2324.)) * 2. * 1e-4;
20752 labelL4:
20753     return 0;
20754 } /* tp312_ */
20755 
tp313_(int * mode)20756 /* Subroutine */ int tp313_(int *mode)
20757 {
20758     /* System generated locals */
20759     Real d__1;
20760 
20761     /* Local variables */
20762     static int i__;
20763     static Real xh;
20764 
20765     switch ((int)*mode) {
20766     case 1:  goto labelL1;
20767     case 2:  goto labelL2;
20768     case 3:  goto labelL3;
20769     case 4:  goto labelL4;
20770     case 5:  goto labelL4;
20771     }
20772 labelL1:
20773     l1_1.n = 2;
20774     l1_1.nili = 0;
20775     l1_1.ninl = 0;
20776     l1_1.neli = 0;
20777     l1_1.nenl = 0;
20778     l2_1.x[0] = 0.;
20779     l2_1.x[1] = -1.;
20780     for (i__ = 1; i__ <= 2; ++i__) {
20781     l11_1.lxl[i__ - 1] = false;
20782 /* labelL5: */
20783     l12_1.lxu[i__ - 1] = false;
20784     }
20785     l20_1.lex = false;
20786     l20_1.nex = 1;
20787     l20_1.fex = .199786;
20788     l20_1.xex[0] = 3.;
20789     l20_1.xex[1] = 2.850214;
20790     return 0;
20791 labelL2:
20792 /* Computing 2nd power */
20793     d__1 = l2_1.x[0] - 3.;
20794     l6_1.fx = d__1 * d__1 * 1e-4 - (l2_1.x[1] - l2_1.x[0]) + std::exp((l2_1.x[1] -
20795         l2_1.x[0]) * 20.);
20796     return 0;
20797 labelL3:
20798     xh = std::exp((l2_1.x[1] - l2_1.x[0]) * 20.) * 20.;
20799     l4_1.gf[0] = (l2_1.x[0] - 3.) * 2e-4 + 1. - xh;
20800     l4_1.gf[1] = xh - 1.;
20801 labelL4:
20802     return 0;
20803 } /* tp313_ */
20804 
tp314_(int * mode)20805 /* Subroutine */ int tp314_(int *mode)
20806 {
20807     /* System generated locals */
20808     Real d__1, d__2, d__3;
20809 
20810     /* Local variables */
20811     static Real a, b;
20812     static int i__;
20813     static Real g1, h1;
20814 
20815     switch ((int)*mode) {
20816     case 1:  goto labelL1;
20817     case 2:  goto labelL2;
20818     case 3:  goto labelL3;
20819     case 4:  goto labelL4;
20820     case 5:  goto labelL4;
20821     }
20822 labelL1:
20823     l1_1.n = 2;
20824     l1_1.nili = 0;
20825     l1_1.ninl = 0;
20826     l1_1.neli = 0;
20827     l1_1.nenl = 0;
20828     for (i__ = 1; i__ <= 2; ++i__) {
20829     l2_1.x[i__ - 1] = 2.;
20830     l12_1.lxu[i__ - 1] = false;
20831 /* labelL6: */
20832     l11_1.lxl[i__ - 1] = false;
20833     }
20834     l20_1.lex = false;
20835     l20_1.nex = 1;
20836     l20_1.fex = .16904;
20837     l20_1.xex[0] = 1.789039;
20838     l20_1.xex[1] = 1.3740024;
20839     return 0;
20840 labelL2:
20841     a = l2_1.x[0] - 2.;
20842     b = l2_1.x[1] - 1.;
20843 /* Computing 2nd power */
20844     d__1 = l2_1.x[0];
20845 /* Computing 2nd power */
20846     d__2 = l2_1.x[1];
20847     g1 = d__1 * d__1 / -4. - d__2 * d__2 + 1.;
20848     h1 = l2_1.x[0] - l2_1.x[1] * 2. + 1.;
20849 /* Computing 2nd power */
20850     d__1 = a;
20851 /* Computing 2nd power */
20852     d__2 = b;
20853 /* Computing 2nd power */
20854     d__3 = h1;
20855     l6_1.fx = d__1 * d__1 + d__2 * d__2 + .04 / g1 + d__3 * d__3 / .2;
20856     return 0;
20857 labelL3:
20858 /* Computing 2nd power */
20859     d__1 = l2_1.x[0];
20860 /* Computing 2nd power */
20861     d__2 = l2_1.x[1];
20862     g1 = d__1 * d__1 / -4. - d__2 * d__2 + 1.;
20863     h1 = l2_1.x[0] - l2_1.x[1] * 2. + 1.;
20864 /* Computing 2nd power */
20865     d__1 = g1;
20866     l4_1.gf[0] = (l2_1.x[0] - 2. + l2_1.x[0] * .01 / (d__1 * d__1) + h1 * 5.)
20867         * 2.;
20868 /* Computing 2nd power */
20869     d__1 = g1;
20870     l4_1.gf[1] = (l2_1.x[1] - 1. + l2_1.x[1] * .04 / (d__1 * d__1) - h1 * 10.)
20871          * 2.;
20872 labelL4:
20873     return 0;
20874 } /* tp314_ */
20875 
tp315_(int * mode)20876 /* Subroutine */ int tp315_(int *mode)
20877 {
20878     /* System generated locals */
20879     Real d__1, d__2;
20880 
20881     switch ((int)*mode) {
20882     case 1:  goto labelL1;
20883     case 2:  goto labelL2;
20884     case 3:  goto labelL3;
20885     case 4:  goto labelL4;
20886     case 5:  goto labelL5;
20887     }
20888 labelL1:
20889     l1_1.n = 2;
20890     l1_1.nili = 1;
20891     l1_1.ninl = 2;
20892     l1_1.neli = 0;
20893     l1_1.nenl = 0;
20894     l2_1.x[0] = -.1;
20895     l2_1.x[1] = -.9;
20896     l12_1.lxu[0] = false;
20897     l12_1.lxu[1] = false;
20898     l11_1.lxl[0] = false;
20899     l11_1.lxl[1] = false;
20900     l5_3.gg[0] = 1.;
20901     l5_3.gg[3] = -2.;
20902     l4_1.gf[0] = 0.;
20903     l4_1.gf[1] = -1.;
20904     l20_1.lex = false;
20905     l20_1.nex = 1;
20906     l20_1.fex = -.8;
20907     l20_1.xex[0] = .6;
20908     l20_1.xex[1] = .8;
20909     return 0;
20910 labelL2:
20911     l6_1.fx = -l2_1.x[1];
20912 labelL3:
20913     return 0;
20914 labelL4:
20915     if (l9_4.index1[0]) {
20916     l3_3.g[0] = 1. - l2_1.x[1] * 2. + l2_1.x[0];
20917     }
20918     if (l9_4.index1[1]) {
20919 /* Computing 2nd power */
20920     d__1 = l2_1.x[0];
20921 /* Computing 2nd power */
20922     d__2 = l2_1.x[1];
20923     l3_3.g[1] = d__1 * d__1 + d__2 * d__2;
20924     }
20925     if (l9_4.index1[2]) {
20926 /* Computing 2nd power */
20927     d__1 = l2_1.x[0];
20928 /* Computing 2nd power */
20929     d__2 = l2_1.x[1];
20930     l3_3.g[2] = 1. - d__1 * d__1 - d__2 * d__2;
20931     }
20932     return 0;
20933 labelL5:
20934     if (! l10_4.index2[1]) {
20935     goto labelL6;
20936     }
20937     l5_3.gg[1] = l2_1.x[0] * 2.;
20938     l5_3.gg[4] = l2_1.x[1] * 2.;
20939 labelL6:
20940     if (! l10_4.index2[2]) {
20941     goto L7;
20942     }
20943     l5_3.gg[2] = l2_1.x[0] * -2.;
20944     l5_3.gg[5] = l2_1.x[1] * -2.;
20945 L7:
20946     return 0;
20947 } /* tp315_ */
20948 
tp316_(int * mode)20949 /* Subroutine */ int tp316_(int *mode)
20950 {
20951     /* System generated locals */
20952     Real d__1, d__2;
20953 
20954     /* Local variables */
20955     static int i__;
20956 
20957     switch ((int)*mode) {
20958     case 1:  goto labelL1;
20959     case 2:  goto labelL2;
20960     case 3:  goto labelL3;
20961     case 4:  goto labelL4;
20962     case 5:  goto labelL5;
20963     }
20964 labelL1:
20965     l1_1.n = 2;
20966     l1_1.nili = 0;
20967     l1_1.ninl = 0;
20968     l1_1.neli = 0;
20969     l1_1.nenl = 1;
20970     for (i__ = 1; i__ <= 2; ++i__) {
20971     l2_1.x[i__ - 1] = 0.;
20972     l11_1.lxl[i__ - 1] = false;
20973 /* labelL6: */
20974     l12_1.lxu[i__ - 1] = false;
20975     }
20976     l20_1.lex = false;
20977     l20_1.nex = 1;
20978     l20_1.fex = 334.31458;
20979     l20_1.xex[0] = 7.0710678;
20980     l20_1.xex[1] = -7.0710678;
20981     return 0;
20982 labelL2:
20983 /* Computing 2nd power */
20984     d__1 = l2_1.x[0] - 20.;
20985 /* Computing 2nd power */
20986     d__2 = l2_1.x[1] + 20.;
20987     l6_1.fx = d__1 * d__1 + d__2 * d__2;
20988     return 0;
20989 labelL3:
20990     l4_1.gf[0] = l2_1.x[0] * 2. - 40.;
20991     l4_1.gf[1] = l2_1.x[1] * 2. + 40.;
20992     return 0;
20993 labelL4:
20994     if (l9_2.index1[0]) {
20995 /* Computing 2nd power */
20996     d__1 = l2_1.x[0];
20997 /* Computing 2nd power */
20998     d__2 = l2_1.x[1];
20999     l3_1.g[0] = d__1 * d__1 * .01 + d__2 * d__2 * .01 - 1.;
21000     }
21001     return 0;
21002 labelL5:
21003     if (! l10_2.index2[0]) {
21004     return 0;
21005     }
21006     l5_1.gg[0] = l2_1.x[0] * .02;
21007     l5_1.gg[1] = l2_1.x[1] * .02;
21008     return 0;
21009 } /* tp316_ */
21010 
tp317_(int * mode)21011 /* Subroutine */ int tp317_(int *mode)
21012 {
21013     /* System generated locals */
21014     Real d__1, d__2;
21015 
21016     /* Local variables */
21017     static int i__;
21018 
21019     switch ((int)*mode) {
21020     case 1:  goto labelL1;
21021     case 2:  goto labelL2;
21022     case 3:  goto labelL3;
21023     case 4:  goto labelL4;
21024     case 5:  goto labelL5;
21025     }
21026 labelL1:
21027     l1_1.n = 2;
21028     l1_1.nili = 0;
21029     l1_1.ninl = 0;
21030     l1_1.neli = 0;
21031     l1_1.nenl = 1;
21032     for (i__ = 1; i__ <= 2; ++i__) {
21033     l2_1.x[i__ - 1] = 0.;
21034     l11_1.lxl[i__ - 1] = false;
21035 /* labelL6: */
21036     l12_1.lxu[i__ - 1] = false;
21037     }
21038     l20_1.lex = false;
21039     l20_1.nex = 1;
21040     l20_1.fex = 372.46661;
21041     l20_1.xex[0] = 7.3519262;
21042     l20_1.xex[1] = -5.422866;
21043     return 0;
21044 labelL2:
21045 /* Computing 2nd power */
21046     d__1 = l2_1.x[0] - 20.;
21047 /* Computing 2nd power */
21048     d__2 = l2_1.x[1] + 20.;
21049     l6_1.fx = d__1 * d__1 + d__2 * d__2;
21050     return 0;
21051 labelL3:
21052     l4_1.gf[0] = l2_1.x[0] * 2. - 40.;
21053     l4_1.gf[1] = l2_1.x[1] * 2. + 40.;
21054     return 0;
21055 labelL4:
21056     if (l9_2.index1[0]) {
21057 /* Computing 2nd power */
21058     d__1 = l2_1.x[0];
21059 /* Computing 2nd power */
21060     d__2 = l2_1.x[1];
21061     l3_1.g[0] = d__1 * d__1 * .01 + d__2 * d__2 / 64. - 1.;
21062     }
21063     return 0;
21064 labelL5:
21065     if (! l10_2.index2[0]) {
21066     return 0;
21067     }
21068     l5_1.gg[0] = l2_1.x[0] * .02;
21069     l5_1.gg[1] = l2_1.x[1] * 2. / 64.;
21070     return 0;
21071 } /* tp317_ */
21072 
tp318_(int * mode)21073 /* Subroutine */ int tp318_(int *mode)
21074 {
21075     /* System generated locals */
21076     Real d__1, d__2;
21077 
21078     /* Local variables */
21079     static int i__;
21080 
21081     switch ((int)*mode) {
21082     case 1:  goto labelL1;
21083     case 2:  goto labelL2;
21084     case 3:  goto labelL3;
21085     case 4:  goto labelL4;
21086     case 5:  goto labelL5;
21087     }
21088 labelL1:
21089     l1_1.n = 2;
21090     l1_1.nili = 0;
21091     l1_1.ninl = 0;
21092     l1_1.neli = 0;
21093     l1_1.nenl = 1;
21094     for (i__ = 1; i__ <= 2; ++i__) {
21095     l2_1.x[i__ - 1] = 0.;
21096     l11_1.lxl[i__ - 1] = false;
21097 /* labelL6: */
21098     l12_1.lxu[i__ - 1] = false;
21099     }
21100     l20_1.lex = false;
21101     l20_1.nex = 1;
21102     l20_1.fex = 412.75005;
21103     l20_1.xex[0] = 7.8091266;
21104     l20_1.xex[1] = -3.7478414;
21105     return 0;
21106 labelL2:
21107 /* Computing 2nd power */
21108     d__1 = l2_1.x[0] - 20.;
21109 /* Computing 2nd power */
21110     d__2 = l2_1.x[1] + 20.;
21111     l6_1.fx = d__1 * d__1 + d__2 * d__2;
21112     return 0;
21113 labelL3:
21114     l4_1.gf[0] = l2_1.x[0] * 2. - 40.;
21115     l4_1.gf[1] = l2_1.x[1] * 2. + 40.;
21116     return 0;
21117 labelL4:
21118     if (l9_2.index1[0]) {
21119 /* Computing 2nd power */
21120     d__1 = l2_1.x[0];
21121 /* Computing 2nd power */
21122     d__2 = l2_1.x[1];
21123     l3_1.g[0] = d__1 * d__1 * .01 + d__2 * d__2 / 36. - 1.;
21124     }
21125     return 0;
21126 labelL5:
21127     if (! l10_2.index2[0]) {
21128     return 0;
21129     }
21130     l5_1.gg[0] = l2_1.x[0] * .02;
21131     l5_1.gg[1] = l2_1.x[1] * 2. / 36.;
21132     return 0;
21133 } /* tp318_ */
21134 
tp319_(int * mode)21135 /* Subroutine */ int tp319_(int *mode)
21136 {
21137     /* System generated locals */
21138     Real d__1, d__2;
21139 
21140     /* Local variables */
21141     static int i__;
21142 
21143     switch ((int)*mode) {
21144     case 1:  goto labelL1;
21145     case 2:  goto labelL2;
21146     case 3:  goto labelL3;
21147     case 4:  goto labelL4;
21148     case 5:  goto labelL5;
21149     }
21150 labelL1:
21151     l1_1.n = 2;
21152     l1_1.nili = 0;
21153     l1_1.ninl = 0;
21154     l1_1.neli = 0;
21155     l1_1.nenl = 1;
21156     for (i__ = 1; i__ <= 2; ++i__) {
21157     l2_1.x[i__ - 1] = 0.;
21158     l11_1.lxl[i__ - 1] = false;
21159 /* labelL6: */
21160     l12_1.lxu[i__ - 1] = false;
21161     }
21162     l20_1.lex = false;
21163     l20_1.nex = 1;
21164     l20_1.fex = 452.4044;
21165     l20_1.xex[0] = 8.4922857;
21166     l20_1.xex[1] = -2.1121017;
21167     return 0;
21168 labelL2:
21169 /* Computing 2nd power */
21170     d__1 = l2_1.x[0] - 20.;
21171 /* Computing 2nd power */
21172     d__2 = l2_1.x[1] + 20.;
21173     l6_1.fx = d__1 * d__1 + d__2 * d__2;
21174     return 0;
21175 labelL3:
21176     l4_1.gf[0] = l2_1.x[0] * 2. - 40.;
21177     l4_1.gf[1] = l2_1.x[1] * 2. + 40.;
21178     return 0;
21179 labelL4:
21180     if (l9_2.index1[0]) {
21181 /* Computing 2nd power */
21182     d__1 = l2_1.x[0];
21183 /* Computing 2nd power */
21184     d__2 = l2_1.x[1];
21185     l3_1.g[0] = d__1 * d__1 * .01 + d__2 * d__2 / 16. - 1.;
21186     }
21187     return 0;
21188 labelL5:
21189     if (! l10_2.index2[0]) {
21190     return 0;
21191     }
21192     l5_1.gg[0] = l2_1.x[0] * .02;
21193     l5_1.gg[1] = l2_1.x[1] * 2. / 16.;
21194     return 0;
21195 } /* tp319_ */
21196 
tp320_(int * mode)21197 /* Subroutine */ int tp320_(int *mode)
21198 {
21199     /* System generated locals */
21200     Real d__1, d__2;
21201 
21202     /* Local variables */
21203     static int i__;
21204 
21205     switch ((int)*mode) {
21206     case 1:  goto labelL1;
21207     case 2:  goto labelL2;
21208     case 3:  goto labelL3;
21209     case 4:  goto labelL4;
21210     case 5:  goto labelL5;
21211     }
21212 labelL1:
21213     l1_1.n = 2;
21214     l1_1.nili = 0;
21215     l1_1.ninl = 0;
21216     l1_1.neli = 0;
21217     l1_1.nenl = 1;
21218     for (i__ = 1; i__ <= 2; ++i__) {
21219     l2_1.x[i__ - 1] = 0.;
21220     l11_1.lxl[i__ - 1] = false;
21221 /* labelL6: */
21222     l12_1.lxu[i__ - 1] = false;
21223     }
21224     l20_1.lex = false;
21225     l20_1.nex = 1;
21226     l20_1.fex = 485.53146;
21227     l20_1.xex[0] = 9.39525;
21228     l20_1.xex[1] = -.68459019;
21229     return 0;
21230 labelL2:
21231 /* Computing 2nd power */
21232     d__1 = l2_1.x[0] - 20.;
21233 /* Computing 2nd power */
21234     d__2 = l2_1.x[1] + 20.;
21235     l6_1.fx = d__1 * d__1 + d__2 * d__2;
21236     return 0;
21237 labelL3:
21238     l4_1.gf[0] = l2_1.x[0] * 2. - 40.;
21239     l4_1.gf[1] = l2_1.x[1] * 2. + 40.;
21240     return 0;
21241 labelL4:
21242     if (l9_2.index1[0]) {
21243 /* Computing 2nd power */
21244     d__1 = l2_1.x[0];
21245 /* Computing 2nd power */
21246     d__2 = l2_1.x[1];
21247     l3_1.g[0] = d__1 * d__1 * .01 + d__2 * d__2 / 4. - 1.;
21248     }
21249     return 0;
21250 labelL5:
21251     if (! l10_2.index2[0]) {
21252     return 0;
21253     }
21254     l5_1.gg[0] = l2_1.x[0] * .02;
21255     l5_1.gg[1] = l2_1.x[1] * .5;
21256     return 0;
21257 } /* tp320_ */
21258 
tp321_(int * mode)21259 /* Subroutine */ int tp321_(int *mode)
21260 {
21261     /* System generated locals */
21262     Real d__1, d__2;
21263 
21264     /* Local variables */
21265     static int i__;
21266 
21267     switch ((int)*mode) {
21268     case 1:  goto labelL1;
21269     case 2:  goto labelL2;
21270     case 3:  goto labelL3;
21271     case 4:  goto labelL4;
21272     case 5:  goto labelL5;
21273     }
21274 labelL1:
21275     l1_1.n = 2;
21276     l1_1.nili = 0;
21277     l1_1.ninl = 0;
21278     l1_1.neli = 0;
21279     l1_1.nenl = 1;
21280     for (i__ = 1; i__ <= 2; ++i__) {
21281     l2_1.x[i__ - 1] = 0.;
21282     l11_1.lxl[i__ - 1] = false;
21283 /* labelL6: */
21284     l12_1.lxu[i__ - 1] = false;
21285     }
21286     l20_1.lex = false;
21287     l20_1.nex = 1;
21288     l20_1.fex = 496.11237;
21289     l20_1.xex[0] = 9.8160292;
21290     l20_1.xex[1] = -.19093377;
21291     return 0;
21292 labelL2:
21293 /* Computing 2nd power */
21294     d__1 = l2_1.x[0] - 20.;
21295 /* Computing 2nd power */
21296     d__2 = l2_1.x[1] + 20.;
21297     l6_1.fx = d__1 * d__1 + d__2 * d__2;
21298     return 0;
21299 labelL3:
21300     l4_1.gf[0] = l2_1.x[0] * 2. - 40.;
21301     l4_1.gf[1] = l2_1.x[1] * 2. + 40.;
21302     return 0;
21303 labelL4:
21304     if (l9_2.index1[0]) {
21305 /* Computing 2nd power */
21306     d__1 = l2_1.x[0];
21307 /* Computing 2nd power */
21308     d__2 = l2_1.x[1];
21309     l3_1.g[0] = d__1 * d__1 * .01 + d__2 * d__2 - 1.;
21310     }
21311     return 0;
21312 labelL5:
21313     if (! l10_2.index2[0]) {
21314     return 0;
21315     }
21316     l5_1.gg[0] = l2_1.x[0] * .02;
21317     l5_1.gg[1] = l2_1.x[1] * 2.;
21318     return 0;
21319 } /* tp321_ */
21320 
21321 
tp322_(int * mode)21322 /* Subroutine */ int tp322_(int *mode)
21323 {
21324     /* System generated locals */
21325     Real d__1, d__2;
21326 
21327     /* Local variables */
21328     static int i__;
21329 
21330     switch ((int)*mode) {
21331     case 1:  goto labelL1;
21332     case 2:  goto labelL2;
21333     case 3:  goto labelL3;
21334     case 4:  goto labelL4;
21335     case 5:  goto labelL5;
21336     }
21337 labelL1:
21338     l1_1.n = 2;
21339     l1_1.nili = 0;
21340     l1_1.ninl = 0;
21341     l1_1.neli = 0;
21342     l1_1.nenl = 1;
21343     for (i__ = 1; i__ <= 2; ++i__) {
21344     l2_1.x[i__ - 1] = (float)1e-4;
21345     l11_1.lxl[i__ - 1] = false;
21346 /* labelL6: */
21347     l12_1.lxu[i__ - 1] = false;
21348     }
21349     l20_1.lex = false;
21350     l20_1.nex = 1;
21351     l20_1.fex = 499.96001;
21352     l20_1.xex[0] = 9.9980018;
21353     l20_1.xex[1] = -.0019990011;
21354     return 0;
21355 labelL2:
21356 /* Computing 2nd power */
21357     d__1 = l2_1.x[0] - (float)20.;
21358 /* Computing 2nd power */
21359     d__2 = l2_1.x[1] + (float)20.;
21360     l6_1.fx = d__1 * d__1 + d__2 * d__2;
21361     return 0;
21362 labelL3:
21363     l4_1.gf[0] = l2_1.x[0] * 2. - 40.;
21364     l4_1.gf[1] = l2_1.x[1] * 2. + 40.;
21365     return 0;
21366 labelL4:
21367     if (l9_2.index1[0]) {
21368 /* Computing 2nd power */
21369     d__1 = l2_1.x[0];
21370 /* Computing 2nd power */
21371     d__2 = l2_1.x[1];
21372     l3_1.g[0] = d__1 * d__1 * .01 + d__2 * d__2 * 100. - 1.;
21373     }
21374     return 0;
21375 labelL5:
21376     if (! l10_2.index2[0]) {
21377     return 0;
21378     }
21379     l5_1.gg[0] = l2_1.x[0] * .02;
21380     l5_1.gg[1] = l2_1.x[1] * 200.;
21381     return 0;
21382 } /* tp322_ */
21383 
tp323_(int * mode)21384 /* Subroutine */ int tp323_(int *mode)
21385 {
21386     /* System generated locals */
21387     Real d__1, d__2;
21388 
21389     switch ((int)*mode) {
21390     case 1:  goto labelL1;
21391     case 2:  goto labelL2;
21392     case 3:  goto labelL3;
21393     case 4:  goto labelL4;
21394     case 5:  goto labelL5;
21395     }
21396 labelL1:
21397     l1_1.n = 2;
21398     l1_1.nili = 1;
21399     l1_1.ninl = 1;
21400     l1_1.neli = 0;
21401     l1_1.nenl = 0;
21402     l2_1.x[0] = 0.;
21403     l2_1.x[1] = 1.;
21404     l11_1.lxl[0] = true;
21405     l13_1.xl[0] = 0.;
21406     l11_1.lxl[1] = true;
21407     l13_1.xl[1] = 0.;
21408     l12_1.lxu[0] = false;
21409     l12_1.lxu[1] = false;
21410     l5_2.gg[0] = 1.;
21411     l5_2.gg[2] = -1.;
21412     l5_2.gg[3] = 1.;
21413     l20_1.lex = false;
21414     l20_1.nex = 1;
21415     l20_1.fex = 3.7989446;
21416     l20_1.xex[0] = .55357378;
21417     l20_1.xex[1] = 1.3064439;
21418     return 0;
21419 labelL2:
21420 /* Computing 2nd power */
21421     d__1 = l2_1.x[0];
21422 /* Computing 2nd power */
21423     d__2 = l2_1.x[1];
21424     l6_1.fx = d__1 * d__1 + d__2 * d__2 - l2_1.x[0] * 4. + 4.;
21425     return 0;
21426 labelL3:
21427     l4_1.gf[0] = l2_1.x[0] * 2. - 4.;
21428     l4_1.gf[1] = l2_1.x[1] * 2.;
21429     return 0;
21430 labelL4:
21431     if (l9_3.index1[0]) {
21432     l3_2.g[0] = l2_1.x[0] - l2_1.x[1] + 2.;
21433     }
21434     if (l9_3.index1[1]) {
21435 /* Computing 2nd power */
21436     d__1 = l2_1.x[0];
21437     l3_2.g[1] = d__1 * d__1 * -1. + l2_1.x[1] - 1.;
21438     }
21439     return 0;
21440 labelL5:
21441     if (l10_3.index2[1]) {
21442     l5_2.gg[1] = l2_1.x[0] * -2.;
21443     }
21444     return 0;
21445 } /* tp323_ */
21446 
tp324_(int * mode)21447 /* Subroutine */ int tp324_(int *mode)
21448 {
21449     /* System generated locals */
21450     Real d__1, d__2;
21451 
21452     /* Local variables */
21453     static int i__;
21454 
21455     switch ((int)*mode) {
21456     case 1:  goto labelL1;
21457     case 2:  goto labelL2;
21458     case 3:  goto labelL3;
21459     case 4:  goto labelL4;
21460     case 5:  goto labelL5;
21461     }
21462 labelL1:
21463     l1_1.n = 2;
21464     l1_1.nili = 0;
21465     l1_1.ninl = 2;
21466     l1_1.neli = 0;
21467     l1_1.nenl = 0;
21468     for (i__ = 1; i__ <= 2; ++i__) {
21469     l2_1.x[i__ - 1] = 2.;
21470 /* labelL6: */
21471     l12_1.lxu[i__ - 1] = false;
21472     }
21473     l11_1.lxl[0] = true;
21474     l11_1.lxl[1] = false;
21475     l13_1.xl[0] = 2.;
21476     l20_1.lex = false;
21477     l20_1.nex = 1;
21478     l20_1.fex = 5.;
21479     l20_1.xex[0] = 15.811389;
21480     l20_1.xex[1] = 1.5811387;
21481     return 0;
21482 labelL2:
21483 /* Computing 2nd power */
21484     d__1 = l2_1.x[0];
21485 /* Computing 2nd power */
21486     d__2 = l2_1.x[1];
21487     l6_1.fx = d__1 * d__1 * .01 + d__2 * d__2;
21488     return 0;
21489 labelL3:
21490     l4_1.gf[0] = l2_1.x[0] * .02;
21491     l4_1.gf[1] = l2_1.x[1] * 2.;
21492     return 0;
21493 labelL4:
21494     if (l9_3.index1[0]) {
21495     l3_2.g[0] = l2_1.x[0] * l2_1.x[1] - 25.;
21496     }
21497     if (l9_3.index1[1]) {
21498 /* Computing 2nd power */
21499     d__1 = l2_1.x[0];
21500 /* Computing 2nd power */
21501     d__2 = l2_1.x[1];
21502     l3_2.g[1] = d__1 * d__1 + d__2 * d__2 - 25.;
21503     }
21504     return 0;
21505 labelL5:
21506     if (! l10_3.index2[0]) {
21507     goto L7;
21508     }
21509     l5_2.gg[0] = l2_1.x[1];
21510     l5_2.gg[2] = l2_1.x[0];
21511 L7:
21512     if (! l10_3.index2[1]) {
21513     return 0;
21514     }
21515     l5_2.gg[1] = l2_1.x[0] * 2.;
21516     l5_2.gg[3] = l2_1.x[1] * 2.;
21517     return 0;
21518 } /* tp324_ */
21519 
tp325_(int * mode)21520 /* Subroutine */ int tp325_(int *mode)
21521 {
21522     /* System generated locals */
21523     Real d__1, d__2;
21524 
21525     /* Local variables */
21526     static int i__;
21527 
21528     switch ((int)*mode) {
21529     case 1:  goto labelL1;
21530     case 2:  goto labelL2;
21531     case 3:  goto labelL3;
21532     case 4:  goto labelL4;
21533     case 5:  goto labelL5;
21534     }
21535 labelL1:
21536     l1_1.n = 2;
21537     l1_1.nili = 1;
21538     l1_1.ninl = 1;
21539     l1_1.neli = 0;
21540     l1_1.nenl = 1;
21541     l2_1.x[0] = -3.;
21542     l2_1.x[1] = 0.;
21543     for (i__ = 1; i__ <= 2; ++i__) {
21544     l5_3.gg[i__ * 3 - 3] = -1.;
21545     l11_1.lxl[i__ - 1] = false;
21546 /* labelL6: */
21547     l12_1.lxu[i__ - 1] = false;
21548     }
21549     l5_3.gg[1] = -1.;
21550     l4_1.gf[1] = 1.;
21551     l20_1.lex = false;
21552     l20_1.nex = 1;
21553     l20_1.fex = 3.7913415;
21554     l20_1.xex[0] = -2.3722813;
21555     l20_1.xex[1] = -1.8363772;
21556     return 0;
21557 labelL2:
21558 /* Computing 2nd power */
21559     d__1 = l2_1.x[0];
21560     l6_1.fx = d__1 * d__1 + l2_1.x[1];
21561     return 0;
21562 labelL3:
21563     l4_1.gf[0] = l2_1.x[0] * 2.;
21564     return 0;
21565 labelL4:
21566     if (l9_4.index1[0]) {
21567     l3_3.g[0] = -(l2_1.x[0] + l2_1.x[1]) + 1.;
21568     }
21569     if (l9_4.index1[1]) {
21570 /* Computing 2nd power */
21571     d__1 = l2_1.x[1];
21572     l3_3.g[1] = -(l2_1.x[0] + d__1 * d__1) + 1.;
21573     }
21574     if (l9_4.index1[2]) {
21575 /* Computing 2nd power */
21576     d__1 = l2_1.x[0];
21577 /* Computing 2nd power */
21578     d__2 = l2_1.x[1];
21579     l3_3.g[2] = d__1 * d__1 + d__2 * d__2 - 9.;
21580     }
21581     return 0;
21582 labelL5:
21583     if (l10_4.index2[1]) {
21584     l5_3.gg[4] = l2_1.x[1] * -2.;
21585     }
21586     if (! l10_4.index2[2]) {
21587     return 0;
21588     }
21589     l5_3.gg[2] = l2_1.x[0] * 2.;
21590     l5_3.gg[5] = l2_1.x[1] * 2.;
21591     return 0;
21592 } /* tp325_ */
21593 
tp326_(int * mode)21594 /* Subroutine */ int tp326_(int *mode)
21595 {
21596     /* System generated locals */
21597     Real d__1, d__2;
21598 
21599     /* Local variables */
21600     static int i__;
21601 
21602     switch ((int)*mode) {
21603     case 1:  goto labelL1;
21604     case 2:  goto labelL2;
21605     case 3:  goto labelL3;
21606     case 4:  goto labelL4;
21607     case 5:  goto labelL5;
21608     }
21609 labelL1:
21610     l1_1.n = 2;
21611     l1_1.nili = 0;
21612     l1_1.ninl = 2;
21613     l1_1.neli = 0;
21614     l1_1.nenl = 0;
21615     l2_1.x[0] = 4.;
21616     l2_1.x[1] = 3.;
21617     for (i__ = 1; i__ <= 2; ++i__) {
21618     l11_1.lxl[i__ - 1] = true;
21619     l12_1.lxu[i__ - 1] = true;
21620     l14_1.xu[i__ - 1] = (float)10.;
21621 /* labelL6: */
21622     l13_1.xl[i__ - 1] = 0.;
21623     }
21624     l5_2.gg[2] = -4.;
21625     l20_1.lex = false;
21626     l20_1.nex = 1;
21627     l20_1.fex = -79.807821;
21628     l20_1.xex[0] = 5.2396091;
21629     l20_1.xex[1] = 3.7460378;
21630     return 0;
21631 labelL2:
21632 /* Computing 2nd power */
21633     d__1 = l2_1.x[0];
21634 /* Computing 2nd power */
21635     d__2 = l2_1.x[1];
21636     l6_1.fx = d__1 * d__1 + d__2 * d__2 - l2_1.x[0] * 16. - l2_1.x[1] * 10.;
21637     return 0;
21638 labelL3:
21639     l4_1.gf[0] = l2_1.x[0] * 2. - 16.;
21640     l4_1.gf[1] = l2_1.x[1] * 2. - 10.;
21641     return 0;
21642 labelL4:
21643     if (l9_3.index1[0]) {
21644 /* Computing 2nd power */
21645     d__1 = l2_1.x[0];
21646     l3_2.g[0] = 11. - d__1 * d__1 + l2_1.x[0] * 6. - l2_1.x[1] * 4.;
21647     }
21648     if (l9_3.index1[1]) {
21649     l3_2.g[1] = l2_1.x[0] * l2_1.x[1] - l2_1.x[1] * 3. - std::exp(l2_1.x[0] -
21650         3.) + 1.;
21651     }
21652     return 0;
21653 labelL5:
21654     if (l10_3.index2[0]) {
21655     l5_2.gg[0] = l2_1.x[0] * -2. + 6.;
21656     }
21657     if (! l10_3.index2[1]) {
21658     return 0;
21659     }
21660     l5_2.gg[1] = l2_1.x[1] - std::exp(l2_1.x[0] - 3.);
21661     l5_2.gg[3] = l2_1.x[0] - 3.;
21662     return 0;
21663 } /* tp326_ */
21664 
21665 
tp327_(int * mode)21666 /* Subroutine */ int tp327_(int *mode)
21667 {
21668     /* Initialized data */
21669 
21670     static Real y[44] = { .49,.49,.48,.47,.48,.47,.46,.46,.45,.43,.45,
21671         .43,.43,.44,.43,.43,.46,.45,.42,.42,.43,.41,.41,.4,.42,.4,.4,.41,
21672         .4,.41,.41,.4,.4,.4,.38,.41,.4,.4,.41,.38,.4,.4,.39,.39 };
21673     static Real z__[44] = { 8.,8.,10.,10.,10.,10.,12.,12.,12.,12.,14.,
21674         14.,14.,16.,16.,16.,18.,18.,20.,20.,20.,22.,22.,22.,24.,24.,24.,
21675         26.,26.,26.,28.,28.,30.,30.,30.,32.,32.,34.,36.,36.,38.,38.,40.,
21676         42. };
21677 
21678     /* System generated locals */
21679     Real d__1;
21680 
21681     /* Local variables */
21682     static int i__;
21683 
21684     switch ((int)*mode) {
21685     case 1:  goto labelL1;
21686     case 2:  goto labelL2;
21687     case 3:  goto labelL2;
21688     case 4:  goto labelL4;
21689     case 5:  goto labelL5;
21690     }
21691 labelL1:
21692     l1_1.n = 2;
21693     l1_1.nili = 0;
21694     l1_1.ninl = 1;
21695     l1_1.neli = 0;
21696     l1_1.nenl = 0;
21697     l2_1.x[0] = .42;
21698     l2_1.x[1] = 5.;
21699     for (i__ = 1; i__ <= 2; ++i__) {
21700     l12_1.lxu[i__ - 1] = false;
21701     l11_1.lxl[i__ - 1] = true;
21702 /* labelL12: */
21703     l13_1.xl[i__ - 1] = .4;
21704     }
21705     l20_1.lex = false;
21706     l20_1.nex = 1;
21707     l20_1.fex = .030646306;
21708     l20_1.xex[0] = .42190424;
21709     l20_1.xex[1] = 5.0000526;
21710     l15_1.lsum = 44;
21711     return 0;
21712 labelL2:
21713     for (i__ = 1; i__ <= 44; ++i__) {
21714 /* labelL6: */
21715     l16_13.f[i__ - 1] = y[i__ - 1] - l2_1.x[0] - (.49 - l2_1.x[0]) * std::exp(
21716         -l2_1.x[1] * (z__[i__ - 1] - 8.));
21717     }
21718     if (*mode == 3) {
21719     goto labelL3;
21720     }
21721     l6_1.fx = 0.;
21722     for (i__ = 1; i__ <= 44; ++i__) {
21723 /* L7: */
21724 /* Computing 2nd power */
21725     d__1 = l16_13.f[i__ - 1];
21726     l6_1.fx += d__1 * d__1;
21727     }
21728     return 0;
21729 labelL3:
21730     l4_1.gf[0] = 0.;
21731     l4_1.gf[1] = 0.;
21732     for (i__ = 1; i__ <= 44; ++i__) {
21733     l17_15.df[i__ - 1] = std::exp(-l2_1.x[1] * (z__[i__ - 1] - 8.)) - 1.;
21734     l17_15.df[i__ + 43] = (.49 - l2_1.x[0]) * std::exp(-l2_1.x[1] * (z__[i__ -
21735         1] - 8.)) * (z__[i__ - 1] - 8.);
21736     l4_1.gf[0] += l17_15.df[i__ - 1] * l16_13.f[i__ - 1] * 2.;
21737 /* L8: */
21738     l4_1.gf[1] += l17_15.df[i__ + 43] * l16_13.f[i__ - 1] * 2.;
21739     }
21740     return 0;
21741 labelL4:
21742     if (l9_2.index1[0]) {
21743     l3_1.g[0] = -.09 - l2_1.x[0] * l2_1.x[1] + l2_1.x[1] * .49;
21744     }
21745     return 0;
21746 labelL5:
21747     if (! l10_2.index2[0]) {
21748     return 0;
21749     }
21750     l5_1.gg[0] = -l2_1.x[1];
21751     l5_1.gg[1] = .49 - l2_1.x[0];
21752     return 0;
21753 } /* tp327_ */
21754 
tp328_(int * mode)21755 /* Subroutine */ int tp328_(int *mode)
21756 {
21757     /* System generated locals */
21758     Real d__1, d__2, d__3, d__4, d__5;
21759 
21760     /* Local variables */
21761     static Real a, b;
21762     static int i__;
21763 
21764     switch ((int)*mode) {
21765     case 1:  goto labelL1;
21766     case 2:  goto labelL2;
21767     case 3:  goto labelL3;
21768     case 4:  goto labelL4;
21769     case 5:  goto labelL4;
21770     }
21771 labelL1:
21772     l1_1.n = 2;
21773     l1_1.nili = 0;
21774     l1_1.ninl = 0;
21775     l1_1.neli = 0;
21776     l1_1.nenl = 0;
21777     for (i__ = 1; i__ <= 2; ++i__) {
21778     l2_1.x[i__ - 1] = .5;
21779     l12_1.lxu[i__ - 1] = true;
21780     l14_1.xu[i__ - 1] = 3.;
21781     l11_1.lxl[i__ - 1] = true;
21782 /* labelL6: */
21783     l13_1.xl[i__ - 1] = 1.;
21784     }
21785     l20_1.lex = false;
21786     l20_1.nex = 1;
21787     l20_1.fex = 1.744152;
21788     l20_1.xex[0] = 1.743439;
21789     l20_1.xex[1] = 2.0297056;
21790     return 0;
21791 labelL2:
21792 /* Computing 2nd power */
21793     d__1 = l2_1.x[1];
21794 /* Computing 2nd power */
21795     d__2 = l2_1.x[0];
21796     a = (d__1 * d__1 + 1.) / (d__2 * d__2);
21797 /* Computing 2nd power */
21798     d__1 = l2_1.x[0] * l2_1.x[1];
21799 /* Computing 4th power */
21800     d__2 = l2_1.x[0] * l2_1.x[1], d__2 *= d__2;
21801     b = (d__1 * d__1 + 100.) / (d__2 * d__2);
21802 /* Computing 2nd power */
21803     d__1 = l2_1.x[0];
21804     l6_1.fx = (d__1 * d__1 + 12. + a + b) / 10.;
21805     return 0;
21806 labelL3:
21807 /* Computing 2nd power */
21808     d__1 = l2_1.x[1];
21809 /* Computing 3rd power */
21810     d__2 = l2_1.x[0];
21811     a = (d__1 * d__1 + 1.) / (d__2 * (d__2 * d__2));
21812 /* Computing 3rd power */
21813     d__1 = l2_1.x[0];
21814 /* Computing 2nd power */
21815     d__2 = l2_1.x[1];
21816 /* Computing 5th power */
21817     d__3 = l2_1.x[0], d__4 = d__3, d__3 *= d__3;
21818 /* Computing 4th power */
21819     d__5 = l2_1.x[1], d__5 *= d__5;
21820     b = 1. / (d__1 * (d__1 * d__1) * (d__2 * d__2)) + 200. / (d__4 * (d__3 *
21821         d__3) * (d__5 * d__5));
21822     l4_1.gf[0] = (l2_1.x[0] - a - b) / 5.;
21823 /* Computing 2nd power */
21824     d__1 = l2_1.x[0];
21825 /* Computing 3rd power */
21826     d__2 = l2_1.x[1];
21827 /* Computing 4th power */
21828     d__3 = l2_1.x[0], d__3 *= d__3;
21829 /* Computing 5th power */
21830     d__4 = l2_1.x[1], d__5 = d__4, d__4 *= d__4;
21831     a = 1. / (d__1 * d__1 * (d__2 * (d__2 * d__2))) + 200. / (d__3 * d__3 * (
21832         d__5 * (d__4 * d__4)));
21833 /* Computing 2nd power */
21834     d__1 = l2_1.x[0];
21835     l4_1.gf[1] = (l2_1.x[1] / (d__1 * d__1) - a) / 5.;
21836 labelL4:
21837     return 0;
21838 } /* tp328_ */
21839 
tp329_(int * mode)21840 /* Subroutine */ int tp329_(int *mode)
21841 {
21842     /* System generated locals */
21843     Real d__1, d__2;
21844 
21845     switch ((int)*mode) {
21846     case 1:  goto labelL1;
21847     case 2:  goto labelL2;
21848     case 3:  goto labelL3;
21849     case 4:  goto labelL4;
21850     case 5:  goto labelL5;
21851     }
21852 labelL1:
21853     l1_1.n = 2;
21854     l1_1.nili = 0;
21855     l1_1.ninl = 3;
21856     l1_1.neli = 0;
21857     l1_1.nenl = 0;
21858     l11_1.lxl[0] = true;
21859     l11_1.lxl[1] = true;
21860     l12_1.lxu[0] = true;
21861     l12_1.lxu[1] = true;
21862     l2_1.x[0] = 14.35;
21863     l2_1.x[1] = 8.6;
21864     l13_1.xl[0] = 13.;
21865     l13_1.xl[1] = 0.;
21866     l14_1.xu[0] = 16.;
21867     l14_1.xu[1] = 15.;
21868     l20_1.lex = false;
21869     l20_1.nex = 1;
21870     l20_1.fex = -6961.8139;
21871     l20_1.xex[0] = 14.095;
21872     l20_1.xex[1] = .84296079;
21873     return 0;
21874 labelL2:
21875 /* Computing 3rd power */
21876     d__1 = l2_1.x[0] - 10.;
21877 /* Computing 3rd power */
21878     d__2 = l2_1.x[1] - 20.;
21879     l6_1.fx = d__1 * (d__1 * d__1) + d__2 * (d__2 * d__2);
21880     return 0;
21881 labelL3:
21882 /* Computing 2nd power */
21883     d__1 = l2_1.x[0] - 10.;
21884     l4_1.gf[0] = d__1 * d__1 * 3.;
21885 /* Computing 2nd power */
21886     d__1 = l2_1.x[1] - 20.;
21887     l4_1.gf[1] = d__1 * d__1 * 3.;
21888     return 0;
21889 labelL4:
21890     if (l9_4.index1[0]) {
21891 /* Computing 2nd power */
21892     d__1 = l2_1.x[0] - 5.;
21893 /* Computing 2nd power */
21894     d__2 = l2_1.x[1] - 5.;
21895     l3_3.g[0] = d__1 * d__1 + d__2 * d__2 - 100.;
21896     }
21897     if (l9_4.index1[1]) {
21898 /* Computing 2nd power */
21899     d__1 = l2_1.x[0] - 6.;
21900 /* Computing 2nd power */
21901     d__2 = l2_1.x[1] - 5.;
21902     l3_3.g[1] = d__1 * d__1 + d__2 * d__2;
21903     }
21904     if (l9_4.index1[2]) {
21905 /* Computing 2nd power */
21906     d__1 = l2_1.x[0] - 6.;
21907 /* Computing 2nd power */
21908     d__2 = l2_1.x[1] - 5.;
21909     l3_3.g[2] = 82.81 - d__1 * d__1 - d__2 * d__2;
21910     }
21911     return 0;
21912 labelL5:
21913     if (! l10_4.index2[0]) {
21914     goto labelL6;
21915     }
21916     l5_3.gg[0] = l2_1.x[0] * 2. - 10.;
21917     l5_3.gg[3] = l2_1.x[1] * 2. - 10.;
21918 labelL6:
21919     if (! l10_4.index2[1]) {
21920     goto L7;
21921     }
21922     l5_3.gg[1] = l2_1.x[0] * 2. - 12.;
21923     l5_3.gg[4] = l2_1.x[1] * 2. - 10.;
21924 L7:
21925     if (! l10_4.index2[2]) {
21926     return 0;
21927     }
21928     l5_3.gg[2] = l2_1.x[0] * -2. + 12.;
21929     l5_3.gg[5] = l2_1.x[1] * -2. + 10.;
21930     return 0;
21931 } /* tp329_ */
21932 
tp330_(int * mode)21933 /* Subroutine */ int tp330_(int *mode)
21934 {
21935     /* System generated locals */
21936     Real d__1, d__2, d__3, d__4;
21937 
21938     /* Local variables */
21939     static int i__;
21940 
21941     switch ((int)*mode) {
21942     case 1:  goto labelL1;
21943     case 2:  goto labelL2;
21944     case 3:  goto labelL3;
21945     case 4:  goto labelL4;
21946     case 5:  goto labelL5;
21947     }
21948 labelL1:
21949     l1_1.n = 2;
21950     l1_1.nili = 0;
21951     l1_1.ninl = 1;
21952     l1_1.neli = 0;
21953     l1_1.nenl = 0;
21954     for (i__ = 1; i__ <= 2; ++i__) {
21955     l2_1.x[i__ - 1] = 2.5;
21956     l11_1.lxl[i__ - 1] = true;
21957     l12_1.lxu[i__ - 1] = true;
21958     l13_1.xl[i__ - 1] = 0.;
21959 /* labelL6: */
21960     l14_1.xu[i__ - 1] = 5.;
21961     }
21962     l20_1.lex = false;
21963     l20_1.nex = 1;
21964     l20_1.fex = 1.6205833;
21965     l20_1.xex[0] = 1.2866773;
21966     l20_1.xex[1] = .53046181;
21967     return 0;
21968 labelL2:
21969 /* Computing 3rd power */
21970     d__1 = l2_1.x[0];
21971 /* Computing 2nd power */
21972     d__2 = l2_1.x[1];
21973 /* Computing 3rd power */
21974     d__3 = l2_1.x[1];
21975     l6_1.fx = d__1 * (d__1 * d__1) * .044 / (d__2 * d__2) + 1. / l2_1.x[0] +
21976         l2_1.x[0] * .0592 / (d__3 * (d__3 * d__3));
21977     return 0;
21978 labelL3:
21979 /* Computing 2nd power */
21980     d__1 = l2_1.x[0];
21981 /* Computing 2nd power */
21982     d__2 = l2_1.x[1];
21983 /* Computing 2nd power */
21984     d__3 = 1 / l2_1.x[0];
21985 /* Computing 3rd power */
21986     d__4 = l2_1.x[1];
21987     l4_1.gf[0] = d__1 * d__1 * .132 / (d__2 * d__2) - d__3 * d__3 + .0592 / (
21988         d__4 * (d__4 * d__4));
21989 /* Computing 3rd power */
21990     d__1 = l2_1.x[0];
21991 /* Computing 3rd power */
21992     d__2 = l2_1.x[1];
21993 /* Computing 4th power */
21994     d__3 = l2_1.x[1], d__3 *= d__3;
21995     l4_1.gf[1] = d__1 * (d__1 * d__1) * -.088 / (d__2 * (d__2 * d__2)) -
21996         l2_1.x[0] * .1776 / (d__3 * d__3);
21997     return 0;
21998 labelL4:
21999     if (l9_2.index1[0]) {
22000 /* Computing 3rd power */
22001     d__1 = l2_1.x[1];
22002     l3_1.g[0] = 1. - d__1 * (d__1 * d__1) * 8.62 / l2_1.x[0];
22003     }
22004     return 0;
22005 labelL5:
22006     if (! l10_2.index2[0]) {
22007     return 0;
22008     }
22009 /* Computing 3rd power */
22010     d__1 = l2_1.x[1];
22011 /* Computing 2nd power */
22012     d__2 = l2_1.x[0];
22013     l5_1.gg[0] = d__1 * (d__1 * d__1) * 8.62 / (d__2 * d__2);
22014 /* Computing 2nd power */
22015     d__1 = l2_1.x[1];
22016     l5_1.gg[1] = d__1 * d__1 * -25.86 / l2_1.x[0];
22017     return 0;
22018 } /* tp330_ */
22019 
22020 
tp331_(int * mode)22021 /* Subroutine */ int tp331_(int *mode)
22022 {
22023 
22024     /* Local variables */
22025     static Real a, b, c__;
22026 
22027     switch ((int)*mode) {
22028     case 1:  goto labelL1;
22029     case 2:  goto labelL2;
22030     case 3:  goto labelL3;
22031     case 4:  goto labelL4;
22032     case 5:  goto labelL5;
22033     }
22034 labelL1:
22035     l1_1.n = 2;
22036     l1_1.nili = 1;
22037     l1_1.ninl = 0;
22038     l1_1.neli = 0;
22039     l1_1.nenl = 0;
22040     l2_1.x[0] = (float).5;
22041     l2_1.x[1] = (float).1;
22042     l12_1.lxu[0] = true;
22043     l12_1.lxu[1] = true;
22044     l14_1.xu[0] = (float).7;
22045     l14_1.xu[1] = (float).2;
22046     l11_1.lxl[0] = true;
22047     l13_1.xl[0] = (float).3;
22048     l11_1.lxl[1] = true;
22049     l13_1.xl[1] = (float).1;
22050     l5_1.gg[0] = -1.;
22051     l5_1.gg[1] = -1.;
22052     l20_1.lex = false;
22053     l20_1.nex = 1;
22054     l20_1.fex = 4.258;
22055     l20_1.xex[0] = .6175;
22056     l20_1.xex[1] = .1039;
22057     return 0;
22058 labelL2:
22059     l6_1.fx = std::log(std::log(l2_1.x[1]) * (float)2. / std::log(l2_1.x[0] + l2_1.x[1])) /
22060         l2_1.x[0];
22061     return 0;
22062 labelL3:
22063     a = l2_1.x[0] + l2_1.x[1];
22064     b = std::log(a);
22065     c__ = std::log(l2_1.x[1]) * (float)2.;
22066     l4_1.gf[0] = -1. / l2_1.x[0] * (std::log(c__ / b) / l2_1.x[0] + 1. / (b * a));
22067     l4_1.gf[1] = (b * 2. / l2_1.x[1] - c__ / a) / (c__ * b * l2_1.x[0]);
22068     return 0;
22069 labelL4:
22070     if (l9_3.index1[0]) {
22071     l3_1.g[0] = (float)1. - l2_1.x[0] - l2_1.x[1];
22072     }
22073 labelL5:
22074     return 0;
22075 } /* tp331_ */
22076 
22077 
tp332_(int * mode)22078 /* Subroutine */ int tp332_(int *mode)
22079 {
22080     /* Initialized data */
22081 
22082     static Real pi = 3.141592653;
22083 
22084     /* System generated locals */
22085     Real d__1, d__2;
22086 
22087     /* Local variables */
22088     static Real pbig, a, b, c__;
22089     static int i__;
22090     static Real tr, pangle, pim, xxx, yyy;
22091 
22092     switch ((int)*mode) {
22093     case 1:  goto labelL1;
22094     case 2:  goto labelL2;
22095     case 3:  goto labelL3;
22096     case 4:  goto labelL4;
22097     case 5:  goto labelL3;
22098     }
22099 labelL1:
22100     l1_1.n = 2;
22101     l1_1.nili = 0;
22102     l1_1.ninl = 2;
22103     l1_1.neli = 0;
22104     l1_1.nenl = 0;
22105     for (i__ = 1; i__ <= 2; ++i__) {
22106     l2_1.x[i__ - 1] = .75;
22107     l12_1.lxu[i__ - 1] = true;
22108     l14_1.xu[i__ - 1] = 1.5;
22109     l11_1.lxl[i__ - 1] = true;
22110 /* labelL6: */
22111     l13_1.xl[i__ - 1] = 0.;
22112     }
22113     l20_1.lex = false;
22114     l20_1.nex = 1;
22115     l20_1.fex = 114.95015;
22116     l20_1.xex[0] = .91139872;
22117     l20_1.xex[1] = .029280207;
22118 labelL3:
22119     return 0;
22120 labelL2:
22121     pim = pi / 3.6;
22122     l6_1.fx = 0.;
22123     for (i__ = 1; i__ <= 100; ++i__) {
22124     tr = pi * (((Real) i__ - 1.) / 180. + .33333333333333331);
22125     a = std::log(tr);
22126     b = std::sin(tr);
22127     c__ =std::cos(tr);
22128     xxx = (a + l2_1.x[1]) * b + l2_1.x[0] * c__;
22129     yyy = (a + l2_1.x[1]) * c__ - l2_1.x[0] * b;
22130 /* L7: */
22131 /* Computing 2nd power */
22132     d__1 = xxx;
22133 /* Computing 2nd power */
22134     d__2 = yyy;
22135     l6_1.fx += pim * (d__1 * d__1 + d__2 * d__2);
22136     }
22137     return 0;
22138 labelL4:
22139     pbig = -360.;
22140     pim = 180. / pi;
22141     for (i__ = 1; i__ <= 100; ++i__) {
22142     tr = pi * (((Real) i__ - 1.) / 180. + .33333333333333331);
22143     a = 1. / tr - l2_1.x[0];
22144     b = std::log(tr) + l2_1.x[1];
22145     pangle = pim * std::atan((d__1 = a / b, std::abs(d__1)));
22146 /* L8: */
22147     if (pangle > pbig) {
22148         pbig = pangle;
22149     }
22150     }
22151     if (l9_3.index1[0]) {
22152     l3_2.g[0] = 30. - pbig;
22153     }
22154     if (l9_3.index1[1]) {
22155     l3_2.g[1] = pbig + 30.;
22156     }
22157     return 0;
22158 } /* tp332_ */
22159 
22160 
tp333_(int * mode)22161 /* Subroutine */ int tp333_(int *mode)
22162 {
22163     /* Initialized data */
22164 
22165     static Real a[8] = { 4.,5.75,7.5,24.,32.,48.,72.,96. };
22166     static Real y[8] = { 72.1,65.6,55.9,17.1,9.8,4.5,1.3,.6 };
22167 
22168     /* System generated locals */
22169     Real d__1;
22170 
22171     /* Local variables */
22172     static int i__;
22173 
22174     switch ((int)*mode) {
22175     case 1:  goto labelL1;
22176     case 2:  goto labelL2;
22177     case 3:  goto labelL2;
22178     case 4:  goto labelL4;
22179     case 5:  goto labelL4;
22180     }
22181 labelL1:
22182     l1_1.n = 3;
22183     l1_1.nili = 0;
22184     l1_1.ninl = 0;
22185     l1_1.neli = 0;
22186     l1_1.nenl = 0;
22187     l2_2.x[0] = 30.;
22188     l2_2.x[1] = .04;
22189     l2_2.x[2] = 3.;
22190     for (i__ = 1; i__ <= 3; ++i__) {
22191     l12_2.lxu[i__ - 1] = false;
22192 /* labelL6: */
22193     l11_2.lxl[i__ - 1] = false;
22194     }
22195     l11_2.lxl[1] = true;
22196     l13_2.xl[1] = (float)0.;
22197     l12_2.lxu[1] = true;
22198     l14_2.xu[1] = (float).07;
22199     l20_3.lex = false;
22200     l20_3.nex = 1;
22201     l20_3.fex = (float)43.200000000000003;
22202     l20_3.xex[0] = 89.902;
22203     l20_3.xex[1] = .06699;
22204     l20_3.xex[2] = .47809;
22205     l15_1.lsum = 8;
22206     return 0;
22207 labelL2:
22208     for (i__ = 1; i__ <= 8; ++i__) {
22209 /* L7: */
22210     l16_14.f[i__ - 1] = (y[i__ - 1] - l2_2.x[0] * std::exp(-l2_2.x[1] * a[i__
22211         - 1]) - l2_2.x[2]) / y[i__ - 1];
22212     }
22213     if (*mode == 3) {
22214     goto labelL3;
22215     }
22216     l6_1.fx = 0.;
22217     for (i__ = 1; i__ <= 8; ++i__) {
22218 /* L8: */
22219 /* Computing 2nd power */
22220     d__1 = l16_14.f[i__ - 1];
22221     l6_1.fx += d__1 * d__1;
22222     }
22223     l6_1.fx *= (float)1e3;
22224     return 0;
22225 labelL3:
22226     l4_2.gf[0] = 0.;
22227     l4_2.gf[1] = 0.;
22228     l4_2.gf[2] = 0.;
22229     for (i__ = 1; i__ <= 8; ++i__) {
22230     l17_16.df[i__ - 1] = -exp(-l2_2.x[1] * a[i__ - 1]) / y[i__ - 1];
22231     l17_16.df[i__ + 7] = l2_2.x[0] * a[i__ - 1] * std::exp(-l2_2.x[1] * a[i__
22232         - 1]) / y[i__ - 1];
22233     l17_16.df[i__ + 15] = -1. / y[i__ - 1];
22234     l4_2.gf[0] += l17_16.df[i__ - 1] * l16_14.f[i__ - 1] * 2.;
22235     l4_2.gf[1] += l17_16.df[i__ + 7] * l16_14.f[i__ - 1] * 2.;
22236 /* labelL9: */
22237     l4_2.gf[2] += l17_16.df[i__ + 15] * l16_14.f[i__ - 1] * 2.;
22238     }
22239     for (i__ = 1; i__ <= 3; ++i__) {
22240     l4_2.gf[i__ - 1] *= (float)1e3;
22241     }
22242 labelL4:
22243     return 0;
22244 } /* tp333_ */
22245 
22246 
tp334_(int * mode)22247 /* Subroutine */ int tp334_(int *mode)
22248 {
22249     /* Initialized data */
22250 
22251     static Real y[15] = { .14,.18,.22,.25,.29,.32,.35,.39,.37,.58,.73,
22252         .96,1.34,2.1,4.39 };
22253 
22254     /* System generated locals */
22255     Real d__1;
22256 
22257     /* Local variables */
22258     static int i__;
22259     static Real ui, vi, wi;
22260 
22261     switch ((int)*mode) {
22262     case 1:  goto labelL1;
22263     case 2:  goto labelL2;
22264     case 3:  goto labelL2;
22265     case 4:  goto labelL4;
22266     case 5:  goto labelL4;
22267     }
22268 labelL1:
22269     l1_1.n = 3;
22270     l1_1.nili = 0;
22271     l1_1.ninl = 0;
22272     l1_1.neli = 0;
22273     l1_1.nenl = 0;
22274     l15_1.lsum = 15;
22275     for (i__ = 1; i__ <= 3; ++i__) {
22276     l2_2.x[i__ - 1] = 1.;
22277     l11_2.lxl[i__ - 1] = false;
22278 /* labelL6: */
22279     l12_2.lxu[i__ - 1] = false;
22280     }
22281     l20_3.lex = false;
22282     l20_3.nex = 1;
22283     l20_3.xex[0] = .082481481;
22284     l20_3.xex[1] = 1.1354102;
22285     l20_3.xex[2] = 2.3413942;
22286     l20_3.fex = .0082149184;
22287     return 0;
22288 labelL2:
22289     for (i__ = 1; i__ <= 15; ++i__) {
22290     ui = (Real) i__;
22291     vi = (Real) (16 - i__);
22292     wi = std::min(ui,vi);
22293 /* L7: */
22294     l16_15.f[i__ - 1] = y[i__ - 1] - (l2_2.x[0] + i__ / (l2_2.x[1] * vi +
22295         l2_2.x[2] * wi));
22296     }
22297     if (*mode == 3) {
22298     goto labelL3;
22299     }
22300     l6_1.fx = 0.;
22301     for (i__ = 1; i__ <= 15; ++i__) {
22302 /* labelL10: */
22303 /* Computing 2nd power */
22304     d__1 = l16_15.f[i__ - 1];
22305     l6_1.fx += d__1 * d__1;
22306     }
22307     return 0;
22308 labelL3:
22309     for (i__ = 1; i__ <= 3; ++i__) {
22310 /* L8: */
22311     l4_2.gf[i__ - 1] = 0.;
22312     }
22313     for (i__ = 1; i__ <= 15; ++i__) {
22314     ui = (Real) i__;
22315     vi = (Real) (16 - i__);
22316     wi = std::min(ui,vi);
22317     l17_17.df[i__ - 1] = -1.;
22318 /* Computing 2nd power */
22319     d__1 = l2_2.x[1] * vi + l2_2.x[2] * wi;
22320     l17_17.df[i__ + 14] = ui * vi / (d__1 * d__1);
22321 /* Computing 2nd power */
22322     d__1 = l2_2.x[1] * vi + l2_2.x[2] * wi;
22323     l17_17.df[i__ + 29] = ui * wi / (d__1 * d__1);
22324     l4_2.gf[0] += l17_17.df[i__ - 1] * l16_15.f[i__ - 1] * 2.;
22325     l4_2.gf[1] += l17_17.df[i__ + 14] * l16_15.f[i__ - 1] * 2.;
22326 /* labelL9: */
22327     l4_2.gf[2] += l17_17.df[i__ + 29] * l16_15.f[i__ - 1] * 2.;
22328     }
22329 labelL4:
22330     return 0;
22331 } /* tp334_ */
22332 
tp335_(int * mode)22333 /* Subroutine */ int tp335_(int *mode)
22334 {
22335     /* System generated locals */
22336     Real d__1, d__2;
22337 
22338     /* Local variables */
22339     static int i__;
22340 
22341     switch ((int)*mode) {
22342     case 1:  goto labelL1;
22343     case 2:  goto labelL2;
22344     case 3:  goto labelL3;
22345     case 4:  goto labelL4;
22346     case 5:  goto labelL5;
22347     }
22348 labelL1:
22349     l1_1.n = 3;
22350     l1_1.nili = 0;
22351     l1_1.ninl = 0;
22352     l1_1.neli = 0;
22353     l1_1.nenl = 2;
22354     for (i__ = 1; i__ <= 3; ++i__) {
22355     l2_2.x[i__ - 1] = 1.;
22356     l11_2.lxl[i__ - 1] = false;
22357 /* labelL6: */
22358     l12_2.lxu[i__ - 1] = false;
22359     }
22360     l5_3.gg[4] = -1.;
22361     l5_3.gg[5] = 1.;
22362     l20_3.lex = false;
22363     l20_3.nex = 1;
22364     l20_3.xex[0] = 2.0309475e-6;
22365     l20_3.xex[1] = .0044721349;
22366     l20_3.xex[2] = .0020000032;
22367     l20_3.fex = -.004472137;
22368     return 0;
22369 labelL2:
22370     l6_1.fx = -(l2_2.x[0] * .001 + l2_2.x[1]);
22371     return 0;
22372 labelL3:
22373     l4_2.gf[0] = -.001;
22374     l4_2.gf[1] = -1.;
22375     l4_2.gf[2] = 0.;
22376     return 0;
22377 labelL4:
22378     if (l9_3.index1[0]) {
22379 /* Computing 2nd power */
22380     d__1 = l2_2.x[0];
22381 /* Computing 2nd power */
22382     d__2 = l2_2.x[1];
22383     l3_2.g[0] = d__1 * d__1 * 1e3 + d__2 * d__2 * 100. - l2_2.x[2];
22384     }
22385     if (l9_3.index1[1]) {
22386 /* Computing 2nd power */
22387     d__1 = l2_2.x[0];
22388 /* Computing 2nd power */
22389     d__2 = l2_2.x[1];
22390     l3_2.g[1] = d__1 * d__1 * 100. + d__2 * d__2 * 400. + l2_2.x[2] - .01;
22391     }
22392     return 0;
22393 labelL5:
22394     if (! l10_3.index2[0]) {
22395     goto L7;
22396     }
22397     l5_3.gg[0] = l2_2.x[0] * 2e3;
22398     l5_3.gg[2] = l2_2.x[1] * 200.;
22399     if (! l10_3.index2[1]) {
22400     goto L7;
22401     }
22402     l5_3.gg[1] = l2_2.x[0] * 200.;
22403     l5_3.gg[3] = l2_2.x[1] * 800.;
22404 L7:
22405     return 0;
22406 } /* tp335_ */
22407 
tp336_(int * mode)22408 /* Subroutine */ int tp336_(int *mode)
22409 {
22410     /* System generated locals */
22411     Real d__1, d__2, d__3;
22412 
22413     /* Local variables */
22414     static int i__;
22415 
22416     switch ((int)*mode) {
22417     case 1:  goto labelL1;
22418     case 2:  goto labelL2;
22419     case 3:  goto labelL3;
22420     case 4:  goto labelL4;
22421     case 5:  goto labelL5;
22422     }
22423 labelL1:
22424     l1_1.n = 3;
22425     l1_1.nili = 0;
22426     l1_1.ninl = 0;
22427     l1_1.neli = 1;
22428     l1_1.nenl = 1;
22429     for (i__ = 1; i__ <= 3; ++i__) {
22430     l2_2.x[i__ - 1] = 0.;
22431     l12_2.lxu[i__ - 1] = false;
22432 /* labelL6: */
22433     l11_2.lxl[i__ - 1] = false;
22434     }
22435     l5_3.gg[0] = 5.;
22436     l5_3.gg[2] = 5.;
22437     l5_3.gg[4] = -3.;
22438     l20_3.lex = false;
22439     l20_3.nex = 1;
22440     l20_3.xex[0] = .53459441;
22441     l20_3.xex[1] = .53397092;
22442     l20_3.xex[2] = -.21905778;
22443     l20_3.fex = -.33789573;
22444     return 0;
22445 labelL2:
22446     l6_1.fx = l2_2.x[0] * 7. - l2_2.x[1] * 6. + l2_2.x[2] * 4.;
22447     return 0;
22448 labelL3:
22449     l4_2.gf[0] = 7.;
22450     l4_2.gf[1] = -6.;
22451     l4_2.gf[2] = 4.;
22452     return 0;
22453 labelL4:
22454     if (l9_3.index1[0]) {
22455     l3_2.g[0] = l2_2.x[0] * 5. + l2_2.x[1] * 5. - l2_2.x[2] * 3. - 6.;
22456     }
22457     if (l9_3.index1[1]) {
22458 /* Computing 2nd power */
22459     d__1 = l2_2.x[0];
22460 /* Computing 2nd power */
22461     d__2 = l2_2.x[1];
22462 /* Computing 2nd power */
22463     d__3 = l2_2.x[2];
22464     l3_2.g[1] = d__1 * d__1 + d__2 * d__2 * 2. + d__3 * d__3 * 3. - 1.;
22465     }
22466     return 0;
22467 labelL5:
22468     if (! l10_3.index2[1]) {
22469     goto L8;
22470     }
22471     l5_3.gg[1] = l2_2.x[0] * 2.;
22472     l5_3.gg[3] = l2_2.x[1] * 4.;
22473     l5_3.gg[5] = l2_2.x[2] * 6.;
22474 L8:
22475     return 0;
22476 } /* tp336_ */
22477 
tp337_(int * mode)22478 /* Subroutine */ int tp337_(int *mode)
22479 {
22480     /* System generated locals */
22481     Real d__1, d__2, d__3;
22482 
22483     /* Local variables */
22484     static int i__;
22485 
22486     switch ((int)*mode) {
22487     case 1:  goto labelL1;
22488     case 2:  goto labelL2;
22489     case 3:  goto labelL3;
22490     case 4:  goto labelL4;
22491     case 5:  goto labelL5;
22492     }
22493 labelL1:
22494     l1_1.n = 3;
22495     l1_1.nili = 0;
22496     l1_1.ninl = 1;
22497     l1_1.neli = 0;
22498     l1_1.nenl = 0;
22499     for (i__ = 1; i__ <= 3; ++i__) {
22500 /* labelL6: */
22501     l2_2.x[i__ - 1] = 1.;
22502     }
22503     l12_2.lxu[0] = false;
22504     l11_2.lxl[0] = false;
22505     l12_2.lxu[1] = false;
22506     l11_2.lxl[1] = true;
22507     l12_2.lxu[2] = true;
22508     l11_2.lxl[2] = false;
22509     l13_2.xl[1] = 1.;
22510     l14_2.xu[2] = 1.;
22511     l5_5.gg[2] = 0.;
22512     l20_3.lex = false;
22513     l20_3.nex = 1;
22514     l20_3.xex[0] = .57735194;
22515     l20_3.xex[1] = 1.7320458;
22516     l20_3.xex[2] = -2.0256839e-6;
22517     l20_3.fex = 6.;
22518     return 0;
22519 labelL2:
22520 /* Computing 2nd power */
22521     d__1 = l2_2.x[0];
22522 /* Computing 2nd power */
22523     d__2 = l2_2.x[1];
22524 /* Computing 2nd power */
22525     d__3 = l2_2.x[2];
22526     l6_1.fx = d__1 * d__1 * 9. + d__2 * d__2 + d__3 * d__3 * 9.;
22527     return 0;
22528 labelL3:
22529     l4_2.gf[0] = l2_2.x[0] * 18.;
22530     l4_2.gf[1] = l2_2.x[1] * 2.;
22531     l4_2.gf[2] = l2_2.x[2] * 18.;
22532     return 0;
22533 labelL4:
22534     if (l9_2.index1[0]) {
22535     l3_1.g[0] = l2_2.x[0] * l2_2.x[1] - 1.;
22536     }
22537     return 0;
22538 labelL5:
22539     if (! l10_2.index2[0]) {
22540     goto L7;
22541     }
22542     l5_5.gg[0] = l2_2.x[1];
22543     l5_5.gg[1] = l2_2.x[0];
22544 L7:
22545     return 0;
22546 } /* tp337_ */
22547 
tp338_(int * mode)22548 /* Subroutine */ int tp338_(int *mode)
22549 {
22550     /* System generated locals */
22551     Real d__1, d__2, d__3;
22552 
22553     /* Local variables */
22554     static int i__;
22555 
22556     switch ((int)*mode) {
22557     case 1:  goto labelL1;
22558     case 2:  goto labelL2;
22559     case 3:  goto labelL3;
22560     case 4:  goto labelL4;
22561     case 5:  goto labelL5;
22562     }
22563 labelL1:
22564     l1_1.n = 3;
22565     l1_1.nili = 0;
22566     l1_1.ninl = 0;
22567     l1_1.neli = 1;
22568     l1_1.nenl = 1;
22569     for (i__ = 1; i__ <= 3; ++i__) {
22570     l2_2.x[i__ - 1] = 0.;
22571     l11_2.lxl[i__ - 1] = false;
22572 /* labelL6: */
22573     l12_2.lxu[i__ - 1] = false;
22574     }
22575     l5_3.gg[0] = .5;
22576     l5_3.gg[2] = 1.;
22577     l5_3.gg[4] = 1.;
22578     l20_3.lex = false;
22579     l20_3.nex = 1;
22580     l20_3.xex[0] = .36689438;
22581     l20_3.xex[1] = 2.2437202;
22582     l20_3.xex[2] = -1.4271674;
22583     l20_3.fex = -7.2056984;
22584     return 0;
22585 labelL2:
22586 /* Computing 2nd power */
22587     d__1 = l2_2.x[0];
22588 /* Computing 2nd power */
22589     d__2 = l2_2.x[1];
22590 /* Computing 2nd power */
22591     d__3 = l2_2.x[2];
22592     l6_1.fx = -(d__1 * d__1 + d__2 * d__2 + d__3 * d__3);
22593     return 0;
22594 labelL3:
22595     for (i__ = 1; i__ <= 3; ++i__) {
22596 /* L7: */
22597     l4_2.gf[i__ - 1] = l2_2.x[i__ - 1] * -2.;
22598     }
22599     return 0;
22600 labelL4:
22601     if (l9_3.index1[0]) {
22602     l3_2.g[0] = l2_2.x[0] * .5 + l2_2.x[1] + l2_2.x[2] - 1.;
22603     }
22604     if (l9_3.index1[1]) {
22605 /* Computing 2nd power */
22606     d__1 = l2_2.x[0];
22607 /* Computing 2nd power */
22608     d__2 = l2_2.x[1];
22609 /* Computing 2nd power */
22610     d__3 = l2_2.x[2];
22611     l3_2.g[1] = d__1 * d__1 + d__2 * d__2 * .66666666666666663 + d__3 *
22612         d__3 * .25 - 4.;
22613     }
22614     return 0;
22615 labelL5:
22616     if (! l10_3.index2[1]) {
22617     goto L8;
22618     }
22619     l5_3.gg[1] = l2_2.x[0] * 2.;
22620     l5_3.gg[3] = l2_2.x[1] * 1.3333333333333333;
22621     l5_3.gg[5] = l2_2.x[2] * .5;
22622 L8:
22623     return 0;
22624 } /* tp338_ */
22625 
tp339_(int * mode)22626 /* Subroutine */ int tp339_(int *mode)
22627 {
22628     /* System generated locals */
22629     Real d__1, d__2;
22630 
22631     /* Local variables */
22632     static int i__;
22633 
22634     switch ((int)*mode) {
22635     case 1:  goto labelL1;
22636     case 2:  goto labelL2;
22637     case 3:  goto labelL3;
22638     case 4:  goto labelL4;
22639     case 5:  goto labelL5;
22640     }
22641 labelL1:
22642     l1_1.n = 3;
22643     l1_1.nili = 0;
22644     l1_1.ninl = 1;
22645     l1_1.neli = 0;
22646     l1_1.nenl = 0;
22647     for (i__ = 1; i__ <= 3; ++i__) {
22648     l2_2.x[i__ - 1] = 1.;
22649     l12_2.lxu[i__ - 1] = false;
22650     l11_2.lxl[i__ - 1] = true;
22651 /* labelL6: */
22652     l13_2.xl[i__ - 1] = 0.;
22653     }
22654     l20_3.lex = false;
22655     l20_3.nex = 1;
22656     l20_3.xex[0] = 2.3797626;
22657     l20_3.xex[1] = .31622787;
22658     l20_3.xex[2] = 1.9429359;
22659     l20_3.fex = 3.3616797;
22660     return 0;
22661 labelL2:
22662     l6_1.fx = .2 / (l2_2.x[0] * l2_2.x[1] * l2_2.x[2]) + 4. / l2_2.x[0] + 3. /
22663          l2_2.x[2];
22664     return 0;
22665 labelL3:
22666 /* Computing 2nd power */
22667     d__1 = l2_2.x[0];
22668 /* Computing 2nd power */
22669     d__2 = l2_2.x[0];
22670     l4_2.gf[0] = -.2 / (l2_2.x[1] * l2_2.x[2] * (d__1 * d__1)) - 4. / (d__2 *
22671         d__2);
22672 /* Computing 2nd power */
22673     d__1 = l2_2.x[1];
22674     l4_2.gf[1] = -.2 / (l2_2.x[0] * l2_2.x[2] * (d__1 * d__1));
22675 /* Computing 2nd power */
22676     d__1 = l2_2.x[2];
22677 /* Computing 2nd power */
22678     d__2 = l2_2.x[2];
22679     l4_2.gf[2] = -.2 / (l2_2.x[0] * l2_2.x[1] * (d__1 * d__1)) - 3. / (d__2 *
22680         d__2);
22681     return 0;
22682 labelL4:
22683     if (l9_2.index1[0]) {
22684     l3_1.g[0] = 10. - l2_2.x[0] * 2. * l2_2.x[2] - l2_2.x[0] * l2_2.x[1];
22685     }
22686     return 0;
22687 labelL5:
22688     if (! l10_2.index2[0]) {
22689     goto L8;
22690     }
22691     l5_5.gg[0] = l2_2.x[2] * -2. - l2_2.x[1];
22692     l5_5.gg[1] = -l2_2.x[0];
22693     l5_5.gg[2] = l2_2.x[0] * -2.;
22694 L8:
22695     return 0;
22696 } /* tp339_ */
22697 
tp340_(int * mode)22698 /* Subroutine */ int tp340_(int *mode)
22699 {
22700     static int i__;
22701 
22702     switch ((int)*mode) {
22703     case 1:  goto labelL1;
22704     case 2:  goto labelL2;
22705     case 3:  goto labelL3;
22706     case 4:  goto labelL4;
22707     case 5:  goto labelL5;
22708     }
22709 labelL1:
22710     l1_1.n = 3;
22711     l1_1.nili = 1;
22712     l1_1.ninl = 0;
22713     l1_1.neli = 0;
22714     l1_1.nenl = 0;
22715     for (i__ = 1; i__ <= 3; ++i__) {
22716     l2_2.x[i__ - 1] = 1.;
22717     l12_2.lxu[i__ - 1] = false;
22718 /* labelL6: */
22719     l11_2.lxl[i__ - 1] = false;
22720     }
22721     l12_2.lxu[0] = true;
22722     l14_2.xu[0] = 1.;
22723     l5_5.gg[0] = -1.;
22724     l5_5.gg[1] = -2.;
22725     l5_5.gg[2] = -2.;
22726     l20_3.lex = false;
22727     l20_3.nex = 1;
22728     l20_3.xex[0] = .60000009;
22729     l20_3.xex[1] = .29999998;
22730     l20_3.xex[2] = .29999998;
22731     l20_3.fex = -.054;
22732     return 0;
22733 labelL2:
22734     l6_1.fx = -l2_2.x[0] * l2_2.x[1] * l2_2.x[2];
22735     return 0;
22736 labelL3:
22737     l4_2.gf[0] = -l2_2.x[1] * l2_2.x[2];
22738     l4_2.gf[1] = -l2_2.x[0] * l2_2.x[2];
22739     l4_2.gf[2] = -l2_2.x[0] * l2_2.x[1];
22740     return 0;
22741 labelL4:
22742     if (l9_2.index1[0]) {
22743     l3_1.g[0] = 1.8 - l2_2.x[0] - l2_2.x[1] * 2. - l2_2.x[2] * 2.;
22744     }
22745 labelL5:
22746     return 0;
22747 } /* tp340_ */
22748 
tp341_(int * mode)22749 /* Subroutine */ int tp341_(int *mode)
22750 {
22751     /* System generated locals */
22752     Real d__1, d__2, d__3;
22753 
22754     /* Local variables */
22755     static int i__;
22756 
22757     switch ((int)*mode) {
22758     case 1:  goto labelL1;
22759     case 2:  goto labelL2;
22760     case 3:  goto labelL3;
22761     case 4:  goto labelL4;
22762     case 5:  goto labelL5;
22763     }
22764 labelL1:
22765     l1_1.n = 3;
22766     l1_1.nili = 0;
22767     l1_1.ninl = 1;
22768     l1_1.neli = 0;
22769     l1_1.nenl = 0;
22770     for (i__ = 1; i__ <= 3; ++i__) {
22771     l2_2.x[i__ - 1] = 1.;
22772     l11_2.lxl[i__ - 1] = true;
22773     l12_2.lxu[i__ - 1] = false;
22774 /* labelL6: */
22775     l13_2.xl[i__ - 1] = 0.;
22776     }
22777     l20_3.lex = false;
22778     l20_3.nex = 1;
22779     l20_3.xex[0] = 4.;
22780     l20_3.xex[1] = 2.8284271;
22781     l20_3.xex[2] = 2.;
22782     l20_3.fex = -22.627417;
22783     return 0;
22784 labelL2:
22785     l6_1.fx = -l2_2.x[0] * l2_2.x[1] * l2_2.x[2];
22786     return 0;
22787 labelL3:
22788     l4_2.gf[0] = -l2_2.x[1] * l2_2.x[2];
22789     l4_2.gf[1] = -l2_2.x[0] * l2_2.x[2];
22790     l4_2.gf[2] = -l2_2.x[0] * l2_2.x[1];
22791     return 0;
22792 labelL4:
22793     if (l9_2.index1[0]) {
22794 /* Computing 2nd power */
22795     d__1 = l2_2.x[0];
22796 /* Computing 2nd power */
22797     d__2 = l2_2.x[1];
22798 /* Computing 2nd power */
22799     d__3 = l2_2.x[2];
22800     l3_1.g[0] = d__1 * d__1 * -1. - d__2 * d__2 * 2. - d__3 * d__3 * 4. +
22801         48.;
22802     }
22803     return 0;
22804 labelL5:
22805     if (! l10_2.index2[0]) {
22806     goto L7;
22807     }
22808     l5_5.gg[0] = l2_2.x[0] * -2.;
22809     l5_5.gg[1] = l2_2.x[1] * -4.;
22810     l5_5.gg[2] = l2_2.x[2] * -8.;
22811 L7:
22812     return 0;
22813 } /* tp341_ */
22814 
tp342_(int * mode)22815 /* Subroutine */ int tp342_(int *mode)
22816 {
22817     /* System generated locals */
22818     Real d__1, d__2, d__3;
22819 
22820     /* Local variables */
22821     static int i__;
22822 
22823     switch ((int)*mode) {
22824     case 1:  goto labelL1;
22825     case 2:  goto labelL2;
22826     case 3:  goto labelL3;
22827     case 4:  goto labelL4;
22828     case 5:  goto labelL5;
22829     }
22830 labelL1:
22831     l1_1.n = 3;
22832     l1_1.nili = 0;
22833     l1_1.ninl = 1;
22834     l1_1.neli = 0;
22835     l1_1.nenl = 0;
22836     for (i__ = 1; i__ <= 3; ++i__) {
22837     l2_2.x[i__ - 1] = 1.;
22838     l12_2.lxu[i__ - 1] = false;
22839     l11_2.lxl[i__ - 1] = true;
22840 /* labelL6: */
22841     l13_2.xl[i__ - 1] = 0.;
22842     }
22843     l20_3.lex = false;
22844     l20_3.nex = 1;
22845     l20_3.xex[0] = 4.;
22846     l20_3.xex[1] = 2.8284271;
22847     l20_3.xex[2] = 2.;
22848     l20_3.fex = -22.627417;
22849     return 0;
22850 labelL2:
22851     l6_1.fx = -l2_2.x[0] * l2_2.x[1] * l2_2.x[2];
22852     return 0;
22853 labelL3:
22854     l4_2.gf[0] = -l2_2.x[1] * l2_2.x[2];
22855     l4_2.gf[1] = -l2_2.x[0] * l2_2.x[2];
22856     l4_2.gf[2] = -l2_2.x[0] * l2_2.x[1];
22857     return 0;
22858 labelL4:
22859     if (l9_2.index1[0]) {
22860 /* Computing 2nd power */
22861     d__1 = l2_2.x[0];
22862 /* Computing 2nd power */
22863     d__2 = l2_2.x[1];
22864 /* Computing 2nd power */
22865     d__3 = l2_2.x[2];
22866     l3_1.g[0] = 48. - d__1 * d__1 - d__2 * d__2 * 2. - d__3 * d__3 * 4.;
22867     }
22868     return 0;
22869 labelL5:
22870     if (! l10_2.index2[0]) {
22871     goto L8;
22872     }
22873     l5_5.gg[0] = l2_2.x[0] * -2.;
22874     l5_5.gg[1] = l2_2.x[1] * -4.;
22875     l5_5.gg[2] = l2_2.x[2] * -8.;
22876 L8:
22877     return 0;
22878 } /* tp342_ */
22879 
tp343_(int * mode)22880 /* Subroutine */ int tp343_(int *mode)
22881 {
22882     /* System generated locals */
22883     Real d__1, d__2;
22884 
22885     /* Local variables */
22886     static int i__;
22887 
22888     switch ((int)*mode) {
22889     case 1:  goto labelL1;
22890     case 2:  goto labelL2;
22891     case 3:  goto labelL3;
22892     case 4:  goto labelL4;
22893     case 5:  goto labelL5;
22894     }
22895 labelL1:
22896     l1_1.n = 3;
22897     l1_1.nili = 0;
22898     l1_1.ninl = 2;
22899     l1_1.neli = 0;
22900     l1_1.nenl = 0;
22901     for (i__ = 1; i__ <= 3; ++i__) {
22902     l12_2.lxu[i__ - 1] = true;
22903     l11_2.lxl[i__ - 1] = true;
22904 /* labelL6: */
22905     l13_2.xl[i__ - 1] = 0.;
22906     }
22907     l2_2.x[0] = 22.3;
22908     l2_2.x[1] = .5;
22909     l2_2.x[2] = 125.;
22910     l14_2.xu[0] = 36.;
22911     l14_2.xu[1] = 5.;
22912     l14_2.xu[2] = 125.;
22913     l5_3.gg[4] = 0.;
22914     l5_3.gg[3] = 0.;
22915     l20_3.lex = false;
22916     l20_3.nex = 1;
22917     l20_3.xex[0] = 16.508383;
22918     l20_3.xex[1] = 2.4768216;
22919     l20_3.xex[2] = 123.99452;
22920     l20_3.fex = -5.6847825;
22921     return 0;
22922 labelL2:
22923 /* Computing 4th power */
22924     d__1 = l2_2.x[0], d__1 *= d__1;
22925 /* Computing 2nd power */
22926     d__2 = l2_2.x[2];
22927     l6_1.fx = d__1 * d__1 * -.0201 * l2_2.x[1] * (d__2 * d__2) * 1e-7;
22928     return 0;
22929 labelL3:
22930 /* Computing 3rd power */
22931     d__1 = l2_2.x[0];
22932 /* Computing 2nd power */
22933     d__2 = l2_2.x[2];
22934     l4_2.gf[0] = d__1 * (d__1 * d__1) * -.0804 * l2_2.x[1] * (d__2 * d__2) *
22935         1e-7;
22936 /* Computing 4th power */
22937     d__1 = l2_2.x[0], d__1 *= d__1;
22938 /* Computing 2nd power */
22939     d__2 = l2_2.x[2];
22940     l4_2.gf[1] = d__1 * d__1 * -.0201 * (d__2 * d__2) * 1e-7;
22941 /* Computing 4th power */
22942     d__1 = l2_2.x[0], d__1 *= d__1;
22943     l4_2.gf[2] = d__1 * d__1 * -.0402 * l2_2.x[1] * l2_2.x[2] * 1e-7;
22944     return 0;
22945 labelL4:
22946     if (l9_3.index1[0]) {
22947 /* Computing 2nd power */
22948     d__1 = l2_2.x[0];
22949     l3_2.g[0] = 675. - d__1 * d__1 * l2_2.x[1];
22950     }
22951     if (l9_3.index1[1]) {
22952 /* Computing 2nd power */
22953     d__1 = l2_2.x[0];
22954 /* Computing 2nd power */
22955     d__2 = l2_2.x[2];
22956     l3_2.g[1] = .419 - d__1 * d__1 * (d__2 * d__2) * 1e-7;
22957     }
22958     return 0;
22959 labelL5:
22960     if (! l10_3.index2[0]) {
22961     goto L7;
22962     }
22963     l5_3.gg[0] = l2_2.x[0] * -2. * l2_2.x[1];
22964 /* Computing 2nd power */
22965     d__1 = l2_2.x[0];
22966     l5_3.gg[2] = -(d__1 * d__1);
22967 L7:
22968     if (! l10_3.index2[1]) {
22969     goto L8;
22970     }
22971 /* Computing 2nd power */
22972     d__1 = l2_2.x[2];
22973     l5_3.gg[1] = l2_2.x[0] * -2e-7 * (d__1 * d__1);
22974 /* Computing 2nd power */
22975     d__1 = l2_2.x[0];
22976     l5_3.gg[5] = d__1 * d__1 * -2e-7 * l2_2.x[2];
22977 L8:
22978     return 0;
22979 } /* tp343_ */
22980 
tp344_(int * mode)22981 /* Subroutine */ int tp344_(int *mode)
22982 {
22983     /* System generated locals */
22984     Real d__1, d__2, d__3;
22985 
22986     /* Local variables */
22987     static int i__;
22988 
22989     switch ((int)*mode) {
22990     case 1:  goto labelL1;
22991     case 2:  goto labelL2;
22992     case 3:  goto labelL3;
22993     case 4:  goto labelL4;
22994     case 5:  goto labelL5;
22995     }
22996 labelL1:
22997     l1_1.n = 3;
22998     l1_1.nili = 0;
22999     l1_1.ninl = 0;
23000     l1_1.neli = 0;
23001     l1_1.nenl = 1;
23002     for (i__ = 1; i__ <= 3; ++i__) {
23003     l2_2.x[i__ - 1] = 2.;
23004     l11_2.lxl[i__ - 1] = false;
23005 /* labelL6: */
23006     l12_2.lxu[i__ - 1] = false;
23007     }
23008     l20_3.lex = false;
23009     l20_3.nex = 1;
23010     l20_3.xex[0] = 1.104859;
23011     l20_3.xex[1] = 1.1966742;
23012     l20_3.xex[2] = 1.5352623;
23013     l20_3.fex = .0325682;
23014     return 0;
23015 labelL2:
23016 /* Computing 2nd power */
23017     d__1 = l2_2.x[0] - 1.;
23018 /* Computing 2nd power */
23019     d__2 = l2_2.x[0] - l2_2.x[1];
23020 /* Computing 4th power */
23021     d__3 = l2_2.x[1] - l2_2.x[2], d__3 *= d__3;
23022     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3;
23023     return 0;
23024 labelL3:
23025     l4_2.gf[0] = (l2_2.x[0] - 1.) * 2. + (l2_2.x[0] - l2_2.x[1]) * 2.;
23026 /* Computing 3rd power */
23027     d__1 = l2_2.x[1] - l2_2.x[2];
23028     l4_2.gf[1] = (l2_2.x[0] - l2_2.x[1]) * -2. + d__1 * (d__1 * d__1) * 4.;
23029 /* Computing 3rd power */
23030     d__1 = l2_2.x[1] - l2_2.x[2];
23031     l4_2.gf[2] = d__1 * (d__1 * d__1) * -4.;
23032     return 0;
23033 labelL4:
23034     if (l9_2.index1[0]) {
23035 /* Computing 2nd power */
23036     d__1 = l2_2.x[1];
23037 /* Computing 4th power */
23038     d__2 = l2_2.x[2], d__2 *= d__2;
23039     l3_1.g[0] = l2_2.x[0] * (d__1 * d__1 + 1.) + d__2 * d__2 - 4. - std::sqrt(
23040         2.) * 3.;
23041     }
23042     return 0;
23043 labelL5:
23044     if (! l10_2.index2[0]) {
23045     goto L7;
23046     }
23047 /* Computing 2nd power */
23048     d__1 = l2_2.x[1];
23049     l5_5.gg[0] = d__1 * d__1 + 1.;
23050     l5_5.gg[1] = l2_2.x[0] * 2. * l2_2.x[1];
23051 /* Computing 3rd power */
23052     d__1 = l2_2.x[2];
23053     l5_5.gg[2] = d__1 * (d__1 * d__1) * 4.;
23054 L7:
23055     return 0;
23056 } /* tp344_ */
23057 
tp345_(int * mode)23058 /* Subroutine */ int tp345_(int *mode)
23059 {
23060     /* System generated locals */
23061     Real d__1, d__2, d__3;
23062 
23063     /* Local variables */
23064     static int i__;
23065 
23066     switch ((int)*mode) {
23067     case 1:  goto labelL1;
23068     case 2:  goto labelL2;
23069     case 3:  goto labelL3;
23070     case 4:  goto labelL4;
23071     case 5:  goto labelL5;
23072     }
23073 labelL1:
23074     l1_1.n = 3;
23075     l1_1.nili = 0;
23076     l1_1.ninl = 0;
23077     l1_1.neli = 0;
23078     l1_1.nenl = 1;
23079     for (i__ = 1; i__ <= 3; ++i__) {
23080     l2_2.x[i__ - 1] = 0.;
23081     l12_2.lxu[i__ - 1] = false;
23082 /* labelL6: */
23083     l11_2.lxl[i__ - 1] = false;
23084     }
23085     l20_3.lex = false;
23086     l20_3.nex = 1;
23087     l20_3.xex[0] = 1.1048584;
23088     l20_3.xex[1] = 1.1966752;
23089     l20_3.xex[2] = 1.5352622;
23090     l20_3.fex = .0325682;
23091     return 0;
23092 labelL2:
23093 /* Computing 2nd power */
23094     d__1 = l2_2.x[0] - 1.;
23095 /* Computing 2nd power */
23096     d__2 = l2_2.x[0] - l2_2.x[1];
23097 /* Computing 4th power */
23098     d__3 = l2_2.x[1] - l2_2.x[2], d__3 *= d__3;
23099     l6_1.fx = d__1 * d__1 + d__2 * d__2 + d__3 * d__3;
23100     return 0;
23101 labelL3:
23102     l4_2.gf[0] = (l2_2.x[0] - 1) * 2. + (l2_2.x[0] - l2_2.x[1]) * 2.;
23103 /* Computing 3rd power */
23104     d__1 = l2_2.x[1] - l2_2.x[2];
23105     l4_2.gf[1] = (l2_2.x[0] - l2_2.x[1]) * -2. + d__1 * (d__1 * d__1) * 4.;
23106 /* Computing 3rd power */
23107     d__1 = l2_2.x[1] - l2_2.x[2];
23108     l4_2.gf[2] = d__1 * (d__1 * d__1) * -4.;
23109     return 0;
23110 labelL4:
23111     if (l9_2.index1[0]) {
23112 /* Computing 2nd power */
23113     d__1 = l2_2.x[1];
23114 /* Computing 4th power */
23115     d__2 = l2_2.x[2], d__2 *= d__2;
23116     l3_1.g[0] = l2_2.x[0] * (d__1 * d__1 + 1.) + d__2 * d__2 - 4. - std::sqrt(
23117         18.);
23118     }
23119     return 0;
23120 labelL5:
23121     if (! l10_2.index2[0]) {
23122     goto L8;
23123     }
23124 /* Computing 2nd power */
23125     d__1 = l2_2.x[1];
23126     l5_5.gg[0] = d__1 * d__1 + 1.;
23127     l5_5.gg[1] = l2_2.x[0] * 2. * l2_2.x[1];
23128 /* Computing 3rd power */
23129     d__1 = l2_2.x[2];
23130     l5_5.gg[2] = d__1 * (d__1 * d__1) * 4.;
23131 L8:
23132     return 0;
23133 } /* tp345_ */
23134 
tp346_(int * mode)23135 /* Subroutine */ int tp346_(int *mode)
23136 {
23137     /* System generated locals */
23138     Real d__1, d__2;
23139 
23140     /* Local variables */
23141     static int i__;
23142 
23143     switch ((int)*mode) {
23144     case 1:  goto labelL1;
23145     case 2:  goto labelL2;
23146     case 3:  goto labelL3;
23147     case 4:  goto labelL4;
23148     case 5:  goto labelL5;
23149     }
23150 labelL1:
23151     l1_1.n = 3;
23152     l1_1.nili = 0;
23153     l1_1.ninl = 2;
23154     l1_1.neli = 0;
23155     l1_1.nenl = 0;
23156     for (i__ = 1; i__ <= 3; ++i__) {
23157     l12_2.lxu[i__ - 1] = true;
23158     l11_2.lxl[i__ - 1] = true;
23159 /* labelL6: */
23160     l13_2.xl[i__ - 1] = 0.;
23161     }
23162     l2_2.x[0] = 22.3;
23163     l2_2.x[1] = .5;
23164     l2_2.x[2] = 125.;
23165     l14_2.xu[0] = 36.;
23166     l14_2.xu[1] = 5.;
23167     l14_2.xu[2] = 125.;
23168     l5_3.gg[4] = 0.;
23169     l5_3.gg[3] = 0.;
23170     l20_3.lex = false;
23171     l20_3.nex = 1;
23172     l20_3.xex[0] = 16.508383;
23173     l20_3.xex[1] = 2.4768216;
23174     l20_3.xex[2] = 123.99452;
23175     l20_3.fex = -5.6847825;
23176     return 0;
23177 labelL2:
23178 /* Computing 4th power */
23179     d__1 = l2_2.x[0], d__1 *= d__1;
23180 /* Computing 2nd power */
23181     d__2 = l2_2.x[2];
23182     l6_1.fx = d__1 * d__1 * -.0201 * l2_2.x[1] * (d__2 * d__2) * 1e-7;
23183     return 0;
23184 labelL3:
23185 /* Computing 3rd power */
23186     d__1 = l2_2.x[0];
23187 /* Computing 2nd power */
23188     d__2 = l2_2.x[2];
23189     l4_2.gf[0] = d__1 * (d__1 * d__1) * -.0804 * l2_2.x[1] * (d__2 * d__2) *
23190         1e-7;
23191 /* Computing 4th power */
23192     d__1 = l2_2.x[0], d__1 *= d__1;
23193 /* Computing 2nd power */
23194     d__2 = l2_2.x[2];
23195     l4_2.gf[1] = d__1 * d__1 * -.0201 * (d__2 * d__2) * 1e-7;
23196 /* Computing 4th power */
23197     d__1 = l2_2.x[0], d__1 *= d__1;
23198     l4_2.gf[2] = d__1 * d__1 * -.0402 * l2_2.x[1] * l2_2.x[2] * 1e-7;
23199     return 0;
23200 labelL4:
23201     if (l9_3.index1[0]) {
23202 /* Computing 2nd power */
23203     d__1 = l2_2.x[0];
23204     l3_2.g[0] = 675. - d__1 * d__1 * l2_2.x[1];
23205     }
23206     if (l9_3.index1[1]) {
23207 /* Computing 2nd power */
23208     d__1 = l2_2.x[0];
23209 /* Computing 2nd power */
23210     d__2 = l2_2.x[2];
23211     l3_2.g[1] = .419 - d__1 * d__1 * (d__2 * d__2) * 1e-7;
23212     }
23213     return 0;
23214 labelL5:
23215     if (! l10_3.index2[0]) {
23216     goto L7;
23217     }
23218     l5_3.gg[0] = l2_2.x[0] * -2. * l2_2.x[1];
23219 /* Computing 2nd power */
23220     d__1 = l2_2.x[0];
23221     l5_3.gg[2] = -(d__1 * d__1);
23222 L7:
23223     if (! l10_3.index2[1]) {
23224     goto L8;
23225     }
23226 /* Computing 2nd power */
23227     d__1 = l2_2.x[2];
23228     l5_3.gg[1] = l2_2.x[0] * -2e-7 * (d__1 * d__1);
23229 /* Computing 2nd power */
23230     d__1 = l2_2.x[0];
23231     l5_3.gg[5] = d__1 * d__1 * -2e-7 * l2_2.x[2];
23232 L8:
23233     return 0;
23234 } /* tp346_ */
23235 
tp347_(int * mode)23236 /* Subroutine */ int tp347_(int *mode)
23237 {
23238     /* Initialized data */
23239 
23240     static Real a[3] = { 8204.37,9008.72,9330.46 };
23241 
23242     /* Local variables */
23243     static int ninl;
23244     static Real h__[8];
23245     static int i__;
23246 
23247     switch ((int)*mode) {
23248     case 1:  goto labelL1;
23249     case 2:  goto labelL2;
23250     case 3:  goto labelL2;
23251     case 4:  goto labelL4;
23252     case 5:  goto labelL5;
23253     }
23254 labelL1:
23255     l1_3.n = 3;
23256     l1_3.nili = 0;
23257     ninl = 0;
23258     l1_3.neli = 1;
23259     l1_3.nenl = 0;
23260     l2_2.x[0] = .7;
23261     l2_2.x[1] = .2;
23262     l2_2.x[2] = .1;
23263     for (i__ = 1; i__ <= 3; ++i__) {
23264     l11_2.lxl[i__ - 1] = true;
23265     l12_2.lxu[i__ - 1] = true;
23266     l13_2.xl[i__ - 1] = 0.;
23267     l14_2.xu[i__ - 1] = 1.;
23268 /* L7: */
23269     l5_5.gg[i__ - 1] = 1.;
23270     }
23271     l20_3.lex = false;
23272     l20_3.nex = 1;
23273     l20_3.xex[0] = 0.;
23274     l20_3.xex[1] = 0.;
23275     l20_3.xex[2] = 1.;
23276     l20_3.fex = 17374.625;
23277     return 0;
23278 labelL2:
23279     h__[0] = l2_2.x[0] + l2_2.x[1] + l2_2.x[2] + .03;
23280     h__[1] = l2_2.x[0] * .09 + l2_2.x[1] + l2_2.x[2] + .03;
23281     h__[2] = h__[0] * h__[1];
23282     h__[3] = l2_2.x[1] + l2_2.x[2] + .03;
23283     h__[4] = l2_2.x[1] * .07 + l2_2.x[2] + .03;
23284     h__[5] = h__[3] * h__[4];
23285     h__[6] = l2_2.x[2] + .03;
23286     h__[7] = l2_2.x[2] * .13 + .03;
23287     if (*mode == 3) {
23288     goto labelL3;
23289     }
23290     l6_1.fx = a[0] * std::log(h__[0] / h__[1]) + a[1] * std::log(h__[3] / h__[4]) + a[2]
23291          * std::log(h__[6] / h__[7]);
23292     return 0;
23293 labelL3:
23294     l4_2.gf[0] = a[0] * (h__[1] - h__[0] * .09) / h__[2];
23295     l4_2.gf[1] = a[0] * (h__[1] - h__[0]) / h__[2] + a[1] * (h__[4] - h__[3] *
23296          .07) / h__[5];
23297     l4_2.gf[2] = a[0] * (h__[1] - h__[0]) / h__[2] + a[1] * (h__[4] - h__[3])
23298         / h__[5] + a[2] * (h__[7] - h__[6] * .13) / (h__[6] * h__[7]);
23299     return 0;
23300 labelL4:
23301     if (l9_2.index1[0]) {
23302     l3_1.g[0] = l2_2.x[0] + l2_2.x[1] + l2_2.x[2] - 1.;
23303     }
23304 labelL5:
23305     return 0;
23306 } /* tp347_ */
23307 
23308 
tp348_(int * mode)23309 /* Subroutine */ int tp348_(int *mode)
23310 {
23311     /* Initialized data */
23312 
23313     static Real rho = .0747;
23314     static Real xmu = .0443;
23315     static Real cp = .24;
23316     static Real pr = .709;
23317     static Real pi = 3.14159;
23318     static Real d__ = .525;
23319     static Real tin = 75.;
23320     static Real tsurf = 45.;
23321     static Real h__ = 13.13;
23322     static Real w = 3.166;
23323     static Real rhoc = 559.;
23324     static Real rhoa = 169.;
23325 
23326     /* System generated locals */
23327     Real d__1, d__2;
23328 
23329     /* Local variables */
23330     static Real etaf, delp, etas, xval;
23331     static int i__;
23332     static Real q, costf, costm, h1, xmdot, costt, ac, af, gi, at, re,
23333         ho, hef;
23334 
23335     switch ((int)*mode) {
23336     case 1:  goto labelL1;
23337     case 2:  goto labelL2;
23338     case 3:  goto labelL3;
23339     case 4:  goto labelL4;
23340     case 5:  goto labelL5;
23341     }
23342 labelL1:
23343     l1_1.n = 3;
23344     l1_1.nili = 0;
23345     l1_1.ninl = 0;
23346     l1_1.neli = 0;
23347     l1_1.nenl = 1;
23348     for (i__ = 1; i__ <= 3; ++i__) {
23349     l11_2.lxl[i__ - 1] = false;
23350 /* labelL6: */
23351     l12_2.lxu[i__ - 1] = true;
23352     }
23353     l11_2.lxl[1] = true;
23354     l13_2.xl[1] = 13.13;
23355     l14_2.xu[0] = .044;
23356     l14_2.xu[1] = 24.;
23357     l14_2.xu[2] = 600.;
23358     l2_2.x[0] = .1;
23359     l2_2.x[1] = 18.;
23360     l2_2.x[2] = 144.;
23361     l20_3.lex = false;
23362     l20_3.nex = 1;
23363     l20_3.xex[0] = .044;
23364     l20_3.xex[1] = 24.;
23365     l20_3.xex[2] = 85.607576;
23366     l20_3.fex = 36.97084;
23367     return 0;
23368 labelL2:
23369 /* Computing 2nd power */
23370     d__1 = d__;
23371     af = l2_2.x[1] / l2_2.x[0] * 2. * (w * h__ - pi * 30. * (d__1 * d__1) /
23372         4.) / 144.;
23373     at = pi * 30. * d__ * l2_2.x[1] / 144.;
23374     ac = (h__ * l2_2.x[1] - d__ * 10. * l2_2.x[1] - l2_2.x[1] / l2_2.x[0] *
23375         .006 * h__) / 144.;
23376     gi = rho * l2_2.x[2] * (h__ * l2_2.x[1]) / (ac * 144.) * 60.;
23377     re = gi * 1.083 / (xmu * 12.);
23378     if (re < 1e-10) {
23379     re = 1e-10;
23380     }
23381     ho = gi * .195 * cp / (pow_dd(&pr, &c_b993) * pow_dd(&re, &c_b2368));
23382     xmdot = rho * l2_2.x[2] * h__ * l2_2.x[1] / 144. * 60.;
23383 /* Computing 2nd power */
23384     d__1 = gi;
23385     delp = 1.833e-6 / rho * (d__1 * d__1) * 3. * (af / ac * pow_dd(&re, &
23386         c_b308) + at * .1 / ac);
23387     if (ho < 1e-10) {
23388     ho = 1e-10;
23389     }
23390     xval = std::sqrt(ho) * .0732;
23391     etaf = std::tanh(xval) / xval;
23392     etas = 1. - af / (af + at) * (1. - etaf);
23393     hef = 1. - std::exp(-etas * ho * (af + at) / (xmdot * cp));
23394     q = hef * (tin - tsurf) * xmdot * cp;
23395     if (*mode == 4) {
23396     goto L7;
23397     }
23398     h1 = delp / rho * xmdot / 1.98e6;
23399     if (h1 < 1e-10) {
23400     h1 = 1e-10;
23401     }
23402     costm = std::sqrt(h1) / .0718 + 4.;
23403 /* Computing 2nd power */
23404     d__1 = d__;
23405 /* Computing 2nd power */
23406     d__2 = d__ - .036;
23407     costt = l2_2.x[1] * 30.300000000000001 * pi / 4. * (d__1 * d__1 - d__2 *
23408         d__2);
23409     costf = h__ * .47 * w * .006 * rhoa / 1728. * l2_2.x[1] / l2_2.x[0];
23410     costt = costt * rhoc / 1728.;
23411     l6_1.fx = costm + costt + costf;
23412 labelL3:
23413     return 0;
23414 labelL4:
23415     if (! l9_2.index1[0]) {
23416     goto labelL5;
23417     }
23418     goto labelL2;
23419 L7:
23420     l3_1.g[0] = 6e3 - q;
23421 labelL5:
23422     return 0;
23423 } /* tp348_ */
23424 
23425 
tp349_(int * mode)23426 /* Subroutine */ int tp349_(int *mode)
23427 {
23428     /* Initialized data */
23429 
23430     static Real p2 = 10.;
23431     static Real c1f = .075;
23432     static Real c2f = .025;
23433     static Real h1 = 8e3;
23434     static Real h2 = 8e3;
23435     static Real e1 = 1e3;
23436     static Real e2 = 1e3;
23437     static Real cpp = 3.6938503;
23438     static Real p = 20.;
23439 
23440     /* System generated locals */
23441     Real d__1, d__2, d__3;
23442 
23443     /* Local variables */
23444     static Real area, heat, argu, wate, cost, vest, temp1, temp2, temp3;
23445     static int i__;
23446     static Real v, c0, c1, c2, xlmtd, c3, press, c4, c5, c6, c7, p1,
23447         a11, a12, a13, a22, a23, a31, a32, a33, ut, xk1, xk2, hea, dia,
23448         are, phi[9];
23449 
23450     switch ((int)*mode) {
23451     case 1:  goto labelL1;
23452     case 2:  goto labelL2;
23453     case 3:  goto labelL3;
23454     case 4:  goto labelL4;
23455     case 5:  goto labelL3;
23456     }
23457 labelL1:
23458     l1_1.n = 3;
23459     l1_1.nili = 0;
23460     l1_1.ninl = 9;
23461     l1_1.neli = 0;
23462     l1_1.nenl = 0;
23463     l2_2.x[0] = 5e3;
23464     l2_2.x[1] = 200.;
23465     l2_2.x[2] = 100.;
23466     for (i__ = 1; i__ <= 2; ++i__) {
23467     l11_2.lxl[i__ - 1] = true;
23468 /* labelL6: */
23469     l12_2.lxu[i__ - 1] = true;
23470     }
23471     l11_2.lxl[2] = false;
23472     l12_2.lxu[2] = false;
23473     l13_2.xl[0] = 1e3;
23474     l13_2.xl[1] = 100.;
23475     l14_2.xu[0] = 8e3;
23476     l14_2.xu[1] = 500.;
23477     l20_3.lex = false;
23478     l20_3.fex = -4.1489499;
23479     l20_3.xex[0] = 7828.7954;
23480     l20_3.xex[1] = 188.81406;
23481     l20_3.xex[2] = 113.81406;
23482     return 0;
23483 labelL2:
23484     p1 = 100.;
23485     for (i__ = 1; i__ <= 3; ++i__) {
23486 /* L35: */
23487     if (l2_2.x[i__ - 1] < 1e-6) {
23488         l2_2.x[i__ - 1] = 1e-6;
23489     }
23490     }
23491     xk1 = p1 * std::exp(-e1 / (l2_2.x[1] + 460.));
23492     xk2 = p2 * std::exp(-e2 / (l2_2.x[1] + 460.));
23493     v = p * l2_2.x[0] / (xk2 * (l2_2.x[0] * c2f - p));
23494     c1 = (l2_2.x[0] * c1f - p) / (l2_2.x[0] + v * xk1);
23495     ut = l2_2.x[1] * .0452 + 43.;
23496 L39:
23497     argu = (l2_2.x[1] - l2_2.x[2] - 75.) / (l2_2.x[1] - 100.);
23498     if (argu == 0.) {
23499     goto L48;
23500     }
23501     xlmtd = (25. - l2_2.x[2]) / std::log((std::abs(argu)));
23502     heat = l2_2.x[0] * cpp * (100. - l2_2.x[1]) + xk1 * (l2_2.x[0] * c1f - p)
23503         * v * h1 / (l2_2.x[0] + v * xk1) + p * h2;
23504     area = heat / (ut * xlmtd);
23505     are = std::abs(area);
23506     hea = std::abs(heat);
23507     d__1 = v / 12.72;
23508     dia = pow_dd(&d__1, &c_b2380);
23509     if (l2_2.x[1] < 200.) {
23510     goto L40;
23511     }
23512 /* Computing 3rd power */
23513     d__1 = l2_2.x[1];
23514     press = d__1 * (d__1 * d__1) * 3.3e-6 + 23.6;
23515     goto L41;
23516 L48:
23517     l2_2.x[1] *= 1.0001;
23518     goto L39;
23519 L40:
23520     press = 50.;
23521 L41:
23522 /* Computing 3rd power */
23523     d__1 = dia;
23524 /* Computing 2nd power */
23525     d__2 = dia;
23526 /* Computing 2nd power */
23527     d__3 = dia;
23528     wate = (d__1 * (d__1 * d__1) * .0909 + d__2 * d__2 * .482) * press + d__3
23529         * d__3 * 36.6 + dia * 160.5;
23530     c1 = pow_dd(&wate, &c_b2383) * 4.8;
23531     if (l2_2.x[1] < 200.) {
23532     goto L42;
23533     }
23534 /* Computing 2nd power */
23535     d__1 = dia;
23536     c2 = (l2_2.x[1] * .0133 + 17.2) * (d__1 * d__1);
23537     goto L43;
23538 L42:
23539     c2 = 0.;
23540 L43:
23541     if (press < 150.) {
23542     goto L44;
23543     }
23544 /* Computing 3rd power */
23545     d__1 = l2_2.x[1];
23546     c3 = pow_dd(&are, &c_b2387) * 270. * (d__1 * (d__1 * d__1) * 1.68e-7 +
23547         .962);
23548     goto L45;
23549 L44:
23550     c3 = pow_dd(&are, &c_b2387) * 270.;
23551 L45:
23552     c4 = dia * 140. + 1400.;
23553     d__1 = v * .05;
23554     c5 = pow_dd(&d__1, &c_b2390) * 875.;
23555 /* Computing 3rd power */
23556     d__2 = l2_2.x[1];
23557     d__1 = d__2 * (d__2 * d__2) * 4.59e-11 + 6.95e-4 + l2_2.x[0];
23558     c6 = pow_dd(&d__1, &c_b2391) * 812.;
23559     if (l2_2.x[1] < 250.) {
23560     goto L46;
23561     }
23562     d__1 = hea * 298. / l2_2.x[2];
23563     c7 = pow_dd(&d__1, &c_b2391) * 1291.;
23564     goto L47;
23565 L46:
23566     d__1 = hea * 298. / l2_2.x[2];
23567     c7 = pow_dd(&d__1, &c_b2391) * 812.;
23568 L47:
23569     cost = c1 + c2 + c3 + c4 + c5 + c6 + c7;
23570     vest = cost * 5.;
23571 /* Computing 3rd power */
23572     d__1 = l2_2.x[1];
23573     c0 = vest * .18 + 2.2e4 + v * 3.1 + (d__1 * (d__1 * d__1) * 4.59e-11 +
23574         6.95e-4) * l2_2.x[0] * 61.1 + heat * .00115 + heat * 6.92 +
23575         l2_2.x[0] * 574. * (c1f - c1) + 114800.;
23576     l6_1.fx = (6.88e5 - c0) / (vest * 2.) * -.001;
23577 labelL3:
23578     return 0;
23579 labelL4:
23580     p1 = 100.;
23581     for (i__ = 1; i__ <= 3; ++i__) {
23582 /* L37: */
23583     if (l2_2.x[i__ - 1] < 1e-6) {
23584         l2_2.x[i__ - 1] = 1e-6;
23585     }
23586     }
23587     xk1 = p1 * std::exp(-e1 / (l2_2.x[1] + 460.));
23588     xk2 = p2 * std::exp(-e2 / (l2_2.x[1] + 460.));
23589     v = p * l2_2.x[0] / (xk2 * (l2_2.x[0] * c2f - p));
23590     c1 = (l2_2.x[0] * c1f - p) / (l2_2.x[0] + v * xk1);
23591     ut = l2_2.x[1] * .0452 + 43.;
23592 L36:
23593     argu = (l2_2.x[1] - l2_2.x[2] - 75.) / (l2_2.x[1] - 100.);
23594     if (argu == 0.) {
23595     goto L49;
23596     }
23597     xlmtd = (25. - l2_2.x[2]) / std::log((std::abs(argu)));
23598     heat = l2_2.x[0] * cpp * (100. - l2_2.x[1]) + xk1 * (l2_2.x[0] * c1f - p)
23599         * v * h1 / (l2_2.x[0] + v * xk1) + p * h2;
23600     area = heat / (ut * xlmtd);
23601     d__1 = v / 12.72;
23602     dia = pow_dd(&d__1, &c_b2380);
23603     if (l2_2.x[1] < 200.) {
23604     goto L50;
23605     }
23606 /* Computing 3rd power */
23607     d__1 = l2_2.x[1];
23608     press = d__1 * (d__1 * d__1) * 3.3e-6 + 23.6;
23609     goto L51;
23610 L49:
23611     l2_2.x[1] *= 1.0001;
23612     goto L36;
23613 L50:
23614     press = 50.;
23615 L51:
23616     phi[0] = dia - 1.25;
23617     phi[1] = 9.67 - dia;
23618     phi[2] = area - 50.;
23619     phi[3] = 4e3 - area;
23620     a11 = xk1 + l2_2.x[0] / v;
23621     a12 = xk2;
23622 /* Computing 2nd power */
23623     d__1 = l2_2.x[1] + 460.;
23624 /* Computing 2nd power */
23625     d__2 = l2_2.x[1] + 460.;
23626     a13 = (l2_2.x[0] * c1f - press) * xk1 * e1 / ((l2_2.x[0] + v * xk1) * (
23627         d__1 * d__1)) + press * e2 / (v * (d__2 * d__2));
23628     a22 = xk2 + l2_2.x[0] / v;
23629 /* Computing 2nd power */
23630     d__1 = l2_2.x[1] + 460.;
23631     a23 = press * e2 / (v * (d__1 * d__1));
23632     a31 = -h1 * xk1 / cpp;
23633     a32 = -h2 * xk2 / cpp;
23634 /* Computing 2nd power */
23635     d__1 = l2_2.x[1] + 460.;
23636 /* Computing 2nd power */
23637     d__2 = l2_2.x[1] + 460.;
23638     a33 = l2_2.x[0] / v + ut * area / (v * cpp) - (l2_2.x[0] * c1f - press) *
23639         xk1 * e1 * h1 / ((l2_2.x[0] + v * xk1) * cpp * (d__1 * d__1)) -
23640         press * e2 * h2 / (v * cpp * (d__2 * d__2));
23641     temp1 = a11 + a22 + a33;
23642     phi[4] = temp1;
23643     temp2 = a11 * a22 + a22 * a33 + a33 * a11 - a13 * a31 - a23 * a32;
23644     phi[5] = temp2;
23645     temp3 = a11 * a22 * a33 + a12 * a23 * a31 - a13 * a31 * a22 - a23 * a32 *
23646         a11;
23647     phi[6] = temp3;
23648     phi[7] = temp1 * temp2 - temp3;
23649     phi[8] = heat;
23650     for (i__ = 1; i__ <= 9; ++i__) {
23651 /* L7: */
23652     if (l9_16.index1[i__ - 1]) {
23653         l3_15.g[i__ - 1] = phi[i__ - 1];
23654     }
23655     }
23656     return 0;
23657 } /* tp349_ */
23658 
23659 
tp350_(int * mode)23660 /* Subroutine */ int tp350_(int *mode)
23661 {
23662     /* Initialized data */
23663 
23664     static Real y[11] = { .1957,.1947,.1735,.16,.0844,.0627,.0456,.0342,
23665         .0323,.0235,.0246 };
23666     static Real u[11] = { 4.,2.,1.,.5,.25,.167,.125,.1,.0833,.0714,
23667         .0625 };
23668 
23669     /* System generated locals */
23670     Real d__1, d__2;
23671 
23672     /* Local variables */
23673     static Real h__[11];
23674     static int i__, j;
23675 
23676     for (i__ = 1; i__ <= 11; ++i__) {
23677 /* labelL12: */
23678 /* Computing 2nd power */
23679     d__1 = u[i__ - 1];
23680     h__[i__ - 1] = d__1 * d__1 + l2_3.x[2] * u[i__ - 1] + l2_3.x[3];
23681     }
23682     switch ((int)*mode) {
23683     case 1:  goto labelL1;
23684     case 2:  goto labelL2;
23685     case 3:  goto labelL2;
23686     case 4:  goto labelL4;
23687     case 5:  goto labelL4;
23688     }
23689 labelL1:
23690     l1_1.n = 4;
23691     l1_1.nili = 0;
23692     l1_1.ninl = 0;
23693     l1_1.neli = 0;
23694     l1_1.nenl = 0;
23695     l2_3.x[0] = .25;
23696     l2_3.x[1] = .39;
23697     l2_3.x[2] = .415;
23698     l2_3.x[3] = .39;
23699     for (i__ = 1; i__ <= 4; ++i__) {
23700     l12_3.lxu[i__ - 1] = false;
23701 /* labelL6: */
23702     l11_3.lxl[i__ - 1] = false;
23703     }
23704     l15_1.lsum = 11;
23705     l20_6.lex = false;
23706     l20_6.nex = 1;
23707     l20_6.fex = 3.0750561000000003;
23708     l20_6.xex[0] = .19280644;
23709     l20_6.xex[1] = .19126279;
23710     l20_6.xex[2] = .12305098;
23711     l20_6.xex[3] = .13605235;
23712     return 0;
23713 labelL2:
23714     for (i__ = 1; i__ <= 11; ++i__) {
23715 /* labelL20: */
23716 /* Computing 2nd power */
23717     d__1 = u[i__ - 1];
23718     l16_7.f[i__ - 1] = y[i__ - 1] - l2_3.x[0] / h__[i__ - 1] * (d__1 *
23719         d__1 + l2_3.x[1] * u[i__ - 1]);
23720     }
23721     if (*mode == 3) {
23722     goto labelL3;
23723     }
23724     l6_1.fx = 0.;
23725     for (i__ = 1; i__ <= 11; ++i__) {
23726 /* L7: */
23727 /* Computing 2nd power */
23728     d__1 = l16_7.f[i__ - 1];
23729     l6_1.fx += d__1 * d__1;
23730     }
23731     l6_1.fx *= 1e4;
23732     return 0;
23733 labelL3:
23734     for (i__ = 1; i__ <= 11; ++i__) {
23735 /* Computing 2nd power */
23736     d__1 = u[i__ - 1];
23737     l17_18.df[i__ - 1] = (-(d__1 * d__1) - l2_3.x[1] * u[i__ - 1]) / h__[
23738         i__ - 1];
23739     l17_18.df[i__ + 10] = -l2_3.x[0] * u[i__ - 1] / h__[i__ - 1];
23740 /* Computing 2nd power */
23741     d__1 = u[i__ - 1];
23742 /* Computing 2nd power */
23743     d__2 = h__[i__ - 1];
23744     l17_18.df[i__ + 21] = l2_3.x[0] * u[i__ - 1] * (d__1 * d__1 + l2_3.x[
23745         1] * u[i__ - 1]) / (d__2 * d__2);
23746 /* L8: */
23747 /* Computing 2nd power */
23748     d__1 = u[i__ - 1];
23749 /* Computing 2nd power */
23750     d__2 = h__[i__ - 1];
23751     l17_18.df[i__ + 32] = l2_3.x[0] * (d__1 * d__1 + l2_3.x[1] * u[i__ -
23752         1]) / (d__2 * d__2);
23753     }
23754     for (j = 1; j <= 4; ++j) {
23755     l4_3.gf[j - 1] = 0.;
23756     for (i__ = 1; i__ <= 11; ++i__) {
23757 /* labelL10: */
23758         l4_3.gf[j - 1] += l16_7.f[i__ - 1] * 2. * l17_18.df[i__ + j * 11
23759             - 12];
23760     }
23761     l4_3.gf[j - 1] *= 1e4;
23762 /* labelL9: */
23763     }
23764 labelL4:
23765     return 0;
23766 } /* tp350_ */
23767 
23768 
tp351_(int * mode)23769 /* Subroutine */ int tp351_(int *mode)
23770 {
23771     /* Initialized data */
23772 
23773     static Real a[7] = { 0.,4.28e-4,.001,.00161,.00209,.00348,.00525 };
23774     static Real b[7] = { 7.391,11.18,16.44,16.2,22.2,24.02,31.32 };
23775 
23776     /* System generated locals */
23777     Real d__1, d__2;
23778 
23779     /* Local variables */
23780     static int i__, j;
23781     static Real xh1, xh2, xh3, xh4, xh5;
23782 
23783 /* Computing 2nd power */
23784     d__1 = l2_3.x[0];
23785     xh1 = d__1 * d__1;
23786 /* Computing 2nd power */
23787     d__1 = l2_3.x[1];
23788     xh2 = d__1 * d__1;
23789 /* Computing 2nd power */
23790     d__1 = l2_3.x[2];
23791     xh3 = d__1 * d__1;
23792 /* Computing 2nd power */
23793     d__1 = l2_3.x[3];
23794     xh4 = d__1 * d__1;
23795     switch ((int)*mode) {
23796     case 1:  goto labelL1;
23797     case 2:  goto labelL2;
23798     case 3:  goto labelL2;
23799     case 4:  goto labelL4;
23800     case 5:  goto labelL4;
23801     }
23802 labelL1:
23803     l1_1.n = 4;
23804     l1_1.nili = 0;
23805     l1_1.ninl = 0;
23806     l1_1.neli = 0;
23807     l1_1.nenl = 0;
23808     l2_3.x[0] = 2.7;
23809     l2_3.x[1] = 90.;
23810     l2_3.x[2] = 1500.;
23811     l2_3.x[3] = 10.;
23812     for (i__ = 1; i__ <= 4; ++i__) {
23813     l12_3.lxu[i__ - 1] = false;
23814 /* labelL6: */
23815     l11_3.lxl[i__ - 1] = false;
23816     }
23817     l20_6.lex = false;
23818     l20_6.nex = 1;
23819     l20_6.fex = 318.58082;
23820     l20_6.xex[0] = 2.714;
23821     l20_6.xex[1] = 140.4;
23822     l20_6.xex[2] = 1707.;
23823     l20_6.xex[3] = 31.51;
23824     l15_1.lsum = 7;
23825     return 0;
23826 labelL2:
23827     for (i__ = 1; i__ <= 7; ++i__) {
23828 /* labelL20: */
23829     l16_6.f[i__ - 1] = ((xh1 + a[i__ - 1] * xh2 + a[i__ - 1] * a[i__ - 1]
23830         * xh3) / (a[i__ - 1] * xh4 + 1.) - b[i__ - 1]) / b[i__ - 1] *
23831         100.;
23832     }
23833     if (*mode == 3) {
23834     goto labelL3;
23835     }
23836     l6_1.fx = 0.;
23837     for (i__ = 1; i__ <= 7; ++i__) {
23838 /* L7: */
23839 /* Computing 2nd power */
23840     d__1 = l16_6.f[i__ - 1];
23841     l6_1.fx += d__1 * d__1;
23842     }
23843     return 0;
23844 labelL3:
23845     for (j = 1; j <= 4; ++j) {
23846 /* L8: */
23847     l4_3.gf[j - 1] = 0.;
23848     }
23849     for (i__ = 1; i__ <= 7; ++i__) {
23850     xh5 = (xh4 * a[i__ - 1] + 1.) * b[i__ - 1];
23851     l17_7.df[i__ - 1] = l2_3.x[0] * 200. / xh5;
23852     l17_7.df[i__ + 6] = l2_3.x[1] * 200. * a[i__ - 1] / xh5;
23853 /* Computing 2nd power */
23854     d__1 = a[i__ - 1];
23855     l17_7.df[i__ + 13] = l2_3.x[2] * 200. * (d__1 * d__1) / xh5;
23856 /* Computing 2nd power */
23857     d__1 = a[i__ - 1];
23858 /* Computing 2nd power */
23859     d__2 = xh5;
23860     l17_7.df[i__ + 20] = l2_3.x[3] * -200. * a[i__ - 1] * b[i__ - 1] * (
23861         xh1 + xh2 * a[i__ - 1] + xh3 * (d__1 * d__1)) / (d__2 * d__2);
23862     for (j = 1; j <= 4; ++j) {
23863 /* labelL10: */
23864         l4_3.gf[j - 1] += l16_6.f[i__ - 1] * 2. * l17_7.df[i__ + j * 7 -
23865             8];
23866     }
23867     }
23868 labelL4:
23869     return 0;
23870 } /* tp351_ */
23871 
tp352_(int * mode)23872 /* Subroutine */ int tp352_(int *mode)
23873 {
23874     /* System generated locals */
23875     Real d__1, d__2;
23876 
23877     /* Local variables */
23878     static int i__, j;
23879     static Real ti;
23880 
23881     switch ((int)*mode) {
23882     case 1:  goto labelL1;
23883     case 2:  goto labelL2;
23884     case 3:  goto labelL2;
23885     case 4:  goto labelL4;
23886     case 5:  goto labelL4;
23887     }
23888 labelL1:
23889     l1_1.n = 4;
23890     l1_1.nili = 0;
23891     l1_1.ninl = 0;
23892     l1_1.neli = 0;
23893     l1_1.nenl = 0;
23894     l2_3.x[0] = 25.;
23895     l2_3.x[1] = 5.;
23896     l2_3.x[2] = -5.;
23897     l2_3.x[3] = -1.;
23898     for (i__ = 1; i__ <= 4; ++i__) {
23899     l12_3.lxu[i__ - 1] = false;
23900 /* labelL6: */
23901     l11_3.lxl[i__ - 1] = false;
23902     }
23903     l20_6.lex = false;
23904     l20_6.nex = 1;
23905     l20_6.fex = 903.23433;
23906     l20_6.xex[0] = -10.223574;
23907     l20_6.xex[1] = 11.908429;
23908     l20_6.xex[2] = -.45804134;
23909     l20_6.xex[3] = .58031996;
23910     l15_1.lsum = 40;
23911     return 0;
23912 labelL2:
23913     for (i__ = 1; i__ <= 20; ++i__) {
23914     ti = i__ * .2;
23915     l16_16.f[i__ - 1] = l2_3.x[0] + l2_3.x[1] * ti - std::exp(ti);
23916 /* labelL20: */
23917     l16_16.f[i__ + 19] = l2_3.x[2] + l2_3.x[3] * std::sin(ti) -std::cos(ti);
23918     }
23919     if (*mode == 3) {
23920     goto labelL3;
23921     }
23922     l6_1.fx = 0.;
23923     for (i__ = 1; i__ <= 20; ++i__) {
23924 /* L7: */
23925 /* Computing 2nd power */
23926     d__1 = l16_16.f[i__ - 1];
23927 /* Computing 2nd power */
23928     d__2 = l16_16.f[i__ + 19];
23929     l6_1.fx = l6_1.fx + d__1 * d__1 + d__2 * d__2;
23930     }
23931     return 0;
23932 labelL3:
23933     for (j = 1; j <= 4; ++j) {
23934 /* L8: */
23935     l4_3.gf[j - 1] = 0.;
23936     }
23937     for (i__ = 1; i__ <= 20; ++i__) {
23938     ti = i__ * .2;
23939     l17_19.df[i__ - 1] = 1.;
23940     l17_19.df[i__ + 19] = 0.;
23941     l17_19.df[i__ + 39] = ti;
23942     l17_19.df[i__ + 59] = 0.;
23943     l17_19.df[i__ + 79] = 0.;
23944     l17_19.df[i__ + 99] = 1.;
23945     l17_19.df[i__ + 119] = 0.;
23946     l17_19.df[i__ + 139] = std::sin(ti);
23947     for (j = 1; j <= 4; ++j) {
23948 /* labelL10: */
23949         l4_3.gf[j - 1] = l4_3.gf[j - 1] + l16_16.f[i__ - 1] * 2. *
23950             l17_19.df[i__ + j * 40 - 41] + l16_16.f[i__ + 19] * 2. *
23951             l17_19.df[i__ + 20 + j * 40 - 41];
23952     }
23953     }
23954 labelL4:
23955     return 0;
23956 } /* tp352_ */
23957 
tp353_(int * mode)23958 /* Subroutine */ int tp353_(int *mode)
23959 {
23960     /* System generated locals */
23961     Real d__1, d__2, d__3, d__4;
23962 
23963     /* Local variables */
23964     static int i__;
23965     static Real q;
23966 
23967     switch ((int)*mode) {
23968     case 1:  goto labelL1;
23969     case 2:  goto labelL2;
23970     case 3:  goto labelL3;
23971     case 4:  goto labelL4;
23972     case 5:  goto labelL4;
23973     }
23974 labelL1:
23975     l1_1.n = 4;
23976     l1_1.nili = 1;
23977     l1_1.ninl = 1;
23978     l1_1.neli = 1;
23979     l1_1.nenl = 0;
23980     l2_3.x[0] = 0.;
23981     l2_3.x[1] = 0.;
23982     l2_3.x[2] = .4;
23983     l2_3.x[3] = .6;
23984     l5_7.gg[0] = 2.3;
23985     l5_7.gg[3] = 5.6;
23986     l5_7.gg[6] = 11.1;
23987     l5_7.gg[9] = 1.3;
23988     for (i__ = 1; i__ <= 4; ++i__) {
23989     l5_7.gg[i__ * 3 - 1] = 1.;
23990     l11_3.lxl[i__ - 1] = true;
23991     l12_3.lxu[i__ - 1] = false;
23992 /* labelL6: */
23993     l13_3.xl[i__ - 1] = 0.;
23994     }
23995     l20_6.lex = false;
23996     l20_6.nex = 1;
23997     l20_6.fex = -39.933673;
23998     l20_6.xex[0] = 0.;
23999     l20_6.xex[1] = 0.;
24000     l20_6.xex[2] = .37755102;
24001     l20_6.xex[3] = .62244898;
24002     return 0;
24003 labelL2:
24004     l6_1.fx = l2_3.x[0] * 24.55 + l2_3.x[1] * 26.75 + l2_3.x[2] * 39. +
24005         l2_3.x[3] * 40.5;
24006     l6_1.fx = -l6_1.fx;
24007     return 0;
24008 labelL3:
24009     l4_3.gf[0] = -24.55;
24010     l4_3.gf[1] = -26.75;
24011     l4_3.gf[2] = -39.;
24012     l4_3.gf[3] = -40.5;
24013     return 0;
24014 labelL4:
24015 /* Computing 2nd power */
24016     d__1 = l2_3.x[0] * .53;
24017 /* Computing 2nd power */
24018     d__2 = l2_3.x[1] * .44;
24019 /* Computing 2nd power */
24020     d__3 = l2_3.x[2] * 4.5;
24021 /* Computing 2nd power */
24022     d__4 = l2_3.x[3] * .79;
24023     q = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4;
24024     if (*mode == 5) {
24025     goto labelL5;
24026     }
24027     if (l9_4.index1[0]) {
24028     l3_3.g[0] = l2_3.x[0] * 2.3 + l2_3.x[1] * 5.6 + l2_3.x[2] * 11.1 +
24029         l2_3.x[3] * 1.3 - 5.;
24030     }
24031     if (l9_4.index1[1]) {
24032     l3_3.g[1] = l2_3.x[0] * 12. + l2_3.x[1] * 11.9 + l2_3.x[2] * 41.8 +
24033         l2_3.x[3] * 52.1 - std::sqrt(q) * 1.645 - 12.;
24034     }
24035     if (l9_4.index1[2]) {
24036     l3_3.g[2] = l2_3.x[0] + l2_3.x[1] + l2_3.x[2] + l2_3.x[3] - 1.;
24037     }
24038     return 0;
24039 labelL5:
24040     if (! l10_4.index2[1]) {
24041     goto L7;
24042     }
24043     l5_7.gg[1] = 12. - l2_3.x[0] * .46208050000000006 / std::sqrt(q);
24044     l5_7.gg[4] = 11.9 - l2_3.x[1] * .31847199999999998 / std::sqrt(q);
24045     l5_7.gg[7] = 41.8 - l2_3.x[2] * 33.311250000000001 / std::sqrt(q);
24046     l5_7.gg[10] = 52.1 - l2_3.x[3] * 1.0266445000000002 / std::sqrt(q);
24047 L7:
24048     return 0;
24049 } /* tp353_ */
24050 
tp354_(int * mode)24051 /* Subroutine */ int tp354_(int *mode)
24052 {
24053     /* System generated locals */
24054     Real d__1, d__2, d__3, d__4;
24055 
24056     /* Local variables */
24057     static int i__;
24058 
24059     switch ((int)*mode) {
24060     case 1:  goto labelL1;
24061     case 2:  goto labelL2;
24062     case 3:  goto labelL3;
24063     case 4:  goto labelL4;
24064     case 5:  goto labelL5;
24065     }
24066 labelL1:
24067     l1_1.n = 4;
24068     l1_1.nili = 1;
24069     l1_1.ninl = 0;
24070     l1_1.neli = 0;
24071     l1_1.nenl = 0;
24072     l2_3.x[0] = 3.;
24073     l2_3.x[1] = -1.;
24074     l2_3.x[2] = 0.;
24075     l2_3.x[3] = 1.;
24076     for (i__ = 1; i__ <= 4; ++i__) {
24077     l5_2.gg[i__ - 1] = 1.;
24078     l12_3.lxu[i__ - 1] = true;
24079     l11_3.lxl[i__ - 1] = false;
24080 /* labelL6: */
24081     l14_3.xu[i__ - 1] = 20.;
24082     }
24083     l20_6.lex = false;
24084     l20_6.nex = 1;
24085     l20_6.fex = .11378386;
24086     l20_6.xex[0] = .50336521;
24087     l20_6.xex[1] = -.04556907;
24088     l20_6.xex[2] = .23580504;
24089     l20_6.xex[3] = .30639882;
24090     return 0;
24091 labelL2:
24092 /* Computing 2nd power */
24093     d__1 = l2_3.x[0] + l2_3.x[1] * 10.;
24094 /* Computing 2nd power */
24095     d__2 = l2_3.x[2] - l2_3.x[3];
24096 /* Computing 4th power */
24097     d__3 = l2_3.x[1] - l2_3.x[2] * 2., d__3 *= d__3;
24098 /* Computing 4th power */
24099     d__4 = l2_3.x[0] - l2_3.x[3], d__4 *= d__4;
24100     l6_1.fx = d__1 * d__1 + d__2 * d__2 * 5. + d__3 * d__3 + d__4 * d__4 *
24101         10.;
24102     return 0;
24103 labelL3:
24104 /* Computing 3rd power */
24105     d__1 = l2_3.x[0] - l2_3.x[3];
24106     l4_3.gf[0] = l2_3.x[0] * 2. + l2_3.x[1] * 20. + d__1 * (d__1 * d__1) *
24107         40.;
24108 /* Computing 3rd power */
24109     d__1 = l2_3.x[1] - l2_3.x[2] * 2.;
24110     l4_3.gf[1] = l2_3.x[0] * 20. + l2_3.x[1] * 200. + d__1 * (d__1 * d__1) *
24111         4.;
24112 /* Computing 3rd power */
24113     d__1 = l2_3.x[1] - l2_3.x[2] * 2.;
24114     l4_3.gf[2] = l2_3.x[2] * 10. - l2_3.x[3] * 10. - d__1 * (d__1 * d__1) *
24115         8.;
24116 /* Computing 3rd power */
24117     d__1 = l2_3.x[0] - l2_3.x[3];
24118     l4_3.gf[3] = l2_3.x[2] * -10. + l2_3.x[3] * 10. - d__1 * (d__1 * d__1) *
24119         40.;
24120     return 0;
24121 labelL4:
24122     if (l9_2.index1[0]) {
24123     l3_1.g[0] = l2_3.x[0] + l2_3.x[1] + l2_3.x[2] + l2_3.x[3] - 1.;
24124     }
24125 labelL5:
24126     return 0;
24127 } /* tp354_ */
24128 
24129 
tp355_(int * mode)24130 /* Subroutine */ int tp355_(int *mode)
24131 {
24132     /* System generated locals */
24133     Real d__1, d__2, d__3, d__4;
24134 
24135     /* Local variables */
24136     static int i__;
24137     static Real r__[4], h0, h1, h2, h3, h4, h5, h6;
24138 
24139     h0 = l2_3.x[1] * l2_3.x[3];
24140     r__[0] = 11. - l2_3.x[0] * l2_3.x[3] - h0 + l2_3.x[2] * l2_3.x[3];
24141     r__[1] = l2_3.x[0] + l2_3.x[1] * 10. - l2_3.x[2] + l2_3.x[3] + h0 * (
24142         l2_3.x[2] - l2_3.x[0]);
24143     r__[2] = 11. - l2_3.x[0] * 4. * l2_3.x[3] - h0 * 4. + l2_3.x[2] * l2_3.x[
24144         3];
24145     r__[3] = l2_3.x[0] * 2. + l2_3.x[1] * 20. - l2_3.x[2] * .5 + l2_3.x[3] *
24146         2. + h0 * 2. * (l2_3.x[2] - l2_3.x[0] * 4.);
24147     h1 = r__[0] * 2.;
24148     h2 = r__[1] * 2.;
24149     h3 = r__[2] * 2.;
24150     h4 = r__[3] * 2.;
24151     h5 = h1 * l2_3.x[3];
24152     h6 = h2 * (1. - h0);
24153     switch ((int)*mode) {
24154     case 1:  goto labelL1;
24155     case 2:  goto labelL2;
24156     case 3:  goto labelL3;
24157     case 4:  goto labelL4;
24158     case 5:  goto labelL5;
24159     }
24160 labelL1:
24161     l1_1.n = 4;
24162     l1_1.nili = 0;
24163     l1_1.ninl = 0;
24164     l1_1.neli = 0;
24165     l1_1.nenl = 1;
24166     for (i__ = 1; i__ <= 4; ++i__) {
24167     l12_3.lxu[i__ - 1] = false;
24168     l11_3.lxl[i__ - 1] = true;
24169 /* labelL6: */
24170     l2_3.x[i__ - 1] = 0.;
24171     }
24172     l13_3.xl[0] = .1;
24173     l13_3.xl[1] = .1;
24174     l13_3.xl[2] = 0.;
24175     l13_3.xl[3] = 0.;
24176     l20_6.lex = false;
24177     l20_6.nex = 1;
24178     l20_6.fex = 69.675463;
24179     l20_6.xex[0] = 1.916633;
24180     l20_6.xex[1] = .1;
24181     l20_6.xex[2] = 0.;
24182     l20_6.xex[3] = 1.9718118;
24183     return 0;
24184 labelL2:
24185     l6_1.fx = r__[0] * r__[0] + r__[1] * r__[1];
24186     return 0;
24187 labelL3:
24188     l4_3.gf[0] = -h5 + h6;
24189     l4_3.gf[1] = -h5 + h2 * (l2_3.x[3] * (l2_3.x[2] - l2_3.x[0]) + 10.);
24190     l4_3.gf[2] = h5 - h6;
24191     l4_3.gf[3] = h1 * (-l2_3.x[0] - l2_3.x[1] + l2_3.x[2]) + h2 * (l2_3.x[1] *
24192          (l2_3.x[2] - l2_3.x[0]) + 1.);
24193     return 0;
24194 labelL4:
24195     if (l9_2.index1[0]) {
24196 /* Computing 2nd power */
24197     d__1 = r__[0];
24198 /* Computing 2nd power */
24199     d__2 = r__[1];
24200 /* Computing 2nd power */
24201     d__3 = r__[2];
24202 /* Computing 2nd power */
24203     d__4 = r__[3];
24204     l3_1.g[0] = d__1 * d__1 + d__2 * d__2 - d__3 * d__3 - d__4 * d__4;
24205     }
24206     return 0;
24207 labelL5:
24208     if (! l10_2.index2[0]) {
24209     goto L7;
24210     }
24211     l5_2.gg[0] = -h5 + h6 - h3 * -4. * l2_3.x[3] - h4 * (2. - h0 * 8.);
24212     l5_2.gg[1] = -h5 + h2 * (l2_3.x[3] * (l2_3.x[2] - l2_3.x[0]) + 10.) - h3 *
24213          -4. * l2_3.x[3] - h4 * (l2_3.x[3] * 2. * (l2_3.x[2] - l2_3.x[0] *
24214          4.) + 20.);
24215     l5_2.gg[2] = h5 - h6 - h3 * l2_3.x[3] - h4 * (h0 * 2. - .5);
24216     l5_2.gg[3] = h1 * (-l2_3.x[0] - l2_3.x[1] + l2_3.x[2]) + h2 * (l2_3.x[1] *
24217          (l2_3.x[2] - l2_3.x[0]) + 1.) - h3 * (l2_3.x[0] * -4. - l2_3.x[1]
24218          * 4. + l2_3.x[2]) - h4 * (l2_3.x[1] * 2. * (l2_3.x[2] - l2_3.x[0]
24219          * 4.) + 2.);
24220 L7:
24221     return 0;
24222 } /* tp355_ */
24223 
24224 
tp356_(int * mode)24225 /* Subroutine */ int tp356_(int *mode)
24226 {
24227     /* System generated locals */
24228     Real d__1;
24229 
24230     /* Local variables */
24231     static Real eidc, load, cosa, sigd, eitc, e;
24232     static int i__;
24233     static Real j, l, m, r__, t, reidc, reitc, t1, t2, fh, ei, gh, gj,
24234         pc, td, wp, del, phi[5], sig;
24235 
24236     switch ((int)*mode) {
24237     case 1:  goto labelL1;
24238     case 2:  goto labelL2;
24239     case 3:  goto labelL3;
24240     case 4:  goto labelL4;
24241     case 5:  goto labelL3;
24242     }
24243 labelL1:
24244     l1_1.n = 4;
24245     l1_1.nili = 1;
24246     l1_1.ninl = 4;
24247     l1_1.nenl = 0;
24248     l1_1.nenl = 0;
24249     l2_3.x[0] = 1.;
24250     l2_3.x[1] = 7.;
24251     l2_3.x[2] = 8.;
24252     l2_3.x[3] = 1.;
24253     for (i__ = 1; i__ <= 3; ++i__) {
24254     l12_3.lxu[i__ - 1] = false;
24255 /* labelL6: */
24256     l11_3.lxl[i__ - 1] = true;
24257     }
24258     l11_3.lxl[3] = false;
24259     l12_3.lxu[3] = false;
24260     l13_3.xl[0] = .125;
24261     l13_3.xl[1] = 0.;
24262     l13_3.xl[2] = 0.;
24263     l20_6.lex = false;
24264     l20_6.nex = 1;
24265     l20_6.fex = 2.3811648;
24266     l20_6.xex[0] = .24436898;
24267     l20_6.xex[1] = 6.2187934;
24268     l20_6.xex[2] = 8.2914714;
24269     l20_6.xex[3] = .24436898;
24270     return 0;
24271 labelL2:
24272     l6_1.fx = l2_3.x[0] * 1.10471 * l2_3.x[0] * l2_3.x[1] + l2_3.x[2] *
24273         .04811 * l2_3.x[3] * (l2_3.x[1] + 14.);
24274 labelL3:
24275     return 0;
24276 labelL4:
24277     l = 14.;
24278     load = 6e3;
24279     td = 13600.;
24280     sigd = 3e4;
24281     fh = load;
24282     t1 = fh / (l2_3.x[0] * 1.414 * l2_3.x[1]);
24283     m = fh * (l + l2_3.x[1] / 2.);
24284 /* Computing 2nd power */
24285     d__1 = (l2_3.x[2] + l2_3.x[0]) / 2.;
24286     r__ = std::sqrt(l2_3.x[1] * l2_3.x[1] / 4. + d__1 * d__1);
24287 /* Computing 2nd power */
24288     d__1 = (l2_3.x[2] + l2_3.x[0]) / 2.;
24289     j = l2_3.x[0] * .707 * l2_3.x[1] * (l2_3.x[1] * l2_3.x[1] / 12. + d__1 *
24290         d__1) * 2.;
24291     t2 = m * r__ / j;
24292     cosa = l2_3.x[1] / (r__ * 2.);
24293     wp = (d__1 = t1 * t1 + t1 * 2. * t2 * cosa + t2 * t2, std::abs(d__1));
24294     if (wp > (float)0.) {
24295     t = std::sqrt(wp);
24296     } else {
24297     t = (float)0.;
24298     }
24299     sig = fh * 6. * l / (l2_3.x[3] * l2_3.x[2] * l2_3.x[2]);
24300     phi[0] = (td - t) / 1e4;
24301     phi[1] = (sigd - sig) / 1e4;
24302     phi[2] = l2_3.x[3] - l2_3.x[0];
24303     e = 3e7;
24304     ei = e * l2_3.x[2] * l2_3.x[3] * l2_3.x[3] * l2_3.x[3] / 12.;
24305     gh = 1.2e7;
24306     gj = gh * l2_3.x[2] * l2_3.x[3] * l2_3.x[3] * l2_3.x[3] / 3.;
24307     eitc = ei * gj;
24308     eidc = ei / gj;
24309     if (eitc > (float)0.) {
24310     reitc = std::sqrt(eitc);
24311     } else {
24312     reitc = (float)0.;
24313     }
24314     if (eidc > (float)0.) {
24315     reidc = std::sqrt(eidc);
24316     } else {
24317     reidc = (float)0.;
24318     }
24319     pc = reitc * 4.013 * (1. - l2_3.x[2] / (l * 2.) * reidc) / (l * l);
24320     phi[3] = (pc - fh) / 1e4;
24321     del = fh * 4. * l * l * l / (e * l2_3.x[3] * l2_3.x[2] * l2_3.x[2] *
24322         l2_3.x[2]);
24323     phi[4] = .25 - del;
24324     if (l9_5.index1[0]) {
24325     l3_4.g[0] = phi[2];
24326     }
24327     if (l9_5.index1[1]) {
24328     l3_4.g[1] = phi[0];
24329     }
24330     if (l9_5.index1[2]) {
24331     l3_4.g[2] = phi[1];
24332     }
24333     if (l9_5.index1[3]) {
24334     l3_4.g[3] = phi[3];
24335     }
24336     if (l9_5.index1[4]) {
24337     l3_4.g[4] = phi[4];
24338     }
24339     return 0;
24340 } /* tp356_ */
24341 
24342 
tp357_(int * mode)24343 /* Subroutine */ int tp357_(int *mode)
24344 {
24345     /* Initialized data */
24346 
24347     static Real xpt[36] = { 113.,110.1,106.2,101.3,95.4,88.8,81.6,74.,
24348         66.1,58.4,51.,44.3,38.7,34.5,32.4,32.9,36.4,42.8,50.9,59.,65.8,
24349         71.5,76.5,81.1,85.6,90.2,94.6,98.9,103.,106.7,109.9,112.5,114.4,
24350         115.5,115.7,114.9 };
24351     static Real ypt[36] = { 40.2,46.8,53.3,59.4,65.,69.9,73.9,76.9,78.9,
24352         79.8,79.7,78.5,76.5,73.6,70.2,66.,60.9,54.3,45.8,36.1,26.5,18.1,
24353         11.4,6.2,2.6,.3,-.7,-.6,.7,3.1,6.4,10.5,15.5,21.,27.1,33.6 };
24354     static Real p0 = 90.;
24355     static Real q0 = 0.;
24356     static Real r0 = 0.;
24357     static Real s0 = 0.;
24358 
24359     /* System generated locals */
24360     Real d__1, d__2, d__3, d__4, d__5, d__6;
24361 
24362     /* Local variables */
24363     static Real test, test1, a, b, c__;
24364     static int i__;
24365     static Real j;
24366     static int k;
24367     static Real alpha, calcx, calcy, p1, q1, r1, s1, ca, cp, sa, ph,
24368         dalpha, pi, qi, ri, si, sp, sql, sum, aabb;
24369 
24370     switch ((int)*mode) {
24371     case 1:  goto labelL1;
24372     case 2:  goto labelL2;
24373     case 3:  goto labelL3;
24374     case 4:  goto labelL3;
24375     case 5:  goto labelL3;
24376     }
24377 labelL1:
24378     l1_1.n = 4;
24379     l1_1.nili = 0;
24380     l1_1.ninl = 0;
24381     l1_1.nenl = 0;
24382     l1_1.nenl = 0;
24383     l2_3.x[0] = 136.;
24384     l2_3.x[1] = 0.;
24385     l2_3.x[2] = 74.8;
24386     l2_3.x[3] = 75.7;
24387     for (i__ = 1; i__ <= 4; ++i__) {
24388     l11_3.lxl[i__ - 1] = true;
24389 /* labelL6: */
24390     l12_3.lxu[i__ - 1] = true;
24391     }
24392     l20_6.lex = false;
24393     l20_6.nex = 1;
24394     l20_6.fex = .3584566;
24395     l20_6.xex[0] = 136.00762;
24396     l20_6.xex[1] = .031371415;
24397     l20_6.xex[2] = 73.59439;
24398     l20_6.xex[3] = 72.187426;
24399     for (k = 1; k <= 4; ++k) {
24400 /* L7: */
24401     l13_3.xl[k - 1] = 0.;
24402     }
24403     l14_3.xu[0] = 150.;
24404     l14_3.xu[1] = 50.;
24405     l14_3.xu[2] = 100.;
24406     l14_3.xu[3] = 100.;
24407     return 0;
24408 labelL2:
24409     dalpha = .17452927777777777;
24410     sum = 0.;
24411     p1 = l2_3.x[0];
24412     q1 = l2_3.x[1];
24413     r1 = l2_3.x[2];
24414     s1 = l2_3.x[3];
24415     for (i__ = 2; i__ <= 36; ++i__) {
24416     alpha = dalpha * (i__ - 1);
24417     ca =std::cos(alpha);
24418     sa = std::sin(alpha);
24419     pi = p1 * ca - q1 * sa + p0 * (1. - ca) + q0 * sa;
24420     qi = p1 * sa + q1 * ca + q0 * (1. - ca) - p0 * sa;
24421     a = r0 * s1 - s0 * r1 - q1 * r0 + p1 * s0 + pi * q1 - p1 * qi + qi *
24422         r1 - pi * s1;
24423     b = -r0 * r1 - s0 * s1 + p1 * r0 + q1 * s0 - p1 * pi - q1 * qi + pi *
24424         r1 + qi * s1;
24425     c__ = -r1 * r0 - s1 * s0 + pi * r0 + qi * s0 + p1 * r1 + q1 * s1 - (
24426         p1 * p1 + q1 * q1 + pi * pi + qi * qi) / 2.;
24427     aabb = a * a + b * b;
24428     if (aabb < 1e-30) {
24429         goto L50;
24430     }
24431     test = c__ / std::sqrt(aabb);
24432     if (std::abs(test) > 1.) {
24433         goto L51;
24434     }
24435     j = 1.;
24436 L52:
24437     ph = std::asin(test) - std::atan(b / a);
24438 L55:
24439     sp = std::sin(ph);
24440     cp =std::cos(ph);
24441     ri = r1 * cp - s1 * sp + pi - p1 * cp + q1 * sp;
24442     si = r1 * sp + s1 * cp + qi - p1 * sp - q1 * cp;
24443 /* Computing 2nd power */
24444     d__1 = r1 - r0;
24445 /* Computing 2nd power */
24446     d__2 = s1 - s0;
24447     test1 = d__1 * d__1 + d__2 * d__2;
24448     if (test1 < 1e-10) {
24449         test1 = 1e-10;
24450     }
24451 /* Computing 2nd power */
24452     d__2 = ri - r0;
24453 /* Computing 2nd power */
24454     d__3 = si - s0;
24455     if ((d__1 = (test1 - d__2 * d__2 - d__3 * d__3) / test1, std::abs(d__1)) <
24456         .001) {
24457         goto L53;
24458     }
24459     if (j == 2.) {
24460         goto L51;
24461     }
24462     test = -test;
24463     j = 2.;
24464     goto L52;
24465 L50:
24466     ph = -std::atan(b / a);
24467     goto L55;
24468 L51:
24469     l6_1.fx = 1e20;
24470     return 0;
24471 L53:
24472     calcx = xpt[0] * cp - ypt[0] * sp + pi - p1 * cp + q1 * sp;
24473     calcy = xpt[0] * sp + ypt[0] * cp + qi - p1 * sp - q1 * cp;
24474 /* L54: */
24475 /* Computing 2nd power */
24476     d__1 = calcx - xpt[i__ - 1];
24477 /* Computing 2nd power */
24478     d__2 = calcy - ypt[i__ - 1];
24479     sum = sum + d__1 * d__1 + d__2 * d__2;
24480     }
24481 /* Computing 2nd power */
24482     d__1 = r1 - r0;
24483 /* Computing 2nd power */
24484     d__2 = s1 - s0;
24485 /* Computing 2nd power */
24486     d__3 = r1 - p1;
24487 /* Computing 2nd power */
24488     d__4 = s1 - q1;
24489 /* Computing 2nd power */
24490     d__5 = p1 - p0;
24491 /* Computing 2nd power */
24492     d__6 = q1 - q0;
24493     sql = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4 + d__5 * d__5
24494         + d__6 * d__6;
24495     l6_1.fx = sum / 100. + sql / 62500.;
24496 labelL3:
24497     return 0;
24498 } /* tp357_ */
24499 
24500 
tp358_(int * mode)24501 /* Subroutine */ int tp358_(int *mode)
24502 {
24503     /* Initialized data */
24504 
24505     static Real y[33] = { .844,.908,.932,.936,.925,.908,.881,.85,.818,
24506         .784,.751,.718,.685,.658,.628,.603,.58,.558,.538,.522,.506,.49,
24507         .478,.467,.457,.448,.438,.431,.424,.42,.414,.411,.406 };
24508 
24509     /* System generated locals */
24510     Real d__1;
24511 
24512     /* Local variables */
24513     static int i__, j;
24514     static Real ti;
24515 
24516     switch ((int)*mode) {
24517     case 1:  goto labelL1;
24518     case 2:  goto labelL2;
24519     case 3:  goto labelL2;
24520     case 4:  goto labelL4;
24521     case 5:  goto labelL4;
24522     }
24523 labelL1:
24524     l1_1.n = 5;
24525     l1_1.nili = 0;
24526     l1_1.ninl = 0;
24527     l1_1.nenl = 0;
24528     l1_1.nenl = 0;
24529     l2_4.x[0] = .5;
24530     l2_4.x[1] = 1.5;
24531     l2_4.x[2] = -1.;
24532     l2_4.x[3] = .01;
24533     l2_4.x[4] = .02;
24534     for (i__ = 1; i__ <= 5; ++i__) {
24535     l12_4.lxu[i__ - 1] = true;
24536 /* labelL6: */
24537     l11_4.lxl[i__ - 1] = true;
24538     }
24539     l13_4.xl[0] = -.5;
24540     l14_4.xu[0] = .5;
24541     l13_4.xl[1] = 1.5;
24542     l14_4.xu[1] = 2.5;
24543     l13_4.xl[2] = -2.;
24544     l14_4.xu[2] = -1.;
24545     l13_4.xl[3] = .001;
24546     l14_4.xu[3] = .1;
24547     l13_4.xl[4] = .001;
24548     l14_4.xu[4] = .1;
24549     l20_7.lex = false;
24550     l20_7.nex = 1;
24551     l20_7.fex = 5.46e-5;
24552     l20_7.xex[0] = .3754;
24553     l20_7.xex[1] = 1.9358;
24554     l20_7.xex[2] = -1.4647;
24555     l20_7.xex[3] = .01287;
24556     l20_7.xex[4] = .02212;
24557     l15_1.lsum = 33;
24558     return 0;
24559 labelL2:
24560     for (i__ = 1; i__ <= 33; ++i__) {
24561     ti = (Real) (i__ - 1) * 10.;
24562 /* labelL20: */
24563     l16_17.f[i__ - 1] = y[i__ - 1] - (l2_4.x[0] + l2_4.x[1] * std::exp(-l2_4.x[
24564         3] * ti) + l2_4.x[2] * std::exp(-l2_4.x[4] * ti));
24565     }
24566     if (*mode == 3) {
24567     goto labelL3;
24568     }
24569     l6_1.fx = 0.;
24570     for (i__ = 1; i__ <= 33; ++i__) {
24571 /* L7: */
24572 /* Computing 2nd power */
24573     d__1 = l16_17.f[i__ - 1];
24574     l6_1.fx += d__1 * d__1;
24575     }
24576     return 0;
24577 labelL3:
24578     for (j = 1; j <= 5; ++j) {
24579 /* L8: */
24580     l4_4.gf[j - 1] = 0.;
24581     }
24582     for (i__ = 1; i__ <= 33; ++i__) {
24583     ti = (Real) (i__ - 1) * 10.;
24584     l17_20.df[i__ - 1] = -1.;
24585     l17_20.df[i__ + 32] = -exp(-l2_4.x[3] * ti);
24586     l17_20.df[i__ + 65] = -exp(-l2_4.x[4] * ti);
24587     l17_20.df[i__ + 98] = l2_4.x[1] * std::exp(-l2_4.x[3] * ti) * ti;
24588     l17_20.df[i__ + 131] = l2_4.x[2] * std::exp(-l2_4.x[4] * ti) * ti;
24589     for (j = 1; j <= 5; ++j) {
24590 /* labelL10: */
24591         l4_4.gf[j - 1] += l16_17.f[i__ - 1] * 2. * l17_20.df[i__ + j * 33
24592             - 34];
24593     }
24594     }
24595 labelL4:
24596     return 0;
24597 } /* tp358_ */
24598 
24599 
tp359_(int * mode)24600 /* Subroutine */ int tp359_(int *mode)
24601 {
24602     /* Initialized data */
24603 
24604     static Real b[5] = { -145421.402,2931.1506,-40.427932,5106.192,
24605         15711.36 };
24606     static Real c__[5] = { -155011.1084,4360.53352,12.9492344,10236.884,
24607         13176.786 };
24608     static Real d__[5] = { -326669.5104,7390.68412,-27.8986976,
24609         16643.076,30988.146 };
24610     static Real a[5] = { -8720288.849,150512.5253,-156.6950325,
24611         476470.3222,729482.8271 };
24612 
24613     static Real h__[6];
24614     static int i__, j;
24615 
24616     switch ((int)*mode) {
24617     case 1:  goto labelL1;
24618     case 2:  goto labelL2;
24619     case 3:  goto labelL3;
24620     case 4:  goto labelL4;
24621     case 5:  goto labelL5;
24622     }
24623 labelL1:
24624     l1_1.n = 5;
24625     l1_1.nili = 14;
24626     l1_1.ninl = 0;
24627     l1_1.neli = 0;
24628     l1_1.nenl = 0;
24629     l2_4.x[0] = 2.52;
24630     l2_4.x[1] = 5.04;
24631     l2_4.x[2] = 94.5;
24632     l2_4.x[3] = 23.31;
24633     l2_4.x[4] = 17.136;
24634     for (i__ = 1; i__ <= 5; ++i__) {
24635 /* labelL10: */
24636     l4_4.gf[i__ - 1] = -a[i__ - 1];
24637     }
24638     for (j = 1; j <= 8; ++j) {
24639     for (i__ = 1; i__ <= 5; ++i__) {
24640 /* labelL6: */
24641         l5_33.gg[j + i__ * 14 - 15] = 0.;
24642     }
24643     }
24644     for (i__ = 1; i__ <= 4; ++i__) {
24645     l5_33.gg[(i__ << 1) - 1 + (i__ + 1) * 14 - 15] = -1.;
24646 /* L7: */
24647     l5_33.gg[(i__ << 1) + (i__ + 1) * 14 - 15] = 1.;
24648     }
24649     l5_33.gg[0] = 2.4;
24650     l5_33.gg[1] = -1.2;
24651     l5_33.gg[2] = 60.;
24652     l5_33.gg[3] = -20.;
24653     l5_33.gg[4] = 9.3;
24654     l5_33.gg[5] = -9.;
24655     l5_33.gg[6] = 7.;
24656     l5_33.gg[7] = -6.5;
24657     for (i__ = 1; i__ <= 5; ++i__) {
24658     l5_33.gg[i__ * 14 - 6] = b[i__ - 1];
24659     l5_33.gg[i__ * 14 - 5] = c__[i__ - 1];
24660     l5_33.gg[i__ * 14 - 4] = d__[i__ - 1];
24661     l5_33.gg[i__ * 14 - 3] = -b[i__ - 1];
24662     l5_33.gg[i__ * 14 - 2] = -c__[i__ - 1];
24663     l5_33.gg[i__ * 14 - 1] = -d__[i__ - 1];
24664     l12_4.lxu[i__ - 1] = false;
24665 /* L8: */
24666     l11_4.lxl[i__ - 1] = false;
24667     }
24668     l20_7.lex = false;
24669     l20_7.nex = 1;
24670     l20_7.fex = -5280416.8;
24671     l20_7.xex[0] = 4.5374;
24672     l20_7.xex[1] = 10.889;
24673     l20_7.xex[2] = 272.24;
24674     l20_7.xex[3] = 42.198;
24675     l20_7.xex[4] = 31.762;
24676     return 0;
24677 labelL2:
24678     l6_1.fx = -24345.;
24679     for (i__ = 1; i__ <= 5; ++i__) {
24680 /* labelL9: */
24681     l6_1.fx += a[i__ - 1] * l2_4.x[i__ - 1];
24682     }
24683     l6_1.fx = -l6_1.fx;
24684 labelL3:
24685     return 0;
24686 labelL4:
24687     if (l9_8.index1[0]) {
24688     l3_7.g[0] = l2_4.x[0] * 2.4 - l2_4.x[1];
24689     }
24690     if (l9_8.index1[1]) {
24691     l3_7.g[1] = l2_4.x[0] * -1.2 + l2_4.x[1];
24692     }
24693     if (l9_8.index1[2]) {
24694     l3_7.g[2] = l2_4.x[0] * 60. - l2_4.x[2];
24695     }
24696     if (l9_8.index1[3]) {
24697     l3_7.g[3] = l2_4.x[0] * -20. + l2_4.x[2];
24698     }
24699     if (l9_8.index1[4]) {
24700     l3_7.g[4] = l2_4.x[0] * 9.3 - l2_4.x[3];
24701     }
24702     if (l9_8.index1[5]) {
24703     l3_7.g[5] = l2_4.x[0] * -9. + l2_4.x[3];
24704     }
24705     if (l9_8.index1[6]) {
24706     l3_7.g[6] = l2_4.x[0] * 7. - l2_4.x[4];
24707     }
24708     if (l9_8.index1[7]) {
24709     l3_7.g[7] = l2_4.x[0] * -6.5 + l2_4.x[4];
24710     }
24711     for (i__ = 1; i__ <= 3; ++i__) {
24712 /* labelL11: */
24713     h__[i__ - 1] = 0.;
24714     }
24715     h__[3] = 2.94e5;
24716     h__[4] = 2.94e5;
24717     h__[5] = 277200.;
24718     for (i__ = 1; i__ <= 5; ++i__) {
24719     h__[0] += b[i__ - 1] * l2_4.x[i__ - 1];
24720     h__[1] += c__[i__ - 1] * l2_4.x[i__ - 1];
24721     h__[2] += d__[i__ - 1] * l2_4.x[i__ - 1];
24722     h__[3] -= b[i__ - 1] * l2_4.x[i__ - 1];
24723     h__[4] -= c__[i__ - 1] * l2_4.x[i__ - 1];
24724 /* labelL12: */
24725     h__[5] -= d__[i__ - 1] * l2_4.x[i__ - 1];
24726     }
24727     for (i__ = 9; i__ <= 14; ++i__) {
24728 /* labelL13: */
24729     if (l9_8.index1[i__ - 1]) {
24730         l3_7.g[i__ - 1] = h__[i__ - 9];
24731     }
24732     }
24733 labelL5:
24734     return 0;
24735 } /* tp359_ */
24736 
24737 
tp360_(int * mode)24738 /* Subroutine */ int tp360_(int *mode)
24739 {
24740     /* Initialized data */
24741 
24742     static Real c__[10] = { -8720288.849,150512.5233,-156.6950325,
24743         476470.3222,729482.8271,-326669.5104,7390.68412,-27.8986976,
24744         16643.076,30988.146 };
24745 
24746     static Real h__;
24747     static int i__;
24748     static Real hh[5];
24749 
24750     switch ((int)*mode) {
24751     case 1:  goto labelL1;
24752     case 2:  goto labelL2;
24753     case 3:  goto labelL3;
24754     case 4:  goto labelL4;
24755     case 5:  goto labelL5;
24756     }
24757 labelL1:
24758     l1_1.n = 5;
24759     l1_1.nili = 0;
24760     l1_1.ninl = 2;
24761     l1_1.neli = 0;
24762     l1_1.nenl = 0;
24763     l2_4.x[0] = 2.52;
24764     l2_4.x[1] = 2.;
24765     l2_4.x[2] = 37.5;
24766     l2_4.x[3] = 9.25;
24767     l2_4.x[4] = 6.8;
24768     l11_4.lxl[0] = true;
24769     l12_4.lxu[0] = false;
24770     for (i__ = 2; i__ <= 5; ++i__) {
24771     l11_4.lxl[i__ - 1] = true;
24772 /* labelL6: */
24773     l12_4.lxu[i__ - 1] = true;
24774     }
24775     l13_4.xl[0] = 0.;
24776     l13_4.xl[1] = 1.2;
24777     l13_4.xl[2] = 20.;
24778     l13_4.xl[3] = 9.;
24779     l13_4.xl[4] = 6.5;
24780     l14_4.xu[1] = 2.4;
24781     l14_4.xu[2] = 60.;
24782     l14_4.xu[3] = 9.3;
24783     l14_4.xu[4] = 7.;
24784     l20_7.lex = false;
24785     l20_7.nex = 1;
24786     l20_7.fex = -5280335.1;
24787     l20_7.xex[0] = 4.537431;
24788     l20_7.xex[1] = 2.4;
24789     l20_7.xex[2] = 60.;
24790     l20_7.xex[3] = 9.3;
24791     l20_7.xex[4] = 7.;
24792     return 0;
24793 labelL2:
24794     l6_1.fx = (-c__[0] - c__[1] * l2_4.x[1] - c__[2] * l2_4.x[2] - c__[3] *
24795         l2_4.x[3] - c__[4] * l2_4.x[4]) * l2_4.x[0] + 24345.;
24796     return 0;
24797 labelL3:
24798     l4_4.gf[0] = -c__[0] - c__[1] * l2_4.x[1] - c__[2] * l2_4.x[2] - c__[3] *
24799         l2_4.x[3] - c__[4] * l2_4.x[4];
24800     for (i__ = 2; i__ <= 5; ++i__) {
24801 /* L7: */
24802     l4_4.gf[i__ - 1] = -c__[i__ - 1] * l2_4.x[0];
24803     }
24804     return 0;
24805 labelL4:
24806     h__ = (c__[5] + c__[6] * l2_4.x[1] + c__[7] * l2_4.x[2] + c__[8] * l2_4.x[
24807         3] + c__[9] * l2_4.x[4]) * l2_4.x[0];
24808     if (l9_3.index1[0]) {
24809     l3_2.g[0] = h__;
24810     }
24811     if (l9_3.index1[1]) {
24812     l3_2.g[1] = 277200. - h__;
24813     }
24814     return 0;
24815 labelL5:
24816     hh[0] = c__[5] + c__[6] * l2_4.x[1] + c__[7] * l2_4.x[2] + c__[8] *
24817         l2_4.x[3] + c__[9] * l2_4.x[4];
24818     for (i__ = 2; i__ <= 5; ++i__) {
24819 /* L8: */
24820     hh[i__ - 1] = c__[i__ + 4] * l2_4.x[0];
24821     }
24822     if (! l10_3.index2[0]) {
24823     goto labelL11;
24824     }
24825     for (i__ = 1; i__ <= 5; ++i__) {
24826 /* labelL9: */
24827     l5_4.gg[(i__ << 1) - 2] = hh[i__ - 1];
24828     }
24829 labelL11:
24830     if (! l10_3.index2[1]) {
24831     goto labelL12;
24832     }
24833     for (i__ = 1; i__ <= 5; ++i__) {
24834 /* labelL10: */
24835     l5_4.gg[(i__ << 1) - 1] = -hh[i__ - 1];
24836     }
24837 labelL12:
24838     return 0;
24839 } /* tp360_ */
24840 
24841 
tp361_(int * mode)24842 /* Subroutine */ int tp361_(int *mode)
24843 {
24844     /* Initialized data */
24845 
24846     static Real a[5] = { -8720288.849,150512.5253,-156.6950325,
24847         476470.3222,729482.8271 };
24848     static Real b[5] = { -145421.402,2931.1506,-40.427932,5106.192,
24849         15711.36 };
24850     static Real c__[5] = { -155011.1084,4360.53352,12.9492344,10236.884,
24851         13176.786 };
24852     static Real d__[5] = { -326669.5104,7390.68412,-27.8986976,
24853         16643.076,30988.146 };
24854 
24855     static Real h__[3];
24856     static int i__, j;
24857     static Real hh[15]    /* was [3][5] */;
24858 
24859     switch ((int)*mode) {
24860     case 1:  goto labelL1;
24861     case 2:  goto labelL2;
24862     case 3:  goto labelL3;
24863     case 4:  goto labelL4;
24864     case 5:  goto labelL5;
24865     }
24866 labelL1:
24867     l1_1.n = 5;
24868     l1_1.nili = 0;
24869     l1_1.ninl = 6;
24870     l1_1.neli = 0;
24871     l1_1.nenl = 0;
24872     l2_4.x[0] = 2.52;
24873     l2_4.x[1] = 2.;
24874     l2_4.x[2] = 37.5;
24875     l2_4.x[3] = 9.25;
24876     l2_4.x[4] = 6.8;
24877     l11_4.lxl[4] = false;
24878     l12_4.lxu[0] = false;
24879     for (i__ = 1; i__ <= 4; ++i__) {
24880     l11_4.lxl[i__ - 1] = true;
24881 /* labelL6: */
24882     l12_4.lxu[i__] = true;
24883     }
24884     l13_4.xl[0] = 0.;
24885     l13_4.xl[1] = 1.2;
24886     l13_4.xl[2] = 20.;
24887     l13_4.xl[3] = 9.;
24888     l14_4.xu[1] = 2.4;
24889     l14_4.xu[2] = 60.;
24890     l14_4.xu[3] = 9.3;
24891     l14_4.xu[4] = 7.;
24892     l20_7.lex = false;
24893     l20_7.nex = 1;
24894     l20_7.fex = -776412.12;
24895     l20_7.xex[0] = .68128605;
24896     l20_7.xex[1] = .24;
24897     l20_7.xex[2] = 20.;
24898     l20_7.xex[3] = 9.3;
24899     l20_7.xex[4] = 7.;
24900     return 0;
24901 labelL2:
24902     l6_1.fx = a[0];
24903     for (i__ = 2; i__ <= 5; ++i__) {
24904 /* L7: */
24905     l6_1.fx += a[i__ - 1] * l2_4.x[i__ - 1];
24906     }
24907     l6_1.fx = l2_4.x[0] * l6_1.fx - 24345.;
24908     l6_1.fx = -l6_1.fx;
24909     return 0;
24910 labelL3:
24911     l4_4.gf[0] = a[0];
24912     for (i__ = 2; i__ <= 5; ++i__) {
24913     l4_4.gf[0] += a[i__ - 1] * l2_4.x[i__ - 1];
24914 /* L8: */
24915     l4_4.gf[i__ - 1] = a[i__ - 1] * l2_4.x[0];
24916     }
24917     for (i__ = 1; i__ <= 5; ++i__) {
24918 /* labelL20: */
24919     l4_4.gf[i__ - 1] = -l4_4.gf[i__ - 1];
24920     }
24921     return 0;
24922 labelL4:
24923     h__[0] = b[0];
24924     h__[1] = c__[0];
24925     h__[2] = d__[0];
24926     for (i__ = 2; i__ <= 5; ++i__) {
24927     h__[0] += b[i__ - 1] * l2_4.x[i__ - 1];
24928     h__[1] += c__[i__ - 1] * l2_4.x[i__ - 1];
24929 /* labelL9: */
24930     h__[2] += d__[i__ - 1] * l2_4.x[i__ - 1];
24931     }
24932     for (i__ = 1; i__ <= 3; ++i__) {
24933 /* labelL10: */
24934     h__[i__ - 1] = l2_4.x[0] * h__[i__ - 1];
24935     }
24936     for (i__ = 1; i__ <= 3; ++i__) {
24937 /* labelL11: */
24938     if (l9_6.index1[i__ - 1]) {
24939         l3_5.g[i__ - 1] = h__[i__ - 1];
24940     }
24941     }
24942     if (l9_6.index1[3]) {
24943     l3_5.g[3] = 29400. - h__[0];
24944     }
24945     if (l9_6.index1[4]) {
24946     l3_5.g[4] = 29400. - h__[1];
24947     }
24948     if (l9_6.index1[5]) {
24949     l3_5.g[5] = 277200. - h__[2];
24950     }
24951     return 0;
24952 labelL5:
24953     hh[0] = b[0];
24954     hh[1] = c__[0];
24955     hh[2] = d__[0];
24956     for (i__ = 2; i__ <= 5; ++i__) {
24957     hh[0] += b[i__ - 1] * l2_4.x[i__ - 1];
24958     hh[1] += c__[i__ - 1] * l2_4.x[i__ - 1];
24959     hh[2] += d__[i__ - 1] * l2_4.x[i__ - 1];
24960     hh[i__ * 3 - 3] = b[i__ - 1] * l2_4.x[0];
24961     hh[i__ * 3 - 2] = c__[i__ - 1] * l2_4.x[0];
24962 /* labelL12: */
24963     hh[i__ * 3 - 1] = d__[i__ - 1] * l2_4.x[0];
24964     }
24965     for (j = 1; j <= 3; ++j) {
24966     if (! l10_6.index2[j - 1]) {
24967         goto labelL13;
24968     }
24969     for (i__ = 1; i__ <= 5; ++i__) {
24970 /* L130: */
24971         l5_14.gg[j + i__ * 6 - 7] = hh[j + i__ * 3 - 4];
24972     }
24973 labelL13:
24974     ;
24975     }
24976     for (j = 4; j <= 6; ++j) {
24977     if (! l10_6.index2[j - 1]) {
24978         goto labelL14;
24979     }
24980     for (i__ = 1; i__ <= 5; ++i__) {
24981 /* L140: */
24982         l5_14.gg[j + i__ * 6 - 7] = -hh[j - 3 + i__ * 3 - 4];
24983     }
24984 labelL14:
24985     ;
24986     }
24987     return 0;
24988 } /* tp361_ */
24989 
24990 
tp362_(int * mode)24991 /* Subroutine */ int tp362_(int *mode)
24992 {
24993     Real tp362a_(Real *);
24994     static int i__;
24995 
24996     switch ((int)*mode) {
24997     case 1:  goto labelL1;
24998     case 2:  goto labelL2;
24999     case 3:  goto labelL3;
25000     case 4:  goto labelL4;
25001     case 5:  goto labelL5;
25002     }
25003 labelL1:
25004     l1_1.n = 5;
25005     l1_1.nili = 4;
25006     l1_1.ninl = 0;
25007     l1_1.neli = 0;
25008     l1_1.nenl = 0;
25009     l2_4.x[0] = 15.;
25010     l2_4.x[1] = 9.05;
25011     l2_4.x[2] = 6.14;
25012     l2_4.x[3] = 4.55;
25013     l2_4.x[4] = 3.61;
25014     for (i__ = 2; i__ <= 4; ++i__) {
25015     l11_4.lxl[i__ - 1] = false;
25016 /* labelL14: */
25017     l12_4.lxu[i__ - 1] = false;
25018     }
25019     l11_4.lxl[0] = true;
25020     l12_4.lxu[0] = true;
25021     l11_4.lxl[4] = true;
25022     l12_4.lxu[4] = false;
25023     l13_4.xl[0] = 15.;
25024     l14_4.xu[0] = 20.;
25025     l13_4.xl[4] = 2.;
25026     l20_7.lex = false;
25027     l20_7.nex = 1;
25028     l20_7.fex = .26229998;
25029     l20_7.xex[0] = 15.050962;
25030     l20_7.xex[1] = 8.8751199;
25031     l20_7.xex[2] = 5.908823;
25032     l20_7.xex[3] = 4.860481;
25033     l20_7.xex[4] = 4.399269;
25034     return 0;
25035 labelL2:
25036     l6_1.fx = tp362a_(l2_4.x);
25037     l6_1.fx = l6_1.fx;
25038 labelL3:
25039     return 0;
25040 labelL4:
25041     for (i__ = 1; i__ <= 4; ++i__) {
25042 /* L41: */
25043     if (l9_7.index1[i__ - 1]) {
25044         l3_6.g[i__ - 1] = l2_4.x[i__ - 1] - l2_4.x[i__];
25045     }
25046     }
25047 labelL5:
25048     return 0;
25049 } /* tp362_ */
25050 
tp362a_(Real * x)25051 Real tp362a_(Real *x)
25052 {
25053     /* Initialized data */
25054 
25055     static Real rad = 1.085;
25056     static Real con1 = 1.466667;
25057     static Real con2 = 12.90842;
25058     static Real rpmin = 600.;
25059     static Real rpmax = 5700.;
25060     static Real ei = .6;
25061     static Real vi = 98.;
25062     static Real dt = .01;
25063     static Real vmax = 100.;
25064     static Real v0 = 5.;
25065     static Real tshift = .25;
25066     static Real tmax = 100.;
25067 
25068     /* System generated locals */
25069     Real ret_val, d__1, d__2;
25070 
25071     /* Local variables */
25072     static int i__;
25073     static Real t, v, force;
25074     static int it;
25075     static Real tt, torque, acc, rpm, acc0;
25076 
25077     /* Parameter adjustments */
25078     --x;
25079 
25080     /* Function Body */
25081 /* labelL13: */
25082     it = 0;
25083     acc = 0.;
25084     v = v0;
25085     i__ = 1;
25086 L302:
25087 /* Computing 2nd power */
25088     d__1 = v;
25089     force = d__1 * d__1 * .0239 + 31.2;
25090 L301:
25091     rpm = v * con2 * x[i__];
25092     if (rpm < rpmin) {
25093     goto L300;
25094     }
25095     if (rpm >= rpmax) {
25096     goto L305;
25097     }
25098     if (rpm >= 600. && rpm < 1900.) {
25099 /* Computing 3rd power */
25100     d__1 = rpm;
25101 /* Computing 2nd power */
25102     d__2 = rpm;
25103     torque = d__1 * (d__1 * d__1) * 3.846154e-8 - d__2 * d__2 *
25104         2.108974359e-4 + rpm * .42455128205133 - 187.11538461540295;
25105     }
25106     if (rpm >= 1900. && rpm < 3e3) {
25107 /* Computing 3rd power */
25108     d__1 = rpm;
25109 /* Computing 2nd power */
25110     d__2 = rpm;
25111     torque = d__1 * (d__1 * d__1) * -4.92424e-9 + d__2 * d__2 *
25112         1.867424242e-5 + rpm * .01229545454547 + 64.999999999986;
25113     }
25114     if (rpm >= 3e3 && rpm < 4500.) {
25115 /* Computing 3rd power */
25116     d__1 = rpm;
25117 /* Computing 2nd power */
25118     d__2 = rpm;
25119     torque = d__1 * (d__1 * d__1) * -2.6667e-10 + d__2 * d__2 * 3e-6 -
25120         rpm * .01263333333336 + 155.10000000002947;
25121     }
25122     if (rpm >= 4500. && rpm < 5600.) {
25123 /* Computing 3rd power */
25124     d__1 = rpm;
25125 /* Computing 2nd power */
25126     d__2 = rpm;
25127     torque = d__1 * (d__1 * d__1) * -6.64141e-9 + d__2 * d__2 *
25128         8.337626263e-5 - rpm * .34351868688129 + 597.3636363847145;
25129     }
25130     if (rpm >= 5600. && rpm < 6e3) {
25131 /* Computing 3rd power */
25132     d__1 = rpm;
25133 /* Computing 2nd power */
25134     d__2 = rpm;
25135     torque = d__1 * (d__1 * d__1) * -2.539683e-8 + d__2 * d__2 *
25136         3.8158730157e-4 - rpm * 1.9223492062348 + 3380.66666645715304;
25137     }
25138     acc0 = acc;
25139 /* Computing 2nd power */
25140     d__1 = x[i__];
25141     acc = rad * (x[i__] * torque - force * rad) / (ei * (d__1 * d__1) + vi);
25142     ++it;
25143     t = dt * it;
25144     v += (acc0 + acc) / 2. * dt / con1;
25145     if (t > tmax) {
25146     goto L311;
25147     }
25148     if (v >= vmax) {
25149     goto L311;
25150     }
25151     goto L302;
25152 L300:
25153     ret_val = tmax;
25154     return ret_val;
25155 L305:
25156     ++i__;
25157     if (i__ > 5) {
25158     goto L311;
25159     }
25160     if (t == 0.) {
25161     goto L301;
25162     }
25163     tt = t + tshift;
25164 L306:
25165 /* Computing 2nd power */
25166     d__1 = rad;
25167     acc = -force * (d__1 * d__1) / vi;
25168     ++it;
25169     t = dt * it;
25170     v += acc * dt / con1;
25171     if (t < tt) {
25172     goto L307;
25173     }
25174     goto L302;
25175 L307:
25176 /* Computing 2nd power */
25177     d__1 = v;
25178     force = d__1 * d__1 * .0293 + 31.2;
25179     goto L306;
25180 L311:
25181     ret_val = t / 100.;
25182     return ret_val;
25183 } /* tp362a_ */
25184 
25185 
tp363_(int * mode)25186 /* Subroutine */ int tp363_(int *mode)
25187 {
25188     Real tp363a_(Real *);
25189     int tp363b_(bool *, Real *, Real *);
25190     static int i__;
25191 
25192     switch ((int)*mode) {
25193     case 1:  goto labelL1;
25194     case 2:  goto labelL2;
25195     case 3:  goto labelL3;
25196     case 4:  goto labelL4;
25197     case 5:  goto labelL5;
25198     }
25199 labelL1:
25200     l1_1.n = 5;
25201     l1_1.nili = 0;
25202     l1_1.ninl = 3;
25203     l1_1.neli = 0;
25204     l1_1.nenl = 0;
25205     l2_4.x[0] = -.3359769;
25206     l2_4.x[1] = -1.432398;
25207     l2_4.x[2] = 0.;
25208     l2_4.x[3] = 4.;
25209     l2_4.x[4] = 9.;
25210     for (i__ = 1; i__ <= 5; ++i__) {
25211     l11_4.lxl[i__ - 1] = true;
25212     l12_4.lxu[i__ - 1] = true;
25213 /* labelL11: */
25214     l14_4.xu[i__ - 1] = 10.;
25215     }
25216     l13_4.xl[0] = -10.;
25217     l13_4.xl[1] = -10.;
25218     l13_4.xl[2] = -10.;
25219     l13_4.xl[3] = .1;
25220     l13_4.xl[4] = 1.;
25221     l20_7.lex = false;
25222     l20_7.nex = 1;
25223     l20_7.xex[0] = .19852438;
25224     l20_7.xex[1] = -3.01059794;
25225     l20_7.xex[2] = -.0530266138;
25226     l20_7.xex[3] = 2.83165094;
25227     l20_7.xex[4] = 10.;
25228     l20_7.fex = (float)-5.55840576;
25229     return 0;
25230 labelL2:
25231     l6_1.fx = tp363a_(l2_4.x);
25232 labelL3:
25233     return 0;
25234 labelL4:
25235     tp363b_(l9_4.index1, l2_4.x, l3_3.g);
25236 labelL5:
25237     return 0;
25238 } /* tp363_ */
25239 
tp363a_(Real * x)25240 Real tp363a_(Real *x)
25241 {
25242     /* Initialized data */
25243 
25244     static Real xi = 1.;
25245     static Real x6 = 1.;
25246     static Real x11 = 1.;
25247 
25248     /* System generated locals */
25249     int i__1;
25250     Real ret_val;
25251 
25252     /* Local variables */
25253     int tp363c_(Real *x, Real *thick, Real *dthick, Real *c__, int *kkk, Real *c0, Real *xi);
25254     int tp363d_(Real *, Real *);
25255     static int i__;
25256     static Real dr, xc[100];
25257 
25258     /* Parameter adjustments */
25259     --x;
25260 
25261     /* Function Body */
25262     b_1.w2 = x6 * 100.;
25263     dr = x[5] - xi;
25264     xc[0] = xi;
25265     i__1 = b_1.kkk;
25266     for (i__ = 1; i__ <= i__1; ++i__) {
25267 /* L60: */
25268     xc[i__] = xc[i__ - 1] + dr / (Real) b_1.kkk;
25269     }
25270     tp363c_(xc, b_1.thick, b_1.dthick, &x[1], &b_1.kkk, &x11, &xi);
25271     tp363d_(xc, &ret_val);
25272     ret_val = -ret_val / 1e6;
25273     return ret_val;
25274 } /* tp363a_ */
25275 
tp363b_(bool * index1,Real * c__,Real * g)25276 /* Subroutine */ int tp363b_(bool *index1, Real *c__, Real *g)
25277 {
25278     /* Initialized data */
25279 
25280     static Real yi = 0.;
25281     static Real xi = 1.;
25282     static Real eps = .1;
25283     static Real c6 = 1.;
25284 
25285     /* System generated locals */
25286     int i__1;
25287     Real d__1, d__2, d__3;
25288 
25289     /* Local variables */
25290     static Real smax, root, stot[100];
25291     int tp363c_(Real *, Real *, Real *, Real *, int *, Real *, Real *);
25292     int tp363e_(Real *, Real *, Real *, Real *, int *, Real *, Real *, Real*);
25293     int tp363f_(Real *, Real *, Real *, Real *, Real *, Real *, Real *, Real *, Real *, Real *, Real *, Real *, int *);
25294     int tp363g_(Real *, Real *, Real *, Real *, int *, Real *);
25295     static int i__;
25296     static Real v;
25297     static Real x[100], y[100], y1[100];
25298     static int ii;
25299     static Real dr;
25300     static int nn;
25301     static Real xl, xr, y1i, fxl, fxr, rst[100], tst[100];
25302 
25303     /* Parameter adjustments */
25304     --g;
25305     --c__;
25306     --index1;
25307 
25308     /* Function Body */
25309     b_1.xmu = (float).3;
25310     b_1.rho = 7.263e-4;
25311     ii = 99;
25312     b_1.kkk = 98;
25313     b_1.w2 = c6 * 100.;
25314     dr = c__[5] - xi;
25315     x[0] = xi;
25316     i__1 = b_1.kkk;
25317     for (i__ = 1; i__ <= i__1; ++i__) {
25318 /* L60: */
25319     x[i__] = x[i__ - 1] + dr / (Real) b_1.kkk;
25320     }
25321     tp363c_(x, b_1.thick, b_1.dthick, &c__[1], &b_1.kkk, &c__[4], &xi);
25322 /* labelL5: */
25323     y1i = 1e5;
25324 /* labelL2: */
25325     tp363e_(&y1i, &yi, &xi, &c__[5], &ii, y, y1, x);
25326     fxl = -y[ii - 1];
25327     xl = y1i;
25328     yi = 0.;
25329     y1i = 2.503e6;
25330     tp363e_(&y1i, &yi, &xi, &c__[5], &ii, y, y1, x);
25331     fxr = -y[ii - 1];
25332     xr = y1i;
25333     tp363f_(&xl, &xr, &fxl, &fxr, &eps, y, y1, x, &xi, &c__[5], &yi, &root, &ii);
25334     smax = 0.;
25335     st_1.value2 = 0.;
25336     i__1 = ii;
25337     for (nn = 1; nn <= i__1; ++nn) {
25338     rst[nn - 1] = y[nn - 1] / (b_1.thick[nn - 1] * x[nn - 1]);
25339 /* Computing 2nd power */
25340     d__1 = b_1.w2;
25341 /* Computing 2nd power */
25342     d__2 = x[nn - 1];
25343     tst[nn - 1] = (y1[nn - 1] + b_1.thick[nn - 1] * b_1.rho * (d__1 *
25344         d__1) * (d__2 * d__2)) / b_1.thick[nn - 1];
25345 /* Computing 2nd power */
25346     d__1 = rst[nn - 1] - tst[nn - 1];
25347 /* Computing 2nd power */
25348     d__2 = rst[nn - 1];
25349 /* Computing 2nd power */
25350     d__3 = tst[nn - 1];
25351     stot[nn - 1] = std::sqrt(d__1 * d__1 + d__2 * d__2 + d__3 * d__3);
25352     if (stot[nn - 1] > smax) {
25353         smax = stot[nn - 1];
25354     }
25355 /* Computing 2nd power */
25356     d__1 = 3e4 - stot[nn - 1];
25357     st_1.value2 += d__1 * d__1;
25358 /* L300: */
25359     }
25360     st_1.value2 = std::sqrt(st_1.value2);
25361     if (index1[1]) {
25362     g[1] = (3e4 - smax) / 1e3;
25363     }
25364     if (index1[2]) {
25365     g[2] = 5. - tfn1_1.tmax;
25366     }
25367     tp363g_(&c__[4], &c__[1], &v, b_1.thick, &b_1.kkk, x);
25368     if (index1[3]) {
25369     g[3] = (625. - v) / 10.;
25370     }
25371 /* L900: */
25372     return 0;
25373 } /* tp363b_ */
25374 
tp363c_(Real * x,Real * thick,Real * dthick,Real * c__,int * kkk,Real * c0,Real * xi)25375 /* Subroutine */ int tp363c_(Real *x, Real *thick, Real *dthick, Real *c__, int *kkk, Real *c0, Real *xi)
25376 {
25377     /* System generated locals */
25378     int i__1, i__2;
25379 
25380     /* Local variables */
25381     static int nfst, i__, lm;
25382     static Real xl;
25383     static int jkl;
25384 
25385     /* Parameter adjustments */
25386     --c__;
25387     --dthick;
25388     --thick;
25389     --x;
25390 
25391     /* Function Body */
25392     thick[1] = *c0;
25393     xl = x[*kkk + 1] - x[1];
25394     nfst = 2;
25395     tfn1_1.tmax = thick[1];
25396     i__1 = *kkk;
25397     for (i__ = 1; i__ <= i__1; ++i__) {
25398     thick[i__ + 1] = *c0 + c__[1] * (x[i__ + 1] - *xi);
25399     i__2 = nfst;
25400     for (lm = 1; lm <= i__2; ++lm) {
25401         jkl = lm + 1;
25402 /* labelL9: */
25403         thick[i__ + 1] += c__[jkl] * std::sin(((Real) jkl * (float)2. - (
25404             float)3.) * 3.1415926535897932 * (x[i__] - x[1]) / xl);
25405     }
25406     if (thick[i__ + 1] > tfn1_1.tmax) {
25407         tfn1_1.tmax = thick[i__ + 1];
25408     }
25409 /* labelL10: */
25410     dthick[i__] = (thick[i__ + 1] - thick[i__]) / (x[i__ + 1] - x[i__]);
25411     }
25412     return 0;
25413 } /* tp363c_ */
25414 
tp363d_(Real * x,Real * xke)25415 /* Subroutine */ int tp363d_(Real *x, Real *xke)
25416 {
25417     /* System generated locals */
25418     int i__1;
25419     Real d__1;
25420 
25421     /* Local variables */
25422     static int i__;
25423     static Real const__;
25424 
25425     /* Parameter adjustments */
25426     --x;
25427 
25428     /* Function Body */
25429 /* Computing 2nd power */
25430     d__1 = b_2.w;
25431     const__ = b_2.rho * 3.1415926535897932 * (d__1 * d__1);
25432     *xke = 0.;
25433     i__1 = b_2.kkk;
25434     for (i__ = 1; i__ <= i__1; ++i__) {
25435 /* labelL10: */
25436 /* Computing 3rd power */
25437     d__1 = x[i__];
25438     *xke += d__1 * (d__1 * d__1) * b_2.thick[i__ - 1] * (x[i__ + 1] - x[
25439         i__]);
25440     }
25441     *xke *= const__;
25442     return 0;
25443 } /* tp363d_ */
25444 
tp363e_(Real * y1i,Real * yi,Real * xi,Real * xf,int * ii,Real * y,Real * y1,Real * x)25445 /* Subroutine */ int tp363e_(Real *y1i, Real *yi, Real *xi, Real *xf, int *ii, Real *y, Real *y1, Real *x)
25446 {
25447     /* System generated locals */
25448     int i__1;
25449 
25450     /* Local variables */
25451     Real tp363h_(Real *, Real *, Real *, int *);
25452     static Real h__;
25453     static int j;
25454     static Real m0, m1, m2, m3;
25455     static int kk, ll;
25456     static Real xr, yr, y1r;
25457 
25458     /* Parameter adjustments */
25459     --x;
25460     --y1;
25461     --y;
25462 
25463     /* Function Body */
25464     x[1] = *xi;
25465     y[1] = *yi;
25466     y1[1] = *y1i;
25467     h__ = (*xf - *xi) / (Real) (*ii - 1);
25468     kk = *ii - 1;
25469     i__1 = kk;
25470     for (j = 1; j <= i__1; ++j) {
25471     ll = j;
25472     xr = x[j];
25473     yr = y[j];
25474     y1r = y1[j];
25475     m0 = h__ * tp363h_(&xr, &yr, &y1r, &ll);
25476     xr = x[j] + h__ / 2.;
25477     yr = y[j] + h__ * y1[j] / 2.;
25478     y1r = y1[j] + m0 / 2.;
25479     m1 = h__ * tp363h_(&xr, &yr, &y1r, &ll);
25480     yr += h__ * m0 / 4.;
25481     y1r = y1[j] + m1 / 2.;
25482     m2 = h__ * tp363h_(&xr, &yr, &y1r, &ll);
25483     xr = x[j] + h__;
25484     yr = y[j] + h__ * y1[j] + h__ * m1 / 2.;
25485     y1r = y1[j] + m2;
25486     m3 = h__ * tp363h_(&xr, &yr, &y1r, &ll);
25487     y[j + 1] = y[j] + h__ * y1[j] + h__ / 6. * (m0 + m1 + m2);
25488     y1[j + 1] = y1[j] + (m0 + m1 * 2. + m2 * 2. + m3) / 6.;
25489 /* labelL10: */
25490     x[j + 1] = x[j] + h__;
25491     }
25492     return 0;
25493 } /* tp363e_ */
25494 
tp363f_(Real * xl,Real * xr,Real * fxl,Real * fxr,Real * eps,Real * y,Real * y1,Real * x,Real * xi,Real * xf,Real * yi,Real * root,int * ii)25495 /* Subroutine */ int tp363f_(Real *xl, Real *xr, Real *fxl, Real *fxr, Real *eps, Real *y, Real *y1, Real *x, Real *xi, Real *xf, Real *yi,
25496     Real *root, int *ii)
25497 {
25498     /* System generated locals */
25499     Real d__1;
25500 
25501     /* Local variables */
25502     static Real xapp;
25503     int tp363e_(Real *, Real *, Real *, Real *, int *, Real *, Real *, Real *);
25504     static Real value, fxapp, xsave;
25505 
25506     /* Parameter adjustments */
25507     --x;
25508     --y1;
25509     --y;
25510 
25511     /* Function Body */
25512     xsave = *xl;
25513 L105:
25514     xapp = *xl + *fxl * (*xr - *xl) / (*fxl - *fxr);
25515     tp363e_(&xapp, yi, xi, xf, ii, &y[1], &y1[1], &x[1]);
25516     fxapp = -y[*ii];
25517     if ((d__1 = xapp - xsave, std::abs(d__1)) / xapp <= *eps) {
25518     goto L250;
25519     }
25520     value = fxapp * *fxl;
25521     if (value < 0.) {
25522     goto L110;
25523     }
25524     *xl = xapp;
25525     xsave = *xl;
25526     *fxl = fxapp;
25527     goto L105;
25528 L110:
25529     *xr = xapp;
25530     xsave = *xr;
25531     *fxr = fxapp;
25532     goto L105;
25533 L250:
25534     *root = xapp;
25535     return 0;
25536 } /* tp363f_ */
25537 
tp363g_(Real * c0,Real * c__,Real * v,Real * thick,int * kkk,Real * x)25538 /* Subroutine */ int tp363g_(Real *c0, Real *c__, Real *v, Real *thick, int *kkk, Real *x)
25539 {
25540     /* System generated locals */
25541     int i__1;
25542 
25543     /* Local variables */
25544     static int i__;
25545     static Real deltx, r1, r2, r3, pi;
25546     static int lmn;
25547 
25548     /* Parameter adjustments */
25549     --x;
25550     --thick;
25551     --c__;
25552 
25553     /* Function Body */
25554     *v = 0.;
25555     pi = 3.141592654;
25556     deltx = (x[*kkk + 1] - x[1]) / *kkk;
25557     lmn = *kkk - 1;
25558     i__1 = lmn;
25559     for (i__ = 1; i__ <= i__1; i__ += 2) {
25560     r1 = (x[i__ + 1] + x[i__]) / 2.;
25561     r2 = (x[i__ + 1] + x[i__ + 2]) / 2.;
25562     r3 = (r1 + r2) / 2.;
25563 /* labelL10: */
25564     *v += pi * 2. * deltx / 3. * (thick[i__] * r1 + thick[i__ + 1] * 4. *
25565         r3 + thick[i__ + 2] * r2);
25566     }
25567     return 0;
25568 } /* tp363g_ */
25569 
tp363h_(Real * xr,Real * yr,Real * y1r,int * i__)25570 Real tp363h_(Real *xr, Real *yr, Real *y1r, int *i__)
25571 {
25572     /* System generated locals */
25573     Real ret_val, d__1, d__2;
25574 
25575 /* Computing 2nd power */
25576     d__1 = *xr;
25577 /* Computing 2nd power */
25578     d__2 = b_1.w2;
25579     ret_val = (1. / b_1.thick[*i__ - 1] * b_1.dthick[*i__ - 1] - 1. / *xr) * *
25580         y1r + (1. / (d__1 * d__1) - b_1.xmu / (*xr * b_1.thick[*i__ - 1])
25581         * b_1.dthick[*i__ - 1]) * *yr - (b_1.xmu + 3.) * b_1.rho * (d__2 *
25582          d__2) * b_1.thick[*i__ - 1] * *xr;
25583     return ret_val;
25584 } /* tp363h_ */
25585 
25586 
tp364_(int * mode)25587 /* Subroutine */ int tp364_(int *mode)
25588 {
25589     /* Local variables */
25590     Real tp364a_(Real *);
25591     static int i__;
25592     static Real xmu1, xmu2;
25593 
25594     switch ((int)*mode) {
25595     case 1:  goto labelL1;
25596     case 2:  goto labelL2;
25597     case 3:  goto labelL3;
25598     case 4:  goto labelL4;
25599     case 5:  goto labelL5;
25600     }
25601 labelL1:
25602     l1_1.n = 6;
25603     l1_1.nili = 2;
25604     l1_1.ninl = 2;
25605     l1_1.neli = 0;
25606     l1_1.nenl = 0;
25607     l2_5.x[0] = 1.;
25608     l2_5.x[1] = 4.5;
25609     l2_5.x[2] = 4.;
25610     l2_5.x[3] = 5.;
25611     l2_5.x[4] = 3.;
25612     l2_5.x[5] = 3.;
25613     for (i__ = 1; i__ <= 4; ++i__) {
25614 /* labelL11: */
25615     l11_5.lxl[i__ - 1] = true;
25616     }
25617     l11_5.lxl[4] = false;
25618     l11_5.lxl[5] = false;
25619     l12_5.lxu[4] = false;
25620     l12_5.lxu[5] = false;
25621     l12_5.lxu[0] = true;
25622     l12_5.lxu[3] = true;
25623     l12_5.lxu[1] = false;
25624     l12_5.lxu[2] = false;
25625     l13_5.xl[0] = .5;
25626     l13_5.xl[1] = 0.;
25627     l13_5.xl[2] = 0.;
25628     l13_5.xl[3] = 2.;
25629     l14_5.xu[0] = 3.;
25630     l14_5.xu[3] = 10.;
25631     l20_4.lex = false;
25632     l20_4.nex = 1;
25633     l20_4.fex = (float).0606002;
25634     l20_4.xex[0] = (float).99616882;
25635     l20_4.xex[1] = 4.1960616;
25636     l20_4.xex[2] = 2.9771652;
25637     l20_4.xex[3] = 3.9631949;
25638     l20_4.xex[4] = 1.6536702;
25639     l20_4.xex[5] = 1.2543998;
25640     return 0;
25641 labelL2:
25642     l6_1.fx = tp364a_(l2_5.x);
25643 labelL3:
25644     return 0;
25645 labelL4:
25646     xmu1 = .7853981633;
25647     xmu2 = 2.356194491;
25648     if (l9_7.index1[0]) {
25649     l3_6.g[0] = -l2_5.x[0] + l2_5.x[1] + l2_5.x[2] - l2_5.x[3];
25650     }
25651     if (l9_7.index1[1]) {
25652     l3_6.g[1] = -l2_5.x[0] - l2_5.x[1] + l2_5.x[2] + l2_5.x[3];
25653     }
25654     if (l9_7.index1[2]) {
25655     l3_6.g[2] = -l2_5.x[1] * l2_5.x[1] - l2_5.x[2] * l2_5.x[2] + (l2_5.x[
25656         3] - l2_5.x[0]) * (l2_5.x[3] - l2_5.x[0]) + l2_5.x[1] * 2. *
25657         l2_5.x[2] *std::cos(xmu1);
25658     }
25659     if (l9_7.index1[3]) {
25660     l3_6.g[3] = l2_5.x[1] * l2_5.x[1] + l2_5.x[2] * l2_5.x[2] - (l2_5.x[3]
25661          + l2_5.x[0]) * (l2_5.x[3] + l2_5.x[0]) - l2_5.x[1] * 2. *
25662         l2_5.x[2] *std::cos(xmu2);
25663     }
25664 labelL5:
25665     return 0;
25666 } /* tp364_ */
25667 
tp364a_(Real * x)25668 Real tp364a_(Real *x)
25669 {
25670     /* System generated locals */
25671     Real ret_val, d__1, d__2;
25672 
25673     /* Local variables */
25674     static Real xinc, coss, sins, cosy, siny;
25675     int tp364b_(Real*, Real*, Real*), tp364c_(Real*, Real*, Real*);
25676     static int i__;
25677     static Real x1[31], y1[31], pi, wp, x1a[31], y1a[31], phi[31];
25678 
25679     /* Parameter adjustments */
25680     --x;
25681 
25682     /* Function Body */
25683     pi = 3.141592654;
25684     xinc = pi * 2. / 30.;
25685     for (i__ = 1; i__ <= 31; ++i__) {
25686 /* labelL1: */
25687     phi[i__ - 1] = xinc * (Real) (i__ - 1);
25688     }
25689     tp364b_(phi, x1, y1);
25690     ret_val = 0.;
25691     for (i__ = 1; i__ <= 31; ++i__) {
25692     tp364c_(&x[1], &phi[i__ - 1], &coss);
25693     wp = (d__1 = 1. - coss * coss, std::abs(d__1));
25694     if (wp > (float)0.) {
25695         sins = std::sqrt(wp);
25696     } else {
25697         sins = (float)0.;
25698     }
25699     cosy = (x[4] + x[3] * coss - x[1] *std::cos(phi[i__ - 1])) / x[2];
25700     siny = (x[3] * sins - x[1] * std::sin(phi[i__ - 1])) / x[2];
25701     x1a[i__ - 1] = x[1] *std::cos(phi[i__ - 1]) + x[5] * cosy - x[6] * siny;
25702     y1a[i__ - 1] = x[1] * std::sin(phi[i__ - 1]) + x[5] * siny + x[6] * cosy;
25703 /* labelL2: */
25704 /* Computing 2nd power */
25705     d__1 = x1a[i__ - 1] - x1[i__ - 1];
25706 /* Computing 2nd power */
25707     d__2 = y1a[i__ - 1] - y1[i__ - 1];
25708     ret_val = ret_val + d__1 * d__1 + d__2 * d__2;
25709     }
25710     wp = ret_val / 31.;
25711     if (wp > (float)0.) {
25712     ret_val = std::sqrt(wp);
25713     } else {
25714     ret_val = (float)0.;
25715     }
25716     return ret_val;
25717 } /* tp364a_ */
25718 
tp364b_(Real * phi,Real * x1,Real * y1)25719 /* Subroutine */ int tp364b_(Real *phi, Real *x1, Real *y1)
25720 {
25721     /* Local variables */
25722     static int i__;
25723     static Real pi;
25724 
25725     /* Parameter adjustments */
25726     --y1;
25727     --x1;
25728     --phi;
25729 
25730     /* Function Body */
25731     pi = 3.141592654;
25732     for (i__ = 1; i__ <= 31; ++i__) {
25733     x1[i__] = std::sin(pi * 2. * ((pi - phi[i__]) / (pi * 2.) - .16)) + .4;
25734 /* labelL1: */
25735     y1[i__] = std::sin(pi - phi[i__]) * .9 + 2.;
25736     }
25737     return 0;
25738 } /* tp364b_ */
25739 
tp364c_(Real * x,Real * phi,Real * w)25740 /* Subroutine */ int tp364c_(Real *x, Real *phi, Real *w)
25741 {
25742     /* System generated locals */
25743     Real d__1;
25744 
25745     /* Local variables */
25746     static Real term, a, b, c__, k, l, m, pi;
25747 
25748     /* Parameter adjustments */
25749     --x;
25750 
25751     /* Function Body */
25752     pi = 3.141592654;
25753     m = x[1] * 2. * x[3] * std::sin(*phi);
25754     l = x[3] * 2. * x[4] - x[1] * 2. * x[3] *std::cos(*phi);
25755     k = x[1] * x[1] - x[2] * x[2] + x[3] * x[3] + x[4] * x[4] - x[4] * 2. * x[
25756         1] *std::cos(*phi);
25757     a = l * l + m * m;
25758     b = k * 2. * l;
25759     c__ = k * k - m * m;
25760     term = std::sqrt((d__1 = b * b - a * 4. * c__, std::abs(d__1)));
25761     if (pi - *phi < 0.) {
25762     term = -term;
25763     }
25764     *w = (-b + term) / (a * 2.);
25765     return 0;
25766 } /* tp364c_ */
25767 
25768 
tp365_(int * mode)25769 /* Subroutine */ int tp365_(int *mode)
25770 {
25771     /* System generated locals */
25772     Real d__1, d__2;
25773 
25774     /* Local variables */
25775     static int i__;
25776     static Real p, q;
25777 
25778     switch ((int)*mode) {
25779     case 1:  goto labelL1;
25780     case 2:  goto labelL2;
25781     case 3:  goto labelL3;
25782     case 4:  goto labelL4;
25783     case 5:  goto labelL5;
25784     }
25785 labelL1:
25786     l1_1.n = 7;
25787     l1_1.nili = 0;
25788     l1_1.ninl = 5;
25789     l1_1.neli = 0;
25790     l1_1.nenl = 0;
25791     l2_6.x[0] = 3.;
25792     l2_6.x[1] = 0.;
25793     l2_6.x[2] = 2.;
25794     l2_6.x[3] = -1.5;
25795     l2_6.x[4] = 1.5;
25796     l2_6.x[5] = 5.;
25797     l2_6.x[6] = 0.;
25798     for (i__ = 1; i__ <= 3; ++i__) {
25799     l11_6.lxl[(i__ << 1) - 1] = false;
25800 /* labelL11: */
25801     l11_6.lxl[(i__ << 1) - 2] = true;
25802     }
25803     l11_6.lxl[6] = true;
25804     for (i__ = 1; i__ <= 7; ++i__) {
25805 /* labelL12: */
25806     l12_6.lxu[i__ - 1] = false;
25807     }
25808     l13_6.xl[0] = 0.;
25809     l13_6.xl[2] = 0.;
25810     l13_6.xl[4] = 1.;
25811     l13_6.xl[6] = 1.;
25812     l20_8.lex = false;
25813     l20_8.nex = 1;
25814     l20_8.fex = 23.313708;
25815     l20_8.xex[0] = 4.8284266;
25816     l20_8.xex[1] = 4.7529555e-6;
25817     l20_8.xex[2] = 4.8284276;
25818     l20_8.xex[3] = 1.0000024;
25819     l20_8.xex[4] = 2.4142144;
25820     l20_8.xex[5] = 2.4142151;
25821     l20_8.xex[6] = 1.;
25822     return 0;
25823 labelL2:
25824     l6_1.fx = l2_6.x[0] * l2_6.x[2];
25825 labelL3:
25826     return 0;
25827 labelL4:
25828 /* Computing 2nd power */
25829     d__1 = l2_6.x[1];
25830 /* Computing 2nd power */
25831     d__2 = l2_6.x[2];
25832     p = std::sqrt(d__1 * d__1 + d__2 * d__2);
25833 /* Computing 2nd power */
25834     d__1 = l2_6.x[2];
25835 /* Computing 2nd power */
25836     d__2 = l2_6.x[1] - l2_6.x[0];
25837     q = std::sqrt(d__1 * d__1 + d__2 * d__2);
25838     if (l9_5.index1[0]) {
25839 /* Computing 2nd power */
25840     d__1 = l2_6.x[3] - l2_6.x[5];
25841 /* Computing 2nd power */
25842     d__2 = l2_6.x[4] - l2_6.x[6];
25843     l3_4.g[0] = d__1 * d__1 + d__2 * d__2 - 4.;
25844     }
25845     if (l9_5.index1[1]) {
25846     l3_4.g[1] = (l2_6.x[2] * l2_6.x[3] - l2_6.x[1] * l2_6.x[4]) / p - 1.;
25847     }
25848     if (l9_5.index1[2]) {
25849     l3_4.g[2] = (l2_6.x[2] * l2_6.x[5] - l2_6.x[1] * l2_6.x[6]) / p - 1.;
25850     }
25851     if (l9_5.index1[3]) {
25852     l3_4.g[3] = (l2_6.x[0] * l2_6.x[2] + (l2_6.x[1] - l2_6.x[0]) * l2_6.x[
25853         4] - l2_6.x[2] * l2_6.x[3]) / q - 1.;
25854     }
25855     if (l9_5.index1[4]) {
25856     l3_4.g[4] = (l2_6.x[0] * l2_6.x[2] + (l2_6.x[1] - l2_6.x[0]) * l2_6.x[
25857         6] - l2_6.x[2] * l2_6.x[5]) / q - 1.;
25858     }
25859 labelL5:
25860     return 0;
25861 } /* tp365_ */
25862 
25863 
tp366_(int * mode)25864 /* Subroutine */ int tp366_(int *mode)
25865 {
25866     /* Initialized data */
25867 
25868     static Real c__[38] = { 5.9553571e-4,.88392857,-.1175625,1.1088,
25869         .1303533,-.0066033,6.6173269e-4,.017239878,-.0056595559,
25870         -.019120592,56.85075,1.08702,.32175,-.03762,.006198,2462.3121,
25871         -25.125634,161.18996,5e3,-489510.,44.333333,.33,.022556,-.007595,
25872         6.1e-4,-5e-4,.819672,.819672,24500.,-250.,.010204082,1.2244898e-5,
25873         6.25e-5,6.25e-5,-7.625e-5,1.22,1.,-1. };
25874 
25875     /* System generated locals */
25876     Real d__1;
25877 
25878     /* Local variables */
25879     static int i__;
25880 
25881     switch ((int)*mode) {
25882     case 1:  goto labelL1;
25883     case 2:  goto labelL2;
25884     case 3:  goto labelL3;
25885     case 4:  goto labelL4;
25886     case 5:  goto labelL5;
25887     }
25888 labelL1:
25889     l1_1.n = 7;
25890     l1_1.nili = 0;
25891     l1_1.ninl = 14;
25892     l1_1.neli = 0;
25893     l1_1.nenl = 0;
25894     l2_6.x[0] = 1745.;
25895     l2_6.x[1] = 110.;
25896     l2_6.x[2] = 3048.;
25897     l2_6.x[3] = 89.;
25898     l2_6.x[4] = 92.8;
25899     l2_6.x[5] = 8.;
25900     l2_6.x[6] = 145.;
25901     for (i__ = 1; i__ <= 7; ++i__) {
25902     l11_6.lxl[i__ - 1] = true;
25903 /* labelL11: */
25904     l12_6.lxu[i__ - 1] = true;
25905     }
25906     l13_6.xl[0] = 1.;
25907     l13_6.xl[1] = 1.;
25908     l13_6.xl[2] = 1.;
25909     l13_6.xl[3] = 85.;
25910     l13_6.xl[4] = 90.;
25911     l13_6.xl[5] = 3.;
25912     l13_6.xl[6] = 145.;
25913     l14_6.xu[0] = 2e3;
25914     l14_6.xu[1] = 120.;
25915     l14_6.xu[2] = 5e3;
25916     l14_6.xu[3] = 93.;
25917     l14_6.xu[4] = 95.;
25918     l14_6.xu[5] = 12.;
25919     l14_6.xu[6] = 162.;
25920     l20_8.lex = false;
25921     l20_8.nex = 1;
25922     l20_8.fex = 704.3056;
25923     l20_8.xex[0] = 905.40351;
25924     l20_8.xex[1] = 36.394998;
25925     l20_8.xex[2] = 2381.4783;
25926     l20_8.xex[3] = 88.987691;
25927     l20_8.xex[4] = 95.;
25928     l20_8.xex[5] = 12.;
25929     l20_8.xex[6] = 153.53535;
25930     return 0;
25931 labelL2:
25932     l6_1.fx = l2_6.x[0] * 1.715 + l2_6.x[0] * .035 * l2_6.x[5] + l2_6.x[2] *
25933         4.0565 + l2_6.x[1] * 10. + 3e3 - l2_6.x[2] * .063 * l2_6.x[4];
25934 labelL3:
25935     return 0;
25936 labelL4:
25937     if (l9_8.index1[0]) {
25938 /* Computing 2nd power */
25939     d__1 = l2_6.x[5];
25940     l3_7.g[0] = 1. - c__[0] * (d__1 * d__1) - c__[1] * l2_6.x[2] / l2_6.x[
25941         0] - c__[2] * l2_6.x[5];
25942     }
25943     if (l9_8.index1[1]) {
25944 /* Computing 2nd power */
25945     d__1 = l2_6.x[5];
25946     l3_7.g[1] = 1. - c__[3] * l2_6.x[0] / l2_6.x[2] - c__[4] * l2_6.x[0] /
25947          l2_6.x[2] * l2_6.x[5] - c__[5] * l2_6.x[0] / l2_6.x[2] * (
25948         d__1 * d__1);
25949     }
25950     if (l9_8.index1[2]) {
25951 /* Computing 2nd power */
25952     d__1 = l2_6.x[5];
25953     l3_7.g[2] = 1. - c__[6] * (d__1 * d__1) - c__[7] * l2_6.x[4] - c__[8]
25954         * l2_6.x[3] - c__[9] * l2_6.x[5];
25955     }
25956     if (l9_8.index1[3]) {
25957 /* Computing 2nd power */
25958     d__1 = l2_6.x[5];
25959     l3_7.g[3] = 1. - c__[10] / l2_6.x[4] - c__[11] / l2_6.x[4] * l2_6.x[5]
25960          - c__[12] * l2_6.x[3] / l2_6.x[4] - c__[13] / l2_6.x[4] * (
25961         d__1 * d__1);
25962     }
25963     if (l9_8.index1[4]) {
25964     l3_7.g[4] = 1. - c__[14] * l2_6.x[6] - c__[15] * l2_6.x[1] / l2_6.x[2]
25965          / l2_6.x[3] - c__[16] * l2_6.x[1] / l2_6.x[2];
25966     }
25967     if (l9_8.index1[5]) {
25968     l3_7.g[5] = 1. - c__[17] / l2_6.x[6] - c__[18] * l2_6.x[1] / l2_6.x[2]
25969          / l2_6.x[6] - c__[19] * l2_6.x[1] / l2_6.x[2] / l2_6.x[3] /
25970         l2_6.x[6];
25971     }
25972     if (l9_8.index1[6]) {
25973     l3_7.g[6] = 1. - c__[20] / l2_6.x[4] - c__[21] * l2_6.x[6] / l2_6.x[4]
25974         ;
25975     }
25976     if (l9_8.index1[7]) {
25977     l3_7.g[7] = 1. - c__[22] * l2_6.x[4] - c__[23] * l2_6.x[6];
25978     }
25979     if (l9_8.index1[8]) {
25980     l3_7.g[8] = 1. - c__[24] * l2_6.x[2] - c__[25] * l2_6.x[0];
25981     }
25982     if (l9_8.index1[9]) {
25983     l3_7.g[9] = 1. - c__[26] * l2_6.x[0] / l2_6.x[2] - c__[27] / l2_6.x[2]
25984         ;
25985     }
25986     if (l9_8.index1[10]) {
25987     l3_7.g[10] = 1. - c__[28] * l2_6.x[1] / l2_6.x[2] / l2_6.x[3] - c__[
25988         29] * l2_6.x[1] / l2_6.x[2];
25989     }
25990     if (l9_8.index1[11]) {
25991     l3_7.g[11] = 1. - c__[30] * l2_6.x[3] - c__[31] / l2_6.x[1] * l2_6.x[
25992         2] * l2_6.x[3];
25993     }
25994     if (l9_8.index1[12]) {
25995     l3_7.g[12] = 1. - c__[32] * l2_6.x[0] * l2_6.x[5] - c__[33] * l2_6.x[
25996         0] - c__[34] * l2_6.x[2];
25997     }
25998     if (l9_8.index1[13]) {
25999     l3_7.g[13] = 1. - c__[35] / l2_6.x[0] * l2_6.x[2] - c__[36] / l2_6.x[
26000         0] - c__[37] * l2_6.x[5];
26001     }
26002 labelL5:
26003     return 0;
26004 } /* tp366_ */
26005 
26006 
tp367_(int * mode)26007 /* Subroutine */ int tp367_(int *mode)
26008 {
26009     /* System generated locals */
26010     Real d__1, d__2, d__3, d__4;
26011 
26012     /* Local variables */
26013     static int i__;
26014 
26015     switch ((int)*mode) {
26016     case 1:  goto labelL1;
26017     case 2:  goto labelL2;
26018     case 3:  goto labelL3;
26019     case 4:  goto labelL4;
26020     case 5:  goto labelL5;
26021     }
26022 labelL1:
26023     l1_1.n = 7;
26024     l1_1.nili = 2;
26025     l1_1.ninl = 1;
26026     l1_1.neli = 1;
26027     l1_1.nenl = 1;
26028     for (i__ = 1; i__ <= 7; ++i__) {
26029     l2_6.x[i__ - 1] = .1;
26030     l11_6.lxl[i__ - 1] = true;
26031     l12_6.lxu[i__ - 1] = false;
26032 /* labelL11: */
26033     l13_6.xl[i__ - 1] = 0.;
26034     }
26035     l20_8.lex = false;
26036     l20_8.nex = 1;
26037     l20_8.fex = -37.41296;
26038     l20_8.xex[0] = 1.4688103;
26039     l20_8.xex[1] = 1.9839711;
26040     l20_8.xex[2] = .35187754;
26041     l20_8.xex[3] = 1.1953411;
26042     l20_8.xex[4] = .56940029;
26043     l20_8.xex[5] = .78474478;
26044     l20_8.xex[6] = 1.4121216;
26045     for (i__ = 1; i__ <= 7; ++i__) {
26046 /* labelL12: */
26047     l5_34.gg[i__ * 5 - 5] = -1.;
26048     }
26049     for (i__ = 1; i__ <= 4; ++i__) {
26050 /* labelL13: */
26051     l5_34.gg[i__ * 5 - 4] = -1.;
26052     }
26053     for (i__ = 5; i__ <= 7; ++i__) {
26054 /* labelL14: */
26055     l5_34.gg[i__ * 5 - 4] = 0.;
26056     }
26057     l5_34.gg[2] = -1.;
26058     l5_34.gg[7] = 0.;
26059     l5_34.gg[12] = -1.;
26060     l5_34.gg[17] = 0.;
26061     l5_34.gg[22] = -1.;
26062     l5_34.gg[3] = 0.;
26063     l5_34.gg[8] = 0.;
26064     l5_34.gg[13] = 0.;
26065     l5_34.gg[18] = 2.;
26066     l5_34.gg[23] = 1.;
26067     l5_34.gg[28] = .8;
26068     l5_34.gg[33] = 1.;
26069     l5_34.gg[4] = 0.;
26070     l5_34.gg[19] = 0.;
26071     l5_34.gg[34] = 0.;
26072     l4_6.gf[1] = -5.;
26073     l4_6.gf[3] = -6.;
26074     return 0;
26075 labelL2:
26076     l6_1.fx = l2_6.x[0] * -5. - l2_6.x[1] * 5. - l2_6.x[2] * 4. - l2_6.x[0] *
26077         l2_6.x[2] - l2_6.x[3] * 6. - l2_6.x[4] * 5. / (l2_6.x[4] + 1.) -
26078         l2_6.x[5] * 8. / (l2_6.x[5] + 1.) - (1. - std::exp(-l2_6.x[6]) * 2. +
26079         std::exp(l2_6.x[6] * -2.)) * 10.;
26080     return 0;
26081 labelL3:
26082     l4_6.gf[0] = -5. - l2_6.x[2];
26083     l4_6.gf[2] = -4. - l2_6.x[0];
26084 /* Computing 2nd power */
26085     d__1 = l2_6.x[4] + 1.;
26086     l4_6.gf[4] = -5. / (d__1 * d__1);
26087 /* Computing 2nd power */
26088     d__1 = l2_6.x[5] + 1.;
26089     l4_6.gf[5] = -8. / (d__1 * d__1);
26090     l4_6.gf[6] = (exp(-l2_6.x[6]) - std::exp(l2_6.x[6] * -2.)) * -20.;
26091     return 0;
26092 labelL4:
26093     if (l9_5.index1[0]) {
26094     l3_4.g[0] = 10. - l2_6.x[0] - l2_6.x[1] - l2_6.x[2] - l2_6.x[3] -
26095         l2_6.x[4] - l2_6.x[5] - l2_6.x[6];
26096     }
26097     if (l9_5.index1[1]) {
26098     l3_4.g[1] = 5. - l2_6.x[0] - l2_6.x[1] - l2_6.x[2] - l2_6.x[3];
26099     }
26100     if (l9_5.index1[2]) {
26101 /* Computing 2nd power */
26102     d__1 = l2_6.x[5];
26103 /* Computing 2nd power */
26104     d__2 = l2_6.x[6];
26105     l3_4.g[2] = 5. - l2_6.x[0] - l2_6.x[2] - l2_6.x[4] - d__1 * d__1 -
26106         d__2 * d__2;
26107     }
26108     if (l9_5.index1[3]) {
26109     l3_4.g[3] = l2_6.x[3] * 2. + l2_6.x[4] + l2_6.x[5] * .8 + l2_6.x[6] -
26110         5.;
26111     }
26112     if (l9_5.index1[4]) {
26113 /* Computing 2nd power */
26114     d__1 = l2_6.x[1];
26115 /* Computing 2nd power */
26116     d__2 = l2_6.x[2];
26117 /* Computing 2nd power */
26118     d__3 = l2_6.x[4];
26119 /* Computing 2nd power */
26120     d__4 = l2_6.x[5];
26121     l3_4.g[4] = d__1 * d__1 + d__2 * d__2 + d__3 * d__3 + d__4 * d__4 -
26122         5.;
26123     }
26124     return 0;
26125 labelL5:
26126     if (! l10_5.index2[2]) {
26127     goto L51;
26128     }
26129     l5_34.gg[27] = l2_6.x[5] * -2.;
26130     l5_34.gg[32] = l2_6.x[6] * -2.;
26131 L51:
26132     if (! l10_5.index2[4]) {
26133     goto L52;
26134     }
26135     l5_34.gg[9] = l2_6.x[1] * 2.;
26136     l5_34.gg[14] = l2_6.x[2] * 2.;
26137     l5_34.gg[24] = l2_6.x[4] * 2.;
26138     l5_34.gg[29] = l2_6.x[5] * 2.;
26139 L52:
26140     return 0;
26141 } /* tp367_ */
26142 
26143 
tp368_(int * mode)26144 /* Subroutine */ int tp368_(int *mode)
26145 {
26146     /* System generated locals */
26147     Real d__1, d__2;
26148 
26149     /* Local variables */
26150     static int i__;
26151     static Real s2, s3, s4;
26152 
26153     switch ((int)*mode) {
26154     case 1:  goto labelL1;
26155     case 2:  goto labelL2;
26156     case 3:  goto labelL2;
26157     case 4:  goto labelL4;
26158     case 5:  goto labelL4;
26159     }
26160 labelL1:
26161     l1_1.n = 8;
26162     l1_1.nili = 0;
26163     l1_1.ninl = 0;
26164     l1_1.neli = 0;
26165     l1_1.nenl = 0;
26166     for (i__ = 1; i__ <= 8; ++i__) {
26167     l2_7.x[i__ - 1] = (float)1. - (float)1. / (Real) i__;
26168     l11_7.lxl[i__ - 1] = true;
26169     l12_7.lxu[i__ - 1] = true;
26170     l13_7.xl[i__ - 1] = 0.;
26171 /* labelL11: */
26172     l14_7.xu[i__ - 1] = 1.;
26173     }
26174     l2_7.x[6] = (float).7;
26175     l2_7.x[7] = (float).7;
26176     l20_2.lex = false;
26177     l20_2.nex = 1;
26178     l20_2.fex = -.74997564;
26179     l20_2.xex[0] = .49834105;
26180     l20_2.xex[1] = .4997795;
26181     l20_2.xex[2] = .50201378;
26182     l20_2.xex[3] = .50378302;
26183     l20_2.xex[4] = .50263008;
26184     l20_2.xex[5] = .50232579;
26185     l20_2.xex[6] = 1.;
26186     l20_2.xex[7] = 1.;
26187     l20_2.lex = true;
26188     l20_2.nex = 1;
26189     l20_2.fex = (float)-.75;
26190     l20_2.xex[0] = (float).5;
26191     l20_2.xex[1] = (float).5;
26192     l20_2.xex[2] = (float).5;
26193     l20_2.xex[3] = (float).5;
26194     l20_2.xex[4] = (float).5;
26195     l20_2.xex[5] = (float).5;
26196     l20_2.xex[6] = 1.;
26197     l20_2.xex[7] = 1.;
26198     return 0;
26199 labelL2:
26200     s2 = 0.;
26201     s3 = 0.;
26202     s4 = 0.;
26203     for (i__ = 1; i__ <= 8; ++i__) {
26204 /* Computing 2nd power */
26205     d__1 = l2_7.x[i__ - 1];
26206     s2 += d__1 * d__1;
26207 /* Computing 3rd power */
26208     d__1 = l2_7.x[i__ - 1];
26209     s3 += d__1 * (d__1 * d__1);
26210 /* labelL10: */
26211 /* Computing 4th power */
26212     d__1 = l2_7.x[i__ - 1], d__1 *= d__1;
26213     s4 += d__1 * d__1;
26214     }
26215     if (*mode == 3) {
26216     goto labelL3;
26217     }
26218 /* Computing 2nd power */
26219     d__1 = s3;
26220     l6_1.fx = -s2 * s4 + d__1 * d__1;
26221     return 0;
26222 labelL3:
26223     for (i__ = 1; i__ <= 8; ++i__) {
26224 /* L31: */
26225 /* Computing 3rd power */
26226     d__1 = l2_7.x[i__ - 1];
26227 /* Computing 2nd power */
26228     d__2 = l2_7.x[i__ - 1];
26229     l4_7.gf[i__ - 1] = l2_7.x[i__ - 1] * -2. * s4 - d__1 * (d__1 * d__1) *
26230          4. * s2 + d__2 * d__2 * 6. * s3;
26231     }
26232 labelL4:
26233     return 0;
26234 } /* tp368_ */
26235 
26236 
tp369_(int * mode)26237 /* Subroutine */ int tp369_(int *mode)
26238 {
26239     /* Initialized data */
26240 
26241     static Real c__[16] = { 833.33252,100.,-83333.333,1250.,1.,-1250.,
26242         1.25e6,1.,-2500.,.0025,.0025,.0025,.0025,-.0025,.01,-.01 };
26243 
26244     static int i__;
26245 
26246     switch ((int)*mode) {
26247     case 1:  goto labelL1;
26248     case 2:  goto labelL2;
26249     case 3:  goto labelL3;
26250     case 4:  goto labelL4;
26251     case 5:  goto labelL5;
26252     }
26253 labelL1:
26254     l1_1.n = 8;
26255     l1_1.nili = 3;
26256     l1_1.ninl = 3;
26257     l1_1.neli = 0;
26258     l1_1.nenl = 0;
26259     l2_7.x[0] = 5e3;
26260     l2_7.x[1] = 5e3;
26261     l2_7.x[2] = 5e3;
26262     l2_7.x[3] = 200.;
26263     l2_7.x[4] = 350.;
26264     l2_7.x[5] = 150.;
26265     l2_7.x[6] = 225.;
26266     l2_7.x[7] = 425.;
26267     for (i__ = 1; i__ <= 8; ++i__) {
26268     l12_7.lxu[i__ - 1] = true;
26269 /* labelL11: */
26270     l11_7.lxl[i__ - 1] = true;
26271     }
26272     l13_7.xl[0] = 100.;
26273     l13_7.xl[1] = 1e3;
26274     l13_7.xl[2] = 1e3;
26275     for (i__ = 1; i__ <= 3; ++i__) {
26276 /* labelL12: */
26277     l14_7.xu[i__ - 1] = 1e4;
26278     }
26279     for (i__ = 4; i__ <= 8; ++i__) {
26280     l13_7.xl[i__ - 1] = 10.;
26281 /* labelL13: */
26282     l14_7.xu[i__ - 1] = 1e3;
26283     }
26284     l20_2.lex = false;
26285     l20_2.nex = 1;
26286     l20_2.fex = 7049.248;
26287     l20_2.xex[0] = 579.30657;
26288     l20_2.xex[1] = 1359.9705;
26289     l20_2.xex[2] = 5109.9709;
26290     l20_2.xex[3] = 182.01769;
26291     l20_2.xex[4] = 295.60116;
26292     l20_2.xex[5] = 217.98231;
26293     l20_2.xex[6] = 286.41653;
26294     l20_2.xex[7] = 395.60116;
26295     return 0;
26296 labelL2:
26297     l6_1.fx = l2_7.x[0] + l2_7.x[1] + l2_7.x[2];
26298 labelL3:
26299     return 0;
26300 labelL4:
26301     if (l9_6.index1[0]) {
26302     l3_5.g[0] = (float)1. - c__[9] * l2_7.x[3] - c__[10] * l2_7.x[5];
26303     }
26304     if (l9_6.index1[1]) {
26305     l3_5.g[1] = (float)1. - c__[11] * l2_7.x[4] - c__[12] * l2_7.x[6] -
26306         c__[13] * l2_7.x[3];
26307     }
26308     if (l9_6.index1[2]) {
26309     l3_5.g[2] = (float)1. - c__[14] * l2_7.x[7] - c__[15] * l2_7.x[4];
26310     }
26311     if (l9_6.index1[3]) {
26312     l3_5.g[3] = (float)1. - c__[0] / l2_7.x[0] * l2_7.x[3] / l2_7.x[5] -
26313         c__[1] / l2_7.x[5] - c__[2] / l2_7.x[0] / l2_7.x[5];
26314     }
26315     if (l9_6.index1[4]) {
26316     l3_5.g[4] = (float)1. - c__[3] / l2_7.x[1] * l2_7.x[4] / l2_7.x[6] -
26317         c__[4] * l2_7.x[3] / l2_7.x[6] - c__[5] / l2_7.x[1] * l2_7.x[
26318         3] / l2_7.x[6];
26319     }
26320     if (l9_6.index1[5]) {
26321     l3_5.g[5] = (float)1. - c__[6] / l2_7.x[2] / l2_7.x[7] - c__[7] *
26322         l2_7.x[4] / l2_7.x[7] - c__[8] / l2_7.x[2] * l2_7.x[4] /
26323         l2_7.x[7];
26324     }
26325 labelL5:
26326     return 0;
26327 } /* tp369_ */
26328 
26329 
tp370_0_(int n__,int * mode)26330 /* Subroutine */ int tp370_0_(int n__, int *mode)
26331 {
26332     /* System generated locals */
26333     int i__1, i__2;
26334     Real d__1;
26335 
26336     /* Builtin functions */
26337     Real pow_di(Real*, int *);
26338 
26339     /* Local variables */
26340     static int i__, j;
26341     static Real scale;
26342     static Real basis, sum, sum1, sum2[31];
26343 
26344     switch(n__) {
26345     case 1: goto L_tp371;
26346     }
26347 
26348     l1_1.n = 6;
26349     scale = (float)1.;
26350     l20_9.fex = .00228767005355;
26351     l20_9.xex[0] = -.015725;
26352     l20_9.xex[1] = 1.012435;
26353     l20_9.xex[2] = -.232992;
26354     l20_9.xex[3] = -1.26043;
26355     l20_9.xex[4] = -1.513729;
26356     l20_9.xex[5] = .992996;
26357     goto labelL10;
26358 
26359 L_tp371:
26360     l1_1.n = 9;
26361     scale = (float)1e5;
26362     l20_9.fex = scale * 1.3997660138e-6;
26363     l20_9.xex[0] = 1.5e-5;
26364     l20_9.xex[1] = .99979;
26365     l20_9.xex[2] = -.014764;
26366     l20_9.xex[3] = -.146342;
26367     l20_9.xex[4] = 1.000821;
26368     l20_9.xex[5] = -2.617731;
26369     l20_9.xex[6] = 4.104403;
26370     l20_9.xex[7] = -2.143612;
26371     l20_9.xex[8] = 1.052627;
26372 labelL10:
26373     switch ((int)*mode) {
26374     case 1:  goto labelL1;
26375     case 2:  goto labelL2;
26376     case 3:  goto labelL4;
26377     case 4:  goto labelL4;
26378     case 5:  goto labelL4;
26379     }
26380 labelL1:
26381     l1_1.nili = 0;
26382     l1_1.ninl = 0;
26383     l1_1.neli = 0;
26384     l1_1.nenl = 0;
26385     i__1 = l1_1.n;
26386     for (i__ = 1; i__ <= i__1; ++i__) {
26387     l2_8.x[i__ - 1] = 0.;
26388     l11_8.lxl[i__ - 1] = false;
26389 /* labelL11: */
26390     l12_8.lxu[i__ - 1] = false;
26391     }
26392     l15_1.lsum = 31;
26393     l20_9.lex = false;
26394     l20_9.nex = 1;
26395     return 0;
26396 labelL2:
26397     l16_18.f[0] = l2_8.x[0];
26398 /* Computing 2nd power */
26399     d__1 = l2_8.x[0];
26400     l16_18.f[1] = l2_8.x[1] - d__1 * d__1 - 1.;
26401     for (i__ = 2; i__ <= 30; ++i__) {
26402     basis = (Real) (i__ - 1) / 29.;
26403     sum1 = 0.;
26404     i__1 = l1_1.n;
26405     for (j = 2; j <= i__1; ++j) {
26406 /* L21: */
26407         i__2 = j - 2;
26408         sum1 += l2_8.x[j - 1] * (Real) (j - 1) * pow_di(&basis, &
26409             i__2);
26410     }
26411     sum = 0.;
26412     i__2 = l1_1.n;
26413     for (j = 1; j <= i__2; ++j) {
26414 /* L23: */
26415         i__1 = j - 1;
26416         sum += l2_8.x[j - 1] * pow_di(&basis, &i__1);
26417     }
26418     sum2[i__] = sum;
26419 /* labelL20: */
26420 /* Computing 2nd power */
26421     d__1 = sum2[i__];
26422     l16_18.f[i__] = sum1 - d__1 * d__1 - 1.;
26423     }
26424     l6_1.fx = 0.;
26425     for (i__ = 1; i__ <= 31; ++i__) {
26426 /* L22: */
26427 /* Computing 2nd power */
26428     d__1 = l16_18.f[i__ - 1];
26429     l6_1.fx += d__1 * d__1;
26430     }
26431     l6_1.fx *= scale;
26432 labelL4:
26433     return 0;
26434 } /* tp370_ */
26435 
tp370_(int * mode)26436 /* Subroutine */ int tp370_(int *mode)
26437 {
26438     return tp370_0_(0, mode);
26439     }
26440 
tp371_(int * mode)26441 /* Subroutine */ int tp371_(int *mode)
26442 {
26443     return tp370_0_(1, mode);
26444     }
26445 
26446 
tp372_(int * mode)26447 /* Subroutine */ int tp372_(int *mode)
26448 {
26449     /* System generated locals */
26450     Real d__1;
26451 
26452 
26453     /* Local variables */
26454     static int i__, j;
26455 
26456     switch ((int)*mode) {
26457     case 1:  goto labelL1;
26458     case 2:  goto labelL2;
26459     case 3:  goto labelL3;
26460     case 4:  goto labelL4;
26461     case 5:  goto labelL5;
26462     }
26463 labelL1:
26464     l1_1.n = 9;
26465     l1_1.nili = 0;
26466     l1_1.ninl = 12;
26467     l1_1.neli = 0;
26468     l1_1.nenl = 0;
26469     l2_8.x[0] = 300.;
26470     l2_8.x[1] = -100.;
26471     l2_8.x[2] = -.1997;
26472     l2_8.x[3] = -127.;
26473     l2_8.x[4] = -151.;
26474     l2_8.x[5] = 379.;
26475     l2_8.x[6] = 421.;
26476     l2_8.x[7] = 460.;
26477     l2_8.x[8] = 426.;
26478     for (i__ = 1; i__ <= 12; ++i__) {
26479     for (j = 4; j <= 9; ++j) {
26480 /* labelL12: */
26481         l5_36.gg[i__ + j * 12 - 13] = 0.;
26482     }
26483     }
26484     for (i__ = 1; i__ <= 6; ++i__) {
26485     l5_36.gg[i__ - 1] = 1.;
26486 /* L18: */
26487     l5_36.gg[i__ + (i__ + 3) * 12 - 13] = 1.;
26488     }
26489     for (i__ = 7; i__ <= 12; ++i__) {
26490     l5_36.gg[i__ - 1] = -1.;
26491 /* labelL13: */
26492     l5_36.gg[i__ + (i__ - 3) * 12 - 13] = 1.;
26493     }
26494     l4_8.gf[0] = 0.;
26495     l4_8.gf[1] = 0.;
26496     l4_8.gf[2] = 0.;
26497     for (i__ = 4; i__ <= 9; ++i__) {
26498     l11_8.lxl[i__ - 1] = true;
26499     l12_8.lxu[i__ - 1] = false;
26500 /* labelL14: */
26501     l13_8.xl[i__ - 1] = 0.;
26502     }
26503     for (i__ = 1; i__ <= 2; ++i__) {
26504     l11_8.lxl[i__ - 1] = false;
26505 /* L15: */
26506     l12_8.lxu[i__ - 1] = false;
26507     }
26508     l13_8.xl[2] = (float)-1.;
26509     l14_8.xu[2] = (float)0.;
26510     l11_8.lxl[2] = true;
26511     l12_8.lxu[2] = true;
26512     l20_9.xex[0] = 523.30555;
26513     l20_9.xex[1] = -156.94787;
26514     l20_9.xex[2] = -.19966457;
26515     l20_9.xex[3] = 29.608067;
26516     l20_9.xex[4] = 86.615521;
26517     l20_9.xex[5] = 47.326718;
26518     l20_9.xex[6] = 26.235604;
26519     l20_9.xex[7] = 22.915985;
26520     l20_9.xex[8] = 39.470742;
26521     l20_9.lex = false;
26522     l20_9.nex = 1;
26523     l20_9.fex = 13390.093;
26524     l15_1.lsum = 6;
26525     return 0;
26526 labelL2:
26527     l6_1.fx = 0.;
26528     for (i__ = 4; i__ <= 9; ++i__) {
26529     l16_8.f[i__ - 4] = l2_8.x[i__ - 1];
26530 /* L21: */
26531 /* Computing 2nd power */
26532     d__1 = l2_8.x[i__ - 1];
26533     l6_1.fx += d__1 * d__1;
26534     }
26535     return 0;
26536 labelL3:
26537     for (i__ = 4; i__ <= 9; ++i__) {
26538 /* L35: */
26539     l16_8.f[i__ - 4] = l2_8.x[i__ - 1];
26540     }
26541     for (i__ = 4; i__ <= 9; ++i__) {
26542 /* L31: */
26543     l4_8.gf[i__ - 1] = l2_8.x[i__ - 1] * 2.;
26544     }
26545     for (i__ = 1; i__ <= 6; ++i__) {
26546     for (j = 1; j <= 9; ++j) {
26547 /* L33: */
26548         l17_22.df[i__ + j * 6 - 7] = 0.;
26549     }
26550     }
26551     for (i__ = 1; i__ <= 6; ++i__) {
26552 /* L34: */
26553     l17_22.df[i__ + (i__ + 3) * 6 - 7] = 1.;
26554     }
26555     return 0;
26556 labelL4:
26557     if (l9_17.index1[0]) {
26558     l3_16.g[0] = l2_8.x[0] + l2_8.x[1] * std::exp(l2_8.x[2] * -5.) + l2_8.x[3]
26559         - 127.;
26560     }
26561     if (l9_17.index1[1]) {
26562     l3_16.g[1] = l2_8.x[0] + l2_8.x[1] * std::exp(l2_8.x[2] * -3.) + l2_8.x[4]
26563         - 151.;
26564     }
26565     if (l9_17.index1[2]) {
26566     l3_16.g[2] = l2_8.x[0] + l2_8.x[1] * std::exp(-l2_8.x[2]) + l2_8.x[5] -
26567         379.;
26568     }
26569     if (l9_17.index1[3]) {
26570     l3_16.g[3] = l2_8.x[0] + l2_8.x[1] * std::exp(l2_8.x[2]) + l2_8.x[6] -
26571         421.;
26572     }
26573     if (l9_17.index1[4]) {
26574     l3_16.g[4] = l2_8.x[0] + l2_8.x[1] * std::exp(l2_8.x[2] * 3.) + l2_8.x[7]
26575         - 460.;
26576     }
26577     if (l9_17.index1[5]) {
26578     l3_16.g[5] = l2_8.x[0] + l2_8.x[1] * std::exp(l2_8.x[2] * 5.) + l2_8.x[8]
26579         - 426.;
26580     }
26581     if (l9_17.index1[6]) {
26582     l3_16.g[6] = -l2_8.x[0] - l2_8.x[1] * std::exp(l2_8.x[2] * -5.) + l2_8.x[3]
26583          + 127.;
26584     }
26585     if (l9_17.index1[7]) {
26586     l3_16.g[7] = -l2_8.x[0] - l2_8.x[1] * std::exp(l2_8.x[2] * -3.) + l2_8.x[4]
26587          + 151.;
26588     }
26589     if (l9_17.index1[8]) {
26590     l3_16.g[8] = -l2_8.x[0] - l2_8.x[1] * std::exp(-l2_8.x[2]) + l2_8.x[5] +
26591         379.;
26592     }
26593     if (l9_17.index1[9]) {
26594     l3_16.g[9] = -l2_8.x[0] - l2_8.x[1] * std::exp(l2_8.x[2]) + l2_8.x[6] +
26595         421.;
26596     }
26597     if (l9_17.index1[10]) {
26598     l3_16.g[10] = -l2_8.x[0] - l2_8.x[1] * std::exp(l2_8.x[2] * 3.) + l2_8.x[7]
26599          + 460.;
26600     }
26601     if (l9_17.index1[11]) {
26602     l3_16.g[11] = -l2_8.x[0] - l2_8.x[1] * std::exp(l2_8.x[2] * 5.) + l2_8.x[8]
26603          + 426.;
26604     }
26605     return 0;
26606 labelL5:
26607     for (i__ = 1; i__ <= 6; ++i__) {
26608     if (! l10_16.index2[i__ + 5]) {
26609         goto L51;
26610     }
26611     l5_36.gg[i__ + 17] = -exp((Real) ((i__ << 1) - 7) * l2_8.x[2]);
26612     l5_36.gg[i__ + 29] = -l2_8.x[1] * (Real) ((i__ << 1) - 7) *
26613         l5_36.gg[i__ + 17];
26614 L51:
26615     ;
26616     }
26617     for (i__ = 1; i__ <= 6; ++i__) {
26618     if (! l10_16.index2[i__ - 1]) {
26619         goto L52;
26620     }
26621     l5_36.gg[i__ + 11] = std::exp((Real) ((i__ << 1) - 7) * l2_8.x[2]);
26622     l5_36.gg[i__ + 23] = l2_8.x[1] * (Real) ((i__ << 1) - 7) *
26623         l5_36.gg[i__ + 11];
26624 L52:
26625     ;
26626     }
26627     return 0;
26628 } /* tp372_ */
26629 
26630 
tp373_(int * mode)26631 /* Subroutine */ int tp373_(int *mode)
26632 {
26633     /* System generated locals */
26634     Real d__1;
26635 
26636     /* Local variables */
26637     static int i__, j;
26638 
26639     switch ((int)*mode) {
26640     case 1:  goto labelL1;
26641     case 2:  goto labelL2;
26642     case 3:  goto labelL3;
26643     case 4:  goto labelL4;
26644     case 5:  goto labelL5;
26645     }
26646 labelL1:
26647     l1_1.nili = 0;
26648     l1_1.ninl = 0;
26649     l1_1.neli = 0;
26650     l1_1.nenl = 6;
26651     l1_1.n = 9;
26652     for (i__ = 1; i__ <= 9; ++i__) {
26653     l11_8.lxl[i__ - 1] = false;
26654 /* labelL11: */
26655     l12_8.lxu[i__ - 1] = false;
26656     }
26657     l11_8.lxl[2] = true;
26658     l12_8.lxu[2] = true;
26659     l13_8.xl[2] = (float)-1.;
26660     l14_8.xu[2] = (float)0.;
26661     l2_8.x[0] = 300.;
26662     l2_8.x[1] = -100.;
26663     l2_8.x[2] = -.1997;
26664     l2_8.x[3] = -127.;
26665     l2_8.x[4] = -151.;
26666     l2_8.x[5] = 379.;
26667     l2_8.x[6] = 421.;
26668     l2_8.x[7] = 460.;
26669     l2_8.x[8] = 426.;
26670     l4_8.gf[0] = 0.;
26671     l4_8.gf[1] = 0.;
26672     l4_8.gf[2] = 0.;
26673     for (i__ = 1; i__ <= 6; ++i__) {
26674     for (j = 4; j <= 9; ++j) {
26675 /* L17: */
26676         l5_19.gg[i__ + j * 6 - 7] = 0.;
26677     }
26678     }
26679     for (i__ = 1; i__ <= 6; ++i__) {
26680     l5_19.gg[i__ - 1] = 1.;
26681 /* L18: */
26682     l5_19.gg[i__ + (i__ + 3) * 6 - 7] = 1.;
26683     }
26684     l20_9.lex = false;
26685     l20_9.nex = 1;
26686     l20_9.fex = 13390.093;
26687     l20_9.xex[0] = 523.30542;
26688     l20_9.xex[1] = -156.9477;
26689     l20_9.xex[2] = -.19966472;
26690     l20_9.xex[3] = 29.608061;
26691     l20_9.xex[4] = -86.615571;
26692     l20_9.xex[5] = 47.326669;
26693     l20_9.xex[6] = 26.235575;
26694     l20_9.xex[7] = 22.915982;
26695     l20_9.xex[8] = -39.470718;
26696     l15_1.lsum = 6;
26697     return 0;
26698 labelL2:
26699     l6_1.fx = 0.;
26700     for (i__ = 4; i__ <= 9; ++i__) {
26701     l16_8.f[i__ - 4] = l2_8.x[i__ - 1];
26702 /* L21: */
26703 /* Computing 2nd power */
26704     d__1 = l2_8.x[i__ - 1];
26705     l6_1.fx += d__1 * d__1;
26706     }
26707     return 0;
26708 labelL3:
26709     for (i__ = 4; i__ <= 9; ++i__) {
26710 /* L35: */
26711     l16_8.f[i__ - 4] = l2_8.x[i__ - 1];
26712     }
26713     for (i__ = 4; i__ <= 9; ++i__) {
26714 /* L31: */
26715     l4_8.gf[i__ - 1] = l2_8.x[i__ - 1] * 2.;
26716     }
26717     for (i__ = 1; i__ <= 6; ++i__) {
26718     for (j = 1; j <= 9; ++j) {
26719 /* L33: */
26720         l17_22.df[i__ + j * 6 - 7] = 0.;
26721     }
26722     }
26723     for (i__ = 1; i__ <= 6; ++i__) {
26724 /* L34: */
26725     l17_22.df[i__ + (i__ + 3) * 6 - 7] = 1.;
26726     }
26727     return 0;
26728 labelL4:
26729     if (l9_6.index1[0]) {
26730     l3_5.g[0] = l2_8.x[0] + l2_8.x[1] * std::exp(l2_8.x[2] * -5.) + l2_8.x[3]
26731         - 127.;
26732     }
26733     if (l9_6.index1[1]) {
26734     l3_5.g[1] = l2_8.x[0] + l2_8.x[1] * std::exp(l2_8.x[2] * -3.) + l2_8.x[4]
26735         - 151.;
26736     }
26737     if (l9_6.index1[2]) {
26738     l3_5.g[2] = l2_8.x[0] + l2_8.x[1] * std::exp(-l2_8.x[2]) + l2_8.x[5] -
26739         379.;
26740     }
26741     if (l9_6.index1[3]) {
26742     l3_5.g[3] = l2_8.x[0] + l2_8.x[1] * std::exp(l2_8.x[2]) + l2_8.x[6] - 421.;
26743     }
26744     if (l9_6.index1[4]) {
26745     l3_5.g[4] = l2_8.x[0] + l2_8.x[1] * std::exp(l2_8.x[2] * 3.) + l2_8.x[7] -
26746         460.;
26747     }
26748     if (l9_6.index1[5]) {
26749     l3_5.g[5] = l2_8.x[0] + l2_8.x[1] * std::exp(l2_8.x[2] * 5.) + l2_8.x[8] -
26750         426.;
26751     }
26752     return 0;
26753 labelL5:
26754     for (i__ = 1; i__ <= 6; ++i__) {
26755     if (! l10_6.index2[i__ - 1]) {
26756         goto L52;
26757     }
26758     l5_19.gg[i__ + 5] = std::exp((Real) ((i__ << 1) - 7) * l2_8.x[2]);
26759     l5_19.gg[i__ + 11] = l2_8.x[1] * (Real) ((i__ << 1) - 7) *
26760         l5_19.gg[i__ + 5];
26761 L52:
26762     ;
26763     }
26764     return 0;
26765 } /* tp373_ */
26766 
26767 
tp374_(int * mode)26768 /* Subroutine */ int tp374_(int *mode)
26769 {
26770     /* System generated locals */
26771     Real d__1;
26772 
26773     /* Local variables */
26774     Real tp374a_(Real *, Real*), tp374b_(Real *, Real *), tp374g_(Real *, Real *);
26775     static int i__, k;
26776     static Real z__, pi;
26777 
26778     switch ((int)*mode) {
26779     case 1:  goto labelL1;
26780     case 2:  goto labelL2;
26781     case 3:  goto labelL3;
26782     case 4:  goto labelL4;
26783     case 5:  goto labelL5;
26784     }
26785 labelL1:
26786     l1_1.n = 10;
26787     l1_1.nili = 0;
26788     l1_1.ninl = 35;
26789     l1_1.neli = 0;
26790     l1_1.nenl = 0;
26791     for (i__ = 1; i__ <= 10; ++i__) {
26792     l2_9.x[i__ - 1] = .1;
26793     l12_9.lxu[i__ - 1] = false;
26794 /* labelL6: */
26795     l11_9.lxl[i__ - 1] = false;
26796     }
26797     l20_14.lex = false;
26798     l20_14.nex = 2;
26799     l20_14.fex = .233264;
26800     l20_14.xex[0] = .218212;
26801     l20_14.xex[1] = .23264;
26802     l20_14.xex[2] = .278457;
26803     l20_14.xex[3] = .268125;
26804     l20_14.xex[4] = .21201;
26805     l20_14.xex[5] = .125918;
26806     l20_14.xex[6] = .034102;
26807     l20_14.xex[7] = -.026136;
26808     l20_14.xex[8] = -.142233;
26809     l20_14.xex[9] = .233264;
26810     l20_14.xex[10] = -.142233;
26811     l20_14.xex[11] = -.026136;
26812     l20_14.xex[12] = .034102;
26813     l20_14.xex[13] = .125918;
26814     l20_14.xex[14] = .21201;
26815     l20_14.xex[15] = .268125;
26816     l20_14.xex[16] = .278457;
26817     l20_14.xex[17] = .23264;
26818     l20_14.xex[18] = .218212;
26819     l20_14.xex[19] = .233264;
26820     for (i__ = 1; i__ <= 9; ++i__) {
26821 /* L46: */
26822     l4_9.gf[i__ - 1] = 0.;
26823     }
26824     l4_9.gf[9] = 1.;
26825     return 0;
26826 labelL2:
26827     l6_1.fx = l2_9.x[9];
26828 labelL3:
26829     return 0;
26830 labelL4:
26831     pi = std::atan(1.) * 4.;
26832     for (i__ = 1; i__ <= 10; ++i__) {
26833     z__ = pi / 4. * ((Real) (i__ - 1) * .1);
26834 /* L8: */
26835     if (l9_18.index1[i__ - 1]) {
26836 /* Computing 2nd power */
26837         d__1 = 1. - l2_9.x[9];
26838         l3_17.g[i__ - 1] = tp374g_(&z__, l2_9.x) - d__1 * d__1;
26839     }
26840     }
26841     for (i__ = 11; i__ <= 20; ++i__) {
26842     z__ = pi / 4. * ((Real) (i__ - 11) * .1);
26843 /* labelL9: */
26844     if (l9_18.index1[i__ - 1]) {
26845 /* Computing 2nd power */
26846         d__1 = l2_9.x[9] + 1.;
26847         l3_17.g[i__ - 1] = d__1 * d__1 - tp374g_(&z__, l2_9.x);
26848     }
26849     }
26850     for (i__ = 21; i__ <= 35; ++i__) {
26851     z__ = pi / 4. * ((Real) (i__ - 21) * .2 + 1.2);
26852 /* labelL10: */
26853     if (l9_18.index1[i__ - 1]) {
26854 /* Computing 2nd power */
26855         d__1 = l2_9.x[9];
26856         l3_17.g[i__ - 1] = d__1 * d__1 - tp374g_(&z__, l2_9.x);
26857     }
26858     }
26859     return 0;
26860 labelL5:
26861     pi = std::atan(1.) * 4.;
26862     for (i__ = 1; i__ <= 10; ++i__) {
26863     if (! l10_17.index2[i__ - 1]) {
26864         goto L50;
26865     }
26866     z__ = pi / 4. * ((Real) (i__ - 1) * .1);
26867     for (k = 1; k <= 9; ++k) {
26868         l5_37.gg[i__ + k * 35 - 36] = (tp374a_(&z__, l2_9.x) *std::cos(k *
26869             z__) + tp374b_(&z__, l2_9.x) * std::sin(k * z__)) * 2.;
26870 /* L51: */
26871         l5_37.gg[i__ + 314] = (1. - l2_9.x[9]) * 2.;
26872     }
26873 L50:
26874     ;
26875     }
26876     for (i__ = 11; i__ <= 20; ++i__) {
26877     if (! l10_17.index2[i__ - 1]) {
26878         goto L52;
26879     }
26880     z__ = pi / 4. * ((Real) (i__ - 11) * .1);
26881     for (k = 1; k <= 9; ++k) {
26882         l5_37.gg[i__ + k * 35 - 36] = (tp374a_(&z__, l2_9.x) *std::cos(k *
26883             z__) + tp374b_(&z__, l2_9.x) * std::sin(k * z__)) * -2.;
26884 /* L53: */
26885         l5_37.gg[i__ + 314] = (l2_9.x[9] + 1.) * 2.;
26886     }
26887 L52:
26888     ;
26889     }
26890     for (i__ = 21; i__ <= 35; ++i__) {
26891     if (! l10_17.index2[i__ - 1]) {
26892         goto L54;
26893     }
26894     z__ = pi / 4. * ((Real) (i__ - 21) * .2 + 1.2);
26895     for (k = 1; k <= 9; ++k) {
26896         l5_37.gg[i__ + k * 35 - 36] = (tp374a_(&z__, l2_9.x) *std::cos(k *
26897             z__) + tp374b_(&z__, l2_9.x) * std::sin(k * z__)) * -2.;
26898 /* L55: */
26899         l5_37.gg[i__ + 314] = l2_9.x[9] * 2.;
26900     }
26901 L54:
26902     ;
26903     }
26904     return 0;
26905 } /* tp374_ */
26906 
tp374g_(Real * a,Real * x)26907 Real tp374g_(Real *a, Real *x)
26908 {
26909     /* System generated locals */
26910     Real ret_val, d__1, d__2;
26911 
26912     /* Local variables */
26913     Real tp374a_(Real *, Real*), tp374b_(Real *, Real *);
26914 
26915     /* Parameter adjustments */
26916     --x;
26917 
26918     /* Function Body */
26919 /* Computing 2nd power */
26920     d__1 = tp374a_(a, &x[1]);
26921 /* Computing 2nd power */
26922     d__2 = tp374b_(a, &x[1]);
26923     ret_val = d__1 * d__1 + d__2 * d__2;
26924     return ret_val;
26925 } /* tp374g_ */
26926 
tp374a_(Real * a,Real * x)26927 Real tp374a_(Real *a, Real *x)
26928 {
26929     /* System generated locals */
26930     Real ret_val;
26931 
26932 
26933     /* Local variables */
26934     static int k;
26935 
26936     /* Parameter adjustments */
26937     --x;
26938 
26939     /* Function Body */
26940     ret_val = 0.;
26941     for (k = 1; k <= 9; ++k) {
26942 /* labelL10: */
26943     ret_val += x[k] *std::cos(k * *a);
26944     }
26945     return ret_val;
26946 } /* tp374a_ */
26947 
tp374b_(Real * a,Real * x)26948 Real tp374b_(Real *a, Real *x)
26949 {
26950     /* System generated locals */
26951     Real ret_val;
26952 
26953     /* Local variables */
26954     static int k;
26955 
26956     /* Parameter adjustments */
26957     --x;
26958 
26959     /* Function Body */
26960     ret_val = 0.;
26961     for (k = 1; k <= 9; ++k) {
26962 /* labelL10: */
26963     ret_val += x[k] * std::sin(k * *a);
26964     }
26965     return ret_val;
26966 } /* tp374b_ */
26967 
26968 
tp375_(int * mode)26969 /* Subroutine */ int tp375_(int *mode)
26970 {
26971     /* System generated locals */
26972     Real d__1;
26973 
26974     /* Local variables */
26975     Real tp375a_(int *, int *);
26976     static int i__, j;
26977 
26978     switch ((int)*mode) {
26979     case 1:  goto labelL1;
26980     case 2:  goto labelL2;
26981     case 3:  goto labelL2;
26982     case 4:  goto labelL4;
26983     case 5:  goto labelL5;
26984     }
26985 labelL1:
26986     l1_1.n = 10;
26987     l1_1.nili = 0;
26988     l1_1.ninl = 0;
26989     l1_1.neli = 8;
26990     l1_1.nenl = 1;
26991     for (i__ = 1; i__ <= 10; ++i__) {
26992     l2_9.x[i__ - 1] = 1.;
26993     l12_9.lxu[i__ - 1] = false;
26994 /* labelL6: */
26995     l11_9.lxl[i__ - 1] = false;
26996     }
26997     l20_10.lex = false;
26998     l20_10.nex = 1;
26999     l20_10.fex = -15.16;
27000     for (i__ = 1; i__ <= 8; ++i__) {
27001 /* L60: */
27002     l20_10.xex[i__ - 1] = .1064;
27003     }
27004     l20_10.xex[8] = 2.843;
27005     l20_10.xex[9] = -2.642;
27006     for (j = 1; j <= 8; ++j) {
27007     for (i__ = 1; i__ <= 10; ++i__) {
27008 /* L7: */
27009         l5_21.gg[j + i__ * 9 - 10] = 1.;
27010     }
27011     }
27012     for (i__ = 1; i__ <= 8; ++i__) {
27013 /* L8: */
27014     l5_21.gg[i__ + i__ * 9 - 10] = .5;
27015     }
27016     l15_1.lsum = 10;
27017     for (i__ = 1; i__ <= 10; ++i__) {
27018     for (j = 1; j <= 10; ++j) {
27019         l17_23.df[i__ + j * 10 - 11] = 0.;
27020 /* L17: */
27021         l17_23.df[i__ + i__ * 10 - 11] = -1.;
27022     }
27023     }
27024     return 0;
27025 labelL2:
27026     for (i__ = 1; i__ <= 10; ++i__) {
27027 /* L16: */
27028     l16_4.f[i__ - 1] = -l2_9.x[i__ - 1];
27029     }
27030     if (*mode == 3) {
27031     goto labelL3;
27032     }
27033     l6_1.fx = 0.;
27034     for (i__ = 1; i__ <= 10; ++i__) {
27035 /* labelL9: */
27036 /* Computing 2nd power */
27037     d__1 = l2_9.x[i__ - 1];
27038     l6_1.fx -= d__1 * d__1;
27039     }
27040     return 0;
27041 labelL3:
27042     for (i__ = 1; i__ <= 10; ++i__) {
27043 /* labelL10: */
27044     l4_9.gf[i__ - 1] = l2_9.x[i__ - 1] * -2.;
27045     }
27046 labelL4:
27047     for (j = 1; j <= 8; ++j) {
27048     if (! l9_16.index1[j - 1]) {
27049         goto labelL11;
27050     }
27051     l3_15.g[j - 1] = 0.;
27052     for (i__ = 1; i__ <= 10; ++i__) {
27053 /* labelL12: */
27054         l3_15.g[j - 1] += l2_9.x[i__ - 1] / tp375a_(&i__, &j);
27055     }
27056     l3_15.g[j - 1] += -1.;
27057 labelL11:
27058     ;
27059     }
27060     if (! l9_16.index1[8]) {
27061     goto L18;
27062     }
27063     l3_15.g[8] = 0.;
27064     for (i__ = 1; i__ <= 10; ++i__) {
27065 /* labelL13: */
27066     l3_15.g[8] += pow_dd(&l2_9.x[i__ - 1], &c_b305) / ((Real) (i__
27067         - 1) / 3. + 1.);
27068     }
27069     l3_15.g[8] += -4.;
27070 L18:
27071     return 0;
27072 labelL5:
27073     if (! l10_18.index2[8]) {
27074     goto L15;
27075     }
27076     for (i__ = 1; i__ <= 10; ++i__) {
27077 /* labelL14: */
27078     l5_21.gg[i__ * 9 - 1] = l2_9.x[i__ - 1] * 2. / ((Real) (i__ - 1)
27079          / 3. + 1.);
27080     }
27081 L15:
27082     return 0;
27083 } /* tp375_ */
27084 
tp375a_(int * i__,int * j)27085 Real tp375a_(int *i__, int *j)
27086 {
27087     /* System generated locals */
27088     Real ret_val;
27089 
27090     ret_val = 1.;
27091     if (*i__ == *j) {
27092     ret_val = 2.;
27093     }
27094     return ret_val;
27095 } /* tp375a_ */
27096 
27097 
tp376_(int * mode)27098 /* Subroutine */ int tp376_(int *mode)
27099 {
27100     /* System generated locals */
27101     Real d__1;
27102 
27103     /* Local variables */
27104     static int i__;
27105 
27106     switch ((int)*mode) {
27107     case 1:  goto labelL1;
27108     case 2:  goto labelL2;
27109     case 3:  goto labelL3;
27110     case 4:  goto labelL4;
27111     case 5:  goto labelL5;
27112     }
27113 labelL1:
27114     l1_1.n = 10;
27115     l1_1.nili = 0;
27116     l1_1.ninl = 14;
27117     l1_1.neli = 1;
27118     l1_1.nenl = 0;
27119     l2_9.x[0] = 10.;
27120     l2_9.x[1] = .005;
27121     l2_9.x[2] = .0081;
27122     l2_9.x[3] = 100.;
27123     l2_9.x[4] = .0017;
27124     l2_9.x[5] = .0013;
27125     l2_9.x[6] = .0027;
27126     l2_9.x[7] = .002;
27127     l2_9.x[8] = .15;
27128     l2_9.x[9] = .105;
27129     for (i__ = 1; i__ <= 10; ++i__) {
27130     l12_9.lxu[i__ - 1] = true;
27131 /* labelL6: */
27132     l11_9.lxl[i__ - 1] = true;
27133     }
27134     l13_9.xl[0] = 0.;
27135     l13_9.xl[1] = 0.;
27136     l13_9.xl[2] = 5e-5;
27137     l13_9.xl[3] = 10.;
27138     for (i__ = 5; i__ <= 10; ++i__) {
27139 /* L7: */
27140     l13_9.xl[i__ - 1] = 5e-5;
27141     }
27142     l14_9.xu[0] = 10.;
27143     l14_9.xu[1] = .1;
27144     l14_9.xu[2] = .0081;
27145     l14_9.xu[3] = 1e3;
27146     l14_9.xu[4] = .0017;
27147     l14_9.xu[5] = .0013;
27148     l14_9.xu[6] = .0027;
27149     l14_9.xu[7] = .002;
27150     l14_9.xu[8] = 1.;
27151     l14_9.xu[9] = 1.;
27152     l5_32.gg[0] = 1.;
27153     l5_32.gg[15] = 0.;
27154     for (i__ = 5; i__ <= 10; ++i__) {
27155 /* labelL9: */
27156     l5_32.gg[i__ * 15 - 15] = 0.;
27157     }
27158     l5_32.gg[1] = 1.;
27159     l5_32.gg[16] = 0.;
27160     l5_32.gg[31] = 0.;
27161     for (i__ = 6; i__ <= 8; ++i__) {
27162 /* labelL10: */
27163     l5_32.gg[i__ * 15 - 14] = 0.;
27164     }
27165     l5_32.gg[136] = 0.;
27166     l5_32.gg[2] = 1.;
27167     l5_32.gg[17] = 0.;
27168     l5_32.gg[32] = 0.;
27169     l5_32.gg[62] = 0.;
27170     for (i__ = 7; i__ <= 9; ++i__) {
27171 /* labelL11: */
27172     l5_32.gg[i__ * 15 - 13] = 0.;
27173     }
27174     l5_32.gg[3] = 1.;
27175     l5_32.gg[18] = 0.;
27176     l5_32.gg[33] = 0.;
27177     l5_32.gg[63] = 0.;
27178     l5_32.gg[78] = 0.;
27179     for (i__ = 8; i__ <= 10; ++i__) {
27180 /* labelL12: */
27181     l5_32.gg[i__ * 15 - 12] = 0.;
27182     }
27183     l5_32.gg[4] = 1.;
27184     l5_32.gg[19] = 0.;
27185     l5_32.gg[34] = 0.;
27186     for (i__ = 5; i__ <= 7; ++i__) {
27187 /* labelL13: */
27188     l5_32.gg[i__ * 15 - 11] = 0.;
27189     }
27190     l5_32.gg[124] = 0.;
27191     l5_32.gg[139] = 0.;
27192     l5_32.gg[5] = 0.;
27193     l5_32.gg[20] = 1e4;
27194     l5_32.gg[35] = 0.;
27195     for (i__ = 6; i__ <= 8; ++i__) {
27196 /* labelL14: */
27197     l5_32.gg[i__ * 15 - 10] = 0.;
27198     }
27199     l5_32.gg[140] = 0.;
27200     l5_32.gg[6] = 0.;
27201     l5_32.gg[21] = 1e4;
27202     l5_32.gg[36] = 0.;
27203     l5_32.gg[66] = 0.;
27204     for (i__ = 7; i__ <= 9; ++i__) {
27205 /* L15: */
27206     l5_32.gg[i__ * 15 - 9] = 0.;
27207     }
27208     l5_32.gg[7] = 0.;
27209     l5_32.gg[22] = 1e4;
27210     l5_32.gg[37] = 0.;
27211     l5_32.gg[67] = 0.;
27212     l5_32.gg[82] = 0.;
27213     for (i__ = 8; i__ <= 10; ++i__) {
27214 /* L16: */
27215     l5_32.gg[i__ * 15 - 8] = 0.;
27216     }
27217     l5_32.gg[8] = 0.;
27218     l5_32.gg[23] = 1e4;
27219     l5_32.gg[38] = 0.;
27220     for (i__ = 5; i__ <= 7; ++i__) {
27221 /* L17: */
27222     l5_32.gg[i__ * 15 - 7] = 0.;
27223     }
27224     l5_32.gg[128] = 0.;
27225     l5_32.gg[143] = 0.;
27226     l5_32.gg[9] = 0.;
27227     l5_32.gg[24] = 1e4;
27228     for (i__ = 5; i__ <= 10; ++i__) {
27229 /* L18: */
27230     l5_32.gg[i__ * 15 - 6] = 0.;
27231     }
27232     l5_32.gg[10] = 0.;
27233     l5_32.gg[25] = 1e4;
27234     for (i__ = 5; i__ <= 10; ++i__) {
27235 /* L19: */
27236     l5_32.gg[i__ * 15 - 5] = 0.;
27237     }
27238     l5_32.gg[11] = 0.;
27239     l5_32.gg[26] = 1e4;
27240     for (i__ = 5; i__ <= 10; ++i__) {
27241 /* labelL20: */
27242     l5_32.gg[i__ * 15 - 4] = 0.;
27243     }
27244     l5_32.gg[12] = 0.;
27245     l5_32.gg[27] = 1e4;
27246     for (i__ = 5; i__ <= 10; ++i__) {
27247 /* L21: */
27248     l5_32.gg[i__ * 15 - 3] = 0.;
27249     }
27250     l5_32.gg[13] = 0.;
27251     l5_32.gg[28] = 0.;
27252     l5_32.gg[103] = 0.;
27253     l5_32.gg[133] = 0.;
27254     l5_32.gg[148] = 0.;
27255     for (i__ = 1; i__ <= 8; ++i__) {
27256 /* L8: */
27257     l5_32.gg[i__ * 15 - 1] = 0.;
27258     }
27259     l5_32.gg[134] = 1.;
27260     l5_32.gg[149] = 1.;
27261     l20_10.lex = false;
27262     l20_10.nex = 1;
27263     l20_10.fex = -4430.0879;
27264     l20_10.xex[0] = (float).14727222;
27265     l20_10.xex[1] = (float).1;
27266     l20_10.xex[2] = .0081;
27267     l20_10.xex[3] = 628.71731;
27268     l20_10.xex[4] = .0017;
27269     l20_10.xex[5] = .0011816143;
27270     l20_10.xex[6] = .0027;
27271     l20_10.xex[7] = .00135;
27272     l20_10.xex[8] = (float).15740741;
27273     l20_10.xex[9] = .097592593;
27274     for (i__ = 3; i__ <= 10; ++i__) {
27275 /* L45: */
27276     l4_9.gf[i__ - 1] = 0.;
27277     }
27278     return 0;
27279 labelL2:
27280     l6_1.fx = (l2_9.x[0] * .15 + l2_9.x[1] * 14. - .06) * 2e4 / (l2_9.x[0] +
27281         .002 + l2_9.x[1] * 60.);
27282     l6_1.fx = -l6_1.fx;
27283     return 0;
27284 labelL3:
27285     d__1 = l2_9.x[0] + .002 + l2_9.x[1] * 60.;
27286     l4_9.gf[0] = ((l2_9.x[0] + .002 + l2_9.x[1] * 60.) * .15 - (l2_9.x[0] *
27287         .15 + l2_9.x[1] * 14. - .06)) * 2e4 / pow_dd(&d__1, &c_b305);
27288     d__1 = l2_9.x[0] + .002 + l2_9.x[1] * 60.;
27289     l4_9.gf[1] = ((l2_9.x[0] + .002 + l2_9.x[1] * 60.) * 14. - (l2_9.x[0] *
27290         .15 + l2_9.x[1] * 14. - .06) * 60.) * 2e4 / pow_dd(&d__1, &c_b305)
27291         ;
27292     l4_9.gf[0] = -l4_9.gf[0];
27293     l4_9.gf[1] = -l4_9.gf[1];
27294     return 0;
27295 labelL4:
27296     if (l9_14.index1[0]) {
27297     l3_13.g[0] = l2_9.x[0] - .75 / l2_9.x[2] / l2_9.x[3];
27298     }
27299     if (l9_14.index1[1]) {
27300     l3_13.g[1] = l2_9.x[0] - l2_9.x[8] / l2_9.x[4] / l2_9.x[3];
27301     }
27302     if (l9_14.index1[2]) {
27303     l3_13.g[2] = l2_9.x[0] - l2_9.x[9] / l2_9.x[5] / l2_9.x[3] - 10. /
27304         l2_9.x[3];
27305     }
27306     if (l9_14.index1[3]) {
27307     l3_13.g[3] = l2_9.x[0] - .19 / l2_9.x[6] / l2_9.x[3] - 10. / l2_9.x[3]
27308         ;
27309     }
27310     if (l9_14.index1[4]) {
27311     l3_13.g[4] = l2_9.x[0] - .125 / l2_9.x[7] / l2_9.x[3];
27312     }
27313     if (l9_14.index1[5]) {
27314     l3_13.g[5] = l2_9.x[1] * 1e4 - l2_9.x[8] * .00131 * pow_dd(&l2_9.x[4],
27315          &c_b2746) * pow_dd(&l2_9.x[3], &c_b940);
27316     }
27317     if (l9_14.index1[6]) {
27318     l3_13.g[6] = l2_9.x[1] * 1e4 - l2_9.x[9] * .001038 * pow_dd(&l2_9.x[5]
27319         , &c_b2748) * pow_dd(&l2_9.x[3], &c_b1523);
27320     }
27321     if (l9_14.index1[7]) {
27322     l3_13.g[7] = l2_9.x[1] * 1e4 - pow_dd(&l2_9.x[6], &c_b2746) * 2.23e-4
27323         * pow_dd(&l2_9.x[3], &c_b940);
27324     }
27325     if (l9_14.index1[8]) {
27326     l3_13.g[8] = l2_9.x[1] * 1e4 - pow_dd(&l2_9.x[7], &c_b2752) * 7.6e-5 *
27327          pow_dd(&l2_9.x[3], &c_b2753);
27328     }
27329     if (l9_14.index1[9]) {
27330 /* Computing 2nd power */
27331     d__1 = l2_9.x[3];
27332     l3_13.g[9] = l2_9.x[1] * 1e4 - pow_dd(&l2_9.x[2], &c_b2754) * 6.98e-4
27333         * (d__1 * d__1);
27334     }
27335     if (l9_14.index1[10]) {
27336     l3_13.g[10] = l2_9.x[1] * 1e4 - pow_dd(&l2_9.x[2], &c_b2748) * 5e-5 *
27337         pow_dd(&l2_9.x[3], &c_b1523);
27338     }
27339     if (l9_14.index1[11]) {
27340     l3_13.g[11] = l2_9.x[1] * 1e4 - pow_dd(&l2_9.x[2], &c_b2757) *
27341         6.54e-6 * pow_dd(&l2_9.x[3], &c_b2758);
27342     }
27343     if (l9_14.index1[12]) {
27344     l3_13.g[12] = l2_9.x[1] * 1e4 - pow_dd(&l2_9.x[2], &c_b2746) *
27345         2.57e-4 * pow_dd(&l2_9.x[3], &c_b940);
27346     }
27347     if (l9_14.index1[13]) {
27348     l3_13.g[13] = 30. - l2_9.x[4] * 2.003 * l2_9.x[3] - l2_9.x[5] * 1.885
27349         * l2_9.x[3] - l2_9.x[7] * .184 * l2_9.x[3] - pow_dd(&l2_9.x[2]
27350         , &c_b2761) * 2. * l2_9.x[3];
27351     }
27352     if (l9_14.index1[14]) {
27353     l3_13.g[14] = l2_9.x[8] + l2_9.x[9] - .255;
27354     }
27355     return 0;
27356 labelL5:
27357     if (! l10_14.index2[0]) {
27358     goto L50;
27359     }
27360     l5_32.gg[30] = .75 / pow_dd(&l2_9.x[2], &c_b305) / l2_9.x[3];
27361     l5_32.gg[45] = .75 / l2_9.x[2] / pow_dd(&l2_9.x[3], &c_b305);
27362 L50:
27363     if (! l10_14.index2[1]) {
27364     goto L51;
27365     }
27366     l5_32.gg[46] = l2_9.x[8] / l2_9.x[4] / pow_dd(&l2_9.x[3], &c_b305);
27367     l5_32.gg[61] = l2_9.x[8] / pow_dd(&l2_9.x[4], &c_b305) / l2_9.x[3];
27368     l5_32.gg[121] = -1. / l2_9.x[4] / l2_9.x[3];
27369 L51:
27370     if (! l10_14.index2[2]) {
27371     goto L52;
27372     }
27373     l5_32.gg[47] = l2_9.x[9] / l2_9.x[5] / pow_dd(&l2_9.x[3], &c_b305) + 10. /
27374          pow_dd(&l2_9.x[3], &c_b305);
27375     l5_32.gg[77] = l2_9.x[9] / pow_dd(&l2_9.x[5], &c_b305) / l2_9.x[3];
27376     l5_32.gg[137] = -1. / l2_9.x[5] / l2_9.x[3];
27377 L52:
27378     if (! l10_14.index2[3]) {
27379     goto L53;
27380     }
27381     l5_32.gg[48] = .19 / l2_9.x[6] / pow_dd(&l2_9.x[3], &c_b305) + 10. /
27382         pow_dd(&l2_9.x[3], &c_b305);
27383     l5_32.gg[93] = .19 / pow_dd(&l2_9.x[6], &c_b305) / l2_9.x[3];
27384 L53:
27385     if (! l10_14.index2[4]) {
27386     goto L54;
27387     }
27388     l5_32.gg[49] = .125 / l2_9.x[7] / pow_dd(&l2_9.x[3], &c_b305);
27389     l5_32.gg[109] = .125 / pow_dd(&l2_9.x[7], &c_b305) / l2_9.x[3];
27390 L54:
27391     if (! l10_14.index2[5]) {
27392     goto L55;
27393     }
27394     l5_32.gg[50] = l2_9.x[8] * -.0019649999999999997 * pow_dd(&l2_9.x[4], &
27395         c_b2746) * pow_dd(&l2_9.x[3], &c_b590);
27396     l5_32.gg[65] = l2_9.x[8] * -8.7246000000000003e-4 / pow_dd(&l2_9.x[4], &
27397         c_b2782) * pow_dd(&l2_9.x[3], &c_b940);
27398     l5_32.gg[125] = pow_dd(&l2_9.x[4], &c_b2746) * -.00131 * pow_dd(&l2_9.x[3]
27399         , &c_b940);
27400 L55:
27401     if (! l10_14.index2[6]) {
27402     goto L56;
27403     }
27404     l5_32.gg[51] = l2_9.x[9] * -.0031140000000000004 * pow_dd(&l2_9.x[5], &
27405         c_b2748) * pow_dd(&l2_9.x[3], &c_b305);
27406     l5_32.gg[81] = l2_9.x[9] * -.0016608000000000003 * pow_dd(&l2_9.x[5], &
27407         c_b2789) * pow_dd(&l2_9.x[3], &c_b1523);
27408     l5_32.gg[141] = pow_dd(&l2_9.x[5], &c_b2748) * -.001038 * pow_dd(&l2_9.x[
27409         3], &c_b1523);
27410 L56:
27411     if (! l10_14.index2[7]) {
27412     goto L57;
27413     }
27414     l5_32.gg[52] = pow_dd(&l2_9.x[6], &c_b2746) * -3.345e-4 * pow_dd(&l2_9.x[
27415         3], &c_b590);
27416     l5_32.gg[97] = -1.4851800000000002e-4 / pow_dd(&l2_9.x[6], &c_b2782) *
27417         pow_dd(&l2_9.x[3], &c_b940);
27418 L57:
27419     if (! l10_14.index2[8]) {
27420     goto L58;
27421     }
27422     l5_32.gg[53] = pow_dd(&l2_9.x[7], &c_b2752) * -4.3016000000000002e-4 *
27423         pow_dd(&l2_9.x[3], &c_b2800);
27424     l5_32.gg[113] = pow_dd(&l2_9.x[7], &c_b2801) * -2.698e-4 * pow_dd(&l2_9.x[
27425         3], &c_b2753);
27426 L58:
27427     if (! l10_14.index2[9]) {
27428     goto L59;
27429     }
27430     l5_32.gg[39] = pow_dd(&l2_9.x[2], &c_b1157) * -8.3760000000000008e-4 *
27431         pow_dd(&l2_9.x[3], &c_b305);
27432     l5_32.gg[54] = pow_dd(&l2_9.x[2], &c_b2754) * -.0013960000000000001 *
27433         l2_9.x[3];
27434 L59:
27435     if (! l10_14.index2[10]) {
27436     goto L60;
27437     }
27438     l5_32.gg[40] = pow_dd(&l2_9.x[2], &c_b2789) * -8.0000000000000007e-5 *
27439         pow_dd(&l2_9.x[3], &c_b1523);
27440     l5_32.gg[55] = pow_dd(&l2_9.x[2], &c_b2748) * -1.5000000000000001e-4 *
27441         pow_dd(&l2_9.x[3], &c_b305);
27442 L60:
27443     if (! l10_14.index2[11]) {
27444     goto L61;
27445     }
27446     l5_32.gg[41] = pow_dd(&l2_9.x[2], &c_b2813) * -1.5826799999999999e-5 *
27447         pow_dd(&l2_9.x[3], &c_b2758);
27448     l5_32.gg[56] = pow_dd(&l2_9.x[2], &c_b2757) * -2.7271799999999999e-5 *
27449         pow_dd(&l2_9.x[3], &c_b2816);
27450 L61:
27451     if (! l10_14.index2[12]) {
27452     goto L62;
27453     }
27454     l5_32.gg[42] = -1.7116200000000001e-4 / pow_dd(&l2_9.x[2], &c_b2782) *
27455         pow_dd(&l2_9.x[3], &c_b940);
27456     l5_32.gg[57] = pow_dd(&l2_9.x[2], &c_b2746) * -3.8549999999999999e-4 *
27457         pow_dd(&l2_9.x[3], &c_b590);
27458 L62:
27459     if (! l10_14.index2[13]) {
27460     goto L63;
27461     }
27462     l5_32.gg[43] = -1.6060000000000001 / pow_dd(&l2_9.x[2], &c_b2823) *
27463         l2_9.x[3];
27464     l5_32.gg[58] = l2_9.x[4] * -2.003 - l2_9.x[5] * 1.885 - l2_9.x[7] * .184
27465         - pow_dd(&l2_9.x[2], &c_b2761) * 2.;
27466     l5_32.gg[73] = l2_9.x[3] * -2.003;
27467     l5_32.gg[88] = l2_9.x[3] * -1.885;
27468     l5_32.gg[118] = l2_9.x[3] * -.184;
27469 L63:
27470     return 0;
27471 } /* tp376_ */
27472 
27473 
tp377_(int * mode)27474 /* Subroutine */ int tp377_(int *mode)
27475 {
27476     /* Initialized data */
27477 
27478     static Real a[10] = { -6.089,-17.164,-34.054,-5.914,-24.721,-14.986,
27479         -24.1,-10.708,-26.662,-22.179 };
27480 
27481     /* Local variables */
27482     static int i__;
27483     static Real sum;
27484 
27485     switch ((int)*mode) {
27486     case 1:  goto labelL1;
27487     case 2:  goto labelL2;
27488     case 3:  goto labelL3;
27489     case 4:  goto labelL4;
27490     case 5:  goto labelL5;
27491     }
27492 labelL1:
27493     l1_1.n = 10;
27494     l1_1.nili = 0;
27495     l1_1.ninl = 0;
27496     l1_1.neli = 3;
27497     l1_1.nenl = 0;
27498     for (i__ = 1; i__ <= 10; ++i__) {
27499     l2_9.x[i__ - 1] = .1;
27500     l12_9.lxu[i__ - 1] = true;
27501     l11_9.lxl[i__ - 1] = true;
27502     l13_9.xl[i__ - 1] = 1e-5;
27503 /* labelL6: */
27504     l14_9.xu[i__ - 1] = 10.;
27505     }
27506     l5_14.gg[0] = 1.;
27507     l5_14.gg[3] = -2.;
27508     l5_14.gg[6] = 2.;
27509     l5_14.gg[9] = 0.;
27510     l5_14.gg[12] = 0.;
27511     l5_14.gg[15] = 1.;
27512     for (i__ = 7; i__ <= 9; ++i__) {
27513 /* L7: */
27514     l5_14.gg[i__ * 3 - 3] = 0.;
27515     }
27516     l5_14.gg[27] = 1.;
27517     for (i__ = 1; i__ <= 3; ++i__) {
27518 /* L8: */
27519     l5_14.gg[i__ * 3 - 2] = 0.;
27520     }
27521     l5_14.gg[10] = 1.;
27522     l5_14.gg[13] = -2.;
27523     l5_14.gg[16] = 1.;
27524     l5_14.gg[19] = 1.;
27525     for (i__ = 8; i__ <= 10; ++i__) {
27526 /* labelL9: */
27527     l5_14.gg[i__ * 3 - 2] = 0.;
27528     }
27529     l5_14.gg[2] = 0.;
27530     l5_14.gg[5] = 0.;
27531     l5_14.gg[8] = 1.;
27532     for (i__ = 4; i__ <= 6; ++i__) {
27533 /* labelL10: */
27534     l5_14.gg[i__ * 3 - 1] = 0.;
27535     }
27536     l5_14.gg[20] = 1.;
27537     l5_14.gg[23] = 1.;
27538     l5_14.gg[26] = 2.;
27539     l5_14.gg[29] = 1.;
27540     l20_10.lex = false;
27541     l20_10.nex = 1;
27542     l20_10.fex = (float)-795.001;
27543     l20_10.xex[0] = (float)10.;
27544     l20_10.xex[1] = (float)10.;
27545     l20_10.xex[2] = (float)1.;
27546     l20_10.xex[3] = (float)10.;
27547     l20_10.xex[4] = (float)9.5;
27548     l20_10.xex[5] = (float)10.;
27549     l20_10.xex[6] = 1e-4;
27550     l20_10.xex[7] = 1e-4;
27551     l20_10.xex[8] = 1e-4;
27552     l20_10.xex[9] = 1e-4;
27553     return 0;
27554 labelL2:
27555     l6_1.fx = 0.;
27556     sum = 0.;
27557     for (i__ = 1; i__ <= 10; ++i__) {
27558 /* labelL11: */
27559     sum += l2_9.x[i__ - 1];
27560     }
27561     for (i__ = 1; i__ <= 10; ++i__) {
27562 /* labelL12: */
27563     l6_1.fx += l2_9.x[i__ - 1] * (a[i__ - 1] + std::log(l2_9.x[i__ - 1] / sum))
27564         ;
27565     }
27566 labelL3:
27567     return 0;
27568     sum = 0.;
27569     for (i__ = 1; i__ <= 10; ++i__) {
27570 /* L45: */
27571     sum += l2_9.x[i__ - 1];
27572     }
27573     for (i__ = 1; i__ <= 10; ++i__) {
27574 /* L46: */
27575     l4_9.gf[i__ - 1] = a[i__ - 1] + std::log(l2_9.x[i__ - 1] / sum);
27576     }
27577     return 0;
27578 labelL4:
27579     if (l9_4.index1[0]) {
27580     l3_3.g[0] = l2_9.x[0] - l2_9.x[1] * 2. + l2_9.x[2] * 2. + l2_9.x[5] +
27581         l2_9.x[9] - 2.;
27582     }
27583     if (l9_4.index1[1]) {
27584     l3_3.g[1] = l2_9.x[3] - l2_9.x[4] * 2. + l2_9.x[5] + l2_9.x[6] - 1.;
27585     }
27586     if (l9_4.index1[2]) {
27587     l3_3.g[2] = l2_9.x[2] + l2_9.x[6] + l2_9.x[7] + l2_9.x[8] * 2. +
27588         l2_9.x[9] - 1.;
27589     }
27590 labelL5:
27591     return 0;
27592 } /* tp377_ */
27593 
27594 
tp378_(int * mode)27595 /* Subroutine */ int tp378_(int *mode)
27596 {
27597     /* Initialized data */
27598 
27599     static Real a[10] = { -6.089,-17.164,-34.054,-5.914,-24.721,-14.986,
27600         -24.1,-10.708,-26.662,-22.179 };
27601 
27602     /* Local variables */
27603     static int i__, j;
27604     static Real con;
27605 
27606     switch ((int)*mode) {
27607     case 1:  goto labelL1;
27608     case 2:  goto labelL2;
27609     case 3:  goto labelL3;
27610     case 4:  goto labelL4;
27611     case 5:  goto labelL5;
27612     }
27613 labelL1:
27614     l1_1.n = 10;
27615     l1_1.nili = 0;
27616     l1_1.ninl = 0;
27617     l1_1.neli = 0;
27618     l1_1.nenl = 3;
27619     for (i__ = 1; i__ <= 10; ++i__) {
27620     l2_9.x[i__ - 1] = -2.3;
27621     l14_9.xu[i__ - 1] = (float)-.1;
27622     l12_9.lxu[i__ - 1] = true;
27623     l13_9.xl[i__ - 1] = (float)-16.;
27624 /* labelL6: */
27625     l11_9.lxl[i__ - 1] = true;
27626     }
27627     l20_10.lex = false;
27628     l20_10.nex = 1;
27629     l20_10.fex = -47.76;
27630     l20_10.xex[0] = -3.2024;
27631     l20_10.xex[1] = -1.9123;
27632     l20_10.xex[2] = -.2444;
27633     l20_10.xex[3] = -15.67;
27634     l20_10.xex[4] = -.7217;
27635     l20_10.xex[5] = -7.2736;
27636     l20_10.xex[6] = -3.5965;
27637     l20_10.xex[7] = -4.0206;
27638     l20_10.xex[8] = -3.2885;
27639     l20_10.xex[9] = -2.3344;
27640     l5_14.gg[9] = 0.;
27641     l5_14.gg[12] = 0.;
27642     l5_14.gg[18] = 0.;
27643     l5_14.gg[21] = 0.;
27644     l5_14.gg[24] = 0.;
27645     l5_14.gg[1] = 0.;
27646     l5_14.gg[4] = 0.;
27647     l5_14.gg[7] = 0.;
27648     l5_14.gg[22] = 0.;
27649     l5_14.gg[25] = 0.;
27650     l5_14.gg[28] = 0.;
27651     l5_14.gg[2] = 0.;
27652     l5_14.gg[5] = 0.;
27653     l5_14.gg[11] = 0.;
27654     l5_14.gg[14] = 0.;
27655     l5_14.gg[17] = 0.;
27656     return 0;
27657 labelL2:
27658     l6_1.fx = 0.;
27659     con = 0.;
27660     for (j = 1; j <= 10; ++j) {
27661 /* L7: */
27662     con += std::exp(l2_9.x[j - 1]);
27663     }
27664     con = std::log(con);
27665     for (i__ = 1; i__ <= 10; ++i__) {
27666 /* L8: */
27667     l6_1.fx += std::exp(l2_9.x[i__ - 1]) * (a[i__ - 1] + l2_9.x[i__ - 1] - con)
27668         ;
27669     }
27670 labelL3:
27671     return 0;
27672     con = 0.;
27673     for (j = 1; j <= 10; ++j) {
27674 /* L45: */
27675     con += std::exp(l2_9.x[j - 1]);
27676     }
27677     con = std::log(con);
27678     for (i__ = 1; i__ <= 10; ++i__) {
27679     l4_9.gf[i__ - 1] = std::exp(l2_9.x[i__ - 1]) * (a[i__ - 1] + l2_9.x[i__ -
27680         1] - con);
27681 /* L46: */
27682     }
27683     return 0;
27684 labelL4:
27685     if (l9_4.index1[0]) {
27686     l3_3.g[0] = std::exp(l2_9.x[0]) + std::exp(l2_9.x[1]) * 2. + std::exp(l2_9.x[2]) *
27687         2. + std::exp(l2_9.x[5]) + std::exp(l2_9.x[9]) - 2.;
27688     }
27689     if (l9_4.index1[1]) {
27690     l3_3.g[1] = std::exp(l2_9.x[3]) + std::exp(l2_9.x[4]) * 2. + std::exp(l2_9.x[5]) +
27691         exp(l2_9.x[6]) - 1.;
27692     }
27693     if (l9_4.index1[2]) {
27694     l3_3.g[2] = std::exp(l2_9.x[2]) + std::exp(l2_9.x[6]) + std::exp(l2_9.x[7]) + std::exp(
27695         l2_9.x[8]) * 2. + std::exp(l2_9.x[9]) - 1.;
27696     }
27697     return 0;
27698 labelL5:
27699     if (! l10_4.index2[0]) {
27700     goto L47;
27701     }
27702     l5_14.gg[0] = std::exp(l2_9.x[0]);
27703     l5_14.gg[3] = std::exp(l2_9.x[1]) * 2.;
27704     l5_14.gg[6] = std::exp(l2_9.x[2]) * 2.;
27705     l5_14.gg[15] = std::exp(l2_9.x[5]);
27706     l5_14.gg[27] = std::exp(l2_9.x[9]);
27707 L47:
27708     if (! l10_4.index2[1]) {
27709     goto L48;
27710     }
27711     l5_14.gg[10] = std::exp(l2_9.x[3]);
27712     l5_14.gg[13] = std::exp(l2_9.x[4]) * 2.;
27713     l5_14.gg[16] = std::exp(l2_9.x[5]);
27714     l5_14.gg[19] = std::exp(l2_9.x[6]);
27715 L48:
27716     if (! l10_4.index2[2]) {
27717     goto L49;
27718     }
27719     l5_14.gg[8] = std::exp(l2_9.x[2]);
27720     l5_14.gg[20] = std::exp(l2_9.x[6]);
27721     l5_14.gg[23] = std::exp(l2_9.x[7]);
27722     l5_14.gg[26] = std::exp(l2_9.x[8]) * 2.;
27723     l5_14.gg[29] = std::exp(l2_9.x[9]);
27724 L49:
27725     return 0;
27726 } /* tp378_ */
27727 
tp379_(int * mode)27728 /* Subroutine */ int tp379_(int *mode)
27729 {
27730     /* Initialized data */
27731 
27732     static Real y[65] = { 1.366,1.191,1.112,1.013,.991,.885,.831,.847,
27733         .786,.725,.746,.679,.608,.655,.616,.606,.602,.626,.651,.724,.649,
27734         .649,.694,.644,.624,.661,.612,.558,.533,.495,.5,.423,.395,.375,
27735         .372,.391,.396,.405,.428,.429,.523,.562,.607,.653,.672,.708,.633,
27736         .668,.645,.632,.591,.559,.597,.625,.739,.71,.729,.72,.636,.581,
27737         .428,.292,.162,.098,.054 };
27738 
27739     /* System generated locals */
27740     Real d__1, d__2, d__3;
27741 
27742     /* Local variables */
27743     static int i__, j;
27744     static Real t;
27745 
27746     switch ((int)*mode) {
27747     case 1:  goto labelL1;
27748     case 2:  goto labelL2;
27749     case 3:  goto labelL2;
27750     case 4:  goto labelL4;
27751     case 5:  goto labelL4;
27752     }
27753 labelL1:
27754     l1_1.n = 11;
27755     l1_1.nili = 0;
27756     l1_1.ninl = 0;
27757     l1_1.neli = 0;
27758     l1_1.nenl = 0;
27759     l15_1.lsum = 65;
27760     l2_17.x[0] = 1.3;
27761     l2_17.x[1] = .65;
27762     l2_17.x[2] = .65;
27763     l2_17.x[3] = .7;
27764     l2_17.x[4] = .6;
27765     l2_17.x[5] = 3.;
27766     l2_17.x[6] = 5.;
27767     l2_17.x[7] = 7.;
27768     l2_17.x[8] = 2.;
27769     l2_17.x[9] = 4.5;
27770     l2_17.x[10] = 5.5;
27771     for (i__ = 1; i__ <= 11; ++i__) {
27772     l12_17.lxu[i__ - 1] = false;
27773     l13_21.xl[i__ - 1] = (float)0.;
27774 /* labelL6: */
27775     l11_17.lxl[i__ - 1] = true;
27776     }
27777     l20_18.lex = false;
27778     l20_18.nex = 1;
27779     l20_18.fex = .0401377;
27780     l20_18.xex[0] = 1.30997;
27781     l20_18.xex[1] = .431554;
27782     l20_18.xex[2] = .63366;
27783     l20_18.xex[3] = .59943;
27784     l20_18.xex[4] = .754183;
27785     l20_18.xex[5] = .904286;
27786     l20_18.xex[6] = 1.36581;
27787     l20_18.xex[7] = 4.82369;
27788     l20_18.xex[8] = 2.39868;
27789     l20_18.xex[9] = 4.56887;
27790     l20_18.xex[10] = 5.67534;
27791     return 0;
27792 labelL2:
27793     for (i__ = 1; i__ <= 65; ++i__) {
27794     t = (Real) (i__ - 1) * .1;
27795 /* L7: */
27796 /* Computing 2nd power */
27797     d__1 = t - l2_17.x[8];
27798 /* Computing 2nd power */
27799     d__2 = t - l2_17.x[9];
27800 /* Computing 2nd power */
27801     d__3 = t - l2_17.x[10];
27802     l16_19.f[i__ - 1] = y[i__ - 1] - (l2_17.x[0] * std::exp(-l2_17.x[4] * t) +
27803         l2_17.x[1] * std::exp(-l2_17.x[5] * (d__1 * d__1)) + l2_17.x[2] *
27804         exp(-l2_17.x[6] * (d__2 * d__2)) + l2_17.x[3] * std::exp(-l2_17.x[
27805         7] * (d__3 * d__3)));
27806     }
27807     if (*mode == 3) {
27808     goto labelL3;
27809     }
27810     l6_1.fx = 0.;
27811     for (i__ = 1; i__ <= 65; ++i__) {
27812 /* L70: */
27813 /* Computing 2nd power */
27814     d__1 = l16_19.f[i__ - 1];
27815     l6_1.fx += d__1 * d__1;
27816     }
27817     return 0;
27818 labelL3:
27819     for (i__ = 1; i__ <= 65; ++i__) {
27820     t = (Real) (i__ - 1) * .1;
27821     l17_24.df[i__ - 1] = -exp(-l2_17.x[4] * t);
27822 /* Computing 2nd power */
27823     d__1 = t - l2_17.x[8];
27824     l17_24.df[i__ + 64] = -exp(-l2_17.x[5] * (d__1 * d__1));
27825 /* Computing 2nd power */
27826     d__1 = t - l2_17.x[9];
27827     l17_24.df[i__ + 129] = -exp(-l2_17.x[6] * (d__1 * d__1));
27828 /* Computing 2nd power */
27829     d__1 = t - l2_17.x[10];
27830     l17_24.df[i__ + 194] = -exp(-l2_17.x[7] * (d__1 * d__1));
27831     l17_24.df[i__ + 259] = l2_17.x[0] * t * std::exp(-l2_17.x[4] * t);
27832 /* Computing 2nd power */
27833     d__1 = t - l2_17.x[8];
27834 /* Computing 2nd power */
27835     d__2 = t - l2_17.x[8];
27836     l17_24.df[i__ + 324] = l2_17.x[1] * (d__1 * d__1) * std::exp(-l2_17.x[5] *
27837         (d__2 * d__2));
27838 /* Computing 2nd power */
27839     d__1 = t - l2_17.x[9];
27840 /* Computing 2nd power */
27841     d__2 = t - l2_17.x[9];
27842     l17_24.df[i__ + 389] = l2_17.x[2] * (d__1 * d__1) * std::exp(-l2_17.x[6] *
27843         (d__2 * d__2));
27844 /* Computing 2nd power */
27845     d__1 = t - l2_17.x[10];
27846 /* Computing 2nd power */
27847     d__2 = t - l2_17.x[10];
27848     l17_24.df[i__ + 454] = l2_17.x[3] * (d__1 * d__1) * std::exp(-l2_17.x[7] *
27849         (d__2 * d__2));
27850 /* Computing 2nd power */
27851     d__1 = t - l2_17.x[8];
27852     l17_24.df[i__ + 519] = -l2_17.x[1] * l2_17.x[5] * 2. * (t - l2_17.x[8]
27853         ) * std::exp(-l2_17.x[5] * (d__1 * d__1));
27854 /* Computing 2nd power */
27855     d__1 = t - l2_17.x[9];
27856     l17_24.df[i__ + 584] = -l2_17.x[2] * l2_17.x[6] * 2. * (t - l2_17.x[9]
27857         ) * std::exp(-l2_17.x[6] * (d__1 * d__1));
27858 /* L8: */
27859 /* Computing 2nd power */
27860     d__1 = t - l2_17.x[10];
27861     l17_24.df[i__ + 649] = -l2_17.x[3] * l2_17.x[7] * 2. * (t - l2_17.x[
27862         10]) * std::exp(-l2_17.x[7] * (d__1 * d__1));
27863     }
27864     for (i__ = 1; i__ <= 11; ++i__) {
27865 /* L19: */
27866     l4_17.gf[i__ - 1] = 0.;
27867     }
27868     for (j = 1; j <= 11; ++j) {
27869     for (i__ = 1; i__ <= 65; ++i__) {
27870 /* labelL20: */
27871         l4_17.gf[j - 1] += l16_19.f[i__ - 1] * 2. * l17_24.df[i__ + j *
27872             65 - 66];
27873     }
27874     }
27875 labelL4:
27876     return 0;
27877 } /* tp379_ */
27878 
27879 
tp380_(int * mode)27880 /* Subroutine */ int tp380_(int *mode)
27881 {
27882     /* Initialized data */
27883 
27884     static Real a[11] = { -.00133172,-.002270927,-.00248546,-4.67,
27885         -4.671973,-.00814,-.008092,-.005,-9.09e-4,-8.8e-4,-.00119 };
27886     static Real c__[30] = { .05367373,.021863746,.097733533,.0066940803,
27887         1e-6,1e-5,1e-6,1e-10,1e-8,.01,1e-4,.10898645,1.6108052e-4,1e-23,
27888         1.9304541e-6,.001,1e-6,1e-5,1e-6,1e-9,1e-9,.001,.001,.10898645,
27889         1.6108052e-5,1e-23,1.9304541e-8,1e-5,1.1184059e-4,1e-4 };
27890 
27891     /* System generated locals */
27892     Real d__1, d__2, d__3;
27893 
27894     /* Local variables */
27895     static Real temp;
27896     static int i__;
27897 
27898     switch ((int)*mode) {
27899     case 1:  goto labelL1;
27900     case 2:  goto labelL2;
27901     case 3:  goto labelL3;
27902     case 4:  goto labelL4;
27903     case 5:  goto labelL5;
27904     }
27905 labelL1:
27906     l1_1.n = 12;
27907     l1_1.nili = 0;
27908     l1_1.ninl = 3;
27909     l1_1.neli = 0;
27910     l1_1.nenl = 0;
27911     for (i__ = 1; i__ <= 12; ++i__) {
27912     l2_18.x[i__ - 1] = 4.;
27913     l12_18.lxu[i__ - 1] = true;
27914     l11_18.lxl[i__ - 1] = true;
27915     l13_22.xl[i__ - 1] = .1;
27916 /* labelL6: */
27917     l14_22.xu[i__ - 1] = 100.;
27918     }
27919     l5_10.gg[0] = -c__[0];
27920     l5_10.gg[3] = -c__[1];
27921     l5_10.gg[6] = -c__[2];
27922     for (i__ = 6; i__ <= 12; ++i__) {
27923 /* L7: */
27924     l5_10.gg[i__ * 3 - 3] = 0.;
27925     }
27926     l5_10.gg[1] = -c__[4];
27927     l5_10.gg[7] = -c__[6];
27928     l5_10.gg[22] = 0.;
27929     l5_10.gg[25] = 0.;
27930     l5_10.gg[31] = 0.;
27931     l5_10.gg[8] = -c__[18];
27932     l5_10.gg[17] = -c__[21];
27933     l5_10.gg[20] = 0.;
27934     l5_10.gg[23] = -c__[22];
27935     l5_10.gg[29] = 0.;
27936     l5_10.gg[32] = -c__[29];
27937     l5_10.gg[35] = 0.;
27938     l20_5.lex = false;
27939     l20_5.nex = 1;
27940 /*      FEX=0.316859D+1 */
27941     l20_5.fex = 316822.15000000002;
27942     l20_5.xex[0] = 2.6631947068;
27943     l20_5.xex[1] = 4.517277762;
27944     l20_5.xex[2] = 7.133802907;
27945     l20_5.xex[3] = 2.237268448;
27946     l20_5.xex[4] = 4.07840382657;
27947     l20_5.xex[5] = 1.31827569;
27948     l20_5.xex[6] = 4.125187034;
27949     l20_5.xex[7] = 2.856195978;
27950     l20_5.xex[8] = 1.6765929748;
27951     l20_5.xex[9] = 2.1789111052;
27952     l20_5.xex[10] = 5.12343515;
27953     l20_5.xex[11] = 6.659338016;
27954     return 0;
27955 labelL2:
27956     l6_1.fx = 1e5;
27957     for (i__ = 1; i__ <= 11; ++i__) {
27958     temp = l2_18.x[i__ - 1];
27959     if (l2_18.x[i__ - 1] < 1e-15) {
27960         temp = 1e-15;
27961     }
27962 /* labelL20: */
27963     l6_1.fx *= pow_dd(&temp, &a[i__ - 1]);
27964     }
27965     l6_1.fx *= 1e5;
27966     return 0;
27967 labelL3:
27968     for (i__ = 1; i__ <= 11; ++i__) {
27969     temp = l2_18.x[i__ - 1];
27970     if (l2_18.x[i__ - 1] < 1e-15) {
27971         temp = 1e-15;
27972     }
27973     l4_18.gf[i__ - 1] = l6_1.fx * (a[i__ - 1] / temp);
27974 /* labelL10: */
27975     l4_18.gf[i__ - 1] *= 1e5;
27976     }
27977     l4_18.gf[11] = 0.;
27978     return 0;
27979 labelL4:
27980     if (l9_4.index1[0]) {
27981     l3_3.g[0] = 1. - c__[0] * l2_18.x[0] - c__[1] * l2_18.x[1] - c__[2] *
27982         l2_18.x[2] - c__[3] * l2_18.x[3] * l2_18.x[4];
27983     }
27984     if (l9_4.index1[1]) {
27985 /* Computing 2nd power */
27986     d__1 = l2_18.x[11];
27987     l3_3.g[1] = 1. - c__[4] * l2_18.x[0] - c__[5] * l2_18.x[1] - c__[6] *
27988         l2_18.x[2] - c__[7] * l2_18.x[3] * l2_18.x[11] - c__[8] *
27989         l2_18.x[4] / l2_18.x[11] - c__[9] * l2_18.x[5] / l2_18.x[11]
27990         - c__[10] * l2_18.x[6] * l2_18.x[11] - c__[11] * l2_18.x[3] *
27991         l2_18.x[4] - c__[12] * l2_18.x[1] * l2_18.x[4] / l2_18.x[11]
27992         - c__[13] * l2_18.x[1] * l2_18.x[3] * l2_18.x[4] - c__[14] *
27993         l2_18.x[1] / l2_18.x[3] * l2_18.x[4] / (d__1 * d__1) - c__[15]
27994          * l2_18.x[9] / l2_18.x[11];
27995     }
27996     if (l9_4.index1[2]) {
27997     l3_3.g[2] = 1. - c__[16] * l2_18.x[0] - c__[17] * l2_18.x[1] - c__[18]
27998          * l2_18.x[2] - c__[19] * l2_18.x[3] - c__[20] * l2_18.x[4] -
27999         c__[21] * l2_18.x[5] - c__[22] * l2_18.x[7] - c__[23] *
28000         l2_18.x[3] * l2_18.x[4] - c__[24] * l2_18.x[1] * l2_18.x[4] -
28001         c__[25] * l2_18.x[1] * l2_18.x[3] * l2_18.x[4] - c__[26] *
28002         l2_18.x[1] * l2_18.x[4] / l2_18.x[3] - c__[27] * l2_18.x[8] -
28003         c__[28] * l2_18.x[0] * l2_18.x[8] - c__[29] * l2_18.x[10];
28004     }
28005     return 0;
28006 labelL5:
28007     if (! l10_4.index2[0]) {
28008     goto L50;
28009     }
28010     l5_10.gg[9] = -c__[3] * l2_18.x[4];
28011     l5_10.gg[12] = -c__[3] * l2_18.x[3];
28012 L50:
28013     if (! l10_4.index2[1]) {
28014     goto L51;
28015     }
28016 /* Computing 2nd power */
28017     d__1 = l2_18.x[11];
28018     l5_10.gg[4] = -c__[5] - c__[12] * l2_18.x[4] / l2_18.x[11] - c__[13] *
28019         l2_18.x[3] * l2_18.x[4] - c__[14] / l2_18.x[3] * l2_18.x[4] / (
28020         d__1 * d__1);
28021 /* Computing 2nd power */
28022     d__1 = l2_18.x[3];
28023 /* Computing 2nd power */
28024     d__2 = l2_18.x[11];
28025     l5_10.gg[10] = -c__[7] * l2_18.x[11] - c__[11] * l2_18.x[4] - c__[13] *
28026         l2_18.x[1] * l2_18.x[4] + c__[14] * l2_18.x[1] / (d__1 * d__1) *
28027         l2_18.x[4] / (d__2 * d__2);
28028 /* Computing 2nd power */
28029     d__1 = l2_18.x[11];
28030     l5_10.gg[13] = -c__[8] / l2_18.x[11] - c__[11] * l2_18.x[3] - c__[12] *
28031         l2_18.x[1] / l2_18.x[11] - c__[13] * l2_18.x[1] * l2_18.x[3] -
28032         c__[14] * l2_18.x[1] / l2_18.x[3] / (d__1 * d__1);
28033     l5_10.gg[16] = -c__[9] / l2_18.x[11];
28034     l5_10.gg[19] = -c__[10] * l2_18.x[11];
28035     l5_10.gg[28] = -c__[15] / l2_18.x[11];
28036 /* Computing 2nd power */
28037     d__1 = l2_18.x[11];
28038 /* Computing 2nd power */
28039     d__2 = l2_18.x[11];
28040 /* Computing 2nd power */
28041     d__3 = l2_18.x[11];
28042     l5_10.gg[34] = -c__[7] * l2_18.x[3] + c__[8] * l2_18.x[4] / (d__1 * d__1)
28043         + c__[9] * l2_18.x[5] / pow_dd(&l2_18.x[11], &c_b305) - c__[10] *
28044         l2_18.x[6] + c__[12] * l2_18.x[1] * l2_18.x[4] / (d__2 * d__2) +
28045         c__[14] * 2 * l2_18.x[1] / l2_18.x[3] * l2_18.x[4] / pow_dd(&
28046         l2_18.x[11], &c_b1523) + c__[15] * l2_18.x[9] / (d__3 * d__3);
28047 L51:
28048     if (! l10_4.index2[2]) {
28049     goto L52;
28050     }
28051     l5_10.gg[2] = -c__[16] - c__[28] * l2_18.x[8];
28052     l5_10.gg[5] = -c__[17] - c__[24] * l2_18.x[4] - c__[25] * l2_18.x[3] *
28053         l2_18.x[4] - c__[26] * l2_18.x[4] / l2_18.x[3];
28054 /* Computing 2nd power */
28055     d__1 = l2_18.x[3];
28056     l5_10.gg[11] = -c__[19] - c__[23] * l2_18.x[4] - c__[25] * l2_18.x[1] *
28057         l2_18.x[4] + c__[26] * l2_18.x[1] * l2_18.x[4] / (d__1 * d__1);
28058     l5_10.gg[14] = -c__[20] - c__[23] * l2_18.x[3] - c__[24] * l2_18.x[1] -
28059         c__[25] * l2_18.x[1] * l2_18.x[3] - c__[26] * l2_18.x[1] /
28060         l2_18.x[3];
28061     l5_10.gg[26] = -c__[27] - c__[28] * l2_18.x[0];
28062 L52:
28063     return 0;
28064 } /* tp380_ */
28065 
28066 
tp381_(int * mode)28067 /* Subroutine */ int tp381_(int *mode)
28068 {
28069     /* Initialized data */
28070 
28071     static Real r__[13] = { .8,1.1,.85,3.45,2.,2.1,3.,.8,.45,.72,1.8,3.,
28072         .6 };
28073     static Real s[13] = { 11.6,13.7,9.5,48.5,31.9,51.1,65.5,0.,0.,0.,
28074         21.8,46.9,0. };
28075     static Real u[13] = { .05,.07,0.,.33,0.,1.27,1.27,23.35,35.84,.81,
28076         1.79,7.34,0. };
28077     static Real v[13] = { .35,.37,.1,.62,0.,1.03,1.69,18.21,.01,.08,.31,
28078         1.59,22.45 };
28079 
28080     static int i__;
28081 
28082     switch ((int)*mode) {
28083     case 1:  goto labelL1;
28084     case 2:  goto labelL2;
28085     case 3:  goto labelL3;
28086     case 4:  goto labelL4;
28087     case 5:  goto labelL5;
28088     }
28089 labelL1:
28090     l1_1.n = 13;
28091     l1_1.nili = 3;
28092     l1_1.ninl = 0;
28093     l1_1.neli = 1;
28094     l1_1.nenl = 0;
28095     for (i__ = 1; i__ <= 13; ++i__) {
28096     l2_10.x[i__ - 1] = .1;
28097     l12_10.lxu[i__ - 1] = false;
28098     l11_10.lxl[i__ - 1] = true;
28099 /* labelL6: */
28100     l13_10.xl[i__ - 1] = 0.;
28101     }
28102     for (i__ = 1; i__ <= 13; ++i__) {
28103     l5_38.gg[(i__ << 2) - 4] = s[i__ - 1];
28104     l5_38.gg[(i__ << 2) - 3] = u[i__ - 1];
28105 /* L7: */
28106     l5_38.gg[(i__ << 2) - 1] = 1.;
28107     }
28108     for (i__ = 1; i__ <= 13; ++i__) {
28109 /* L8: */
28110     l5_38.gg[(i__ << 2) - 2] = v[i__ - 1];
28111     }
28112     l20_11.lex = false;
28113     l20_11.nex = 1;
28114     l20_11.fex = 1.0149;
28115     l20_11.xex[0] = .785586;
28116     l20_11.xex[1] = 0.;
28117     l20_11.xex[2] = 0.;
28118     l20_11.xex[3] = 0.;
28119     l20_11.xex[4] = 0.;
28120     l20_11.xex[5] = .173918;
28121     l20_11.xex[6] = 0.;
28122     l20_11.xex[7] = 0.;
28123     l20_11.xex[8] = .020643;
28124     l20_11.xex[9] = 0.;
28125     l20_11.xex[10] = 0.;
28126     l20_11.xex[11] = 0.;
28127     l20_11.xex[12] = .019853;
28128     for (i__ = 1; i__ <= 13; ++i__) {
28129 /* labelL11: */
28130     l4_10.gf[i__ - 1] = r__[i__ - 1];
28131     }
28132     return 0;
28133 labelL2:
28134     l6_1.fx = 0.;
28135     for (i__ = 1; i__ <= 13; ++i__) {
28136 /* labelL10: */
28137     l6_1.fx += r__[i__ - 1] * l2_10.x[i__ - 1];
28138     }
28139 labelL3:
28140     return 0;
28141 labelL4:
28142     if (! l9_7.index1[0]) {
28143     goto labelL12;
28144     }
28145     l3_6.g[0] = 0.;
28146     for (i__ = 1; i__ <= 13; ++i__) {
28147 /* labelL13: */
28148     l3_6.g[0] += s[i__ - 1] * l2_10.x[i__ - 1];
28149     }
28150     l3_6.g[0] += -18.;
28151 labelL12:
28152     if (! l9_7.index1[1]) {
28153     goto labelL14;
28154     }
28155     l3_6.g[1] = 0.;
28156     for (i__ = 1; i__ <= 13; ++i__) {
28157 /* L15: */
28158     l3_6.g[1] += u[i__ - 1] * l2_10.x[i__ - 1];
28159     }
28160     l3_6.g[1] += -1.;
28161 labelL14:
28162     if (! l9_7.index1[2]) {
28163     goto L16;
28164     }
28165     l3_6.g[2] = 0.;
28166     for (i__ = 1; i__ <= 13; ++i__) {
28167 /* L17: */
28168     l3_6.g[2] += v[i__ - 1] * l2_10.x[i__ - 1];
28169     }
28170     l3_6.g[2] += -.9;
28171 L16:
28172     if (! l9_7.index1[3]) {
28173     goto labelL5;
28174     }
28175     l3_6.g[3] = 0.;
28176     for (i__ = 1; i__ <= 13; ++i__) {
28177 /* L19: */
28178     l3_6.g[3] += l2_10.x[i__ - 1];
28179     }
28180     l3_6.g[3] += -1.;
28181 labelL5:
28182     return 0;
28183 } /* tp381_ */
28184 
tp382_(int * mode)28185 /* Subroutine */ int tp382_(int *mode)
28186 {
28187     /* Initialized data */
28188 
28189     static Real r__[13] = { .8,1.1,.85,3.45,2.,2.1,3.,.8,.45,.72,1.8,3.,
28190         .6 };
28191     static Real s[13] = { 11.6,13.7,9.5,48.5,31.9,51.1,65.5,0.,0.,0.,
28192         21.8,46.9,0. };
28193     static Real z1[13] = { .4844,.3003,.1444,.0588,4.9863,.0653,21.0222,
28194         0.,0.,0.,.297,9.2933,0. };
28195     static Real u[13] = { .05,.07,0.,.33,0.,1.27,1.27,23.35,35.84,.81,
28196         1.79,7.34,0. };
28197     static Real z2[13] = { 1e-4,0.,0.,0.,0.,.004,.1404,1.3631,.5138,
28198         .0289,.0097,.3893,0. };
28199     static Real v[13] = { .35,.37,.1,.62,0.,1.03,1.69,18.21,.01,.08,.31,
28200         1.59,22.45 };
28201     static Real z3[13] = { .001,9e-4,1e-4,5e-4,0.,.0021,.0825,.2073,0.,
28202         4e-4,5e-4,.0107,1.0206 };
28203 
28204     /* System generated locals */
28205     Real d__1;
28206 
28207     /* Local variables */
28208     static Real help;
28209     static int i__;
28210 
28211     switch ((int)*mode) {
28212     case 1:  goto labelL1;
28213     case 2:  goto labelL2;
28214     case 3:  goto labelL3;
28215     case 4:  goto labelL4;
28216     case 5:  goto labelL5;
28217     }
28218 
28219 labelL1:
28220     l1_1.n = 13;
28221     l1_1.nili = 0;
28222     l1_1.ninl = 3;
28223     l1_1.neli = 1;
28224     l1_1.nenl = 0;
28225     for (i__ = 1; i__ <= 13; ++i__) {
28226     l2_10.x[i__ - 1] = .1;
28227     l12_10.lxu[i__ - 1] = false;
28228     l11_10.lxl[i__ - 1] = true;
28229     l13_10.xl[i__ - 1] = 0.;
28230 /* labelL6: */
28231     l5_38.gg[(i__ << 2) - 1] = 1.;
28232     }
28233     l20_11.lex = false;
28234     l20_11.nex = 1;
28235     l20_11.fex = 1.03831;
28236     l20_11.xex[0] = .13205;
28237     l20_11.xex[1] = 0.;
28238     l20_11.xex[2] = 0.;
28239     l20_11.xex[3] = 0.;
28240     l20_11.xex[4] = 0.;
28241     l20_11.xex[5] = .32627;
28242     l20_11.xex[6] = 0.;
28243     l20_11.xex[7] = 0.;
28244     l20_11.xex[8] = .51668;
28245     l20_11.xex[9] = 0.;
28246     l20_11.xex[10] = 0.;
28247     l20_11.xex[11] = 0.;
28248     l20_11.xex[12] = .025004;
28249     for (i__ = 1; i__ <= 13; ++i__) {
28250 /* L8: */
28251     l4_10.gf[i__ - 1] = r__[i__ - 1];
28252     }
28253     return 0;
28254 labelL2:
28255     l6_1.fx = 0.;
28256     for (i__ = 1; i__ <= 13; ++i__) {
28257 /* L7: */
28258     l6_1.fx += r__[i__ - 1] * l2_10.x[i__ - 1];
28259     }
28260 labelL3:
28261     return 0;
28262 labelL4:
28263     if (! l9_7.index1[0]) {
28264     goto labelL9;
28265     }
28266     l3_6.g[0] = 0.;
28267     for (i__ = 1; i__ <= 13; ++i__) {
28268 /* labelL10: */
28269 /* Computing 2nd power */
28270     d__1 = l2_10.x[i__ - 1];
28271     l3_6.g[0] += z1[i__ - 1] * (d__1 * d__1);
28272     }
28273     l3_6.g[0] = -std::sqrt(l3_6.g[0]) * 1.645 - 18.;
28274     for (i__ = 1; i__ <= 13; ++i__) {
28275 /* labelL11: */
28276     l3_6.g[0] += s[i__ - 1] * l2_10.x[i__ - 1];
28277     }
28278 labelL9:
28279     if (! l9_7.index1[1]) {
28280     goto labelL12;
28281     }
28282     l3_6.g[1] = 0.;
28283     for (i__ = 1; i__ <= 13; ++i__) {
28284 /* labelL13: */
28285 /* Computing 2nd power */
28286     d__1 = l2_10.x[i__ - 1];
28287     l3_6.g[1] += z2[i__ - 1] * (d__1 * d__1);
28288     }
28289     l3_6.g[1] = -std::sqrt(l3_6.g[1]) * 1.645 - 1.;
28290     for (i__ = 1; i__ <= 13; ++i__) {
28291 /* labelL14: */
28292     l3_6.g[1] += u[i__ - 1] * l2_10.x[i__ - 1];
28293     }
28294 labelL12:
28295     if (! l9_7.index1[2]) {
28296     goto L15;
28297     }
28298     l3_6.g[2] = 0.;
28299     for (i__ = 1; i__ <= 13; ++i__) {
28300 /* L16: */
28301 /* Computing 2nd power */
28302     d__1 = l2_10.x[i__ - 1];
28303     l3_6.g[2] += z3[i__ - 1] * (d__1 * d__1);
28304     }
28305     l3_6.g[2] = -std::sqrt(l3_6.g[2]) * 1.645 - .9;
28306     for (i__ = 1; i__ <= 13; ++i__) {
28307 /* L17: */
28308     l3_6.g[2] += v[i__ - 1] * l2_10.x[i__ - 1];
28309     }
28310 L15:
28311     if (! l9_7.index1[3]) {
28312     goto L18;
28313     }
28314     l3_6.g[3] = -1.;
28315     for (i__ = 1; i__ <= 13; ++i__) {
28316 /* L19: */
28317     l3_6.g[3] += l2_10.x[i__ - 1];
28318     }
28319 L18:
28320     return 0;
28321 labelL5:
28322     if (! l10_7.index2[0]) {
28323     goto L27;
28324     }
28325     help = 0.;
28326     for (i__ = 1; i__ <= 13; ++i__) {
28327 /* L21: */
28328 /* Computing 2nd power */
28329     d__1 = l2_10.x[i__ - 1];
28330     help += z1[i__ - 1] * (d__1 * d__1);
28331     }
28332     help = -.82250000000000001 / std::sqrt(help);
28333     for (i__ = 1; i__ <= 13; ++i__) {
28334 /* L22: */
28335     l5_38.gg[(i__ << 2) - 4] = s[i__ - 1] + help * 2. * z1[i__ - 1] *
28336         l2_10.x[i__ - 1];
28337     }
28338 L27:
28339     if (! l10_7.index2[1]) {
28340     goto L28;
28341     }
28342     help = 0.;
28343     for (i__ = 1; i__ <= 13; ++i__) {
28344 /* L23: */
28345 /* Computing 2nd power */
28346     d__1 = l2_10.x[i__ - 1];
28347     help += z2[i__ - 1] * (d__1 * d__1);
28348     }
28349     help = -.82250000000000001 / std::sqrt(help);
28350     for (i__ = 1; i__ <= 13; ++i__) {
28351 /* L24: */
28352     l5_38.gg[(i__ << 2) - 3] = u[i__ - 1] + help * 2. * z2[i__ - 1] *
28353         l2_10.x[i__ - 1];
28354     }
28355 L28:
28356     if (! l10_7.index2[2]) {
28357     goto labelL20;
28358     }
28359     help = 0.;
28360     for (i__ = 1; i__ <= 13; ++i__) {
28361 /* L25: */
28362 /* Computing 2nd power */
28363     d__1 = l2_10.x[i__ - 1];
28364     help += z3[i__ - 1] * (d__1 * d__1);
28365     }
28366     help = -.82250000000000001 / std::sqrt(help);
28367     for (i__ = 1; i__ <= 13; ++i__) {
28368 /* L26: */
28369     l5_38.gg[(i__ << 2) - 2] = v[i__ - 1] + help * 2. * z3[i__ - 1] *
28370         l2_10.x[i__ - 1];
28371     }
28372 labelL20:
28373     return 0;
28374 } /* tp382_ */
28375 
28376 
tp383_(int * mode)28377 /* Subroutine */ int tp383_(int *mode)
28378 {
28379     /* Initialized data */
28380 
28381     static Real a[14] = { 12842.275,634.25,634.25,634.125,1268.,633.875,
28382         633.75,1267.,760.05,633.25,1266.25,632.875,394.46,940.838 };
28383     static Real b[14] = { 25.,26.,26.,27.,28.,29.,30.,32.,33.,34.,35.,
28384         37.,38.,36. };
28385     static Real c__[14] = { 5.47934,.83234,.94749,1.11082,2.64824,
28386         1.55868,1.73215,3.90896,2.74284,2.60541,5.96184,3.29522,1.83517,
28387         2.81372 };
28388 
28389     /* System generated locals */
28390     Real d__1;
28391 
28392     /* Local variables */
28393     static int i__;
28394 
28395     switch ((int)*mode) {
28396     case 1:  goto labelL1;
28397     case 2:  goto labelL2;
28398     case 3:  goto labelL3;
28399     case 4:  goto labelL4;
28400     case 5:  goto labelL5;
28401     }
28402 labelL1:
28403     l1_1.n = 14;
28404     l1_1.nili = 0;
28405     l1_1.ninl = 0;
28406     l1_1.neli = 1;
28407     l1_1.nenl = 0;
28408     for (i__ = 1; i__ <= 14; ++i__) {
28409     l2_19.x[i__ - 1] = .01;
28410     l12_19.lxu[i__ - 1] = true;
28411     l11_19.lxl[i__ - 1] = true;
28412     l13_23.xl[i__ - 1] = 0.;
28413     l14_23.xu[i__ - 1] = 1. / b[i__ - 1];
28414 /* labelL6: */
28415     l5_17.gg[i__ - 1] = c__[i__ - 1];
28416     }
28417     l20_19.lex = false;
28418     l20_19.nex = 1;
28419     l20_19.fex = 7.28566;
28420     l20_19.xex[0] = .04;
28421     l20_19.xex[1] = .0382;
28422     l20_19.xex[2] = .0358;
28423     l20_19.xex[3] = .033;
28424     l20_19.xex[4] = .0303;
28425     l20_19.xex[5] = .0279;
28426     l20_19.xex[6] = .0265;
28427     l20_19.xex[7] = .0249;
28428     l20_19.xex[8] = .023;
28429     l20_19.xex[9] = .0216;
28430     l20_19.xex[10] = .0202;
28431     l20_19.xex[11] = .0192;
28432     l20_19.xex[12] = .0203;
28433     l20_19.xex[13] = .0253;
28434     return 0;
28435 labelL2:
28436     l6_1.fx = 0.;
28437     for (i__ = 1; i__ <= 14; ++i__) {
28438 /* L7: */
28439     l6_1.fx += a[i__ - 1] / (l2_19.x[i__ - 1] + 1e-16);
28440     }
28441     l6_1.fx *= 1e-5;
28442     return 0;
28443 labelL3:
28444     for (i__ = 1; i__ <= 14; ++i__) {
28445 /* L8: */
28446 /* Computing 2nd power */
28447     d__1 = l2_19.x[i__ - 1];
28448     l4_19.gf[i__ - 1] = -a[i__ - 1] / (d__1 * d__1) * 1e-5;
28449     }
28450     return 0;
28451 labelL4:
28452     if (! l9_2.index1[0]) {
28453     goto labelL5;
28454     }
28455     l3_1.g[0] = 0.;
28456     for (i__ = 1; i__ <= 14; ++i__) {
28457 /* labelL10: */
28458     l3_1.g[0] += c__[i__ - 1] * l2_19.x[i__ - 1];
28459     }
28460     l3_1.g[0] += -1.;
28461 labelL5:
28462     return 0;
28463 } /* tp383_ */
28464 
28465 
tp384_(int * mode)28466 /* Subroutine */ int tp384_(int *mode)
28467 {
28468     /* Initialized data */
28469 
28470     static Real b[10] = { 385.,470.,560.,565.,645.,430.,485.,455.,390.,
28471         860. };
28472     static Real a[150]    /* was [10][15] */ = { 100.,90.,70.,50.,50.,
28473         40.,30.,20.,10.,5.,100.,100.,50.,0.,10.,0.,60.,30.,70.,10.,10.,
28474         10.,0.,0.,70.,50.,30.,40.,10.,500.,5.,35.,55.,65.,60.,95.,90.,25.,
28475         35.,5.,10.,20.,25.,35.,45.,50.,0.,40.,25.,20.,0.,5.,100.,100.,45.,
28476         35.,30.,25.,65.,5.,0.,0.,40.,35.,0.,10.,5.,15.,0.,10.,25.,35.,50.,
28477         60.,35.,60.,25.,10.,30.,35.,0.,55.,0.,0.,65.,0.,0.,80.,0.,95.,10.,
28478         25.,30.,15.,5.,45.,70.,20.,0.,70.,55.,20.,60.,0.,75.,15.,20.,30.,
28479         25.,20.,5.,0.,10.,75.,100.,20.,25.,30.,0.,10.,45.,40.,30.,35.,75.,
28480         0.,70.,5.,15.,35.,20.,25.,0.,30.,10.,5.,15.,65.,50.,10.,0.,10.,
28481         40.,65.,0.,5.,15.,20.,55.,30. };
28482     static Real d__[15] = { 486.,640.,758.,776.,477.,707.,175.,619.,
28483         627.,614.,475.,377.,524.,468.,529. };
28484 
28485     /* System generated locals */
28486     Real d__1;
28487 
28488     /* Local variables */
28489     static Real c__;
28490     static int i__, j;
28491 
28492     switch ((int)*mode) {
28493     case 1:  goto labelL1;
28494     case 2:  goto labelL2;
28495     case 3:  goto labelL3;
28496     case 4:  goto labelL4;
28497     case 5:  goto labelL5;
28498     }
28499 labelL1:
28500     l1_1.n = 15;
28501     l1_1.nili = 0;
28502     l1_1.ninl = 10;
28503     l1_1.neli = 0;
28504     l1_1.nenl = 0;
28505     for (i__ = 1; i__ <= 15; ++i__) {
28506     l2_11.x[i__ - 1] = 0.;
28507     l12_11.lxu[i__ - 1] = false;
28508 /* labelL6: */
28509     l11_11.lxl[i__ - 1] = false;
28510     }
28511     l20_12.lex = false;
28512     l20_12.nex = 1;
28513     l20_12.fex = -8310.259;
28514     l20_12.xex[0] = .86095379;
28515     l20_12.xex[1] = .91736139;
28516     l20_12.xex[2] = .91973646;
28517     l20_12.xex[3] = .89600562;
28518     l20_12.xex[4] = 1.0372946;
28519     l20_12.xex[5] = .97308908;
28520     l20_12.xex[6] = .82243629;
28521     l20_12.xex[7] = 1.1987219;
28522     l20_12.xex[8] = 1.156335;
28523     l20_12.xex[9] = 1.1443868;
28524     l20_12.xex[10] = 1.0305681;
28525     l20_12.xex[11] = .90949479;
28526     l20_12.xex[12] = 1.082045;
28527     l20_12.xex[13] = .84682383;
28528     l20_12.xex[14] = 1.172372;
28529     return 0;
28530 labelL2:
28531     l6_1.fx = 0.;
28532     for (i__ = 1; i__ <= 15; ++i__) {
28533 /* L15: */
28534     l6_1.fx -= d__[i__ - 1] * l2_11.x[i__ - 1];
28535     }
28536     return 0;
28537 labelL3:
28538     for (i__ = 1; i__ <= 15; ++i__) {
28539 /* labelL11: */
28540     l4_11.gf[i__ - 1] = -d__[i__ - 1];
28541     }
28542     return 0;
28543 labelL4:
28544     for (i__ = 1; i__ <= 10; ++i__) {
28545     if (! l9_10.index1[i__ - 1]) {
28546         goto L7;
28547     }
28548     c__ = 0.;
28549     for (j = 1; j <= 15; ++j) {
28550 /* labelL9: */
28551 /* Computing 2nd power */
28552         d__1 = l2_11.x[j - 1];
28553         c__ += a[i__ + j * 10 - 11] * (d__1 * d__1);
28554     }
28555     l3_9.g[i__ - 1] = b[i__ - 1] - c__;
28556 L7:
28557     ;
28558     }
28559     return 0;
28560 labelL5:
28561     for (i__ = 1; i__ <= 10; ++i__) {
28562     if (! l10_10.index2[i__ - 1]) {
28563         goto labelL10;
28564     }
28565     for (j = 1; j <= 15; ++j) {
28566 /* labelL13: */
28567         l5_32.gg[i__ + j * 10 - 11] = a[i__ + j * 10 - 11] * -2. *
28568             l2_11.x[j - 1];
28569     }
28570 labelL10:
28571     ;
28572     }
28573     return 0;
28574 } /* tp384_ */
28575 
tp385_(int * mode)28576 /* Subroutine */ int tp385_(int *mode)
28577 {
28578     /* Initialized data */
28579 
28580     static Real b[10] = { 385.,470.,560.,565.,645.,430.,485.,455.,890.,
28581         460. };
28582     static Real a[150]    /* was [10][15] */ = { 100.,90.,70.,50.,50.,
28583         40.,30.,20.,10.,5.,100.,100.,50.,0.,10.,0.,60.,30.,70.,10.,10.,
28584         10.,0.,0.,70.,50.,30.,40.,10.,100.,5.,35.,55.,65.,60.,95.,90.,25.,
28585         35.,5.,10.,20.,25.,35.,45.,50.,0.,40.,25.,20.,0.,5.,100.,100.,45.,
28586         35.,30.,25.,65.,5.,0.,0.,40.,35.,0.,10.,5.,15.,0.,10.,25.,35.,50.,
28587         60.,35.,60.,25.,10.,30.,35.,0.,55.,0.,0.,65.,0.,0.,80.,500.,95.,
28588         10.,25.,30.,15.,5.,45.,70.,20.,0.,70.,55.,20.,60.,0.,75.,15.,20.,
28589         30.,25.,20.,5.,0.,10.,75.,100.,20.,25.,30.,0.,10.,45.,40.,30.,35.,
28590         75.,0.,70.,5.,15.,35.,20.,25.,0.,30.,10.,5.,15.,65.,50.,10.,0.,
28591         10.,40.,65.,0.,5.,15.,20.,55.,30. };
28592     static Real d__[15] = { 486.,640.,758.,776.,477.,707.,175.,619.,
28593         627.,614.,475.,377.,524.,468.,529. };
28594 
28595     /* System generated locals */
28596     Real d__1;
28597 
28598     /* Local variables */
28599     static Real c__;
28600     static int i__, j;
28601 
28602     switch ((int)*mode) {
28603     case 1:  goto labelL1;
28604     case 2:  goto labelL2;
28605     case 3:  goto labelL3;
28606     case 4:  goto labelL4;
28607     case 5:  goto labelL5;
28608     }
28609 labelL1:
28610     l1_1.n = 15;
28611     l1_1.nili = 0;
28612     l1_1.ninl = 10;
28613     l1_1.neli = 0;
28614     l1_1.nenl = 0;
28615     for (i__ = 1; i__ <= 15; ++i__) {
28616     l2_11.x[i__ - 1] = 0.;
28617     l12_11.lxu[i__ - 1] = false;
28618 /* labelL6: */
28619     l11_11.lxl[i__ - 1] = false;
28620     }
28621     l20_12.lex = false;
28622     l20_12.nex = 1;
28623     l20_12.fex = -8315.2859;
28624     l20_12.xex[0] = .81347016;
28625     l20_12.xex[1] = .11327964;
28626     l20_12.xex[2] = 1.0861184;
28627     l20_12.xex[3] = .99832977;
28628     l20_12.xex[4] = 1.0754862;
28629     l20_12.xex[5] = 1.0688758;
28630     l20_12.xex[6] = .6278155;
28631     l20_12.xex[7] = 1.092998;
28632     l20_12.xex[8] = .91363225;
28633     l20_12.xex[9] = .86191244;
28634     l20_12.xex[10] = 1.0047312;
28635     l20_12.xex[11] = .87742949;
28636     l20_12.xex[12] = .986715;
28637     l20_12.xex[13] = 1.0411266;
28638     l20_12.xex[14] = 1.1860995;
28639     return 0;
28640 labelL2:
28641     l6_1.fx = 0.;
28642     for (i__ = 1; i__ <= 15; ++i__) {
28643 /* L15: */
28644     l6_1.fx -= d__[i__ - 1] * l2_11.x[i__ - 1];
28645     }
28646     return 0;
28647 labelL3:
28648     for (i__ = 1; i__ <= 15; ++i__) {
28649 /* labelL11: */
28650     l4_11.gf[i__ - 1] = -d__[i__ - 1];
28651     }
28652     return 0;
28653 labelL4:
28654     for (i__ = 1; i__ <= 10; ++i__) {
28655     if (! l9_10.index1[i__ - 1]) {
28656         goto L7;
28657     }
28658     c__ = 0.;
28659     for (j = 1; j <= 15; ++j) {
28660 /* labelL9: */
28661 /* Computing 2nd power */
28662         d__1 = l2_11.x[j - 1];
28663         c__ += a[i__ + j * 10 - 11] * (d__1 * d__1);
28664     }
28665     l3_9.g[i__ - 1] = b[i__ - 1] - c__;
28666 L7:
28667     ;
28668     }
28669     return 0;
28670 labelL5:
28671     for (i__ = 1; i__ <= 10; ++i__) {
28672     if (! l10_10.index2[i__ - 1]) {
28673         goto labelL10;
28674     }
28675     for (j = 1; j <= 15; ++j) {
28676 /* labelL13: */
28677         l5_32.gg[i__ + j * 10 - 11] = a[i__ + j * 10 - 11] * -2. *
28678             l2_11.x[j - 1];
28679     }
28680 labelL10:
28681     ;
28682     }
28683     return 0;
28684 } /* tp385_ */
28685 
tp386_(int * mode)28686 /* Subroutine */ int tp386_(int *mode)
28687 {
28688     /* Initialized data */
28689 
28690     static Real b[10] = { 385.,470.,560.,565.,645.,430.,485.,455.,390.,
28691         460. };
28692     static Real a[150]    /* was [10][15] */ = { 100.,90.,70.,50.,50.,
28693         40.,30.,20.,10.,5.,100.,100.,50.,0.,10.,0.,60.,30.,70.,10.,10.,
28694         10.,0.,0.,70.,50.,30.,40.,10.,100.,5.,35.,55.,65.,60.,95.,90.,25.,
28695         35.,5.,10.,20.,25.,35.,45.,50.,0.,40.,25.,20.,0.,5.,100.,100.,45.,
28696         35.,30.,25.,65.,5.,0.,0.,40.,35.,0.,10.,5.,15.,0.,10.,25.,35.,50.,
28697         60.,35.,60.,25.,10.,30.,35.,0.,55.,0.,0.,65.,0.,0.,80.,0.,95.,10.,
28698         25.,30.,15.,5.,45.,70.,20.,0.,70.,55.,20.,60.,0.,75.,15.,20.,30.,
28699         25.,20.,5.,0.,10.,75.,100.,20.,25.,30.,0.,10.,45.,40.,30.,35.,75.,
28700         0.,70.,5.,15.,35.,20.,25.,0.,30.,10.,5.,15.,65.,50.,10.,0.,10.,
28701         40.,65.,0.,5.,15.,20.,55.,30. };
28702     static Real d__[15] = { 486.,640.,758.,776.,477.,707.,175.,619.,
28703         627.,614.,475.,377.,524.,468.,529. };
28704 
28705     /* System generated locals */
28706     Real d__1;
28707 
28708     /* Local variables */
28709     static Real c__;
28710     static int i__, j;
28711 
28712     switch ((int)*mode) {
28713     case 1:  goto labelL1;
28714     case 2:  goto labelL2;
28715     case 3:  goto labelL3;
28716     case 4:  goto labelL4;
28717     case 5:  goto labelL5;
28718     }
28719 labelL1:
28720     l1_1.n = 15;
28721     l1_1.nili = 0;
28722     l1_1.ninl = 11;
28723     l1_1.neli = 0;
28724     l1_1.nenl = 0;
28725     for (i__ = 1; i__ <= 15; ++i__) {
28726     l2_11.x[i__ - 1] = 0.;
28727     l12_11.lxu[i__ - 1] = false;
28728 /* labelL6: */
28729     l11_11.lxl[i__ - 1] = false;
28730     }
28731     l20_12.lex = false;
28732     l20_12.nex = 1;
28733     l20_12.fex = -8164.3688;
28734     l20_12.xex[0] = 1.0042725;
28735     l20_12.xex[1] = 1.0871174;
28736     l20_12.xex[2] = 1.10338;
28737     l20_12.xex[3] = 1.0307192;
28738     l20_12.xex[4] = .92857958;
28739     l20_12.xex[5] = 1.2568055;
28740     l20_12.xex[6] = .76058681;
28741     l20_12.xex[7] = .85688931;
28742     l20_12.xex[8] = 1.089778;
28743     l20_12.xex[9] = .98119425;
28744     l20_12.xex[10] = .85106387;
28745     l20_12.xex[11] = .96555941;
28746     l20_12.xex[12] = .9064419;
28747     l20_12.xex[13] = .83804049;
28748     l20_12.xex[14] = .80932365;
28749     return 0;
28750 labelL2:
28751     l6_1.fx = 0.;
28752     for (i__ = 1; i__ <= 15; ++i__) {
28753 /* labelL20: */
28754     l6_1.fx -= d__[i__ - 1] * l2_11.x[i__ - 1];
28755     }
28756     return 0;
28757 labelL3:
28758     for (i__ = 1; i__ <= 15; ++i__) {
28759 /* labelL11: */
28760     l4_11.gf[i__ - 1] = -d__[i__ - 1];
28761     }
28762     return 0;
28763 labelL4:
28764     for (i__ = 1; i__ <= 10; ++i__) {
28765     if (! l9_13.index1[i__ - 1]) {
28766         goto L7;
28767     }
28768     c__ = 0.;
28769     for (j = 1; j <= 15; ++j) {
28770 /* labelL9: */
28771 /* Computing 2nd power */
28772         d__1 = l2_11.x[j - 1];
28773         c__ += a[i__ + j * 10 - 11] * (d__1 * d__1);
28774     }
28775     l3_12.g[i__ - 1] = b[i__ - 1] - c__;
28776 L7:
28777     ;
28778     }
28779     if (! l9_13.index1[10]) {
28780     goto labelL12;
28781     }
28782     c__ = 0.;
28783     for (j = 1; j <= 15; ++j) {
28784 /* labelL14: */
28785 /* Computing 2nd power */
28786     d__1 = l2_11.x[j - 1] - 2.;
28787     c__ += (Real) j * (d__1 * d__1);
28788     }
28789     l3_12.g[10] = c__ / 2. - 70.;
28790 labelL12:
28791     return 0;
28792 labelL5:
28793     for (i__ = 1; i__ <= 10; ++i__) {
28794     if (! l10_13.index2[i__ - 1]) {
28795         goto labelL10;
28796     }
28797     for (j = 1; j <= 15; ++j) {
28798 /* labelL13: */
28799         l5_39.gg[i__ + j * 11 - 12] = a[i__ + j * 10 - 11] * -2. *
28800             l2_11.x[j - 1];
28801     }
28802 labelL10:
28803     ;
28804     }
28805     if (! l10_13.index2[10]) {
28806     goto L15;
28807     }
28808     for (j = 1; j <= 15; ++j) {
28809 /* L16: */
28810     l5_39.gg[j * 11 - 1] = (Real) j * (l2_11.x[j - 1] - 2.);
28811     }
28812 L15:
28813     return 0;
28814 } /* tp386_ */
28815 
tp387_(int * mode)28816 /* Subroutine */ int tp387_(int *mode)
28817 {
28818     /* Initialized data */
28819 
28820     static Real b[10] = { 385.,470.,560.,565.,645.,430.,485.,455.,390.,
28821         460. };
28822     static Real a[150]    /* was [10][15] */ = { 100.,90.,70.,50.,50.,
28823         40.,30.,20.,10.,5.,100.,100.,50.,0.,10.,0.,60.,30.,70.,10.,10.,
28824         10.,0.,0.,70.,50.,30.,40.,10.,100.,5.,35.,55.,65.,60.,95.,90.,25.,
28825         35.,5.,10.,20.,25.,35.,45.,50.,0.,40.,25.,20.,0.,5.,100.,100.,45.,
28826         35.,30.,25.,65.,5.,0.,0.,40.,35.,0.,10.,5.,15.,0.,10.,25.,35.,50.,
28827         60.,35.,60.,25.,10.,30.,35.,0.,55.,0.,0.,65.,0.,0.,80.,0.,95.,10.,
28828         25.,30.,15.,5.,45.,70.,20.,0.,70.,55.,20.,60.,0.,75.,15.,20.,30.,
28829         25.,20.,5.,0.,10.,75.,100.,20.,25.,30.,0.,10.,45.,40.,30.,35.,75.,
28830         0.,70.,5.,15.,35.,20.,25.,0.,30.,10.,5.,15.,65.,50.,10.,0.,10.,
28831         40.,65.,0.,5.,15.,20.,55.,30. };
28832     static Real d__[15] = { 486.,640.,758.,776.,477.,707.,175.,619.,
28833         627.,614.,475.,377.,524.,468.,529. };
28834 
28835     /* System generated locals */
28836     Real d__1;
28837 
28838     /* Local variables */
28839     static Real c__;
28840     static int i__, j;
28841 
28842     switch ((int)*mode) {
28843     case 1:  goto labelL1;
28844     case 2:  goto labelL2;
28845     case 3:  goto labelL3;
28846     case 4:  goto labelL4;
28847     case 5:  goto labelL5;
28848     }
28849 labelL1:
28850     l1_1.n = 15;
28851     l1_1.nili = 0;
28852     l1_1.ninl = 11;
28853     l1_1.neli = 0;
28854     l1_1.nenl = 0;
28855     for (i__ = 1; i__ <= 15; ++i__) {
28856     l2_11.x[i__ - 1] = 0.;
28857     l12_11.lxu[i__ - 1] = false;
28858 /* labelL6: */
28859     l11_11.lxl[i__ - 1] = false;
28860     }
28861     l20_12.lex = false;
28862     l20_12.nex = 1;
28863     l20_12.fex = -8250.1417;
28864     l20_12.xex[0] = 1.0125415;
28865     l20_12.xex[1] = 1.0158505;
28866     l20_12.xex[2] = 1.0309039;
28867     l20_12.xex[3] = .99697018;
28868     l20_12.xex[4] = .98528372;
28869     l20_12.xex[5] = 1.0368532;
28870     l20_12.xex[6] = .99349349;
28871     l20_12.xex[7] = .9720116;
28872     l20_12.xex[8] = .99994095;
28873     l20_12.xex[9] = .99547294;
28874     l20_12.xex[10] = .9695385;
28875     l20_12.xex[11] = 1.0080569;
28876     l20_12.xex[12] = .98236999;
28877     l20_12.xex[13] = .99057993;
28878     l20_12.xex[14] = .97760168;
28879     return 0;
28880 labelL2:
28881     l6_1.fx = 0.;
28882     for (i__ = 1; i__ <= 15; ++i__) {
28883 /* labelL20: */
28884     l6_1.fx -= d__[i__ - 1] * l2_11.x[i__ - 1];
28885     }
28886     return 0;
28887 labelL3:
28888     for (i__ = 1; i__ <= 15; ++i__) {
28889 /* labelL11: */
28890     l4_11.gf[i__ - 1] = -d__[i__ - 1];
28891     }
28892     return 0;
28893 labelL4:
28894     for (i__ = 1; i__ <= 10; ++i__) {
28895     if (! l9_13.index1[i__ - 1]) {
28896         goto L7;
28897     }
28898     c__ = 0.;
28899     for (j = 1; j <= 15; ++j) {
28900 /* labelL9: */
28901 /* Computing 2nd power */
28902         d__1 = l2_11.x[j - 1];
28903         c__ += a[i__ + j * 10 - 11] * (d__1 * d__1);
28904     }
28905     l3_12.g[i__ - 1] = b[i__ - 1] - c__;
28906 L7:
28907     ;
28908     }
28909     if (! l9_13.index1[10]) {
28910     goto labelL12;
28911     }
28912     c__ = 0.;
28913     for (j = 1; j <= 15; ++j) {
28914 /* labelL14: */
28915 /* Computing 2nd power */
28916     d__1 = l2_11.x[j - 1] - 2.;
28917     c__ += (Real) j * (d__1 * d__1);
28918     }
28919     l3_12.g[10] = c__ / 2. - 61.;
28920 labelL12:
28921     return 0;
28922 labelL5:
28923     for (i__ = 1; i__ <= 10; ++i__) {
28924     if (! l10_13.index2[i__ - 1]) {
28925         goto labelL10;
28926     }
28927     for (j = 1; j <= 15; ++j) {
28928 /* labelL13: */
28929         l5_39.gg[i__ + j * 11 - 12] = a[i__ + j * 10 - 11] * -2. *
28930             l2_11.x[j - 1];
28931     }
28932 labelL10:
28933     ;
28934     }
28935     if (! l10_13.index2[10]) {
28936     goto L15;
28937     }
28938     for (j = 1; j <= 15; ++j) {
28939 /* L16: */
28940     l5_39.gg[j * 11 - 1] = (Real) j * (l2_11.x[j - 1] - 2.);
28941     }
28942 L15:
28943     return 0;
28944 } /* tp387_ */
28945 
tp388_(int * mode)28946 /* Subroutine */ int tp388_(int *mode)
28947 {
28948     /* Initialized data */
28949 
28950     static Real b[15] = { 385.,470.,560.,565.,645.,430.,485.,455.,390.,
28951         460.,0.,70.,361.,265.,395. };
28952     static Real a[150]    /* was [10][15] */ = { 100.,90.,70.,50.,50.,
28953         40.,30.,20.,10.,5.,100.,100.,50.,0.,10.,0.,60.,30.,70.,10.,10.,
28954         10.,0.,0.,70.,50.,30.,40.,10.,100.,5.,35.,55.,65.,60.,95.,90.,25.,
28955         35.,5.,10.,20.,25.,35.,45.,50.,0.,40.,25.,20.,0.,5.,100.,100.,45.,
28956         35.,30.,25.,65.,5.,0.,0.,40.,35.,0.,10.,5.,15.,0.,10.,25.,35.,50.,
28957         60.,35.,60.,25.,10.,30.,35.,0.,55.,0.,0.,65.,0.,0.,80.,0.,95.,10.,
28958         25.,30.,15.,5.,45.,70.,20.,0.,70.,55.,20.,60.,0.,75.,15.,20.,30.,
28959         25.,20.,5.,0.,10.,75.,100.,20.,25.,30.,0.,10.,45.,40.,30.,35.,75.,
28960         0.,70.,5.,15.,35.,20.,25.,0.,30.,10.,5.,15.,65.,50.,10.,0.,10.,
28961         40.,65.,0.,5.,15.,20.,55.,30. };
28962     static Real a1[60]    /* was [4][15] */ = { 1.,45.,53.,12.,2.,25.,
28963         74.,43.,3.,35.,26.,51.,4.,85.,17.,39.,5.,40.,25.,58.,6.,73.,25.,
28964         42.,7.,17.,26.,60.,8.,52.,24.,20.,9.,86.,85.,40.,10.,14.,35.,80.,
28965         15.,30.,14.,75.,16.,50.,23.,85.,17.,40.,37.,95.,18.,70.,56.,23.,
28966         19.,60.,10.,67. };
28967     static Real d__[15] = { 486.,640.,758.,776.,477.,707.,175.,619.,
28968         627.,614.,475.,377.,524.,468.,529. };
28969 
28970     /* System generated locals */
28971     Real d__1;
28972 
28973     /* Local variables */
28974     static Real c__;
28975     static int i__, j, l;
28976 
28977     switch ((int)*mode) {
28978     case 1:  goto labelL1;
28979     case 2:  goto labelL2;
28980     case 3:  goto labelL3;
28981     case 4:  goto labelL4;
28982     case 5:  goto labelL5;
28983     }
28984 labelL1:
28985     l1_1.n = 15;
28986     l1_1.nili = 4;
28987     l1_1.ninl = 11;
28988     l1_1.neli = 0;
28989     l1_1.nenl = 0;
28990     for (i__ = 1; i__ <= 15; ++i__) {
28991     l2_11.x[i__ - 1] = 0.;
28992     l12_11.lxu[i__ - 1] = false;
28993 /* labelL6: */
28994     l11_11.lxl[i__ - 1] = false;
28995     }
28996     for (i__ = 12; i__ <= 15; ++i__) {
28997     for (j = 1; j <= 15; ++j) {
28998 /* L19: */
28999         l5_40.gg[i__ - 11 + j * 15 - 16] = -a1[i__ - 11 + (j << 2) - 5];
29000     }
29001     }
29002     l20_12.lex = false;
29003     l20_12.nex = 1;
29004     l20_12.fex = -5821.0842;
29005     l20_12.xex[0] = .62683876;
29006     l20_12.xex[1] = 1.4330999;
29007     l20_12.xex[2] = 1.4625963;
29008     l20_12.xex[3] = .73133338;
29009     l20_12.xex[4] = .7861424;
29010     l20_12.xex[5] = 1.2048598;
29011     l20_12.xex[6] = -1.1433978;
29012     l20_12.xex[7] = 1.0611103;
29013     l20_12.xex[8] = -.13389293;
29014     l20_12.xex[9] = 1.1820107;
29015     l20_12.xex[10] = .96917757;
29016     l20_12.xex[11] = -.84501289;
29017     l20_12.xex[12] = .48122454;
29018     l20_12.xex[13] = -.33986164;
29019     l20_12.xex[14] = .68589012;
29020     return 0;
29021 labelL2:
29022     l6_1.fx = 0.;
29023     for (i__ = 1; i__ <= 15; ++i__) {
29024 /* labelL20: */
29025     l6_1.fx -= d__[i__ - 1] * l2_11.x[i__ - 1];
29026     }
29027     return 0;
29028 labelL3:
29029     for (i__ = 1; i__ <= 15; ++i__) {
29030 /* labelL11: */
29031     l4_11.gf[i__ - 1] = -d__[i__ - 1];
29032     }
29033     return 0;
29034 labelL4:
29035     for (i__ = 12; i__ <= 15; ++i__) {
29036     l = i__ - 11;
29037     if (! l9_14.index1[l - 1]) {
29038         goto L7;
29039     }
29040     c__ = 0.;
29041     for (j = 1; j <= 15; ++j) {
29042 /* labelL9: */
29043         c__ += a1[l + (j << 2) - 5] * l2_11.x[j - 1];
29044     }
29045     l3_13.g[l - 1] = b[i__ - 1] - c__;
29046 L7:
29047     ;
29048     }
29049     for (i__ = 1; i__ <= 10; ++i__) {
29050     if (! l9_14.index1[i__ + 3]) {
29051         goto labelL14;
29052     }
29053     c__ = 0.;
29054     for (j = 1; j <= 15; ++j) {
29055 /* L16: */
29056 /* Computing 2nd power */
29057         d__1 = l2_11.x[j - 1];
29058         c__ += a[i__ + j * 10 - 11] * (d__1 * d__1);
29059     }
29060     l3_13.g[i__ + 3] = b[i__ - 1] - c__;
29061 labelL14:
29062     ;
29063     }
29064     if (! l9_14.index1[14]) {
29065     goto L17;
29066     }
29067     c__ = 0.;
29068     for (j = 1; j <= 15; ++j) {
29069 /* L18: */
29070 /* Computing 2nd power */
29071     d__1 = l2_11.x[j - 1] - 2.;
29072     c__ += (Real) j * (d__1 * d__1);
29073     }
29074     l3_13.g[14] = c__ / 2. - 193.121;
29075 L17:
29076     return 0;
29077 labelL5:
29078     for (i__ = 1; i__ <= 10; ++i__) {
29079     if (! l10_14.index2[i__ + 3]) {
29080         goto L22;
29081     }
29082     for (j = 1; j <= 15; ++j) {
29083 /* L24: */
29084         l5_40.gg[i__ + 4 + j * 15 - 16] = a[i__ + j * 10 - 11] * -2. *
29085             l2_11.x[j - 1];
29086     }
29087 L22:
29088     ;
29089     }
29090     if (! l10_14.index2[14]) {
29091     goto L25;
29092     }
29093     for (j = 1; j <= 15; ++j) {
29094 /* L26: */
29095     l5_40.gg[j * 15 - 1] = (Real) j * (l2_11.x[j - 1] - 2.);
29096     }
29097 L25:
29098     return 0;
29099 } /* tp388_ */
29100 
tp389_(int * mode)29101 /* Subroutine */ int tp389_(int *mode)
29102 {
29103     /* Initialized data */
29104 
29105     static Real b[15] = { 385.,470.,560.,565.,645.,430.,485.,455.,390.,
29106         460.,0.,70.,361.,265.,395. };
29107     static Real a[150]    /* was [10][15] */ = { 100.,90.,70.,50.,50.,
29108         40.,30.,20.,10.,5.,100.,100.,50.,0.,10.,0.,60.,30.,70.,10.,10.,
29109         10.,0.,0.,70.,50.,30.,40.,10.,100.,5.,35.,55.,65.,60.,95.,90.,25.,
29110         35.,5.,10.,20.,25.,35.,45.,50.,0.,40.,25.,20.,0.,5.,100.,100.,45.,
29111         35.,30.,25.,65.,5.,0.,0.,40.,35.,0.,10.,5.,15.,0.,10.,25.,35.,50.,
29112         60.,35.,60.,25.,10.,30.,35.,0.,55.,0.,0.,65.,0.,0.,80.,0.,95.,10.,
29113         25.,30.,15.,5.,45.,70.,20.,0.,70.,55.,20.,60.,0.,75.,15.,20.,30.,
29114         25.,20.,5.,0.,10.,75.,100.,20.,25.,30.,0.,10.,45.,40.,30.,35.,75.,
29115         0.,70.,5.,15.,35.,20.,25.,0.,30.,10.,5.,15.,65.,50.,10.,0.,10.,
29116         40.,65.,0.,5.,15.,20.,55.,30. };
29117     static Real a1[60]    /* was [4][15] */ = { 1.,45.,53.,12.,2.,25.,
29118         74.,43.,3.,35.,26.,51.,4.,85.,17.,39.,5.,40.,25.,58.,6.,73.,25.,
29119         42.,7.,17.,26.,60.,8.,52.,24.,20.,9.,86.,85.,40.,10.,14.,35.,80.,
29120         15.,30.,14.,75.,16.,50.,23.,85.,17.,40.,37.,95.,18.,70.,56.,23.,
29121         19.,60.,10.,67. };
29122     static Real d__[15] = { 486.,640.,758.,776.,477.,707.,175.,619.,
29123         627.,614.,475.,377.,524.,468.,529. };
29124 
29125     /* System generated locals */
29126     Real d__1;
29127 
29128     /* Local variables */
29129     static Real c__;
29130     static int i__, j, l;
29131 
29132     switch ((int)*mode) {
29133     case 1:  goto labelL1;
29134     case 2:  goto labelL2;
29135     case 3:  goto labelL3;
29136     case 4:  goto labelL4;
29137     case 5:  goto labelL5;
29138     }
29139 labelL1:
29140     l1_1.n = 15;
29141     l1_1.nili = 4;
29142     l1_1.ninl = 11;
29143     l1_1.neli = 0;
29144     l1_1.nenl = 0;
29145     for (i__ = 1; i__ <= 15; ++i__) {
29146     l2_11.x[i__ - 1] = 0.;
29147     l12_11.lxu[i__ - 1] = false;
29148 /* labelL6: */
29149     l11_11.lxl[i__ - 1] = false;
29150     }
29151     for (i__ = 12; i__ <= 15; ++i__) {
29152     for (j = 1; j <= 15; ++j) {
29153 /* L19: */
29154         l5_40.gg[i__ - 11 + j * 15 - 16] = -a1[i__ - 11 + (j << 2) - 5];
29155     }
29156     }
29157     l20_12.lex = false;
29158     l20_12.nex = 1;
29159     l20_12.fex = -5809.7197;
29160     l20_12.xex[0] = .67105172;
29161     l20_12.xex[1] = 1.38854;
29162     l20_12.xex[2] = 1.4676761;
29163     l20_12.xex[3] = .76023633;
29164     l20_12.xex[4] = .82935674;
29165     l20_12.xex[5] = 1.1638523;
29166     l20_12.xex[6] = -1.257829;
29167     l20_12.xex[7] = .98193399;
29168     l20_12.xex[8] = .068416463;
29169     l20_12.xex[9] = 1.1472773;
29170     l20_12.xex[10] = .98662969;
29171     l20_12.xex[11] = -.88834924;
29172     l20_12.xex[12] = .56465631;
29173     l20_12.xex[13] = -.58120082;
29174     l20_12.xex[14] = .72096897;
29175     return 0;
29176 labelL2:
29177     l6_1.fx = 0.;
29178     for (i__ = 1; i__ <= 15; ++i__) {
29179 /* labelL20: */
29180     l6_1.fx -= d__[i__ - 1] * l2_11.x[i__ - 1];
29181     }
29182     return 0;
29183 labelL3:
29184     for (i__ = 1; i__ <= 15; ++i__) {
29185 /* labelL11: */
29186     l4_11.gf[i__ - 1] = -d__[i__ - 1];
29187     }
29188     return 0;
29189 labelL4:
29190     for (i__ = 12; i__ <= 15; ++i__) {
29191     l = i__ - 11;
29192     if (! l9_14.index1[l - 1]) {
29193         goto L7;
29194     }
29195     c__ = 0.;
29196     for (j = 1; j <= 15; ++j) {
29197 /* labelL9: */
29198         c__ += a1[l + (j << 2) - 5] * l2_11.x[j - 1];
29199     }
29200     l3_13.g[l - 1] = b[i__ - 1] - c__;
29201 L7:
29202     ;
29203     }
29204     for (i__ = 1; i__ <= 10; ++i__) {
29205     if (! l9_14.index1[i__ + 3]) {
29206         goto labelL14;
29207     }
29208     c__ = 0.;
29209     for (j = 1; j <= 15; ++j) {
29210 /* L16: */
29211 /* Computing 2nd power */
29212         d__1 = l2_11.x[j - 1];
29213         c__ += a[i__ + j * 10 - 11] * (d__1 * d__1);
29214     }
29215     l3_13.g[i__ + 3] = b[i__ - 1] - c__;
29216 labelL14:
29217     ;
29218     }
29219     if (! l9_14.index1[14]) {
29220     goto L17;
29221     }
29222     c__ = 0.;
29223     for (j = 1; j <= 15; ++j) {
29224 /* L18: */
29225 /* Computing 2nd power */
29226     d__1 = l2_11.x[j - 1] - 2.;
29227     c__ += (Real) j * (d__1 * d__1);
29228     }
29229     l3_13.g[14] = c__ / 2. - 200.;
29230 L17:
29231     return 0;
29232 labelL5:
29233     for (i__ = 1; i__ <= 10; ++i__) {
29234     if (! l10_14.index2[i__ + 3]) {
29235         goto L22;
29236     }
29237     for (j = 1; j <= 15; ++j) {
29238 /* L24: */
29239         l5_40.gg[i__ + 4 + j * 15 - 16] = a[i__ + j * 10 - 11] * -2. *
29240             l2_11.x[j - 1];
29241     }
29242 L22:
29243     ;
29244     }
29245     if (! l10_14.index2[14]) {
29246     goto L25;
29247     }
29248     for (j = 1; j <= 15; ++j) {
29249 /* L26: */
29250     l5_40.gg[j * 15 - 1] = (Real) j * (l2_11.x[j - 1] - 2.);
29251     }
29252 L25:
29253     return 0;
29254 } /* tp389_ */
29255 
tp390_(int * mode)29256 /* Subroutine */ int tp390_(int *mode)
29257 {
29258     /* System generated locals */
29259     Real d__1;
29260 
29261     /* Local variables */
29262     int tp390a_(Real *, Real *);
29263     static int i__;
29264     static Real zi1, zi2, zi3, psi[11];
29265 
29266     switch ((int)*mode) {
29267     case 1:  goto labelL1;
29268     case 2:  goto labelL2;
29269     case 3:  goto labelL3;
29270     case 4:  goto labelL4;
29271     case 5:  goto labelL3;
29272     }
29273 labelL1:
29274     l1_1.n = 19;
29275     l1_1.nili = 1;
29276     l1_1.ninl = 0;
29277     l1_1.neli = 0;
29278     l1_1.nenl = 11;
29279     l2_20.x[0] = .02;
29280     l2_20.x[1] = 4.;
29281     l2_20.x[2] = 100.;
29282     l2_20.x[3] = 100.;
29283     l2_20.x[4] = 15.;
29284     l2_20.x[5] = 15.;
29285     l2_20.x[6] = 100.;
29286     l2_20.x[7] = 1e3;
29287     l2_20.x[8] = 1e3;
29288     l2_20.x[9] = 1e3;
29289     l2_20.x[10] = 9e3;
29290     l2_20.x[11] = .001;
29291     l2_20.x[12] = .001;
29292     l2_20.x[13] = 1.;
29293     l2_20.x[14] = .001;
29294     l2_20.x[15] = .001;
29295     l2_20.x[16] = .1;
29296     l2_20.x[17] = 8e3;
29297     l2_20.x[18] = .001;
29298     for (i__ = 1; i__ <= 19; ++i__) {
29299     l12_20.lxu[i__ - 1] = true;
29300     l11_20.lxl[i__ - 1] = true;
29301     l14_24.xu[i__ - 1] = 1e5;
29302 /* labelL6: */
29303     l13_24.xl[i__ - 1] = 1e-5;
29304     }
29305     for (i__ = 1; i__ <= 2; ++i__) {
29306     l14_24.xu[i__ - 1] = 50.;
29307 /* L7: */
29308     l14_24.xu[i__ + 14] = 50.;
29309     }
29310     for (i__ = 3; i__ <= 6; ++i__) {
29311 /* labelL9: */
29312     l14_24.xu[i__ - 1] = 100.;
29313     }
29314     for (i__ = 12; i__ <= 15; ++i__) {
29315 /* labelL10: */
29316     l14_24.xu[i__ - 1] = 1.;
29317     }
29318     l20_20.lex = false;
29319     l20_20.nex = 1;
29320     l20_20.fex = 24.4724654;
29321     l20_20.xex[0] = .004473667;
29322     l20_20.xex[1] = 3.441565;
29323     l20_20.xex[2] = 99.34824;
29324     l20_20.xex[3] = 89.130035;
29325     l20_20.xex[4] = 15.279316;
29326     l20_20.xex[5] = 15.279316;
29327     l20_20.xex[6] = 94.726127;
29328     l20_20.xex[7] = 12304.197;
29329     l20_20.xex[8] = 12313.263;
29330     l20_20.xex[9] = 12313.263;
29331     l20_20.xex[10] = 95905.631;
29332     l20_20.xex[11] = 1e-5;
29333     l20_20.xex[12] = 1e-5;
29334     l20_20.xex[13] = .999989;
29335     l20_20.xex[14] = 1e-5;
29336     l20_20.xex[15] = 1e-5;
29337     l20_20.xex[16] = .1622235;
29338     l20_20.xex[17] = 8305.1515;
29339     l20_20.xex[18] = .0014797356;
29340     return 0;
29341 labelL2:
29342     d__1 = l2_20.x[15] * 2268. * l2_20.x[0];
29343     zi1 = pow_dd(&d__1, &c_b3046) * 25.;
29344     zi2 = l2_20.x[16] * 1.75e5 + pow_dd(&l2_20.x[16], &c_b3047) * 36500.;
29345     zi3 = l2_20.x[17] * 12.6 + pow_dd(&c_b3048, &c_b3049) * 5.35 / pow_dd(&
29346         l2_20.x[17], &c_b3050);
29347     l6_1.fx = (zi1 + zi2 + zi3 + 10950. + (l2_20.x[0] * (l2_20.x[12] -
29348         l2_20.x[13]) + l2_20.x[1] * (l2_20.x[11] + 1.) - (1. - l2_20.x[18]
29349         ) * 3.) * 1150.) * 1.4;
29350     l6_1.fx /= 1e4;
29351 labelL3:
29352     return 0;
29353 labelL4:
29354     if (l9_17.index1[0]) {
29355     l3_16.g[0] = 1. - l2_20.x[12] - l2_20.x[13];
29356     }
29357     tp390a_(l2_20.x, psi);
29358     for (i__ = 2; i__ <= 12; ++i__) {
29359     if (! l9_17.index1[i__ - 1]) {
29360         goto L8;
29361     }
29362     l3_16.g[i__ - 1] = psi[i__ - 2];
29363 L8:
29364     ;
29365     }
29366     return 0;
29367 } /* tp390_ */
29368 
tp390a_(Real * x,Real * psi)29369 int tp390a_(Real *x, Real *psi)
29370 {
29371     /* Local variables */
29372     static Real test, ak, ck, zj1, zj2, zj3, zj4, zj5, zk7, zj8, xz4,
29373         yz4, zj10, qz12;
29374 
29375     /* Parameter adjustments */
29376     --psi;
29377     --x;
29378 
29379     /* Function Body */
29380     ak = .64749999999999996 / pow_dd(&c_b3053, &c_b3054);
29381     xz4 = x[3] * std::exp(-ak * x[16]);
29382     zj1 = -(x[1] * x[13] * xz4 + x[19] * 300.);
29383     psi[1] = zj1 + x[1] * x[3] - x[2] * x[5] * x[12];
29384     yz4 = x[7] + (x[3] - xz4) * .5;
29385     zj2 = -x[13] * x[1] * yz4;
29386     psi[2] = zj2 + x[1] * x[7] - x[2] * x[9] * x[12];
29387     zj3 = (1. - x[19]) * -300. + x[6] * 3. * (1. - x[19]) - x[1] * x[14] *
29388         xz4;
29389     psi[3] = zj3 + x[2] * (x[4] - x[6]) + x[1] * x[6] * x[14];
29390     zj4 = x[11] * 3. * (1. - x[19]) + x[1] * x[14] * (x[11] - yz4);
29391     psi[4] = zj4 + x[2] * (x[8] - x[11]);
29392     zj5 = x[17] * (x[5] * .48 * x[9] / (x[5] + 100.));
29393     psi[5] = zj5 * -2. + x[2] * (x[4] - x[5]);
29394     psi[6] = zj5 + x[2] * (x[8] - x[9]) - x[9] * .048 * x[17];
29395     zk7 = x[1] * (1. - x[13] - x[14]);
29396     qz12 = x[1] * (1. - x[13] - x[14]) + x[2] * (1. - x[12]);
29397     psi[7] = -zk7 * xz4 + x[6] * qz12 - x[2] * x[5] * (1. - x[12]);
29398     zj8 = x[10] * qz12 - zk7 * yz4;
29399     psi[8] = zj8 - x[2] * x[9] * (1. - x[12]);
29400     psi[9] = (1. - x[15]) * 6. * (20. - x[6]) + x[11] * (x[2] - (1. - x[15]) *
29401          3. - x[1] * x[14]) + x[19] * 3. * x[11] - x[10] * qz12;
29402     ck = .0013285402597402597;
29403     test = -ck * x[18] / qz12;
29404     if (test > 99.) {
29405     zj10 = std::sqrt((std::abs(x[10]))) * (float)-2.1 * std::exp(99.);
29406     }
29407     if (test < 99.) {
29408     zj10 = std::sqrt((std::abs(x[10]))) * (float)-2.1 * std::exp(-ck * x[18] / qz12);
29409     }
29410     psi[10] = zj10 + (20. - x[6]) * 2.;
29411     psi[11] = (1. - x[13]) * x[1] - x[12] * x[2] - x[19] * 3.;
29412     return 0;
29413 } /* tp390a_ */
29414 
tp391_(int * mode)29415 /* Subroutine */ int tp391_(int *mode)
29416 {
29417     /* System generated locals */
29418     int i__1;
29419     Real d__1, d__2, d__3, d__4;
29420 
29421     /* Local variables */
29422     static Real wurz;
29423     static int i__, j;
29424     static Real sum;
29425 
29426     switch ((int)*mode) {
29427     case 1:  goto labelL1;
29428     case 2:  goto labelL2;
29429     case 3:  goto labelL3;
29430     case 4:  goto labelL3;
29431     case 5:  goto labelL3;
29432     }
29433 labelL1:
29434     l1_1.n = 30;
29435     l1_1.nili = 0;
29436     l1_1.ninl = 0;
29437     l1_1.neli = 0;
29438     l1_1.nenl = 0;
29439     for (i__ = 1; i__ <= 30; ++i__) {
29440     sum = 0.;
29441     for (j = 1; j <= 30; ++j) {
29442         if (j == i__) {
29443         goto L60;
29444         }
29445         wurz = std::sqrt((Real) i__ / (Real) j);
29446 /* Computing 5th power */
29447         d__1 = std::sin(std::log(wurz)), d__2 = d__1, d__1 *= d__1;
29448 /* Computing 5th power */
29449         d__3 =std::cos(std::log(wurz)), d__4 = d__3, d__3 *= d__3;
29450         sum += wurz * (d__2 * (d__1 * d__1) + d__4 * (d__3 * d__3));
29451 L60:
29452         ;
29453     }
29454 /* Computing 3rd power */
29455     i__1 = i__ - 15;
29456     l2_14.x[i__ - 1] = ((Real) (i__1 * (i__1 * i__1)) + sum) *
29457         -2.8742711;
29458     l12_14.lxu[i__ - 1] = false;
29459 /* labelL6: */
29460     l11_14.lxl[i__ - 1] = false;
29461     }
29462     l20_15.lex = false;
29463     l20_15.nex = 1;
29464     l20_15.fex = 0.;
29465     l20_15.xex[0] = 7898.8423;
29466     l20_15.xex[1] = 6316.093;
29467     l20_15.xex[2] = 4957.3076;
29468     l20_15.xex[3] = 3806.6336;
29469     l20_15.xex[4] = 2846.7099;
29470     l20_15.xex[5] = 2060.1112;
29471     l20_15.xex[6] = 1429.4605;
29472     l20_15.xex[7] = 937.41818;
29473     l20_15.xex[8] = 566.66665;
29474     l20_15.xex[9] = 299.90186;
29475     l20_15.xex[10] = 119.82826;
29476     l20_15.xex[11] = 9.1562939;
29477     l20_15.xex[12] = -49.399019;
29478     l20_15.xex[13] = -73.1188559;
29479     l20_15.xex[14] = -79.2811119;
29480     l20_15.xex[15] = -85.1607569;
29481     l20_15.xex[16] = -108.03012;
29482     l20_15.xex[17] = -165.15913;
29483     l20_15.xex[18] = -273.81552;
29484     l20_15.xex[19] = -451.26501;
29485     l20_15.xex[20] = -714.7715;
29486     l20_15.xex[21] = -1081.5972;
29487     l20_15.xex[22] = -1569.0029;
29488     l20_15.xex[23] = -2194.2479;
29489     l20_15.xex[24] = -2974.5902;
29490     l20_15.xex[25] = -3927.2868;
29491     l20_15.xex[26] = -5069.5936;
29492     l20_15.xex[27] = -6418.7656;
29493     l20_15.xex[28] = -7992.0568;
29494     l20_15.xex[29] = -9806.7206;
29495     return 0;
29496 labelL2:
29497     l6_1.fx = 0.;
29498     for (i__ = 1; i__ <= 30; ++i__) {
29499     sum = 0.;
29500     for (j = 1; j <= 30; ++j) {
29501         if (j == i__) {
29502         goto L70;
29503         }
29504 /* Computing 2nd power */
29505         d__1 = l2_14.x[j - 1];
29506         wurz = std::sqrt(d__1 * d__1 + (Real) i__ / (Real) j);
29507 /* Computing 5th power */
29508         d__1 = std::sin(std::log(wurz)), d__2 = d__1, d__1 *= d__1;
29509 /* Computing 5th power */
29510         d__3 =std::cos(std::log(wurz)), d__4 = d__3, d__3 *= d__3;
29511         sum += wurz * (d__2 * (d__1 * d__1) + d__4 * (d__3 * d__3));
29512 L70:
29513         ;
29514     }
29515 /* L7: */
29516 /* Computing 3rd power */
29517     i__1 = i__ - 15;
29518 /* Computing 2nd power */
29519     d__1 = l2_14.x[i__ - 1] * 420. + (Real) (i__1 * (i__1 * i__1))
29520         + sum;
29521     l6_1.fx += d__1 * d__1;
29522     }
29523 labelL3:
29524     return 0;
29525 } /* tp391_ */
29526 
29527 
tp392_(int * mode)29528 /* Subroutine */ int tp392_(int *mode)
29529 {
29530     /* Initialized data */
29531 
29532     static Real r1[15]    /* was [3][5] */ = { 1e3,520.,910.,1e3,520.,
29533         910.,1e3,520.,1e3,1100.,600.,1e3,1100.,600.,1e3 };
29534     static Real r2[15]    /* was [3][5] */ = { .3,.1,.2,.3,.1,.2,.3,.1,
29535         .2,.3,.1,.2,.3,.1,.2 };
29536     static Real ka[15]    /* was [3][5] */ = { 120.,65.,105.,150.,65.,
29537         105.,150.,80.,120.,170.,80.,120.,170.,80.,120. };
29538     static Real k1[15]    /* was [3][5] */ = { 150.,75.,140.,150.,75.,
29539         140.,150.,75.,140.,170.,90.,150.,170.,90.,150. };
29540     static Real kp[15]    /* was [3][5] */ = { 160.,75.,140.,160.,75.,
29541         140.,160.,75.,140.,180.,90.,150.,180.,90.,150. };
29542     static Real k3[15]    /* was [3][5] */ = { .02,.01,.015,.2,.1,.15,
29543         .25,.1,.15,.25,.15,.15,.25,.15,.15 };
29544     static Real kl1[15]    /* was [3][5] */ = { .005,.005,.005,.05,.05,
29545         .05,.06,.06,.06,.06,.06,.06,.06,.06,.06 };
29546     static Real kl2[15]    /* was [3][5] */ = { 80.,45.,75.,80.,45.,75.,
29547         100.,45.,90.,100.,50.,90.,100.,50.,90. };
29548     static Real h__[15]    /* was [3][5] */ = { 100.,280.,520.,180.,400.,
29549         400.,220.,450.,500.,150.,450.,630.,100.,400.,600. };
29550     static Real t[9]    /* was [3][3] */ = { .6,.3,.36,.4,.1,.08,.1,
29551         .12,.06 };
29552     static Real b[15]    /* was [3][5] */ = { 170.,170.,180.,170.,170.,
29553         180.,170.,170.,180.,170.,170.,180.,170.,170.,180. };
29554 
29555     /* System generated locals */
29556     int i__1;
29557     Real d__1, d__2;
29558 
29559     /* Local variables */
29560     static int i__, j, k, l;
29561     static Real sum, sum1;
29562 
29563     switch ((int)*mode) {
29564     case 1:  goto labelL1;
29565     case 2:  goto labelL2;
29566     case 3:  goto labelL3;
29567     case 4:  goto labelL4;
29568     case 5:  goto labelL5;
29569     }
29570 labelL1:
29571     l1_1.n = 30;
29572     l1_1.nili = 45;
29573     l1_1.ninl = 0;
29574     l1_1.neli = 0;
29575     l1_1.nenl = 0;
29576     l2_14.x[0] = 80.;
29577     l2_14.x[1] = 100.;
29578     l2_14.x[2] = 400.;
29579     l2_14.x[3] = 100.;
29580     l2_14.x[4] = 200.;
29581     l2_14.x[5] = 200.;
29582     l2_14.x[6] = 100.;
29583     l2_14.x[7] = 250.;
29584     l2_14.x[8] = 400.;
29585     l2_14.x[9] = 50.;
29586     l2_14.x[10] = 200.;
29587     l2_14.x[11] = 500.;
29588     l2_14.x[12] = 50.;
29589     l2_14.x[13] = 200.;
29590     l2_14.x[14] = 500.;
29591     l2_14.x[15] = 100.;
29592     l2_14.x[16] = 120.;
29593     l2_14.x[17] = 410.;
29594     l2_14.x[18] = 120.;
29595     l2_14.x[19] = 250.;
29596     l2_14.x[20] = 250.;
29597     l2_14.x[21] = 150.;
29598     l2_14.x[22] = 300.;
29599     l2_14.x[23] = 410.;
29600     l2_14.x[24] = 600.;
29601     l2_14.x[25] = 250.;
29602     l2_14.x[26] = 510.;
29603     l2_14.x[27] = 100.;
29604     l2_14.x[28] = 250.;
29605     l2_14.x[29] = 510.;
29606     for (i__ = 1; i__ <= 30; ++i__) {
29607     l12_14.lxu[i__ - 1] = false;
29608     l11_14.lxl[i__ - 1] = true;
29609 /* labelL6: */
29610     l13_17.xl[i__ - 1] = 0.;
29611     }
29612     l20_15.lex = false;
29613     l20_15.nex = 1;
29614     l20_15.fex = -1698.878;
29615     l20_15.xex[0] = 99.99;
29616     l20_15.xex[1] = 142.22;
29617     l20_15.xex[2] = 519.88;
29618     l20_15.xex[3] = 136.74;
29619     l20_15.xex[4] = 103.47;
29620     l20_15.xex[5] = 399.99;
29621     l20_15.xex[6] = 191.7;
29622     l20_15.xex[7] = 1.56;
29623     l20_15.xex[8] = 500.;
29624     l20_15.xex[9] = 143.43;
29625     l20_15.xex[10] = 82.39;
29626     l20_15.xex[11] = 629.82;
29627     l20_15.xex[12] = 99.92;
29628     l20_15.xex[13] = 125.22;
29629     l20_15.xex[14] = 600.;
29630     l20_15.xex[15] = 101.85;
29631     l20_15.xex[16] = 142.25;
29632     l20_15.xex[17] = 519.88;
29633     l20_15.xex[18] = 144.58;
29634     l20_15.xex[19] = 105.73;
29635     l20_15.xex[20] = 409.59;
29636     l20_15.xex[21] = 182.01;
29637     l20_15.xex[22] = 29.34;
29638     l20_15.xex[23] = 490.52;
29639     l20_15.xex[24] = 143.43;
29640     l20_15.xex[25] = 52.43;
29641     l20_15.xex[26] = 629.7;
29642     l20_15.xex[27] = 99.92;
29643     l20_15.xex[28] = 125.12;
29644     l20_15.xex[29] = 600.;
29645     return 0;
29646 labelL2:
29647     l6_1.fx = 0.;
29648     for (i__ = 1; i__ <= 5; ++i__) {
29649     sum = 0.;
29650     for (j = 1; j <= 3; ++j) {
29651         sum1 = 0.;
29652         i__1 = i__;
29653         for (k = 1; k <= i__1; ++k) {
29654 /* L72: */
29655         sum1 = sum1 + l2_14.x[j + 12 + k * 3 - 1] - l2_14.x[j - 3 + k
29656             * 3 - 1];
29657         }
29658 /* L71: */
29659 /* Computing 2nd power */
29660         d__1 = l2_14.x[(i__ - 1) * 3 + j - 1];
29661 /* Computing 2nd power */
29662         d__2 = l2_14.x[i__ * 3 + 12 + j - 1] - l2_14.x[j + i__ * 3 - 4];
29663         sum = sum + l2_14.x[(i__ - 1) * 3 + j - 1] * (r1[j + i__ * 3 - 4]
29664             - ka[j + i__ * 3 - 4]) - d__1 * d__1 * r2[j + i__ * 3 - 4]
29665              - l2_14.x[i__ * 3 + 12 + j - 1] * (k1[j + i__ * 3 - 4] +
29666             kp[j + i__ * 3 - 4]) - d__2 * d__2 * (k3[j + i__ * 3 - 4]
29667             + kl1[j + i__ * 3 - 4]) - kl2[j + i__ * 3 - 4] * sum1;
29668     }
29669 /* L70: */
29670     l6_1.fx -= sum;
29671     }
29672     l6_1.fx *= .001;
29673 labelL3:
29674     return 0;
29675 labelL4:
29676     for (i__ = 1; i__ <= 5; ++i__) {
29677     for (j = 1; j <= 3; ++j) {
29678         l = (i__ - 1) * 3 + j;
29679 /* L8: */
29680         if (l9_19.index1[l - 1]) {
29681         l3_18.g[l - 1] = h__[j + i__ * 3 - 4] - l2_14.x[l - 1];
29682         }
29683     }
29684     }
29685     for (i__ = 1; i__ <= 5; ++i__) {
29686     for (j = 1; j <= 3; ++j) {
29687         l = (i__ - 1) * 3 + j + 15;
29688         if (! l9_19.index1[l - 1]) {
29689         goto labelL9;
29690         }
29691         l3_18.g[l - 1] = b[j + i__ * 3 - 4];
29692         for (k = 1; k <= 3; ++k) {
29693 /* labelL10: */
29694         l3_18.g[l - 1] -= t[j + k * 3 - 4] * l2_14.x[i__ * 3 + 12 + k
29695             - 1];
29696         }
29697 labelL9:
29698         ;
29699     }
29700     }
29701     for (i__ = 1; i__ <= 5; ++i__) {
29702     for (j = 1; j <= 3; ++j) {
29703         l = (i__ - 1) * 3 + j + 30;
29704         if (! l9_19.index1[l - 1]) {
29705         goto labelL11;
29706         }
29707         l3_18.g[l - 1] = 0.;
29708         i__1 = i__;
29709         for (k = 1; k <= i__1; ++k) {
29710 /* labelL12: */
29711         l3_18.g[l - 1] = l3_18.g[l - 1] + l2_14.x[k * 3 + 12 + j - 1]
29712             - l2_14.x[j - 3 + k * 3 - 1];
29713         }
29714 labelL11:
29715         ;
29716     }
29717     }
29718 labelL5:
29719     return 0;
29720 } /* tp392_ */
29721 
29722 
tp393_(int * mode)29723 /* Subroutine */ int tp393_(int *mode)
29724 {
29725     /* Local variables */
29726     int tp393b_(Real *, Real *);
29727     static Real c__, e;
29728     static int i__;
29729     static Real phi[1];
29730 
29731     switch ((int)*mode) {
29732     case 1:  goto labelL1;
29733     case 2:  goto labelL2;
29734     case 3:  goto labelL3;
29735     case 4:  goto labelL4;
29736     case 5:  goto labelL5;
29737     }
29738 labelL1:
29739     l1_1.n = 48;
29740     l1_1.nili = 0;
29741     l1_1.ninl = 1;
29742     l1_1.neli = 2;
29743     l1_1.nenl = 0;
29744     for (i__ = 1; i__ <= 24; ++i__) {
29745 /* labelL6: */
29746     l2_21.x[i__ - 1] = 1.;
29747     }
29748     for (i__ = 25; i__ <= 30; ++i__) {
29749 /* L7: */
29750     l2_21.x[i__ - 1] = 1.3;
29751     }
29752     for (i__ = 31; i__ <= 48; ++i__) {
29753 /* L8: */
29754     l2_21.x[i__ - 1] = 1.;
29755     }
29756     for (i__ = 1; i__ <= 48; ++i__) {
29757     l11_21.lxl[i__ - 1] = true;
29758 /* labelL9: */
29759     l13_25.xl[i__ - 1] = .002;
29760     }
29761     for (i__ = 1; i__ <= 24; ++i__) {
29762     l12_21.lxu[i__ - 1] = true;
29763 /* labelL10: */
29764     l14_25.xu[i__ - 1] = 2.;
29765     }
29766     for (i__ = 25; i__ <= 48; ++i__) {
29767 /* labelL11: */
29768     l12_21.lxu[i__ - 1] = false;
29769     }
29770     l20_21.lex = false;
29771     l20_21.nex = 1;
29772     l20_21.fex = .86337998;
29773     l20_21.xex[0] = 2.;
29774     l20_21.xex[1] = .002;
29775     l20_21.xex[2] = 2.;
29776     l20_21.xex[3] = .0339797;
29777     l20_21.xex[4] = .01657455;
29778     l20_21.xex[5] = 2.;
29779     l20_21.xex[6] = 1.8945347;
29780     l20_21.xex[7] = .002;
29781     l20_21.xex[8] = 2.;
29782     l20_21.xex[9] = .03424074;
29783     l20_21.xex[10] = .016670308;
29784     l20_21.xex[11] = 2.;
29785     l20_21.xex[12] = 2.;
29786     l20_21.xex[13] = .002;
29787     l20_21.xex[14] = 2.;
29788     l20_21.xex[15] = .002;
29789     l20_21.xex[16] = .002;
29790     l20_21.xex[17] = 1.988;
29791     l20_21.xex[18] = 2.;
29792     l20_21.xex[19] = .002;
29793     l20_21.xex[20] = 2.;
29794     l20_21.xex[21] = .002;
29795     l20_21.xex[22] = .002;
29796     l20_21.xex[23] = 2.;
29797     l20_21.xex[24] = 1.0159886;
29798     l20_21.xex[25] = .002;
29799     l20_21.xex[26] = 1.003163;
29800     l20_21.xex[27] = .002;
29801     l20_21.xex[28] = .002;
29802     l20_21.xex[29] = .999691944;
29803     l20_21.xex[30] = 1.11272844;
29804     l20_21.xex[31] = .002;
29805     l20_21.xex[32] = 1.1024463;
29806     l20_21.xex[33] = .002;
29807     l20_21.xex[34] = .002;
29808     l20_21.xex[35] = 1.1030764;
29809     l20_21.xex[36] = .92326572;
29810     l20_21.xex[37] = .9343325;
29811     l20_21.xex[38] = .92947437;
29812     l20_21.xex[39] = .91383802;
29813     l20_21.xex[40] = .90517162;
29814     l20_21.xex[41] = .89452569;
29815     l20_21.xex[42] = 1.174573;
29816     l20_21.xex[43] = .002;
29817     l20_21.xex[44] = 1.12080408;
29818     l20_21.xex[45] = .002;
29819     l20_21.xex[46] = .002;
29820     l20_21.xex[47] = 1.1163321536;
29821     return 0;
29822 labelL2:
29823     e = 0.;
29824     for (i__ = 1; i__ <= 12; ++i__) {
29825     c__ = 1. - l2_21.x[i__ - 1];
29826 /* L100: */
29827     e += c__ * 10. * c__;
29828     }
29829     for (i__ = 25; i__ <= 36; ++i__) {
29830     c__ = l2_21.x[i__ - 1] - 1.;
29831 /* L120: */
29832     e += (c__ * 2. * (c__ + std::sqrt(c__ * c__ + .1)) + .1) * 1e3 / 4.;
29833     }
29834     for (i__ = 37; i__ <= 42; ++i__) {
29835     c__ = l2_21.x[i__ - 1] - 1.;
29836 /* L140: */
29837     e += (c__ * 2. * (c__ + std::sqrt(c__ * c__ + .1)) + .1) * 2e3 / 4.;
29838     }
29839     for (i__ = 43; i__ <= 48; ++i__) {
29840 /* L160: */
29841     e += l2_21.x[i__ - 1] * 100.;
29842     }
29843     l6_1.fx = e / 1e3;
29844 labelL3:
29845     return 0;
29846 labelL4:
29847     if (! l9_4.index1[0]) {
29848     goto labelL12;
29849     }
29850     tp393b_(l2_21.x, phi);
29851     l3_3.g[0] = phi[0];
29852 labelL12:
29853     if (! l9_4.index1[1]) {
29854     goto labelL14;
29855     }
29856     l3_3.g[1] = 12.;
29857     for (i__ = 1; i__ <= 12; ++i__) {
29858 /* labelL13: */
29859     l3_3.g[1] -= l2_21.x[i__ - 1];
29860     }
29861 labelL14:
29862     if (! l9_4.index1[2]) {
29863     goto labelL5;
29864     }
29865     l3_3.g[2] = 12.;
29866     for (i__ = 1; i__ <= 12; ++i__) {
29867 /* L15: */
29868     l3_3.g[2] -= l2_21.x[i__ + 11];
29869     }
29870 labelL5:
29871     return 0;
29872 } /* tp393_ */
29873 
29874 
tp393b_(Real * x,Real * phi)29875 /* Subroutine */ int tp393b_(Real *x, Real *phi)
29876 {
29877     /* Initialized data */
29878 
29879     static Real a[18] = { .9,.8,1.1,1.,.7,1.1,1.,1.,1.1,.9,.8,1.2,.9,
29880         1.2,1.2,1.,1.,.9 };
29881 
29882     static int i__;
29883     static Real r__, u[18];
29884     static int k1, k2, k3;
29885     static Real alp, sum;
29886 
29887     /* Parameter adjustments */
29888     --phi;
29889     --x;
29890 
29891     /* Function Body */
29892 /*     1ST TIER OF GASFIERS */
29893     for (i__ = 1; i__ <= 6; ++i__) {
29894     k1 = i__ + 24;
29895     k2 = i__ + 42;
29896     k3 = i__ + 12;
29897     alp = x[k1] * x[k1] * a[i__ - 1] * 2. * x[k2] / (x[k2] + 1.) * x[k3];
29898 /* labelL20: */
29899     u[i__ - 1] = x[i__] * x[i__] / (x[i__] + alp);
29900     }
29901 /*     2ND TIER OF GASFIERS */
29902     for (i__ = 7; i__ <= 12; ++i__) {
29903     k1 = i__ + 24;
29904     k2 = i__ + 36;
29905     k3 = i__ + 12;
29906     alp = x[k1] * x[k1] * a[i__ - 1] * 2. * x[k2] / (x[k2] + 1.) * x[k3];
29907     sum = x[i__] + u[i__ - 7];
29908 /* L40: */
29909     u[i__ - 1] = sum * sum / (sum + alp);
29910     }
29911 /*     1ST TIER OF METHANATORS */
29912     for (i__ = 13; i__ <= 15; ++i__) {
29913     k1 = ((i__ - 10) << 1) + 1;
29914     k2 = i__ + 24;
29915     alp = x[k2] * x[k2] * a[i__ - 1];
29916     sum = u[k1 - 1] + u[k1];
29917 /* L60: */
29918     u[i__ - 1] = sum * sum / (sum + alp);
29919     }
29920 /*     2ND TIER OF METHANATORS */
29921     for (i__ = 16; i__ <= 18; ++i__) {
29922     k1 = i__ + 24;
29923     alp = x[k1] * x[k1] * a[i__ - 1];
29924     sum = u[i__ - 4];
29925 /* L80: */
29926     u[i__ - 1] = sum * sum / (sum + alp);
29927     }
29928     r__ = u[15] + u[16] + u[17];
29929     phi[1] = 1.5 - r__;
29930     return 0;
29931 } /* tp393b_ */
29932 
29933 
tp394_(int * mode)29934 /* Subroutine */ int tp394_(int *mode)
29935 {
29936     /* System generated locals */
29937     Real d__1, d__2;
29938 
29939     /* Local variables */
29940     static int i__;
29941 
29942     switch ((int)*mode) {
29943     case 1:  goto labelL1;
29944     case 2:  goto labelL2;
29945     case 3:  goto labelL3;
29946     case 4:  goto labelL4;
29947     case 5:  goto labelL5;
29948     }
29949 labelL1:
29950     l1_1.n = 20;
29951     l1_1.nili = 0;
29952     l1_1.ninl = 0;
29953     l1_1.neli = 0;
29954     l1_1.nenl = 1;
29955     for (i__ = 1; i__ <= 20; ++i__) {
29956     l2_13.x[i__ - 1] = 2.;
29957     l12_13.lxu[i__ - 1] = false;
29958 /* labelL6: */
29959     l11_13.lxl[i__ - 1] = false;
29960     }
29961     l20_14.lex = false;
29962     l20_14.nex = 1;
29963     l20_14.fex = 1.9166667;
29964     l20_14.xex[0] = .9128716;
29965     l20_14.xex[1] = .4082468;
29966     l20_14.xex[2] = -1.6746493e-5;
29967     l20_14.xex[3] = -5.4074613e-6;
29968     l20_14.xex[4] = 1.9606096e-6;
29969     l20_14.xex[5] = -8.8626385e-6;
29970     l20_14.xex[6] = 8.1697576e-6;
29971     l20_14.xex[7] = -1.4386551e-5;
29972     l20_14.xex[8] = 2.18312e-5;
29973     l20_14.xex[9] = -1.3873341e-5;
29974     l20_14.xex[10] = 1.3498048e-5;
29975     l20_14.xex[11] = -3.9814429e-6;
29976     l20_14.xex[12] = -1.1023953e-5;
29977     l20_14.xex[13] = -1.280983e-5;
29978     l20_14.xex[14] = 7.9408513e-6;
29979     l20_14.xex[15] = 2.04589e-5;
29980     l20_14.xex[16] = 4.5644559e-6;
29981     l20_14.xex[17] = -9.4429887e-6;
29982     l20_14.xex[18] = -1.0142804e-5;
29983     l20_14.xex[19] = -1.3788343e-6;
29984     return 0;
29985 labelL2:
29986     l6_1.fx = 0.;
29987     for (i__ = 1; i__ <= 20; ++i__) {
29988 /* L8: */
29989 /* Computing 2nd power */
29990     d__1 = l2_13.x[i__ - 1];
29991 /* Computing 4th power */
29992     d__2 = l2_13.x[i__ - 1], d__2 *= d__2;
29993     l6_1.fx += (Real) i__ * (d__1 * d__1 + d__2 * d__2);
29994     }
29995     return 0;
29996 labelL3:
29997     for (i__ = 1; i__ <= 20; ++i__) {
29998 /* labelL9: */
29999 /* Computing 3rd power */
30000     d__1 = l2_13.x[i__ - 1];
30001     l4_13.gf[i__ - 1] = (Real) i__ * (l2_13.x[i__ - 1] * 2. + d__1 *
30002          (d__1 * d__1) * 4.);
30003     }
30004     return 0;
30005 labelL4:
30006     if (! l9_2.index1[0]) {
30007     goto labelL10;
30008     }
30009     l3_1.g[0] = 0.;
30010     for (i__ = 1; i__ <= 20; ++i__) {
30011 /* labelL11: */
30012 /* Computing 2nd power */
30013     d__1 = l2_13.x[i__ - 1];
30014     l3_1.g[0] += d__1 * d__1;
30015     }
30016     l3_1.g[0] += -1.;
30017 labelL10:
30018     return 0;
30019 labelL5:
30020     if (! l10_2.index2[0]) {
30021     goto labelL12;
30022     }
30023     for (i__ = 1; i__ <= 20; ++i__) {
30024 /* labelL13: */
30025     l5_13.gg[i__ - 1] = l2_13.x[i__ - 1] * 2.;
30026     }
30027 labelL12:
30028     return 0;
30029 } /* tp394_ */
30030 
tp395_(int * mode)30031 /* Subroutine */ int tp395_(int *mode)
30032 {
30033     /* System generated locals */
30034     Real d__1, d__2;
30035 
30036     /* Local variables */
30037     static int i__;
30038 
30039     switch ((int)*mode) {
30040     case 1:  goto labelL1;
30041     case 2:  goto labelL2;
30042     case 3:  goto labelL3;
30043     case 4:  goto labelL4;
30044     case 5:  goto labelL5;
30045     }
30046 labelL1:
30047     l1_1.n = 50;
30048     l1_1.nili = 0;
30049     l1_1.ninl = 0;
30050     l1_1.neli = 0;
30051     l1_1.nenl = 1;
30052     for (i__ = 1; i__ <= 50; ++i__) {
30053     l2_15.x[i__ - 1] = 2.;
30054     l12_15.lxu[i__ - 1] = false;
30055 /* labelL6: */
30056     l11_15.lxl[i__ - 1] = false;
30057     }
30058     l20_16.lex = false;
30059     l20_16.nex = 1;
30060     l20_16.fex = 1.9166668;
30061     l20_16.xex[0] = .91285206;
30062     l20_16.xex[1] = .40829045;
30063     l20_16.xex[2] = -6.4969989e-6;
30064     l20_16.xex[3] = -9.9096716e-5;
30065     l20_16.xex[4] = 1.189129e-4;
30066     l20_16.xex[5] = -4.6486687e-5;
30067     l20_16.xex[6] = 5.7605078e-5;
30068     l20_16.xex[7] = -4.8016383e-5;
30069     l20_16.xex[8] = 2.5691371e-5;
30070     l20_16.xex[9] = 1.1670144e-5;
30071     l20_16.xex[10] = -3.0881321e-5;
30072     l20_16.xex[11] = 8.7202482e-6;
30073     l20_16.xex[12] = 1.998037e-5;
30074     l20_16.xex[13] = -1.2338706e-5;
30075     l20_16.xex[14] = -1.6390153e-5;
30076     l20_16.xex[15] = 7.3383634e-6;
30077     l20_16.xex[16] = 1.686298e-5;
30078     l20_16.xex[17] = 4.3922807e-6;
30079     l20_16.xex[18] = -5.8623189e-6;
30080     l20_16.xex[19] = -2.5188987e-6;
30081     l20_16.xex[20] = 4.5980202e-6;
30082     l20_16.xex[21] = 3.2507205e-6;
30083     l20_16.xex[22] = -6.6596023e-6;
30084     l20_16.xex[23] = -1.4419491e-5;
30085     l20_16.xex[24] = -1.2164937e-5;
30086     l20_16.xex[25] = -3.9129061e-6;
30087     l20_16.xex[26] = 9.8985037e-7;
30088     l20_16.xex[27] = 1.4776535e-7;
30089     l20_16.xex[28] = -6.8312704e-7;
30090     l20_16.xex[29] = 2.4242977e-6;
30091     l20_16.xex[30] = 5.3892372e-6;
30092     l20_16.xex[31] = 2.6662956e-6;
30093     l20_16.xex[32] = -2.928209e-6;
30094     l20_16.xex[33] = -3.8338271e-6;
30095     l20_16.xex[34] = 6.1198364e-7;
30096     l20_16.xex[35] = 4.367186e-6;
30097     l20_16.xex[36] = 4.1104627e-6;
30098     l20_16.xex[37] = 1.4549012e-6;
30099     l20_16.xex[38] = -1.2562117e-6;
30100     l20_16.xex[39] = -3.0092086e-6;
30101     l20_16.xex[40] = -3.8620459e-6;
30102     l20_16.xex[41] = -4.2627256e-6;
30103     l20_16.xex[42] = -4.5080325e-6;
30104     l20_16.xex[43] = -4.4852099e-6;
30105     l20_16.xex[44] = -3.7953194e-6;
30106     l20_16.xex[45] = -2.3440318e-6;
30107     l20_16.xex[46] = -7.4816106e-7;
30108     l20_16.xex[47] = -5.4626804e-8;
30109     l20_16.xex[48] = -1.0972677e-6;
30110     l20_16.xex[49] = -2.131277e-6;
30111     return 0;
30112 labelL2:
30113     l6_1.fx = 0.;
30114     for (i__ = 1; i__ <= 50; ++i__) {
30115 /* L8: */
30116 /* Computing 2nd power */
30117     d__1 = l2_15.x[i__ - 1];
30118 /* Computing 4th power */
30119     d__2 = l2_15.x[i__ - 1], d__2 *= d__2;
30120     l6_1.fx += (Real) i__ * (d__1 * d__1 + d__2 * d__2);
30121     }
30122     return 0;
30123 labelL3:
30124     for (i__ = 1; i__ <= 50; ++i__) {
30125 /* Computing 3rd power */
30126     d__1 = l2_15.x[i__ - 1];
30127     l4_15.gf[i__ - 1] = (Real) i__ * (l2_15.x[i__ - 1] * 2. + d__1 *
30128          (d__1 * d__1) * 4.);
30129 /* labelL9: */
30130     l4_15.gf[i__ - 1] = l4_15.gf[i__ - 1];
30131     }
30132     return 0;
30133 labelL4:
30134     if (! l9_2.index1[0]) {
30135     goto labelL10;
30136     }
30137     l3_1.g[0] = 0.;
30138     for (i__ = 1; i__ <= 50; ++i__) {
30139 /* labelL11: */
30140 /* Computing 2nd power */
30141     d__1 = l2_15.x[i__ - 1];
30142     l3_1.g[0] += d__1 * d__1;
30143     }
30144     l3_1.g[0] += -1.;
30145 labelL10:
30146     return 0;
30147 labelL5:
30148     if (! l10_2.index2[0]) {
30149     goto labelL12;
30150     }
30151     for (i__ = 1; i__ <= 50; ++i__) {
30152 /* labelL13: */
30153     l5_16.gg[i__ - 1] = l2_15.x[i__ - 1] * 2.;
30154     }
30155 labelL12:
30156     return 0;
30157 } /* tp395_ */
30158 
30159 
gleich_(Real * p)30160 Real gleich_(Real *p)
30161 {
30162     /* System generated locals */
30163     Real ret_val, d__1;
30164 
30165     /* Local variables */
30166     static Real a, f, y, eps;
30167     static Real eps2;
30168 
30169     eps = 1e-5;
30170     y = *p + 1.;
30171 labelL2:
30172     f = y - *p - std::atan(1. / y);
30173     if (std::abs(f) <= eps) {
30174     goto labelL1;
30175     }
30176     a = y * y + 1.;
30177     a = (a + 1.) / a;
30178     y -= f / a;
30179     goto labelL2;
30180 labelL1:
30181 /* Computing 2nd power */
30182     d__1 = eps;
30183     eps2 = d__1 * d__1;
30184     if (y > eps2) {
30185     ret_val = y;
30186     } else {
30187     ret_val = eps2;
30188     }
30189     return ret_val;
30190 } /* gleich_ */
30191 
30192 
mdnord_(Real * a,Real * b)30193 /* Subroutine */ int mdnord_(Real *a, Real *b)
30194 {
30195     Real norint_(Real *);
30196 
30197     *b = norint_(a);
30198     return 0;
30199 } /* mdnord_ */
30200 
30201 
norint_(Real * x)30202 Real norint_(Real *x)
30203 {
30204     /* Initialized data */
30205 
30206     static Real p1[9] = { 3723.5079815548067,7113.6632469540499,
30207         6758.2169641104859,4032.2670108300497,1631.7602687537147,
30208         456.26145870609263,86.082762211948595,10.064858974909542,
30209         .56418958676181361 };
30210     static Real q1[10] = { 3723.5079815548065,11315.192081854405,
30211         15802.535999402043,13349.346561284457,7542.4795101934758,
30212         2968.0049014823087,817.62238630454408,153.07771075036222,
30213         17.839498439139557,1. };
30214     static Real p2[6] = { 2.9788656263939929,7.4097406059647418,
30215         6.1602098531096305,5.0190497267842675,1.275366644729966,
30216         .56418958354775507 };
30217     static Real q2[7] = { 3.3690752069827528,9.6089653271927879,
30218         17.081440747466004,12.048951927855129,9.3960340162350542,
30219         2.260528520767327,1. };
30220     static Real sqrt2 = 1.41421356237390505;
30221     static Real rsqrtpi = .56418958354775629;
30222 
30223     /* System generated locals */
30224     Real ret_val, d__1;
30225 
30226     /* Local variables */
30227     static Real erfc, xabs, arg, erf, arg2;
30228 
30229 
30230 /*   COMPUTES THE GAUSSIAN NORMAL DISTRIBUTION INTEGRAL */
30231 /*   PRECISION ABOUT 16 DIGITS */
30232 
30233     xabs = std::abs(*x);
30234     if (xabs > .5) {
30235     if (xabs > 8.) {
30236         if (xabs > 100.) {
30237         erfc = 0.;
30238         } else {
30239         arg = xabs / sqrt2;
30240 /* Computing 2nd power */
30241         d__1 = arg;
30242         erfc = (((((p2[5] * arg + p2[4]) * arg + p2[3]) * arg + p2[2])
30243              * arg + p2[1]) * arg + p2[0]) / ((((((arg + q2[5]) *
30244             arg + q2[4]) * arg + q2[3]) * arg + q2[2]) * arg + q2[
30245             1]) * arg + q2[0]) * std::exp(-(d__1 * d__1));
30246         }
30247     } else {
30248         arg = xabs / sqrt2;
30249 /* Computing 2nd power */
30250         d__1 = arg;
30251         erfc = ((((((((p1[8] * arg + p1[7]) * arg + p1[6]) * arg + p1[5])
30252             * arg + p1[4]) * arg + p1[3]) * arg + p1[2]) * arg + p1[1]
30253             ) * arg + p1[0]) / (((((((((arg + q1[8]) * arg + q1[7]) *
30254             arg + q1[6]) * arg + q1[5]) * arg + q1[4]) * arg + q1[3])
30255             * arg + q1[2]) * arg + q1[1]) * arg + q1[0]) * std::exp(-(d__1
30256             * d__1));
30257     }
30258     if (*x < 0.) {
30259         ret_val = erfc * .5;
30260         return ret_val;
30261     } else {
30262         ret_val = (2. - erfc) * .5;
30263         return ret_val;
30264     }
30265     } else {
30266     arg = xabs / sqrt2;
30267 /* Computing 2nd power */
30268     d__1 = arg;
30269     arg2 = d__1 * d__1;
30270     erf = arg * 2. * rsqrtpi * ((((((((((arg2 / 210. -
30271         .052631578947368418) * arg2 / 9. + .058823529411764705) *
30272         arg2 / 8. - .066666666666666666) * arg2 / 7. +
30273         .076923076923076927) * arg2 / 6. - .090909090909090912) *
30274         arg2 / 5. + .1111111111111111) * arg2 / 4. -
30275         .14285714285714285) * arg2 / 3. + .20000000000000001) * arg2 /
30276          2. - .33333333333333331) * arg2 + 1.);
30277     if (*x >= 0.) {
30278         ret_val = (erf + 1.) * .5;
30279         return ret_val;
30280     } else {
30281         ret_val = (1. - erf) * .5;
30282         return ret_val;
30283     }
30284     }
30285     return ret_val;
30286 } /* norint_ */
30287