1 using SimTK::Real;
2
pow_dd(Real * ap,Real * bp)3 double pow_dd( Real *ap, Real *bp ){
4 return( pow(*ap, *bp)) ;
5 }
6
7 typedef union common1{
8 struct {
9 int n, nili, ninl, neli, nenl;
10 } _1;
11 struct {
12 int n, nili, niml, neli, nenl;
13 } _2;
14 struct {
15 int n, nili, neli, nenl;
16 } _3;
17 } L1;
18
19 #define l1_1 (l1_._1)
20 #define l1_2 (l1_._2)
21 #define l1_3 (l1_._3)
22
23 typedef union common2 {
24 struct {
25 Real x[2];
26 } _1;
27 struct {
28 Real x[3];
29 } _2;
30 struct {
31 Real x[4];
32 } _3;
33 struct {
34 Real x[5];
35 } _4;
36 struct {
37 Real x[6];
38 } _5;
39 struct {
40 Real x[7];
41 } _6;
42 struct {
43 Real x[8];
44 } _7;
45 struct {
46 Real x[9];
47 } _8;
48 struct {
49 Real x[10];
50 } _9;
51 struct {
52 Real x[13];
53 } _10;
54 struct {
55 Real x[15];
56 } _11;
57 struct {
58 Real x[16];
59 } _12;
60 struct {
61 Real x[20];
62 } _13;
63 struct {
64 Real x[30];
65 } _14;
66 struct {
67 Real x[50];
68 } _15;
69 struct {
70 Real x[100];
71 } _16;
72 struct {
73 Real x[11];
74 } _17;
75 struct {
76 Real x[12];
77 } _18;
78 struct {
79 Real x[14];
80 } _19;
81 struct {
82 Real x[19];
83 } _20;
84 struct {
85 Real x[48];
86 } _21;
87 } L2;
88
89 #define l2_1 (l2_._1)
90 #define l2_2 (l2_._2)
91 #define l2_3 (l2_._3)
92 #define l2_4 (l2_._4)
93 #define l2_5 (l2_._5)
94 #define l2_6 (l2_._6)
95 #define l2_7 (l2_._7)
96 #define l2_8 (l2_._8)
97 #define l2_9 (l2_._9)
98 #define l2_10 (l2_._10)
99 #define l2_11 (l2_._11)
100 #define l2_12 (l2_._12)
101 #define l2_13 (l2_._13)
102 #define l2_14 (l2_._14)
103 #define l2_15 (l2_._15)
104 #define l2_16 (l2_._16)
105 #define l2_17 (l2_._17)
106 #define l2_18 (l2_._18)
107 #define l2_19 (l2_._19)
108 #define l2_20 (l2_._20)
109 #define l2_21 (l2_._21)
110
111 typedef union common4{
112 struct {
113 Real gf[2];
114 } _1;
115 struct {
116 Real gf[3];
117 } _2;
118 struct {
119 Real gf[4];
120 } _3;
121 struct {
122 Real gf[5];
123 } _4;
124 struct {
125 Real gf[6];
126 } _5;
127 struct {
128 Real gf[7];
129 } _6;
130 struct {
131 Real gf[8];
132 } _7;
133 struct {
134 Real gf[9];
135 } _8;
136 struct {
137 Real gf[10];
138 } _9;
139 struct {
140 Real gf[13];
141 } _10;
142 struct {
143 Real gf[15];
144 } _11;
145 struct {
146 Real gf[16];
147 } _12;
148 struct {
149 Real gf[20];
150 } _13;
151 struct {
152 Real gf[30];
153 } _14;
154 struct {
155 Real gf[50];
156 } _15;
157 struct {
158 Real gf[100];
159 } _16;
160 struct {
161 Real gf[11];
162 } _17;
163 struct {
164 Real gf[12];
165 } _18;
166 struct {
167 Real gf[14];
168 } _19;
169 } L4;
170
171 #define l4_1 (l4_._1)
172 #define l4_2 (l4_._2)
173 #define l4_3 (l4_._3)
174 #define l4_4 (l4_._4)
175 #define l4_5 (l4_._5)
176 #define l4_6 (l4_._6)
177 #define l4_7 (l4_._7)
178 #define l4_8 (l4_._8)
179 #define l4_9 (l4_._9)
180 #define l4_10 (l4_._10)
181 #define l4_11 (l4_._11)
182 #define l4_12 (l4_._12)
183 #define l4_13 (l4_._13)
184 #define l4_14 (l4_._14)
185 #define l4_15 (l4_._15)
186 #define l4_16 (l4_._16)
187 #define l4_17 (l4_._17)
188 #define l4_18 (l4_._18)
189 #define l4_19 (l4_._19)
190
191 typedef struct common6 {
192 Real fx;
193 } L6;
194
195 #define l6_1 l6_
196
197 typedef union common9 {
198 struct {
199 int index1;
200 } _1;
201 struct {
202 bool index1[1];
203 } _2;
204 struct {
205 bool index1[2];
206 } _3;
207 struct {
208 bool index1[3];
209 } _4;
210 struct {
211 bool index1[5];
212 } _5;
213 struct {
214 bool index1[6];
215 } _6;
216 struct {
217 bool index1[4];
218 } _7;
219 struct {
220 bool index1[14];
221 } _8;
222 struct {
223 bool index1[38];
224 } _9;
225 struct {
226 bool index1[10];
227 } _10;
228 struct {
229 bool index1[13];
230 } _11;
231 struct {
232 bool index1[8];
233 } _12;
234 struct {
235 bool index1[11];
236 } _13;
237 struct {
238 bool index1[15];
239 } _14;
240 struct {
241 bool index1[29];
242 } _15;
243 struct {
244 bool index1[9];
245 } _16;
246 struct {
247 bool index1[12];
248 } _17;
249 struct {
250 bool index1[35];
251 } _18;
252 struct {
253 bool index1[45];
254 } _19;
255 } L9;
256
257 #define l9_1 (l9_._1)
258 #define l9_2 (l9_._2)
259 #define l9_3 (l9_._3)
260 #define l9_4 (l9_._4)
261 #define l9_5 (l9_._5)
262 #define l9_6 (l9_._6)
263 #define l9_7 (l9_._7)
264 #define l9_8 (l9_._8)
265 #define l9_9 (l9_._9)
266 #define l9_10 (l9_._10)
267 #define l9_11 (l9_._11)
268 #define l9_12 (l9_._12)
269 #define l9_13 (l9_._13)
270 #define l9_14 (l9_._14)
271 #define l9_15 (l9_._15)
272 #define l9_16 (l9_._16)
273 #define l9_17 (l9_._17)
274 #define l9_18 (l9_._18)
275 #define l9_19 (l9_._19)
276
277 typedef union common10 {
278 struct {
279 int index2;
280 } _1;
281 struct {
282 bool index2[1];
283 } _2;
284 struct {
285 bool index2[2];
286 } _3;
287 struct {
288 bool index2[3];
289 } _4;
290 struct {
291 bool index2[5];
292 } _5;
293 struct {
294 bool index2[6];
295 } _6;
296 struct {
297 bool index2[4];
298 } _7;
299 struct {
300 bool index2[14];
301 } _8;
302 struct {
303 bool index2[38];
304 } _9;
305 struct {
306 bool index2[10];
307 } _10;
308 struct {
309 bool index2[13];
310 } _11;
311 struct {
312 bool index2[8];
313 } _12;
314 struct {
315 bool index2[11];
316 } _13;
317 struct {
318 bool index2[15];
319 } _14;
320 struct {
321 bool index2[29];
322 } _15;
323 struct {
324 bool index2[12];
325 } _16;
326 struct {
327 bool index2[35];
328 } _17;
329 struct {
330 bool index2[9];
331 } _18;
332 } L10;
333
334 #define l10_1 (l10_._1)
335 #define l10_2 (l10_._2)
336 #define l10_3 (l10_._3)
337 #define l10_4 (l10_._4)
338 #define l10_5 (l10_._5)
339 #define l10_6 (l10_._6)
340 #define l10_7 (l10_._7)
341 #define l10_8 (l10_._8)
342 #define l10_9 (l10_._9)
343 #define l10_10 (l10_._10)
344 #define l10_11 (l10_._11)
345 #define l10_12 (l10_._12)
346 #define l10_13 (l10_._13)
347 #define l10_14 (l10_._14)
348 #define l10_15 (l10_._15)
349 #define l10_16 (l10_._16)
350 #define l10_17 (l10_._17)
351 #define l10_18 (l10_._18)
352
353 typedef union common11 {
354 struct {
355 bool lxl[2];
356 } _1;
357 struct {
358 bool lxl[3];
359 } _2;
360 struct {
361 bool lxl[4];
362 } _3;
363 struct {
364 bool lxl[5];
365 } _4;
366 struct {
367 bool lxl[6];
368 } _5;
369 struct {
370 bool lxl[7];
371 } _6;
372 struct {
373 bool lxl[8];
374 } _7;
375 struct {
376 bool lxl[9];
377 } _8;
378 struct {
379 bool lxl[10];
380 } _9;
381 struct {
382 bool lxl[13];
383 } _10;
384 struct {
385 bool lxl[15];
386 } _11;
387 struct {
388 bool lxl[16];
389 } _12;
390 struct {
391 bool lxl[20];
392 } _13;
393 struct {
394 bool lxl[30];
395 } _14;
396 struct {
397 bool lxl[50];
398 } _15;
399 struct {
400 bool lxl[100];
401 } _16;
402 struct {
403 bool lxl[11];
404 } _17;
405 struct {
406 bool lxl[12];
407 } _18;
408 struct {
409 bool lxl[14];
410 } _19;
411 struct {
412 bool lxl[19];
413 } _20;
414 struct {
415 bool lxl[48];
416 } _21;
417 } L11;
418
419 #define l11_1 (l11_._1)
420 #define l11_2 (l11_._2)
421 #define l11_3 (l11_._3)
422 #define l11_4 (l11_._4)
423 #define l11_5 (l11_._5)
424 #define l11_6 (l11_._6)
425 #define l11_7 (l11_._7)
426 #define l11_8 (l11_._8)
427 #define l11_9 (l11_._9)
428 #define l11_10 (l11_._10)
429 #define l11_11 (l11_._11)
430 #define l11_12 (l11_._12)
431 #define l11_13 (l11_._13)
432 #define l11_14 (l11_._14)
433 #define l11_15 (l11_._15)
434 #define l11_16 (l11_._16)
435 #define l11_17 (l11_._17)
436 #define l11_18 (l11_._18)
437 #define l11_19 (l11_._19)
438 #define l11_20 (l11_._20)
439 #define l11_21 (l11_._21)
440
441 typedef union common12{
442 struct {
443 bool lxu[2];
444 } _1;
445 struct {
446 bool lxu[3];
447 } _2;
448 struct {
449 bool lxu[4];
450 } _3;
451 struct {
452 bool lxu[5];
453 } _4;
454 struct {
455 bool lxu[6];
456 } _5;
457 struct {
458 bool lxu[7];
459 } _6;
460 struct {
461 bool lxu[8];
462 } _7;
463 struct {
464 bool lxu[9];
465 } _8;
466 struct {
467 bool lxu[10];
468 } _9;
469 struct {
470 bool lxu[13];
471 } _10;
472 struct {
473 bool lxu[15];
474 } _11;
475 struct {
476 bool lxu[16];
477 } _12;
478 struct {
479 bool lxu[20];
480 } _13;
481 struct {
482 bool lxu[30];
483 } _14;
484 struct {
485 bool lxu[50];
486 } _15;
487 struct {
488 bool lxu[100];
489 } _16;
490 struct {
491 bool lxu[11];
492 } _17;
493 struct {
494 bool lxu[12];
495 } _18;
496 struct {
497 bool lxu[14];
498 } _19;
499 struct {
500 bool lxu[19];
501 } _20;
502 struct {
503 bool lxu[48];
504 } _21;
505 } L12;
506
507 #define l12_1 (l12_._1)
508 #define l12_2 (l12_._2)
509 #define l12_3 (l12_._3)
510 #define l12_4 (l12_._4)
511 #define l12_5 (l12_._5)
512 #define l12_6 (l12_._6)
513 #define l12_7 (l12_._7)
514 #define l12_8 (l12_._8)
515 #define l12_9 (l12_._9)
516 #define l12_10 (l12_._10)
517 #define l12_11 (l12_._11)
518 #define l12_12 (l12_._12)
519 #define l12_13 (l12_._13)
520 #define l12_14 (l12_._14)
521 #define l12_15 (l12_._15)
522 #define l12_16 (l12_._16)
523 #define l12_17 (l12_._17)
524 #define l12_18 (l12_._18)
525 #define l12_19 (l12_._19)
526 #define l12_20 (l12_._20)
527 #define l12_21 (l12_._21)
528
529 typedef union common13 {
530 struct {
531 Real xl[2];
532 } _1;
533 struct {
534 Real xl[3];
535 } _2;
536 struct {
537 Real xl[4];
538 } _3;
539 struct {
540 Real xl[5];
541 } _4;
542 struct {
543 Real xl[6];
544 } _5;
545 struct {
546 Real xl[7];
547 } _6;
548 struct {
549 Real xl[8];
550 } _7;
551 struct {
552 Real xl[9];
553 } _8;
554 struct {
555 Real xl[10];
556 } _9;
557 struct {
558 Real xl[13];
559 } _10;
560 struct {
561 Real xl[15];
562 } _11;
563 struct {
564 Real xl[16];
565 } _12;
566 struct {
567 Real xl[3];
568 } _13;
569 struct {
570 Real xl[4];
571 } _14;
572 struct {
573 Real xl;
574 } _15;
575 struct {
576 Real xl[20];
577 } _16;
578 struct {
579 Real xl[30];
580 } _17;
581 struct {
582 Real xl[50];
583 } _18;
584 struct {
585 Real xl[100];
586 } _19;
587 struct {
588 Real xl[2];
589 } _20;
590 struct {
591 Real xl[11];
592 } _21;
593 struct {
594 Real xl[12];
595 } _22;
596 struct {
597 Real xl[14];
598 } _23;
599 struct {
600 Real xl[19];
601 } _24;
602 struct {
603 Real xl[48];
604 } _25;
605 } L13;
606
607 #define l13_1 (l13_._1)
608 #define l13_2 (l13_._2)
609 #define l13_3 (l13_._3)
610 #define l13_4 (l13_._4)
611 #define l13_5 (l13_._5)
612 #define l13_6 (l13_._6)
613 #define l13_7 (l13_._7)
614 #define l13_8 (l13_._8)
615 #define l13_9 (l13_._9)
616 #define l13_10 (l13_._10)
617 #define l13_11 (l13_._11)
618 #define l13_12 (l13_._12)
619 #define l13_13 (l13_._13)
620 #define l13_14 (l13_._14)
621 #define l13_15 (l13_._15)
622 #define l13_16 (l13_._16)
623 #define l13_17 (l13_._17)
624 #define l13_18 (l13_._18)
625 #define l13_19 (l13_._19)
626 #define l13_20 (l13_._20)
627 #define l13_21 (l13_._21)
628 #define l13_22 (l13_._22)
629 #define l13_23 (l13_._23)
630 #define l13_24 (l13_._24)
631 #define l13_25 (l13_._25)
632
633 typedef union common20 {
634 struct {
635 bool lex;
636 int nex;
637 Real fex, xex[2];
638 } _1;
639 struct {
640 bool lex;
641 int nex;
642 Real fex, xex[8];
643 } _2;
644 struct {
645 bool lex;
646 int nex;
647 Real fex, xex[3];
648 } _3;
649 struct {
650 bool lex;
651 int nex;
652 Real fex, xex[6];
653 } _4;
654 struct {
655 bool lex;
656 int nex;
657 Real fex, xex[12];
658 } _5;
659 struct {
660 bool lex;
661 int nex;
662 Real fex, xex[4];
663 } _6;
664 struct {
665 bool lex;
666 int nex;
667 Real fex, xex[5];
668 } _7;
669 struct {
670 bool lex;
671 int nex;
672 Real fex, xex[7];
673 } _8;
674 struct {
675 bool lex;
676 int nex;
677 Real fex, xex[9];
678 } _9;
679 struct {
680 bool lex;
681 int nex;
682 Real fex, xex[10];
683 } _10;
684 struct {
685 bool lex;
686 int nex;
687 Real fex, xex[13];
688 } _11;
689 struct {
690 bool lex;
691 int nex;
692 Real fex, xex[15];
693 } _12;
694 struct {
695 bool lex;
696 int nex;
697 Real fex, xex[16];
698 } _13;
699 struct {
700 bool lex;
701 int nex;
702 Real fex, xex[20];
703 } _14;
704 struct {
705 bool lex;
706 int nex;
707 Real fex, xex[30];
708 } _15;
709 struct {
710 bool lex;
711 int nex;
712 Real fex, xex[50];
713 } _16;
714 struct {
715 bool lex;
716 int nex;
717 Real fex, xex[100];
718 } _17;
719 struct {
720 bool lex;
721 int nex;
722 Real fex, xex[11];
723 } _18;
724 struct {
725 bool lex;
726 int nex;
727 Real fex, xex[14];
728 } _19;
729 struct {
730 bool lex;
731 int nex;
732 Real fex, xex[19];
733 } _20;
734 struct {
735 bool lex;
736 int nex;
737 Real fex, xex[48];
738 } _21;
739 } L20;
740
741 #define l20_1 (l20_._1)
742 #define l20_2 (l20_._2)
743 #define l20_3 (l20_._3)
744 #define l20_4 (l20_._4)
745 #define l20_5 (l20_._5)
746 #define l20_6 (l20_._6)
747 #define l20_7 (l20_._7)
748 #define l20_8 (l20_._8)
749 #define l20_9 (l20_._9)
750 #define l20_10 (l20_._10)
751 #define l20_11 (l20_._11)
752 #define l20_12 (l20_._12)
753 #define l20_13 (l20_._13)
754 #define l20_14 (l20_._14)
755 #define l20_15 (l20_._15)
756 #define l20_16 (l20_._16)
757 #define l20_17 (l20_._17)
758 #define l20_18 (l20_._18)
759 #define l20_19 (l20_._19)
760 #define l20_20 (l20_._20)
761 #define l20_21 (l20_._21)
762
763 typedef union common14 {
764 struct {
765 Real xu[2];
766 } _1;
767 struct {
768 Real xu[3];
769 } _2;
770 struct {
771 Real xu[4];
772 } _3;
773 struct {
774 Real xu[5];
775 } _4;
776 struct {
777 Real xu[6];
778 } _5;
779 struct {
780 Real xu[7];
781 } _6;
782 struct {
783 Real xu[8];
784 } _7;
785 struct {
786 Real xu[9];
787 } _8;
788 struct {
789 Real xu[10];
790 } _9;
791 struct {
792 Real xu[13];
793 } _10;
794 struct {
795 Real xu[15];
796 } _11;
797 struct {
798 Real xu[16];
799 } _12;
800 struct {
801 Real xu[3];
802 } _13;
803 struct {
804 Real xu[4];
805 } _14;
806 struct {
807 Real xu;
808 } _15;
809 struct {
810 Real xu[20];
811 } _16;
812 struct {
813 Real xu[30];
814 } _17;
815 struct {
816 Real xu[50];
817 } _18;
818 struct {
819 Real xu[100];
820 } _19;
821 struct {
822 Real xu[2];
823 } _20;
824 struct {
825 Real xu[11];
826 } _21;
827 struct {
828 Real xu[12];
829 } _22;
830 struct {
831 Real xu[14];
832 } _23;
833 struct {
834 Real xu[19];
835 } _24;
836 struct {
837 Real xu[48];
838 } _25;
839 } L14;
840
841 #define l14_1 (l14_._1)
842 #define l14_2 (l14_._2)
843 #define l14_3 (l14_._3)
844 #define l14_4 (l14_._4)
845 #define l14_5 (l14_._5)
846 #define l14_6 (l14_._6)
847 #define l14_7 (l14_._7)
848 #define l14_8 (l14_._8)
849 #define l14_9 (l14_._9)
850 #define l14_10 (l14_._10)
851 #define l14_11 (l14_._11)
852 #define l14_12 (l14_._12)
853 #define l14_13 (l14_._13)
854 #define l14_14 (l14_._14)
855 #define l14_15 (l14_._15)
856 #define l14_16 (l14_._16)
857 #define l14_17 (l14_._17)
858 #define l14_18 (l14_._18)
859 #define l14_19 (l14_._19)
860 #define l14_20 (l14_._20)
861 #define l14_21 (l14_._21)
862 #define l14_22 (l14_._22)
863 #define l14_23 (l14_._23)
864 #define l14_24 (l14_._24)
865 #define l14_25 (l14_._25)
866
867 typedef union common3 {
868 struct {
869 Real g[1];
870 } _1;
871 struct {
872 Real g[2];
873 } _2;
874 struct {
875 Real g[3];
876 } _3;
877 struct {
878 Real g[5];
879 } _4;
880 struct {
881 Real g[6];
882 } _5;
883 struct {
884 Real g[4];
885 } _6;
886 struct {
887 Real g[14];
888 } _7;
889 struct {
890 Real g[38];
891 } _8;
892 struct {
893 Real g[10];
894 } _9;
895 struct {
896 Real g[13];
897 } _10;
898 struct {
899 Real g[8];
900 } _11;
901 struct {
902 Real g[11];
903 } _12;
904 struct {
905 Real g[15];
906 } _13;
907 struct {
908 Real g[29];
909 } _14;
910 struct {
911 Real g[9];
912 } _15;
913 struct {
914 Real g[12];
915 } _16;
916 struct {
917 Real g[35];
918 } _17;
919 struct {
920 Real g[45];
921 } _18;
922 } L3;
923
924 #define l3_1 (l3_._1)
925 #define l3_2 (l3_._2)
926 #define l3_3 (l3_._3)
927 #define l3_4 (l3_._4)
928 #define l3_5 (l3_._5)
929 #define l3_6 (l3_._6)
930 #define l3_7 (l3_._7)
931 #define l3_8 (l3_._8)
932 #define l3_9 (l3_._9)
933 #define l3_10 (l3_._10)
934 #define l3_11 (l3_._11)
935 #define l3_12 (l3_._12)
936 #define l3_13 (l3_._13)
937 #define l3_14 (l3_._14)
938 #define l3_15 (l3_._15)
939 #define l3_16 (l3_._16)
940 #define l3_17 (l3_._17)
941 #define l3_18 (l3_._18)
942
943 typedef union common5 {
944 struct {
945 Real gg[2] /* was [1][2] */;
946 } _1;
947 struct {
948 Real gg[4] /* was [2][2] */;
949 } _2;
950 struct {
951 Real gg[6] /* was [3][2] */;
952 } _3;
953 struct {
954 Real gg[10] /* was [5][2] */;
955 } _4;
956 struct {
957 Real gg[3] /* was [1][3] */;
958 } _5;
959 struct {
960 Real gg[8] /* was [2][4] */;
961 } _6;
962 struct {
963 Real gg[12] /* was [3][4] */;
964 } _7;
965 struct {
966 Real gg[24] /* was [6][4] */;
967 } _8;
968 struct {
969 Real gg[15] /* was [3][5] */;
970 } _9;
971 struct {
972 Real gg[36] /* was [6][6] */;
973 } _10;
974 struct {
975 Real gg[28] /* was [4][7] */;
976 } _11;
977 struct {
978 Real gg[42] /* was [14][3] */;
979 } _12;
980 struct {
981 Real gg[20] /* was [5][4] */;
982 } _13;
983 struct {
984 Real gg[30] /* was [6][5] */;
985 } _14;
986 struct {
987 Real gg[190] /* was [38][5] */;
988 } _15;
989 struct {
990 Real gg[50] /* was [10][5] */;
991 } _16;
992 struct {
993 Real gg[14] /* was [2][7] */;
994 } _17;
995 struct {
996 Real gg[48] /* was [6][8] */;
997 } _18;
998 struct {
999 Real gg[54] /* was [6][9] */;
1000 } _19;
1001 struct {
1002 Real gg[117] /* was [13][9] */;
1003 } _20;
1004 struct {
1005 Real gg[90] /* was [10][9] */;
1006 } _21;
1007 struct {
1008 Real gg[80] /* was [8][10] */;
1009 } _22;
1010 struct {
1011 Real gg[110] /* was [11][10] */;
1012 } _23;
1013 struct {
1014 Real gg[195] /* was [15][13] */;
1015 } _24;
1016 struct {
1017 Real gg[75] /* was [5][15] */;
1018 } _25;
1019 struct {
1020 Real gg[435] /* was [29][15] */;
1021 } _26;
1022 struct {
1023 Real gg[128] /* was [8][16] */;
1024 } _27;
1025 struct {
1026 Real gg[16] /* was [4][4] */;
1027 } _28;
1028 struct {
1029 Real gg[25] /* was [5][5] */;
1030 } _29;
1031 struct {
1032 Real gg[5] /* was [1][5] */;
1033 } _30;
1034 struct {
1035 Real gg[100] /* was [10][10] */;
1036 } _31;
1037 struct {
1038 Real gg[150];
1039 } _32;
1040 struct {
1041 Real gg[70] /* was [14][5] */;
1042 } _33;
1043 struct {
1044 Real gg[35] /* was [5][7] */;
1045 } _34;
1046 struct {
1047 Real gg[98] /* was [14][7] */;
1048 } _35;
1049 struct {
1050 Real gg[108] /* was [12][9] */;
1051 } _36;
1052 struct {
1053 Real gg[350] /* was [35][10] */;
1054 } _37;
1055 struct {
1056 Real gg[52] /* was [4][13] */;
1057 } _38;
1058 struct {
1059 Real gg[165] /* was [11][15] */;
1060 } _39;
1061 struct {
1062 Real gg[225] /* was [15][15] */;
1063 } _40;
1064 } L5;
1065
1066 #define l5_1 (l5_._1)
1067 #define l5_2 (l5_._2)
1068 #define l5_3 (l5_._3)
1069 #define l5_4 (l5_._4)
1070 #define l5_5 (l5_._5)
1071 #define l5_6 (l5_._6)
1072 #define l5_7 (l5_._7)
1073 #define l5_8 (l5_._8)
1074 #define l5_9 (l5_._9)
1075 #define l5_10 (l5_._10)
1076 #define l5_11 (l5_._11)
1077 #define l5_12 (l5_._12)
1078 #define l5_13 (l5_._13)
1079 #define l5_14 (l5_._14)
1080 #define l5_15 (l5_._15)
1081 #define l5_16 (l5_._16)
1082 #define l5_17 (l5_._17)
1083 #define l5_18 (l5_._18)
1084 #define l5_19 (l5_._19)
1085 #define l5_20 (l5_._20)
1086 #define l5_21 (l5_._21)
1087 #define l5_22 (l5_._22)
1088 #define l5_23 (l5_._23)
1089 #define l5_24 (l5_._24)
1090 #define l5_25 (l5_._25)
1091 #define l5_26 (l5_._26)
1092 #define l5_27 (l5_._27)
1093 #define l5_28 (l5_._28)
1094 #define l5_29 (l5_._29)
1095 #define l5_30 (l5_._30)
1096 #define l5_31 (l5_._31)
1097 #define l5_32 (l5_._32)
1098 #define l5_33 (l5_._33)
1099 #define l5_34 (l5_._34)
1100 #define l5_35 (l5_._35)
1101 #define l5_36 (l5_._36)
1102 #define l5_37 (l5_._37)
1103 #define l5_38 (l5_._38)
1104 #define l5_39 (l5_._39)
1105 #define l5_40 (l5_._40)
1106
1107 static struct {
1108 int lsum;
1109 } l15_;
1110
1111 #define l15_1 l15_
1112
1113 static union {
1114 struct {
1115 Real f[2];
1116 } _1;
1117 struct {
1118 Real f[3];
1119 } _2;
1120 struct {
1121 Real f[5];
1122 } _3;
1123 struct {
1124 Real f[10];
1125 } _4;
1126 struct {
1127 Real f[4];
1128 } _5;
1129 struct {
1130 Real f[7];
1131 } _6;
1132 struct {
1133 Real f[11];
1134 } _7;
1135 struct {
1136 Real f[6];
1137 } _8;
1138 struct {
1139 Real f[13];
1140 } _9;
1141 struct {
1142 Real f[20];
1143 } _10;
1144 struct {
1145 Real f[1];
1146 } _11;
1147 struct {
1148 Real f[198];
1149 } _12;
1150 struct {
1151 Real f[44];
1152 } _13;
1153 struct {
1154 Real f[8];
1155 } _14;
1156 struct {
1157 Real f[15];
1158 } _15;
1159 struct {
1160 Real f[40];
1161 } _16;
1162 struct {
1163 Real f[33];
1164 } _17;
1165 struct {
1166 Real f[31];
1167 } _18;
1168 struct {
1169 Real f[65];
1170 } _19;
1171 } l16_;
1172
1173 #define l16_1 (l16_._1)
1174 #define l16_2 (l16_._2)
1175 #define l16_3 (l16_._3)
1176 #define l16_4 (l16_._4)
1177 #define l16_5 (l16_._5)
1178 #define l16_6 (l16_._6)
1179 #define l16_7 (l16_._7)
1180 #define l16_8 (l16_._8)
1181 #define l16_9 (l16_._9)
1182 #define l16_10 (l16_._10)
1183 #define l16_11 (l16_._11)
1184 #define l16_12 (l16_._12)
1185 #define l16_13 (l16_._13)
1186 #define l16_14 (l16_._14)
1187 #define l16_15 (l16_._15)
1188 #define l16_16 (l16_._16)
1189 #define l16_17 (l16_._17)
1190 #define l16_18 (l16_._18)
1191 #define l16_19 (l16_._19)
1192
1193 static union {
1194 struct {
1195 Real df[4] /* was [2][2] */;
1196 } _1;
1197 struct {
1198 Real df[6] /* was [3][2] */;
1199 } _2;
1200 struct {
1201 Real df[15] /* was [5][3] */;
1202 } _3;
1203 struct {
1204 Real df[30] /* was [10][3] */;
1205 } _4;
1206 struct {
1207 Real df[12] /* was [4][3] */;
1208 } _5;
1209 struct {
1210 Real df[9] /* was [3][3] */;
1211 } _6;
1212 struct {
1213 Real df[28] /* was [7][4] */;
1214 } _7;
1215 struct {
1216 Real df[20] /* was [5][4] */;
1217 } _8;
1218 struct {
1219 Real df[50] /* was [10][5] */;
1220 } _9;
1221 struct {
1222 Real df[55] /* was [11][5] */;
1223 } _10;
1224 struct {
1225 Real df[36] /* was [6][6] */;
1226 } _11;
1227 struct {
1228 Real df[78] /* was [13][6] */;
1229 } _12;
1230 struct {
1231 Real df[110] /* was [11][10] */;
1232 } _13;
1233 struct {
1234 Real df[19800] /* was [198][100] */;
1235 } _14;
1236 struct {
1237 Real df[88] /* was [44][2] */;
1238 } _15;
1239 struct {
1240 Real df[24] /* was [8][3] */;
1241 } _16;
1242 struct {
1243 Real df[45] /* was [15][3] */;
1244 } _17;
1245 struct {
1246 Real df[44] /* was [11][4] */;
1247 } _18;
1248 struct {
1249 Real df[160] /* was [40][4] */;
1250 } _19;
1251 struct {
1252 Real df[165] /* was [33][5] */;
1253 } _20;
1254 struct {
1255 Real df[279] /* was [31][9] */;
1256 } _21;
1257 struct {
1258 Real df[54] /* was [6][9] */;
1259 } _22;
1260 struct {
1261 Real df[100] /* was [10][10] */;
1262 } _23;
1263 struct {
1264 Real df[715] /* was [65][11] */;
1265 } _24;
1266 } l17_;
1267
1268 #define l17_1 (l17_._1)
1269 #define l17_2 (l17_._2)
1270 #define l17_3 (l17_._3)
1271 #define l17_4 (l17_._4)
1272 #define l17_5 (l17_._5)
1273 #define l17_6 (l17_._6)
1274 #define l17_7 (l17_._7)
1275 #define l17_8 (l17_._8)
1276 #define l17_9 (l17_._9)
1277 #define l17_10 (l17_._10)
1278 #define l17_11 (l17_._11)
1279 #define l17_12 (l17_._12)
1280 #define l17_13 (l17_._13)
1281 #define l17_14 (l17_._14)
1282 #define l17_15 (l17_._15)
1283 #define l17_16 (l17_._16)
1284 #define l17_17 (l17_._17)
1285 #define l17_18 (l17_._18)
1286 #define l17_19 (l17_._19)
1287 #define l17_20 (l17_._20)
1288 #define l17_21 (l17_._21)
1289 #define l17_22 (l17_._22)
1290 #define l17_23 (l17_._23)
1291 #define l17_24 (l17_._24)
1292
1293 struct b_1_ {
1294 Real xmu, rho, thick[100], w2, dthick[100];
1295 int kkk;
1296 };
1297 struct b_2_ {
1298 Real xmu, rho, thick[100], w, dthick[100];
1299 int kkk;
1300 };
1301
1302 #define b_1 (*(struct b_1_ *) &b_)
1303 #define b_2 (*(struct b_2_ *) &b_)
1304
1305 static struct {
1306 Real value2;
1307 } st_;
1308
1309 #define st_1 st_
1310
1311 static struct {
1312 Real tmax;
1313 } tfn1_;
1314
1315 #define tfn1_1 tfn1_
1316
1317
1318