source: trunk/src/Yworkdir/Y1sinobad.h @ 1

Last change on this file since 1 was 1, checked in by jbrlod, 13 years ago

Import initial

  • Property svn:eol-style set to native
File size: 247.2 KB
Line 
1
2//----------------------------------------------------
3// project: sinobad     header generated by YAO version v.9
4//----------------------------------------------------
5
6// DEFINE FOR PARALLELISM
7#define NOT_PARALLEL
8
9//€ € € € LES DECLARATIONS DE CLASS, DEFINE ET ALLOCATION DU PROJET
10#define         NPCA    15
11#define         NX      32
12#define         NY      22
13#define         NZ      31
14#define         TA      50
15#define         TU      2
16#define         Y3_M    8
17#define         YO_M1QN3
18#define         YO_GRADTEST
19#define         YDOUBLE
20#define         YTINY  1.e-15
21#define         YREAL double
22
23#define         YNBUPTIME_Tcst          0
24#define         YNBSTEPTIME_Tcst        1
25#define         YNBALLTIME_Tcst         1
26#define         YDt_Tcst        YTabTraj[0].dtime
27#define         Yid_Tcst        0
28
29#define         YNBUPTIME_Tsbd          2
30#define         YNBSTEPTIME_Tsbd        50
31#define         YNBALLTIME_Tsbd         52
32#define         YDt_Tsbd        YTabTraj[1].dtime
33#define         Yid_Tsbd        1
34
35#define         YA1_S0d         1
36#define         YDIM_S0d                1
37#define         YNB_S0d         1
38#define         Yid_S0d         0
39
40#define         YA1_S3d         32
41#define         YA2_S3d         22
42#define         YA3_S3d         31
43#define         YA2A3_S3d               682
44#define         YDIM_S3d                3
45#define         YNB_S3d         21824
46#define         Yid_S3d         1
47
48#define         YA1_S3dt                32
49#define         YA2_S3dt                22
50#define         YA3_S3dt                31
51#define         YA2A3_S3dt              682
52#define         YDIM_S3dt               3
53#define         YNB_S3dt                21824
54#define         Yid_S3dt        2
55
56/*----------------- GENERATION OF MODULES... -------------*/
57
58//~~~~~~~~~~~~~~~~~~~~~~~~~ module sshn_c~~~~~~~~~~~~~~~~~~~~~~~~~
59#define Yid_sshn_c 0
60/*M2_VALST  */ #define   Ydelta_sshn_c(v, i, j, t)               Ysshn_c[i][j]->Ydelta[t][v] 
61/*M2_VALST  */ #define   YD_sshn_c(v, i, j, t)           Ysshn_c[i][j]->Ydelta[t][v] 
62/*M2_VALSIT */ #define   YD1_sshn_c(i, j, t)             Ysshn_c[i][j]->Ydelta[t][0] 
63/*M2_HERESIT*/ #define   YD1Y_sshn_c             Ysshn_c[Yi][Yj]->Ydelta[YTemps][0] 
64
65class Yaosshn_c;
66/*NBMOD     */ #define   YNB_sshn_c      704
67/*NBSMOD    */ #define   YNBS_sshn_c     1
68/*M2_IRMOD  */ #define   Ysshn_c(i, j)   Ysshn_c[i][j]
69/*M2_NOWMOD */ #define   Ysshn_cY                Ysshn_c[Yi][Yj]
70/*M2_VALSG  */ #define   Ystate_sshn_c(v, i, j)                  Ysshn_c[i][j]->Ystate[v] 
71/*M2_VALSG  */ #define   YS_sshn_c(v, i, j)              Ysshn_c[i][j]->Ystate[v] 
72/*M2_VALSGI */ #define   YS1_sshn_c(i, j)                Ysshn_c[i][j]->Ystate[0] 
73/*M2_HERESGI*/ #define   YS1Y_sshn_c             Ysshn_c[Yi][Yj]->Ystate[0] 
74/*M2_VALSG  */ #define   Ygrad_sshn_c(v, i, j)           Ysshn_c[i][j]->Ygrad[v] 
75/*M2_VALSG  */ #define   YG_sshn_c(v, i, j)              Ysshn_c[i][j]->Ygrad[v] 
76/*M2_VALSGI */ #define   YG1_sshn_c(i, j)                Ysshn_c[i][j]->Ygrad[0] 
77/*M2_HERESGI*/ #define   YG1Y_sshn_c             Ysshn_c[Yi][Yj]->Ygrad[0] 
78Yaosshn_c                *Ysshn_c[YA1_S3d][YA2_S3d];
79
80//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_c~~~~~~~~~~~~~~~~~~~~~~~~~
81#define Yid_ta_c 1
82#define YNBPTARGET_ta_c 0
83#define YDEBTARGET_ta_c 0
84#define YENDTARGET_ta_c 0
85/*M3_VALST  */ #define   Ydelta_ta_c(v, i, j, k, t)      Yta_c[i][j][k]->Ydelta[t][v] 
86/*M3_VALST  */ #define   YD_ta_c(v, i, j, k, t)                  Yta_c[i][j][k]->Ydelta[t][v] 
87/*M3_VALSIT */ #define   YD1_ta_c(i, j, k, t)            Yta_c[i][j][k]->Ydelta[t][0] 
88/*M3_HERESIT*/ #define   YD1Y_ta_c               Yta_c[Yi][Yj][Yk]->Ydelta[YTemps][0] 
89
90class Yaota_c;
91/*NBSMOD    */ #define   YNBS_ta_c       1
92/*M3_IRMOD  */ #define   Yta_c(i, j, k)          Yta_c[i][j][k]
93/*M3_NOWMOD */ #define   Yta_cY                  Yta_c[Yi][Yj][Yk]
94/*M3_VALSG  */ #define   Ystate_ta_c(v, i, j, k)         Yta_c[i][j][k]->Ystate[v] 
95/*M3_VALSG  */ #define   YS_ta_c(v, i, j, k)             Yta_c[i][j][k]->Ystate[v] 
96/*M3_VALSGI */ #define   YS1_ta_c(i, j, k)               Yta_c[i][j][k]->Ystate[0] 
97/*M3_HERESGI*/ #define   YS1Y_ta_c               Yta_c[Yi][Yj][Yk]->Ystate[0] 
98/*M3_VALSG  */ #define   Ygrad_ta_c(v, i, j, k)          Yta_c[i][j][k]->Ygrad[v] 
99/*M3_VALSG  */ #define   YG_ta_c(v, i, j, k)             Yta_c[i][j][k]->Ygrad[v] 
100/*M3_VALSGI */ #define   YG1_ta_c(i, j, k)               Yta_c[i][j][k]->Ygrad[0] 
101/*M3_HERESGI*/ #define   YG1Y_ta_c               Yta_c[Yi][Yj][Yk]->Ygrad[0] 
102/*M3_VALSG  */ #define   Yepsi_ta_c(v, i, j, k)          Yta_c[i][j][k]->Yepsi[v] 
103/*M3_VALSG  */ #define   YE_ta_c(v, i, j, k)             Yta_c[i][j][k]->Yepsi[v] 
104/*M3_VALSGI */ #define   YE1_ta_c(i, j, k)               Yta_c[i][j][k]->Yepsi[0] 
105Yaota_c                  *Yta_c[YA1_S3d][YA2_S3d][YA3_S3d];
106/*M3_VALSG  */ #define   Ywish_ta_c(v, i, j, k)          Yta_c[i][j][k]->Ywish[v] 
107/*M3_VALSG  */ #define   YW_ta_c(v, i, j, k)             Yta_c[i][j][k]->Ywish[v] 
108/*M3_VALSGI */ #define   YW1_ta_c(i, j, k)               Yta_c[i][j][k]->Ywish[0] 
109/*M3_HERESGI*/ #define   YW1Y_ta_c               Yta_c[Yi][Yj][Yk]->Ywish[0] 
110
111//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_c~~~~~~~~~~~~~~~~~~~~~~~~~
112#define Yid_sa_c 2
113/*M3_VALST  */ #define   Ydelta_sa_c(v, i, j, k, t)      Ysa_c[i][j][k]->Ydelta[t][v] 
114/*M3_VALST  */ #define   YD_sa_c(v, i, j, k, t)                  Ysa_c[i][j][k]->Ydelta[t][v] 
115/*M3_VALSIT */ #define   YD1_sa_c(i, j, k, t)            Ysa_c[i][j][k]->Ydelta[t][0] 
116/*M3_HERESIT*/ #define   YD1Y_sa_c               Ysa_c[Yi][Yj][Yk]->Ydelta[YTemps][0] 
117
118class Yaosa_c;
119/*NBSMOD    */ #define   YNBS_sa_c       1
120/*M3_IRMOD  */ #define   Ysa_c(i, j, k)          Ysa_c[i][j][k]
121/*M3_NOWMOD */ #define   Ysa_cY                  Ysa_c[Yi][Yj][Yk]
122/*M3_VALSG  */ #define   Ystate_sa_c(v, i, j, k)         Ysa_c[i][j][k]->Ystate[v] 
123/*M3_VALSG  */ #define   YS_sa_c(v, i, j, k)             Ysa_c[i][j][k]->Ystate[v] 
124/*M3_VALSGI */ #define   YS1_sa_c(i, j, k)               Ysa_c[i][j][k]->Ystate[0] 
125/*M3_HERESGI*/ #define   YS1Y_sa_c               Ysa_c[Yi][Yj][Yk]->Ystate[0] 
126/*M3_VALSG  */ #define   Ygrad_sa_c(v, i, j, k)          Ysa_c[i][j][k]->Ygrad[v] 
127/*M3_VALSG  */ #define   YG_sa_c(v, i, j, k)             Ysa_c[i][j][k]->Ygrad[v] 
128/*M3_VALSGI */ #define   YG1_sa_c(i, j, k)               Ysa_c[i][j][k]->Ygrad[0] 
129/*M3_HERESGI*/ #define   YG1Y_sa_c               Ysa_c[Yi][Yj][Yk]->Ygrad[0] 
130Yaosa_c                  *Ysa_c[YA1_S3d][YA2_S3d][YA3_S3d];
131
132//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_c~~~~~~~~~~~~~~~~~~~~~~~~~
133#define Yid_ua_c 3
134/*M3_VALST  */ #define   Ydelta_ua_c(v, i, j, k, t)      Yua_c[i][j][k]->Ydelta[t][v] 
135/*M3_VALST  */ #define   YD_ua_c(v, i, j, k, t)                  Yua_c[i][j][k]->Ydelta[t][v] 
136/*M3_VALSIT */ #define   YD1_ua_c(i, j, k, t)            Yua_c[i][j][k]->Ydelta[t][0] 
137/*M3_HERESIT*/ #define   YD1Y_ua_c               Yua_c[Yi][Yj][Yk]->Ydelta[YTemps][0] 
138
139class Yaoua_c;
140/*NBSMOD    */ #define   YNBS_ua_c       1
141/*M3_IRMOD  */ #define   Yua_c(i, j, k)          Yua_c[i][j][k]
142/*M3_NOWMOD */ #define   Yua_cY                  Yua_c[Yi][Yj][Yk]
143/*M3_VALSG  */ #define   Ystate_ua_c(v, i, j, k)         Yua_c[i][j][k]->Ystate[v] 
144/*M3_VALSG  */ #define   YS_ua_c(v, i, j, k)             Yua_c[i][j][k]->Ystate[v] 
145/*M3_VALSGI */ #define   YS1_ua_c(i, j, k)               Yua_c[i][j][k]->Ystate[0] 
146/*M3_HERESGI*/ #define   YS1Y_ua_c               Yua_c[Yi][Yj][Yk]->Ystate[0] 
147/*M3_VALSG  */ #define   Ygrad_ua_c(v, i, j, k)          Yua_c[i][j][k]->Ygrad[v] 
148/*M3_VALSG  */ #define   YG_ua_c(v, i, j, k)             Yua_c[i][j][k]->Ygrad[v] 
149/*M3_VALSGI */ #define   YG1_ua_c(i, j, k)               Yua_c[i][j][k]->Ygrad[0] 
150/*M3_HERESGI*/ #define   YG1Y_ua_c               Yua_c[Yi][Yj][Yk]->Ygrad[0] 
151Yaoua_c                  *Yua_c[YA1_S3d][YA2_S3d][YA3_S3d];
152
153//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_c~~~~~~~~~~~~~~~~~~~~~~~~~
154#define Yid_va_c 4
155/*M3_VALST  */ #define   Ydelta_va_c(v, i, j, k, t)      Yva_c[i][j][k]->Ydelta[t][v] 
156/*M3_VALST  */ #define   YD_va_c(v, i, j, k, t)                  Yva_c[i][j][k]->Ydelta[t][v] 
157/*M3_VALSIT */ #define   YD1_va_c(i, j, k, t)            Yva_c[i][j][k]->Ydelta[t][0] 
158/*M3_HERESIT*/ #define   YD1Y_va_c               Yva_c[Yi][Yj][Yk]->Ydelta[YTemps][0] 
159
160class Yaova_c;
161/*NBSMOD    */ #define   YNBS_va_c       1
162/*M3_IRMOD  */ #define   Yva_c(i, j, k)          Yva_c[i][j][k]
163/*M3_NOWMOD */ #define   Yva_cY                  Yva_c[Yi][Yj][Yk]
164/*M3_VALSG  */ #define   Ystate_va_c(v, i, j, k)         Yva_c[i][j][k]->Ystate[v] 
165/*M3_VALSG  */ #define   YS_va_c(v, i, j, k)             Yva_c[i][j][k]->Ystate[v] 
166/*M3_VALSGI */ #define   YS1_va_c(i, j, k)               Yva_c[i][j][k]->Ystate[0] 
167/*M3_HERESGI*/ #define   YS1Y_va_c               Yva_c[Yi][Yj][Yk]->Ystate[0] 
168/*M3_VALSG  */ #define   Ygrad_va_c(v, i, j, k)          Yva_c[i][j][k]->Ygrad[v] 
169/*M3_VALSG  */ #define   YG_va_c(v, i, j, k)             Yva_c[i][j][k]->Ygrad[v] 
170/*M3_VALSGI */ #define   YG1_va_c(i, j, k)               Yva_c[i][j][k]->Ygrad[0] 
171/*M3_HERESGI*/ #define   YG1Y_va_c               Yva_c[Yi][Yj][Yk]->Ygrad[0] 
172Yaova_c                  *Yva_c[YA1_S3d][YA2_S3d][YA3_S3d];
173
174//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_qsr_qns~~~~~~~~~~~~~~~~~~~~~~~~~
175#define Yid_sbcgyre_qsr_qns 5
176/*M2_VALST  */ #define   Ydelta_sbcgyre_qsr_qns(v, i, j, t)              Ysbcgyre_qsr_qns[i][j]->Ydelta[t][v] 
177/*M2_VALST  */ #define   YD_sbcgyre_qsr_qns(v, i, j, t)                  Ysbcgyre_qsr_qns[i][j]->Ydelta[t][v] 
178/*M2_VALSIT */ #define   YD1_sbcgyre_qsr_qns(i, j, t)            Ysbcgyre_qsr_qns[i][j]->Ydelta[t][0] 
179/*M2_VALSIT */ #define   YD2_sbcgyre_qsr_qns(i, j, t)            Ysbcgyre_qsr_qns[i][j]->Ydelta[t][1] 
180/*M2_HERESIT*/ #define   YD1Y_sbcgyre_qsr_qns            Ysbcgyre_qsr_qns[Yi][Yj]->Ydelta[YTemps][0] 
181/*M2_HERESIT*/ #define   YD2Y_sbcgyre_qsr_qns            Ysbcgyre_qsr_qns[Yi][Yj]->Ydelta[YTemps][1] 
182
183class Yaosbcgyre_qsr_qns;
184class sbcgyre_qsr_qns;
185/*NBMOD     */ #define   YNB_sbcgyre_qsr_qns     704
186/*NBSMOD    */ #define   YNBS_sbcgyre_qsr_qns    2
187/*NBIMOD    */ #define   YNBI_sbcgyre_qsr_qns    1
188/*M2_IRMOD  */ #define   Ysbcgyre_qsr_qns(i, j)          Ysbcgyre_qsr_qns[i][j]
189/*M2_NOWMOD */ #define   Ysbcgyre_qsr_qnsY               Ysbcgyre_qsr_qns[Yi][Yj]
190/*M2_VALST  */ #define   Ystate_sbcgyre_qsr_qns(v, i, j, t)              Ysbcgyre_qsr_qns[i][j]->Ystate[t][v] 
191/*M2_VALST  */ #define   YS_sbcgyre_qsr_qns(v, i, j, t)                  Ysbcgyre_qsr_qns[i][j]->Ystate[t][v] 
192/*M2_VALSIT */ #define   YS1_sbcgyre_qsr_qns(i, j, t)            Ysbcgyre_qsr_qns[i][j]->Ystate[t][0] 
193/*M2_HERESIT*/ #define   YS1Y_sbcgyre_qsr_qns            Ysbcgyre_qsr_qns[Yi][Yj]->Ystate[YTemps][0] 
194/*M2_VALSIT */ #define   YS2_sbcgyre_qsr_qns(i, j, t)            Ysbcgyre_qsr_qns[i][j]->Ystate[t][1] 
195/*M2_HERESIT*/ #define   YS2Y_sbcgyre_qsr_qns            Ysbcgyre_qsr_qns[Yi][Yj]->Ystate[YTemps][1] 
196/*M2_VALST  */ #define   Ygrad_sbcgyre_qsr_qns(v, i, j, t)               Ysbcgyre_qsr_qns[i][j]->Ygrad[t][v] 
197/*M2_VALST  */ #define   YG_sbcgyre_qsr_qns(v, i, j, t)                  Ysbcgyre_qsr_qns[i][j]->Ygrad[t][v] 
198/*M2_VALSIT */ #define   YG1_sbcgyre_qsr_qns(i, j, t)            Ysbcgyre_qsr_qns[i][j]->Ygrad[t][0] 
199/*M2_HERESIT*/ #define   YG1Y_sbcgyre_qsr_qns            Ysbcgyre_qsr_qns[Yi][Yj]->Ygrad[YTemps][0] 
200/*M2_VALSIT */ #define   YG2_sbcgyre_qsr_qns(i, j, t)            Ysbcgyre_qsr_qns[i][j]->Ygrad[t][1] 
201/*M2_HERESIT*/ #define   YG2Y_sbcgyre_qsr_qns            Ysbcgyre_qsr_qns[Yi][Yj]->Ygrad[YTemps][1] 
202sbcgyre_qsr_qns                  *Ysbcgyre_qsr_qns[YA1_S3dt][YA2_S3dt];
203
204//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emp1~~~~~~~~~~~~~~~~~~~~~~~~~
205#define Yid_sbcgyre_emp1 6
206/*M2_VALST  */ #define   Ydelta_sbcgyre_emp1(v, i, j, t)                 Ysbcgyre_emp1[i][j]->Ydelta[t][v] 
207/*M2_VALST  */ #define   YD_sbcgyre_emp1(v, i, j, t)             Ysbcgyre_emp1[i][j]->Ydelta[t][v] 
208/*M2_VALSIT */ #define   YD1_sbcgyre_emp1(i, j, t)               Ysbcgyre_emp1[i][j]->Ydelta[t][0] 
209/*M2_HERESIT*/ #define   YD1Y_sbcgyre_emp1               Ysbcgyre_emp1[Yi][Yj]->Ydelta[YTemps][0] 
210
211class Yaosbcgyre_emp1;
212class sbcgyre_emp1;
213/*NBMOD     */ #define   YNB_sbcgyre_emp1        704
214/*NBSMOD    */ #define   YNBS_sbcgyre_emp1       1
215/*M2_IRMOD  */ #define   Ysbcgyre_emp1(i, j)     Ysbcgyre_emp1[i][j]
216/*M2_NOWMOD */ #define   Ysbcgyre_emp1Y                  Ysbcgyre_emp1[Yi][Yj]
217/*M2_VALST  */ #define   Ystate_sbcgyre_emp1(v, i, j, t)                 Ysbcgyre_emp1[i][j]->Ystate[t][v] 
218/*M2_VALST  */ #define   YS_sbcgyre_emp1(v, i, j, t)             Ysbcgyre_emp1[i][j]->Ystate[t][v] 
219/*M2_VALSIT */ #define   YS1_sbcgyre_emp1(i, j, t)               Ysbcgyre_emp1[i][j]->Ystate[t][0] 
220/*M2_HERESIT*/ #define   YS1Y_sbcgyre_emp1               Ysbcgyre_emp1[Yi][Yj]->Ystate[YTemps][0] 
221/*M2_VALST  */ #define   Ygrad_sbcgyre_emp1(v, i, j, t)                  Ysbcgyre_emp1[i][j]->Ygrad[t][v] 
222/*M2_VALST  */ #define   YG_sbcgyre_emp1(v, i, j, t)             Ysbcgyre_emp1[i][j]->Ygrad[t][v] 
223/*M2_VALSIT */ #define   YG1_sbcgyre_emp1(i, j, t)               Ysbcgyre_emp1[i][j]->Ygrad[t][0] 
224/*M2_HERESIT*/ #define   YG1Y_sbcgyre_emp1               Ysbcgyre_emp1[Yi][Yj]->Ygrad[YTemps][0] 
225sbcgyre_emp1             *Ysbcgyre_emp1[YA1_S3dt][YA2_S3dt];
226
227//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_zsumemp_zsurf~~~~~~~~~~~~~~~~~~~~~~~~~
228#define Yid_sbcgyre_zsumemp_zsurf 7
229/*M2_VALST  */ #define   Ydelta_sbcgyre_zsumemp_zsurf(v, i, j, t)                Ysbcgyre_zsumemp_zsurf[i][j]->Ydelta[t][v] 
230/*M2_VALST  */ #define   YD_sbcgyre_zsumemp_zsurf(v, i, j, t)            Ysbcgyre_zsumemp_zsurf[i][j]->Ydelta[t][v] 
231/*M2_VALSIT */ #define   YD1_sbcgyre_zsumemp_zsurf(i, j, t)              Ysbcgyre_zsumemp_zsurf[i][j]->Ydelta[t][0] 
232/*M2_VALSIT */ #define   YD2_sbcgyre_zsumemp_zsurf(i, j, t)              Ysbcgyre_zsumemp_zsurf[i][j]->Ydelta[t][1] 
233/*M2_HERESIT*/ #define   YD1Y_sbcgyre_zsumemp_zsurf              Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ydelta[YTemps][0] 
234/*M2_HERESIT*/ #define   YD2Y_sbcgyre_zsumemp_zsurf              Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ydelta[YTemps][1] 
235
236class Yaosbcgyre_zsumemp_zsurf;
237class sbcgyre_zsumemp_zsurf;
238/*NBMOD     */ #define   YNB_sbcgyre_zsumemp_zsurf       704
239/*NBSMOD    */ #define   YNBS_sbcgyre_zsumemp_zsurf      2
240/*NBIMOD    */ #define   YNBI_sbcgyre_zsumemp_zsurf      5
241/*M2_IRMOD  */ #define   Ysbcgyre_zsumemp_zsurf(i, j)    Ysbcgyre_zsumemp_zsurf[i][j]
242/*M2_NOWMOD */ #define   Ysbcgyre_zsumemp_zsurfY                 Ysbcgyre_zsumemp_zsurf[Yi][Yj]
243/*M2_VALST  */ #define   Ystate_sbcgyre_zsumemp_zsurf(v, i, j, t)                Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][v] 
244/*M2_VALST  */ #define   YS_sbcgyre_zsumemp_zsurf(v, i, j, t)            Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][v] 
245/*M2_VALSIT */ #define   YS1_sbcgyre_zsumemp_zsurf(i, j, t)              Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][0] 
246/*M2_HERESIT*/ #define   YS1Y_sbcgyre_zsumemp_zsurf              Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ystate[YTemps][0] 
247/*M2_VALSIT */ #define   YS2_sbcgyre_zsumemp_zsurf(i, j, t)              Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][1] 
248/*M2_HERESIT*/ #define   YS2Y_sbcgyre_zsumemp_zsurf              Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ystate[YTemps][1] 
249/*M2_VALST  */ #define   Ygrad_sbcgyre_zsumemp_zsurf(v, i, j, t)                 Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][v] 
250/*M2_VALST  */ #define   YG_sbcgyre_zsumemp_zsurf(v, i, j, t)            Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][v] 
251/*M2_VALSIT */ #define   YG1_sbcgyre_zsumemp_zsurf(i, j, t)              Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][0] 
252/*M2_HERESIT*/ #define   YG1Y_sbcgyre_zsumemp_zsurf              Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ygrad[YTemps][0] 
253/*M2_VALSIT */ #define   YG2_sbcgyre_zsumemp_zsurf(i, j, t)              Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][1] 
254/*M2_HERESIT*/ #define   YG2Y_sbcgyre_zsumemp_zsurf              Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ygrad[YTemps][1] 
255sbcgyre_zsumemp_zsurf            *Ysbcgyre_zsumemp_zsurf[YA1_S3dt][YA2_S3dt];
256
257//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emp~~~~~~~~~~~~~~~~~~~~~~~~~
258#define Yid_sbcgyre_emp 8
259/*M2_VALST  */ #define   Ydelta_sbcgyre_emp(v, i, j, t)                  Ysbcgyre_emp[i][j]->Ydelta[t][v] 
260/*M2_VALST  */ #define   YD_sbcgyre_emp(v, i, j, t)              Ysbcgyre_emp[i][j]->Ydelta[t][v] 
261/*M2_VALSIT */ #define   YD1_sbcgyre_emp(i, j, t)                Ysbcgyre_emp[i][j]->Ydelta[t][0] 
262/*M2_HERESIT*/ #define   YD1Y_sbcgyre_emp                Ysbcgyre_emp[Yi][Yj]->Ydelta[YTemps][0] 
263
264class Yaosbcgyre_emp;
265class sbcgyre_emp;
266/*NBMOD     */ #define   YNB_sbcgyre_emp         704
267/*NBSMOD    */ #define   YNBS_sbcgyre_emp        1
268/*NBIMOD    */ #define   YNBI_sbcgyre_emp        3
269/*M2_IRMOD  */ #define   Ysbcgyre_emp(i, j)      Ysbcgyre_emp[i][j]
270/*M2_NOWMOD */ #define   Ysbcgyre_empY           Ysbcgyre_emp[Yi][Yj]
271/*M2_VALST  */ #define   Ystate_sbcgyre_emp(v, i, j, t)                  Ysbcgyre_emp[i][j]->Ystate[t][v] 
272/*M2_VALST  */ #define   YS_sbcgyre_emp(v, i, j, t)              Ysbcgyre_emp[i][j]->Ystate[t][v] 
273/*M2_VALSIT */ #define   YS1_sbcgyre_emp(i, j, t)                Ysbcgyre_emp[i][j]->Ystate[t][0] 
274/*M2_HERESIT*/ #define   YS1Y_sbcgyre_emp                Ysbcgyre_emp[Yi][Yj]->Ystate[YTemps][0] 
275/*M2_VALST  */ #define   Ygrad_sbcgyre_emp(v, i, j, t)           Ysbcgyre_emp[i][j]->Ygrad[t][v] 
276/*M2_VALST  */ #define   YG_sbcgyre_emp(v, i, j, t)              Ysbcgyre_emp[i][j]->Ygrad[t][v] 
277/*M2_VALSIT */ #define   YG1_sbcgyre_emp(i, j, t)                Ysbcgyre_emp[i][j]->Ygrad[t][0] 
278/*M2_HERESIT*/ #define   YG1Y_sbcgyre_emp                Ysbcgyre_emp[Yi][Yj]->Ygrad[YTemps][0] 
279sbcgyre_emp              *Ysbcgyre_emp[YA1_S3dt][YA2_S3dt];
280
281//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emps~~~~~~~~~~~~~~~~~~~~~~~~~
282#define Yid_sbcgyre_emps 9
283/*M2_VALST  */ #define   Ydelta_sbcgyre_emps(v, i, j, t)                 Ysbcgyre_emps[i][j]->Ydelta[t][v] 
284/*M2_VALST  */ #define   YD_sbcgyre_emps(v, i, j, t)             Ysbcgyre_emps[i][j]->Ydelta[t][v] 
285/*M2_VALSIT */ #define   YD1_sbcgyre_emps(i, j, t)               Ysbcgyre_emps[i][j]->Ydelta[t][0] 
286/*M2_HERESIT*/ #define   YD1Y_sbcgyre_emps               Ysbcgyre_emps[Yi][Yj]->Ydelta[YTemps][0] 
287
288class Yaosbcgyre_emps;
289class sbcgyre_emps;
290/*NBMOD     */ #define   YNB_sbcgyre_emps        704
291/*NBSMOD    */ #define   YNBS_sbcgyre_emps       1
292/*NBIMOD    */ #define   YNBI_sbcgyre_emps       1
293/*M2_IRMOD  */ #define   Ysbcgyre_emps(i, j)     Ysbcgyre_emps[i][j]
294/*M2_NOWMOD */ #define   Ysbcgyre_empsY                  Ysbcgyre_emps[Yi][Yj]
295/*M2_VALST  */ #define   Ystate_sbcgyre_emps(v, i, j, t)                 Ysbcgyre_emps[i][j]->Ystate[t][v] 
296/*M2_VALST  */ #define   YS_sbcgyre_emps(v, i, j, t)             Ysbcgyre_emps[i][j]->Ystate[t][v] 
297/*M2_VALSIT */ #define   YS1_sbcgyre_emps(i, j, t)               Ysbcgyre_emps[i][j]->Ystate[t][0] 
298/*M2_HERESIT*/ #define   YS1Y_sbcgyre_emps               Ysbcgyre_emps[Yi][Yj]->Ystate[YTemps][0] 
299/*M2_VALST  */ #define   Ygrad_sbcgyre_emps(v, i, j, t)                  Ysbcgyre_emps[i][j]->Ygrad[t][v] 
300/*M2_VALST  */ #define   YG_sbcgyre_emps(v, i, j, t)             Ysbcgyre_emps[i][j]->Ygrad[t][v] 
301/*M2_VALSIT */ #define   YG1_sbcgyre_emps(i, j, t)               Ysbcgyre_emps[i][j]->Ygrad[t][0] 
302/*M2_HERESIT*/ #define   YG1Y_sbcgyre_emps               Ysbcgyre_emps[Yi][Yj]->Ygrad[YTemps][0] 
303sbcgyre_emps             *Ysbcgyre_emps[YA1_S3dt][YA2_S3dt];
304
305//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_utau_vtau~~~~~~~~~~~~~~~~~~~~~~~~~
306#define Yid_sbcgyre_utau_vtau 10
307/*M2_VALST  */ #define   Ydelta_sbcgyre_utau_vtau(v, i, j, t)            Ysbcgyre_utau_vtau[i][j]->Ydelta[t][v] 
308/*M2_VALST  */ #define   YD_sbcgyre_utau_vtau(v, i, j, t)                Ysbcgyre_utau_vtau[i][j]->Ydelta[t][v] 
309/*M2_VALSIT */ #define   YD1_sbcgyre_utau_vtau(i, j, t)                  Ysbcgyre_utau_vtau[i][j]->Ydelta[t][0] 
310/*M2_VALSIT */ #define   YD2_sbcgyre_utau_vtau(i, j, t)                  Ysbcgyre_utau_vtau[i][j]->Ydelta[t][1] 
311/*M2_HERESIT*/ #define   YD1Y_sbcgyre_utau_vtau                  Ysbcgyre_utau_vtau[Yi][Yj]->Ydelta[YTemps][0] 
312/*M2_HERESIT*/ #define   YD2Y_sbcgyre_utau_vtau                  Ysbcgyre_utau_vtau[Yi][Yj]->Ydelta[YTemps][1] 
313
314class Yaosbcgyre_utau_vtau;
315class sbcgyre_utau_vtau;
316/*NBMOD     */ #define   YNB_sbcgyre_utau_vtau   704
317/*NBSMOD    */ #define   YNBS_sbcgyre_utau_vtau          2
318/*M2_IRMOD  */ #define   Ysbcgyre_utau_vtau(i, j)        Ysbcgyre_utau_vtau[i][j]
319/*M2_NOWMOD */ #define   Ysbcgyre_utau_vtauY             Ysbcgyre_utau_vtau[Yi][Yj]
320/*M2_VALST  */ #define   Ystate_sbcgyre_utau_vtau(v, i, j, t)            Ysbcgyre_utau_vtau[i][j]->Ystate[t][v] 
321/*M2_VALST  */ #define   YS_sbcgyre_utau_vtau(v, i, j, t)                Ysbcgyre_utau_vtau[i][j]->Ystate[t][v] 
322/*M2_VALSIT */ #define   YS1_sbcgyre_utau_vtau(i, j, t)                  Ysbcgyre_utau_vtau[i][j]->Ystate[t][0] 
323/*M2_HERESIT*/ #define   YS1Y_sbcgyre_utau_vtau                  Ysbcgyre_utau_vtau[Yi][Yj]->Ystate[YTemps][0] 
324/*M2_VALSIT */ #define   YS2_sbcgyre_utau_vtau(i, j, t)                  Ysbcgyre_utau_vtau[i][j]->Ystate[t][1] 
325/*M2_HERESIT*/ #define   YS2Y_sbcgyre_utau_vtau                  Ysbcgyre_utau_vtau[Yi][Yj]->Ystate[YTemps][1] 
326/*M2_VALST  */ #define   Ygrad_sbcgyre_utau_vtau(v, i, j, t)             Ysbcgyre_utau_vtau[i][j]->Ygrad[t][v] 
327/*M2_VALST  */ #define   YG_sbcgyre_utau_vtau(v, i, j, t)                Ysbcgyre_utau_vtau[i][j]->Ygrad[t][v] 
328/*M2_VALSIT */ #define   YG1_sbcgyre_utau_vtau(i, j, t)                  Ysbcgyre_utau_vtau[i][j]->Ygrad[t][0] 
329/*M2_HERESIT*/ #define   YG1Y_sbcgyre_utau_vtau                  Ysbcgyre_utau_vtau[Yi][Yj]->Ygrad[YTemps][0] 
330/*M2_VALSIT */ #define   YG2_sbcgyre_utau_vtau(i, j, t)                  Ysbcgyre_utau_vtau[i][j]->Ygrad[t][1] 
331/*M2_HERESIT*/ #define   YG2Y_sbcgyre_utau_vtau                  Ysbcgyre_utau_vtau[Yi][Yj]->Ygrad[YTemps][1] 
332sbcgyre_utau_vtau                *Ysbcgyre_utau_vtau[YA1_S3dt][YA2_S3dt];
333
334//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_wndm~~~~~~~~~~~~~~~~~~~~~~~~~
335#define Yid_sbcgyre_wndm 11
336/*M2_VALST  */ #define   Ydelta_sbcgyre_wndm(v, i, j, t)                 Ysbcgyre_wndm[i][j]->Ydelta[t][v] 
337/*M2_VALST  */ #define   YD_sbcgyre_wndm(v, i, j, t)             Ysbcgyre_wndm[i][j]->Ydelta[t][v] 
338/*M2_VALSIT */ #define   YD1_sbcgyre_wndm(i, j, t)               Ysbcgyre_wndm[i][j]->Ydelta[t][0] 
339/*M2_HERESIT*/ #define   YD1Y_sbcgyre_wndm               Ysbcgyre_wndm[Yi][Yj]->Ydelta[YTemps][0] 
340
341class Yaosbcgyre_wndm;
342class sbcgyre_wndm;
343/*NBMOD     */ #define   YNB_sbcgyre_wndm        704
344/*NBSMOD    */ #define   YNBS_sbcgyre_wndm       1
345/*NBIMOD    */ #define   YNBI_sbcgyre_wndm       4
346/*M2_IRMOD  */ #define   Ysbcgyre_wndm(i, j)     Ysbcgyre_wndm[i][j]
347/*M2_NOWMOD */ #define   Ysbcgyre_wndmY                  Ysbcgyre_wndm[Yi][Yj]
348/*M2_VALST  */ #define   Ystate_sbcgyre_wndm(v, i, j, t)                 Ysbcgyre_wndm[i][j]->Ystate[t][v] 
349/*M2_VALST  */ #define   YS_sbcgyre_wndm(v, i, j, t)             Ysbcgyre_wndm[i][j]->Ystate[t][v] 
350/*M2_VALSIT */ #define   YS1_sbcgyre_wndm(i, j, t)               Ysbcgyre_wndm[i][j]->Ystate[t][0] 
351/*M2_HERESIT*/ #define   YS1Y_sbcgyre_wndm               Ysbcgyre_wndm[Yi][Yj]->Ystate[YTemps][0] 
352/*M2_VALST  */ #define   Ygrad_sbcgyre_wndm(v, i, j, t)                  Ysbcgyre_wndm[i][j]->Ygrad[t][v] 
353/*M2_VALST  */ #define   YG_sbcgyre_wndm(v, i, j, t)             Ysbcgyre_wndm[i][j]->Ygrad[t][v] 
354/*M2_VALSIT */ #define   YG1_sbcgyre_wndm(i, j, t)               Ysbcgyre_wndm[i][j]->Ygrad[t][0] 
355/*M2_HERESIT*/ #define   YG1Y_sbcgyre_wndm               Ysbcgyre_wndm[Yi][Yj]->Ygrad[YTemps][0] 
356sbcgyre_wndm             *Ysbcgyre_wndm[YA1_S3dt][YA2_S3dt];
357
358//~~~~~~~~~~~~~~~~~~~~~~~~~ module bn2_rn2~~~~~~~~~~~~~~~~~~~~~~~~~
359#define Yid_bn2_rn2 12
360/*M3_VALST  */ #define   Ydelta_bn2_rn2(v, i, j, k, t)   Ybn2_rn2[i][j][k]->Ydelta[t][v] 
361/*M3_VALST  */ #define   YD_bn2_rn2(v, i, j, k, t)               Ybn2_rn2[i][j][k]->Ydelta[t][v] 
362/*M3_VALSIT */ #define   YD1_bn2_rn2(i, j, k, t)                 Ybn2_rn2[i][j][k]->Ydelta[t][0] 
363/*M3_HERESIT*/ #define   YD1Y_bn2_rn2            Ybn2_rn2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
364
365class Yaobn2_rn2;
366class bn2_rn2;
367/*NBSMOD    */ #define   YNBS_bn2_rn2    1
368/*NBIMOD    */ #define   YNBI_bn2_rn2    4
369/*M3_IRMOD  */ #define   Ybn2_rn2(i, j, k)       Ybn2_rn2[i][j][k]
370/*M3_NOWMOD */ #define   Ybn2_rn2Y               Ybn2_rn2[Yi][Yj][Yk]
371/*M3_VALST  */ #define   Ystate_bn2_rn2(v, i, j, k, t)   Ybn2_rn2[i][j][k]->Ystate[t][v] 
372/*M3_VALST  */ #define   YS_bn2_rn2(v, i, j, k, t)               Ybn2_rn2[i][j][k]->Ystate[t][v] 
373/*M3_VALSIT */ #define   YS1_bn2_rn2(i, j, k, t)                 Ybn2_rn2[i][j][k]->Ystate[t][0] 
374/*M3_HERESIT*/ #define   YS1Y_bn2_rn2            Ybn2_rn2[Yi][Yj][Yk]->Ystate[YTemps][0] 
375/*M3_VALST  */ #define   Ygrad_bn2_rn2(v, i, j, k, t)    Ybn2_rn2[i][j][k]->Ygrad[t][v] 
376/*M3_VALST  */ #define   YG_bn2_rn2(v, i, j, k, t)               Ybn2_rn2[i][j][k]->Ygrad[t][v] 
377/*M3_VALSIT */ #define   YG1_bn2_rn2(i, j, k, t)                 Ybn2_rn2[i][j][k]->Ygrad[t][0] 
378/*M3_HERESIT*/ #define   YG1Y_bn2_rn2            Ybn2_rn2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
379bn2_rn2                  *Ybn2_rn2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
380
381//~~~~~~~~~~~~~~~~~~~~~~~~~ module zdf_avt_avmu_avmv~~~~~~~~~~~~~~~~~~~~~~~~~
382#define Yid_zdf_avt_avmu_avmv 13
383/*M3_VALST  */ #define   Ydelta_zdf_avt_avmu_avmv(v, i, j, k, t)         Yzdf_avt_avmu_avmv[i][j][k]->Ydelta[t][v] 
384/*M3_VALST  */ #define   YD_zdf_avt_avmu_avmv(v, i, j, k, t)             Yzdf_avt_avmu_avmv[i][j][k]->Ydelta[t][v] 
385/*M3_VALSIT */ #define   YD1_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ydelta[t][0] 
386/*M3_VALSIT */ #define   YD2_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ydelta[t][1] 
387/*M3_VALSIT */ #define   YD3_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ydelta[t][2] 
388/*M3_HERESIT*/ #define   YD1Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ydelta[YTemps][0] 
389/*M3_HERESIT*/ #define   YD2Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ydelta[YTemps][1] 
390/*M3_HERESIT*/ #define   YD3Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ydelta[YTemps][2] 
391
392class Yaozdf_avt_avmu_avmv;
393class zdf_avt_avmu_avmv;
394/*NBSMOD    */ #define   YNBS_zdf_avt_avmu_avmv          3
395/*NBIMOD    */ #define   YNBI_zdf_avt_avmu_avmv          19
396/*M3_IRMOD  */ #define   Yzdf_avt_avmu_avmv(i, j, k)     Yzdf_avt_avmu_avmv[i][j][k]
397/*M3_NOWMOD */ #define   Yzdf_avt_avmu_avmvY             Yzdf_avt_avmu_avmv[Yi][Yj][Yk]
398/*M3_VALST  */ #define   Ystate_zdf_avt_avmu_avmv(v, i, j, k, t)         Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][v] 
399/*M3_VALST  */ #define   YS_zdf_avt_avmu_avmv(v, i, j, k, t)             Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][v] 
400/*M3_VALSIT */ #define   YS1_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][0] 
401/*M3_HERESIT*/ #define   YS1Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ystate[YTemps][0] 
402/*M3_VALSIT */ #define   YS2_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][1] 
403/*M3_HERESIT*/ #define   YS2Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ystate[YTemps][1] 
404/*M3_VALSIT */ #define   YS3_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][2] 
405/*M3_HERESIT*/ #define   YS3Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ystate[YTemps][2] 
406/*M3_VALST  */ #define   Ygrad_zdf_avt_avmu_avmv(v, i, j, k, t)          Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][v] 
407/*M3_VALST  */ #define   YG_zdf_avt_avmu_avmv(v, i, j, k, t)             Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][v] 
408/*M3_VALSIT */ #define   YG1_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][0] 
409/*M3_HERESIT*/ #define   YG1Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ygrad[YTemps][0] 
410/*M3_VALSIT */ #define   YG2_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][1] 
411/*M3_HERESIT*/ #define   YG2Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ygrad[YTemps][1] 
412/*M3_VALSIT */ #define   YG3_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][2] 
413/*M3_HERESIT*/ #define   YG3Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ygrad[YTemps][2] 
414zdf_avt_avmu_avmv                *Yzdf_avt_avmu_avmv[YA1_S3dt][YA2_S3dt][YA3_S3dt];
415
416//~~~~~~~~~~~~~~~~~~~~~~~~~ module zdfmxl_hmld~~~~~~~~~~~~~~~~~~~~~~~~~
417#define Yid_zdfmxl_hmld 14
418/*M2_VALST  */ #define   Ydelta_zdfmxl_hmld(v, i, j, t)                  Yzdfmxl_hmld[i][j]->Ydelta[t][v] 
419/*M2_VALST  */ #define   YD_zdfmxl_hmld(v, i, j, t)              Yzdfmxl_hmld[i][j]->Ydelta[t][v] 
420/*M2_VALSIT */ #define   YD1_zdfmxl_hmld(i, j, t)                Yzdfmxl_hmld[i][j]->Ydelta[t][0] 
421/*M2_HERESIT*/ #define   YD1Y_zdfmxl_hmld                Yzdfmxl_hmld[Yi][Yj]->Ydelta[YTemps][0] 
422
423class Yaozdfmxl_hmld;
424class zdfmxl_hmld;
425/*NBMOD     */ #define   YNB_zdfmxl_hmld         704
426/*NBSMOD    */ #define   YNBS_zdfmxl_hmld        1
427/*NBIMOD    */ #define   YNBI_zdfmxl_hmld        31
428/*M2_IRMOD  */ #define   Yzdfmxl_hmld(i, j)      Yzdfmxl_hmld[i][j]
429/*M2_NOWMOD */ #define   Yzdfmxl_hmldY           Yzdfmxl_hmld[Yi][Yj]
430/*M2_VALST  */ #define   Ystate_zdfmxl_hmld(v, i, j, t)                  Yzdfmxl_hmld[i][j]->Ystate[t][v] 
431/*M2_VALST  */ #define   YS_zdfmxl_hmld(v, i, j, t)              Yzdfmxl_hmld[i][j]->Ystate[t][v] 
432/*M2_VALSIT */ #define   YS1_zdfmxl_hmld(i, j, t)                Yzdfmxl_hmld[i][j]->Ystate[t][0] 
433/*M2_HERESIT*/ #define   YS1Y_zdfmxl_hmld                Yzdfmxl_hmld[Yi][Yj]->Ystate[YTemps][0] 
434/*M2_VALST  */ #define   Ygrad_zdfmxl_hmld(v, i, j, t)           Yzdfmxl_hmld[i][j]->Ygrad[t][v] 
435/*M2_VALST  */ #define   YG_zdfmxl_hmld(v, i, j, t)              Yzdfmxl_hmld[i][j]->Ygrad[t][v] 
436/*M2_VALSIT */ #define   YG1_zdfmxl_hmld(i, j, t)                Yzdfmxl_hmld[i][j]->Ygrad[t][0] 
437/*M2_HERESIT*/ #define   YG1Y_zdfmxl_hmld                Yzdfmxl_hmld[Yi][Yj]->Ygrad[YTemps][0] 
438zdfmxl_hmld              *Yzdfmxl_hmld[YA1_S3dt][YA2_S3dt];
439
440//~~~~~~~~~~~~~~~~~~~~~~~~~ module zdfmxl_nmln_hmlp_hmlpt~~~~~~~~~~~~~~~~~~~~~~~~~
441#define Yid_zdfmxl_nmln_hmlp_hmlpt 15
442/*M2_VALST  */ #define   Ydelta_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t)               Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ydelta[t][v] 
443/*M2_VALST  */ #define   YD_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t)           Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ydelta[t][v] 
444/*M2_VALSIT */ #define   YD1_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ydelta[t][0] 
445/*M2_VALSIT */ #define   YD2_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ydelta[t][1] 
446/*M2_VALSIT */ #define   YD3_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ydelta[t][2] 
447/*M2_HERESIT*/ #define   YD1Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ydelta[YTemps][0] 
448/*M2_HERESIT*/ #define   YD2Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ydelta[YTemps][1] 
449/*M2_HERESIT*/ #define   YD3Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ydelta[YTemps][2] 
450
451class Yaozdfmxl_nmln_hmlp_hmlpt;
452class zdfmxl_nmln_hmlp_hmlpt;
453/*NBMOD     */ #define   YNB_zdfmxl_nmln_hmlp_hmlpt      704
454/*NBSMOD    */ #define   YNBS_zdfmxl_nmln_hmlp_hmlpt     3
455/*NBIMOD    */ #define   YNBI_zdfmxl_nmln_hmlp_hmlpt     31
456/*M2_IRMOD  */ #define   Yzdfmxl_nmln_hmlp_hmlpt(i, j)   Yzdfmxl_nmln_hmlp_hmlpt[i][j]
457/*M2_NOWMOD */ #define   Yzdfmxl_nmln_hmlp_hmlptY                Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]
458/*M2_VALST  */ #define   Ystate_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t)               Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][v] 
459/*M2_VALST  */ #define   YS_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t)           Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][v] 
460/*M2_VALSIT */ #define   YS1_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][0] 
461/*M2_HERESIT*/ #define   YS1Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ystate[YTemps][0] 
462/*M2_VALSIT */ #define   YS2_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][1] 
463/*M2_HERESIT*/ #define   YS2Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ystate[YTemps][1] 
464/*M2_VALSIT */ #define   YS3_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][2] 
465/*M2_HERESIT*/ #define   YS3Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ystate[YTemps][2] 
466/*M2_VALST  */ #define   Ygrad_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t)                Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][v] 
467/*M2_VALST  */ #define   YG_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t)           Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][v] 
468/*M2_VALSIT */ #define   YG1_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][0] 
469/*M2_HERESIT*/ #define   YG1Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ygrad[YTemps][0] 
470/*M2_VALSIT */ #define   YG2_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][1] 
471/*M2_HERESIT*/ #define   YG2Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ygrad[YTemps][1] 
472/*M2_VALSIT */ #define   YG3_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][2] 
473/*M2_HERESIT*/ #define   YG3Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ygrad[YTemps][2] 
474zdfmxl_nmln_hmlp_hmlpt           *Yzdfmxl_nmln_hmlp_hmlpt[YA1_S3dt][YA2_S3dt];
475
476//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_sa_trasbc~~~~~~~~~~~~~~~~~~~~~~~~~
477#define Yid_ta_sa_trasbc 16
478/*M2_VALST  */ #define   Ydelta_ta_sa_trasbc(v, i, j, t)                 Yta_sa_trasbc[i][j]->Ydelta[t][v] 
479/*M2_VALST  */ #define   YD_ta_sa_trasbc(v, i, j, t)             Yta_sa_trasbc[i][j]->Ydelta[t][v] 
480/*M2_VALSIT */ #define   YD1_ta_sa_trasbc(i, j, t)               Yta_sa_trasbc[i][j]->Ydelta[t][0] 
481/*M2_VALSIT */ #define   YD2_ta_sa_trasbc(i, j, t)               Yta_sa_trasbc[i][j]->Ydelta[t][1] 
482/*M2_HERESIT*/ #define   YD1Y_ta_sa_trasbc               Yta_sa_trasbc[Yi][Yj]->Ydelta[YTemps][0] 
483/*M2_HERESIT*/ #define   YD2Y_ta_sa_trasbc               Yta_sa_trasbc[Yi][Yj]->Ydelta[YTemps][1] 
484
485class Yaota_sa_trasbc;
486class ta_sa_trasbc;
487/*NBMOD     */ #define   YNB_ta_sa_trasbc        704
488/*NBSMOD    */ #define   YNBS_ta_sa_trasbc       2
489/*NBIMOD    */ #define   YNBI_ta_sa_trasbc       3
490/*M2_IRMOD  */ #define   Yta_sa_trasbc(i, j)     Yta_sa_trasbc[i][j]
491/*M2_NOWMOD */ #define   Yta_sa_trasbcY                  Yta_sa_trasbc[Yi][Yj]
492/*M2_VALST  */ #define   Ystate_ta_sa_trasbc(v, i, j, t)                 Yta_sa_trasbc[i][j]->Ystate[t][v] 
493/*M2_VALST  */ #define   YS_ta_sa_trasbc(v, i, j, t)             Yta_sa_trasbc[i][j]->Ystate[t][v] 
494/*M2_VALSIT */ #define   YS1_ta_sa_trasbc(i, j, t)               Yta_sa_trasbc[i][j]->Ystate[t][0] 
495/*M2_HERESIT*/ #define   YS1Y_ta_sa_trasbc               Yta_sa_trasbc[Yi][Yj]->Ystate[YTemps][0] 
496/*M2_VALSIT */ #define   YS2_ta_sa_trasbc(i, j, t)               Yta_sa_trasbc[i][j]->Ystate[t][1] 
497/*M2_HERESIT*/ #define   YS2Y_ta_sa_trasbc               Yta_sa_trasbc[Yi][Yj]->Ystate[YTemps][1] 
498/*M2_VALST  */ #define   Ygrad_ta_sa_trasbc(v, i, j, t)                  Yta_sa_trasbc[i][j]->Ygrad[t][v] 
499/*M2_VALST  */ #define   YG_ta_sa_trasbc(v, i, j, t)             Yta_sa_trasbc[i][j]->Ygrad[t][v] 
500/*M2_VALSIT */ #define   YG1_ta_sa_trasbc(i, j, t)               Yta_sa_trasbc[i][j]->Ygrad[t][0] 
501/*M2_HERESIT*/ #define   YG1Y_ta_sa_trasbc               Yta_sa_trasbc[Yi][Yj]->Ygrad[YTemps][0] 
502/*M2_VALSIT */ #define   YG2_ta_sa_trasbc(i, j, t)               Yta_sa_trasbc[i][j]->Ygrad[t][1] 
503/*M2_HERESIT*/ #define   YG2Y_ta_sa_trasbc               Yta_sa_trasbc[Yi][Yj]->Ygrad[YTemps][1] 
504ta_sa_trasbc             *Yta_sa_trasbc[YA1_S3dt][YA2_S3dt];
505
506//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_traqsr~~~~~~~~~~~~~~~~~~~~~~~~~
507#define Yid_ta_traqsr 17
508/*M3_VALST  */ #define   Ydelta_ta_traqsr(v, i, j, k, t)         Yta_traqsr[i][j][k]->Ydelta[t][v] 
509/*M3_VALST  */ #define   YD_ta_traqsr(v, i, j, k, t)             Yta_traqsr[i][j][k]->Ydelta[t][v] 
510/*M3_VALSIT */ #define   YD1_ta_traqsr(i, j, k, t)               Yta_traqsr[i][j][k]->Ydelta[t][0] 
511/*M3_HERESIT*/ #define   YD1Y_ta_traqsr                  Yta_traqsr[Yi][Yj][Yk]->Ydelta[YTemps][0] 
512
513class Yaota_traqsr;
514class ta_traqsr;
515/*NBSMOD    */ #define   YNBS_ta_traqsr          1
516/*NBIMOD    */ #define   YNBI_ta_traqsr          2
517/*M3_IRMOD  */ #define   Yta_traqsr(i, j, k)     Yta_traqsr[i][j][k]
518/*M3_NOWMOD */ #define   Yta_traqsrY             Yta_traqsr[Yi][Yj][Yk]
519/*M3_VALST  */ #define   Ystate_ta_traqsr(v, i, j, k, t)         Yta_traqsr[i][j][k]->Ystate[t][v] 
520/*M3_VALST  */ #define   YS_ta_traqsr(v, i, j, k, t)             Yta_traqsr[i][j][k]->Ystate[t][v] 
521/*M3_VALSIT */ #define   YS1_ta_traqsr(i, j, k, t)               Yta_traqsr[i][j][k]->Ystate[t][0] 
522/*M3_HERESIT*/ #define   YS1Y_ta_traqsr                  Yta_traqsr[Yi][Yj][Yk]->Ystate[YTemps][0] 
523/*M3_VALST  */ #define   Ygrad_ta_traqsr(v, i, j, k, t)          Yta_traqsr[i][j][k]->Ygrad[t][v] 
524/*M3_VALST  */ #define   YG_ta_traqsr(v, i, j, k, t)             Yta_traqsr[i][j][k]->Ygrad[t][v] 
525/*M3_VALSIT */ #define   YG1_ta_traqsr(i, j, k, t)               Yta_traqsr[i][j][k]->Ygrad[t][0] 
526/*M3_HERESIT*/ #define   YG1Y_ta_traqsr                  Yta_traqsr[Yi][Yj][Yk]->Ygrad[YTemps][0] 
527ta_traqsr                *Yta_traqsr[YA1_S3dt][YA2_S3dt][YA3_S3dt];
528
529//~~~~~~~~~~~~~~~~~~~~~~~~~ module zcent_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~
530#define Yid_zcent_hor_traadv_cen2 18
531/*M3_VALST  */ #define   Ydelta_zcent_hor_traadv_cen2(v, i, j, k, t)     Yzcent_hor_traadv_cen2[i][j][k]->Ydelta[t][v] 
532/*M3_VALST  */ #define   YD_zcent_hor_traadv_cen2(v, i, j, k, t)                 Yzcent_hor_traadv_cen2[i][j][k]->Ydelta[t][v] 
533/*M3_VALSIT */ #define   YD1_zcent_hor_traadv_cen2(i, j, k, t)           Yzcent_hor_traadv_cen2[i][j][k]->Ydelta[t][0] 
534/*M3_VALSIT */ #define   YD2_zcent_hor_traadv_cen2(i, j, k, t)           Yzcent_hor_traadv_cen2[i][j][k]->Ydelta[t][1] 
535/*M3_HERESIT*/ #define   YD1Y_zcent_hor_traadv_cen2              Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
536/*M3_HERESIT*/ #define   YD2Y_zcent_hor_traadv_cen2              Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][1] 
537
538class Yaozcent_hor_traadv_cen2;
539class zcent_hor_traadv_cen2;
540/*NBSMOD    */ #define   YNBS_zcent_hor_traadv_cen2      2
541/*NBIMOD    */ #define   YNBI_zcent_hor_traadv_cen2      5
542/*M3_IRMOD  */ #define   Yzcent_hor_traadv_cen2(i, j, k)         Yzcent_hor_traadv_cen2[i][j][k]
543/*M3_NOWMOD */ #define   Yzcent_hor_traadv_cen2Y                 Yzcent_hor_traadv_cen2[Yi][Yj][Yk]
544/*M3_VALST  */ #define   Ystate_zcent_hor_traadv_cen2(v, i, j, k, t)     Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][v] 
545/*M3_VALST  */ #define   YS_zcent_hor_traadv_cen2(v, i, j, k, t)                 Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][v] 
546/*M3_VALSIT */ #define   YS1_zcent_hor_traadv_cen2(i, j, k, t)           Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][0] 
547/*M3_HERESIT*/ #define   YS1Y_zcent_hor_traadv_cen2              Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 
548/*M3_VALSIT */ #define   YS2_zcent_hor_traadv_cen2(i, j, k, t)           Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][1] 
549/*M3_HERESIT*/ #define   YS2Y_zcent_hor_traadv_cen2              Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1] 
550/*M3_VALST  */ #define   Ygrad_zcent_hor_traadv_cen2(v, i, j, k, t)      Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 
551/*M3_VALST  */ #define   YG_zcent_hor_traadv_cen2(v, i, j, k, t)                 Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 
552/*M3_VALSIT */ #define   YG1_zcent_hor_traadv_cen2(i, j, k, t)           Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][0] 
553/*M3_HERESIT*/ #define   YG1Y_zcent_hor_traadv_cen2              Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
554/*M3_VALSIT */ #define   YG2_zcent_hor_traadv_cen2(i, j, k, t)           Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][1] 
555/*M3_HERESIT*/ #define   YG2Y_zcent_hor_traadv_cen2              Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1] 
556zcent_hor_traadv_cen2            *Yzcent_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
557
558//~~~~~~~~~~~~~~~~~~~~~~~~~ module zcens_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~
559#define Yid_zcens_hor_traadv_cen2 19
560/*M3_VALST  */ #define   Ydelta_zcens_hor_traadv_cen2(v, i, j, k, t)     Yzcens_hor_traadv_cen2[i][j][k]->Ydelta[t][v] 
561/*M3_VALST  */ #define   YD_zcens_hor_traadv_cen2(v, i, j, k, t)                 Yzcens_hor_traadv_cen2[i][j][k]->Ydelta[t][v] 
562/*M3_VALSIT */ #define   YD1_zcens_hor_traadv_cen2(i, j, k, t)           Yzcens_hor_traadv_cen2[i][j][k]->Ydelta[t][0] 
563/*M3_VALSIT */ #define   YD2_zcens_hor_traadv_cen2(i, j, k, t)           Yzcens_hor_traadv_cen2[i][j][k]->Ydelta[t][1] 
564/*M3_HERESIT*/ #define   YD1Y_zcens_hor_traadv_cen2              Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
565/*M3_HERESIT*/ #define   YD2Y_zcens_hor_traadv_cen2              Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][1] 
566class zcens_hor_traadv_cen2;
567/*NBSMOD    */ #define   YNBS_zcens_hor_traadv_cen2      2
568/*NBIMOD    */ #define   YNBI_zcens_hor_traadv_cen2      5
569/*M3_IRMOD  */ #define   Yzcens_hor_traadv_cen2(i, j, k)         Yzcens_hor_traadv_cen2[i][j][k]
570/*M3_NOWMOD */ #define   Yzcens_hor_traadv_cen2Y                 Yzcens_hor_traadv_cen2[Yi][Yj][Yk]
571/*M3_VALST  */ #define   Ystate_zcens_hor_traadv_cen2(v, i, j, k, t)     Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][v] 
572/*M3_VALST  */ #define   YS_zcens_hor_traadv_cen2(v, i, j, k, t)                 Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][v] 
573/*M3_VALSIT */ #define   YS1_zcens_hor_traadv_cen2(i, j, k, t)           Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][0] 
574/*M3_HERESIT*/ #define   YS1Y_zcens_hor_traadv_cen2              Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 
575/*M3_VALSIT */ #define   YS2_zcens_hor_traadv_cen2(i, j, k, t)           Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][1] 
576/*M3_HERESIT*/ #define   YS2Y_zcens_hor_traadv_cen2              Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1] 
577/*M3_VALST  */ #define   Ygrad_zcens_hor_traadv_cen2(v, i, j, k, t)      Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 
578/*M3_VALST  */ #define   YG_zcens_hor_traadv_cen2(v, i, j, k, t)                 Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 
579/*M3_VALSIT */ #define   YG1_zcens_hor_traadv_cen2(i, j, k, t)           Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][0] 
580/*M3_HERESIT*/ #define   YG1Y_zcens_hor_traadv_cen2              Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
581/*M3_VALSIT */ #define   YG2_zcens_hor_traadv_cen2(i, j, k, t)           Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][1] 
582/*M3_HERESIT*/ #define   YG2Y_zcens_hor_traadv_cen2              Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1] 
583zcens_hor_traadv_cen2            *Yzcens_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
584
585//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~
586#define Yid_ta_hor_traadv_cen2 20
587/*M3_VALST  */ #define   Ydelta_ta_hor_traadv_cen2(v, i, j, k, t)        Yta_hor_traadv_cen2[i][j][k]->Ydelta[t][v] 
588/*M3_VALST  */ #define   YD_ta_hor_traadv_cen2(v, i, j, k, t)            Yta_hor_traadv_cen2[i][j][k]->Ydelta[t][v] 
589/*M3_VALSIT */ #define   YD1_ta_hor_traadv_cen2(i, j, k, t)              Yta_hor_traadv_cen2[i][j][k]->Ydelta[t][0] 
590/*M3_HERESIT*/ #define   YD1Y_ta_hor_traadv_cen2                 Yta_hor_traadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
591
592class Yaota_hor_traadv_cen2;
593class ta_hor_traadv_cen2;
594/*NBSMOD    */ #define   YNBS_ta_hor_traadv_cen2         1
595/*NBIMOD    */ #define   YNBI_ta_hor_traadv_cen2         5
596/*M3_IRMOD  */ #define   Yta_hor_traadv_cen2(i, j, k)    Yta_hor_traadv_cen2[i][j][k]
597/*M3_NOWMOD */ #define   Yta_hor_traadv_cen2Y            Yta_hor_traadv_cen2[Yi][Yj][Yk]
598/*M3_VALST  */ #define   Ystate_ta_hor_traadv_cen2(v, i, j, k, t)        Yta_hor_traadv_cen2[i][j][k]->Ystate[t][v] 
599/*M3_VALST  */ #define   YS_ta_hor_traadv_cen2(v, i, j, k, t)            Yta_hor_traadv_cen2[i][j][k]->Ystate[t][v] 
600/*M3_VALSIT */ #define   YS1_ta_hor_traadv_cen2(i, j, k, t)              Yta_hor_traadv_cen2[i][j][k]->Ystate[t][0] 
601/*M3_HERESIT*/ #define   YS1Y_ta_hor_traadv_cen2                 Yta_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 
602/*M3_VALST  */ #define   Ygrad_ta_hor_traadv_cen2(v, i, j, k, t)         Yta_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 
603/*M3_VALST  */ #define   YG_ta_hor_traadv_cen2(v, i, j, k, t)            Yta_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 
604/*M3_VALSIT */ #define   YG1_ta_hor_traadv_cen2(i, j, k, t)              Yta_hor_traadv_cen2[i][j][k]->Ygrad[t][0] 
605/*M3_HERESIT*/ #define   YG1Y_ta_hor_traadv_cen2                 Yta_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
606ta_hor_traadv_cen2               *Yta_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
607
608//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~
609#define Yid_sa_hor_traadv_cen2 21
610/*M3_VALST  */ #define   Ydelta_sa_hor_traadv_cen2(v, i, j, k, t)        Ysa_hor_traadv_cen2[i][j][k]->Ydelta[t][v] 
611/*M3_VALST  */ #define   YD_sa_hor_traadv_cen2(v, i, j, k, t)            Ysa_hor_traadv_cen2[i][j][k]->Ydelta[t][v] 
612/*M3_VALSIT */ #define   YD1_sa_hor_traadv_cen2(i, j, k, t)              Ysa_hor_traadv_cen2[i][j][k]->Ydelta[t][0] 
613/*M3_HERESIT*/ #define   YD1Y_sa_hor_traadv_cen2                 Ysa_hor_traadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
614
615class Yaosa_hor_traadv_cen2;
616class sa_hor_traadv_cen2;
617/*NBSMOD    */ #define   YNBS_sa_hor_traadv_cen2         1
618/*NBIMOD    */ #define   YNBI_sa_hor_traadv_cen2         5
619/*M3_IRMOD  */ #define   Ysa_hor_traadv_cen2(i, j, k)    Ysa_hor_traadv_cen2[i][j][k]
620/*M3_NOWMOD */ #define   Ysa_hor_traadv_cen2Y            Ysa_hor_traadv_cen2[Yi][Yj][Yk]
621/*M3_VALST  */ #define   Ystate_sa_hor_traadv_cen2(v, i, j, k, t)        Ysa_hor_traadv_cen2[i][j][k]->Ystate[t][v] 
622/*M3_VALST  */ #define   YS_sa_hor_traadv_cen2(v, i, j, k, t)            Ysa_hor_traadv_cen2[i][j][k]->Ystate[t][v] 
623/*M3_VALSIT */ #define   YS1_sa_hor_traadv_cen2(i, j, k, t)              Ysa_hor_traadv_cen2[i][j][k]->Ystate[t][0] 
624/*M3_HERESIT*/ #define   YS1Y_sa_hor_traadv_cen2                 Ysa_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 
625/*M3_VALST  */ #define   Ygrad_sa_hor_traadv_cen2(v, i, j, k, t)         Ysa_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 
626/*M3_VALST  */ #define   YG_sa_hor_traadv_cen2(v, i, j, k, t)            Ysa_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 
627/*M3_VALSIT */ #define   YG1_sa_hor_traadv_cen2(i, j, k, t)              Ysa_hor_traadv_cen2[i][j][k]->Ygrad[t][0] 
628/*M3_HERESIT*/ #define   YG1Y_sa_hor_traadv_cen2                 Ysa_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
629sa_hor_traadv_cen2               *Ysa_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
630
631//~~~~~~~~~~~~~~~~~~~~~~~~~ module zcent_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~
632#define Yid_zcent_ver_traadv_cen2 22
633/*M3_VALST  */ #define   Ydelta_zcent_ver_traadv_cen2(v, i, j, k, t)     Yzcent_ver_traadv_cen2[i][j][k]->Ydelta[t][v] 
634/*M3_VALST  */ #define   YD_zcent_ver_traadv_cen2(v, i, j, k, t)                 Yzcent_ver_traadv_cen2[i][j][k]->Ydelta[t][v] 
635/*M3_VALSIT */ #define   YD1_zcent_ver_traadv_cen2(i, j, k, t)           Yzcent_ver_traadv_cen2[i][j][k]->Ydelta[t][0] 
636/*M3_HERESIT*/ #define   YD1Y_zcent_ver_traadv_cen2              Yzcent_ver_traadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
637
638class Yaozcent_ver_traadv_cen2;
639class zcent_ver_traadv_cen2;
640/*NBSMOD    */ #define   YNBS_zcent_ver_traadv_cen2      1
641/*NBIMOD    */ #define   YNBI_zcent_ver_traadv_cen2      3
642/*M3_IRMOD  */ #define   Yzcent_ver_traadv_cen2(i, j, k)         Yzcent_ver_traadv_cen2[i][j][k]
643/*M3_NOWMOD */ #define   Yzcent_ver_traadv_cen2Y                 Yzcent_ver_traadv_cen2[Yi][Yj][Yk]
644/*M3_VALST  */ #define   Ystate_zcent_ver_traadv_cen2(v, i, j, k, t)     Yzcent_ver_traadv_cen2[i][j][k]->Ystate[t][v] 
645/*M3_VALST  */ #define   YS_zcent_ver_traadv_cen2(v, i, j, k, t)                 Yzcent_ver_traadv_cen2[i][j][k]->Ystate[t][v] 
646/*M3_VALSIT */ #define   YS1_zcent_ver_traadv_cen2(i, j, k, t)           Yzcent_ver_traadv_cen2[i][j][k]->Ystate[t][0] 
647/*M3_HERESIT*/ #define   YS1Y_zcent_ver_traadv_cen2              Yzcent_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 
648/*M3_VALST  */ #define   Ygrad_zcent_ver_traadv_cen2(v, i, j, k, t)      Yzcent_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 
649/*M3_VALST  */ #define   YG_zcent_ver_traadv_cen2(v, i, j, k, t)                 Yzcent_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 
650/*M3_VALSIT */ #define   YG1_zcent_ver_traadv_cen2(i, j, k, t)           Yzcent_ver_traadv_cen2[i][j][k]->Ygrad[t][0] 
651/*M3_HERESIT*/ #define   YG1Y_zcent_ver_traadv_cen2              Yzcent_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
652zcent_ver_traadv_cen2            *Yzcent_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
653
654//~~~~~~~~~~~~~~~~~~~~~~~~~ module zcens_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~
655#define Yid_zcens_ver_traadv_cen2 23
656/*M3_VALST  */ #define   Ydelta_zcens_ver_traadv_cen2(v, i, j, k, t)     Yzcens_ver_traadv_cen2[i][j][k]->Ydelta[t][v] 
657/*M3_VALST  */ #define   YD_zcens_ver_traadv_cen2(v, i, j, k, t)                 Yzcens_ver_traadv_cen2[i][j][k]->Ydelta[t][v] 
658/*M3_VALSIT */ #define   YD1_zcens_ver_traadv_cen2(i, j, k, t)           Yzcens_ver_traadv_cen2[i][j][k]->Ydelta[t][0] 
659/*M3_HERESIT*/ #define   YD1Y_zcens_ver_traadv_cen2              Yzcens_ver_traadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
660class zcens_ver_traadv_cen2;
661/*NBSMOD    */ #define   YNBS_zcens_ver_traadv_cen2      1
662/*NBIMOD    */ #define   YNBI_zcens_ver_traadv_cen2      3
663/*M3_IRMOD  */ #define   Yzcens_ver_traadv_cen2(i, j, k)         Yzcens_ver_traadv_cen2[i][j][k]
664/*M3_NOWMOD */ #define   Yzcens_ver_traadv_cen2Y                 Yzcens_ver_traadv_cen2[Yi][Yj][Yk]
665/*M3_VALST  */ #define   Ystate_zcens_ver_traadv_cen2(v, i, j, k, t)     Yzcens_ver_traadv_cen2[i][j][k]->Ystate[t][v] 
666/*M3_VALST  */ #define   YS_zcens_ver_traadv_cen2(v, i, j, k, t)                 Yzcens_ver_traadv_cen2[i][j][k]->Ystate[t][v] 
667/*M3_VALSIT */ #define   YS1_zcens_ver_traadv_cen2(i, j, k, t)           Yzcens_ver_traadv_cen2[i][j][k]->Ystate[t][0] 
668/*M3_HERESIT*/ #define   YS1Y_zcens_ver_traadv_cen2              Yzcens_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 
669/*M3_VALST  */ #define   Ygrad_zcens_ver_traadv_cen2(v, i, j, k, t)      Yzcens_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 
670/*M3_VALST  */ #define   YG_zcens_ver_traadv_cen2(v, i, j, k, t)                 Yzcens_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 
671/*M3_VALSIT */ #define   YG1_zcens_ver_traadv_cen2(i, j, k, t)           Yzcens_ver_traadv_cen2[i][j][k]->Ygrad[t][0] 
672/*M3_HERESIT*/ #define   YG1Y_zcens_ver_traadv_cen2              Yzcens_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
673zcens_ver_traadv_cen2            *Yzcens_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
674
675//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~
676#define Yid_ta_ver_traadv_cen2 24
677/*M3_VALST  */ #define   Ydelta_ta_ver_traadv_cen2(v, i, j, k, t)        Yta_ver_traadv_cen2[i][j][k]->Ydelta[t][v] 
678/*M3_VALST  */ #define   YD_ta_ver_traadv_cen2(v, i, j, k, t)            Yta_ver_traadv_cen2[i][j][k]->Ydelta[t][v] 
679/*M3_VALSIT */ #define   YD1_ta_ver_traadv_cen2(i, j, k, t)              Yta_ver_traadv_cen2[i][j][k]->Ydelta[t][0] 
680/*M3_HERESIT*/ #define   YD1Y_ta_ver_traadv_cen2                 Yta_ver_traadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
681
682class Yaota_ver_traadv_cen2;
683class ta_ver_traadv_cen2;
684/*NBSMOD    */ #define   YNBS_ta_ver_traadv_cen2         1
685/*NBIMOD    */ #define   YNBI_ta_ver_traadv_cen2         3
686/*M3_IRMOD  */ #define   Yta_ver_traadv_cen2(i, j, k)    Yta_ver_traadv_cen2[i][j][k]
687/*M3_NOWMOD */ #define   Yta_ver_traadv_cen2Y            Yta_ver_traadv_cen2[Yi][Yj][Yk]
688/*M3_VALST  */ #define   Ystate_ta_ver_traadv_cen2(v, i, j, k, t)        Yta_ver_traadv_cen2[i][j][k]->Ystate[t][v] 
689/*M3_VALST  */ #define   YS_ta_ver_traadv_cen2(v, i, j, k, t)            Yta_ver_traadv_cen2[i][j][k]->Ystate[t][v] 
690/*M3_VALSIT */ #define   YS1_ta_ver_traadv_cen2(i, j, k, t)              Yta_ver_traadv_cen2[i][j][k]->Ystate[t][0] 
691/*M3_HERESIT*/ #define   YS1Y_ta_ver_traadv_cen2                 Yta_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 
692/*M3_VALST  */ #define   Ygrad_ta_ver_traadv_cen2(v, i, j, k, t)         Yta_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 
693/*M3_VALST  */ #define   YG_ta_ver_traadv_cen2(v, i, j, k, t)            Yta_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 
694/*M3_VALSIT */ #define   YG1_ta_ver_traadv_cen2(i, j, k, t)              Yta_ver_traadv_cen2[i][j][k]->Ygrad[t][0] 
695/*M3_HERESIT*/ #define   YG1Y_ta_ver_traadv_cen2                 Yta_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
696ta_ver_traadv_cen2               *Yta_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
697
698//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~
699#define Yid_sa_ver_traadv_cen2 25
700/*M3_VALST  */ #define   Ydelta_sa_ver_traadv_cen2(v, i, j, k, t)        Ysa_ver_traadv_cen2[i][j][k]->Ydelta[t][v] 
701/*M3_VALST  */ #define   YD_sa_ver_traadv_cen2(v, i, j, k, t)            Ysa_ver_traadv_cen2[i][j][k]->Ydelta[t][v] 
702/*M3_VALSIT */ #define   YD1_sa_ver_traadv_cen2(i, j, k, t)              Ysa_ver_traadv_cen2[i][j][k]->Ydelta[t][0] 
703/*M3_HERESIT*/ #define   YD1Y_sa_ver_traadv_cen2                 Ysa_ver_traadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
704class sa_ver_traadv_cen2;
705/*NBSMOD    */ #define   YNBS_sa_ver_traadv_cen2         1
706/*NBIMOD    */ #define   YNBI_sa_ver_traadv_cen2         3
707/*M3_IRMOD  */ #define   Ysa_ver_traadv_cen2(i, j, k)    Ysa_ver_traadv_cen2[i][j][k]
708/*M3_NOWMOD */ #define   Ysa_ver_traadv_cen2Y            Ysa_ver_traadv_cen2[Yi][Yj][Yk]
709/*M3_VALST  */ #define   Ystate_sa_ver_traadv_cen2(v, i, j, k, t)        Ysa_ver_traadv_cen2[i][j][k]->Ystate[t][v] 
710/*M3_VALST  */ #define   YS_sa_ver_traadv_cen2(v, i, j, k, t)            Ysa_ver_traadv_cen2[i][j][k]->Ystate[t][v] 
711/*M3_VALSIT */ #define   YS1_sa_ver_traadv_cen2(i, j, k, t)              Ysa_ver_traadv_cen2[i][j][k]->Ystate[t][0] 
712/*M3_HERESIT*/ #define   YS1Y_sa_ver_traadv_cen2                 Ysa_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 
713/*M3_VALST  */ #define   Ygrad_sa_ver_traadv_cen2(v, i, j, k, t)         Ysa_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 
714/*M3_VALST  */ #define   YG_sa_ver_traadv_cen2(v, i, j, k, t)            Ysa_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 
715/*M3_VALSIT */ #define   YG1_sa_ver_traadv_cen2(i, j, k, t)              Ysa_ver_traadv_cen2[i][j][k]->Ygrad[t][0] 
716/*M3_HERESIT*/ #define   YG1Y_sa_ver_traadv_cen2                 Ysa_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
717sa_ver_traadv_cen2               *Ysa_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
718
719//~~~~~~~~~~~~~~~~~~~~~~~~~ module ztuv_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~
720#define Yid_ztuv_traldf_lap 26
721/*M3_VALST  */ #define   Ydelta_ztuv_traldf_lap(v, i, j, k, t)   Yztuv_traldf_lap[i][j][k]->Ydelta[t][v] 
722/*M3_VALST  */ #define   YD_ztuv_traldf_lap(v, i, j, k, t)               Yztuv_traldf_lap[i][j][k]->Ydelta[t][v] 
723/*M3_VALSIT */ #define   YD1_ztuv_traldf_lap(i, j, k, t)                 Yztuv_traldf_lap[i][j][k]->Ydelta[t][0] 
724/*M3_VALSIT */ #define   YD2_ztuv_traldf_lap(i, j, k, t)                 Yztuv_traldf_lap[i][j][k]->Ydelta[t][1] 
725/*M3_HERESIT*/ #define   YD1Y_ztuv_traldf_lap            Yztuv_traldf_lap[Yi][Yj][Yk]->Ydelta[YTemps][0] 
726/*M3_HERESIT*/ #define   YD2Y_ztuv_traldf_lap            Yztuv_traldf_lap[Yi][Yj][Yk]->Ydelta[YTemps][1] 
727
728class Yaoztuv_traldf_lap;
729class ztuv_traldf_lap;
730/*NBSMOD    */ #define   YNBS_ztuv_traldf_lap    2
731/*NBIMOD    */ #define   YNBI_ztuv_traldf_lap    3
732/*M3_IRMOD  */ #define   Yztuv_traldf_lap(i, j, k)       Yztuv_traldf_lap[i][j][k]
733/*M3_NOWMOD */ #define   Yztuv_traldf_lapY               Yztuv_traldf_lap[Yi][Yj][Yk]
734/*M3_VALST  */ #define   Ystate_ztuv_traldf_lap(v, i, j, k, t)   Yztuv_traldf_lap[i][j][k]->Ystate[t][v] 
735/*M3_VALST  */ #define   YS_ztuv_traldf_lap(v, i, j, k, t)               Yztuv_traldf_lap[i][j][k]->Ystate[t][v] 
736/*M3_VALSIT */ #define   YS1_ztuv_traldf_lap(i, j, k, t)                 Yztuv_traldf_lap[i][j][k]->Ystate[t][0] 
737/*M3_HERESIT*/ #define   YS1Y_ztuv_traldf_lap            Yztuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 
738/*M3_VALSIT */ #define   YS2_ztuv_traldf_lap(i, j, k, t)                 Yztuv_traldf_lap[i][j][k]->Ystate[t][1] 
739/*M3_HERESIT*/ #define   YS2Y_ztuv_traldf_lap            Yztuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][1] 
740/*M3_VALST  */ #define   Ygrad_ztuv_traldf_lap(v, i, j, k, t)    Yztuv_traldf_lap[i][j][k]->Ygrad[t][v] 
741/*M3_VALST  */ #define   YG_ztuv_traldf_lap(v, i, j, k, t)               Yztuv_traldf_lap[i][j][k]->Ygrad[t][v] 
742/*M3_VALSIT */ #define   YG1_ztuv_traldf_lap(i, j, k, t)                 Yztuv_traldf_lap[i][j][k]->Ygrad[t][0] 
743/*M3_HERESIT*/ #define   YG1Y_ztuv_traldf_lap            Yztuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 
744/*M3_VALSIT */ #define   YG2_ztuv_traldf_lap(i, j, k, t)                 Yztuv_traldf_lap[i][j][k]->Ygrad[t][1] 
745/*M3_HERESIT*/ #define   YG2Y_ztuv_traldf_lap            Yztuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][1] 
746ztuv_traldf_lap                  *Yztuv_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt];
747
748//~~~~~~~~~~~~~~~~~~~~~~~~~ module zsuv_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~
749#define Yid_zsuv_traldf_lap 27
750/*M3_VALST  */ #define   Ydelta_zsuv_traldf_lap(v, i, j, k, t)   Yzsuv_traldf_lap[i][j][k]->Ydelta[t][v] 
751/*M3_VALST  */ #define   YD_zsuv_traldf_lap(v, i, j, k, t)               Yzsuv_traldf_lap[i][j][k]->Ydelta[t][v] 
752/*M3_VALSIT */ #define   YD1_zsuv_traldf_lap(i, j, k, t)                 Yzsuv_traldf_lap[i][j][k]->Ydelta[t][0] 
753/*M3_VALSIT */ #define   YD2_zsuv_traldf_lap(i, j, k, t)                 Yzsuv_traldf_lap[i][j][k]->Ydelta[t][1] 
754/*M3_HERESIT*/ #define   YD1Y_zsuv_traldf_lap            Yzsuv_traldf_lap[Yi][Yj][Yk]->Ydelta[YTemps][0] 
755/*M3_HERESIT*/ #define   YD2Y_zsuv_traldf_lap            Yzsuv_traldf_lap[Yi][Yj][Yk]->Ydelta[YTemps][1] 
756class zsuv_traldf_lap;
757/*NBSMOD    */ #define   YNBS_zsuv_traldf_lap    2
758/*NBIMOD    */ #define   YNBI_zsuv_traldf_lap    3
759/*M3_IRMOD  */ #define   Yzsuv_traldf_lap(i, j, k)       Yzsuv_traldf_lap[i][j][k]
760/*M3_NOWMOD */ #define   Yzsuv_traldf_lapY               Yzsuv_traldf_lap[Yi][Yj][Yk]
761/*M3_VALST  */ #define   Ystate_zsuv_traldf_lap(v, i, j, k, t)   Yzsuv_traldf_lap[i][j][k]->Ystate[t][v] 
762/*M3_VALST  */ #define   YS_zsuv_traldf_lap(v, i, j, k, t)               Yzsuv_traldf_lap[i][j][k]->Ystate[t][v] 
763/*M3_VALSIT */ #define   YS1_zsuv_traldf_lap(i, j, k, t)                 Yzsuv_traldf_lap[i][j][k]->Ystate[t][0] 
764/*M3_HERESIT*/ #define   YS1Y_zsuv_traldf_lap            Yzsuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 
765/*M3_VALSIT */ #define   YS2_zsuv_traldf_lap(i, j, k, t)                 Yzsuv_traldf_lap[i][j][k]->Ystate[t][1] 
766/*M3_HERESIT*/ #define   YS2Y_zsuv_traldf_lap            Yzsuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][1] 
767/*M3_VALST  */ #define   Ygrad_zsuv_traldf_lap(v, i, j, k, t)    Yzsuv_traldf_lap[i][j][k]->Ygrad[t][v] 
768/*M3_VALST  */ #define   YG_zsuv_traldf_lap(v, i, j, k, t)               Yzsuv_traldf_lap[i][j][k]->Ygrad[t][v] 
769/*M3_VALSIT */ #define   YG1_zsuv_traldf_lap(i, j, k, t)                 Yzsuv_traldf_lap[i][j][k]->Ygrad[t][0] 
770/*M3_HERESIT*/ #define   YG1Y_zsuv_traldf_lap            Yzsuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 
771/*M3_VALSIT */ #define   YG2_zsuv_traldf_lap(i, j, k, t)                 Yzsuv_traldf_lap[i][j][k]->Ygrad[t][1] 
772/*M3_HERESIT*/ #define   YG2Y_zsuv_traldf_lap            Yzsuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][1] 
773zsuv_traldf_lap                  *Yzsuv_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt];
774
775//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~
776#define Yid_ta_traldf_lap 28
777/*M3_VALST  */ #define   Ydelta_ta_traldf_lap(v, i, j, k, t)     Yta_traldf_lap[i][j][k]->Ydelta[t][v] 
778/*M3_VALST  */ #define   YD_ta_traldf_lap(v, i, j, k, t)                 Yta_traldf_lap[i][j][k]->Ydelta[t][v] 
779/*M3_VALSIT */ #define   YD1_ta_traldf_lap(i, j, k, t)           Yta_traldf_lap[i][j][k]->Ydelta[t][0] 
780/*M3_HERESIT*/ #define   YD1Y_ta_traldf_lap              Yta_traldf_lap[Yi][Yj][Yk]->Ydelta[YTemps][0] 
781
782class Yaota_traldf_lap;
783class ta_traldf_lap;
784/*NBSMOD    */ #define   YNBS_ta_traldf_lap      1
785/*NBIMOD    */ #define   YNBI_ta_traldf_lap      5
786/*M3_IRMOD  */ #define   Yta_traldf_lap(i, j, k)         Yta_traldf_lap[i][j][k]
787/*M3_NOWMOD */ #define   Yta_traldf_lapY                 Yta_traldf_lap[Yi][Yj][Yk]
788/*M3_VALST  */ #define   Ystate_ta_traldf_lap(v, i, j, k, t)     Yta_traldf_lap[i][j][k]->Ystate[t][v] 
789/*M3_VALST  */ #define   YS_ta_traldf_lap(v, i, j, k, t)                 Yta_traldf_lap[i][j][k]->Ystate[t][v] 
790/*M3_VALSIT */ #define   YS1_ta_traldf_lap(i, j, k, t)           Yta_traldf_lap[i][j][k]->Ystate[t][0] 
791/*M3_HERESIT*/ #define   YS1Y_ta_traldf_lap              Yta_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 
792/*M3_VALST  */ #define   Ygrad_ta_traldf_lap(v, i, j, k, t)      Yta_traldf_lap[i][j][k]->Ygrad[t][v] 
793/*M3_VALST  */ #define   YG_ta_traldf_lap(v, i, j, k, t)                 Yta_traldf_lap[i][j][k]->Ygrad[t][v] 
794/*M3_VALSIT */ #define   YG1_ta_traldf_lap(i, j, k, t)           Yta_traldf_lap[i][j][k]->Ygrad[t][0] 
795/*M3_HERESIT*/ #define   YG1Y_ta_traldf_lap              Yta_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 
796ta_traldf_lap            *Yta_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt];
797
798//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~
799#define Yid_sa_traldf_lap 29
800/*M3_VALST  */ #define   Ydelta_sa_traldf_lap(v, i, j, k, t)     Ysa_traldf_lap[i][j][k]->Ydelta[t][v] 
801/*M3_VALST  */ #define   YD_sa_traldf_lap(v, i, j, k, t)                 Ysa_traldf_lap[i][j][k]->Ydelta[t][v] 
802/*M3_VALSIT */ #define   YD1_sa_traldf_lap(i, j, k, t)           Ysa_traldf_lap[i][j][k]->Ydelta[t][0] 
803/*M3_HERESIT*/ #define   YD1Y_sa_traldf_lap              Ysa_traldf_lap[Yi][Yj][Yk]->Ydelta[YTemps][0] 
804class sa_traldf_lap;
805/*NBSMOD    */ #define   YNBS_sa_traldf_lap      1
806/*NBIMOD    */ #define   YNBI_sa_traldf_lap      5
807/*M3_IRMOD  */ #define   Ysa_traldf_lap(i, j, k)         Ysa_traldf_lap[i][j][k]
808/*M3_NOWMOD */ #define   Ysa_traldf_lapY                 Ysa_traldf_lap[Yi][Yj][Yk]
809/*M3_VALST  */ #define   Ystate_sa_traldf_lap(v, i, j, k, t)     Ysa_traldf_lap[i][j][k]->Ystate[t][v] 
810/*M3_VALST  */ #define   YS_sa_traldf_lap(v, i, j, k, t)                 Ysa_traldf_lap[i][j][k]->Ystate[t][v] 
811/*M3_VALSIT */ #define   YS1_sa_traldf_lap(i, j, k, t)           Ysa_traldf_lap[i][j][k]->Ystate[t][0] 
812/*M3_HERESIT*/ #define   YS1Y_sa_traldf_lap              Ysa_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 
813/*M3_VALST  */ #define   Ygrad_sa_traldf_lap(v, i, j, k, t)      Ysa_traldf_lap[i][j][k]->Ygrad[t][v] 
814/*M3_VALST  */ #define   YG_sa_traldf_lap(v, i, j, k, t)                 Ysa_traldf_lap[i][j][k]->Ygrad[t][v] 
815/*M3_VALSIT */ #define   YG1_sa_traldf_lap(i, j, k, t)           Ysa_traldf_lap[i][j][k]->Ygrad[t][0] 
816/*M3_HERESIT*/ #define   YG1Y_sa_traldf_lap              Ysa_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 
817sa_traldf_lap            *Ysa_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt];
818
819//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
820#define Yid_zwisd_trazdf_imp 30
821/*M3_VALST  */ #define   Ydelta_zwisd_trazdf_imp(v, i, j, k, t)          Yzwisd_trazdf_imp[i][j][k]->Ydelta[t][v] 
822/*M3_VALST  */ #define   YD_zwisd_trazdf_imp(v, i, j, k, t)              Yzwisd_trazdf_imp[i][j][k]->Ydelta[t][v] 
823/*M3_VALSIT */ #define   YD1_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ydelta[t][0] 
824/*M3_VALSIT */ #define   YD2_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ydelta[t][1] 
825/*M3_VALSIT */ #define   YD3_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ydelta[t][2] 
826/*M3_HERESIT*/ #define   YD1Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
827/*M3_HERESIT*/ #define   YD2Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][1] 
828/*M3_HERESIT*/ #define   YD3Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][2] 
829
830class Yaozwisd_trazdf_imp;
831class zwisd_trazdf_imp;
832/*NBSMOD    */ #define   YNBS_zwisd_trazdf_imp   3
833/*NBIMOD    */ #define   YNBI_zwisd_trazdf_imp   2
834/*M3_IRMOD  */ #define   Yzwisd_trazdf_imp(i, j, k)      Yzwisd_trazdf_imp[i][j][k]
835/*M3_NOWMOD */ #define   Yzwisd_trazdf_impY              Yzwisd_trazdf_imp[Yi][Yj][Yk]
836/*M3_VALST  */ #define   Ystate_zwisd_trazdf_imp(v, i, j, k, t)          Yzwisd_trazdf_imp[i][j][k]->Ystate[t][v] 
837/*M3_VALST  */ #define   YS_zwisd_trazdf_imp(v, i, j, k, t)              Yzwisd_trazdf_imp[i][j][k]->Ystate[t][v] 
838/*M3_VALSIT */ #define   YS1_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ystate[t][0] 
839/*M3_HERESIT*/ #define   YS1Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
840/*M3_VALSIT */ #define   YS2_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ystate[t][1] 
841/*M3_HERESIT*/ #define   YS2Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][1] 
842/*M3_VALSIT */ #define   YS3_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ystate[t][2] 
843/*M3_HERESIT*/ #define   YS3Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][2] 
844/*M3_VALST  */ #define   Ygrad_zwisd_trazdf_imp(v, i, j, k, t)   Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][v] 
845/*M3_VALST  */ #define   YG_zwisd_trazdf_imp(v, i, j, k, t)              Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][v] 
846/*M3_VALSIT */ #define   YG1_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][0] 
847/*M3_HERESIT*/ #define   YG1Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
848/*M3_VALSIT */ #define   YG2_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][1] 
849/*M3_HERESIT*/ #define   YG2Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][1] 
850/*M3_VALSIT */ #define   YG3_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][2] 
851/*M3_HERESIT*/ #define   YG3Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][2] 
852zwisd_trazdf_imp                 *Yzwisd_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
853
854//~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
855#define Yid_zrhs_trazdf_imp 31
856/*M3_VALST  */ #define   Ydelta_zrhs_trazdf_imp(v, i, j, k, t)   Yzrhs_trazdf_imp[i][j][k]->Ydelta[t][v] 
857/*M3_VALST  */ #define   YD_zrhs_trazdf_imp(v, i, j, k, t)               Yzrhs_trazdf_imp[i][j][k]->Ydelta[t][v] 
858/*M3_VALSIT */ #define   YD1_zrhs_trazdf_imp(i, j, k, t)                 Yzrhs_trazdf_imp[i][j][k]->Ydelta[t][0] 
859/*M3_HERESIT*/ #define   YD1Y_zrhs_trazdf_imp            Yzrhs_trazdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
860
861class Yaozrhs_trazdf_imp;
862class zrhs_trazdf_imp;
863/*NBSMOD    */ #define   YNBS_zrhs_trazdf_imp    1
864/*NBIMOD    */ #define   YNBI_zrhs_trazdf_imp    2
865/*M3_IRMOD  */ #define   Yzrhs_trazdf_imp(i, j, k)       Yzrhs_trazdf_imp[i][j][k]
866/*M3_NOWMOD */ #define   Yzrhs_trazdf_impY               Yzrhs_trazdf_imp[Yi][Yj][Yk]
867/*M3_VALST  */ #define   Ystate_zrhs_trazdf_imp(v, i, j, k, t)   Yzrhs_trazdf_imp[i][j][k]->Ystate[t][v] 
868/*M3_VALST  */ #define   YS_zrhs_trazdf_imp(v, i, j, k, t)               Yzrhs_trazdf_imp[i][j][k]->Ystate[t][v] 
869/*M3_VALSIT */ #define   YS1_zrhs_trazdf_imp(i, j, k, t)                 Yzrhs_trazdf_imp[i][j][k]->Ystate[t][0] 
870/*M3_HERESIT*/ #define   YS1Y_zrhs_trazdf_imp            Yzrhs_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
871/*M3_VALST  */ #define   Ygrad_zrhs_trazdf_imp(v, i, j, k, t)    Yzrhs_trazdf_imp[i][j][k]->Ygrad[t][v] 
872/*M3_VALST  */ #define   YG_zrhs_trazdf_imp(v, i, j, k, t)               Yzrhs_trazdf_imp[i][j][k]->Ygrad[t][v] 
873/*M3_VALSIT */ #define   YG1_zrhs_trazdf_imp(i, j, k, t)                 Yzrhs_trazdf_imp[i][j][k]->Ygrad[t][0] 
874/*M3_HERESIT*/ #define   YG1Y_zrhs_trazdf_imp            Yzrhs_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
875zrhs_trazdf_imp                  *Yzrhs_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
876
877//~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_sa_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
878#define Yid_zrhs_sa_trazdf_imp 32
879/*M3_VALST  */ #define   Ydelta_zrhs_sa_trazdf_imp(v, i, j, k, t)        Yzrhs_sa_trazdf_imp[i][j][k]->Ydelta[t][v] 
880/*M3_VALST  */ #define   YD_zrhs_sa_trazdf_imp(v, i, j, k, t)            Yzrhs_sa_trazdf_imp[i][j][k]->Ydelta[t][v] 
881/*M3_VALSIT */ #define   YD1_zrhs_sa_trazdf_imp(i, j, k, t)              Yzrhs_sa_trazdf_imp[i][j][k]->Ydelta[t][0] 
882/*M3_HERESIT*/ #define   YD1Y_zrhs_sa_trazdf_imp                 Yzrhs_sa_trazdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
883class zrhs_sa_trazdf_imp;
884/*NBSMOD    */ #define   YNBS_zrhs_sa_trazdf_imp         1
885/*NBIMOD    */ #define   YNBI_zrhs_sa_trazdf_imp         2
886/*M3_IRMOD  */ #define   Yzrhs_sa_trazdf_imp(i, j, k)    Yzrhs_sa_trazdf_imp[i][j][k]
887/*M3_NOWMOD */ #define   Yzrhs_sa_trazdf_impY            Yzrhs_sa_trazdf_imp[Yi][Yj][Yk]
888/*M3_VALST  */ #define   Ystate_zrhs_sa_trazdf_imp(v, i, j, k, t)        Yzrhs_sa_trazdf_imp[i][j][k]->Ystate[t][v] 
889/*M3_VALST  */ #define   YS_zrhs_sa_trazdf_imp(v, i, j, k, t)            Yzrhs_sa_trazdf_imp[i][j][k]->Ystate[t][v] 
890/*M3_VALSIT */ #define   YS1_zrhs_sa_trazdf_imp(i, j, k, t)              Yzrhs_sa_trazdf_imp[i][j][k]->Ystate[t][0] 
891/*M3_HERESIT*/ #define   YS1Y_zrhs_sa_trazdf_imp                 Yzrhs_sa_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
892/*M3_VALST  */ #define   Ygrad_zrhs_sa_trazdf_imp(v, i, j, k, t)         Yzrhs_sa_trazdf_imp[i][j][k]->Ygrad[t][v] 
893/*M3_VALST  */ #define   YG_zrhs_sa_trazdf_imp(v, i, j, k, t)            Yzrhs_sa_trazdf_imp[i][j][k]->Ygrad[t][v] 
894/*M3_VALSIT */ #define   YG1_zrhs_sa_trazdf_imp(i, j, k, t)              Yzrhs_sa_trazdf_imp[i][j][k]->Ygrad[t][0] 
895/*M3_HERESIT*/ #define   YG1Y_zrhs_sa_trazdf_imp                 Yzrhs_sa_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
896zrhs_sa_trazdf_imp               *Yzrhs_sa_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
897
898//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
899#define Yid_zwt_trazdf_imp 33
900/*M3_VALST  */ #define   Ydelta_zwt_trazdf_imp(v, i, j, k, t)    Yzwt_trazdf_imp[i][j][k]->Ydelta[t][v] 
901/*M3_VALST  */ #define   YD_zwt_trazdf_imp(v, i, j, k, t)                Yzwt_trazdf_imp[i][j][k]->Ydelta[t][v] 
902/*M3_VALSIT */ #define   YD1_zwt_trazdf_imp(i, j, k, t)                  Yzwt_trazdf_imp[i][j][k]->Ydelta[t][0] 
903/*M3_HERESIT*/ #define   YD1Y_zwt_trazdf_imp             Yzwt_trazdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
904
905class Yaozwt_trazdf_imp;
906class zwt_trazdf_imp;
907/*NBSMOD    */ #define   YNBS_zwt_trazdf_imp     1
908/*NBIMOD    */ #define   YNBI_zwt_trazdf_imp     4
909/*M3_IRMOD  */ #define   Yzwt_trazdf_imp(i, j, k)        Yzwt_trazdf_imp[i][j][k]
910/*M3_NOWMOD */ #define   Yzwt_trazdf_impY                Yzwt_trazdf_imp[Yi][Yj][Yk]
911/*M3_VALST  */ #define   Ystate_zwt_trazdf_imp(v, i, j, k, t)    Yzwt_trazdf_imp[i][j][k]->Ystate[t][v] 
912/*M3_VALST  */ #define   YS_zwt_trazdf_imp(v, i, j, k, t)                Yzwt_trazdf_imp[i][j][k]->Ystate[t][v] 
913/*M3_VALSIT */ #define   YS1_zwt_trazdf_imp(i, j, k, t)                  Yzwt_trazdf_imp[i][j][k]->Ystate[t][0] 
914/*M3_HERESIT*/ #define   YS1Y_zwt_trazdf_imp             Yzwt_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
915/*M3_VALST  */ #define   Ygrad_zwt_trazdf_imp(v, i, j, k, t)     Yzwt_trazdf_imp[i][j][k]->Ygrad[t][v] 
916/*M3_VALST  */ #define   YG_zwt_trazdf_imp(v, i, j, k, t)                Yzwt_trazdf_imp[i][j][k]->Ygrad[t][v] 
917/*M3_VALSIT */ #define   YG1_zwt_trazdf_imp(i, j, k, t)                  Yzwt_trazdf_imp[i][j][k]->Ygrad[t][0] 
918/*M3_HERESIT*/ #define   YG1Y_zwt_trazdf_imp             Yzwt_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
919zwt_trazdf_imp           *Yzwt_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
920
921//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_de_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
922#define Yid_ta_de_trazdf_imp 34
923/*M3_VALST  */ #define   Ydelta_ta_de_trazdf_imp(v, i, j, k, t)          Yta_de_trazdf_imp[i][j][k]->Ydelta[t][v] 
924/*M3_VALST  */ #define   YD_ta_de_trazdf_imp(v, i, j, k, t)              Yta_de_trazdf_imp[i][j][k]->Ydelta[t][v] 
925/*M3_VALSIT */ #define   YD1_ta_de_trazdf_imp(i, j, k, t)                Yta_de_trazdf_imp[i][j][k]->Ydelta[t][0] 
926/*M3_HERESIT*/ #define   YD1Y_ta_de_trazdf_imp           Yta_de_trazdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
927class ta_de_trazdf_imp;
928/*NBSMOD    */ #define   YNBS_ta_de_trazdf_imp   1
929/*NBIMOD    */ #define   YNBI_ta_de_trazdf_imp   4
930/*M3_IRMOD  */ #define   Yta_de_trazdf_imp(i, j, k)      Yta_de_trazdf_imp[i][j][k]
931/*M3_NOWMOD */ #define   Yta_de_trazdf_impY              Yta_de_trazdf_imp[Yi][Yj][Yk]
932/*M3_VALST  */ #define   Ystate_ta_de_trazdf_imp(v, i, j, k, t)          Yta_de_trazdf_imp[i][j][k]->Ystate[t][v] 
933/*M3_VALST  */ #define   YS_ta_de_trazdf_imp(v, i, j, k, t)              Yta_de_trazdf_imp[i][j][k]->Ystate[t][v] 
934/*M3_VALSIT */ #define   YS1_ta_de_trazdf_imp(i, j, k, t)                Yta_de_trazdf_imp[i][j][k]->Ystate[t][0] 
935/*M3_HERESIT*/ #define   YS1Y_ta_de_trazdf_imp           Yta_de_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
936/*M3_VALST  */ #define   Ygrad_ta_de_trazdf_imp(v, i, j, k, t)   Yta_de_trazdf_imp[i][j][k]->Ygrad[t][v] 
937/*M3_VALST  */ #define   YG_ta_de_trazdf_imp(v, i, j, k, t)              Yta_de_trazdf_imp[i][j][k]->Ygrad[t][v] 
938/*M3_VALSIT */ #define   YG1_ta_de_trazdf_imp(i, j, k, t)                Yta_de_trazdf_imp[i][j][k]->Ygrad[t][0] 
939/*M3_HERESIT*/ #define   YG1Y_ta_de_trazdf_imp           Yta_de_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
940ta_de_trazdf_imp                 *Yta_de_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
941
942//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta~~~~~~~~~~~~~~~~~~~~~~~~~
943#define Yid_ta 35
944/*M3_VALST  */ #define   Ydelta_ta(v, i, j, k, t)        Yta[i][j][k]->Ydelta[t][v] 
945/*M3_VALST  */ #define   YD_ta(v, i, j, k, t)            Yta[i][j][k]->Ydelta[t][v] 
946/*M3_VALSIT */ #define   YD1_ta(i, j, k, t)              Yta[i][j][k]->Ydelta[t][0] 
947/*M3_HERESIT*/ #define   YD1Y_ta                 Yta[Yi][Yj][Yk]->Ydelta[YTemps][0] 
948
949class Yaota;
950class ta;
951/*NBSMOD    */ #define   YNBS_ta         1
952/*NBIMOD    */ #define   YNBI_ta         5
953/*M3_IRMOD  */ #define   Yta(i, j, k)    Yta[i][j][k]
954/*M3_NOWMOD */ #define   YtaY            Yta[Yi][Yj][Yk]
955/*M3_VALST  */ #define   Ystate_ta(v, i, j, k, t)        Yta[i][j][k]->Ystate[t][v] 
956/*M3_VALST  */ #define   YS_ta(v, i, j, k, t)            Yta[i][j][k]->Ystate[t][v] 
957/*M3_VALSIT */ #define   YS1_ta(i, j, k, t)              Yta[i][j][k]->Ystate[t][0] 
958/*M3_HERESIT*/ #define   YS1Y_ta                 Yta[Yi][Yj][Yk]->Ystate[YTemps][0] 
959/*M3_VALST  */ #define   Ygrad_ta(v, i, j, k, t)         Yta[i][j][k]->Ygrad[t][v] 
960/*M3_VALST  */ #define   YG_ta(v, i, j, k, t)            Yta[i][j][k]->Ygrad[t][v] 
961/*M3_VALSIT */ #define   YG1_ta(i, j, k, t)              Yta[i][j][k]->Ygrad[t][0] 
962/*M3_HERESIT*/ #define   YG1Y_ta                 Yta[Yi][Yj][Yk]->Ygrad[YTemps][0] 
963ta               *Yta[YA1_S3dt][YA2_S3dt][YA3_S3dt];
964
965//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_de_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
966#define Yid_sa_de_trazdf_imp 36
967/*M3_VALST  */ #define   Ydelta_sa_de_trazdf_imp(v, i, j, k, t)          Ysa_de_trazdf_imp[i][j][k]->Ydelta[t][v] 
968/*M3_VALST  */ #define   YD_sa_de_trazdf_imp(v, i, j, k, t)              Ysa_de_trazdf_imp[i][j][k]->Ydelta[t][v] 
969/*M3_VALSIT */ #define   YD1_sa_de_trazdf_imp(i, j, k, t)                Ysa_de_trazdf_imp[i][j][k]->Ydelta[t][0] 
970/*M3_HERESIT*/ #define   YD1Y_sa_de_trazdf_imp           Ysa_de_trazdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
971class sa_de_trazdf_imp;
972/*NBSMOD    */ #define   YNBS_sa_de_trazdf_imp   1
973/*NBIMOD    */ #define   YNBI_sa_de_trazdf_imp   4
974/*M3_IRMOD  */ #define   Ysa_de_trazdf_imp(i, j, k)      Ysa_de_trazdf_imp[i][j][k]
975/*M3_NOWMOD */ #define   Ysa_de_trazdf_impY              Ysa_de_trazdf_imp[Yi][Yj][Yk]
976/*M3_VALST  */ #define   Ystate_sa_de_trazdf_imp(v, i, j, k, t)          Ysa_de_trazdf_imp[i][j][k]->Ystate[t][v] 
977/*M3_VALST  */ #define   YS_sa_de_trazdf_imp(v, i, j, k, t)              Ysa_de_trazdf_imp[i][j][k]->Ystate[t][v] 
978/*M3_VALSIT */ #define   YS1_sa_de_trazdf_imp(i, j, k, t)                Ysa_de_trazdf_imp[i][j][k]->Ystate[t][0] 
979/*M3_HERESIT*/ #define   YS1Y_sa_de_trazdf_imp           Ysa_de_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
980/*M3_VALST  */ #define   Ygrad_sa_de_trazdf_imp(v, i, j, k, t)   Ysa_de_trazdf_imp[i][j][k]->Ygrad[t][v] 
981/*M3_VALST  */ #define   YG_sa_de_trazdf_imp(v, i, j, k, t)              Ysa_de_trazdf_imp[i][j][k]->Ygrad[t][v] 
982/*M3_VALSIT */ #define   YG1_sa_de_trazdf_imp(i, j, k, t)                Ysa_de_trazdf_imp[i][j][k]->Ygrad[t][0] 
983/*M3_HERESIT*/ #define   YG1Y_sa_de_trazdf_imp           Ysa_de_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
984sa_de_trazdf_imp                 *Ysa_de_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
985
986//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa~~~~~~~~~~~~~~~~~~~~~~~~~
987#define Yid_sa 37
988/*M3_VALST  */ #define   Ydelta_sa(v, i, j, k, t)        Ysa[i][j][k]->Ydelta[t][v] 
989/*M3_VALST  */ #define   YD_sa(v, i, j, k, t)            Ysa[i][j][k]->Ydelta[t][v] 
990/*M3_VALSIT */ #define   YD1_sa(i, j, k, t)              Ysa[i][j][k]->Ydelta[t][0] 
991/*M3_HERESIT*/ #define   YD1Y_sa                 Ysa[Yi][Yj][Yk]->Ydelta[YTemps][0] 
992
993class Yaosa;
994class sa;
995/*NBSMOD    */ #define   YNBS_sa         1
996/*NBIMOD    */ #define   YNBI_sa         5
997/*M3_IRMOD  */ #define   Ysa(i, j, k)    Ysa[i][j][k]
998/*M3_NOWMOD */ #define   YsaY            Ysa[Yi][Yj][Yk]
999/*M3_VALST  */ #define   Ystate_sa(v, i, j, k, t)        Ysa[i][j][k]->Ystate[t][v] 
1000/*M3_VALST  */ #define   YS_sa(v, i, j, k, t)            Ysa[i][j][k]->Ystate[t][v] 
1001/*M3_VALSIT */ #define   YS1_sa(i, j, k, t)              Ysa[i][j][k]->Ystate[t][0] 
1002/*M3_HERESIT*/ #define   YS1Y_sa                 Ysa[Yi][Yj][Yk]->Ystate[YTemps][0] 
1003/*M3_VALST  */ #define   Ygrad_sa(v, i, j, k, t)         Ysa[i][j][k]->Ygrad[t][v] 
1004/*M3_VALST  */ #define   YG_sa(v, i, j, k, t)            Ysa[i][j][k]->Ygrad[t][v] 
1005/*M3_VALSIT */ #define   YG1_sa(i, j, k, t)              Ysa[i][j][k]->Ygrad[t][0] 
1006/*M3_HERESIT*/ #define   YG1Y_sa                 Ysa[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1007sa               *Ysa[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1008
1009//~~~~~~~~~~~~~~~~~~~~~~~~~ module tb~~~~~~~~~~~~~~~~~~~~~~~~~
1010#define Yid_tb 38
1011/*M3_VALST  */ #define   Ydelta_tb(v, i, j, k, t)        Ytb[i][j][k]->Ydelta[t][v] 
1012/*M3_VALST  */ #define   YD_tb(v, i, j, k, t)            Ytb[i][j][k]->Ydelta[t][v] 
1013/*M3_VALSIT */ #define   YD1_tb(i, j, k, t)              Ytb[i][j][k]->Ydelta[t][0] 
1014/*M3_HERESIT*/ #define   YD1Y_tb                 Ytb[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1015
1016class Yaotb;
1017class tb;
1018/*NBSMOD    */ #define   YNBS_tb         1
1019/*NBIMOD    */ #define   YNBI_tb         4
1020/*M3_IRMOD  */ #define   Ytb(i, j, k)    Ytb[i][j][k]
1021/*M3_NOWMOD */ #define   YtbY            Ytb[Yi][Yj][Yk]
1022/*M3_VALST  */ #define   Ystate_tb(v, i, j, k, t)        Ytb[i][j][k]->Ystate[t][v] 
1023/*M3_VALST  */ #define   YS_tb(v, i, j, k, t)            Ytb[i][j][k]->Ystate[t][v] 
1024/*M3_VALSIT */ #define   YS1_tb(i, j, k, t)              Ytb[i][j][k]->Ystate[t][0] 
1025/*M3_HERESIT*/ #define   YS1Y_tb                 Ytb[Yi][Yj][Yk]->Ystate[YTemps][0] 
1026/*M3_VALST  */ #define   Ygrad_tb(v, i, j, k, t)         Ytb[i][j][k]->Ygrad[t][v] 
1027/*M3_VALST  */ #define   YG_tb(v, i, j, k, t)            Ytb[i][j][k]->Ygrad[t][v] 
1028/*M3_VALSIT */ #define   YG1_tb(i, j, k, t)              Ytb[i][j][k]->Ygrad[t][0] 
1029/*M3_HERESIT*/ #define   YG1Y_tb                 Ytb[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1030tb               *Ytb[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1031/*M3_VALSG  */ #define   Ywish_tb(v, i, j, k)    Ytb[i][j][k]->Ywish[v] 
1032/*M3_VALSG  */ #define   YW_tb(v, i, j, k)               Ytb[i][j][k]->Ywish[v] 
1033/*M3_VALSGI */ #define   YW1_tb(i, j, k)                 Ytb[i][j][k]->Ywish[0] 
1034/*M3_HERESGI*/ #define   YW1Y_tb                 Ytb[Yi][Yj][Yk]->Ywish[0] 
1035
1036//~~~~~~~~~~~~~~~~~~~~~~~~~ module sb~~~~~~~~~~~~~~~~~~~~~~~~~
1037#define Yid_sb 39
1038/*M3_VALST  */ #define   Ydelta_sb(v, i, j, k, t)        Ysb[i][j][k]->Ydelta[t][v] 
1039/*M3_VALST  */ #define   YD_sb(v, i, j, k, t)            Ysb[i][j][k]->Ydelta[t][v] 
1040/*M3_VALSIT */ #define   YD1_sb(i, j, k, t)              Ysb[i][j][k]->Ydelta[t][0] 
1041/*M3_HERESIT*/ #define   YD1Y_sb                 Ysb[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1042
1043class Yaosb;
1044class sb;
1045/*NBSMOD    */ #define   YNBS_sb         1
1046/*NBIMOD    */ #define   YNBI_sb         4
1047/*M3_IRMOD  */ #define   Ysb(i, j, k)    Ysb[i][j][k]
1048/*M3_NOWMOD */ #define   YsbY            Ysb[Yi][Yj][Yk]
1049/*M3_VALST  */ #define   Ystate_sb(v, i, j, k, t)        Ysb[i][j][k]->Ystate[t][v] 
1050/*M3_VALST  */ #define   YS_sb(v, i, j, k, t)            Ysb[i][j][k]->Ystate[t][v] 
1051/*M3_VALSIT */ #define   YS1_sb(i, j, k, t)              Ysb[i][j][k]->Ystate[t][0] 
1052/*M3_HERESIT*/ #define   YS1Y_sb                 Ysb[Yi][Yj][Yk]->Ystate[YTemps][0] 
1053/*M3_VALST  */ #define   Ygrad_sb(v, i, j, k, t)         Ysb[i][j][k]->Ygrad[t][v] 
1054/*M3_VALST  */ #define   YG_sb(v, i, j, k, t)            Ysb[i][j][k]->Ygrad[t][v] 
1055/*M3_VALSIT */ #define   YG1_sb(i, j, k, t)              Ysb[i][j][k]->Ygrad[t][0] 
1056/*M3_HERESIT*/ #define   YG1Y_sb                 Ysb[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1057sb               *Ysb[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1058
1059//~~~~~~~~~~~~~~~~~~~~~~~~~ module rhd~~~~~~~~~~~~~~~~~~~~~~~~~
1060#define Yid_rhd 40
1061/*M3_VALST  */ #define   Ydelta_rhd(v, i, j, k, t)       Yrhd[i][j][k]->Ydelta[t][v] 
1062/*M3_VALST  */ #define   YD_rhd(v, i, j, k, t)           Yrhd[i][j][k]->Ydelta[t][v] 
1063/*M3_VALSIT */ #define   YD1_rhd(i, j, k, t)             Yrhd[i][j][k]->Ydelta[t][0] 
1064/*M3_HERESIT*/ #define   YD1Y_rhd                Yrhd[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1065
1066class Yaorhd;
1067class rhd;
1068/*NBSMOD    */ #define   YNBS_rhd        1
1069/*NBIMOD    */ #define   YNBI_rhd        2
1070/*M3_IRMOD  */ #define   Yrhd(i, j, k)   Yrhd[i][j][k]
1071/*M3_NOWMOD */ #define   YrhdY           Yrhd[Yi][Yj][Yk]
1072/*M3_VALST  */ #define   Ystate_rhd(v, i, j, k, t)       Yrhd[i][j][k]->Ystate[t][v] 
1073/*M3_VALST  */ #define   YS_rhd(v, i, j, k, t)           Yrhd[i][j][k]->Ystate[t][v] 
1074/*M3_VALSIT */ #define   YS1_rhd(i, j, k, t)             Yrhd[i][j][k]->Ystate[t][0] 
1075/*M3_HERESIT*/ #define   YS1Y_rhd                Yrhd[Yi][Yj][Yk]->Ystate[YTemps][0] 
1076/*M3_VALST  */ #define   Ygrad_rhd(v, i, j, k, t)        Yrhd[i][j][k]->Ygrad[t][v] 
1077/*M3_VALST  */ #define   YG_rhd(v, i, j, k, t)           Yrhd[i][j][k]->Ygrad[t][v] 
1078/*M3_VALSIT */ #define   YG1_rhd(i, j, k, t)             Yrhd[i][j][k]->Ygrad[t][0] 
1079/*M3_HERESIT*/ #define   YG1Y_rhd                Yrhd[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1080rhd              *Yrhd[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1081
1082//~~~~~~~~~~~~~~~~~~~~~~~~~ module rhop~~~~~~~~~~~~~~~~~~~~~~~~~
1083#define Yid_rhop 41
1084/*M3_VALST  */ #define   Ydelta_rhop(v, i, j, k, t)      Yrhop[i][j][k]->Ydelta[t][v] 
1085/*M3_VALST  */ #define   YD_rhop(v, i, j, k, t)                  Yrhop[i][j][k]->Ydelta[t][v] 
1086/*M3_VALSIT */ #define   YD1_rhop(i, j, k, t)            Yrhop[i][j][k]->Ydelta[t][0] 
1087/*M3_HERESIT*/ #define   YD1Y_rhop               Yrhop[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1088
1089class Yaorhop;
1090class rhop;
1091/*NBSMOD    */ #define   YNBS_rhop       1
1092/*NBIMOD    */ #define   YNBI_rhop       1
1093/*M3_IRMOD  */ #define   Yrhop(i, j, k)          Yrhop[i][j][k]
1094/*M3_NOWMOD */ #define   YrhopY                  Yrhop[Yi][Yj][Yk]
1095/*M3_VALST  */ #define   Ystate_rhop(v, i, j, k, t)      Yrhop[i][j][k]->Ystate[t][v] 
1096/*M3_VALST  */ #define   YS_rhop(v, i, j, k, t)                  Yrhop[i][j][k]->Ystate[t][v] 
1097/*M3_VALSIT */ #define   YS1_rhop(i, j, k, t)            Yrhop[i][j][k]->Ystate[t][0] 
1098/*M3_HERESIT*/ #define   YS1Y_rhop               Yrhop[Yi][Yj][Yk]->Ystate[YTemps][0] 
1099/*M3_VALST  */ #define   Ygrad_rhop(v, i, j, k, t)       Yrhop[i][j][k]->Ygrad[t][v] 
1100/*M3_VALST  */ #define   YG_rhop(v, i, j, k, t)                  Yrhop[i][j][k]->Ygrad[t][v] 
1101/*M3_VALSIT */ #define   YG1_rhop(i, j, k, t)            Yrhop[i][j][k]->Ygrad[t][0] 
1102/*M3_HERESIT*/ #define   YG1Y_rhop               Yrhop[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1103rhop             *Yrhop[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1104
1105//~~~~~~~~~~~~~~~~~~~~~~~~~ module hmf_TF_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~
1106#define Yid_hmf_TF_dynadv_cen2 42
1107/*M3_VALST  */ #define   Ydelta_hmf_TF_dynadv_cen2(v, i, j, k, t)        Yhmf_TF_dynadv_cen2[i][j][k]->Ydelta[t][v] 
1108/*M3_VALST  */ #define   YD_hmf_TF_dynadv_cen2(v, i, j, k, t)            Yhmf_TF_dynadv_cen2[i][j][k]->Ydelta[t][v] 
1109/*M3_VALSIT */ #define   YD1_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ydelta[t][0] 
1110/*M3_VALSIT */ #define   YD2_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ydelta[t][1] 
1111/*M3_VALSIT */ #define   YD3_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ydelta[t][2] 
1112/*M3_VALSIT */ #define   YD4_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ydelta[t][3] 
1113/*M3_HERESIT*/ #define   YD1Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1114/*M3_HERESIT*/ #define   YD2Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][1] 
1115/*M3_HERESIT*/ #define   YD3Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][2] 
1116/*M3_HERESIT*/ #define   YD4Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][3] 
1117
1118class Yaohmf_TF_dynadv_cen2;
1119class hmf_TF_dynadv_cen2;
1120/*NBSMOD    */ #define   YNBS_hmf_TF_dynadv_cen2         4
1121/*NBIMOD    */ #define   YNBI_hmf_TF_dynadv_cen2         6
1122/*M3_IRMOD  */ #define   Yhmf_TF_dynadv_cen2(i, j, k)    Yhmf_TF_dynadv_cen2[i][j][k]
1123/*M3_NOWMOD */ #define   Yhmf_TF_dynadv_cen2Y            Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]
1124/*M3_VALST  */ #define   Ystate_hmf_TF_dynadv_cen2(v, i, j, k, t)        Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][v] 
1125/*M3_VALST  */ #define   YS_hmf_TF_dynadv_cen2(v, i, j, k, t)            Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][v] 
1126/*M3_VALSIT */ #define   YS1_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][0] 
1127/*M3_HERESIT*/ #define   YS1Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 
1128/*M3_VALSIT */ #define   YS2_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][1] 
1129/*M3_HERESIT*/ #define   YS2Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1] 
1130/*M3_VALSIT */ #define   YS3_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][2] 
1131/*M3_HERESIT*/ #define   YS3Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][2] 
1132/*M3_VALSIT */ #define   YS4_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][3] 
1133/*M3_HERESIT*/ #define   YS4Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][3] 
1134/*M3_VALST  */ #define   Ygrad_hmf_TF_dynadv_cen2(v, i, j, k, t)         Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][v] 
1135/*M3_VALST  */ #define   YG_hmf_TF_dynadv_cen2(v, i, j, k, t)            Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][v] 
1136/*M3_VALSIT */ #define   YG1_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][0] 
1137/*M3_HERESIT*/ #define   YG1Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1138/*M3_VALSIT */ #define   YG2_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][1] 
1139/*M3_HERESIT*/ #define   YG2Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1] 
1140/*M3_VALSIT */ #define   YG3_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][2] 
1141/*M3_HERESIT*/ #define   YG3Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][2] 
1142/*M3_VALSIT */ #define   YG4_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][3] 
1143/*M3_HERESIT*/ #define   YG4Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][3] 
1144hmf_TF_dynadv_cen2               *Yhmf_TF_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1145
1146//~~~~~~~~~~~~~~~~~~~~~~~~~ module zua_dhmf_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~
1147#define Yid_zua_dhmf_dynadv_cen2 43
1148/*M3_VALST  */ #define   Ydelta_zua_dhmf_dynadv_cen2(v, i, j, k, t)      Yzua_dhmf_dynadv_cen2[i][j][k]->Ydelta[t][v] 
1149/*M3_VALST  */ #define   YD_zua_dhmf_dynadv_cen2(v, i, j, k, t)                  Yzua_dhmf_dynadv_cen2[i][j][k]->Ydelta[t][v] 
1150/*M3_VALSIT */ #define   YD1_zua_dhmf_dynadv_cen2(i, j, k, t)            Yzua_dhmf_dynadv_cen2[i][j][k]->Ydelta[t][0] 
1151/*M3_HERESIT*/ #define   YD1Y_zua_dhmf_dynadv_cen2               Yzua_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1152
1153class Yaozua_dhmf_dynadv_cen2;
1154class zua_dhmf_dynadv_cen2;
1155/*NBSMOD    */ #define   YNBS_zua_dhmf_dynadv_cen2       1
1156/*NBIMOD    */ #define   YNBI_zua_dhmf_dynadv_cen2       4
1157/*M3_IRMOD  */ #define   Yzua_dhmf_dynadv_cen2(i, j, k)          Yzua_dhmf_dynadv_cen2[i][j][k]
1158/*M3_NOWMOD */ #define   Yzua_dhmf_dynadv_cen2Y                  Yzua_dhmf_dynadv_cen2[Yi][Yj][Yk]
1159/*M3_VALST  */ #define   Ystate_zua_dhmf_dynadv_cen2(v, i, j, k, t)      Yzua_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v] 
1160/*M3_VALST  */ #define   YS_zua_dhmf_dynadv_cen2(v, i, j, k, t)                  Yzua_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v] 
1161/*M3_VALSIT */ #define   YS1_zua_dhmf_dynadv_cen2(i, j, k, t)            Yzua_dhmf_dynadv_cen2[i][j][k]->Ystate[t][0] 
1162/*M3_HERESIT*/ #define   YS1Y_zua_dhmf_dynadv_cen2               Yzua_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 
1163/*M3_VALST  */ #define   Ygrad_zua_dhmf_dynadv_cen2(v, i, j, k, t)       Yzua_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v] 
1164/*M3_VALST  */ #define   YG_zua_dhmf_dynadv_cen2(v, i, j, k, t)                  Yzua_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v] 
1165/*M3_VALSIT */ #define   YG1_zua_dhmf_dynadv_cen2(i, j, k, t)            Yzua_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][0] 
1166/*M3_HERESIT*/ #define   YG1Y_zua_dhmf_dynadv_cen2               Yzua_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1167zua_dhmf_dynadv_cen2             *Yzua_dhmf_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1168
1169//~~~~~~~~~~~~~~~~~~~~~~~~~ module zva_dhmf_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~
1170#define Yid_zva_dhmf_dynadv_cen2 44
1171/*M3_VALST  */ #define   Ydelta_zva_dhmf_dynadv_cen2(v, i, j, k, t)      Yzva_dhmf_dynadv_cen2[i][j][k]->Ydelta[t][v] 
1172/*M3_VALST  */ #define   YD_zva_dhmf_dynadv_cen2(v, i, j, k, t)                  Yzva_dhmf_dynadv_cen2[i][j][k]->Ydelta[t][v] 
1173/*M3_VALSIT */ #define   YD1_zva_dhmf_dynadv_cen2(i, j, k, t)            Yzva_dhmf_dynadv_cen2[i][j][k]->Ydelta[t][0] 
1174/*M3_HERESIT*/ #define   YD1Y_zva_dhmf_dynadv_cen2               Yzva_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1175
1176class Yaozva_dhmf_dynadv_cen2;
1177class zva_dhmf_dynadv_cen2;
1178/*NBSMOD    */ #define   YNBS_zva_dhmf_dynadv_cen2       1
1179/*NBIMOD    */ #define   YNBI_zva_dhmf_dynadv_cen2       4
1180/*M3_IRMOD  */ #define   Yzva_dhmf_dynadv_cen2(i, j, k)          Yzva_dhmf_dynadv_cen2[i][j][k]
1181/*M3_NOWMOD */ #define   Yzva_dhmf_dynadv_cen2Y                  Yzva_dhmf_dynadv_cen2[Yi][Yj][Yk]
1182/*M3_VALST  */ #define   Ystate_zva_dhmf_dynadv_cen2(v, i, j, k, t)      Yzva_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v] 
1183/*M3_VALST  */ #define   YS_zva_dhmf_dynadv_cen2(v, i, j, k, t)                  Yzva_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v] 
1184/*M3_VALSIT */ #define   YS1_zva_dhmf_dynadv_cen2(i, j, k, t)            Yzva_dhmf_dynadv_cen2[i][j][k]->Ystate[t][0] 
1185/*M3_HERESIT*/ #define   YS1Y_zva_dhmf_dynadv_cen2               Yzva_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 
1186/*M3_VALST  */ #define   Ygrad_zva_dhmf_dynadv_cen2(v, i, j, k, t)       Yzva_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v] 
1187/*M3_VALST  */ #define   YG_zva_dhmf_dynadv_cen2(v, i, j, k, t)                  Yzva_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v] 
1188/*M3_VALSIT */ #define   YG1_zva_dhmf_dynadv_cen2(i, j, k, t)            Yzva_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][0] 
1189/*M3_HERESIT*/ #define   YG1Y_zva_dhmf_dynadv_cen2               Yzva_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1190zva_dhmf_dynadv_cen2             *Yzva_dhmf_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1191
1192//~~~~~~~~~~~~~~~~~~~~~~~~~ module zfuv_UW_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~
1193#define Yid_zfuv_UW_dynadv_cen2 45
1194/*M3_VALST  */ #define   Ydelta_zfuv_UW_dynadv_cen2(v, i, j, k, t)       Yzfuv_UW_dynadv_cen2[i][j][k]->Ydelta[t][v] 
1195/*M3_VALST  */ #define   YD_zfuv_UW_dynadv_cen2(v, i, j, k, t)           Yzfuv_UW_dynadv_cen2[i][j][k]->Ydelta[t][v] 
1196/*M3_VALSIT */ #define   YD1_zfuv_UW_dynadv_cen2(i, j, k, t)             Yzfuv_UW_dynadv_cen2[i][j][k]->Ydelta[t][0] 
1197/*M3_VALSIT */ #define   YD2_zfuv_UW_dynadv_cen2(i, j, k, t)             Yzfuv_UW_dynadv_cen2[i][j][k]->Ydelta[t][1] 
1198/*M3_HERESIT*/ #define   YD1Y_zfuv_UW_dynadv_cen2                Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1199/*M3_HERESIT*/ #define   YD2Y_zfuv_UW_dynadv_cen2                Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][1] 
1200
1201class Yaozfuv_UW_dynadv_cen2;
1202class zfuv_UW_dynadv_cen2;
1203/*NBSMOD    */ #define   YNBS_zfuv_UW_dynadv_cen2        2
1204/*NBIMOD    */ #define   YNBI_zfuv_UW_dynadv_cen2        7
1205/*M3_IRMOD  */ #define   Yzfuv_UW_dynadv_cen2(i, j, k)   Yzfuv_UW_dynadv_cen2[i][j][k]
1206/*M3_NOWMOD */ #define   Yzfuv_UW_dynadv_cen2Y           Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]
1207/*M3_VALST  */ #define   Ystate_zfuv_UW_dynadv_cen2(v, i, j, k, t)       Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][v] 
1208/*M3_VALST  */ #define   YS_zfuv_UW_dynadv_cen2(v, i, j, k, t)           Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][v] 
1209/*M3_VALSIT */ #define   YS1_zfuv_UW_dynadv_cen2(i, j, k, t)             Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][0] 
1210/*M3_HERESIT*/ #define   YS1Y_zfuv_UW_dynadv_cen2                Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 
1211/*M3_VALSIT */ #define   YS2_zfuv_UW_dynadv_cen2(i, j, k, t)             Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][1] 
1212/*M3_HERESIT*/ #define   YS2Y_zfuv_UW_dynadv_cen2                Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1] 
1213/*M3_VALST  */ #define   Ygrad_zfuv_UW_dynadv_cen2(v, i, j, k, t)        Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][v] 
1214/*M3_VALST  */ #define   YG_zfuv_UW_dynadv_cen2(v, i, j, k, t)           Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][v] 
1215/*M3_VALSIT */ #define   YG1_zfuv_UW_dynadv_cen2(i, j, k, t)             Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][0] 
1216/*M3_HERESIT*/ #define   YG1Y_zfuv_UW_dynadv_cen2                Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1217/*M3_VALSIT */ #define   YG2_zfuv_UW_dynadv_cen2(i, j, k, t)             Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][1] 
1218/*M3_HERESIT*/ #define   YG2Y_zfuv_UW_dynadv_cen2                Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1] 
1219zfuv_UW_dynadv_cen2              *Yzfuv_UW_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1220
1221//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~
1222#define Yid_ua_dynadv_cen2 46
1223/*M3_VALST  */ #define   Ydelta_ua_dynadv_cen2(v, i, j, k, t)    Yua_dynadv_cen2[i][j][k]->Ydelta[t][v] 
1224/*M3_VALST  */ #define   YD_ua_dynadv_cen2(v, i, j, k, t)                Yua_dynadv_cen2[i][j][k]->Ydelta[t][v] 
1225/*M3_VALSIT */ #define   YD1_ua_dynadv_cen2(i, j, k, t)                  Yua_dynadv_cen2[i][j][k]->Ydelta[t][0] 
1226/*M3_HERESIT*/ #define   YD1Y_ua_dynadv_cen2             Yua_dynadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1227
1228class Yaoua_dynadv_cen2;
1229class ua_dynadv_cen2;
1230/*NBSMOD    */ #define   YNBS_ua_dynadv_cen2     1
1231/*NBIMOD    */ #define   YNBI_ua_dynadv_cen2     3
1232/*M3_IRMOD  */ #define   Yua_dynadv_cen2(i, j, k)        Yua_dynadv_cen2[i][j][k]
1233/*M3_NOWMOD */ #define   Yua_dynadv_cen2Y                Yua_dynadv_cen2[Yi][Yj][Yk]
1234/*M3_VALST  */ #define   Ystate_ua_dynadv_cen2(v, i, j, k, t)    Yua_dynadv_cen2[i][j][k]->Ystate[t][v] 
1235/*M3_VALST  */ #define   YS_ua_dynadv_cen2(v, i, j, k, t)                Yua_dynadv_cen2[i][j][k]->Ystate[t][v] 
1236/*M3_VALSIT */ #define   YS1_ua_dynadv_cen2(i, j, k, t)                  Yua_dynadv_cen2[i][j][k]->Ystate[t][0] 
1237/*M3_HERESIT*/ #define   YS1Y_ua_dynadv_cen2             Yua_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 
1238/*M3_VALST  */ #define   Ygrad_ua_dynadv_cen2(v, i, j, k, t)     Yua_dynadv_cen2[i][j][k]->Ygrad[t][v] 
1239/*M3_VALST  */ #define   YG_ua_dynadv_cen2(v, i, j, k, t)                Yua_dynadv_cen2[i][j][k]->Ygrad[t][v] 
1240/*M3_VALSIT */ #define   YG1_ua_dynadv_cen2(i, j, k, t)                  Yua_dynadv_cen2[i][j][k]->Ygrad[t][0] 
1241/*M3_HERESIT*/ #define   YG1Y_ua_dynadv_cen2             Yua_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1242ua_dynadv_cen2           *Yua_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1243
1244//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~
1245#define Yid_va_dynadv_cen2 47
1246/*M3_VALST  */ #define   Ydelta_va_dynadv_cen2(v, i, j, k, t)    Yva_dynadv_cen2[i][j][k]->Ydelta[t][v] 
1247/*M3_VALST  */ #define   YD_va_dynadv_cen2(v, i, j, k, t)                Yva_dynadv_cen2[i][j][k]->Ydelta[t][v] 
1248/*M3_VALSIT */ #define   YD1_va_dynadv_cen2(i, j, k, t)                  Yva_dynadv_cen2[i][j][k]->Ydelta[t][0] 
1249/*M3_HERESIT*/ #define   YD1Y_va_dynadv_cen2             Yva_dynadv_cen2[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1250
1251class Yaova_dynadv_cen2;
1252class va_dynadv_cen2;
1253/*NBSMOD    */ #define   YNBS_va_dynadv_cen2     1
1254/*NBIMOD    */ #define   YNBI_va_dynadv_cen2     3
1255/*M3_IRMOD  */ #define   Yva_dynadv_cen2(i, j, k)        Yva_dynadv_cen2[i][j][k]
1256/*M3_NOWMOD */ #define   Yva_dynadv_cen2Y                Yva_dynadv_cen2[Yi][Yj][Yk]
1257/*M3_VALST  */ #define   Ystate_va_dynadv_cen2(v, i, j, k, t)    Yva_dynadv_cen2[i][j][k]->Ystate[t][v] 
1258/*M3_VALST  */ #define   YS_va_dynadv_cen2(v, i, j, k, t)                Yva_dynadv_cen2[i][j][k]->Ystate[t][v] 
1259/*M3_VALSIT */ #define   YS1_va_dynadv_cen2(i, j, k, t)                  Yva_dynadv_cen2[i][j][k]->Ystate[t][0] 
1260/*M3_HERESIT*/ #define   YS1Y_va_dynadv_cen2             Yva_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 
1261/*M3_VALST  */ #define   Ygrad_va_dynadv_cen2(v, i, j, k, t)     Yva_dynadv_cen2[i][j][k]->Ygrad[t][v] 
1262/*M3_VALST  */ #define   YG_va_dynadv_cen2(v, i, j, k, t)                Yva_dynadv_cen2[i][j][k]->Ygrad[t][v] 
1263/*M3_VALSIT */ #define   YG1_va_dynadv_cen2(i, j, k, t)                  Yva_dynadv_cen2[i][j][k]->Ygrad[t][0] 
1264/*M3_HERESIT*/ #define   YG1Y_va_dynadv_cen2             Yva_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1265va_dynadv_cen2           *Yva_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1266
1267//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwxyz_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~
1268#define Yid_zwxyz_vor_ene 48
1269/*M3_VALST  */ #define   Ydelta_zwxyz_vor_ene(v, i, j, k, t)     Yzwxyz_vor_ene[i][j][k]->Ydelta[t][v] 
1270/*M3_VALST  */ #define   YD_zwxyz_vor_ene(v, i, j, k, t)                 Yzwxyz_vor_ene[i][j][k]->Ydelta[t][v] 
1271/*M3_VALSIT */ #define   YD1_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ydelta[t][0] 
1272/*M3_VALSIT */ #define   YD2_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ydelta[t][1] 
1273/*M3_VALSIT */ #define   YD3_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ydelta[t][2] 
1274/*M3_HERESIT*/ #define   YD1Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1275/*M3_HERESIT*/ #define   YD2Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ydelta[YTemps][1] 
1276/*M3_HERESIT*/ #define   YD3Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ydelta[YTemps][2] 
1277
1278class Yaozwxyz_vor_ene;
1279class zwxyz_vor_ene;
1280/*NBSMOD    */ #define   YNBS_zwxyz_vor_ene      3
1281/*NBIMOD    */ #define   YNBI_zwxyz_vor_ene      4
1282/*M3_IRMOD  */ #define   Yzwxyz_vor_ene(i, j, k)         Yzwxyz_vor_ene[i][j][k]
1283/*M3_NOWMOD */ #define   Yzwxyz_vor_eneY                 Yzwxyz_vor_ene[Yi][Yj][Yk]
1284/*M3_VALST  */ #define   Ystate_zwxyz_vor_ene(v, i, j, k, t)     Yzwxyz_vor_ene[i][j][k]->Ystate[t][v] 
1285/*M3_VALST  */ #define   YS_zwxyz_vor_ene(v, i, j, k, t)                 Yzwxyz_vor_ene[i][j][k]->Ystate[t][v] 
1286/*M3_VALSIT */ #define   YS1_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ystate[t][0] 
1287/*M3_HERESIT*/ #define   YS1Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][0] 
1288/*M3_VALSIT */ #define   YS2_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ystate[t][1] 
1289/*M3_HERESIT*/ #define   YS2Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][1] 
1290/*M3_VALSIT */ #define   YS3_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ystate[t][2] 
1291/*M3_HERESIT*/ #define   YS3Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][2] 
1292/*M3_VALST  */ #define   Ygrad_zwxyz_vor_ene(v, i, j, k, t)      Yzwxyz_vor_ene[i][j][k]->Ygrad[t][v] 
1293/*M3_VALST  */ #define   YG_zwxyz_vor_ene(v, i, j, k, t)                 Yzwxyz_vor_ene[i][j][k]->Ygrad[t][v] 
1294/*M3_VALSIT */ #define   YG1_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ygrad[t][0] 
1295/*M3_HERESIT*/ #define   YG1Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1296/*M3_VALSIT */ #define   YG2_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ygrad[t][1] 
1297/*M3_HERESIT*/ #define   YG2Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][1] 
1298/*M3_VALSIT */ #define   YG3_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ygrad[t][2] 
1299/*M3_HERESIT*/ #define   YG3Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][2] 
1300zwxyz_vor_ene            *Yzwxyz_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1301
1302//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~
1303#define Yid_ua_vor_ene 49
1304/*M3_VALST  */ #define   Ydelta_ua_vor_ene(v, i, j, k, t)        Yua_vor_ene[i][j][k]->Ydelta[t][v] 
1305/*M3_VALST  */ #define   YD_ua_vor_ene(v, i, j, k, t)            Yua_vor_ene[i][j][k]->Ydelta[t][v] 
1306/*M3_VALSIT */ #define   YD1_ua_vor_ene(i, j, k, t)              Yua_vor_ene[i][j][k]->Ydelta[t][0] 
1307/*M3_HERESIT*/ #define   YD1Y_ua_vor_ene                 Yua_vor_ene[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1308
1309class Yaoua_vor_ene;
1310class ua_vor_ene;
1311/*NBSMOD    */ #define   YNBS_ua_vor_ene         1
1312/*NBIMOD    */ #define   YNBI_ua_vor_ene         7
1313/*M3_IRMOD  */ #define   Yua_vor_ene(i, j, k)    Yua_vor_ene[i][j][k]
1314/*M3_NOWMOD */ #define   Yua_vor_eneY            Yua_vor_ene[Yi][Yj][Yk]
1315/*M3_VALST  */ #define   Ystate_ua_vor_ene(v, i, j, k, t)        Yua_vor_ene[i][j][k]->Ystate[t][v] 
1316/*M3_VALST  */ #define   YS_ua_vor_ene(v, i, j, k, t)            Yua_vor_ene[i][j][k]->Ystate[t][v] 
1317/*M3_VALSIT */ #define   YS1_ua_vor_ene(i, j, k, t)              Yua_vor_ene[i][j][k]->Ystate[t][0] 
1318/*M3_HERESIT*/ #define   YS1Y_ua_vor_ene                 Yua_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][0] 
1319/*M3_VALST  */ #define   Ygrad_ua_vor_ene(v, i, j, k, t)         Yua_vor_ene[i][j][k]->Ygrad[t][v] 
1320/*M3_VALST  */ #define   YG_ua_vor_ene(v, i, j, k, t)            Yua_vor_ene[i][j][k]->Ygrad[t][v] 
1321/*M3_VALSIT */ #define   YG1_ua_vor_ene(i, j, k, t)              Yua_vor_ene[i][j][k]->Ygrad[t][0] 
1322/*M3_HERESIT*/ #define   YG1Y_ua_vor_ene                 Yua_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1323ua_vor_ene               *Yua_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1324
1325//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~
1326#define Yid_va_vor_ene 50
1327/*M3_VALST  */ #define   Ydelta_va_vor_ene(v, i, j, k, t)        Yva_vor_ene[i][j][k]->Ydelta[t][v] 
1328/*M3_VALST  */ #define   YD_va_vor_ene(v, i, j, k, t)            Yva_vor_ene[i][j][k]->Ydelta[t][v] 
1329/*M3_VALSIT */ #define   YD1_va_vor_ene(i, j, k, t)              Yva_vor_ene[i][j][k]->Ydelta[t][0] 
1330/*M3_HERESIT*/ #define   YD1Y_va_vor_ene                 Yva_vor_ene[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1331
1332class Yaova_vor_ene;
1333class va_vor_ene;
1334/*NBSMOD    */ #define   YNBS_va_vor_ene         1
1335/*NBIMOD    */ #define   YNBI_va_vor_ene         7
1336/*M3_IRMOD  */ #define   Yva_vor_ene(i, j, k)    Yva_vor_ene[i][j][k]
1337/*M3_NOWMOD */ #define   Yva_vor_eneY            Yva_vor_ene[Yi][Yj][Yk]
1338/*M3_VALST  */ #define   Ystate_va_vor_ene(v, i, j, k, t)        Yva_vor_ene[i][j][k]->Ystate[t][v] 
1339/*M3_VALST  */ #define   YS_va_vor_ene(v, i, j, k, t)            Yva_vor_ene[i][j][k]->Ystate[t][v] 
1340/*M3_VALSIT */ #define   YS1_va_vor_ene(i, j, k, t)              Yva_vor_ene[i][j][k]->Ystate[t][0] 
1341/*M3_HERESIT*/ #define   YS1Y_va_vor_ene                 Yva_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][0] 
1342/*M3_VALST  */ #define   Ygrad_va_vor_ene(v, i, j, k, t)         Yva_vor_ene[i][j][k]->Ygrad[t][v] 
1343/*M3_VALST  */ #define   YG_va_vor_ene(v, i, j, k, t)            Yva_vor_ene[i][j][k]->Ygrad[t][v] 
1344/*M3_VALSIT */ #define   YG1_va_vor_ene(i, j, k, t)              Yva_vor_ene[i][j][k]->Ygrad[t][0] 
1345/*M3_HERESIT*/ #define   YG1Y_va_vor_ene                 Yva_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1346va_vor_ene               *Yva_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1347
1348//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dyn_ldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~
1349#define Yid_ua_dyn_ldf_lap 51
1350/*M3_VALST  */ #define   Ydelta_ua_dyn_ldf_lap(v, i, j, k, t)    Yua_dyn_ldf_lap[i][j][k]->Ydelta[t][v] 
1351/*M3_VALST  */ #define   YD_ua_dyn_ldf_lap(v, i, j, k, t)                Yua_dyn_ldf_lap[i][j][k]->Ydelta[t][v] 
1352/*M3_VALSIT */ #define   YD1_ua_dyn_ldf_lap(i, j, k, t)                  Yua_dyn_ldf_lap[i][j][k]->Ydelta[t][0] 
1353/*M3_HERESIT*/ #define   YD1Y_ua_dyn_ldf_lap             Yua_dyn_ldf_lap[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1354
1355class Yaoua_dyn_ldf_lap;
1356class ua_dyn_ldf_lap;
1357/*NBSMOD    */ #define   YNBS_ua_dyn_ldf_lap     1
1358/*NBIMOD    */ #define   YNBI_ua_dyn_ldf_lap     5
1359/*M3_IRMOD  */ #define   Yua_dyn_ldf_lap(i, j, k)        Yua_dyn_ldf_lap[i][j][k]
1360/*M3_NOWMOD */ #define   Yua_dyn_ldf_lapY                Yua_dyn_ldf_lap[Yi][Yj][Yk]
1361/*M3_VALST  */ #define   Ystate_ua_dyn_ldf_lap(v, i, j, k, t)    Yua_dyn_ldf_lap[i][j][k]->Ystate[t][v] 
1362/*M3_VALST  */ #define   YS_ua_dyn_ldf_lap(v, i, j, k, t)                Yua_dyn_ldf_lap[i][j][k]->Ystate[t][v] 
1363/*M3_VALSIT */ #define   YS1_ua_dyn_ldf_lap(i, j, k, t)                  Yua_dyn_ldf_lap[i][j][k]->Ystate[t][0] 
1364/*M3_HERESIT*/ #define   YS1Y_ua_dyn_ldf_lap             Yua_dyn_ldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 
1365/*M3_VALST  */ #define   Ygrad_ua_dyn_ldf_lap(v, i, j, k, t)     Yua_dyn_ldf_lap[i][j][k]->Ygrad[t][v] 
1366/*M3_VALST  */ #define   YG_ua_dyn_ldf_lap(v, i, j, k, t)                Yua_dyn_ldf_lap[i][j][k]->Ygrad[t][v] 
1367/*M3_VALSIT */ #define   YG1_ua_dyn_ldf_lap(i, j, k, t)                  Yua_dyn_ldf_lap[i][j][k]->Ygrad[t][0] 
1368/*M3_HERESIT*/ #define   YG1Y_ua_dyn_ldf_lap             Yua_dyn_ldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1369ua_dyn_ldf_lap           *Yua_dyn_ldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1370
1371//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dyn_ldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~
1372#define Yid_va_dyn_ldf_lap 52
1373/*M3_VALST  */ #define   Ydelta_va_dyn_ldf_lap(v, i, j, k, t)    Yva_dyn_ldf_lap[i][j][k]->Ydelta[t][v] 
1374/*M3_VALST  */ #define   YD_va_dyn_ldf_lap(v, i, j, k, t)                Yva_dyn_ldf_lap[i][j][k]->Ydelta[t][v] 
1375/*M3_VALSIT */ #define   YD1_va_dyn_ldf_lap(i, j, k, t)                  Yva_dyn_ldf_lap[i][j][k]->Ydelta[t][0] 
1376/*M3_HERESIT*/ #define   YD1Y_va_dyn_ldf_lap             Yva_dyn_ldf_lap[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1377
1378class Yaova_dyn_ldf_lap;
1379class va_dyn_ldf_lap;
1380/*NBSMOD    */ #define   YNBS_va_dyn_ldf_lap     1
1381/*NBIMOD    */ #define   YNBI_va_dyn_ldf_lap     5
1382/*M3_IRMOD  */ #define   Yva_dyn_ldf_lap(i, j, k)        Yva_dyn_ldf_lap[i][j][k]
1383/*M3_NOWMOD */ #define   Yva_dyn_ldf_lapY                Yva_dyn_ldf_lap[Yi][Yj][Yk]
1384/*M3_VALST  */ #define   Ystate_va_dyn_ldf_lap(v, i, j, k, t)    Yva_dyn_ldf_lap[i][j][k]->Ystate[t][v] 
1385/*M3_VALST  */ #define   YS_va_dyn_ldf_lap(v, i, j, k, t)                Yva_dyn_ldf_lap[i][j][k]->Ystate[t][v] 
1386/*M3_VALSIT */ #define   YS1_va_dyn_ldf_lap(i, j, k, t)                  Yva_dyn_ldf_lap[i][j][k]->Ystate[t][0] 
1387/*M3_HERESIT*/ #define   YS1Y_va_dyn_ldf_lap             Yva_dyn_ldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 
1388/*M3_VALST  */ #define   Ygrad_va_dyn_ldf_lap(v, i, j, k, t)     Yva_dyn_ldf_lap[i][j][k]->Ygrad[t][v] 
1389/*M3_VALST  */ #define   YG_va_dyn_ldf_lap(v, i, j, k, t)                Yva_dyn_ldf_lap[i][j][k]->Ygrad[t][v] 
1390/*M3_VALSIT */ #define   YG1_va_dyn_ldf_lap(i, j, k, t)                  Yva_dyn_ldf_lap[i][j][k]->Ygrad[t][0] 
1391/*M3_HERESIT*/ #define   YG1Y_va_dyn_ldf_lap             Yva_dyn_ldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1392va_dyn_ldf_lap           *Yva_dyn_ldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1393
1394//~~~~~~~~~~~~~~~~~~~~~~~~~ module zhpij_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~
1395#define Yid_zhpij_dyn_hpg_zco 53
1396/*M3_VALST  */ #define   Ydelta_zhpij_dyn_hpg_zco(v, i, j, k, t)         Yzhpij_dyn_hpg_zco[i][j][k]->Ydelta[t][v] 
1397/*M3_VALST  */ #define   YD_zhpij_dyn_hpg_zco(v, i, j, k, t)             Yzhpij_dyn_hpg_zco[i][j][k]->Ydelta[t][v] 
1398/*M3_VALSIT */ #define   YD1_zhpij_dyn_hpg_zco(i, j, k, t)               Yzhpij_dyn_hpg_zco[i][j][k]->Ydelta[t][0] 
1399/*M3_VALSIT */ #define   YD2_zhpij_dyn_hpg_zco(i, j, k, t)               Yzhpij_dyn_hpg_zco[i][j][k]->Ydelta[t][1] 
1400/*M3_HERESIT*/ #define   YD1Y_zhpij_dyn_hpg_zco                  Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1401/*M3_HERESIT*/ #define   YD2Y_zhpij_dyn_hpg_zco                  Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ydelta[YTemps][1] 
1402
1403class Yaozhpij_dyn_hpg_zco;
1404class zhpij_dyn_hpg_zco;
1405/*NBSMOD    */ #define   YNBS_zhpij_dyn_hpg_zco          2
1406/*NBIMOD    */ #define   YNBI_zhpij_dyn_hpg_zco          8
1407/*M3_IRMOD  */ #define   Yzhpij_dyn_hpg_zco(i, j, k)     Yzhpij_dyn_hpg_zco[i][j][k]
1408/*M3_NOWMOD */ #define   Yzhpij_dyn_hpg_zcoY             Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]
1409/*M3_VALST  */ #define   Ystate_zhpij_dyn_hpg_zco(v, i, j, k, t)         Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][v] 
1410/*M3_VALST  */ #define   YS_zhpij_dyn_hpg_zco(v, i, j, k, t)             Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][v] 
1411/*M3_VALSIT */ #define   YS1_zhpij_dyn_hpg_zco(i, j, k, t)               Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][0] 
1412/*M3_HERESIT*/ #define   YS1Y_zhpij_dyn_hpg_zco                  Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][0] 
1413/*M3_VALSIT */ #define   YS2_zhpij_dyn_hpg_zco(i, j, k, t)               Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][1] 
1414/*M3_HERESIT*/ #define   YS2Y_zhpij_dyn_hpg_zco                  Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][1] 
1415/*M3_VALST  */ #define   Ygrad_zhpij_dyn_hpg_zco(v, i, j, k, t)          Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 
1416/*M3_VALST  */ #define   YG_zhpij_dyn_hpg_zco(v, i, j, k, t)             Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 
1417/*M3_VALSIT */ #define   YG1_zhpij_dyn_hpg_zco(i, j, k, t)               Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][0] 
1418/*M3_HERESIT*/ #define   YG1Y_zhpij_dyn_hpg_zco                  Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1419/*M3_VALSIT */ #define   YG2_zhpij_dyn_hpg_zco(i, j, k, t)               Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][1] 
1420/*M3_HERESIT*/ #define   YG2Y_zhpij_dyn_hpg_zco                  Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][1] 
1421zhpij_dyn_hpg_zco                *Yzhpij_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1422
1423//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~
1424#define Yid_ua_dyn_hpg_zco 54
1425/*M3_VALST  */ #define   Ydelta_ua_dyn_hpg_zco(v, i, j, k, t)    Yua_dyn_hpg_zco[i][j][k]->Ydelta[t][v] 
1426/*M3_VALST  */ #define   YD_ua_dyn_hpg_zco(v, i, j, k, t)                Yua_dyn_hpg_zco[i][j][k]->Ydelta[t][v] 
1427/*M3_VALSIT */ #define   YD1_ua_dyn_hpg_zco(i, j, k, t)                  Yua_dyn_hpg_zco[i][j][k]->Ydelta[t][0] 
1428/*M3_HERESIT*/ #define   YD1Y_ua_dyn_hpg_zco             Yua_dyn_hpg_zco[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1429
1430class Yaoua_dyn_hpg_zco;
1431class ua_dyn_hpg_zco;
1432/*NBSMOD    */ #define   YNBS_ua_dyn_hpg_zco     1
1433/*NBIMOD    */ #define   YNBI_ua_dyn_hpg_zco     2
1434/*M3_IRMOD  */ #define   Yua_dyn_hpg_zco(i, j, k)        Yua_dyn_hpg_zco[i][j][k]
1435/*M3_NOWMOD */ #define   Yua_dyn_hpg_zcoY                Yua_dyn_hpg_zco[Yi][Yj][Yk]
1436/*M3_VALST  */ #define   Ystate_ua_dyn_hpg_zco(v, i, j, k, t)    Yua_dyn_hpg_zco[i][j][k]->Ystate[t][v] 
1437/*M3_VALST  */ #define   YS_ua_dyn_hpg_zco(v, i, j, k, t)                Yua_dyn_hpg_zco[i][j][k]->Ystate[t][v] 
1438/*M3_VALSIT */ #define   YS1_ua_dyn_hpg_zco(i, j, k, t)                  Yua_dyn_hpg_zco[i][j][k]->Ystate[t][0] 
1439/*M3_HERESIT*/ #define   YS1Y_ua_dyn_hpg_zco             Yua_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][0] 
1440/*M3_VALST  */ #define   Ygrad_ua_dyn_hpg_zco(v, i, j, k, t)     Yua_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 
1441/*M3_VALST  */ #define   YG_ua_dyn_hpg_zco(v, i, j, k, t)                Yua_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 
1442/*M3_VALSIT */ #define   YG1_ua_dyn_hpg_zco(i, j, k, t)                  Yua_dyn_hpg_zco[i][j][k]->Ygrad[t][0] 
1443/*M3_HERESIT*/ #define   YG1Y_ua_dyn_hpg_zco             Yua_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1444ua_dyn_hpg_zco           *Yua_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1445
1446//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~
1447#define Yid_va_dyn_hpg_zco 55
1448/*M3_VALST  */ #define   Ydelta_va_dyn_hpg_zco(v, i, j, k, t)    Yva_dyn_hpg_zco[i][j][k]->Ydelta[t][v] 
1449/*M3_VALST  */ #define   YD_va_dyn_hpg_zco(v, i, j, k, t)                Yva_dyn_hpg_zco[i][j][k]->Ydelta[t][v] 
1450/*M3_VALSIT */ #define   YD1_va_dyn_hpg_zco(i, j, k, t)                  Yva_dyn_hpg_zco[i][j][k]->Ydelta[t][0] 
1451/*M3_HERESIT*/ #define   YD1Y_va_dyn_hpg_zco             Yva_dyn_hpg_zco[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1452class va_dyn_hpg_zco;
1453/*NBSMOD    */ #define   YNBS_va_dyn_hpg_zco     1
1454/*NBIMOD    */ #define   YNBI_va_dyn_hpg_zco     2
1455/*M3_IRMOD  */ #define   Yva_dyn_hpg_zco(i, j, k)        Yva_dyn_hpg_zco[i][j][k]
1456/*M3_NOWMOD */ #define   Yva_dyn_hpg_zcoY                Yva_dyn_hpg_zco[Yi][Yj][Yk]
1457/*M3_VALST  */ #define   Ystate_va_dyn_hpg_zco(v, i, j, k, t)    Yva_dyn_hpg_zco[i][j][k]->Ystate[t][v] 
1458/*M3_VALST  */ #define   YS_va_dyn_hpg_zco(v, i, j, k, t)                Yva_dyn_hpg_zco[i][j][k]->Ystate[t][v] 
1459/*M3_VALSIT */ #define   YS1_va_dyn_hpg_zco(i, j, k, t)                  Yva_dyn_hpg_zco[i][j][k]->Ystate[t][0] 
1460/*M3_HERESIT*/ #define   YS1Y_va_dyn_hpg_zco             Yva_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][0] 
1461/*M3_VALST  */ #define   Ygrad_va_dyn_hpg_zco(v, i, j, k, t)     Yva_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 
1462/*M3_VALST  */ #define   YG_va_dyn_hpg_zco(v, i, j, k, t)                Yva_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 
1463/*M3_VALSIT */ #define   YG1_va_dyn_hpg_zco(i, j, k, t)                  Yva_dyn_hpg_zco[i][j][k]->Ygrad[t][0] 
1464/*M3_HERESIT*/ #define   YG1Y_va_dyn_hpg_zco             Yva_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1465va_dyn_hpg_zco           *Yva_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1466
1467//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
1468#define Yid_zwisd_ua_dynzdf_imp 56
1469/*M3_VALST  */ #define   Ydelta_zwisd_ua_dynzdf_imp(v, i, j, k, t)       Yzwisd_ua_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1470/*M3_VALST  */ #define   YD_zwisd_ua_dynzdf_imp(v, i, j, k, t)           Yzwisd_ua_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1471/*M3_VALSIT */ #define   YD1_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ydelta[t][0] 
1472/*M3_VALSIT */ #define   YD2_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ydelta[t][1] 
1473/*M3_VALSIT */ #define   YD3_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ydelta[t][2] 
1474/*M3_HERESIT*/ #define   YD1Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1475/*M3_HERESIT*/ #define   YD2Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][1] 
1476/*M3_HERESIT*/ #define   YD3Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][2] 
1477
1478class Yaozwisd_ua_dynzdf_imp;
1479class zwisd_ua_dynzdf_imp;
1480/*NBSMOD    */ #define   YNBS_zwisd_ua_dynzdf_imp        3
1481/*NBIMOD    */ #define   YNBI_zwisd_ua_dynzdf_imp        2
1482/*M3_IRMOD  */ #define   Yzwisd_ua_dynzdf_imp(i, j, k)   Yzwisd_ua_dynzdf_imp[i][j][k]
1483/*M3_NOWMOD */ #define   Yzwisd_ua_dynzdf_impY           Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]
1484/*M3_VALST  */ #define   Ystate_zwisd_ua_dynzdf_imp(v, i, j, k, t)       Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 
1485/*M3_VALST  */ #define   YS_zwisd_ua_dynzdf_imp(v, i, j, k, t)           Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 
1486/*M3_VALSIT */ #define   YS1_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][0] 
1487/*M3_HERESIT*/ #define   YS1Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
1488/*M3_VALSIT */ #define   YS2_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][1] 
1489/*M3_HERESIT*/ #define   YS2Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][1] 
1490/*M3_VALSIT */ #define   YS3_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][2] 
1491/*M3_HERESIT*/ #define   YS3Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][2] 
1492/*M3_VALST  */ #define   Ygrad_zwisd_ua_dynzdf_imp(v, i, j, k, t)        Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1493/*M3_VALST  */ #define   YG_zwisd_ua_dynzdf_imp(v, i, j, k, t)           Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1494/*M3_VALSIT */ #define   YG1_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][0] 
1495/*M3_HERESIT*/ #define   YG1Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1496/*M3_VALSIT */ #define   YG2_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][1] 
1497/*M3_HERESIT*/ #define   YG2Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][1] 
1498/*M3_VALSIT */ #define   YG3_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][2] 
1499/*M3_HERESIT*/ #define   YG3Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][2] 
1500zwisd_ua_dynzdf_imp              *Yzwisd_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1501
1502//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
1503#define Yid_zwisd_va_dynzdf_imp 57
1504/*M3_VALST  */ #define   Ydelta_zwisd_va_dynzdf_imp(v, i, j, k, t)       Yzwisd_va_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1505/*M3_VALST  */ #define   YD_zwisd_va_dynzdf_imp(v, i, j, k, t)           Yzwisd_va_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1506/*M3_VALSIT */ #define   YD1_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ydelta[t][0] 
1507/*M3_VALSIT */ #define   YD2_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ydelta[t][1] 
1508/*M3_VALSIT */ #define   YD3_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ydelta[t][2] 
1509/*M3_HERESIT*/ #define   YD1Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1510/*M3_HERESIT*/ #define   YD2Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][1] 
1511/*M3_HERESIT*/ #define   YD3Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][2] 
1512
1513class Yaozwisd_va_dynzdf_imp;
1514class zwisd_va_dynzdf_imp;
1515/*NBSMOD    */ #define   YNBS_zwisd_va_dynzdf_imp        3
1516/*NBIMOD    */ #define   YNBI_zwisd_va_dynzdf_imp        2
1517/*M3_IRMOD  */ #define   Yzwisd_va_dynzdf_imp(i, j, k)   Yzwisd_va_dynzdf_imp[i][j][k]
1518/*M3_NOWMOD */ #define   Yzwisd_va_dynzdf_impY           Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]
1519/*M3_VALST  */ #define   Ystate_zwisd_va_dynzdf_imp(v, i, j, k, t)       Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][v] 
1520/*M3_VALST  */ #define   YS_zwisd_va_dynzdf_imp(v, i, j, k, t)           Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][v] 
1521/*M3_VALSIT */ #define   YS1_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][0] 
1522/*M3_HERESIT*/ #define   YS1Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
1523/*M3_VALSIT */ #define   YS2_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][1] 
1524/*M3_HERESIT*/ #define   YS2Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][1] 
1525/*M3_VALSIT */ #define   YS3_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][2] 
1526/*M3_HERESIT*/ #define   YS3Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][2] 
1527/*M3_VALST  */ #define   Ygrad_zwisd_va_dynzdf_imp(v, i, j, k, t)        Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1528/*M3_VALST  */ #define   YG_zwisd_va_dynzdf_imp(v, i, j, k, t)           Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1529/*M3_VALSIT */ #define   YG1_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][0] 
1530/*M3_HERESIT*/ #define   YG1Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1531/*M3_VALSIT */ #define   YG2_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][1] 
1532/*M3_HERESIT*/ #define   YG2Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][1] 
1533/*M3_VALSIT */ #define   YG3_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][2] 
1534/*M3_HERESIT*/ #define   YG3Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][2] 
1535zwisd_va_dynzdf_imp              *Yzwisd_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1536
1537//~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
1538#define Yid_zrhs_ua_dynzdf_imp 58
1539/*M3_VALST  */ #define   Ydelta_zrhs_ua_dynzdf_imp(v, i, j, k, t)        Yzrhs_ua_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1540/*M3_VALST  */ #define   YD_zrhs_ua_dynzdf_imp(v, i, j, k, t)            Yzrhs_ua_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1541/*M3_VALSIT */ #define   YD1_zrhs_ua_dynzdf_imp(i, j, k, t)              Yzrhs_ua_dynzdf_imp[i][j][k]->Ydelta[t][0] 
1542/*M3_HERESIT*/ #define   YD1Y_zrhs_ua_dynzdf_imp                 Yzrhs_ua_dynzdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1543
1544class Yaozrhs_ua_dynzdf_imp;
1545class zrhs_ua_dynzdf_imp;
1546/*NBSMOD    */ #define   YNBS_zrhs_ua_dynzdf_imp         1
1547/*NBIMOD    */ #define   YNBI_zrhs_ua_dynzdf_imp         3
1548/*M3_IRMOD  */ #define   Yzrhs_ua_dynzdf_imp(i, j, k)    Yzrhs_ua_dynzdf_imp[i][j][k]
1549/*M3_NOWMOD */ #define   Yzrhs_ua_dynzdf_impY            Yzrhs_ua_dynzdf_imp[Yi][Yj][Yk]
1550/*M3_VALST  */ #define   Ystate_zrhs_ua_dynzdf_imp(v, i, j, k, t)        Yzrhs_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 
1551/*M3_VALST  */ #define   YS_zrhs_ua_dynzdf_imp(v, i, j, k, t)            Yzrhs_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 
1552/*M3_VALSIT */ #define   YS1_zrhs_ua_dynzdf_imp(i, j, k, t)              Yzrhs_ua_dynzdf_imp[i][j][k]->Ystate[t][0] 
1553/*M3_HERESIT*/ #define   YS1Y_zrhs_ua_dynzdf_imp                 Yzrhs_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
1554/*M3_VALST  */ #define   Ygrad_zrhs_ua_dynzdf_imp(v, i, j, k, t)         Yzrhs_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1555/*M3_VALST  */ #define   YG_zrhs_ua_dynzdf_imp(v, i, j, k, t)            Yzrhs_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1556/*M3_VALSIT */ #define   YG1_zrhs_ua_dynzdf_imp(i, j, k, t)              Yzrhs_ua_dynzdf_imp[i][j][k]->Ygrad[t][0] 
1557/*M3_HERESIT*/ #define   YG1Y_zrhs_ua_dynzdf_imp                 Yzrhs_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1558zrhs_ua_dynzdf_imp               *Yzrhs_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1559
1560//~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
1561#define Yid_zrhs_va_dynzdf_imp 59
1562/*M3_VALST  */ #define   Ydelta_zrhs_va_dynzdf_imp(v, i, j, k, t)        Yzrhs_va_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1563/*M3_VALST  */ #define   YD_zrhs_va_dynzdf_imp(v, i, j, k, t)            Yzrhs_va_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1564/*M3_VALSIT */ #define   YD1_zrhs_va_dynzdf_imp(i, j, k, t)              Yzrhs_va_dynzdf_imp[i][j][k]->Ydelta[t][0] 
1565/*M3_HERESIT*/ #define   YD1Y_zrhs_va_dynzdf_imp                 Yzrhs_va_dynzdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1566
1567class Yaozrhs_va_dynzdf_imp;
1568class zrhs_va_dynzdf_imp;
1569/*NBSMOD    */ #define   YNBS_zrhs_va_dynzdf_imp         1
1570/*NBIMOD    */ #define   YNBI_zrhs_va_dynzdf_imp         3
1571/*M3_IRMOD  */ #define   Yzrhs_va_dynzdf_imp(i, j, k)    Yzrhs_va_dynzdf_imp[i][j][k]
1572/*M3_NOWMOD */ #define   Yzrhs_va_dynzdf_impY            Yzrhs_va_dynzdf_imp[Yi][Yj][Yk]
1573/*M3_VALST  */ #define   Ystate_zrhs_va_dynzdf_imp(v, i, j, k, t)        Yzrhs_va_dynzdf_imp[i][j][k]->Ystate[t][v] 
1574/*M3_VALST  */ #define   YS_zrhs_va_dynzdf_imp(v, i, j, k, t)            Yzrhs_va_dynzdf_imp[i][j][k]->Ystate[t][v] 
1575/*M3_VALSIT */ #define   YS1_zrhs_va_dynzdf_imp(i, j, k, t)              Yzrhs_va_dynzdf_imp[i][j][k]->Ystate[t][0] 
1576/*M3_HERESIT*/ #define   YS1Y_zrhs_va_dynzdf_imp                 Yzrhs_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
1577/*M3_VALST  */ #define   Ygrad_zrhs_va_dynzdf_imp(v, i, j, k, t)         Yzrhs_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1578/*M3_VALST  */ #define   YG_zrhs_va_dynzdf_imp(v, i, j, k, t)            Yzrhs_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1579/*M3_VALSIT */ #define   YG1_zrhs_va_dynzdf_imp(i, j, k, t)              Yzrhs_va_dynzdf_imp[i][j][k]->Ygrad[t][0] 
1580/*M3_HERESIT*/ #define   YG1Y_zrhs_va_dynzdf_imp                 Yzrhs_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1581zrhs_va_dynzdf_imp               *Yzrhs_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1582
1583//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
1584#define Yid_zwt_ua_dynzdf_imp 60
1585/*M3_VALST  */ #define   Ydelta_zwt_ua_dynzdf_imp(v, i, j, k, t)         Yzwt_ua_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1586/*M3_VALST  */ #define   YD_zwt_ua_dynzdf_imp(v, i, j, k, t)             Yzwt_ua_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1587/*M3_VALSIT */ #define   YD1_zwt_ua_dynzdf_imp(i, j, k, t)               Yzwt_ua_dynzdf_imp[i][j][k]->Ydelta[t][0] 
1588/*M3_HERESIT*/ #define   YD1Y_zwt_ua_dynzdf_imp                  Yzwt_ua_dynzdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1589class zwt_ua_dynzdf_imp;
1590/*NBSMOD    */ #define   YNBS_zwt_ua_dynzdf_imp          1
1591/*NBIMOD    */ #define   YNBI_zwt_ua_dynzdf_imp          4
1592/*M3_IRMOD  */ #define   Yzwt_ua_dynzdf_imp(i, j, k)     Yzwt_ua_dynzdf_imp[i][j][k]
1593/*M3_NOWMOD */ #define   Yzwt_ua_dynzdf_impY             Yzwt_ua_dynzdf_imp[Yi][Yj][Yk]
1594/*M3_VALST  */ #define   Ystate_zwt_ua_dynzdf_imp(v, i, j, k, t)         Yzwt_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 
1595/*M3_VALST  */ #define   YS_zwt_ua_dynzdf_imp(v, i, j, k, t)             Yzwt_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 
1596/*M3_VALSIT */ #define   YS1_zwt_ua_dynzdf_imp(i, j, k, t)               Yzwt_ua_dynzdf_imp[i][j][k]->Ystate[t][0] 
1597/*M3_HERESIT*/ #define   YS1Y_zwt_ua_dynzdf_imp                  Yzwt_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
1598/*M3_VALST  */ #define   Ygrad_zwt_ua_dynzdf_imp(v, i, j, k, t)          Yzwt_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1599/*M3_VALST  */ #define   YG_zwt_ua_dynzdf_imp(v, i, j, k, t)             Yzwt_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1600/*M3_VALSIT */ #define   YG1_zwt_ua_dynzdf_imp(i, j, k, t)               Yzwt_ua_dynzdf_imp[i][j][k]->Ygrad[t][0] 
1601/*M3_HERESIT*/ #define   YG1Y_zwt_ua_dynzdf_imp                  Yzwt_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1602zwt_ua_dynzdf_imp                *Yzwt_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1603
1604//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
1605#define Yid_zwt_va_dynzdf_imp 61
1606/*M3_VALST  */ #define   Ydelta_zwt_va_dynzdf_imp(v, i, j, k, t)         Yzwt_va_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1607/*M3_VALST  */ #define   YD_zwt_va_dynzdf_imp(v, i, j, k, t)             Yzwt_va_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1608/*M3_VALSIT */ #define   YD1_zwt_va_dynzdf_imp(i, j, k, t)               Yzwt_va_dynzdf_imp[i][j][k]->Ydelta[t][0] 
1609/*M3_HERESIT*/ #define   YD1Y_zwt_va_dynzdf_imp                  Yzwt_va_dynzdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1610class zwt_va_dynzdf_imp;
1611/*NBSMOD    */ #define   YNBS_zwt_va_dynzdf_imp          1
1612/*NBIMOD    */ #define   YNBI_zwt_va_dynzdf_imp          4
1613/*M3_IRMOD  */ #define   Yzwt_va_dynzdf_imp(i, j, k)     Yzwt_va_dynzdf_imp[i][j][k]
1614/*M3_NOWMOD */ #define   Yzwt_va_dynzdf_impY             Yzwt_va_dynzdf_imp[Yi][Yj][Yk]
1615/*M3_VALST  */ #define   Ystate_zwt_va_dynzdf_imp(v, i, j, k, t)         Yzwt_va_dynzdf_imp[i][j][k]->Ystate[t][v] 
1616/*M3_VALST  */ #define   YS_zwt_va_dynzdf_imp(v, i, j, k, t)             Yzwt_va_dynzdf_imp[i][j][k]->Ystate[t][v] 
1617/*M3_VALSIT */ #define   YS1_zwt_va_dynzdf_imp(i, j, k, t)               Yzwt_va_dynzdf_imp[i][j][k]->Ystate[t][0] 
1618/*M3_HERESIT*/ #define   YS1Y_zwt_va_dynzdf_imp                  Yzwt_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
1619/*M3_VALST  */ #define   Ygrad_zwt_va_dynzdf_imp(v, i, j, k, t)          Yzwt_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1620/*M3_VALST  */ #define   YG_zwt_va_dynzdf_imp(v, i, j, k, t)             Yzwt_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1621/*M3_VALSIT */ #define   YG1_zwt_va_dynzdf_imp(i, j, k, t)               Yzwt_va_dynzdf_imp[i][j][k]->Ygrad[t][0] 
1622/*M3_HERESIT*/ #define   YG1Y_zwt_va_dynzdf_imp                  Yzwt_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1623zwt_va_dynzdf_imp                *Yzwt_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1624
1625//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_de_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
1626#define Yid_ua_de_dynzdf_imp 62
1627/*M3_VALST  */ #define   Ydelta_ua_de_dynzdf_imp(v, i, j, k, t)          Yua_de_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1628/*M3_VALST  */ #define   YD_ua_de_dynzdf_imp(v, i, j, k, t)              Yua_de_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1629/*M3_VALSIT */ #define   YD1_ua_de_dynzdf_imp(i, j, k, t)                Yua_de_dynzdf_imp[i][j][k]->Ydelta[t][0] 
1630/*M3_HERESIT*/ #define   YD1Y_ua_de_dynzdf_imp           Yua_de_dynzdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1631class ua_de_dynzdf_imp;
1632/*NBSMOD    */ #define   YNBS_ua_de_dynzdf_imp   1
1633/*NBIMOD    */ #define   YNBI_ua_de_dynzdf_imp   4
1634/*M3_IRMOD  */ #define   Yua_de_dynzdf_imp(i, j, k)      Yua_de_dynzdf_imp[i][j][k]
1635/*M3_NOWMOD */ #define   Yua_de_dynzdf_impY              Yua_de_dynzdf_imp[Yi][Yj][Yk]
1636/*M3_VALST  */ #define   Ystate_ua_de_dynzdf_imp(v, i, j, k, t)          Yua_de_dynzdf_imp[i][j][k]->Ystate[t][v] 
1637/*M3_VALST  */ #define   YS_ua_de_dynzdf_imp(v, i, j, k, t)              Yua_de_dynzdf_imp[i][j][k]->Ystate[t][v] 
1638/*M3_VALSIT */ #define   YS1_ua_de_dynzdf_imp(i, j, k, t)                Yua_de_dynzdf_imp[i][j][k]->Ystate[t][0] 
1639/*M3_HERESIT*/ #define   YS1Y_ua_de_dynzdf_imp           Yua_de_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
1640/*M3_VALST  */ #define   Ygrad_ua_de_dynzdf_imp(v, i, j, k, t)   Yua_de_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1641/*M3_VALST  */ #define   YG_ua_de_dynzdf_imp(v, i, j, k, t)              Yua_de_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1642/*M3_VALSIT */ #define   YG1_ua_de_dynzdf_imp(i, j, k, t)                Yua_de_dynzdf_imp[i][j][k]->Ygrad[t][0] 
1643/*M3_HERESIT*/ #define   YG1Y_ua_de_dynzdf_imp           Yua_de_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1644ua_de_dynzdf_imp                 *Yua_de_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1645
1646//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
1647#define Yid_ua_dynzdf_imp 63
1648/*M3_VALST  */ #define   Ydelta_ua_dynzdf_imp(v, i, j, k, t)     Yua_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1649/*M3_VALST  */ #define   YD_ua_dynzdf_imp(v, i, j, k, t)                 Yua_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1650/*M3_VALSIT */ #define   YD1_ua_dynzdf_imp(i, j, k, t)           Yua_dynzdf_imp[i][j][k]->Ydelta[t][0] 
1651/*M3_HERESIT*/ #define   YD1Y_ua_dynzdf_imp              Yua_dynzdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1652
1653class Yaoua_dynzdf_imp;
1654class ua_dynzdf_imp;
1655/*NBSMOD    */ #define   YNBS_ua_dynzdf_imp      1
1656/*NBIMOD    */ #define   YNBI_ua_dynzdf_imp      4
1657/*M3_IRMOD  */ #define   Yua_dynzdf_imp(i, j, k)         Yua_dynzdf_imp[i][j][k]
1658/*M3_NOWMOD */ #define   Yua_dynzdf_impY                 Yua_dynzdf_imp[Yi][Yj][Yk]
1659/*M3_VALST  */ #define   Ystate_ua_dynzdf_imp(v, i, j, k, t)     Yua_dynzdf_imp[i][j][k]->Ystate[t][v] 
1660/*M3_VALST  */ #define   YS_ua_dynzdf_imp(v, i, j, k, t)                 Yua_dynzdf_imp[i][j][k]->Ystate[t][v] 
1661/*M3_VALSIT */ #define   YS1_ua_dynzdf_imp(i, j, k, t)           Yua_dynzdf_imp[i][j][k]->Ystate[t][0] 
1662/*M3_HERESIT*/ #define   YS1Y_ua_dynzdf_imp              Yua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
1663/*M3_VALST  */ #define   Ygrad_ua_dynzdf_imp(v, i, j, k, t)      Yua_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1664/*M3_VALST  */ #define   YG_ua_dynzdf_imp(v, i, j, k, t)                 Yua_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1665/*M3_VALSIT */ #define   YG1_ua_dynzdf_imp(i, j, k, t)           Yua_dynzdf_imp[i][j][k]->Ygrad[t][0] 
1666/*M3_HERESIT*/ #define   YG1Y_ua_dynzdf_imp              Yua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1667ua_dynzdf_imp            *Yua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1668
1669//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_de_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
1670#define Yid_va_de_dynzdf_imp 64
1671/*M3_VALST  */ #define   Ydelta_va_de_dynzdf_imp(v, i, j, k, t)          Yva_de_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1672/*M3_VALST  */ #define   YD_va_de_dynzdf_imp(v, i, j, k, t)              Yva_de_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1673/*M3_VALSIT */ #define   YD1_va_de_dynzdf_imp(i, j, k, t)                Yva_de_dynzdf_imp[i][j][k]->Ydelta[t][0] 
1674/*M3_HERESIT*/ #define   YD1Y_va_de_dynzdf_imp           Yva_de_dynzdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1675class va_de_dynzdf_imp;
1676/*NBSMOD    */ #define   YNBS_va_de_dynzdf_imp   1
1677/*NBIMOD    */ #define   YNBI_va_de_dynzdf_imp   4
1678/*M3_IRMOD  */ #define   Yva_de_dynzdf_imp(i, j, k)      Yva_de_dynzdf_imp[i][j][k]
1679/*M3_NOWMOD */ #define   Yva_de_dynzdf_impY              Yva_de_dynzdf_imp[Yi][Yj][Yk]
1680/*M3_VALST  */ #define   Ystate_va_de_dynzdf_imp(v, i, j, k, t)          Yva_de_dynzdf_imp[i][j][k]->Ystate[t][v] 
1681/*M3_VALST  */ #define   YS_va_de_dynzdf_imp(v, i, j, k, t)              Yva_de_dynzdf_imp[i][j][k]->Ystate[t][v] 
1682/*M3_VALSIT */ #define   YS1_va_de_dynzdf_imp(i, j, k, t)                Yva_de_dynzdf_imp[i][j][k]->Ystate[t][0] 
1683/*M3_HERESIT*/ #define   YS1Y_va_de_dynzdf_imp           Yva_de_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
1684/*M3_VALST  */ #define   Ygrad_va_de_dynzdf_imp(v, i, j, k, t)   Yva_de_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1685/*M3_VALST  */ #define   YG_va_de_dynzdf_imp(v, i, j, k, t)              Yva_de_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1686/*M3_VALSIT */ #define   YG1_va_de_dynzdf_imp(i, j, k, t)                Yva_de_dynzdf_imp[i][j][k]->Ygrad[t][0] 
1687/*M3_HERESIT*/ #define   YG1Y_va_de_dynzdf_imp           Yva_de_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1688va_de_dynzdf_imp                 *Yva_de_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1689
1690//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~
1691#define Yid_va_dynzdf_imp 65
1692/*M3_VALST  */ #define   Ydelta_va_dynzdf_imp(v, i, j, k, t)     Yva_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1693/*M3_VALST  */ #define   YD_va_dynzdf_imp(v, i, j, k, t)                 Yva_dynzdf_imp[i][j][k]->Ydelta[t][v] 
1694/*M3_VALSIT */ #define   YD1_va_dynzdf_imp(i, j, k, t)           Yva_dynzdf_imp[i][j][k]->Ydelta[t][0] 
1695/*M3_HERESIT*/ #define   YD1Y_va_dynzdf_imp              Yva_dynzdf_imp[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1696class va_dynzdf_imp;
1697/*NBSMOD    */ #define   YNBS_va_dynzdf_imp      1
1698/*NBIMOD    */ #define   YNBI_va_dynzdf_imp      4
1699/*M3_IRMOD  */ #define   Yva_dynzdf_imp(i, j, k)         Yva_dynzdf_imp[i][j][k]
1700/*M3_NOWMOD */ #define   Yva_dynzdf_impY                 Yva_dynzdf_imp[Yi][Yj][Yk]
1701/*M3_VALST  */ #define   Ystate_va_dynzdf_imp(v, i, j, k, t)     Yva_dynzdf_imp[i][j][k]->Ystate[t][v] 
1702/*M3_VALST  */ #define   YS_va_dynzdf_imp(v, i, j, k, t)                 Yva_dynzdf_imp[i][j][k]->Ystate[t][v] 
1703/*M3_VALSIT */ #define   YS1_va_dynzdf_imp(i, j, k, t)           Yva_dynzdf_imp[i][j][k]->Ystate[t][0] 
1704/*M3_HERESIT*/ #define   YS1Y_va_dynzdf_imp              Yva_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 
1705/*M3_VALST  */ #define   Ygrad_va_dynzdf_imp(v, i, j, k, t)      Yva_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1706/*M3_VALST  */ #define   YG_va_dynzdf_imp(v, i, j, k, t)                 Yva_dynzdf_imp[i][j][k]->Ygrad[t][v] 
1707/*M3_VALSIT */ #define   YG1_va_dynzdf_imp(i, j, k, t)           Yva_dynzdf_imp[i][j][k]->Ygrad[t][0] 
1708/*M3_HERESIT*/ #define   YG1Y_va_dynzdf_imp              Yva_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1709va_dynzdf_imp            *Yva_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1710
1711//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_norm_dynzdf~~~~~~~~~~~~~~~~~~~~~~~~~
1712#define Yid_ua_norm_dynzdf 66
1713/*M3_VALST  */ #define   Ydelta_ua_norm_dynzdf(v, i, j, k, t)    Yua_norm_dynzdf[i][j][k]->Ydelta[t][v] 
1714/*M3_VALST  */ #define   YD_ua_norm_dynzdf(v, i, j, k, t)                Yua_norm_dynzdf[i][j][k]->Ydelta[t][v] 
1715/*M3_VALSIT */ #define   YD1_ua_norm_dynzdf(i, j, k, t)                  Yua_norm_dynzdf[i][j][k]->Ydelta[t][0] 
1716/*M3_HERESIT*/ #define   YD1Y_ua_norm_dynzdf             Yua_norm_dynzdf[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1717
1718class Yaoua_norm_dynzdf;
1719class ua_norm_dynzdf;
1720/*NBSMOD    */ #define   YNBS_ua_norm_dynzdf     1
1721/*NBIMOD    */ #define   YNBI_ua_norm_dynzdf     2
1722/*M3_IRMOD  */ #define   Yua_norm_dynzdf(i, j, k)        Yua_norm_dynzdf[i][j][k]
1723/*M3_NOWMOD */ #define   Yua_norm_dynzdfY                Yua_norm_dynzdf[Yi][Yj][Yk]
1724/*M3_VALST  */ #define   Ystate_ua_norm_dynzdf(v, i, j, k, t)    Yua_norm_dynzdf[i][j][k]->Ystate[t][v] 
1725/*M3_VALST  */ #define   YS_ua_norm_dynzdf(v, i, j, k, t)                Yua_norm_dynzdf[i][j][k]->Ystate[t][v] 
1726/*M3_VALSIT */ #define   YS1_ua_norm_dynzdf(i, j, k, t)                  Yua_norm_dynzdf[i][j][k]->Ystate[t][0] 
1727/*M3_HERESIT*/ #define   YS1Y_ua_norm_dynzdf             Yua_norm_dynzdf[Yi][Yj][Yk]->Ystate[YTemps][0] 
1728/*M3_VALST  */ #define   Ygrad_ua_norm_dynzdf(v, i, j, k, t)     Yua_norm_dynzdf[i][j][k]->Ygrad[t][v] 
1729/*M3_VALST  */ #define   YG_ua_norm_dynzdf(v, i, j, k, t)                Yua_norm_dynzdf[i][j][k]->Ygrad[t][v] 
1730/*M3_VALSIT */ #define   YG1_ua_norm_dynzdf(i, j, k, t)                  Yua_norm_dynzdf[i][j][k]->Ygrad[t][0] 
1731/*M3_HERESIT*/ #define   YG1Y_ua_norm_dynzdf             Yua_norm_dynzdf[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1732ua_norm_dynzdf           *Yua_norm_dynzdf[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1733
1734//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_norm_dynzdf~~~~~~~~~~~~~~~~~~~~~~~~~
1735#define Yid_va_norm_dynzdf 67
1736/*M3_VALST  */ #define   Ydelta_va_norm_dynzdf(v, i, j, k, t)    Yva_norm_dynzdf[i][j][k]->Ydelta[t][v] 
1737/*M3_VALST  */ #define   YD_va_norm_dynzdf(v, i, j, k, t)                Yva_norm_dynzdf[i][j][k]->Ydelta[t][v] 
1738/*M3_VALSIT */ #define   YD1_va_norm_dynzdf(i, j, k, t)                  Yva_norm_dynzdf[i][j][k]->Ydelta[t][0] 
1739/*M3_HERESIT*/ #define   YD1Y_va_norm_dynzdf             Yva_norm_dynzdf[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1740class va_norm_dynzdf;
1741/*NBSMOD    */ #define   YNBS_va_norm_dynzdf     1
1742/*NBIMOD    */ #define   YNBI_va_norm_dynzdf     2
1743/*M3_IRMOD  */ #define   Yva_norm_dynzdf(i, j, k)        Yva_norm_dynzdf[i][j][k]
1744/*M3_NOWMOD */ #define   Yva_norm_dynzdfY                Yva_norm_dynzdf[Yi][Yj][Yk]
1745/*M3_VALST  */ #define   Ystate_va_norm_dynzdf(v, i, j, k, t)    Yva_norm_dynzdf[i][j][k]->Ystate[t][v] 
1746/*M3_VALST  */ #define   YS_va_norm_dynzdf(v, i, j, k, t)                Yva_norm_dynzdf[i][j][k]->Ystate[t][v] 
1747/*M3_VALSIT */ #define   YS1_va_norm_dynzdf(i, j, k, t)                  Yva_norm_dynzdf[i][j][k]->Ystate[t][0] 
1748/*M3_HERESIT*/ #define   YS1Y_va_norm_dynzdf             Yva_norm_dynzdf[Yi][Yj][Yk]->Ystate[YTemps][0] 
1749/*M3_VALST  */ #define   Ygrad_va_norm_dynzdf(v, i, j, k, t)     Yva_norm_dynzdf[i][j][k]->Ygrad[t][v] 
1750/*M3_VALST  */ #define   YG_va_norm_dynzdf(v, i, j, k, t)                Yva_norm_dynzdf[i][j][k]->Ygrad[t][v] 
1751/*M3_VALSIT */ #define   YG1_va_norm_dynzdf(i, j, k, t)                  Yva_norm_dynzdf[i][j][k]->Ygrad[t][0] 
1752/*M3_HERESIT*/ #define   YG1Y_va_norm_dynzdf             Yva_norm_dynzdf[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1753va_norm_dynzdf           *Yva_norm_dynzdf[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1754
1755//~~~~~~~~~~~~~~~~~~~~~~~~~ module spguv_now_dynspg~~~~~~~~~~~~~~~~~~~~~~~~~
1756#define Yid_spguv_now_dynspg 68
1757/*M2_VALST  */ #define   Ydelta_spguv_now_dynspg(v, i, j, t)             Yspguv_now_dynspg[i][j]->Ydelta[t][v] 
1758/*M2_VALST  */ #define   YD_spguv_now_dynspg(v, i, j, t)                 Yspguv_now_dynspg[i][j]->Ydelta[t][v] 
1759/*M2_VALSIT */ #define   YD1_spguv_now_dynspg(i, j, t)           Yspguv_now_dynspg[i][j]->Ydelta[t][0] 
1760/*M2_VALSIT */ #define   YD2_spguv_now_dynspg(i, j, t)           Yspguv_now_dynspg[i][j]->Ydelta[t][1] 
1761/*M2_HERESIT*/ #define   YD1Y_spguv_now_dynspg           Yspguv_now_dynspg[Yi][Yj]->Ydelta[YTemps][0] 
1762/*M2_HERESIT*/ #define   YD2Y_spguv_now_dynspg           Yspguv_now_dynspg[Yi][Yj]->Ydelta[YTemps][1] 
1763
1764class Yaospguv_now_dynspg;
1765class spguv_now_dynspg;
1766/*NBMOD     */ #define   YNB_spguv_now_dynspg    704
1767/*NBSMOD    */ #define   YNBS_spguv_now_dynspg   2
1768/*NBIMOD    */ #define   YNBI_spguv_now_dynspg   3
1769/*M2_IRMOD  */ #define   Yspguv_now_dynspg(i, j)         Yspguv_now_dynspg[i][j]
1770/*M2_NOWMOD */ #define   Yspguv_now_dynspgY              Yspguv_now_dynspg[Yi][Yj]
1771/*M2_VALST  */ #define   Ystate_spguv_now_dynspg(v, i, j, t)             Yspguv_now_dynspg[i][j]->Ystate[t][v] 
1772/*M2_VALST  */ #define   YS_spguv_now_dynspg(v, i, j, t)                 Yspguv_now_dynspg[i][j]->Ystate[t][v] 
1773/*M2_VALSIT */ #define   YS1_spguv_now_dynspg(i, j, t)           Yspguv_now_dynspg[i][j]->Ystate[t][0] 
1774/*M2_HERESIT*/ #define   YS1Y_spguv_now_dynspg           Yspguv_now_dynspg[Yi][Yj]->Ystate[YTemps][0] 
1775/*M2_VALSIT */ #define   YS2_spguv_now_dynspg(i, j, t)           Yspguv_now_dynspg[i][j]->Ystate[t][1] 
1776/*M2_HERESIT*/ #define   YS2Y_spguv_now_dynspg           Yspguv_now_dynspg[Yi][Yj]->Ystate[YTemps][1] 
1777/*M2_VALST  */ #define   Ygrad_spguv_now_dynspg(v, i, j, t)              Yspguv_now_dynspg[i][j]->Ygrad[t][v] 
1778/*M2_VALST  */ #define   YG_spguv_now_dynspg(v, i, j, t)                 Yspguv_now_dynspg[i][j]->Ygrad[t][v] 
1779/*M2_VALSIT */ #define   YG1_spguv_now_dynspg(i, j, t)           Yspguv_now_dynspg[i][j]->Ygrad[t][0] 
1780/*M2_HERESIT*/ #define   YG1Y_spguv_now_dynspg           Yspguv_now_dynspg[Yi][Yj]->Ygrad[YTemps][0] 
1781/*M2_VALSIT */ #define   YG2_spguv_now_dynspg(i, j, t)           Yspguv_now_dynspg[i][j]->Ygrad[t][1] 
1782/*M2_HERESIT*/ #define   YG2Y_spguv_now_dynspg           Yspguv_now_dynspg[Yi][Yj]->Ygrad[YTemps][1] 
1783spguv_now_dynspg                 *Yspguv_now_dynspg[YA1_S3dt][YA2_S3dt];
1784
1785//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_1_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~
1786#define Yid_ua_1_dynspg_flt 69
1787/*M3_VALST  */ #define   Ydelta_ua_1_dynspg_flt(v, i, j, k, t)   Yua_1_dynspg_flt[i][j][k]->Ydelta[t][v] 
1788/*M3_VALST  */ #define   YD_ua_1_dynspg_flt(v, i, j, k, t)               Yua_1_dynspg_flt[i][j][k]->Ydelta[t][v] 
1789/*M3_VALSIT */ #define   YD1_ua_1_dynspg_flt(i, j, k, t)                 Yua_1_dynspg_flt[i][j][k]->Ydelta[t][0] 
1790/*M3_HERESIT*/ #define   YD1Y_ua_1_dynspg_flt            Yua_1_dynspg_flt[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1791
1792class Yaoua_1_dynspg_flt;
1793class ua_1_dynspg_flt;
1794/*NBSMOD    */ #define   YNBS_ua_1_dynspg_flt    1
1795/*NBIMOD    */ #define   YNBI_ua_1_dynspg_flt    3
1796/*M3_IRMOD  */ #define   Yua_1_dynspg_flt(i, j, k)       Yua_1_dynspg_flt[i][j][k]
1797/*M3_NOWMOD */ #define   Yua_1_dynspg_fltY               Yua_1_dynspg_flt[Yi][Yj][Yk]
1798/*M3_VALST  */ #define   Ystate_ua_1_dynspg_flt(v, i, j, k, t)   Yua_1_dynspg_flt[i][j][k]->Ystate[t][v] 
1799/*M3_VALST  */ #define   YS_ua_1_dynspg_flt(v, i, j, k, t)               Yua_1_dynspg_flt[i][j][k]->Ystate[t][v] 
1800/*M3_VALSIT */ #define   YS1_ua_1_dynspg_flt(i, j, k, t)                 Yua_1_dynspg_flt[i][j][k]->Ystate[t][0] 
1801/*M3_HERESIT*/ #define   YS1Y_ua_1_dynspg_flt            Yua_1_dynspg_flt[Yi][Yj][Yk]->Ystate[YTemps][0] 
1802/*M3_VALST  */ #define   Ygrad_ua_1_dynspg_flt(v, i, j, k, t)    Yua_1_dynspg_flt[i][j][k]->Ygrad[t][v] 
1803/*M3_VALST  */ #define   YG_ua_1_dynspg_flt(v, i, j, k, t)               Yua_1_dynspg_flt[i][j][k]->Ygrad[t][v] 
1804/*M3_VALSIT */ #define   YG1_ua_1_dynspg_flt(i, j, k, t)                 Yua_1_dynspg_flt[i][j][k]->Ygrad[t][0] 
1805/*M3_HERESIT*/ #define   YG1Y_ua_1_dynspg_flt            Yua_1_dynspg_flt[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1806ua_1_dynspg_flt                  *Yua_1_dynspg_flt[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1807
1808//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_1_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~
1809#define Yid_va_1_dynspg_flt 70
1810/*M3_VALST  */ #define   Ydelta_va_1_dynspg_flt(v, i, j, k, t)   Yva_1_dynspg_flt[i][j][k]->Ydelta[t][v] 
1811/*M3_VALST  */ #define   YD_va_1_dynspg_flt(v, i, j, k, t)               Yva_1_dynspg_flt[i][j][k]->Ydelta[t][v] 
1812/*M3_VALSIT */ #define   YD1_va_1_dynspg_flt(i, j, k, t)                 Yva_1_dynspg_flt[i][j][k]->Ydelta[t][0] 
1813/*M3_HERESIT*/ #define   YD1Y_va_1_dynspg_flt            Yva_1_dynspg_flt[Yi][Yj][Yk]->Ydelta[YTemps][0] 
1814
1815class Yaova_1_dynspg_flt;
1816class va_1_dynspg_flt;
1817/*NBSMOD    */ #define   YNBS_va_1_dynspg_flt    1
1818/*NBIMOD    */ #define   YNBI_va_1_dynspg_flt    3
1819/*M3_IRMOD  */ #define   Yva_1_dynspg_flt(i, j, k)       Yva_1_dynspg_flt[i][j][k]
1820/*M3_NOWMOD */ #define   Yva_1_dynspg_fltY               Yva_1_dynspg_flt[Yi][Yj][Yk]
1821/*M3_VALST  */ #define   Ystate_va_1_dynspg_flt(v, i, j, k, t)   Yva_1_dynspg_flt[i][j][k]->Ystate[t][v] 
1822/*M3_VALST  */ #define   YS_va_1_dynspg_flt(v, i, j, k, t)               Yva_1_dynspg_flt[i][j][k]->Ystate[t][v] 
1823/*M3_VALSIT */ #define   YS1_va_1_dynspg_flt(i, j, k, t)                 Yva_1_dynspg_flt[i][j][k]->Ystate[t][0] 
1824/*M3_HERESIT*/ #define   YS1Y_va_1_dynspg_flt            Yva_1_dynspg_flt[Yi][Yj][Yk]->Ystate[YTemps][0] 
1825/*M3_VALST  */ #define   Ygrad_va_1_dynspg_flt(v, i, j, k, t)    Yva_1_dynspg_flt[i][j][k]->Ygrad[t][v] 
1826/*M3_VALST  */ #define   YG_va_1_dynspg_flt(v, i, j, k, t)               Yva_1_dynspg_flt[i][j][k]->Ygrad[t][v] 
1827/*M3_VALSIT */ #define   YG1_va_1_dynspg_flt(i, j, k, t)                 Yva_1_dynspg_flt[i][j][k]->Ygrad[t][0] 
1828/*M3_HERESIT*/ #define   YG1Y_va_1_dynspg_flt            Yva_1_dynspg_flt[Yi][Yj][Yk]->Ygrad[YTemps][0] 
1829va_1_dynspg_flt                  *Yva_1_dynspg_flt[YA1_S3dt][YA2_S3dt][YA3_S3dt];
1830
1831//~~~~~~~~~~~~~~~~~~~~~~~~~ module sum_spgu_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~
1832#define Yid_sum_spgu_dynspg_flt 71
1833/*M2_VALST  */ #define   Ydelta_sum_spgu_dynspg_flt(v, i, j, t)                  Ysum_spgu_dynspg_flt[i][j]->Ydelta[t][v] 
1834/*M2_VALST  */ #define   YD_sum_spgu_dynspg_flt(v, i, j, t)              Ysum_spgu_dynspg_flt[i][j]->Ydelta[t][v] 
1835/*M2_VALSIT */ #define   YD1_sum_spgu_dynspg_flt(i, j, t)                Ysum_spgu_dynspg_flt[i][j]->Ydelta[t][0] 
1836/*M2_HERESIT*/ #define   YD1Y_sum_spgu_dynspg_flt                Ysum_spgu_dynspg_flt[Yi][Yj]->Ydelta[YTemps][0] 
1837
1838class Yaosum_spgu_dynspg_flt;
1839class sum_spgu_dynspg_flt;
1840/*NBMOD     */ #define   YNB_sum_spgu_dynspg_flt         704
1841/*NBSMOD    */ #define   YNBS_sum_spgu_dynspg_flt        1
1842/*NBIMOD    */ #define   YNBI_sum_spgu_dynspg_flt        31
1843/*M2_IRMOD  */ #define   Ysum_spgu_dynspg_flt(i, j)      Ysum_spgu_dynspg_flt[i][j]
1844/*M2_NOWMOD */ #define   Ysum_spgu_dynspg_fltY           Ysum_spgu_dynspg_flt[Yi][Yj]
1845/*M2_VALST  */ #define   Ystate_sum_spgu_dynspg_flt(v, i, j, t)                  Ysum_spgu_dynspg_flt[i][j]->Ystate[t][v] 
1846/*M2_VALST  */ #define   YS_sum_spgu_dynspg_flt(v, i, j, t)              Ysum_spgu_dynspg_flt[i][j]->Ystate[t][v] 
1847/*M2_VALSIT */ #define   YS1_sum_spgu_dynspg_flt(i, j, t)                Ysum_spgu_dynspg_flt[i][j]->Ystate[t][0] 
1848/*M2_HERESIT*/ #define   YS1Y_sum_spgu_dynspg_flt                Ysum_spgu_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 
1849/*M2_VALST  */ #define   Ygrad_sum_spgu_dynspg_flt(v, i, j, t)           Ysum_spgu_dynspg_flt[i][j]->Ygrad[t][v] 
1850/*M2_VALST  */ #define   YG_sum_spgu_dynspg_flt(v, i, j, t)              Ysum_spgu_dynspg_flt[i][j]->Ygrad[t][v] 
1851/*M2_VALSIT */ #define   YG1_sum_spgu_dynspg_flt(i, j, t)                Ysum_spgu_dynspg_flt[i][j]->Ygrad[t][0] 
1852/*M2_HERESIT*/ #define   YG1Y_sum_spgu_dynspg_flt                Ysum_spgu_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 
1853sum_spgu_dynspg_flt              *Ysum_spgu_dynspg_flt[YA1_S3dt][YA2_S3dt];
1854
1855//~~~~~~~~~~~~~~~~~~~~~~~~~ module sum_spgv_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~
1856#define Yid_sum_spgv_dynspg_flt 72
1857/*M2_VALST  */ #define   Ydelta_sum_spgv_dynspg_flt(v, i, j, t)                  Ysum_spgv_dynspg_flt[i][j]->Ydelta[t][v] 
1858/*M2_VALST  */ #define   YD_sum_spgv_dynspg_flt(v, i, j, t)              Ysum_spgv_dynspg_flt[i][j]->Ydelta[t][v] 
1859/*M2_VALSIT */ #define   YD1_sum_spgv_dynspg_flt(i, j, t)                Ysum_spgv_dynspg_flt[i][j]->Ydelta[t][0] 
1860/*M2_HERESIT*/ #define   YD1Y_sum_spgv_dynspg_flt                Ysum_spgv_dynspg_flt[Yi][Yj]->Ydelta[YTemps][0] 
1861
1862class Yaosum_spgv_dynspg_flt;
1863class sum_spgv_dynspg_flt;
1864/*NBMOD     */ #define   YNB_sum_spgv_dynspg_flt         704
1865/*NBSMOD    */ #define   YNBS_sum_spgv_dynspg_flt        1
1866/*NBIMOD    */ #define   YNBI_sum_spgv_dynspg_flt        31
1867/*M2_IRMOD  */ #define   Ysum_spgv_dynspg_flt(i, j)      Ysum_spgv_dynspg_flt[i][j]
1868/*M2_NOWMOD */ #define   Ysum_spgv_dynspg_fltY           Ysum_spgv_dynspg_flt[Yi][Yj]
1869/*M2_VALST  */ #define   Ystate_sum_spgv_dynspg_flt(v, i, j, t)                  Ysum_spgv_dynspg_flt[i][j]->Ystate[t][v] 
1870/*M2_VALST  */ #define   YS_sum_spgv_dynspg_flt(v, i, j, t)              Ysum_spgv_dynspg_flt[i][j]->Ystate[t][v] 
1871/*M2_VALSIT */ #define   YS1_sum_spgv_dynspg_flt(i, j, t)                Ysum_spgv_dynspg_flt[i][j]->Ystate[t][0] 
1872/*M2_HERESIT*/ #define   YS1Y_sum_spgv_dynspg_flt                Ysum_spgv_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 
1873/*M2_VALST  */ #define   Ygrad_sum_spgv_dynspg_flt(v, i, j, t)           Ysum_spgv_dynspg_flt[i][j]->Ygrad[t][v] 
1874/*M2_VALST  */ #define   YG_sum_spgv_dynspg_flt(v, i, j, t)              Ysum_spgv_dynspg_flt[i][j]->Ygrad[t][v] 
1875/*M2_VALSIT */ #define   YG1_sum_spgv_dynspg_flt(i, j, t)                Ysum_spgv_dynspg_flt[i][j]->Ygrad[t][0] 
1876/*M2_HERESIT*/ #define   YG1Y_sum_spgv_dynspg_flt                Ysum_spgv_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 
1877sum_spgv_dynspg_flt              *Ysum_spgv_dynspg_flt[YA1_S3dt][YA2_S3dt];
1878
1879//~~~~~~~~~~~~~~~~~~~~~~~~~ module gcb_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~
1880#define Yid_gcb_dynspg_flt 73
1881/*M2_VALST  */ #define   Ydelta_gcb_dynspg_flt(v, i, j, t)               Ygcb_dynspg_flt[i][j]->Ydelta[t][v] 
1882/*M2_VALST  */ #define   YD_gcb_dynspg_flt(v, i, j, t)           Ygcb_dynspg_flt[i][j]->Ydelta[t][v] 
1883/*M2_VALSIT */ #define   YD1_gcb_dynspg_flt(i, j, t)             Ygcb_dynspg_flt[i][j]->Ydelta[t][0] 
1884/*M2_HERESIT*/ #define   YD1Y_gcb_dynspg_flt             Ygcb_dynspg_flt[Yi][Yj]->Ydelta[YTemps][0] 
1885
1886class Yaogcb_dynspg_flt;
1887class gcb_dynspg_flt;
1888/*NBMOD     */ #define   YNB_gcb_dynspg_flt      704
1889/*NBSMOD    */ #define   YNBS_gcb_dynspg_flt     1
1890/*NBIMOD    */ #define   YNBI_gcb_dynspg_flt     4
1891/*M2_IRMOD  */ #define   Ygcb_dynspg_flt(i, j)   Ygcb_dynspg_flt[i][j]
1892/*M2_NOWMOD */ #define   Ygcb_dynspg_fltY                Ygcb_dynspg_flt[Yi][Yj]
1893/*M2_VALST  */ #define   Ystate_gcb_dynspg_flt(v, i, j, t)               Ygcb_dynspg_flt[i][j]->Ystate[t][v] 
1894/*M2_VALST  */ #define   YS_gcb_dynspg_flt(v, i, j, t)           Ygcb_dynspg_flt[i][j]->Ystate[t][v] 
1895/*M2_VALSIT */ #define   YS1_gcb_dynspg_flt(i, j, t)             Ygcb_dynspg_flt[i][j]->Ystate[t][0] 
1896/*M2_HERESIT*/ #define   YS1Y_gcb_dynspg_flt             Ygcb_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 
1897/*M2_VALST  */ #define   Ygrad_gcb_dynspg_flt(v, i, j, t)                Ygcb_dynspg_flt[i][j]->Ygrad[t][v] 
1898/*M2_VALST  */ #define   YG_gcb_dynspg_flt(v, i, j, t)           Ygcb_dynspg_flt[i][j]->Ygrad[t][v] 
1899/*M2_VALSIT */ #define   YG1_gcb_dynspg_flt(i, j, t)             Ygcb_dynspg_flt[i][j]->Ygrad[t][0] 
1900/*M2_HERESIT*/ #define   YG1Y_gcb_dynspg_flt             Ygcb_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 
1901gcb_dynspg_flt           *Ygcb_dynspg_flt[YA1_S3dt][YA2_S3dt];
1902
1903//~~~~~~~~~~~~~~~~~~~~~~~~~ module gcx_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~
1904#define Yid_gcx_dynspg_flt 74
1905/*M2_VALST  */ #define   Ydelta_gcx_dynspg_flt(v, i, j, t)               Ygcx_dynspg_flt[i][j]->Ydelta[t][v] 
1906/*M2_VALST  */ #define   YD_gcx_dynspg_flt(v, i, j, t)           Ygcx_dynspg_flt[i][j]->Ydelta[t][v] 
1907/*M2_VALSIT */ #define   YD1_gcx_dynspg_flt(i, j, t)             Ygcx_dynspg_flt[i][j]->Ydelta[t][0] 
1908/*M2_HERESIT*/ #define   YD1Y_gcx_dynspg_flt             Ygcx_dynspg_flt[Yi][Yj]->Ydelta[YTemps][0] 
1909
1910class Yaogcx_dynspg_flt;
1911class gcx_dynspg_flt;
1912/*NBMOD     */ #define   YNB_gcx_dynspg_flt      704
1913/*NBSMOD    */ #define   YNBS_gcx_dynspg_flt     1
1914/*NBIMOD    */ #define   YNBI_gcx_dynspg_flt     2
1915/*M2_IRMOD  */ #define   Ygcx_dynspg_flt(i, j)   Ygcx_dynspg_flt[i][j]
1916/*M2_NOWMOD */ #define   Ygcx_dynspg_fltY                Ygcx_dynspg_flt[Yi][Yj]
1917/*M2_VALST  */ #define   Ystate_gcx_dynspg_flt(v, i, j, t)               Ygcx_dynspg_flt[i][j]->Ystate[t][v] 
1918/*M2_VALST  */ #define   YS_gcx_dynspg_flt(v, i, j, t)           Ygcx_dynspg_flt[i][j]->Ystate[t][v] 
1919/*M2_VALSIT */ #define   YS1_gcx_dynspg_flt(i, j, t)             Ygcx_dynspg_flt[i][j]->Ystate[t][0] 
1920/*M2_HERESIT*/ #define   YS1Y_gcx_dynspg_flt             Ygcx_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 
1921/*M2_VALST  */ #define   Ygrad_gcx_dynspg_flt(v, i, j, t)                Ygcx_dynspg_flt[i][j]->Ygrad[t][v] 
1922/*M2_VALST  */ #define   YG_gcx_dynspg_flt(v, i, j, t)           Ygcx_dynspg_flt[i][j]->Ygrad[t][v] 
1923/*M2_VALSIT */ #define   YG1_gcx_dynspg_flt(i, j, t)             Ygcx_dynspg_flt[i][j]->Ygrad[t][0] 
1924/*M2_HERESIT*/ #define   YG1Y_gcx_dynspg_flt             Ygcx_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 
1925gcx_dynspg_flt           *Ygcx_dynspg_flt[YA1_S3dt][YA2_S3dt];
1926
1927//~~~~~~~~~~~~~~~~~~~~~~~~~ module solsor_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~
1928#define Yid_solsor_dynspg_flt 75
1929/*M1_VALST  */ #define   Ydelta_solsor_dynspg_flt(v, i, t)               Ysolsor_dynspg_flt[i]->Ydelta[t][v] 
1930/*M1_VALST  */ #define   YD_solsor_dynspg_flt(v, i, t)           Ysolsor_dynspg_flt[i]->Ydelta[t][v] 
1931
1932class Yaosolsor_dynspg_flt;
1933class solsor_dynspg_flt;
1934/*NBMOD     */ #define   YNB_solsor_dynspg_flt   32
1935/*NBSMOD    */ #define   YNBS_solsor_dynspg_flt          0
1936/*M1_IRMOD  */ #define   Ysolsor_dynspg_flt(i)   Ysolsor_dynspg_flt[i]
1937/*M1_NOWMOD */ #define   Ysolsor_dynspg_fltY             Ysolsor_dynspg_flt[Yi]
1938/*M1_VALSG  */ #define   Ystate_solsor_dynspg_flt(v, i)                  Ysolsor_dynspg_flt[i]->Ystate[v] 
1939/*M1_VALSG  */ #define   YS_solsor_dynspg_flt(v, i)              Ysolsor_dynspg_flt[i]->Ystate[v] 
1940/*M1_VALSG  */ #define   Ygrad_solsor_dynspg_flt(v, i)           Ysolsor_dynspg_flt[i]->Ygrad[v] 
1941/*M1_VALSG  */ #define   YG_solsor_dynspg_flt(v, i)              Ysolsor_dynspg_flt[i]->Ygrad[v] 
1942solsor_dynspg_flt                *Ysolsor_dynspg_flt[YA1_S3dt];
1943
1944//~~~~~~~~~~~~~~~~~~~~~~~~~ module gcx2~~~~~~~~~~~~~~~~~~~~~~~~~
1945#define Yid_gcx2 76
1946/*M2_VALST  */ #define   Ydelta_gcx2(v, i, j, t)                 Ygcx2[i][j]->Ydelta[t][v] 
1947/*M2_VALST  */ #define   YD_gcx2(v, i, j, t)             Ygcx2[i][j]->Ydelta[t][v] 
1948/*M2_VALSIT */ #define   YD1_gcx2(i, j, t)               Ygcx2[i][j]->Ydelta[t][0] 
1949/*M2_HERESIT*/ #define   YD1Y_gcx2               Ygcx2[Yi][Yj]->Ydelta[YTemps][0] 
1950
1951class Yaogcx2;
1952class gcx2;
1953/*NBMOD     */ #define   YNB_gcx2        704
1954/*NBSMOD    */ #define   YNBS_gcx2       1
1955/*M2_IRMOD  */ #define   Ygcx2(i, j)     Ygcx2[i][j]
1956/*M2_NOWMOD */ #define   Ygcx2Y                  Ygcx2[Yi][Yj]
1957/*M2_VALST  */ #define   Ystate_gcx2(v, i, j, t)                 Ygcx2[i][j]->Ystate[t][v] 
1958/*M2_VALST  */ #define   YS_gcx2(v, i, j, t)             Ygcx2[i][j]->Ystate[t][v] 
1959/*M2_VALSIT */ #define   YS1_gcx2(i, j, t)               Ygcx2[i][j]->Ystate[t][0] 
1960/*M2_HERESIT*/ #define   YS1Y_gcx2               Ygcx2[Yi][Yj]->Ystate[YTemps][0] 
1961/*M2_VALST  */ #define   Ygrad_gcx2(v, i, j, t)                  Ygcx2[i][j]->Ygrad[t][v] 
1962/*M2_VALST  */ #define   YG_gcx2(v, i, j, t)             Ygcx2[i][j]->Ygrad[t][v] 
1963/*M2_VALSIT */ #define   YG1_gcx2(i, j, t)               Ygcx2[i][j]->Ygrad[t][0] 
1964/*M2_HERESIT*/ #define   YG1Y_gcx2               Ygcx2[Yi][Yj]->Ygrad[YTemps][0] 
1965gcx2             *Ygcx2[YA1_S3dt][YA2_S3dt];
1966
1967//~~~~~~~~~~~~~~~~~~~~~~~~~ module spguv_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~
1968#define Yid_spguv_dynspg_flt 77
1969/*M2_VALST  */ #define   Ydelta_spguv_dynspg_flt(v, i, j, t)             Yspguv_dynspg_flt[i][j]->Ydelta[t][v] 
1970/*M2_VALST  */ #define   YD_spguv_dynspg_flt(v, i, j, t)                 Yspguv_dynspg_flt[i][j]->Ydelta[t][v] 
1971/*M2_VALSIT */ #define   YD1_spguv_dynspg_flt(i, j, t)           Yspguv_dynspg_flt[i][j]->Ydelta[t][0] 
1972/*M2_VALSIT */ #define   YD2_spguv_dynspg_flt(i, j, t)           Yspguv_dynspg_flt[i][j]->Ydelta[t][1] 
1973/*M2_HERESIT*/ #define   YD1Y_spguv_dynspg_flt           Yspguv_dynspg_flt[Yi][Yj]->Ydelta[YTemps][0] 
1974/*M2_HERESIT*/ #define   YD2Y_spguv_dynspg_flt           Yspguv_dynspg_flt[Yi][Yj]->Ydelta[YTemps][1] 
1975
1976class Yaospguv_dynspg_flt;
1977class spguv_dynspg_flt;
1978/*NBMOD     */ #define   YNB_spguv_dynspg_flt    704
1979/*NBSMOD    */ #define   YNBS_spguv_dynspg_flt   2
1980/*NBIMOD    */ #define   YNBI_spguv_dynspg_flt   3
1981/*M2_IRMOD  */ #define   Yspguv_dynspg_flt(i, j)         Yspguv_dynspg_flt[i][j]
1982/*M2_NOWMOD */ #define   Yspguv_dynspg_fltY              Yspguv_dynspg_flt[Yi][Yj]
1983/*M2_VALST  */ #define   Ystate_spguv_dynspg_flt(v, i, j, t)             Yspguv_dynspg_flt[i][j]->Ystate[t][v] 
1984/*M2_VALST  */ #define   YS_spguv_dynspg_flt(v, i, j, t)                 Yspguv_dynspg_flt[i][j]->Ystate[t][v] 
1985/*M2_VALSIT */ #define   YS1_spguv_dynspg_flt(i, j, t)           Yspguv_dynspg_flt[i][j]->Ystate[t][0] 
1986/*M2_HERESIT*/ #define   YS1Y_spguv_dynspg_flt           Yspguv_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 
1987/*M2_VALSIT */ #define   YS2_spguv_dynspg_flt(i, j, t)           Yspguv_dynspg_flt[i][j]->Ystate[t][1] 
1988/*M2_HERESIT*/ #define   YS2Y_spguv_dynspg_flt           Yspguv_dynspg_flt[Yi][Yj]->Ystate[YTemps][1] 
1989/*M2_VALST  */ #define   Ygrad_spguv_dynspg_flt(v, i, j, t)              Yspguv_dynspg_flt[i][j]->Ygrad[t][v] 
1990/*M2_VALST  */ #define   YG_spguv_dynspg_flt(v, i, j, t)                 Yspguv_dynspg_flt[i][j]->Ygrad[t][v] 
1991/*M2_VALSIT */ #define   YG1_spguv_dynspg_flt(i, j, t)           Yspguv_dynspg_flt[i][j]->Ygrad[t][0] 
1992/*M2_HERESIT*/ #define   YG1Y_spguv_dynspg_flt           Yspguv_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 
1993/*M2_VALSIT */ #define   YG2_spguv_dynspg_flt(i, j, t)           Yspguv_dynspg_flt[i][j]->Ygrad[t][1] 
1994/*M2_HERESIT*/ #define   YG2Y_spguv_dynspg_flt           Yspguv_dynspg_flt[Yi][Yj]->Ygrad[YTemps][1] 
1995spguv_dynspg_flt                 *Yspguv_dynspg_flt[YA1_S3dt][YA2_S3dt];
1996
1997//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua~~~~~~~~~~~~~~~~~~~~~~~~~
1998#define Yid_ua 78
1999/*M3_VALST  */ #define   Ydelta_ua(v, i, j, k, t)        Yua[i][j][k]->Ydelta[t][v] 
2000/*M3_VALST  */ #define   YD_ua(v, i, j, k, t)            Yua[i][j][k]->Ydelta[t][v] 
2001/*M3_VALSIT */ #define   YD1_ua(i, j, k, t)              Yua[i][j][k]->Ydelta[t][0] 
2002/*M3_HERESIT*/ #define   YD1Y_ua                 Yua[Yi][Yj][Yk]->Ydelta[YTemps][0] 
2003
2004class Yaoua;
2005class ua;
2006/*NBSMOD    */ #define   YNBS_ua         1
2007/*NBIMOD    */ #define   YNBI_ua         3
2008/*M3_IRMOD  */ #define   Yua(i, j, k)    Yua[i][j][k]
2009/*M3_NOWMOD */ #define   YuaY            Yua[Yi][Yj][Yk]
2010/*M3_VALST  */ #define   Ystate_ua(v, i, j, k, t)        Yua[i][j][k]->Ystate[t][v] 
2011/*M3_VALST  */ #define   YS_ua(v, i, j, k, t)            Yua[i][j][k]->Ystate[t][v] 
2012/*M3_VALSIT */ #define   YS1_ua(i, j, k, t)              Yua[i][j][k]->Ystate[t][0] 
2013/*M3_HERESIT*/ #define   YS1Y_ua                 Yua[Yi][Yj][Yk]->Ystate[YTemps][0] 
2014/*M3_VALST  */ #define   Ygrad_ua(v, i, j, k, t)         Yua[i][j][k]->Ygrad[t][v] 
2015/*M3_VALST  */ #define   YG_ua(v, i, j, k, t)            Yua[i][j][k]->Ygrad[t][v] 
2016/*M3_VALSIT */ #define   YG1_ua(i, j, k, t)              Yua[i][j][k]->Ygrad[t][0] 
2017/*M3_HERESIT*/ #define   YG1Y_ua                 Yua[Yi][Yj][Yk]->Ygrad[YTemps][0] 
2018ua               *Yua[YA1_S3dt][YA2_S3dt][YA3_S3dt];
2019
2020//~~~~~~~~~~~~~~~~~~~~~~~~~ module va~~~~~~~~~~~~~~~~~~~~~~~~~
2021#define Yid_va 79
2022/*M3_VALST  */ #define   Ydelta_va(v, i, j, k, t)        Yva[i][j][k]->Ydelta[t][v] 
2023/*M3_VALST  */ #define   YD_va(v, i, j, k, t)            Yva[i][j][k]->Ydelta[t][v] 
2024/*M3_VALSIT */ #define   YD1_va(i, j, k, t)              Yva[i][j][k]->Ydelta[t][0] 
2025/*M3_HERESIT*/ #define   YD1Y_va                 Yva[Yi][Yj][Yk]->Ydelta[YTemps][0] 
2026
2027class Yaova;
2028class va;
2029/*NBSMOD    */ #define   YNBS_va         1
2030/*NBIMOD    */ #define   YNBI_va         3
2031/*M3_IRMOD  */ #define   Yva(i, j, k)    Yva[i][j][k]
2032/*M3_NOWMOD */ #define   YvaY            Yva[Yi][Yj][Yk]
2033/*M3_VALST  */ #define   Ystate_va(v, i, j, k, t)        Yva[i][j][k]->Ystate[t][v] 
2034/*M3_VALST  */ #define   YS_va(v, i, j, k, t)            Yva[i][j][k]->Ystate[t][v] 
2035/*M3_VALSIT */ #define   YS1_va(i, j, k, t)              Yva[i][j][k]->Ystate[t][0] 
2036/*M3_HERESIT*/ #define   YS1Y_va                 Yva[Yi][Yj][Yk]->Ystate[YTemps][0] 
2037/*M3_VALST  */ #define   Ygrad_va(v, i, j, k, t)         Yva[i][j][k]->Ygrad[t][v] 
2038/*M3_VALST  */ #define   YG_va(v, i, j, k, t)            Yva[i][j][k]->Ygrad[t][v] 
2039/*M3_VALSIT */ #define   YG1_va(i, j, k, t)              Yva[i][j][k]->Ygrad[t][0] 
2040/*M3_HERESIT*/ #define   YG1Y_va                 Yva[Yi][Yj][Yk]->Ygrad[YTemps][0] 
2041va               *Yva[YA1_S3dt][YA2_S3dt][YA3_S3dt];
2042
2043//~~~~~~~~~~~~~~~~~~~~~~~~~ module sshn~~~~~~~~~~~~~~~~~~~~~~~~~
2044#define Yid_sshn 80
2045/*M2_VALST  */ #define   Ydelta_sshn(v, i, j, t)                 Ysshn[i][j]->Ydelta[t][v] 
2046/*M2_VALST  */ #define   YD_sshn(v, i, j, t)             Ysshn[i][j]->Ydelta[t][v] 
2047/*M2_VALSIT */ #define   YD1_sshn(i, j, t)               Ysshn[i][j]->Ydelta[t][0] 
2048/*M2_HERESIT*/ #define   YD1Y_sshn               Ysshn[Yi][Yj]->Ydelta[YTemps][0] 
2049
2050class Yaosshn;
2051class sshn;
2052/*NBMOD     */ #define   YNB_sshn        704
2053/*NBSMOD    */ #define   YNBS_sshn       1
2054/*NBIMOD    */ #define   YNBI_sshn       4
2055/*M2_IRMOD  */ #define   Ysshn(i, j)     Ysshn[i][j]
2056/*M2_NOWMOD */ #define   YsshnY                  Ysshn[Yi][Yj]
2057/*M2_VALST  */ #define   Ystate_sshn(v, i, j, t)                 Ysshn[i][j]->Ystate[t][v] 
2058/*M2_VALST  */ #define   YS_sshn(v, i, j, t)             Ysshn[i][j]->Ystate[t][v] 
2059/*M2_VALSIT */ #define   YS1_sshn(i, j, t)               Ysshn[i][j]->Ystate[t][0] 
2060/*M2_HERESIT*/ #define   YS1Y_sshn               Ysshn[Yi][Yj]->Ystate[YTemps][0] 
2061/*M2_VALST  */ #define   Ygrad_sshn(v, i, j, t)                  Ysshn[i][j]->Ygrad[t][v] 
2062/*M2_VALST  */ #define   YG_sshn(v, i, j, t)             Ysshn[i][j]->Ygrad[t][v] 
2063/*M2_VALSIT */ #define   YG1_sshn(i, j, t)               Ysshn[i][j]->Ygrad[t][0] 
2064/*M2_HERESIT*/ #define   YG1Y_sshn               Ysshn[Yi][Yj]->Ygrad[YTemps][0] 
2065sshn             *Ysshn[YA1_S3dt][YA2_S3dt];
2066
2067//~~~~~~~~~~~~~~~~~~~~~~~~~ module sshb~~~~~~~~~~~~~~~~~~~~~~~~~
2068#define Yid_sshb 81
2069/*M2_VALST  */ #define   Ydelta_sshb(v, i, j, t)                 Ysshb[i][j]->Ydelta[t][v] 
2070/*M2_VALST  */ #define   YD_sshb(v, i, j, t)             Ysshb[i][j]->Ydelta[t][v] 
2071/*M2_VALSIT */ #define   YD1_sshb(i, j, t)               Ysshb[i][j]->Ydelta[t][0] 
2072/*M2_HERESIT*/ #define   YD1Y_sshb               Ysshb[Yi][Yj]->Ydelta[YTemps][0] 
2073
2074class Yaosshb;
2075class sshb;
2076/*NBMOD     */ #define   YNB_sshb        704
2077/*NBSMOD    */ #define   YNBS_sshb       1
2078/*NBIMOD    */ #define   YNBI_sshb       4
2079/*M2_IRMOD  */ #define   Ysshb(i, j)     Ysshb[i][j]
2080/*M2_NOWMOD */ #define   YsshbY                  Ysshb[Yi][Yj]
2081/*M2_VALST  */ #define   Ystate_sshb(v, i, j, t)                 Ysshb[i][j]->Ystate[t][v] 
2082/*M2_VALST  */ #define   YS_sshb(v, i, j, t)             Ysshb[i][j]->Ystate[t][v] 
2083/*M2_VALSIT */ #define   YS1_sshb(i, j, t)               Ysshb[i][j]->Ystate[t][0] 
2084/*M2_HERESIT*/ #define   YS1Y_sshb               Ysshb[Yi][Yj]->Ystate[YTemps][0] 
2085/*M2_VALST  */ #define   Ygrad_sshb(v, i, j, t)                  Ysshb[i][j]->Ygrad[t][v] 
2086/*M2_VALST  */ #define   YG_sshb(v, i, j, t)             Ysshb[i][j]->Ygrad[t][v] 
2087/*M2_VALSIT */ #define   YG1_sshb(i, j, t)               Ysshb[i][j]->Ygrad[t][0] 
2088/*M2_HERESIT*/ #define   YG1Y_sshb               Ysshb[Yi][Yj]->Ygrad[YTemps][0] 
2089sshb             *Ysshb[YA1_S3dt][YA2_S3dt];
2090
2091//~~~~~~~~~~~~~~~~~~~~~~~~~ module ub~~~~~~~~~~~~~~~~~~~~~~~~~
2092#define Yid_ub 82
2093/*M3_VALST  */ #define   Ydelta_ub(v, i, j, k, t)        Yub[i][j][k]->Ydelta[t][v] 
2094/*M3_VALST  */ #define   YD_ub(v, i, j, k, t)            Yub[i][j][k]->Ydelta[t][v] 
2095/*M3_VALSIT */ #define   YD1_ub(i, j, k, t)              Yub[i][j][k]->Ydelta[t][0] 
2096/*M3_HERESIT*/ #define   YD1Y_ub                 Yub[Yi][Yj][Yk]->Ydelta[YTemps][0] 
2097
2098class Yaoub;
2099class ub;
2100/*NBSMOD    */ #define   YNBS_ub         1
2101/*NBIMOD    */ #define   YNBI_ub         4
2102/*M3_IRMOD  */ #define   Yub(i, j, k)    Yub[i][j][k]
2103/*M3_NOWMOD */ #define   YubY            Yub[Yi][Yj][Yk]
2104/*M3_VALST  */ #define   Ystate_ub(v, i, j, k, t)        Yub[i][j][k]->Ystate[t][v] 
2105/*M3_VALST  */ #define   YS_ub(v, i, j, k, t)            Yub[i][j][k]->Ystate[t][v] 
2106/*M3_VALSIT */ #define   YS1_ub(i, j, k, t)              Yub[i][j][k]->Ystate[t][0] 
2107/*M3_HERESIT*/ #define   YS1Y_ub                 Yub[Yi][Yj][Yk]->Ystate[YTemps][0] 
2108/*M3_VALST  */ #define   Ygrad_ub(v, i, j, k, t)         Yub[i][j][k]->Ygrad[t][v] 
2109/*M3_VALST  */ #define   YG_ub(v, i, j, k, t)            Yub[i][j][k]->Ygrad[t][v] 
2110/*M3_VALSIT */ #define   YG1_ub(i, j, k, t)              Yub[i][j][k]->Ygrad[t][0] 
2111/*M3_HERESIT*/ #define   YG1Y_ub                 Yub[Yi][Yj][Yk]->Ygrad[YTemps][0] 
2112ub               *Yub[YA1_S3dt][YA2_S3dt][YA3_S3dt];
2113
2114//~~~~~~~~~~~~~~~~~~~~~~~~~ module vb~~~~~~~~~~~~~~~~~~~~~~~~~
2115#define Yid_vb 83
2116/*M3_VALST  */ #define   Ydelta_vb(v, i, j, k, t)        Yvb[i][j][k]->Ydelta[t][v] 
2117/*M3_VALST  */ #define   YD_vb(v, i, j, k, t)            Yvb[i][j][k]->Ydelta[t][v] 
2118/*M3_VALSIT */ #define   YD1_vb(i, j, k, t)              Yvb[i][j][k]->Ydelta[t][0] 
2119/*M3_HERESIT*/ #define   YD1Y_vb                 Yvb[Yi][Yj][Yk]->Ydelta[YTemps][0] 
2120
2121class Yaovb;
2122class vb;
2123/*NBSMOD    */ #define   YNBS_vb         1
2124/*NBIMOD    */ #define   YNBI_vb         4
2125/*M3_IRMOD  */ #define   Yvb(i, j, k)    Yvb[i][j][k]
2126/*M3_NOWMOD */ #define   YvbY            Yvb[Yi][Yj][Yk]
2127/*M3_VALST  */ #define   Ystate_vb(v, i, j, k, t)        Yvb[i][j][k]->Ystate[t][v] 
2128/*M3_VALST  */ #define   YS_vb(v, i, j, k, t)            Yvb[i][j][k]->Ystate[t][v] 
2129/*M3_VALSIT */ #define   YS1_vb(i, j, k, t)              Yvb[i][j][k]->Ystate[t][0] 
2130/*M3_HERESIT*/ #define   YS1Y_vb                 Yvb[Yi][Yj][Yk]->Ystate[YTemps][0] 
2131/*M3_VALST  */ #define   Ygrad_vb(v, i, j, k, t)         Yvb[i][j][k]->Ygrad[t][v] 
2132/*M3_VALST  */ #define   YG_vb(v, i, j, k, t)            Yvb[i][j][k]->Ygrad[t][v] 
2133/*M3_VALSIT */ #define   YG1_vb(i, j, k, t)              Yvb[i][j][k]->Ygrad[t][0] 
2134/*M3_HERESIT*/ #define   YG1Y_vb                 Yvb[Yi][Yj][Yk]->Ygrad[YTemps][0] 
2135vb               *Yvb[YA1_S3dt][YA2_S3dt][YA3_S3dt];
2136
2137//~~~~~~~~~~~~~~~~~~~~~~~~~ module hdivn~~~~~~~~~~~~~~~~~~~~~~~~~
2138#define Yid_hdivn 84
2139/*M3_VALST  */ #define   Ydelta_hdivn(v, i, j, k, t)     Yhdivn[i][j][k]->Ydelta[t][v] 
2140/*M3_VALST  */ #define   YD_hdivn(v, i, j, k, t)                 Yhdivn[i][j][k]->Ydelta[t][v] 
2141/*M3_VALSIT */ #define   YD1_hdivn(i, j, k, t)           Yhdivn[i][j][k]->Ydelta[t][0] 
2142/*M3_HERESIT*/ #define   YD1Y_hdivn              Yhdivn[Yi][Yj][Yk]->Ydelta[YTemps][0] 
2143
2144class Yaohdivn;
2145class hdivn;
2146/*NBSMOD    */ #define   YNBS_hdivn      1
2147/*NBIMOD    */ #define   YNBI_hdivn      4
2148/*M3_IRMOD  */ #define   Yhdivn(i, j, k)         Yhdivn[i][j][k]
2149/*M3_NOWMOD */ #define   YhdivnY                 Yhdivn[Yi][Yj][Yk]
2150/*M3_VALST  */ #define   Ystate_hdivn(v, i, j, k, t)     Yhdivn[i][j][k]->Ystate[t][v] 
2151/*M3_VALST  */ #define   YS_hdivn(v, i, j, k, t)                 Yhdivn[i][j][k]->Ystate[t][v] 
2152/*M3_VALSIT */ #define   YS1_hdivn(i, j, k, t)           Yhdivn[i][j][k]->Ystate[t][0] 
2153/*M3_HERESIT*/ #define   YS1Y_hdivn              Yhdivn[Yi][Yj][Yk]->Ystate[YTemps][0] 
2154/*M3_VALST  */ #define   Ygrad_hdivn(v, i, j, k, t)      Yhdivn[i][j][k]->Ygrad[t][v] 
2155/*M3_VALST  */ #define   YG_hdivn(v, i, j, k, t)                 Yhdivn[i][j][k]->Ygrad[t][v] 
2156/*M3_VALSIT */ #define   YG1_hdivn(i, j, k, t)           Yhdivn[i][j][k]->Ygrad[t][0] 
2157/*M3_HERESIT*/ #define   YG1Y_hdivn              Yhdivn[Yi][Yj][Yk]->Ygrad[YTemps][0] 
2158hdivn            *Yhdivn[YA1_S3dt][YA2_S3dt][YA3_S3dt];
2159
2160//~~~~~~~~~~~~~~~~~~~~~~~~~ module rotn~~~~~~~~~~~~~~~~~~~~~~~~~
2161#define Yid_rotn 85
2162/*M3_VALST  */ #define   Ydelta_rotn(v, i, j, k, t)      Yrotn[i][j][k]->Ydelta[t][v] 
2163/*M3_VALST  */ #define   YD_rotn(v, i, j, k, t)                  Yrotn[i][j][k]->Ydelta[t][v] 
2164/*M3_VALSIT */ #define   YD1_rotn(i, j, k, t)            Yrotn[i][j][k]->Ydelta[t][0] 
2165/*M3_HERESIT*/ #define   YD1Y_rotn               Yrotn[Yi][Yj][Yk]->Ydelta[YTemps][0] 
2166
2167class Yaorotn;
2168class rotn;
2169/*NBSMOD    */ #define   YNBS_rotn       1
2170/*NBIMOD    */ #define   YNBI_rotn       4
2171/*M3_IRMOD  */ #define   Yrotn(i, j, k)          Yrotn[i][j][k]
2172/*M3_NOWMOD */ #define   YrotnY                  Yrotn[Yi][Yj][Yk]
2173/*M3_VALST  */ #define   Ystate_rotn(v, i, j, k, t)      Yrotn[i][j][k]->Ystate[t][v] 
2174/*M3_VALST  */ #define   YS_rotn(v, i, j, k, t)                  Yrotn[i][j][k]->Ystate[t][v] 
2175/*M3_VALSIT */ #define   YS1_rotn(i, j, k, t)            Yrotn[i][j][k]->Ystate[t][0] 
2176/*M3_HERESIT*/ #define   YS1Y_rotn               Yrotn[Yi][Yj][Yk]->Ystate[YTemps][0] 
2177/*M3_VALST  */ #define   Ygrad_rotn(v, i, j, k, t)       Yrotn[i][j][k]->Ygrad[t][v] 
2178/*M3_VALST  */ #define   YG_rotn(v, i, j, k, t)                  Yrotn[i][j][k]->Ygrad[t][v] 
2179/*M3_VALSIT */ #define   YG1_rotn(i, j, k, t)            Yrotn[i][j][k]->Ygrad[t][0] 
2180/*M3_HERESIT*/ #define   YG1Y_rotn               Yrotn[Yi][Yj][Yk]->Ygrad[YTemps][0] 
2181rotn             *Yrotn[YA1_S3dt][YA2_S3dt][YA3_S3dt];
2182
2183//~~~~~~~~~~~~~~~~~~~~~~~~~ module wa~~~~~~~~~~~~~~~~~~~~~~~~~
2184#define Yid_wa 86
2185/*M3_VALST  */ #define   Ydelta_wa(v, i, j, k, t)        Ywa[i][j][k]->Ydelta[t][v] 
2186/*M3_VALST  */ #define   YD_wa(v, i, j, k, t)            Ywa[i][j][k]->Ydelta[t][v] 
2187/*M3_VALSIT */ #define   YD1_wa(i, j, k, t)              Ywa[i][j][k]->Ydelta[t][0] 
2188/*M3_HERESIT*/ #define   YD1Y_wa                 Ywa[Yi][Yj][Yk]->Ydelta[YTemps][0] 
2189
2190class Yaowa;
2191class wa;
2192/*NBSMOD    */ #define   YNBS_wa         1
2193/*NBIMOD    */ #define   YNBI_wa         2
2194/*M3_IRMOD  */ #define   Ywa(i, j, k)    Ywa[i][j][k]
2195/*M3_NOWMOD */ #define   YwaY            Ywa[Yi][Yj][Yk]
2196/*M3_VALST  */ #define   Ystate_wa(v, i, j, k, t)        Ywa[i][j][k]->Ystate[t][v] 
2197/*M3_VALST  */ #define   YS_wa(v, i, j, k, t)            Ywa[i][j][k]->Ystate[t][v] 
2198/*M3_VALSIT */ #define   YS1_wa(i, j, k, t)              Ywa[i][j][k]->Ystate[t][0] 
2199/*M3_HERESIT*/ #define   YS1Y_wa                 Ywa[Yi][Yj][Yk]->Ystate[YTemps][0] 
2200/*M3_VALST  */ #define   Ygrad_wa(v, i, j, k, t)         Ywa[i][j][k]->Ygrad[t][v] 
2201/*M3_VALST  */ #define   YG_wa(v, i, j, k, t)            Ywa[i][j][k]->Ygrad[t][v] 
2202/*M3_VALSIT */ #define   YG1_wa(i, j, k, t)              Ywa[i][j][k]->Ygrad[t][0] 
2203/*M3_HERESIT*/ #define   YG1Y_wa                 Ywa[Yi][Yj][Yk]->Ygrad[YTemps][0] 
2204wa               *Ywa[YA1_S3dt][YA2_S3dt][YA3_S3dt];
2205#define  YSIZEPB   21824//sum of the number of states (output) of all targets
2206
2207//€ € € € FOR M1QN3 € € € € € € € € € € € € € € € € € € € € € € €
2208float   Y3x[YSIZEPB]; //table for the states of targets
2209float   Y3g[YSIZEPB]; //table for the gradients of targets
2210#define Y3_SZ_RZ   436488  //rz dimension
2211float   Y3rz[Y3_SZ_RZ];
2212#define Y3_SZ_IZ   5  //iz dimension
2213float   Y3dxmin[1]; //resolution scalar for the vector to be controlled
2214
2215/*------- GENERATION of global objects ------------------------*/
2216#define YSIZECO        21824 //size of modules cout (atempo)(event if not in order !)
2217#define YMAX_NBI        31 //max input number of a module
2218#define YMAX_NBS        4 //max output number of a module
2219#define YMAX_JAC_NBI    31 //max number of input for the jacobian (Yjac)
2220#define YMAX_JAC_NBS    4 //max number of output for the jacobian (Yjac)
2221double  Yting[YMAX_NBI];                //max table for a global and common inputs number
2222double  Yjac[YMAX_JAC_NBS][YMAX_JAC_NBI]; //max table for a global and common jacobian
2223#define YJ1I1  Yjac[0][0]
2224#define YJ1I2  Yjac[0][1]
2225#define YJ1I3  Yjac[0][2]
2226#define YJ1I4  Yjac[0][3]
2227#define YJ1I5  Yjac[0][4]
2228#define YJ1I6  Yjac[0][5]
2229#define YJ1I7  Yjac[0][6]
2230#define YJ1I8  Yjac[0][7]
2231#define YJ1I9  Yjac[0][8]
2232#define YJ1I10  Yjac[0][9]
2233#define YJ1I11  Yjac[0][10]
2234#define YJ1I12  Yjac[0][11]
2235#define YJ1I13  Yjac[0][12]
2236#define YJ1I14  Yjac[0][13]
2237#define YJ1I15  Yjac[0][14]
2238#define YJ1I16  Yjac[0][15]
2239#define YJ1I17  Yjac[0][16]
2240#define YJ1I18  Yjac[0][17]
2241#define YJ1I19  Yjac[0][18]
2242#define YJ1I20  Yjac[0][19]
2243#define YJ1I21  Yjac[0][20]
2244#define YJ1I22  Yjac[0][21]
2245#define YJ1I23  Yjac[0][22]
2246#define YJ1I24  Yjac[0][23]
2247#define YJ1I25  Yjac[0][24]
2248#define YJ1I26  Yjac[0][25]
2249#define YJ1I27  Yjac[0][26]
2250#define YJ1I28  Yjac[0][27]
2251#define YJ1I29  Yjac[0][28]
2252#define YJ1I30  Yjac[0][29]
2253#define YJ1I31  Yjac[0][30]
2254#define YJ2I1  Yjac[1][0]
2255#define YJ2I2  Yjac[1][1]
2256#define YJ2I3  Yjac[1][2]
2257#define YJ2I4  Yjac[1][3]
2258#define YJ2I5  Yjac[1][4]
2259#define YJ2I6  Yjac[1][5]
2260#define YJ2I7  Yjac[1][6]
2261#define YJ2I8  Yjac[1][7]
2262#define YJ2I9  Yjac[1][8]
2263#define YJ2I10  Yjac[1][9]
2264#define YJ2I11  Yjac[1][10]
2265#define YJ2I12  Yjac[1][11]
2266#define YJ2I13  Yjac[1][12]
2267#define YJ2I14  Yjac[1][13]
2268#define YJ2I15  Yjac[1][14]
2269#define YJ2I16  Yjac[1][15]
2270#define YJ2I17  Yjac[1][16]
2271#define YJ2I18  Yjac[1][17]
2272#define YJ2I19  Yjac[1][18]
2273#define YJ2I20  Yjac[1][19]
2274#define YJ2I21  Yjac[1][20]
2275#define YJ2I22  Yjac[1][21]
2276#define YJ2I23  Yjac[1][22]
2277#define YJ2I24  Yjac[1][23]
2278#define YJ2I25  Yjac[1][24]
2279#define YJ2I26  Yjac[1][25]
2280#define YJ2I27  Yjac[1][26]
2281#define YJ2I28  Yjac[1][27]
2282#define YJ2I29  Yjac[1][28]
2283#define YJ2I30  Yjac[1][29]
2284#define YJ2I31  Yjac[1][30]
2285#define YJ3I1  Yjac[2][0]
2286#define YJ3I2  Yjac[2][1]
2287#define YJ3I3  Yjac[2][2]
2288#define YJ3I4  Yjac[2][3]
2289#define YJ3I5  Yjac[2][4]
2290#define YJ3I6  Yjac[2][5]
2291#define YJ3I7  Yjac[2][6]
2292#define YJ3I8  Yjac[2][7]
2293#define YJ3I9  Yjac[2][8]
2294#define YJ3I10  Yjac[2][9]
2295#define YJ3I11  Yjac[2][10]
2296#define YJ3I12  Yjac[2][11]
2297#define YJ3I13  Yjac[2][12]
2298#define YJ3I14  Yjac[2][13]
2299#define YJ3I15  Yjac[2][14]
2300#define YJ3I16  Yjac[2][15]
2301#define YJ3I17  Yjac[2][16]
2302#define YJ3I18  Yjac[2][17]
2303#define YJ3I19  Yjac[2][18]
2304#define YJ3I20  Yjac[2][19]
2305#define YJ3I21  Yjac[2][20]
2306#define YJ3I22  Yjac[2][21]
2307#define YJ3I23  Yjac[2][22]
2308#define YJ3I24  Yjac[2][23]
2309#define YJ3I25  Yjac[2][24]
2310#define YJ3I26  Yjac[2][25]
2311#define YJ3I27  Yjac[2][26]
2312#define YJ3I28  Yjac[2][27]
2313#define YJ3I29  Yjac[2][28]
2314#define YJ3I30  Yjac[2][29]
2315#define YJ3I31  Yjac[2][30]
2316#define YJ4I1  Yjac[3][0]
2317#define YJ4I2  Yjac[3][1]
2318#define YJ4I3  Yjac[3][2]
2319#define YJ4I4  Yjac[3][3]
2320#define YJ4I5  Yjac[3][4]
2321#define YJ4I6  Yjac[3][5]
2322#define YJ4I7  Yjac[3][6]
2323#define YJ4I8  Yjac[3][7]
2324#define YJ4I9  Yjac[3][8]
2325#define YJ4I10  Yjac[3][9]
2326#define YJ4I11  Yjac[3][10]
2327#define YJ4I12  Yjac[3][11]
2328#define YJ4I13  Yjac[3][12]
2329#define YJ4I14  Yjac[3][13]
2330#define YJ4I15  Yjac[3][14]
2331#define YJ4I16  Yjac[3][15]
2332#define YJ4I17  Yjac[3][16]
2333#define YJ4I18  Yjac[3][17]
2334#define YJ4I19  Yjac[3][18]
2335#define YJ4I20  Yjac[3][19]
2336#define YJ4I21  Yjac[3][20]
2337#define YJ4I22  Yjac[3][21]
2338#define YJ4I23  Yjac[3][22]
2339#define YJ4I24  Yjac[3][23]
2340#define YJ4I25  Yjac[3][24]
2341#define YJ4I26  Yjac[3][25]
2342#define YJ4I27  Yjac[3][26]
2343#define YJ4I28  Yjac[3][27]
2344#define YJ4I29  Yjac[3][28]
2345#define YJ4I30  Yjac[3][29]
2346#define YJ4I31  Yjac[3][30]
2347double  Ytbeta[YMAX_NBI];               //max table of global and common beta
2348
2349/*------- SOME OTHER AUTOMATIC GENERATION ------------------*/
2350
2351struct Yst_obs {
2352  int   time;
2353  int   imod;
2354  int   smod;
2355  int   iaxe;
2356  int   jaxe;
2357  int   kaxe;
2358  YREAL vobs;
2359};
2360struct Yst_obs Yaobs;
2361int Yobs_insert(struct Yst_obs *aobs);
2362
2363/*------- GENERATION of NECESSARY PROTOTYPES -------------*/
2364double Ycostdiff(double dinov, double dcov);
2365
2366/*------- AUTOMATIC GENERATION of YaoModul class ----------*/
2367
2368//////////// Begin of the Yao Class Yaosshn_c ////////////
2369class                 Yaosshn_c
2370{
2371         public:
2372              double     Ystate[YNBS_sshn_c];
2373              double     Ygrad[YNBS_sshn_c];
2374              double     Ydelta[1][YNBS_sshn_c];
2375
2376//:=========> Constructor - Destructor ============
2377Yaosshn_c(){}
2378~Yaosshn_c(){}
2379
2380};
2381
2382//////////// Begin of the Yao Class Yaota_c ////////////
2383class                 Yaota_c
2384{
2385         public:
2386              double     Ystate[YNBS_ta_c];
2387              double     Ygrad[YNBS_ta_c];
2388              double     Yepsi[YNBS_ta_c];
2389              double     Ywish[YNBS_ta_c];
2390              double     Ydelta[1][YNBS_ta_c];
2391
2392//:=========> Constructor - Destructor ============
2393Yaota_c(){}
2394~Yaota_c(){}
2395
2396};
2397
2398//////////// Begin of the Yao Class Yaosa_c ////////////
2399class                 Yaosa_c
2400{
2401         public:
2402              double     Ystate[YNBS_sa_c];
2403              double     Ygrad[YNBS_sa_c];
2404              double     Ydelta[1][YNBS_sa_c];
2405
2406//:=========> Constructor - Destructor ============
2407Yaosa_c(){}
2408~Yaosa_c(){}
2409
2410};
2411
2412//////////// Begin of the Yao Class Yaoua_c ////////////
2413class                 Yaoua_c
2414{
2415         public:
2416              double     Ystate[YNBS_ua_c];
2417              double     Ygrad[YNBS_ua_c];
2418              double     Ydelta[1][YNBS_ua_c];
2419
2420//:=========> Constructor - Destructor ============
2421Yaoua_c(){}
2422~Yaoua_c(){}
2423
2424};
2425
2426//////////// Begin of the Yao Class Yaova_c ////////////
2427class                 Yaova_c
2428{
2429         public:
2430              double     Ystate[YNBS_va_c];
2431              double     Ygrad[YNBS_va_c];
2432              double     Ydelta[1][YNBS_va_c];
2433
2434//:=========> Constructor - Destructor ============
2435Yaova_c(){}
2436~Yaova_c(){}
2437
2438};
2439
2440//////////// Begin of the Yao Class Yaosbcgyre_qsr_qns ////////////
2441class                 Yaosbcgyre_qsr_qns
2442{
2443         public:
2444              double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_qsr_qns];
2445              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_qsr_qns];
2446              double     Ydelta[YNBALLTIME_Tsbd][YNBS_sbcgyre_qsr_qns];
2447
2448//:=========> Constructor - Destructor ============
2449Yaosbcgyre_qsr_qns(){}
2450~Yaosbcgyre_qsr_qns(){}
2451
2452};
2453
2454/*M_PCL   */
2455class    sbcgyre_qsr_qns:public Yaosbcgyre_qsr_qns
2456{       public: 
2457         sbcgyre_qsr_qns(){}; 
2458         ~sbcgyre_qsr_qns (){}; 
2459         void forward (double x0); 
2460         void backward(double x0); 
2461};
2462
2463//////////// Begin of the Yao Class Yaosbcgyre_emp1 ////////////
2464class                 Yaosbcgyre_emp1
2465{
2466         public:
2467              double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp1];
2468              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp1];
2469              double     Ydelta[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp1];
2470
2471//:=========> Constructor - Destructor ============
2472Yaosbcgyre_emp1(){}
2473~Yaosbcgyre_emp1(){}
2474
2475};
2476
2477/*M_PCL   */
2478class    sbcgyre_emp1:public Yaosbcgyre_emp1
2479{       public: 
2480         sbcgyre_emp1(){}; 
2481         ~sbcgyre_emp1 (){}; 
2482         void forward (); 
2483         void backward(); 
2484};
2485
2486//////////// Begin of the Yao Class Yaosbcgyre_zsumemp_zsurf ////////////
2487class                 Yaosbcgyre_zsumemp_zsurf
2488{
2489         public:
2490              double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_zsumemp_zsurf];
2491              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_zsumemp_zsurf];
2492              double     Ydelta[YNBALLTIME_Tsbd][YNBS_sbcgyre_zsumemp_zsurf];
2493
2494//:=========> Constructor - Destructor ============
2495Yaosbcgyre_zsumemp_zsurf(){}
2496~Yaosbcgyre_zsumemp_zsurf(){}
2497
2498};
2499
2500/*M_PCL   */
2501class    sbcgyre_zsumemp_zsurf:public Yaosbcgyre_zsumemp_zsurf
2502{       public: 
2503         sbcgyre_zsumemp_zsurf(){}; 
2504         ~sbcgyre_zsumemp_zsurf (){}; 
2505         void forward (double x0,double x1,double x2,double x3,double x4); 
2506         void backward(double x0,double x1,double x2,double x3,double x4); 
2507};
2508
2509//////////// Begin of the Yao Class Yaosbcgyre_emp ////////////
2510class                 Yaosbcgyre_emp
2511{
2512         public:
2513              double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp];
2514              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp];
2515              double     Ydelta[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp];
2516
2517//:=========> Constructor - Destructor ============
2518Yaosbcgyre_emp(){}
2519~Yaosbcgyre_emp(){}
2520
2521};
2522
2523/*M_PCL   */
2524class    sbcgyre_emp:public Yaosbcgyre_emp
2525{       public: 
2526         sbcgyre_emp(){}; 
2527         ~sbcgyre_emp (){}; 
2528         void forward (double x0,double x1,double x2); 
2529         void backward(double x0,double x1,double x2); 
2530};
2531
2532//////////// Begin of the Yao Class Yaosbcgyre_emps ////////////
2533class                 Yaosbcgyre_emps
2534{
2535         public:
2536              double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_emps];
2537              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_emps];
2538              double     Ydelta[YNBALLTIME_Tsbd][YNBS_sbcgyre_emps];
2539
2540//:=========> Constructor - Destructor ============
2541Yaosbcgyre_emps(){}
2542~Yaosbcgyre_emps(){}
2543
2544};
2545
2546/*M_PCL   */
2547class    sbcgyre_emps:public Yaosbcgyre_emps
2548{       public: 
2549         sbcgyre_emps(){}; 
2550         ~sbcgyre_emps (){}; 
2551         void forward (double x0); 
2552         void backward(double x0); 
2553};
2554
2555//////////// Begin of the Yao Class Yaosbcgyre_utau_vtau ////////////
2556class                 Yaosbcgyre_utau_vtau
2557{
2558         public:
2559              double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_utau_vtau];
2560              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_utau_vtau];
2561              double     Ydelta[YNBALLTIME_Tsbd][YNBS_sbcgyre_utau_vtau];
2562
2563//:=========> Constructor - Destructor ============
2564Yaosbcgyre_utau_vtau(){}
2565~Yaosbcgyre_utau_vtau(){}
2566
2567};
2568
2569/*M_PCL   */
2570class    sbcgyre_utau_vtau:public Yaosbcgyre_utau_vtau
2571{       public: 
2572         sbcgyre_utau_vtau(){}; 
2573         ~sbcgyre_utau_vtau (){}; 
2574         void forward (); 
2575         void backward(); 
2576};
2577
2578//////////// Begin of the Yao Class Yaosbcgyre_wndm ////////////
2579class                 Yaosbcgyre_wndm
2580{
2581         public:
2582              double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_wndm];
2583              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_wndm];
2584              double     Ydelta[YNBALLTIME_Tsbd][YNBS_sbcgyre_wndm];
2585
2586//:=========> Constructor - Destructor ============
2587Yaosbcgyre_wndm(){}
2588~Yaosbcgyre_wndm(){}
2589
2590};
2591
2592/*M_PCL   */
2593class    sbcgyre_wndm:public Yaosbcgyre_wndm
2594{       public: 
2595         sbcgyre_wndm(){}; 
2596         ~sbcgyre_wndm (){}; 
2597         void forward (double x0,double x1,double x2,double x3); 
2598         void backward(double x0,double x1,double x2,double x3); 
2599};
2600
2601//////////// Begin of the Yao Class Yaobn2_rn2 ////////////
2602class                 Yaobn2_rn2
2603{
2604         public:
2605              double     Ystate[YNBALLTIME_Tsbd][YNBS_bn2_rn2];
2606              double     Ygrad[YNBALLTIME_Tsbd][YNBS_bn2_rn2];
2607              double     Ydelta[YNBALLTIME_Tsbd][YNBS_bn2_rn2];
2608
2609//:=========> Constructor - Destructor ============
2610Yaobn2_rn2(){}
2611~Yaobn2_rn2(){}
2612
2613};
2614
2615/*M_PCL   */
2616class    bn2_rn2:public Yaobn2_rn2
2617{       public: 
2618         bn2_rn2(){}; 
2619         ~bn2_rn2 (){}; 
2620         void forward (double x0,double x1,double x2,double x3); 
2621         void backward(double x0,double x1,double x2,double x3); 
2622};
2623
2624//////////// Begin of the Yao Class Yaozdf_avt_avmu_avmv ////////////
2625class                 Yaozdf_avt_avmu_avmv
2626{
2627         public:
2628              double     Ystate[YNBALLTIME_Tsbd][YNBS_zdf_avt_avmu_avmv];
2629              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zdf_avt_avmu_avmv];
2630              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zdf_avt_avmu_avmv];
2631
2632//:=========> Constructor - Destructor ============
2633Yaozdf_avt_avmu_avmv(){}
2634~Yaozdf_avt_avmu_avmv(){}
2635
2636};
2637
2638/*M_PCL   */
2639class    zdf_avt_avmu_avmv:public Yaozdf_avt_avmu_avmv
2640{       public: 
2641         zdf_avt_avmu_avmv(){}; 
2642         ~zdf_avt_avmu_avmv (){}; 
2643         void forward (double x0,double x1,double x2,double x3,double x4,double x5,double x6,double x7,double x8,double x9,double x10,double x11,double x12,double x13,double x14,double x15,double x16,double x17,double x18); 
2644         void backward(double x0,double x1,double x2,double x3,double x4,double x5,double x6,double x7,double x8,double x9,double x10,double x11,double x12,double x13,double x14,double x15,double x16,double x17,double x18); 
2645};
2646
2647//////////// Begin of the Yao Class Yaozdfmxl_hmld ////////////
2648class                 Yaozdfmxl_hmld
2649{
2650         public:
2651              double     Ystate[YNBALLTIME_Tsbd][YNBS_zdfmxl_hmld];
2652              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zdfmxl_hmld];
2653              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zdfmxl_hmld];
2654
2655//:=========> Constructor - Destructor ============
2656Yaozdfmxl_hmld(){}
2657~Yaozdfmxl_hmld(){}
2658
2659};
2660
2661/*M_PCL   */
2662class    zdfmxl_hmld:public Yaozdfmxl_hmld
2663{       public: 
2664         zdfmxl_hmld(){}; 
2665         ~zdfmxl_hmld (){}; 
2666         void forward (); 
2667         void backward(); 
2668};
2669
2670//////////// Begin of the Yao Class Yaozdfmxl_nmln_hmlp_hmlpt ////////////
2671class                 Yaozdfmxl_nmln_hmlp_hmlpt
2672{
2673         public:
2674              double     Ystate[YNBALLTIME_Tsbd][YNBS_zdfmxl_nmln_hmlp_hmlpt];
2675              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zdfmxl_nmln_hmlp_hmlpt];
2676              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zdfmxl_nmln_hmlp_hmlpt];
2677
2678//:=========> Constructor - Destructor ============
2679Yaozdfmxl_nmln_hmlp_hmlpt(){}
2680~Yaozdfmxl_nmln_hmlp_hmlpt(){}
2681
2682};
2683
2684/*M_PCL   */
2685class    zdfmxl_nmln_hmlp_hmlpt:public Yaozdfmxl_nmln_hmlp_hmlpt
2686{       public: 
2687         zdfmxl_nmln_hmlp_hmlpt(){}; 
2688         ~zdfmxl_nmln_hmlp_hmlpt (){}; 
2689         void forward (); 
2690         void backward(); 
2691};
2692
2693//////////// Begin of the Yao Class Yaota_sa_trasbc ////////////
2694class                 Yaota_sa_trasbc
2695{
2696         public:
2697              double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_sa_trasbc];
2698              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_sa_trasbc];
2699              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ta_sa_trasbc];
2700
2701//:=========> Constructor - Destructor ============
2702Yaota_sa_trasbc(){}
2703~Yaota_sa_trasbc(){}
2704
2705};
2706
2707/*M_PCL   */
2708class    ta_sa_trasbc:public Yaota_sa_trasbc
2709{       public: 
2710         ta_sa_trasbc(){}; 
2711         ~ta_sa_trasbc (){}; 
2712         void forward (double x0,double x1,double x2); 
2713         void backward(double x0,double x1,double x2); 
2714};
2715
2716//////////// Begin of the Yao Class Yaota_traqsr ////////////
2717class                 Yaota_traqsr
2718{
2719         public:
2720              double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_traqsr];
2721              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_traqsr];
2722              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ta_traqsr];
2723
2724//:=========> Constructor - Destructor ============
2725Yaota_traqsr(){}
2726~Yaota_traqsr(){}
2727
2728};
2729
2730/*M_PCL   */
2731class    ta_traqsr:public Yaota_traqsr
2732{       public: 
2733         ta_traqsr(){}; 
2734         ~ta_traqsr (){}; 
2735         void forward (double x0,double x1); 
2736         void backward(double x0,double x1); 
2737};
2738
2739//////////// Begin of the Yao Class Yaozcent_hor_traadv_cen2 ////////////
2740class                 Yaozcent_hor_traadv_cen2
2741{
2742         public:
2743              double     Ystate[YNBALLTIME_Tsbd][YNBS_zcent_hor_traadv_cen2];
2744              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zcent_hor_traadv_cen2];
2745              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zcent_hor_traadv_cen2];
2746
2747//:=========> Constructor - Destructor ============
2748Yaozcent_hor_traadv_cen2(){}
2749~Yaozcent_hor_traadv_cen2(){}
2750
2751};
2752
2753/*M_PCL   */
2754class    zcent_hor_traadv_cen2:public Yaozcent_hor_traadv_cen2
2755{       public: 
2756         zcent_hor_traadv_cen2(){}; 
2757         ~zcent_hor_traadv_cen2 (){}; 
2758         void forward (double x0,double x1,double x2,double x3,double x4); 
2759         void backward(double x0,double x1,double x2,double x3,double x4); 
2760};
2761
2762//////////// HERE IS A CLONE MODULE ////////////
2763class    zcens_hor_traadv_cen2:public zcent_hor_traadv_cen2{};
2764
2765//////////// Begin of the Yao Class Yaota_hor_traadv_cen2 ////////////
2766class                 Yaota_hor_traadv_cen2
2767{
2768         public:
2769              double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_hor_traadv_cen2];
2770              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_hor_traadv_cen2];
2771              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ta_hor_traadv_cen2];
2772
2773//:=========> Constructor - Destructor ============
2774Yaota_hor_traadv_cen2(){}
2775~Yaota_hor_traadv_cen2(){}
2776
2777};
2778
2779/*M_PCL   */
2780class    ta_hor_traadv_cen2:public Yaota_hor_traadv_cen2
2781{       public: 
2782         ta_hor_traadv_cen2(){}; 
2783         ~ta_hor_traadv_cen2 (){}; 
2784         void forward (double x0,double x1,double x2,double x3,double x4); 
2785         void backward(double x0,double x1,double x2,double x3,double x4); 
2786};
2787
2788//////////// Begin of the Yao Class Yaosa_hor_traadv_cen2 ////////////
2789class                 Yaosa_hor_traadv_cen2
2790{
2791         public:
2792              double     Ystate[YNBALLTIME_Tsbd][YNBS_sa_hor_traadv_cen2];
2793              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sa_hor_traadv_cen2];
2794              double     Ydelta[YNBALLTIME_Tsbd][YNBS_sa_hor_traadv_cen2];
2795
2796//:=========> Constructor - Destructor ============
2797Yaosa_hor_traadv_cen2(){}
2798~Yaosa_hor_traadv_cen2(){}
2799
2800};
2801
2802/*M_PCL   */
2803class    sa_hor_traadv_cen2:public Yaosa_hor_traadv_cen2
2804{       public: 
2805         sa_hor_traadv_cen2(){}; 
2806         ~sa_hor_traadv_cen2 (){}; 
2807         void forward (double x0,double x1,double x2,double x3,double x4); 
2808         void backward(double x0,double x1,double x2,double x3,double x4); 
2809};
2810
2811//////////// Begin of the Yao Class Yaozcent_ver_traadv_cen2 ////////////
2812class                 Yaozcent_ver_traadv_cen2
2813{
2814         public:
2815              double     Ystate[YNBALLTIME_Tsbd][YNBS_zcent_ver_traadv_cen2];
2816              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zcent_ver_traadv_cen2];
2817              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zcent_ver_traadv_cen2];
2818
2819//:=========> Constructor - Destructor ============
2820Yaozcent_ver_traadv_cen2(){}
2821~Yaozcent_ver_traadv_cen2(){}
2822
2823};
2824
2825/*M_PCL   */
2826class    zcent_ver_traadv_cen2:public Yaozcent_ver_traadv_cen2
2827{       public: 
2828         zcent_ver_traadv_cen2(){}; 
2829         ~zcent_ver_traadv_cen2 (){}; 
2830         void forward (double x0,double x1,double x2); 
2831         void backward(double x0,double x1,double x2); 
2832};
2833
2834//////////// HERE IS A CLONE MODULE ////////////
2835class    zcens_ver_traadv_cen2:public zcent_ver_traadv_cen2{};
2836
2837//////////// Begin of the Yao Class Yaota_ver_traadv_cen2 ////////////
2838class                 Yaota_ver_traadv_cen2
2839{
2840         public:
2841              double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_ver_traadv_cen2];
2842              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_ver_traadv_cen2];
2843              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ta_ver_traadv_cen2];
2844
2845//:=========> Constructor - Destructor ============
2846Yaota_ver_traadv_cen2(){}
2847~Yaota_ver_traadv_cen2(){}
2848
2849};
2850
2851/*M_PCL   */
2852class    ta_ver_traadv_cen2:public Yaota_ver_traadv_cen2
2853{       public: 
2854         ta_ver_traadv_cen2(){}; 
2855         ~ta_ver_traadv_cen2 (){}; 
2856         void forward (double x0,double x1,double x2); 
2857         void backward(double x0,double x1,double x2); 
2858};
2859
2860//////////// HERE IS A CLONE MODULE ////////////
2861class    sa_ver_traadv_cen2:public ta_ver_traadv_cen2{};
2862
2863//////////// Begin of the Yao Class Yaoztuv_traldf_lap ////////////
2864class                 Yaoztuv_traldf_lap
2865{
2866         public:
2867              double     Ystate[YNBALLTIME_Tsbd][YNBS_ztuv_traldf_lap];
2868              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ztuv_traldf_lap];
2869              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ztuv_traldf_lap];
2870
2871//:=========> Constructor - Destructor ============
2872Yaoztuv_traldf_lap(){}
2873~Yaoztuv_traldf_lap(){}
2874
2875};
2876
2877/*M_PCL   */
2878class    ztuv_traldf_lap:public Yaoztuv_traldf_lap
2879{       public: 
2880         ztuv_traldf_lap(){}; 
2881         ~ztuv_traldf_lap (){}; 
2882         void forward (double x0,double x1,double x2); 
2883         void backward(double x0,double x1,double x2); 
2884};
2885
2886//////////// HERE IS A CLONE MODULE ////////////
2887class    zsuv_traldf_lap:public ztuv_traldf_lap{};
2888
2889//////////// Begin of the Yao Class Yaota_traldf_lap ////////////
2890class                 Yaota_traldf_lap
2891{
2892         public:
2893              double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_traldf_lap];
2894              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_traldf_lap];
2895              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ta_traldf_lap];
2896
2897//:=========> Constructor - Destructor ============
2898Yaota_traldf_lap(){}
2899~Yaota_traldf_lap(){}
2900
2901};
2902
2903/*M_PCL   */
2904class    ta_traldf_lap:public Yaota_traldf_lap
2905{       public: 
2906         ta_traldf_lap(){}; 
2907         ~ta_traldf_lap (){}; 
2908         void forward (double x0,double x1,double x2,double x3,double x4); 
2909         void backward(double x0,double x1,double x2,double x3,double x4); 
2910};
2911
2912//////////// HERE IS A CLONE MODULE ////////////
2913class    sa_traldf_lap:public ta_traldf_lap{};
2914
2915//////////// Begin of the Yao Class Yaozwisd_trazdf_imp ////////////
2916class                 Yaozwisd_trazdf_imp
2917{
2918         public:
2919              double     Ystate[YNBALLTIME_Tsbd][YNBS_zwisd_trazdf_imp];
2920              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwisd_trazdf_imp];
2921              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zwisd_trazdf_imp];
2922
2923//:=========> Constructor - Destructor ============
2924Yaozwisd_trazdf_imp(){}
2925~Yaozwisd_trazdf_imp(){}
2926
2927};
2928
2929/*M_PCL   */
2930class    zwisd_trazdf_imp:public Yaozwisd_trazdf_imp
2931{       public: 
2932         zwisd_trazdf_imp(){}; 
2933         ~zwisd_trazdf_imp (){}; 
2934         void forward (double x0,double x1); 
2935         void backward(double x0,double x1); 
2936};
2937
2938//////////// Begin of the Yao Class Yaozrhs_trazdf_imp ////////////
2939class                 Yaozrhs_trazdf_imp
2940{
2941         public:
2942              double     Ystate[YNBALLTIME_Tsbd][YNBS_zrhs_trazdf_imp];
2943              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zrhs_trazdf_imp];
2944              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zrhs_trazdf_imp];
2945
2946//:=========> Constructor - Destructor ============
2947Yaozrhs_trazdf_imp(){}
2948~Yaozrhs_trazdf_imp(){}
2949
2950};
2951
2952/*M_PCL   */
2953class    zrhs_trazdf_imp:public Yaozrhs_trazdf_imp
2954{       public: 
2955         zrhs_trazdf_imp(){}; 
2956         ~zrhs_trazdf_imp (){}; 
2957         void forward (double x0,double x1); 
2958         void backward(double x0,double x1); 
2959};
2960
2961//////////// HERE IS A CLONE MODULE ////////////
2962class    zrhs_sa_trazdf_imp:public zrhs_trazdf_imp{};
2963
2964//////////// Begin of the Yao Class Yaozwt_trazdf_imp ////////////
2965class                 Yaozwt_trazdf_imp
2966{
2967         public:
2968              double     Ystate[YNBALLTIME_Tsbd][YNBS_zwt_trazdf_imp];
2969              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwt_trazdf_imp];
2970              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zwt_trazdf_imp];
2971
2972//:=========> Constructor - Destructor ============
2973Yaozwt_trazdf_imp(){}
2974~Yaozwt_trazdf_imp(){}
2975
2976};
2977
2978/*M_PCL   */
2979class    zwt_trazdf_imp:public Yaozwt_trazdf_imp
2980{       public: 
2981         zwt_trazdf_imp(){}; 
2982         ~zwt_trazdf_imp (){}; 
2983         void forward (double x0,double x1,double x2,double x3); 
2984         void backward(double x0,double x1,double x2,double x3); 
2985};
2986
2987//////////// HERE IS A CLONE MODULE ////////////
2988class    ta_de_trazdf_imp:public zwt_trazdf_imp{};
2989
2990//////////// Begin of the Yao Class Yaota ////////////
2991class                 Yaota
2992{
2993         public:
2994              double     Ystate[YNBALLTIME_Tsbd][YNBS_ta];
2995              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta];
2996              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ta];
2997
2998//:=========> Constructor - Destructor ============
2999Yaota(){}
3000~Yaota(){}
3001
3002};
3003
3004/*M_PCL   */
3005class    ta:public Yaota
3006{       public: 
3007         ta(){}; 
3008         ~ta (){}; 
3009         void forward (double x0,double x1,double x2,double x3,double x4); 
3010         void backward(double x0,double x1,double x2,double x3,double x4); 
3011};
3012
3013//////////// HERE IS A CLONE MODULE ////////////
3014class    sa_de_trazdf_imp:public ta_de_trazdf_imp{};
3015
3016//////////// Begin of the Yao Class Yaosa ////////////
3017class                 Yaosa
3018{
3019         public:
3020              double     Ystate[YNBALLTIME_Tsbd][YNBS_sa];
3021              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sa];
3022              double     Ydelta[YNBALLTIME_Tsbd][YNBS_sa];
3023
3024//:=========> Constructor - Destructor ============
3025Yaosa(){}
3026~Yaosa(){}
3027
3028};
3029
3030/*M_PCL   */
3031class    sa:public Yaosa
3032{       public: 
3033         sa(){}; 
3034         ~sa (){}; 
3035         void forward (double x0,double x1,double x2,double x3,double x4); 
3036         void backward(double x0,double x1,double x2,double x3,double x4); 
3037};
3038
3039//////////// Begin of the Yao Class Yaotb ////////////
3040class                 Yaotb
3041{
3042         public:
3043              double     Ystate[YNBALLTIME_Tsbd][YNBS_tb];
3044              double     Ygrad[YNBALLTIME_Tsbd][YNBS_tb];
3045              double     Ywish[YNBS_tb];
3046              double     Ydelta[YNBALLTIME_Tsbd][YNBS_tb];
3047
3048//:=========> Constructor - Destructor ============
3049Yaotb(){}
3050~Yaotb(){}
3051
3052};
3053
3054/*M_PCL   */
3055class    tb:public Yaotb
3056{       public: 
3057         tb(){}; 
3058         ~tb (){}; 
3059         void forward (double x0,double x1,double x2,double x3); 
3060         void backward(double x0,double x1,double x2,double x3); 
3061};
3062
3063//////////// Begin of the Yao Class Yaosb ////////////
3064class                 Yaosb
3065{
3066         public:
3067              double     Ystate[YNBALLTIME_Tsbd][YNBS_sb];
3068              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sb];
3069              double     Ydelta[YNBALLTIME_Tsbd][YNBS_sb];
3070
3071//:=========> Constructor - Destructor ============
3072Yaosb(){}
3073~Yaosb(){}
3074
3075};
3076
3077/*M_PCL   */
3078class    sb:public Yaosb
3079{       public: 
3080         sb(){}; 
3081         ~sb (){}; 
3082         void forward (double x0,double x1,double x2,double x3); 
3083         void backward(double x0,double x1,double x2,double x3); 
3084};
3085
3086//////////// Begin of the Yao Class Yaorhd ////////////
3087class                 Yaorhd
3088{
3089         public:
3090              double     Ystate[YNBALLTIME_Tsbd][YNBS_rhd];
3091              double     Ygrad[YNBALLTIME_Tsbd][YNBS_rhd];
3092              double     Ydelta[YNBALLTIME_Tsbd][YNBS_rhd];
3093
3094//:=========> Constructor - Destructor ============
3095Yaorhd(){}
3096~Yaorhd(){}
3097
3098};
3099
3100/*M_PCL   */
3101class    rhd:public Yaorhd
3102{       public: 
3103         rhd(){}; 
3104         ~rhd (){}; 
3105         void forward (double x0,double x1); 
3106         void backward(double x0,double x1); 
3107};
3108
3109//////////// Begin of the Yao Class Yaorhop ////////////
3110class                 Yaorhop
3111{
3112         public:
3113              double     Ystate[YNBALLTIME_Tsbd][YNBS_rhop];
3114              double     Ygrad[YNBALLTIME_Tsbd][YNBS_rhop];
3115              double     Ydelta[YNBALLTIME_Tsbd][YNBS_rhop];
3116
3117//:=========> Constructor - Destructor ============
3118Yaorhop(){}
3119~Yaorhop(){}
3120
3121};
3122
3123/*M_PCL   */
3124class    rhop:public Yaorhop
3125{       public: 
3126         rhop(){}; 
3127         ~rhop (){}; 
3128         void forward (double x0); 
3129         void backward(double x0); 
3130};
3131
3132//////////// Begin of the Yao Class Yaohmf_TF_dynadv_cen2 ////////////
3133class                 Yaohmf_TF_dynadv_cen2
3134{
3135         public:
3136              double     Ystate[YNBALLTIME_Tsbd][YNBS_hmf_TF_dynadv_cen2];
3137              double     Ygrad[YNBALLTIME_Tsbd][YNBS_hmf_TF_dynadv_cen2];
3138              double     Ydelta[YNBALLTIME_Tsbd][YNBS_hmf_TF_dynadv_cen2];
3139
3140//:=========> Constructor - Destructor ============
3141Yaohmf_TF_dynadv_cen2(){}
3142~Yaohmf_TF_dynadv_cen2(){}
3143
3144};
3145
3146/*M_PCL   */
3147class    hmf_TF_dynadv_cen2:public Yaohmf_TF_dynadv_cen2
3148{       public: 
3149         hmf_TF_dynadv_cen2(){}; 
3150         ~hmf_TF_dynadv_cen2 (){}; 
3151         void forward (double x0,double x1,double x2,double x3,double x4,double x5); 
3152         void backward(double x0,double x1,double x2,double x3,double x4,double x5); 
3153};
3154
3155//////////// Begin of the Yao Class Yaozua_dhmf_dynadv_cen2 ////////////
3156class                 Yaozua_dhmf_dynadv_cen2
3157{
3158         public:
3159              double     Ystate[YNBALLTIME_Tsbd][YNBS_zua_dhmf_dynadv_cen2];
3160              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zua_dhmf_dynadv_cen2];
3161              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zua_dhmf_dynadv_cen2];
3162
3163//:=========> Constructor - Destructor ============
3164Yaozua_dhmf_dynadv_cen2(){}
3165~Yaozua_dhmf_dynadv_cen2(){}
3166
3167};
3168
3169/*M_PCL   */
3170class    zua_dhmf_dynadv_cen2:public Yaozua_dhmf_dynadv_cen2
3171{       public: 
3172         zua_dhmf_dynadv_cen2(){}; 
3173         ~zua_dhmf_dynadv_cen2 (){}; 
3174         void forward (double x0,double x1,double x2,double x3); 
3175         void backward(double x0,double x1,double x2,double x3); 
3176};
3177
3178//////////// Begin of the Yao Class Yaozva_dhmf_dynadv_cen2 ////////////
3179class                 Yaozva_dhmf_dynadv_cen2
3180{
3181         public:
3182              double     Ystate[YNBALLTIME_Tsbd][YNBS_zva_dhmf_dynadv_cen2];
3183              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zva_dhmf_dynadv_cen2];
3184              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zva_dhmf_dynadv_cen2];
3185
3186//:=========> Constructor - Destructor ============
3187Yaozva_dhmf_dynadv_cen2(){}
3188~Yaozva_dhmf_dynadv_cen2(){}
3189
3190};
3191
3192/*M_PCL   */
3193class    zva_dhmf_dynadv_cen2:public Yaozva_dhmf_dynadv_cen2
3194{       public: 
3195         zva_dhmf_dynadv_cen2(){}; 
3196         ~zva_dhmf_dynadv_cen2 (){}; 
3197         void forward (double x0,double x1,double x2,double x3); 
3198         void backward(double x0,double x1,double x2,double x3); 
3199};
3200
3201//////////// Begin of the Yao Class Yaozfuv_UW_dynadv_cen2 ////////////
3202class                 Yaozfuv_UW_dynadv_cen2
3203{
3204         public:
3205              double     Ystate[YNBALLTIME_Tsbd][YNBS_zfuv_UW_dynadv_cen2];
3206              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zfuv_UW_dynadv_cen2];
3207              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zfuv_UW_dynadv_cen2];
3208
3209//:=========> Constructor - Destructor ============
3210Yaozfuv_UW_dynadv_cen2(){}
3211~Yaozfuv_UW_dynadv_cen2(){}
3212
3213};
3214
3215/*M_PCL   */
3216class    zfuv_UW_dynadv_cen2:public Yaozfuv_UW_dynadv_cen2
3217{       public: 
3218         zfuv_UW_dynadv_cen2(){}; 
3219         ~zfuv_UW_dynadv_cen2 (){}; 
3220         void forward (double x0,double x1,double x2,double x3,double x4,double x5,double x6); 
3221         void backward(double x0,double x1,double x2,double x3,double x4,double x5,double x6); 
3222};
3223
3224//////////// Begin of the Yao Class Yaoua_dynadv_cen2 ////////////
3225class                 Yaoua_dynadv_cen2
3226{
3227         public:
3228              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_dynadv_cen2];
3229              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dynadv_cen2];
3230              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ua_dynadv_cen2];
3231
3232//:=========> Constructor - Destructor ============
3233Yaoua_dynadv_cen2(){}
3234~Yaoua_dynadv_cen2(){}
3235
3236};
3237
3238/*M_PCL   */
3239class    ua_dynadv_cen2:public Yaoua_dynadv_cen2
3240{       public: 
3241         ua_dynadv_cen2(){}; 
3242         ~ua_dynadv_cen2 (){}; 
3243         void forward (double x0,double x1,double x2); 
3244         void backward(double x0,double x1,double x2); 
3245};
3246
3247//////////// Begin of the Yao Class Yaova_dynadv_cen2 ////////////
3248class                 Yaova_dynadv_cen2
3249{
3250         public:
3251              double     Ystate[YNBALLTIME_Tsbd][YNBS_va_dynadv_cen2];
3252              double     Ygrad[YNBALLTIME_Tsbd][YNBS_va_dynadv_cen2];
3253              double     Ydelta[YNBALLTIME_Tsbd][YNBS_va_dynadv_cen2];
3254
3255//:=========> Constructor - Destructor ============
3256Yaova_dynadv_cen2(){}
3257~Yaova_dynadv_cen2(){}
3258
3259};
3260
3261/*M_PCL   */
3262class    va_dynadv_cen2:public Yaova_dynadv_cen2
3263{       public: 
3264         va_dynadv_cen2(){}; 
3265         ~va_dynadv_cen2 (){}; 
3266         void forward (double x0,double x1,double x2); 
3267         void backward(double x0,double x1,double x2); 
3268};
3269
3270//////////// Begin of the Yao Class Yaozwxyz_vor_ene ////////////
3271class                 Yaozwxyz_vor_ene
3272{
3273         public:
3274              double     Ystate[YNBALLTIME_Tsbd][YNBS_zwxyz_vor_ene];
3275              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwxyz_vor_ene];
3276              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zwxyz_vor_ene];
3277
3278//:=========> Constructor - Destructor ============
3279Yaozwxyz_vor_ene(){}
3280~Yaozwxyz_vor_ene(){}
3281
3282};
3283
3284/*M_PCL   */
3285class    zwxyz_vor_ene:public Yaozwxyz_vor_ene
3286{       public: 
3287         zwxyz_vor_ene(){}; 
3288         ~zwxyz_vor_ene (){}; 
3289         void forward (double x0,double x1,double x2,double x3); 
3290         void backward(double x0,double x1,double x2,double x3); 
3291};
3292
3293//////////// Begin of the Yao Class Yaoua_vor_ene ////////////
3294class                 Yaoua_vor_ene
3295{
3296         public:
3297              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_vor_ene];
3298              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_vor_ene];
3299              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ua_vor_ene];
3300
3301//:=========> Constructor - Destructor ============
3302Yaoua_vor_ene(){}
3303~Yaoua_vor_ene(){}
3304
3305};
3306
3307/*M_PCL   */
3308class    ua_vor_ene:public Yaoua_vor_ene
3309{       public: 
3310         ua_vor_ene(){}; 
3311         ~ua_vor_ene (){}; 
3312         void forward (double x0,double x1,double x2,double x3,double x4,double x5,double x6); 
3313         void backward(double x0,double x1,double x2,double x3,double x4,double x5,double x6); 
3314};
3315
3316//////////// Begin of the Yao Class Yaova_vor_ene ////////////
3317class                 Yaova_vor_ene
3318{
3319         public:
3320              double     Ystate[YNBALLTIME_Tsbd][YNBS_va_vor_ene];
3321              double     Ygrad[YNBALLTIME_Tsbd][YNBS_va_vor_ene];
3322              double     Ydelta[YNBALLTIME_Tsbd][YNBS_va_vor_ene];
3323
3324//:=========> Constructor - Destructor ============
3325Yaova_vor_ene(){}
3326~Yaova_vor_ene(){}
3327
3328};
3329
3330/*M_PCL   */
3331class    va_vor_ene:public Yaova_vor_ene
3332{       public: 
3333         va_vor_ene(){}; 
3334         ~va_vor_ene (){}; 
3335         void forward (double x0,double x1,double x2,double x3,double x4,double x5,double x6); 
3336         void backward(double x0,double x1,double x2,double x3,double x4,double x5,double x6); 
3337};
3338
3339//////////// Begin of the Yao Class Yaoua_dyn_ldf_lap ////////////
3340class                 Yaoua_dyn_ldf_lap
3341{
3342         public:
3343              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_dyn_ldf_lap];
3344              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dyn_ldf_lap];
3345              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ua_dyn_ldf_lap];
3346
3347//:=========> Constructor - Destructor ============
3348Yaoua_dyn_ldf_lap(){}
3349~Yaoua_dyn_ldf_lap(){}
3350
3351};
3352
3353/*M_PCL   */
3354class    ua_dyn_ldf_lap:public Yaoua_dyn_ldf_lap
3355{       public: 
3356         ua_dyn_ldf_lap(){}; 
3357         ~ua_dyn_ldf_lap (){}; 
3358         void forward (double x0,double x1,double x2,double x3,double x4); 
3359         void backward(double x0,double x1,double x2,double x3,double x4); 
3360};
3361
3362//////////// Begin of the Yao Class Yaova_dyn_ldf_lap ////////////
3363class                 Yaova_dyn_ldf_lap
3364{
3365         public:
3366              double     Ystate[YNBALLTIME_Tsbd][YNBS_va_dyn_ldf_lap];
3367              double     Ygrad[YNBALLTIME_Tsbd][YNBS_va_dyn_ldf_lap];
3368              double     Ydelta[YNBALLTIME_Tsbd][YNBS_va_dyn_ldf_lap];
3369
3370//:=========> Constructor - Destructor ============
3371Yaova_dyn_ldf_lap(){}
3372~Yaova_dyn_ldf_lap(){}
3373
3374};
3375
3376/*M_PCL   */
3377class    va_dyn_ldf_lap:public Yaova_dyn_ldf_lap
3378{       public: 
3379         va_dyn_ldf_lap(){}; 
3380         ~va_dyn_ldf_lap (){}; 
3381         void forward (double x0,double x1,double x2,double x3,double x4); 
3382         void backward(double x0,double x1,double x2,double x3,double x4); 
3383};
3384
3385//////////// Begin of the Yao Class Yaozhpij_dyn_hpg_zco ////////////
3386class                 Yaozhpij_dyn_hpg_zco
3387{
3388         public:
3389              double     Ystate[YNBALLTIME_Tsbd][YNBS_zhpij_dyn_hpg_zco];
3390              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zhpij_dyn_hpg_zco];
3391              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zhpij_dyn_hpg_zco];
3392
3393//:=========> Constructor - Destructor ============
3394Yaozhpij_dyn_hpg_zco(){}
3395~Yaozhpij_dyn_hpg_zco(){}
3396
3397};
3398
3399/*M_PCL   */
3400class    zhpij_dyn_hpg_zco:public Yaozhpij_dyn_hpg_zco
3401{       public: 
3402         zhpij_dyn_hpg_zco(){}; 
3403         ~zhpij_dyn_hpg_zco (){}; 
3404         void forward (double x0,double x1,double x2,double x3,double x4,double x5,double x6,double x7); 
3405         void backward(double x0,double x1,double x2,double x3,double x4,double x5,double x6,double x7); 
3406};
3407
3408//////////// Begin of the Yao Class Yaoua_dyn_hpg_zco ////////////
3409class                 Yaoua_dyn_hpg_zco
3410{
3411         public:
3412              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_dyn_hpg_zco];
3413              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dyn_hpg_zco];
3414              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ua_dyn_hpg_zco];
3415
3416//:=========> Constructor - Destructor ============
3417Yaoua_dyn_hpg_zco(){}
3418~Yaoua_dyn_hpg_zco(){}
3419
3420};
3421
3422/*M_PCL   */
3423class    ua_dyn_hpg_zco:public Yaoua_dyn_hpg_zco
3424{       public: 
3425         ua_dyn_hpg_zco(){}; 
3426         ~ua_dyn_hpg_zco (){}; 
3427         void forward (double x0,double x1); 
3428         void backward(double x0,double x1); 
3429};
3430
3431//////////// HERE IS A CLONE MODULE ////////////
3432class    va_dyn_hpg_zco:public ua_dyn_hpg_zco{};
3433
3434//////////// Begin of the Yao Class Yaozwisd_ua_dynzdf_imp ////////////
3435class                 Yaozwisd_ua_dynzdf_imp
3436{
3437         public:
3438              double     Ystate[YNBALLTIME_Tsbd][YNBS_zwisd_ua_dynzdf_imp];
3439              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwisd_ua_dynzdf_imp];
3440              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zwisd_ua_dynzdf_imp];
3441
3442//:=========> Constructor - Destructor ============
3443Yaozwisd_ua_dynzdf_imp(){}
3444~Yaozwisd_ua_dynzdf_imp(){}
3445
3446};
3447
3448/*M_PCL   */
3449class    zwisd_ua_dynzdf_imp:public Yaozwisd_ua_dynzdf_imp
3450{       public: 
3451         zwisd_ua_dynzdf_imp(){}; 
3452         ~zwisd_ua_dynzdf_imp (){}; 
3453         void forward (double x0,double x1); 
3454         void backward(double x0,double x1); 
3455};
3456
3457//////////// Begin of the Yao Class Yaozwisd_va_dynzdf_imp ////////////
3458class                 Yaozwisd_va_dynzdf_imp
3459{
3460         public:
3461              double     Ystate[YNBALLTIME_Tsbd][YNBS_zwisd_va_dynzdf_imp];
3462              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwisd_va_dynzdf_imp];
3463              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zwisd_va_dynzdf_imp];
3464
3465//:=========> Constructor - Destructor ============
3466Yaozwisd_va_dynzdf_imp(){}
3467~Yaozwisd_va_dynzdf_imp(){}
3468
3469};
3470
3471/*M_PCL   */
3472class    zwisd_va_dynzdf_imp:public Yaozwisd_va_dynzdf_imp
3473{       public: 
3474         zwisd_va_dynzdf_imp(){}; 
3475         ~zwisd_va_dynzdf_imp (){}; 
3476         void forward (double x0,double x1); 
3477         void backward(double x0,double x1); 
3478};
3479
3480//////////// Begin of the Yao Class Yaozrhs_ua_dynzdf_imp ////////////
3481class                 Yaozrhs_ua_dynzdf_imp
3482{
3483         public:
3484              double     Ystate[YNBALLTIME_Tsbd][YNBS_zrhs_ua_dynzdf_imp];
3485              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zrhs_ua_dynzdf_imp];
3486              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zrhs_ua_dynzdf_imp];
3487
3488//:=========> Constructor - Destructor ============
3489Yaozrhs_ua_dynzdf_imp(){}
3490~Yaozrhs_ua_dynzdf_imp(){}
3491
3492};
3493
3494/*M_PCL   */
3495class    zrhs_ua_dynzdf_imp:public Yaozrhs_ua_dynzdf_imp
3496{       public: 
3497         zrhs_ua_dynzdf_imp(){}; 
3498         ~zrhs_ua_dynzdf_imp (){}; 
3499         void forward (double x0,double x1,double x2); 
3500         void backward(double x0,double x1,double x2); 
3501};
3502
3503//////////// Begin of the Yao Class Yaozrhs_va_dynzdf_imp ////////////
3504class                 Yaozrhs_va_dynzdf_imp
3505{
3506         public:
3507              double     Ystate[YNBALLTIME_Tsbd][YNBS_zrhs_va_dynzdf_imp];
3508              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zrhs_va_dynzdf_imp];
3509              double     Ydelta[YNBALLTIME_Tsbd][YNBS_zrhs_va_dynzdf_imp];
3510
3511//:=========> Constructor - Destructor ============
3512Yaozrhs_va_dynzdf_imp(){}
3513~Yaozrhs_va_dynzdf_imp(){}
3514
3515};
3516
3517/*M_PCL   */
3518class    zrhs_va_dynzdf_imp:public Yaozrhs_va_dynzdf_imp
3519{       public: 
3520         zrhs_va_dynzdf_imp(){}; 
3521         ~zrhs_va_dynzdf_imp (){}; 
3522         void forward (double x0,double x1,double x2); 
3523         void backward(double x0,double x1,double x2); 
3524};
3525
3526//////////// HERE IS A CLONE MODULE ////////////
3527class    zwt_ua_dynzdf_imp:public zwt_trazdf_imp{};
3528
3529//////////// HERE IS A CLONE MODULE ////////////
3530class    zwt_va_dynzdf_imp:public zwt_trazdf_imp{};
3531
3532//////////// HERE IS A CLONE MODULE ////////////
3533class    ua_de_dynzdf_imp:public ta_de_trazdf_imp{};
3534
3535//////////// Begin of the Yao Class Yaoua_dynzdf_imp ////////////
3536class                 Yaoua_dynzdf_imp
3537{
3538         public:
3539              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_dynzdf_imp];
3540              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dynzdf_imp];
3541              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ua_dynzdf_imp];
3542
3543//:=========> Constructor - Destructor ============
3544Yaoua_dynzdf_imp(){}
3545~Yaoua_dynzdf_imp(){}
3546
3547};
3548
3549/*M_PCL   */
3550class    ua_dynzdf_imp:public Yaoua_dynzdf_imp
3551{       public: 
3552         ua_dynzdf_imp(){}; 
3553         ~ua_dynzdf_imp (){}; 
3554         void forward (double x0,double x1,double x2,double x3); 
3555         void backward(double x0,double x1,double x2,double x3); 
3556};
3557
3558//////////// HERE IS A CLONE MODULE ////////////
3559class    va_de_dynzdf_imp:public ta_de_trazdf_imp{};
3560
3561//////////// HERE IS A CLONE MODULE ////////////
3562class    va_dynzdf_imp:public ua_dynzdf_imp{};
3563
3564//////////// Begin of the Yao Class Yaoua_norm_dynzdf ////////////
3565class                 Yaoua_norm_dynzdf
3566{
3567         public:
3568              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_norm_dynzdf];
3569              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_norm_dynzdf];
3570              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ua_norm_dynzdf];
3571
3572//:=========> Constructor - Destructor ============
3573Yaoua_norm_dynzdf(){}
3574~Yaoua_norm_dynzdf(){}
3575
3576};
3577
3578/*M_PCL   */
3579class    ua_norm_dynzdf:public Yaoua_norm_dynzdf
3580{       public: 
3581         ua_norm_dynzdf(){}; 
3582         ~ua_norm_dynzdf (){}; 
3583         void forward (double x0,double x1); 
3584         void backward(double x0,double x1); 
3585};
3586
3587//////////// HERE IS A CLONE MODULE ////////////
3588class    va_norm_dynzdf:public ua_norm_dynzdf{};
3589
3590//////////// Begin of the Yao Class Yaospguv_now_dynspg ////////////
3591class                 Yaospguv_now_dynspg
3592{
3593         public:
3594              double     Ystate[YNBALLTIME_Tsbd][YNBS_spguv_now_dynspg];
3595              double     Ygrad[YNBALLTIME_Tsbd][YNBS_spguv_now_dynspg];
3596              double     Ydelta[YNBALLTIME_Tsbd][YNBS_spguv_now_dynspg];
3597
3598//:=========> Constructor - Destructor ============
3599Yaospguv_now_dynspg(){}
3600~Yaospguv_now_dynspg(){}
3601
3602};
3603
3604/*M_PCL   */
3605class    spguv_now_dynspg:public Yaospguv_now_dynspg
3606{       public: 
3607         spguv_now_dynspg(){}; 
3608         ~spguv_now_dynspg (){}; 
3609         void forward (double x0,double x1,double x2); 
3610         void backward(double x0,double x1,double x2); 
3611};
3612
3613//////////// Begin of the Yao Class Yaoua_1_dynspg_flt ////////////
3614class                 Yaoua_1_dynspg_flt
3615{
3616         public:
3617              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_1_dynspg_flt];
3618              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_1_dynspg_flt];
3619              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ua_1_dynspg_flt];
3620
3621//:=========> Constructor - Destructor ============
3622Yaoua_1_dynspg_flt(){}
3623~Yaoua_1_dynspg_flt(){}
3624
3625};
3626
3627/*M_PCL   */
3628class    ua_1_dynspg_flt:public Yaoua_1_dynspg_flt
3629{       public: 
3630         ua_1_dynspg_flt(){}; 
3631         ~ua_1_dynspg_flt (){}; 
3632         void forward (double x0,double x1,double x2); 
3633         void backward(double x0,double x1,double x2); 
3634};
3635
3636//////////// Begin of the Yao Class Yaova_1_dynspg_flt ////////////
3637class                 Yaova_1_dynspg_flt
3638{
3639         public:
3640              double     Ystate[YNBALLTIME_Tsbd][YNBS_va_1_dynspg_flt];
3641              double     Ygrad[YNBALLTIME_Tsbd][YNBS_va_1_dynspg_flt];
3642              double     Ydelta[YNBALLTIME_Tsbd][YNBS_va_1_dynspg_flt];
3643
3644//:=========> Constructor - Destructor ============
3645Yaova_1_dynspg_flt(){}
3646~Yaova_1_dynspg_flt(){}
3647
3648};
3649
3650/*M_PCL   */
3651class    va_1_dynspg_flt:public Yaova_1_dynspg_flt
3652{       public: 
3653         va_1_dynspg_flt(){}; 
3654         ~va_1_dynspg_flt (){}; 
3655         void forward (double x0,double x1,double x2); 
3656         void backward(double x0,double x1,double x2); 
3657};
3658
3659//////////// Begin of the Yao Class Yaosum_spgu_dynspg_flt ////////////
3660class                 Yaosum_spgu_dynspg_flt
3661{
3662         public:
3663              double     Ystate[YNBALLTIME_Tsbd][YNBS_sum_spgu_dynspg_flt];
3664              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sum_spgu_dynspg_flt];
3665              double     Ydelta[YNBALLTIME_Tsbd][YNBS_sum_spgu_dynspg_flt];
3666
3667//:=========> Constructor - Destructor ============
3668Yaosum_spgu_dynspg_flt(){}
3669~Yaosum_spgu_dynspg_flt(){}
3670
3671};
3672
3673/*M_PCL   */
3674class    sum_spgu_dynspg_flt:public Yaosum_spgu_dynspg_flt
3675{       public: 
3676         sum_spgu_dynspg_flt(){}; 
3677         ~sum_spgu_dynspg_flt (){}; 
3678         void forward (); 
3679         void backward(); 
3680};
3681
3682//////////// Begin of the Yao Class Yaosum_spgv_dynspg_flt ////////////
3683class                 Yaosum_spgv_dynspg_flt
3684{
3685         public:
3686              double     Ystate[YNBALLTIME_Tsbd][YNBS_sum_spgv_dynspg_flt];
3687              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sum_spgv_dynspg_flt];
3688              double     Ydelta[YNBALLTIME_Tsbd][YNBS_sum_spgv_dynspg_flt];
3689
3690//:=========> Constructor - Destructor ============
3691Yaosum_spgv_dynspg_flt(){}
3692~Yaosum_spgv_dynspg_flt(){}
3693
3694};
3695
3696/*M_PCL   */
3697class    sum_spgv_dynspg_flt:public Yaosum_spgv_dynspg_flt
3698{       public: 
3699         sum_spgv_dynspg_flt(){}; 
3700         ~sum_spgv_dynspg_flt (){}; 
3701         void forward (); 
3702         void backward(); 
3703};
3704
3705//////////// Begin of the Yao Class Yaogcb_dynspg_flt ////////////
3706class                 Yaogcb_dynspg_flt
3707{
3708         public:
3709              double     Ystate[YNBALLTIME_Tsbd][YNBS_gcb_dynspg_flt];
3710              double     Ygrad[YNBALLTIME_Tsbd][YNBS_gcb_dynspg_flt];
3711              double     Ydelta[YNBALLTIME_Tsbd][YNBS_gcb_dynspg_flt];
3712
3713//:=========> Constructor - Destructor ============
3714Yaogcb_dynspg_flt(){}
3715~Yaogcb_dynspg_flt(){}
3716
3717};
3718
3719/*M_PCL   */
3720class    gcb_dynspg_flt:public Yaogcb_dynspg_flt
3721{       public: 
3722         gcb_dynspg_flt(){}; 
3723         ~gcb_dynspg_flt (){}; 
3724         void forward (double x0,double x1,double x2,double x3); 
3725         void backward(double x0,double x1,double x2,double x3); 
3726};
3727
3728//////////// Begin of the Yao Class Yaogcx_dynspg_flt ////////////
3729class                 Yaogcx_dynspg_flt
3730{
3731         public:
3732              double     Ystate[YNBALLTIME_Tsbd][YNBS_gcx_dynspg_flt];
3733              double     Ygrad[YNBALLTIME_Tsbd][YNBS_gcx_dynspg_flt];
3734              double     Ydelta[YNBALLTIME_Tsbd][YNBS_gcx_dynspg_flt];
3735
3736//:=========> Constructor - Destructor ============
3737Yaogcx_dynspg_flt(){}
3738~Yaogcx_dynspg_flt(){}
3739
3740};
3741
3742/*M_PCL   */
3743class    gcx_dynspg_flt:public Yaogcx_dynspg_flt
3744{       public: 
3745         gcx_dynspg_flt(){}; 
3746         ~gcx_dynspg_flt (){}; 
3747         void forward (double x0,double x1); 
3748         void backward(double x0,double x1); 
3749};
3750
3751//////////// Begin of the Yao Class Yaosolsor_dynspg_flt ////////////
3752class                 Yaosolsor_dynspg_flt
3753{
3754         public:
3755              double     Ystate[YNBS_solsor_dynspg_flt];
3756              double     Ygrad[YNBS_solsor_dynspg_flt];
3757              double     Ydelta[YNBALLTIME_Tsbd][YNBS_solsor_dynspg_flt];
3758
3759//:=========> Constructor - Destructor ============
3760Yaosolsor_dynspg_flt(){}
3761~Yaosolsor_dynspg_flt(){}
3762
3763};
3764
3765/*M_PCL   */
3766class    solsor_dynspg_flt:public Yaosolsor_dynspg_flt
3767{       public: 
3768         solsor_dynspg_flt(){}; 
3769         ~solsor_dynspg_flt (){}; 
3770         void forward (); 
3771         void backward(); 
3772};
3773
3774//////////// Begin of the Yao Class Yaogcx2 ////////////
3775class                 Yaogcx2
3776{
3777         public:
3778              double     Ystate[YNBALLTIME_Tsbd][YNBS_gcx2];
3779              double     Ygrad[YNBALLTIME_Tsbd][YNBS_gcx2];
3780              double     Ydelta[YNBALLTIME_Tsbd][YNBS_gcx2];
3781
3782//:=========> Constructor - Destructor ============
3783Yaogcx2(){}
3784~Yaogcx2(){}
3785
3786};
3787
3788/*M_PCL   */
3789class    gcx2:public Yaogcx2
3790{       public: 
3791         gcx2(){}; 
3792         ~gcx2 (){}; 
3793         void forward (); 
3794         void backward(); 
3795};
3796
3797//////////// Begin of the Yao Class Yaospguv_dynspg_flt ////////////
3798class                 Yaospguv_dynspg_flt
3799{
3800         public:
3801              double     Ystate[YNBALLTIME_Tsbd][YNBS_spguv_dynspg_flt];
3802              double     Ygrad[YNBALLTIME_Tsbd][YNBS_spguv_dynspg_flt];
3803              double     Ydelta[YNBALLTIME_Tsbd][YNBS_spguv_dynspg_flt];
3804
3805//:=========> Constructor - Destructor ============
3806Yaospguv_dynspg_flt(){}
3807~Yaospguv_dynspg_flt(){}
3808
3809};
3810
3811/*M_PCL   */
3812class    spguv_dynspg_flt:public Yaospguv_dynspg_flt
3813{       public: 
3814         spguv_dynspg_flt(){}; 
3815         ~spguv_dynspg_flt (){}; 
3816         void forward (double x0,double x1,double x2); 
3817         void backward(double x0,double x1,double x2); 
3818};
3819
3820//////////// Begin of the Yao Class Yaoua ////////////
3821class                 Yaoua
3822{
3823         public:
3824              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua];
3825              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua];
3826              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ua];
3827
3828//:=========> Constructor - Destructor ============
3829Yaoua(){}
3830~Yaoua(){}
3831
3832};
3833
3834/*M_PCL   */
3835class    ua:public Yaoua
3836{       public: 
3837         ua(){}; 
3838         ~ua (){}; 
3839         void forward (double x0,double x1,double x2); 
3840         void backward(double x0,double x1,double x2); 
3841};
3842
3843//////////// Begin of the Yao Class Yaova ////////////
3844class                 Yaova
3845{
3846         public:
3847              double     Ystate[YNBALLTIME_Tsbd][YNBS_va];
3848              double     Ygrad[YNBALLTIME_Tsbd][YNBS_va];
3849              double     Ydelta[YNBALLTIME_Tsbd][YNBS_va];
3850
3851//:=========> Constructor - Destructor ============
3852Yaova(){}
3853~Yaova(){}
3854
3855};
3856
3857/*M_PCL   */
3858class    va:public Yaova
3859{       public: 
3860         va(){}; 
3861         ~va (){}; 
3862         void forward (double x0,double x1,double x2); 
3863         void backward(double x0,double x1,double x2); 
3864};
3865
3866//////////// Begin of the Yao Class Yaosshn ////////////
3867class                 Yaosshn
3868{
3869         public:
3870              double     Ystate[YNBALLTIME_Tsbd][YNBS_sshn];
3871              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sshn];
3872              double     Ydelta[YNBALLTIME_Tsbd][YNBS_sshn];
3873
3874//:=========> Constructor - Destructor ============
3875Yaosshn(){}
3876~Yaosshn(){}
3877
3878};
3879
3880/*M_PCL   */
3881class    sshn:public Yaosshn
3882{       public: 
3883         sshn(){}; 
3884         ~sshn (){}; 
3885         void forward (double x0,double x1,double x2,double x3); 
3886         void backward(double x0,double x1,double x2,double x3); 
3887};
3888
3889//////////// Begin of the Yao Class Yaosshb ////////////
3890class                 Yaosshb
3891{
3892         public:
3893              double     Ystate[YNBALLTIME_Tsbd][YNBS_sshb];
3894              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sshb];
3895              double     Ydelta[YNBALLTIME_Tsbd][YNBS_sshb];
3896
3897//:=========> Constructor - Destructor ============
3898Yaosshb(){}
3899~Yaosshb(){}
3900
3901};
3902
3903/*M_PCL   */
3904class    sshb:public Yaosshb
3905{       public: 
3906         sshb(){}; 
3907         ~sshb (){}; 
3908         void forward (double x0,double x1,double x2,double x3); 
3909         void backward(double x0,double x1,double x2,double x3); 
3910};
3911
3912//////////// Begin of the Yao Class Yaoub ////////////
3913class                 Yaoub
3914{
3915         public:
3916              double     Ystate[YNBALLTIME_Tsbd][YNBS_ub];
3917              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ub];
3918              double     Ydelta[YNBALLTIME_Tsbd][YNBS_ub];
3919
3920//:=========> Constructor - Destructor ============
3921Yaoub(){}
3922~Yaoub(){}
3923
3924};
3925
3926/*M_PCL   */
3927class    ub:public Yaoub
3928{       public: 
3929         ub(){}; 
3930         ~ub (){}; 
3931         void forward (double x0,double x1,double x2,double x3); 
3932         void backward(double x0,double x1,double x2,double x3); 
3933};
3934
3935//////////// Begin of the Yao Class Yaovb ////////////
3936class                 Yaovb
3937{
3938         public:
3939              double     Ystate[YNBALLTIME_Tsbd][YNBS_vb];
3940              double     Ygrad[YNBALLTIME_Tsbd][YNBS_vb];
3941              double     Ydelta[YNBALLTIME_Tsbd][YNBS_vb];
3942
3943//:=========> Constructor - Destructor ============
3944Yaovb(){}
3945~Yaovb(){}
3946
3947};
3948
3949/*M_PCL   */
3950class    vb:public Yaovb
3951{       public: 
3952         vb(){}; 
3953         ~vb (){}; 
3954         void forward (double x0,double x1,double x2,double x3); 
3955         void backward(double x0,double x1,double x2,double x3); 
3956};
3957
3958//////////// Begin of the Yao Class Yaohdivn ////////////
3959class                 Yaohdivn
3960{
3961         public:
3962              double     Ystate[YNBALLTIME_Tsbd][YNBS_hdivn];
3963              double     Ygrad[YNBALLTIME_Tsbd][YNBS_hdivn];
3964              double     Ydelta[YNBALLTIME_Tsbd][YNBS_hdivn];
3965
3966//:=========> Constructor - Destructor ============
3967Yaohdivn(){}
3968~Yaohdivn(){}
3969
3970};
3971
3972/*M_PCL   */
3973class    hdivn:public Yaohdivn
3974{       public: 
3975         hdivn(){}; 
3976         ~hdivn (){}; 
3977         void forward (double x0,double x1,double x2,double x3); 
3978         void backward(double x0,double x1,double x2,double x3); 
3979};
3980
3981//////////// Begin of the Yao Class Yaorotn ////////////
3982class                 Yaorotn
3983{
3984         public:
3985              double     Ystate[YNBALLTIME_Tsbd][YNBS_rotn];
3986              double     Ygrad[YNBALLTIME_Tsbd][YNBS_rotn];
3987              double     Ydelta[YNBALLTIME_Tsbd][YNBS_rotn];
3988
3989//:=========> Constructor - Destructor ============
3990Yaorotn(){}
3991~Yaorotn(){}
3992
3993};
3994
3995/*M_PCL   */
3996class    rotn:public Yaorotn
3997{       public: 
3998         rotn(){}; 
3999         ~rotn (){}; 
4000         void forward (double x0,double x1,double x2,double x3); 
4001         void backward(double x0,double x1,double x2,double x3); 
4002};
4003
4004//////////// Begin of the Yao Class Yaowa ////////////
4005class                 Yaowa
4006{
4007         public:
4008              double     Ystate[YNBALLTIME_Tsbd][YNBS_wa];
4009              double     Ygrad[YNBALLTIME_Tsbd][YNBS_wa];
4010              double     Ydelta[YNBALLTIME_Tsbd][YNBS_wa];
4011
4012//:=========> Constructor - Destructor ============
4013Yaowa(){}
4014~Yaowa(){}
4015
4016};
4017
4018/*M_PCL   */
4019class    wa:public Yaowa
4020{       public: 
4021         wa(){}; 
4022         ~wa (){}; 
4023         void forward (double x0,double x1); 
4024         void backward(double x0,double x1); 
4025};
4026
4027//€ € € € PROTOTYPES of AUTO-FUNCTIONS € € € € € € € € € € €
4028void Yrazgrad_sshn_c(); 
4029void Ysetstate_sshn_c(); 
4030void Yrazgrad_ta_c(); 
4031void Ysetstate_ta_c(); 
4032void Ysetepsi_ta_c(); 
4033void Yadjust_ta_c(); 
4034void Y3getstate_ta_c(float x[]); 
4035void Y3valstate_ta_c(); 
4036void Y3valgrad_ta_c(float g[]); void Yrazgrad_sa_c(); 
4037void Ysetstate_sa_c(); 
4038void Yrazgrad_ua_c(); 
4039void Ysetstate_ua_c(); 
4040void Yrazgrad_va_c(); 
4041void Ysetstate_va_c(); 
4042void Yrazgrad_sbcgyre_qsr_qns(); 
4043void Ysetstate_sbcgyre_qsr_qns(); 
4044void Yrazgrad_sbcgyre_emp1(); 
4045void Ysetstate_sbcgyre_emp1(); 
4046void Yrazgrad_sbcgyre_zsumemp_zsurf(); 
4047void Ysetstate_sbcgyre_zsumemp_zsurf(); 
4048void Yrazgrad_sbcgyre_emp(); 
4049void Ysetstate_sbcgyre_emp(); 
4050void Yrazgrad_sbcgyre_emps(); 
4051void Ysetstate_sbcgyre_emps(); 
4052void Yrazgrad_sbcgyre_utau_vtau(); 
4053void Ysetstate_sbcgyre_utau_vtau(); 
4054void Yrazgrad_sbcgyre_wndm(); 
4055void Ysetstate_sbcgyre_wndm(); 
4056void Yrazgrad_bn2_rn2(); 
4057void Ysetstate_bn2_rn2(); 
4058void Yrazgrad_zdf_avt_avmu_avmv(); 
4059void Ysetstate_zdf_avt_avmu_avmv(); 
4060void Yrazgrad_zdfmxl_hmld(); 
4061void Ysetstate_zdfmxl_hmld(); 
4062void Yrazgrad_zdfmxl_nmln_hmlp_hmlpt(); 
4063void Ysetstate_zdfmxl_nmln_hmlp_hmlpt(); 
4064void Yrazgrad_ta_sa_trasbc(); 
4065void Ysetstate_ta_sa_trasbc(); 
4066void Yrazgrad_ta_traqsr(); 
4067void Ysetstate_ta_traqsr(); 
4068void Yrazgrad_zcent_hor_traadv_cen2(); 
4069void Ysetstate_zcent_hor_traadv_cen2(); 
4070void Yrazgrad_zcens_hor_traadv_cen2(); 
4071void Ysetstate_zcens_hor_traadv_cen2(); 
4072void Yrazgrad_ta_hor_traadv_cen2(); 
4073void Ysetstate_ta_hor_traadv_cen2(); 
4074void Yrazgrad_sa_hor_traadv_cen2(); 
4075void Ysetstate_sa_hor_traadv_cen2(); 
4076void Yrazgrad_zcent_ver_traadv_cen2(); 
4077void Ysetstate_zcent_ver_traadv_cen2(); 
4078void Yrazgrad_zcens_ver_traadv_cen2(); 
4079void Ysetstate_zcens_ver_traadv_cen2(); 
4080void Yrazgrad_ta_ver_traadv_cen2(); 
4081void Ysetstate_ta_ver_traadv_cen2(); 
4082void Yrazgrad_sa_ver_traadv_cen2(); 
4083void Ysetstate_sa_ver_traadv_cen2(); 
4084void Yrazgrad_ztuv_traldf_lap(); 
4085void Ysetstate_ztuv_traldf_lap(); 
4086void Yrazgrad_zsuv_traldf_lap(); 
4087void Ysetstate_zsuv_traldf_lap(); 
4088void Yrazgrad_ta_traldf_lap(); 
4089void Ysetstate_ta_traldf_lap(); 
4090void Yrazgrad_sa_traldf_lap(); 
4091void Ysetstate_sa_traldf_lap(); 
4092void Yrazgrad_zwisd_trazdf_imp(); 
4093void Ysetstate_zwisd_trazdf_imp(); 
4094void Yrazgrad_zrhs_trazdf_imp(); 
4095void Ysetstate_zrhs_trazdf_imp(); 
4096void Yrazgrad_zrhs_sa_trazdf_imp(); 
4097void Ysetstate_zrhs_sa_trazdf_imp(); 
4098void Yrazgrad_zwt_trazdf_imp(); 
4099void Ysetstate_zwt_trazdf_imp(); 
4100void Yrazgrad_ta_de_trazdf_imp(); 
4101void Ysetstate_ta_de_trazdf_imp(); 
4102void Yrazgrad_ta(); 
4103void Ysetstate_ta(); 
4104void Yrazgrad_sa_de_trazdf_imp(); 
4105void Ysetstate_sa_de_trazdf_imp(); 
4106void Yrazgrad_sa(); 
4107void Ysetstate_sa(); 
4108void Yrazgrad_tb(); 
4109void Ysetstate_tb(); 
4110void Yrazgrad_sb(); 
4111void Ysetstate_sb(); 
4112void Yrazgrad_rhd(); 
4113void Ysetstate_rhd(); 
4114void Yrazgrad_rhop(); 
4115void Ysetstate_rhop(); 
4116void Yrazgrad_hmf_TF_dynadv_cen2(); 
4117void Ysetstate_hmf_TF_dynadv_cen2(); 
4118void Yrazgrad_zua_dhmf_dynadv_cen2(); 
4119void Ysetstate_zua_dhmf_dynadv_cen2(); 
4120void Yrazgrad_zva_dhmf_dynadv_cen2(); 
4121void Ysetstate_zva_dhmf_dynadv_cen2(); 
4122void Yrazgrad_zfuv_UW_dynadv_cen2(); 
4123void Ysetstate_zfuv_UW_dynadv_cen2(); 
4124void Yrazgrad_ua_dynadv_cen2(); 
4125void Ysetstate_ua_dynadv_cen2(); 
4126void Yrazgrad_va_dynadv_cen2(); 
4127void Ysetstate_va_dynadv_cen2(); 
4128void Yrazgrad_zwxyz_vor_ene(); 
4129void Ysetstate_zwxyz_vor_ene(); 
4130void Yrazgrad_ua_vor_ene(); 
4131void Ysetstate_ua_vor_ene(); 
4132void Yrazgrad_va_vor_ene(); 
4133void Ysetstate_va_vor_ene(); 
4134void Yrazgrad_ua_dyn_ldf_lap(); 
4135void Ysetstate_ua_dyn_ldf_lap(); 
4136void Yrazgrad_va_dyn_ldf_lap(); 
4137void Ysetstate_va_dyn_ldf_lap(); 
4138void Yrazgrad_zhpij_dyn_hpg_zco(); 
4139void Ysetstate_zhpij_dyn_hpg_zco(); 
4140void Yrazgrad_ua_dyn_hpg_zco(); 
4141void Ysetstate_ua_dyn_hpg_zco(); 
4142void Yrazgrad_va_dyn_hpg_zco(); 
4143void Ysetstate_va_dyn_hpg_zco(); 
4144void Yrazgrad_zwisd_ua_dynzdf_imp(); 
4145void Ysetstate_zwisd_ua_dynzdf_imp(); 
4146void Yrazgrad_zwisd_va_dynzdf_imp(); 
4147void Ysetstate_zwisd_va_dynzdf_imp(); 
4148void Yrazgrad_zrhs_ua_dynzdf_imp(); 
4149void Ysetstate_zrhs_ua_dynzdf_imp(); 
4150void Yrazgrad_zrhs_va_dynzdf_imp(); 
4151void Ysetstate_zrhs_va_dynzdf_imp(); 
4152void Yrazgrad_zwt_ua_dynzdf_imp(); 
4153void Ysetstate_zwt_ua_dynzdf_imp(); 
4154void Yrazgrad_zwt_va_dynzdf_imp(); 
4155void Ysetstate_zwt_va_dynzdf_imp(); 
4156void Yrazgrad_ua_de_dynzdf_imp(); 
4157void Ysetstate_ua_de_dynzdf_imp(); 
4158void Yrazgrad_ua_dynzdf_imp(); 
4159void Ysetstate_ua_dynzdf_imp(); 
4160void Yrazgrad_va_de_dynzdf_imp(); 
4161void Ysetstate_va_de_dynzdf_imp(); 
4162void Yrazgrad_va_dynzdf_imp(); 
4163void Ysetstate_va_dynzdf_imp(); 
4164void Yrazgrad_ua_norm_dynzdf(); 
4165void Ysetstate_ua_norm_dynzdf(); 
4166void Yrazgrad_va_norm_dynzdf(); 
4167void Ysetstate_va_norm_dynzdf(); 
4168void Yrazgrad_spguv_now_dynspg(); 
4169void Ysetstate_spguv_now_dynspg(); 
4170void Yrazgrad_ua_1_dynspg_flt(); 
4171void Ysetstate_ua_1_dynspg_flt(); 
4172void Yrazgrad_va_1_dynspg_flt(); 
4173void Ysetstate_va_1_dynspg_flt(); 
4174void Yrazgrad_sum_spgu_dynspg_flt(); 
4175void Ysetstate_sum_spgu_dynspg_flt(); 
4176void Yrazgrad_sum_spgv_dynspg_flt(); 
4177void Ysetstate_sum_spgv_dynspg_flt(); 
4178void Yrazgrad_gcb_dynspg_flt(); 
4179void Ysetstate_gcb_dynspg_flt(); 
4180void Yrazgrad_gcx_dynspg_flt(); 
4181void Ysetstate_gcx_dynspg_flt(); 
4182void Yrazgrad_solsor_dynspg_flt(); 
4183void Ysetstate_solsor_dynspg_flt(); 
4184void Yrazgrad_gcx2(); 
4185void Ysetstate_gcx2(); 
4186void Yrazgrad_spguv_dynspg_flt(); 
4187void Ysetstate_spguv_dynspg_flt(); 
4188void Yrazgrad_ua(); 
4189void Ysetstate_ua(); 
4190void Yrazgrad_va(); 
4191void Ysetstate_va(); 
4192void Yrazgrad_sshn(); 
4193void Ysetstate_sshn(); 
4194void Yrazgrad_sshb(); 
4195void Ysetstate_sshb(); 
4196void Yrazgrad_ub(); 
4197void Ysetstate_ub(); 
4198void Yrazgrad_vb(); 
4199void Ysetstate_vb(); 
4200void Yrazgrad_hdivn(); 
4201void Ysetstate_hdivn(); 
4202void Yrazgrad_rotn(); 
4203void Ysetstate_rotn(); 
4204void Yrazgrad_wa(); 
4205void Ysetstate_wa(); 
4206
4207/*------------- DUE TO MULTI TRAJECTOIRIES --------------*/
4208#define YNBTRAJ        2
4209int Yforward_traj_Tsbd(int nbp);
4210int Ybackward_traj_Tsbd(int nbp);
4211int Ylinward_traj_Tsbd(int nbp);
4212int Ydfward_traj_Tsbd(int modop, char *nmmod, int All, int KeKo, int koleft,float pdx, float ptol, int yi, int yj,      int yk);
4213int Ydftestijkt(int imod);
4214int Ydftesttt(int itraj);
4215
4216/*------- GENERATION DU TABLEAU DES TRAJECTOIRES --------*/
4217struct Yst_traj YTabTraj[2] = {
4218        {"Tcst", 'M', 0, 0.000000, 1.000000, 0.000000, 0, 1, 1.000000, NULL, NULL, NULL, NULL, 0},
4219        {"Tsbd", 'M', 2, 0.000000, 1.000000, 0.000000, 2, 50, 50.000000, Yforward_traj_Tsbd, Ybackward_traj_Tsbd, Ylinward_traj_Tsbd, Ydfward_traj_Tsbd, 1},
4220};
4221
4222/*------- GENERATION DU TABLEAU DES ESPACES --------*/
4223#define YNBSPACE       3
4224struct Yst_space YTabSpace[3] = {
4225        {"S0d", 'M', 1, 0, 0, "Tcst"},
4226        {"S3d", 'M', 32, 22, 31, "Tcst"},
4227        {"S3dt", 'M', 32, 22, 31, "Tsbd"},
4228};
4229
4230/*------ GENERATION DU TABLEAU DES OPERATEURS -------*/
4231#define YNBOPERA       0
4232struct Yst_opera YTabOpera[0] = {
4233};
4234
4235/*------- GENERATION D'UN TABLEAU d'ACCES AUX MODULES --------*/
4236#define YNBMODUL       87
4237struct Yst_modul YTabMod[87] = {
4238        {"sshn_c", *Ysshn_c, 2, 32, 22, 0, 0, 1, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"},
4239        {"ta_c", *Yta_c, 3, 32, 22, 31, 0, 1, 0, 0, 1, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"},
4240        {"sa_c", *Ysa_c, 3, 32, 22, 31, 0, 1, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"},
4241        {"ua_c", *Yua_c, 3, 32, 22, 31, 0, 1, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"},
4242        {"va_c", *Yva_c, 3, 32, 22, 31, 0, 1, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"},
4243        {"sbcgyre_qsr_qns", *Ysbcgyre_qsr_qns, 2, 32, 22, 0, 1, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4244        {"sbcgyre_emp1", *Ysbcgyre_emp1, 2, 32, 22, 0, 0, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4245        {"sbcgyre_zsumemp_zsurf", *Ysbcgyre_zsumemp_zsurf, 2, 32, 22, 0, 5, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4246        {"sbcgyre_emp", *Ysbcgyre_emp, 2, 32, 22, 0, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4247        {"sbcgyre_emps", *Ysbcgyre_emps, 2, 32, 22, 0, 1, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4248        {"sbcgyre_utau_vtau", *Ysbcgyre_utau_vtau, 2, 32, 22, 0, 0, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4249        {"sbcgyre_wndm", *Ysbcgyre_wndm, 2, 32, 22, 0, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4250        {"bn2_rn2", *Ybn2_rn2, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4251        {"zdf_avt_avmu_avmv", *Yzdf_avt_avmu_avmv, 3, 32, 22, 31, 19, 3, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4252        {"zdfmxl_hmld", *Yzdfmxl_hmld, 2, 32, 22, 0, 31, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4253        {"zdfmxl_nmln_hmlp_hmlpt", *Yzdfmxl_nmln_hmlp_hmlpt, 2, 32, 22, 0, 31, 3, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4254        {"ta_sa_trasbc", *Yta_sa_trasbc, 2, 32, 22, 0, 3, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4255        {"ta_traqsr", *Yta_traqsr, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4256        {"zcent_hor_traadv_cen2", *Yzcent_hor_traadv_cen2, 3, 32, 22, 31, 5, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4257        {"zcens_hor_traadv_cen2", *Yzcens_hor_traadv_cen2, 3, 32, 22, 31, 5, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4258        {"ta_hor_traadv_cen2", *Yta_hor_traadv_cen2, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4259        {"sa_hor_traadv_cen2", *Ysa_hor_traadv_cen2, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4260        {"zcent_ver_traadv_cen2", *Yzcent_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4261        {"zcens_ver_traadv_cen2", *Yzcens_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4262        {"ta_ver_traadv_cen2", *Yta_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4263        {"sa_ver_traadv_cen2", *Ysa_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4264        {"ztuv_traldf_lap", *Yztuv_traldf_lap, 3, 32, 22, 31, 3, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4265        {"zsuv_traldf_lap", *Yzsuv_traldf_lap, 3, 32, 22, 31, 3, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4266        {"ta_traldf_lap", *Yta_traldf_lap, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4267        {"sa_traldf_lap", *Ysa_traldf_lap, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4268        {"zwisd_trazdf_imp", *Yzwisd_trazdf_imp, 3, 32, 22, 31, 2, 3, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4269        {"zrhs_trazdf_imp", *Yzrhs_trazdf_imp, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4270        {"zrhs_sa_trazdf_imp", *Yzrhs_sa_trazdf_imp, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4271        {"zwt_trazdf_imp", *Yzwt_trazdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4272        {"ta_de_trazdf_imp", *Yta_de_trazdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4273        {"ta", *Yta, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4274        {"sa_de_trazdf_imp", *Ysa_de_trazdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4275        {"sa", *Ysa, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4276        {"tb", *Ytb, 3, 32, 22, 31, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4277        {"sb", *Ysb, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4278        {"rhd", *Yrhd, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4279        {"rhop", *Yrhop, 3, 32, 22, 31, 1, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4280        {"hmf_TF_dynadv_cen2", *Yhmf_TF_dynadv_cen2, 3, 32, 22, 31, 6, 4, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4281        {"zua_dhmf_dynadv_cen2", *Yzua_dhmf_dynadv_cen2, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4282        {"zva_dhmf_dynadv_cen2", *Yzva_dhmf_dynadv_cen2, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4283        {"zfuv_UW_dynadv_cen2", *Yzfuv_UW_dynadv_cen2, 3, 32, 22, 31, 7, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4284        {"ua_dynadv_cen2", *Yua_dynadv_cen2, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4285        {"va_dynadv_cen2", *Yva_dynadv_cen2, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4286        {"zwxyz_vor_ene", *Yzwxyz_vor_ene, 3, 32, 22, 31, 4, 3, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4287        {"ua_vor_ene", *Yua_vor_ene, 3, 32, 22, 31, 7, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4288        {"va_vor_ene", *Yva_vor_ene, 3, 32, 22, 31, 7, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4289        {"ua_dyn_ldf_lap", *Yua_dyn_ldf_lap, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4290        {"va_dyn_ldf_lap", *Yva_dyn_ldf_lap, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4291        {"zhpij_dyn_hpg_zco", *Yzhpij_dyn_hpg_zco, 3, 32, 22, 31, 8, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4292        {"ua_dyn_hpg_zco", *Yua_dyn_hpg_zco, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4293        {"va_dyn_hpg_zco", *Yva_dyn_hpg_zco, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4294        {"zwisd_ua_dynzdf_imp", *Yzwisd_ua_dynzdf_imp, 3, 32, 22, 31, 2, 3, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4295        {"zwisd_va_dynzdf_imp", *Yzwisd_va_dynzdf_imp, 3, 32, 22, 31, 2, 3, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4296        {"zrhs_ua_dynzdf_imp", *Yzrhs_ua_dynzdf_imp, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4297        {"zrhs_va_dynzdf_imp", *Yzrhs_va_dynzdf_imp, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4298        {"zwt_ua_dynzdf_imp", *Yzwt_ua_dynzdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4299        {"zwt_va_dynzdf_imp", *Yzwt_va_dynzdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4300        {"ua_de_dynzdf_imp", *Yua_de_dynzdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4301        {"ua_dynzdf_imp", *Yua_dynzdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4302        {"va_de_dynzdf_imp", *Yva_de_dynzdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4303        {"va_dynzdf_imp", *Yva_dynzdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4304        {"ua_norm_dynzdf", *Yua_norm_dynzdf, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4305        {"va_norm_dynzdf", *Yva_norm_dynzdf, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4306        {"spguv_now_dynspg", *Yspguv_now_dynspg, 2, 32, 22, 0, 3, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4307        {"ua_1_dynspg_flt", *Yua_1_dynspg_flt, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4308        {"va_1_dynspg_flt", *Yva_1_dynspg_flt, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4309        {"sum_spgu_dynspg_flt", *Ysum_spgu_dynspg_flt, 2, 32, 22, 0, 31, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4310        {"sum_spgv_dynspg_flt", *Ysum_spgv_dynspg_flt, 2, 32, 22, 0, 31, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4311        {"gcb_dynspg_flt", *Ygcb_dynspg_flt, 2, 32, 22, 0, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4312        {"gcx_dynspg_flt", *Ygcx_dynspg_flt, 2, 32, 22, 0, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4313        {"solsor_dynspg_flt", *Ysolsor_dynspg_flt, 1, 32, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4314        {"gcx2", *Ygcx2, 2, 32, 22, 0, 0, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4315        {"spguv_dynspg_flt", *Yspguv_dynspg_flt, 2, 32, 22, 0, 3, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4316        {"ua", *Yua, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4317        {"va", *Yva, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4318        {"sshn", *Ysshn, 2, 32, 22, 0, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4319        {"sshb", *Ysshb, 2, 32, 22, 0, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4320        {"ub", *Yub, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4321        {"vb", *Yvb, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4322        {"hdivn", *Yhdivn, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4323        {"rotn", *Yrotn, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4324        {"wa", *Ywa, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},
4325};
4326
4327/*------- GENERATION TABLEAU COUT_MODULES/OPERA --------*/
4328short   YTabMocop[YNBMODUL][YNBOPERA] = {
4329        {  },
4330        {  },
4331        {  },
4332        {  },
4333        {  },
4334        {  },
4335        {  },
4336        {  },
4337        {  },
4338        {  },
4339        {  },
4340        {  },
4341        {  },
4342        {  },
4343        {  },
4344        {  },
4345        {  },
4346        {  },
4347        {  },
4348        {  },
4349        {  },
4350        {  },
4351        {  },
4352        {  },
4353        {  },
4354        {  },
4355        {  },
4356        {  },
4357        {  },
4358        {  },
4359        {  },
4360        {  },
4361        {  },
4362        {  },
4363        {  },
4364        {  },
4365        {  },
4366        {  },
4367        {  },
4368        {  },
4369        {  },
4370        {  },
4371        {  },
4372        {  },
4373        {  },
4374        {  },
4375        {  },
4376        {  },
4377        {  },
4378        {  },
4379        {  },
4380        {  },
4381        {  },
4382        {  },
4383        {  },
4384        {  },
4385        {  },
4386        {  },
4387        {  },
4388        {  },
4389        {  },
4390        {  },
4391        {  },
4392        {  },
4393        {  },
4394        {  },
4395        {  },
4396        {  },
4397        {  },
4398        {  },
4399        {  },
4400        {  },
4401        {  },
4402        {  },
4403        {  },
4404        {  },
4405        {  },
4406        {  },
4407        {  },
4408        {  },
4409        {  },
4410        {  },
4411        {  },
4412        {  },
4413        {  },
4414        {  },
4415        {  },
4416};
4417
4418//----- GENERATION d'UN TABLEAU de DEFINITIONS de VALEURS -----
4419#define YNBDEFVAL      6
4420struct Yst_defval YTabDefval[6] = {
4421        {"NPCA", "15"},
4422        {"NX", "32"},
4423        {"NY", "22"},
4424        {"NZ", "31"},
4425        {"TA", "50"},
4426        {"TU", "2"},
4427};
4428
4429//€ € € € GENERATION AUTOMATIQUE DES include € € € € € € € € € € €
4430#include "sinobad.h"
4431
4432#define  forward  void sbcgyre_qsr_qns::forward
4433#define  backward void sbcgyre_qsr_qns::backward
4434#define  flinward void sbcgyre_qsr_qns::flinward
4435#define  YS1Y Ystate[YTemps][0]
4436#define  YS1  Ystate[YTemps][0]
4437#define  YG1  Ygrad[YTemps][0]
4438#define  YS2Y Ystate[YTemps][1]
4439#define  YS2  Ystate[YTemps][1]
4440#define  YG2  Ygrad[YTemps][1]
4441#include "sbcgyre_qsr_qns.h"
4442#undef   YS1Y 
4443#undef   YS1   
4444#undef   YG1   
4445#undef   YS2Y 
4446#undef   YS2   
4447#undef   YG2   
4448#undef   forward
4449#undef   backward
4450#undef   flinward
4451
4452#define  forward  void sbcgyre_emp1::forward
4453#define  backward void sbcgyre_emp1::backward
4454#define  flinward void sbcgyre_emp1::flinward
4455#define  YS1Y Ystate[YTemps][0]
4456#define  YS1  Ystate[YTemps][0]
4457#define  YG1  Ygrad[YTemps][0]
4458#include "sbcgyre_emp1.h"
4459#undef   YS1Y 
4460#undef   YS1   
4461#undef   YG1   
4462#undef   forward
4463#undef   backward
4464#undef   flinward
4465
4466#define  forward  void sbcgyre_zsumemp_zsurf::forward
4467#define  backward void sbcgyre_zsumemp_zsurf::backward
4468#define  flinward void sbcgyre_zsumemp_zsurf::flinward
4469#define  YS1Y Ystate[YTemps][0]
4470#define  YS1  Ystate[YTemps][0]
4471#define  YG1  Ygrad[YTemps][0]
4472#define  YS2Y Ystate[YTemps][1]
4473#define  YS2  Ystate[YTemps][1]
4474#define  YG2  Ygrad[YTemps][1]
4475#include "sbcgyre_zsumemp_zsurf.h"
4476#undef   YS1Y 
4477#undef   YS1   
4478#undef   YG1   
4479#undef   YS2Y 
4480#undef   YS2   
4481#undef   YG2   
4482#undef   forward
4483#undef   backward
4484#undef   flinward
4485
4486#define  forward  void sbcgyre_emp::forward
4487#define  backward void sbcgyre_emp::backward
4488#define  flinward void sbcgyre_emp::flinward
4489#define  YS1Y Ystate[YTemps][0]
4490#define  YS1  Ystate[YTemps][0]
4491#define  YG1  Ygrad[YTemps][0]
4492#include "sbcgyre_emp.h"
4493#undef   YS1Y 
4494#undef   YS1   
4495#undef   YG1   
4496#undef   forward
4497#undef   backward
4498#undef   flinward
4499
4500#define  forward  void sbcgyre_emps::forward
4501#define  backward void sbcgyre_emps::backward
4502#define  flinward void sbcgyre_emps::flinward
4503#define  YS1Y Ystate[YTemps][0]
4504#define  YS1  Ystate[YTemps][0]
4505#define  YG1  Ygrad[YTemps][0]
4506#include "sbcgyre_emps.h"
4507#undef   YS1Y 
4508#undef   YS1   
4509#undef   YG1   
4510#undef   forward
4511#undef   backward
4512#undef   flinward
4513
4514#define  forward  void sbcgyre_utau_vtau::forward
4515#define  backward void sbcgyre_utau_vtau::backward
4516#define  flinward void sbcgyre_utau_vtau::flinward
4517#define  YS1Y Ystate[YTemps][0]
4518#define  YS1  Ystate[YTemps][0]
4519#define  YG1  Ygrad[YTemps][0]
4520#define  YS2Y Ystate[YTemps][1]
4521#define  YS2  Ystate[YTemps][1]
4522#define  YG2  Ygrad[YTemps][1]
4523#include "sbcgyre_utau_vtau.h"
4524#undef   YS1Y 
4525#undef   YS1   
4526#undef   YG1   
4527#undef   YS2Y 
4528#undef   YS2   
4529#undef   YG2   
4530#undef   forward
4531#undef   backward
4532#undef   flinward
4533
4534#define  forward  void sbcgyre_wndm::forward
4535#define  backward void sbcgyre_wndm::backward
4536#define  flinward void sbcgyre_wndm::flinward
4537#define  YS1Y Ystate[YTemps][0]
4538#define  YS1  Ystate[YTemps][0]
4539#define  YG1  Ygrad[YTemps][0]
4540#include "sbcgyre_wndm.h"
4541#undef   YS1Y 
4542#undef   YS1   
4543#undef   YG1   
4544#undef   forward
4545#undef   backward
4546#undef   flinward
4547
4548#define  forward  void bn2_rn2::forward
4549#define  backward void bn2_rn2::backward
4550#define  flinward void bn2_rn2::flinward
4551#define  YS1Y Ystate[YTemps][0]
4552#define  YS1  Ystate[YTemps][0]
4553#define  YG1  Ygrad[YTemps][0]
4554#include "bn2_rn2.h"
4555#undef   YS1Y 
4556#undef   YS1   
4557#undef   YG1   
4558#undef   forward
4559#undef   backward
4560#undef   flinward
4561
4562#define  forward  void zdf_avt_avmu_avmv::forward
4563#define  backward void zdf_avt_avmu_avmv::backward
4564#define  flinward void zdf_avt_avmu_avmv::flinward
4565#define  YS1Y Ystate[YTemps][0]
4566#define  YS1  Ystate[YTemps][0]
4567#define  YG1  Ygrad[YTemps][0]
4568#define  YS2Y Ystate[YTemps][1]
4569#define  YS2  Ystate[YTemps][1]
4570#define  YG2  Ygrad[YTemps][1]
4571#define  YS3Y Ystate[YTemps][2]
4572#define  YS3  Ystate[YTemps][2]
4573#define  YG3  Ygrad[YTemps][2]
4574#include "zdf_avt_avmu_avmv.h"
4575#undef   YS1Y 
4576#undef   YS1   
4577#undef   YG1   
4578#undef   YS2Y 
4579#undef   YS2   
4580#undef   YG2   
4581#undef   YS3Y 
4582#undef   YS3   
4583#undef   YG3   
4584#undef   forward
4585#undef   backward
4586#undef   flinward
4587
4588#define  forward  void zdfmxl_hmld::forward
4589#define  backward void zdfmxl_hmld::backward
4590#define  flinward void zdfmxl_hmld::flinward
4591#define  YS1Y Ystate[YTemps][0]
4592#define  YS1  Ystate[YTemps][0]
4593#define  YG1  Ygrad[YTemps][0]
4594#include "zdfmxl_hmld.h"
4595#undef   YS1Y 
4596#undef   YS1   
4597#undef   YG1   
4598#undef   forward
4599#undef   backward
4600#undef   flinward
4601
4602#define  forward  void zdfmxl_nmln_hmlp_hmlpt::forward
4603#define  backward void zdfmxl_nmln_hmlp_hmlpt::backward
4604#define  flinward void zdfmxl_nmln_hmlp_hmlpt::flinward
4605#define  YS1Y Ystate[YTemps][0]
4606#define  YS1  Ystate[YTemps][0]
4607#define  YG1  Ygrad[YTemps][0]
4608#define  YS2Y Ystate[YTemps][1]
4609#define  YS2  Ystate[YTemps][1]
4610#define  YG2  Ygrad[YTemps][1]
4611#define  YS3Y Ystate[YTemps][2]
4612#define  YS3  Ystate[YTemps][2]
4613#define  YG3  Ygrad[YTemps][2]
4614#include "zdfmxl_nmln_hmlp_hmlpt.h"
4615#undef   YS1Y 
4616#undef   YS1   
4617#undef   YG1   
4618#undef   YS2Y 
4619#undef   YS2   
4620#undef   YG2   
4621#undef   YS3Y 
4622#undef   YS3   
4623#undef   YG3   
4624#undef   forward
4625#undef   backward
4626#undef   flinward
4627
4628#define  forward  void ta_sa_trasbc::forward
4629#define  backward void ta_sa_trasbc::backward
4630#define  flinward void ta_sa_trasbc::flinward
4631#define  YS1Y Ystate[YTemps][0]
4632#define  YS1  Ystate[YTemps][0]
4633#define  YG1  Ygrad[YTemps][0]
4634#define  YS2Y Ystate[YTemps][1]
4635#define  YS2  Ystate[YTemps][1]
4636#define  YG2  Ygrad[YTemps][1]
4637#include "ta_sa_trasbc.h"
4638#undef   YS1Y 
4639#undef   YS1   
4640#undef   YG1   
4641#undef   YS2Y 
4642#undef   YS2   
4643#undef   YG2   
4644#undef   forward
4645#undef   backward
4646#undef   flinward
4647
4648#define  forward  void ta_traqsr::forward
4649#define  backward void ta_traqsr::backward
4650#define  flinward void ta_traqsr::flinward
4651#define  YS1Y Ystate[YTemps][0]
4652#define  YS1  Ystate[YTemps][0]
4653#define  YG1  Ygrad[YTemps][0]
4654#include "ta_traqsr.h"
4655#undef   YS1Y 
4656#undef   YS1   
4657#undef   YG1   
4658#undef   forward
4659#undef   backward
4660#undef   flinward
4661
4662#define  forward  void zcent_hor_traadv_cen2::forward
4663#define  backward void zcent_hor_traadv_cen2::backward
4664#define  flinward void zcent_hor_traadv_cen2::flinward
4665#define  YS1Y Ystate[YTemps][0]
4666#define  YS1  Ystate[YTemps][0]
4667#define  YG1  Ygrad[YTemps][0]
4668#define  YS2Y Ystate[YTemps][1]
4669#define  YS2  Ystate[YTemps][1]
4670#define  YG2  Ygrad[YTemps][1]
4671#include "zcent_hor_traadv_cen2.h"
4672#undef   YS1Y 
4673#undef   YS1   
4674#undef   YG1   
4675#undef   YS2Y 
4676#undef   YS2   
4677#undef   YG2   
4678#undef   forward
4679#undef   backward
4680#undef   flinward
4681
4682#define  forward  void ta_hor_traadv_cen2::forward
4683#define  backward void ta_hor_traadv_cen2::backward
4684#define  flinward void ta_hor_traadv_cen2::flinward
4685#define  YS1Y Ystate[YTemps][0]
4686#define  YS1  Ystate[YTemps][0]
4687#define  YG1  Ygrad[YTemps][0]
4688#include "ta_hor_traadv_cen2.h"
4689#undef   YS1Y 
4690#undef   YS1   
4691#undef   YG1   
4692#undef   forward
4693#undef   backward
4694#undef   flinward
4695
4696#define  forward  void sa_hor_traadv_cen2::forward
4697#define  backward void sa_hor_traadv_cen2::backward
4698#define  flinward void sa_hor_traadv_cen2::flinward
4699#define  YS1Y Ystate[YTemps][0]
4700#define  YS1  Ystate[YTemps][0]
4701#define  YG1  Ygrad[YTemps][0]
4702#include "sa_hor_traadv_cen2.h"
4703#undef   YS1Y 
4704#undef   YS1   
4705#undef   YG1   
4706#undef   forward
4707#undef   backward
4708#undef   flinward
4709
4710#define  forward  void zcent_ver_traadv_cen2::forward
4711#define  backward void zcent_ver_traadv_cen2::backward
4712#define  flinward void zcent_ver_traadv_cen2::flinward
4713#define  YS1Y Ystate[YTemps][0]
4714#define  YS1  Ystate[YTemps][0]
4715#define  YG1  Ygrad[YTemps][0]
4716#include "zcent_ver_traadv_cen2.h"
4717#undef   YS1Y 
4718#undef   YS1   
4719#undef   YG1   
4720#undef   forward
4721#undef   backward
4722#undef   flinward
4723
4724#define  forward  void ta_ver_traadv_cen2::forward
4725#define  backward void ta_ver_traadv_cen2::backward
4726#define  flinward void ta_ver_traadv_cen2::flinward
4727#define  YS1Y Ystate[YTemps][0]
4728#define  YS1  Ystate[YTemps][0]
4729#define  YG1  Ygrad[YTemps][0]
4730#include "ta_ver_traadv_cen2.h"
4731#undef   YS1Y 
4732#undef   YS1   
4733#undef   YG1   
4734#undef   forward
4735#undef   backward
4736#undef   flinward
4737
4738#define  forward  void ztuv_traldf_lap::forward
4739#define  backward void ztuv_traldf_lap::backward
4740#define  flinward void ztuv_traldf_lap::flinward
4741#define  YS1Y Ystate[YTemps][0]
4742#define  YS1  Ystate[YTemps][0]
4743#define  YG1  Ygrad[YTemps][0]
4744#define  YS2Y Ystate[YTemps][1]
4745#define  YS2  Ystate[YTemps][1]
4746#define  YG2  Ygrad[YTemps][1]
4747#include "ztuv_traldf_lap.h"
4748#undef   YS1Y 
4749#undef   YS1   
4750#undef   YG1   
4751#undef   YS2Y 
4752#undef   YS2   
4753#undef   YG2   
4754#undef   forward
4755#undef   backward
4756#undef   flinward
4757
4758#define  forward  void ta_traldf_lap::forward
4759#define  backward void ta_traldf_lap::backward
4760#define  flinward void ta_traldf_lap::flinward
4761#define  YS1Y Ystate[YTemps][0]
4762#define  YS1  Ystate[YTemps][0]
4763#define  YG1  Ygrad[YTemps][0]
4764#include "ta_traldf_lap.h"
4765#undef   YS1Y 
4766#undef   YS1   
4767#undef   YG1   
4768#undef   forward
4769#undef   backward
4770#undef   flinward
4771
4772#define  forward  void zwisd_trazdf_imp::forward
4773#define  backward void zwisd_trazdf_imp::backward
4774#define  flinward void zwisd_trazdf_imp::flinward
4775#define  YS1Y Ystate[YTemps][0]
4776#define  YS1  Ystate[YTemps][0]
4777#define  YG1  Ygrad[YTemps][0]
4778#define  YS2Y Ystate[YTemps][1]
4779#define  YS2  Ystate[YTemps][1]
4780#define  YG2  Ygrad[YTemps][1]
4781#define  YS3Y Ystate[YTemps][2]
4782#define  YS3  Ystate[YTemps][2]
4783#define  YG3  Ygrad[YTemps][2]
4784#include "zwisd_trazdf_imp.h"
4785#undef   YS1Y 
4786#undef   YS1   
4787#undef   YG1   
4788#undef   YS2Y 
4789#undef   YS2   
4790#undef   YG2   
4791#undef   YS3Y 
4792#undef   YS3   
4793#undef   YG3   
4794#undef   forward
4795#undef   backward
4796#undef   flinward
4797
4798#define  forward  void zrhs_trazdf_imp::forward
4799#define  backward void zrhs_trazdf_imp::backward
4800#define  flinward void zrhs_trazdf_imp::flinward
4801#define  YS1Y Ystate[YTemps][0]
4802#define  YS1  Ystate[YTemps][0]
4803#define  YG1  Ygrad[YTemps][0]
4804#include "zrhs_trazdf_imp.h"
4805#undef   YS1Y 
4806#undef   YS1   
4807#undef   YG1   
4808#undef   forward
4809#undef   backward
4810#undef   flinward
4811
4812#define  forward  void zwt_trazdf_imp::forward
4813#define  backward void zwt_trazdf_imp::backward
4814#define  flinward void zwt_trazdf_imp::flinward
4815#define  YS1Y Ystate[YTemps][0]
4816#define  YS1  Ystate[YTemps][0]
4817#define  YG1  Ygrad[YTemps][0]
4818#include "zwt_trazdf_imp.h"
4819#undef   YS1Y 
4820#undef   YS1   
4821#undef   YG1   
4822#undef   forward
4823#undef   backward
4824#undef   flinward
4825
4826#define  forward  void ta::forward
4827#define  backward void ta::backward
4828#define  flinward void ta::flinward
4829#define  YS1Y Ystate[YTemps][0]
4830#define  YS1  Ystate[YTemps][0]
4831#define  YG1  Ygrad[YTemps][0]
4832#include "ta.h"
4833#undef   YS1Y 
4834#undef   YS1   
4835#undef   YG1   
4836#undef   forward
4837#undef   backward
4838#undef   flinward
4839
4840#define  forward  void sa::forward
4841#define  backward void sa::backward
4842#define  flinward void sa::flinward
4843#define  YS1Y Ystate[YTemps][0]
4844#define  YS1  Ystate[YTemps][0]
4845#define  YG1  Ygrad[YTemps][0]
4846#include "sa.h"
4847#undef   YS1Y 
4848#undef   YS1   
4849#undef   YG1   
4850#undef   forward
4851#undef   backward
4852#undef   flinward
4853
4854#define  forward  void tb::forward
4855#define  backward void tb::backward
4856#define  flinward void tb::flinward
4857#define  YS1Y Ystate[YTemps][0]
4858#define  YS1  Ystate[YTemps][0]
4859#define  YG1  Ygrad[YTemps][0]
4860#include "tb.h"
4861#undef   YS1Y 
4862#undef   YS1   
4863#undef   YG1   
4864#undef   forward
4865#undef   backward
4866#undef   flinward
4867
4868#define  forward  void sb::forward
4869#define  backward void sb::backward
4870#define  flinward void sb::flinward
4871#define  YS1Y Ystate[YTemps][0]
4872#define  YS1  Ystate[YTemps][0]
4873#define  YG1  Ygrad[YTemps][0]
4874#include "sb.h"
4875#undef   YS1Y 
4876#undef   YS1   
4877#undef   YG1   
4878#undef   forward
4879#undef   backward
4880#undef   flinward
4881
4882#define  forward  void rhd::forward
4883#define  backward void rhd::backward
4884#define  flinward void rhd::flinward
4885#define  YS1Y Ystate[YTemps][0]
4886#define  YS1  Ystate[YTemps][0]
4887#define  YG1  Ygrad[YTemps][0]
4888#include "rhd.h"
4889#undef   YS1Y 
4890#undef   YS1   
4891#undef   YG1   
4892#undef   forward
4893#undef   backward
4894#undef   flinward
4895
4896#define  forward  void rhop::forward
4897#define  backward void rhop::backward
4898#define  flinward void rhop::flinward
4899#define  YS1Y Ystate[YTemps][0]
4900#define  YS1  Ystate[YTemps][0]
4901#define  YG1  Ygrad[YTemps][0]
4902#include "rhop.h"
4903#undef   YS1Y 
4904#undef   YS1   
4905#undef   YG1   
4906#undef   forward
4907#undef   backward
4908#undef   flinward
4909
4910#define  forward  void hmf_TF_dynadv_cen2::forward
4911#define  backward void hmf_TF_dynadv_cen2::backward
4912#define  flinward void hmf_TF_dynadv_cen2::flinward
4913#define  YS1Y Ystate[YTemps][0]
4914#define  YS1  Ystate[YTemps][0]
4915#define  YG1  Ygrad[YTemps][0]
4916#define  YS2Y Ystate[YTemps][1]
4917#define  YS2  Ystate[YTemps][1]
4918#define  YG2  Ygrad[YTemps][1]
4919#define  YS3Y Ystate[YTemps][2]
4920#define  YS3  Ystate[YTemps][2]
4921#define  YG3  Ygrad[YTemps][2]
4922#define  YS4Y Ystate[YTemps][3]
4923#define  YS4  Ystate[YTemps][3]
4924#define  YG4  Ygrad[YTemps][3]
4925#include "hmf_TF_dynadv_cen2.h"
4926#undef   YS1Y 
4927#undef   YS1   
4928#undef   YG1   
4929#undef   YS2Y 
4930#undef   YS2   
4931#undef   YG2   
4932#undef   YS3Y 
4933#undef   YS3   
4934#undef   YG3   
4935#undef   YS4Y 
4936#undef   YS4   
4937#undef   YG4   
4938#undef   forward
4939#undef   backward
4940#undef   flinward
4941
4942#define  forward  void zua_dhmf_dynadv_cen2::forward
4943#define  backward void zua_dhmf_dynadv_cen2::backward
4944#define  flinward void zua_dhmf_dynadv_cen2::flinward
4945#define  YS1Y Ystate[YTemps][0]
4946#define  YS1  Ystate[YTemps][0]
4947#define  YG1  Ygrad[YTemps][0]
4948#include "zua_dhmf_dynadv_cen2.h"
4949#undef   YS1Y 
4950#undef   YS1   
4951#undef   YG1   
4952#undef   forward
4953#undef   backward
4954#undef   flinward
4955
4956#define  forward  void zva_dhmf_dynadv_cen2::forward
4957#define  backward void zva_dhmf_dynadv_cen2::backward
4958#define  flinward void zva_dhmf_dynadv_cen2::flinward
4959#define  YS1Y Ystate[YTemps][0]
4960#define  YS1  Ystate[YTemps][0]
4961#define  YG1  Ygrad[YTemps][0]
4962#include "zva_dhmf_dynadv_cen2.h"
4963#undef   YS1Y 
4964#undef   YS1   
4965#undef   YG1   
4966#undef   forward
4967#undef   backward
4968#undef   flinward
4969
4970#define  forward  void zfuv_UW_dynadv_cen2::forward
4971#define  backward void zfuv_UW_dynadv_cen2::backward
4972#define  flinward void zfuv_UW_dynadv_cen2::flinward
4973#define  YS1Y Ystate[YTemps][0]
4974#define  YS1  Ystate[YTemps][0]
4975#define  YG1  Ygrad[YTemps][0]
4976#define  YS2Y Ystate[YTemps][1]
4977#define  YS2  Ystate[YTemps][1]
4978#define  YG2  Ygrad[YTemps][1]
4979#include "zfuv_UW_dynadv_cen2.h"
4980#undef   YS1Y 
4981#undef   YS1   
4982#undef   YG1   
4983#undef   YS2Y 
4984#undef   YS2   
4985#undef   YG2   
4986#undef   forward
4987#undef   backward
4988#undef   flinward
4989
4990#define  forward  void ua_dynadv_cen2::forward
4991#define  backward void ua_dynadv_cen2::backward
4992#define  flinward void ua_dynadv_cen2::flinward
4993#define  YS1Y Ystate[YTemps][0]
4994#define  YS1  Ystate[YTemps][0]
4995#define  YG1  Ygrad[YTemps][0]
4996#include "ua_dynadv_cen2.h"
4997#undef   YS1Y 
4998#undef   YS1   
4999#undef   YG1   
5000#undef   forward
5001#undef   backward
5002#undef   flinward
5003
5004#define  forward  void va_dynadv_cen2::forward
5005#define  backward void va_dynadv_cen2::backward
5006#define  flinward void va_dynadv_cen2::flinward
5007#define  YS1Y Ystate[YTemps][0]
5008#define  YS1  Ystate[YTemps][0]
5009#define  YG1  Ygrad[YTemps][0]
5010#include "va_dynadv_cen2.h"
5011#undef   YS1Y 
5012#undef   YS1   
5013#undef   YG1   
5014#undef   forward
5015#undef   backward
5016#undef   flinward
5017
5018#define  forward  void zwxyz_vor_ene::forward
5019#define  backward void zwxyz_vor_ene::backward
5020#define  flinward void zwxyz_vor_ene::flinward
5021#define  YS1Y Ystate[YTemps][0]
5022#define  YS1  Ystate[YTemps][0]
5023#define  YG1  Ygrad[YTemps][0]
5024#define  YS2Y Ystate[YTemps][1]
5025#define  YS2  Ystate[YTemps][1]
5026#define  YG2  Ygrad[YTemps][1]
5027#define  YS3Y Ystate[YTemps][2]
5028#define  YS3  Ystate[YTemps][2]
5029#define  YG3  Ygrad[YTemps][2]
5030#include "zwxyz_vor_ene.h"
5031#undef   YS1Y 
5032#undef   YS1   
5033#undef   YG1   
5034#undef   YS2Y 
5035#undef   YS2   
5036#undef   YG2   
5037#undef   YS3Y 
5038#undef   YS3   
5039#undef   YG3   
5040#undef   forward
5041#undef   backward
5042#undef   flinward
5043
5044#define  forward  void ua_vor_ene::forward
5045#define  backward void ua_vor_ene::backward
5046#define  flinward void ua_vor_ene::flinward
5047#define  YS1Y Ystate[YTemps][0]
5048#define  YS1  Ystate[YTemps][0]
5049#define  YG1  Ygrad[YTemps][0]
5050#include "ua_vor_ene.h"
5051#undef   YS1Y 
5052#undef   YS1   
5053#undef   YG1   
5054#undef   forward
5055#undef   backward
5056#undef   flinward
5057
5058#define  forward  void va_vor_ene::forward
5059#define  backward void va_vor_ene::backward
5060#define  flinward void va_vor_ene::flinward
5061#define  YS1Y Ystate[YTemps][0]
5062#define  YS1  Ystate[YTemps][0]
5063#define  YG1  Ygrad[YTemps][0]
5064#include "va_vor_ene.h"
5065#undef   YS1Y 
5066#undef   YS1   
5067#undef   YG1   
5068#undef   forward
5069#undef   backward
5070#undef   flinward
5071
5072#define  forward  void ua_dyn_ldf_lap::forward
5073#define  backward void ua_dyn_ldf_lap::backward
5074#define  flinward void ua_dyn_ldf_lap::flinward
5075#define  YS1Y Ystate[YTemps][0]
5076#define  YS1  Ystate[YTemps][0]
5077#define  YG1  Ygrad[YTemps][0]
5078#include "ua_dyn_ldf_lap.h"
5079#undef   YS1Y 
5080#undef   YS1   
5081#undef   YG1   
5082#undef   forward
5083#undef   backward
5084#undef   flinward
5085
5086#define  forward  void va_dyn_ldf_lap::forward
5087#define  backward void va_dyn_ldf_lap::backward
5088#define  flinward void va_dyn_ldf_lap::flinward
5089#define  YS1Y Ystate[YTemps][0]
5090#define  YS1  Ystate[YTemps][0]
5091#define  YG1  Ygrad[YTemps][0]
5092#include "va_dyn_ldf_lap.h"
5093#undef   YS1Y 
5094#undef   YS1   
5095#undef   YG1   
5096#undef   forward
5097#undef   backward
5098#undef   flinward
5099
5100#define  forward  void zhpij_dyn_hpg_zco::forward
5101#define  backward void zhpij_dyn_hpg_zco::backward
5102#define  flinward void zhpij_dyn_hpg_zco::flinward
5103#define  YS1Y Ystate[YTemps][0]
5104#define  YS1  Ystate[YTemps][0]
5105#define  YG1  Ygrad[YTemps][0]
5106#define  YS2Y Ystate[YTemps][1]
5107#define  YS2  Ystate[YTemps][1]
5108#define  YG2  Ygrad[YTemps][1]
5109#include "zhpij_dyn_hpg_zco.h"
5110#undef   YS1Y 
5111#undef   YS1   
5112#undef   YG1   
5113#undef   YS2Y 
5114#undef   YS2   
5115#undef   YG2   
5116#undef   forward
5117#undef   backward
5118#undef   flinward
5119
5120#define  forward  void ua_dyn_hpg_zco::forward
5121#define  backward void ua_dyn_hpg_zco::backward
5122#define  flinward void ua_dyn_hpg_zco::flinward
5123#define  YS1Y Ystate[YTemps][0]
5124#define  YS1  Ystate[YTemps][0]
5125#define  YG1  Ygrad[YTemps][0]
5126#include "ua_dyn_hpg_zco.h"
5127#undef   YS1Y 
5128#undef   YS1   
5129#undef   YG1   
5130#undef   forward
5131#undef   backward
5132#undef   flinward
5133
5134#define  forward  void zwisd_ua_dynzdf_imp::forward
5135#define  backward void zwisd_ua_dynzdf_imp::backward
5136#define  flinward void zwisd_ua_dynzdf_imp::flinward
5137#define  YS1Y Ystate[YTemps][0]
5138#define  YS1  Ystate[YTemps][0]
5139#define  YG1  Ygrad[YTemps][0]
5140#define  YS2Y Ystate[YTemps][1]
5141#define  YS2  Ystate[YTemps][1]
5142#define  YG2  Ygrad[YTemps][1]
5143#define  YS3Y Ystate[YTemps][2]
5144#define  YS3  Ystate[YTemps][2]
5145#define  YG3  Ygrad[YTemps][2]
5146#include "zwisd_ua_dynzdf_imp.h"
5147#undef   YS1Y 
5148#undef   YS1   
5149#undef   YG1   
5150#undef   YS2Y 
5151#undef   YS2   
5152#undef   YG2   
5153#undef   YS3Y 
5154#undef   YS3   
5155#undef   YG3   
5156#undef   forward
5157#undef   backward
5158#undef   flinward
5159
5160#define  forward  void zwisd_va_dynzdf_imp::forward
5161#define  backward void zwisd_va_dynzdf_imp::backward
5162#define  flinward void zwisd_va_dynzdf_imp::flinward
5163#define  YS1Y Ystate[YTemps][0]
5164#define  YS1  Ystate[YTemps][0]
5165#define  YG1  Ygrad[YTemps][0]
5166#define  YS2Y Ystate[YTemps][1]
5167#define  YS2  Ystate[YTemps][1]
5168#define  YG2  Ygrad[YTemps][1]
5169#define  YS3Y Ystate[YTemps][2]
5170#define  YS3  Ystate[YTemps][2]
5171#define  YG3  Ygrad[YTemps][2]
5172#include "zwisd_va_dynzdf_imp.h"
5173#undef   YS1Y 
5174#undef   YS1   
5175#undef   YG1   
5176#undef   YS2Y 
5177#undef   YS2   
5178#undef   YG2   
5179#undef   YS3Y 
5180#undef   YS3   
5181#undef   YG3   
5182#undef   forward
5183#undef   backward
5184#undef   flinward
5185
5186#define  forward  void zrhs_ua_dynzdf_imp::forward
5187#define  backward void zrhs_ua_dynzdf_imp::backward
5188#define  flinward void zrhs_ua_dynzdf_imp::flinward
5189#define  YS1Y Ystate[YTemps][0]
5190#define  YS1  Ystate[YTemps][0]
5191#define  YG1  Ygrad[YTemps][0]
5192#include "zrhs_ua_dynzdf_imp.h"
5193#undef   YS1Y 
5194#undef   YS1   
5195#undef   YG1   
5196#undef   forward
5197#undef   backward
5198#undef   flinward
5199
5200#define  forward  void zrhs_va_dynzdf_imp::forward
5201#define  backward void zrhs_va_dynzdf_imp::backward
5202#define  flinward void zrhs_va_dynzdf_imp::flinward
5203#define  YS1Y Ystate[YTemps][0]
5204#define  YS1  Ystate[YTemps][0]
5205#define  YG1  Ygrad[YTemps][0]
5206#include "zrhs_va_dynzdf_imp.h"
5207#undef   YS1Y 
5208#undef   YS1   
5209#undef   YG1   
5210#undef   forward
5211#undef   backward
5212#undef   flinward
5213
5214#define  forward  void ua_dynzdf_imp::forward
5215#define  backward void ua_dynzdf_imp::backward
5216#define  flinward void ua_dynzdf_imp::flinward
5217#define  YS1Y Ystate[YTemps][0]
5218#define  YS1  Ystate[YTemps][0]
5219#define  YG1  Ygrad[YTemps][0]
5220#include "ua_dynzdf_imp.h"
5221#undef   YS1Y 
5222#undef   YS1   
5223#undef   YG1   
5224#undef   forward
5225#undef   backward
5226#undef   flinward
5227
5228#define  forward  void ua_norm_dynzdf::forward
5229#define  backward void ua_norm_dynzdf::backward
5230#define  flinward void ua_norm_dynzdf::flinward
5231#define  YS1Y Ystate[YTemps][0]
5232#define  YS1  Ystate[YTemps][0]
5233#define  YG1  Ygrad[YTemps][0]
5234#include "ua_norm_dynzdf.h"
5235#undef   YS1Y 
5236#undef   YS1   
5237#undef   YG1   
5238#undef   forward
5239#undef   backward
5240#undef   flinward
5241
5242#define  forward  void spguv_now_dynspg::forward
5243#define  backward void spguv_now_dynspg::backward
5244#define  flinward void spguv_now_dynspg::flinward
5245#define  YS1Y Ystate[YTemps][0]
5246#define  YS1  Ystate[YTemps][0]
5247#define  YG1  Ygrad[YTemps][0]
5248#define  YS2Y Ystate[YTemps][1]
5249#define  YS2  Ystate[YTemps][1]
5250#define  YG2  Ygrad[YTemps][1]
5251#include "spguv_now_dynspg.h"
5252#undef   YS1Y 
5253#undef   YS1   
5254#undef   YG1   
5255#undef   YS2Y 
5256#undef   YS2   
5257#undef   YG2   
5258#undef   forward
5259#undef   backward
5260#undef   flinward
5261
5262#define  forward  void ua_1_dynspg_flt::forward
5263#define  backward void ua_1_dynspg_flt::backward
5264#define  flinward void ua_1_dynspg_flt::flinward
5265#define  YS1Y Ystate[YTemps][0]
5266#define  YS1  Ystate[YTemps][0]
5267#define  YG1  Ygrad[YTemps][0]
5268#include "ua_1_dynspg_flt.h"
5269#undef   YS1Y 
5270#undef   YS1   
5271#undef   YG1   
5272#undef   forward
5273#undef   backward
5274#undef   flinward
5275
5276#define  forward  void va_1_dynspg_flt::forward
5277#define  backward void va_1_dynspg_flt::backward
5278#define  flinward void va_1_dynspg_flt::flinward
5279#define  YS1Y Ystate[YTemps][0]
5280#define  YS1  Ystate[YTemps][0]
5281#define  YG1  Ygrad[YTemps][0]
5282#include "va_1_dynspg_flt.h"
5283#undef   YS1Y 
5284#undef   YS1   
5285#undef   YG1   
5286#undef   forward
5287#undef   backward
5288#undef   flinward
5289
5290#define  forward  void sum_spgu_dynspg_flt::forward
5291#define  backward void sum_spgu_dynspg_flt::backward
5292#define  flinward void sum_spgu_dynspg_flt::flinward
5293#define  YS1Y Ystate[YTemps][0]
5294#define  YS1  Ystate[YTemps][0]
5295#define  YG1  Ygrad[YTemps][0]
5296#include "sum_spgu_dynspg_flt.h"
5297#undef   YS1Y 
5298#undef   YS1   
5299#undef   YG1   
5300#undef   forward
5301#undef   backward
5302#undef   flinward
5303
5304#define  forward  void sum_spgv_dynspg_flt::forward
5305#define  backward void sum_spgv_dynspg_flt::backward
5306#define  flinward void sum_spgv_dynspg_flt::flinward
5307#define  YS1Y Ystate[YTemps][0]
5308#define  YS1  Ystate[YTemps][0]
5309#define  YG1  Ygrad[YTemps][0]
5310#include "sum_spgv_dynspg_flt.h"
5311#undef   YS1Y 
5312#undef   YS1   
5313#undef   YG1   
5314#undef   forward
5315#undef   backward
5316#undef   flinward
5317
5318#define  forward  void gcb_dynspg_flt::forward
5319#define  backward void gcb_dynspg_flt::backward
5320#define  flinward void gcb_dynspg_flt::flinward
5321#define  YS1Y Ystate[YTemps][0]
5322#define  YS1  Ystate[YTemps][0]
5323#define  YG1  Ygrad[YTemps][0]
5324#include "gcb_dynspg_flt.h"
5325#undef   YS1Y 
5326#undef   YS1   
5327#undef   YG1   
5328#undef   forward
5329#undef   backward
5330#undef   flinward
5331
5332#define  forward  void gcx_dynspg_flt::forward
5333#define  backward void gcx_dynspg_flt::backward
5334#define  flinward void gcx_dynspg_flt::flinward
5335#define  YS1Y Ystate[YTemps][0]
5336#define  YS1  Ystate[YTemps][0]
5337#define  YG1  Ygrad[YTemps][0]
5338#include "gcx_dynspg_flt.h"
5339#undef   YS1Y 
5340#undef   YS1   
5341#undef   YG1   
5342#undef   forward
5343#undef   backward
5344#undef   flinward
5345
5346#define  forward  void solsor_dynspg_flt::forward
5347#define  backward void solsor_dynspg_flt::backward
5348#define  flinward void solsor_dynspg_flt::flinward
5349#include "solsor_dynspg_flt.h"
5350#undef   forward
5351#undef   backward
5352#undef   flinward
5353
5354#define  forward  void gcx2::forward
5355#define  backward void gcx2::backward
5356#define  flinward void gcx2::flinward
5357#define  YS1Y Ystate[YTemps][0]
5358#define  YS1  Ystate[YTemps][0]
5359#define  YG1  Ygrad[YTemps][0]
5360#include "gcx2.h"
5361#undef   YS1Y 
5362#undef   YS1   
5363#undef   YG1   
5364#undef   forward
5365#undef   backward
5366#undef   flinward
5367
5368#define  forward  void spguv_dynspg_flt::forward
5369#define  backward void spguv_dynspg_flt::backward
5370#define  flinward void spguv_dynspg_flt::flinward
5371#define  YS1Y Ystate[YTemps][0]
5372#define  YS1  Ystate[YTemps][0]
5373#define  YG1  Ygrad[YTemps][0]
5374#define  YS2Y Ystate[YTemps][1]
5375#define  YS2  Ystate[YTemps][1]
5376#define  YG2  Ygrad[YTemps][1]
5377#include "spguv_dynspg_flt.h"
5378#undef   YS1Y 
5379#undef   YS1   
5380#undef   YG1   
5381#undef   YS2Y 
5382#undef   YS2   
5383#undef   YG2   
5384#undef   forward
5385#undef   backward
5386#undef   flinward
5387
5388#define  forward  void ua::forward
5389#define  backward void ua::backward
5390#define  flinward void ua::flinward
5391#define  YS1Y Ystate[YTemps][0]
5392#define  YS1  Ystate[YTemps][0]
5393#define  YG1  Ygrad[YTemps][0]
5394#include "ua.h"
5395#undef   YS1Y 
5396#undef   YS1   
5397#undef   YG1   
5398#undef   forward
5399#undef   backward
5400#undef   flinward
5401
5402#define  forward  void va::forward
5403#define  backward void va::backward
5404#define  flinward void va::flinward
5405#define  YS1Y Ystate[YTemps][0]
5406#define  YS1  Ystate[YTemps][0]
5407#define  YG1  Ygrad[YTemps][0]
5408#include "va.h"
5409#undef   YS1Y 
5410#undef   YS1   
5411#undef   YG1   
5412#undef   forward
5413#undef   backward
5414#undef   flinward
5415
5416#define  forward  void sshn::forward
5417#define  backward void sshn::backward
5418#define  flinward void sshn::flinward
5419#define  YS1Y Ystate[YTemps][0]
5420#define  YS1  Ystate[YTemps][0]
5421#define  YG1  Ygrad[YTemps][0]
5422#include "sshn.h"
5423#undef   YS1Y 
5424#undef   YS1   
5425#undef   YG1   
5426#undef   forward
5427#undef   backward
5428#undef   flinward
5429
5430#define  forward  void sshb::forward
5431#define  backward void sshb::backward
5432#define  flinward void sshb::flinward
5433#define  YS1Y Ystate[YTemps][0]
5434#define  YS1  Ystate[YTemps][0]
5435#define  YG1  Ygrad[YTemps][0]
5436#include "sshb.h"
5437#undef   YS1Y 
5438#undef   YS1   
5439#undef   YG1   
5440#undef   forward
5441#undef   backward
5442#undef   flinward
5443
5444#define  forward  void ub::forward
5445#define  backward void ub::backward
5446#define  flinward void ub::flinward
5447#define  YS1Y Ystate[YTemps][0]
5448#define  YS1  Ystate[YTemps][0]
5449#define  YG1  Ygrad[YTemps][0]
5450#include "ub.h"
5451#undef   YS1Y 
5452#undef   YS1   
5453#undef   YG1   
5454#undef   forward
5455#undef   backward
5456#undef   flinward
5457
5458#define  forward  void vb::forward
5459#define  backward void vb::backward
5460#define  flinward void vb::flinward
5461#define  YS1Y Ystate[YTemps][0]
5462#define  YS1  Ystate[YTemps][0]
5463#define  YG1  Ygrad[YTemps][0]
5464#include "vb.h"
5465#undef   YS1Y 
5466#undef   YS1   
5467#undef   YG1   
5468#undef   forward
5469#undef   backward
5470#undef   flinward
5471
5472#define  forward  void hdivn::forward
5473#define  backward void hdivn::backward
5474#define  flinward void hdivn::flinward
5475#define  YS1Y Ystate[YTemps][0]
5476#define  YS1  Ystate[YTemps][0]
5477#define  YG1  Ygrad[YTemps][0]
5478#include "hdivn.h"
5479#undef   YS1Y 
5480#undef   YS1   
5481#undef   YG1   
5482#undef   forward
5483#undef   backward
5484#undef   flinward
5485
5486#define  forward  void rotn::forward
5487#define  backward void rotn::backward
5488#define  flinward void rotn::flinward
5489#define  YS1Y Ystate[YTemps][0]
5490#define  YS1  Ystate[YTemps][0]
5491#define  YG1  Ygrad[YTemps][0]
5492#include "rotn.h"
5493#undef   YS1Y 
5494#undef   YS1   
5495#undef   YG1   
5496#undef   forward
5497#undef   backward
5498#undef   flinward
5499
5500#define  forward  void wa::forward
5501#define  backward void wa::backward
5502#define  flinward void wa::flinward
5503#define  YS1Y Ystate[YTemps][0]
5504#define  YS1  Ystate[YTemps][0]
5505#define  YG1  Ygrad[YTemps][0]
5506#include "wa.h"
5507#undef   YS1Y 
5508#undef   YS1   
5509#undef   YG1   
5510#undef   forward
5511#undef   backward
5512#undef   flinward
5513
5514//-------------- end Yao generation -----------------
Note: See TracBrowser for help on using the repository browser.