Changeset 44 for trunk/src


Ignore:
Timestamp:
04/28/11 16:17:50 (13 years ago)
Author:
jbrlod
Message:

test du solsort mblod

Location:
trunk/src
Files:
4 added
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/src/Yworkdir/Y1sinobad.h

    r42 r44  
    1414#endif 
    1515 
    16 //ￜ ￜ ￜ ￜ LES DECLARATIONS DE CLASS, DEFINE ET ALLOCATION DU PROJET 
     16//€ € € € LES DECLARATIONS DE CLASS, DEFINE ET ALLOCATION DU PROJET 
    1717#define         NPCA    15 
    1818#define         NX      32 
    1919#define         NY      22 
    2020#define         NZ      31 
    21 #define         TA      50 
     21#define         TA      10 
    2222#define         TU      2 
    2323#define         Y3_M    8 
    … …  
    3434 
    3535#define         YNBUPTIME_Tsbd          2 
    36 #define         YNBSTEPTIME_Tsbd        50 
    37 #define         YNBALLTIME_Tsbd         52 
     36#define         YNBSTEPTIME_Tsbd        10 
     37#define         YNBALLTIME_Tsbd         12 
    3838#define         YDt_Tsbd        YTabTraj[1].dtime 
    3939#define         Yid_Tsbd        1 
    … …  
    6868/*NBMOD     */ #define   YNB_sshn_c      704 
    6969/*NBSMOD    */ #define   YNBS_sshn_c     1 
    70 /*M2_VALSG  */ #define   Ystate_sshn_c(v, i, j)                  Ysshn_c->Ystate[i][j][v]  
    71 /*M2_VALSG  */ #define   YS_sshn_c(v, i, j)              Ysshn_c->Ystate[i][j][v]  
    72 /*M2_VALSGI */ #define   YS1_sshn_c(i, j)                Ysshn_c->Ystate[i][j][0]  
    73 /*M2_HERESGI*/ #define   YS1Y_sshn_c             Ysshn_c->Ystate[Yi][Yj][0]  
    74 /*M2_VALSG  */ #define   Ygrad_sshn_c(v, i, j)           Ysshn_c->Ygrad[i][j][v]  
    75 /*M2_VALSG  */ #define   YG_sshn_c(v, i, j)              Ysshn_c->Ygrad[i][j][v]  
    76 /*M2_VALSGI */ #define   YG1_sshn_c(i, j)                Ysshn_c->Ygrad[i][j][0]  
    77 /*M2_HERESGI*/ #define   YG1Y_sshn_c             Ysshn_c->Ygrad[Yi][Yj][0]  
    78 Yaosshn_c                *Ysshn_c; 
     70/*M2_IRMOD  */ #define   Ysshn_c(i, j)   Ysshn_c[i][j] 
     71/*M2_NOWMOD */ #define   Ysshn_cY                Ysshn_c[Yi][Yj] 
     72/*M2_VALSG  */ #define   Ystate_sshn_c(v, i, j)                  Ysshn_c[i][j]->Ystate[v]  
     73/*M2_VALSG  */ #define   YS_sshn_c(v, i, j)              Ysshn_c[i][j]->Ystate[v]  
     74/*M2_VALSGI */ #define   YS1_sshn_c(i, j)                Ysshn_c[i][j]->Ystate[0]  
     75/*M2_HERESGI*/ #define   YS1Y_sshn_c             Ysshn_c[Yi][Yj]->Ystate[0]  
     76/*M2_VALSG  */ #define   Ygrad_sshn_c(v, i, j)           Ysshn_c[i][j]->Ygrad[v]  
     77/*M2_VALSG  */ #define   YG_sshn_c(v, i, j)              Ysshn_c[i][j]->Ygrad[v]  
     78/*M2_VALSGI */ #define   YG1_sshn_c(i, j)                Ysshn_c[i][j]->Ygrad[0]  
     79/*M2_HERESGI*/ #define   YG1Y_sshn_c             Ysshn_c[Yi][Yj]->Ygrad[0]  
     80Yaosshn_c                *Ysshn_c[YA1_S3d][YA2_S3d]; 
    7981 
    8082//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_c~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    8688class Yaota_c; 
    8789/*NBSMOD    */ #define   YNBS_ta_c       1 
    88 /*M3_VALSG  */ #define   Ystate_ta_c(v, i, j, k)         Yta_c->Ystate[i][j][k][v]  
    89 /*M3_VALSG  */ #define   YS_ta_c(v, i, j, k)             Yta_c->Ystate[i][j][k][v]  
    90 /*M3_VALSGI */ #define   YS1_ta_c(i, j, k)               Yta_c->Ystate[i][j][k][0]  
    91 /*M3_HERESGI*/ #define   YS1Y_ta_c               Yta_c->Ystate[Yi][Yj][Yk][0]  
    92 /*M3_VALSG  */ #define   Ygrad_ta_c(v, i, j, k)          Yta_c->Ygrad[i][j][k][v]  
    93 /*M3_VALSG  */ #define   YG_ta_c(v, i, j, k)             Yta_c->Ygrad[i][j][k][v]  
    94 /*M3_VALSGI */ #define   YG1_ta_c(i, j, k)               Yta_c->Ygrad[i][j][k][0]  
    95 /*M3_HERESGI*/ #define   YG1Y_ta_c               Yta_c->Ygrad[Yi][Yj][Yk][0]  
    96 /*M3_VALSG  */ #define   Yepsi_ta_c(v, i, j, k)          Yta_c->Yepsi[i][j][k][v]  
    97 /*M3_VALSG  */ #define   YE_ta_c(v, i, j, k)             Yta_c->Yepsi[i][j][k][v]  
    98 /*M3_VALSGI */ #define   YE1_ta_c(i, j, k)               Yta_c->Yepsi[i][j][k][0]  
    99 Yaota_c                  *Yta_c; 
    100 /*M3_VALSG  */ #define   Ywish_ta_c(v, i, j, k)          Yta_c->Ywish[i][j][k][v]  
    101 /*M3_VALSG  */ #define   YW_ta_c(v, i, j, k)             Yta_c->Ywish[i][j][k][v]  
    102 /*M3_VALSGI */ #define   YW1_ta_c(i, j, k)               Yta_c->Ywish[i][j][k][0]  
    103 /*M3_HERESGI*/ #define   YW1Y_ta_c               Yta_c->Ywish[Yi][Yj][Yk][0]  
     90/*M3_IRMOD  */ #define   Yta_c(i, j, k)          Yta_c[i][j][k] 
     91/*M3_NOWMOD */ #define   Yta_cY                  Yta_c[Yi][Yj][Yk] 
     92/*M3_VALSG  */ #define   Ystate_ta_c(v, i, j, k)         Yta_c[i][j][k]->Ystate[v]  
     93/*M3_VALSG  */ #define   YS_ta_c(v, i, j, k)             Yta_c[i][j][k]->Ystate[v]  
     94/*M3_VALSGI */ #define   YS1_ta_c(i, j, k)               Yta_c[i][j][k]->Ystate[0]  
     95/*M3_HERESGI*/ #define   YS1Y_ta_c               Yta_c[Yi][Yj][Yk]->Ystate[0]  
     96/*M3_VALSG  */ #define   Ygrad_ta_c(v, i, j, k)          Yta_c[i][j][k]->Ygrad[v]  
     97/*M3_VALSG  */ #define   YG_ta_c(v, i, j, k)             Yta_c[i][j][k]->Ygrad[v]  
     98/*M3_VALSGI */ #define   YG1_ta_c(i, j, k)               Yta_c[i][j][k]->Ygrad[0]  
     99/*M3_HERESGI*/ #define   YG1Y_ta_c               Yta_c[Yi][Yj][Yk]->Ygrad[0]  
     100/*M3_VALSG  */ #define   Yepsi_ta_c(v, i, j, k)          Yta_c[i][j][k]->Yepsi[v]  
     101/*M3_VALSG  */ #define   YE_ta_c(v, i, j, k)             Yta_c[i][j][k]->Yepsi[v]  
     102/*M3_VALSGI */ #define   YE1_ta_c(i, j, k)               Yta_c[i][j][k]->Yepsi[0]  
     103Yaota_c                  *Yta_c[YA1_S3d][YA2_S3d][YA3_S3d]; 
     104/*M3_VALSG  */ #define   Ywish_ta_c(v, i, j, k)          Yta_c[i][j][k]->Ywish[v]  
     105/*M3_VALSG  */ #define   YW_ta_c(v, i, j, k)             Yta_c[i][j][k]->Ywish[v]  
     106/*M3_VALSGI */ #define   YW1_ta_c(i, j, k)               Yta_c[i][j][k]->Ywish[0]  
     107/*M3_HERESGI*/ #define   YW1Y_ta_c               Yta_c[Yi][Yj][Yk]->Ywish[0]  
    104108 
    105109//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_c~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    108112class Yaosa_c; 
    109113/*NBSMOD    */ #define   YNBS_sa_c       1 
    110 /*M3_VALSG  */ #define   Ystate_sa_c(v, i, j, k)         Ysa_c->Ystate[i][j][k][v]  
    111 /*M3_VALSG  */ #define   YS_sa_c(v, i, j, k)             Ysa_c->Ystate[i][j][k][v]  
    112 /*M3_VALSGI */ #define   YS1_sa_c(i, j, k)               Ysa_c->Ystate[i][j][k][0]  
    113 /*M3_HERESGI*/ #define   YS1Y_sa_c               Ysa_c->Ystate[Yi][Yj][Yk][0]  
    114 /*M3_VALSG  */ #define   Ygrad_sa_c(v, i, j, k)          Ysa_c->Ygrad[i][j][k][v]  
    115 /*M3_VALSG  */ #define   YG_sa_c(v, i, j, k)             Ysa_c->Ygrad[i][j][k][v]  
    116 /*M3_VALSGI */ #define   YG1_sa_c(i, j, k)               Ysa_c->Ygrad[i][j][k][0]  
    117 /*M3_HERESGI*/ #define   YG1Y_sa_c               Ysa_c->Ygrad[Yi][Yj][Yk][0]  
    118 Yaosa_c                  *Ysa_c; 
     114/*M3_IRMOD  */ #define   Ysa_c(i, j, k)          Ysa_c[i][j][k] 
     115/*M3_NOWMOD */ #define   Ysa_cY                  Ysa_c[Yi][Yj][Yk] 
     116/*M3_VALSG  */ #define   Ystate_sa_c(v, i, j, k)         Ysa_c[i][j][k]->Ystate[v]  
     117/*M3_VALSG  */ #define   YS_sa_c(v, i, j, k)             Ysa_c[i][j][k]->Ystate[v]  
     118/*M3_VALSGI */ #define   YS1_sa_c(i, j, k)               Ysa_c[i][j][k]->Ystate[0]  
     119/*M3_HERESGI*/ #define   YS1Y_sa_c               Ysa_c[Yi][Yj][Yk]->Ystate[0]  
     120/*M3_VALSG  */ #define   Ygrad_sa_c(v, i, j, k)          Ysa_c[i][j][k]->Ygrad[v]  
     121/*M3_VALSG  */ #define   YG_sa_c(v, i, j, k)             Ysa_c[i][j][k]->Ygrad[v]  
     122/*M3_VALSGI */ #define   YG1_sa_c(i, j, k)               Ysa_c[i][j][k]->Ygrad[0]  
     123/*M3_HERESGI*/ #define   YG1Y_sa_c               Ysa_c[Yi][Yj][Yk]->Ygrad[0]  
     124Yaosa_c                  *Ysa_c[YA1_S3d][YA2_S3d][YA3_S3d]; 
    119125 
    120126//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_c~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    123129class Yaoua_c; 
    124130/*NBSMOD    */ #define   YNBS_ua_c       1 
    125 /*M3_VALSG  */ #define   Ystate_ua_c(v, i, j, k)         Yua_c->Ystate[i][j][k][v]  
    126 /*M3_VALSG  */ #define   YS_ua_c(v, i, j, k)             Yua_c->Ystate[i][j][k][v]  
    127 /*M3_VALSGI */ #define   YS1_ua_c(i, j, k)               Yua_c->Ystate[i][j][k][0]  
    128 /*M3_HERESGI*/ #define   YS1Y_ua_c               Yua_c->Ystate[Yi][Yj][Yk][0]  
    129 /*M3_VALSG  */ #define   Ygrad_ua_c(v, i, j, k)          Yua_c->Ygrad[i][j][k][v]  
    130 /*M3_VALSG  */ #define   YG_ua_c(v, i, j, k)             Yua_c->Ygrad[i][j][k][v]  
    131 /*M3_VALSGI */ #define   YG1_ua_c(i, j, k)               Yua_c->Ygrad[i][j][k][0]  
    132 /*M3_HERESGI*/ #define   YG1Y_ua_c               Yua_c->Ygrad[Yi][Yj][Yk][0]  
    133 Yaoua_c                  *Yua_c; 
     131/*M3_IRMOD  */ #define   Yua_c(i, j, k)          Yua_c[i][j][k] 
     132/*M3_NOWMOD */ #define   Yua_cY                  Yua_c[Yi][Yj][Yk] 
     133/*M3_VALSG  */ #define   Ystate_ua_c(v, i, j, k)         Yua_c[i][j][k]->Ystate[v]  
     134/*M3_VALSG  */ #define   YS_ua_c(v, i, j, k)             Yua_c[i][j][k]->Ystate[v]  
     135/*M3_VALSGI */ #define   YS1_ua_c(i, j, k)               Yua_c[i][j][k]->Ystate[0]  
     136/*M3_HERESGI*/ #define   YS1Y_ua_c               Yua_c[Yi][Yj][Yk]->Ystate[0]  
     137/*M3_VALSG  */ #define   Ygrad_ua_c(v, i, j, k)          Yua_c[i][j][k]->Ygrad[v]  
     138/*M3_VALSG  */ #define   YG_ua_c(v, i, j, k)             Yua_c[i][j][k]->Ygrad[v]  
     139/*M3_VALSGI */ #define   YG1_ua_c(i, j, k)               Yua_c[i][j][k]->Ygrad[0]  
     140/*M3_HERESGI*/ #define   YG1Y_ua_c               Yua_c[Yi][Yj][Yk]->Ygrad[0]  
     141Yaoua_c                  *Yua_c[YA1_S3d][YA2_S3d][YA3_S3d]; 
    134142 
    135143//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_c~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    138146class Yaova_c; 
    139147/*NBSMOD    */ #define   YNBS_va_c       1 
    140 /*M3_VALSG  */ #define   Ystate_va_c(v, i, j, k)         Yva_c->Ystate[i][j][k][v]  
    141 /*M3_VALSG  */ #define   YS_va_c(v, i, j, k)             Yva_c->Ystate[i][j][k][v]  
    142 /*M3_VALSGI */ #define   YS1_va_c(i, j, k)               Yva_c->Ystate[i][j][k][0]  
    143 /*M3_HERESGI*/ #define   YS1Y_va_c               Yva_c->Ystate[Yi][Yj][Yk][0]  
    144 /*M3_VALSG  */ #define   Ygrad_va_c(v, i, j, k)          Yva_c->Ygrad[i][j][k][v]  
    145 /*M3_VALSG  */ #define   YG_va_c(v, i, j, k)             Yva_c->Ygrad[i][j][k][v]  
    146 /*M3_VALSGI */ #define   YG1_va_c(i, j, k)               Yva_c->Ygrad[i][j][k][0]  
    147 /*M3_HERESGI*/ #define   YG1Y_va_c               Yva_c->Ygrad[Yi][Yj][Yk][0]  
    148 Yaova_c                  *Yva_c; 
     148/*M3_IRMOD  */ #define   Yva_c(i, j, k)          Yva_c[i][j][k] 
     149/*M3_NOWMOD */ #define   Yva_cY                  Yva_c[Yi][Yj][Yk] 
     150/*M3_VALSG  */ #define   Ystate_va_c(v, i, j, k)         Yva_c[i][j][k]->Ystate[v]  
     151/*M3_VALSG  */ #define   YS_va_c(v, i, j, k)             Yva_c[i][j][k]->Ystate[v]  
     152/*M3_VALSGI */ #define   YS1_va_c(i, j, k)               Yva_c[i][j][k]->Ystate[0]  
     153/*M3_HERESGI*/ #define   YS1Y_va_c               Yva_c[Yi][Yj][Yk]->Ystate[0]  
     154/*M3_VALSG  */ #define   Ygrad_va_c(v, i, j, k)          Yva_c[i][j][k]->Ygrad[v]  
     155/*M3_VALSG  */ #define   YG_va_c(v, i, j, k)             Yva_c[i][j][k]->Ygrad[v]  
     156/*M3_VALSGI */ #define   YG1_va_c(i, j, k)               Yva_c[i][j][k]->Ygrad[0]  
     157/*M3_HERESGI*/ #define   YG1Y_va_c               Yva_c[Yi][Yj][Yk]->Ygrad[0]  
     158Yaova_c                  *Yva_c[YA1_S3d][YA2_S3d][YA3_S3d]; 
    149159 
    150160//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_qsr_qns~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    156166/*NBSMOD    */ #define   YNBS_sbcgyre_qsr_qns    2 
    157167/*NBIMOD    */ #define   YNBI_sbcgyre_qsr_qns    1 
    158 /*M2_VALST  */ #define   Ystate_sbcgyre_qsr_qns(v, i, j, t)              Ysbcgyre_qsr_qns->Ystate[t][i][j][v]  
    159 /*M2_VALST  */ #define   YS_sbcgyre_qsr_qns(v, i, j, t)                  Ysbcgyre_qsr_qns->Ystate[t][i][j][v]  
    160 /*M2_VALSIT */ #define   YS1_sbcgyre_qsr_qns(i, j, t)            Ysbcgyre_qsr_qns->Ystate[t][i][j][0]  
    161 /*M2_HERESIT*/ #define   YS1Y_sbcgyre_qsr_qns            Ysbcgyre_qsr_qns->Ystate[YTemps][Yi][Yj][0]  
    162 /*M2_VALSIT */ #define   YS2_sbcgyre_qsr_qns(i, j, t)            Ysbcgyre_qsr_qns->Ystate[t][i][j][1]  
    163 /*M2_HERESIT*/ #define   YS2Y_sbcgyre_qsr_qns            Ysbcgyre_qsr_qns->Ystate[YTemps][Yi][Yj][1]  
    164 /*M2_VALST  */ #define   Ygrad_sbcgyre_qsr_qns(v, i, j, t)               Ysbcgyre_qsr_qns->Ygrad[t][i][j][v]  
    165 /*M2_VALST  */ #define   YG_sbcgyre_qsr_qns(v, i, j, t)                  Ysbcgyre_qsr_qns->Ygrad[t][i][j][v]  
    166 /*M2_VALSIT */ #define   YG1_sbcgyre_qsr_qns(i, j, t)            Ysbcgyre_qsr_qns->Ygrad[t][i][j][0]  
    167 /*M2_HERESIT*/ #define   YG1Y_sbcgyre_qsr_qns            Ysbcgyre_qsr_qns->Ygrad[YTemps][Yi][Yj][0]  
    168 /*M2_VALSIT */ #define   YG2_sbcgyre_qsr_qns(i, j, t)            Ysbcgyre_qsr_qns->Ygrad[t][i][j][1]  
    169 /*M2_HERESIT*/ #define   YG2Y_sbcgyre_qsr_qns            Ysbcgyre_qsr_qns->Ygrad[YTemps][Yi][Yj][1]  
    170 sbcgyre_qsr_qns                  *Ysbcgyre_qsr_qns; 
     168/*M2_IRMOD  */ #define   Ysbcgyre_qsr_qns(i, j)          Ysbcgyre_qsr_qns[i][j] 
     169/*M2_NOWMOD */ #define   Ysbcgyre_qsr_qnsY               Ysbcgyre_qsr_qns[Yi][Yj] 
     170/*M2_VALST  */ #define   Ystate_sbcgyre_qsr_qns(v, i, j, t)              Ysbcgyre_qsr_qns[i][j]->Ystate[t][v]  
     171/*M2_VALST  */ #define   YS_sbcgyre_qsr_qns(v, i, j, t)                  Ysbcgyre_qsr_qns[i][j]->Ystate[t][v]  
     172/*M2_VALSIT */ #define   YS1_sbcgyre_qsr_qns(i, j, t)            Ysbcgyre_qsr_qns[i][j]->Ystate[t][0]  
     173/*M2_HERESIT*/ #define   YS1Y_sbcgyre_qsr_qns            Ysbcgyre_qsr_qns[Yi][Yj]->Ystate[YTemps][0]  
     174/*M2_VALSIT */ #define   YS2_sbcgyre_qsr_qns(i, j, t)            Ysbcgyre_qsr_qns[i][j]->Ystate[t][1]  
     175/*M2_HERESIT*/ #define   YS2Y_sbcgyre_qsr_qns            Ysbcgyre_qsr_qns[Yi][Yj]->Ystate[YTemps][1]  
     176/*M2_VALST  */ #define   Ygrad_sbcgyre_qsr_qns(v, i, j, t)               Ysbcgyre_qsr_qns[i][j]->Ygrad[t][v]  
     177/*M2_VALST  */ #define   YG_sbcgyre_qsr_qns(v, i, j, t)                  Ysbcgyre_qsr_qns[i][j]->Ygrad[t][v]  
     178/*M2_VALSIT */ #define   YG1_sbcgyre_qsr_qns(i, j, t)            Ysbcgyre_qsr_qns[i][j]->Ygrad[t][0]  
     179/*M2_HERESIT*/ #define   YG1Y_sbcgyre_qsr_qns            Ysbcgyre_qsr_qns[Yi][Yj]->Ygrad[YTemps][0]  
     180/*M2_VALSIT */ #define   YG2_sbcgyre_qsr_qns(i, j, t)            Ysbcgyre_qsr_qns[i][j]->Ygrad[t][1]  
     181/*M2_HERESIT*/ #define   YG2Y_sbcgyre_qsr_qns            Ysbcgyre_qsr_qns[Yi][Yj]->Ygrad[YTemps][1]  
     182sbcgyre_qsr_qns                  *Ysbcgyre_qsr_qns[YA1_S3dt][YA2_S3dt]; 
    171183 
    172184//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emp1~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    177189/*NBMOD     */ #define   YNB_sbcgyre_emp1        704 
    178190/*NBSMOD    */ #define   YNBS_sbcgyre_emp1       1 
    179 /*M2_VALST  */ #define   Ystate_sbcgyre_emp1(v, i, j, t)                 Ysbcgyre_emp1->Ystate[t][i][j][v]  
    180 /*M2_VALST  */ #define   YS_sbcgyre_emp1(v, i, j, t)             Ysbcgyre_emp1->Ystate[t][i][j][v]  
    181 /*M2_VALSIT */ #define   YS1_sbcgyre_emp1(i, j, t)               Ysbcgyre_emp1->Ystate[t][i][j][0]  
    182 /*M2_HERESIT*/ #define   YS1Y_sbcgyre_emp1               Ysbcgyre_emp1->Ystate[YTemps][Yi][Yj][0]  
    183 /*M2_VALST  */ #define   Ygrad_sbcgyre_emp1(v, i, j, t)                  Ysbcgyre_emp1->Ygrad[t][i][j][v]  
    184 /*M2_VALST  */ #define   YG_sbcgyre_emp1(v, i, j, t)             Ysbcgyre_emp1->Ygrad[t][i][j][v]  
    185 /*M2_VALSIT */ #define   YG1_sbcgyre_emp1(i, j, t)               Ysbcgyre_emp1->Ygrad[t][i][j][0]  
    186 /*M2_HERESIT*/ #define   YG1Y_sbcgyre_emp1               Ysbcgyre_emp1->Ygrad[YTemps][Yi][Yj][0]  
    187 sbcgyre_emp1             *Ysbcgyre_emp1; 
     191/*M2_IRMOD  */ #define   Ysbcgyre_emp1(i, j)     Ysbcgyre_emp1[i][j] 
     192/*M2_NOWMOD */ #define   Ysbcgyre_emp1Y                  Ysbcgyre_emp1[Yi][Yj] 
     193/*M2_VALST  */ #define   Ystate_sbcgyre_emp1(v, i, j, t)                 Ysbcgyre_emp1[i][j]->Ystate[t][v]  
     194/*M2_VALST  */ #define   YS_sbcgyre_emp1(v, i, j, t)             Ysbcgyre_emp1[i][j]->Ystate[t][v]  
     195/*M2_VALSIT */ #define   YS1_sbcgyre_emp1(i, j, t)               Ysbcgyre_emp1[i][j]->Ystate[t][0]  
     196/*M2_HERESIT*/ #define   YS1Y_sbcgyre_emp1               Ysbcgyre_emp1[Yi][Yj]->Ystate[YTemps][0]  
     197/*M2_VALST  */ #define   Ygrad_sbcgyre_emp1(v, i, j, t)                  Ysbcgyre_emp1[i][j]->Ygrad[t][v]  
     198/*M2_VALST  */ #define   YG_sbcgyre_emp1(v, i, j, t)             Ysbcgyre_emp1[i][j]->Ygrad[t][v]  
     199/*M2_VALSIT */ #define   YG1_sbcgyre_emp1(i, j, t)               Ysbcgyre_emp1[i][j]->Ygrad[t][0]  
     200/*M2_HERESIT*/ #define   YG1Y_sbcgyre_emp1               Ysbcgyre_emp1[Yi][Yj]->Ygrad[YTemps][0]  
     201sbcgyre_emp1             *Ysbcgyre_emp1[YA1_S3dt][YA2_S3dt]; 
    188202 
    189203//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_zsumemp_zsurf~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    195209/*NBSMOD    */ #define   YNBS_sbcgyre_zsumemp_zsurf      2 
    196210/*NBIMOD    */ #define   YNBI_sbcgyre_zsumemp_zsurf      5 
    197 /*M2_VALST  */ #define   Ystate_sbcgyre_zsumemp_zsurf(v, i, j, t)                Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][v]  
    198 /*M2_VALST  */ #define   YS_sbcgyre_zsumemp_zsurf(v, i, j, t)            Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][v]  
    199 /*M2_VALSIT */ #define   YS1_sbcgyre_zsumemp_zsurf(i, j, t)              Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][0]  
    200 /*M2_HERESIT*/ #define   YS1Y_sbcgyre_zsumemp_zsurf              Ysbcgyre_zsumemp_zsurf->Ystate[YTemps][Yi][Yj][0]  
    201 /*M2_VALSIT */ #define   YS2_sbcgyre_zsumemp_zsurf(i, j, t)              Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][1]  
    202 /*M2_HERESIT*/ #define   YS2Y_sbcgyre_zsumemp_zsurf              Ysbcgyre_zsumemp_zsurf->Ystate[YTemps][Yi][Yj][1]  
    203 /*M2_VALST  */ #define   Ygrad_sbcgyre_zsumemp_zsurf(v, i, j, t)                 Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][v]  
    204 /*M2_VALST  */ #define   YG_sbcgyre_zsumemp_zsurf(v, i, j, t)            Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][v]  
    205 /*M2_VALSIT */ #define   YG1_sbcgyre_zsumemp_zsurf(i, j, t)              Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][0]  
    206 /*M2_HERESIT*/ #define   YG1Y_sbcgyre_zsumemp_zsurf              Ysbcgyre_zsumemp_zsurf->Ygrad[YTemps][Yi][Yj][0]  
    207 /*M2_VALSIT */ #define   YG2_sbcgyre_zsumemp_zsurf(i, j, t)              Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][1]  
    208 /*M2_HERESIT*/ #define   YG2Y_sbcgyre_zsumemp_zsurf              Ysbcgyre_zsumemp_zsurf->Ygrad[YTemps][Yi][Yj][1]  
    209 sbcgyre_zsumemp_zsurf            *Ysbcgyre_zsumemp_zsurf; 
     211/*M2_IRMOD  */ #define   Ysbcgyre_zsumemp_zsurf(i, j)    Ysbcgyre_zsumemp_zsurf[i][j] 
     212/*M2_NOWMOD */ #define   Ysbcgyre_zsumemp_zsurfY                 Ysbcgyre_zsumemp_zsurf[Yi][Yj] 
     213/*M2_VALST  */ #define   Ystate_sbcgyre_zsumemp_zsurf(v, i, j, t)                Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][v]  
     214/*M2_VALST  */ #define   YS_sbcgyre_zsumemp_zsurf(v, i, j, t)            Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][v]  
     215/*M2_VALSIT */ #define   YS1_sbcgyre_zsumemp_zsurf(i, j, t)              Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][0]  
     216/*M2_HERESIT*/ #define   YS1Y_sbcgyre_zsumemp_zsurf              Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ystate[YTemps][0]  
     217/*M2_VALSIT */ #define   YS2_sbcgyre_zsumemp_zsurf(i, j, t)              Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][1]  
     218/*M2_HERESIT*/ #define   YS2Y_sbcgyre_zsumemp_zsurf              Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ystate[YTemps][1]  
     219/*M2_VALST  */ #define   Ygrad_sbcgyre_zsumemp_zsurf(v, i, j, t)                 Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][v]  
     220/*M2_VALST  */ #define   YG_sbcgyre_zsumemp_zsurf(v, i, j, t)            Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][v]  
     221/*M2_VALSIT */ #define   YG1_sbcgyre_zsumemp_zsurf(i, j, t)              Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][0]  
     222/*M2_HERESIT*/ #define   YG1Y_sbcgyre_zsumemp_zsurf              Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ygrad[YTemps][0]  
     223/*M2_VALSIT */ #define   YG2_sbcgyre_zsumemp_zsurf(i, j, t)              Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][1]  
     224/*M2_HERESIT*/ #define   YG2Y_sbcgyre_zsumemp_zsurf              Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ygrad[YTemps][1]  
     225sbcgyre_zsumemp_zsurf            *Ysbcgyre_zsumemp_zsurf[YA1_S3dt][YA2_S3dt]; 
    210226 
    211227//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    217233/*NBSMOD    */ #define   YNBS_sbcgyre_emp        1 
    218234/*NBIMOD    */ #define   YNBI_sbcgyre_emp        3 
    219 /*M2_VALST  */ #define   Ystate_sbcgyre_emp(v, i, j, t)                  Ysbcgyre_emp->Ystate[t][i][j][v]  
    220 /*M2_VALST  */ #define   YS_sbcgyre_emp(v, i, j, t)              Ysbcgyre_emp->Ystate[t][i][j][v]  
    221 /*M2_VALSIT */ #define   YS1_sbcgyre_emp(i, j, t)                Ysbcgyre_emp->Ystate[t][i][j][0]  
    222 /*M2_HERESIT*/ #define   YS1Y_sbcgyre_emp                Ysbcgyre_emp->Ystate[YTemps][Yi][Yj][0]  
    223 /*M2_VALST  */ #define   Ygrad_sbcgyre_emp(v, i, j, t)           Ysbcgyre_emp->Ygrad[t][i][j][v]  
    224 /*M2_VALST  */ #define   YG_sbcgyre_emp(v, i, j, t)              Ysbcgyre_emp->Ygrad[t][i][j][v]  
    225 /*M2_VALSIT */ #define   YG1_sbcgyre_emp(i, j, t)                Ysbcgyre_emp->Ygrad[t][i][j][0]  
    226 /*M2_HERESIT*/ #define   YG1Y_sbcgyre_emp                Ysbcgyre_emp->Ygrad[YTemps][Yi][Yj][0]  
    227 sbcgyre_emp              *Ysbcgyre_emp; 
     235/*M2_IRMOD  */ #define   Ysbcgyre_emp(i, j)      Ysbcgyre_emp[i][j] 
     236/*M2_NOWMOD */ #define   Ysbcgyre_empY           Ysbcgyre_emp[Yi][Yj] 
     237/*M2_VALST  */ #define   Ystate_sbcgyre_emp(v, i, j, t)                  Ysbcgyre_emp[i][j]->Ystate[t][v]  
     238/*M2_VALST  */ #define   YS_sbcgyre_emp(v, i, j, t)              Ysbcgyre_emp[i][j]->Ystate[t][v]  
     239/*M2_VALSIT */ #define   YS1_sbcgyre_emp(i, j, t)                Ysbcgyre_emp[i][j]->Ystate[t][0]  
     240/*M2_HERESIT*/ #define   YS1Y_sbcgyre_emp                Ysbcgyre_emp[Yi][Yj]->Ystate[YTemps][0]  
     241/*M2_VALST  */ #define   Ygrad_sbcgyre_emp(v, i, j, t)           Ysbcgyre_emp[i][j]->Ygrad[t][v]  
     242/*M2_VALST  */ #define   YG_sbcgyre_emp(v, i, j, t)              Ysbcgyre_emp[i][j]->Ygrad[t][v]  
     243/*M2_VALSIT */ #define   YG1_sbcgyre_emp(i, j, t)                Ysbcgyre_emp[i][j]->Ygrad[t][0]  
     244/*M2_HERESIT*/ #define   YG1Y_sbcgyre_emp                Ysbcgyre_emp[Yi][Yj]->Ygrad[YTemps][0]  
     245sbcgyre_emp              *Ysbcgyre_emp[YA1_S3dt][YA2_S3dt]; 
    228246 
    229247//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emps~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    235253/*NBSMOD    */ #define   YNBS_sbcgyre_emps       1 
    236254/*NBIMOD    */ #define   YNBI_sbcgyre_emps       1 
    237 /*M2_VALST  */ #define   Ystate_sbcgyre_emps(v, i, j, t)                 Ysbcgyre_emps->Ystate[t][i][j][v]  
    238 /*M2_VALST  */ #define   YS_sbcgyre_emps(v, i, j, t)             Ysbcgyre_emps->Ystate[t][i][j][v]  
    239 /*M2_VALSIT */ #define   YS1_sbcgyre_emps(i, j, t)               Ysbcgyre_emps->Ystate[t][i][j][0]  
    240 /*M2_HERESIT*/ #define   YS1Y_sbcgyre_emps               Ysbcgyre_emps->Ystate[YTemps][Yi][Yj][0]  
    241 /*M2_VALST  */ #define   Ygrad_sbcgyre_emps(v, i, j, t)                  Ysbcgyre_emps->Ygrad[t][i][j][v]  
    242 /*M2_VALST  */ #define   YG_sbcgyre_emps(v, i, j, t)             Ysbcgyre_emps->Ygrad[t][i][j][v]  
    243 /*M2_VALSIT */ #define   YG1_sbcgyre_emps(i, j, t)               Ysbcgyre_emps->Ygrad[t][i][j][0]  
    244 /*M2_HERESIT*/ #define   YG1Y_sbcgyre_emps               Ysbcgyre_emps->Ygrad[YTemps][Yi][Yj][0]  
    245 sbcgyre_emps             *Ysbcgyre_emps; 
     255/*M2_IRMOD  */ #define   Ysbcgyre_emps(i, j)     Ysbcgyre_emps[i][j] 
     256/*M2_NOWMOD */ #define   Ysbcgyre_empsY                  Ysbcgyre_emps[Yi][Yj] 
     257/*M2_VALST  */ #define   Ystate_sbcgyre_emps(v, i, j, t)                 Ysbcgyre_emps[i][j]->Ystate[t][v]  
     258/*M2_VALST  */ #define   YS_sbcgyre_emps(v, i, j, t)             Ysbcgyre_emps[i][j]->Ystate[t][v]  
     259/*M2_VALSIT */ #define   YS1_sbcgyre_emps(i, j, t)               Ysbcgyre_emps[i][j]->Ystate[t][0]  
     260/*M2_HERESIT*/ #define   YS1Y_sbcgyre_emps               Ysbcgyre_emps[Yi][Yj]->Ystate[YTemps][0]  
     261/*M2_VALST  */ #define   Ygrad_sbcgyre_emps(v, i, j, t)                  Ysbcgyre_emps[i][j]->Ygrad[t][v]  
     262/*M2_VALST  */ #define   YG_sbcgyre_emps(v, i, j, t)             Ysbcgyre_emps[i][j]->Ygrad[t][v]  
     263/*M2_VALSIT */ #define   YG1_sbcgyre_emps(i, j, t)               Ysbcgyre_emps[i][j]->Ygrad[t][0]  
     264/*M2_HERESIT*/ #define   YG1Y_sbcgyre_emps               Ysbcgyre_emps[Yi][Yj]->Ygrad[YTemps][0]  
     265sbcgyre_emps             *Ysbcgyre_emps[YA1_S3dt][YA2_S3dt]; 
    246266 
    247267//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_utau_vtau~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    252272/*NBMOD     */ #define   YNB_sbcgyre_utau_vtau   704 
    253273/*NBSMOD    */ #define   YNBS_sbcgyre_utau_vtau          2 
    254 /*M2_VALST  */ #define   Ystate_sbcgyre_utau_vtau(v, i, j, t)            Ysbcgyre_utau_vtau->Ystate[t][i][j][v]  
    255 /*M2_VALST  */ #define   YS_sbcgyre_utau_vtau(v, i, j, t)                Ysbcgyre_utau_vtau->Ystate[t][i][j][v]  
    256 /*M2_VALSIT */ #define   YS1_sbcgyre_utau_vtau(i, j, t)                  Ysbcgyre_utau_vtau->Ystate[t][i][j][0]  
    257 /*M2_HERESIT*/ #define   YS1Y_sbcgyre_utau_vtau                  Ysbcgyre_utau_vtau->Ystate[YTemps][Yi][Yj][0]  
    258 /*M2_VALSIT */ #define   YS2_sbcgyre_utau_vtau(i, j, t)                  Ysbcgyre_utau_vtau->Ystate[t][i][j][1]  
    259 /*M2_HERESIT*/ #define   YS2Y_sbcgyre_utau_vtau                  Ysbcgyre_utau_vtau->Ystate[YTemps][Yi][Yj][1]  
    260 /*M2_VALST  */ #define   Ygrad_sbcgyre_utau_vtau(v, i, j, t)             Ysbcgyre_utau_vtau->Ygrad[t][i][j][v]  
    261 /*M2_VALST  */ #define   YG_sbcgyre_utau_vtau(v, i, j, t)                Ysbcgyre_utau_vtau->Ygrad[t][i][j][v]  
    262 /*M2_VALSIT */ #define   YG1_sbcgyre_utau_vtau(i, j, t)                  Ysbcgyre_utau_vtau->Ygrad[t][i][j][0]  
    263 /*M2_HERESIT*/ #define   YG1Y_sbcgyre_utau_vtau                  Ysbcgyre_utau_vtau->Ygrad[YTemps][Yi][Yj][0]  
    264 /*M2_VALSIT */ #define   YG2_sbcgyre_utau_vtau(i, j, t)                  Ysbcgyre_utau_vtau->Ygrad[t][i][j][1]  
    265 /*M2_HERESIT*/ #define   YG2Y_sbcgyre_utau_vtau                  Ysbcgyre_utau_vtau->Ygrad[YTemps][Yi][Yj][1]  
    266 sbcgyre_utau_vtau                *Ysbcgyre_utau_vtau; 
     274/*M2_IRMOD  */ #define   Ysbcgyre_utau_vtau(i, j)        Ysbcgyre_utau_vtau[i][j] 
     275/*M2_NOWMOD */ #define   Ysbcgyre_utau_vtauY             Ysbcgyre_utau_vtau[Yi][Yj] 
     276/*M2_VALST  */ #define   Ystate_sbcgyre_utau_vtau(v, i, j, t)            Ysbcgyre_utau_vtau[i][j]->Ystate[t][v]  
     277/*M2_VALST  */ #define   YS_sbcgyre_utau_vtau(v, i, j, t)                Ysbcgyre_utau_vtau[i][j]->Ystate[t][v]  
     278/*M2_VALSIT */ #define   YS1_sbcgyre_utau_vtau(i, j, t)                  Ysbcgyre_utau_vtau[i][j]->Ystate[t][0]  
     279/*M2_HERESIT*/ #define   YS1Y_sbcgyre_utau_vtau                  Ysbcgyre_utau_vtau[Yi][Yj]->Ystate[YTemps][0]  
     280/*M2_VALSIT */ #define   YS2_sbcgyre_utau_vtau(i, j, t)                  Ysbcgyre_utau_vtau[i][j]->Ystate[t][1]  
     281/*M2_HERESIT*/ #define   YS2Y_sbcgyre_utau_vtau                  Ysbcgyre_utau_vtau[Yi][Yj]->Ystate[YTemps][1]  
     282/*M2_VALST  */ #define   Ygrad_sbcgyre_utau_vtau(v, i, j, t)             Ysbcgyre_utau_vtau[i][j]->Ygrad[t][v]  
     283/*M2_VALST  */ #define   YG_sbcgyre_utau_vtau(v, i, j, t)                Ysbcgyre_utau_vtau[i][j]->Ygrad[t][v]  
     284/*M2_VALSIT */ #define   YG1_sbcgyre_utau_vtau(i, j, t)                  Ysbcgyre_utau_vtau[i][j]->Ygrad[t][0]  
     285/*M2_HERESIT*/ #define   YG1Y_sbcgyre_utau_vtau                  Ysbcgyre_utau_vtau[Yi][Yj]->Ygrad[YTemps][0]  
     286/*M2_VALSIT */ #define   YG2_sbcgyre_utau_vtau(i, j, t)                  Ysbcgyre_utau_vtau[i][j]->Ygrad[t][1]  
     287/*M2_HERESIT*/ #define   YG2Y_sbcgyre_utau_vtau                  Ysbcgyre_utau_vtau[Yi][Yj]->Ygrad[YTemps][1]  
     288sbcgyre_utau_vtau                *Ysbcgyre_utau_vtau[YA1_S3dt][YA2_S3dt]; 
    267289 
    268290//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_wndm~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    274296/*NBSMOD    */ #define   YNBS_sbcgyre_wndm       1 
    275297/*NBIMOD    */ #define   YNBI_sbcgyre_wndm       4 
    276 /*M2_VALST  */ #define   Ystate_sbcgyre_wndm(v, i, j, t)                 Ysbcgyre_wndm->Ystate[t][i][j][v]  
    277 /*M2_VALST  */ #define   YS_sbcgyre_wndm(v, i, j, t)             Ysbcgyre_wndm->Ystate[t][i][j][v]  
    278 /*M2_VALSIT */ #define   YS1_sbcgyre_wndm(i, j, t)               Ysbcgyre_wndm->Ystate[t][i][j][0]  
    279 /*M2_HERESIT*/ #define   YS1Y_sbcgyre_wndm               Ysbcgyre_wndm->Ystate[YTemps][Yi][Yj][0]  
    280 /*M2_VALST  */ #define   Ygrad_sbcgyre_wndm(v, i, j, t)                  Ysbcgyre_wndm->Ygrad[t][i][j][v]  
    281 /*M2_VALST  */ #define   YG_sbcgyre_wndm(v, i, j, t)             Ysbcgyre_wndm->Ygrad[t][i][j][v]  
    282 /*M2_VALSIT */ #define   YG1_sbcgyre_wndm(i, j, t)               Ysbcgyre_wndm->Ygrad[t][i][j][0]  
    283 /*M2_HERESIT*/ #define   YG1Y_sbcgyre_wndm               Ysbcgyre_wndm->Ygrad[YTemps][Yi][Yj][0]  
    284 sbcgyre_wndm             *Ysbcgyre_wndm; 
     298/*M2_IRMOD  */ #define   Ysbcgyre_wndm(i, j)     Ysbcgyre_wndm[i][j] 
     299/*M2_NOWMOD */ #define   Ysbcgyre_wndmY                  Ysbcgyre_wndm[Yi][Yj] 
     300/*M2_VALST  */ #define   Ystate_sbcgyre_wndm(v, i, j, t)                 Ysbcgyre_wndm[i][j]->Ystate[t][v]  
     301/*M2_VALST  */ #define   YS_sbcgyre_wndm(v, i, j, t)             Ysbcgyre_wndm[i][j]->Ystate[t][v]  
     302/*M2_VALSIT */ #define   YS1_sbcgyre_wndm(i, j, t)               Ysbcgyre_wndm[i][j]->Ystate[t][0]  
     303/*M2_HERESIT*/ #define   YS1Y_sbcgyre_wndm               Ysbcgyre_wndm[Yi][Yj]->Ystate[YTemps][0]  
     304/*M2_VALST  */ #define   Ygrad_sbcgyre_wndm(v, i, j, t)                  Ysbcgyre_wndm[i][j]->Ygrad[t][v]  
     305/*M2_VALST  */ #define   YG_sbcgyre_wndm(v, i, j, t)             Ysbcgyre_wndm[i][j]->Ygrad[t][v]  
     306/*M2_VALSIT */ #define   YG1_sbcgyre_wndm(i, j, t)               Ysbcgyre_wndm[i][j]->Ygrad[t][0]  
     307/*M2_HERESIT*/ #define   YG1Y_sbcgyre_wndm               Ysbcgyre_wndm[Yi][Yj]->Ygrad[YTemps][0]  
     308sbcgyre_wndm             *Ysbcgyre_wndm[YA1_S3dt][YA2_S3dt]; 
    285309 
    286310//~~~~~~~~~~~~~~~~~~~~~~~~~ module bn2_rn2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    291315/*NBSMOD    */ #define   YNBS_bn2_rn2    1 
    292316/*NBIMOD    */ #define   YNBI_bn2_rn2    4 
    293 /*M3_VALST  */ #define   Ystate_bn2_rn2(v, i, j, k, t)   Ybn2_rn2->Ystate[t][i][j][k][v]  
    294 /*M3_VALST  */ #define   YS_bn2_rn2(v, i, j, k, t)               Ybn2_rn2->Ystate[t][i][j][k][v]  
    295 /*M3_VALSIT */ #define   YS1_bn2_rn2(i, j, k, t)                 Ybn2_rn2->Ystate[t][i][j][k][0]  
    296 /*M3_HERESIT*/ #define   YS1Y_bn2_rn2            Ybn2_rn2->Ystate[YTemps][Yi][Yj][Yk][0]  
    297 /*M3_VALST  */ #define   Ygrad_bn2_rn2(v, i, j, k, t)    Ybn2_rn2->Ygrad[t][i][j][k][v]  
    298 /*M3_VALST  */ #define   YG_bn2_rn2(v, i, j, k, t)               Ybn2_rn2->Ygrad[t][i][j][k][v]  
    299 /*M3_VALSIT */ #define   YG1_bn2_rn2(i, j, k, t)                 Ybn2_rn2->Ygrad[t][i][j][k][0]  
    300 /*M3_HERESIT*/ #define   YG1Y_bn2_rn2            Ybn2_rn2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    301 bn2_rn2                  *Ybn2_rn2; 
     317/*M3_IRMOD  */ #define   Ybn2_rn2(i, j, k)       Ybn2_rn2[i][j][k] 
     318/*M3_NOWMOD */ #define   Ybn2_rn2Y               Ybn2_rn2[Yi][Yj][Yk] 
     319/*M3_VALST  */ #define   Ystate_bn2_rn2(v, i, j, k, t)   Ybn2_rn2[i][j][k]->Ystate[t][v]  
     320/*M3_VALST  */ #define   YS_bn2_rn2(v, i, j, k, t)               Ybn2_rn2[i][j][k]->Ystate[t][v]  
     321/*M3_VALSIT */ #define   YS1_bn2_rn2(i, j, k, t)                 Ybn2_rn2[i][j][k]->Ystate[t][0]  
     322/*M3_HERESIT*/ #define   YS1Y_bn2_rn2            Ybn2_rn2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     323/*M3_VALST  */ #define   Ygrad_bn2_rn2(v, i, j, k, t)    Ybn2_rn2[i][j][k]->Ygrad[t][v]  
     324/*M3_VALST  */ #define   YG_bn2_rn2(v, i, j, k, t)               Ybn2_rn2[i][j][k]->Ygrad[t][v]  
     325/*M3_VALSIT */ #define   YG1_bn2_rn2(i, j, k, t)                 Ybn2_rn2[i][j][k]->Ygrad[t][0]  
     326/*M3_HERESIT*/ #define   YG1Y_bn2_rn2            Ybn2_rn2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     327bn2_rn2                  *Ybn2_rn2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    302328 
    303329//~~~~~~~~~~~~~~~~~~~~~~~~~ module zdf_avt_avmu_avmv~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    308334/*NBSMOD    */ #define   YNBS_zdf_avt_avmu_avmv          3 
    309335/*NBIMOD    */ #define   YNBI_zdf_avt_avmu_avmv          19 
    310 /*M3_VALST  */ #define   Ystate_zdf_avt_avmu_avmv(v, i, j, k, t)         Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][v]  
    311 /*M3_VALST  */ #define   YS_zdf_avt_avmu_avmv(v, i, j, k, t)             Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][v]  
    312 /*M3_VALSIT */ #define   YS1_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][0]  
    313 /*M3_HERESIT*/ #define   YS1Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv->Ystate[YTemps][Yi][Yj][Yk][0]  
    314 /*M3_VALSIT */ #define   YS2_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][1]  
    315 /*M3_HERESIT*/ #define   YS2Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv->Ystate[YTemps][Yi][Yj][Yk][1]  
    316 /*M3_VALSIT */ #define   YS3_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][2]  
    317 /*M3_HERESIT*/ #define   YS3Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv->Ystate[YTemps][Yi][Yj][Yk][2]  
    318 /*M3_VALST  */ #define   Ygrad_zdf_avt_avmu_avmv(v, i, j, k, t)          Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][v]  
    319 /*M3_VALST  */ #define   YG_zdf_avt_avmu_avmv(v, i, j, k, t)             Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][v]  
    320 /*M3_VALSIT */ #define   YG1_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][0]  
    321 /*M3_HERESIT*/ #define   YG1Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv->Ygrad[YTemps][Yi][Yj][Yk][0]  
    322 /*M3_VALSIT */ #define   YG2_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][1]  
    323 /*M3_HERESIT*/ #define   YG2Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv->Ygrad[YTemps][Yi][Yj][Yk][1]  
    324 /*M3_VALSIT */ #define   YG3_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][2]  
    325 /*M3_HERESIT*/ #define   YG3Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv->Ygrad[YTemps][Yi][Yj][Yk][2]  
    326 zdf_avt_avmu_avmv                *Yzdf_avt_avmu_avmv; 
     336/*M3_IRMOD  */ #define   Yzdf_avt_avmu_avmv(i, j, k)     Yzdf_avt_avmu_avmv[i][j][k] 
     337/*M3_NOWMOD */ #define   Yzdf_avt_avmu_avmvY             Yzdf_avt_avmu_avmv[Yi][Yj][Yk] 
     338/*M3_VALST  */ #define   Ystate_zdf_avt_avmu_avmv(v, i, j, k, t)         Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][v]  
     339/*M3_VALST  */ #define   YS_zdf_avt_avmu_avmv(v, i, j, k, t)             Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][v]  
     340/*M3_VALSIT */ #define   YS1_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][0]  
     341/*M3_HERESIT*/ #define   YS1Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ystate[YTemps][0]  
     342/*M3_VALSIT */ #define   YS2_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][1]  
     343/*M3_HERESIT*/ #define   YS2Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ystate[YTemps][1]  
     344/*M3_VALSIT */ #define   YS3_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][2]  
     345/*M3_HERESIT*/ #define   YS3Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ystate[YTemps][2]  
     346/*M3_VALST  */ #define   Ygrad_zdf_avt_avmu_avmv(v, i, j, k, t)          Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][v]  
     347/*M3_VALST  */ #define   YG_zdf_avt_avmu_avmv(v, i, j, k, t)             Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][v]  
     348/*M3_VALSIT */ #define   YG1_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][0]  
     349/*M3_HERESIT*/ #define   YG1Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     350/*M3_VALSIT */ #define   YG2_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][1]  
     351/*M3_HERESIT*/ #define   YG2Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ygrad[YTemps][1]  
     352/*M3_VALSIT */ #define   YG3_zdf_avt_avmu_avmv(i, j, k, t)               Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][2]  
     353/*M3_HERESIT*/ #define   YG3Y_zdf_avt_avmu_avmv                  Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ygrad[YTemps][2]  
     354zdf_avt_avmu_avmv                *Yzdf_avt_avmu_avmv[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    327355 
    328356//~~~~~~~~~~~~~~~~~~~~~~~~~ module zdfmxl_hmld~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    334362/*NBSMOD    */ #define   YNBS_zdfmxl_hmld        1 
    335363/*NBIMOD    */ #define   YNBI_zdfmxl_hmld        31 
    336 /*M2_VALST  */ #define   Ystate_zdfmxl_hmld(v, i, j, t)                  Yzdfmxl_hmld->Ystate[t][i][j][v]  
    337 /*M2_VALST  */ #define   YS_zdfmxl_hmld(v, i, j, t)              Yzdfmxl_hmld->Ystate[t][i][j][v]  
    338 /*M2_VALSIT */ #define   YS1_zdfmxl_hmld(i, j, t)                Yzdfmxl_hmld->Ystate[t][i][j][0]  
    339 /*M2_HERESIT*/ #define   YS1Y_zdfmxl_hmld                Yzdfmxl_hmld->Ystate[YTemps][Yi][Yj][0]  
    340 /*M2_VALST  */ #define   Ygrad_zdfmxl_hmld(v, i, j, t)           Yzdfmxl_hmld->Ygrad[t][i][j][v]  
    341 /*M2_VALST  */ #define   YG_zdfmxl_hmld(v, i, j, t)              Yzdfmxl_hmld->Ygrad[t][i][j][v]  
    342 /*M2_VALSIT */ #define   YG1_zdfmxl_hmld(i, j, t)                Yzdfmxl_hmld->Ygrad[t][i][j][0]  
    343 /*M2_HERESIT*/ #define   YG1Y_zdfmxl_hmld                Yzdfmxl_hmld->Ygrad[YTemps][Yi][Yj][0]  
    344 zdfmxl_hmld              *Yzdfmxl_hmld; 
     364/*M2_IRMOD  */ #define   Yzdfmxl_hmld(i, j)      Yzdfmxl_hmld[i][j] 
     365/*M2_NOWMOD */ #define   Yzdfmxl_hmldY           Yzdfmxl_hmld[Yi][Yj] 
     366/*M2_VALST  */ #define   Ystate_zdfmxl_hmld(v, i, j, t)                  Yzdfmxl_hmld[i][j]->Ystate[t][v]  
     367/*M2_VALST  */ #define   YS_zdfmxl_hmld(v, i, j, t)              Yzdfmxl_hmld[i][j]->Ystate[t][v]  
     368/*M2_VALSIT */ #define   YS1_zdfmxl_hmld(i, j, t)                Yzdfmxl_hmld[i][j]->Ystate[t][0]  
     369/*M2_HERESIT*/ #define   YS1Y_zdfmxl_hmld                Yzdfmxl_hmld[Yi][Yj]->Ystate[YTemps][0]  
     370/*M2_VALST  */ #define   Ygrad_zdfmxl_hmld(v, i, j, t)           Yzdfmxl_hmld[i][j]->Ygrad[t][v]  
     371/*M2_VALST  */ #define   YG_zdfmxl_hmld(v, i, j, t)              Yzdfmxl_hmld[i][j]->Ygrad[t][v]  
     372/*M2_VALSIT */ #define   YG1_zdfmxl_hmld(i, j, t)                Yzdfmxl_hmld[i][j]->Ygrad[t][0]  
     373/*M2_HERESIT*/ #define   YG1Y_zdfmxl_hmld                Yzdfmxl_hmld[Yi][Yj]->Ygrad[YTemps][0]  
     374zdfmxl_hmld              *Yzdfmxl_hmld[YA1_S3dt][YA2_S3dt]; 
    345375 
    346376//~~~~~~~~~~~~~~~~~~~~~~~~~ module zdfmxl_nmln_hmlp_hmlpt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    352382/*NBSMOD    */ #define   YNBS_zdfmxl_nmln_hmlp_hmlpt     3 
    353383/*NBIMOD    */ #define   YNBI_zdfmxl_nmln_hmlp_hmlpt     31 
    354 /*M2_VALST  */ #define   Ystate_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t)               Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][v]  
    355 /*M2_VALST  */ #define   YS_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t)           Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][v]  
    356 /*M2_VALSIT */ #define   YS1_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][0]  
    357 /*M2_HERESIT*/ #define   YS1Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt->Ystate[YTemps][Yi][Yj][0]  
    358 /*M2_VALSIT */ #define   YS2_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][1]  
    359 /*M2_HERESIT*/ #define   YS2Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt->Ystate[YTemps][Yi][Yj][1]  
    360 /*M2_VALSIT */ #define   YS3_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][2]  
    361 /*M2_HERESIT*/ #define   YS3Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt->Ystate[YTemps][Yi][Yj][2]  
    362 /*M2_VALST  */ #define   Ygrad_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t)                Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][v]  
    363 /*M2_VALST  */ #define   YG_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t)           Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][v]  
    364 /*M2_VALSIT */ #define   YG1_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][0]  
    365 /*M2_HERESIT*/ #define   YG1Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[YTemps][Yi][Yj][0]  
    366 /*M2_VALSIT */ #define   YG2_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][1]  
    367 /*M2_HERESIT*/ #define   YG2Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[YTemps][Yi][Yj][1]  
    368 /*M2_VALSIT */ #define   YG3_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][2]  
    369 /*M2_HERESIT*/ #define   YG3Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[YTemps][Yi][Yj][2]  
    370 zdfmxl_nmln_hmlp_hmlpt           *Yzdfmxl_nmln_hmlp_hmlpt; 
     384/*M2_IRMOD  */ #define   Yzdfmxl_nmln_hmlp_hmlpt(i, j)   Yzdfmxl_nmln_hmlp_hmlpt[i][j] 
     385/*M2_NOWMOD */ #define   Yzdfmxl_nmln_hmlp_hmlptY                Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj] 
     386/*M2_VALST  */ #define   Ystate_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t)               Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][v]  
     387/*M2_VALST  */ #define   YS_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t)           Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][v]  
     388/*M2_VALSIT */ #define   YS1_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][0]  
     389/*M2_HERESIT*/ #define   YS1Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ystate[YTemps][0]  
     390/*M2_VALSIT */ #define   YS2_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][1]  
     391/*M2_HERESIT*/ #define   YS2Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ystate[YTemps][1]  
     392/*M2_VALSIT */ #define   YS3_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][2]  
     393/*M2_HERESIT*/ #define   YS3Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ystate[YTemps][2]  
     394/*M2_VALST  */ #define   Ygrad_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t)                Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][v]  
     395/*M2_VALST  */ #define   YG_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t)           Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][v]  
     396/*M2_VALSIT */ #define   YG1_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][0]  
     397/*M2_HERESIT*/ #define   YG1Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ygrad[YTemps][0]  
     398/*M2_VALSIT */ #define   YG2_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][1]  
     399/*M2_HERESIT*/ #define   YG2Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ygrad[YTemps][1]  
     400/*M2_VALSIT */ #define   YG3_zdfmxl_nmln_hmlp_hmlpt(i, j, t)             Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][2]  
     401/*M2_HERESIT*/ #define   YG3Y_zdfmxl_nmln_hmlp_hmlpt             Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ygrad[YTemps][2]  
     402zdfmxl_nmln_hmlp_hmlpt           *Yzdfmxl_nmln_hmlp_hmlpt[YA1_S3dt][YA2_S3dt]; 
    371403 
    372404//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_sa_trasbc~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    378410/*NBSMOD    */ #define   YNBS_ta_sa_trasbc       2 
    379411/*NBIMOD    */ #define   YNBI_ta_sa_trasbc       3 
    380 /*M2_VALST  */ #define   Ystate_ta_sa_trasbc(v, i, j, t)                 Yta_sa_trasbc->Ystate[t][i][j][v]  
    381 /*M2_VALST  */ #define   YS_ta_sa_trasbc(v, i, j, t)             Yta_sa_trasbc->Ystate[t][i][j][v]  
    382 /*M2_VALSIT */ #define   YS1_ta_sa_trasbc(i, j, t)               Yta_sa_trasbc->Ystate[t][i][j][0]  
    383 /*M2_HERESIT*/ #define   YS1Y_ta_sa_trasbc               Yta_sa_trasbc->Ystate[YTemps][Yi][Yj][0]  
    384 /*M2_VALSIT */ #define   YS2_ta_sa_trasbc(i, j, t)               Yta_sa_trasbc->Ystate[t][i][j][1]  
    385 /*M2_HERESIT*/ #define   YS2Y_ta_sa_trasbc               Yta_sa_trasbc->Ystate[YTemps][Yi][Yj][1]  
    386 /*M2_VALST  */ #define   Ygrad_ta_sa_trasbc(v, i, j, t)                  Yta_sa_trasbc->Ygrad[t][i][j][v]  
    387 /*M2_VALST  */ #define   YG_ta_sa_trasbc(v, i, j, t)             Yta_sa_trasbc->Ygrad[t][i][j][v]  
    388 /*M2_VALSIT */ #define   YG1_ta_sa_trasbc(i, j, t)               Yta_sa_trasbc->Ygrad[t][i][j][0]  
    389 /*M2_HERESIT*/ #define   YG1Y_ta_sa_trasbc               Yta_sa_trasbc->Ygrad[YTemps][Yi][Yj][0]  
    390 /*M2_VALSIT */ #define   YG2_ta_sa_trasbc(i, j, t)               Yta_sa_trasbc->Ygrad[t][i][j][1]  
    391 /*M2_HERESIT*/ #define   YG2Y_ta_sa_trasbc               Yta_sa_trasbc->Ygrad[YTemps][Yi][Yj][1]  
    392 ta_sa_trasbc             *Yta_sa_trasbc; 
     412/*M2_IRMOD  */ #define   Yta_sa_trasbc(i, j)     Yta_sa_trasbc[i][j] 
     413/*M2_NOWMOD */ #define   Yta_sa_trasbcY                  Yta_sa_trasbc[Yi][Yj] 
     414/*M2_VALST  */ #define   Ystate_ta_sa_trasbc(v, i, j, t)                 Yta_sa_trasbc[i][j]->Ystate[t][v]  
     415/*M2_VALST  */ #define   YS_ta_sa_trasbc(v, i, j, t)             Yta_sa_trasbc[i][j]->Ystate[t][v]  
     416/*M2_VALSIT */ #define   YS1_ta_sa_trasbc(i, j, t)               Yta_sa_trasbc[i][j]->Ystate[t][0]  
     417/*M2_HERESIT*/ #define   YS1Y_ta_sa_trasbc               Yta_sa_trasbc[Yi][Yj]->Ystate[YTemps][0]  
     418/*M2_VALSIT */ #define   YS2_ta_sa_trasbc(i, j, t)               Yta_sa_trasbc[i][j]->Ystate[t][1]  
     419/*M2_HERESIT*/ #define   YS2Y_ta_sa_trasbc               Yta_sa_trasbc[Yi][Yj]->Ystate[YTemps][1]  
     420/*M2_VALST  */ #define   Ygrad_ta_sa_trasbc(v, i, j, t)                  Yta_sa_trasbc[i][j]->Ygrad[t][v]  
     421/*M2_VALST  */ #define   YG_ta_sa_trasbc(v, i, j, t)             Yta_sa_trasbc[i][j]->Ygrad[t][v]  
     422/*M2_VALSIT */ #define   YG1_ta_sa_trasbc(i, j, t)               Yta_sa_trasbc[i][j]->Ygrad[t][0]  
     423/*M2_HERESIT*/ #define   YG1Y_ta_sa_trasbc               Yta_sa_trasbc[Yi][Yj]->Ygrad[YTemps][0]  
     424/*M2_VALSIT */ #define   YG2_ta_sa_trasbc(i, j, t)               Yta_sa_trasbc[i][j]->Ygrad[t][1]  
     425/*M2_HERESIT*/ #define   YG2Y_ta_sa_trasbc               Yta_sa_trasbc[Yi][Yj]->Ygrad[YTemps][1]  
     426ta_sa_trasbc             *Yta_sa_trasbc[YA1_S3dt][YA2_S3dt]; 
    393427 
    394428//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_traqsr~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    399433/*NBSMOD    */ #define   YNBS_ta_traqsr          1 
    400434/*NBIMOD    */ #define   YNBI_ta_traqsr          2 
    401 /*M3_VALST  */ #define   Ystate_ta_traqsr(v, i, j, k, t)         Yta_traqsr->Ystate[t][i][j][k][v]  
    402 /*M3_VALST  */ #define   YS_ta_traqsr(v, i, j, k, t)             Yta_traqsr->Ystate[t][i][j][k][v]  
    403 /*M3_VALSIT */ #define   YS1_ta_traqsr(i, j, k, t)               Yta_traqsr->Ystate[t][i][j][k][0]  
    404 /*M3_HERESIT*/ #define   YS1Y_ta_traqsr                  Yta_traqsr->Ystate[YTemps][Yi][Yj][Yk][0]  
    405 /*M3_VALST  */ #define   Ygrad_ta_traqsr(v, i, j, k, t)          Yta_traqsr->Ygrad[t][i][j][k][v]  
    406 /*M3_VALST  */ #define   YG_ta_traqsr(v, i, j, k, t)             Yta_traqsr->Ygrad[t][i][j][k][v]  
    407 /*M3_VALSIT */ #define   YG1_ta_traqsr(i, j, k, t)               Yta_traqsr->Ygrad[t][i][j][k][0]  
    408 /*M3_HERESIT*/ #define   YG1Y_ta_traqsr                  Yta_traqsr->Ygrad[YTemps][Yi][Yj][Yk][0]  
    409 ta_traqsr                *Yta_traqsr; 
     435/*M3_IRMOD  */ #define   Yta_traqsr(i, j, k)     Yta_traqsr[i][j][k] 
     436/*M3_NOWMOD */ #define   Yta_traqsrY             Yta_traqsr[Yi][Yj][Yk] 
     437/*M3_VALST  */ #define   Ystate_ta_traqsr(v, i, j, k, t)         Yta_traqsr[i][j][k]->Ystate[t][v]  
     438/*M3_VALST  */ #define   YS_ta_traqsr(v, i, j, k, t)             Yta_traqsr[i][j][k]->Ystate[t][v]  
     439/*M3_VALSIT */ #define   YS1_ta_traqsr(i, j, k, t)               Yta_traqsr[i][j][k]->Ystate[t][0]  
     440/*M3_HERESIT*/ #define   YS1Y_ta_traqsr                  Yta_traqsr[Yi][Yj][Yk]->Ystate[YTemps][0]  
     441/*M3_VALST  */ #define   Ygrad_ta_traqsr(v, i, j, k, t)          Yta_traqsr[i][j][k]->Ygrad[t][v]  
     442/*M3_VALST  */ #define   YG_ta_traqsr(v, i, j, k, t)             Yta_traqsr[i][j][k]->Ygrad[t][v]  
     443/*M3_VALSIT */ #define   YG1_ta_traqsr(i, j, k, t)               Yta_traqsr[i][j][k]->Ygrad[t][0]  
     444/*M3_HERESIT*/ #define   YG1Y_ta_traqsr                  Yta_traqsr[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     445ta_traqsr                *Yta_traqsr[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    410446 
    411447//~~~~~~~~~~~~~~~~~~~~~~~~~ module zcent_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    416452/*NBSMOD    */ #define   YNBS_zcent_hor_traadv_cen2      2 
    417453/*NBIMOD    */ #define   YNBI_zcent_hor_traadv_cen2      5 
    418 /*M3_VALST  */ #define   Ystate_zcent_hor_traadv_cen2(v, i, j, k, t)     Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][v]  
    419 /*M3_VALST  */ #define   YS_zcent_hor_traadv_cen2(v, i, j, k, t)                 Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][v]  
    420 /*M3_VALSIT */ #define   YS1_zcent_hor_traadv_cen2(i, j, k, t)           Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][0]  
    421 /*M3_HERESIT*/ #define   YS1Y_zcent_hor_traadv_cen2              Yzcent_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0]  
    422 /*M3_VALSIT */ #define   YS2_zcent_hor_traadv_cen2(i, j, k, t)           Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][1]  
    423 /*M3_HERESIT*/ #define   YS2Y_zcent_hor_traadv_cen2              Yzcent_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1]  
    424 /*M3_VALST  */ #define   Ygrad_zcent_hor_traadv_cen2(v, i, j, k, t)      Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][v]  
    425 /*M3_VALST  */ #define   YG_zcent_hor_traadv_cen2(v, i, j, k, t)                 Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][v]  
    426 /*M3_VALSIT */ #define   YG1_zcent_hor_traadv_cen2(i, j, k, t)           Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][0]  
    427 /*M3_HERESIT*/ #define   YG1Y_zcent_hor_traadv_cen2              Yzcent_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    428 /*M3_VALSIT */ #define   YG2_zcent_hor_traadv_cen2(i, j, k, t)           Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][1]  
    429 /*M3_HERESIT*/ #define   YG2Y_zcent_hor_traadv_cen2              Yzcent_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1]  
    430 zcent_hor_traadv_cen2            *Yzcent_hor_traadv_cen2; 
     454/*M3_IRMOD  */ #define   Yzcent_hor_traadv_cen2(i, j, k)         Yzcent_hor_traadv_cen2[i][j][k] 
     455/*M3_NOWMOD */ #define   Yzcent_hor_traadv_cen2Y                 Yzcent_hor_traadv_cen2[Yi][Yj][Yk] 
     456/*M3_VALST  */ #define   Ystate_zcent_hor_traadv_cen2(v, i, j, k, t)     Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][v]  
     457/*M3_VALST  */ #define   YS_zcent_hor_traadv_cen2(v, i, j, k, t)                 Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][v]  
     458/*M3_VALSIT */ #define   YS1_zcent_hor_traadv_cen2(i, j, k, t)           Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][0]  
     459/*M3_HERESIT*/ #define   YS1Y_zcent_hor_traadv_cen2              Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     460/*M3_VALSIT */ #define   YS2_zcent_hor_traadv_cen2(i, j, k, t)           Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][1]  
     461/*M3_HERESIT*/ #define   YS2Y_zcent_hor_traadv_cen2              Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1]  
     462/*M3_VALST  */ #define   Ygrad_zcent_hor_traadv_cen2(v, i, j, k, t)      Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][v]  
     463/*M3_VALST  */ #define   YG_zcent_hor_traadv_cen2(v, i, j, k, t)                 Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][v]  
     464/*M3_VALSIT */ #define   YG1_zcent_hor_traadv_cen2(i, j, k, t)           Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][0]  
     465/*M3_HERESIT*/ #define   YG1Y_zcent_hor_traadv_cen2              Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     466/*M3_VALSIT */ #define   YG2_zcent_hor_traadv_cen2(i, j, k, t)           Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][1]  
     467/*M3_HERESIT*/ #define   YG2Y_zcent_hor_traadv_cen2              Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1]  
     468zcent_hor_traadv_cen2            *Yzcent_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    431469 
    432470//~~~~~~~~~~~~~~~~~~~~~~~~~ module zcens_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    435473/*NBSMOD    */ #define   YNBS_zcens_hor_traadv_cen2      2 
    436474/*NBIMOD    */ #define   YNBI_zcens_hor_traadv_cen2      5 
    437 /*M3_VALST  */ #define   Ystate_zcens_hor_traadv_cen2(v, i, j, k, t)     Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][v]  
    438 /*M3_VALST  */ #define   YS_zcens_hor_traadv_cen2(v, i, j, k, t)                 Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][v]  
    439 /*M3_VALSIT */ #define   YS1_zcens_hor_traadv_cen2(i, j, k, t)           Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][0]  
    440 /*M3_HERESIT*/ #define   YS1Y_zcens_hor_traadv_cen2              Yzcens_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0]  
    441 /*M3_VALSIT */ #define   YS2_zcens_hor_traadv_cen2(i, j, k, t)           Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][1]  
    442 /*M3_HERESIT*/ #define   YS2Y_zcens_hor_traadv_cen2              Yzcens_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1]  
    443 /*M3_VALST  */ #define   Ygrad_zcens_hor_traadv_cen2(v, i, j, k, t)      Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][v]  
    444 /*M3_VALST  */ #define   YG_zcens_hor_traadv_cen2(v, i, j, k, t)                 Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][v]  
    445 /*M3_VALSIT */ #define   YG1_zcens_hor_traadv_cen2(i, j, k, t)           Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][0]  
    446 /*M3_HERESIT*/ #define   YG1Y_zcens_hor_traadv_cen2              Yzcens_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    447 /*M3_VALSIT */ #define   YG2_zcens_hor_traadv_cen2(i, j, k, t)           Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][1]  
    448 /*M3_HERESIT*/ #define   YG2Y_zcens_hor_traadv_cen2              Yzcens_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1]  
    449 zcens_hor_traadv_cen2            *Yzcens_hor_traadv_cen2; 
     475/*M3_IRMOD  */ #define   Yzcens_hor_traadv_cen2(i, j, k)         Yzcens_hor_traadv_cen2[i][j][k] 
     476/*M3_NOWMOD */ #define   Yzcens_hor_traadv_cen2Y                 Yzcens_hor_traadv_cen2[Yi][Yj][Yk] 
     477/*M3_VALST  */ #define   Ystate_zcens_hor_traadv_cen2(v, i, j, k, t)     Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][v]  
     478/*M3_VALST  */ #define   YS_zcens_hor_traadv_cen2(v, i, j, k, t)                 Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][v]  
     479/*M3_VALSIT */ #define   YS1_zcens_hor_traadv_cen2(i, j, k, t)           Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][0]  
     480/*M3_HERESIT*/ #define   YS1Y_zcens_hor_traadv_cen2              Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     481/*M3_VALSIT */ #define   YS2_zcens_hor_traadv_cen2(i, j, k, t)           Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][1]  
     482/*M3_HERESIT*/ #define   YS2Y_zcens_hor_traadv_cen2              Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1]  
     483/*M3_VALST  */ #define   Ygrad_zcens_hor_traadv_cen2(v, i, j, k, t)      Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][v]  
     484/*M3_VALST  */ #define   YG_zcens_hor_traadv_cen2(v, i, j, k, t)                 Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][v]  
     485/*M3_VALSIT */ #define   YG1_zcens_hor_traadv_cen2(i, j, k, t)           Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][0]  
     486/*M3_HERESIT*/ #define   YG1Y_zcens_hor_traadv_cen2              Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     487/*M3_VALSIT */ #define   YG2_zcens_hor_traadv_cen2(i, j, k, t)           Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][1]  
     488/*M3_HERESIT*/ #define   YG2Y_zcens_hor_traadv_cen2              Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1]  
     489zcens_hor_traadv_cen2            *Yzcens_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    450490 
    451491//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    456496/*NBSMOD    */ #define   YNBS_ta_hor_traadv_cen2         1 
    457497/*NBIMOD    */ #define   YNBI_ta_hor_traadv_cen2         5 
    458 /*M3_VALST  */ #define   Ystate_ta_hor_traadv_cen2(v, i, j, k, t)        Yta_hor_traadv_cen2->Ystate[t][i][j][k][v]  
    459 /*M3_VALST  */ #define   YS_ta_hor_traadv_cen2(v, i, j, k, t)            Yta_hor_traadv_cen2->Ystate[t][i][j][k][v]  
    460 /*M3_VALSIT */ #define   YS1_ta_hor_traadv_cen2(i, j, k, t)              Yta_hor_traadv_cen2->Ystate[t][i][j][k][0]  
    461 /*M3_HERESIT*/ #define   YS1Y_ta_hor_traadv_cen2                 Yta_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0]  
    462 /*M3_VALST  */ #define   Ygrad_ta_hor_traadv_cen2(v, i, j, k, t)         Yta_hor_traadv_cen2->Ygrad[t][i][j][k][v]  
    463 /*M3_VALST  */ #define   YG_ta_hor_traadv_cen2(v, i, j, k, t)            Yta_hor_traadv_cen2->Ygrad[t][i][j][k][v]  
    464 /*M3_VALSIT */ #define   YG1_ta_hor_traadv_cen2(i, j, k, t)              Yta_hor_traadv_cen2->Ygrad[t][i][j][k][0]  
    465 /*M3_HERESIT*/ #define   YG1Y_ta_hor_traadv_cen2                 Yta_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    466 ta_hor_traadv_cen2               *Yta_hor_traadv_cen2; 
     498/*M3_IRMOD  */ #define   Yta_hor_traadv_cen2(i, j, k)    Yta_hor_traadv_cen2[i][j][k] 
     499/*M3_NOWMOD */ #define   Yta_hor_traadv_cen2Y            Yta_hor_traadv_cen2[Yi][Yj][Yk] 
     500/*M3_VALST  */ #define   Ystate_ta_hor_traadv_cen2(v, i, j, k, t)        Yta_hor_traadv_cen2[i][j][k]->Ystate[t][v]  
     501/*M3_VALST  */ #define   YS_ta_hor_traadv_cen2(v, i, j, k, t)            Yta_hor_traadv_cen2[i][j][k]->Ystate[t][v]  
     502/*M3_VALSIT */ #define   YS1_ta_hor_traadv_cen2(i, j, k, t)              Yta_hor_traadv_cen2[i][j][k]->Ystate[t][0]  
     503/*M3_HERESIT*/ #define   YS1Y_ta_hor_traadv_cen2                 Yta_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     504/*M3_VALST  */ #define   Ygrad_ta_hor_traadv_cen2(v, i, j, k, t)         Yta_hor_traadv_cen2[i][j][k]->Ygrad[t][v]  
     505/*M3_VALST  */ #define   YG_ta_hor_traadv_cen2(v, i, j, k, t)            Yta_hor_traadv_cen2[i][j][k]->Ygrad[t][v]  
     506/*M3_VALSIT */ #define   YG1_ta_hor_traadv_cen2(i, j, k, t)              Yta_hor_traadv_cen2[i][j][k]->Ygrad[t][0]  
     507/*M3_HERESIT*/ #define   YG1Y_ta_hor_traadv_cen2                 Yta_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     508ta_hor_traadv_cen2               *Yta_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    467509 
    468510//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    473515/*NBSMOD    */ #define   YNBS_sa_hor_traadv_cen2         1 
    474516/*NBIMOD    */ #define   YNBI_sa_hor_traadv_cen2         5 
    475 /*M3_VALST  */ #define   Ystate_sa_hor_traadv_cen2(v, i, j, k, t)        Ysa_hor_traadv_cen2->Ystate[t][i][j][k][v]  
    476 /*M3_VALST  */ #define   YS_sa_hor_traadv_cen2(v, i, j, k, t)            Ysa_hor_traadv_cen2->Ystate[t][i][j][k][v]  
    477 /*M3_VALSIT */ #define   YS1_sa_hor_traadv_cen2(i, j, k, t)              Ysa_hor_traadv_cen2->Ystate[t][i][j][k][0]  
    478 /*M3_HERESIT*/ #define   YS1Y_sa_hor_traadv_cen2                 Ysa_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0]  
    479 /*M3_VALST  */ #define   Ygrad_sa_hor_traadv_cen2(v, i, j, k, t)         Ysa_hor_traadv_cen2->Ygrad[t][i][j][k][v]  
    480 /*M3_VALST  */ #define   YG_sa_hor_traadv_cen2(v, i, j, k, t)            Ysa_hor_traadv_cen2->Ygrad[t][i][j][k][v]  
    481 /*M3_VALSIT */ #define   YG1_sa_hor_traadv_cen2(i, j, k, t)              Ysa_hor_traadv_cen2->Ygrad[t][i][j][k][0]  
    482 /*M3_HERESIT*/ #define   YG1Y_sa_hor_traadv_cen2                 Ysa_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    483 sa_hor_traadv_cen2               *Ysa_hor_traadv_cen2; 
     517/*M3_IRMOD  */ #define   Ysa_hor_traadv_cen2(i, j, k)    Ysa_hor_traadv_cen2[i][j][k] 
     518/*M3_NOWMOD */ #define   Ysa_hor_traadv_cen2Y            Ysa_hor_traadv_cen2[Yi][Yj][Yk] 
     519/*M3_VALST  */ #define   Ystate_sa_hor_traadv_cen2(v, i, j, k, t)        Ysa_hor_traadv_cen2[i][j][k]->Ystate[t][v]  
     520/*M3_VALST  */ #define   YS_sa_hor_traadv_cen2(v, i, j, k, t)            Ysa_hor_traadv_cen2[i][j][k]->Ystate[t][v]  
     521/*M3_VALSIT */ #define   YS1_sa_hor_traadv_cen2(i, j, k, t)              Ysa_hor_traadv_cen2[i][j][k]->Ystate[t][0]  
     522/*M3_HERESIT*/ #define   YS1Y_sa_hor_traadv_cen2                 Ysa_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     523/*M3_VALST  */ #define   Ygrad_sa_hor_traadv_cen2(v, i, j, k, t)         Ysa_hor_traadv_cen2[i][j][k]->Ygrad[t][v]  
     524/*M3_VALST  */ #define   YG_sa_hor_traadv_cen2(v, i, j, k, t)            Ysa_hor_traadv_cen2[i][j][k]->Ygrad[t][v]  
     525/*M3_VALSIT */ #define   YG1_sa_hor_traadv_cen2(i, j, k, t)              Ysa_hor_traadv_cen2[i][j][k]->Ygrad[t][0]  
     526/*M3_HERESIT*/ #define   YG1Y_sa_hor_traadv_cen2                 Ysa_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     527sa_hor_traadv_cen2               *Ysa_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    484528 
    485529//~~~~~~~~~~~~~~~~~~~~~~~~~ module zcent_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    490534/*NBSMOD    */ #define   YNBS_zcent_ver_traadv_cen2      1 
    491535/*NBIMOD    */ #define   YNBI_zcent_ver_traadv_cen2      3 
    492 /*M3_VALST  */ #define   Ystate_zcent_ver_traadv_cen2(v, i, j, k, t)     Yzcent_ver_traadv_cen2->Ystate[t][i][j][k][v]  
    493 /*M3_VALST  */ #define   YS_zcent_ver_traadv_cen2(v, i, j, k, t)                 Yzcent_ver_traadv_cen2->Ystate[t][i][j][k][v]  
    494 /*M3_VALSIT */ #define   YS1_zcent_ver_traadv_cen2(i, j, k, t)           Yzcent_ver_traadv_cen2->Ystate[t][i][j][k][0]  
    495 /*M3_HERESIT*/ #define   YS1Y_zcent_ver_traadv_cen2              Yzcent_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0]  
    496 /*M3_VALST  */ #define   Ygrad_zcent_ver_traadv_cen2(v, i, j, k, t)      Yzcent_ver_traadv_cen2->Ygrad[t][i][j][k][v]  
    497 /*M3_VALST  */ #define   YG_zcent_ver_traadv_cen2(v, i, j, k, t)                 Yzcent_ver_traadv_cen2->Ygrad[t][i][j][k][v]  
    498 /*M3_VALSIT */ #define   YG1_zcent_ver_traadv_cen2(i, j, k, t)           Yzcent_ver_traadv_cen2->Ygrad[t][i][j][k][0]  
    499 /*M3_HERESIT*/ #define   YG1Y_zcent_ver_traadv_cen2              Yzcent_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    500 zcent_ver_traadv_cen2            *Yzcent_ver_traadv_cen2; 
     536/*M3_IRMOD  */ #define   Yzcent_ver_traadv_cen2(i, j, k)         Yzcent_ver_traadv_cen2[i][j][k] 
     537/*M3_NOWMOD */ #define   Yzcent_ver_traadv_cen2Y                 Yzcent_ver_traadv_cen2[Yi][Yj][Yk] 
     538/*M3_VALST  */ #define   Ystate_zcent_ver_traadv_cen2(v, i, j, k, t)     Yzcent_ver_traadv_cen2[i][j][k]->Ystate[t][v]  
     539/*M3_VALST  */ #define   YS_zcent_ver_traadv_cen2(v, i, j, k, t)                 Yzcent_ver_traadv_cen2[i][j][k]->Ystate[t][v]  
     540/*M3_VALSIT */ #define   YS1_zcent_ver_traadv_cen2(i, j, k, t)           Yzcent_ver_traadv_cen2[i][j][k]->Ystate[t][0]  
     541/*M3_HERESIT*/ #define   YS1Y_zcent_ver_traadv_cen2              Yzcent_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     542/*M3_VALST  */ #define   Ygrad_zcent_ver_traadv_cen2(v, i, j, k, t)      Yzcent_ver_traadv_cen2[i][j][k]->Ygrad[t][v]  
     543/*M3_VALST  */ #define   YG_zcent_ver_traadv_cen2(v, i, j, k, t)                 Yzcent_ver_traadv_cen2[i][j][k]->Ygrad[t][v]  
     544/*M3_VALSIT */ #define   YG1_zcent_ver_traadv_cen2(i, j, k, t)           Yzcent_ver_traadv_cen2[i][j][k]->Ygrad[t][0]  
     545/*M3_HERESIT*/ #define   YG1Y_zcent_ver_traadv_cen2              Yzcent_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     546zcent_ver_traadv_cen2            *Yzcent_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    501547 
    502548//~~~~~~~~~~~~~~~~~~~~~~~~~ module zcens_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    505551/*NBSMOD    */ #define   YNBS_zcens_ver_traadv_cen2      1 
    506552/*NBIMOD    */ #define   YNBI_zcens_ver_traadv_cen2      3 
    507 /*M3_VALST  */ #define   Ystate_zcens_ver_traadv_cen2(v, i, j, k, t)     Yzcens_ver_traadv_cen2->Ystate[t][i][j][k][v]  
    508 /*M3_VALST  */ #define   YS_zcens_ver_traadv_cen2(v, i, j, k, t)                 Yzcens_ver_traadv_cen2->Ystate[t][i][j][k][v]  
    509 /*M3_VALSIT */ #define   YS1_zcens_ver_traadv_cen2(i, j, k, t)           Yzcens_ver_traadv_cen2->Ystate[t][i][j][k][0]  
    510 /*M3_HERESIT*/ #define   YS1Y_zcens_ver_traadv_cen2              Yzcens_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0]  
    511 /*M3_VALST  */ #define   Ygrad_zcens_ver_traadv_cen2(v, i, j, k, t)      Yzcens_ver_traadv_cen2->Ygrad[t][i][j][k][v]  
    512 /*M3_VALST  */ #define   YG_zcens_ver_traadv_cen2(v, i, j, k, t)                 Yzcens_ver_traadv_cen2->Ygrad[t][i][j][k][v]  
    513 /*M3_VALSIT */ #define   YG1_zcens_ver_traadv_cen2(i, j, k, t)           Yzcens_ver_traadv_cen2->Ygrad[t][i][j][k][0]  
    514 /*M3_HERESIT*/ #define   YG1Y_zcens_ver_traadv_cen2              Yzcens_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    515 zcens_ver_traadv_cen2            *Yzcens_ver_traadv_cen2; 
     553/*M3_IRMOD  */ #define   Yzcens_ver_traadv_cen2(i, j, k)         Yzcens_ver_traadv_cen2[i][j][k] 
     554/*M3_NOWMOD */ #define   Yzcens_ver_traadv_cen2Y                 Yzcens_ver_traadv_cen2[Yi][Yj][Yk] 
     555/*M3_VALST  */ #define   Ystate_zcens_ver_traadv_cen2(v, i, j, k, t)     Yzcens_ver_traadv_cen2[i][j][k]->Ystate[t][v]  
     556/*M3_VALST  */ #define   YS_zcens_ver_traadv_cen2(v, i, j, k, t)                 Yzcens_ver_traadv_cen2[i][j][k]->Ystate[t][v]  
     557/*M3_VALSIT */ #define   YS1_zcens_ver_traadv_cen2(i, j, k, t)           Yzcens_ver_traadv_cen2[i][j][k]->Ystate[t][0]  
     558/*M3_HERESIT*/ #define   YS1Y_zcens_ver_traadv_cen2              Yzcens_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     559/*M3_VALST  */ #define   Ygrad_zcens_ver_traadv_cen2(v, i, j, k, t)      Yzcens_ver_traadv_cen2[i][j][k]->Ygrad[t][v]  
     560/*M3_VALST  */ #define   YG_zcens_ver_traadv_cen2(v, i, j, k, t)                 Yzcens_ver_traadv_cen2[i][j][k]->Ygrad[t][v]  
     561/*M3_VALSIT */ #define   YG1_zcens_ver_traadv_cen2(i, j, k, t)           Yzcens_ver_traadv_cen2[i][j][k]->Ygrad[t][0]  
     562/*M3_HERESIT*/ #define   YG1Y_zcens_ver_traadv_cen2              Yzcens_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     563zcens_ver_traadv_cen2            *Yzcens_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    516564 
    517565//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    522570/*NBSMOD    */ #define   YNBS_ta_ver_traadv_cen2         1 
    523571/*NBIMOD    */ #define   YNBI_ta_ver_traadv_cen2         3 
    524 /*M3_VALST  */ #define   Ystate_ta_ver_traadv_cen2(v, i, j, k, t)        Yta_ver_traadv_cen2->Ystate[t][i][j][k][v]  
    525 /*M3_VALST  */ #define   YS_ta_ver_traadv_cen2(v, i, j, k, t)            Yta_ver_traadv_cen2->Ystate[t][i][j][k][v]  
    526 /*M3_VALSIT */ #define   YS1_ta_ver_traadv_cen2(i, j, k, t)              Yta_ver_traadv_cen2->Ystate[t][i][j][k][0]  
    527 /*M3_HERESIT*/ #define   YS1Y_ta_ver_traadv_cen2                 Yta_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0]  
    528 /*M3_VALST  */ #define   Ygrad_ta_ver_traadv_cen2(v, i, j, k, t)         Yta_ver_traadv_cen2->Ygrad[t][i][j][k][v]  
    529 /*M3_VALST  */ #define   YG_ta_ver_traadv_cen2(v, i, j, k, t)            Yta_ver_traadv_cen2->Ygrad[t][i][j][k][v]  
    530 /*M3_VALSIT */ #define   YG1_ta_ver_traadv_cen2(i, j, k, t)              Yta_ver_traadv_cen2->Ygrad[t][i][j][k][0]  
    531 /*M3_HERESIT*/ #define   YG1Y_ta_ver_traadv_cen2                 Yta_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    532 ta_ver_traadv_cen2               *Yta_ver_traadv_cen2; 
     572/*M3_IRMOD  */ #define   Yta_ver_traadv_cen2(i, j, k)    Yta_ver_traadv_cen2[i][j][k] 
     573/*M3_NOWMOD */ #define   Yta_ver_traadv_cen2Y            Yta_ver_traadv_cen2[Yi][Yj][Yk] 
     574/*M3_VALST  */ #define   Ystate_ta_ver_traadv_cen2(v, i, j, k, t)        Yta_ver_traadv_cen2[i][j][k]->Ystate[t][v]  
     575/*M3_VALST  */ #define   YS_ta_ver_traadv_cen2(v, i, j, k, t)            Yta_ver_traadv_cen2[i][j][k]->Ystate[t][v]  
     576/*M3_VALSIT */ #define   YS1_ta_ver_traadv_cen2(i, j, k, t)              Yta_ver_traadv_cen2[i][j][k]->Ystate[t][0]  
     577/*M3_HERESIT*/ #define   YS1Y_ta_ver_traadv_cen2                 Yta_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     578/*M3_VALST  */ #define   Ygrad_ta_ver_traadv_cen2(v, i, j, k, t)         Yta_ver_traadv_cen2[i][j][k]->Ygrad[t][v]  
     579/*M3_VALST  */ #define   YG_ta_ver_traadv_cen2(v, i, j, k, t)            Yta_ver_traadv_cen2[i][j][k]->Ygrad[t][v]  
     580/*M3_VALSIT */ #define   YG1_ta_ver_traadv_cen2(i, j, k, t)              Yta_ver_traadv_cen2[i][j][k]->Ygrad[t][0]  
     581/*M3_HERESIT*/ #define   YG1Y_ta_ver_traadv_cen2                 Yta_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     582ta_ver_traadv_cen2               *Yta_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    533583 
    534584//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    537587/*NBSMOD    */ #define   YNBS_sa_ver_traadv_cen2         1 
    538588/*NBIMOD    */ #define   YNBI_sa_ver_traadv_cen2         3 
    539 /*M3_VALST  */ #define   Ystate_sa_ver_traadv_cen2(v, i, j, k, t)        Ysa_ver_traadv_cen2->Ystate[t][i][j][k][v]  
    540 /*M3_VALST  */ #define   YS_sa_ver_traadv_cen2(v, i, j, k, t)            Ysa_ver_traadv_cen2->Ystate[t][i][j][k][v]  
    541 /*M3_VALSIT */ #define   YS1_sa_ver_traadv_cen2(i, j, k, t)              Ysa_ver_traadv_cen2->Ystate[t][i][j][k][0]  
    542 /*M3_HERESIT*/ #define   YS1Y_sa_ver_traadv_cen2                 Ysa_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0]  
    543 /*M3_VALST  */ #define   Ygrad_sa_ver_traadv_cen2(v, i, j, k, t)         Ysa_ver_traadv_cen2->Ygrad[t][i][j][k][v]  
    544 /*M3_VALST  */ #define   YG_sa_ver_traadv_cen2(v, i, j, k, t)            Ysa_ver_traadv_cen2->Ygrad[t][i][j][k][v]  
    545 /*M3_VALSIT */ #define   YG1_sa_ver_traadv_cen2(i, j, k, t)              Ysa_ver_traadv_cen2->Ygrad[t][i][j][k][0]  
    546 /*M3_HERESIT*/ #define   YG1Y_sa_ver_traadv_cen2                 Ysa_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    547 sa_ver_traadv_cen2               *Ysa_ver_traadv_cen2; 
     589/*M3_IRMOD  */ #define   Ysa_ver_traadv_cen2(i, j, k)    Ysa_ver_traadv_cen2[i][j][k] 
     590/*M3_NOWMOD */ #define   Ysa_ver_traadv_cen2Y            Ysa_ver_traadv_cen2[Yi][Yj][Yk] 
     591/*M3_VALST  */ #define   Ystate_sa_ver_traadv_cen2(v, i, j, k, t)        Ysa_ver_traadv_cen2[i][j][k]->Ystate[t][v]  
     592/*M3_VALST  */ #define   YS_sa_ver_traadv_cen2(v, i, j, k, t)            Ysa_ver_traadv_cen2[i][j][k]->Ystate[t][v]  
     593/*M3_VALSIT */ #define   YS1_sa_ver_traadv_cen2(i, j, k, t)              Ysa_ver_traadv_cen2[i][j][k]->Ystate[t][0]  
     594/*M3_HERESIT*/ #define   YS1Y_sa_ver_traadv_cen2                 Ysa_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     595/*M3_VALST  */ #define   Ygrad_sa_ver_traadv_cen2(v, i, j, k, t)         Ysa_ver_traadv_cen2[i][j][k]->Ygrad[t][v]  
     596/*M3_VALST  */ #define   YG_sa_ver_traadv_cen2(v, i, j, k, t)            Ysa_ver_traadv_cen2[i][j][k]->Ygrad[t][v]  
     597/*M3_VALSIT */ #define   YG1_sa_ver_traadv_cen2(i, j, k, t)              Ysa_ver_traadv_cen2[i][j][k]->Ygrad[t][0]  
     598/*M3_HERESIT*/ #define   YG1Y_sa_ver_traadv_cen2                 Ysa_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     599sa_ver_traadv_cen2               *Ysa_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    548600 
    549601//~~~~~~~~~~~~~~~~~~~~~~~~~ module ztuv_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    554606/*NBSMOD    */ #define   YNBS_ztuv_traldf_lap    2 
    555607/*NBIMOD    */ #define   YNBI_ztuv_traldf_lap    3 
    556 /*M3_VALST  */ #define   Ystate_ztuv_traldf_lap(v, i, j, k, t)   Yztuv_traldf_lap->Ystate[t][i][j][k][v]  
    557 /*M3_VALST  */ #define   YS_ztuv_traldf_lap(v, i, j, k, t)               Yztuv_traldf_lap->Ystate[t][i][j][k][v]  
    558 /*M3_VALSIT */ #define   YS1_ztuv_traldf_lap(i, j, k, t)                 Yztuv_traldf_lap->Ystate[t][i][j][k][0]  
    559 /*M3_HERESIT*/ #define   YS1Y_ztuv_traldf_lap            Yztuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0]  
    560 /*M3_VALSIT */ #define   YS2_ztuv_traldf_lap(i, j, k, t)                 Yztuv_traldf_lap->Ystate[t][i][j][k][1]  
    561 /*M3_HERESIT*/ #define   YS2Y_ztuv_traldf_lap            Yztuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][1]  
    562 /*M3_VALST  */ #define   Ygrad_ztuv_traldf_lap(v, i, j, k, t)    Yztuv_traldf_lap->Ygrad[t][i][j][k][v]  
    563 /*M3_VALST  */ #define   YG_ztuv_traldf_lap(v, i, j, k, t)               Yztuv_traldf_lap->Ygrad[t][i][j][k][v]  
    564 /*M3_VALSIT */ #define   YG1_ztuv_traldf_lap(i, j, k, t)                 Yztuv_traldf_lap->Ygrad[t][i][j][k][0]  
    565 /*M3_HERESIT*/ #define   YG1Y_ztuv_traldf_lap            Yztuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0]  
    566 /*M3_VALSIT */ #define   YG2_ztuv_traldf_lap(i, j, k, t)                 Yztuv_traldf_lap->Ygrad[t][i][j][k][1]  
    567 /*M3_HERESIT*/ #define   YG2Y_ztuv_traldf_lap            Yztuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][1]  
    568 ztuv_traldf_lap                  *Yztuv_traldf_lap; 
     608/*M3_IRMOD  */ #define   Yztuv_traldf_lap(i, j, k)       Yztuv_traldf_lap[i][j][k] 
     609/*M3_NOWMOD */ #define   Yztuv_traldf_lapY               Yztuv_traldf_lap[Yi][Yj][Yk] 
     610/*M3_VALST  */ #define   Ystate_ztuv_traldf_lap(v, i, j, k, t)   Yztuv_traldf_lap[i][j][k]->Ystate[t][v]  
     611/*M3_VALST  */ #define   YS_ztuv_traldf_lap(v, i, j, k, t)               Yztuv_traldf_lap[i][j][k]->Ystate[t][v]  
     612/*M3_VALSIT */ #define   YS1_ztuv_traldf_lap(i, j, k, t)                 Yztuv_traldf_lap[i][j][k]->Ystate[t][0]  
     613/*M3_HERESIT*/ #define   YS1Y_ztuv_traldf_lap            Yztuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0]  
     614/*M3_VALSIT */ #define   YS2_ztuv_traldf_lap(i, j, k, t)                 Yztuv_traldf_lap[i][j][k]->Ystate[t][1]  
     615/*M3_HERESIT*/ #define   YS2Y_ztuv_traldf_lap            Yztuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][1]  
     616/*M3_VALST  */ #define   Ygrad_ztuv_traldf_lap(v, i, j, k, t)    Yztuv_traldf_lap[i][j][k]->Ygrad[t][v]  
     617/*M3_VALST  */ #define   YG_ztuv_traldf_lap(v, i, j, k, t)               Yztuv_traldf_lap[i][j][k]->Ygrad[t][v]  
     618/*M3_VALSIT */ #define   YG1_ztuv_traldf_lap(i, j, k, t)                 Yztuv_traldf_lap[i][j][k]->Ygrad[t][0]  
     619/*M3_HERESIT*/ #define   YG1Y_ztuv_traldf_lap            Yztuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     620/*M3_VALSIT */ #define   YG2_ztuv_traldf_lap(i, j, k, t)                 Yztuv_traldf_lap[i][j][k]->Ygrad[t][1]  
     621/*M3_HERESIT*/ #define   YG2Y_ztuv_traldf_lap            Yztuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][1]  
     622ztuv_traldf_lap                  *Yztuv_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    569623 
    570624//~~~~~~~~~~~~~~~~~~~~~~~~~ module zsuv_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    573627/*NBSMOD    */ #define   YNBS_zsuv_traldf_lap    2 
    574628/*NBIMOD    */ #define   YNBI_zsuv_traldf_lap    3 
    575 /*M3_VALST  */ #define   Ystate_zsuv_traldf_lap(v, i, j, k, t)   Yzsuv_traldf_lap->Ystate[t][i][j][k][v]  
    576 /*M3_VALST  */ #define   YS_zsuv_traldf_lap(v, i, j, k, t)               Yzsuv_traldf_lap->Ystate[t][i][j][k][v]  
    577 /*M3_VALSIT */ #define   YS1_zsuv_traldf_lap(i, j, k, t)                 Yzsuv_traldf_lap->Ystate[t][i][j][k][0]  
    578 /*M3_HERESIT*/ #define   YS1Y_zsuv_traldf_lap            Yzsuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0]  
    579 /*M3_VALSIT */ #define   YS2_zsuv_traldf_lap(i, j, k, t)                 Yzsuv_traldf_lap->Ystate[t][i][j][k][1]  
    580 /*M3_HERESIT*/ #define   YS2Y_zsuv_traldf_lap            Yzsuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][1]  
    581 /*M3_VALST  */ #define   Ygrad_zsuv_traldf_lap(v, i, j, k, t)    Yzsuv_traldf_lap->Ygrad[t][i][j][k][v]  
    582 /*M3_VALST  */ #define   YG_zsuv_traldf_lap(v, i, j, k, t)               Yzsuv_traldf_lap->Ygrad[t][i][j][k][v]  
    583 /*M3_VALSIT */ #define   YG1_zsuv_traldf_lap(i, j, k, t)                 Yzsuv_traldf_lap->Ygrad[t][i][j][k][0]  
    584 /*M3_HERESIT*/ #define   YG1Y_zsuv_traldf_lap            Yzsuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0]  
    585 /*M3_VALSIT */ #define   YG2_zsuv_traldf_lap(i, j, k, t)                 Yzsuv_traldf_lap->Ygrad[t][i][j][k][1]  
    586 /*M3_HERESIT*/ #define   YG2Y_zsuv_traldf_lap            Yzsuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][1]  
    587 zsuv_traldf_lap                  *Yzsuv_traldf_lap; 
     629/*M3_IRMOD  */ #define   Yzsuv_traldf_lap(i, j, k)       Yzsuv_traldf_lap[i][j][k] 
     630/*M3_NOWMOD */ #define   Yzsuv_traldf_lapY               Yzsuv_traldf_lap[Yi][Yj][Yk] 
     631/*M3_VALST  */ #define   Ystate_zsuv_traldf_lap(v, i, j, k, t)   Yzsuv_traldf_lap[i][j][k]->Ystate[t][v]  
     632/*M3_VALST  */ #define   YS_zsuv_traldf_lap(v, i, j, k, t)               Yzsuv_traldf_lap[i][j][k]->Ystate[t][v]  
     633/*M3_VALSIT */ #define   YS1_zsuv_traldf_lap(i, j, k, t)                 Yzsuv_traldf_lap[i][j][k]->Ystate[t][0]  
     634/*M3_HERESIT*/ #define   YS1Y_zsuv_traldf_lap            Yzsuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0]  
     635/*M3_VALSIT */ #define   YS2_zsuv_traldf_lap(i, j, k, t)                 Yzsuv_traldf_lap[i][j][k]->Ystate[t][1]  
     636/*M3_HERESIT*/ #define   YS2Y_zsuv_traldf_lap            Yzsuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][1]  
     637/*M3_VALST  */ #define   Ygrad_zsuv_traldf_lap(v, i, j, k, t)    Yzsuv_traldf_lap[i][j][k]->Ygrad[t][v]  
     638/*M3_VALST  */ #define   YG_zsuv_traldf_lap(v, i, j, k, t)               Yzsuv_traldf_lap[i][j][k]->Ygrad[t][v]  
     639/*M3_VALSIT */ #define   YG1_zsuv_traldf_lap(i, j, k, t)                 Yzsuv_traldf_lap[i][j][k]->Ygrad[t][0]  
     640/*M3_HERESIT*/ #define   YG1Y_zsuv_traldf_lap            Yzsuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     641/*M3_VALSIT */ #define   YG2_zsuv_traldf_lap(i, j, k, t)                 Yzsuv_traldf_lap[i][j][k]->Ygrad[t][1]  
     642/*M3_HERESIT*/ #define   YG2Y_zsuv_traldf_lap            Yzsuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][1]  
     643zsuv_traldf_lap                  *Yzsuv_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    588644 
    589645//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    594650/*NBSMOD    */ #define   YNBS_ta_traldf_lap      1 
    595651/*NBIMOD    */ #define   YNBI_ta_traldf_lap      5 
    596 /*M3_VALST  */ #define   Ystate_ta_traldf_lap(v, i, j, k, t)     Yta_traldf_lap->Ystate[t][i][j][k][v]  
    597 /*M3_VALST  */ #define   YS_ta_traldf_lap(v, i, j, k, t)                 Yta_traldf_lap->Ystate[t][i][j][k][v]  
    598 /*M3_VALSIT */ #define   YS1_ta_traldf_lap(i, j, k, t)           Yta_traldf_lap->Ystate[t][i][j][k][0]  
    599 /*M3_HERESIT*/ #define   YS1Y_ta_traldf_lap              Yta_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0]  
    600 /*M3_VALST  */ #define   Ygrad_ta_traldf_lap(v, i, j, k, t)      Yta_traldf_lap->Ygrad[t][i][j][k][v]  
    601 /*M3_VALST  */ #define   YG_ta_traldf_lap(v, i, j, k, t)                 Yta_traldf_lap->Ygrad[t][i][j][k][v]  
    602 /*M3_VALSIT */ #define   YG1_ta_traldf_lap(i, j, k, t)           Yta_traldf_lap->Ygrad[t][i][j][k][0]  
    603 /*M3_HERESIT*/ #define   YG1Y_ta_traldf_lap              Yta_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0]  
    604 ta_traldf_lap            *Yta_traldf_lap; 
     652/*M3_IRMOD  */ #define   Yta_traldf_lap(i, j, k)         Yta_traldf_lap[i][j][k] 
     653/*M3_NOWMOD */ #define   Yta_traldf_lapY                 Yta_traldf_lap[Yi][Yj][Yk] 
     654/*M3_VALST  */ #define   Ystate_ta_traldf_lap(v, i, j, k, t)     Yta_traldf_lap[i][j][k]->Ystate[t][v]  
     655/*M3_VALST  */ #define   YS_ta_traldf_lap(v, i, j, k, t)                 Yta_traldf_lap[i][j][k]->Ystate[t][v]  
     656/*M3_VALSIT */ #define   YS1_ta_traldf_lap(i, j, k, t)           Yta_traldf_lap[i][j][k]->Ystate[t][0]  
     657/*M3_HERESIT*/ #define   YS1Y_ta_traldf_lap              Yta_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0]  
     658/*M3_VALST  */ #define   Ygrad_ta_traldf_lap(v, i, j, k, t)      Yta_traldf_lap[i][j][k]->Ygrad[t][v]  
     659/*M3_VALST  */ #define   YG_ta_traldf_lap(v, i, j, k, t)                 Yta_traldf_lap[i][j][k]->Ygrad[t][v]  
     660/*M3_VALSIT */ #define   YG1_ta_traldf_lap(i, j, k, t)           Yta_traldf_lap[i][j][k]->Ygrad[t][0]  
     661/*M3_HERESIT*/ #define   YG1Y_ta_traldf_lap              Yta_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     662ta_traldf_lap            *Yta_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    605663 
    606664//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    609667/*NBSMOD    */ #define   YNBS_sa_traldf_lap      1 
    610668/*NBIMOD    */ #define   YNBI_sa_traldf_lap      5 
    611 /*M3_VALST  */ #define   Ystate_sa_traldf_lap(v, i, j, k, t)     Ysa_traldf_lap->Ystate[t][i][j][k][v]  
    612 /*M3_VALST  */ #define   YS_sa_traldf_lap(v, i, j, k, t)                 Ysa_traldf_lap->Ystate[t][i][j][k][v]  
    613 /*M3_VALSIT */ #define   YS1_sa_traldf_lap(i, j, k, t)           Ysa_traldf_lap->Ystate[t][i][j][k][0]  
    614 /*M3_HERESIT*/ #define   YS1Y_sa_traldf_lap              Ysa_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0]  
    615 /*M3_VALST  */ #define   Ygrad_sa_traldf_lap(v, i, j, k, t)      Ysa_traldf_lap->Ygrad[t][i][j][k][v]  
    616 /*M3_VALST  */ #define   YG_sa_traldf_lap(v, i, j, k, t)                 Ysa_traldf_lap->Ygrad[t][i][j][k][v]  
    617 /*M3_VALSIT */ #define   YG1_sa_traldf_lap(i, j, k, t)           Ysa_traldf_lap->Ygrad[t][i][j][k][0]  
    618 /*M3_HERESIT*/ #define   YG1Y_sa_traldf_lap              Ysa_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0]  
    619 sa_traldf_lap            *Ysa_traldf_lap; 
     669/*M3_IRMOD  */ #define   Ysa_traldf_lap(i, j, k)         Ysa_traldf_lap[i][j][k] 
     670/*M3_NOWMOD */ #define   Ysa_traldf_lapY                 Ysa_traldf_lap[Yi][Yj][Yk] 
     671/*M3_VALST  */ #define   Ystate_sa_traldf_lap(v, i, j, k, t)     Ysa_traldf_lap[i][j][k]->Ystate[t][v]  
     672/*M3_VALST  */ #define   YS_sa_traldf_lap(v, i, j, k, t)                 Ysa_traldf_lap[i][j][k]->Ystate[t][v]  
     673/*M3_VALSIT */ #define   YS1_sa_traldf_lap(i, j, k, t)           Ysa_traldf_lap[i][j][k]->Ystate[t][0]  
     674/*M3_HERESIT*/ #define   YS1Y_sa_traldf_lap              Ysa_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0]  
     675/*M3_VALST  */ #define   Ygrad_sa_traldf_lap(v, i, j, k, t)      Ysa_traldf_lap[i][j][k]->Ygrad[t][v]  
     676/*M3_VALST  */ #define   YG_sa_traldf_lap(v, i, j, k, t)                 Ysa_traldf_lap[i][j][k]->Ygrad[t][v]  
     677/*M3_VALSIT */ #define   YG1_sa_traldf_lap(i, j, k, t)           Ysa_traldf_lap[i][j][k]->Ygrad[t][0]  
     678/*M3_HERESIT*/ #define   YG1Y_sa_traldf_lap              Ysa_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     679sa_traldf_lap            *Ysa_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    620680 
    621681//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    626686/*NBSMOD    */ #define   YNBS_zwisd_trazdf_imp   3 
    627687/*NBIMOD    */ #define   YNBI_zwisd_trazdf_imp   2 
    628 /*M3_VALST  */ #define   Ystate_zwisd_trazdf_imp(v, i, j, k, t)          Yzwisd_trazdf_imp->Ystate[t][i][j][k][v]  
    629 /*M3_VALST  */ #define   YS_zwisd_trazdf_imp(v, i, j, k, t)              Yzwisd_trazdf_imp->Ystate[t][i][j][k][v]  
    630 /*M3_VALSIT */ #define   YS1_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp->Ystate[t][i][j][k][0]  
    631 /*M3_HERESIT*/ #define   YS1Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    632 /*M3_VALSIT */ #define   YS2_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp->Ystate[t][i][j][k][1]  
    633 /*M3_HERESIT*/ #define   YS2Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][1]  
    634 /*M3_VALSIT */ #define   YS3_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp->Ystate[t][i][j][k][2]  
    635 /*M3_HERESIT*/ #define   YS3Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][2]  
    636 /*M3_VALST  */ #define   Ygrad_zwisd_trazdf_imp(v, i, j, k, t)   Yzwisd_trazdf_imp->Ygrad[t][i][j][k][v]  
    637 /*M3_VALST  */ #define   YG_zwisd_trazdf_imp(v, i, j, k, t)              Yzwisd_trazdf_imp->Ygrad[t][i][j][k][v]  
    638 /*M3_VALSIT */ #define   YG1_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp->Ygrad[t][i][j][k][0]  
    639 /*M3_HERESIT*/ #define   YG1Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    640 /*M3_VALSIT */ #define   YG2_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp->Ygrad[t][i][j][k][1]  
    641 /*M3_HERESIT*/ #define   YG2Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][1]  
    642 /*M3_VALSIT */ #define   YG3_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp->Ygrad[t][i][j][k][2]  
    643 /*M3_HERESIT*/ #define   YG3Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][2]  
    644 zwisd_trazdf_imp                 *Yzwisd_trazdf_imp; 
     688/*M3_IRMOD  */ #define   Yzwisd_trazdf_imp(i, j, k)      Yzwisd_trazdf_imp[i][j][k] 
     689/*M3_NOWMOD */ #define   Yzwisd_trazdf_impY              Yzwisd_trazdf_imp[Yi][Yj][Yk] 
     690/*M3_VALST  */ #define   Ystate_zwisd_trazdf_imp(v, i, j, k, t)          Yzwisd_trazdf_imp[i][j][k]->Ystate[t][v]  
     691/*M3_VALST  */ #define   YS_zwisd_trazdf_imp(v, i, j, k, t)              Yzwisd_trazdf_imp[i][j][k]->Ystate[t][v]  
     692/*M3_VALSIT */ #define   YS1_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ystate[t][0]  
     693/*M3_HERESIT*/ #define   YS1Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     694/*M3_VALSIT */ #define   YS2_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ystate[t][1]  
     695/*M3_HERESIT*/ #define   YS2Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][1]  
     696/*M3_VALSIT */ #define   YS3_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ystate[t][2]  
     697/*M3_HERESIT*/ #define   YS3Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][2]  
     698/*M3_VALST  */ #define   Ygrad_zwisd_trazdf_imp(v, i, j, k, t)   Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][v]  
     699/*M3_VALST  */ #define   YG_zwisd_trazdf_imp(v, i, j, k, t)              Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][v]  
     700/*M3_VALSIT */ #define   YG1_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][0]  
     701/*M3_HERESIT*/ #define   YG1Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     702/*M3_VALSIT */ #define   YG2_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][1]  
     703/*M3_HERESIT*/ #define   YG2Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][1]  
     704/*M3_VALSIT */ #define   YG3_zwisd_trazdf_imp(i, j, k, t)                Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][2]  
     705/*M3_HERESIT*/ #define   YG3Y_zwisd_trazdf_imp           Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][2]  
     706zwisd_trazdf_imp                 *Yzwisd_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    645707 
    646708//~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    651713/*NBSMOD    */ #define   YNBS_zrhs_trazdf_imp    1 
    652714/*NBIMOD    */ #define   YNBI_zrhs_trazdf_imp    2 
    653 /*M3_VALST  */ #define   Ystate_zrhs_trazdf_imp(v, i, j, k, t)   Yzrhs_trazdf_imp->Ystate[t][i][j][k][v]  
    654 /*M3_VALST  */ #define   YS_zrhs_trazdf_imp(v, i, j, k, t)               Yzrhs_trazdf_imp->Ystate[t][i][j][k][v]  
    655 /*M3_VALSIT */ #define   YS1_zrhs_trazdf_imp(i, j, k, t)                 Yzrhs_trazdf_imp->Ystate[t][i][j][k][0]  
    656 /*M3_HERESIT*/ #define   YS1Y_zrhs_trazdf_imp            Yzrhs_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    657 /*M3_VALST  */ #define   Ygrad_zrhs_trazdf_imp(v, i, j, k, t)    Yzrhs_trazdf_imp->Ygrad[t][i][j][k][v]  
    658 /*M3_VALST  */ #define   YG_zrhs_trazdf_imp(v, i, j, k, t)               Yzrhs_trazdf_imp->Ygrad[t][i][j][k][v]  
    659 /*M3_VALSIT */ #define   YG1_zrhs_trazdf_imp(i, j, k, t)                 Yzrhs_trazdf_imp->Ygrad[t][i][j][k][0]  
    660 /*M3_HERESIT*/ #define   YG1Y_zrhs_trazdf_imp            Yzrhs_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    661 zrhs_trazdf_imp                  *Yzrhs_trazdf_imp; 
     715/*M3_IRMOD  */ #define   Yzrhs_trazdf_imp(i, j, k)       Yzrhs_trazdf_imp[i][j][k] 
     716/*M3_NOWMOD */ #define   Yzrhs_trazdf_impY               Yzrhs_trazdf_imp[Yi][Yj][Yk] 
     717/*M3_VALST  */ #define   Ystate_zrhs_trazdf_imp(v, i, j, k, t)   Yzrhs_trazdf_imp[i][j][k]->Ystate[t][v]  
     718/*M3_VALST  */ #define   YS_zrhs_trazdf_imp(v, i, j, k, t)               Yzrhs_trazdf_imp[i][j][k]->Ystate[t][v]  
     719/*M3_VALSIT */ #define   YS1_zrhs_trazdf_imp(i, j, k, t)                 Yzrhs_trazdf_imp[i][j][k]->Ystate[t][0]  
     720/*M3_HERESIT*/ #define   YS1Y_zrhs_trazdf_imp            Yzrhs_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     721/*M3_VALST  */ #define   Ygrad_zrhs_trazdf_imp(v, i, j, k, t)    Yzrhs_trazdf_imp[i][j][k]->Ygrad[t][v]  
     722/*M3_VALST  */ #define   YG_zrhs_trazdf_imp(v, i, j, k, t)               Yzrhs_trazdf_imp[i][j][k]->Ygrad[t][v]  
     723/*M3_VALSIT */ #define   YG1_zrhs_trazdf_imp(i, j, k, t)                 Yzrhs_trazdf_imp[i][j][k]->Ygrad[t][0]  
     724/*M3_HERESIT*/ #define   YG1Y_zrhs_trazdf_imp            Yzrhs_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     725zrhs_trazdf_imp                  *Yzrhs_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    662726 
    663727//~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_sa_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    666730/*NBSMOD    */ #define   YNBS_zrhs_sa_trazdf_imp         1 
    667731/*NBIMOD    */ #define   YNBI_zrhs_sa_trazdf_imp         2 
    668 /*M3_VALST  */ #define   Ystate_zrhs_sa_trazdf_imp(v, i, j, k, t)        Yzrhs_sa_trazdf_imp->Ystate[t][i][j][k][v]  
    669 /*M3_VALST  */ #define   YS_zrhs_sa_trazdf_imp(v, i, j, k, t)            Yzrhs_sa_trazdf_imp->Ystate[t][i][j][k][v]  
    670 /*M3_VALSIT */ #define   YS1_zrhs_sa_trazdf_imp(i, j, k, t)              Yzrhs_sa_trazdf_imp->Ystate[t][i][j][k][0]  
    671 /*M3_HERESIT*/ #define   YS1Y_zrhs_sa_trazdf_imp                 Yzrhs_sa_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    672 /*M3_VALST  */ #define   Ygrad_zrhs_sa_trazdf_imp(v, i, j, k, t)         Yzrhs_sa_trazdf_imp->Ygrad[t][i][j][k][v]  
    673 /*M3_VALST  */ #define   YG_zrhs_sa_trazdf_imp(v, i, j, k, t)            Yzrhs_sa_trazdf_imp->Ygrad[t][i][j][k][v]  
    674 /*M3_VALSIT */ #define   YG1_zrhs_sa_trazdf_imp(i, j, k, t)              Yzrhs_sa_trazdf_imp->Ygrad[t][i][j][k][0]  
    675 /*M3_HERESIT*/ #define   YG1Y_zrhs_sa_trazdf_imp                 Yzrhs_sa_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    676 zrhs_sa_trazdf_imp               *Yzrhs_sa_trazdf_imp; 
     732/*M3_IRMOD  */ #define   Yzrhs_sa_trazdf_imp(i, j, k)    Yzrhs_sa_trazdf_imp[i][j][k] 
     733/*M3_NOWMOD */ #define   Yzrhs_sa_trazdf_impY            Yzrhs_sa_trazdf_imp[Yi][Yj][Yk] 
     734/*M3_VALST  */ #define   Ystate_zrhs_sa_trazdf_imp(v, i, j, k, t)        Yzrhs_sa_trazdf_imp[i][j][k]->Ystate[t][v]  
     735/*M3_VALST  */ #define   YS_zrhs_sa_trazdf_imp(v, i, j, k, t)            Yzrhs_sa_trazdf_imp[i][j][k]->Ystate[t][v]  
     736/*M3_VALSIT */ #define   YS1_zrhs_sa_trazdf_imp(i, j, k, t)              Yzrhs_sa_trazdf_imp[i][j][k]->Ystate[t][0]  
     737/*M3_HERESIT*/ #define   YS1Y_zrhs_sa_trazdf_imp                 Yzrhs_sa_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     738/*M3_VALST  */ #define   Ygrad_zrhs_sa_trazdf_imp(v, i, j, k, t)         Yzrhs_sa_trazdf_imp[i][j][k]->Ygrad[t][v]  
     739/*M3_VALST  */ #define   YG_zrhs_sa_trazdf_imp(v, i, j, k, t)            Yzrhs_sa_trazdf_imp[i][j][k]->Ygrad[t][v]  
     740/*M3_VALSIT */ #define   YG1_zrhs_sa_trazdf_imp(i, j, k, t)              Yzrhs_sa_trazdf_imp[i][j][k]->Ygrad[t][0]  
     741/*M3_HERESIT*/ #define   YG1Y_zrhs_sa_trazdf_imp                 Yzrhs_sa_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     742zrhs_sa_trazdf_imp               *Yzrhs_sa_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    677743 
    678744//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    683749/*NBSMOD    */ #define   YNBS_zwt_trazdf_imp     1 
    684750/*NBIMOD    */ #define   YNBI_zwt_trazdf_imp     4 
    685 /*M3_VALST  */ #define   Ystate_zwt_trazdf_imp(v, i, j, k, t)    Yzwt_trazdf_imp->Ystate[t][i][j][k][v]  
    686 /*M3_VALST  */ #define   YS_zwt_trazdf_imp(v, i, j, k, t)                Yzwt_trazdf_imp->Ystate[t][i][j][k][v]  
    687 /*M3_VALSIT */ #define   YS1_zwt_trazdf_imp(i, j, k, t)                  Yzwt_trazdf_imp->Ystate[t][i][j][k][0]  
    688 /*M3_HERESIT*/ #define   YS1Y_zwt_trazdf_imp             Yzwt_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    689 /*M3_VALST  */ #define   Ygrad_zwt_trazdf_imp(v, i, j, k, t)     Yzwt_trazdf_imp->Ygrad[t][i][j][k][v]  
    690 /*M3_VALST  */ #define   YG_zwt_trazdf_imp(v, i, j, k, t)                Yzwt_trazdf_imp->Ygrad[t][i][j][k][v]  
    691 /*M3_VALSIT */ #define   YG1_zwt_trazdf_imp(i, j, k, t)                  Yzwt_trazdf_imp->Ygrad[t][i][j][k][0]  
    692 /*M3_HERESIT*/ #define   YG1Y_zwt_trazdf_imp             Yzwt_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    693 zwt_trazdf_imp           *Yzwt_trazdf_imp; 
     751/*M3_IRMOD  */ #define   Yzwt_trazdf_imp(i, j, k)        Yzwt_trazdf_imp[i][j][k] 
     752/*M3_NOWMOD */ #define   Yzwt_trazdf_impY                Yzwt_trazdf_imp[Yi][Yj][Yk] 
     753/*M3_VALST  */ #define   Ystate_zwt_trazdf_imp(v, i, j, k, t)    Yzwt_trazdf_imp[i][j][k]->Ystate[t][v]  
     754/*M3_VALST  */ #define   YS_zwt_trazdf_imp(v, i, j, k, t)                Yzwt_trazdf_imp[i][j][k]->Ystate[t][v]  
     755/*M3_VALSIT */ #define   YS1_zwt_trazdf_imp(i, j, k, t)                  Yzwt_trazdf_imp[i][j][k]->Ystate[t][0]  
     756/*M3_HERESIT*/ #define   YS1Y_zwt_trazdf_imp             Yzwt_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     757/*M3_VALST  */ #define   Ygrad_zwt_trazdf_imp(v, i, j, k, t)     Yzwt_trazdf_imp[i][j][k]->Ygrad[t][v]  
     758/*M3_VALST  */ #define   YG_zwt_trazdf_imp(v, i, j, k, t)                Yzwt_trazdf_imp[i][j][k]->Ygrad[t][v]  
     759/*M3_VALSIT */ #define   YG1_zwt_trazdf_imp(i, j, k, t)                  Yzwt_trazdf_imp[i][j][k]->Ygrad[t][0]  
     760/*M3_HERESIT*/ #define   YG1Y_zwt_trazdf_imp             Yzwt_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     761zwt_trazdf_imp           *Yzwt_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    694762 
    695763//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_de_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    698766/*NBSMOD    */ #define   YNBS_ta_de_trazdf_imp   1 
    699767/*NBIMOD    */ #define   YNBI_ta_de_trazdf_imp   4 
    700 /*M3_VALST  */ #define   Ystate_ta_de_trazdf_imp(v, i, j, k, t)          Yta_de_trazdf_imp->Ystate[t][i][j][k][v]  
    701 /*M3_VALST  */ #define   YS_ta_de_trazdf_imp(v, i, j, k, t)              Yta_de_trazdf_imp->Ystate[t][i][j][k][v]  
    702 /*M3_VALSIT */ #define   YS1_ta_de_trazdf_imp(i, j, k, t)                Yta_de_trazdf_imp->Ystate[t][i][j][k][0]  
    703 /*M3_HERESIT*/ #define   YS1Y_ta_de_trazdf_imp           Yta_de_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    704 /*M3_VALST  */ #define   Ygrad_ta_de_trazdf_imp(v, i, j, k, t)   Yta_de_trazdf_imp->Ygrad[t][i][j][k][v]  
    705 /*M3_VALST  */ #define   YG_ta_de_trazdf_imp(v, i, j, k, t)              Yta_de_trazdf_imp->Ygrad[t][i][j][k][v]  
    706 /*M3_VALSIT */ #define   YG1_ta_de_trazdf_imp(i, j, k, t)                Yta_de_trazdf_imp->Ygrad[t][i][j][k][0]  
    707 /*M3_HERESIT*/ #define   YG1Y_ta_de_trazdf_imp           Yta_de_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    708 ta_de_trazdf_imp                 *Yta_de_trazdf_imp; 
     768/*M3_IRMOD  */ #define   Yta_de_trazdf_imp(i, j, k)      Yta_de_trazdf_imp[i][j][k] 
     769/*M3_NOWMOD */ #define   Yta_de_trazdf_impY              Yta_de_trazdf_imp[Yi][Yj][Yk] 
     770/*M3_VALST  */ #define   Ystate_ta_de_trazdf_imp(v, i, j, k, t)          Yta_de_trazdf_imp[i][j][k]->Ystate[t][v]  
     771/*M3_VALST  */ #define   YS_ta_de_trazdf_imp(v, i, j, k, t)              Yta_de_trazdf_imp[i][j][k]->Ystate[t][v]  
     772/*M3_VALSIT */ #define   YS1_ta_de_trazdf_imp(i, j, k, t)                Yta_de_trazdf_imp[i][j][k]->Ystate[t][0]  
     773/*M3_HERESIT*/ #define   YS1Y_ta_de_trazdf_imp           Yta_de_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     774/*M3_VALST  */ #define   Ygrad_ta_de_trazdf_imp(v, i, j, k, t)   Yta_de_trazdf_imp[i][j][k]->Ygrad[t][v]  
     775/*M3_VALST  */ #define   YG_ta_de_trazdf_imp(v, i, j, k, t)              Yta_de_trazdf_imp[i][j][k]->Ygrad[t][v]  
     776/*M3_VALSIT */ #define   YG1_ta_de_trazdf_imp(i, j, k, t)                Yta_de_trazdf_imp[i][j][k]->Ygrad[t][0]  
     777/*M3_HERESIT*/ #define   YG1Y_ta_de_trazdf_imp           Yta_de_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     778ta_de_trazdf_imp                 *Yta_de_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    709779 
    710780//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    715785/*NBSMOD    */ #define   YNBS_ta         1 
    716786/*NBIMOD    */ #define   YNBI_ta         5 
    717 /*M3_VALST  */ #define   Ystate_ta(v, i, j, k, t)        Yta->Ystate[t][i][j][k][v]  
    718 /*M3_VALST  */ #define   YS_ta(v, i, j, k, t)            Yta->Ystate[t][i][j][k][v]  
    719 /*M3_VALSIT */ #define   YS1_ta(i, j, k, t)              Yta->Ystate[t][i][j][k][0]  
    720 /*M3_HERESIT*/ #define   YS1Y_ta                 Yta->Ystate[YTemps][Yi][Yj][Yk][0]  
    721 /*M3_VALST  */ #define   Ygrad_ta(v, i, j, k, t)         Yta->Ygrad[t][i][j][k][v]  
    722 /*M3_VALST  */ #define   YG_ta(v, i, j, k, t)            Yta->Ygrad[t][i][j][k][v]  
    723 /*M3_VALSIT */ #define   YG1_ta(i, j, k, t)              Yta->Ygrad[t][i][j][k][0]  
    724 /*M3_HERESIT*/ #define   YG1Y_ta                 Yta->Ygrad[YTemps][Yi][Yj][Yk][0]  
    725 ta               *Yta; 
     787/*M3_IRMOD  */ #define   Yta(i, j, k)    Yta[i][j][k] 
     788/*M3_NOWMOD */ #define   YtaY            Yta[Yi][Yj][Yk] 
     789/*M3_VALST  */ #define   Ystate_ta(v, i, j, k, t)        Yta[i][j][k]->Ystate[t][v]  
     790/*M3_VALST  */ #define   YS_ta(v, i, j, k, t)            Yta[i][j][k]->Ystate[t][v]  
     791/*M3_VALSIT */ #define   YS1_ta(i, j, k, t)              Yta[i][j][k]->Ystate[t][0]  
     792/*M3_HERESIT*/ #define   YS1Y_ta                 Yta[Yi][Yj][Yk]->Ystate[YTemps][0]  
     793/*M3_VALST  */ #define   Ygrad_ta(v, i, j, k, t)         Yta[i][j][k]->Ygrad[t][v]  
     794/*M3_VALST  */ #define   YG_ta(v, i, j, k, t)            Yta[i][j][k]->Ygrad[t][v]  
     795/*M3_VALSIT */ #define   YG1_ta(i, j, k, t)              Yta[i][j][k]->Ygrad[t][0]  
     796/*M3_HERESIT*/ #define   YG1Y_ta                 Yta[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     797ta               *Yta[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    726798 
    727799//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_de_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    730802/*NBSMOD    */ #define   YNBS_sa_de_trazdf_imp   1 
    731803/*NBIMOD    */ #define   YNBI_sa_de_trazdf_imp   4 
    732 /*M3_VALST  */ #define   Ystate_sa_de_trazdf_imp(v, i, j, k, t)          Ysa_de_trazdf_imp->Ystate[t][i][j][k][v]  
    733 /*M3_VALST  */ #define   YS_sa_de_trazdf_imp(v, i, j, k, t)              Ysa_de_trazdf_imp->Ystate[t][i][j][k][v]  
    734 /*M3_VALSIT */ #define   YS1_sa_de_trazdf_imp(i, j, k, t)                Ysa_de_trazdf_imp->Ystate[t][i][j][k][0]  
    735 /*M3_HERESIT*/ #define   YS1Y_sa_de_trazdf_imp           Ysa_de_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    736 /*M3_VALST  */ #define   Ygrad_sa_de_trazdf_imp(v, i, j, k, t)   Ysa_de_trazdf_imp->Ygrad[t][i][j][k][v]  
    737 /*M3_VALST  */ #define   YG_sa_de_trazdf_imp(v, i, j, k, t)              Ysa_de_trazdf_imp->Ygrad[t][i][j][k][v]  
    738 /*M3_VALSIT */ #define   YG1_sa_de_trazdf_imp(i, j, k, t)                Ysa_de_trazdf_imp->Ygrad[t][i][j][k][0]  
    739 /*M3_HERESIT*/ #define   YG1Y_sa_de_trazdf_imp           Ysa_de_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    740 sa_de_trazdf_imp                 *Ysa_de_trazdf_imp; 
     804/*M3_IRMOD  */ #define   Ysa_de_trazdf_imp(i, j, k)      Ysa_de_trazdf_imp[i][j][k] 
     805/*M3_NOWMOD */ #define   Ysa_de_trazdf_impY              Ysa_de_trazdf_imp[Yi][Yj][Yk] 
     806/*M3_VALST  */ #define   Ystate_sa_de_trazdf_imp(v, i, j, k, t)          Ysa_de_trazdf_imp[i][j][k]->Ystate[t][v]  
     807/*M3_VALST  */ #define   YS_sa_de_trazdf_imp(v, i, j, k, t)              Ysa_de_trazdf_imp[i][j][k]->Ystate[t][v]  
     808/*M3_VALSIT */ #define   YS1_sa_de_trazdf_imp(i, j, k, t)                Ysa_de_trazdf_imp[i][j][k]->Ystate[t][0]  
     809/*M3_HERESIT*/ #define   YS1Y_sa_de_trazdf_imp           Ysa_de_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     810/*M3_VALST  */ #define   Ygrad_sa_de_trazdf_imp(v, i, j, k, t)   Ysa_de_trazdf_imp[i][j][k]->Ygrad[t][v]  
     811/*M3_VALST  */ #define   YG_sa_de_trazdf_imp(v, i, j, k, t)              Ysa_de_trazdf_imp[i][j][k]->Ygrad[t][v]  
     812/*M3_VALSIT */ #define   YG1_sa_de_trazdf_imp(i, j, k, t)                Ysa_de_trazdf_imp[i][j][k]->Ygrad[t][0]  
     813/*M3_HERESIT*/ #define   YG1Y_sa_de_trazdf_imp           Ysa_de_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     814sa_de_trazdf_imp                 *Ysa_de_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    741815 
    742816//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    747821/*NBSMOD    */ #define   YNBS_sa         1 
    748822/*NBIMOD    */ #define   YNBI_sa         5 
    749 /*M3_VALST  */ #define   Ystate_sa(v, i, j, k, t)        Ysa->Ystate[t][i][j][k][v]  
    750 /*M3_VALST  */ #define   YS_sa(v, i, j, k, t)            Ysa->Ystate[t][i][j][k][v]  
    751 /*M3_VALSIT */ #define   YS1_sa(i, j, k, t)              Ysa->Ystate[t][i][j][k][0]  
    752 /*M3_HERESIT*/ #define   YS1Y_sa                 Ysa->Ystate[YTemps][Yi][Yj][Yk][0]  
    753 /*M3_VALST  */ #define   Ygrad_sa(v, i, j, k, t)         Ysa->Ygrad[t][i][j][k][v]  
    754 /*M3_VALST  */ #define   YG_sa(v, i, j, k, t)            Ysa->Ygrad[t][i][j][k][v]  
    755 /*M3_VALSIT */ #define   YG1_sa(i, j, k, t)              Ysa->Ygrad[t][i][j][k][0]  
    756 /*M3_HERESIT*/ #define   YG1Y_sa                 Ysa->Ygrad[YTemps][Yi][Yj][Yk][0]  
    757 sa               *Ysa; 
     823/*M3_IRMOD  */ #define   Ysa(i, j, k)    Ysa[i][j][k] 
     824/*M3_NOWMOD */ #define   YsaY            Ysa[Yi][Yj][Yk] 
     825/*M3_VALST  */ #define   Ystate_sa(v, i, j, k, t)        Ysa[i][j][k]->Ystate[t][v]  
     826/*M3_VALST  */ #define   YS_sa(v, i, j, k, t)            Ysa[i][j][k]->Ystate[t][v]  
     827/*M3_VALSIT */ #define   YS1_sa(i, j, k, t)              Ysa[i][j][k]->Ystate[t][0]  
     828/*M3_HERESIT*/ #define   YS1Y_sa                 Ysa[Yi][Yj][Yk]->Ystate[YTemps][0]  
     829/*M3_VALST  */ #define   Ygrad_sa(v, i, j, k, t)         Ysa[i][j][k]->Ygrad[t][v]  
     830/*M3_VALST  */ #define   YG_sa(v, i, j, k, t)            Ysa[i][j][k]->Ygrad[t][v]  
     831/*M3_VALSIT */ #define   YG1_sa(i, j, k, t)              Ysa[i][j][k]->Ygrad[t][0]  
     832/*M3_HERESIT*/ #define   YG1Y_sa                 Ysa[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     833sa               *Ysa[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    758834 
    759835//~~~~~~~~~~~~~~~~~~~~~~~~~ module tb~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    764840/*NBSMOD    */ #define   YNBS_tb         1 
    765841/*NBIMOD    */ #define   YNBI_tb         4 
    766 /*M3_VALST  */ #define   Ystate_tb(v, i, j, k, t)        Ytb->Ystate[t][i][j][k][v]  
    767 /*M3_VALST  */ #define   YS_tb(v, i, j, k, t)            Ytb->Ystate[t][i][j][k][v]  
    768 /*M3_VALSIT */ #define   YS1_tb(i, j, k, t)              Ytb->Ystate[t][i][j][k][0]  
    769 /*M3_HERESIT*/ #define   YS1Y_tb                 Ytb->Ystate[YTemps][Yi][Yj][Yk][0]  
    770 /*M3_VALST  */ #define   Ygrad_tb(v, i, j, k, t)         Ytb->Ygrad[t][i][j][k][v]  
    771 /*M3_VALST  */ #define   YG_tb(v, i, j, k, t)            Ytb->Ygrad[t][i][j][k][v]  
    772 /*M3_VALSIT */ #define   YG1_tb(i, j, k, t)              Ytb->Ygrad[t][i][j][k][0]  
    773 /*M3_HERESIT*/ #define   YG1Y_tb                 Ytb->Ygrad[YTemps][Yi][Yj][Yk][0]  
    774 tb               *Ytb; 
    775 /*M3_VALSG  */ #define   Ywish_tb(v, i, j, k)    Ytb->Ywish[i][j][k][v]  
    776 /*M3_VALSG  */ #define   YW_tb(v, i, j, k)               Ytb->Ywish[i][j][k][v]  
    777 /*M3_VALSGI */ #define   YW1_tb(i, j, k)                 Ytb->Ywish[i][j][k][0]  
    778 /*M3_HERESGI*/ #define   YW1Y_tb                 Ytb->Ywish[Yi][Yj][Yk][0]  
     842/*M3_IRMOD  */ #define   Ytb(i, j, k)    Ytb[i][j][k] 
     843/*M3_NOWMOD */ #define   YtbY            Ytb[Yi][Yj][Yk] 
     844/*M3_VALST  */ #define   Ystate_tb(v, i, j, k, t)        Ytb[i][j][k]->Ystate[t][v]  
     845/*M3_VALST  */ #define   YS_tb(v, i, j, k, t)            Ytb[i][j][k]->Ystate[t][v]  
     846/*M3_VALSIT */ #define   YS1_tb(i, j, k, t)              Ytb[i][j][k]->Ystate[t][0]  
     847/*M3_HERESIT*/ #define   YS1Y_tb                 Ytb[Yi][Yj][Yk]->Ystate[YTemps][0]  
     848/*M3_VALST  */ #define   Ygrad_tb(v, i, j, k, t)         Ytb[i][j][k]->Ygrad[t][v]  
     849/*M3_VALST  */ #define   YG_tb(v, i, j, k, t)            Ytb[i][j][k]->Ygrad[t][v]  
     850/*M3_VALSIT */ #define   YG1_tb(i, j, k, t)              Ytb[i][j][k]->Ygrad[t][0]  
     851/*M3_HERESIT*/ #define   YG1Y_tb                 Ytb[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     852tb               *Ytb[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     853/*M3_VALSG  */ #define   Ywish_tb(v, i, j, k)    Ytb[i][j][k]->Ywish[v]  
     854/*M3_VALSG  */ #define   YW_tb(v, i, j, k)               Ytb[i][j][k]->Ywish[v]  
     855/*M3_VALSGI */ #define   YW1_tb(i, j, k)                 Ytb[i][j][k]->Ywish[0]  
     856/*M3_HERESGI*/ #define   YW1Y_tb                 Ytb[Yi][Yj][Yk]->Ywish[0]  
    779857 
    780858//~~~~~~~~~~~~~~~~~~~~~~~~~ module sb~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    785863/*NBSMOD    */ #define   YNBS_sb         1 
    786864/*NBIMOD    */ #define   YNBI_sb         4 
    787 /*M3_VALST  */ #define   Ystate_sb(v, i, j, k, t)        Ysb->Ystate[t][i][j][k][v]  
    788 /*M3_VALST  */ #define   YS_sb(v, i, j, k, t)            Ysb->Ystate[t][i][j][k][v]  
    789 /*M3_VALSIT */ #define   YS1_sb(i, j, k, t)              Ysb->Ystate[t][i][j][k][0]  
    790 /*M3_HERESIT*/ #define   YS1Y_sb                 Ysb->Ystate[YTemps][Yi][Yj][Yk][0]  
    791 /*M3_VALST  */ #define   Ygrad_sb(v, i, j, k, t)         Ysb->Ygrad[t][i][j][k][v]  
    792 /*M3_VALST  */ #define   YG_sb(v, i, j, k, t)            Ysb->Ygrad[t][i][j][k][v]  
    793 /*M3_VALSIT */ #define   YG1_sb(i, j, k, t)              Ysb->Ygrad[t][i][j][k][0]  
    794 /*M3_HERESIT*/ #define   YG1Y_sb                 Ysb->Ygrad[YTemps][Yi][Yj][Yk][0]  
    795 sb               *Ysb; 
    796 /*M3_VALSG  */ #define   Ywish_sb(v, i, j, k)    Ysb->Ywish[i][j][k][v]  
    797 /*M3_VALSG  */ #define   YW_sb(v, i, j, k)               Ysb->Ywish[i][j][k][v]  
    798 /*M3_VALSGI */ #define   YW1_sb(i, j, k)                 Ysb->Ywish[i][j][k][0]  
    799 /*M3_HERESGI*/ #define   YW1Y_sb                 Ysb->Ywish[Yi][Yj][Yk][0]  
     865/*M3_IRMOD  */ #define   Ysb(i, j, k)    Ysb[i][j][k] 
     866/*M3_NOWMOD */ #define   YsbY            Ysb[Yi][Yj][Yk] 
     867/*M3_VALST  */ #define   Ystate_sb(v, i, j, k, t)        Ysb[i][j][k]->Ystate[t][v]  
     868/*M3_VALST  */ #define   YS_sb(v, i, j, k, t)            Ysb[i][j][k]->Ystate[t][v]  
     869/*M3_VALSIT */ #define   YS1_sb(i, j, k, t)              Ysb[i][j][k]->Ystate[t][0]  
     870/*M3_HERESIT*/ #define   YS1Y_sb                 Ysb[Yi][Yj][Yk]->Ystate[YTemps][0]  
     871/*M3_VALST  */ #define   Ygrad_sb(v, i, j, k, t)         Ysb[i][j][k]->Ygrad[t][v]  
     872/*M3_VALST  */ #define   YG_sb(v, i, j, k, t)            Ysb[i][j][k]->Ygrad[t][v]  
     873/*M3_VALSIT */ #define   YG1_sb(i, j, k, t)              Ysb[i][j][k]->Ygrad[t][0]  
     874/*M3_HERESIT*/ #define   YG1Y_sb                 Ysb[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     875sb               *Ysb[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     876/*M3_VALSG  */ #define   Ywish_sb(v, i, j, k)    Ysb[i][j][k]->Ywish[v]  
     877/*M3_VALSG  */ #define   YW_sb(v, i, j, k)               Ysb[i][j][k]->Ywish[v]  
     878/*M3_VALSGI */ #define   YW1_sb(i, j, k)                 Ysb[i][j][k]->Ywish[0]  
     879/*M3_HERESGI*/ #define   YW1Y_sb                 Ysb[Yi][Yj][Yk]->Ywish[0]  
    800880 
    801881//~~~~~~~~~~~~~~~~~~~~~~~~~ module rhd~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    806886/*NBSMOD    */ #define   YNBS_rhd        1 
    807887/*NBIMOD    */ #define   YNBI_rhd        2 
    808 /*M3_VALST  */ #define   Ystate_rhd(v, i, j, k, t)       Yrhd->Ystate[t][i][j][k][v]  
    809 /*M3_VALST  */ #define   YS_rhd(v, i, j, k, t)           Yrhd->Ystate[t][i][j][k][v]  
    810 /*M3_VALSIT */ #define   YS1_rhd(i, j, k, t)             Yrhd->Ystate[t][i][j][k][0]  
    811 /*M3_HERESIT*/ #define   YS1Y_rhd                Yrhd->Ystate[YTemps][Yi][Yj][Yk][0]  
    812 /*M3_VALST  */ #define   Ygrad_rhd(v, i, j, k, t)        Yrhd->Ygrad[t][i][j][k][v]  
    813 /*M3_VALST  */ #define   YG_rhd(v, i, j, k, t)           Yrhd->Ygrad[t][i][j][k][v]  
    814 /*M3_VALSIT */ #define   YG1_rhd(i, j, k, t)             Yrhd->Ygrad[t][i][j][k][0]  
    815 /*M3_HERESIT*/ #define   YG1Y_rhd                Yrhd->Ygrad[YTemps][Yi][Yj][Yk][0]  
    816 rhd              *Yrhd; 
     888/*M3_IRMOD  */ #define   Yrhd(i, j, k)   Yrhd[i][j][k] 
     889/*M3_NOWMOD */ #define   YrhdY           Yrhd[Yi][Yj][Yk] 
     890/*M3_VALST  */ #define   Ystate_rhd(v, i, j, k, t)       Yrhd[i][j][k]->Ystate[t][v]  
     891/*M3_VALST  */ #define   YS_rhd(v, i, j, k, t)           Yrhd[i][j][k]->Ystate[t][v]  
     892/*M3_VALSIT */ #define   YS1_rhd(i, j, k, t)             Yrhd[i][j][k]->Ystate[t][0]  
     893/*M3_HERESIT*/ #define   YS1Y_rhd                Yrhd[Yi][Yj][Yk]->Ystate[YTemps][0]  
     894/*M3_VALST  */ #define   Ygrad_rhd(v, i, j, k, t)        Yrhd[i][j][k]->Ygrad[t][v]  
     895/*M3_VALST  */ #define   YG_rhd(v, i, j, k, t)           Yrhd[i][j][k]->Ygrad[t][v]  
     896/*M3_VALSIT */ #define   YG1_rhd(i, j, k, t)             Yrhd[i][j][k]->Ygrad[t][0]  
     897/*M3_HERESIT*/ #define   YG1Y_rhd                Yrhd[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     898rhd              *Yrhd[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    817899 
    818900//~~~~~~~~~~~~~~~~~~~~~~~~~ module rhop~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    823905/*NBSMOD    */ #define   YNBS_rhop       1 
    824906/*NBIMOD    */ #define   YNBI_rhop       1 
    825 /*M3_VALST  */ #define   Ystate_rhop(v, i, j, k, t)      Yrhop->Ystate[t][i][j][k][v]  
    826 /*M3_VALST  */ #define   YS_rhop(v, i, j, k, t)                  Yrhop->Ystate[t][i][j][k][v]  
    827 /*M3_VALSIT */ #define   YS1_rhop(i, j, k, t)            Yrhop->Ystate[t][i][j][k][0]  
    828 /*M3_HERESIT*/ #define   YS1Y_rhop               Yrhop->Ystate[YTemps][Yi][Yj][Yk][0]  
    829 /*M3_VALST  */ #define   Ygrad_rhop(v, i, j, k, t)       Yrhop->Ygrad[t][i][j][k][v]  
    830 /*M3_VALST  */ #define   YG_rhop(v, i, j, k, t)                  Yrhop->Ygrad[t][i][j][k][v]  
    831 /*M3_VALSIT */ #define   YG1_rhop(i, j, k, t)            Yrhop->Ygrad[t][i][j][k][0]  
    832 /*M3_HERESIT*/ #define   YG1Y_rhop               Yrhop->Ygrad[YTemps][Yi][Yj][Yk][0]  
    833 rhop             *Yrhop; 
     907/*M3_IRMOD  */ #define   Yrhop(i, j, k)          Yrhop[i][j][k] 
     908/*M3_NOWMOD */ #define   YrhopY                  Yrhop[Yi][Yj][Yk] 
     909/*M3_VALST  */ #define   Ystate_rhop(v, i, j, k, t)      Yrhop[i][j][k]->Ystate[t][v]  
     910/*M3_VALST  */ #define   YS_rhop(v, i, j, k, t)                  Yrhop[i][j][k]->Ystate[t][v]  
     911/*M3_VALSIT */ #define   YS1_rhop(i, j, k, t)            Yrhop[i][j][k]->Ystate[t][0]  
     912/*M3_HERESIT*/ #define   YS1Y_rhop               Yrhop[Yi][Yj][Yk]->Ystate[YTemps][0]  
     913/*M3_VALST  */ #define   Ygrad_rhop(v, i, j, k, t)       Yrhop[i][j][k]->Ygrad[t][v]  
     914/*M3_VALST  */ #define   YG_rhop(v, i, j, k, t)                  Yrhop[i][j][k]->Ygrad[t][v]  
     915/*M3_VALSIT */ #define   YG1_rhop(i, j, k, t)            Yrhop[i][j][k]->Ygrad[t][0]  
     916/*M3_HERESIT*/ #define   YG1Y_rhop               Yrhop[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     917rhop             *Yrhop[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    834918 
    835919//~~~~~~~~~~~~~~~~~~~~~~~~~ module hmf_TF_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    840924/*NBSMOD    */ #define   YNBS_hmf_TF_dynadv_cen2         4 
    841925/*NBIMOD    */ #define   YNBI_hmf_TF_dynadv_cen2         6 
    842 /*M3_VALST  */ #define   Ystate_hmf_TF_dynadv_cen2(v, i, j, k, t)        Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][v]  
    843 /*M3_VALST  */ #define   YS_hmf_TF_dynadv_cen2(v, i, j, k, t)            Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][v]  
    844 /*M3_VALSIT */ #define   YS1_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][0]  
    845 /*M3_HERESIT*/ #define   YS1Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0]  
    846 /*M3_VALSIT */ #define   YS2_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][1]  
    847 /*M3_HERESIT*/ #define   YS2Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1]  
    848 /*M3_VALSIT */ #define   YS3_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][2]  
    849 /*M3_HERESIT*/ #define   YS3Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][2]  
    850 /*M3_VALSIT */ #define   YS4_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][3]  
    851 /*M3_HERESIT*/ #define   YS4Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][3]  
    852 /*M3_VALST  */ #define   Ygrad_hmf_TF_dynadv_cen2(v, i, j, k, t)         Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][v]  
    853 /*M3_VALST  */ #define   YG_hmf_TF_dynadv_cen2(v, i, j, k, t)            Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][v]  
    854 /*M3_VALSIT */ #define   YG1_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][0]  
    855 /*M3_HERESIT*/ #define   YG1Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    856 /*M3_VALSIT */ #define   YG2_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][1]  
    857 /*M3_HERESIT*/ #define   YG2Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1]  
    858 /*M3_VALSIT */ #define   YG3_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][2]  
    859 /*M3_HERESIT*/ #define   YG3Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][2]  
    860 /*M3_VALSIT */ #define   YG4_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][3]  
    861 /*M3_HERESIT*/ #define   YG4Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][3]  
    862 hmf_TF_dynadv_cen2               *Yhmf_TF_dynadv_cen2; 
     926/*M3_IRMOD  */ #define   Yhmf_TF_dynadv_cen2(i, j, k)    Yhmf_TF_dynadv_cen2[i][j][k] 
     927/*M3_NOWMOD */ #define   Yhmf_TF_dynadv_cen2Y            Yhmf_TF_dynadv_cen2[Yi][Yj][Yk] 
     928/*M3_VALST  */ #define   Ystate_hmf_TF_dynadv_cen2(v, i, j, k, t)        Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][v]  
     929/*M3_VALST  */ #define   YS_hmf_TF_dynadv_cen2(v, i, j, k, t)            Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][v]  
     930/*M3_VALSIT */ #define   YS1_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][0]  
     931/*M3_HERESIT*/ #define   YS1Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     932/*M3_VALSIT */ #define   YS2_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][1]  
     933/*M3_HERESIT*/ #define   YS2Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1]  
     934/*M3_VALSIT */ #define   YS3_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][2]  
     935/*M3_HERESIT*/ #define   YS3Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][2]  
     936/*M3_VALSIT */ #define   YS4_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][3]  
     937/*M3_HERESIT*/ #define   YS4Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][3]  
     938/*M3_VALST  */ #define   Ygrad_hmf_TF_dynadv_cen2(v, i, j, k, t)         Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][v]  
     939/*M3_VALST  */ #define   YG_hmf_TF_dynadv_cen2(v, i, j, k, t)            Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][v]  
     940/*M3_VALSIT */ #define   YG1_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][0]  
     941/*M3_HERESIT*/ #define   YG1Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     942/*M3_VALSIT */ #define   YG2_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][1]  
     943/*M3_HERESIT*/ #define   YG2Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1]  
     944/*M3_VALSIT */ #define   YG3_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][2]  
     945/*M3_HERESIT*/ #define   YG3Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][2]  
     946/*M3_VALSIT */ #define   YG4_hmf_TF_dynadv_cen2(i, j, k, t)              Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][3]  
     947/*M3_HERESIT*/ #define   YG4Y_hmf_TF_dynadv_cen2                 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][3]  
     948hmf_TF_dynadv_cen2               *Yhmf_TF_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    863949 
    864950//~~~~~~~~~~~~~~~~~~~~~~~~~ module zua_dhmf_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    869955/*NBSMOD    */ #define   YNBS_zua_dhmf_dynadv_cen2       1 
    870956/*NBIMOD    */ #define   YNBI_zua_dhmf_dynadv_cen2       4 
    871 /*M3_VALST  */ #define   Ystate_zua_dhmf_dynadv_cen2(v, i, j, k, t)      Yzua_dhmf_dynadv_cen2->Ystate[t][i][j][k][v]  
    872 /*M3_VALST  */ #define   YS_zua_dhmf_dynadv_cen2(v, i, j, k, t)                  Yzua_dhmf_dynadv_cen2->Ystate[t][i][j][k][v]  
    873 /*M3_VALSIT */ #define   YS1_zua_dhmf_dynadv_cen2(i, j, k, t)            Yzua_dhmf_dynadv_cen2->Ystate[t][i][j][k][0]  
    874 /*M3_HERESIT*/ #define   YS1Y_zua_dhmf_dynadv_cen2               Yzua_dhmf_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0]  
    875 /*M3_VALST  */ #define   Ygrad_zua_dhmf_dynadv_cen2(v, i, j, k, t)       Yzua_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v]  
    876 /*M3_VALST  */ #define   YG_zua_dhmf_dynadv_cen2(v, i, j, k, t)                  Yzua_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v]  
    877 /*M3_VALSIT */ #define   YG1_zua_dhmf_dynadv_cen2(i, j, k, t)            Yzua_dhmf_dynadv_cen2->Ygrad[t][i][j][k][0]  
    878 /*M3_HERESIT*/ #define   YG1Y_zua_dhmf_dynadv_cen2               Yzua_dhmf_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    879 zua_dhmf_dynadv_cen2             *Yzua_dhmf_dynadv_cen2; 
     957/*M3_IRMOD  */ #define   Yzua_dhmf_dynadv_cen2(i, j, k)          Yzua_dhmf_dynadv_cen2[i][j][k] 
     958/*M3_NOWMOD */ #define   Yzua_dhmf_dynadv_cen2Y                  Yzua_dhmf_dynadv_cen2[Yi][Yj][Yk] 
     959/*M3_VALST  */ #define   Ystate_zua_dhmf_dynadv_cen2(v, i, j, k, t)      Yzua_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v]  
     960/*M3_VALST  */ #define   YS_zua_dhmf_dynadv_cen2(v, i, j, k, t)                  Yzua_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v]  
     961/*M3_VALSIT */ #define   YS1_zua_dhmf_dynadv_cen2(i, j, k, t)            Yzua_dhmf_dynadv_cen2[i][j][k]->Ystate[t][0]  
     962/*M3_HERESIT*/ #define   YS1Y_zua_dhmf_dynadv_cen2               Yzua_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     963/*M3_VALST  */ #define   Ygrad_zua_dhmf_dynadv_cen2(v, i, j, k, t)       Yzua_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v]  
     964/*M3_VALST  */ #define   YG_zua_dhmf_dynadv_cen2(v, i, j, k, t)                  Yzua_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v]  
     965/*M3_VALSIT */ #define   YG1_zua_dhmf_dynadv_cen2(i, j, k, t)            Yzua_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][0]  
     966/*M3_HERESIT*/ #define   YG1Y_zua_dhmf_dynadv_cen2               Yzua_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     967zua_dhmf_dynadv_cen2             *Yzua_dhmf_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    880968 
    881969//~~~~~~~~~~~~~~~~~~~~~~~~~ module zva_dhmf_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    886974/*NBSMOD    */ #define   YNBS_zva_dhmf_dynadv_cen2       1 
    887975/*NBIMOD    */ #define   YNBI_zva_dhmf_dynadv_cen2       4 
    888 /*M3_VALST  */ #define   Ystate_zva_dhmf_dynadv_cen2(v, i, j, k, t)      Yzva_dhmf_dynadv_cen2->Ystate[t][i][j][k][v]  
    889 /*M3_VALST  */ #define   YS_zva_dhmf_dynadv_cen2(v, i, j, k, t)                  Yzva_dhmf_dynadv_cen2->Ystate[t][i][j][k][v]  
    890 /*M3_VALSIT */ #define   YS1_zva_dhmf_dynadv_cen2(i, j, k, t)            Yzva_dhmf_dynadv_cen2->Ystate[t][i][j][k][0]  
    891 /*M3_HERESIT*/ #define   YS1Y_zva_dhmf_dynadv_cen2               Yzva_dhmf_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0]  
    892 /*M3_VALST  */ #define   Ygrad_zva_dhmf_dynadv_cen2(v, i, j, k, t)       Yzva_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v]  
    893 /*M3_VALST  */ #define   YG_zva_dhmf_dynadv_cen2(v, i, j, k, t)                  Yzva_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v]  
    894 /*M3_VALSIT */ #define   YG1_zva_dhmf_dynadv_cen2(i, j, k, t)            Yzva_dhmf_dynadv_cen2->Ygrad[t][i][j][k][0]  
    895 /*M3_HERESIT*/ #define   YG1Y_zva_dhmf_dynadv_cen2               Yzva_dhmf_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    896 zva_dhmf_dynadv_cen2             *Yzva_dhmf_dynadv_cen2; 
     976/*M3_IRMOD  */ #define   Yzva_dhmf_dynadv_cen2(i, j, k)          Yzva_dhmf_dynadv_cen2[i][j][k] 
     977/*M3_NOWMOD */ #define   Yzva_dhmf_dynadv_cen2Y                  Yzva_dhmf_dynadv_cen2[Yi][Yj][Yk] 
     978/*M3_VALST  */ #define   Ystate_zva_dhmf_dynadv_cen2(v, i, j, k, t)      Yzva_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v]  
     979/*M3_VALST  */ #define   YS_zva_dhmf_dynadv_cen2(v, i, j, k, t)                  Yzva_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v]  
     980/*M3_VALSIT */ #define   YS1_zva_dhmf_dynadv_cen2(i, j, k, t)            Yzva_dhmf_dynadv_cen2[i][j][k]->Ystate[t][0]  
     981/*M3_HERESIT*/ #define   YS1Y_zva_dhmf_dynadv_cen2               Yzva_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     982/*M3_VALST  */ #define   Ygrad_zva_dhmf_dynadv_cen2(v, i, j, k, t)       Yzva_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v]  
     983/*M3_VALST  */ #define   YG_zva_dhmf_dynadv_cen2(v, i, j, k, t)                  Yzva_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v]  
     984/*M3_VALSIT */ #define   YG1_zva_dhmf_dynadv_cen2(i, j, k, t)            Yzva_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][0]  
     985/*M3_HERESIT*/ #define   YG1Y_zva_dhmf_dynadv_cen2               Yzva_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     986zva_dhmf_dynadv_cen2             *Yzva_dhmf_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    897987 
    898988//~~~~~~~~~~~~~~~~~~~~~~~~~ module zfuv_UW_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    903993/*NBSMOD    */ #define   YNBS_zfuv_UW_dynadv_cen2        2 
    904994/*NBIMOD    */ #define   YNBI_zfuv_UW_dynadv_cen2        7 
    905 /*M3_VALST  */ #define   Ystate_zfuv_UW_dynadv_cen2(v, i, j, k, t)       Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][v]  
    906 /*M3_VALST  */ #define   YS_zfuv_UW_dynadv_cen2(v, i, j, k, t)           Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][v]  
    907 /*M3_VALSIT */ #define   YS1_zfuv_UW_dynadv_cen2(i, j, k, t)             Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][0]  
    908 /*M3_HERESIT*/ #define   YS1Y_zfuv_UW_dynadv_cen2                Yzfuv_UW_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0]  
    909 /*M3_VALSIT */ #define   YS2_zfuv_UW_dynadv_cen2(i, j, k, t)             Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][1]  
    910 /*M3_HERESIT*/ #define   YS2Y_zfuv_UW_dynadv_cen2                Yzfuv_UW_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1]  
    911 /*M3_VALST  */ #define   Ygrad_zfuv_UW_dynadv_cen2(v, i, j, k, t)        Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][v]  
    912 /*M3_VALST  */ #define   YG_zfuv_UW_dynadv_cen2(v, i, j, k, t)           Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][v]  
    913 /*M3_VALSIT */ #define   YG1_zfuv_UW_dynadv_cen2(i, j, k, t)             Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][0]  
    914 /*M3_HERESIT*/ #define   YG1Y_zfuv_UW_dynadv_cen2                Yzfuv_UW_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    915 /*M3_VALSIT */ #define   YG2_zfuv_UW_dynadv_cen2(i, j, k, t)             Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][1]  
    916 /*M3_HERESIT*/ #define   YG2Y_zfuv_UW_dynadv_cen2                Yzfuv_UW_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1]  
    917 zfuv_UW_dynadv_cen2              *Yzfuv_UW_dynadv_cen2; 
     995/*M3_IRMOD  */ #define   Yzfuv_UW_dynadv_cen2(i, j, k)   Yzfuv_UW_dynadv_cen2[i][j][k] 
     996/*M3_NOWMOD */ #define   Yzfuv_UW_dynadv_cen2Y           Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk] 
     997/*M3_VALST  */ #define   Ystate_zfuv_UW_dynadv_cen2(v, i, j, k, t)       Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][v]  
     998/*M3_VALST  */ #define   YS_zfuv_UW_dynadv_cen2(v, i, j, k, t)           Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][v]  
     999/*M3_VALSIT */ #define   YS1_zfuv_UW_dynadv_cen2(i, j, k, t)             Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][0]  
     1000/*M3_HERESIT*/ #define   YS1Y_zfuv_UW_dynadv_cen2                Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1001/*M3_VALSIT */ #define   YS2_zfuv_UW_dynadv_cen2(i, j, k, t)             Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][1]  
     1002/*M3_HERESIT*/ #define   YS2Y_zfuv_UW_dynadv_cen2                Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1]  
     1003/*M3_VALST  */ #define   Ygrad_zfuv_UW_dynadv_cen2(v, i, j, k, t)        Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][v]  
     1004/*M3_VALST  */ #define   YG_zfuv_UW_dynadv_cen2(v, i, j, k, t)           Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][v]  
     1005/*M3_VALSIT */ #define   YG1_zfuv_UW_dynadv_cen2(i, j, k, t)             Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][0]  
     1006/*M3_HERESIT*/ #define   YG1Y_zfuv_UW_dynadv_cen2                Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1007/*M3_VALSIT */ #define   YG2_zfuv_UW_dynadv_cen2(i, j, k, t)             Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][1]  
     1008/*M3_HERESIT*/ #define   YG2Y_zfuv_UW_dynadv_cen2                Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1]  
     1009zfuv_UW_dynadv_cen2              *Yzfuv_UW_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    9181010 
    9191011//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    9241016/*NBSMOD    */ #define   YNBS_ua_dynadv_cen2     1 
    9251017/*NBIMOD    */ #define   YNBI_ua_dynadv_cen2     3 
    926 /*M3_VALST  */ #define   Ystate_ua_dynadv_cen2(v, i, j, k, t)    Yua_dynadv_cen2->Ystate[t][i][j][k][v]  
    927 /*M3_VALST  */ #define   YS_ua_dynadv_cen2(v, i, j, k, t)                Yua_dynadv_cen2->Ystate[t][i][j][k][v]  
    928 /*M3_VALSIT */ #define   YS1_ua_dynadv_cen2(i, j, k, t)                  Yua_dynadv_cen2->Ystate[t][i][j][k][0]  
    929 /*M3_HERESIT*/ #define   YS1Y_ua_dynadv_cen2             Yua_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0]  
    930 /*M3_VALST  */ #define   Ygrad_ua_dynadv_cen2(v, i, j, k, t)     Yua_dynadv_cen2->Ygrad[t][i][j][k][v]  
    931 /*M3_VALST  */ #define   YG_ua_dynadv_cen2(v, i, j, k, t)                Yua_dynadv_cen2->Ygrad[t][i][j][k][v]  
    932 /*M3_VALSIT */ #define   YG1_ua_dynadv_cen2(i, j, k, t)                  Yua_dynadv_cen2->Ygrad[t][i][j][k][0]  
    933 /*M3_HERESIT*/ #define   YG1Y_ua_dynadv_cen2             Yua_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    934 ua_dynadv_cen2           *Yua_dynadv_cen2; 
     1018/*M3_IRMOD  */ #define   Yua_dynadv_cen2(i, j, k)        Yua_dynadv_cen2[i][j][k] 
     1019/*M3_NOWMOD */ #define   Yua_dynadv_cen2Y                Yua_dynadv_cen2[Yi][Yj][Yk] 
     1020/*M3_VALST  */ #define   Ystate_ua_dynadv_cen2(v, i, j, k, t)    Yua_dynadv_cen2[i][j][k]->Ystate[t][v]  
     1021/*M3_VALST  */ #define   YS_ua_dynadv_cen2(v, i, j, k, t)                Yua_dynadv_cen2[i][j][k]->Ystate[t][v]  
     1022/*M3_VALSIT */ #define   YS1_ua_dynadv_cen2(i, j, k, t)                  Yua_dynadv_cen2[i][j][k]->Ystate[t][0]  
     1023/*M3_HERESIT*/ #define   YS1Y_ua_dynadv_cen2             Yua_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1024/*M3_VALST  */ #define   Ygrad_ua_dynadv_cen2(v, i, j, k, t)     Yua_dynadv_cen2[i][j][k]->Ygrad[t][v]  
     1025/*M3_VALST  */ #define   YG_ua_dynadv_cen2(v, i, j, k, t)                Yua_dynadv_cen2[i][j][k]->Ygrad[t][v]  
     1026/*M3_VALSIT */ #define   YG1_ua_dynadv_cen2(i, j, k, t)                  Yua_dynadv_cen2[i][j][k]->Ygrad[t][0]  
     1027/*M3_HERESIT*/ #define   YG1Y_ua_dynadv_cen2             Yua_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1028ua_dynadv_cen2           *Yua_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    9351029 
    9361030//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    9411035/*NBSMOD    */ #define   YNBS_va_dynadv_cen2     1 
    9421036/*NBIMOD    */ #define   YNBI_va_dynadv_cen2     3 
    943 /*M3_VALST  */ #define   Ystate_va_dynadv_cen2(v, i, j, k, t)    Yva_dynadv_cen2->Ystate[t][i][j][k][v]  
    944 /*M3_VALST  */ #define   YS_va_dynadv_cen2(v, i, j, k, t)                Yva_dynadv_cen2->Ystate[t][i][j][k][v]  
    945 /*M3_VALSIT */ #define   YS1_va_dynadv_cen2(i, j, k, t)                  Yva_dynadv_cen2->Ystate[t][i][j][k][0]  
    946 /*M3_HERESIT*/ #define   YS1Y_va_dynadv_cen2             Yva_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0]  
    947 /*M3_VALST  */ #define   Ygrad_va_dynadv_cen2(v, i, j, k, t)     Yva_dynadv_cen2->Ygrad[t][i][j][k][v]  
    948 /*M3_VALST  */ #define   YG_va_dynadv_cen2(v, i, j, k, t)                Yva_dynadv_cen2->Ygrad[t][i][j][k][v]  
    949 /*M3_VALSIT */ #define   YG1_va_dynadv_cen2(i, j, k, t)                  Yva_dynadv_cen2->Ygrad[t][i][j][k][0]  
    950 /*M3_HERESIT*/ #define   YG1Y_va_dynadv_cen2             Yva_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0]  
    951 va_dynadv_cen2           *Yva_dynadv_cen2; 
     1037/*M3_IRMOD  */ #define   Yva_dynadv_cen2(i, j, k)        Yva_dynadv_cen2[i][j][k] 
     1038/*M3_NOWMOD */ #define   Yva_dynadv_cen2Y                Yva_dynadv_cen2[Yi][Yj][Yk] 
     1039/*M3_VALST  */ #define   Ystate_va_dynadv_cen2(v, i, j, k, t)    Yva_dynadv_cen2[i][j][k]->Ystate[t][v]  
     1040/*M3_VALST  */ #define   YS_va_dynadv_cen2(v, i, j, k, t)                Yva_dynadv_cen2[i][j][k]->Ystate[t][v]  
     1041/*M3_VALSIT */ #define   YS1_va_dynadv_cen2(i, j, k, t)                  Yva_dynadv_cen2[i][j][k]->Ystate[t][0]  
     1042/*M3_HERESIT*/ #define   YS1Y_va_dynadv_cen2             Yva_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1043/*M3_VALST  */ #define   Ygrad_va_dynadv_cen2(v, i, j, k, t)     Yva_dynadv_cen2[i][j][k]->Ygrad[t][v]  
     1044/*M3_VALST  */ #define   YG_va_dynadv_cen2(v, i, j, k, t)                Yva_dynadv_cen2[i][j][k]->Ygrad[t][v]  
     1045/*M3_VALSIT */ #define   YG1_va_dynadv_cen2(i, j, k, t)                  Yva_dynadv_cen2[i][j][k]->Ygrad[t][0]  
     1046/*M3_HERESIT*/ #define   YG1Y_va_dynadv_cen2             Yva_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1047va_dynadv_cen2           *Yva_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    9521048 
    9531049//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwxyz_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    9581054/*NBSMOD    */ #define   YNBS_zwxyz_vor_ene      3 
    9591055/*NBIMOD    */ #define   YNBI_zwxyz_vor_ene      4 
    960 /*M3_VALST  */ #define   Ystate_zwxyz_vor_ene(v, i, j, k, t)     Yzwxyz_vor_ene->Ystate[t][i][j][k][v]  
    961 /*M3_VALST  */ #define   YS_zwxyz_vor_ene(v, i, j, k, t)                 Yzwxyz_vor_ene->Ystate[t][i][j][k][v]  
    962 /*M3_VALSIT */ #define   YS1_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene->Ystate[t][i][j][k][0]  
    963 /*M3_HERESIT*/ #define   YS1Y_zwxyz_vor_ene              Yzwxyz_vor_ene->Ystate[YTemps][Yi][Yj][Yk][0]  
    964 /*M3_VALSIT */ #define   YS2_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene->Ystate[t][i][j][k][1]  
    965 /*M3_HERESIT*/ #define   YS2Y_zwxyz_vor_ene              Yzwxyz_vor_ene->Ystate[YTemps][Yi][Yj][Yk][1]  
    966 /*M3_VALSIT */ #define   YS3_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene->Ystate[t][i][j][k][2]  
    967 /*M3_HERESIT*/ #define   YS3Y_zwxyz_vor_ene              Yzwxyz_vor_ene->Ystate[YTemps][Yi][Yj][Yk][2]  
    968 /*M3_VALST  */ #define   Ygrad_zwxyz_vor_ene(v, i, j, k, t)      Yzwxyz_vor_ene->Ygrad[t][i][j][k][v]  
    969 /*M3_VALST  */ #define   YG_zwxyz_vor_ene(v, i, j, k, t)                 Yzwxyz_vor_ene->Ygrad[t][i][j][k][v]  
    970 /*M3_VALSIT */ #define   YG1_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene->Ygrad[t][i][j][k][0]  
    971 /*M3_HERESIT*/ #define   YG1Y_zwxyz_vor_ene              Yzwxyz_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][0]  
    972 /*M3_VALSIT */ #define   YG2_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene->Ygrad[t][i][j][k][1]  
    973 /*M3_HERESIT*/ #define   YG2Y_zwxyz_vor_ene              Yzwxyz_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][1]  
    974 /*M3_VALSIT */ #define   YG3_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene->Ygrad[t][i][j][k][2]  
    975 /*M3_HERESIT*/ #define   YG3Y_zwxyz_vor_ene              Yzwxyz_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][2]  
    976 zwxyz_vor_ene            *Yzwxyz_vor_ene; 
     1056/*M3_IRMOD  */ #define   Yzwxyz_vor_ene(i, j, k)         Yzwxyz_vor_ene[i][j][k] 
     1057/*M3_NOWMOD */ #define   Yzwxyz_vor_eneY                 Yzwxyz_vor_ene[Yi][Yj][Yk] 
     1058/*M3_VALST  */ #define   Ystate_zwxyz_vor_ene(v, i, j, k, t)     Yzwxyz_vor_ene[i][j][k]->Ystate[t][v]  
     1059/*M3_VALST  */ #define   YS_zwxyz_vor_ene(v, i, j, k, t)                 Yzwxyz_vor_ene[i][j][k]->Ystate[t][v]  
     1060/*M3_VALSIT */ #define   YS1_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ystate[t][0]  
     1061/*M3_HERESIT*/ #define   YS1Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1062/*M3_VALSIT */ #define   YS2_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ystate[t][1]  
     1063/*M3_HERESIT*/ #define   YS2Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][1]  
     1064/*M3_VALSIT */ #define   YS3_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ystate[t][2]  
     1065/*M3_HERESIT*/ #define   YS3Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][2]  
     1066/*M3_VALST  */ #define   Ygrad_zwxyz_vor_ene(v, i, j, k, t)      Yzwxyz_vor_ene[i][j][k]->Ygrad[t][v]  
     1067/*M3_VALST  */ #define   YG_zwxyz_vor_ene(v, i, j, k, t)                 Yzwxyz_vor_ene[i][j][k]->Ygrad[t][v]  
     1068/*M3_VALSIT */ #define   YG1_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ygrad[t][0]  
     1069/*M3_HERESIT*/ #define   YG1Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1070/*M3_VALSIT */ #define   YG2_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ygrad[t][1]  
     1071/*M3_HERESIT*/ #define   YG2Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][1]  
     1072/*M3_VALSIT */ #define   YG3_zwxyz_vor_ene(i, j, k, t)           Yzwxyz_vor_ene[i][j][k]->Ygrad[t][2]  
     1073/*M3_HERESIT*/ #define   YG3Y_zwxyz_vor_ene              Yzwxyz_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][2]  
     1074zwxyz_vor_ene            *Yzwxyz_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    9771075 
    9781076//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    9831081/*NBSMOD    */ #define   YNBS_ua_vor_ene         1 
    9841082/*NBIMOD    */ #define   YNBI_ua_vor_ene         7 
    985 /*M3_VALST  */ #define   Ystate_ua_vor_ene(v, i, j, k, t)        Yua_vor_ene->Ystate[t][i][j][k][v]  
    986 /*M3_VALST  */ #define   YS_ua_vor_ene(v, i, j, k, t)            Yua_vor_ene->Ystate[t][i][j][k][v]  
    987 /*M3_VALSIT */ #define   YS1_ua_vor_ene(i, j, k, t)              Yua_vor_ene->Ystate[t][i][j][k][0]  
    988 /*M3_HERESIT*/ #define   YS1Y_ua_vor_ene                 Yua_vor_ene->Ystate[YTemps][Yi][Yj][Yk][0]  
    989 /*M3_VALST  */ #define   Ygrad_ua_vor_ene(v, i, j, k, t)         Yua_vor_ene->Ygrad[t][i][j][k][v]  
    990 /*M3_VALST  */ #define   YG_ua_vor_ene(v, i, j, k, t)            Yua_vor_ene->Ygrad[t][i][j][k][v]  
    991 /*M3_VALSIT */ #define   YG1_ua_vor_ene(i, j, k, t)              Yua_vor_ene->Ygrad[t][i][j][k][0]  
    992 /*M3_HERESIT*/ #define   YG1Y_ua_vor_ene                 Yua_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][0]  
    993 ua_vor_ene               *Yua_vor_ene; 
     1083/*M3_IRMOD  */ #define   Yua_vor_ene(i, j, k)    Yua_vor_ene[i][j][k] 
     1084/*M3_NOWMOD */ #define   Yua_vor_eneY            Yua_vor_ene[Yi][Yj][Yk] 
     1085/*M3_VALST  */ #define   Ystate_ua_vor_ene(v, i, j, k, t)        Yua_vor_ene[i][j][k]->Ystate[t][v]  
     1086/*M3_VALST  */ #define   YS_ua_vor_ene(v, i, j, k, t)            Yua_vor_ene[i][j][k]->Ystate[t][v]  
     1087/*M3_VALSIT */ #define   YS1_ua_vor_ene(i, j, k, t)              Yua_vor_ene[i][j][k]->Ystate[t][0]  
     1088/*M3_HERESIT*/ #define   YS1Y_ua_vor_ene                 Yua_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1089/*M3_VALST  */ #define   Ygrad_ua_vor_ene(v, i, j, k, t)         Yua_vor_ene[i][j][k]->Ygrad[t][v]  
     1090/*M3_VALST  */ #define   YG_ua_vor_ene(v, i, j, k, t)            Yua_vor_ene[i][j][k]->Ygrad[t][v]  
     1091/*M3_VALSIT */ #define   YG1_ua_vor_ene(i, j, k, t)              Yua_vor_ene[i][j][k]->Ygrad[t][0]  
     1092/*M3_HERESIT*/ #define   YG1Y_ua_vor_ene                 Yua_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1093ua_vor_ene               *Yua_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    9941094 
    9951095//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    10001100/*NBSMOD    */ #define   YNBS_va_vor_ene         1 
    10011101/*NBIMOD    */ #define   YNBI_va_vor_ene         7 
    1002 /*M3_VALST  */ #define   Ystate_va_vor_ene(v, i, j, k, t)        Yva_vor_ene->Ystate[t][i][j][k][v]  
    1003 /*M3_VALST  */ #define   YS_va_vor_ene(v, i, j, k, t)            Yva_vor_ene->Ystate[t][i][j][k][v]  
    1004 /*M3_VALSIT */ #define   YS1_va_vor_ene(i, j, k, t)              Yva_vor_ene->Ystate[t][i][j][k][0]  
    1005 /*M3_HERESIT*/ #define   YS1Y_va_vor_ene                 Yva_vor_ene->Ystate[YTemps][Yi][Yj][Yk][0]  
    1006 /*M3_VALST  */ #define   Ygrad_va_vor_ene(v, i, j, k, t)         Yva_vor_ene->Ygrad[t][i][j][k][v]  
    1007 /*M3_VALST  */ #define   YG_va_vor_ene(v, i, j, k, t)            Yva_vor_ene->Ygrad[t][i][j][k][v]  
    1008 /*M3_VALSIT */ #define   YG1_va_vor_ene(i, j, k, t)              Yva_vor_ene->Ygrad[t][i][j][k][0]  
    1009 /*M3_HERESIT*/ #define   YG1Y_va_vor_ene                 Yva_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1010 va_vor_ene               *Yva_vor_ene; 
     1102/*M3_IRMOD  */ #define   Yva_vor_ene(i, j, k)    Yva_vor_ene[i][j][k] 
     1103/*M3_NOWMOD */ #define   Yva_vor_eneY            Yva_vor_ene[Yi][Yj][Yk] 
     1104/*M3_VALST  */ #define   Ystate_va_vor_ene(v, i, j, k, t)        Yva_vor_ene[i][j][k]->Ystate[t][v]  
     1105/*M3_VALST  */ #define   YS_va_vor_ene(v, i, j, k, t)            Yva_vor_ene[i][j][k]->Ystate[t][v]  
     1106/*M3_VALSIT */ #define   YS1_va_vor_ene(i, j, k, t)              Yva_vor_ene[i][j][k]->Ystate[t][0]  
     1107/*M3_HERESIT*/ #define   YS1Y_va_vor_ene                 Yva_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1108/*M3_VALST  */ #define   Ygrad_va_vor_ene(v, i, j, k, t)         Yva_vor_ene[i][j][k]->Ygrad[t][v]  
     1109/*M3_VALST  */ #define   YG_va_vor_ene(v, i, j, k, t)            Yva_vor_ene[i][j][k]->Ygrad[t][v]  
     1110/*M3_VALSIT */ #define   YG1_va_vor_ene(i, j, k, t)              Yva_vor_ene[i][j][k]->Ygrad[t][0]  
     1111/*M3_HERESIT*/ #define   YG1Y_va_vor_ene                 Yva_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1112va_vor_ene               *Yva_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    10111113 
    10121114//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dyn_ldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    10171119/*NBSMOD    */ #define   YNBS_ua_dyn_ldf_lap     1 
    10181120/*NBIMOD    */ #define   YNBI_ua_dyn_ldf_lap     5 
    1019 /*M3_VALST  */ #define   Ystate_ua_dyn_ldf_lap(v, i, j, k, t)    Yua_dyn_ldf_lap->Ystate[t][i][j][k][v]  
    1020 /*M3_VALST  */ #define   YS_ua_dyn_ldf_lap(v, i, j, k, t)                Yua_dyn_ldf_lap->Ystate[t][i][j][k][v]  
    1021 /*M3_VALSIT */ #define   YS1_ua_dyn_ldf_lap(i, j, k, t)                  Yua_dyn_ldf_lap->Ystate[t][i][j][k][0]  
    1022 /*M3_HERESIT*/ #define   YS1Y_ua_dyn_ldf_lap             Yua_dyn_ldf_lap->Ystate[YTemps][Yi][Yj][Yk][0]  
    1023 /*M3_VALST  */ #define   Ygrad_ua_dyn_ldf_lap(v, i, j, k, t)     Yua_dyn_ldf_lap->Ygrad[t][i][j][k][v]  
    1024 /*M3_VALST  */ #define   YG_ua_dyn_ldf_lap(v, i, j, k, t)                Yua_dyn_ldf_lap->Ygrad[t][i][j][k][v]  
    1025 /*M3_VALSIT */ #define   YG1_ua_dyn_ldf_lap(i, j, k, t)                  Yua_dyn_ldf_lap->Ygrad[t][i][j][k][0]  
    1026 /*M3_HERESIT*/ #define   YG1Y_ua_dyn_ldf_lap             Yua_dyn_ldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1027 ua_dyn_ldf_lap           *Yua_dyn_ldf_lap; 
     1121/*M3_IRMOD  */ #define   Yua_dyn_ldf_lap(i, j, k)        Yua_dyn_ldf_lap[i][j][k] 
     1122/*M3_NOWMOD */ #define   Yua_dyn_ldf_lapY                Yua_dyn_ldf_lap[Yi][Yj][Yk] 
     1123/*M3_VALST  */ #define   Ystate_ua_dyn_ldf_lap(v, i, j, k, t)    Yua_dyn_ldf_lap[i][j][k]->Ystate[t][v]  
     1124/*M3_VALST  */ #define   YS_ua_dyn_ldf_lap(v, i, j, k, t)                Yua_dyn_ldf_lap[i][j][k]->Ystate[t][v]  
     1125/*M3_VALSIT */ #define   YS1_ua_dyn_ldf_lap(i, j, k, t)                  Yua_dyn_ldf_lap[i][j][k]->Ystate[t][0]  
     1126/*M3_HERESIT*/ #define   YS1Y_ua_dyn_ldf_lap             Yua_dyn_ldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1127/*M3_VALST  */ #define   Ygrad_ua_dyn_ldf_lap(v, i, j, k, t)     Yua_dyn_ldf_lap[i][j][k]->Ygrad[t][v]  
     1128/*M3_VALST  */ #define   YG_ua_dyn_ldf_lap(v, i, j, k, t)                Yua_dyn_ldf_lap[i][j][k]->Ygrad[t][v]  
     1129/*M3_VALSIT */ #define   YG1_ua_dyn_ldf_lap(i, j, k, t)                  Yua_dyn_ldf_lap[i][j][k]->Ygrad[t][0]  
     1130/*M3_HERESIT*/ #define   YG1Y_ua_dyn_ldf_lap             Yua_dyn_ldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1131ua_dyn_ldf_lap           *Yua_dyn_ldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    10281132 
    10291133//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dyn_ldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    10341138/*NBSMOD    */ #define   YNBS_va_dyn_ldf_lap     1 
    10351139/*NBIMOD    */ #define   YNBI_va_dyn_ldf_lap     5 
    1036 /*M3_VALST  */ #define   Ystate_va_dyn_ldf_lap(v, i, j, k, t)    Yva_dyn_ldf_lap->Ystate[t][i][j][k][v]  
    1037 /*M3_VALST  */ #define   YS_va_dyn_ldf_lap(v, i, j, k, t)                Yva_dyn_ldf_lap->Ystate[t][i][j][k][v]  
    1038 /*M3_VALSIT */ #define   YS1_va_dyn_ldf_lap(i, j, k, t)                  Yva_dyn_ldf_lap->Ystate[t][i][j][k][0]  
    1039 /*M3_HERESIT*/ #define   YS1Y_va_dyn_ldf_lap             Yva_dyn_ldf_lap->Ystate[YTemps][Yi][Yj][Yk][0]  
    1040 /*M3_VALST  */ #define   Ygrad_va_dyn_ldf_lap(v, i, j, k, t)     Yva_dyn_ldf_lap->Ygrad[t][i][j][k][v]  
    1041 /*M3_VALST  */ #define   YG_va_dyn_ldf_lap(v, i, j, k, t)                Yva_dyn_ldf_lap->Ygrad[t][i][j][k][v]  
    1042 /*M3_VALSIT */ #define   YG1_va_dyn_ldf_lap(i, j, k, t)                  Yva_dyn_ldf_lap->Ygrad[t][i][j][k][0]  
    1043 /*M3_HERESIT*/ #define   YG1Y_va_dyn_ldf_lap             Yva_dyn_ldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1044 va_dyn_ldf_lap           *Yva_dyn_ldf_lap; 
     1140/*M3_IRMOD  */ #define   Yva_dyn_ldf_lap(i, j, k)        Yva_dyn_ldf_lap[i][j][k] 
     1141/*M3_NOWMOD */ #define   Yva_dyn_ldf_lapY                Yva_dyn_ldf_lap[Yi][Yj][Yk] 
     1142/*M3_VALST  */ #define   Ystate_va_dyn_ldf_lap(v, i, j, k, t)    Yva_dyn_ldf_lap[i][j][k]->Ystate[t][v]  
     1143/*M3_VALST  */ #define   YS_va_dyn_ldf_lap(v, i, j, k, t)                Yva_dyn_ldf_lap[i][j][k]->Ystate[t][v]  
     1144/*M3_VALSIT */ #define   YS1_va_dyn_ldf_lap(i, j, k, t)                  Yva_dyn_ldf_lap[i][j][k]->Ystate[t][0]  
     1145/*M3_HERESIT*/ #define   YS1Y_va_dyn_ldf_lap             Yva_dyn_ldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1146/*M3_VALST  */ #define   Ygrad_va_dyn_ldf_lap(v, i, j, k, t)     Yva_dyn_ldf_lap[i][j][k]->Ygrad[t][v]  
     1147/*M3_VALST  */ #define   YG_va_dyn_ldf_lap(v, i, j, k, t)                Yva_dyn_ldf_lap[i][j][k]->Ygrad[t][v]  
     1148/*M3_VALSIT */ #define   YG1_va_dyn_ldf_lap(i, j, k, t)                  Yva_dyn_ldf_lap[i][j][k]->Ygrad[t][0]  
     1149/*M3_HERESIT*/ #define   YG1Y_va_dyn_ldf_lap             Yva_dyn_ldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1150va_dyn_ldf_lap           *Yva_dyn_ldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    10451151 
    10461152//~~~~~~~~~~~~~~~~~~~~~~~~~ module zhpij_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    10511157/*NBSMOD    */ #define   YNBS_zhpij_dyn_hpg_zco          2 
    10521158/*NBIMOD    */ #define   YNBI_zhpij_dyn_hpg_zco          8 
    1053 /*M3_VALST  */ #define   Ystate_zhpij_dyn_hpg_zco(v, i, j, k, t)         Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][v]  
    1054 /*M3_VALST  */ #define   YS_zhpij_dyn_hpg_zco(v, i, j, k, t)             Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][v]  
    1055 /*M3_VALSIT */ #define   YS1_zhpij_dyn_hpg_zco(i, j, k, t)               Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][0]  
    1056 /*M3_HERESIT*/ #define   YS1Y_zhpij_dyn_hpg_zco                  Yzhpij_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][0]  
    1057 /*M3_VALSIT */ #define   YS2_zhpij_dyn_hpg_zco(i, j, k, t)               Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][1]  
    1058 /*M3_HERESIT*/ #define   YS2Y_zhpij_dyn_hpg_zco                  Yzhpij_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][1]  
    1059 /*M3_VALST  */ #define   Ygrad_zhpij_dyn_hpg_zco(v, i, j, k, t)          Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][v]  
    1060 /*M3_VALST  */ #define   YG_zhpij_dyn_hpg_zco(v, i, j, k, t)             Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][v]  
    1061 /*M3_VALSIT */ #define   YG1_zhpij_dyn_hpg_zco(i, j, k, t)               Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][0]  
    1062 /*M3_HERESIT*/ #define   YG1Y_zhpij_dyn_hpg_zco                  Yzhpij_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1063 /*M3_VALSIT */ #define   YG2_zhpij_dyn_hpg_zco(i, j, k, t)               Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][1]  
    1064 /*M3_HERESIT*/ #define   YG2Y_zhpij_dyn_hpg_zco                  Yzhpij_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][1]  
    1065 zhpij_dyn_hpg_zco                *Yzhpij_dyn_hpg_zco; 
     1159/*M3_IRMOD  */ #define   Yzhpij_dyn_hpg_zco(i, j, k)     Yzhpij_dyn_hpg_zco[i][j][k] 
     1160/*M3_NOWMOD */ #define   Yzhpij_dyn_hpg_zcoY             Yzhpij_dyn_hpg_zco[Yi][Yj][Yk] 
     1161/*M3_VALST  */ #define   Ystate_zhpij_dyn_hpg_zco(v, i, j, k, t)         Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][v]  
     1162/*M3_VALST  */ #define   YS_zhpij_dyn_hpg_zco(v, i, j, k, t)             Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][v]  
     1163/*M3_VALSIT */ #define   YS1_zhpij_dyn_hpg_zco(i, j, k, t)               Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][0]  
     1164/*M3_HERESIT*/ #define   YS1Y_zhpij_dyn_hpg_zco                  Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1165/*M3_VALSIT */ #define   YS2_zhpij_dyn_hpg_zco(i, j, k, t)               Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][1]  
     1166/*M3_HERESIT*/ #define   YS2Y_zhpij_dyn_hpg_zco                  Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][1]  
     1167/*M3_VALST  */ #define   Ygrad_zhpij_dyn_hpg_zco(v, i, j, k, t)          Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][v]  
     1168/*M3_VALST  */ #define   YG_zhpij_dyn_hpg_zco(v, i, j, k, t)             Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][v]  
     1169/*M3_VALSIT */ #define   YG1_zhpij_dyn_hpg_zco(i, j, k, t)               Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][0]  
     1170/*M3_HERESIT*/ #define   YG1Y_zhpij_dyn_hpg_zco                  Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1171/*M3_VALSIT */ #define   YG2_zhpij_dyn_hpg_zco(i, j, k, t)               Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][1]  
     1172/*M3_HERESIT*/ #define   YG2Y_zhpij_dyn_hpg_zco                  Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][1]  
     1173zhpij_dyn_hpg_zco                *Yzhpij_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    10661174 
    10671175//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    10721180/*NBSMOD    */ #define   YNBS_ua_dyn_hpg_zco     1 
    10731181/*NBIMOD    */ #define   YNBI_ua_dyn_hpg_zco     2 
    1074 /*M3_VALST  */ #define   Ystate_ua_dyn_hpg_zco(v, i, j, k, t)    Yua_dyn_hpg_zco->Ystate[t][i][j][k][v]  
    1075 /*M3_VALST  */ #define   YS_ua_dyn_hpg_zco(v, i, j, k, t)                Yua_dyn_hpg_zco->Ystate[t][i][j][k][v]  
    1076 /*M3_VALSIT */ #define   YS1_ua_dyn_hpg_zco(i, j, k, t)                  Yua_dyn_hpg_zco->Ystate[t][i][j][k][0]  
    1077 /*M3_HERESIT*/ #define   YS1Y_ua_dyn_hpg_zco             Yua_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][0]  
    1078 /*M3_VALST  */ #define   Ygrad_ua_dyn_hpg_zco(v, i, j, k, t)     Yua_dyn_hpg_zco->Ygrad[t][i][j][k][v]  
    1079 /*M3_VALST  */ #define   YG_ua_dyn_hpg_zco(v, i, j, k, t)                Yua_dyn_hpg_zco->Ygrad[t][i][j][k][v]  
    1080 /*M3_VALSIT */ #define   YG1_ua_dyn_hpg_zco(i, j, k, t)                  Yua_dyn_hpg_zco->Ygrad[t][i][j][k][0]  
    1081 /*M3_HERESIT*/ #define   YG1Y_ua_dyn_hpg_zco             Yua_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1082 ua_dyn_hpg_zco           *Yua_dyn_hpg_zco; 
     1182/*M3_IRMOD  */ #define   Yua_dyn_hpg_zco(i, j, k)        Yua_dyn_hpg_zco[i][j][k] 
     1183/*M3_NOWMOD */ #define   Yua_dyn_hpg_zcoY                Yua_dyn_hpg_zco[Yi][Yj][Yk] 
     1184/*M3_VALST  */ #define   Ystate_ua_dyn_hpg_zco(v, i, j, k, t)    Yua_dyn_hpg_zco[i][j][k]->Ystate[t][v]  
     1185/*M3_VALST  */ #define   YS_ua_dyn_hpg_zco(v, i, j, k, t)                Yua_dyn_hpg_zco[i][j][k]->Ystate[t][v]  
     1186/*M3_VALSIT */ #define   YS1_ua_dyn_hpg_zco(i, j, k, t)                  Yua_dyn_hpg_zco[i][j][k]->Ystate[t][0]  
     1187/*M3_HERESIT*/ #define   YS1Y_ua_dyn_hpg_zco             Yua_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1188/*M3_VALST  */ #define   Ygrad_ua_dyn_hpg_zco(v, i, j, k, t)     Yua_dyn_hpg_zco[i][j][k]->Ygrad[t][v]  
     1189/*M3_VALST  */ #define   YG_ua_dyn_hpg_zco(v, i, j, k, t)                Yua_dyn_hpg_zco[i][j][k]->Ygrad[t][v]  
     1190/*M3_VALSIT */ #define   YG1_ua_dyn_hpg_zco(i, j, k, t)                  Yua_dyn_hpg_zco[i][j][k]->Ygrad[t][0]  
     1191/*M3_HERESIT*/ #define   YG1Y_ua_dyn_hpg_zco             Yua_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1192ua_dyn_hpg_zco           *Yua_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    10831193 
    10841194//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    10871197/*NBSMOD    */ #define   YNBS_va_dyn_hpg_zco     1 
    10881198/*NBIMOD    */ #define   YNBI_va_dyn_hpg_zco     2 
    1089 /*M3_VALST  */ #define   Ystate_va_dyn_hpg_zco(v, i, j, k, t)    Yva_dyn_hpg_zco->Ystate[t][i][j][k][v]  
    1090 /*M3_VALST  */ #define   YS_va_dyn_hpg_zco(v, i, j, k, t)                Yva_dyn_hpg_zco->Ystate[t][i][j][k][v]  
    1091 /*M3_VALSIT */ #define   YS1_va_dyn_hpg_zco(i, j, k, t)                  Yva_dyn_hpg_zco->Ystate[t][i][j][k][0]  
    1092 /*M3_HERESIT*/ #define   YS1Y_va_dyn_hpg_zco             Yva_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][0]  
    1093 /*M3_VALST  */ #define   Ygrad_va_dyn_hpg_zco(v, i, j, k, t)     Yva_dyn_hpg_zco->Ygrad[t][i][j][k][v]  
    1094 /*M3_VALST  */ #define   YG_va_dyn_hpg_zco(v, i, j, k, t)                Yva_dyn_hpg_zco->Ygrad[t][i][j][k][v]  
    1095 /*M3_VALSIT */ #define   YG1_va_dyn_hpg_zco(i, j, k, t)                  Yva_dyn_hpg_zco->Ygrad[t][i][j][k][0]  
    1096 /*M3_HERESIT*/ #define   YG1Y_va_dyn_hpg_zco             Yva_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1097 va_dyn_hpg_zco           *Yva_dyn_hpg_zco; 
     1199/*M3_IRMOD  */ #define   Yva_dyn_hpg_zco(i, j, k)        Yva_dyn_hpg_zco[i][j][k] 
     1200/*M3_NOWMOD */ #define   Yva_dyn_hpg_zcoY                Yva_dyn_hpg_zco[Yi][Yj][Yk] 
     1201/*M3_VALST  */ #define   Ystate_va_dyn_hpg_zco(v, i, j, k, t)    Yva_dyn_hpg_zco[i][j][k]->Ystate[t][v]  
     1202/*M3_VALST  */ #define   YS_va_dyn_hpg_zco(v, i, j, k, t)                Yva_dyn_hpg_zco[i][j][k]->Ystate[t][v]  
     1203/*M3_VALSIT */ #define   YS1_va_dyn_hpg_zco(i, j, k, t)                  Yva_dyn_hpg_zco[i][j][k]->Ystate[t][0]  
     1204/*M3_HERESIT*/ #define   YS1Y_va_dyn_hpg_zco             Yva_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1205/*M3_VALST  */ #define   Ygrad_va_dyn_hpg_zco(v, i, j, k, t)     Yva_dyn_hpg_zco[i][j][k]->Ygrad[t][v]  
     1206/*M3_VALST  */ #define   YG_va_dyn_hpg_zco(v, i, j, k, t)                Yva_dyn_hpg_zco[i][j][k]->Ygrad[t][v]  
     1207/*M3_VALSIT */ #define   YG1_va_dyn_hpg_zco(i, j, k, t)                  Yva_dyn_hpg_zco[i][j][k]->Ygrad[t][0]  
     1208/*M3_HERESIT*/ #define   YG1Y_va_dyn_hpg_zco             Yva_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1209va_dyn_hpg_zco           *Yva_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    10981210 
    10991211//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    11041216/*NBSMOD    */ #define   YNBS_zwisd_ua_dynzdf_imp        3 
    11051217/*NBIMOD    */ #define   YNBI_zwisd_ua_dynzdf_imp        2 
    1106 /*M3_VALST  */ #define   Ystate_zwisd_ua_dynzdf_imp(v, i, j, k, t)       Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][v]  
    1107 /*M3_VALST  */ #define   YS_zwisd_ua_dynzdf_imp(v, i, j, k, t)           Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][v]  
    1108 /*M3_VALSIT */ #define   YS1_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][0]  
    1109 /*M3_HERESIT*/ #define   YS1Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    1110 /*M3_VALSIT */ #define   YS2_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][1]  
    1111 /*M3_HERESIT*/ #define   YS2Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][1]  
    1112 /*M3_VALSIT */ #define   YS3_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][2]  
    1113 /*M3_HERESIT*/ #define   YS3Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][2]  
    1114 /*M3_VALST  */ #define   Ygrad_zwisd_ua_dynzdf_imp(v, i, j, k, t)        Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1115 /*M3_VALST  */ #define   YG_zwisd_ua_dynzdf_imp(v, i, j, k, t)           Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1116 /*M3_VALSIT */ #define   YG1_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][0]  
    1117 /*M3_HERESIT*/ #define   YG1Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1118 /*M3_VALSIT */ #define   YG2_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][1]  
    1119 /*M3_HERESIT*/ #define   YG2Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][1]  
    1120 /*M3_VALSIT */ #define   YG3_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][2]  
    1121 /*M3_HERESIT*/ #define   YG3Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][2]  
    1122 zwisd_ua_dynzdf_imp              *Yzwisd_ua_dynzdf_imp; 
     1218/*M3_IRMOD  */ #define   Yzwisd_ua_dynzdf_imp(i, j, k)   Yzwisd_ua_dynzdf_imp[i][j][k] 
     1219/*M3_NOWMOD */ #define   Yzwisd_ua_dynzdf_impY           Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk] 
     1220/*M3_VALST  */ #define   Ystate_zwisd_ua_dynzdf_imp(v, i, j, k, t)       Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1221/*M3_VALST  */ #define   YS_zwisd_ua_dynzdf_imp(v, i, j, k, t)           Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1222/*M3_VALSIT */ #define   YS1_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][0]  
     1223/*M3_HERESIT*/ #define   YS1Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1224/*M3_VALSIT */ #define   YS2_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][1]  
     1225/*M3_HERESIT*/ #define   YS2Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][1]  
     1226/*M3_VALSIT */ #define   YS3_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][2]  
     1227/*M3_HERESIT*/ #define   YS3Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][2]  
     1228/*M3_VALST  */ #define   Ygrad_zwisd_ua_dynzdf_imp(v, i, j, k, t)        Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1229/*M3_VALST  */ #define   YG_zwisd_ua_dynzdf_imp(v, i, j, k, t)           Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1230/*M3_VALSIT */ #define   YG1_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][0]  
     1231/*M3_HERESIT*/ #define   YG1Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1232/*M3_VALSIT */ #define   YG2_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][1]  
     1233/*M3_HERESIT*/ #define   YG2Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][1]  
     1234/*M3_VALSIT */ #define   YG3_zwisd_ua_dynzdf_imp(i, j, k, t)             Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][2]  
     1235/*M3_HERESIT*/ #define   YG3Y_zwisd_ua_dynzdf_imp                Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][2]  
     1236zwisd_ua_dynzdf_imp              *Yzwisd_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    11231237 
    11241238//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    11291243/*NBSMOD    */ #define   YNBS_zwisd_va_dynzdf_imp        3 
    11301244/*NBIMOD    */ #define   YNBI_zwisd_va_dynzdf_imp        2 
    1131 /*M3_VALST  */ #define   Ystate_zwisd_va_dynzdf_imp(v, i, j, k, t)       Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][v]  
    1132 /*M3_VALST  */ #define   YS_zwisd_va_dynzdf_imp(v, i, j, k, t)           Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][v]  
    1133 /*M3_VALSIT */ #define   YS1_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][0]  
    1134 /*M3_HERESIT*/ #define   YS1Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    1135 /*M3_VALSIT */ #define   YS2_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][1]  
    1136 /*M3_HERESIT*/ #define   YS2Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][1]  
    1137 /*M3_VALSIT */ #define   YS3_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][2]  
    1138 /*M3_HERESIT*/ #define   YS3Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][2]  
    1139 /*M3_VALST  */ #define   Ygrad_zwisd_va_dynzdf_imp(v, i, j, k, t)        Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1140 /*M3_VALST  */ #define   YG_zwisd_va_dynzdf_imp(v, i, j, k, t)           Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1141 /*M3_VALSIT */ #define   YG1_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][0]  
    1142 /*M3_HERESIT*/ #define   YG1Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1143 /*M3_VALSIT */ #define   YG2_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][1]  
    1144 /*M3_HERESIT*/ #define   YG2Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][1]  
    1145 /*M3_VALSIT */ #define   YG3_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][2]  
    1146 /*M3_HERESIT*/ #define   YG3Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][2]  
    1147 zwisd_va_dynzdf_imp              *Yzwisd_va_dynzdf_imp; 
     1245/*M3_IRMOD  */ #define   Yzwisd_va_dynzdf_imp(i, j, k)   Yzwisd_va_dynzdf_imp[i][j][k] 
     1246/*M3_NOWMOD */ #define   Yzwisd_va_dynzdf_impY           Yzwisd_va_dynzdf_imp[Yi][Yj][Yk] 
     1247/*M3_VALST  */ #define   Ystate_zwisd_va_dynzdf_imp(v, i, j, k, t)       Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1248/*M3_VALST  */ #define   YS_zwisd_va_dynzdf_imp(v, i, j, k, t)           Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1249/*M3_VALSIT */ #define   YS1_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][0]  
     1250/*M3_HERESIT*/ #define   YS1Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1251/*M3_VALSIT */ #define   YS2_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][1]  
     1252/*M3_HERESIT*/ #define   YS2Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][1]  
     1253/*M3_VALSIT */ #define   YS3_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][2]  
     1254/*M3_HERESIT*/ #define   YS3Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][2]  
     1255/*M3_VALST  */ #define   Ygrad_zwisd_va_dynzdf_imp(v, i, j, k, t)        Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1256/*M3_VALST  */ #define   YG_zwisd_va_dynzdf_imp(v, i, j, k, t)           Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1257/*M3_VALSIT */ #define   YG1_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][0]  
     1258/*M3_HERESIT*/ #define   YG1Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1259/*M3_VALSIT */ #define   YG2_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][1]  
     1260/*M3_HERESIT*/ #define   YG2Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][1]  
     1261/*M3_VALSIT */ #define   YG3_zwisd_va_dynzdf_imp(i, j, k, t)             Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][2]  
     1262/*M3_HERESIT*/ #define   YG3Y_zwisd_va_dynzdf_imp                Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][2]  
     1263zwisd_va_dynzdf_imp              *Yzwisd_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    11481264 
    11491265//~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    11541270/*NBSMOD    */ #define   YNBS_zrhs_ua_dynzdf_imp         1 
    11551271/*NBIMOD    */ #define   YNBI_zrhs_ua_dynzdf_imp         3 
    1156 /*M3_VALST  */ #define   Ystate_zrhs_ua_dynzdf_imp(v, i, j, k, t)        Yzrhs_ua_dynzdf_imp->Ystate[t][i][j][k][v]  
    1157 /*M3_VALST  */ #define   YS_zrhs_ua_dynzdf_imp(v, i, j, k, t)            Yzrhs_ua_dynzdf_imp->Ystate[t][i][j][k][v]  
    1158 /*M3_VALSIT */ #define   YS1_zrhs_ua_dynzdf_imp(i, j, k, t)              Yzrhs_ua_dynzdf_imp->Ystate[t][i][j][k][0]  
    1159 /*M3_HERESIT*/ #define   YS1Y_zrhs_ua_dynzdf_imp                 Yzrhs_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    1160 /*M3_VALST  */ #define   Ygrad_zrhs_ua_dynzdf_imp(v, i, j, k, t)         Yzrhs_ua_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1161 /*M3_VALST  */ #define   YG_zrhs_ua_dynzdf_imp(v, i, j, k, t)            Yzrhs_ua_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1162 /*M3_VALSIT */ #define   YG1_zrhs_ua_dynzdf_imp(i, j, k, t)              Yzrhs_ua_dynzdf_imp->Ygrad[t][i][j][k][0]  
    1163 /*M3_HERESIT*/ #define   YG1Y_zrhs_ua_dynzdf_imp                 Yzrhs_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1164 zrhs_ua_dynzdf_imp               *Yzrhs_ua_dynzdf_imp; 
     1272/*M3_IRMOD  */ #define   Yzrhs_ua_dynzdf_imp(i, j, k)    Yzrhs_ua_dynzdf_imp[i][j][k] 
     1273/*M3_NOWMOD */ #define   Yzrhs_ua_dynzdf_impY            Yzrhs_ua_dynzdf_imp[Yi][Yj][Yk] 
     1274/*M3_VALST  */ #define   Ystate_zrhs_ua_dynzdf_imp(v, i, j, k, t)        Yzrhs_ua_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1275/*M3_VALST  */ #define   YS_zrhs_ua_dynzdf_imp(v, i, j, k, t)            Yzrhs_ua_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1276/*M3_VALSIT */ #define   YS1_zrhs_ua_dynzdf_imp(i, j, k, t)              Yzrhs_ua_dynzdf_imp[i][j][k]->Ystate[t][0]  
     1277/*M3_HERESIT*/ #define   YS1Y_zrhs_ua_dynzdf_imp                 Yzrhs_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1278/*M3_VALST  */ #define   Ygrad_zrhs_ua_dynzdf_imp(v, i, j, k, t)         Yzrhs_ua_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1279/*M3_VALST  */ #define   YG_zrhs_ua_dynzdf_imp(v, i, j, k, t)            Yzrhs_ua_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1280/*M3_VALSIT */ #define   YG1_zrhs_ua_dynzdf_imp(i, j, k, t)              Yzrhs_ua_dynzdf_imp[i][j][k]->Ygrad[t][0]  
     1281/*M3_HERESIT*/ #define   YG1Y_zrhs_ua_dynzdf_imp                 Yzrhs_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1282zrhs_ua_dynzdf_imp               *Yzrhs_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    11651283 
    11661284//~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    11711289/*NBSMOD    */ #define   YNBS_zrhs_va_dynzdf_imp         1 
    11721290/*NBIMOD    */ #define   YNBI_zrhs_va_dynzdf_imp         3 
    1173 /*M3_VALST  */ #define   Ystate_zrhs_va_dynzdf_imp(v, i, j, k, t)        Yzrhs_va_dynzdf_imp->Ystate[t][i][j][k][v]  
    1174 /*M3_VALST  */ #define   YS_zrhs_va_dynzdf_imp(v, i, j, k, t)            Yzrhs_va_dynzdf_imp->Ystate[t][i][j][k][v]  
    1175 /*M3_VALSIT */ #define   YS1_zrhs_va_dynzdf_imp(i, j, k, t)              Yzrhs_va_dynzdf_imp->Ystate[t][i][j][k][0]  
    1176 /*M3_HERESIT*/ #define   YS1Y_zrhs_va_dynzdf_imp                 Yzrhs_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    1177 /*M3_VALST  */ #define   Ygrad_zrhs_va_dynzdf_imp(v, i, j, k, t)         Yzrhs_va_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1178 /*M3_VALST  */ #define   YG_zrhs_va_dynzdf_imp(v, i, j, k, t)            Yzrhs_va_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1179 /*M3_VALSIT */ #define   YG1_zrhs_va_dynzdf_imp(i, j, k, t)              Yzrhs_va_dynzdf_imp->Ygrad[t][i][j][k][0]  
    1180 /*M3_HERESIT*/ #define   YG1Y_zrhs_va_dynzdf_imp                 Yzrhs_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1181 zrhs_va_dynzdf_imp               *Yzrhs_va_dynzdf_imp; 
     1291/*M3_IRMOD  */ #define   Yzrhs_va_dynzdf_imp(i, j, k)    Yzrhs_va_dynzdf_imp[i][j][k] 
     1292/*M3_NOWMOD */ #define   Yzrhs_va_dynzdf_impY            Yzrhs_va_dynzdf_imp[Yi][Yj][Yk] 
     1293/*M3_VALST  */ #define   Ystate_zrhs_va_dynzdf_imp(v, i, j, k, t)        Yzrhs_va_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1294/*M3_VALST  */ #define   YS_zrhs_va_dynzdf_imp(v, i, j, k, t)            Yzrhs_va_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1295/*M3_VALSIT */ #define   YS1_zrhs_va_dynzdf_imp(i, j, k, t)              Yzrhs_va_dynzdf_imp[i][j][k]->Ystate[t][0]  
     1296/*M3_HERESIT*/ #define   YS1Y_zrhs_va_dynzdf_imp                 Yzrhs_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1297/*M3_VALST  */ #define   Ygrad_zrhs_va_dynzdf_imp(v, i, j, k, t)         Yzrhs_va_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1298/*M3_VALST  */ #define   YG_zrhs_va_dynzdf_imp(v, i, j, k, t)            Yzrhs_va_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1299/*M3_VALSIT */ #define   YG1_zrhs_va_dynzdf_imp(i, j, k, t)              Yzrhs_va_dynzdf_imp[i][j][k]->Ygrad[t][0]  
     1300/*M3_HERESIT*/ #define   YG1Y_zrhs_va_dynzdf_imp                 Yzrhs_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1301zrhs_va_dynzdf_imp               *Yzrhs_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    11821302 
    11831303//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    11861306/*NBSMOD    */ #define   YNBS_zwt_ua_dynzdf_imp          1 
    11871307/*NBIMOD    */ #define   YNBI_zwt_ua_dynzdf_imp          4 
    1188 /*M3_VALST  */ #define   Ystate_zwt_ua_dynzdf_imp(v, i, j, k, t)         Yzwt_ua_dynzdf_imp->Ystate[t][i][j][k][v]  
    1189 /*M3_VALST  */ #define   YS_zwt_ua_dynzdf_imp(v, i, j, k, t)             Yzwt_ua_dynzdf_imp->Ystate[t][i][j][k][v]  
    1190 /*M3_VALSIT */ #define   YS1_zwt_ua_dynzdf_imp(i, j, k, t)               Yzwt_ua_dynzdf_imp->Ystate[t][i][j][k][0]  
    1191 /*M3_HERESIT*/ #define   YS1Y_zwt_ua_dynzdf_imp                  Yzwt_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    1192 /*M3_VALST  */ #define   Ygrad_zwt_ua_dynzdf_imp(v, i, j, k, t)          Yzwt_ua_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1193 /*M3_VALST  */ #define   YG_zwt_ua_dynzdf_imp(v, i, j, k, t)             Yzwt_ua_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1194 /*M3_VALSIT */ #define   YG1_zwt_ua_dynzdf_imp(i, j, k, t)               Yzwt_ua_dynzdf_imp->Ygrad[t][i][j][k][0]  
    1195 /*M3_HERESIT*/ #define   YG1Y_zwt_ua_dynzdf_imp                  Yzwt_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1196 zwt_ua_dynzdf_imp                *Yzwt_ua_dynzdf_imp; 
     1308/*M3_IRMOD  */ #define   Yzwt_ua_dynzdf_imp(i, j, k)     Yzwt_ua_dynzdf_imp[i][j][k] 
     1309/*M3_NOWMOD */ #define   Yzwt_ua_dynzdf_impY             Yzwt_ua_dynzdf_imp[Yi][Yj][Yk] 
     1310/*M3_VALST  */ #define   Ystate_zwt_ua_dynzdf_imp(v, i, j, k, t)         Yzwt_ua_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1311/*M3_VALST  */ #define   YS_zwt_ua_dynzdf_imp(v, i, j, k, t)             Yzwt_ua_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1312/*M3_VALSIT */ #define   YS1_zwt_ua_dynzdf_imp(i, j, k, t)               Yzwt_ua_dynzdf_imp[i][j][k]->Ystate[t][0]  
     1313/*M3_HERESIT*/ #define   YS1Y_zwt_ua_dynzdf_imp                  Yzwt_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1314/*M3_VALST  */ #define   Ygrad_zwt_ua_dynzdf_imp(v, i, j, k, t)          Yzwt_ua_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1315/*M3_VALST  */ #define   YG_zwt_ua_dynzdf_imp(v, i, j, k, t)             Yzwt_ua_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1316/*M3_VALSIT */ #define   YG1_zwt_ua_dynzdf_imp(i, j, k, t)               Yzwt_ua_dynzdf_imp[i][j][k]->Ygrad[t][0]  
     1317/*M3_HERESIT*/ #define   YG1Y_zwt_ua_dynzdf_imp                  Yzwt_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1318zwt_ua_dynzdf_imp                *Yzwt_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    11971319 
    11981320//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    12011323/*NBSMOD    */ #define   YNBS_zwt_va_dynzdf_imp          1 
    12021324/*NBIMOD    */ #define   YNBI_zwt_va_dynzdf_imp          4 
    1203 /*M3_VALST  */ #define   Ystate_zwt_va_dynzdf_imp(v, i, j, k, t)         Yzwt_va_dynzdf_imp->Ystate[t][i][j][k][v]  
    1204 /*M3_VALST  */ #define   YS_zwt_va_dynzdf_imp(v, i, j, k, t)             Yzwt_va_dynzdf_imp->Ystate[t][i][j][k][v]  
    1205 /*M3_VALSIT */ #define   YS1_zwt_va_dynzdf_imp(i, j, k, t)               Yzwt_va_dynzdf_imp->Ystate[t][i][j][k][0]  
    1206 /*M3_HERESIT*/ #define   YS1Y_zwt_va_dynzdf_imp                  Yzwt_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    1207 /*M3_VALST  */ #define   Ygrad_zwt_va_dynzdf_imp(v, i, j, k, t)          Yzwt_va_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1208 /*M3_VALST  */ #define   YG_zwt_va_dynzdf_imp(v, i, j, k, t)             Yzwt_va_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1209 /*M3_VALSIT */ #define   YG1_zwt_va_dynzdf_imp(i, j, k, t)               Yzwt_va_dynzdf_imp->Ygrad[t][i][j][k][0]  
    1210 /*M3_HERESIT*/ #define   YG1Y_zwt_va_dynzdf_imp                  Yzwt_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1211 zwt_va_dynzdf_imp                *Yzwt_va_dynzdf_imp; 
     1325/*M3_IRMOD  */ #define   Yzwt_va_dynzdf_imp(i, j, k)     Yzwt_va_dynzdf_imp[i][j][k] 
     1326/*M3_NOWMOD */ #define   Yzwt_va_dynzdf_impY             Yzwt_va_dynzdf_imp[Yi][Yj][Yk] 
     1327/*M3_VALST  */ #define   Ystate_zwt_va_dynzdf_imp(v, i, j, k, t)         Yzwt_va_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1328/*M3_VALST  */ #define   YS_zwt_va_dynzdf_imp(v, i, j, k, t)             Yzwt_va_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1329/*M3_VALSIT */ #define   YS1_zwt_va_dynzdf_imp(i, j, k, t)               Yzwt_va_dynzdf_imp[i][j][k]->Ystate[t][0]  
     1330/*M3_HERESIT*/ #define   YS1Y_zwt_va_dynzdf_imp                  Yzwt_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1331/*M3_VALST  */ #define   Ygrad_zwt_va_dynzdf_imp(v, i, j, k, t)          Yzwt_va_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1332/*M3_VALST  */ #define   YG_zwt_va_dynzdf_imp(v, i, j, k, t)             Yzwt_va_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1333/*M3_VALSIT */ #define   YG1_zwt_va_dynzdf_imp(i, j, k, t)               Yzwt_va_dynzdf_imp[i][j][k]->Ygrad[t][0]  
     1334/*M3_HERESIT*/ #define   YG1Y_zwt_va_dynzdf_imp                  Yzwt_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1335zwt_va_dynzdf_imp                *Yzwt_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    12121336 
    12131337//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_de_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    12161340/*NBSMOD    */ #define   YNBS_ua_de_dynzdf_imp   1 
    12171341/*NBIMOD    */ #define   YNBI_ua_de_dynzdf_imp   4 
    1218 /*M3_VALST  */ #define   Ystate_ua_de_dynzdf_imp(v, i, j, k, t)          Yua_de_dynzdf_imp->Ystate[t][i][j][k][v]  
    1219 /*M3_VALST  */ #define   YS_ua_de_dynzdf_imp(v, i, j, k, t)              Yua_de_dynzdf_imp->Ystate[t][i][j][k][v]  
    1220 /*M3_VALSIT */ #define   YS1_ua_de_dynzdf_imp(i, j, k, t)                Yua_de_dynzdf_imp->Ystate[t][i][j][k][0]  
    1221 /*M3_HERESIT*/ #define   YS1Y_ua_de_dynzdf_imp           Yua_de_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    1222 /*M3_VALST  */ #define   Ygrad_ua_de_dynzdf_imp(v, i, j, k, t)   Yua_de_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1223 /*M3_VALST  */ #define   YG_ua_de_dynzdf_imp(v, i, j, k, t)              Yua_de_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1224 /*M3_VALSIT */ #define   YG1_ua_de_dynzdf_imp(i, j, k, t)                Yua_de_dynzdf_imp->Ygrad[t][i][j][k][0]  
    1225 /*M3_HERESIT*/ #define   YG1Y_ua_de_dynzdf_imp           Yua_de_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1226 ua_de_dynzdf_imp                 *Yua_de_dynzdf_imp; 
     1342/*M3_IRMOD  */ #define   Yua_de_dynzdf_imp(i, j, k)      Yua_de_dynzdf_imp[i][j][k] 
     1343/*M3_NOWMOD */ #define   Yua_de_dynzdf_impY              Yua_de_dynzdf_imp[Yi][Yj][Yk] 
     1344/*M3_VALST  */ #define   Ystate_ua_de_dynzdf_imp(v, i, j, k, t)          Yua_de_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1345/*M3_VALST  */ #define   YS_ua_de_dynzdf_imp(v, i, j, k, t)              Yua_de_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1346/*M3_VALSIT */ #define   YS1_ua_de_dynzdf_imp(i, j, k, t)                Yua_de_dynzdf_imp[i][j][k]->Ystate[t][0]  
     1347/*M3_HERESIT*/ #define   YS1Y_ua_de_dynzdf_imp           Yua_de_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1348/*M3_VALST  */ #define   Ygrad_ua_de_dynzdf_imp(v, i, j, k, t)   Yua_de_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1349/*M3_VALST  */ #define   YG_ua_de_dynzdf_imp(v, i, j, k, t)              Yua_de_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1350/*M3_VALSIT */ #define   YG1_ua_de_dynzdf_imp(i, j, k, t)                Yua_de_dynzdf_imp[i][j][k]->Ygrad[t][0]  
     1351/*M3_HERESIT*/ #define   YG1Y_ua_de_dynzdf_imp           Yua_de_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1352ua_de_dynzdf_imp                 *Yua_de_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    12271353 
    12281354//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    12331359/*NBSMOD    */ #define   YNBS_ua_dynzdf_imp      1 
    12341360/*NBIMOD    */ #define   YNBI_ua_dynzdf_imp      4 
    1235 /*M3_VALST  */ #define   Ystate_ua_dynzdf_imp(v, i, j, k, t)     Yua_dynzdf_imp->Ystate[t][i][j][k][v]  
    1236 /*M3_VALST  */ #define   YS_ua_dynzdf_imp(v, i, j, k, t)                 Yua_dynzdf_imp->Ystate[t][i][j][k][v]  
    1237 /*M3_VALSIT */ #define   YS1_ua_dynzdf_imp(i, j, k, t)           Yua_dynzdf_imp->Ystate[t][i][j][k][0]  
    1238 /*M3_HERESIT*/ #define   YS1Y_ua_dynzdf_imp              Yua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    1239 /*M3_VALST  */ #define   Ygrad_ua_dynzdf_imp(v, i, j, k, t)      Yua_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1240 /*M3_VALST  */ #define   YG_ua_dynzdf_imp(v, i, j, k, t)                 Yua_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1241 /*M3_VALSIT */ #define   YG1_ua_dynzdf_imp(i, j, k, t)           Yua_dynzdf_imp->Ygrad[t][i][j][k][0]  
    1242 /*M3_HERESIT*/ #define   YG1Y_ua_dynzdf_imp              Yua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1243 ua_dynzdf_imp            *Yua_dynzdf_imp; 
     1361/*M3_IRMOD  */ #define   Yua_dynzdf_imp(i, j, k)         Yua_dynzdf_imp[i][j][k] 
     1362/*M3_NOWMOD */ #define   Yua_dynzdf_impY                 Yua_dynzdf_imp[Yi][Yj][Yk] 
     1363/*M3_VALST  */ #define   Ystate_ua_dynzdf_imp(v, i, j, k, t)     Yua_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1364/*M3_VALST  */ #define   YS_ua_dynzdf_imp(v, i, j, k, t)                 Yua_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1365/*M3_VALSIT */ #define   YS1_ua_dynzdf_imp(i, j, k, t)           Yua_dynzdf_imp[i][j][k]->Ystate[t][0]  
     1366/*M3_HERESIT*/ #define   YS1Y_ua_dynzdf_imp              Yua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1367/*M3_VALST  */ #define   Ygrad_ua_dynzdf_imp(v, i, j, k, t)      Yua_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1368/*M3_VALST  */ #define   YG_ua_dynzdf_imp(v, i, j, k, t)                 Yua_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1369/*M3_VALSIT */ #define   YG1_ua_dynzdf_imp(i, j, k, t)           Yua_dynzdf_imp[i][j][k]->Ygrad[t][0]  
     1370/*M3_HERESIT*/ #define   YG1Y_ua_dynzdf_imp              Yua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1371ua_dynzdf_imp            *Yua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    12441372 
    12451373//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_de_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    12481376/*NBSMOD    */ #define   YNBS_va_de_dynzdf_imp   1 
    12491377/*NBIMOD    */ #define   YNBI_va_de_dynzdf_imp   4 
    1250 /*M3_VALST  */ #define   Ystate_va_de_dynzdf_imp(v, i, j, k, t)          Yva_de_dynzdf_imp->Ystate[t][i][j][k][v]  
    1251 /*M3_VALST  */ #define   YS_va_de_dynzdf_imp(v, i, j, k, t)              Yva_de_dynzdf_imp->Ystate[t][i][j][k][v]  
    1252 /*M3_VALSIT */ #define   YS1_va_de_dynzdf_imp(i, j, k, t)                Yva_de_dynzdf_imp->Ystate[t][i][j][k][0]  
    1253 /*M3_HERESIT*/ #define   YS1Y_va_de_dynzdf_imp           Yva_de_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    1254 /*M3_VALST  */ #define   Ygrad_va_de_dynzdf_imp(v, i, j, k, t)   Yva_de_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1255 /*M3_VALST  */ #define   YG_va_de_dynzdf_imp(v, i, j, k, t)              Yva_de_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1256 /*M3_VALSIT */ #define   YG1_va_de_dynzdf_imp(i, j, k, t)                Yva_de_dynzdf_imp->Ygrad[t][i][j][k][0]  
    1257 /*M3_HERESIT*/ #define   YG1Y_va_de_dynzdf_imp           Yva_de_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1258 va_de_dynzdf_imp                 *Yva_de_dynzdf_imp; 
     1378/*M3_IRMOD  */ #define   Yva_de_dynzdf_imp(i, j, k)      Yva_de_dynzdf_imp[i][j][k] 
     1379/*M3_NOWMOD */ #define   Yva_de_dynzdf_impY              Yva_de_dynzdf_imp[Yi][Yj][Yk] 
     1380/*M3_VALST  */ #define   Ystate_va_de_dynzdf_imp(v, i, j, k, t)          Yva_de_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1381/*M3_VALST  */ #define   YS_va_de_dynzdf_imp(v, i, j, k, t)              Yva_de_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1382/*M3_VALSIT */ #define   YS1_va_de_dynzdf_imp(i, j, k, t)                Yva_de_dynzdf_imp[i][j][k]->Ystate[t][0]  
     1383/*M3_HERESIT*/ #define   YS1Y_va_de_dynzdf_imp           Yva_de_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1384/*M3_VALST  */ #define   Ygrad_va_de_dynzdf_imp(v, i, j, k, t)   Yva_de_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1385/*M3_VALST  */ #define   YG_va_de_dynzdf_imp(v, i, j, k, t)              Yva_de_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1386/*M3_VALSIT */ #define   YG1_va_de_dynzdf_imp(i, j, k, t)                Yva_de_dynzdf_imp[i][j][k]->Ygrad[t][0]  
     1387/*M3_HERESIT*/ #define   YG1Y_va_de_dynzdf_imp           Yva_de_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1388va_de_dynzdf_imp                 *Yva_de_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    12591389 
    12601390//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    12631393/*NBSMOD    */ #define   YNBS_va_dynzdf_imp      1 
    12641394/*NBIMOD    */ #define   YNBI_va_dynzdf_imp      4 
    1265 /*M3_VALST  */ #define   Ystate_va_dynzdf_imp(v, i, j, k, t)     Yva_dynzdf_imp->Ystate[t][i][j][k][v]  
    1266 /*M3_VALST  */ #define   YS_va_dynzdf_imp(v, i, j, k, t)                 Yva_dynzdf_imp->Ystate[t][i][j][k][v]  
    1267 /*M3_VALSIT */ #define   YS1_va_dynzdf_imp(i, j, k, t)           Yva_dynzdf_imp->Ystate[t][i][j][k][0]  
    1268 /*M3_HERESIT*/ #define   YS1Y_va_dynzdf_imp              Yva_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0]  
    1269 /*M3_VALST  */ #define   Ygrad_va_dynzdf_imp(v, i, j, k, t)      Yva_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1270 /*M3_VALST  */ #define   YG_va_dynzdf_imp(v, i, j, k, t)                 Yva_dynzdf_imp->Ygrad[t][i][j][k][v]  
    1271 /*M3_VALSIT */ #define   YG1_va_dynzdf_imp(i, j, k, t)           Yva_dynzdf_imp->Ygrad[t][i][j][k][0]  
    1272 /*M3_HERESIT*/ #define   YG1Y_va_dynzdf_imp              Yva_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1273 va_dynzdf_imp            *Yva_dynzdf_imp; 
     1395/*M3_IRMOD  */ #define   Yva_dynzdf_imp(i, j, k)         Yva_dynzdf_imp[i][j][k] 
     1396/*M3_NOWMOD */ #define   Yva_dynzdf_impY                 Yva_dynzdf_imp[Yi][Yj][Yk] 
     1397/*M3_VALST  */ #define   Ystate_va_dynzdf_imp(v, i, j, k, t)     Yva_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1398/*M3_VALST  */ #define   YS_va_dynzdf_imp(v, i, j, k, t)                 Yva_dynzdf_imp[i][j][k]->Ystate[t][v]  
     1399/*M3_VALSIT */ #define   YS1_va_dynzdf_imp(i, j, k, t)           Yva_dynzdf_imp[i][j][k]->Ystate[t][0]  
     1400/*M3_HERESIT*/ #define   YS1Y_va_dynzdf_imp              Yva_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1401/*M3_VALST  */ #define   Ygrad_va_dynzdf_imp(v, i, j, k, t)      Yva_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1402/*M3_VALST  */ #define   YG_va_dynzdf_imp(v, i, j, k, t)                 Yva_dynzdf_imp[i][j][k]->Ygrad[t][v]  
     1403/*M3_VALSIT */ #define   YG1_va_dynzdf_imp(i, j, k, t)           Yva_dynzdf_imp[i][j][k]->Ygrad[t][0]  
     1404/*M3_HERESIT*/ #define   YG1Y_va_dynzdf_imp              Yva_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1405va_dynzdf_imp            *Yva_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    12741406 
    12751407//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_norm_dynzdf~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    12801412/*NBSMOD    */ #define   YNBS_ua_norm_dynzdf     1 
    12811413/*NBIMOD    */ #define   YNBI_ua_norm_dynzdf     2 
    1282 /*M3_VALST  */ #define   Ystate_ua_norm_dynzdf(v, i, j, k, t)    Yua_norm_dynzdf->Ystate[t][i][j][k][v]  
    1283 /*M3_VALST  */ #define   YS_ua_norm_dynzdf(v, i, j, k, t)                Yua_norm_dynzdf->Ystate[t][i][j][k][v]  
    1284 /*M3_VALSIT */ #define   YS1_ua_norm_dynzdf(i, j, k, t)                  Yua_norm_dynzdf->Ystate[t][i][j][k][0]  
    1285 /*M3_HERESIT*/ #define   YS1Y_ua_norm_dynzdf             Yua_norm_dynzdf->Ystate[YTemps][Yi][Yj][Yk][0]  
    1286 /*M3_VALST  */ #define   Ygrad_ua_norm_dynzdf(v, i, j, k, t)     Yua_norm_dynzdf->Ygrad[t][i][j][k][v]  
    1287 /*M3_VALST  */ #define   YG_ua_norm_dynzdf(v, i, j, k, t)                Yua_norm_dynzdf->Ygrad[t][i][j][k][v]  
    1288 /*M3_VALSIT */ #define   YG1_ua_norm_dynzdf(i, j, k, t)                  Yua_norm_dynzdf->Ygrad[t][i][j][k][0]  
    1289 /*M3_HERESIT*/ #define   YG1Y_ua_norm_dynzdf             Yua_norm_dynzdf->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1290 ua_norm_dynzdf           *Yua_norm_dynzdf; 
     1414/*M3_IRMOD  */ #define   Yua_norm_dynzdf(i, j, k)        Yua_norm_dynzdf[i][j][k] 
     1415/*M3_NOWMOD */ #define   Yua_norm_dynzdfY                Yua_norm_dynzdf[Yi][Yj][Yk] 
     1416/*M3_VALST  */ #define   Ystate_ua_norm_dynzdf(v, i, j, k, t)    Yua_norm_dynzdf[i][j][k]->Ystate[t][v]  
     1417/*M3_VALST  */ #define   YS_ua_norm_dynzdf(v, i, j, k, t)                Yua_norm_dynzdf[i][j][k]->Ystate[t][v]  
     1418/*M3_VALSIT */ #define   YS1_ua_norm_dynzdf(i, j, k, t)                  Yua_norm_dynzdf[i][j][k]->Ystate[t][0]  
     1419/*M3_HERESIT*/ #define   YS1Y_ua_norm_dynzdf             Yua_norm_dynzdf[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1420/*M3_VALST  */ #define   Ygrad_ua_norm_dynzdf(v, i, j, k, t)     Yua_norm_dynzdf[i][j][k]->Ygrad[t][v]  
     1421/*M3_VALST  */ #define   YG_ua_norm_dynzdf(v, i, j, k, t)                Yua_norm_dynzdf[i][j][k]->Ygrad[t][v]  
     1422/*M3_VALSIT */ #define   YG1_ua_norm_dynzdf(i, j, k, t)                  Yua_norm_dynzdf[i][j][k]->Ygrad[t][0]  
     1423/*M3_HERESIT*/ #define   YG1Y_ua_norm_dynzdf             Yua_norm_dynzdf[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1424ua_norm_dynzdf           *Yua_norm_dynzdf[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    12911425 
    12921426//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_norm_dynzdf~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    12951429/*NBSMOD    */ #define   YNBS_va_norm_dynzdf     1 
    12961430/*NBIMOD    */ #define   YNBI_va_norm_dynzdf     2 
    1297 /*M3_VALST  */ #define   Ystate_va_norm_dynzdf(v, i, j, k, t)    Yva_norm_dynzdf->Ystate[t][i][j][k][v]  
    1298 /*M3_VALST  */ #define   YS_va_norm_dynzdf(v, i, j, k, t)                Yva_norm_dynzdf->Ystate[t][i][j][k][v]  
    1299 /*M3_VALSIT */ #define   YS1_va_norm_dynzdf(i, j, k, t)                  Yva_norm_dynzdf->Ystate[t][i][j][k][0]  
    1300 /*M3_HERESIT*/ #define   YS1Y_va_norm_dynzdf             Yva_norm_dynzdf->Ystate[YTemps][Yi][Yj][Yk][0]  
    1301 /*M3_VALST  */ #define   Ygrad_va_norm_dynzdf(v, i, j, k, t)     Yva_norm_dynzdf->Ygrad[t][i][j][k][v]  
    1302 /*M3_VALST  */ #define   YG_va_norm_dynzdf(v, i, j, k, t)                Yva_norm_dynzdf->Ygrad[t][i][j][k][v]  
    1303 /*M3_VALSIT */ #define   YG1_va_norm_dynzdf(i, j, k, t)                  Yva_norm_dynzdf->Ygrad[t][i][j][k][0]  
    1304 /*M3_HERESIT*/ #define   YG1Y_va_norm_dynzdf             Yva_norm_dynzdf->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1305 va_norm_dynzdf           *Yva_norm_dynzdf; 
     1431/*M3_IRMOD  */ #define   Yva_norm_dynzdf(i, j, k)        Yva_norm_dynzdf[i][j][k] 
     1432/*M3_NOWMOD */ #define   Yva_norm_dynzdfY                Yva_norm_dynzdf[Yi][Yj][Yk] 
     1433/*M3_VALST  */ #define   Ystate_va_norm_dynzdf(v, i, j, k, t)    Yva_norm_dynzdf[i][j][k]->Ystate[t][v]  
     1434/*M3_VALST  */ #define   YS_va_norm_dynzdf(v, i, j, k, t)                Yva_norm_dynzdf[i][j][k]->Ystate[t][v]  
     1435/*M3_VALSIT */ #define   YS1_va_norm_dynzdf(i, j, k, t)                  Yva_norm_dynzdf[i][j][k]->Ystate[t][0]  
     1436/*M3_HERESIT*/ #define   YS1Y_va_norm_dynzdf             Yva_norm_dynzdf[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1437/*M3_VALST  */ #define   Ygrad_va_norm_dynzdf(v, i, j, k, t)     Yva_norm_dynzdf[i][j][k]->Ygrad[t][v]  
     1438/*M3_VALST  */ #define   YG_va_norm_dynzdf(v, i, j, k, t)                Yva_norm_dynzdf[i][j][k]->Ygrad[t][v]  
     1439/*M3_VALSIT */ #define   YG1_va_norm_dynzdf(i, j, k, t)                  Yva_norm_dynzdf[i][j][k]->Ygrad[t][0]  
     1440/*M3_HERESIT*/ #define   YG1Y_va_norm_dynzdf             Yva_norm_dynzdf[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1441va_norm_dynzdf           *Yva_norm_dynzdf[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    13061442 
    13071443//~~~~~~~~~~~~~~~~~~~~~~~~~ module spguv_now_dynspg~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    13131449/*NBSMOD    */ #define   YNBS_spguv_now_dynspg   2 
    13141450/*NBIMOD    */ #define   YNBI_spguv_now_dynspg   3 
    1315 /*M2_VALST  */ #define   Ystate_spguv_now_dynspg(v, i, j, t)             Yspguv_now_dynspg->Ystate[t][i][j][v]  
    1316 /*M2_VALST  */ #define   YS_spguv_now_dynspg(v, i, j, t)                 Yspguv_now_dynspg->Ystate[t][i][j][v]  
    1317 /*M2_VALSIT */ #define   YS1_spguv_now_dynspg(i, j, t)           Yspguv_now_dynspg->Ystate[t][i][j][0]  
    1318 /*M2_HERESIT*/ #define   YS1Y_spguv_now_dynspg           Yspguv_now_dynspg->Ystate[YTemps][Yi][Yj][0]  
    1319 /*M2_VALSIT */ #define   YS2_spguv_now_dynspg(i, j, t)           Yspguv_now_dynspg->Ystate[t][i][j][1]  
    1320 /*M2_HERESIT*/ #define   YS2Y_spguv_now_dynspg           Yspguv_now_dynspg->Ystate[YTemps][Yi][Yj][1]  
    1321 /*M2_VALST  */ #define   Ygrad_spguv_now_dynspg(v, i, j, t)              Yspguv_now_dynspg->Ygrad[t][i][j][v]  
    1322 /*M2_VALST  */ #define   YG_spguv_now_dynspg(v, i, j, t)                 Yspguv_now_dynspg->Ygrad[t][i][j][v]  
    1323 /*M2_VALSIT */ #define   YG1_spguv_now_dynspg(i, j, t)           Yspguv_now_dynspg->Ygrad[t][i][j][0]  
    1324 /*M2_HERESIT*/ #define   YG1Y_spguv_now_dynspg           Yspguv_now_dynspg->Ygrad[YTemps][Yi][Yj][0]  
    1325 /*M2_VALSIT */ #define   YG2_spguv_now_dynspg(i, j, t)           Yspguv_now_dynspg->Ygrad[t][i][j][1]  
    1326 /*M2_HERESIT*/ #define   YG2Y_spguv_now_dynspg           Yspguv_now_dynspg->Ygrad[YTemps][Yi][Yj][1]  
    1327 spguv_now_dynspg                 *Yspguv_now_dynspg; 
     1451/*M2_IRMOD  */ #define   Yspguv_now_dynspg(i, j)         Yspguv_now_dynspg[i][j] 
     1452/*M2_NOWMOD */ #define   Yspguv_now_dynspgY              Yspguv_now_dynspg[Yi][Yj] 
     1453/*M2_VALST  */ #define   Ystate_spguv_now_dynspg(v, i, j, t)             Yspguv_now_dynspg[i][j]->Ystate[t][v]  
     1454/*M2_VALST  */ #define   YS_spguv_now_dynspg(v, i, j, t)                 Yspguv_now_dynspg[i][j]->Ystate[t][v]  
     1455/*M2_VALSIT */ #define   YS1_spguv_now_dynspg(i, j, t)           Yspguv_now_dynspg[i][j]->Ystate[t][0]  
     1456/*M2_HERESIT*/ #define   YS1Y_spguv_now_dynspg           Yspguv_now_dynspg[Yi][Yj]->Ystate[YTemps][0]  
     1457/*M2_VALSIT */ #define   YS2_spguv_now_dynspg(i, j, t)           Yspguv_now_dynspg[i][j]->Ystate[t][1]  
     1458/*M2_HERESIT*/ #define   YS2Y_spguv_now_dynspg           Yspguv_now_dynspg[Yi][Yj]->Ystate[YTemps][1]  
     1459/*M2_VALST  */ #define   Ygrad_spguv_now_dynspg(v, i, j, t)              Yspguv_now_dynspg[i][j]->Ygrad[t][v]  
     1460/*M2_VALST  */ #define   YG_spguv_now_dynspg(v, i, j, t)                 Yspguv_now_dynspg[i][j]->Ygrad[t][v]  
     1461/*M2_VALSIT */ #define   YG1_spguv_now_dynspg(i, j, t)           Yspguv_now_dynspg[i][j]->Ygrad[t][0]  
     1462/*M2_HERESIT*/ #define   YG1Y_spguv_now_dynspg           Yspguv_now_dynspg[Yi][Yj]->Ygrad[YTemps][0]  
     1463/*M2_VALSIT */ #define   YG2_spguv_now_dynspg(i, j, t)           Yspguv_now_dynspg[i][j]->Ygrad[t][1]  
     1464/*M2_HERESIT*/ #define   YG2Y_spguv_now_dynspg           Yspguv_now_dynspg[Yi][Yj]->Ygrad[YTemps][1]  
     1465spguv_now_dynspg                 *Yspguv_now_dynspg[YA1_S3dt][YA2_S3dt]; 
    13281466 
    13291467//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_1_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    13341472/*NBSMOD    */ #define   YNBS_ua_1_dynspg_flt    1 
    13351473/*NBIMOD    */ #define   YNBI_ua_1_dynspg_flt    3 
    1336 /*M3_VALST  */ #define   Ystate_ua_1_dynspg_flt(v, i, j, k, t)   Yua_1_dynspg_flt->Ystate[t][i][j][k][v]  
    1337 /*M3_VALST  */ #define   YS_ua_1_dynspg_flt(v, i, j, k, t)               Yua_1_dynspg_flt->Ystate[t][i][j][k][v]  
    1338 /*M3_VALSIT */ #define   YS1_ua_1_dynspg_flt(i, j, k, t)                 Yua_1_dynspg_flt->Ystate[t][i][j][k][0]  
    1339 /*M3_HERESIT*/ #define   YS1Y_ua_1_dynspg_flt            Yua_1_dynspg_flt->Ystate[YTemps][Yi][Yj][Yk][0]  
    1340 /*M3_VALST  */ #define   Ygrad_ua_1_dynspg_flt(v, i, j, k, t)    Yua_1_dynspg_flt->Ygrad[t][i][j][k][v]  
    1341 /*M3_VALST  */ #define   YG_ua_1_dynspg_flt(v, i, j, k, t)               Yua_1_dynspg_flt->Ygrad[t][i][j][k][v]  
    1342 /*M3_VALSIT */ #define   YG1_ua_1_dynspg_flt(i, j, k, t)                 Yua_1_dynspg_flt->Ygrad[t][i][j][k][0]  
    1343 /*M3_HERESIT*/ #define   YG1Y_ua_1_dynspg_flt            Yua_1_dynspg_flt->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1344 ua_1_dynspg_flt                  *Yua_1_dynspg_flt; 
     1474/*M3_IRMOD  */ #define   Yua_1_dynspg_flt(i, j, k)       Yua_1_dynspg_flt[i][j][k] 
     1475/*M3_NOWMOD */ #define   Yua_1_dynspg_fltY               Yua_1_dynspg_flt[Yi][Yj][Yk] 
     1476/*M3_VALST  */ #define   Ystate_ua_1_dynspg_flt(v, i, j, k, t)   Yua_1_dynspg_flt[i][j][k]->Ystate[t][v]  
     1477/*M3_VALST  */ #define   YS_ua_1_dynspg_flt(v, i, j, k, t)               Yua_1_dynspg_flt[i][j][k]->Ystate[t][v]  
     1478/*M3_VALSIT */ #define   YS1_ua_1_dynspg_flt(i, j, k, t)                 Yua_1_dynspg_flt[i][j][k]->Ystate[t][0]  
     1479/*M3_HERESIT*/ #define   YS1Y_ua_1_dynspg_flt            Yua_1_dynspg_flt[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1480/*M3_VALST  */ #define   Ygrad_ua_1_dynspg_flt(v, i, j, k, t)    Yua_1_dynspg_flt[i][j][k]->Ygrad[t][v]  
     1481/*M3_VALST  */ #define   YG_ua_1_dynspg_flt(v, i, j, k, t)               Yua_1_dynspg_flt[i][j][k]->Ygrad[t][v]  
     1482/*M3_VALSIT */ #define   YG1_ua_1_dynspg_flt(i, j, k, t)                 Yua_1_dynspg_flt[i][j][k]->Ygrad[t][0]  
     1483/*M3_HERESIT*/ #define   YG1Y_ua_1_dynspg_flt            Yua_1_dynspg_flt[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1484ua_1_dynspg_flt                  *Yua_1_dynspg_flt[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    13451485 
    13461486//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_1_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    13511491/*NBSMOD    */ #define   YNBS_va_1_dynspg_flt    1 
    13521492/*NBIMOD    */ #define   YNBI_va_1_dynspg_flt    3 
    1353 /*M3_VALST  */ #define   Ystate_va_1_dynspg_flt(v, i, j, k, t)   Yva_1_dynspg_flt->Ystate[t][i][j][k][v]  
    1354 /*M3_VALST  */ #define   YS_va_1_dynspg_flt(v, i, j, k, t)               Yva_1_dynspg_flt->Ystate[t][i][j][k][v]  
    1355 /*M3_VALSIT */ #define   YS1_va_1_dynspg_flt(i, j, k, t)                 Yva_1_dynspg_flt->Ystate[t][i][j][k][0]  
    1356 /*M3_HERESIT*/ #define   YS1Y_va_1_dynspg_flt            Yva_1_dynspg_flt->Ystate[YTemps][Yi][Yj][Yk][0]  
    1357 /*M3_VALST  */ #define   Ygrad_va_1_dynspg_flt(v, i, j, k, t)    Yva_1_dynspg_flt->Ygrad[t][i][j][k][v]  
    1358 /*M3_VALST  */ #define   YG_va_1_dynspg_flt(v, i, j, k, t)               Yva_1_dynspg_flt->Ygrad[t][i][j][k][v]  
    1359 /*M3_VALSIT */ #define   YG1_va_1_dynspg_flt(i, j, k, t)                 Yva_1_dynspg_flt->Ygrad[t][i][j][k][0]  
    1360 /*M3_HERESIT*/ #define   YG1Y_va_1_dynspg_flt            Yva_1_dynspg_flt->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1361 va_1_dynspg_flt                  *Yva_1_dynspg_flt; 
     1493/*M3_IRMOD  */ #define   Yva_1_dynspg_flt(i, j, k)       Yva_1_dynspg_flt[i][j][k] 
     1494/*M3_NOWMOD */ #define   Yva_1_dynspg_fltY               Yva_1_dynspg_flt[Yi][Yj][Yk] 
     1495/*M3_VALST  */ #define   Ystate_va_1_dynspg_flt(v, i, j, k, t)   Yva_1_dynspg_flt[i][j][k]->Ystate[t][v]  
     1496/*M3_VALST  */ #define   YS_va_1_dynspg_flt(v, i, j, k, t)               Yva_1_dynspg_flt[i][j][k]->Ystate[t][v]  
     1497/*M3_VALSIT */ #define   YS1_va_1_dynspg_flt(i, j, k, t)                 Yva_1_dynspg_flt[i][j][k]->Ystate[t][0]  
     1498/*M3_HERESIT*/ #define   YS1Y_va_1_dynspg_flt            Yva_1_dynspg_flt[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1499/*M3_VALST  */ #define   Ygrad_va_1_dynspg_flt(v, i, j, k, t)    Yva_1_dynspg_flt[i][j][k]->Ygrad[t][v]  
     1500/*M3_VALST  */ #define   YG_va_1_dynspg_flt(v, i, j, k, t)               Yva_1_dynspg_flt[i][j][k]->Ygrad[t][v]  
     1501/*M3_VALSIT */ #define   YG1_va_1_dynspg_flt(i, j, k, t)                 Yva_1_dynspg_flt[i][j][k]->Ygrad[t][0]  
     1502/*M3_HERESIT*/ #define   YG1Y_va_1_dynspg_flt            Yva_1_dynspg_flt[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1503va_1_dynspg_flt                  *Yva_1_dynspg_flt[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    13621504 
    13631505//~~~~~~~~~~~~~~~~~~~~~~~~~ module sum_spgu_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    13691511/*NBSMOD    */ #define   YNBS_sum_spgu_dynspg_flt        1 
    13701512/*NBIMOD    */ #define   YNBI_sum_spgu_dynspg_flt        31 
    1371 /*M2_VALST  */ #define   Ystate_sum_spgu_dynspg_flt(v, i, j, t)                  Ysum_spgu_dynspg_flt->Ystate[t][i][j][v]  
    1372 /*M2_VALST  */ #define   YS_sum_spgu_dynspg_flt(v, i, j, t)              Ysum_spgu_dynspg_flt->Ystate[t][i][j][v]  
    1373 /*M2_VALSIT */ #define   YS1_sum_spgu_dynspg_flt(i, j, t)                Ysum_spgu_dynspg_flt->Ystate[t][i][j][0]  
    1374 /*M2_HERESIT*/ #define   YS1Y_sum_spgu_dynspg_flt                Ysum_spgu_dynspg_flt->Ystate[YTemps][Yi][Yj][0]  
    1375 /*M2_VALST  */ #define   Ygrad_sum_spgu_dynspg_flt(v, i, j, t)           Ysum_spgu_dynspg_flt->Ygrad[t][i][j][v]  
    1376 /*M2_VALST  */ #define   YG_sum_spgu_dynspg_flt(v, i, j, t)              Ysum_spgu_dynspg_flt->Ygrad[t][i][j][v]  
    1377 /*M2_VALSIT */ #define   YG1_sum_spgu_dynspg_flt(i, j, t)                Ysum_spgu_dynspg_flt->Ygrad[t][i][j][0]  
    1378 /*M2_HERESIT*/ #define   YG1Y_sum_spgu_dynspg_flt                Ysum_spgu_dynspg_flt->Ygrad[YTemps][Yi][Yj][0]  
    1379 sum_spgu_dynspg_flt              *Ysum_spgu_dynspg_flt; 
     1513/*M2_IRMOD  */ #define   Ysum_spgu_dynspg_flt(i, j)      Ysum_spgu_dynspg_flt[i][j] 
     1514/*M2_NOWMOD */ #define   Ysum_spgu_dynspg_fltY           Ysum_spgu_dynspg_flt[Yi][Yj] 
     1515/*M2_VALST  */ #define   Ystate_sum_spgu_dynspg_flt(v, i, j, t)                  Ysum_spgu_dynspg_flt[i][j]->Ystate[t][v]  
     1516/*M2_VALST  */ #define   YS_sum_spgu_dynspg_flt(v, i, j, t)              Ysum_spgu_dynspg_flt[i][j]->Ystate[t][v]  
     1517/*M2_VALSIT */ #define   YS1_sum_spgu_dynspg_flt(i, j, t)                Ysum_spgu_dynspg_flt[i][j]->Ystate[t][0]  
     1518/*M2_HERESIT*/ #define   YS1Y_sum_spgu_dynspg_flt                Ysum_spgu_dynspg_flt[Yi][Yj]->Ystate[YTemps][0]  
     1519/*M2_VALST  */ #define   Ygrad_sum_spgu_dynspg_flt(v, i, j, t)           Ysum_spgu_dynspg_flt[i][j]->Ygrad[t][v]  
     1520/*M2_VALST  */ #define   YG_sum_spgu_dynspg_flt(v, i, j, t)              Ysum_spgu_dynspg_flt[i][j]->Ygrad[t][v]  
     1521/*M2_VALSIT */ #define   YG1_sum_spgu_dynspg_flt(i, j, t)                Ysum_spgu_dynspg_flt[i][j]->Ygrad[t][0]  
     1522/*M2_HERESIT*/ #define   YG1Y_sum_spgu_dynspg_flt                Ysum_spgu_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0]  
     1523sum_spgu_dynspg_flt              *Ysum_spgu_dynspg_flt[YA1_S3dt][YA2_S3dt]; 
    13801524 
    13811525//~~~~~~~~~~~~~~~~~~~~~~~~~ module sum_spgv_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    13871531/*NBSMOD    */ #define   YNBS_sum_spgv_dynspg_flt        1 
    13881532/*NBIMOD    */ #define   YNBI_sum_spgv_dynspg_flt        31 
    1389 /*M2_VALST  */ #define   Ystate_sum_spgv_dynspg_flt(v, i, j, t)                  Ysum_spgv_dynspg_flt->Ystate[t][i][j][v]  
    1390 /*M2_VALST  */ #define   YS_sum_spgv_dynspg_flt(v, i, j, t)              Ysum_spgv_dynspg_flt->Ystate[t][i][j][v]  
    1391 /*M2_VALSIT */ #define   YS1_sum_spgv_dynspg_flt(i, j, t)                Ysum_spgv_dynspg_flt->Ystate[t][i][j][0]  
    1392 /*M2_HERESIT*/ #define   YS1Y_sum_spgv_dynspg_flt                Ysum_spgv_dynspg_flt->Ystate[YTemps][Yi][Yj][0]  
    1393 /*M2_VALST  */ #define   Ygrad_sum_spgv_dynspg_flt(v, i, j, t)           Ysum_spgv_dynspg_flt->Ygrad[t][i][j][v]  
    1394 /*M2_VALST  */ #define   YG_sum_spgv_dynspg_flt(v, i, j, t)              Ysum_spgv_dynspg_flt->Ygrad[t][i][j][v]  
    1395 /*M2_VALSIT */ #define   YG1_sum_spgv_dynspg_flt(i, j, t)                Ysum_spgv_dynspg_flt->Ygrad[t][i][j][0]  
    1396 /*M2_HERESIT*/ #define   YG1Y_sum_spgv_dynspg_flt                Ysum_spgv_dynspg_flt->Ygrad[YTemps][Yi][Yj][0]  
    1397 sum_spgv_dynspg_flt              *Ysum_spgv_dynspg_flt; 
     1533/*M2_IRMOD  */ #define   Ysum_spgv_dynspg_flt(i, j)      Ysum_spgv_dynspg_flt[i][j] 
     1534/*M2_NOWMOD */ #define   Ysum_spgv_dynspg_fltY           Ysum_spgv_dynspg_flt[Yi][Yj] 
     1535/*M2_VALST  */ #define   Ystate_sum_spgv_dynspg_flt(v, i, j, t)                  Ysum_spgv_dynspg_flt[i][j]->Ystate[t][v]  
     1536/*M2_VALST  */ #define   YS_sum_spgv_dynspg_flt(v, i, j, t)              Ysum_spgv_dynspg_flt[i][j]->Ystate[t][v]  
     1537/*M2_VALSIT */ #define   YS1_sum_spgv_dynspg_flt(i, j, t)                Ysum_spgv_dynspg_flt[i][j]->Ystate[t][0]  
     1538/*M2_HERESIT*/ #define   YS1Y_sum_spgv_dynspg_flt                Ysum_spgv_dynspg_flt[Yi][Yj]->Ystate[YTemps][0]  
     1539/*M2_VALST  */ #define   Ygrad_sum_spgv_dynspg_flt(v, i, j, t)           Ysum_spgv_dynspg_flt[i][j]->Ygrad[t][v]  
     1540/*M2_VALST  */ #define   YG_sum_spgv_dynspg_flt(v, i, j, t)              Ysum_spgv_dynspg_flt[i][j]->Ygrad[t][v]  
     1541/*M2_VALSIT */ #define   YG1_sum_spgv_dynspg_flt(i, j, t)                Ysum_spgv_dynspg_flt[i][j]->Ygrad[t][0]  
     1542/*M2_HERESIT*/ #define   YG1Y_sum_spgv_dynspg_flt                Ysum_spgv_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0]  
     1543sum_spgv_dynspg_flt              *Ysum_spgv_dynspg_flt[YA1_S3dt][YA2_S3dt]; 
    13981544 
    13991545//~~~~~~~~~~~~~~~~~~~~~~~~~ module gcb_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    14051551/*NBSMOD    */ #define   YNBS_gcb_dynspg_flt     1 
    14061552/*NBIMOD    */ #define   YNBI_gcb_dynspg_flt     4 
    1407 /*M2_VALST  */ #define   Ystate_gcb_dynspg_flt(v, i, j, t)               Ygcb_dynspg_flt->Ystate[t][i][j][v]  
    1408 /*M2_VALST  */ #define   YS_gcb_dynspg_flt(v, i, j, t)           Ygcb_dynspg_flt->Ystate[t][i][j][v]  
    1409 /*M2_VALSIT */ #define   YS1_gcb_dynspg_flt(i, j, t)             Ygcb_dynspg_flt->Ystate[t][i][j][0]  
    1410 /*M2_HERESIT*/ #define   YS1Y_gcb_dynspg_flt             Ygcb_dynspg_flt->Ystate[YTemps][Yi][Yj][0]  
    1411 /*M2_VALST  */ #define   Ygrad_gcb_dynspg_flt(v, i, j, t)                Ygcb_dynspg_flt->Ygrad[t][i][j][v]  
    1412 /*M2_VALST  */ #define   YG_gcb_dynspg_flt(v, i, j, t)           Ygcb_dynspg_flt->Ygrad[t][i][j][v]  
    1413 /*M2_VALSIT */ #define   YG1_gcb_dynspg_flt(i, j, t)             Ygcb_dynspg_flt->Ygrad[t][i][j][0]  
    1414 /*M2_HERESIT*/ #define   YG1Y_gcb_dynspg_flt             Ygcb_dynspg_flt->Ygrad[YTemps][Yi][Yj][0]  
    1415 gcb_dynspg_flt           *Ygcb_dynspg_flt; 
     1553/*M2_IRMOD  */ #define   Ygcb_dynspg_flt(i, j)   Ygcb_dynspg_flt[i][j] 
     1554/*M2_NOWMOD */ #define   Ygcb_dynspg_fltY                Ygcb_dynspg_flt[Yi][Yj] 
     1555/*M2_VALST  */ #define   Ystate_gcb_dynspg_flt(v, i, j, t)               Ygcb_dynspg_flt[i][j]->Ystate[t][v]  
     1556/*M2_VALST  */ #define   YS_gcb_dynspg_flt(v, i, j, t)           Ygcb_dynspg_flt[i][j]->Ystate[t][v]  
     1557/*M2_VALSIT */ #define   YS1_gcb_dynspg_flt(i, j, t)             Ygcb_dynspg_flt[i][j]->Ystate[t][0]  
     1558/*M2_HERESIT*/ #define   YS1Y_gcb_dynspg_flt             Ygcb_dynspg_flt[Yi][Yj]->Ystate[YTemps][0]  
     1559/*M2_VALST  */ #define   Ygrad_gcb_dynspg_flt(v, i, j, t)                Ygcb_dynspg_flt[i][j]->Ygrad[t][v]  
     1560/*M2_VALST  */ #define   YG_gcb_dynspg_flt(v, i, j, t)           Ygcb_dynspg_flt[i][j]->Ygrad[t][v]  
     1561/*M2_VALSIT */ #define   YG1_gcb_dynspg_flt(i, j, t)             Ygcb_dynspg_flt[i][j]->Ygrad[t][0]  
     1562/*M2_HERESIT*/ #define   YG1Y_gcb_dynspg_flt             Ygcb_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0]  
     1563gcb_dynspg_flt           *Ygcb_dynspg_flt[YA1_S3dt][YA2_S3dt]; 
    14161564 
    14171565//~~~~~~~~~~~~~~~~~~~~~~~~~ module gcx_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    14231571/*NBSMOD    */ #define   YNBS_gcx_dynspg_flt     1 
    14241572/*NBIMOD    */ #define   YNBI_gcx_dynspg_flt     2 
    1425 /*M2_VALST  */ #define   Ystate_gcx_dynspg_flt(v, i, j, t)               Ygcx_dynspg_flt->Ystate[t][i][j][v]  
    1426 /*M2_VALST  */ #define   YS_gcx_dynspg_flt(v, i, j, t)           Ygcx_dynspg_flt->Ystate[t][i][j][v]  
    1427 /*M2_VALSIT */ #define   YS1_gcx_dynspg_flt(i, j, t)             Ygcx_dynspg_flt->Ystate[t][i][j][0]  
    1428 /*M2_HERESIT*/ #define   YS1Y_gcx_dynspg_flt             Ygcx_dynspg_flt->Ystate[YTemps][Yi][Yj][0]  
    1429 /*M2_VALST  */ #define   Ygrad_gcx_dynspg_flt(v, i, j, t)                Ygcx_dynspg_flt->Ygrad[t][i][j][v]  
    1430 /*M2_VALST  */ #define   YG_gcx_dynspg_flt(v, i, j, t)           Ygcx_dynspg_flt->Ygrad[t][i][j][v]  
    1431 /*M2_VALSIT */ #define   YG1_gcx_dynspg_flt(i, j, t)             Ygcx_dynspg_flt->Ygrad[t][i][j][0]  
    1432 /*M2_HERESIT*/ #define   YG1Y_gcx_dynspg_flt             Ygcx_dynspg_flt->Ygrad[YTemps][Yi][Yj][0]  
    1433 gcx_dynspg_flt           *Ygcx_dynspg_flt; 
     1573/*M2_IRMOD  */ #define   Ygcx_dynspg_flt(i, j)   Ygcx_dynspg_flt[i][j] 
     1574/*M2_NOWMOD */ #define   Ygcx_dynspg_fltY                Ygcx_dynspg_flt[Yi][Yj] 
     1575/*M2_VALST  */ #define   Ystate_gcx_dynspg_flt(v, i, j, t)               Ygcx_dynspg_flt[i][j]->Ystate[t][v]  
     1576/*M2_VALST  */ #define   YS_gcx_dynspg_flt(v, i, j, t)           Ygcx_dynspg_flt[i][j]->Ystate[t][v]  
     1577/*M2_VALSIT */ #define   YS1_gcx_dynspg_flt(i, j, t)             Ygcx_dynspg_flt[i][j]->Ystate[t][0]  
     1578/*M2_HERESIT*/ #define   YS1Y_gcx_dynspg_flt             Ygcx_dynspg_flt[Yi][Yj]->Ystate[YTemps][0]  
     1579/*M2_VALST  */ #define   Ygrad_gcx_dynspg_flt(v, i, j, t)                Ygcx_dynspg_flt[i][j]->Ygrad[t][v]  
     1580/*M2_VALST  */ #define   YG_gcx_dynspg_flt(v, i, j, t)           Ygcx_dynspg_flt[i][j]->Ygrad[t][v]  
     1581/*M2_VALSIT */ #define   YG1_gcx_dynspg_flt(i, j, t)             Ygcx_dynspg_flt[i][j]->Ygrad[t][0]  
     1582/*M2_HERESIT*/ #define   YG1Y_gcx_dynspg_flt             Ygcx_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0]  
     1583gcx_dynspg_flt           *Ygcx_dynspg_flt[YA1_S3dt][YA2_S3dt]; 
    14341584 
    14351585//~~~~~~~~~~~~~~~~~~~~~~~~~ module solsor_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    14411591/*NBSMOD    */ #define   YNBS_solsor_dynspg_flt          1 
    14421592/*NBIMOD    */ #define   YNBI_solsor_dynspg_flt          19 
    1443 /*M2_VALST  */ #define   Ystate_solsor_dynspg_flt(v, i, j, t)            Ysolsor_dynspg_flt->Ystate[t][i][j][v]  
    1444 /*M2_VALST  */ #define   YS_solsor_dynspg_flt(v, i, j, t)                Ysolsor_dynspg_flt->Ystate[t][i][j][v]  
    1445 /*M2_VALSIT */ #define   YS1_solsor_dynspg_flt(i, j, t)                  Ysolsor_dynspg_flt->Ystate[t][i][j][0]  
    1446 /*M2_HERESIT*/ #define   YS1Y_solsor_dynspg_flt                  Ysolsor_dynspg_flt->Ystate[YTemps][Yi][Yj][0]  
    1447 /*M2_VALST  */ #define   Ygrad_solsor_dynspg_flt(v, i, j, t)             Ysolsor_dynspg_flt->Ygrad[t][i][j][v]  
    1448 /*M2_VALST  */ #define   YG_solsor_dynspg_flt(v, i, j, t)                Ysolsor_dynspg_flt->Ygrad[t][i][j][v]  
    1449 /*M2_VALSIT */ #define   YG1_solsor_dynspg_flt(i, j, t)                  Ysolsor_dynspg_flt->Ygrad[t][i][j][0]  
    1450 /*M2_HERESIT*/ #define   YG1Y_solsor_dynspg_flt                  Ysolsor_dynspg_flt->Ygrad[YTemps][Yi][Yj][0]  
    1451 solsor_dynspg_flt                *Ysolsor_dynspg_flt; 
     1593/*M2_IRMOD  */ #define   Ysolsor_dynspg_flt(i, j)        Ysolsor_dynspg_flt[i][j] 
     1594/*M2_NOWMOD */ #define   Ysolsor_dynspg_fltY             Ysolsor_dynspg_flt[Yi][Yj] 
     1595/*M2_VALST  */ #define   Ystate_solsor_dynspg_flt(v, i, j, t)            Ysolsor_dynspg_flt[i][j]->Ystate[t][v]  
     1596/*M2_VALST  */ #define   YS_solsor_dynspg_flt(v, i, j, t)                Ysolsor_dynspg_flt[i][j]->Ystate[t][v]  
     1597/*M2_VALSIT */ #define   YS1_solsor_dynspg_flt(i, j, t)                  Ysolsor_dynspg_flt[i][j]->Ystate[t][0]  
     1598/*M2_HERESIT*/ #define   YS1Y_solsor_dynspg_flt                  Ysolsor_dynspg_flt[Yi][Yj]->Ystate[YTemps][0]  
     1599/*M2_VALST  */ #define   Ygrad_solsor_dynspg_flt(v, i, j, t)             Ysolsor_dynspg_flt[i][j]->Ygrad[t][v]  
     1600/*M2_VALST  */ #define   YG_solsor_dynspg_flt(v, i, j, t)                Ysolsor_dynspg_flt[i][j]->Ygrad[t][v]  
     1601/*M2_VALSIT */ #define   YG1_solsor_dynspg_flt(i, j, t)                  Ysolsor_dynspg_flt[i][j]->Ygrad[t][0]  
     1602/*M2_HERESIT*/ #define   YG1Y_solsor_dynspg_flt                  Ysolsor_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0]  
     1603solsor_dynspg_flt                *Ysolsor_dynspg_flt[YA1_S3dt][YA2_S3dt]; 
    14521604 
    14531605//~~~~~~~~~~~~~~~~~~~~~~~~~ module gcx2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    14591611/*NBSMOD    */ #define   YNBS_gcx2       1 
    14601612/*NBIMOD    */ #define   YNBI_gcx2       1 
    1461 /*M2_VALST  */ #define   Ystate_gcx2(v, i, j, t)                 Ygcx2->Ystate[t][i][j][v]  
    1462 /*M2_VALST  */ #define   YS_gcx2(v, i, j, t)             Ygcx2->Ystate[t][i][j][v]  
    1463 /*M2_VALSIT */ #define   YS1_gcx2(i, j, t)               Ygcx2->Ystate[t][i][j][0]  
    1464 /*M2_HERESIT*/ #define   YS1Y_gcx2               Ygcx2->Ystate[YTemps][Yi][Yj][0]  
    1465 /*M2_VALST  */ #define   Ygrad_gcx2(v, i, j, t)                  Ygcx2->Ygrad[t][i][j][v]  
    1466 /*M2_VALST  */ #define   YG_gcx2(v, i, j, t)             Ygcx2->Ygrad[t][i][j][v]  
    1467 /*M2_VALSIT */ #define   YG1_gcx2(i, j, t)               Ygcx2->Ygrad[t][i][j][0]  
    1468 /*M2_HERESIT*/ #define   YG1Y_gcx2               Ygcx2->Ygrad[YTemps][Yi][Yj][0]  
    1469 gcx2             *Ygcx2; 
     1613/*M2_IRMOD  */ #define   Ygcx2(i, j)     Ygcx2[i][j] 
     1614/*M2_NOWMOD */ #define   Ygcx2Y                  Ygcx2[Yi][Yj] 
     1615/*M2_VALST  */ #define   Ystate_gcx2(v, i, j, t)                 Ygcx2[i][j]->Ystate[t][v]  
     1616/*M2_VALST  */ #define   YS_gcx2(v, i, j, t)             Ygcx2[i][j]->Ystate[t][v]  
     1617/*M2_VALSIT */ #define   YS1_gcx2(i, j, t)               Ygcx2[i][j]->Ystate[t][0]  
     1618/*M2_HERESIT*/ #define   YS1Y_gcx2               Ygcx2[Yi][Yj]->Ystate[YTemps][0]  
     1619/*M2_VALST  */ #define   Ygrad_gcx2(v, i, j, t)                  Ygcx2[i][j]->Ygrad[t][v]  
     1620/*M2_VALST  */ #define   YG_gcx2(v, i, j, t)             Ygcx2[i][j]->Ygrad[t][v]  
     1621/*M2_VALSIT */ #define   YG1_gcx2(i, j, t)               Ygcx2[i][j]->Ygrad[t][0]  
     1622/*M2_HERESIT*/ #define   YG1Y_gcx2               Ygcx2[Yi][Yj]->Ygrad[YTemps][0]  
     1623gcx2             *Ygcx2[YA1_S3dt][YA2_S3dt]; 
    14701624 
    14711625//~~~~~~~~~~~~~~~~~~~~~~~~~ module spguv_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    14771631/*NBSMOD    */ #define   YNBS_spguv_dynspg_flt   2 
    14781632/*NBIMOD    */ #define   YNBI_spguv_dynspg_flt   3 
    1479 /*M2_VALST  */ #define   Ystate_spguv_dynspg_flt(v, i, j, t)             Yspguv_dynspg_flt->Ystate[t][i][j][v]  
    1480 /*M2_VALST  */ #define   YS_spguv_dynspg_flt(v, i, j, t)                 Yspguv_dynspg_flt->Ystate[t][i][j][v]  
    1481 /*M2_VALSIT */ #define   YS1_spguv_dynspg_flt(i, j, t)           Yspguv_dynspg_flt->Ystate[t][i][j][0]  
    1482 /*M2_HERESIT*/ #define   YS1Y_spguv_dynspg_flt           Yspguv_dynspg_flt->Ystate[YTemps][Yi][Yj][0]  
    1483 /*M2_VALSIT */ #define   YS2_spguv_dynspg_flt(i, j, t)           Yspguv_dynspg_flt->Ystate[t][i][j][1]  
    1484 /*M2_HERESIT*/ #define   YS2Y_spguv_dynspg_flt           Yspguv_dynspg_flt->Ystate[YTemps][Yi][Yj][1]  
    1485 /*M2_VALST  */ #define   Ygrad_spguv_dynspg_flt(v, i, j, t)              Yspguv_dynspg_flt->Ygrad[t][i][j][v]  
    1486 /*M2_VALST  */ #define   YG_spguv_dynspg_flt(v, i, j, t)                 Yspguv_dynspg_flt->Ygrad[t][i][j][v]  
    1487 /*M2_VALSIT */ #define   YG1_spguv_dynspg_flt(i, j, t)           Yspguv_dynspg_flt->Ygrad[t][i][j][0]  
    1488 /*M2_HERESIT*/ #define   YG1Y_spguv_dynspg_flt           Yspguv_dynspg_flt->Ygrad[YTemps][Yi][Yj][0]  
    1489 /*M2_VALSIT */ #define   YG2_spguv_dynspg_flt(i, j, t)           Yspguv_dynspg_flt->Ygrad[t][i][j][1]  
    1490 /*M2_HERESIT*/ #define   YG2Y_spguv_dynspg_flt           Yspguv_dynspg_flt->Ygrad[YTemps][Yi][Yj][1]  
    1491 spguv_dynspg_flt                 *Yspguv_dynspg_flt; 
     1633/*M2_IRMOD  */ #define   Yspguv_dynspg_flt(i, j)         Yspguv_dynspg_flt[i][j] 
     1634/*M2_NOWMOD */ #define   Yspguv_dynspg_fltY              Yspguv_dynspg_flt[Yi][Yj] 
     1635/*M2_VALST  */ #define   Ystate_spguv_dynspg_flt(v, i, j, t)             Yspguv_dynspg_flt[i][j]->Ystate[t][v]  
     1636/*M2_VALST  */ #define   YS_spguv_dynspg_flt(v, i, j, t)                 Yspguv_dynspg_flt[i][j]->Ystate[t][v]  
     1637/*M2_VALSIT */ #define   YS1_spguv_dynspg_flt(i, j, t)           Yspguv_dynspg_flt[i][j]->Ystate[t][0]  
     1638/*M2_HERESIT*/ #define   YS1Y_spguv_dynspg_flt           Yspguv_dynspg_flt[Yi][Yj]->Ystate[YTemps][0]  
     1639/*M2_VALSIT */ #define   YS2_spguv_dynspg_flt(i, j, t)           Yspguv_dynspg_flt[i][j]->Ystate[t][1]  
     1640/*M2_HERESIT*/ #define   YS2Y_spguv_dynspg_flt           Yspguv_dynspg_flt[Yi][Yj]->Ystate[YTemps][1]  
     1641/*M2_VALST  */ #define   Ygrad_spguv_dynspg_flt(v, i, j, t)              Yspguv_dynspg_flt[i][j]->Ygrad[t][v]  
     1642/*M2_VALST  */ #define   YG_spguv_dynspg_flt(v, i, j, t)                 Yspguv_dynspg_flt[i][j]->Ygrad[t][v]  
     1643/*M2_VALSIT */ #define   YG1_spguv_dynspg_flt(i, j, t)           Yspguv_dynspg_flt[i][j]->Ygrad[t][0]  
     1644/*M2_HERESIT*/ #define   YG1Y_spguv_dynspg_flt           Yspguv_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0]  
     1645/*M2_VALSIT */ #define   YG2_spguv_dynspg_flt(i, j, t)           Yspguv_dynspg_flt[i][j]->Ygrad[t][1]  
     1646/*M2_HERESIT*/ #define   YG2Y_spguv_dynspg_flt           Yspguv_dynspg_flt[Yi][Yj]->Ygrad[YTemps][1]  
     1647spguv_dynspg_flt                 *Yspguv_dynspg_flt[YA1_S3dt][YA2_S3dt]; 
    14921648 
    14931649//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    14981654/*NBSMOD    */ #define   YNBS_ua         1 
    14991655/*NBIMOD    */ #define   YNBI_ua         3 
    1500 /*M3_VALST  */ #define   Ystate_ua(v, i, j, k, t)        Yua->Ystate[t][i][j][k][v]  
    1501 /*M3_VALST  */ #define   YS_ua(v, i, j, k, t)            Yua->Ystate[t][i][j][k][v]  
    1502 /*M3_VALSIT */ #define   YS1_ua(i, j, k, t)              Yua->Ystate[t][i][j][k][0]  
    1503 /*M3_HERESIT*/ #define   YS1Y_ua                 Yua->Ystate[YTemps][Yi][Yj][Yk][0]  
    1504 /*M3_VALST  */ #define   Ygrad_ua(v, i, j, k, t)         Yua->Ygrad[t][i][j][k][v]  
    1505 /*M3_VALST  */ #define   YG_ua(v, i, j, k, t)            Yua->Ygrad[t][i][j][k][v]  
    1506 /*M3_VALSIT */ #define   YG1_ua(i, j, k, t)              Yua->Ygrad[t][i][j][k][0]  
    1507 /*M3_HERESIT*/ #define   YG1Y_ua                 Yua->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1508 ua               *Yua; 
     1656/*M3_IRMOD  */ #define   Yua(i, j, k)    Yua[i][j][k] 
     1657/*M3_NOWMOD */ #define   YuaY            Yua[Yi][Yj][Yk] 
     1658/*M3_VALST  */ #define   Ystate_ua(v, i, j, k, t)        Yua[i][j][k]->Ystate[t][v]  
     1659/*M3_VALST  */ #define   YS_ua(v, i, j, k, t)            Yua[i][j][k]->Ystate[t][v]  
     1660/*M3_VALSIT */ #define   YS1_ua(i, j, k, t)              Yua[i][j][k]->Ystate[t][0]  
     1661/*M3_HERESIT*/ #define   YS1Y_ua                 Yua[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1662/*M3_VALST  */ #define   Ygrad_ua(v, i, j, k, t)         Yua[i][j][k]->Ygrad[t][v]  
     1663/*M3_VALST  */ #define   YG_ua(v, i, j, k, t)            Yua[i][j][k]->Ygrad[t][v]  
     1664/*M3_VALSIT */ #define   YG1_ua(i, j, k, t)              Yua[i][j][k]->Ygrad[t][0]  
     1665/*M3_HERESIT*/ #define   YG1Y_ua                 Yua[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1666ua               *Yua[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    15091667 
    15101668//~~~~~~~~~~~~~~~~~~~~~~~~~ module va~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    15151673/*NBSMOD    */ #define   YNBS_va         1 
    15161674/*NBIMOD    */ #define   YNBI_va         3 
    1517 /*M3_VALST  */ #define   Ystate_va(v, i, j, k, t)        Yva->Ystate[t][i][j][k][v]  
    1518 /*M3_VALST  */ #define   YS_va(v, i, j, k, t)            Yva->Ystate[t][i][j][k][v]  
    1519 /*M3_VALSIT */ #define   YS1_va(i, j, k, t)              Yva->Ystate[t][i][j][k][0]  
    1520 /*M3_HERESIT*/ #define   YS1Y_va                 Yva->Ystate[YTemps][Yi][Yj][Yk][0]  
    1521 /*M3_VALST  */ #define   Ygrad_va(v, i, j, k, t)         Yva->Ygrad[t][i][j][k][v]  
    1522 /*M3_VALST  */ #define   YG_va(v, i, j, k, t)            Yva->Ygrad[t][i][j][k][v]  
    1523 /*M3_VALSIT */ #define   YG1_va(i, j, k, t)              Yva->Ygrad[t][i][j][k][0]  
    1524 /*M3_HERESIT*/ #define   YG1Y_va                 Yva->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1525 va               *Yva; 
     1675/*M3_IRMOD  */ #define   Yva(i, j, k)    Yva[i][j][k] 
     1676/*M3_NOWMOD */ #define   YvaY            Yva[Yi][Yj][Yk] 
     1677/*M3_VALST  */ #define   Ystate_va(v, i, j, k, t)        Yva[i][j][k]->Ystate[t][v]  
     1678/*M3_VALST  */ #define   YS_va(v, i, j, k, t)            Yva[i][j][k]->Ystate[t][v]  
     1679/*M3_VALSIT */ #define   YS1_va(i, j, k, t)              Yva[i][j][k]->Ystate[t][0]  
     1680/*M3_HERESIT*/ #define   YS1Y_va                 Yva[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1681/*M3_VALST  */ #define   Ygrad_va(v, i, j, k, t)         Yva[i][j][k]->Ygrad[t][v]  
     1682/*M3_VALST  */ #define   YG_va(v, i, j, k, t)            Yva[i][j][k]->Ygrad[t][v]  
     1683/*M3_VALSIT */ #define   YG1_va(i, j, k, t)              Yva[i][j][k]->Ygrad[t][0]  
     1684/*M3_HERESIT*/ #define   YG1Y_va                 Yva[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1685va               *Yva[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    15261686 
    15271687//~~~~~~~~~~~~~~~~~~~~~~~~~ module sshn~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    15331693/*NBSMOD    */ #define   YNBS_sshn       1 
    15341694/*NBIMOD    */ #define   YNBI_sshn       4 
    1535 /*M2_VALST  */ #define   Ystate_sshn(v, i, j, t)                 Ysshn->Ystate[t][i][j][v]  
    1536 /*M2_VALST  */ #define   YS_sshn(v, i, j, t)             Ysshn->Ystate[t][i][j][v]  
    1537 /*M2_VALSIT */ #define   YS1_sshn(i, j, t)               Ysshn->Ystate[t][i][j][0]  
    1538 /*M2_HERESIT*/ #define   YS1Y_sshn               Ysshn->Ystate[YTemps][Yi][Yj][0]  
    1539 /*M2_VALST  */ #define   Ygrad_sshn(v, i, j, t)                  Ysshn->Ygrad[t][i][j][v]  
    1540 /*M2_VALST  */ #define   YG_sshn(v, i, j, t)             Ysshn->Ygrad[t][i][j][v]  
    1541 /*M2_VALSIT */ #define   YG1_sshn(i, j, t)               Ysshn->Ygrad[t][i][j][0]  
    1542 /*M2_HERESIT*/ #define   YG1Y_sshn               Ysshn->Ygrad[YTemps][Yi][Yj][0]  
    1543 sshn             *Ysshn; 
     1695/*M2_IRMOD  */ #define   Ysshn(i, j)     Ysshn[i][j] 
     1696/*M2_NOWMOD */ #define   YsshnY                  Ysshn[Yi][Yj] 
     1697/*M2_VALST  */ #define   Ystate_sshn(v, i, j, t)                 Ysshn[i][j]->Ystate[t][v]  
     1698/*M2_VALST  */ #define   YS_sshn(v, i, j, t)             Ysshn[i][j]->Ystate[t][v]  
     1699/*M2_VALSIT */ #define   YS1_sshn(i, j, t)               Ysshn[i][j]->Ystate[t][0]  
     1700/*M2_HERESIT*/ #define   YS1Y_sshn               Ysshn[Yi][Yj]->Ystate[YTemps][0]  
     1701/*M2_VALST  */ #define   Ygrad_sshn(v, i, j, t)                  Ysshn[i][j]->Ygrad[t][v]  
     1702/*M2_VALST  */ #define   YG_sshn(v, i, j, t)             Ysshn[i][j]->Ygrad[t][v]  
     1703/*M2_VALSIT */ #define   YG1_sshn(i, j, t)               Ysshn[i][j]->Ygrad[t][0]  
     1704/*M2_HERESIT*/ #define   YG1Y_sshn               Ysshn[Yi][Yj]->Ygrad[YTemps][0]  
     1705sshn             *Ysshn[YA1_S3dt][YA2_S3dt]; 
    15441706 
    15451707//~~~~~~~~~~~~~~~~~~~~~~~~~ module sshb~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    15511713/*NBSMOD    */ #define   YNBS_sshb       1 
    15521714/*NBIMOD    */ #define   YNBI_sshb       4 
    1553 /*M2_VALST  */ #define   Ystate_sshb(v, i, j, t)                 Ysshb->Ystate[t][i][j][v]  
    1554 /*M2_VALST  */ #define   YS_sshb(v, i, j, t)             Ysshb->Ystate[t][i][j][v]  
    1555 /*M2_VALSIT */ #define   YS1_sshb(i, j, t)               Ysshb->Ystate[t][i][j][0]  
    1556 /*M2_HERESIT*/ #define   YS1Y_sshb               Ysshb->Ystate[YTemps][Yi][Yj][0]  
    1557 /*M2_VALST  */ #define   Ygrad_sshb(v, i, j, t)                  Ysshb->Ygrad[t][i][j][v]  
    1558 /*M2_VALST  */ #define   YG_sshb(v, i, j, t)             Ysshb->Ygrad[t][i][j][v]  
    1559 /*M2_VALSIT */ #define   YG1_sshb(i, j, t)               Ysshb->Ygrad[t][i][j][0]  
    1560 /*M2_HERESIT*/ #define   YG1Y_sshb               Ysshb->Ygrad[YTemps][Yi][Yj][0]  
    1561 sshb             *Ysshb; 
    1562 /*M2_VALSG  */ #define   Ywish_sshb(v, i, j)             Ysshb->Ywish[i][j][v]  
    1563 /*M2_VALSG  */ #define   YW_sshb(v, i, j)                Ysshb->Ywish[i][j][v]  
    1564 /*M2_VALSGI */ #define   YW1_sshb(i, j)                  Ysshb->Ywish[i][j][0]  
    1565 /*M2_HERESGI*/ #define   YW1Y_sshb               Ysshb->Ywish[Yi][Yj][0]  
     1715/*M2_IRMOD  */ #define   Ysshb(i, j)     Ysshb[i][j] 
     1716/*M2_NOWMOD */ #define   YsshbY                  Ysshb[Yi][Yj] 
     1717/*M2_VALST  */ #define   Ystate_sshb(v, i, j, t)                 Ysshb[i][j]->Ystate[t][v]  
     1718/*M2_VALST  */ #define   YS_sshb(v, i, j, t)             Ysshb[i][j]->Ystate[t][v]  
     1719/*M2_VALSIT */ #define   YS1_sshb(i, j, t)               Ysshb[i][j]->Ystate[t][0]  
     1720/*M2_HERESIT*/ #define   YS1Y_sshb               Ysshb[Yi][Yj]->Ystate[YTemps][0]  
     1721/*M2_VALST  */ #define   Ygrad_sshb(v, i, j, t)                  Ysshb[i][j]->Ygrad[t][v]  
     1722/*M2_VALST  */ #define   YG_sshb(v, i, j, t)             Ysshb[i][j]->Ygrad[t][v]  
     1723/*M2_VALSIT */ #define   YG1_sshb(i, j, t)               Ysshb[i][j]->Ygrad[t][0]  
     1724/*M2_HERESIT*/ #define   YG1Y_sshb               Ysshb[Yi][Yj]->Ygrad[YTemps][0]  
     1725sshb             *Ysshb[YA1_S3dt][YA2_S3dt]; 
     1726/*M2_VALSG  */ #define   Ywish_sshb(v, i, j)             Ysshb[i][j]->Ywish[v]  
     1727/*M2_VALSG  */ #define   YW_sshb(v, i, j)                Ysshb[i][j]->Ywish[v]  
     1728/*M2_VALSGI */ #define   YW1_sshb(i, j)                  Ysshb[i][j]->Ywish[0]  
     1729/*M2_HERESGI*/ #define   YW1Y_sshb               Ysshb[Yi][Yj]->Ywish[0]  
    15661730 
    15671731//~~~~~~~~~~~~~~~~~~~~~~~~~ module ub~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    15721736/*NBSMOD    */ #define   YNBS_ub         1 
    15731737/*NBIMOD    */ #define   YNBI_ub         4 
    1574 /*M3_VALST  */ #define   Ystate_ub(v, i, j, k, t)        Yub->Ystate[t][i][j][k][v]  
    1575 /*M3_VALST  */ #define   YS_ub(v, i, j, k, t)            Yub->Ystate[t][i][j][k][v]  
    1576 /*M3_VALSIT */ #define   YS1_ub(i, j, k, t)              Yub->Ystate[t][i][j][k][0]  
    1577 /*M3_HERESIT*/ #define   YS1Y_ub                 Yub->Ystate[YTemps][Yi][Yj][Yk][0]  
    1578 /*M3_VALST  */ #define   Ygrad_ub(v, i, j, k, t)         Yub->Ygrad[t][i][j][k][v]  
    1579 /*M3_VALST  */ #define   YG_ub(v, i, j, k, t)            Yub->Ygrad[t][i][j][k][v]  
    1580 /*M3_VALSIT */ #define   YG1_ub(i, j, k, t)              Yub->Ygrad[t][i][j][k][0]  
    1581 /*M3_HERESIT*/ #define   YG1Y_ub                 Yub->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1582 ub               *Yub; 
    1583 /*M3_VALSG  */ #define   Ywish_ub(v, i, j, k)    Yub->Ywish[i][j][k][v]  
    1584 /*M3_VALSG  */ #define   YW_ub(v, i, j, k)               Yub->Ywish[i][j][k][v]  
    1585 /*M3_VALSGI */ #define   YW1_ub(i, j, k)                 Yub->Ywish[i][j][k][0]  
    1586 /*M3_HERESGI*/ #define   YW1Y_ub                 Yub->Ywish[Yi][Yj][Yk][0]  
     1738/*M3_IRMOD  */ #define   Yub(i, j, k)    Yub[i][j][k] 
     1739/*M3_NOWMOD */ #define   YubY            Yub[Yi][Yj][Yk] 
     1740/*M3_VALST  */ #define   Ystate_ub(v, i, j, k, t)        Yub[i][j][k]->Ystate[t][v]  
     1741/*M3_VALST  */ #define   YS_ub(v, i, j, k, t)            Yub[i][j][k]->Ystate[t][v]  
     1742/*M3_VALSIT */ #define   YS1_ub(i, j, k, t)              Yub[i][j][k]->Ystate[t][0]  
     1743/*M3_HERESIT*/ #define   YS1Y_ub                 Yub[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1744/*M3_VALST  */ #define   Ygrad_ub(v, i, j, k, t)         Yub[i][j][k]->Ygrad[t][v]  
     1745/*M3_VALST  */ #define   YG_ub(v, i, j, k, t)            Yub[i][j][k]->Ygrad[t][v]  
     1746/*M3_VALSIT */ #define   YG1_ub(i, j, k, t)              Yub[i][j][k]->Ygrad[t][0]  
     1747/*M3_HERESIT*/ #define   YG1Y_ub                 Yub[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1748ub               *Yub[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     1749/*M3_VALSG  */ #define   Ywish_ub(v, i, j, k)    Yub[i][j][k]->Ywish[v]  
     1750/*M3_VALSG  */ #define   YW_ub(v, i, j, k)               Yub[i][j][k]->Ywish[v]  
     1751/*M3_VALSGI */ #define   YW1_ub(i, j, k)                 Yub[i][j][k]->Ywish[0]  
     1752/*M3_HERESGI*/ #define   YW1Y_ub                 Yub[Yi][Yj][Yk]->Ywish[0]  
    15871753 
    15881754//~~~~~~~~~~~~~~~~~~~~~~~~~ module vb~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    15931759/*NBSMOD    */ #define   YNBS_vb         1 
    15941760/*NBIMOD    */ #define   YNBI_vb         4 
    1595 /*M3_VALST  */ #define   Ystate_vb(v, i, j, k, t)        Yvb->Ystate[t][i][j][k][v]  
    1596 /*M3_VALST  */ #define   YS_vb(v, i, j, k, t)            Yvb->Ystate[t][i][j][k][v]  
    1597 /*M3_VALSIT */ #define   YS1_vb(i, j, k, t)              Yvb->Ystate[t][i][j][k][0]  
    1598 /*M3_HERESIT*/ #define   YS1Y_vb                 Yvb->Ystate[YTemps][Yi][Yj][Yk][0]  
    1599 /*M3_VALST  */ #define   Ygrad_vb(v, i, j, k, t)         Yvb->Ygrad[t][i][j][k][v]  
    1600 /*M3_VALST  */ #define   YG_vb(v, i, j, k, t)            Yvb->Ygrad[t][i][j][k][v]  
    1601 /*M3_VALSIT */ #define   YG1_vb(i, j, k, t)              Yvb->Ygrad[t][i][j][k][0]  
    1602 /*M3_HERESIT*/ #define   YG1Y_vb                 Yvb->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1603 vb               *Yvb; 
    1604 /*M3_VALSG  */ #define   Ywish_vb(v, i, j, k)    Yvb->Ywish[i][j][k][v]  
    1605 /*M3_VALSG  */ #define   YW_vb(v, i, j, k)               Yvb->Ywish[i][j][k][v]  
    1606 /*M3_VALSGI */ #define   YW1_vb(i, j, k)                 Yvb->Ywish[i][j][k][0]  
    1607 /*M3_HERESGI*/ #define   YW1Y_vb                 Yvb->Ywish[Yi][Yj][Yk][0]  
     1761/*M3_IRMOD  */ #define   Yvb(i, j, k)    Yvb[i][j][k] 
     1762/*M3_NOWMOD */ #define   YvbY            Yvb[Yi][Yj][Yk] 
     1763/*M3_VALST  */ #define   Ystate_vb(v, i, j, k, t)        Yvb[i][j][k]->Ystate[t][v]  
     1764/*M3_VALST  */ #define   YS_vb(v, i, j, k, t)            Yvb[i][j][k]->Ystate[t][v]  
     1765/*M3_VALSIT */ #define   YS1_vb(i, j, k, t)              Yvb[i][j][k]->Ystate[t][0]  
     1766/*M3_HERESIT*/ #define   YS1Y_vb                 Yvb[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1767/*M3_VALST  */ #define   Ygrad_vb(v, i, j, k, t)         Yvb[i][j][k]->Ygrad[t][v]  
     1768/*M3_VALST  */ #define   YG_vb(v, i, j, k, t)            Yvb[i][j][k]->Ygrad[t][v]  
     1769/*M3_VALSIT */ #define   YG1_vb(i, j, k, t)              Yvb[i][j][k]->Ygrad[t][0]  
     1770/*M3_HERESIT*/ #define   YG1Y_vb                 Yvb[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1771vb               *Yvb[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     1772/*M3_VALSG  */ #define   Ywish_vb(v, i, j, k)    Yvb[i][j][k]->Ywish[v]  
     1773/*M3_VALSG  */ #define   YW_vb(v, i, j, k)               Yvb[i][j][k]->Ywish[v]  
     1774/*M3_VALSGI */ #define   YW1_vb(i, j, k)                 Yvb[i][j][k]->Ywish[0]  
     1775/*M3_HERESGI*/ #define   YW1Y_vb                 Yvb[Yi][Yj][Yk]->Ywish[0]  
    16081776 
    16091777//~~~~~~~~~~~~~~~~~~~~~~~~~ module hdivn~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    16141782/*NBSMOD    */ #define   YNBS_hdivn      1 
    16151783/*NBIMOD    */ #define   YNBI_hdivn      4 
    1616 /*M3_VALST  */ #define   Ystate_hdivn(v, i, j, k, t)     Yhdivn->Ystate[t][i][j][k][v]  
    1617 /*M3_VALST  */ #define   YS_hdivn(v, i, j, k, t)                 Yhdivn->Ystate[t][i][j][k][v]  
    1618 /*M3_VALSIT */ #define   YS1_hdivn(i, j, k, t)           Yhdivn->Ystate[t][i][j][k][0]  
    1619 /*M3_HERESIT*/ #define   YS1Y_hdivn              Yhdivn->Ystate[YTemps][Yi][Yj][Yk][0]  
    1620 /*M3_VALST  */ #define   Ygrad_hdivn(v, i, j, k, t)      Yhdivn->Ygrad[t][i][j][k][v]  
    1621 /*M3_VALST  */ #define   YG_hdivn(v, i, j, k, t)                 Yhdivn->Ygrad[t][i][j][k][v]  
    1622 /*M3_VALSIT */ #define   YG1_hdivn(i, j, k, t)           Yhdivn->Ygrad[t][i][j][k][0]  
    1623 /*M3_HERESIT*/ #define   YG1Y_hdivn              Yhdivn->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1624 hdivn            *Yhdivn; 
     1784/*M3_IRMOD  */ #define   Yhdivn(i, j, k)         Yhdivn[i][j][k] 
     1785/*M3_NOWMOD */ #define   YhdivnY                 Yhdivn[Yi][Yj][Yk] 
     1786/*M3_VALST  */ #define   Ystate_hdivn(v, i, j, k, t)     Yhdivn[i][j][k]->Ystate[t][v]  
     1787/*M3_VALST  */ #define   YS_hdivn(v, i, j, k, t)                 Yhdivn[i][j][k]->Ystate[t][v]  
     1788/*M3_VALSIT */ #define   YS1_hdivn(i, j, k, t)           Yhdivn[i][j][k]->Ystate[t][0]  
     1789/*M3_HERESIT*/ #define   YS1Y_hdivn              Yhdivn[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1790/*M3_VALST  */ #define   Ygrad_hdivn(v, i, j, k, t)      Yhdivn[i][j][k]->Ygrad[t][v]  
     1791/*M3_VALST  */ #define   YG_hdivn(v, i, j, k, t)                 Yhdivn[i][j][k]->Ygrad[t][v]  
     1792/*M3_VALSIT */ #define   YG1_hdivn(i, j, k, t)           Yhdivn[i][j][k]->Ygrad[t][0]  
     1793/*M3_HERESIT*/ #define   YG1Y_hdivn              Yhdivn[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1794hdivn            *Yhdivn[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    16251795 
    16261796//~~~~~~~~~~~~~~~~~~~~~~~~~ module rotn~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    16311801/*NBSMOD    */ #define   YNBS_rotn       1 
    16321802/*NBIMOD    */ #define   YNBI_rotn       4 
    1633 /*M3_VALST  */ #define   Ystate_rotn(v, i, j, k, t)      Yrotn->Ystate[t][i][j][k][v]  
    1634 /*M3_VALST  */ #define   YS_rotn(v, i, j, k, t)                  Yrotn->Ystate[t][i][j][k][v]  
    1635 /*M3_VALSIT */ #define   YS1_rotn(i, j, k, t)            Yrotn->Ystate[t][i][j][k][0]  
    1636 /*M3_HERESIT*/ #define   YS1Y_rotn               Yrotn->Ystate[YTemps][Yi][Yj][Yk][0]  
    1637 /*M3_VALST  */ #define   Ygrad_rotn(v, i, j, k, t)       Yrotn->Ygrad[t][i][j][k][v]  
    1638 /*M3_VALST  */ #define   YG_rotn(v, i, j, k, t)                  Yrotn->Ygrad[t][i][j][k][v]  
    1639 /*M3_VALSIT */ #define   YG1_rotn(i, j, k, t)            Yrotn->Ygrad[t][i][j][k][0]  
    1640 /*M3_HERESIT*/ #define   YG1Y_rotn               Yrotn->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1641 rotn             *Yrotn; 
     1803/*M3_IRMOD  */ #define   Yrotn(i, j, k)          Yrotn[i][j][k] 
     1804/*M3_NOWMOD */ #define   YrotnY                  Yrotn[Yi][Yj][Yk] 
     1805/*M3_VALST  */ #define   Ystate_rotn(v, i, j, k, t)      Yrotn[i][j][k]->Ystate[t][v]  
     1806/*M3_VALST  */ #define   YS_rotn(v, i, j, k, t)                  Yrotn[i][j][k]->Ystate[t][v]  
     1807/*M3_VALSIT */ #define   YS1_rotn(i, j, k, t)            Yrotn[i][j][k]->Ystate[t][0]  
     1808/*M3_HERESIT*/ #define   YS1Y_rotn               Yrotn[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1809/*M3_VALST  */ #define   Ygrad_rotn(v, i, j, k, t)       Yrotn[i][j][k]->Ygrad[t][v]  
     1810/*M3_VALST  */ #define   YG_rotn(v, i, j, k, t)                  Yrotn[i][j][k]->Ygrad[t][v]  
     1811/*M3_VALSIT */ #define   YG1_rotn(i, j, k, t)            Yrotn[i][j][k]->Ygrad[t][0]  
     1812/*M3_HERESIT*/ #define   YG1Y_rotn               Yrotn[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1813rotn             *Yrotn[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    16421814 
    16431815//~~~~~~~~~~~~~~~~~~~~~~~~~ module wa~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    16481820/*NBSMOD    */ #define   YNBS_wa         1 
    16491821/*NBIMOD    */ #define   YNBI_wa         2 
    1650 /*M3_VALST  */ #define   Ystate_wa(v, i, j, k, t)        Ywa->Ystate[t][i][j][k][v]  
    1651 /*M3_VALST  */ #define   YS_wa(v, i, j, k, t)            Ywa->Ystate[t][i][j][k][v]  
    1652 /*M3_VALSIT */ #define   YS1_wa(i, j, k, t)              Ywa->Ystate[t][i][j][k][0]  
    1653 /*M3_HERESIT*/ #define   YS1Y_wa                 Ywa->Ystate[YTemps][Yi][Yj][Yk][0]  
    1654 /*M3_VALST  */ #define   Ygrad_wa(v, i, j, k, t)         Ywa->Ygrad[t][i][j][k][v]  
    1655 /*M3_VALST  */ #define   YG_wa(v, i, j, k, t)            Ywa->Ygrad[t][i][j][k][v]  
    1656 /*M3_VALSIT */ #define   YG1_wa(i, j, k, t)              Ywa->Ygrad[t][i][j][k][0]  
    1657 /*M3_HERESIT*/ #define   YG1Y_wa                 Ywa->Ygrad[YTemps][Yi][Yj][Yk][0]  
    1658 wa               *Ywa; 
     1822/*M3_IRMOD  */ #define   Ywa(i, j, k)    Ywa[i][j][k] 
     1823/*M3_NOWMOD */ #define   YwaY            Ywa[Yi][Yj][Yk] 
     1824/*M3_VALST  */ #define   Ystate_wa(v, i, j, k, t)        Ywa[i][j][k]->Ystate[t][v]  
     1825/*M3_VALST  */ #define   YS_wa(v, i, j, k, t)            Ywa[i][j][k]->Ystate[t][v]  
     1826/*M3_VALSIT */ #define   YS1_wa(i, j, k, t)              Ywa[i][j][k]->Ystate[t][0]  
     1827/*M3_HERESIT*/ #define   YS1Y_wa                 Ywa[Yi][Yj][Yk]->Ystate[YTemps][0]  
     1828/*M3_VALST  */ #define   Ygrad_wa(v, i, j, k, t)         Ywa[i][j][k]->Ygrad[t][v]  
     1829/*M3_VALST  */ #define   YG_wa(v, i, j, k, t)            Ywa[i][j][k]->Ygrad[t][v]  
     1830/*M3_VALSIT */ #define   YG1_wa(i, j, k, t)              Ywa[i][j][k]->Ygrad[t][0]  
     1831/*M3_HERESIT*/ #define   YG1Y_wa                 Ywa[Yi][Yj][Yk]->Ygrad[YTemps][0]  
     1832wa               *Ywa[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
    16591833#define  YSIZEPB   21824//sum of the number of states (output) of all targets 
    16601834 
    1661 //ￜ ￜ ￜ ￜ FOR M1QN3 ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ 
     1835//€ € € € FOR M1QN3 € € € € € € € € € € € € € € € € € € € € € € € 
    16621836float   Y3x[YSIZEPB]; //table for the states of targets  
    16631837float   Y3g[YSIZEPB]; //table for the gradients of targets 
    … …  
    18272001{ 
    18282002         public: 
    1829               double     Ystate[YA1_S3d][YA2_S3d][YNBS_sshn_c]; 
    1830               double     Ygrad[YA1_S3d][YA2_S3d][YNBS_sshn_c]; 
     2003              double     Ystate[YNBS_sshn_c]; 
     2004              double     Ygrad[YNBS_sshn_c]; 
    18312005 
    18322006//:=========> Constructor - Destructor ============ 
    … …  
    18402014{ 
    18412015         public: 
    1842               double     Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c]; 
    1843               double     Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c]; 
    1844               double     Yepsi[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c]; 
    1845               double     Ywish[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c]; 
     2016              double     Ystate[YNBS_ta_c]; 
     2017              double     Ygrad[YNBS_ta_c]; 
     2018              double     Yepsi[YNBS_ta_c]; 
     2019              double     Ywish[YNBS_ta_c]; 
    18462020 
    18472021//:=========> Constructor - Destructor ============ 
    … …  
    18552029{ 
    18562030         public: 
    1857               double     Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_sa_c]; 
    1858               double     Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_sa_c]; 
     2031              double     Ystate[YNBS_sa_c]; 
     2032              double     Ygrad[YNBS_sa_c]; 
    18592033 
    18602034//:=========> Constructor - Destructor ============ 
    … …  
    18682042{ 
    18692043         public: 
    1870               double     Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ua_c]; 
    1871               double     Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ua_c]; 
     2044              double     Ystate[YNBS_ua_c]; 
     2045              double     Ygrad[YNBS_ua_c]; 
    18722046 
    18732047//:=========> Constructor - Destructor ============ 
    … …  
    18812055{ 
    18822056         public: 
    1883               double     Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_va_c]; 
    1884               double     Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_va_c]; 
     2057              double     Ystate[YNBS_va_c]; 
     2058              double     Ygrad[YNBS_va_c]; 
    18852059 
    18862060//:=========> Constructor - Destructor ============ 
    … …  
    18942068{ 
    18952069         public: 
    1896               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_qsr_qns]; 
    1897               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_qsr_qns]; 
     2070              double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_qsr_qns]; 
     2071              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_qsr_qns]; 
    18982072 
    18992073//:=========> Constructor - Destructor ============ 
    … …  
    19162090{ 
    19172091         public: 
    1918               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp1]; 
    1919               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp1]; 
     2092              double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp1]; 
     2093              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp1]; 
    19202094 
    19212095//:=========> Constructor - Destructor ============ 
    … …  
    19382112{ 
    19392113         public: 
    1940               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_zsumemp_zsurf]; 
    1941               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_zsumemp_zsurf]; 
     2114              double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_zsumemp_zsurf]; 
     2115              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_zsumemp_zsurf]; 
    19422116 
    19432117//:=========> Constructor - Destructor ============ 
    … …  
    19602134{ 
    19612135         public: 
    1962               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp]; 
    1963               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp]; 
     2136              double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp]; 
     2137              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp]; 
    19642138 
    19652139//:=========> Constructor - Destructor ============ 
    … …  
    19822156{ 
    19832157         public: 
    1984               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emps]; 
    1985               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emps]; 
     2158              double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_emps]; 
     2159              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_emps]; 
    19862160 
    19872161//:=========> Constructor - Destructor ============ 
    … …  
    20042178{ 
    20052179         public: 
    2006               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_utau_vtau]; 
    2007               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_utau_vtau]; 
     2180              double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_utau_vtau]; 
     2181              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_utau_vtau]; 
    20082182 
    20092183//:=========> Constructor - Destructor ============ 
    … …  
    20262200{ 
    20272201         public: 
    2028               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_wndm]; 
    2029               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_wndm]; 
     2202              double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_wndm]; 
     2203              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_wndm]; 
    20302204 
    20312205//:=========> Constructor - Destructor ============ 
    … …  
    20482222{ 
    20492223         public: 
    2050               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_bn2_rn2]; 
    2051               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_bn2_rn2]; 
     2224              double     Ystate[YNBALLTIME_Tsbd][YNBS_bn2_rn2]; 
     2225              double     Ygrad[YNBALLTIME_Tsbd][YNBS_bn2_rn2]; 
    20522226 
    20532227//:=========> Constructor - Destructor ============ 
    … …  
    20702244{ 
    20712245         public: 
    2072               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zdf_avt_avmu_avmv]; 
    2073               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zdf_avt_avmu_avmv]; 
     2246              double     Ystate[YNBALLTIME_Tsbd][YNBS_zdf_avt_avmu_avmv]; 
     2247              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zdf_avt_avmu_avmv]; 
    20742248 
    20752249//:=========> Constructor - Destructor ============ 
    … …  
    20922266{ 
    20932267         public: 
    2094               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_zdfmxl_hmld]; 
    2095               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_zdfmxl_hmld]; 
     2268              double     Ystate[YNBALLTIME_Tsbd][YNBS_zdfmxl_hmld]; 
     2269              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zdfmxl_hmld]; 
    20962270 
    20972271//:=========> Constructor - Destructor ============ 
    … …  
    21142288{ 
    21152289         public: 
    2116               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_zdfmxl_nmln_hmlp_hmlpt]; 
    2117               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_zdfmxl_nmln_hmlp_hmlpt]; 
     2290              double     Ystate[YNBALLTIME_Tsbd][YNBS_zdfmxl_nmln_hmlp_hmlpt]; 
     2291              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zdfmxl_nmln_hmlp_hmlpt]; 
    21182292 
    21192293//:=========> Constructor - Destructor ============ 
    … …  
    21362310{ 
    21372311         public: 
    2138               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_ta_sa_trasbc]; 
    2139               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_ta_sa_trasbc]; 
     2312              double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_sa_trasbc]; 
     2313              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_sa_trasbc]; 
    21402314 
    21412315//:=========> Constructor - Destructor ============ 
    … …  
    21582332{ 
    21592333         public: 
    2160               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traqsr]; 
    2161               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traqsr]; 
     2334              double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_traqsr]; 
     2335              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_traqsr]; 
    21622336 
    21632337//:=========> Constructor - Destructor ============ 
    … …  
    21802354{ 
    21812355         public: 
    2182               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_hor_traadv_cen2]; 
    2183               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_hor_traadv_cen2]; 
     2356              double     Ystate[YNBALLTIME_Tsbd][YNBS_zcent_hor_traadv_cen2]; 
     2357              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zcent_hor_traadv_cen2]; 
    21842358 
    21852359//:=========> Constructor - Destructor ============ 
    … …  
    22052379{ 
    22062380         public: 
    2207               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_hor_traadv_cen2]; 
    2208               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_hor_traadv_cen2]; 
     2381              double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_hor_traadv_cen2]; 
     2382              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_hor_traadv_cen2]; 
    22092383 
    22102384//:=========> Constructor - Destructor ============ 
    … …  
    22272401{ 
    22282402         public: 
    2229               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa_hor_traadv_cen2]; 
    2230               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa_hor_traadv_cen2]; 
     2403              double     Ystate[YNBALLTIME_Tsbd][YNBS_sa_hor_traadv_cen2]; 
     2404              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sa_hor_traadv_cen2]; 
    22312405 
    22322406//:=========> Constructor - Destructor ============ 
    … …  
    22492423{ 
    22502424         public: 
    2251               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_ver_traadv_cen2]; 
    2252               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_ver_traadv_cen2]; 
     2425              double     Ystate[YNBALLTIME_Tsbd][YNBS_zcent_ver_traadv_cen2]; 
     2426              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zcent_ver_traadv_cen2]; 
    22532427 
    22542428//:=========> Constructor - Destructor ============ 
    … …  
    22742448{ 
    22752449         public: 
    2276               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_ver_traadv_cen2]; 
    2277               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_ver_traadv_cen2]; 
     2450              double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_ver_traadv_cen2]; 
     2451              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_ver_traadv_cen2]; 
    22782452 
    22792453//:=========> Constructor - Destructor ============ 
    … …  
    22992473{ 
    23002474         public: 
    2301               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ztuv_traldf_lap]; 
    2302               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ztuv_traldf_lap]; 
     2475              double     Ystate[YNBALLTIME_Tsbd][YNBS_ztuv_traldf_lap]; 
     2476              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ztuv_traldf_lap]; 
    23032477 
    23042478//:=========> Constructor - Destructor ============ 
    … …  
    23242498{ 
    23252499         public: 
    2326               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traldf_lap]; 
    2327               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traldf_lap]; 
     2500              double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_traldf_lap]; 
     2501              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_traldf_lap]; 
    23282502 
    23292503//:=========> Constructor - Destructor ============ 
    … …  
    23492523{ 
    23502524         public: 
    2351               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_trazdf_imp]; 
    2352               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_trazdf_imp]; 
     2525              double     Ystate[YNBALLTIME_Tsbd][YNBS_zwisd_trazdf_imp]; 
     2526              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwisd_trazdf_imp]; 
    23532527 
    23542528//:=========> Constructor - Destructor ============ 
    … …  
    23712545{ 
    23722546         public: 
    2373               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_trazdf_imp]; 
    2374               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_trazdf_imp]; 
     2547              double     Ystate[YNBALLTIME_Tsbd][YNBS_zrhs_trazdf_imp]; 
     2548              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zrhs_trazdf_imp]; 
    23752549 
    23762550//:=========> Constructor - Destructor ============ 
    … …  
    23962570{ 
    23972571         public: 
    2398               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwt_trazdf_imp]; 
    2399               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwt_trazdf_imp]; 
     2572              double     Ystate[YNBALLTIME_Tsbd][YNBS_zwt_trazdf_imp]; 
     2573              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwt_trazdf_imp]; 
    24002574 
    24012575//:=========> Constructor - Destructor ============ 
    … …  
    24212595{ 
    24222596         public: 
    2423               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta]; 
    2424               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta]; 
     2597              double     Ystate[YNBALLTIME_Tsbd][YNBS_ta]; 
     2598              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta]; 
    24252599 
    24262600//:=========> Constructor - Destructor ============ 
    … …  
    24462620{ 
    24472621         public: 
    2448               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa]; 
    2449               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa]; 
     2622              double     Ystate[YNBALLTIME_Tsbd][YNBS_sa]; 
     2623              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sa]; 
    24502624 
    24512625//:=========> Constructor - Destructor ============ 
    … …  
    24682642{ 
    24692643         public: 
    2470               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_tb]; 
    2471               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_tb]; 
    2472               double     Ywish[YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_tb]; 
     2644              double     Ystate[YNBALLTIME_Tsbd][YNBS_tb]; 
     2645              double     Ygrad[YNBALLTIME_Tsbd][YNBS_tb]; 
     2646              double     Ywish[YNBS_tb]; 
    24732647 
    24742648//:=========> Constructor - Destructor ============ 
    … …  
    24912665{ 
    24922666         public: 
    2493               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sb]; 
    2494               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sb]; 
    2495               double     Ywish[YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sb]; 
     2667              double     Ystate[YNBALLTIME_Tsbd][YNBS_sb]; 
     2668              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sb]; 
     2669              double     Ywish[YNBS_sb]; 
    24962670 
    24972671//:=========> Constructor - Destructor ============ 
    … …  
    25142688{ 
    25152689         public: 
    2516               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhd]; 
    2517               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhd]; 
     2690              double     Ystate[YNBALLTIME_Tsbd][YNBS_rhd]; 
     2691              double     Ygrad[YNBALLTIME_Tsbd][YNBS_rhd]; 
    25182692 
    25192693//:=========> Constructor - Destructor ============ 
    … …  
    25362710{ 
    25372711         public: 
    2538               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhop]; 
    2539               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhop]; 
     2712              double     Ystate[YNBALLTIME_Tsbd][YNBS_rhop]; 
     2713              double     Ygrad[YNBALLTIME_Tsbd][YNBS_rhop]; 
    25402714 
    25412715//:=========> Constructor - Destructor ============ 
    … …  
    25582732{ 
    25592733         public: 
    2560               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_hmf_TF_dynadv_cen2]; 
    2561               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_hmf_TF_dynadv_cen2]; 
     2734              double     Ystate[YNBALLTIME_Tsbd][YNBS_hmf_TF_dynadv_cen2]; 
     2735              double     Ygrad[YNBALLTIME_Tsbd][YNBS_hmf_TF_dynadv_cen2]; 
    25622736 
    25632737//:=========> Constructor - Destructor ============ 
    … …  
    25802754{ 
    25812755         public: 
    2582               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zua_dhmf_dynadv_cen2]; 
    2583               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zua_dhmf_dynadv_cen2]; 
     2756              double     Ystate[YNBALLTIME_Tsbd][YNBS_zua_dhmf_dynadv_cen2]; 
     2757              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zua_dhmf_dynadv_cen2]; 
    25842758 
    25852759//:=========> Constructor - Destructor ============ 
    … …  
    26022776{ 
    26032777         public: 
    2604               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zva_dhmf_dynadv_cen2]; 
    2605               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zva_dhmf_dynadv_cen2]; 
     2778              double     Ystate[YNBALLTIME_Tsbd][YNBS_zva_dhmf_dynadv_cen2]; 
     2779              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zva_dhmf_dynadv_cen2]; 
    26062780 
    26072781//:=========> Constructor - Destructor ============ 
    … …  
    26242798{ 
    26252799         public: 
    2626               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zfuv_UW_dynadv_cen2]; 
    2627               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zfuv_UW_dynadv_cen2]; 
     2800              double     Ystate[YNBALLTIME_Tsbd][YNBS_zfuv_UW_dynadv_cen2]; 
     2801              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zfuv_UW_dynadv_cen2]; 
    26282802 
    26292803//:=========> Constructor - Destructor ============ 
    … …  
    26462820{ 
    26472821         public: 
    2648               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynadv_cen2]; 
    2649               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynadv_cen2]; 
     2822              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_dynadv_cen2]; 
     2823              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dynadv_cen2]; 
    26502824 
    26512825//:=========> Constructor - Destructor ============ 
    … …  
    26682842{ 
    26692843         public: 
    2670               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dynadv_cen2]; 
    2671               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dynadv_cen2]; 
     2844              double     Ystate[YNBALLTIME_Tsbd][YNBS_va_dynadv_cen2]; 
     2845              double     Ygrad[YNBALLTIME_Tsbd][YNBS_va_dynadv_cen2]; 
    26722846 
    26732847//:=========> Constructor - Destructor ============ 
    … …  
    26902864{ 
    26912865         public: 
    2692               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwxyz_vor_ene]; 
    2693               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwxyz_vor_ene]; 
     2866              double     Ystate[YNBALLTIME_Tsbd][YNBS_zwxyz_vor_ene]; 
     2867              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwxyz_vor_ene]; 
    26942868 
    26952869//:=========> Constructor - Destructor ============ 
    … …  
    27122886{ 
    27132887         public: 
    2714               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_vor_ene]; 
    2715               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_vor_ene]; 
     2888              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_vor_ene]; 
     2889              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_vor_ene]; 
    27162890 
    27172891//:=========> Constructor - Destructor ============ 
    … …  
    27342908{ 
    27352909         public: 
    2736               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_vor_ene]; 
    2737               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_vor_ene]; 
     2910              double     Ystate[YNBALLTIME_Tsbd][YNBS_va_vor_ene]; 
     2911              double     Ygrad[YNBALLTIME_Tsbd][YNBS_va_vor_ene]; 
    27382912 
    27392913//:=========> Constructor - Destructor ============ 
    … …  
    27562930{ 
    27572931         public: 
    2758               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_ldf_lap]; 
    2759               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_ldf_lap]; 
     2932              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_dyn_ldf_lap]; 
     2933              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dyn_ldf_lap]; 
    27602934 
    27612935//:=========> Constructor - Destructor ============ 
    … …  
    27782952{ 
    27792953         public: 
    2780               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dyn_ldf_lap]; 
    2781               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dyn_ldf_lap]; 
     2954              double     Ystate[YNBALLTIME_Tsbd][YNBS_va_dyn_ldf_lap]; 
     2955              double     Ygrad[YNBALLTIME_Tsbd][YNBS_va_dyn_ldf_lap]; 
    27822956 
    27832957//:=========> Constructor - Destructor ============ 
    … …  
    28002974{ 
    28012975         public: 
    2802               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zhpij_dyn_hpg_zco]; 
    2803               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zhpij_dyn_hpg_zco]; 
     2976              double     Ystate[YNBALLTIME_Tsbd][YNBS_zhpij_dyn_hpg_zco]; 
     2977              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zhpij_dyn_hpg_zco]; 
    28042978 
    28052979//:=========> Constructor - Destructor ============ 
    … …  
    28222996{ 
    28232997         public: 
    2824               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_hpg_zco]; 
    2825               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_hpg_zco]; 
     2998              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_dyn_hpg_zco]; 
     2999              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dyn_hpg_zco]; 
    28263000 
    28273001//:=========> Constructor - Destructor ============ 
    … …  
    28473021{ 
    28483022         public: 
    2849               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_ua_dynzdf_imp]; 
    2850               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_ua_dynzdf_imp]; 
     3023              double     Ystate[YNBALLTIME_Tsbd][YNBS_zwisd_ua_dynzdf_imp]; 
     3024              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwisd_ua_dynzdf_imp]; 
    28513025 
    28523026//:=========> Constructor - Destructor ============ 
    … …  
    28693043{ 
    28703044         public: 
    2871               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_va_dynzdf_imp]; 
    2872               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_va_dynzdf_imp]; 
     3045              double     Ystate[YNBALLTIME_Tsbd][YNBS_zwisd_va_dynzdf_imp]; 
     3046              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwisd_va_dynzdf_imp]; 
    28733047 
    28743048//:=========> Constructor - Destructor ============ 
    … …  
    28913065{ 
    28923066         public: 
    2893               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_ua_dynzdf_imp]; 
    2894               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_ua_dynzdf_imp]; 
     3067              double     Ystate[YNBALLTIME_Tsbd][YNBS_zrhs_ua_dynzdf_imp]; 
     3068              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zrhs_ua_dynzdf_imp]; 
    28953069 
    28963070//:=========> Constructor - Destructor ============ 
    … …  
    29133087{ 
    29143088         public: 
    2915               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_va_dynzdf_imp]; 
    2916               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_va_dynzdf_imp]; 
     3089              double     Ystate[YNBALLTIME_Tsbd][YNBS_zrhs_va_dynzdf_imp]; 
     3090              double     Ygrad[YNBALLTIME_Tsbd][YNBS_zrhs_va_dynzdf_imp]; 
    29173091 
    29183092//:=========> Constructor - Destructor ============ 
    … …  
    29443118{ 
    29453119         public: 
    2946               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynzdf_imp]; 
    2947               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynzdf_imp]; 
     3120              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_dynzdf_imp]; 
     3121              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dynzdf_imp]; 
    29483122 
    29493123//:=========> Constructor - Destructor ============ 
    … …  
    29723146{ 
    29733147         public: 
    2974               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_norm_dynzdf]; 
    2975               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_norm_dynzdf]; 
     3148              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_norm_dynzdf]; 
     3149              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_norm_dynzdf]; 
    29763150 
    29773151//:=========> Constructor - Destructor ============ 
    … …  
    29973171{ 
    29983172         public: 
    2999               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_spguv_now_dynspg]; 
    3000               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_spguv_now_dynspg]; 
     3173              double     Ystate[YNBALLTIME_Tsbd][YNBS_spguv_now_dynspg]; 
     3174              double     Ygrad[YNBALLTIME_Tsbd][YNBS_spguv_now_dynspg]; 
    30013175 
    30023176//:=========> Constructor - Destructor ============ 
    … …  
    30193193{ 
    30203194         public: 
    3021               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_1_dynspg_flt]; 
    3022               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_1_dynspg_flt]; 
     3195              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_1_dynspg_flt]; 
     3196              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_1_dynspg_flt]; 
    30233197 
    30243198//:=========> Constructor - Destructor ============ 
    … …  
    30413215{ 
    30423216         public: 
    3043               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_1_dynspg_flt]; 
    3044               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_1_dynspg_flt]; 
     3217              double     Ystate[YNBALLTIME_Tsbd][YNBS_va_1_dynspg_flt]; 
     3218              double     Ygrad[YNBALLTIME_Tsbd][YNBS_va_1_dynspg_flt]; 
    30453219 
    30463220//:=========> Constructor - Destructor ============ 
    … …  
    30633237{ 
    30643238         public: 
    3065               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sum_spgu_dynspg_flt]; 
    3066               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sum_spgu_dynspg_flt]; 
     3239              double     Ystate[YNBALLTIME_Tsbd][YNBS_sum_spgu_dynspg_flt]; 
     3240              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sum_spgu_dynspg_flt]; 
    30673241 
    30683242//:=========> Constructor - Destructor ============ 
    … …  
    30853259{ 
    30863260         public: 
    3087               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sum_spgv_dynspg_flt]; 
    3088               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sum_spgv_dynspg_flt]; 
     3261              double     Ystate[YNBALLTIME_Tsbd][YNBS_sum_spgv_dynspg_flt]; 
     3262              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sum_spgv_dynspg_flt]; 
    30893263 
    30903264//:=========> Constructor - Destructor ============ 
    … …  
    31073281{ 
    31083282         public: 
    3109               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcb_dynspg_flt]; 
    3110               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcb_dynspg_flt]; 
     3283              double     Ystate[YNBALLTIME_Tsbd][YNBS_gcb_dynspg_flt]; 
     3284              double     Ygrad[YNBALLTIME_Tsbd][YNBS_gcb_dynspg_flt]; 
    31113285 
    31123286//:=========> Constructor - Destructor ============ 
    … …  
    31293303{ 
    31303304         public: 
    3131               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcx_dynspg_flt]; 
    3132               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcx_dynspg_flt]; 
     3305              double     Ystate[YNBALLTIME_Tsbd][YNBS_gcx_dynspg_flt]; 
     3306              double     Ygrad[YNBALLTIME_Tsbd][YNBS_gcx_dynspg_flt]; 
    31333307 
    31343308//:=========> Constructor - Destructor ============ 
    … …  
    31513325{ 
    31523326         public: 
    3153               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_solsor_dynspg_flt]; 
    3154               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_solsor_dynspg_flt]; 
     3327              double     Ystate[YNBALLTIME_Tsbd][YNBS_solsor_dynspg_flt]; 
     3328              double     Ygrad[YNBALLTIME_Tsbd][YNBS_solsor_dynspg_flt]; 
    31553329 
    31563330//:=========> Constructor - Destructor ============ 
    … …  
    31733347{ 
    31743348         public: 
    3175               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcx2]; 
    3176               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcx2]; 
     3349              double     Ystate[YNBALLTIME_Tsbd][YNBS_gcx2]; 
     3350              double     Ygrad[YNBALLTIME_Tsbd][YNBS_gcx2]; 
    31773351 
    31783352//:=========> Constructor - Destructor ============ 
    … …  
    31953369{ 
    31963370         public: 
    3197               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_spguv_dynspg_flt]; 
    3198               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_spguv_dynspg_flt]; 
     3371              double     Ystate[YNBALLTIME_Tsbd][YNBS_spguv_dynspg_flt]; 
     3372              double     Ygrad[YNBALLTIME_Tsbd][YNBS_spguv_dynspg_flt]; 
    31993373 
    32003374//:=========> Constructor - Destructor ============ 
    … …  
    32173391{ 
    32183392         public: 
    3219               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua]; 
    3220               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua]; 
     3393              double     Ystate[YNBALLTIME_Tsbd][YNBS_ua]; 
     3394              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua]; 
    32213395 
    32223396//:=========> Constructor - Destructor ============ 
    … …  
    32393413{ 
    32403414         public: 
    3241               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va]; 
    3242               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va]; 
     3415              double     Ystate[YNBALLTIME_Tsbd][YNBS_va]; 
     3416              double     Ygrad[YNBALLTIME_Tsbd][YNBS_va]; 
    32433417 
    32443418//:=========> Constructor - Destructor ============ 
    … …  
    32613435{ 
    32623436         public: 
    3263               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sshn]; 
    3264               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sshn]; 
     3437              double     Ystate[YNBALLTIME_Tsbd][YNBS_sshn]; 
     3438              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sshn]; 
    32653439 
    32663440//:=========> Constructor - Destructor ============ 
    … …  
    32833457{ 
    32843458         public: 
    3285               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sshb]; 
    3286               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sshb]; 
    3287               double     Ywish[YA1_S3dt][YA2_S3dt][YNBS_sshb]; 
     3459              double     Ystate[YNBALLTIME_Tsbd][YNBS_sshb]; 
     3460              double     Ygrad[YNBALLTIME_Tsbd][YNBS_sshb]; 
     3461              double     Ywish[YNBS_sshb]; 
    32883462 
    32893463//:=========> Constructor - Destructor ============ 
    … …  
    33063480{ 
    33073481         public: 
    3308               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ub]; 
    3309               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ub]; 
    3310               double     Ywish[YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ub]; 
     3482              double     Ystate[YNBALLTIME_Tsbd][YNBS_ub]; 
     3483              double     Ygrad[YNBALLTIME_Tsbd][YNBS_ub]; 
     3484              double     Ywish[YNBS_ub]; 
    33113485 
    33123486//:=========> Constructor - Destructor ============ 
    … …  
    33293503{ 
    33303504         public: 
    3331               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_vb]; 
    3332               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_vb]; 
    3333               double     Ywish[YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_vb]; 
     3505              double     Ystate[YNBALLTIME_Tsbd][YNBS_vb]; 
     3506              double     Ygrad[YNBALLTIME_Tsbd][YNBS_vb]; 
     3507              double     Ywish[YNBS_vb]; 
    33343508 
    33353509//:=========> Constructor - Destructor ============ 
    … …  
    33523526{ 
    33533527         public: 
    3354               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_hdivn]; 
    3355               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_hdivn]; 
     3528              double     Ystate[YNBALLTIME_Tsbd][YNBS_hdivn]; 
     3529              double     Ygrad[YNBALLTIME_Tsbd][YNBS_hdivn]; 
    33563530 
    33573531//:=========> Constructor - Destructor ============ 
    … …  
    33743548{ 
    33753549         public: 
    3376               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rotn]; 
    3377               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rotn]; 
     3550              double     Ystate[YNBALLTIME_Tsbd][YNBS_rotn]; 
     3551              double     Ygrad[YNBALLTIME_Tsbd][YNBS_rotn]; 
    33783552 
    33793553//:=========> Constructor - Destructor ============ 
    … …  
    33963570{ 
    33973571         public: 
    3398               double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_wa]; 
    3399               double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_wa]; 
     3572              double     Ystate[YNBALLTIME_Tsbd][YNBS_wa]; 
     3573              double     Ygrad[YNBALLTIME_Tsbd][YNBS_wa]; 
    34003574 
    34013575//:=========> Constructor - Destructor ============ 
    … …  
    34143588}; 
    34153589 
    3416 //ￜ ￜ ￜ ￜ PROTOTYPES of AUTO-FUNCTIONS ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ 
     3590//€ € € € PROTOTYPES of AUTO-FUNCTIONS € € € € € € € € € € € 
    34173591void Yrazgrad_sshn_c();  
    34183592void Ysetstate_sshn_c();  
    … …  
    36023776struct Yst_traj YTabTraj[2] = { 
    36033777        {"Tcst", 'M', 0, 0.000000, 1.000000, 0.000000, 0, 1, 1.000000, NULL, NULL, NULL, NULL, 0}, 
    3604         {"Tsbd", 'M', 2, 0.000000, 1.000000, 0.000000, 2, 50, 50.000000, Yforward_traj_Tsbd, Ybackward_traj_Tsbd, NULL, NULL, 1}, 
     3778        {"Tsbd", 'M', 2, 0.000000, 1.000000, 0.000000, 2, 10, 10.000000, Yforward_traj_Tsbd, Ybackward_traj_Tsbd, NULL, NULL, 1}, 
    36053779}; 
    36063780 
    … …  
    36213795#define YNBMODUL       87  
    36223796struct Yst_modul YTabMod[87] = { 
    3623         {"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"}, 
    3624         {"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"}, 
    3625         {"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"}, 
    3626         {"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"}, 
    3627         {"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"}, 
    3628         {"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"}, 
    3629         {"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"}, 
    3630         {"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"}, 
    3631         {"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"}, 
    3632         {"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"}, 
    3633         {"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"}, 
    3634         {"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"}, 
    3635         {"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"}, 
    3636         {"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"}, 
    3637         {"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"}, 
    3638         {"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"}, 
    3639         {"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"}, 
    3640         {"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"}, 
    3641         {"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"}, 
    3642         {"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"}, 
    3643         {"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"}, 
    3644         {"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"}, 
    3645         {"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"}, 
    3646         {"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"}, 
    3647         {"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"}, 
    3648         {"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"}, 
    3649         {"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"}, 
    3650         {"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"}, 
    3651         {"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"}, 
    3652         {"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"}, 
    3653         {"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"}, 
    3654         {"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"}, 
    3655         {"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"}, 
    3656         {"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"}, 
    3657         {"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"}, 
    3658         {"ta", Yta, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3659         {"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"}, 
    3660         {"sa", Ysa, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3661         {"tb", Ytb, 3, 32, 22, 31, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3662         {"sb", Ysb, 3, 32, 22, 31, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3663         {"rhd", Yrhd, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3664         {"rhop", Yrhop, 3, 32, 22, 31, 1, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3665         {"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"}, 
    3666         {"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"}, 
    3667         {"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"}, 
    3668         {"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"}, 
    3669         {"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"}, 
    3670         {"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"}, 
    3671         {"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"}, 
    3672         {"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"}, 
    3673         {"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"}, 
    3674         {"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"}, 
    3675         {"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"}, 
    3676         {"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"}, 
    3677         {"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"}, 
    3678         {"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"}, 
    3679         {"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"}, 
    3680         {"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"}, 
    3681         {"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"}, 
    3682         {"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"}, 
    3683         {"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"}, 
    3684         {"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"}, 
    3685         {"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"}, 
    3686         {"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"}, 
    3687         {"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"}, 
    3688         {"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"}, 
    3689         {"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"}, 
    3690         {"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"}, 
    3691         {"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"}, 
    3692         {"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"}, 
    3693         {"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"}, 
    3694         {"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"}, 
    3695         {"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"}, 
    3696         {"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"}, 
    3697         {"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"}, 
    3698         {"solsor_dynspg_flt", Ysolsor_dynspg_flt, 2, 32, 22, 0, 19, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3699         {"gcx2", Ygcx2, 2, 32, 22, 0, 1, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3700         {"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"}, 
    3701         {"ua", Yua, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3702         {"va", Yva, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3703         {"sshn", Ysshn, 2, 32, 22, 0, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3704         {"sshb", Ysshb, 2, 32, 22, 0, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3705         {"ub", Yub, 3, 32, 22, 31, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3706         {"vb", Yvb, 3, 32, 22, 31, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3707         {"hdivn", Yhdivn, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3708         {"rotn", Yrotn, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3709         {"wa", Ywa, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3797        {"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"}, 
     3798        {"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"}, 
     3799        {"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"}, 
     3800        {"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"}, 
     3801        {"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"}, 
     3802        {"sbcgyre_qsr_qns", *Ysbcgyre_qsr_qns, 2, 32, 22, 0, 1, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3803        {"sbcgyre_emp1", *Ysbcgyre_emp1, 2, 32, 22, 0, 0, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3804        {"sbcgyre_zsumemp_zsurf", *Ysbcgyre_zsumemp_zsurf, 2, 32, 22, 0, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3805        {"sbcgyre_emp", *Ysbcgyre_emp, 2, 32, 22, 0, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3806        {"sbcgyre_emps", *Ysbcgyre_emps, 2, 32, 22, 0, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3807        {"sbcgyre_utau_vtau", *Ysbcgyre_utau_vtau, 2, 32, 22, 0, 0, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3808        {"sbcgyre_wndm", *Ysbcgyre_wndm, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3809        {"bn2_rn2", *Ybn2_rn2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3810        {"zdf_avt_avmu_avmv", *Yzdf_avt_avmu_avmv, 3, 32, 22, 31, 19, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3811        {"zdfmxl_hmld", *Yzdfmxl_hmld, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3812        {"zdfmxl_nmln_hmlp_hmlpt", *Yzdfmxl_nmln_hmlp_hmlpt, 2, 32, 22, 0, 31, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3813        {"ta_sa_trasbc", *Yta_sa_trasbc, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3814        {"ta_traqsr", *Yta_traqsr, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3815        {"zcent_hor_traadv_cen2", *Yzcent_hor_traadv_cen2, 3, 32, 22, 31, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3816        {"zcens_hor_traadv_cen2", *Yzcens_hor_traadv_cen2, 3, 32, 22, 31, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3817        {"ta_hor_traadv_cen2", *Yta_hor_traadv_cen2, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3818        {"sa_hor_traadv_cen2", *Ysa_hor_traadv_cen2, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3819        {"zcent_ver_traadv_cen2", *Yzcent_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3820        {"zcens_ver_traadv_cen2", *Yzcens_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3821        {"ta_ver_traadv_cen2", *Yta_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3822        {"sa_ver_traadv_cen2", *Ysa_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3823        {"ztuv_traldf_lap", *Yztuv_traldf_lap, 3, 32, 22, 31, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3824        {"zsuv_traldf_lap", *Yzsuv_traldf_lap, 3, 32, 22, 31, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3825        {"ta_traldf_lap", *Yta_traldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3826        {"sa_traldf_lap", *Ysa_traldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3827        {"zwisd_trazdf_imp", *Yzwisd_trazdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3828        {"zrhs_trazdf_imp", *Yzrhs_trazdf_imp, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3829        {"zrhs_sa_trazdf_imp", *Yzrhs_sa_trazdf_imp, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3830        {"zwt_trazdf_imp", *Yzwt_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3831        {"ta_de_trazdf_imp", *Yta_de_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3832        {"ta", *Yta, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3833        {"sa_de_trazdf_imp", *Ysa_de_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3834        {"sa", *Ysa, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3835        {"tb", *Ytb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3836        {"sb", *Ysb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3837        {"rhd", *Yrhd, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3838        {"rhop", *Yrhop, 3, 32, 22, 31, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3839        {"hmf_TF_dynadv_cen2", *Yhmf_TF_dynadv_cen2, 3, 32, 22, 31, 6, 4, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3840        {"zua_dhmf_dynadv_cen2", *Yzua_dhmf_dynadv_cen2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3841        {"zva_dhmf_dynadv_cen2", *Yzva_dhmf_dynadv_cen2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3842        {"zfuv_UW_dynadv_cen2", *Yzfuv_UW_dynadv_cen2, 3, 32, 22, 31, 7, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3843        {"ua_dynadv_cen2", *Yua_dynadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3844        {"va_dynadv_cen2", *Yva_dynadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3845        {"zwxyz_vor_ene", *Yzwxyz_vor_ene, 3, 32, 22, 31, 4, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3846        {"ua_vor_ene", *Yua_vor_ene, 3, 32, 22, 31, 7, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3847        {"va_vor_ene", *Yva_vor_ene, 3, 32, 22, 31, 7, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3848        {"ua_dyn_ldf_lap", *Yua_dyn_ldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3849        {"va_dyn_ldf_lap", *Yva_dyn_ldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3850        {"zhpij_dyn_hpg_zco", *Yzhpij_dyn_hpg_zco, 3, 32, 22, 31, 8, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3851        {"ua_dyn_hpg_zco", *Yua_dyn_hpg_zco, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3852        {"va_dyn_hpg_zco", *Yva_dyn_hpg_zco, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3853        {"zwisd_ua_dynzdf_imp", *Yzwisd_ua_dynzdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3854        {"zwisd_va_dynzdf_imp", *Yzwisd_va_dynzdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3855        {"zrhs_ua_dynzdf_imp", *Yzrhs_ua_dynzdf_imp, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3856        {"zrhs_va_dynzdf_imp", *Yzrhs_va_dynzdf_imp, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3857        {"zwt_ua_dynzdf_imp", *Yzwt_ua_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3858        {"zwt_va_dynzdf_imp", *Yzwt_va_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3859        {"ua_de_dynzdf_imp", *Yua_de_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3860        {"ua_dynzdf_imp", *Yua_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3861        {"va_de_dynzdf_imp", *Yva_de_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3862        {"va_dynzdf_imp", *Yva_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3863        {"ua_norm_dynzdf", *Yua_norm_dynzdf, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3864        {"va_norm_dynzdf", *Yva_norm_dynzdf, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3865        {"spguv_now_dynspg", *Yspguv_now_dynspg, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3866        {"ua_1_dynspg_flt", *Yua_1_dynspg_flt, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3867        {"va_1_dynspg_flt", *Yva_1_dynspg_flt, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3868        {"sum_spgu_dynspg_flt", *Ysum_spgu_dynspg_flt, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3869        {"sum_spgv_dynspg_flt", *Ysum_spgv_dynspg_flt, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3870        {"gcb_dynspg_flt", *Ygcb_dynspg_flt, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3871        {"gcx_dynspg_flt", *Ygcx_dynspg_flt, 2, 32, 22, 0, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3872        {"solsor_dynspg_flt", *Ysolsor_dynspg_flt, 2, 32, 22, 0, 19, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3873        {"gcx2", *Ygcx2, 2, 32, 22, 0, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3874        {"spguv_dynspg_flt", *Yspguv_dynspg_flt, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3875        {"ua", *Yua, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3876        {"va", *Yva, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3877        {"sshn", *Ysshn, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3878        {"sshb", *Ysshb, 2, 32, 22, 0, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3879        {"ub", *Yub, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3880        {"vb", *Yvb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3881        {"hdivn", *Yhdivn, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3882        {"rotn", *Yrotn, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     3883        {"wa", *Ywa, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    37103884}; 
    37113885 
    … …  
    38083982        {"NY", "22"}, 
    38093983        {"NZ", "31"}, 
    3810         {"TA", "50"}, 
     3984        {"TA", "10"}, 
    38113985        {"TU", "2"}, 
    38123986}; 
    38133987 
    3814 //ￜ ￜ ￜ ￜ GENERATION AUTOMATIQUE DES include ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ 
     3988//€ € € € GENERATION AUTOMATIQUE DES include € € € € € € € € € € € 
    38153989#include "sinobad.h"  
    38163990 
    … …  
    38183992#define  backward void sbcgyre_qsr_qns::backward 
    38193993#define  flinward void sbcgyre_qsr_qns::flinward 
    3820 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    3821 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    3822 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    3823 #define  YS2Y Ystate[YTemps][Yi][Yj][1]  
    3824 #define  YS2  Ystate[YTemps][Yi][Yj][1]  
    3825 #define  YG2  Ygrad[YTemps][Yi][Yj][1]  
     3994#define  YS1Y Ystate[YTemps][0]  
     3995#define  YS1  Ystate[YTemps][0]  
     3996#define  YG1  Ygrad[YTemps][0]  
     3997#define  YS2Y Ystate[YTemps][1]  
     3998#define  YS2  Ystate[YTemps][1]  
     3999#define  YG2  Ygrad[YTemps][1]  
    38264000#include "sbcgyre_qsr_qns.h"  
    38274001#undef   YS1Y   
    … …  
    38384012#define  backward void sbcgyre_emp1::backward 
    38394013#define  flinward void sbcgyre_emp1::flinward 
    3840 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    3841 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    3842 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
     4014#define  YS1Y Ystate[YTemps][0]  
     4015#define  YS1  Ystate[YTemps][0]  
     4016#define  YG1  Ygrad[YTemps][0]  
    38434017#include "sbcgyre_emp1.h"  
    38444018#undef   YS1Y   
    … …  
    38524026#define  backward void sbcgyre_zsumemp_zsurf::backward 
    38534027#define  flinward void sbcgyre_zsumemp_zsurf::flinward 
    3854 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    3855 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    3856 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    3857 #define  YS2Y Ystate[YTemps][Yi][Yj][1]  
    3858 #define  YS2  Ystate[YTemps][Yi][Yj][1]  
    3859 #define  YG2  Ygrad[YTemps][Yi][Yj][1]  
     4028#define  YS1Y Ystate[YTemps][0]  
     4029#define  YS1  Ystate[YTemps][0]  
     4030#define  YG1  Ygrad[YTemps][0]  
     4031#define  YS2Y Ystate[YTemps][1]  
     4032#define  YS2  Ystate[YTemps][1]  
     4033#define  YG2  Ygrad[YTemps][1]  
    38604034#include "sbcgyre_zsumemp_zsurf.h"  
    38614035#undef   YS1Y   
    … …  
    38724046#define  backward void sbcgyre_emp::backward 
    38734047#define  flinward void sbcgyre_emp::flinward 
    3874 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    3875 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    3876 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
     4048#define  YS1Y Ystate[YTemps][0]  
     4049#define  YS1  Ystate[YTemps][0]  
     4050#define  YG1  Ygrad[YTemps][0]  
    38774051#include "sbcgyre_emp.h"  
    38784052#undef   YS1Y   
    … …  
    38864060#define  backward void sbcgyre_emps::backward 
    38874061#define  flinward void sbcgyre_emps::flinward 
    3888 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    3889 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    3890 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
     4062#define  YS1Y Ystate[YTemps][0]  
     4063#define  YS1  Ystate[YTemps][0]  
     4064#define  YG1  Ygrad[YTemps][0]  
    38914065#include "sbcgyre_emps.h"  
    38924066#undef   YS1Y   
    … …  
    39004074#define  backward void sbcgyre_utau_vtau::backward 
    39014075#define  flinward void sbcgyre_utau_vtau::flinward 
    3902 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    3903 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    3904 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    3905 #define  YS2Y Ystate[YTemps][Yi][Yj][1]  
    3906 #define  YS2  Ystate[YTemps][Yi][Yj][1]  
    3907 #define  YG2  Ygrad[YTemps][Yi][Yj][1]  
     4076#define  YS1Y Ystate[YTemps][0]  
     4077#define  YS1  Ystate[YTemps][0]  
     4078#define  YG1  Ygrad[YTemps][0]  
     4079#define  YS2Y Ystate[YTemps][1]  
     4080#define  YS2  Ystate[YTemps][1]  
     4081#define  YG2  Ygrad[YTemps][1]  
    39084082#include "sbcgyre_utau_vtau.h"  
    39094083#undef   YS1Y   
    … …  
    39204094#define  backward void sbcgyre_wndm::backward 
    39214095#define  flinward void sbcgyre_wndm::flinward 
    3922 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    3923 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    3924 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
     4096#define  YS1Y Ystate[YTemps][0]  
     4097#define  YS1  Ystate[YTemps][0]  
     4098#define  YG1  Ygrad[YTemps][0]  
    39254099#include "sbcgyre_wndm.h"  
    39264100#undef   YS1Y   
    … …  
    39344108#define  backward void bn2_rn2::backward 
    39354109#define  flinward void bn2_rn2::flinward 
    3936 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    3937 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    3938 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4110#define  YS1Y Ystate[YTemps][0]  
     4111#define  YS1  Ystate[YTemps][0]  
     4112#define  YG1  Ygrad[YTemps][0]  
    39394113#include "bn2_rn2.h"  
    39404114#undef   YS1Y   
    … …  
    39484122#define  backward void zdf_avt_avmu_avmv::backward 
    39494123#define  flinward void zdf_avt_avmu_avmv::flinward 
    3950 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    3951 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    3952 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
    3953 #define  YS2Y Ystate[YTemps][Yi][Yj][Yk][1]  
    3954 #define  YS2  Ystate[YTemps][Yi][Yj][Yk][1]  
    3955 #define  YG2  Ygrad[YTemps][Yi][Yj][Yk][1]  
    3956 #define  YS3Y Ystate[YTemps][Yi][Yj][Yk][2]  
    3957 #define  YS3  Ystate[YTemps][Yi][Yj][Yk][2]  
    3958 #define  YG3  Ygrad[YTemps][Yi][Yj][Yk][2]  
     4124#define  YS1Y Ystate[YTemps][0]  
     4125#define  YS1  Ystate[YTemps][0]  
     4126#define  YG1  Ygrad[YTemps][0]  
     4127#define  YS2Y Ystate[YTemps][1]  
     4128#define  YS2  Ystate[YTemps][1]  
     4129#define  YG2  Ygrad[YTemps][1]  
     4130#define  YS3Y Ystate[YTemps][2]  
     4131#define  YS3  Ystate[YTemps][2]  
     4132#define  YG3  Ygrad[YTemps][2]  
    39594133#include "zdf_avt_avmu_avmv.h"  
    39604134#undef   YS1Y   
    … …  
    39744148#define  backward void zdfmxl_hmld::backward 
    39754149#define  flinward void zdfmxl_hmld::flinward 
    3976 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    3977 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    3978 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
     4150#define  YS1Y Ystate[YTemps][0]  
     4151#define  YS1  Ystate[YTemps][0]  
     4152#define  YG1  Ygrad[YTemps][0]  
    39794153#include "zdfmxl_hmld.h"  
    39804154#undef   YS1Y   
    … …  
    39884162#define  backward void zdfmxl_nmln_hmlp_hmlpt::backward 
    39894163#define  flinward void zdfmxl_nmln_hmlp_hmlpt::flinward 
    3990 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    3991 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    3992 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    3993 #define  YS2Y Ystate[YTemps][Yi][Yj][1]  
    3994 #define  YS2  Ystate[YTemps][Yi][Yj][1]  
    3995 #define  YG2  Ygrad[YTemps][Yi][Yj][1]  
    3996 #define  YS3Y Ystate[YTemps][Yi][Yj][2]  
    3997 #define  YS3  Ystate[YTemps][Yi][Yj][2]  
    3998 #define  YG3  Ygrad[YTemps][Yi][Yj][2]  
     4164#define  YS1Y Ystate[YTemps][0]  
     4165#define  YS1  Ystate[YTemps][0]  
     4166#define  YG1  Ygrad[YTemps][0]  
     4167#define  YS2Y Ystate[YTemps][1]  
     4168#define  YS2  Ystate[YTemps][1]  
     4169#define  YG2  Ygrad[YTemps][1]  
     4170#define  YS3Y Ystate[YTemps][2]  
     4171#define  YS3  Ystate[YTemps][2]  
     4172#define  YG3  Ygrad[YTemps][2]  
    39994173#include "zdfmxl_nmln_hmlp_hmlpt.h"  
    40004174#undef   YS1Y   
    … …  
    40144188#define  backward void ta_sa_trasbc::backward 
    40154189#define  flinward void ta_sa_trasbc::flinward 
    4016 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    4017 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    4018 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    4019 #define  YS2Y Ystate[YTemps][Yi][Yj][1]  
    4020 #define  YS2  Ystate[YTemps][Yi][Yj][1]  
    4021 #define  YG2  Ygrad[YTemps][Yi][Yj][1]  
     4190#define  YS1Y Ystate[YTemps][0]  
     4191#define  YS1  Ystate[YTemps][0]  
     4192#define  YG1  Ygrad[YTemps][0]  
     4193#define  YS2Y Ystate[YTemps][1]  
     4194#define  YS2  Ystate[YTemps][1]  
     4195#define  YG2  Ygrad[YTemps][1]  
    40224196#include "ta_sa_trasbc.h"  
    40234197#undef   YS1Y   
    … …  
    40344208#define  backward void ta_traqsr::backward 
    40354209#define  flinward void ta_traqsr::flinward 
    4036 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4037 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4038 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4210#define  YS1Y Ystate[YTemps][0]  
     4211#define  YS1  Ystate[YTemps][0]  
     4212#define  YG1  Ygrad[YTemps][0]  
    40394213#include "ta_traqsr.h"  
    40404214#undef   YS1Y   
    … …  
    40484222#define  backward void zcent_hor_traadv_cen2::backward 
    40494223#define  flinward void zcent_hor_traadv_cen2::flinward 
    4050 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4051 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4052 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
    4053 #define  YS2Y Ystate[YTemps][Yi][Yj][Yk][1]  
    4054 #define  YS2  Ystate[YTemps][Yi][Yj][Yk][1]  
    4055 #define  YG2  Ygrad[YTemps][Yi][Yj][Yk][1]  
     4224#define  YS1Y Ystate[YTemps][0]  
     4225#define  YS1  Ystate[YTemps][0]  
     4226#define  YG1  Ygrad[YTemps][0]  
     4227#define  YS2Y Ystate[YTemps][1]  
     4228#define  YS2  Ystate[YTemps][1]  
     4229#define  YG2  Ygrad[YTemps][1]  
    40564230#include "zcent_hor_traadv_cen2.h"  
    40574231#undef   YS1Y   
    … …  
    40684242#define  backward void ta_hor_traadv_cen2::backward 
    40694243#define  flinward void ta_hor_traadv_cen2::flinward 
    4070 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4071 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4072 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4244#define  YS1Y Ystate[YTemps][0]  
     4245#define  YS1  Ystate[YTemps][0]  
     4246#define  YG1  Ygrad[YTemps][0]  
    40734247#include "ta_hor_traadv_cen2.h"  
    40744248#undef   YS1Y   
    … …  
    40824256#define  backward void sa_hor_traadv_cen2::backward 
    40834257#define  flinward void sa_hor_traadv_cen2::flinward 
    4084 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4085 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4086 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4258#define  YS1Y Ystate[YTemps][0]  
     4259#define  YS1  Ystate[YTemps][0]  
     4260#define  YG1  Ygrad[YTemps][0]  
    40874261#include "sa_hor_traadv_cen2.h"  
    40884262#undef   YS1Y   
    … …  
    40964270#define  backward void zcent_ver_traadv_cen2::backward 
    40974271#define  flinward void zcent_ver_traadv_cen2::flinward 
    4098 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4099 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4100 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4272#define  YS1Y Ystate[YTemps][0]  
     4273#define  YS1  Ystate[YTemps][0]  
     4274#define  YG1  Ygrad[YTemps][0]  
    41014275#include "zcent_ver_traadv_cen2.h"  
    41024276#undef   YS1Y   
    … …  
    41104284#define  backward void ta_ver_traadv_cen2::backward 
    41114285#define  flinward void ta_ver_traadv_cen2::flinward 
    4112 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4113 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4114 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4286#define  YS1Y Ystate[YTemps][0]  
     4287#define  YS1  Ystate[YTemps][0]  
     4288#define  YG1  Ygrad[YTemps][0]  
    41154289#include "ta_ver_traadv_cen2.h"  
    41164290#undef   YS1Y   
    … …  
    41244298#define  backward void ztuv_traldf_lap::backward 
    41254299#define  flinward void ztuv_traldf_lap::flinward 
    4126 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4127 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4128 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
    4129 #define  YS2Y Ystate[YTemps][Yi][Yj][Yk][1]  
    4130 #define  YS2  Ystate[YTemps][Yi][Yj][Yk][1]  
    4131 #define  YG2  Ygrad[YTemps][Yi][Yj][Yk][1]  
     4300#define  YS1Y Ystate[YTemps][0]  
     4301#define  YS1  Ystate[YTemps][0]  
     4302#define  YG1  Ygrad[YTemps][0]  
     4303#define  YS2Y Ystate[YTemps][1]  
     4304#define  YS2  Ystate[YTemps][1]  
     4305#define  YG2  Ygrad[YTemps][1]  
    41324306#include "ztuv_traldf_lap.h"  
    41334307#undef   YS1Y   
    … …  
    41444318#define  backward void ta_traldf_lap::backward 
    41454319#define  flinward void ta_traldf_lap::flinward 
    4146 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4147 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4148 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4320#define  YS1Y Ystate[YTemps][0]  
     4321#define  YS1  Ystate[YTemps][0]  
     4322#define  YG1  Ygrad[YTemps][0]  
    41494323#include "ta_traldf_lap.h"  
    41504324#undef   YS1Y   
    … …  
    41584332#define  backward void zwisd_trazdf_imp::backward 
    41594333#define  flinward void zwisd_trazdf_imp::flinward 
    4160 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4161 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4162 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
    4163 #define  YS2Y Ystate[YTemps][Yi][Yj][Yk][1]  
    4164 #define  YS2  Ystate[YTemps][Yi][Yj][Yk][1]  
    4165 #define  YG2  Ygrad[YTemps][Yi][Yj][Yk][1]  
    4166 #define  YS3Y Ystate[YTemps][Yi][Yj][Yk][2]  
    4167 #define  YS3  Ystate[YTemps][Yi][Yj][Yk][2]  
    4168 #define  YG3  Ygrad[YTemps][Yi][Yj][Yk][2]  
     4334#define  YS1Y Ystate[YTemps][0]  
     4335#define  YS1  Ystate[YTemps][0]  
     4336#define  YG1  Ygrad[YTemps][0]  
     4337#define  YS2Y Ystate[YTemps][1]  
     4338#define  YS2  Ystate[YTemps][1]  
     4339#define  YG2  Ygrad[YTemps][1]  
     4340#define  YS3Y Ystate[YTemps][2]  
     4341#define  YS3  Ystate[YTemps][2]  
     4342#define  YG3  Ygrad[YTemps][2]  
    41694343#include "zwisd_trazdf_imp.h"  
    41704344#undef   YS1Y   
    … …  
    41844358#define  backward void zrhs_trazdf_imp::backward 
    41854359#define  flinward void zrhs_trazdf_imp::flinward 
    4186 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4187 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4188 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4360#define  YS1Y Ystate[YTemps][0]  
     4361#define  YS1  Ystate[YTemps][0]  
     4362#define  YG1  Ygrad[YTemps][0]  
    41894363#include "zrhs_trazdf_imp.h"  
    41904364#undef   YS1Y   
    … …  
    41984372#define  backward void zwt_trazdf_imp::backward 
    41994373#define  flinward void zwt_trazdf_imp::flinward 
    4200 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4201 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4202 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4374#define  YS1Y Ystate[YTemps][0]  
     4375#define  YS1  Ystate[YTemps][0]  
     4376#define  YG1  Ygrad[YTemps][0]  
    42034377#include "zwt_trazdf_imp.h"  
    42044378#undef   YS1Y   
    … …  
    42124386#define  backward void ta::backward 
    42134387#define  flinward void ta::flinward 
    4214 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4215 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4216 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4388#define  YS1Y Ystate[YTemps][0]  
     4389#define  YS1  Ystate[YTemps][0]  
     4390#define  YG1  Ygrad[YTemps][0]  
    42174391#include "ta.h"  
    42184392#undef   YS1Y   
    … …  
    42264400#define  backward void sa::backward 
    42274401#define  flinward void sa::flinward 
    4228 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4229 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4230 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4402#define  YS1Y Ystate[YTemps][0]  
     4403#define  YS1  Ystate[YTemps][0]  
     4404#define  YG1  Ygrad[YTemps][0]  
    42314405#include "sa.h"  
    42324406#undef   YS1Y   
    … …  
    42404414#define  backward void tb::backward 
    42414415#define  flinward void tb::flinward 
    4242 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4243 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4244 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4416#define  YS1Y Ystate[YTemps][0]  
     4417#define  YS1  Ystate[YTemps][0]  
     4418#define  YG1  Ygrad[YTemps][0]  
    42454419#include "tb.h"  
    42464420#undef   YS1Y   
    … …  
    42544428#define  backward void sb::backward 
    42554429#define  flinward void sb::flinward 
    4256 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4257 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4258 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4430#define  YS1Y Ystate[YTemps][0]  
     4431#define  YS1  Ystate[YTemps][0]  
     4432#define  YG1  Ygrad[YTemps][0]  
    42594433#include "sb.h"  
    42604434#undef   YS1Y   
    … …  
    42684442#define  backward void rhd::backward 
    42694443#define  flinward void rhd::flinward 
    4270 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4271 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4272 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4444#define  YS1Y Ystate[YTemps][0]  
     4445#define  YS1  Ystate[YTemps][0]  
     4446#define  YG1  Ygrad[YTemps][0]  
    42734447#include "rhd.h"  
    42744448#undef   YS1Y   
    … …  
    42824456#define  backward void rhop::backward 
    42834457#define  flinward void rhop::flinward 
    4284 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4285 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4286 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4458#define  YS1Y Ystate[YTemps][0]  
     4459#define  YS1  Ystate[YTemps][0]  
     4460#define  YG1  Ygrad[YTemps][0]  
    42874461#include "rhop.h"  
    42884462#undef   YS1Y   
    … …  
    42964470#define  backward void hmf_TF_dynadv_cen2::backward 
    42974471#define  flinward void hmf_TF_dynadv_cen2::flinward 
    4298 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4299 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4300 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
    4301 #define  YS2Y Ystate[YTemps][Yi][Yj][Yk][1]  
    4302 #define  YS2  Ystate[YTemps][Yi][Yj][Yk][1]  
    4303 #define  YG2  Ygrad[YTemps][Yi][Yj][Yk][1]  
    4304 #define  YS3Y Ystate[YTemps][Yi][Yj][Yk][2]  
    4305 #define  YS3  Ystate[YTemps][Yi][Yj][Yk][2]  
    4306 #define  YG3  Ygrad[YTemps][Yi][Yj][Yk][2]  
    4307 #define  YS4Y Ystate[YTemps][Yi][Yj][Yk][3]  
    4308 #define  YS4  Ystate[YTemps][Yi][Yj][Yk][3]  
    4309 #define  YG4  Ygrad[YTemps][Yi][Yj][Yk][3]  
     4472#define  YS1Y Ystate[YTemps][0]  
     4473#define  YS1  Ystate[YTemps][0]  
     4474#define  YG1  Ygrad[YTemps][0]  
     4475#define  YS2Y Ystate[YTemps][1]  
     4476#define  YS2  Ystate[YTemps][1]  
     4477#define  YG2  Ygrad[YTemps][1]  
     4478#define  YS3Y Ystate[YTemps][2]  
     4479#define  YS3  Ystate[YTemps][2]  
     4480#define  YG3  Ygrad[YTemps][2]  
     4481#define  YS4Y Ystate[YTemps][3]  
     4482#define  YS4  Ystate[YTemps][3]  
     4483#define  YG4  Ygrad[YTemps][3]  
    43104484#include "hmf_TF_dynadv_cen2.h"  
    43114485#undef   YS1Y   
    … …  
    43284502#define  backward void zua_dhmf_dynadv_cen2::backward 
    43294503#define  flinward void zua_dhmf_dynadv_cen2::flinward 
    4330 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4331 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4332 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4504#define  YS1Y Ystate[YTemps][0]  
     4505#define  YS1  Ystate[YTemps][0]  
     4506#define  YG1  Ygrad[YTemps][0]  
    43334507#include "zua_dhmf_dynadv_cen2.h"  
    43344508#undef   YS1Y   
    … …  
    43424516#define  backward void zva_dhmf_dynadv_cen2::backward 
    43434517#define  flinward void zva_dhmf_dynadv_cen2::flinward 
    4344 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4345 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4346 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4518#define  YS1Y Ystate[YTemps][0]  
     4519#define  YS1  Ystate[YTemps][0]  
     4520#define  YG1  Ygrad[YTemps][0]  
    43474521#include "zva_dhmf_dynadv_cen2.h"  
    43484522#undef   YS1Y   
    … …  
    43564530#define  backward void zfuv_UW_dynadv_cen2::backward 
    43574531#define  flinward void zfuv_UW_dynadv_cen2::flinward 
    4358 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4359 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4360 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
    4361 #define  YS2Y Ystate[YTemps][Yi][Yj][Yk][1]  
    4362 #define  YS2  Ystate[YTemps][Yi][Yj][Yk][1]  
    4363 #define  YG2  Ygrad[YTemps][Yi][Yj][Yk][1]  
     4532#define  YS1Y Ystate[YTemps][0]  
     4533#define  YS1  Ystate[YTemps][0]  
     4534#define  YG1  Ygrad[YTemps][0]  
     4535#define  YS2Y Ystate[YTemps][1]  
     4536#define  YS2  Ystate[YTemps][1]  
     4537#define  YG2  Ygrad[YTemps][1]  
    43644538#include "zfuv_UW_dynadv_cen2.h"  
    43654539#undef   YS1Y   
    … …  
    43764550#define  backward void ua_dynadv_cen2::backward 
    43774551#define  flinward void ua_dynadv_cen2::flinward 
    4378 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4379 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4380 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4552#define  YS1Y Ystate[YTemps][0]  
     4553#define  YS1  Ystate[YTemps][0]  
     4554#define  YG1  Ygrad[YTemps][0]  
    43814555#include "ua_dynadv_cen2.h"  
    43824556#undef   YS1Y   
    … …  
    43904564#define  backward void va_dynadv_cen2::backward 
    43914565#define  flinward void va_dynadv_cen2::flinward 
    4392 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4393 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4394 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4566#define  YS1Y Ystate[YTemps][0]  
     4567#define  YS1  Ystate[YTemps][0]  
     4568#define  YG1  Ygrad[YTemps][0]  
    43954569#include "va_dynadv_cen2.h"  
    43964570#undef   YS1Y   
    … …  
    44044578#define  backward void zwxyz_vor_ene::backward 
    44054579#define  flinward void zwxyz_vor_ene::flinward 
    4406 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4407 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4408 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
    4409 #define  YS2Y Ystate[YTemps][Yi][Yj][Yk][1]  
    4410 #define  YS2  Ystate[YTemps][Yi][Yj][Yk][1]  
    4411 #define  YG2  Ygrad[YTemps][Yi][Yj][Yk][1]  
    4412 #define  YS3Y Ystate[YTemps][Yi][Yj][Yk][2]  
    4413 #define  YS3  Ystate[YTemps][Yi][Yj][Yk][2]  
    4414 #define  YG3  Ygrad[YTemps][Yi][Yj][Yk][2]  
     4580#define  YS1Y Ystate[YTemps][0]  
     4581#define  YS1  Ystate[YTemps][0]  
     4582#define  YG1  Ygrad[YTemps][0]  
     4583#define  YS2Y Ystate[YTemps][1]  
     4584#define  YS2  Ystate[YTemps][1]  
     4585#define  YG2  Ygrad[YTemps][1]  
     4586#define  YS3Y Ystate[YTemps][2]  
     4587#define  YS3  Ystate[YTemps][2]  
     4588#define  YG3  Ygrad[YTemps][2]  
    44154589#include "zwxyz_vor_ene.h"  
    44164590#undef   YS1Y   
    … …  
    44304604#define  backward void ua_vor_ene::backward 
    44314605#define  flinward void ua_vor_ene::flinward 
    4432 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4433 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4434 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4606#define  YS1Y Ystate[YTemps][0]  
     4607#define  YS1  Ystate[YTemps][0]  
     4608#define  YG1  Ygrad[YTemps][0]  
    44354609#include "ua_vor_ene.h"  
    44364610#undef   YS1Y   
    … …  
    44444618#define  backward void va_vor_ene::backward 
    44454619#define  flinward void va_vor_ene::flinward 
    4446 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4447 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4448 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4620#define  YS1Y Ystate[YTemps][0]  
     4621#define  YS1  Ystate[YTemps][0]  
     4622#define  YG1  Ygrad[YTemps][0]  
    44494623#include "va_vor_ene.h"  
    44504624#undef   YS1Y   
    … …  
    44584632#define  backward void ua_dyn_ldf_lap::backward 
    44594633#define  flinward void ua_dyn_ldf_lap::flinward 
    4460 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4461 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4462 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4634#define  YS1Y Ystate[YTemps][0]  
     4635#define  YS1  Ystate[YTemps][0]  
     4636#define  YG1  Ygrad[YTemps][0]  
    44634637#include "ua_dyn_ldf_lap.h"  
    44644638#undef   YS1Y   
    … …  
    44724646#define  backward void va_dyn_ldf_lap::backward 
    44734647#define  flinward void va_dyn_ldf_lap::flinward 
    4474 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4475 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4476 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4648#define  YS1Y Ystate[YTemps][0]  
     4649#define  YS1  Ystate[YTemps][0]  
     4650#define  YG1  Ygrad[YTemps][0]  
    44774651#include "va_dyn_ldf_lap.h"  
    44784652#undef   YS1Y   
    … …  
    44864660#define  backward void zhpij_dyn_hpg_zco::backward 
    44874661#define  flinward void zhpij_dyn_hpg_zco::flinward 
    4488 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4489 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4490 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
    4491 #define  YS2Y Ystate[YTemps][Yi][Yj][Yk][1]  
    4492 #define  YS2  Ystate[YTemps][Yi][Yj][Yk][1]  
    4493 #define  YG2  Ygrad[YTemps][Yi][Yj][Yk][1]  
     4662#define  YS1Y Ystate[YTemps][0]  
     4663#define  YS1  Ystate[YTemps][0]  
     4664#define  YG1  Ygrad[YTemps][0]  
     4665#define  YS2Y Ystate[YTemps][1]  
     4666#define  YS2  Ystate[YTemps][1]  
     4667#define  YG2  Ygrad[YTemps][1]  
    44944668#include "zhpij_dyn_hpg_zco.h"  
    44954669#undef   YS1Y   
    … …  
    45064680#define  backward void ua_dyn_hpg_zco::backward 
    45074681#define  flinward void ua_dyn_hpg_zco::flinward 
    4508 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4509 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4510 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4682#define  YS1Y Ystate[YTemps][0]  
     4683#define  YS1  Ystate[YTemps][0]  
     4684#define  YG1  Ygrad[YTemps][0]  
    45114685#include "ua_dyn_hpg_zco.h"  
    45124686#undef   YS1Y   
    … …  
    45204694#define  backward void zwisd_ua_dynzdf_imp::backward 
    45214695#define  flinward void zwisd_ua_dynzdf_imp::flinward 
    4522 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4523 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4524 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
    4525 #define  YS2Y Ystate[YTemps][Yi][Yj][Yk][1]  
    4526 #define  YS2  Ystate[YTemps][Yi][Yj][Yk][1]  
    4527 #define  YG2  Ygrad[YTemps][Yi][Yj][Yk][1]  
    4528 #define  YS3Y Ystate[YTemps][Yi][Yj][Yk][2]  
    4529 #define  YS3  Ystate[YTemps][Yi][Yj][Yk][2]  
    4530 #define  YG3  Ygrad[YTemps][Yi][Yj][Yk][2]  
     4696#define  YS1Y Ystate[YTemps][0]  
     4697#define  YS1  Ystate[YTemps][0]  
     4698#define  YG1  Ygrad[YTemps][0]  
     4699#define  YS2Y Ystate[YTemps][1]  
     4700#define  YS2  Ystate[YTemps][1]  
     4701#define  YG2  Ygrad[YTemps][1]  
     4702#define  YS3Y Ystate[YTemps][2]  
     4703#define  YS3  Ystate[YTemps][2]  
     4704#define  YG3  Ygrad[YTemps][2]  
    45314705#include "zwisd_ua_dynzdf_imp.h"  
    45324706#undef   YS1Y   
    … …  
    45464720#define  backward void zwisd_va_dynzdf_imp::backward 
    45474721#define  flinward void zwisd_va_dynzdf_imp::flinward 
    4548 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4549 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4550 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
    4551 #define  YS2Y Ystate[YTemps][Yi][Yj][Yk][1]  
    4552 #define  YS2  Ystate[YTemps][Yi][Yj][Yk][1]  
    4553 #define  YG2  Ygrad[YTemps][Yi][Yj][Yk][1]  
    4554 #define  YS3Y Ystate[YTemps][Yi][Yj][Yk][2]  
    4555 #define  YS3  Ystate[YTemps][Yi][Yj][Yk][2]  
    4556 #define  YG3  Ygrad[YTemps][Yi][Yj][Yk][2]  
     4722#define  YS1Y Ystate[YTemps][0]  
     4723#define  YS1  Ystate[YTemps][0]  
     4724#define  YG1  Ygrad[YTemps][0]  
     4725#define  YS2Y Ystate[YTemps][1]  
     4726#define  YS2  Ystate[YTemps][1]  
     4727#define  YG2  Ygrad[YTemps][1]  
     4728#define  YS3Y Ystate[YTemps][2]  
     4729#define  YS3  Ystate[YTemps][2]  
     4730#define  YG3  Ygrad[YTemps][2]  
    45574731#include "zwisd_va_dynzdf_imp.h"  
    45584732#undef   YS1Y   
    … …  
    45724746#define  backward void zrhs_ua_dynzdf_imp::backward 
    45734747#define  flinward void zrhs_ua_dynzdf_imp::flinward 
    4574 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4575 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4576 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4748#define  YS1Y Ystate[YTemps][0]  
     4749#define  YS1  Ystate[YTemps][0]  
     4750#define  YG1  Ygrad[YTemps][0]  
    45774751#include "zrhs_ua_dynzdf_imp.h"  
    45784752#undef   YS1Y   
    … …  
    45864760#define  backward void zrhs_va_dynzdf_imp::backward 
    45874761#define  flinward void zrhs_va_dynzdf_imp::flinward 
    4588 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4589 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4590 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4762#define  YS1Y Ystate[YTemps][0]  
     4763#define  YS1  Ystate[YTemps][0]  
     4764#define  YG1  Ygrad[YTemps][0]  
    45914765#include "zrhs_va_dynzdf_imp.h"  
    45924766#undef   YS1Y   
    … …  
    46004774#define  backward void ua_dynzdf_imp::backward 
    46014775#define  flinward void ua_dynzdf_imp::flinward 
    4602 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4603 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4604 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4776#define  YS1Y Ystate[YTemps][0]  
     4777#define  YS1  Ystate[YTemps][0]  
     4778#define  YG1  Ygrad[YTemps][0]  
    46054779#include "ua_dynzdf_imp.h"  
    46064780#undef   YS1Y   
    … …  
    46144788#define  backward void ua_norm_dynzdf::backward 
    46154789#define  flinward void ua_norm_dynzdf::flinward 
    4616 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4617 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4618 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4790#define  YS1Y Ystate[YTemps][0]  
     4791#define  YS1  Ystate[YTemps][0]  
     4792#define  YG1  Ygrad[YTemps][0]  
    46194793#include "ua_norm_dynzdf.h"  
    46204794#undef   YS1Y   
    … …  
    46284802#define  backward void spguv_now_dynspg::backward 
    46294803#define  flinward void spguv_now_dynspg::flinward 
    4630 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    4631 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    4632 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    4633 #define  YS2Y Ystate[YTemps][Yi][Yj][1]  
    4634 #define  YS2  Ystate[YTemps][Yi][Yj][1]  
    4635 #define  YG2  Ygrad[YTemps][Yi][Yj][1]  
     4804#define  YS1Y Ystate[YTemps][0]  
     4805#define  YS1  Ystate[YTemps][0]  
     4806#define  YG1  Ygrad[YTemps][0]  
     4807#define  YS2Y Ystate[YTemps][1]  
     4808#define  YS2  Ystate[YTemps][1]  
     4809#define  YG2  Ygrad[YTemps][1]  
    46364810#include "spguv_now_dynspg.h"  
    46374811#undef   YS1Y   
    … …  
    46484822#define  backward void ua_1_dynspg_flt::backward 
    46494823#define  flinward void ua_1_dynspg_flt::flinward 
    4650 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4651 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4652 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4824#define  YS1Y Ystate[YTemps][0]  
     4825#define  YS1  Ystate[YTemps][0]  
     4826#define  YG1  Ygrad[YTemps][0]  
    46534827#include "ua_1_dynspg_flt.h"  
    46544828#undef   YS1Y   
    … …  
    46624836#define  backward void va_1_dynspg_flt::backward 
    46634837#define  flinward void va_1_dynspg_flt::flinward 
    4664 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4665 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4666 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4838#define  YS1Y Ystate[YTemps][0]  
     4839#define  YS1  Ystate[YTemps][0]  
     4840#define  YG1  Ygrad[YTemps][0]  
    46674841#include "va_1_dynspg_flt.h"  
    46684842#undef   YS1Y   
    … …  
    46764850#define  backward void sum_spgu_dynspg_flt::backward 
    46774851#define  flinward void sum_spgu_dynspg_flt::flinward 
    4678 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    4679 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    4680 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
     4852#define  YS1Y Ystate[YTemps][0]  
     4853#define  YS1  Ystate[YTemps][0]  
     4854#define  YG1  Ygrad[YTemps][0]  
    46814855#include "sum_spgu_dynspg_flt.h"  
    46824856#undef   YS1Y   
    … …  
    46904864#define  backward void sum_spgv_dynspg_flt::backward 
    46914865#define  flinward void sum_spgv_dynspg_flt::flinward 
    4692 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    4693 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    4694 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
     4866#define  YS1Y Ystate[YTemps][0]  
     4867#define  YS1  Ystate[YTemps][0]  
     4868#define  YG1  Ygrad[YTemps][0]  
    46954869#include "sum_spgv_dynspg_flt.h"  
    46964870#undef   YS1Y   
    … …  
    47044878#define  backward void gcb_dynspg_flt::backward 
    47054879#define  flinward void gcb_dynspg_flt::flinward 
    4706 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    4707 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    4708 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
     4880#define  YS1Y Ystate[YTemps][0]  
     4881#define  YS1  Ystate[YTemps][0]  
     4882#define  YG1  Ygrad[YTemps][0]  
    47094883#include "gcb_dynspg_flt.h"  
    47104884#undef   YS1Y   
    … …  
    47184892#define  backward void gcx_dynspg_flt::backward 
    47194893#define  flinward void gcx_dynspg_flt::flinward 
    4720 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    4721 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    4722 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
     4894#define  YS1Y Ystate[YTemps][0]  
     4895#define  YS1  Ystate[YTemps][0]  
     4896#define  YG1  Ygrad[YTemps][0]  
    47234897#include "gcx_dynspg_flt.h"  
    47244898#undef   YS1Y   
    … …  
    47324906#define  backward void solsor_dynspg_flt::backward 
    47334907#define  flinward void solsor_dynspg_flt::flinward 
    4734 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    4735 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    4736 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
     4908#define  YS1Y Ystate[YTemps][0]  
     4909#define  YS1  Ystate[YTemps][0]  
     4910#define  YG1  Ygrad[YTemps][0]  
    47374911#include "solsor_dynspg_flt.h"  
    47384912#undef   YS1Y   
    … …  
    47464920#define  backward void gcx2::backward 
    47474921#define  flinward void gcx2::flinward 
    4748 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    4749 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    4750 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
     4922#define  YS1Y Ystate[YTemps][0]  
     4923#define  YS1  Ystate[YTemps][0]  
     4924#define  YG1  Ygrad[YTemps][0]  
    47514925#include "gcx2.h"  
    47524926#undef   YS1Y   
    … …  
    47604934#define  backward void spguv_dynspg_flt::backward 
    47614935#define  flinward void spguv_dynspg_flt::flinward 
    4762 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    4763 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    4764 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    4765 #define  YS2Y Ystate[YTemps][Yi][Yj][1]  
    4766 #define  YS2  Ystate[YTemps][Yi][Yj][1]  
    4767 #define  YG2  Ygrad[YTemps][Yi][Yj][1]  
     4936#define  YS1Y Ystate[YTemps][0]  
     4937#define  YS1  Ystate[YTemps][0]  
     4938#define  YG1  Ygrad[YTemps][0]  
     4939#define  YS2Y Ystate[YTemps][1]  
     4940#define  YS2  Ystate[YTemps][1]  
     4941#define  YG2  Ygrad[YTemps][1]  
    47684942#include "spguv_dynspg_flt.h"  
    47694943#undef   YS1Y   
    … …  
    47804954#define  backward void ua::backward 
    47814955#define  flinward void ua::flinward 
    4782 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4783 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4784 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4956#define  YS1Y Ystate[YTemps][0]  
     4957#define  YS1  Ystate[YTemps][0]  
     4958#define  YG1  Ygrad[YTemps][0]  
    47854959#include "ua.h"  
    47864960#undef   YS1Y   
    … …  
    47944968#define  backward void va::backward 
    47954969#define  flinward void va::flinward 
    4796 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4797 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4798 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     4970#define  YS1Y Ystate[YTemps][0]  
     4971#define  YS1  Ystate[YTemps][0]  
     4972#define  YG1  Ygrad[YTemps][0]  
    47994973#include "va.h"  
    48004974#undef   YS1Y   
    … …  
    48084982#define  backward void sshn::backward 
    48094983#define  flinward void sshn::flinward 
    4810 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    4811 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    4812 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
     4984#define  YS1Y Ystate[YTemps][0]  
     4985#define  YS1  Ystate[YTemps][0]  
     4986#define  YG1  Ygrad[YTemps][0]  
    48134987#include "sshn.h"  
    48144988#undef   YS1Y   
    … …  
    48224996#define  backward void sshb::backward 
    48234997#define  flinward void sshb::flinward 
    4824 #define  YS1Y Ystate[YTemps][Yi][Yj][0]  
    4825 #define  YS1  Ystate[YTemps][Yi][Yj][0]  
    4826 #define  YG1  Ygrad[YTemps][Yi][Yj][0]  
     4998#define  YS1Y Ystate[YTemps][0]  
     4999#define  YS1  Ystate[YTemps][0]  
     5000#define  YG1  Ygrad[YTemps][0]  
    48275001#include "sshb.h"  
    48285002#undef   YS1Y   
    … …  
    48365010#define  backward void ub::backward 
    48375011#define  flinward void ub::flinward 
    4838 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4839 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4840 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     5012#define  YS1Y Ystate[YTemps][0]  
     5013#define  YS1  Ystate[YTemps][0]  
     5014#define  YG1  Ygrad[YTemps][0]  
    48415015#include "ub.h"  
    48425016#undef   YS1Y   
    … …  
    48505024#define  backward void vb::backward 
    48515025#define  flinward void vb::flinward 
    4852 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4853 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4854 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     5026#define  YS1Y Ystate[YTemps][0]  
     5027#define  YS1  Ystate[YTemps][0]  
     5028#define  YG1  Ygrad[YTemps][0]  
    48555029#include "vb.h"  
    48565030#undef   YS1Y   
    … …  
    48645038#define  backward void hdivn::backward 
    48655039#define  flinward void hdivn::flinward 
    4866 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4867 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4868 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     5040#define  YS1Y Ystate[YTemps][0]  
     5041#define  YS1  Ystate[YTemps][0]  
     5042#define  YG1  Ygrad[YTemps][0]  
    48695043#include "hdivn.h"  
    48705044#undef   YS1Y   
    … …  
    48785052#define  backward void rotn::backward 
    48795053#define  flinward void rotn::flinward 
    4880 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4881 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4882 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     5054#define  YS1Y Ystate[YTemps][0]  
     5055#define  YS1  Ystate[YTemps][0]  
     5056#define  YG1  Ygrad[YTemps][0]  
    48835057#include "rotn.h"  
    48845058#undef   YS1Y   
    … …  
    48925066#define  backward void wa::backward 
    48935067#define  flinward void wa::flinward 
    4894 #define  YS1Y Ystate[YTemps][Yi][Yj][Yk][0]  
    4895 #define  YS1  Ystate[YTemps][Yi][Yj][Yk][0]  
    4896 #define  YG1  Ygrad[YTemps][Yi][Yj][Yk][0]  
     5068#define  YS1Y Ystate[YTemps][0]  
     5069#define  YS1  Ystate[YTemps][0]  
     5070#define  YG1  Ygrad[YTemps][0]  
    48975071#include "wa.h"  
    48985072#undef   YS1Y   

  • trunk/src/Yworkdir/Y2sinobad.h

    r42 r44  
    44//---------------------------------------------------- 
    55 
    6 // ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ LES FONCTIONS PREDEFINIES 
     6// € € € € € € € € LES FONCTIONS PREDEFINIES 
    77/*M2_TBTOG   */  
    88void YtabTOgrad_sshn_c(YREAL tab[]) 
    … …  
    1818                 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 
    1919                         for (int Yws=0; Yws<YNBS_sshn_c; ++Yws){ 
    20                                  Ysshn_c->Ygrad[Yw1][Yw2][Yws] = 0.0;}}} 
     20                                 Ysshn_c(Yw1, Yw2)->Ygrad[Yws] = 0.0;}}} 
    2121}/*M2_SETA*/  
    2222void Ysetstate_sshn_c(double val) 
    … …  
    2525                 for (int Yw2=0; Yw2<YA2_S3d;  ++Yw2){ 
    2626                         for (int Yws=0; Yws<YNBS_sshn_c; ++Yws){ 
    27                                  Ysshn_c->Ystate[Yw1][Yw2][Yws] = val;}}} 
     27                                 Ysshn_c(Yw1, Yw2)->Ystate[Yws] = val;}}} 
    2828}/*M2_YIOTU*/  
    2929void Yio_sshn_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    3030{  Yiorwf ("sshn_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sshn_c(Yws, Yw1, Yw2), val); 
    31 }/*M0_CREY*/  
    32 void Ycreate_sshn_c()    
    33 { 
    34          if ((Ysshn_c = new Yaosshn_c ())==NULL)  
    35                  Ycreate_errnew(); 
     31}/*M2_CREY*/  
     32void Ycreate_sshn_c()   
     33{ 
     34         for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 
     35                 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 
     36                         if ((Ysshn_c(Yw1, Yw2)= new Yaosshn_c ())==NULL) Ycreate_errnew();}} 
    3637}/*M3_ADJUS*/  
    3738void Yadjust_ta_c() 
    … …  
    5859                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    5960                                 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 
    60                                          Y3x[Y3windice] = Yta_c->Ystate[Yw1][Yw2][Yw3][Yws]; ++Y3windice;}}}} 
     61                                         Y3x[Y3windice] = Yta_c(Yw1, Yw2, Yw3)->Ystate[Yws]; ++Y3windice;}}}} 
    6162}/*M3_GSTA*/  
    6263void Y3getstate_ta_c(float x[]) 
    … …  
    6667                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    6768                                 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 
    68                                          Yta_c->Ystate[Yw1][Yw2][Yw3][Yws] = x[Y3windice]; ++Y3windice;}}}} 
     69                                         Yta_c(Yw1, Yw2, Yw3)->Ystate[Yws] = x[Y3windice]; ++Y3windice;}}}} 
    6970}/*M3_VGRAD*/  
    7071void Y3valgrad_ta_c(float g[]) 
    … …  
    7475                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    7576                                 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 
    76                                          g[Y3windice] = Yta_c->Ygrad[Yw1][Yw2][Yw3][Yws]; ++Y3windice;}}}} 
     77                                         g[Y3windice] = Yta_c(Yw1, Yw2, Yw3)->Ygrad[Yws]; ++Y3windice;}}}} 
    7778}/*M3_TBTOG   */  
    7879void YtabTOgrad_ta_c(YREAL tab[]) 
    … …  
    9091                         for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 
    9192                                 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 
    92                                          Yta_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 
     93                                         Yta_c(Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}} 
    9394}/*M3_SETA*/  
    9495void Ysetstate_ta_c(double val) 
    … …  
    9899                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    99100                                 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 
    100                                          Yta_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 
     101                                         Yta_c(Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}} 
    101102}/*M3_YIOTU*/  
    102103void Yio_ta_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    … …  
    125126                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    126127                                 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 
    127                                          Yta_c->Yepsi[Yw1][Yw2][Yw3][Yws] = val;}}}} 
    128 }/*M0_CREY*/  
    129 void Ycreate_ta_c()      
    130 { 
    131          if ((Yta_c = new Yaota_c ())==NULL)  
    132                  Ycreate_errnew(); 
     128                                         Yta_c(Yw1, Yw2, Yw3)->Yepsi[Yws] = val;}}}} 
     129}/*M3_CREY*/  
     130void Ycreate_ta_c()   
     131{ 
     132         for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 
     133                 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 
     134                         for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 
     135                                 if ((Yta_c(Yw1, Yw2, Yw3) = new Yaota_c ())==NULL) Ycreate_errnew();}}} 
    133136}/*M3_SWISH*/  
    134137void Ysetwish_ta_c(double val) 
    … …  
    154157                         for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 
    155158                                 for (int Yws=0; Yws<YNBS_sa_c; ++Yws){ 
    156                                          Ysa_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 
     159                                         Ysa_c(Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}} 
    157160}/*M3_SETA*/  
    158161void Ysetstate_sa_c(double val) 
    … …  
    162165                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    163166                                 for (int Yws=0; Yws<YNBS_sa_c; ++Yws){ 
    164                                          Ysa_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 
     167                                         Ysa_c(Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}} 
    165168}/*M3_YIOTU*/  
    166169void Yio_sa_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    167170{  Yiorwf ("sa_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_c(Yws, Yw1, Yw2, Yw3), val); 
    168 }/*M0_CREY*/  
    169 void Ycreate_sa_c()      
    170 { 
    171          if ((Ysa_c = new Yaosa_c ())==NULL)  
    172                  Ycreate_errnew(); 
     171}/*M3_CREY*/  
     172void Ycreate_sa_c()   
     173{ 
     174         for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 
     175                 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 
     176                         for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 
     177                                 if ((Ysa_c(Yw1, Yw2, Yw3) = new Yaosa_c ())==NULL) Ycreate_errnew();}}} 
    173178}/*M3_TBTOG   */  
    174179void YtabTOgrad_ua_c(YREAL tab[]) 
    … …  
    186191                         for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 
    187192                                 for (int Yws=0; Yws<YNBS_ua_c; ++Yws){ 
    188                                          Yua_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 
     193                                         Yua_c(Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}} 
    189194}/*M3_SETA*/  
    190195void Ysetstate_ua_c(double val) 
    … …  
    194199                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    195200                                 for (int Yws=0; Yws<YNBS_ua_c; ++Yws){ 
    196                                          Yua_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 
     201                                         Yua_c(Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}} 
    197202}/*M3_YIOTU*/  
    198203void Yio_ua_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    199204{  Yiorwf ("ua_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_c(Yws, Yw1, Yw2, Yw3), val); 
    200 }/*M0_CREY*/  
    201 void Ycreate_ua_c()      
    202 { 
    203          if ((Yua_c = new Yaoua_c ())==NULL)  
    204                  Ycreate_errnew(); 
     205}/*M3_CREY*/  
     206void Ycreate_ua_c()   
     207{ 
     208         for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 
     209                 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 
     210                         for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 
     211                                 if ((Yua_c(Yw1, Yw2, Yw3) = new Yaoua_c ())==NULL) Ycreate_errnew();}}} 
    205212}/*M3_TBTOG   */  
    206213void YtabTOgrad_va_c(YREAL tab[]) 
    … …  
    218225                         for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 
    219226                                 for (int Yws=0; Yws<YNBS_va_c; ++Yws){ 
    220                                          Yva_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 
     227                                         Yva_c(Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}} 
    221228}/*M3_SETA*/  
    222229void Ysetstate_va_c(double val) 
    … …  
    226233                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    227234                                 for (int Yws=0; Yws<YNBS_va_c; ++Yws){ 
    228                                          Yva_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 
     235                                         Yva_c(Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}} 
    229236}/*M3_YIOTU*/  
    230237void Yio_va_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    231238{  Yiorwf ("va_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_c(Yws, Yw1, Yw2, Yw3), val); 
    232 }/*M0_CREY*/  
    233 void Ycreate_va_c()      
    234 { 
    235          if ((Yva_c = new Yaova_c ())==NULL)  
    236                  Ycreate_errnew(); 
     239}/*M3_CREY*/  
     240void Ycreate_va_c()   
     241{ 
     242         for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 
     243                 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 
     244                         for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 
     245                                 if ((Yva_c(Yw1, Yw2, Yw3) = new Yaova_c ())==NULL) Ycreate_errnew();}}} 
    237246}/*M2_TBTOGT  */  
    238247void YtabTOgrad_sbcgyre_qsr_qns(int frompdt, int topdt, YREAL tab[]) 
    … …  
    250259                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    251260                                 for (int Yws=0; Yws<YNBS_sbcgyre_qsr_qns; ++Yws){ 
    252                                          Ysbcgyre_qsr_qns->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     261                                         Ysbcgyre_qsr_qns(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    253262}/*M2_SETAT*/  
    254263void Ysetstate_sbcgyre_qsr_qns(double val) 
    … …  
    258267                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    259268                                 for (int Yws=0; Yws<YNBS_sbcgyre_qsr_qns; ++Yws){ 
    260                                          Ysbcgyre_qsr_qns->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     269                                         Ysbcgyre_qsr_qns(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    261270}/*M2_YIOUT*/  
    262271void Yio_sbcgyre_qsr_qns(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)        
    263272{  Yiorwf ("sbcgyre_qsr_qns", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_qsr_qns(Yws, Yw1, Yw2, Ywt), val); 
    264 }/*M0_CREU*/  
     273}/*M2_CREU*/  
    265274void Ycreate_sbcgyre_qsr_qns()   
    266275{ 
    267          if ((Ysbcgyre_qsr_qns = new sbcgyre_qsr_qns ())==NULL)  
    268                  Ycreate_errnew(); 
     276         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     277                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     278                         if ((Ysbcgyre_qsr_qns(Yw1, Yw2)= new sbcgyre_qsr_qns ())==NULL) Ycreate_errnew();}} 
    269279}/*M2_TBTOGT  */  
    270280void YtabTOgrad_sbcgyre_emp1(int frompdt, int topdt, YREAL tab[]) 
    … …  
    282292                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    283293                                 for (int Yws=0; Yws<YNBS_sbcgyre_emp1; ++Yws){ 
    284                                          Ysbcgyre_emp1->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     294                                         Ysbcgyre_emp1(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    285295}/*M2_SETAT*/  
    286296void Ysetstate_sbcgyre_emp1(double val) 
    … …  
    290300                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    291301                                 for (int Yws=0; Yws<YNBS_sbcgyre_emp1; ++Yws){ 
    292                                          Ysbcgyre_emp1->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     302                                         Ysbcgyre_emp1(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    293303}/*M2_YIOUT*/  
    294304void Yio_sbcgyre_emp1(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    295305{  Yiorwf ("sbcgyre_emp1", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emp1(Yws, Yw1, Yw2, Ywt), val); 
    296 }/*M0_CREU*/  
     306}/*M2_CREU*/  
    297307void Ycreate_sbcgyre_emp1()   
    298308{ 
    299          if ((Ysbcgyre_emp1 = new sbcgyre_emp1 ())==NULL)  
    300                  Ycreate_errnew(); 
     309         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     310                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     311                         if ((Ysbcgyre_emp1(Yw1, Yw2)= new sbcgyre_emp1 ())==NULL) Ycreate_errnew();}} 
    301312}/*M2_TBTOGT  */  
    302313void YtabTOgrad_sbcgyre_zsumemp_zsurf(int frompdt, int topdt, YREAL tab[]) 
    … …  
    314325                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    315326                                 for (int Yws=0; Yws<YNBS_sbcgyre_zsumemp_zsurf; ++Yws){ 
    316                                          Ysbcgyre_zsumemp_zsurf->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     327                                         Ysbcgyre_zsumemp_zsurf(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    317328}/*M2_SETAT*/  
    318329void Ysetstate_sbcgyre_zsumemp_zsurf(double val) 
    … …  
    322333                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    323334                                 for (int Yws=0; Yws<YNBS_sbcgyre_zsumemp_zsurf; ++Yws){ 
    324                                          Ysbcgyre_zsumemp_zsurf->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     335                                         Ysbcgyre_zsumemp_zsurf(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    325336}/*M2_YIOUT*/  
    326337void Yio_sbcgyre_zsumemp_zsurf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    327338{  Yiorwf ("sbcgyre_zsumemp_zsurf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_zsumemp_zsurf(Yws, Yw1, Yw2, Ywt), val); 
    328 }/*M0_CREU*/  
     339}/*M2_CREU*/  
    329340void Ycreate_sbcgyre_zsumemp_zsurf()   
    330341{ 
    331          if ((Ysbcgyre_zsumemp_zsurf = new sbcgyre_zsumemp_zsurf ())==NULL)  
    332                  Ycreate_errnew(); 
     342         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     343                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     344                         if ((Ysbcgyre_zsumemp_zsurf(Yw1, Yw2)= new sbcgyre_zsumemp_zsurf ())==NULL) Ycreate_errnew();}} 
    333345}/*M2_TBTOGT  */  
    334346void YtabTOgrad_sbcgyre_emp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    346358                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    347359                                 for (int Yws=0; Yws<YNBS_sbcgyre_emp; ++Yws){ 
    348                                          Ysbcgyre_emp->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     360                                         Ysbcgyre_emp(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    349361}/*M2_SETAT*/  
    350362void Ysetstate_sbcgyre_emp(double val) 
    … …  
    354366                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    355367                                 for (int Yws=0; Yws<YNBS_sbcgyre_emp; ++Yws){ 
    356                                          Ysbcgyre_emp->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     368                                         Ysbcgyre_emp(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    357369}/*M2_YIOUT*/  
    358370void Yio_sbcgyre_emp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    359371{  Yiorwf ("sbcgyre_emp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emp(Yws, Yw1, Yw2, Ywt), val); 
    360 }/*M0_CREU*/  
     372}/*M2_CREU*/  
    361373void Ycreate_sbcgyre_emp()   
    362374{ 
    363          if ((Ysbcgyre_emp = new sbcgyre_emp ())==NULL)  
    364                  Ycreate_errnew(); 
     375         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     376                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     377                         if ((Ysbcgyre_emp(Yw1, Yw2)= new sbcgyre_emp ())==NULL) Ycreate_errnew();}} 
    365378}/*M2_TBTOGT  */  
    366379void YtabTOgrad_sbcgyre_emps(int frompdt, int topdt, YREAL tab[]) 
    … …  
    378391                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    379392                                 for (int Yws=0; Yws<YNBS_sbcgyre_emps; ++Yws){ 
    380                                          Ysbcgyre_emps->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     393                                         Ysbcgyre_emps(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    381394}/*M2_SETAT*/  
    382395void Ysetstate_sbcgyre_emps(double val) 
    … …  
    386399                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    387400                                 for (int Yws=0; Yws<YNBS_sbcgyre_emps; ++Yws){ 
    388                                          Ysbcgyre_emps->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     401                                         Ysbcgyre_emps(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    389402}/*M2_YIOUT*/  
    390403void Yio_sbcgyre_emps(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    391404{  Yiorwf ("sbcgyre_emps", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emps(Yws, Yw1, Yw2, Ywt), val); 
    392 }/*M0_CREU*/  
     405}/*M2_CREU*/  
    393406void Ycreate_sbcgyre_emps()   
    394407{ 
    395          if ((Ysbcgyre_emps = new sbcgyre_emps ())==NULL)  
    396                  Ycreate_errnew(); 
     408         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     409                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     410                         if ((Ysbcgyre_emps(Yw1, Yw2)= new sbcgyre_emps ())==NULL) Ycreate_errnew();}} 
    397411}/*M2_TBTOGT  */  
    398412void YtabTOgrad_sbcgyre_utau_vtau(int frompdt, int topdt, YREAL tab[]) 
    … …  
    410424                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    411425                                 for (int Yws=0; Yws<YNBS_sbcgyre_utau_vtau; ++Yws){ 
    412                                          Ysbcgyre_utau_vtau->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     426                                         Ysbcgyre_utau_vtau(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    413427}/*M2_SETAT*/  
    414428void Ysetstate_sbcgyre_utau_vtau(double val) 
    … …  
    418432                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    419433                                 for (int Yws=0; Yws<YNBS_sbcgyre_utau_vtau; ++Yws){ 
    420                                          Ysbcgyre_utau_vtau->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     434                                         Ysbcgyre_utau_vtau(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    421435}/*M2_YIOUT*/  
    422436void Yio_sbcgyre_utau_vtau(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)      
    423437{  Yiorwf ("sbcgyre_utau_vtau", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_utau_vtau(Yws, Yw1, Yw2, Ywt), val); 
    424 }/*M0_CREU*/  
     438}/*M2_CREU*/  
    425439void Ycreate_sbcgyre_utau_vtau()   
    426440{ 
    427          if ((Ysbcgyre_utau_vtau = new sbcgyre_utau_vtau ())==NULL)  
    428                  Ycreate_errnew(); 
     441         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     442                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     443                         if ((Ysbcgyre_utau_vtau(Yw1, Yw2)= new sbcgyre_utau_vtau ())==NULL) Ycreate_errnew();}} 
    429444}/*M2_TBTOGT  */  
    430445void YtabTOgrad_sbcgyre_wndm(int frompdt, int topdt, YREAL tab[]) 
    … …  
    442457                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    443458                                 for (int Yws=0; Yws<YNBS_sbcgyre_wndm; ++Yws){ 
    444                                          Ysbcgyre_wndm->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     459                                         Ysbcgyre_wndm(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    445460}/*M2_SETAT*/  
    446461void Ysetstate_sbcgyre_wndm(double val) 
    … …  
    450465                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    451466                                 for (int Yws=0; Yws<YNBS_sbcgyre_wndm; ++Yws){ 
    452                                          Ysbcgyre_wndm->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     467                                         Ysbcgyre_wndm(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    453468}/*M2_YIOUT*/  
    454469void Yio_sbcgyre_wndm(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    455470{  Yiorwf ("sbcgyre_wndm", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_wndm(Yws, Yw1, Yw2, Ywt), val); 
    456 }/*M0_CREU*/  
     471}/*M2_CREU*/  
    457472void Ycreate_sbcgyre_wndm()   
    458473{ 
    459          if ((Ysbcgyre_wndm = new sbcgyre_wndm ())==NULL)  
    460                  Ycreate_errnew(); 
     474         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     475                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     476                         if ((Ysbcgyre_wndm(Yw1, Yw2)= new sbcgyre_wndm ())==NULL) Ycreate_errnew();}} 
    461477}/*M3_TBTOGT  */  
    462478void YtabTOgrad_bn2_rn2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    476492                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    477493                                         for (int Yws=0; Yws<YNBS_bn2_rn2; ++Yws){ 
    478                                                  Ybn2_rn2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     494                                                 Ybn2_rn2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    479495}/*M3_SETAT*/  
    480496void Ysetstate_bn2_rn2(double val) 
    … …  
    485501                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    486502                                         for (int Yws=0; Yws<YNBS_bn2_rn2; ++Yws){ 
    487                                                  Ybn2_rn2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     503                                                 Ybn2_rn2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    488504}/*M3_YIOUT*/  
    489505void Yio_bn2_rn2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)        
    490506{  Yiorwf ("bn2_rn2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_bn2_rn2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    491 }/*M0_CREU*/  
     507}/*M3_CREU*/  
    492508void Ycreate_bn2_rn2()   
    493509{ 
    494          if ((Ybn2_rn2 = new bn2_rn2 ())==NULL)  
    495                  Ycreate_errnew(); 
     510         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     511                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     512                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     513                                 if ((Ybn2_rn2(Yw1, Yw2, Yw3) = new bn2_rn2 ())==NULL) Ycreate_errnew();}}} 
    496514}/*M3_TBTOGT  */  
    497515void YtabTOgrad_zdf_avt_avmu_avmv(int frompdt, int topdt, YREAL tab[]) 
    … …  
    511529                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    512530                                         for (int Yws=0; Yws<YNBS_zdf_avt_avmu_avmv; ++Yws){ 
    513                                                  Yzdf_avt_avmu_avmv->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     531                                                 Yzdf_avt_avmu_avmv(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    514532}/*M3_SETAT*/  
    515533void Ysetstate_zdf_avt_avmu_avmv(double val) 
    … …  
    520538                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    521539                                         for (int Yws=0; Yws<YNBS_zdf_avt_avmu_avmv; ++Yws){ 
    522                                                  Yzdf_avt_avmu_avmv->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     540                                                 Yzdf_avt_avmu_avmv(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    523541}/*M3_YIOUT*/  
    524542void Yio_zdf_avt_avmu_avmv(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)      
    525543{  Yiorwf ("zdf_avt_avmu_avmv", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdf_avt_avmu_avmv(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    526 }/*M0_CREU*/  
     544}/*M3_CREU*/  
    527545void Ycreate_zdf_avt_avmu_avmv()   
    528546{ 
    529          if ((Yzdf_avt_avmu_avmv = new zdf_avt_avmu_avmv ())==NULL)  
    530                  Ycreate_errnew(); 
     547         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     548                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     549                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     550                                 if ((Yzdf_avt_avmu_avmv(Yw1, Yw2, Yw3) = new zdf_avt_avmu_avmv ())==NULL) Ycreate_errnew();}}} 
    531551}/*M2_TBTOGT  */  
    532552void YtabTOgrad_zdfmxl_hmld(int frompdt, int topdt, YREAL tab[]) 
    … …  
    544564                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    545565                                 for (int Yws=0; Yws<YNBS_zdfmxl_hmld; ++Yws){ 
    546                                          Yzdfmxl_hmld->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     566                                         Yzdfmxl_hmld(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    547567}/*M2_SETAT*/  
    548568void Ysetstate_zdfmxl_hmld(double val) 
    … …  
    552572                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    553573                                 for (int Yws=0; Yws<YNBS_zdfmxl_hmld; ++Yws){ 
    554                                          Yzdfmxl_hmld->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     574                                         Yzdfmxl_hmld(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    555575}/*M2_YIOUT*/  
    556576void Yio_zdfmxl_hmld(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    557577{  Yiorwf ("zdfmxl_hmld", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdfmxl_hmld(Yws, Yw1, Yw2, Ywt), val); 
    558 }/*M0_CREU*/  
     578}/*M2_CREU*/  
    559579void Ycreate_zdfmxl_hmld()   
    560580{ 
    561          if ((Yzdfmxl_hmld = new zdfmxl_hmld ())==NULL)  
    562                  Ycreate_errnew(); 
     581         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     582                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     583                         if ((Yzdfmxl_hmld(Yw1, Yw2)= new zdfmxl_hmld ())==NULL) Ycreate_errnew();}} 
    563584}/*M2_TBTOGT  */  
    564585void YtabTOgrad_zdfmxl_nmln_hmlp_hmlpt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    576597                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    577598                                 for (int Yws=0; Yws<YNBS_zdfmxl_nmln_hmlp_hmlpt; ++Yws){ 
    578                                          Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     599                                         Yzdfmxl_nmln_hmlp_hmlpt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    579600}/*M2_SETAT*/  
    580601void Ysetstate_zdfmxl_nmln_hmlp_hmlpt(double val) 
    … …  
    584605                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    585606                                 for (int Yws=0; Yws<YNBS_zdfmxl_nmln_hmlp_hmlpt; ++Yws){ 
    586                                          Yzdfmxl_nmln_hmlp_hmlpt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     607                                         Yzdfmxl_nmln_hmlp_hmlpt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    587608}/*M2_YIOUT*/  
    588609void Yio_zdfmxl_nmln_hmlp_hmlpt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    589610{  Yiorwf ("zdfmxl_nmln_hmlp_hmlpt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdfmxl_nmln_hmlp_hmlpt(Yws, Yw1, Yw2, Ywt), val); 
    590 }/*M0_CREU*/  
     611}/*M2_CREU*/  
    591612void Ycreate_zdfmxl_nmln_hmlp_hmlpt()   
    592613{ 
    593          if ((Yzdfmxl_nmln_hmlp_hmlpt = new zdfmxl_nmln_hmlp_hmlpt ())==NULL)  
    594                  Ycreate_errnew(); 
     614         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     615                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     616                         if ((Yzdfmxl_nmln_hmlp_hmlpt(Yw1, Yw2)= new zdfmxl_nmln_hmlp_hmlpt ())==NULL) Ycreate_errnew();}} 
    595617}/*M2_TBTOGT  */  
    596618void YtabTOgrad_ta_sa_trasbc(int frompdt, int topdt, YREAL tab[]) 
    … …  
    608630                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    609631                                 for (int Yws=0; Yws<YNBS_ta_sa_trasbc; ++Yws){ 
    610                                          Yta_sa_trasbc->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     632                                         Yta_sa_trasbc(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    611633}/*M2_SETAT*/  
    612634void Ysetstate_ta_sa_trasbc(double val) 
    … …  
    616638                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    617639                                 for (int Yws=0; Yws<YNBS_ta_sa_trasbc; ++Yws){ 
    618                                          Yta_sa_trasbc->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     640                                         Yta_sa_trasbc(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    619641}/*M2_YIOUT*/  
    620642void Yio_ta_sa_trasbc(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    621643{  Yiorwf ("ta_sa_trasbc", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_sa_trasbc(Yws, Yw1, Yw2, Ywt), val); 
    622 }/*M0_CREU*/  
     644}/*M2_CREU*/  
    623645void Ycreate_ta_sa_trasbc()   
    624646{ 
    625          if ((Yta_sa_trasbc = new ta_sa_trasbc ())==NULL)  
    626                  Ycreate_errnew(); 
     647         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     648                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     649                         if ((Yta_sa_trasbc(Yw1, Yw2)= new ta_sa_trasbc ())==NULL) Ycreate_errnew();}} 
    627650}/*M3_TBTOGT  */  
    628651void YtabTOgrad_ta_traqsr(int frompdt, int topdt, YREAL tab[]) 
    … …  
    642665                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    643666                                         for (int Yws=0; Yws<YNBS_ta_traqsr; ++Yws){ 
    644                                                  Yta_traqsr->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     667                                                 Yta_traqsr(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    645668}/*M3_SETAT*/  
    646669void Ysetstate_ta_traqsr(double val) 
    … …  
    651674                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    652675                                         for (int Yws=0; Yws<YNBS_ta_traqsr; ++Yws){ 
    653                                                  Yta_traqsr->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     676                                                 Yta_traqsr(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    654677}/*M3_YIOUT*/  
    655678void Yio_ta_traqsr(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)      
    656679{  Yiorwf ("ta_traqsr", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_traqsr(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    657 }/*M0_CREU*/  
     680}/*M3_CREU*/  
    658681void Ycreate_ta_traqsr()   
    659682{ 
    660          if ((Yta_traqsr = new ta_traqsr ())==NULL)  
    661                  Ycreate_errnew(); 
     683         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     684                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     685                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     686                                 if ((Yta_traqsr(Yw1, Yw2, Yw3) = new ta_traqsr ())==NULL) Ycreate_errnew();}}} 
    662687}/*M3_TBTOGT  */  
    663688void YtabTOgrad_zcent_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    677702                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    678703                                         for (int Yws=0; Yws<YNBS_zcent_hor_traadv_cen2; ++Yws){ 
    679                                                  Yzcent_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     704                                                 Yzcent_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    680705}/*M3_SETAT*/  
    681706void Ysetstate_zcent_hor_traadv_cen2(double val) 
    … …  
    686711                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    687712                                         for (int Yws=0; Yws<YNBS_zcent_hor_traadv_cen2; ++Yws){ 
    688                                                  Yzcent_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     713                                                 Yzcent_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    689714}/*M3_YIOUT*/  
    690715void Yio_zcent_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    691716{  Yiorwf ("zcent_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcent_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    692 }/*M0_CREU*/  
     717}/*M3_CREU*/  
    693718void Ycreate_zcent_hor_traadv_cen2()   
    694719{ 
    695          if ((Yzcent_hor_traadv_cen2 = new zcent_hor_traadv_cen2 ())==NULL)  
    696                  Ycreate_errnew(); 
     720         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     721                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     722                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     723                                 if ((Yzcent_hor_traadv_cen2(Yw1, Yw2, Yw3) = new zcent_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 
    697724}/*M3_TBTOGT  */  
    698725void YtabTOgrad_zcens_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    712739                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    713740                                         for (int Yws=0; Yws<YNBS_zcens_hor_traadv_cen2; ++Yws){ 
    714                                                  Yzcens_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     741                                                 Yzcens_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    715742}/*M3_SETAT*/  
    716743void Ysetstate_zcens_hor_traadv_cen2(double val) 
    … …  
    721748                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    722749                                         for (int Yws=0; Yws<YNBS_zcens_hor_traadv_cen2; ++Yws){ 
    723                                                  Yzcens_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     750                                                 Yzcens_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    724751}/*M3_YIOUT*/  
    725752void Yio_zcens_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    726753{  Yiorwf ("zcens_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcens_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    727 }/*M0_CREU*/  
     754}/*M3_CREU*/  
    728755void Ycreate_zcens_hor_traadv_cen2()   
    729756{ 
    730          if ((Yzcens_hor_traadv_cen2 = new zcens_hor_traadv_cen2 ())==NULL)  
    731                  Ycreate_errnew(); 
     757         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     758                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     759                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     760                                 if ((Yzcens_hor_traadv_cen2(Yw1, Yw2, Yw3) = new zcens_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 
    732761}/*M3_TBTOGT  */  
    733762void YtabTOgrad_ta_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    747776                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    748777                                         for (int Yws=0; Yws<YNBS_ta_hor_traadv_cen2; ++Yws){ 
    749                                                  Yta_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     778                                                 Yta_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    750779}/*M3_SETAT*/  
    751780void Ysetstate_ta_hor_traadv_cen2(double val) 
    … …  
    756785                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    757786                                         for (int Yws=0; Yws<YNBS_ta_hor_traadv_cen2; ++Yws){ 
    758                                                  Yta_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     787                                                 Yta_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    759788}/*M3_YIOUT*/  
    760789void Yio_ta_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    761790{  Yiorwf ("ta_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    762 }/*M0_CREU*/  
     791}/*M3_CREU*/  
    763792void Ycreate_ta_hor_traadv_cen2()   
    764793{ 
    765          if ((Yta_hor_traadv_cen2 = new ta_hor_traadv_cen2 ())==NULL)  
    766                  Ycreate_errnew(); 
     794         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     795                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     796                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     797                                 if ((Yta_hor_traadv_cen2(Yw1, Yw2, Yw3) = new ta_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 
    767798}/*M3_TBTOGT  */  
    768799void YtabTOgrad_sa_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    782813                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    783814                                         for (int Yws=0; Yws<YNBS_sa_hor_traadv_cen2; ++Yws){ 
    784                                                  Ysa_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     815                                                 Ysa_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    785816}/*M3_SETAT*/  
    786817void Ysetstate_sa_hor_traadv_cen2(double val) 
    … …  
    791822                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    792823                                         for (int Yws=0; Yws<YNBS_sa_hor_traadv_cen2; ++Yws){ 
    793                                                  Ysa_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     824                                                 Ysa_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    794825}/*M3_YIOUT*/  
    795826void Yio_sa_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    796827{  Yiorwf ("sa_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    797 }/*M0_CREU*/  
     828}/*M3_CREU*/  
    798829void Ycreate_sa_hor_traadv_cen2()   
    799830{ 
    800          if ((Ysa_hor_traadv_cen2 = new sa_hor_traadv_cen2 ())==NULL)  
    801                  Ycreate_errnew(); 
     831         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     832                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     833                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     834                                 if ((Ysa_hor_traadv_cen2(Yw1, Yw2, Yw3) = new sa_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 
    802835}/*M3_TBTOGT  */  
    803836void YtabTOgrad_zcent_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    817850                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    818851                                         for (int Yws=0; Yws<YNBS_zcent_ver_traadv_cen2; ++Yws){ 
    819                                                  Yzcent_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     852                                                 Yzcent_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    820853}/*M3_SETAT*/  
    821854void Ysetstate_zcent_ver_traadv_cen2(double val) 
    … …  
    826859                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    827860                                         for (int Yws=0; Yws<YNBS_zcent_ver_traadv_cen2; ++Yws){ 
    828                                                  Yzcent_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     861                                                 Yzcent_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    829862}/*M3_YIOUT*/  
    830863void Yio_zcent_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    831864{  Yiorwf ("zcent_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcent_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    832 }/*M0_CREU*/  
     865}/*M3_CREU*/  
    833866void Ycreate_zcent_ver_traadv_cen2()   
    834867{ 
    835          if ((Yzcent_ver_traadv_cen2 = new zcent_ver_traadv_cen2 ())==NULL)  
    836                  Ycreate_errnew(); 
     868         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     869                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     870                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     871                                 if ((Yzcent_ver_traadv_cen2(Yw1, Yw2, Yw3) = new zcent_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 
    837872}/*M3_TBTOGT  */  
    838873void YtabTOgrad_zcens_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    852887                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    853888                                         for (int Yws=0; Yws<YNBS_zcens_ver_traadv_cen2; ++Yws){ 
    854                                                  Yzcens_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     889                                                 Yzcens_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    855890}/*M3_SETAT*/  
    856891void Ysetstate_zcens_ver_traadv_cen2(double val) 
    … …  
    861896                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    862897                                         for (int Yws=0; Yws<YNBS_zcens_ver_traadv_cen2; ++Yws){ 
    863                                                  Yzcens_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     898                                                 Yzcens_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    864899}/*M3_YIOUT*/  
    865900void Yio_zcens_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    866901{  Yiorwf ("zcens_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcens_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    867 }/*M0_CREU*/  
     902}/*M3_CREU*/  
    868903void Ycreate_zcens_ver_traadv_cen2()   
    869904{ 
    870          if ((Yzcens_ver_traadv_cen2 = new zcens_ver_traadv_cen2 ())==NULL)  
    871                  Ycreate_errnew(); 
     905         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     906                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     907                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     908                                 if ((Yzcens_ver_traadv_cen2(Yw1, Yw2, Yw3) = new zcens_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 
    872909}/*M3_TBTOGT  */  
    873910void YtabTOgrad_ta_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    887924                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    888925                                         for (int Yws=0; Yws<YNBS_ta_ver_traadv_cen2; ++Yws){ 
    889                                                  Yta_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     926                                                 Yta_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    890927}/*M3_SETAT*/  
    891928void Ysetstate_ta_ver_traadv_cen2(double val) 
    … …  
    896933                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    897934                                         for (int Yws=0; Yws<YNBS_ta_ver_traadv_cen2; ++Yws){ 
    898                                                  Yta_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     935                                                 Yta_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    899936}/*M3_YIOUT*/  
    900937void Yio_ta_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    901938{  Yiorwf ("ta_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    902 }/*M0_CREU*/  
     939}/*M3_CREU*/  
    903940void Ycreate_ta_ver_traadv_cen2()   
    904941{ 
    905          if ((Yta_ver_traadv_cen2 = new ta_ver_traadv_cen2 ())==NULL)  
    906                  Ycreate_errnew(); 
     942         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     943                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     944                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     945                                 if ((Yta_ver_traadv_cen2(Yw1, Yw2, Yw3) = new ta_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 
    907946}/*M3_TBTOGT  */  
    908947void YtabTOgrad_sa_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    922961                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    923962                                         for (int Yws=0; Yws<YNBS_sa_ver_traadv_cen2; ++Yws){ 
    924                                                  Ysa_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     963                                                 Ysa_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    925964}/*M3_SETAT*/  
    926965void Ysetstate_sa_ver_traadv_cen2(double val) 
    … …  
    931970                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    932971                                         for (int Yws=0; Yws<YNBS_sa_ver_traadv_cen2; ++Yws){ 
    933                                                  Ysa_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     972                                                 Ysa_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    934973}/*M3_YIOUT*/  
    935974void Yio_sa_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    936975{  Yiorwf ("sa_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    937 }/*M0_CREU*/  
     976}/*M3_CREU*/  
    938977void Ycreate_sa_ver_traadv_cen2()   
    939978{ 
    940          if ((Ysa_ver_traadv_cen2 = new sa_ver_traadv_cen2 ())==NULL)  
    941                  Ycreate_errnew(); 
     979         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     980                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     981                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     982                                 if ((Ysa_ver_traadv_cen2(Yw1, Yw2, Yw3) = new sa_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 
    942983}/*M3_TBTOGT  */  
    943984void YtabTOgrad_ztuv_traldf_lap(int frompdt, int topdt, YREAL tab[]) 
    … …  
    957998                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    958999                                         for (int Yws=0; Yws<YNBS_ztuv_traldf_lap; ++Yws){ 
    959                                                  Yztuv_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1000                                                 Yztuv_traldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    9601001}/*M3_SETAT*/  
    9611002void Ysetstate_ztuv_traldf_lap(double val) 
    … …  
    9661007                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    9671008                                         for (int Yws=0; Yws<YNBS_ztuv_traldf_lap; ++Yws){ 
    968                                                  Yztuv_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1009                                                 Yztuv_traldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    9691010}/*M3_YIOUT*/  
    9701011void Yio_ztuv_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)        
    9711012{  Yiorwf ("ztuv_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ztuv_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    972 }/*M0_CREU*/  
     1013}/*M3_CREU*/  
    9731014void Ycreate_ztuv_traldf_lap()   
    9741015{ 
    975          if ((Yztuv_traldf_lap = new ztuv_traldf_lap ())==NULL)  
    976                  Ycreate_errnew(); 
     1016         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1017                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1018                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1019                                 if ((Yztuv_traldf_lap(Yw1, Yw2, Yw3) = new ztuv_traldf_lap ())==NULL) Ycreate_errnew();}}} 
    9771020}/*M3_TBTOGT  */  
    9781021void YtabTOgrad_zsuv_traldf_lap(int frompdt, int topdt, YREAL tab[]) 
    … …  
    9921035                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    9931036                                         for (int Yws=0; Yws<YNBS_zsuv_traldf_lap; ++Yws){ 
    994                                                  Yzsuv_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1037                                                 Yzsuv_traldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    9951038}/*M3_SETAT*/  
    9961039void Ysetstate_zsuv_traldf_lap(double val) 
    … …  
    10011044                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    10021045                                         for (int Yws=0; Yws<YNBS_zsuv_traldf_lap; ++Yws){ 
    1003                                                  Yzsuv_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1046                                                 Yzsuv_traldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    10041047}/*M3_YIOUT*/  
    10051048void Yio_zsuv_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)        
    10061049{  Yiorwf ("zsuv_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zsuv_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1007 }/*M0_CREU*/  
     1050}/*M3_CREU*/  
    10081051void Ycreate_zsuv_traldf_lap()   
    10091052{ 
    1010          if ((Yzsuv_traldf_lap = new zsuv_traldf_lap ())==NULL)  
    1011                  Ycreate_errnew(); 
     1053         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1054                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1055                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1056                                 if ((Yzsuv_traldf_lap(Yw1, Yw2, Yw3) = new zsuv_traldf_lap ())==NULL) Ycreate_errnew();}}} 
    10121057}/*M3_TBTOGT  */  
    10131058void YtabTOgrad_ta_traldf_lap(int frompdt, int topdt, YREAL tab[]) 
    … …  
    10271072                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    10281073                                         for (int Yws=0; Yws<YNBS_ta_traldf_lap; ++Yws){ 
    1029                                                  Yta_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1074                                                 Yta_traldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    10301075}/*M3_SETAT*/  
    10311076void Ysetstate_ta_traldf_lap(double val) 
    … …  
    10361081                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    10371082                                         for (int Yws=0; Yws<YNBS_ta_traldf_lap; ++Yws){ 
    1038                                                  Yta_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1083                                                 Yta_traldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    10391084}/*M3_YIOUT*/  
    10401085void Yio_ta_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    10411086{  Yiorwf ("ta_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1042 }/*M0_CREU*/  
     1087}/*M3_CREU*/  
    10431088void Ycreate_ta_traldf_lap()   
    10441089{ 
    1045          if ((Yta_traldf_lap = new ta_traldf_lap ())==NULL)  
    1046                  Ycreate_errnew(); 
     1090         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1091                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1092                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1093                                 if ((Yta_traldf_lap(Yw1, Yw2, Yw3) = new ta_traldf_lap ())==NULL) Ycreate_errnew();}}} 
    10471094}/*M3_TBTOGT  */  
    10481095void YtabTOgrad_sa_traldf_lap(int frompdt, int topdt, YREAL tab[]) 
    … …  
    10621109                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    10631110                                         for (int Yws=0; Yws<YNBS_sa_traldf_lap; ++Yws){ 
    1064                                                  Ysa_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1111                                                 Ysa_traldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    10651112}/*M3_SETAT*/  
    10661113void Ysetstate_sa_traldf_lap(double val) 
    … …  
    10711118                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    10721119                                         for (int Yws=0; Yws<YNBS_sa_traldf_lap; ++Yws){ 
    1073                                                  Ysa_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1120                                                 Ysa_traldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    10741121}/*M3_YIOUT*/  
    10751122void Yio_sa_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    10761123{  Yiorwf ("sa_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1077 }/*M0_CREU*/  
     1124}/*M3_CREU*/  
    10781125void Ycreate_sa_traldf_lap()   
    10791126{ 
    1080          if ((Ysa_traldf_lap = new sa_traldf_lap ())==NULL)  
    1081                  Ycreate_errnew(); 
     1127         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1128                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1129                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1130                                 if ((Ysa_traldf_lap(Yw1, Yw2, Yw3) = new sa_traldf_lap ())==NULL) Ycreate_errnew();}}} 
    10821131}/*M3_TBTOGT  */  
    10831132void YtabTOgrad_zwisd_trazdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    10971146                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    10981147                                         for (int Yws=0; Yws<YNBS_zwisd_trazdf_imp; ++Yws){ 
    1099                                                  Yzwisd_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1148                                                 Yzwisd_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    11001149}/*M3_SETAT*/  
    11011150void Ysetstate_zwisd_trazdf_imp(double val) 
    … …  
    11061155                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    11071156                                         for (int Yws=0; Yws<YNBS_zwisd_trazdf_imp; ++Yws){ 
    1108                                                  Yzwisd_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1157                                                 Yzwisd_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    11091158}/*M3_YIOUT*/  
    11101159void Yio_zwisd_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)       
    11111160{  Yiorwf ("zwisd_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1112 }/*M0_CREU*/  
     1161}/*M3_CREU*/  
    11131162void Ycreate_zwisd_trazdf_imp()   
    11141163{ 
    1115          if ((Yzwisd_trazdf_imp = new zwisd_trazdf_imp ())==NULL)  
    1116                  Ycreate_errnew(); 
     1164         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1165                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1166                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1167                                 if ((Yzwisd_trazdf_imp(Yw1, Yw2, Yw3) = new zwisd_trazdf_imp ())==NULL) Ycreate_errnew();}}} 
    11171168}/*M3_TBTOGT  */  
    11181169void YtabTOgrad_zrhs_trazdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    11321183                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    11331184                                         for (int Yws=0; Yws<YNBS_zrhs_trazdf_imp; ++Yws){ 
    1134                                                  Yzrhs_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1185                                                 Yzrhs_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    11351186}/*M3_SETAT*/  
    11361187void Ysetstate_zrhs_trazdf_imp(double val) 
    … …  
    11411192                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    11421193                                         for (int Yws=0; Yws<YNBS_zrhs_trazdf_imp; ++Yws){ 
    1143                                                  Yzrhs_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1194                                                 Yzrhs_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    11441195}/*M3_YIOUT*/  
    11451196void Yio_zrhs_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)        
    11461197{  Yiorwf ("zrhs_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1147 }/*M0_CREU*/  
     1198}/*M3_CREU*/  
    11481199void Ycreate_zrhs_trazdf_imp()   
    11491200{ 
    1150          if ((Yzrhs_trazdf_imp = new zrhs_trazdf_imp ())==NULL)  
    1151                  Ycreate_errnew(); 
     1201         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1202                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1203                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1204                                 if ((Yzrhs_trazdf_imp(Yw1, Yw2, Yw3) = new zrhs_trazdf_imp ())==NULL) Ycreate_errnew();}}} 
    11521205}/*M3_TBTOGT  */  
    11531206void YtabTOgrad_zrhs_sa_trazdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    11671220                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    11681221                                         for (int Yws=0; Yws<YNBS_zrhs_sa_trazdf_imp; ++Yws){ 
    1169                                                  Yzrhs_sa_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1222                                                 Yzrhs_sa_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    11701223}/*M3_SETAT*/  
    11711224void Ysetstate_zrhs_sa_trazdf_imp(double val) 
    … …  
    11761229                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    11771230                                         for (int Yws=0; Yws<YNBS_zrhs_sa_trazdf_imp; ++Yws){ 
    1178                                                  Yzrhs_sa_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1231                                                 Yzrhs_sa_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    11791232}/*M3_YIOUT*/  
    11801233void Yio_zrhs_sa_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    11811234{  Yiorwf ("zrhs_sa_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_sa_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1182 }/*M0_CREU*/  
     1235}/*M3_CREU*/  
    11831236void Ycreate_zrhs_sa_trazdf_imp()   
    11841237{ 
    1185          if ((Yzrhs_sa_trazdf_imp = new zrhs_sa_trazdf_imp ())==NULL)  
    1186                  Ycreate_errnew(); 
     1238         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1239                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1240                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1241                                 if ((Yzrhs_sa_trazdf_imp(Yw1, Yw2, Yw3) = new zrhs_sa_trazdf_imp ())==NULL) Ycreate_errnew();}}} 
    11871242}/*M3_TBTOGT  */  
    11881243void YtabTOgrad_zwt_trazdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    12021257                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    12031258                                         for (int Yws=0; Yws<YNBS_zwt_trazdf_imp; ++Yws){ 
    1204                                                  Yzwt_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1259                                                 Yzwt_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    12051260}/*M3_SETAT*/  
    12061261void Ysetstate_zwt_trazdf_imp(double val) 
    … …  
    12111266                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    12121267                                         for (int Yws=0; Yws<YNBS_zwt_trazdf_imp; ++Yws){ 
    1213                                                  Yzwt_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1268                                                 Yzwt_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    12141269}/*M3_YIOUT*/  
    12151270void Yio_zwt_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    12161271{  Yiorwf ("zwt_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1217 }/*M0_CREU*/  
     1272}/*M3_CREU*/  
    12181273void Ycreate_zwt_trazdf_imp()   
    12191274{ 
    1220          if ((Yzwt_trazdf_imp = new zwt_trazdf_imp ())==NULL)  
    1221                  Ycreate_errnew(); 
     1275         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1276                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1277                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1278                                 if ((Yzwt_trazdf_imp(Yw1, Yw2, Yw3) = new zwt_trazdf_imp ())==NULL) Ycreate_errnew();}}} 
    12221279}/*M3_TBTOGT  */  
    12231280void YtabTOgrad_ta_de_trazdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    12371294                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    12381295                                         for (int Yws=0; Yws<YNBS_ta_de_trazdf_imp; ++Yws){ 
    1239                                                  Yta_de_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1296                                                 Yta_de_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    12401297}/*M3_SETAT*/  
    12411298void Ysetstate_ta_de_trazdf_imp(double val) 
    … …  
    12461303                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    12471304                                         for (int Yws=0; Yws<YNBS_ta_de_trazdf_imp; ++Yws){ 
    1248                                                  Yta_de_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1305                                                 Yta_de_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    12491306}/*M3_YIOUT*/  
    12501307void Yio_ta_de_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)       
    12511308{  Yiorwf ("ta_de_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_de_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1252 }/*M0_CREU*/  
     1309}/*M3_CREU*/  
    12531310void Ycreate_ta_de_trazdf_imp()   
    12541311{ 
    1255          if ((Yta_de_trazdf_imp = new ta_de_trazdf_imp ())==NULL)  
    1256                  Ycreate_errnew(); 
     1312         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1313                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1314                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1315                                 if ((Yta_de_trazdf_imp(Yw1, Yw2, Yw3) = new ta_de_trazdf_imp ())==NULL) Ycreate_errnew();}}} 
    12571316}/*M3_TBTOGT  */  
    12581317void YtabTOgrad_ta(int frompdt, int topdt, YREAL tab[]) 
    … …  
    12721331                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    12731332                                         for (int Yws=0; Yws<YNBS_ta; ++Yws){ 
    1274                                                  Yta->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1333                                                 Yta(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    12751334}/*M3_SETAT*/  
    12761335void Ysetstate_ta(double val) 
    … …  
    12811340                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    12821341                                         for (int Yws=0; Yws<YNBS_ta; ++Yws){ 
    1283                                                  Yta->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1342                                                 Yta(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    12841343}/*M3_YIOUT*/  
    12851344void Yio_ta(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    12861345{  Yiorwf ("ta", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1287 }/*M0_CREU*/  
     1346}/*M3_CREU*/  
    12881347void Ycreate_ta()   
    12891348{ 
    1290          if ((Yta = new ta ())==NULL)  
    1291                  Ycreate_errnew(); 
     1349         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1350                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1351                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1352                                 if ((Yta(Yw1, Yw2, Yw3) = new ta ())==NULL) Ycreate_errnew();}}} 
    12921353}/*M3_TBTOGT  */  
    12931354void YtabTOgrad_sa_de_trazdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    13071368                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    13081369                                         for (int Yws=0; Yws<YNBS_sa_de_trazdf_imp; ++Yws){ 
    1309                                                  Ysa_de_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1370                                                 Ysa_de_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    13101371}/*M3_SETAT*/  
    13111372void Ysetstate_sa_de_trazdf_imp(double val) 
    … …  
    13161377                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    13171378                                         for (int Yws=0; Yws<YNBS_sa_de_trazdf_imp; ++Yws){ 
    1318                                                  Ysa_de_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1379                                                 Ysa_de_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    13191380}/*M3_YIOUT*/  
    13201381void Yio_sa_de_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)       
    13211382{  Yiorwf ("sa_de_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_de_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1322 }/*M0_CREU*/  
     1383}/*M3_CREU*/  
    13231384void Ycreate_sa_de_trazdf_imp()   
    13241385{ 
    1325          if ((Ysa_de_trazdf_imp = new sa_de_trazdf_imp ())==NULL)  
    1326                  Ycreate_errnew(); 
     1386         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1387                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1388                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1389                                 if ((Ysa_de_trazdf_imp(Yw1, Yw2, Yw3) = new sa_de_trazdf_imp ())==NULL) Ycreate_errnew();}}} 
    13271390}/*M3_TBTOGT  */  
    13281391void YtabTOgrad_sa(int frompdt, int topdt, YREAL tab[]) 
    … …  
    13421405                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    13431406                                         for (int Yws=0; Yws<YNBS_sa; ++Yws){ 
    1344                                                  Ysa->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1407                                                 Ysa(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    13451408}/*M3_SETAT*/  
    13461409void Ysetstate_sa(double val) 
    … …  
    13511414                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    13521415                                         for (int Yws=0; Yws<YNBS_sa; ++Yws){ 
    1353                                                  Ysa->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1416                                                 Ysa(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    13541417}/*M3_YIOUT*/  
    13551418void Yio_sa(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    13561419{  Yiorwf ("sa", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1357 }/*M0_CREU*/  
     1420}/*M3_CREU*/  
    13581421void Ycreate_sa()   
    13591422{ 
    1360          if ((Ysa = new sa ())==NULL)  
    1361                  Ycreate_errnew(); 
     1423         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1424                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1425                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1426                                 if ((Ysa(Yw1, Yw2, Yw3) = new sa ())==NULL) Ycreate_errnew();}}} 
    13621427}/*M3_TBTOGT  */  
    13631428void YtabTOgrad_tb(int frompdt, int topdt, YREAL tab[]) 
    … …  
    13771442                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    13781443                                         for (int Yws=0; Yws<YNBS_tb; ++Yws){ 
    1379                                                  Ytb->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1444                                                 Ytb(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    13801445}/*M3_SETAT*/  
    13811446void Ysetstate_tb(double val) 
    … …  
    13861451                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    13871452                                         for (int Yws=0; Yws<YNBS_tb; ++Yws){ 
    1388                                                  Ytb->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1453                                                 Ytb(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    13891454}/*M3_YIOUT*/  
    13901455void Yio_tb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    … …  
    14061471         }/*M9_OUTOB*/   
    14071472         return(1); 
    1408 }/*M0_CREU*/  
     1473}/*M3_CREU*/  
    14091474void Ycreate_tb()   
    14101475{ 
    1411          if ((Ytb = new tb ())==NULL)  
    1412                  Ycreate_errnew(); 
     1476         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1477                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1478                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1479                                 if ((Ytb(Yw1, Yw2, Yw3) = new tb ())==NULL) Ycreate_errnew();}}} 
    14131480}/*M3_SWISH*/  
    14141481void Ysetwish_tb(double val) 
    … …  
    14361503                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    14371504                                         for (int Yws=0; Yws<YNBS_sb; ++Yws){ 
    1438                                                  Ysb->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1505                                                 Ysb(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    14391506}/*M3_SETAT*/  
    14401507void Ysetstate_sb(double val) 
    … …  
    14451512                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    14461513                                         for (int Yws=0; Yws<YNBS_sb; ++Yws){ 
    1447                                                  Ysb->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1514                                                 Ysb(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    14481515}/*M3_YIOUT*/  
    14491516void Yio_sb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    … …  
    14651532         }/*M9_OUTOB*/   
    14661533         return(1); 
    1467 }/*M0_CREU*/  
     1534}/*M3_CREU*/  
    14681535void Ycreate_sb()   
    14691536{ 
    1470          if ((Ysb = new sb ())==NULL)  
    1471                  Ycreate_errnew(); 
     1537         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1538                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1539                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1540                                 if ((Ysb(Yw1, Yw2, Yw3) = new sb ())==NULL) Ycreate_errnew();}}} 
    14721541}/*M3_SWISH*/  
    14731542void Ysetwish_sb(double val) 
    … …  
    14951564                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    14961565                                         for (int Yws=0; Yws<YNBS_rhd; ++Yws){ 
    1497                                                  Yrhd->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1566                                                 Yrhd(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    14981567}/*M3_SETAT*/  
    14991568void Ysetstate_rhd(double val) 
    … …  
    15041573                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    15051574                                         for (int Yws=0; Yws<YNBS_rhd; ++Yws){ 
    1506                                                  Yrhd->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1575                                                 Yrhd(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    15071576}/*M3_YIOUT*/  
    15081577void Yio_rhd(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    15091578{  Yiorwf ("rhd", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rhd(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1510 }/*M0_CREU*/  
     1579}/*M3_CREU*/  
    15111580void Ycreate_rhd()   
    15121581{ 
    1513          if ((Yrhd = new rhd ())==NULL)  
    1514                  Ycreate_errnew(); 
     1582         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1583                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1584                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1585                                 if ((Yrhd(Yw1, Yw2, Yw3) = new rhd ())==NULL) Ycreate_errnew();}}} 
    15151586}/*M3_TBTOGT  */  
    15161587void YtabTOgrad_rhop(int frompdt, int topdt, YREAL tab[]) 
    … …  
    15301601                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    15311602                                         for (int Yws=0; Yws<YNBS_rhop; ++Yws){ 
    1532                                                  Yrhop->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1603                                                 Yrhop(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    15331604}/*M3_SETAT*/  
    15341605void Ysetstate_rhop(double val) 
    … …  
    15391610                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    15401611                                         for (int Yws=0; Yws<YNBS_rhop; ++Yws){ 
    1541                                                  Yrhop->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1612                                                 Yrhop(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    15421613}/*M3_YIOUT*/  
    15431614void Yio_rhop(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    15441615{  Yiorwf ("rhop", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rhop(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1545 }/*M0_CREU*/  
     1616}/*M3_CREU*/  
    15461617void Ycreate_rhop()   
    15471618{ 
    1548          if ((Yrhop = new rhop ())==NULL)  
    1549                  Ycreate_errnew(); 
     1619         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1620                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1621                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1622                                 if ((Yrhop(Yw1, Yw2, Yw3) = new rhop ())==NULL) Ycreate_errnew();}}} 
    15501623}/*M3_TBTOGT  */  
    15511624void YtabTOgrad_hmf_TF_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    15651638                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    15661639                                         for (int Yws=0; Yws<YNBS_hmf_TF_dynadv_cen2; ++Yws){ 
    1567                                                  Yhmf_TF_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1640                                                 Yhmf_TF_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    15681641}/*M3_SETAT*/  
    15691642void Ysetstate_hmf_TF_dynadv_cen2(double val) 
    … …  
    15741647                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    15751648                                         for (int Yws=0; Yws<YNBS_hmf_TF_dynadv_cen2; ++Yws){ 
    1576                                                  Yhmf_TF_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1649                                                 Yhmf_TF_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    15771650}/*M3_YIOUT*/  
    15781651void Yio_hmf_TF_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    15791652{  Yiorwf ("hmf_TF_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_hmf_TF_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1580 }/*M0_CREU*/  
     1653}/*M3_CREU*/  
    15811654void Ycreate_hmf_TF_dynadv_cen2()   
    15821655{ 
    1583          if ((Yhmf_TF_dynadv_cen2 = new hmf_TF_dynadv_cen2 ())==NULL)  
    1584                  Ycreate_errnew(); 
     1656         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1657                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1658                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1659                                 if ((Yhmf_TF_dynadv_cen2(Yw1, Yw2, Yw3) = new hmf_TF_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 
    15851660}/*M3_TBTOGT  */  
    15861661void YtabTOgrad_zua_dhmf_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    16001675                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    16011676                                         for (int Yws=0; Yws<YNBS_zua_dhmf_dynadv_cen2; ++Yws){ 
    1602                                                  Yzua_dhmf_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1677                                                 Yzua_dhmf_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    16031678}/*M3_SETAT*/  
    16041679void Ysetstate_zua_dhmf_dynadv_cen2(double val) 
    … …  
    16091684                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    16101685                                         for (int Yws=0; Yws<YNBS_zua_dhmf_dynadv_cen2; ++Yws){ 
    1611                                                  Yzua_dhmf_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1686                                                 Yzua_dhmf_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    16121687}/*M3_YIOUT*/  
    16131688void Yio_zua_dhmf_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    16141689{  Yiorwf ("zua_dhmf_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zua_dhmf_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1615 }/*M0_CREU*/  
     1690}/*M3_CREU*/  
    16161691void Ycreate_zua_dhmf_dynadv_cen2()   
    16171692{ 
    1618          if ((Yzua_dhmf_dynadv_cen2 = new zua_dhmf_dynadv_cen2 ())==NULL)  
    1619                  Ycreate_errnew(); 
     1693         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1694                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1695                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1696                                 if ((Yzua_dhmf_dynadv_cen2(Yw1, Yw2, Yw3) = new zua_dhmf_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 
    16201697}/*M3_TBTOGT  */  
    16211698void YtabTOgrad_zva_dhmf_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    16351712                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    16361713                                         for (int Yws=0; Yws<YNBS_zva_dhmf_dynadv_cen2; ++Yws){ 
    1637                                                  Yzva_dhmf_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1714                                                 Yzva_dhmf_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    16381715}/*M3_SETAT*/  
    16391716void Ysetstate_zva_dhmf_dynadv_cen2(double val) 
    … …  
    16441721                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    16451722                                         for (int Yws=0; Yws<YNBS_zva_dhmf_dynadv_cen2; ++Yws){ 
    1646                                                  Yzva_dhmf_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1723                                                 Yzva_dhmf_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    16471724}/*M3_YIOUT*/  
    16481725void Yio_zva_dhmf_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    16491726{  Yiorwf ("zva_dhmf_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zva_dhmf_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1650 }/*M0_CREU*/  
     1727}/*M3_CREU*/  
    16511728void Ycreate_zva_dhmf_dynadv_cen2()   
    16521729{ 
    1653          if ((Yzva_dhmf_dynadv_cen2 = new zva_dhmf_dynadv_cen2 ())==NULL)  
    1654                  Ycreate_errnew(); 
     1730         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1731                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1732                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1733                                 if ((Yzva_dhmf_dynadv_cen2(Yw1, Yw2, Yw3) = new zva_dhmf_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 
    16551734}/*M3_TBTOGT  */  
    16561735void YtabTOgrad_zfuv_UW_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    16701749                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    16711750                                         for (int Yws=0; Yws<YNBS_zfuv_UW_dynadv_cen2; ++Yws){ 
    1672                                                  Yzfuv_UW_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1751                                                 Yzfuv_UW_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    16731752}/*M3_SETAT*/  
    16741753void Ysetstate_zfuv_UW_dynadv_cen2(double val) 
    … …  
    16791758                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    16801759                                         for (int Yws=0; Yws<YNBS_zfuv_UW_dynadv_cen2; ++Yws){ 
    1681                                                  Yzfuv_UW_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1760                                                 Yzfuv_UW_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    16821761}/*M3_YIOUT*/  
    16831762void Yio_zfuv_UW_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    16841763{  Yiorwf ("zfuv_UW_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zfuv_UW_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1685 }/*M0_CREU*/  
     1764}/*M3_CREU*/  
    16861765void Ycreate_zfuv_UW_dynadv_cen2()   
    16871766{ 
    1688          if ((Yzfuv_UW_dynadv_cen2 = new zfuv_UW_dynadv_cen2 ())==NULL)  
    1689                  Ycreate_errnew(); 
     1767         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1768                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1769                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1770                                 if ((Yzfuv_UW_dynadv_cen2(Yw1, Yw2, Yw3) = new zfuv_UW_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 
    16901771}/*M3_TBTOGT  */  
    16911772void YtabTOgrad_ua_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    17051786                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    17061787                                         for (int Yws=0; Yws<YNBS_ua_dynadv_cen2; ++Yws){ 
    1707                                                  Yua_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1788                                                 Yua_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    17081789}/*M3_SETAT*/  
    17091790void Ysetstate_ua_dynadv_cen2(double val) 
    … …  
    17141795                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    17151796                                         for (int Yws=0; Yws<YNBS_ua_dynadv_cen2; ++Yws){ 
    1716                                                  Yua_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1797                                                 Yua_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    17171798}/*M3_YIOUT*/  
    17181799void Yio_ua_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    17191800{  Yiorwf ("ua_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1720 }/*M0_CREU*/  
     1801}/*M3_CREU*/  
    17211802void Ycreate_ua_dynadv_cen2()   
    17221803{ 
    1723          if ((Yua_dynadv_cen2 = new ua_dynadv_cen2 ())==NULL)  
    1724                  Ycreate_errnew(); 
     1804         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1805                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1806                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1807                                 if ((Yua_dynadv_cen2(Yw1, Yw2, Yw3) = new ua_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 
    17251808}/*M3_TBTOGT  */  
    17261809void YtabTOgrad_va_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    17401823                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    17411824                                         for (int Yws=0; Yws<YNBS_va_dynadv_cen2; ++Yws){ 
    1742                                                  Yva_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1825                                                 Yva_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    17431826}/*M3_SETAT*/  
    17441827void Ysetstate_va_dynadv_cen2(double val) 
    … …  
    17491832                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    17501833                                         for (int Yws=0; Yws<YNBS_va_dynadv_cen2; ++Yws){ 
    1751                                                  Yva_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1834                                                 Yva_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    17521835}/*M3_YIOUT*/  
    17531836void Yio_va_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    17541837{  Yiorwf ("va_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1755 }/*M0_CREU*/  
     1838}/*M3_CREU*/  
    17561839void Ycreate_va_dynadv_cen2()   
    17571840{ 
    1758          if ((Yva_dynadv_cen2 = new va_dynadv_cen2 ())==NULL)  
    1759                  Ycreate_errnew(); 
     1841         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1842                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1843                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1844                                 if ((Yva_dynadv_cen2(Yw1, Yw2, Yw3) = new va_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 
    17601845}/*M3_TBTOGT  */  
    17611846void YtabTOgrad_zwxyz_vor_ene(int frompdt, int topdt, YREAL tab[]) 
    … …  
    17751860                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    17761861                                         for (int Yws=0; Yws<YNBS_zwxyz_vor_ene; ++Yws){ 
    1777                                                  Yzwxyz_vor_ene->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1862                                                 Yzwxyz_vor_ene(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    17781863}/*M3_SETAT*/  
    17791864void Ysetstate_zwxyz_vor_ene(double val) 
    … …  
    17841869                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    17851870                                         for (int Yws=0; Yws<YNBS_zwxyz_vor_ene; ++Yws){ 
    1786                                                  Yzwxyz_vor_ene->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1871                                                 Yzwxyz_vor_ene(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    17871872}/*M3_YIOUT*/  
    17881873void Yio_zwxyz_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    17891874{  Yiorwf ("zwxyz_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwxyz_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1790 }/*M0_CREU*/  
     1875}/*M3_CREU*/  
    17911876void Ycreate_zwxyz_vor_ene()   
    17921877{ 
    1793          if ((Yzwxyz_vor_ene = new zwxyz_vor_ene ())==NULL)  
    1794                  Ycreate_errnew(); 
     1878         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1879                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1880                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1881                                 if ((Yzwxyz_vor_ene(Yw1, Yw2, Yw3) = new zwxyz_vor_ene ())==NULL) Ycreate_errnew();}}} 
    17951882}/*M3_TBTOGT  */  
    17961883void YtabTOgrad_ua_vor_ene(int frompdt, int topdt, YREAL tab[]) 
    … …  
    18101897                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    18111898                                         for (int Yws=0; Yws<YNBS_ua_vor_ene; ++Yws){ 
    1812                                                  Yua_vor_ene->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1899                                                 Yua_vor_ene(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    18131900}/*M3_SETAT*/  
    18141901void Ysetstate_ua_vor_ene(double val) 
    … …  
    18191906                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    18201907                                         for (int Yws=0; Yws<YNBS_ua_vor_ene; ++Yws){ 
    1821                                                  Yua_vor_ene->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1908                                                 Yua_vor_ene(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    18221909}/*M3_YIOUT*/  
    18231910void Yio_ua_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    18241911{  Yiorwf ("ua_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1825 }/*M0_CREU*/  
     1912}/*M3_CREU*/  
    18261913void Ycreate_ua_vor_ene()   
    18271914{ 
    1828          if ((Yua_vor_ene = new ua_vor_ene ())==NULL)  
    1829                  Ycreate_errnew(); 
     1915         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1916                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1917                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1918                                 if ((Yua_vor_ene(Yw1, Yw2, Yw3) = new ua_vor_ene ())==NULL) Ycreate_errnew();}}} 
    18301919}/*M3_TBTOGT  */  
    18311920void YtabTOgrad_va_vor_ene(int frompdt, int topdt, YREAL tab[]) 
    … …  
    18451934                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    18461935                                         for (int Yws=0; Yws<YNBS_va_vor_ene; ++Yws){ 
    1847                                                  Yva_vor_ene->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1936                                                 Yva_vor_ene(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    18481937}/*M3_SETAT*/  
    18491938void Ysetstate_va_vor_ene(double val) 
    … …  
    18541943                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    18551944                                         for (int Yws=0; Yws<YNBS_va_vor_ene; ++Yws){ 
    1856                                                  Yva_vor_ene->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1945                                                 Yva_vor_ene(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    18571946}/*M3_YIOUT*/  
    18581947void Yio_va_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    18591948{  Yiorwf ("va_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1860 }/*M0_CREU*/  
     1949}/*M3_CREU*/  
    18611950void Ycreate_va_vor_ene()   
    18621951{ 
    1863          if ((Yva_vor_ene = new va_vor_ene ())==NULL)  
    1864                  Ycreate_errnew(); 
     1952         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1953                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1954                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1955                                 if ((Yva_vor_ene(Yw1, Yw2, Yw3) = new va_vor_ene ())==NULL) Ycreate_errnew();}}} 
    18651956}/*M3_TBTOGT  */  
    18661957void YtabTOgrad_ua_dyn_ldf_lap(int frompdt, int topdt, YREAL tab[]) 
    … …  
    18801971                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    18811972                                         for (int Yws=0; Yws<YNBS_ua_dyn_ldf_lap; ++Yws){ 
    1882                                                  Yua_dyn_ldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     1973                                                 Yua_dyn_ldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    18831974}/*M3_SETAT*/  
    18841975void Ysetstate_ua_dyn_ldf_lap(double val) 
    … …  
    18891980                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    18901981                                         for (int Yws=0; Yws<YNBS_ua_dyn_ldf_lap; ++Yws){ 
    1891                                                  Yua_dyn_ldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     1982                                                 Yua_dyn_ldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    18921983}/*M3_YIOUT*/  
    18931984void Yio_ua_dyn_ldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    18941985{  Yiorwf ("ua_dyn_ldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dyn_ldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1895 }/*M0_CREU*/  
     1986}/*M3_CREU*/  
    18961987void Ycreate_ua_dyn_ldf_lap()   
    18971988{ 
    1898          if ((Yua_dyn_ldf_lap = new ua_dyn_ldf_lap ())==NULL)  
    1899                  Ycreate_errnew(); 
     1989         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     1990                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     1991                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     1992                                 if ((Yua_dyn_ldf_lap(Yw1, Yw2, Yw3) = new ua_dyn_ldf_lap ())==NULL) Ycreate_errnew();}}} 
    19001993}/*M3_TBTOGT  */  
    19011994void YtabTOgrad_va_dyn_ldf_lap(int frompdt, int topdt, YREAL tab[]) 
    … …  
    19152008                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    19162009                                         for (int Yws=0; Yws<YNBS_va_dyn_ldf_lap; ++Yws){ 
    1917                                                  Yva_dyn_ldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2010                                                 Yva_dyn_ldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    19182011}/*M3_SETAT*/  
    19192012void Ysetstate_va_dyn_ldf_lap(double val) 
    … …  
    19242017                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    19252018                                         for (int Yws=0; Yws<YNBS_va_dyn_ldf_lap; ++Yws){ 
    1926                                                  Yva_dyn_ldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2019                                                 Yva_dyn_ldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    19272020}/*M3_YIOUT*/  
    19282021void Yio_va_dyn_ldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    19292022{  Yiorwf ("va_dyn_ldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dyn_ldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1930 }/*M0_CREU*/  
     2023}/*M3_CREU*/  
    19312024void Ycreate_va_dyn_ldf_lap()   
    19322025{ 
    1933          if ((Yva_dyn_ldf_lap = new va_dyn_ldf_lap ())==NULL)  
    1934                  Ycreate_errnew(); 
     2026         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2027                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2028                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2029                                 if ((Yva_dyn_ldf_lap(Yw1, Yw2, Yw3) = new va_dyn_ldf_lap ())==NULL) Ycreate_errnew();}}} 
    19352030}/*M3_TBTOGT  */  
    19362031void YtabTOgrad_zhpij_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) 
    … …  
    19502045                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    19512046                                         for (int Yws=0; Yws<YNBS_zhpij_dyn_hpg_zco; ++Yws){ 
    1952                                                  Yzhpij_dyn_hpg_zco->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2047                                                 Yzhpij_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    19532048}/*M3_SETAT*/  
    19542049void Ysetstate_zhpij_dyn_hpg_zco(double val) 
    … …  
    19592054                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    19602055                                         for (int Yws=0; Yws<YNBS_zhpij_dyn_hpg_zco; ++Yws){ 
    1961                                                  Yzhpij_dyn_hpg_zco->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2056                                                 Yzhpij_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    19622057}/*M3_YIOUT*/  
    19632058void Yio_zhpij_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)      
    19642059{  Yiorwf ("zhpij_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zhpij_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1965 }/*M0_CREU*/  
     2060}/*M3_CREU*/  
    19662061void Ycreate_zhpij_dyn_hpg_zco()   
    19672062{ 
    1968          if ((Yzhpij_dyn_hpg_zco = new zhpij_dyn_hpg_zco ())==NULL)  
    1969                  Ycreate_errnew(); 
     2063         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2064                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2065                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2066                                 if ((Yzhpij_dyn_hpg_zco(Yw1, Yw2, Yw3) = new zhpij_dyn_hpg_zco ())==NULL) Ycreate_errnew();}}} 
    19702067}/*M3_TBTOGT  */  
    19712068void YtabTOgrad_ua_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) 
    … …  
    19852082                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    19862083                                         for (int Yws=0; Yws<YNBS_ua_dyn_hpg_zco; ++Yws){ 
    1987                                                  Yua_dyn_hpg_zco->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2084                                                 Yua_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    19882085}/*M3_SETAT*/  
    19892086void Ysetstate_ua_dyn_hpg_zco(double val) 
    … …  
    19942091                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    19952092                                         for (int Yws=0; Yws<YNBS_ua_dyn_hpg_zco; ++Yws){ 
    1996                                                  Yua_dyn_hpg_zco->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2093                                                 Yua_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    19972094}/*M3_YIOUT*/  
    19982095void Yio_ua_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    19992096{  Yiorwf ("ua_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2000 }/*M0_CREU*/  
     2097}/*M3_CREU*/  
    20012098void Ycreate_ua_dyn_hpg_zco()   
    20022099{ 
    2003          if ((Yua_dyn_hpg_zco = new ua_dyn_hpg_zco ())==NULL)  
    2004                  Ycreate_errnew(); 
     2100         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2101                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2102                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2103                                 if ((Yua_dyn_hpg_zco(Yw1, Yw2, Yw3) = new ua_dyn_hpg_zco ())==NULL) Ycreate_errnew();}}} 
    20052104}/*M3_TBTOGT  */  
    20062105void YtabTOgrad_va_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) 
    … …  
    20202119                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    20212120                                         for (int Yws=0; Yws<YNBS_va_dyn_hpg_zco; ++Yws){ 
    2022                                                  Yva_dyn_hpg_zco->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2121                                                 Yva_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    20232122}/*M3_SETAT*/  
    20242123void Ysetstate_va_dyn_hpg_zco(double val) 
    … …  
    20292128                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    20302129                                         for (int Yws=0; Yws<YNBS_va_dyn_hpg_zco; ++Yws){ 
    2031                                                  Yva_dyn_hpg_zco->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2130                                                 Yva_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    20322131}/*M3_YIOUT*/  
    20332132void Yio_va_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    20342133{  Yiorwf ("va_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2035 }/*M0_CREU*/  
     2134}/*M3_CREU*/  
    20362135void Ycreate_va_dyn_hpg_zco()   
    20372136{ 
    2038          if ((Yva_dyn_hpg_zco = new va_dyn_hpg_zco ())==NULL)  
    2039                  Ycreate_errnew(); 
     2137         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2138                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2139                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2140                                 if ((Yva_dyn_hpg_zco(Yw1, Yw2, Yw3) = new va_dyn_hpg_zco ())==NULL) Ycreate_errnew();}}} 
    20402141}/*M3_TBTOGT  */  
    20412142void YtabTOgrad_zwisd_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    20552156                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    20562157                                         for (int Yws=0; Yws<YNBS_zwisd_ua_dynzdf_imp; ++Yws){ 
    2057                                                  Yzwisd_ua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2158                                                 Yzwisd_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    20582159}/*M3_SETAT*/  
    20592160void Ysetstate_zwisd_ua_dynzdf_imp(double val) 
    … …  
    20642165                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    20652166                                         for (int Yws=0; Yws<YNBS_zwisd_ua_dynzdf_imp; ++Yws){ 
    2066                                                  Yzwisd_ua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2167                                                 Yzwisd_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    20672168}/*M3_YIOUT*/  
    20682169void Yio_zwisd_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    20692170{  Yiorwf ("zwisd_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2070 }/*M0_CREU*/  
     2171}/*M3_CREU*/  
    20712172void Ycreate_zwisd_ua_dynzdf_imp()   
    20722173{ 
    2073          if ((Yzwisd_ua_dynzdf_imp = new zwisd_ua_dynzdf_imp ())==NULL)  
    2074                  Ycreate_errnew(); 
     2174         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2175                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2176                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2177                                 if ((Yzwisd_ua_dynzdf_imp(Yw1, Yw2, Yw3) = new zwisd_ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 
    20752178}/*M3_TBTOGT  */  
    20762179void YtabTOgrad_zwisd_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    20902193                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    20912194                                         for (int Yws=0; Yws<YNBS_zwisd_va_dynzdf_imp; ++Yws){ 
    2092                                                  Yzwisd_va_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2195                                                 Yzwisd_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    20932196}/*M3_SETAT*/  
    20942197void Ysetstate_zwisd_va_dynzdf_imp(double val) 
    … …  
    20992202                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    21002203                                         for (int Yws=0; Yws<YNBS_zwisd_va_dynzdf_imp; ++Yws){ 
    2101                                                  Yzwisd_va_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2204                                                 Yzwisd_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    21022205}/*M3_YIOUT*/  
    21032206void Yio_zwisd_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    21042207{  Yiorwf ("zwisd_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2105 }/*M0_CREU*/  
     2208}/*M3_CREU*/  
    21062209void Ycreate_zwisd_va_dynzdf_imp()   
    21072210{ 
    2108          if ((Yzwisd_va_dynzdf_imp = new zwisd_va_dynzdf_imp ())==NULL)  
    2109                  Ycreate_errnew(); 
     2211         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2212                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2213                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2214                                 if ((Yzwisd_va_dynzdf_imp(Yw1, Yw2, Yw3) = new zwisd_va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 
    21102215}/*M3_TBTOGT  */  
    21112216void YtabTOgrad_zrhs_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    21252230                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    21262231                                         for (int Yws=0; Yws<YNBS_zrhs_ua_dynzdf_imp; ++Yws){ 
    2127                                                  Yzrhs_ua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2232                                                 Yzrhs_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    21282233}/*M3_SETAT*/  
    21292234void Ysetstate_zrhs_ua_dynzdf_imp(double val) 
    … …  
    21342239                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    21352240                                         for (int Yws=0; Yws<YNBS_zrhs_ua_dynzdf_imp; ++Yws){ 
    2136                                                  Yzrhs_ua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2241                                                 Yzrhs_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    21372242}/*M3_YIOUT*/  
    21382243void Yio_zrhs_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    21392244{  Yiorwf ("zrhs_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2140 }/*M0_CREU*/  
     2245}/*M3_CREU*/  
    21412246void Ycreate_zrhs_ua_dynzdf_imp()   
    21422247{ 
    2143          if ((Yzrhs_ua_dynzdf_imp = new zrhs_ua_dynzdf_imp ())==NULL)  
    2144                  Ycreate_errnew(); 
     2248         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2249                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2250                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2251                                 if ((Yzrhs_ua_dynzdf_imp(Yw1, Yw2, Yw3) = new zrhs_ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 
    21452252}/*M3_TBTOGT  */  
    21462253void YtabTOgrad_zrhs_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    21602267                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    21612268                                         for (int Yws=0; Yws<YNBS_zrhs_va_dynzdf_imp; ++Yws){ 
    2162                                                  Yzrhs_va_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2269                                                 Yzrhs_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    21632270}/*M3_SETAT*/  
    21642271void Ysetstate_zrhs_va_dynzdf_imp(double val) 
    … …  
    21692276                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    21702277                                         for (int Yws=0; Yws<YNBS_zrhs_va_dynzdf_imp; ++Yws){ 
    2171                                                  Yzrhs_va_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2278                                                 Yzrhs_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    21722279}/*M3_YIOUT*/  
    21732280void Yio_zrhs_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    21742281{  Yiorwf ("zrhs_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2175 }/*M0_CREU*/  
     2282}/*M3_CREU*/  
    21762283void Ycreate_zrhs_va_dynzdf_imp()   
    21772284{ 
    2178          if ((Yzrhs_va_dynzdf_imp = new zrhs_va_dynzdf_imp ())==NULL)  
    2179                  Ycreate_errnew(); 
     2285         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2286                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2287                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2288                                 if ((Yzrhs_va_dynzdf_imp(Yw1, Yw2, Yw3) = new zrhs_va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 
    21802289}/*M3_TBTOGT  */  
    21812290void YtabTOgrad_zwt_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    21952304                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    21962305                                         for (int Yws=0; Yws<YNBS_zwt_ua_dynzdf_imp; ++Yws){ 
    2197                                                  Yzwt_ua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2306                                                 Yzwt_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    21982307}/*M3_SETAT*/  
    21992308void Ysetstate_zwt_ua_dynzdf_imp(double val) 
    … …  
    22042313                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    22052314                                         for (int Yws=0; Yws<YNBS_zwt_ua_dynzdf_imp; ++Yws){ 
    2206                                                  Yzwt_ua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2315                                                 Yzwt_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    22072316}/*M3_YIOUT*/  
    22082317void Yio_zwt_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)      
    22092318{  Yiorwf ("zwt_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2210 }/*M0_CREU*/  
     2319}/*M3_CREU*/  
    22112320void Ycreate_zwt_ua_dynzdf_imp()   
    22122321{ 
    2213          if ((Yzwt_ua_dynzdf_imp = new zwt_ua_dynzdf_imp ())==NULL)  
    2214                  Ycreate_errnew(); 
     2322         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2323                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2324                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2325                                 if ((Yzwt_ua_dynzdf_imp(Yw1, Yw2, Yw3) = new zwt_ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 
    22152326}/*M3_TBTOGT  */  
    22162327void YtabTOgrad_zwt_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    22302341                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    22312342                                         for (int Yws=0; Yws<YNBS_zwt_va_dynzdf_imp; ++Yws){ 
    2232                                                  Yzwt_va_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2343                                                 Yzwt_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    22332344}/*M3_SETAT*/  
    22342345void Ysetstate_zwt_va_dynzdf_imp(double val) 
    … …  
    22392350                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    22402351                                         for (int Yws=0; Yws<YNBS_zwt_va_dynzdf_imp; ++Yws){ 
    2241                                                  Yzwt_va_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2352                                                 Yzwt_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    22422353}/*M3_YIOUT*/  
    22432354void Yio_zwt_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)      
    22442355{  Yiorwf ("zwt_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2245 }/*M0_CREU*/  
     2356}/*M3_CREU*/  
    22462357void Ycreate_zwt_va_dynzdf_imp()   
    22472358{ 
    2248          if ((Yzwt_va_dynzdf_imp = new zwt_va_dynzdf_imp ())==NULL)  
    2249                  Ycreate_errnew(); 
     2359         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2360                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2361                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2362                                 if ((Yzwt_va_dynzdf_imp(Yw1, Yw2, Yw3) = new zwt_va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 
    22502363}/*M3_TBTOGT  */  
    22512364void YtabTOgrad_ua_de_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    22652378                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    22662379                                         for (int Yws=0; Yws<YNBS_ua_de_dynzdf_imp; ++Yws){ 
    2267                                                  Yua_de_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2380                                                 Yua_de_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    22682381}/*M3_SETAT*/  
    22692382void Ysetstate_ua_de_dynzdf_imp(double val) 
    … …  
    22742387                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    22752388                                         for (int Yws=0; Yws<YNBS_ua_de_dynzdf_imp; ++Yws){ 
    2276                                                  Yua_de_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2389                                                 Yua_de_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    22772390}/*M3_YIOUT*/  
    22782391void Yio_ua_de_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)       
    22792392{  Yiorwf ("ua_de_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_de_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2280 }/*M0_CREU*/  
     2393}/*M3_CREU*/  
    22812394void Ycreate_ua_de_dynzdf_imp()   
    22822395{ 
    2283          if ((Yua_de_dynzdf_imp = new ua_de_dynzdf_imp ())==NULL)  
    2284                  Ycreate_errnew(); 
     2396         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2397                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2398                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2399                                 if ((Yua_de_dynzdf_imp(Yw1, Yw2, Yw3) = new ua_de_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 
    22852400}/*M3_TBTOGT  */  
    22862401void YtabTOgrad_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    23002415                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    23012416                                         for (int Yws=0; Yws<YNBS_ua_dynzdf_imp; ++Yws){ 
    2302                                                  Yua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2417                                                 Yua_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    23032418}/*M3_SETAT*/  
    23042419void Ysetstate_ua_dynzdf_imp(double val) 
    … …  
    23092424                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    23102425                                         for (int Yws=0; Yws<YNBS_ua_dynzdf_imp; ++Yws){ 
    2311                                                  Yua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2426                                                 Yua_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    23122427}/*M3_YIOUT*/  
    23132428void Yio_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    23142429{  Yiorwf ("ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2315 }/*M0_CREU*/  
     2430}/*M3_CREU*/  
    23162431void Ycreate_ua_dynzdf_imp()   
    23172432{ 
    2318          if ((Yua_dynzdf_imp = new ua_dynzdf_imp ())==NULL)  
    2319                  Ycreate_errnew(); 
     2433         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2434                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2435                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2436                                 if ((Yua_dynzdf_imp(Yw1, Yw2, Yw3) = new ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 
    23202437}/*M3_TBTOGT  */  
    23212438void YtabTOgrad_va_de_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    23352452                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    23362453                                         for (int Yws=0; Yws<YNBS_va_de_dynzdf_imp; ++Yws){ 
    2337                                                  Yva_de_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2454                                                 Yva_de_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    23382455}/*M3_SETAT*/  
    23392456void Ysetstate_va_de_dynzdf_imp(double val) 
    … …  
    23442461                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    23452462                                         for (int Yws=0; Yws<YNBS_va_de_dynzdf_imp; ++Yws){ 
    2346                                                  Yva_de_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2463                                                 Yva_de_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    23472464}/*M3_YIOUT*/  
    23482465void Yio_va_de_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)       
    23492466{  Yiorwf ("va_de_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_de_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2350 }/*M0_CREU*/  
     2467}/*M3_CREU*/  
    23512468void Ycreate_va_de_dynzdf_imp()   
    23522469{ 
    2353          if ((Yva_de_dynzdf_imp = new va_de_dynzdf_imp ())==NULL)  
    2354                  Ycreate_errnew(); 
     2470         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2471                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2472                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2473                                 if ((Yva_de_dynzdf_imp(Yw1, Yw2, Yw3) = new va_de_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 
    23552474}/*M3_TBTOGT  */  
    23562475void YtabTOgrad_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    23702489                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    23712490                                         for (int Yws=0; Yws<YNBS_va_dynzdf_imp; ++Yws){ 
    2372                                                  Yva_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2491                                                 Yva_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    23732492}/*M3_SETAT*/  
    23742493void Ysetstate_va_dynzdf_imp(double val) 
    … …  
    23792498                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    23802499                                         for (int Yws=0; Yws<YNBS_va_dynzdf_imp; ++Yws){ 
    2381                                                  Yva_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2500                                                 Yva_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    23822501}/*M3_YIOUT*/  
    23832502void Yio_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    23842503{  Yiorwf ("va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2385 }/*M0_CREU*/  
     2504}/*M3_CREU*/  
    23862505void Ycreate_va_dynzdf_imp()   
    23872506{ 
    2388          if ((Yva_dynzdf_imp = new va_dynzdf_imp ())==NULL)  
    2389                  Ycreate_errnew(); 
     2507         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2508                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2509                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2510                                 if ((Yva_dynzdf_imp(Yw1, Yw2, Yw3) = new va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 
    23902511}/*M3_TBTOGT  */  
    23912512void YtabTOgrad_ua_norm_dynzdf(int frompdt, int topdt, YREAL tab[]) 
    … …  
    24052526                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    24062527                                         for (int Yws=0; Yws<YNBS_ua_norm_dynzdf; ++Yws){ 
    2407                                                  Yua_norm_dynzdf->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2528                                                 Yua_norm_dynzdf(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    24082529}/*M3_SETAT*/  
    24092530void Ysetstate_ua_norm_dynzdf(double val) 
    … …  
    24142535                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    24152536                                         for (int Yws=0; Yws<YNBS_ua_norm_dynzdf; ++Yws){ 
    2416                                                  Yua_norm_dynzdf->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2537                                                 Yua_norm_dynzdf(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    24172538}/*M3_YIOUT*/  
    24182539void Yio_ua_norm_dynzdf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    24192540{  Yiorwf ("ua_norm_dynzdf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_norm_dynzdf(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2420 }/*M0_CREU*/  
     2541}/*M3_CREU*/  
    24212542void Ycreate_ua_norm_dynzdf()   
    24222543{ 
    2423          if ((Yua_norm_dynzdf = new ua_norm_dynzdf ())==NULL)  
    2424                  Ycreate_errnew(); 
     2544         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2545                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2546                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2547                                 if ((Yua_norm_dynzdf(Yw1, Yw2, Yw3) = new ua_norm_dynzdf ())==NULL) Ycreate_errnew();}}} 
    24252548}/*M3_TBTOGT  */  
    24262549void YtabTOgrad_va_norm_dynzdf(int frompdt, int topdt, YREAL tab[]) 
    … …  
    24402563                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    24412564                                         for (int Yws=0; Yws<YNBS_va_norm_dynzdf; ++Yws){ 
    2442                                                  Yva_norm_dynzdf->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2565                                                 Yva_norm_dynzdf(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    24432566}/*M3_SETAT*/  
    24442567void Ysetstate_va_norm_dynzdf(double val) 
    … …  
    24492572                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    24502573                                         for (int Yws=0; Yws<YNBS_va_norm_dynzdf; ++Yws){ 
    2451                                                  Yva_norm_dynzdf->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2574                                                 Yva_norm_dynzdf(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    24522575}/*M3_YIOUT*/  
    24532576void Yio_va_norm_dynzdf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    24542577{  Yiorwf ("va_norm_dynzdf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_norm_dynzdf(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2455 }/*M0_CREU*/  
     2578}/*M3_CREU*/  
    24562579void Ycreate_va_norm_dynzdf()   
    24572580{ 
    2458          if ((Yva_norm_dynzdf = new va_norm_dynzdf ())==NULL)  
    2459                  Ycreate_errnew(); 
     2581         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2582                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2583                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2584                                 if ((Yva_norm_dynzdf(Yw1, Yw2, Yw3) = new va_norm_dynzdf ())==NULL) Ycreate_errnew();}}} 
    24602585}/*M2_TBTOGT  */  
    24612586void YtabTOgrad_spguv_now_dynspg(int frompdt, int topdt, YREAL tab[]) 
    … …  
    24732598                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    24742599                                 for (int Yws=0; Yws<YNBS_spguv_now_dynspg; ++Yws){ 
    2475                                          Yspguv_now_dynspg->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     2600                                         Yspguv_now_dynspg(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    24762601}/*M2_SETAT*/  
    24772602void Ysetstate_spguv_now_dynspg(double val) 
    … …  
    24812606                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    24822607                                 for (int Yws=0; Yws<YNBS_spguv_now_dynspg; ++Yws){ 
    2483                                          Yspguv_now_dynspg->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     2608                                         Yspguv_now_dynspg(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    24842609}/*M2_YIOUT*/  
    24852610void Yio_spguv_now_dynspg(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)       
    24862611{  Yiorwf ("spguv_now_dynspg", Yws, Yw1, Yw2, Yw3, Ywt, &YS_spguv_now_dynspg(Yws, Yw1, Yw2, Ywt), val); 
    2487 }/*M0_CREU*/  
     2612}/*M2_CREU*/  
    24882613void Ycreate_spguv_now_dynspg()   
    24892614{ 
    2490          if ((Yspguv_now_dynspg = new spguv_now_dynspg ())==NULL)  
    2491                  Ycreate_errnew(); 
     2615         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2616                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2617                         if ((Yspguv_now_dynspg(Yw1, Yw2)= new spguv_now_dynspg ())==NULL) Ycreate_errnew();}} 
    24922618}/*M3_TBTOGT  */  
    24932619void YtabTOgrad_ua_1_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    25072633                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    25082634                                         for (int Yws=0; Yws<YNBS_ua_1_dynspg_flt; ++Yws){ 
    2509                                                  Yua_1_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2635                                                 Yua_1_dynspg_flt(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    25102636}/*M3_SETAT*/  
    25112637void Ysetstate_ua_1_dynspg_flt(double val) 
    … …  
    25162642                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    25172643                                         for (int Yws=0; Yws<YNBS_ua_1_dynspg_flt; ++Yws){ 
    2518                                                  Yua_1_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2644                                                 Yua_1_dynspg_flt(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    25192645}/*M3_YIOUT*/  
    25202646void Yio_ua_1_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)        
    25212647{  Yiorwf ("ua_1_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_1_dynspg_flt(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2522 }/*M0_CREU*/  
     2648}/*M3_CREU*/  
    25232649void Ycreate_ua_1_dynspg_flt()   
    25242650{ 
    2525          if ((Yua_1_dynspg_flt = new ua_1_dynspg_flt ())==NULL)  
    2526                  Ycreate_errnew(); 
     2651         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2652                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2653                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2654                                 if ((Yua_1_dynspg_flt(Yw1, Yw2, Yw3) = new ua_1_dynspg_flt ())==NULL) Ycreate_errnew();}}} 
    25272655}/*M3_TBTOGT  */  
    25282656void YtabTOgrad_va_1_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    25422670                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    25432671                                         for (int Yws=0; Yws<YNBS_va_1_dynspg_flt; ++Yws){ 
    2544                                                  Yva_1_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2672                                                 Yva_1_dynspg_flt(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    25452673}/*M3_SETAT*/  
    25462674void Ysetstate_va_1_dynspg_flt(double val) 
    … …  
    25512679                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    25522680                                         for (int Yws=0; Yws<YNBS_va_1_dynspg_flt; ++Yws){ 
    2553                                                  Yva_1_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2681                                                 Yva_1_dynspg_flt(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    25542682}/*M3_YIOUT*/  
    25552683void Yio_va_1_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)        
    25562684{  Yiorwf ("va_1_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_1_dynspg_flt(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2557 }/*M0_CREU*/  
     2685}/*M3_CREU*/  
    25582686void Ycreate_va_1_dynspg_flt()   
    25592687{ 
    2560          if ((Yva_1_dynspg_flt = new va_1_dynspg_flt ())==NULL)  
    2561                  Ycreate_errnew(); 
     2688         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2689                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2690                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2691                                 if ((Yva_1_dynspg_flt(Yw1, Yw2, Yw3) = new va_1_dynspg_flt ())==NULL) Ycreate_errnew();}}} 
    25622692}/*M2_TBTOGT  */  
    25632693void YtabTOgrad_sum_spgu_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    25752705                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    25762706                                 for (int Yws=0; Yws<YNBS_sum_spgu_dynspg_flt; ++Yws){ 
    2577                                          Ysum_spgu_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     2707                                         Ysum_spgu_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    25782708}/*M2_SETAT*/  
    25792709void Ysetstate_sum_spgu_dynspg_flt(double val) 
    … …  
    25832713                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    25842714                                 for (int Yws=0; Yws<YNBS_sum_spgu_dynspg_flt; ++Yws){ 
    2585                                          Ysum_spgu_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     2715                                         Ysum_spgu_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    25862716}/*M2_YIOUT*/  
    25872717void Yio_sum_spgu_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    25882718{  Yiorwf ("sum_spgu_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sum_spgu_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 
    2589 }/*M0_CREU*/  
     2719}/*M2_CREU*/  
    25902720void Ycreate_sum_spgu_dynspg_flt()   
    25912721{ 
    2592          if ((Ysum_spgu_dynspg_flt = new sum_spgu_dynspg_flt ())==NULL)  
    2593                  Ycreate_errnew(); 
     2722         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2723                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2724                         if ((Ysum_spgu_dynspg_flt(Yw1, Yw2)= new sum_spgu_dynspg_flt ())==NULL) Ycreate_errnew();}} 
    25942725}/*M2_TBTOGT  */  
    25952726void YtabTOgrad_sum_spgv_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    26072738                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    26082739                                 for (int Yws=0; Yws<YNBS_sum_spgv_dynspg_flt; ++Yws){ 
    2609                                          Ysum_spgv_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     2740                                         Ysum_spgv_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    26102741}/*M2_SETAT*/  
    26112742void Ysetstate_sum_spgv_dynspg_flt(double val) 
    … …  
    26152746                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    26162747                                 for (int Yws=0; Yws<YNBS_sum_spgv_dynspg_flt; ++Yws){ 
    2617                                          Ysum_spgv_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     2748                                         Ysum_spgv_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    26182749}/*M2_YIOUT*/  
    26192750void Yio_sum_spgv_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    26202751{  Yiorwf ("sum_spgv_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sum_spgv_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 
    2621 }/*M0_CREU*/  
     2752}/*M2_CREU*/  
    26222753void Ycreate_sum_spgv_dynspg_flt()   
    26232754{ 
    2624          if ((Ysum_spgv_dynspg_flt = new sum_spgv_dynspg_flt ())==NULL)  
    2625                  Ycreate_errnew(); 
     2755         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2756                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2757                         if ((Ysum_spgv_dynspg_flt(Yw1, Yw2)= new sum_spgv_dynspg_flt ())==NULL) Ycreate_errnew();}} 
    26262758}/*M2_TBTOGT  */  
    26272759void YtabTOgrad_gcb_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    26392771                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    26402772                                 for (int Yws=0; Yws<YNBS_gcb_dynspg_flt; ++Yws){ 
    2641                                          Ygcb_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     2773                                         Ygcb_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    26422774}/*M2_SETAT*/  
    26432775void Ysetstate_gcb_dynspg_flt(double val) 
    … …  
    26472779                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    26482780                                 for (int Yws=0; Yws<YNBS_gcb_dynspg_flt; ++Yws){ 
    2649                                          Ygcb_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     2781                                         Ygcb_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    26502782}/*M2_YIOUT*/  
    26512783void Yio_gcb_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    26522784{  Yiorwf ("gcb_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcb_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 
    2653 }/*M0_CREU*/  
     2785}/*M2_CREU*/  
    26542786void Ycreate_gcb_dynspg_flt()   
    26552787{ 
    2656          if ((Ygcb_dynspg_flt = new gcb_dynspg_flt ())==NULL)  
    2657                  Ycreate_errnew(); 
     2788         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2789                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2790                         if ((Ygcb_dynspg_flt(Yw1, Yw2)= new gcb_dynspg_flt ())==NULL) Ycreate_errnew();}} 
    26582791}/*M2_TBTOGT  */  
    26592792void YtabTOgrad_gcx_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    26712804                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    26722805                                 for (int Yws=0; Yws<YNBS_gcx_dynspg_flt; ++Yws){ 
    2673                                          Ygcx_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     2806                                         Ygcx_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    26742807}/*M2_SETAT*/  
    26752808void Ysetstate_gcx_dynspg_flt(double val) 
    … …  
    26792812                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    26802813                                 for (int Yws=0; Yws<YNBS_gcx_dynspg_flt; ++Yws){ 
    2681                                          Ygcx_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     2814                                         Ygcx_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    26822815}/*M2_YIOUT*/  
    26832816void Yio_gcx_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    26842817{  Yiorwf ("gcx_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcx_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 
    2685 }/*M0_CREU*/  
     2818}/*M2_CREU*/  
    26862819void Ycreate_gcx_dynspg_flt()   
    26872820{ 
    2688          if ((Ygcx_dynspg_flt = new gcx_dynspg_flt ())==NULL)  
    2689                  Ycreate_errnew(); 
     2821         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2822                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2823                         if ((Ygcx_dynspg_flt(Yw1, Yw2)= new gcx_dynspg_flt ())==NULL) Ycreate_errnew();}} 
    26902824}/*M2_TBTOGT  */  
    26912825void YtabTOgrad_solsor_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    27032837                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    27042838                                 for (int Yws=0; Yws<YNBS_solsor_dynspg_flt; ++Yws){ 
    2705                                          Ysolsor_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     2839                                         Ysolsor_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    27062840}/*M2_SETAT*/  
    27072841void Ysetstate_solsor_dynspg_flt(double val) 
    … …  
    27112845                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    27122846                                 for (int Yws=0; Yws<YNBS_solsor_dynspg_flt; ++Yws){ 
    2713                                          Ysolsor_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     2847                                         Ysolsor_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    27142848}/*M2_YIOUT*/  
    27152849void Yio_solsor_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)      
    27162850{  Yiorwf ("solsor_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_solsor_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 
    2717 }/*M0_CREU*/  
     2851}/*M2_CREU*/  
    27182852void Ycreate_solsor_dynspg_flt()   
    27192853{ 
    2720          if ((Ysolsor_dynspg_flt = new solsor_dynspg_flt ())==NULL)  
    2721                  Ycreate_errnew(); 
     2854         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2855                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2856                         if ((Ysolsor_dynspg_flt(Yw1, Yw2)= new solsor_dynspg_flt ())==NULL) Ycreate_errnew();}} 
    27222857}/*M2_TBTOGT  */  
    27232858void YtabTOgrad_gcx2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    27352870                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    27362871                                 for (int Yws=0; Yws<YNBS_gcx2; ++Yws){ 
    2737                                          Ygcx2->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     2872                                         Ygcx2(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    27382873}/*M2_SETAT*/  
    27392874void Ysetstate_gcx2(double val) 
    … …  
    27432878                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    27442879                                 for (int Yws=0; Yws<YNBS_gcx2; ++Yws){ 
    2745                                          Ygcx2->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     2880                                         Ygcx2(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    27462881}/*M2_YIOUT*/  
    27472882void Yio_gcx2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    27482883{  Yiorwf ("gcx2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcx2(Yws, Yw1, Yw2, Ywt), val); 
    2749 }/*M0_CREU*/  
     2884}/*M2_CREU*/  
    27502885void Ycreate_gcx2()   
    27512886{ 
    2752          if ((Ygcx2 = new gcx2 ())==NULL)  
    2753                  Ycreate_errnew(); 
     2887         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2888                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2889                         if ((Ygcx2(Yw1, Yw2)= new gcx2 ())==NULL) Ycreate_errnew();}} 
    27542890}/*M2_TBTOGT  */  
    27552891void YtabTOgrad_spguv_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    27672903                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    27682904                                 for (int Yws=0; Yws<YNBS_spguv_dynspg_flt; ++Yws){ 
    2769                                          Yspguv_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     2905                                         Yspguv_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    27702906}/*M2_SETAT*/  
    27712907void Ysetstate_spguv_dynspg_flt(double val) 
    … …  
    27752911                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    27762912                                 for (int Yws=0; Yws<YNBS_spguv_dynspg_flt; ++Yws){ 
    2777                                          Yspguv_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     2913                                         Yspguv_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    27782914}/*M2_YIOUT*/  
    27792915void Yio_spguv_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)       
    27802916{  Yiorwf ("spguv_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_spguv_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 
    2781 }/*M0_CREU*/  
     2917}/*M2_CREU*/  
    27822918void Ycreate_spguv_dynspg_flt()   
    27832919{ 
    2784          if ((Yspguv_dynspg_flt = new spguv_dynspg_flt ())==NULL)  
    2785                  Ycreate_errnew(); 
     2920         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2921                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2922                         if ((Yspguv_dynspg_flt(Yw1, Yw2)= new spguv_dynspg_flt ())==NULL) Ycreate_errnew();}} 
    27862923}/*M3_TBTOGT  */  
    27872924void YtabTOgrad_ua(int frompdt, int topdt, YREAL tab[]) 
    … …  
    28012938                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    28022939                                         for (int Yws=0; Yws<YNBS_ua; ++Yws){ 
    2803                                                  Yua->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2940                                                 Yua(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    28042941}/*M3_SETAT*/  
    28052942void Ysetstate_ua(double val) 
    … …  
    28102947                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    28112948                                         for (int Yws=0; Yws<YNBS_ua; ++Yws){ 
    2812                                                  Yua->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2949                                                 Yua(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    28132950}/*M3_YIOUT*/  
    28142951void Yio_ua(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    28152952{  Yiorwf ("ua", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2816 }/*M0_CREU*/  
     2953}/*M3_CREU*/  
    28172954void Ycreate_ua()   
    28182955{ 
    2819          if ((Yua = new ua ())==NULL)  
    2820                  Ycreate_errnew(); 
     2956         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2957                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2958                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2959                                 if ((Yua(Yw1, Yw2, Yw3) = new ua ())==NULL) Ycreate_errnew();}}} 
    28212960}/*M3_TBTOGT  */  
    28222961void YtabTOgrad_va(int frompdt, int topdt, YREAL tab[]) 
    … …  
    28362975                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    28372976                                         for (int Yws=0; Yws<YNBS_va; ++Yws){ 
    2838                                                  Yva->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     2977                                                 Yva(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    28392978}/*M3_SETAT*/  
    28402979void Ysetstate_va(double val) 
    … …  
    28452984                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    28462985                                         for (int Yws=0; Yws<YNBS_va; ++Yws){ 
    2847                                                  Yva->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     2986                                                 Yva(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    28482987}/*M3_YIOUT*/  
    28492988void Yio_va(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    28502989{  Yiorwf ("va", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2851 }/*M0_CREU*/  
     2990}/*M3_CREU*/  
    28522991void Ycreate_va()   
    28532992{ 
    2854          if ((Yva = new va ())==NULL)  
    2855                  Ycreate_errnew(); 
     2993         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     2994                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     2995                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     2996                                 if ((Yva(Yw1, Yw2, Yw3) = new va ())==NULL) Ycreate_errnew();}}} 
    28562997}/*M2_TBTOGT  */  
    28572998void YtabTOgrad_sshn(int frompdt, int topdt, YREAL tab[]) 
    … …  
    28693010                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    28703011                                 for (int Yws=0; Yws<YNBS_sshn; ++Yws){ 
    2871                                          Ysshn->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     3012                                         Ysshn(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    28723013}/*M2_SETAT*/  
    28733014void Ysetstate_sshn(double val) 
    … …  
    28773018                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    28783019                                 for (int Yws=0; Yws<YNBS_sshn; ++Yws){ 
    2879                                          Ysshn->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     3020                                         Ysshn(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    28803021}/*M2_YIOUT*/  
    28813022void Yio_sshn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    28823023{  Yiorwf ("sshn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sshn(Yws, Yw1, Yw2, Ywt), val); 
    2883 }/*M0_CREU*/  
     3024}/*M2_CREU*/  
    28843025void Ycreate_sshn()   
    28853026{ 
    2886          if ((Ysshn = new sshn ())==NULL)  
    2887                  Ycreate_errnew(); 
     3027         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     3028                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     3029                         if ((Ysshn(Yw1, Yw2)= new sshn ())==NULL) Ycreate_errnew();}} 
    28883030}/*M2_TBTOGT  */  
    28893031void YtabTOgrad_sshb(int frompdt, int topdt, YREAL tab[]) 
    … …  
    29013043                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    29023044                                 for (int Yws=0; Yws<YNBS_sshb; ++Yws){ 
    2903                                          Ysshb->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
     3045                                         Ysshb(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
    29043046}/*M2_SETAT*/  
    29053047void Ysetstate_sshb(double val) 
    … …  
    29093051                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    29103052                                 for (int Yws=0; Yws<YNBS_sshb; ++Yws){ 
    2911                                          Ysshb->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
     3053                                         Ysshb(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
    29123054}/*M2_YIOUT*/  
    29133055void Yio_sshb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    … …  
    29283070         }/*M9_OUTOB*/   
    29293071         return(1); 
    2930 }/*M0_CREU*/  
     3072}/*M2_CREU*/  
    29313073void Ycreate_sshb()   
    29323074{ 
    2933          if ((Ysshb = new sshb ())==NULL)  
    2934                  Ycreate_errnew(); 
     3075         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     3076                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     3077                         if ((Ysshb(Yw1, Yw2)= new sshb ())==NULL) Ycreate_errnew();}} 
    29353078}/*M2_SWISH*/  
    29363079void Ysetwish_sshb(double val) 
    … …  
    29573100                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    29583101                                         for (int Yws=0; Yws<YNBS_ub; ++Yws){ 
    2959                                                  Yub->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     3102                                                 Yub(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    29603103}/*M3_SETAT*/  
    29613104void Ysetstate_ub(double val) 
    … …  
    29663109                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    29673110                                         for (int Yws=0; Yws<YNBS_ub; ++Yws){ 
    2968                                                  Yub->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     3111                                                 Yub(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    29693112}/*M3_YIOUT*/  
    29703113void Yio_ub(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    … …  
    29863129         }/*M9_OUTOB*/   
    29873130         return(1); 
    2988 }/*M0_CREU*/  
     3131}/*M3_CREU*/  
    29893132void Ycreate_ub()   
    29903133{ 
    2991          if ((Yub = new ub ())==NULL)  
    2992                  Ycreate_errnew(); 
     3134         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     3135                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     3136                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     3137                                 if ((Yub(Yw1, Yw2, Yw3) = new ub ())==NULL) Ycreate_errnew();}}} 
    29933138}/*M3_SWISH*/  
    29943139void Ysetwish_ub(double val) 
    … …  
    30163161                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    30173162                                         for (int Yws=0; Yws<YNBS_vb; ++Yws){ 
    3018                                                  Yvb->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     3163                                                 Yvb(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    30193164}/*M3_SETAT*/  
    30203165void Ysetstate_vb(double val) 
    … …  
    30253170                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    30263171                                         for (int Yws=0; Yws<YNBS_vb; ++Yws){ 
    3027                                                  Yvb->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     3172                                                 Yvb(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    30283173}/*M3_YIOUT*/  
    30293174void Yio_vb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    … …  
    30453190         }/*M9_OUTOB*/   
    30463191         return(1); 
    3047 }/*M0_CREU*/  
     3192}/*M3_CREU*/  
    30483193void Ycreate_vb()   
    30493194{ 
    3050          if ((Yvb = new vb ())==NULL)  
    3051                  Ycreate_errnew(); 
     3195         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     3196                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     3197                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     3198                                 if ((Yvb(Yw1, Yw2, Yw3) = new vb ())==NULL) Ycreate_errnew();}}} 
    30523199}/*M3_SWISH*/  
    30533200void Ysetwish_vb(double val) 
    … …  
    30753222                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    30763223                                         for (int Yws=0; Yws<YNBS_hdivn; ++Yws){ 
    3077                                                  Yhdivn->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     3224                                                 Yhdivn(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    30783225}/*M3_SETAT*/  
    30793226void Ysetstate_hdivn(double val) 
    … …  
    30843231                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    30853232                                         for (int Yws=0; Yws<YNBS_hdivn; ++Yws){ 
    3086                                                  Yhdivn->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     3233                                                 Yhdivn(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    30873234}/*M3_YIOUT*/  
    30883235void Yio_hdivn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    30893236{  Yiorwf ("hdivn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_hdivn(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    3090 }/*M0_CREU*/  
     3237}/*M3_CREU*/  
    30913238void Ycreate_hdivn()   
    30923239{ 
    3093          if ((Yhdivn = new hdivn ())==NULL)  
    3094                  Ycreate_errnew(); 
     3240         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     3241                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     3242                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     3243                                 if ((Yhdivn(Yw1, Yw2, Yw3) = new hdivn ())==NULL) Ycreate_errnew();}}} 
    30953244}/*M3_TBTOGT  */  
    30963245void YtabTOgrad_rotn(int frompdt, int topdt, YREAL tab[]) 
    … …  
    31103259                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    31113260                                         for (int Yws=0; Yws<YNBS_rotn; ++Yws){ 
    3112                                                  Yrotn->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     3261                                                 Yrotn(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    31133262}/*M3_SETAT*/  
    31143263void Ysetstate_rotn(double val) 
    … …  
    31193268                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    31203269                                         for (int Yws=0; Yws<YNBS_rotn; ++Yws){ 
    3121                                                  Yrotn->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     3270                                                 Yrotn(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    31223271}/*M3_YIOUT*/  
    31233272void Yio_rotn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    31243273{  Yiorwf ("rotn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rotn(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    3125 }/*M0_CREU*/  
     3274}/*M3_CREU*/  
    31263275void Ycreate_rotn()   
    31273276{ 
    3128          if ((Yrotn = new rotn ())==NULL)  
    3129                  Ycreate_errnew(); 
     3277         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     3278                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     3279                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     3280                                 if ((Yrotn(Yw1, Yw2, Yw3) = new rotn ())==NULL) Ycreate_errnew();}}} 
    31303281}/*M3_TBTOGT  */  
    31313282void YtabTOgrad_wa(int frompdt, int topdt, YREAL tab[]) 
    … …  
    31453296                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    31463297                                         for (int Yws=0; Yws<YNBS_wa; ++Yws){ 
    3147                                                  Ywa->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
     3298                                                 Ywa(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
    31483299}/*M3_SETAT*/  
    31493300void Ysetstate_wa(double val) 
    … …  
    31543305                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    31553306                                         for (int Yws=0; Yws<YNBS_wa; ++Yws){ 
    3156                                                  Ywa->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
     3307                                                 Ywa(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
    31573308}/*M3_YIOUT*/  
    31583309void Yio_wa(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    31593310{  Yiorwf ("wa", Yws, Yw1, Yw2, Yw3, Ywt, &YS_wa(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    3160 }/*M0_CREU*/  
     3311}/*M3_CREU*/  
    31613312void Ycreate_wa()   
    31623313{ 
    3163          if ((Ywa = new wa ())==NULL)  
    3164                  Ycreate_errnew(); 
     3314         for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 
     3315                 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 
     3316                         for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 
     3317                                 if ((Ywa(Yw1, Yw2, Yw3) = new wa ())==NULL) Ycreate_errnew();}}} 
    31653318} 
    31663319void Ycreate_all ()  
    … …  
    37193872{ 
    37203873         Yting[0]=YS1_tb( Yi, Yj, 0, YTemps-1); 
    3721          Ysbcgyre_qsr_qns->forward( Yting[0] ); 
    3722          Ysbcgyre_emp1->forward(); 
     3874         Ysbcgyre_qsr_qns(Yi, Yj)->forward( Yting[0] ); 
     3875         Ysbcgyre_emp1(Yi, Yj)->forward(); 
    37233876         if (1==0 || Yi-1<0) 
    37243877         Yting[0]=0;  
    … …  
    37383891         Yting[3]=YS2_sbcgyre_zsumemp_zsurf( 31, Yj-1, YTemps); 
    37393892         Yting[4]=YS1_sbcgyre_emp1( Yi, Yj, YTemps); 
    3740          Ysbcgyre_zsumemp_zsurf->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     3893         Ysbcgyre_zsumemp_zsurf(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    37413894 
    37423895} 
    … …  
    37473900         Yting[1]=YS1_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 
    37483901         Yting[2]=YS2_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 
    3749          Ysbcgyre_emp->forward( Yting[0], Yting[1], Yting[2] ); 
     3902         Ysbcgyre_emp(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 
    37503903         Yting[0]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 
    3751          Ysbcgyre_emps->forward( Yting[0] ); 
    3752          Ysbcgyre_utau_vtau->forward(); 
     3904         Ysbcgyre_emps(Yi, Yj)->forward( Yting[0] ); 
     3905         Ysbcgyre_utau_vtau(Yi, Yj)->forward(); 
    37533906         if (1==0 || Yi-1<0) 
    37543907         Yting[0]=0;  
    … …  
    37613914         Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 
    37623915         Yting[3]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 
    3763          Ysbcgyre_wndm->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     3916         Ysbcgyre_wndm(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    37643917 
    37653918} 
    … …  
    37803933         else  
    37813934         Yting[3]=YS1_sb( Yi, Yj, Yk-1, YTemps-1); 
    3782          Ybn2_rn2->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     3935         Ybn2_rn2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    37833936 
    37843937} 
    … …  
    38514004         else  
    38524005         Yting[18]=YS1_va( Yi+1, Yj, 1, YTemps-1); 
    3853          Yzdf_avt_avmu_avmv->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8], Yting[9], Yting[10], Yting[11], Yting[12], Yting[13], Yting[14], Yting[15], Yting[16], Yting[17], Yting[18] ); 
     4006         Yzdf_avt_avmu_avmv(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8], Yting[9], Yting[10], Yting[11], Yting[12], Yting[13], Yting[14], Yting[15], Yting[16], Yting[17], Yting[18] ); 
    38544007 
    38554008} 
    … …  
    38914044         Yting[29]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 29, YTemps); 
    38924045         Yting[30]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 30, YTemps); 
    3893          Yzdfmxl_hmld->forward(); 
     4046         Yzdfmxl_hmld(Yi, Yj)->forward(); 
    38944047         Yting[0]=YS1_rhop( Yi, Yj, 0, YTemps-1); 
    38954048         Yting[1]=YS1_rhop( Yi, Yj, 1, YTemps-1); 
    … …  
    39234076         Yting[29]=YS1_rhop( Yi, Yj, 29, YTemps-1); 
    39244077         Yting[30]=YS1_rhop( Yi, Yj, 30, YTemps-1); 
    3925          Yzdfmxl_nmln_hmlp_hmlpt->forward(); 
     4078         Yzdfmxl_nmln_hmlp_hmlpt(Yi, Yj)->forward(); 
    39264079 
    39274080} 
    … …  
    39354088         Yting[1]=YS1_sbcgyre_emps( Yi, Yj, YTemps); 
    39364089         Yting[2]=YS1_sa( Yi, Yj, 0, YTemps-1); 
    3937          Yta_sa_trasbc->forward( Yting[0], Yting[1], Yting[2] ); 
     4090         Yta_sa_trasbc(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 
    39384091 
    39394092} 
    … …  
    39474100         Yting[0]=YS1_sbcgyre_qsr_qns( Yi, Yj, YTemps); 
    39484101         Yting[1]=YS1_ta_sa_trasbc( Yi, Yj, YTemps); 
    3949          Yta_traqsr->forward( Yting[0], Yting[1] ); 
     4102         Yta_traqsr(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
    39504103 
    39514104} 
    … …  
    39694122         else  
    39704123         Yting[4]=YS1_ta( Yi+1, Yj, Yk, YTemps-1); 
    3971          Yzcent_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4124         Yzcent_hor_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    39724125         Yting[0]=YS1_ua( Yi, Yj, Yk, YTemps-1); 
    39734126         Yting[1]=YS1_va( Yi, Yj, Yk, YTemps-1); 
    … …  
    39814134         else  
    39824135         Yting[4]=YS1_sa( Yi+1, Yj, Yk, YTemps-1); 
    3983          Yzcens_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4136         Yzcens_hor_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    39844137 
    39854138} 
    … …  
    39984151         Yting[3]=YS2_zcent_hor_traadv_cen2( Yi, Yj-1, Yk, YTemps); 
    39994152         Yting[4]=YS2_zcent_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 
    4000          Yta_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4153         Yta_hor_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    40014154         Yting[0]=YS2_ta_sa_trasbc( Yi, Yj, YTemps); 
    40024155         if (1==0 || Yi-1<0) 
    … …  
    40104163         Yting[3]=YS2_zcens_hor_traadv_cen2( Yi, Yj-1, Yk, YTemps); 
    40114164         Yting[4]=YS2_zcens_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 
    4012          Ysa_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4165         Ysa_hor_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    40134166 
    40144167} 
    … …  
    40284181         else  
    40294182         Yting[2]=YS1_ta( Yi, Yj, Yk-1, YTemps-1); 
    4030          Yzcent_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 
     4183         Yzcent_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
    40314184         Yting[0]=YS1_wa( Yi, Yj, Yk, YTemps-1); 
    40324185         Yting[1]=YS1_sa( Yi, Yj, Yk, YTemps-1); 
    … …  
    40354188         else  
    40364189         Yting[2]=YS1_sa( Yi, Yj, Yk-1, YTemps-1); 
    4037          Yzcens_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 
     4190         Yzcens_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
    40384191 
    40394192} 
    … …  
    40514204         else  
    40524205         Yting[2]=YS1_zcent_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 
    4053          Yta_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 
     4206         Yta_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
    40544207         Yting[0]=YS1_sa_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 
    40554208         Yting[1]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk, YTemps); 
    … …  
    40584211         else  
    40594212         Yting[2]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 
    4060          Ysa_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 
     4213         Ysa_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
    40614214 
    40624215} 
    … …  
    40774230         else  
    40784231         Yting[2]=YS1_tb( Yi, Yj+1, Yk, YTemps-1); 
    4079          Yztuv_traldf_lap->forward( Yting[0], Yting[1], Yting[2] ); 
     4232         Yztuv_traldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
    40804233         Yting[0]=YS1_sb( Yi, Yj, Yk, YTemps-1); 
    40814234         if (1==0 || Yi+1>YA1_S3dt-1) 
    … …  
    40874240         else  
    40884241         Yting[2]=YS1_sb( Yi, Yj+1, Yk, YTemps-1); 
    4089          Yzsuv_traldf_lap->forward( Yting[0], Yting[1], Yting[2] ); 
     4242         Yzsuv_traldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
    40904243         Yting[0]=YS1_ta_ver_traadv_cen2( Yi, Yj, Yk, YTemps); 
    40914244         Yting[1]=YS1_ztuv_traldf_lap( Yi, Yj, Yk, YTemps); 
    … …  
    40994252         else  
    41004253         Yting[4]=YS2_ztuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 
    4101          Yta_traldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4254         Yta_traldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    41024255         Yting[0]=YS1_sa_ver_traadv_cen2( Yi, Yj, Yk, YTemps); 
    41034256         Yting[1]=YS1_zsuv_traldf_lap( Yi, Yj, Yk, YTemps); 
    … …  
    41114264         else  
    41124265         Yting[4]=YS2_zsuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 
    4113          Ysa_traldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4266         Ysa_traldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    41144267 
    41154268} 
    … …  
    41264279         else  
    41274280         Yting[1]=YS1_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 
    4128          Yzwisd_trazdf_imp->forward( Yting[0], Yting[1] ); 
     4281         Yzwisd_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
    41294282         Yting[0]=YS1_ta_traldf_lap( Yi, Yj, Yk, YTemps); 
    41304283         Yting[1]=YS1_tb( Yi, Yj, Yk, YTemps-1); 
    4131          Yzrhs_trazdf_imp->forward( Yting[0], Yting[1] ); 
     4284         Yzrhs_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
    41324285         Yting[0]=YS1_sa_traldf_lap( Yi, Yj, Yk, YTemps); 
    41334286         Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps-1); 
    4134          Yzrhs_sa_trazdf_imp->forward( Yting[0], Yting[1] ); 
     4287         Yzrhs_sa_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
    41354288 
    41364289} 
    … …  
    41504303         else  
    41514304         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 
    4152          Yzwt_trazdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4305         Yzwt_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    41534306         Yting[0]=YS1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 
    41544307         if (1==0 || Yk-1<0) 
    … …  
    41614314         else  
    41624315         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 
    4163          Yta_de_trazdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4316         Yta_de_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    41644317         Yting[0]=YS1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 
    41654318         if (1==0 || Yk-1<0) 
    … …  
    41724325         else  
    41734326         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 
    4174          Ysa_de_trazdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4327         Ysa_de_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    41754328 
    41764329} 
    … …  
    41874340         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk, YTemps); 
    41884341         Yting[4]=YS1_ta_c( Yi, Yj, Yk); 
    4189          Yta->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4342         Yta(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    41904343         Yting[0]=YS2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 
    41914344         if (1==0 || Yk+1>YA3_S3dt-1) 
    … …  
    41964349         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk, YTemps); 
    41974350         Yting[4]=YS1_sa_c( Yi, Yj, Yk); 
    4198          Ysa->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4351         Ysa(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    41994352 
    42004353} 
    … …  
    42094362         Yting[2]=YS1_ta( Yi, Yj, Yk, YTemps); 
    42104363         Yting[3]=YS1_ta_c( Yi, Yj, Yk); 
    4211          Ytb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4364         Ytb(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    42124365         Yting[0]=YS1_sb( Yi, Yj, Yk, YTemps-1); 
    42134366         Yting[1]=YS1_sa( Yi, Yj, Yk, YTemps-1); 
    42144367         Yting[2]=YS1_sa( Yi, Yj, Yk, YTemps); 
    42154368         Yting[3]=YS1_sa_c( Yi, Yj, Yk); 
    4216          Ysb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4369         Ysb(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    42174370 
    42184371} 
    … …  
    42264379         Yting[0]=YS1_tb( Yi, Yj, Yk, YTemps); 
    42274380         Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps); 
    4228          Yrhd->forward( Yting[0], Yting[1] ); 
     4381         Yrhd(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
    42294382         Yting[0]=YS1_rhd( Yi, Yj, Yk, YTemps); 
    4230          Yrhop->forward( Yting[0] ); 
     4383         Yrhop(Yi, Yj, Yk)->forward( Yting[0] ); 
    42314384 
    42324385} 
    … …  
    42574410         else  
    42584411         Yting[5]=YS1_va( Yi, Yj+1, Yk, YTemps-1); 
    4259          Yhmf_TF_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] ); 
     4412         Yhmf_TF_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] ); 
    42604413 
    42614414} 
    … …  
    42734426         else  
    42744427         Yting[3]=YS2_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 
    4275          Yzua_dhmf_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4428         Yzua_dhmf_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    42764429         Yting[0]=YS3_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps); 
    42774430         if (1==0 || Yi-1<0) 
    … …  
    42844437         else  
    42854438         Yting[3]=YS4_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 
    4286          Yzva_dhmf_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4439         Yzva_dhmf_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    42874440 
    42884441} 
    … …  
    43154468         else  
    43164469         Yting[6]=YS1_va( Yi, Yj, Yk-1, YTemps-1); 
    4317          Yzfuv_UW_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
     4470         Yzfuv_UW_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
    43184471 
    43194472} 
    … …  
    43314484         Yting[1]=YS1_zfuv_UW_dynadv_cen2( Yi, Yj, Yk+1, YTemps); 
    43324485         Yting[2]=YS1_zua_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 
    4333          Yua_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 
     4486         Yua_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
    43344487         Yting[0]=YS2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk, YTemps); 
    43354488         if (1==0 || Yk+1>YA3_S3dt-1) 
    … …  
    43384491         Yting[1]=YS2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk+1, YTemps); 
    43394492         Yting[2]=YS1_zva_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 
    4340          Yva_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 
     4493         Yva_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
    43414494 
    43424495} 
    … …  
    43594512         else  
    43604513         Yting[3]=YS1_va( Yi+1, Yj, Yk, YTemps-1); 
    4361          Yzwxyz_vor_ene->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4514         Yzwxyz_vor_ene(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    43624515 
    43634516} 
    … …  
    43844537         else  
    43854538         Yting[6]=YS2_zwxyz_vor_ene( Yi+1, Yj, Yk, YTemps); 
    4386          Yua_vor_ene->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
     4539         Yua_vor_ene(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
    43874540         Yting[0]=YS1_va_dynadv_cen2( Yi, Yj, Yk, YTemps); 
    43884541         if (1==0 || Yi-1<0) 
    … …  
    44044557         else  
    44054558         Yting[6]=YS1_zwxyz_vor_ene( Yi, Yj+1, Yk, YTemps); 
    4406          Yva_vor_ene->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
     4559         Yva_vor_ene(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
    44074560         Yting[0]=YS1_ua_vor_ene( Yi, Yj, Yk, YTemps); 
    44084561         if (1==0 || Yj-1<0) 
    … …  
    44164569         else  
    44174570         Yting[4]=YS1_hdivn( Yi+1, Yj, Yk, YTemps-2); 
    4418          Yua_dyn_ldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4571         Yua_dyn_ldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    44194572         Yting[0]=YS1_va_vor_ene( Yi, Yj, Yk, YTemps); 
    44204573         if (1==0 || Yi-1<0) 
    … …  
    44284581         else  
    44294582         Yting[4]=YS1_hdivn( Yi, Yj+1, Yk, YTemps-2); 
    4430          Yva_dyn_ldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4583         Yva_dyn_ldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    44314584 
    44324585} 
    … …  
    44674620         else  
    44684621         Yting[7]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk-1, YTemps); 
    4469          Yzhpij_dyn_hpg_zco->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 
     4622         Yzhpij_dyn_hpg_zco(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 
    44704623         Yting[0]=YS1_ua_dyn_ldf_lap( Yi, Yj, Yk, YTemps); 
    44714624         Yting[1]=YS1_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 
    4472          Yua_dyn_hpg_zco->forward( Yting[0], Yting[1] ); 
     4625         Yua_dyn_hpg_zco(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
    44734626         Yting[0]=YS1_va_dyn_ldf_lap( Yi, Yj, Yk, YTemps); 
    44744627         Yting[1]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 
    4475          Yva_dyn_hpg_zco->forward( Yting[0], Yting[1] ); 
     4628         Yva_dyn_hpg_zco(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
    44764629 
    44774630} 
    … …  
    44874640         else  
    44884641         Yting[1]=YS2_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 
    4489          Yzwisd_ua_dynzdf_imp->forward( Yting[0], Yting[1] ); 
     4642         Yzwisd_ua_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
    44904643         Yting[0]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps); 
    44914644         if (1==0 || Yk+1>YA3_S3dt-1) 
    … …  
    44934646         else  
    44944647         Yting[1]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 
    4495          Yzwisd_va_dynzdf_imp->forward( Yting[0], Yting[1] ); 
     4648         Yzwisd_va_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
    44964649         Yting[0]=YS1_ua_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 
    44974650         Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 
    44984651         Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 
    4499          Yzrhs_ua_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2] ); 
     4652         Yzrhs_ua_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
    45004653         Yting[0]=YS1_va_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 
    45014654         Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 
    45024655         Yting[2]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 
    4503          Yzrhs_va_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2] ); 
     4656         Yzrhs_va_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
    45044657 
    45054658} 
    … …  
    45194672         else  
    45204673         Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    4521          Yzwt_ua_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4674         Yzwt_ua_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    45224675         Yting[0]=YS1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    45234676         if (1==0 || Yk-1<0) 
    … …  
    45304683         else  
    45314684         Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    4532          Yua_de_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4685         Yua_de_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    45334686         Yting[0]=YS1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    45344687         if (1==0 || Yk-1<0) 
    … …  
    45414694         else  
    45424695         Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    4543          Yzwt_va_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4696         Yzwt_va_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    45444697         Yting[0]=YS1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    45454698         if (1==0 || Yk-1<0) 
    … …  
    45524705         else  
    45534706         Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    4554          Yva_de_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4707         Yva_de_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    45554708 
    45564709} 
    … …  
    45664719         Yting[2]=YS1_ua_de_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    45674720         Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    4568          Yua_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4721         Yua_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    45694722         Yting[0]=YS2_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    45704723         if (1==0 || Yk+1>YA3_S3dt-1) 
    … …  
    45744727         Yting[2]=YS1_va_de_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    45754728         Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    4576          Yva_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4729         Yva_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    45774730 
    45784731} 
    … …  
    45854738         Yting[0]=YS1_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    45864739         Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 
    4587          Yua_norm_dynzdf->forward( Yting[0], Yting[1] ); 
     4740         Yua_norm_dynzdf(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
    45884741         Yting[0]=YS1_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    45894742         Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 
    4590          Yva_norm_dynzdf->forward( Yting[0], Yting[1] ); 
     4743         Yva_norm_dynzdf(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
    45914744 
    45924745} 
    … …  
    46064759         else  
    46074760         Yting[2]=YS1_sshn( Yi+1, Yj, YTemps-1); 
    4608          Yspguv_now_dynspg->forward( Yting[0], Yting[1], Yting[2] ); 
     4761         Yspguv_now_dynspg(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 
    46094762 
    46104763} 
    … …  
    46194772         Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 
    46204773         Yting[2]=YS1_spguv_now_dynspg( Yi, Yj, YTemps); 
    4621          Yua_1_dynspg_flt->forward( Yting[0], Yting[1], Yting[2] ); 
     4774         Yua_1_dynspg_flt(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
    46224775         Yting[0]=YS1_va_norm_dynzdf( Yi, Yj, Yk, YTemps); 
    46234776         Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 
    46244777         Yting[2]=YS2_spguv_now_dynspg( Yi, Yj, YTemps); 
    4625          Yva_1_dynspg_flt->forward( Yting[0], Yting[1], Yting[2] ); 
     4778         Yva_1_dynspg_flt(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
    46264779 
    46274780} 
    … …  
    46634816         Yting[29]=YS1_ua_1_dynspg_flt( Yi, Yj, 29, YTemps); 
    46644817         Yting[30]=YS1_ua_1_dynspg_flt( Yi, Yj, 30, YTemps); 
    4665          Ysum_spgu_dynspg_flt->forward(); 
     4818         Ysum_spgu_dynspg_flt(Yi, Yj)->forward(); 
    46664819         Yting[0]=YS1_va_1_dynspg_flt( Yi, Yj, 0, YTemps); 
    46674820         Yting[1]=YS1_va_1_dynspg_flt( Yi, Yj, 1, YTemps); 
    … …  
    46954848         Yting[29]=YS1_va_1_dynspg_flt( Yi, Yj, 29, YTemps); 
    46964849         Yting[30]=YS1_va_1_dynspg_flt( Yi, Yj, 30, YTemps); 
    4697          Ysum_spgv_dynspg_flt->forward(); 
     4850         Ysum_spgv_dynspg_flt(Yi, Yj)->forward(); 
    46984851 
    46994852} 
    … …  
    47144867         else  
    47154868         Yting[3]=YS1_sum_spgv_dynspg_flt( Yi, Yj-1, YTemps); 
    4716          Ygcb_dynspg_flt->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4869         Ygcb_dynspg_flt(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    47174870         Yting[0]=YS1_gcx2( Yi, Yj, YTemps-1); 
    47184871         Yting[1]=YS1_gcx2( Yi, Yj, YTemps-2); 
    4719          Ygcx_dynspg_flt->forward( Yting[0], Yting[1] ); 
     4872         Ygcx_dynspg_flt(Yi, Yj)->forward( Yting[0], Yting[1] ); 
    47204873 
    47214874} 
    … …  
    47944947         else  
    47954948         Yting[18]=YS1_solsor_dynspg_flt( Yi-1, Yj-1, YTemps); 
    4796          Ysolsor_dynspg_flt->forward(); 
     4949         Ysolsor_dynspg_flt(Yi, Yj)->forward(); 
    47974950 
    47984951} 
    … …  
    48034956{ 
    48044957         Yting[0]=YS1_solsor_dynspg_flt( Yi, Yj, YTemps); 
    4805          Ygcx2->forward(); 
     4958         Ygcx2(Yi, Yj)->forward(); 
    48064959 
    48074960} 
    … …  
    48214974         else  
    48224975         Yting[2]=YS1_gcx2( Yi, Yj+1, YTemps); 
    4823          Yspguv_dynspg_flt->forward( Yting[0], Yting[1], Yting[2] ); 
     4976         Yspguv_dynspg_flt(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 
    48244977 
    48254978} 
    … …  
    48344987         Yting[1]=YS1_spguv_dynspg_flt( Yi, Yj, YTemps); 
    48354988         Yting[2]=YS1_ua_c( Yi, Yj, Yk); 
    4836          Yua->forward( Yting[0], Yting[1], Yting[2] ); 
     4989         Yua(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
    48374990         Yting[0]=YS1_va_1_dynspg_flt( Yi, Yj, Yk, YTemps); 
    48384991         Yting[1]=YS2_spguv_dynspg_flt( Yi, Yj, YTemps); 
    48394992         Yting[2]=YS1_va_c( Yi, Yj, Yk); 
    4840          Yva->forward( Yting[0], Yting[1], Yting[2] ); 
     4993         Yva(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
    48414994 
    48424995} 
    … …  
    48515004         Yting[2]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 
    48525005         Yting[3]=YS1_sshn_c( Yi, Yj); 
    4853          Ysshn->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5006         Ysshn(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    48545007         Yting[0]=YS1_sshb( Yi, Yj, YTemps-1); 
    48555008         Yting[1]=YS1_sshn( Yi, Yj, YTemps-1); 
    48565009         Yting[2]=YS1_sshn( Yi, Yj, YTemps); 
    48575010         Yting[3]=YS1_sshn_c( Yi, Yj); 
    4858          Ysshb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5011         Ysshb(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    48595012 
    48605013} 
    … …  
    48705023         Yting[2]=YS1_ua( Yi, Yj, Yk, YTemps); 
    48715024         Yting[3]=YS1_ua_c( Yi, Yj, Yk); 
    4872          Yub->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5025         Yub(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    48735026         Yting[0]=YS1_vb( Yi, Yj, Yk, YTemps-1); 
    48745027         Yting[1]=YS1_va( Yi, Yj, Yk, YTemps-1); 
    48755028         Yting[2]=YS1_va( Yi, Yj, Yk, YTemps); 
    48765029         Yting[3]=YS1_va_c( Yi, Yj, Yk); 
    4877          Yvb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5030         Yvb(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    48785031 
    48795032} 
    … …  
    48955048         else  
    48965049         Yting[3]=YS1_va( Yi, Yj-1, Yk, YTemps); 
    4897          Yhdivn->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5050         Yhdivn(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    48985051         if (1==0 || Yi+1>YA1_S3dt-1) 
    48995052         Yting[0]=0;  
    … …  
    49065059         Yting[2]=YS1_ua( Yi, Yj+1, Yk, YTemps); 
    49075060         Yting[3]=YS1_ua( Yi, Yj, Yk, YTemps); 
    4908          Yrotn->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5061         Yrotn(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    49095062 
    49105063} 
    … …  
    49195072         Yting[0]=YS1_wa( Yi, Yj, Yk+1, YTemps); 
    49205073         Yting[1]=YS1_hdivn( Yi, Yj, Yk, YTemps); 
    4921          Ywa->forward( Yting[0], Yting[1] ); 
     5074         Ywa(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
    49225075 
    49235076} 
    … …  
    49405093         Yting[1]=YS1_hdivn( Yi, Yj, Yk, YTemps); 
    49415094         memset(Yjac, 0, 31*sizeof(double)); 
    4942          Ywa->backward( Yting[0], Yting[1] ); 
     5095         Ywa(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
    49435096         Yvsmatt (YNBS_wa, YNBI_wa, YMAX_JAC_NBI, &YG1Y_wa, Yjac[0], Ytbeta); 
    49445097         if (1==0 || Yk+1>YA3_S3dt-1){}  
    … …  
    49655118         Yting[3]=YS1_ua( Yi, Yj, Yk, YTemps); 
    49665119         memset(Yjac, 0, 31*sizeof(double)); 
    4967          Yrotn->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5120         Yrotn(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    49685121         Yvsmatt (YNBS_rotn, YNBI_rotn, YMAX_JAC_NBI, &YG1Y_rotn, Yjac[0], Ytbeta); 
    49695122         if (1==0 || Yi+1>YA1_S3dt-1){}  
    … …  
    49865139         Yting[3]=YS1_va( Yi, Yj-1, Yk, YTemps); 
    49875140         memset(Yjac, 0, 31*sizeof(double)); 
    4988          Yhdivn->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5141         Yhdivn(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    49895142         Yvsmatt (YNBS_hdivn, YNBI_hdivn, YMAX_JAC_NBI, &YG1Y_hdivn, Yjac[0], Ytbeta); 
    49905143         YG1_ua( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    50105163         Yting[3]=YS1_va_c( Yi, Yj, Yk); 
    50115164         memset(Yjac, 0, 31*sizeof(double)); 
    5012          Yvb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5165         Yvb(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    50135166         Yvsmatt (YNBS_vb, YNBI_vb, YMAX_JAC_NBI, &YG1Y_vb, Yjac[0], Ytbeta); 
    50145167         YG1_vb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    5015          #pragma omp atomic 
    50165168         YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    50175169         YG1_va( Yi, Yj, Yk, YTemps) += Ytbeta[2]; 
    … …  
    50225174         Yting[3]=YS1_ua_c( Yi, Yj, Yk); 
    50235175         memset(Yjac, 0, 31*sizeof(double)); 
    5024          Yub->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5176         Yub(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    50255177         Yvsmatt (YNBS_ub, YNBI_ub, YMAX_JAC_NBI, &YG1Y_ub, Yjac[0], Ytbeta); 
    50265178         YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    5027          #pragma omp atomic 
    50285179         YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    50295180         YG1_ua( Yi, Yj, Yk, YTemps) += Ytbeta[2]; 
    … …  
    50425193         Yting[3]=YS1_sshn_c( Yi, Yj); 
    50435194         memset(Yjac, 0, 31*sizeof(double)); 
    5044          Ysshb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5195         Ysshb(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    50455196         Yvsmatt (YNBS_sshb, YNBI_sshb, YMAX_JAC_NBI, &YG1Y_sshb, Yjac[0], Ytbeta); 
    50465197         YG1_sshb( Yi, Yj, YTemps-1) += Ytbeta[0]; 
    5047          #pragma omp atomic 
    50485198         YG1_sshn( Yi, Yj, YTemps-1) += Ytbeta[1]; 
    50495199         YG1_sshn( Yi, Yj, YTemps) += Ytbeta[2]; 
    … …  
    50545204         Yting[3]=YS1_sshn_c( Yi, Yj); 
    50555205         memset(Yjac, 0, 31*sizeof(double)); 
    5056          Ysshn->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5206         Ysshn(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    50575207         Yvsmatt (YNBS_sshn, YNBI_sshn, YMAX_JAC_NBI, &YG1Y_sshn, Yjac[0], Ytbeta); 
    50585208         YG1_sshb( Yi, Yj, YTemps-1) += Ytbeta[0]; 
    5059          #pragma omp atomic 
    50605209         YG1_wa( Yi, Yj, 0, YTemps-1) += Ytbeta[1]; 
    50615210         YG1_sbcgyre_emp( Yi, Yj, YTemps) += Ytbeta[2]; 
    … …  
    50745223         Yting[2]=YS1_va_c( Yi, Yj, Yk); 
    50755224         memset(Yjac, 0, 31*sizeof(double)); 
    5076          Yva->backward( Yting[0], Yting[1], Yting[2] ); 
     5225         Yva(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
    50775226         Yvsmatt (YNBS_va, YNBI_va, YMAX_JAC_NBI, &YG1Y_va, Yjac[0], Ytbeta); 
    5078          #pragma omp atomic 
    50795227         YG1_va_1_dynspg_flt( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    5080          #pragma omp atomic 
    50815228         YG2_spguv_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[1]; 
    50825229         YG1_va_c( Yi, Yj, Yk) += Ytbeta[2]; 
    … …  
    50855232         Yting[2]=YS1_ua_c( Yi, Yj, Yk); 
    50865233         memset(Yjac, 0, 31*sizeof(double)); 
    5087          Yua->backward( Yting[0], Yting[1], Yting[2] ); 
     5234         Yua(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
    50885235         Yvsmatt (YNBS_ua, YNBI_ua, YMAX_JAC_NBI, &YG1Y_ua, Yjac[0], Ytbeta); 
    5089          #pragma omp atomic 
    50905236         YG1_ua_1_dynspg_flt( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    5091          #pragma omp atomic 
    50925237         YG1_spguv_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[1]; 
    50935238         YG1_ua_c( Yi, Yj, Yk) += Ytbeta[2]; 
    … …  
    51105255         Yting[2]=YS1_gcx2( Yi, Yj+1, YTemps); 
    51115256         memset(Yjac, 0, 62*sizeof(double)); 
    5112          Yspguv_dynspg_flt->backward( Yting[0], Yting[1], Yting[2] ); 
     5257         Yspguv_dynspg_flt(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] ); 
    51135258         Yvsmatt (YNBS_spguv_dynspg_flt, YNBI_spguv_dynspg_flt, YMAX_JAC_NBI, &YG1Y_spguv_dynspg_flt, Yjac[0], Ytbeta); 
    51145259         if (1==0 || Yi+1>YA1_S3dt-1){}  
    51155260         else  
    5116          #pragma omp atomic 
    51175261         YG1_gcx2( Yi+1, Yj, YTemps) += Ytbeta[0]; 
    5118          #pragma omp atomic 
    51195262         YG1_gcx2( Yi, Yj, YTemps) += Ytbeta[1]; 
    51205263         if (1==0 || Yj+1>YA2_S3dt-1){}  
    … …  
    51325275         Yting[0]=YS1_solsor_dynspg_flt( Yi, Yj, YTemps); 
    51335276         memset(Yjac, 0, 31*sizeof(double)); 
    5134          Ygcx2->backward(); 
     5277         Ygcx2(Yi, Yj)->backward(); 
    51355278         Yvsmatt (YNBS_gcx2, YNBI_gcx2, YMAX_JAC_NBI, &YG1Y_gcx2, Yjac[0], Ytbeta); 
    5136          #pragma omp atomic 
    51375279         YG1_solsor_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[0]; 
    51385280 
    … …  
    52135355         Yting[18]=YS1_solsor_dynspg_flt( Yi-1, Yj-1, YTemps); 
    52145356         memset(Yjac, 0, 31*sizeof(double)); 
    5215          Ysolsor_dynspg_flt->backward(); 
     5357         Ysolsor_dynspg_flt(Yi, Yj)->backward(); 
    52165358         Yvsmatt (YNBS_solsor_dynspg_flt, YNBI_solsor_dynspg_flt, YMAX_JAC_NBI, &YG1Y_solsor_dynspg_flt, Yjac[0], Ytbeta); 
    52175359         if (1==0 || Yi-1<0 || Yj-1<0){}  
    … …  
    52785420         Yting[1]=YS1_gcx2( Yi, Yj, YTemps-2); 
    52795421         memset(Yjac, 0, 31*sizeof(double)); 
    5280          Ygcx_dynspg_flt->backward( Yting[0], Yting[1] ); 
     5422         Ygcx_dynspg_flt(Yi, Yj)->backward( Yting[0], Yting[1] ); 
    52815423         Yvsmatt (YNBS_gcx_dynspg_flt, YNBI_gcx_dynspg_flt, YMAX_JAC_NBI, &YG1Y_gcx_dynspg_flt, Yjac[0], Ytbeta); 
    52825424         YG1_gcx2( Yi, Yj, YTemps-1) += Ytbeta[0]; 
    … …  
    52935435         Yting[3]=YS1_sum_spgv_dynspg_flt( Yi, Yj-1, YTemps); 
    52945436         memset(Yjac, 0, 31*sizeof(double)); 
    5295          Ygcb_dynspg_flt->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5437         Ygcb_dynspg_flt(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    52965438         Yvsmatt (YNBS_gcb_dynspg_flt, YNBI_gcb_dynspg_flt, YMAX_JAC_NBI, &YG1Y_gcb_dynspg_flt, Yjac[0], Ytbeta); 
    52975439         YG1_sum_spgu_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[0]; 
    … …  
    52995441         else  
    53005442         YG1_sum_spgu_dynspg_flt( Yi-1, Yj, YTemps) += Ytbeta[1]; 
    5301          #pragma omp atomic 
    53025443         YG1_sum_spgv_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[2]; 
    53035444         if (1==0 || Yj-1<0){}  
    … …  
    53455486         Yting[30]=YS1_va_1_dynspg_flt( Yi, Yj, 30, YTemps); 
    53465487         memset(Yjac, 0, 31*sizeof(double)); 
    5347          Ysum_spgv_dynspg_flt->backward(); 
     5488         Ysum_spgv_dynspg_flt(Yi, Yj)->backward(); 
    53485489         Yvsmatt (YNBS_sum_spgv_dynspg_flt, YNBI_sum_spgv_dynspg_flt, YMAX_JAC_NBI, &YG1Y_sum_spgv_dynspg_flt, Yjac[0], Ytbeta); 
    53495490         YG1_va_1_dynspg_flt( Yi, Yj, 0, YTemps) += Ytbeta[0]; 
    … …  
    54105551         Yting[30]=YS1_ua_1_dynspg_flt( Yi, Yj, 30, YTemps); 
    54115552         memset(Yjac, 0, 31*sizeof(double)); 
    5412          Ysum_spgu_dynspg_flt->backward(); 
     5553         Ysum_spgu_dynspg_flt(Yi, Yj)->backward(); 
    54135554         Yvsmatt (YNBS_sum_spgu_dynspg_flt, YNBI_sum_spgu_dynspg_flt, YMAX_JAC_NBI, &YG1Y_sum_spgu_dynspg_flt, Yjac[0], Ytbeta); 
    54145555         YG1_ua_1_dynspg_flt( Yi, Yj, 0, YTemps) += Ytbeta[0]; 
    … …  
    54565597         Yting[2]=YS2_spguv_now_dynspg( Yi, Yj, YTemps); 
    54575598         memset(Yjac, 0, 31*sizeof(double)); 
    5458          Yva_1_dynspg_flt->backward( Yting[0], Yting[1], Yting[2] ); 
     5599         Yva_1_dynspg_flt(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
    54595600         Yvsmatt (YNBS_va_1_dynspg_flt, YNBI_va_1_dynspg_flt, YMAX_JAC_NBI, &YG1Y_va_1_dynspg_flt, Yjac[0], Ytbeta); 
    54605601         YG1_va_norm_dynzdf( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    54615602         YG1_vb( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    5462          #pragma omp atomic 
    54635603         YG2_spguv_now_dynspg( Yi, Yj, YTemps) += Ytbeta[2]; 
    54645604         Yting[0]=YS1_ua_norm_dynzdf( Yi, Yj, Yk, YTemps); 
    … …  
    54665606         Yting[2]=YS1_spguv_now_dynspg( Yi, Yj, YTemps); 
    54675607         memset(Yjac, 0, 31*sizeof(double)); 
    5468          Yua_1_dynspg_flt->backward( Yting[0], Yting[1], Yting[2] ); 
     5608         Yua_1_dynspg_flt(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
    54695609         Yvsmatt (YNBS_ua_1_dynspg_flt, YNBI_ua_1_dynspg_flt, YMAX_JAC_NBI, &YG1Y_ua_1_dynspg_flt, Yjac[0], Ytbeta); 
    54705610         YG1_ua_norm_dynzdf( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    54715611         YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    5472          #pragma omp atomic 
    54735612         YG1_spguv_now_dynspg( Yi, Yj, YTemps) += Ytbeta[2]; 
    54745613 
    … …  
    54905629         Yting[2]=YS1_sshn( Yi+1, Yj, YTemps-1); 
    54915630         memset(Yjac, 0, 62*sizeof(double)); 
    5492          Yspguv_now_dynspg->backward( Yting[0], Yting[1], Yting[2] ); 
     5631         Yspguv_now_dynspg(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] ); 
    54935632         Yvsmatt (YNBS_spguv_now_dynspg, YNBI_spguv_now_dynspg, YMAX_JAC_NBI, &YG1Y_spguv_now_dynspg, Yjac[0], Ytbeta); 
    5494          #pragma omp atomic 
    54955633         YG1_sshn( Yi, Yj, YTemps-1) += Ytbeta[0]; 
    54965634         if (1==0 || Yj+1>YA2_S3dt-1){}  
    … …  
    55005638         if (1==0 || Yi+1>YA1_S3dt-1){}  
    55015639         else  
    5502          #pragma omp atomic 
    55035640         YG1_sshn( Yi+1, Yj, YTemps-1) += Ytbeta[2]; 
    55045641 
    … …  
    55145651         Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 
    55155652         memset(Yjac, 0, 31*sizeof(double)); 
    5516          Yva_norm_dynzdf->backward( Yting[0], Yting[1] ); 
     5653         Yva_norm_dynzdf(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
    55175654         Yvsmatt (YNBS_va_norm_dynzdf, YNBI_va_norm_dynzdf, YMAX_JAC_NBI, &YG1Y_va_norm_dynzdf, Yjac[0], Ytbeta); 
    5518          #pragma omp atomic 
    55195655         YG1_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    55205656         YG1_vb( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    … …  
    55225658         Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 
    55235659         memset(Yjac, 0, 31*sizeof(double)); 
    5524          Yua_norm_dynzdf->backward( Yting[0], Yting[1] ); 
     5660         Yua_norm_dynzdf(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
    55255661         Yvsmatt (YNBS_ua_norm_dynzdf, YNBI_ua_norm_dynzdf, YMAX_JAC_NBI, &YG1Y_ua_norm_dynzdf, Yjac[0], Ytbeta); 
    5526          #pragma omp atomic 
    55275662         YG1_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    55285663         YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    … …  
    55425677         Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    55435678         memset(Yjac, 0, 31*sizeof(double)); 
    5544          Yva_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5679         Yva_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    55455680         Yvsmatt (YNBS_va_dynzdf_imp, YNBI_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_va_dynzdf_imp, Yjac[0], Ytbeta); 
    55465681         YG2_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    55585693         Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    55595694         memset(Yjac, 0, 31*sizeof(double)); 
    5560          Yua_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5695         Yua_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    55615696         Yvsmatt (YNBS_ua_dynzdf_imp, YNBI_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_ua_dynzdf_imp, Yjac[0], Ytbeta); 
    55625697         YG2_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    55835718         Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    55845719         memset(Yjac, 0, 31*sizeof(double)); 
    5585          Yva_de_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5720         Yva_de_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    55865721         Yvsmatt (YNBS_va_de_dynzdf_imp, YNBI_va_de_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_va_de_dynzdf_imp, Yjac[0], Ytbeta); 
    55875722         YG1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    56045739         Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    56055740         memset(Yjac, 0, 31*sizeof(double)); 
    5606          Yzwt_va_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5741         Yzwt_va_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    56075742         Yvsmatt (YNBS_zwt_va_dynzdf_imp, YNBI_zwt_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_va_dynzdf_imp, Yjac[0], Ytbeta); 
    56085743         YG1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    56255760         Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    56265761         memset(Yjac, 0, 31*sizeof(double)); 
    5627          Yua_de_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5762         Yua_de_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    56285763         Yvsmatt (YNBS_ua_de_dynzdf_imp, YNBI_ua_de_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_ua_de_dynzdf_imp, Yjac[0], Ytbeta); 
    56295764         YG1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    56465781         Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    56475782         memset(Yjac, 0, 31*sizeof(double)); 
    5648          Yzwt_ua_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5783         Yzwt_ua_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    56495784         Yvsmatt (YNBS_zwt_ua_dynzdf_imp, YNBI_zwt_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_ua_dynzdf_imp, Yjac[0], Ytbeta); 
    56505785         YG1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    56685803         Yting[2]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 
    56695804         memset(Yjac, 0, 31*sizeof(double)); 
    5670          Yzrhs_va_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2] ); 
     5805         Yzrhs_va_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
    56715806         Yvsmatt (YNBS_zrhs_va_dynzdf_imp, YNBI_zrhs_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_va_dynzdf_imp, Yjac[0], Ytbeta); 
    56725807         YG1_va_dyn_hpg_zco( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    56735808         YG1_vb( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    5674          #pragma omp atomic 
    56755809         YG2_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[2]; 
    56765810         Yting[0]=YS1_ua_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 
    … …  
    56785812         Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 
    56795813         memset(Yjac, 0, 31*sizeof(double)); 
    5680          Yzrhs_ua_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2] ); 
     5814         Yzrhs_ua_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
    56815815         Yvsmatt (YNBS_zrhs_ua_dynzdf_imp, YNBI_zrhs_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_ua_dynzdf_imp, Yjac[0], Ytbeta); 
    56825816         YG1_ua_dyn_hpg_zco( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    56835817         YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    5684          #pragma omp atomic 
    56855818         YG1_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[2]; 
    56865819         Yting[0]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps); 
    … …  
    56905823         Yting[1]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 
    56915824         memset(Yjac, 0, 93*sizeof(double)); 
    5692          Yzwisd_va_dynzdf_imp->backward( Yting[0], Yting[1] ); 
     5825         Yzwisd_va_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
    56935826         Yvsmatt (YNBS_zwisd_va_dynzdf_imp, YNBI_zwisd_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_va_dynzdf_imp, Yjac[0], Ytbeta); 
    5694          #pragma omp atomic 
    56955827         YG3_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    56965828         if (1==0 || Yk+1>YA3_S3dt-1){}  
    … …  
    57045836         Yting[1]=YS2_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 
    57055837         memset(Yjac, 0, 93*sizeof(double)); 
    5706          Yzwisd_ua_dynzdf_imp->backward( Yting[0], Yting[1] ); 
     5838         Yzwisd_ua_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
    57075839         Yvsmatt (YNBS_zwisd_ua_dynzdf_imp, YNBI_zwisd_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_ua_dynzdf_imp, Yjac[0], Ytbeta); 
    5708          #pragma omp atomic 
    57095840         YG2_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    57105841         if (1==0 || Yk+1>YA3_S3dt-1){}  
    … …  
    57225853         Yting[1]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 
    57235854         memset(Yjac, 0, 31*sizeof(double)); 
    5724          Yva_dyn_hpg_zco->backward( Yting[0], Yting[1] ); 
     5855         Yva_dyn_hpg_zco(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
    57255856         Yvsmatt (YNBS_va_dyn_hpg_zco, YNBI_va_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_va_dyn_hpg_zco, Yjac[0], Ytbeta); 
    57265857         YG1_va_dyn_ldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    57295860         Yting[1]=YS1_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 
    57305861         memset(Yjac, 0, 31*sizeof(double)); 
    5731          Yua_dyn_hpg_zco->backward( Yting[0], Yting[1] ); 
     5862         Yua_dyn_hpg_zco(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
    57325863         Yvsmatt (YNBS_ua_dyn_hpg_zco, YNBI_ua_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_ua_dyn_hpg_zco, Yjac[0], Ytbeta); 
    57335864         YG1_ua_dyn_ldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    57635894         Yting[7]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk-1, YTemps); 
    57645895         memset(Yjac, 0, 62*sizeof(double)); 
    5765          Yzhpij_dyn_hpg_zco->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 
     5896         Yzhpij_dyn_hpg_zco(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 
    57665897         Yvsmatt (YNBS_zhpij_dyn_hpg_zco, YNBI_zhpij_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_zhpij_dyn_hpg_zco, Yjac[0], Ytbeta); 
    57675898         if (1==0 || Yi+1>YA1_S3dt-1){}  
    … …  
    58085939         Yting[4]=YS1_hdivn( Yi, Yj+1, Yk, YTemps-2); 
    58095940         memset(Yjac, 0, 31*sizeof(double)); 
    5810          Yva_dyn_ldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     5941         Yva_dyn_ldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    58115942         Yvsmatt (YNBS_va_dyn_ldf_lap, YNBI_va_dyn_ldf_lap, YMAX_JAC_NBI, &YG1Y_va_dyn_ldf_lap, Yjac[0], Ytbeta); 
    58125943         YG1_va_vor_ene( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    58315962         Yting[4]=YS1_hdivn( Yi+1, Yj, Yk, YTemps-2); 
    58325963         memset(Yjac, 0, 31*sizeof(double)); 
    5833          Yua_dyn_ldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     5964         Yua_dyn_ldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    58345965         Yvsmatt (YNBS_ua_dyn_ldf_lap, YNBI_ua_dyn_ldf_lap, YMAX_JAC_NBI, &YG1Y_ua_dyn_ldf_lap, Yjac[0], Ytbeta); 
    58355966         YG1_ua_vor_ene( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    58625993         Yting[6]=YS1_zwxyz_vor_ene( Yi, Yj+1, Yk, YTemps); 
    58635994         memset(Yjac, 0, 31*sizeof(double)); 
    5864          Yva_vor_ene->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
     5995         Yva_vor_ene(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
    58655996         Yvsmatt (YNBS_va_vor_ene, YNBI_va_vor_ene, YMAX_JAC_NBI, &YG1Y_va_vor_ene, Yjac[0], Ytbeta); 
    58665997         YG1_va_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    58996030         Yting[6]=YS2_zwxyz_vor_ene( Yi+1, Yj, Yk, YTemps); 
    59006031         memset(Yjac, 0, 31*sizeof(double)); 
    5901          Yua_vor_ene->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
     6032         Yua_vor_ene(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
    59026033         Yvsmatt (YNBS_ua_vor_ene, YNBI_ua_vor_ene, YMAX_JAC_NBI, &YG1Y_ua_vor_ene, Yjac[0], Ytbeta); 
    59036034         YG1_ua_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    59326063         Yting[3]=YS1_va( Yi+1, Yj, Yk, YTemps-1); 
    59336064         memset(Yjac, 0, 93*sizeof(double)); 
    5934          Yzwxyz_vor_ene->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6065         Yzwxyz_vor_ene(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    59356066         Yvsmatt (YNBS_zwxyz_vor_ene, YNBI_zwxyz_vor_ene, YMAX_JAC_NBI, &YG1Y_zwxyz_vor_ene, Yjac[0], Ytbeta); 
    5936          #pragma omp atomic 
    59376067         YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    59386068         if (1==0 || Yj+1>YA2_S3dt-1){}  
    59396069         else  
    5940          #pragma omp atomic 
    59416070         YG1_ua( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[1]; 
    5942          #pragma omp atomic 
    59436071         YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[2]; 
    59446072         if (1==0 || Yi+1>YA1_S3dt-1){}  
    59456073         else  
    5946          #pragma omp atomic 
    59476074         YG1_va( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[3]; 
    59486075 
    … …  
    59646091         Yting[2]=YS1_zva_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 
    59656092         memset(Yjac, 0, 31*sizeof(double)); 
    5966          Yva_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 
     6093         Yva_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
    59676094         Yvsmatt (YNBS_va_dynadv_cen2, YNBI_va_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_va_dynadv_cen2, Yjac[0], Ytbeta); 
    5968          #pragma omp atomic 
    59696095         YG2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    59706096         if (1==0 || Yk+1>YA3_S3dt-1){}  
    … …  
    59806106         Yting[2]=YS1_zua_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 
    59816107         memset(Yjac, 0, 31*sizeof(double)); 
    5982          Yua_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 
     6108         Yua_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
    59836109         Yvsmatt (YNBS_ua_dynadv_cen2, YNBI_ua_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_ua_dynadv_cen2, Yjac[0], Ytbeta); 
    5984          #pragma omp atomic 
    59856110         YG1_zfuv_UW_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    59866111         if (1==0 || Yk+1>YA3_S3dt-1){}  
    … …  
    60186143         Yting[6]=YS1_va( Yi, Yj, Yk-1, YTemps-1); 
    60196144         memset(Yjac, 0, 62*sizeof(double)); 
    6020          Yzfuv_UW_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
     6145         Yzfuv_UW_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
    60216146         Yvsmatt (YNBS_zfuv_UW_dynadv_cen2, YNBI_zfuv_UW_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zfuv_UW_dynadv_cen2, Yjac[0], Ytbeta); 
    6022          #pragma omp atomic 
    60236147         YG1_wa( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    60246148         if (1==0 || Yi+1>YA1_S3dt-1){}  
    60256149         else  
    6026          #pragma omp atomic 
    60276150         YG1_wa( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    60286151         if (1==0 || Yj+1>YA2_S3dt-1){}  
    60296152         else  
    6030          #pragma omp atomic 
    60316153         YG1_wa( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[2]; 
    6032          #pragma omp atomic 
    60336154         YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[3]; 
    60346155         if (1==0 || Yk-1<0){}  
    … …  
    60366157         #pragma omp atomic 
    60376158         YG1_ua( Yi, Yj, Yk-1, YTemps-1) += Ytbeta[4]; 
    6038          #pragma omp atomic 
    60396159         YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[5]; 
    60406160         if (1==0 || Yk-1<0){}  
    … …  
    60636183         Yting[3]=YS4_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 
    60646184         memset(Yjac, 0, 31*sizeof(double)); 
    6065          Yzva_dhmf_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6185         Yzva_dhmf_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    60666186         Yvsmatt (YNBS_zva_dhmf_dynadv_cen2, YNBI_zva_dhmf_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zva_dhmf_dynadv_cen2, Yjac[0], Ytbeta); 
    60676187         YG3_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    60846204         Yting[3]=YS2_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 
    60856205         memset(Yjac, 0, 31*sizeof(double)); 
    6086          Yzua_dhmf_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6206         Yzua_dhmf_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    60876207         Yvsmatt (YNBS_zua_dhmf_dynadv_cen2, YNBI_zua_dhmf_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zua_dhmf_dynadv_cen2, Yjac[0], Ytbeta); 
    60886208         YG1_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    61186238         Yting[5]=YS1_va( Yi, Yj+1, Yk, YTemps-1); 
    61196239         memset(Yjac, 0, 124*sizeof(double)); 
    6120          Yhmf_TF_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] ); 
     6240         Yhmf_TF_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] ); 
    61216241         Yvsmatt (YNBS_hmf_TF_dynadv_cen2, YNBI_hmf_TF_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_hmf_TF_dynadv_cen2, Yjac[0], Ytbeta); 
    6122          #pragma omp atomic 
    61236242         YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    61246243         if (1==0 || Yi+1>YA1_S3dt-1){}  
    61256244         else  
    6126          #pragma omp atomic 
    61276245         YG1_ua( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    61286246         if (1==0 || Yj+1>YA2_S3dt-1){}  
    61296247         else  
    6130          #pragma omp atomic 
    61316248         YG1_ua( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[2]; 
    6132          #pragma omp atomic 
    61336249         YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[3]; 
    61346250         if (1==0 || Yi+1>YA1_S3dt-1){}  
    61356251         else  
    6136          #pragma omp atomic 
    61376252         YG1_va( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[4]; 
    61386253         if (1==0 || Yj+1>YA2_S3dt-1){}  
    61396254         else  
    6140          #pragma omp atomic 
    61416255         YG1_va( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[5]; 
    61426256 
    … …  
    61536267         Yting[0]=YS1_rhd( Yi, Yj, Yk, YTemps); 
    61546268         memset(Yjac, 0, 31*sizeof(double)); 
    6155          Yrhop->backward( Yting[0] ); 
     6269         Yrhop(Yi, Yj, Yk)->backward( Yting[0] ); 
    61566270         Yvsmatt (YNBS_rhop, YNBI_rhop, YMAX_JAC_NBI, &YG1Y_rhop, Yjac[0], Ytbeta); 
    6157          #pragma omp atomic 
    61586271         YG1_rhd( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    61596272         Yting[0]=YS1_tb( Yi, Yj, Yk, YTemps); 
    61606273         Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps); 
    61616274         memset(Yjac, 0, 31*sizeof(double)); 
    6162          Yrhd->backward( Yting[0], Yting[1] ); 
     6275         Yrhd(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
    61636276         Yvsmatt (YNBS_rhd, YNBI_rhd, YMAX_JAC_NBI, &YG1Y_rhd, Yjac[0], Ytbeta); 
    61646277         YG1_tb( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    61786291         Yting[3]=YS1_sa_c( Yi, Yj, Yk); 
    61796292         memset(Yjac, 0, 31*sizeof(double)); 
    6180          Ysb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6293         Ysb(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    61816294         Yvsmatt (YNBS_sb, YNBI_sb, YMAX_JAC_NBI, &YG1Y_sb, Yjac[0], Ytbeta); 
    6182          #pragma omp atomic 
    61836295         YG1_sb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    6184          #pragma omp atomic 
    61856296         YG1_sa( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    6186          #pragma omp atomic 
    61876297         YG1_sa( Yi, Yj, Yk, YTemps) += Ytbeta[2]; 
    61886298         YG1_sa_c( Yi, Yj, Yk) += Ytbeta[3]; 
    … …  
    61926302         Yting[3]=YS1_ta_c( Yi, Yj, Yk); 
    61936303         memset(Yjac, 0, 31*sizeof(double)); 
    6194          Ytb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6304         Ytb(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    61956305         Yvsmatt (YNBS_tb, YNBI_tb, YMAX_JAC_NBI, &YG1Y_tb, Yjac[0], Ytbeta); 
    6196          #pragma omp atomic 
    61976306         YG1_tb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    6198          #pragma omp atomic 
    61996307         YG1_ta( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    6200          #pragma omp atomic 
    62016308         YG1_ta( Yi, Yj, Yk, YTemps) += Ytbeta[2]; 
    62026309         YG1_ta_c( Yi, Yj, Yk) += Ytbeta[3]; 
    … …  
    62176324         Yting[4]=YS1_sa_c( Yi, Yj, Yk); 
    62186325         memset(Yjac, 0, 31*sizeof(double)); 
    6219          Ysa->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6326         Ysa(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    62206327         Yvsmatt (YNBS_sa, YNBI_sa, YMAX_JAC_NBI, &YG1Y_sa, Yjac[0], Ytbeta); 
    62216328         YG2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    62356342         Yting[4]=YS1_ta_c( Yi, Yj, Yk); 
    62366343         memset(Yjac, 0, 31*sizeof(double)); 
    6237          Yta->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6344         Yta(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    62386345         Yvsmatt (YNBS_ta, YNBI_ta, YMAX_JAC_NBI, &YG1Y_ta, Yjac[0], Ytbeta); 
    62396346         YG2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    62616368         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 
    62626369         memset(Yjac, 0, 31*sizeof(double)); 
    6263          Ysa_de_trazdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6370         Ysa_de_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    62646371         Yvsmatt (YNBS_sa_de_trazdf_imp, YNBI_sa_de_trazdf_imp, YMAX_JAC_NBI, &YG1Y_sa_de_trazdf_imp, Yjac[0], Ytbeta); 
    62656372         YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    62826389         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 
    62836390         memset(Yjac, 0, 31*sizeof(double)); 
    6284          Yta_de_trazdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6391         Yta_de_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    62856392         Yvsmatt (YNBS_ta_de_trazdf_imp, YNBI_ta_de_trazdf_imp, YMAX_JAC_NBI, &YG1Y_ta_de_trazdf_imp, Yjac[0], Ytbeta); 
    62866393         YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    63036410         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 
    63046411         memset(Yjac, 0, 31*sizeof(double)); 
    6305          Yzwt_trazdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6412         Yzwt_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    63066413         Yvsmatt (YNBS_zwt_trazdf_imp, YNBI_zwt_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_trazdf_imp, Yjac[0], Ytbeta); 
    63076414         YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    63246431         Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps-1); 
    63256432         memset(Yjac, 0, 31*sizeof(double)); 
    6326          Yzrhs_sa_trazdf_imp->backward( Yting[0], Yting[1] ); 
     6433         Yzrhs_sa_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
    63276434         Yvsmatt (YNBS_zrhs_sa_trazdf_imp, YNBI_zrhs_sa_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_sa_trazdf_imp, Yjac[0], Ytbeta); 
    63286435         YG1_sa_traldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    6329          #pragma omp atomic 
    63306436         YG1_sb( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    63316437         Yting[0]=YS1_ta_traldf_lap( Yi, Yj, Yk, YTemps); 
    63326438         Yting[1]=YS1_tb( Yi, Yj, Yk, YTemps-1); 
    63336439         memset(Yjac, 0, 31*sizeof(double)); 
    6334          Yzrhs_trazdf_imp->backward( Yting[0], Yting[1] ); 
     6440         Yzrhs_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
    63356441         Yvsmatt (YNBS_zrhs_trazdf_imp, YNBI_zrhs_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_trazdf_imp, Yjac[0], Ytbeta); 
    63366442         YG1_ta_traldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    6337          #pragma omp atomic 
    63386443         YG1_tb( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    63396444         Yting[0]=YS1_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps); 
    … …  
    63436448         Yting[1]=YS1_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 
    63446449         memset(Yjac, 0, 93*sizeof(double)); 
    6345          Yzwisd_trazdf_imp->backward( Yting[0], Yting[1] ); 
     6450         Yzwisd_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
    63466451         Yvsmatt (YNBS_zwisd_trazdf_imp, YNBI_zwisd_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_trazdf_imp, Yjac[0], Ytbeta); 
    6347          #pragma omp atomic 
    63486452         YG1_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    63496453         if (1==0 || Yk+1>YA3_S3dt-1){}  
    … …  
    63726476         Yting[4]=YS2_zsuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 
    63736477         memset(Yjac, 0, 31*sizeof(double)); 
    6374          Ysa_traldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6478         Ysa_traldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    63756479         Yvsmatt (YNBS_sa_traldf_lap, YNBI_sa_traldf_lap, YMAX_JAC_NBI, &YG1Y_sa_traldf_lap, Yjac[0], Ytbeta); 
    63766480         YG1_sa_ver_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    63956499         Yting[4]=YS2_ztuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 
    63966500         memset(Yjac, 0, 31*sizeof(double)); 
    6397          Yta_traldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6501         Yta_traldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    63986502         Yvsmatt (YNBS_ta_traldf_lap, YNBI_ta_traldf_lap, YMAX_JAC_NBI, &YG1Y_ta_traldf_lap, Yjac[0], Ytbeta); 
    63996503         YG1_ta_ver_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    64166520         Yting[2]=YS1_sb( Yi, Yj+1, Yk, YTemps-1); 
    64176521         memset(Yjac, 0, 62*sizeof(double)); 
    6418          Yzsuv_traldf_lap->backward( Yting[0], Yting[1], Yting[2] ); 
     6522         Yzsuv_traldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
    64196523         Yvsmatt (YNBS_zsuv_traldf_lap, YNBI_zsuv_traldf_lap, YMAX_JAC_NBI, &YG1Y_zsuv_traldf_lap, Yjac[0], Ytbeta); 
    6420          #pragma omp atomic 
    64216524         YG1_sb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    64226525         if (1==0 || Yi+1>YA1_S3dt-1){}  
    64236526         else  
    6424          #pragma omp atomic 
    64256527         YG1_sb( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    64266528         if (1==0 || Yj+1>YA2_S3dt-1){}  
    64276529         else  
    6428          #pragma omp atomic 
    64296530         YG1_sb( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[2]; 
    64306531         Yting[0]=YS1_tb( Yi, Yj, Yk, YTemps-1); 
    … …  
    64386539         Yting[2]=YS1_tb( Yi, Yj+1, Yk, YTemps-1); 
    64396540         memset(Yjac, 0, 62*sizeof(double)); 
    6440          Yztuv_traldf_lap->backward( Yting[0], Yting[1], Yting[2] ); 
     6541         Yztuv_traldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
    64416542         Yvsmatt (YNBS_ztuv_traldf_lap, YNBI_ztuv_traldf_lap, YMAX_JAC_NBI, &YG1Y_ztuv_traldf_lap, Yjac[0], Ytbeta); 
    6442          #pragma omp atomic 
    64436543         YG1_tb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    64446544         if (1==0 || Yi+1>YA1_S3dt-1){}  
    64456545         else  
    6446          #pragma omp atomic 
    64476546         YG1_tb( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    64486547         if (1==0 || Yj+1>YA2_S3dt-1){}  
    64496548         else  
    6450          #pragma omp atomic 
    64516549         YG1_tb( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[2]; 
    64526550 
    … …  
    64666564         Yting[2]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 
    64676565         memset(Yjac, 0, 31*sizeof(double)); 
    6468          Ysa_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 
     6566         Ysa_ver_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
    64696567         Yvsmatt (YNBS_sa_ver_traadv_cen2, YNBI_sa_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_sa_ver_traadv_cen2, Yjac[0], Ytbeta); 
    64706568         YG1_sa_hor_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    6471          #pragma omp atomic 
    64726569         YG1_zcens_ver_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[1]; 
    64736570         if (1==0 || Yk+1>YA3_S3dt-1){}  
    … …  
    64826579         Yting[2]=YS1_zcent_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 
    64836580         memset(Yjac, 0, 31*sizeof(double)); 
    6484          Yta_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 
     6581         Yta_ver_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
    64856582         Yvsmatt (YNBS_ta_ver_traadv_cen2, YNBI_ta_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_ta_ver_traadv_cen2, Yjac[0], Ytbeta); 
    64866583         YG1_ta_hor_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    6487          #pragma omp atomic 
    64886584         YG1_zcent_ver_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[1]; 
    64896585         if (1==0 || Yk+1>YA3_S3dt-1){}  
    … …  
    65076603         Yting[2]=YS1_sa( Yi, Yj, Yk-1, YTemps-1); 
    65086604         memset(Yjac, 0, 31*sizeof(double)); 
    6509          Yzcens_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 
     6605         Yzcens_ver_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
    65106606         Yvsmatt (YNBS_zcens_ver_traadv_cen2, YNBI_zcens_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcens_ver_traadv_cen2, Yjac[0], Ytbeta); 
    6511          #pragma omp atomic 
    65126607         YG1_wa( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    6513          #pragma omp atomic 
    65146608         YG1_sa( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    65156609         if (1==0 || Yk-1<0){}  
    … …  
    65246618         Yting[2]=YS1_ta( Yi, Yj, Yk-1, YTemps-1); 
    65256619         memset(Yjac, 0, 31*sizeof(double)); 
    6526          Yzcent_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 
     6620         Yzcent_ver_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
    65276621         Yvsmatt (YNBS_zcent_ver_traadv_cen2, YNBI_zcent_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcent_ver_traadv_cen2, Yjac[0], Ytbeta); 
    6528          #pragma omp atomic 
    65296622         YG1_wa( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    6530          #pragma omp atomic 
    65316623         YG1_ta( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    65326624         if (1==0 || Yk-1<0){}  
    … …  
    65566648         Yting[4]=YS2_zcens_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 
    65576649         memset(Yjac, 0, 31*sizeof(double)); 
    6558          Ysa_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6650         Ysa_hor_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    65596651         Yvsmatt (YNBS_sa_hor_traadv_cen2, YNBI_sa_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_sa_hor_traadv_cen2, Yjac[0], Ytbeta); 
    6560          #pragma omp atomic 
    65616652         YG2_ta_sa_trasbc( Yi, Yj, YTemps) += Ytbeta[0]; 
    65626653         if (1==0 || Yi-1<0){}  
    … …  
    65806671         Yting[4]=YS2_zcent_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 
    65816672         memset(Yjac, 0, 31*sizeof(double)); 
    6582          Yta_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6673         Yta_hor_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    65836674         Yvsmatt (YNBS_ta_hor_traadv_cen2, YNBI_ta_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_ta_hor_traadv_cen2, Yjac[0], Ytbeta); 
    65846675         YG1_ta_traqsr( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    66086699         Yting[4]=YS1_sa( Yi+1, Yj, Yk, YTemps-1); 
    66096700         memset(Yjac, 0, 62*sizeof(double)); 
    6610          Yzcens_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6701         Yzcens_hor_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    66116702         Yvsmatt (YNBS_zcens_hor_traadv_cen2, YNBI_zcens_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcens_hor_traadv_cen2, Yjac[0], Ytbeta); 
    6612          #pragma omp atomic 
    66136703         YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    6614          #pragma omp atomic 
    66156704         YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    6616          #pragma omp atomic 
    66176705         YG1_sa( Yi, Yj, Yk, YTemps-1) += Ytbeta[2]; 
    66186706         if (1==0 || Yj+1>YA2_S3dt-1){}  
    66196707         else  
    6620          #pragma omp atomic 
    66216708         YG1_sa( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[3]; 
    66226709         if (1==0 || Yi+1>YA1_S3dt-1){}  
    66236710         else  
    6624          #pragma omp atomic 
    66256711         YG1_sa( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[4]; 
    66266712         Yting[0]=YS1_ua( Yi, Yj, Yk, YTemps-1); 
    … …  
    66366722         Yting[4]=YS1_ta( Yi+1, Yj, Yk, YTemps-1); 
    66376723         memset(Yjac, 0, 62*sizeof(double)); 
    6638          Yzcent_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6724         Yzcent_hor_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    66396725         Yvsmatt (YNBS_zcent_hor_traadv_cen2, YNBI_zcent_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcent_hor_traadv_cen2, Yjac[0], Ytbeta); 
    6640          #pragma omp atomic 
    66416726         YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    6642          #pragma omp atomic 
    66436727         YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
    6644          #pragma omp atomic 
    66456728         YG1_ta( Yi, Yj, Yk, YTemps-1) += Ytbeta[2]; 
    66466729         if (1==0 || Yj+1>YA2_S3dt-1){}  
    66476730         else  
    6648          #pragma omp atomic 
    66496731         YG1_ta( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[3]; 
    66506732         if (1==0 || Yi+1>YA1_S3dt-1){}  
    66516733         else  
    6652          #pragma omp atomic 
    66536734         YG1_ta( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[4]; 
    66546735 
    … …  
    66666747         Yting[1]=YS1_ta_sa_trasbc( Yi, Yj, YTemps); 
    66676748         memset(Yjac, 0, 31*sizeof(double)); 
    6668          Yta_traqsr->backward( Yting[0], Yting[1] ); 
     6749         Yta_traqsr(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
    66696750         Yvsmatt (YNBS_ta_traqsr, YNBI_ta_traqsr, YMAX_JAC_NBI, &YG1Y_ta_traqsr, Yjac[0], Ytbeta); 
    6670          #pragma omp atomic 
    66716751         YG1_sbcgyre_qsr_qns( Yi, Yj, YTemps) += Ytbeta[0]; 
    6672          #pragma omp atomic 
    66736752         YG1_ta_sa_trasbc( Yi, Yj, YTemps) += Ytbeta[1]; 
    66746753 
    … …  
    66846763         Yting[2]=YS1_sa( Yi, Yj, 0, YTemps-1); 
    66856764         memset(Yjac, 0, 62*sizeof(double)); 
    6686          Yta_sa_trasbc->backward( Yting[0], Yting[1], Yting[2] ); 
     6765         Yta_sa_trasbc(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] ); 
    66876766         Yvsmatt (YNBS_ta_sa_trasbc, YNBI_ta_sa_trasbc, YMAX_JAC_NBI, &YG1Y_ta_sa_trasbc, Yjac[0], Ytbeta); 
    66886767         YG2_sbcgyre_qsr_qns( Yi, Yj, YTemps) += Ytbeta[0]; 
    66896768         YG1_sbcgyre_emps( Yi, Yj, YTemps) += Ytbeta[1]; 
    6690          #pragma omp atomic 
    66916769         YG1_sa( Yi, Yj, 0, YTemps-1) += Ytbeta[2]; 
    66926770 
    … …  
    67306808         Yting[30]=YS1_rhop( Yi, Yj, 30, YTemps-1); 
    67316809         memset(Yjac, 0, 93*sizeof(double)); 
    6732          Yzdfmxl_nmln_hmlp_hmlpt->backward(); 
     6810         Yzdfmxl_nmln_hmlp_hmlpt(Yi, Yj)->backward(); 
    67336811         Yvsmatt (YNBS_zdfmxl_nmln_hmlp_hmlpt, YNBI_zdfmxl_nmln_hmlp_hmlpt, YMAX_JAC_NBI, &YG1Y_zdfmxl_nmln_hmlp_hmlpt, Yjac[0], Ytbeta); 
    67346812         YG1_rhop( Yi, Yj, 0, YTemps-1) += Ytbeta[0]; 
    … …  
    67956873         Yting[30]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 30, YTemps); 
    67966874         memset(Yjac, 0, 31*sizeof(double)); 
    6797          Yzdfmxl_hmld->backward(); 
     6875         Yzdfmxl_hmld(Yi, Yj)->backward(); 
    67986876         Yvsmatt (YNBS_zdfmxl_hmld, YNBI_zdfmxl_hmld, YMAX_JAC_NBI, &YG1Y_zdfmxl_hmld, Yjac[0], Ytbeta); 
    67996877         YG1_zdf_avt_avmu_avmv( Yi, Yj, 0, YTemps) += Ytbeta[0]; 
    … …  
    68996977         Yting[18]=YS1_va( Yi+1, Yj, 1, YTemps-1); 
    69006978         memset(Yjac, 0, 93*sizeof(double)); 
    6901          Yzdf_avt_avmu_avmv->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8], Yting[9], Yting[10], Yting[11], Yting[12], Yting[13], Yting[14], Yting[15], Yting[16], Yting[17], Yting[18] ); 
     6979         Yzdf_avt_avmu_avmv(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8], Yting[9], Yting[10], Yting[11], Yting[12], Yting[13], Yting[14], Yting[15], Yting[16], Yting[17], Yting[18] ); 
    69026980         Yvsmatt (YNBS_zdf_avt_avmu_avmv, YNBI_zdf_avt_avmu_avmv, YMAX_JAC_NBI, &YG1Y_zdf_avt_avmu_avmv, Yjac[0], Ytbeta); 
    69036981         YG1_bn2_rn2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    69847062         Yting[3]=YS1_sb( Yi, Yj, Yk-1, YTemps-1); 
    69857063         memset(Yjac, 0, 31*sizeof(double)); 
    6986          Ybn2_rn2->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     7064         Ybn2_rn2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    69877065         Yvsmatt (YNBS_bn2_rn2, YNBI_bn2_rn2, YMAX_JAC_NBI, &YG1Y_bn2_rn2, Yjac[0], Ytbeta); 
    6988          #pragma omp atomic 
    69897066         YG1_tb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    69907067         if (1==0 || Yk-1<0){}  
    … …  
    69927069         #pragma omp atomic 
    69937070         YG1_tb( Yi, Yj, Yk-1, YTemps-1) += Ytbeta[1]; 
    6994          #pragma omp atomic 
    69957071         YG1_sb( Yi, Yj, Yk, YTemps-1) += Ytbeta[2]; 
    69967072         if (1==0 || Yk-1<0){}  
    … …  
    70157091         Yting[3]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 
    70167092         memset(Yjac, 0, 31*sizeof(double)); 
    7017          Ysbcgyre_wndm->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     7093         Ysbcgyre_wndm(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    70187094         Yvsmatt (YNBS_sbcgyre_wndm, YNBI_sbcgyre_wndm, YMAX_JAC_NBI, &YG1Y_sbcgyre_wndm, Yjac[0], Ytbeta); 
    70197095         if (1==0 || Yi-1<0){}  
    … …  
    70257101         YG1_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[2]; 
    70267102         YG2_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[3]; 
    7027          Ysbcgyre_utau_vtau->backward(); 
     7103         Ysbcgyre_utau_vtau(Yi, Yj)->backward(); 
    70287104         Yting[0]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 
    70297105         memset(Yjac, 0, 31*sizeof(double)); 
    7030          Ysbcgyre_emps->backward( Yting[0] ); 
     7106         Ysbcgyre_emps(Yi, Yj)->backward( Yting[0] ); 
    70317107         Yvsmatt (YNBS_sbcgyre_emps, YNBI_sbcgyre_emps, YMAX_JAC_NBI, &YG1Y_sbcgyre_emps, Yjac[0], Ytbeta); 
    70327108         YG1_sbcgyre_emp( Yi, Yj, YTemps) += Ytbeta[0]; 
    … …  
    70357111         Yting[2]=YS2_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 
    70367112         memset(Yjac, 0, 31*sizeof(double)); 
    7037          Ysbcgyre_emp->backward( Yting[0], Yting[1], Yting[2] ); 
     7113         Ysbcgyre_emp(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] ); 
    70387114         Yvsmatt (YNBS_sbcgyre_emp, YNBI_sbcgyre_emp, YMAX_JAC_NBI, &YG1Y_sbcgyre_emp, Yjac[0], Ytbeta); 
    70397115         YG1_sbcgyre_emp1( Yi, Yj, YTemps) += Ytbeta[0]; 
    … …  
    70637139         Yting[4]=YS1_sbcgyre_emp1( Yi, Yj, YTemps); 
    70647140         memset(Yjac, 0, 62*sizeof(double)); 
    7065          Ysbcgyre_zsumemp_zsurf->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     7141         Ysbcgyre_zsumemp_zsurf(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    70667142         Yvsmatt (YNBS_sbcgyre_zsumemp_zsurf, YNBI_sbcgyre_zsumemp_zsurf, YMAX_JAC_NBI, &YG1Y_sbcgyre_zsumemp_zsurf, Yjac[0], Ytbeta); 
    70677143         if (1==0 || Yi-1<0){}  
    … …  
    70787154         YG2_sbcgyre_zsumemp_zsurf( 31, Yj-1, YTemps) += Ytbeta[3]; 
    70797155         YG1_sbcgyre_emp1( Yi, Yj, YTemps) += Ytbeta[4]; 
    7080          Ysbcgyre_emp1->backward(); 
     7156         Ysbcgyre_emp1(Yi, Yj)->backward(); 
    70817157         Yting[0]=YS1_tb( Yi, Yj, 0, YTemps-1); 
    70827158         memset(Yjac, 0, 62*sizeof(double)); 
    7083          Ysbcgyre_qsr_qns->backward( Yting[0] ); 
     7159         Ysbcgyre_qsr_qns(Yi, Yj)->backward( Yting[0] ); 
    70847160         Yvsmatt (YNBS_sbcgyre_qsr_qns, YNBI_sbcgyre_qsr_qns, YMAX_JAC_NBI, &YG1Y_sbcgyre_qsr_qns, Yjac[0], Ytbeta); 
    70857161         YG1_tb( Yi, Yj, 0, YTemps-1) += Ytbeta[0]; 
    … …  
    71237199} 
    71247200 
    7125 // ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ LES FONCTIONS UTILISATEUR ... :  
     7201// € € € € € € € € LES FONCTIONS UTILISATEUR ... :  
    71267202int Yuser_call (int argc, char *argv[])  
    71277203{ 

  • trunk/src/Yworkdir/Yaoext_sinobad

    r42 r44  
    1  
    2 #---------------------------------------------------- 
    3 # project: sinobad     header generated by YAO version v.9 
    4 #---------------------------------------------------- 
    5  
    61#!/bin/sh  
    72LDYEXTOBJ=" ../object/ncutil.o "  

  • trunk/src/cost.dat

    r41 r44  
    11 0.0000000000000000e+00 
    2  0.0000000000000000e+00 
    3  0.0000000000000000e+00 
    4  2.9733593674719423e+03 
    5  5.4561410776679122e+02 
    6  2.4475352252509134e+02 
    7  2.6358555318068841e+02 
    8  2.1527711430855038e+02 
    9  2.0204126463990215e+02 
    10  2.1416662011590833e+02 
    11  2.0207208737645496e+02 
    12  2.0211049147089304e+02 
    13  2.0235703823123197e+02 
    14  2.0019969413511828e+02 
    15  2.2286623273509434e+02 
    16  1.9878349444274735e+02 
    17  2.0070292696001030e+02 
    18  2.0014258993979595e+02 
    19  1.9972801663599338e+02 
    20  1.9293537153893590e+02 
    21  2.0814944891652880e+02 
    22  1.8213155756443817e+02 
    23  1.7950672225933866e+02 
    24  1.8080233872884580e+02 
    25  1.7876027971923725e+02 
    26  2.0259497236690703e+02 
    27  1.7881103040469617e+02 
    28  1.7886996041817454e+02 
    29  1.7907554124113310e+02 
    30  1.8045371934564810e+02 
    31  1.7569372841627006e+02 
    32  1.9113648527038990e+02 
    33  1.7516955251891332e+02 
    34  1.9550146370923514e+02 
    35  1.7455342251319595e+02 
    36  2.1077987977826763e+02 
    37  1.7473743190883036e+02 
    38  1.7476659805882767e+02 
    39  1.7491607437730161e+02 
    40  1.7534570209262407e+02 
    41  1.7146968928574532e+02 
    42  1.7918664114219453e+02 
    43  1.7311809756377912e+02 
    44  1.7320818032615955e+02 
    45  1.7322190117805096e+02 
    46  1.7328346667692077e+02 
    47  1.7390681350015083e+02 
    48  1.7091883954920155e+02 
    49  1.7074257389516592e+02 
    50  1.7423942813610816e+02 
    51  1.7069031205380722e+02 
    52  1.7425456057653693e+02 
    53  1.7425631257707835e+02 
    54  1.7425753342598696e+02 

  • trunk/src/sinobad.d

    r38 r44  
    99defval NY      22   
    1010defval NZ      31  
    11 defval TA      50 |50 | number of time steps 
     11defval TA      10 |50 | number of time steps 
    1212defval TU       2 | start time step 
    1313#exec disp_valdef 

  • trunk/src/solsor_dynspg_flt.h

    r38 r44  
    99forward () 
    1010{ 
     11  FILE * fid; 
     12  
    1113  if(Yt==TU) 
    1214    return; 
    … …  
    3638      } 
    3739       
     40      /*test solsor */ 
     41      if (Yt==TU+1) { 
     42       
     43      fid=fopen("../data_out/test_solsor_mb","w"); 
     44      } 
     45 
    3846      double ztmp,zres,zres2,res=0.; 
    3947      //--------------------- 
    … …  
    5967            //               ! Guess update 
    6068            gcx(ji,jj) = sor * ztmp + (1.-sor) * gcx(ji,jj); 
     69  
     70 
     71            /*test solsor */ 
     72            if (Yt==TU+1) { 
     73               
     74              fprintf(fid,"%d\t%d\t%d\t%e\t%e\n",jn,jj,ji,gcx(ji,jj),gcr(ji,jj)); 
     75            } 
     76 
     77 
    6178          } 
    6279        } 
    … …  
    8097            //               ! Guess update 
    8198            gcx(ji,jj) = sor * ztmp + (1.-sor) * gcx(ji,jj); 
     99 
     100            /*test solsor */ 
     101            if (Yt==TU+1) { 
     102               
     103              fprintf(fid,"%d\t%d\t%d\t%e\t%e\n",jn,jj,ji,gcx(ji,jj),gcr(ji,jj)); 
     104            } 
    82105          } 
    83106        } 
    … …  
    96119            niter = jn; tniter[Yt]=jn; 
    97120            ncut = 999; 
    98             //      printf("FOR=======tniter(%d)=%d\n",Yt,tniter[Yt]); 
     121              printf("FOR=======tniter(%d)=%d\n",Yt,tniter[Yt]); 
    99122          } 
    100123        } 
    … …  
    117140      /*      xtest("gcx",gcx(28,3),28,3,0,Yt); 
    118141              xtest("gcb",YS_gcb_dynspg_flt(0,28,3,Yt),28,3,0,Yt); */ 
     142    /*test solsor */ 
     143    if (Yt==TU+1) { 
     144      fclose(fid); 
     145    } 
     146     
     147    
    119148    } 
    120149  } 

  • trunk/src/solsor_flag.h

    r41 r44  
    11/*************************************************************************** 
    2                  module classe solsor_dynspg_flt.h  -  description 
     2                 module classe solsor_flag.h  -  description 
    33***************************************************************************/ 
    44// Julien Brajard 
    … …  
    99{ 
    1010/*      1       from    solsor_gcx_gcr          2  i    j    k    t 
    11         2       from    solsor_flag             1  i    j    k-1  t 
    12         3       from    solsor_flag             1  i-1  j    k  t 
     11        2       from    solsor_flag             2  NX   NY    k-1  t 
     12        3       from    solsor_flag             1  i-1  NY    k  t 
    1313        4       from    solsor_flag             1  i    j-1  k  t 
    1414}  
    … …  
    2020//jn (current iteration) = Yk+1 
    2121 
    22 if (Yk<nmin) 
     22if (Yk<=nmin) 
    2323{ 
    2424  YS1=0; 
    25  YS2=0; 
    26 } 
     25  YS2=0; 
     26 } 
    2727 else { 
    28    if (Yi==0 & Yj==0) YS1=0 
    29       
    30  } //Yk>=nmin 
     28if (x2 == 1) { 
     29   YS1=0; //plus besoin d'avoir la valeur du max 
     30   YS2=1; 
     31 } 
     32 else { 
     33 
     34   if ( (Yi==0) & (Yj==0) ) {  
     35     YS1=x1; 
     36   } 
     37   else { 
     38     if (Yj==0) YS1= ((x3<x1) ? x1 : x3) ; //max(x1,x3) 
     39     else YS1 = ((x4<x1) ? x1 : x4) ; // max(x1,x4) 
     40     if ( ( (Yi==NX-1) & (Yj ==NX-1) ) & (YS1< resmax)) YS2=1; //moment de tester le maximum        
     41     else YS2=0;      
     42   } // Yi>0 || Yj>0 
     43 }  //x2==0 
     44 } //Yk>kmin 
     45 
     46//=========================================================================== 
     47//                          methode backward 
     48 
     49backward () 
     50{ 
     51 } 
Note: See TracChangeset for help on using the changeset viewer.