Changeset 42 for trunk/src


Ignore:
Timestamp:
04/26/11 16:11:06 (13 years ago)
Author:
jbrlod
Message:

finish ref run batch parallel and sequentiel

Location:
trunk/src
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/src/Yworkdir/Y1sinobad.h

    r38 r42  
    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 
    … …  
    6868/*NBMOD     */ #define   YNB_sshn_c      704 
    6969/*NBSMOD    */ #define   YNBS_sshn_c     1 
    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]  
    80 Yaosshn_c                *Ysshn_c[YA1_S3d][YA2_S3d]; 
     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]  
     78Yaosshn_c                *Ysshn_c; 
    8179 
    8280//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_c~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    8886class Yaota_c; 
    8987/*NBSMOD    */ #define   YNBS_ta_c       1 
    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]  
    103 Yaota_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]  
     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]  
     99Yaota_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]  
    108104 
    109105//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_c~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    112108class Yaosa_c; 
    113109/*NBSMOD    */ #define   YNBS_sa_c       1 
    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]  
    124 Yaosa_c                  *Ysa_c[YA1_S3d][YA2_S3d][YA3_S3d]; 
     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]  
     118Yaosa_c                  *Ysa_c; 
    125119 
    126120//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_c~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    129123class Yaoua_c; 
    130124/*NBSMOD    */ #define   YNBS_ua_c       1 
    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]  
    141 Yaoua_c                  *Yua_c[YA1_S3d][YA2_S3d][YA3_S3d]; 
     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]  
     133Yaoua_c                  *Yua_c; 
    142134 
    143135//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_c~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    146138class Yaova_c; 
    147139/*NBSMOD    */ #define   YNBS_va_c       1 
    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]  
    158 Yaova_c                  *Yva_c[YA1_S3d][YA2_S3d][YA3_S3d]; 
     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]  
     148Yaova_c                  *Yva_c; 
    159149 
    160150//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_qsr_qns~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    166156/*NBSMOD    */ #define   YNBS_sbcgyre_qsr_qns    2 
    167157/*NBIMOD    */ #define   YNBI_sbcgyre_qsr_qns    1 
    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]  
    182 sbcgyre_qsr_qns                  *Ysbcgyre_qsr_qns[YA1_S3dt][YA2_S3dt]; 
     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]  
     170sbcgyre_qsr_qns                  *Ysbcgyre_qsr_qns; 
    183171 
    184172//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emp1~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    189177/*NBMOD     */ #define   YNB_sbcgyre_emp1        704 
    190178/*NBSMOD    */ #define   YNBS_sbcgyre_emp1       1 
    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]  
    201 sbcgyre_emp1             *Ysbcgyre_emp1[YA1_S3dt][YA2_S3dt]; 
     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]  
     187sbcgyre_emp1             *Ysbcgyre_emp1; 
    202188 
    203189//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_zsumemp_zsurf~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    209195/*NBSMOD    */ #define   YNBS_sbcgyre_zsumemp_zsurf      2 
    210196/*NBIMOD    */ #define   YNBI_sbcgyre_zsumemp_zsurf      5 
    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]  
    225 sbcgyre_zsumemp_zsurf            *Ysbcgyre_zsumemp_zsurf[YA1_S3dt][YA2_S3dt]; 
     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]  
     209sbcgyre_zsumemp_zsurf            *Ysbcgyre_zsumemp_zsurf; 
    226210 
    227211//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    233217/*NBSMOD    */ #define   YNBS_sbcgyre_emp        1 
    234218/*NBIMOD    */ #define   YNBI_sbcgyre_emp        3 
    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]  
    245 sbcgyre_emp              *Ysbcgyre_emp[YA1_S3dt][YA2_S3dt]; 
     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]  
     227sbcgyre_emp              *Ysbcgyre_emp; 
    246228 
    247229//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emps~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    253235/*NBSMOD    */ #define   YNBS_sbcgyre_emps       1 
    254236/*NBIMOD    */ #define   YNBI_sbcgyre_emps       1 
    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]  
    265 sbcgyre_emps             *Ysbcgyre_emps[YA1_S3dt][YA2_S3dt]; 
     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]  
     245sbcgyre_emps             *Ysbcgyre_emps; 
    266246 
    267247//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_utau_vtau~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    272252/*NBMOD     */ #define   YNB_sbcgyre_utau_vtau   704 
    273253/*NBSMOD    */ #define   YNBS_sbcgyre_utau_vtau          2 
    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]  
    288 sbcgyre_utau_vtau                *Ysbcgyre_utau_vtau[YA1_S3dt][YA2_S3dt]; 
     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]  
     266sbcgyre_utau_vtau                *Ysbcgyre_utau_vtau; 
    289267 
    290268//~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_wndm~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    296274/*NBSMOD    */ #define   YNBS_sbcgyre_wndm       1 
    297275/*NBIMOD    */ #define   YNBI_sbcgyre_wndm       4 
    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]  
    308 sbcgyre_wndm             *Ysbcgyre_wndm[YA1_S3dt][YA2_S3dt]; 
     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]  
     284sbcgyre_wndm             *Ysbcgyre_wndm; 
    309285 
    310286//~~~~~~~~~~~~~~~~~~~~~~~~~ module bn2_rn2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    315291/*NBSMOD    */ #define   YNBS_bn2_rn2    1 
    316292/*NBIMOD    */ #define   YNBI_bn2_rn2    4 
    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]  
    327 bn2_rn2                  *Ybn2_rn2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     301bn2_rn2                  *Ybn2_rn2; 
    328302 
    329303//~~~~~~~~~~~~~~~~~~~~~~~~~ module zdf_avt_avmu_avmv~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    334308/*NBSMOD    */ #define   YNBS_zdf_avt_avmu_avmv          3 
    335309/*NBIMOD    */ #define   YNBI_zdf_avt_avmu_avmv          19 
    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]  
    354 zdf_avt_avmu_avmv                *Yzdf_avt_avmu_avmv[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     326zdf_avt_avmu_avmv                *Yzdf_avt_avmu_avmv; 
    355327 
    356328//~~~~~~~~~~~~~~~~~~~~~~~~~ module zdfmxl_hmld~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    362334/*NBSMOD    */ #define   YNBS_zdfmxl_hmld        1 
    363335/*NBIMOD    */ #define   YNBI_zdfmxl_hmld        31 
    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]  
    374 zdfmxl_hmld              *Yzdfmxl_hmld[YA1_S3dt][YA2_S3dt]; 
     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]  
     344zdfmxl_hmld              *Yzdfmxl_hmld; 
    375345 
    376346//~~~~~~~~~~~~~~~~~~~~~~~~~ module zdfmxl_nmln_hmlp_hmlpt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    382352/*NBSMOD    */ #define   YNBS_zdfmxl_nmln_hmlp_hmlpt     3 
    383353/*NBIMOD    */ #define   YNBI_zdfmxl_nmln_hmlp_hmlpt     31 
    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]  
    402 zdfmxl_nmln_hmlp_hmlpt           *Yzdfmxl_nmln_hmlp_hmlpt[YA1_S3dt][YA2_S3dt]; 
     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]  
     370zdfmxl_nmln_hmlp_hmlpt           *Yzdfmxl_nmln_hmlp_hmlpt; 
    403371 
    404372//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_sa_trasbc~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    410378/*NBSMOD    */ #define   YNBS_ta_sa_trasbc       2 
    411379/*NBIMOD    */ #define   YNBI_ta_sa_trasbc       3 
    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]  
    426 ta_sa_trasbc             *Yta_sa_trasbc[YA1_S3dt][YA2_S3dt]; 
     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]  
     392ta_sa_trasbc             *Yta_sa_trasbc; 
    427393 
    428394//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_traqsr~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    433399/*NBSMOD    */ #define   YNBS_ta_traqsr          1 
    434400/*NBIMOD    */ #define   YNBI_ta_traqsr          2 
    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]  
    445 ta_traqsr                *Yta_traqsr[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     409ta_traqsr                *Yta_traqsr; 
    446410 
    447411//~~~~~~~~~~~~~~~~~~~~~~~~~ module zcent_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    452416/*NBSMOD    */ #define   YNBS_zcent_hor_traadv_cen2      2 
    453417/*NBIMOD    */ #define   YNBI_zcent_hor_traadv_cen2      5 
    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]  
    468 zcent_hor_traadv_cen2            *Yzcent_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     430zcent_hor_traadv_cen2            *Yzcent_hor_traadv_cen2; 
    469431 
    470432//~~~~~~~~~~~~~~~~~~~~~~~~~ module zcens_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    473435/*NBSMOD    */ #define   YNBS_zcens_hor_traadv_cen2      2 
    474436/*NBIMOD    */ #define   YNBI_zcens_hor_traadv_cen2      5 
    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]  
    489 zcens_hor_traadv_cen2            *Yzcens_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     449zcens_hor_traadv_cen2            *Yzcens_hor_traadv_cen2; 
    490450 
    491451//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    496456/*NBSMOD    */ #define   YNBS_ta_hor_traadv_cen2         1 
    497457/*NBIMOD    */ #define   YNBI_ta_hor_traadv_cen2         5 
    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]  
    508 ta_hor_traadv_cen2               *Yta_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     466ta_hor_traadv_cen2               *Yta_hor_traadv_cen2; 
    509467 
    510468//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    515473/*NBSMOD    */ #define   YNBS_sa_hor_traadv_cen2         1 
    516474/*NBIMOD    */ #define   YNBI_sa_hor_traadv_cen2         5 
    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]  
    527 sa_hor_traadv_cen2               *Ysa_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     483sa_hor_traadv_cen2               *Ysa_hor_traadv_cen2; 
    528484 
    529485//~~~~~~~~~~~~~~~~~~~~~~~~~ module zcent_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    534490/*NBSMOD    */ #define   YNBS_zcent_ver_traadv_cen2      1 
    535491/*NBIMOD    */ #define   YNBI_zcent_ver_traadv_cen2      3 
    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]  
    546 zcent_ver_traadv_cen2            *Yzcent_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     500zcent_ver_traadv_cen2            *Yzcent_ver_traadv_cen2; 
    547501 
    548502//~~~~~~~~~~~~~~~~~~~~~~~~~ module zcens_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    551505/*NBSMOD    */ #define   YNBS_zcens_ver_traadv_cen2      1 
    552506/*NBIMOD    */ #define   YNBI_zcens_ver_traadv_cen2      3 
    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]  
    563 zcens_ver_traadv_cen2            *Yzcens_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     515zcens_ver_traadv_cen2            *Yzcens_ver_traadv_cen2; 
    564516 
    565517//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    570522/*NBSMOD    */ #define   YNBS_ta_ver_traadv_cen2         1 
    571523/*NBIMOD    */ #define   YNBI_ta_ver_traadv_cen2         3 
    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]  
    582 ta_ver_traadv_cen2               *Yta_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     532ta_ver_traadv_cen2               *Yta_ver_traadv_cen2; 
    583533 
    584534//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    587537/*NBSMOD    */ #define   YNBS_sa_ver_traadv_cen2         1 
    588538/*NBIMOD    */ #define   YNBI_sa_ver_traadv_cen2         3 
    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]  
    599 sa_ver_traadv_cen2               *Ysa_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     547sa_ver_traadv_cen2               *Ysa_ver_traadv_cen2; 
    600548 
    601549//~~~~~~~~~~~~~~~~~~~~~~~~~ module ztuv_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    606554/*NBSMOD    */ #define   YNBS_ztuv_traldf_lap    2 
    607555/*NBIMOD    */ #define   YNBI_ztuv_traldf_lap    3 
    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]  
    622 ztuv_traldf_lap                  *Yztuv_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     568ztuv_traldf_lap                  *Yztuv_traldf_lap; 
    623569 
    624570//~~~~~~~~~~~~~~~~~~~~~~~~~ module zsuv_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    627573/*NBSMOD    */ #define   YNBS_zsuv_traldf_lap    2 
    628574/*NBIMOD    */ #define   YNBI_zsuv_traldf_lap    3 
    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]  
    643 zsuv_traldf_lap                  *Yzsuv_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     587zsuv_traldf_lap                  *Yzsuv_traldf_lap; 
    644588 
    645589//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    650594/*NBSMOD    */ #define   YNBS_ta_traldf_lap      1 
    651595/*NBIMOD    */ #define   YNBI_ta_traldf_lap      5 
    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]  
    662 ta_traldf_lap            *Yta_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     604ta_traldf_lap            *Yta_traldf_lap; 
    663605 
    664606//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    667609/*NBSMOD    */ #define   YNBS_sa_traldf_lap      1 
    668610/*NBIMOD    */ #define   YNBI_sa_traldf_lap      5 
    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]  
    679 sa_traldf_lap            *Ysa_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     619sa_traldf_lap            *Ysa_traldf_lap; 
    680620 
    681621//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    686626/*NBSMOD    */ #define   YNBS_zwisd_trazdf_imp   3 
    687627/*NBIMOD    */ #define   YNBI_zwisd_trazdf_imp   2 
    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]  
    706 zwisd_trazdf_imp                 *Yzwisd_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     644zwisd_trazdf_imp                 *Yzwisd_trazdf_imp; 
    707645 
    708646//~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    713651/*NBSMOD    */ #define   YNBS_zrhs_trazdf_imp    1 
    714652/*NBIMOD    */ #define   YNBI_zrhs_trazdf_imp    2 
    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]  
    725 zrhs_trazdf_imp                  *Yzrhs_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     661zrhs_trazdf_imp                  *Yzrhs_trazdf_imp; 
    726662 
    727663//~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_sa_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    730666/*NBSMOD    */ #define   YNBS_zrhs_sa_trazdf_imp         1 
    731667/*NBIMOD    */ #define   YNBI_zrhs_sa_trazdf_imp         2 
    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]  
    742 zrhs_sa_trazdf_imp               *Yzrhs_sa_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     676zrhs_sa_trazdf_imp               *Yzrhs_sa_trazdf_imp; 
    743677 
    744678//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    749683/*NBSMOD    */ #define   YNBS_zwt_trazdf_imp     1 
    750684/*NBIMOD    */ #define   YNBI_zwt_trazdf_imp     4 
    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]  
    761 zwt_trazdf_imp           *Yzwt_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     693zwt_trazdf_imp           *Yzwt_trazdf_imp; 
    762694 
    763695//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_de_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    766698/*NBSMOD    */ #define   YNBS_ta_de_trazdf_imp   1 
    767699/*NBIMOD    */ #define   YNBI_ta_de_trazdf_imp   4 
    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]  
    778 ta_de_trazdf_imp                 *Yta_de_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     708ta_de_trazdf_imp                 *Yta_de_trazdf_imp; 
    779709 
    780710//~~~~~~~~~~~~~~~~~~~~~~~~~ module ta~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    785715/*NBSMOD    */ #define   YNBS_ta         1 
    786716/*NBIMOD    */ #define   YNBI_ta         5 
    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]  
    797 ta               *Yta[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     725ta               *Yta; 
    798726 
    799727//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_de_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    802730/*NBSMOD    */ #define   YNBS_sa_de_trazdf_imp   1 
    803731/*NBIMOD    */ #define   YNBI_sa_de_trazdf_imp   4 
    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]  
    814 sa_de_trazdf_imp                 *Ysa_de_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     740sa_de_trazdf_imp                 *Ysa_de_trazdf_imp; 
    815741 
    816742//~~~~~~~~~~~~~~~~~~~~~~~~~ module sa~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    821747/*NBSMOD    */ #define   YNBS_sa         1 
    822748/*NBIMOD    */ #define   YNBI_sa         5 
    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]  
    833 sa               *Ysa[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     757sa               *Ysa; 
    834758 
    835759//~~~~~~~~~~~~~~~~~~~~~~~~~ module tb~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    840764/*NBSMOD    */ #define   YNBS_tb         1 
    841765/*NBIMOD    */ #define   YNBI_tb         4 
    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]  
    852 tb               *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]  
     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]  
     774tb               *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]  
    857779 
    858780//~~~~~~~~~~~~~~~~~~~~~~~~~ module sb~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    863785/*NBSMOD    */ #define   YNBS_sb         1 
    864786/*NBIMOD    */ #define   YNBI_sb         4 
    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]  
    875 sb               *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]  
     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]  
     795sb               *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]  
    880800 
    881801//~~~~~~~~~~~~~~~~~~~~~~~~~ module rhd~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    886806/*NBSMOD    */ #define   YNBS_rhd        1 
    887807/*NBIMOD    */ #define   YNBI_rhd        2 
    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]  
    898 rhd              *Yrhd[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     816rhd              *Yrhd; 
    899817 
    900818//~~~~~~~~~~~~~~~~~~~~~~~~~ module rhop~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    905823/*NBSMOD    */ #define   YNBS_rhop       1 
    906824/*NBIMOD    */ #define   YNBI_rhop       1 
    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]  
    917 rhop             *Yrhop[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     833rhop             *Yrhop; 
    918834 
    919835//~~~~~~~~~~~~~~~~~~~~~~~~~ module hmf_TF_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    924840/*NBSMOD    */ #define   YNBS_hmf_TF_dynadv_cen2         4 
    925841/*NBIMOD    */ #define   YNBI_hmf_TF_dynadv_cen2         6 
    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]  
    948 hmf_TF_dynadv_cen2               *Yhmf_TF_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     862hmf_TF_dynadv_cen2               *Yhmf_TF_dynadv_cen2; 
    949863 
    950864//~~~~~~~~~~~~~~~~~~~~~~~~~ module zua_dhmf_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    955869/*NBSMOD    */ #define   YNBS_zua_dhmf_dynadv_cen2       1 
    956870/*NBIMOD    */ #define   YNBI_zua_dhmf_dynadv_cen2       4 
    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]  
    967 zua_dhmf_dynadv_cen2             *Yzua_dhmf_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     879zua_dhmf_dynadv_cen2             *Yzua_dhmf_dynadv_cen2; 
    968880 
    969881//~~~~~~~~~~~~~~~~~~~~~~~~~ module zva_dhmf_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    974886/*NBSMOD    */ #define   YNBS_zva_dhmf_dynadv_cen2       1 
    975887/*NBIMOD    */ #define   YNBI_zva_dhmf_dynadv_cen2       4 
    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]  
    986 zva_dhmf_dynadv_cen2             *Yzva_dhmf_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     896zva_dhmf_dynadv_cen2             *Yzva_dhmf_dynadv_cen2; 
    987897 
    988898//~~~~~~~~~~~~~~~~~~~~~~~~~ module zfuv_UW_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    993903/*NBSMOD    */ #define   YNBS_zfuv_UW_dynadv_cen2        2 
    994904/*NBIMOD    */ #define   YNBI_zfuv_UW_dynadv_cen2        7 
    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]  
    1009 zfuv_UW_dynadv_cen2              *Yzfuv_UW_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     917zfuv_UW_dynadv_cen2              *Yzfuv_UW_dynadv_cen2; 
    1010918 
    1011919//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    1016924/*NBSMOD    */ #define   YNBS_ua_dynadv_cen2     1 
    1017925/*NBIMOD    */ #define   YNBI_ua_dynadv_cen2     3 
    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]  
    1028 ua_dynadv_cen2           *Yua_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     934ua_dynadv_cen2           *Yua_dynadv_cen2; 
    1029935 
    1030936//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    1035941/*NBSMOD    */ #define   YNBS_va_dynadv_cen2     1 
    1036942/*NBIMOD    */ #define   YNBI_va_dynadv_cen2     3 
    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]  
    1047 va_dynadv_cen2           *Yva_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     951va_dynadv_cen2           *Yva_dynadv_cen2; 
    1048952 
    1049953//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwxyz_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    1054958/*NBSMOD    */ #define   YNBS_zwxyz_vor_ene      3 
    1055959/*NBIMOD    */ #define   YNBI_zwxyz_vor_ene      4 
    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]  
    1074 zwxyz_vor_ene            *Yzwxyz_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     976zwxyz_vor_ene            *Yzwxyz_vor_ene; 
    1075977 
    1076978//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    1081983/*NBSMOD    */ #define   YNBS_ua_vor_ene         1 
    1082984/*NBIMOD    */ #define   YNBI_ua_vor_ene         7 
    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]  
    1093 ua_vor_ene               *Yua_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     993ua_vor_ene               *Yua_vor_ene; 
    1094994 
    1095995//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    11001000/*NBSMOD    */ #define   YNBS_va_vor_ene         1 
    11011001/*NBIMOD    */ #define   YNBI_va_vor_ene         7 
    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]  
    1112 va_vor_ene               *Yva_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1010va_vor_ene               *Yva_vor_ene; 
    11131011 
    11141012//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dyn_ldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    11191017/*NBSMOD    */ #define   YNBS_ua_dyn_ldf_lap     1 
    11201018/*NBIMOD    */ #define   YNBI_ua_dyn_ldf_lap     5 
    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]  
    1131 ua_dyn_ldf_lap           *Yua_dyn_ldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1027ua_dyn_ldf_lap           *Yua_dyn_ldf_lap; 
    11321028 
    11331029//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dyn_ldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    11381034/*NBSMOD    */ #define   YNBS_va_dyn_ldf_lap     1 
    11391035/*NBIMOD    */ #define   YNBI_va_dyn_ldf_lap     5 
    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]  
    1150 va_dyn_ldf_lap           *Yva_dyn_ldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1044va_dyn_ldf_lap           *Yva_dyn_ldf_lap; 
    11511045 
    11521046//~~~~~~~~~~~~~~~~~~~~~~~~~ module zhpij_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    11571051/*NBSMOD    */ #define   YNBS_zhpij_dyn_hpg_zco          2 
    11581052/*NBIMOD    */ #define   YNBI_zhpij_dyn_hpg_zco          8 
    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]  
    1173 zhpij_dyn_hpg_zco                *Yzhpij_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1065zhpij_dyn_hpg_zco                *Yzhpij_dyn_hpg_zco; 
    11741066 
    11751067//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    11801072/*NBSMOD    */ #define   YNBS_ua_dyn_hpg_zco     1 
    11811073/*NBIMOD    */ #define   YNBI_ua_dyn_hpg_zco     2 
    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]  
    1192 ua_dyn_hpg_zco           *Yua_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1082ua_dyn_hpg_zco           *Yua_dyn_hpg_zco; 
    11931083 
    11941084//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    11971087/*NBSMOD    */ #define   YNBS_va_dyn_hpg_zco     1 
    11981088/*NBIMOD    */ #define   YNBI_va_dyn_hpg_zco     2 
    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]  
    1209 va_dyn_hpg_zco           *Yva_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1097va_dyn_hpg_zco           *Yva_dyn_hpg_zco; 
    12101098 
    12111099//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    12161104/*NBSMOD    */ #define   YNBS_zwisd_ua_dynzdf_imp        3 
    12171105/*NBIMOD    */ #define   YNBI_zwisd_ua_dynzdf_imp        2 
    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]  
    1236 zwisd_ua_dynzdf_imp              *Yzwisd_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1122zwisd_ua_dynzdf_imp              *Yzwisd_ua_dynzdf_imp; 
    12371123 
    12381124//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    12431129/*NBSMOD    */ #define   YNBS_zwisd_va_dynzdf_imp        3 
    12441130/*NBIMOD    */ #define   YNBI_zwisd_va_dynzdf_imp        2 
    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]  
    1263 zwisd_va_dynzdf_imp              *Yzwisd_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1147zwisd_va_dynzdf_imp              *Yzwisd_va_dynzdf_imp; 
    12641148 
    12651149//~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    12701154/*NBSMOD    */ #define   YNBS_zrhs_ua_dynzdf_imp         1 
    12711155/*NBIMOD    */ #define   YNBI_zrhs_ua_dynzdf_imp         3 
    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]  
    1282 zrhs_ua_dynzdf_imp               *Yzrhs_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1164zrhs_ua_dynzdf_imp               *Yzrhs_ua_dynzdf_imp; 
    12831165 
    12841166//~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    12891171/*NBSMOD    */ #define   YNBS_zrhs_va_dynzdf_imp         1 
    12901172/*NBIMOD    */ #define   YNBI_zrhs_va_dynzdf_imp         3 
    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]  
    1301 zrhs_va_dynzdf_imp               *Yzrhs_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1181zrhs_va_dynzdf_imp               *Yzrhs_va_dynzdf_imp; 
    13021182 
    13031183//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    13061186/*NBSMOD    */ #define   YNBS_zwt_ua_dynzdf_imp          1 
    13071187/*NBIMOD    */ #define   YNBI_zwt_ua_dynzdf_imp          4 
    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]  
    1318 zwt_ua_dynzdf_imp                *Yzwt_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1196zwt_ua_dynzdf_imp                *Yzwt_ua_dynzdf_imp; 
    13191197 
    13201198//~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    13231201/*NBSMOD    */ #define   YNBS_zwt_va_dynzdf_imp          1 
    13241202/*NBIMOD    */ #define   YNBI_zwt_va_dynzdf_imp          4 
    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]  
    1335 zwt_va_dynzdf_imp                *Yzwt_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1211zwt_va_dynzdf_imp                *Yzwt_va_dynzdf_imp; 
    13361212 
    13371213//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_de_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    13401216/*NBSMOD    */ #define   YNBS_ua_de_dynzdf_imp   1 
    13411217/*NBIMOD    */ #define   YNBI_ua_de_dynzdf_imp   4 
    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]  
    1352 ua_de_dynzdf_imp                 *Yua_de_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1226ua_de_dynzdf_imp                 *Yua_de_dynzdf_imp; 
    13531227 
    13541228//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    13591233/*NBSMOD    */ #define   YNBS_ua_dynzdf_imp      1 
    13601234/*NBIMOD    */ #define   YNBI_ua_dynzdf_imp      4 
    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]  
    1371 ua_dynzdf_imp            *Yua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1243ua_dynzdf_imp            *Yua_dynzdf_imp; 
    13721244 
    13731245//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_de_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    13761248/*NBSMOD    */ #define   YNBS_va_de_dynzdf_imp   1 
    13771249/*NBIMOD    */ #define   YNBI_va_de_dynzdf_imp   4 
    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]  
    1388 va_de_dynzdf_imp                 *Yva_de_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1258va_de_dynzdf_imp                 *Yva_de_dynzdf_imp; 
    13891259 
    13901260//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    13931263/*NBSMOD    */ #define   YNBS_va_dynzdf_imp      1 
    13941264/*NBIMOD    */ #define   YNBI_va_dynzdf_imp      4 
    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]  
    1405 va_dynzdf_imp            *Yva_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1273va_dynzdf_imp            *Yva_dynzdf_imp; 
    14061274 
    14071275//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_norm_dynzdf~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    14121280/*NBSMOD    */ #define   YNBS_ua_norm_dynzdf     1 
    14131281/*NBIMOD    */ #define   YNBI_ua_norm_dynzdf     2 
    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]  
    1424 ua_norm_dynzdf           *Yua_norm_dynzdf[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1290ua_norm_dynzdf           *Yua_norm_dynzdf; 
    14251291 
    14261292//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_norm_dynzdf~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    14291295/*NBSMOD    */ #define   YNBS_va_norm_dynzdf     1 
    14301296/*NBIMOD    */ #define   YNBI_va_norm_dynzdf     2 
    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]  
    1441 va_norm_dynzdf           *Yva_norm_dynzdf[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1305va_norm_dynzdf           *Yva_norm_dynzdf; 
    14421306 
    14431307//~~~~~~~~~~~~~~~~~~~~~~~~~ module spguv_now_dynspg~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    14491313/*NBSMOD    */ #define   YNBS_spguv_now_dynspg   2 
    14501314/*NBIMOD    */ #define   YNBI_spguv_now_dynspg   3 
    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]  
    1465 spguv_now_dynspg                 *Yspguv_now_dynspg[YA1_S3dt][YA2_S3dt]; 
     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]  
     1327spguv_now_dynspg                 *Yspguv_now_dynspg; 
    14661328 
    14671329//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_1_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    14721334/*NBSMOD    */ #define   YNBS_ua_1_dynspg_flt    1 
    14731335/*NBIMOD    */ #define   YNBI_ua_1_dynspg_flt    3 
    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]  
    1484 ua_1_dynspg_flt                  *Yua_1_dynspg_flt[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1344ua_1_dynspg_flt                  *Yua_1_dynspg_flt; 
    14851345 
    14861346//~~~~~~~~~~~~~~~~~~~~~~~~~ module va_1_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    14911351/*NBSMOD    */ #define   YNBS_va_1_dynspg_flt    1 
    14921352/*NBIMOD    */ #define   YNBI_va_1_dynspg_flt    3 
    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]  
    1503 va_1_dynspg_flt                  *Yva_1_dynspg_flt[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1361va_1_dynspg_flt                  *Yva_1_dynspg_flt; 
    15041362 
    15051363//~~~~~~~~~~~~~~~~~~~~~~~~~ module sum_spgu_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    15111369/*NBSMOD    */ #define   YNBS_sum_spgu_dynspg_flt        1 
    15121370/*NBIMOD    */ #define   YNBI_sum_spgu_dynspg_flt        31 
    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]  
    1523 sum_spgu_dynspg_flt              *Ysum_spgu_dynspg_flt[YA1_S3dt][YA2_S3dt]; 
     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]  
     1379sum_spgu_dynspg_flt              *Ysum_spgu_dynspg_flt; 
    15241380 
    15251381//~~~~~~~~~~~~~~~~~~~~~~~~~ module sum_spgv_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    15311387/*NBSMOD    */ #define   YNBS_sum_spgv_dynspg_flt        1 
    15321388/*NBIMOD    */ #define   YNBI_sum_spgv_dynspg_flt        31 
    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]  
    1543 sum_spgv_dynspg_flt              *Ysum_spgv_dynspg_flt[YA1_S3dt][YA2_S3dt]; 
     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]  
     1397sum_spgv_dynspg_flt              *Ysum_spgv_dynspg_flt; 
    15441398 
    15451399//~~~~~~~~~~~~~~~~~~~~~~~~~ module gcb_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    15511405/*NBSMOD    */ #define   YNBS_gcb_dynspg_flt     1 
    15521406/*NBIMOD    */ #define   YNBI_gcb_dynspg_flt     4 
    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]  
    1563 gcb_dynspg_flt           *Ygcb_dynspg_flt[YA1_S3dt][YA2_S3dt]; 
     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]  
     1415gcb_dynspg_flt           *Ygcb_dynspg_flt; 
    15641416 
    15651417//~~~~~~~~~~~~~~~~~~~~~~~~~ module gcx_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    15711423/*NBSMOD    */ #define   YNBS_gcx_dynspg_flt     1 
    15721424/*NBIMOD    */ #define   YNBI_gcx_dynspg_flt     2 
    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]  
    1583 gcx_dynspg_flt           *Ygcx_dynspg_flt[YA1_S3dt][YA2_S3dt]; 
     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]  
     1433gcx_dynspg_flt           *Ygcx_dynspg_flt; 
    15841434 
    15851435//~~~~~~~~~~~~~~~~~~~~~~~~~ module solsor_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    15911441/*NBSMOD    */ #define   YNBS_solsor_dynspg_flt          1 
    15921442/*NBIMOD    */ #define   YNBI_solsor_dynspg_flt          19 
    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]  
    1603 solsor_dynspg_flt                *Ysolsor_dynspg_flt[YA1_S3dt][YA2_S3dt]; 
     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]  
     1451solsor_dynspg_flt                *Ysolsor_dynspg_flt; 
    16041452 
    16051453//~~~~~~~~~~~~~~~~~~~~~~~~~ module gcx2~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    16111459/*NBSMOD    */ #define   YNBS_gcx2       1 
    16121460/*NBIMOD    */ #define   YNBI_gcx2       1 
    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]  
    1623 gcx2             *Ygcx2[YA1_S3dt][YA2_S3dt]; 
     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]  
     1469gcx2             *Ygcx2; 
    16241470 
    16251471//~~~~~~~~~~~~~~~~~~~~~~~~~ module spguv_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    16311477/*NBSMOD    */ #define   YNBS_spguv_dynspg_flt   2 
    16321478/*NBIMOD    */ #define   YNBI_spguv_dynspg_flt   3 
    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]  
    1647 spguv_dynspg_flt                 *Yspguv_dynspg_flt[YA1_S3dt][YA2_S3dt]; 
     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]  
     1491spguv_dynspg_flt                 *Yspguv_dynspg_flt; 
    16481492 
    16491493//~~~~~~~~~~~~~~~~~~~~~~~~~ module ua~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    16541498/*NBSMOD    */ #define   YNBS_ua         1 
    16551499/*NBIMOD    */ #define   YNBI_ua         3 
    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]  
    1666 ua               *Yua[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1508ua               *Yua; 
    16671509 
    16681510//~~~~~~~~~~~~~~~~~~~~~~~~~ module va~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    16731515/*NBSMOD    */ #define   YNBS_va         1 
    16741516/*NBIMOD    */ #define   YNBI_va         3 
    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]  
    1685 va               *Yva[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1525va               *Yva; 
    16861526 
    16871527//~~~~~~~~~~~~~~~~~~~~~~~~~ module sshn~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    16931533/*NBSMOD    */ #define   YNBS_sshn       1 
    16941534/*NBIMOD    */ #define   YNBI_sshn       4 
    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]  
    1705 sshn             *Ysshn[YA1_S3dt][YA2_S3dt]; 
     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]  
     1543sshn             *Ysshn; 
    17061544 
    17071545//~~~~~~~~~~~~~~~~~~~~~~~~~ module sshb~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    17131551/*NBSMOD    */ #define   YNBS_sshb       1 
    17141552/*NBIMOD    */ #define   YNBI_sshb       4 
    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]  
    1725 sshb             *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]  
     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]  
     1561sshb             *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]  
    17301566 
    17311567//~~~~~~~~~~~~~~~~~~~~~~~~~ module ub~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    17361572/*NBSMOD    */ #define   YNBS_ub         1 
    17371573/*NBIMOD    */ #define   YNBI_ub         4 
    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]  
    1748 ub               *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]  
     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]  
     1582ub               *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]  
    17531587 
    17541588//~~~~~~~~~~~~~~~~~~~~~~~~~ module vb~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    17591593/*NBSMOD    */ #define   YNBS_vb         1 
    17601594/*NBIMOD    */ #define   YNBI_vb         4 
    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]  
    1771 vb               *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]  
     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]  
     1603vb               *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]  
    17761608 
    17771609//~~~~~~~~~~~~~~~~~~~~~~~~~ module hdivn~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    17821614/*NBSMOD    */ #define   YNBS_hdivn      1 
    17831615/*NBIMOD    */ #define   YNBI_hdivn      4 
    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]  
    1794 hdivn            *Yhdivn[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1624hdivn            *Yhdivn; 
    17951625 
    17961626//~~~~~~~~~~~~~~~~~~~~~~~~~ module rotn~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    18011631/*NBSMOD    */ #define   YNBS_rotn       1 
    18021632/*NBIMOD    */ #define   YNBI_rotn       4 
    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]  
    1813 rotn             *Yrotn[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1641rotn             *Yrotn; 
    18141642 
    18151643//~~~~~~~~~~~~~~~~~~~~~~~~~ module wa~~~~~~~~~~~~~~~~~~~~~~~~~ 
    … …  
    18201648/*NBSMOD    */ #define   YNBS_wa         1 
    18211649/*NBIMOD    */ #define   YNBI_wa         2 
    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]  
    1832 wa               *Ywa[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 
     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]  
     1658wa               *Ywa; 
    18331659#define  YSIZEPB   21824//sum of the number of states (output) of all targets 
    18341660 
    1835 //ï¿œ ï¿œ ï¿œ ï¿œ FOR M1QN3 ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ 
     1661//ￜ ￜ ￜ ￜ FOR M1QN3 ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ 
    18361662float   Y3x[YSIZEPB]; //table for the states of targets  
    18371663float   Y3g[YSIZEPB]; //table for the gradients of targets 
    … …  
    20011827{ 
    20021828         public: 
    2003               double     Ystate[YNBS_sshn_c]; 
    2004               double     Ygrad[YNBS_sshn_c]; 
     1829              double     Ystate[YA1_S3d][YA2_S3d][YNBS_sshn_c]; 
     1830              double     Ygrad[YA1_S3d][YA2_S3d][YNBS_sshn_c]; 
    20051831 
    20061832//:=========> Constructor - Destructor ============ 
    … …  
    20141840{ 
    20151841         public: 
    2016               double     Ystate[YNBS_ta_c]; 
    2017               double     Ygrad[YNBS_ta_c]; 
    2018               double     Yepsi[YNBS_ta_c]; 
    2019               double     Ywish[YNBS_ta_c]; 
     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]; 
    20201846 
    20211847//:=========> Constructor - Destructor ============ 
    … …  
    20291855{ 
    20301856         public: 
    2031               double     Ystate[YNBS_sa_c]; 
    2032               double     Ygrad[YNBS_sa_c]; 
     1857              double     Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_sa_c]; 
     1858              double     Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_sa_c]; 
    20331859 
    20341860//:=========> Constructor - Destructor ============ 
    … …  
    20421868{ 
    20431869         public: 
    2044               double     Ystate[YNBS_ua_c]; 
    2045               double     Ygrad[YNBS_ua_c]; 
     1870              double     Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ua_c]; 
     1871              double     Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ua_c]; 
    20461872 
    20471873//:=========> Constructor - Destructor ============ 
    … …  
    20551881{ 
    20561882         public: 
    2057               double     Ystate[YNBS_va_c]; 
    2058               double     Ygrad[YNBS_va_c]; 
     1883              double     Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_va_c]; 
     1884              double     Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_va_c]; 
    20591885 
    20601886//:=========> Constructor - Destructor ============ 
    … …  
    20681894{ 
    20691895         public: 
    2070               double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_qsr_qns]; 
    2071               double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_qsr_qns]; 
     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]; 
    20721898 
    20731899//:=========> Constructor - Destructor ============ 
    … …  
    20901916{ 
    20911917         public: 
    2092               double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp1]; 
    2093               double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp1]; 
     1918              double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp1]; 
     1919              double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp1]; 
    20941920 
    20951921//:=========> Constructor - Destructor ============ 
    … …  
    21121938{ 
    21131939         public: 
    2114               double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_zsumemp_zsurf]; 
    2115               double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_zsumemp_zsurf]; 
     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]; 
    21161942 
    21171943//:=========> Constructor - Destructor ============ 
    … …  
    21341960{ 
    21351961         public: 
    2136               double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp]; 
    2137               double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp]; 
     1962              double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp]; 
     1963              double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp]; 
    21381964 
    21391965//:=========> Constructor - Destructor ============ 
    … …  
    21561982{ 
    21571983         public: 
    2158               double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_emps]; 
    2159               double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_emps]; 
     1984              double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emps]; 
     1985              double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emps]; 
    21601986 
    21611987//:=========> Constructor - Destructor ============ 
    … …  
    21782004{ 
    21792005         public: 
    2180               double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_utau_vtau]; 
    2181               double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_utau_vtau]; 
     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]; 
    21822008 
    21832009//:=========> Constructor - Destructor ============ 
    … …  
    22002026{ 
    22012027         public: 
    2202               double     Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_wndm]; 
    2203               double     Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_wndm]; 
     2028              double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_wndm]; 
     2029              double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_wndm]; 
    22042030 
    22052031//:=========> Constructor - Destructor ============ 
    … …  
    22222048{ 
    22232049         public: 
    2224               double     Ystate[YNBALLTIME_Tsbd][YNBS_bn2_rn2]; 
    2225               double     Ygrad[YNBALLTIME_Tsbd][YNBS_bn2_rn2]; 
     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]; 
    22262052 
    22272053//:=========> Constructor - Destructor ============ 
    … …  
    22442070{ 
    22452071         public: 
    2246               double     Ystate[YNBALLTIME_Tsbd][YNBS_zdf_avt_avmu_avmv]; 
    2247               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zdf_avt_avmu_avmv]; 
     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]; 
    22482074 
    22492075//:=========> Constructor - Destructor ============ 
    … …  
    22662092{ 
    22672093         public: 
    2268               double     Ystate[YNBALLTIME_Tsbd][YNBS_zdfmxl_hmld]; 
    2269               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zdfmxl_hmld]; 
     2094              double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_zdfmxl_hmld]; 
     2095              double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_zdfmxl_hmld]; 
    22702096 
    22712097//:=========> Constructor - Destructor ============ 
    … …  
    22882114{ 
    22892115         public: 
    2290               double     Ystate[YNBALLTIME_Tsbd][YNBS_zdfmxl_nmln_hmlp_hmlpt]; 
    2291               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zdfmxl_nmln_hmlp_hmlpt]; 
     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]; 
    22922118 
    22932119//:=========> Constructor - Destructor ============ 
    … …  
    23102136{ 
    23112137         public: 
    2312               double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_sa_trasbc]; 
    2313               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_sa_trasbc]; 
     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]; 
    23142140 
    23152141//:=========> Constructor - Destructor ============ 
    … …  
    23322158{ 
    23332159         public: 
    2334               double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_traqsr]; 
    2335               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_traqsr]; 
     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]; 
    23362162 
    23372163//:=========> Constructor - Destructor ============ 
    … …  
    23542180{ 
    23552181         public: 
    2356               double     Ystate[YNBALLTIME_Tsbd][YNBS_zcent_hor_traadv_cen2]; 
    2357               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zcent_hor_traadv_cen2]; 
     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]; 
    23582184 
    23592185//:=========> Constructor - Destructor ============ 
    … …  
    23792205{ 
    23802206         public: 
    2381               double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_hor_traadv_cen2]; 
    2382               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_hor_traadv_cen2]; 
     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]; 
    23832209 
    23842210//:=========> Constructor - Destructor ============ 
    … …  
    24012227{ 
    24022228         public: 
    2403               double     Ystate[YNBALLTIME_Tsbd][YNBS_sa_hor_traadv_cen2]; 
    2404               double     Ygrad[YNBALLTIME_Tsbd][YNBS_sa_hor_traadv_cen2]; 
     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]; 
    24052231 
    24062232//:=========> Constructor - Destructor ============ 
    … …  
    24232249{ 
    24242250         public: 
    2425               double     Ystate[YNBALLTIME_Tsbd][YNBS_zcent_ver_traadv_cen2]; 
    2426               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zcent_ver_traadv_cen2]; 
     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]; 
    24272253 
    24282254//:=========> Constructor - Destructor ============ 
    … …  
    24482274{ 
    24492275         public: 
    2450               double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_ver_traadv_cen2]; 
    2451               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_ver_traadv_cen2]; 
     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]; 
    24522278 
    24532279//:=========> Constructor - Destructor ============ 
    … …  
    24732299{ 
    24742300         public: 
    2475               double     Ystate[YNBALLTIME_Tsbd][YNBS_ztuv_traldf_lap]; 
    2476               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ztuv_traldf_lap]; 
     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]; 
    24772303 
    24782304//:=========> Constructor - Destructor ============ 
    … …  
    24982324{ 
    24992325         public: 
    2500               double     Ystate[YNBALLTIME_Tsbd][YNBS_ta_traldf_lap]; 
    2501               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta_traldf_lap]; 
     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]; 
    25022328 
    25032329//:=========> Constructor - Destructor ============ 
    … …  
    25232349{ 
    25242350         public: 
    2525               double     Ystate[YNBALLTIME_Tsbd][YNBS_zwisd_trazdf_imp]; 
    2526               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwisd_trazdf_imp]; 
     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]; 
    25272353 
    25282354//:=========> Constructor - Destructor ============ 
    … …  
    25452371{ 
    25462372         public: 
    2547               double     Ystate[YNBALLTIME_Tsbd][YNBS_zrhs_trazdf_imp]; 
    2548               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zrhs_trazdf_imp]; 
     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]; 
    25492375 
    25502376//:=========> Constructor - Destructor ============ 
    … …  
    25702396{ 
    25712397         public: 
    2572               double     Ystate[YNBALLTIME_Tsbd][YNBS_zwt_trazdf_imp]; 
    2573               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwt_trazdf_imp]; 
     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]; 
    25742400 
    25752401//:=========> Constructor - Destructor ============ 
    … …  
    25952421{ 
    25962422         public: 
    2597               double     Ystate[YNBALLTIME_Tsbd][YNBS_ta]; 
    2598               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ta]; 
     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]; 
    25992425 
    26002426//:=========> Constructor - Destructor ============ 
    … …  
    26202446{ 
    26212447         public: 
    2622               double     Ystate[YNBALLTIME_Tsbd][YNBS_sa]; 
    2623               double     Ygrad[YNBALLTIME_Tsbd][YNBS_sa]; 
     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]; 
    26242450 
    26252451//:=========> Constructor - Destructor ============ 
    … …  
    26422468{ 
    26432469         public: 
    2644               double     Ystate[YNBALLTIME_Tsbd][YNBS_tb]; 
    2645               double     Ygrad[YNBALLTIME_Tsbd][YNBS_tb]; 
    2646               double     Ywish[YNBS_tb]; 
     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]; 
    26472473 
    26482474//:=========> Constructor - Destructor ============ 
    … …  
    26652491{ 
    26662492         public: 
    2667               double     Ystate[YNBALLTIME_Tsbd][YNBS_sb]; 
    2668               double     Ygrad[YNBALLTIME_Tsbd][YNBS_sb]; 
    2669               double     Ywish[YNBS_sb]; 
     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]; 
    26702496 
    26712497//:=========> Constructor - Destructor ============ 
    … …  
    26882514{ 
    26892515         public: 
    2690               double     Ystate[YNBALLTIME_Tsbd][YNBS_rhd]; 
    2691               double     Ygrad[YNBALLTIME_Tsbd][YNBS_rhd]; 
     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]; 
    26922518 
    26932519//:=========> Constructor - Destructor ============ 
    … …  
    27102536{ 
    27112537         public: 
    2712               double     Ystate[YNBALLTIME_Tsbd][YNBS_rhop]; 
    2713               double     Ygrad[YNBALLTIME_Tsbd][YNBS_rhop]; 
     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]; 
    27142540 
    27152541//:=========> Constructor - Destructor ============ 
    … …  
    27322558{ 
    27332559         public: 
    2734               double     Ystate[YNBALLTIME_Tsbd][YNBS_hmf_TF_dynadv_cen2]; 
    2735               double     Ygrad[YNBALLTIME_Tsbd][YNBS_hmf_TF_dynadv_cen2]; 
     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]; 
    27362562 
    27372563//:=========> Constructor - Destructor ============ 
    … …  
    27542580{ 
    27552581         public: 
    2756               double     Ystate[YNBALLTIME_Tsbd][YNBS_zua_dhmf_dynadv_cen2]; 
    2757               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zua_dhmf_dynadv_cen2]; 
     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]; 
    27582584 
    27592585//:=========> Constructor - Destructor ============ 
    … …  
    27762602{ 
    27772603         public: 
    2778               double     Ystate[YNBALLTIME_Tsbd][YNBS_zva_dhmf_dynadv_cen2]; 
    2779               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zva_dhmf_dynadv_cen2]; 
     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]; 
    27802606 
    27812607//:=========> Constructor - Destructor ============ 
    … …  
    27982624{ 
    27992625         public: 
    2800               double     Ystate[YNBALLTIME_Tsbd][YNBS_zfuv_UW_dynadv_cen2]; 
    2801               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zfuv_UW_dynadv_cen2]; 
     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]; 
    28022628 
    28032629//:=========> Constructor - Destructor ============ 
    … …  
    28202646{ 
    28212647         public: 
    2822               double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_dynadv_cen2]; 
    2823               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dynadv_cen2]; 
     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]; 
    28242650 
    28252651//:=========> Constructor - Destructor ============ 
    … …  
    28422668{ 
    28432669         public: 
    2844               double     Ystate[YNBALLTIME_Tsbd][YNBS_va_dynadv_cen2]; 
    2845               double     Ygrad[YNBALLTIME_Tsbd][YNBS_va_dynadv_cen2]; 
     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]; 
    28462672 
    28472673//:=========> Constructor - Destructor ============ 
    … …  
    28642690{ 
    28652691         public: 
    2866               double     Ystate[YNBALLTIME_Tsbd][YNBS_zwxyz_vor_ene]; 
    2867               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwxyz_vor_ene]; 
     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]; 
    28682694 
    28692695//:=========> Constructor - Destructor ============ 
    … …  
    28862712{ 
    28872713         public: 
    2888               double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_vor_ene]; 
    2889               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_vor_ene]; 
     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]; 
    28902716 
    28912717//:=========> Constructor - Destructor ============ 
    … …  
    29082734{ 
    29092735         public: 
    2910               double     Ystate[YNBALLTIME_Tsbd][YNBS_va_vor_ene]; 
    2911               double     Ygrad[YNBALLTIME_Tsbd][YNBS_va_vor_ene]; 
     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]; 
    29122738 
    29132739//:=========> Constructor - Destructor ============ 
    … …  
    29302756{ 
    29312757         public: 
    2932               double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_dyn_ldf_lap]; 
    2933               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dyn_ldf_lap]; 
     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]; 
    29342760 
    29352761//:=========> Constructor - Destructor ============ 
    … …  
    29522778{ 
    29532779         public: 
    2954               double     Ystate[YNBALLTIME_Tsbd][YNBS_va_dyn_ldf_lap]; 
    2955               double     Ygrad[YNBALLTIME_Tsbd][YNBS_va_dyn_ldf_lap]; 
     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]; 
    29562782 
    29572783//:=========> Constructor - Destructor ============ 
    … …  
    29742800{ 
    29752801         public: 
    2976               double     Ystate[YNBALLTIME_Tsbd][YNBS_zhpij_dyn_hpg_zco]; 
    2977               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zhpij_dyn_hpg_zco]; 
     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]; 
    29782804 
    29792805//:=========> Constructor - Destructor ============ 
    … …  
    29962822{ 
    29972823         public: 
    2998               double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_dyn_hpg_zco]; 
    2999               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dyn_hpg_zco]; 
     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]; 
    30002826 
    30012827//:=========> Constructor - Destructor ============ 
    … …  
    30212847{ 
    30222848         public: 
    3023               double     Ystate[YNBALLTIME_Tsbd][YNBS_zwisd_ua_dynzdf_imp]; 
    3024               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwisd_ua_dynzdf_imp]; 
     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]; 
    30252851 
    30262852//:=========> Constructor - Destructor ============ 
    … …  
    30432869{ 
    30442870         public: 
    3045               double     Ystate[YNBALLTIME_Tsbd][YNBS_zwisd_va_dynzdf_imp]; 
    3046               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zwisd_va_dynzdf_imp]; 
     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]; 
    30472873 
    30482874//:=========> Constructor - Destructor ============ 
    … …  
    30652891{ 
    30662892         public: 
    3067               double     Ystate[YNBALLTIME_Tsbd][YNBS_zrhs_ua_dynzdf_imp]; 
    3068               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zrhs_ua_dynzdf_imp]; 
     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]; 
    30692895 
    30702896//:=========> Constructor - Destructor ============ 
    … …  
    30872913{ 
    30882914         public: 
    3089               double     Ystate[YNBALLTIME_Tsbd][YNBS_zrhs_va_dynzdf_imp]; 
    3090               double     Ygrad[YNBALLTIME_Tsbd][YNBS_zrhs_va_dynzdf_imp]; 
     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]; 
    30912917 
    30922918//:=========> Constructor - Destructor ============ 
    … …  
    31182944{ 
    31192945         public: 
    3120               double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_dynzdf_imp]; 
    3121               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dynzdf_imp]; 
     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]; 
    31222948 
    31232949//:=========> Constructor - Destructor ============ 
    … …  
    31462972{ 
    31472973         public: 
    3148               double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_norm_dynzdf]; 
    3149               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_norm_dynzdf]; 
     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]; 
    31502976 
    31512977//:=========> Constructor - Destructor ============ 
    … …  
    31712997{ 
    31722998         public: 
    3173               double     Ystate[YNBALLTIME_Tsbd][YNBS_spguv_now_dynspg]; 
    3174               double     Ygrad[YNBALLTIME_Tsbd][YNBS_spguv_now_dynspg]; 
     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]; 
    31753001 
    31763002//:=========> Constructor - Destructor ============ 
    … …  
    31933019{ 
    31943020         public: 
    3195               double     Ystate[YNBALLTIME_Tsbd][YNBS_ua_1_dynspg_flt]; 
    3196               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua_1_dynspg_flt]; 
     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]; 
    31973023 
    31983024//:=========> Constructor - Destructor ============ 
    … …  
    32153041{ 
    32163042         public: 
    3217               double     Ystate[YNBALLTIME_Tsbd][YNBS_va_1_dynspg_flt]; 
    3218               double     Ygrad[YNBALLTIME_Tsbd][YNBS_va_1_dynspg_flt]; 
     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]; 
    32193045 
    32203046//:=========> Constructor - Destructor ============ 
    … …  
    32373063{ 
    32383064         public: 
    3239               double     Ystate[YNBALLTIME_Tsbd][YNBS_sum_spgu_dynspg_flt]; 
    3240               double     Ygrad[YNBALLTIME_Tsbd][YNBS_sum_spgu_dynspg_flt]; 
     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]; 
    32413067 
    32423068//:=========> Constructor - Destructor ============ 
    … …  
    32593085{ 
    32603086         public: 
    3261               double     Ystate[YNBALLTIME_Tsbd][YNBS_sum_spgv_dynspg_flt]; 
    3262               double     Ygrad[YNBALLTIME_Tsbd][YNBS_sum_spgv_dynspg_flt]; 
     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]; 
    32633089 
    32643090//:=========> Constructor - Destructor ============ 
    … …  
    32813107{ 
    32823108         public: 
    3283               double     Ystate[YNBALLTIME_Tsbd][YNBS_gcb_dynspg_flt]; 
    3284               double     Ygrad[YNBALLTIME_Tsbd][YNBS_gcb_dynspg_flt]; 
     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]; 
    32853111 
    32863112//:=========> Constructor - Destructor ============ 
    … …  
    33033129{ 
    33043130         public: 
    3305               double     Ystate[YNBALLTIME_Tsbd][YNBS_gcx_dynspg_flt]; 
    3306               double     Ygrad[YNBALLTIME_Tsbd][YNBS_gcx_dynspg_flt]; 
     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]; 
    33073133 
    33083134//:=========> Constructor - Destructor ============ 
    … …  
    33253151{ 
    33263152         public: 
    3327               double     Ystate[YNBALLTIME_Tsbd][YNBS_solsor_dynspg_flt]; 
    3328               double     Ygrad[YNBALLTIME_Tsbd][YNBS_solsor_dynspg_flt]; 
     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]; 
    33293155 
    33303156//:=========> Constructor - Destructor ============ 
    … …  
    33473173{ 
    33483174         public: 
    3349               double     Ystate[YNBALLTIME_Tsbd][YNBS_gcx2]; 
    3350               double     Ygrad[YNBALLTIME_Tsbd][YNBS_gcx2]; 
     3175              double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcx2]; 
     3176              double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcx2]; 
    33513177 
    33523178//:=========> Constructor - Destructor ============ 
    … …  
    33693195{ 
    33703196         public: 
    3371               double     Ystate[YNBALLTIME_Tsbd][YNBS_spguv_dynspg_flt]; 
    3372               double     Ygrad[YNBALLTIME_Tsbd][YNBS_spguv_dynspg_flt]; 
     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]; 
    33733199 
    33743200//:=========> Constructor - Destructor ============ 
    … …  
    33913217{ 
    33923218         public: 
    3393               double     Ystate[YNBALLTIME_Tsbd][YNBS_ua]; 
    3394               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ua]; 
     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]; 
    33953221 
    33963222//:=========> Constructor - Destructor ============ 
    … …  
    34133239{ 
    34143240         public: 
    3415               double     Ystate[YNBALLTIME_Tsbd][YNBS_va]; 
    3416               double     Ygrad[YNBALLTIME_Tsbd][YNBS_va]; 
     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]; 
    34173243 
    34183244//:=========> Constructor - Destructor ============ 
    … …  
    34353261{ 
    34363262         public: 
    3437               double     Ystate[YNBALLTIME_Tsbd][YNBS_sshn]; 
    3438               double     Ygrad[YNBALLTIME_Tsbd][YNBS_sshn]; 
     3263              double     Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sshn]; 
     3264              double     Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sshn]; 
    34393265 
    34403266//:=========> Constructor - Destructor ============ 
    … …  
    34573283{ 
    34583284         public: 
    3459               double     Ystate[YNBALLTIME_Tsbd][YNBS_sshb]; 
    3460               double     Ygrad[YNBALLTIME_Tsbd][YNBS_sshb]; 
    3461               double     Ywish[YNBS_sshb]; 
     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]; 
    34623288 
    34633289//:=========> Constructor - Destructor ============ 
    … …  
    34803306{ 
    34813307         public: 
    3482               double     Ystate[YNBALLTIME_Tsbd][YNBS_ub]; 
    3483               double     Ygrad[YNBALLTIME_Tsbd][YNBS_ub]; 
    3484               double     Ywish[YNBS_ub]; 
     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]; 
    34853311 
    34863312//:=========> Constructor - Destructor ============ 
    … …  
    35033329{ 
    35043330         public: 
    3505               double     Ystate[YNBALLTIME_Tsbd][YNBS_vb]; 
    3506               double     Ygrad[YNBALLTIME_Tsbd][YNBS_vb]; 
    3507               double     Ywish[YNBS_vb]; 
     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]; 
    35083334 
    35093335//:=========> Constructor - Destructor ============ 
    … …  
    35263352{ 
    35273353         public: 
    3528               double     Ystate[YNBALLTIME_Tsbd][YNBS_hdivn]; 
    3529               double     Ygrad[YNBALLTIME_Tsbd][YNBS_hdivn]; 
     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]; 
    35303356 
    35313357//:=========> Constructor - Destructor ============ 
    … …  
    35483374{ 
    35493375         public: 
    3550               double     Ystate[YNBALLTIME_Tsbd][YNBS_rotn]; 
    3551               double     Ygrad[YNBALLTIME_Tsbd][YNBS_rotn]; 
     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]; 
    35523378 
    35533379//:=========> Constructor - Destructor ============ 
    … …  
    35703396{ 
    35713397         public: 
    3572               double     Ystate[YNBALLTIME_Tsbd][YNBS_wa]; 
    3573               double     Ygrad[YNBALLTIME_Tsbd][YNBS_wa]; 
     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]; 
    35743400 
    35753401//:=========> Constructor - Destructor ============ 
    … …  
    35883414}; 
    35893415 
    3590 //ï¿œ ï¿œ ï¿œ ï¿œ PROTOTYPES of AUTO-FUNCTIONS ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ 
     3416//ￜ ￜ ￜ ￜ PROTOTYPES of AUTO-FUNCTIONS ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ 
    35913417void Yrazgrad_sshn_c();  
    35923418void Ysetstate_sshn_c();  
    … …  
    37953621#define YNBMODUL       87  
    37963622struct Yst_modul YTabMod[87] = { 
    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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3832         {"ta", *Yta, 3, 32, 22, 31, 5, 1, 52, 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, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3834         {"sa", *Ysa, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3835         {"tb", *Ytb, 3, 32, 22, 31, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3836         {"sb", *Ysb, 3, 32, 22, 31, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3837         {"rhd", *Yrhd, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3838         {"rhop", *Yrhop, 3, 32, 22, 31, 1, 1, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 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, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3873         {"gcx2", *Ygcx2, 2, 32, 22, 0, 1, 1, 52, 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, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3875         {"ua", *Yua, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3876         {"va", *Yva, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3877         {"sshn", *Ysshn, 2, 32, 22, 0, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3878         {"sshb", *Ysshb, 2, 32, 22, 0, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3879         {"ub", *Yub, 3, 32, 22, 31, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3880         {"vb", *Yvb, 3, 32, 22, 31, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3881         {"hdivn", *Yhdivn, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3882         {"rotn", *Yrotn, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
    3883         {"wa", *Ywa, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 
     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"}, 
    38843710}; 
    38853711 
    … …  
    39863812}; 
    39873813 
    3988 //ï¿œ ï¿œ ï¿œ ï¿œ GENERATION AUTOMATIQUE DES include ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ 
     3814//ￜ ￜ ￜ ￜ GENERATION AUTOMATIQUE DES include ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ 
    39893815#include "sinobad.h"  
    39903816 
    … …  
    39923818#define  backward void sbcgyre_qsr_qns::backward 
    39933819#define  flinward void sbcgyre_qsr_qns::flinward 
    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]  
     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]  
    40003826#include "sbcgyre_qsr_qns.h"  
    40013827#undef   YS1Y   
    … …  
    40123838#define  backward void sbcgyre_emp1::backward 
    40133839#define  flinward void sbcgyre_emp1::flinward 
    4014 #define  YS1Y Ystate[YTemps][0]  
    4015 #define  YS1  Ystate[YTemps][0]  
    4016 #define  YG1  Ygrad[YTemps][0]  
     3840#define  YS1Y Ystate[YTemps][Yi][Yj][0]  
     3841#define  YS1  Ystate[YTemps][Yi][Yj][0]  
     3842#define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    40173843#include "sbcgyre_emp1.h"  
    40183844#undef   YS1Y   
    … …  
    40263852#define  backward void sbcgyre_zsumemp_zsurf::backward 
    40273853#define  flinward void sbcgyre_zsumemp_zsurf::flinward 
    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]  
     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]  
    40343860#include "sbcgyre_zsumemp_zsurf.h"  
    40353861#undef   YS1Y   
    … …  
    40463872#define  backward void sbcgyre_emp::backward 
    40473873#define  flinward void sbcgyre_emp::flinward 
    4048 #define  YS1Y Ystate[YTemps][0]  
    4049 #define  YS1  Ystate[YTemps][0]  
    4050 #define  YG1  Ygrad[YTemps][0]  
     3874#define  YS1Y Ystate[YTemps][Yi][Yj][0]  
     3875#define  YS1  Ystate[YTemps][Yi][Yj][0]  
     3876#define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    40513877#include "sbcgyre_emp.h"  
    40523878#undef   YS1Y   
    … …  
    40603886#define  backward void sbcgyre_emps::backward 
    40613887#define  flinward void sbcgyre_emps::flinward 
    4062 #define  YS1Y Ystate[YTemps][0]  
    4063 #define  YS1  Ystate[YTemps][0]  
    4064 #define  YG1  Ygrad[YTemps][0]  
     3888#define  YS1Y Ystate[YTemps][Yi][Yj][0]  
     3889#define  YS1  Ystate[YTemps][Yi][Yj][0]  
     3890#define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    40653891#include "sbcgyre_emps.h"  
    40663892#undef   YS1Y   
    … …  
    40743900#define  backward void sbcgyre_utau_vtau::backward 
    40753901#define  flinward void sbcgyre_utau_vtau::flinward 
    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]  
     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]  
    40823908#include "sbcgyre_utau_vtau.h"  
    40833909#undef   YS1Y   
    … …  
    40943920#define  backward void sbcgyre_wndm::backward 
    40953921#define  flinward void sbcgyre_wndm::flinward 
    4096 #define  YS1Y Ystate[YTemps][0]  
    4097 #define  YS1  Ystate[YTemps][0]  
    4098 #define  YG1  Ygrad[YTemps][0]  
     3922#define  YS1Y Ystate[YTemps][Yi][Yj][0]  
     3923#define  YS1  Ystate[YTemps][Yi][Yj][0]  
     3924#define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    40993925#include "sbcgyre_wndm.h"  
    41003926#undef   YS1Y   
    … …  
    41083934#define  backward void bn2_rn2::backward 
    41093935#define  flinward void bn2_rn2::flinward 
    4110 #define  YS1Y Ystate[YTemps][0]  
    4111 #define  YS1  Ystate[YTemps][0]  
    4112 #define  YG1  Ygrad[YTemps][0]  
     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]  
    41133939#include "bn2_rn2.h"  
    41143940#undef   YS1Y   
    … …  
    41223948#define  backward void zdf_avt_avmu_avmv::backward 
    41233949#define  flinward void zdf_avt_avmu_avmv::flinward 
    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]  
     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]  
    41333959#include "zdf_avt_avmu_avmv.h"  
    41343960#undef   YS1Y   
    … …  
    41483974#define  backward void zdfmxl_hmld::backward 
    41493975#define  flinward void zdfmxl_hmld::flinward 
    4150 #define  YS1Y Ystate[YTemps][0]  
    4151 #define  YS1  Ystate[YTemps][0]  
    4152 #define  YG1  Ygrad[YTemps][0]  
     3976#define  YS1Y Ystate[YTemps][Yi][Yj][0]  
     3977#define  YS1  Ystate[YTemps][Yi][Yj][0]  
     3978#define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    41533979#include "zdfmxl_hmld.h"  
    41543980#undef   YS1Y   
    … …  
    41623988#define  backward void zdfmxl_nmln_hmlp_hmlpt::backward 
    41633989#define  flinward void zdfmxl_nmln_hmlp_hmlpt::flinward 
    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]  
     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]  
    41733999#include "zdfmxl_nmln_hmlp_hmlpt.h"  
    41744000#undef   YS1Y   
    … …  
    41884014#define  backward void ta_sa_trasbc::backward 
    41894015#define  flinward void ta_sa_trasbc::flinward 
    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]  
     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]  
    41964022#include "ta_sa_trasbc.h"  
    41974023#undef   YS1Y   
    … …  
    42084034#define  backward void ta_traqsr::backward 
    42094035#define  flinward void ta_traqsr::flinward 
    4210 #define  YS1Y Ystate[YTemps][0]  
    4211 #define  YS1  Ystate[YTemps][0]  
    4212 #define  YG1  Ygrad[YTemps][0]  
     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]  
    42134039#include "ta_traqsr.h"  
    42144040#undef   YS1Y   
    … …  
    42224048#define  backward void zcent_hor_traadv_cen2::backward 
    42234049#define  flinward void zcent_hor_traadv_cen2::flinward 
    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]  
     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]  
    42304056#include "zcent_hor_traadv_cen2.h"  
    42314057#undef   YS1Y   
    … …  
    42424068#define  backward void ta_hor_traadv_cen2::backward 
    42434069#define  flinward void ta_hor_traadv_cen2::flinward 
    4244 #define  YS1Y Ystate[YTemps][0]  
    4245 #define  YS1  Ystate[YTemps][0]  
    4246 #define  YG1  Ygrad[YTemps][0]  
     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]  
    42474073#include "ta_hor_traadv_cen2.h"  
    42484074#undef   YS1Y   
    … …  
    42564082#define  backward void sa_hor_traadv_cen2::backward 
    42574083#define  flinward void sa_hor_traadv_cen2::flinward 
    4258 #define  YS1Y Ystate[YTemps][0]  
    4259 #define  YS1  Ystate[YTemps][0]  
    4260 #define  YG1  Ygrad[YTemps][0]  
     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]  
    42614087#include "sa_hor_traadv_cen2.h"  
    42624088#undef   YS1Y   
    … …  
    42704096#define  backward void zcent_ver_traadv_cen2::backward 
    42714097#define  flinward void zcent_ver_traadv_cen2::flinward 
    4272 #define  YS1Y Ystate[YTemps][0]  
    4273 #define  YS1  Ystate[YTemps][0]  
    4274 #define  YG1  Ygrad[YTemps][0]  
     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]  
    42754101#include "zcent_ver_traadv_cen2.h"  
    42764102#undef   YS1Y   
    … …  
    42844110#define  backward void ta_ver_traadv_cen2::backward 
    42854111#define  flinward void ta_ver_traadv_cen2::flinward 
    4286 #define  YS1Y Ystate[YTemps][0]  
    4287 #define  YS1  Ystate[YTemps][0]  
    4288 #define  YG1  Ygrad[YTemps][0]  
     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]  
    42894115#include "ta_ver_traadv_cen2.h"  
    42904116#undef   YS1Y   
    … …  
    42984124#define  backward void ztuv_traldf_lap::backward 
    42994125#define  flinward void ztuv_traldf_lap::flinward 
    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]  
     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]  
    43064132#include "ztuv_traldf_lap.h"  
    43074133#undef   YS1Y   
    … …  
    43184144#define  backward void ta_traldf_lap::backward 
    43194145#define  flinward void ta_traldf_lap::flinward 
    4320 #define  YS1Y Ystate[YTemps][0]  
    4321 #define  YS1  Ystate[YTemps][0]  
    4322 #define  YG1  Ygrad[YTemps][0]  
     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]  
    43234149#include "ta_traldf_lap.h"  
    43244150#undef   YS1Y   
    … …  
    43324158#define  backward void zwisd_trazdf_imp::backward 
    43334159#define  flinward void zwisd_trazdf_imp::flinward 
    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]  
     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]  
    43434169#include "zwisd_trazdf_imp.h"  
    43444170#undef   YS1Y   
    … …  
    43584184#define  backward void zrhs_trazdf_imp::backward 
    43594185#define  flinward void zrhs_trazdf_imp::flinward 
    4360 #define  YS1Y Ystate[YTemps][0]  
    4361 #define  YS1  Ystate[YTemps][0]  
    4362 #define  YG1  Ygrad[YTemps][0]  
     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]  
    43634189#include "zrhs_trazdf_imp.h"  
    43644190#undef   YS1Y   
    … …  
    43724198#define  backward void zwt_trazdf_imp::backward 
    43734199#define  flinward void zwt_trazdf_imp::flinward 
    4374 #define  YS1Y Ystate[YTemps][0]  
    4375 #define  YS1  Ystate[YTemps][0]  
    4376 #define  YG1  Ygrad[YTemps][0]  
     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]  
    43774203#include "zwt_trazdf_imp.h"  
    43784204#undef   YS1Y   
    … …  
    43864212#define  backward void ta::backward 
    43874213#define  flinward void ta::flinward 
    4388 #define  YS1Y Ystate[YTemps][0]  
    4389 #define  YS1  Ystate[YTemps][0]  
    4390 #define  YG1  Ygrad[YTemps][0]  
     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]  
    43914217#include "ta.h"  
    43924218#undef   YS1Y   
    … …  
    44004226#define  backward void sa::backward 
    44014227#define  flinward void sa::flinward 
    4402 #define  YS1Y Ystate[YTemps][0]  
    4403 #define  YS1  Ystate[YTemps][0]  
    4404 #define  YG1  Ygrad[YTemps][0]  
     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]  
    44054231#include "sa.h"  
    44064232#undef   YS1Y   
    … …  
    44144240#define  backward void tb::backward 
    44154241#define  flinward void tb::flinward 
    4416 #define  YS1Y Ystate[YTemps][0]  
    4417 #define  YS1  Ystate[YTemps][0]  
    4418 #define  YG1  Ygrad[YTemps][0]  
     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]  
    44194245#include "tb.h"  
    44204246#undef   YS1Y   
    … …  
    44284254#define  backward void sb::backward 
    44294255#define  flinward void sb::flinward 
    4430 #define  YS1Y Ystate[YTemps][0]  
    4431 #define  YS1  Ystate[YTemps][0]  
    4432 #define  YG1  Ygrad[YTemps][0]  
     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]  
    44334259#include "sb.h"  
    44344260#undef   YS1Y   
    … …  
    44424268#define  backward void rhd::backward 
    44434269#define  flinward void rhd::flinward 
    4444 #define  YS1Y Ystate[YTemps][0]  
    4445 #define  YS1  Ystate[YTemps][0]  
    4446 #define  YG1  Ygrad[YTemps][0]  
     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]  
    44474273#include "rhd.h"  
    44484274#undef   YS1Y   
    … …  
    44564282#define  backward void rhop::backward 
    44574283#define  flinward void rhop::flinward 
    4458 #define  YS1Y Ystate[YTemps][0]  
    4459 #define  YS1  Ystate[YTemps][0]  
    4460 #define  YG1  Ygrad[YTemps][0]  
     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]  
    44614287#include "rhop.h"  
    44624288#undef   YS1Y   
    … …  
    44704296#define  backward void hmf_TF_dynadv_cen2::backward 
    44714297#define  flinward void hmf_TF_dynadv_cen2::flinward 
    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]  
     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]  
    44844310#include "hmf_TF_dynadv_cen2.h"  
    44854311#undef   YS1Y   
    … …  
    45024328#define  backward void zua_dhmf_dynadv_cen2::backward 
    45034329#define  flinward void zua_dhmf_dynadv_cen2::flinward 
    4504 #define  YS1Y Ystate[YTemps][0]  
    4505 #define  YS1  Ystate[YTemps][0]  
    4506 #define  YG1  Ygrad[YTemps][0]  
     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]  
    45074333#include "zua_dhmf_dynadv_cen2.h"  
    45084334#undef   YS1Y   
    … …  
    45164342#define  backward void zva_dhmf_dynadv_cen2::backward 
    45174343#define  flinward void zva_dhmf_dynadv_cen2::flinward 
    4518 #define  YS1Y Ystate[YTemps][0]  
    4519 #define  YS1  Ystate[YTemps][0]  
    4520 #define  YG1  Ygrad[YTemps][0]  
     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]  
    45214347#include "zva_dhmf_dynadv_cen2.h"  
    45224348#undef   YS1Y   
    … …  
    45304356#define  backward void zfuv_UW_dynadv_cen2::backward 
    45314357#define  flinward void zfuv_UW_dynadv_cen2::flinward 
    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]  
     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]  
    45384364#include "zfuv_UW_dynadv_cen2.h"  
    45394365#undef   YS1Y   
    … …  
    45504376#define  backward void ua_dynadv_cen2::backward 
    45514377#define  flinward void ua_dynadv_cen2::flinward 
    4552 #define  YS1Y Ystate[YTemps][0]  
    4553 #define  YS1  Ystate[YTemps][0]  
    4554 #define  YG1  Ygrad[YTemps][0]  
     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]  
    45554381#include "ua_dynadv_cen2.h"  
    45564382#undef   YS1Y   
    … …  
    45644390#define  backward void va_dynadv_cen2::backward 
    45654391#define  flinward void va_dynadv_cen2::flinward 
    4566 #define  YS1Y Ystate[YTemps][0]  
    4567 #define  YS1  Ystate[YTemps][0]  
    4568 #define  YG1  Ygrad[YTemps][0]  
     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]  
    45694395#include "va_dynadv_cen2.h"  
    45704396#undef   YS1Y   
    … …  
    45784404#define  backward void zwxyz_vor_ene::backward 
    45794405#define  flinward void zwxyz_vor_ene::flinward 
    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]  
     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]  
    45894415#include "zwxyz_vor_ene.h"  
    45904416#undef   YS1Y   
    … …  
    46044430#define  backward void ua_vor_ene::backward 
    46054431#define  flinward void ua_vor_ene::flinward 
    4606 #define  YS1Y Ystate[YTemps][0]  
    4607 #define  YS1  Ystate[YTemps][0]  
    4608 #define  YG1  Ygrad[YTemps][0]  
     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]  
    46094435#include "ua_vor_ene.h"  
    46104436#undef   YS1Y   
    … …  
    46184444#define  backward void va_vor_ene::backward 
    46194445#define  flinward void va_vor_ene::flinward 
    4620 #define  YS1Y Ystate[YTemps][0]  
    4621 #define  YS1  Ystate[YTemps][0]  
    4622 #define  YG1  Ygrad[YTemps][0]  
     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]  
    46234449#include "va_vor_ene.h"  
    46244450#undef   YS1Y   
    … …  
    46324458#define  backward void ua_dyn_ldf_lap::backward 
    46334459#define  flinward void ua_dyn_ldf_lap::flinward 
    4634 #define  YS1Y Ystate[YTemps][0]  
    4635 #define  YS1  Ystate[YTemps][0]  
    4636 #define  YG1  Ygrad[YTemps][0]  
     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]  
    46374463#include "ua_dyn_ldf_lap.h"  
    46384464#undef   YS1Y   
    … …  
    46464472#define  backward void va_dyn_ldf_lap::backward 
    46474473#define  flinward void va_dyn_ldf_lap::flinward 
    4648 #define  YS1Y Ystate[YTemps][0]  
    4649 #define  YS1  Ystate[YTemps][0]  
    4650 #define  YG1  Ygrad[YTemps][0]  
     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]  
    46514477#include "va_dyn_ldf_lap.h"  
    46524478#undef   YS1Y   
    … …  
    46604486#define  backward void zhpij_dyn_hpg_zco::backward 
    46614487#define  flinward void zhpij_dyn_hpg_zco::flinward 
    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]  
     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]  
    46684494#include "zhpij_dyn_hpg_zco.h"  
    46694495#undef   YS1Y   
    … …  
    46804506#define  backward void ua_dyn_hpg_zco::backward 
    46814507#define  flinward void ua_dyn_hpg_zco::flinward 
    4682 #define  YS1Y Ystate[YTemps][0]  
    4683 #define  YS1  Ystate[YTemps][0]  
    4684 #define  YG1  Ygrad[YTemps][0]  
     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]  
    46854511#include "ua_dyn_hpg_zco.h"  
    46864512#undef   YS1Y   
    … …  
    46944520#define  backward void zwisd_ua_dynzdf_imp::backward 
    46954521#define  flinward void zwisd_ua_dynzdf_imp::flinward 
    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]  
     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]  
    47054531#include "zwisd_ua_dynzdf_imp.h"  
    47064532#undef   YS1Y   
    … …  
    47204546#define  backward void zwisd_va_dynzdf_imp::backward 
    47214547#define  flinward void zwisd_va_dynzdf_imp::flinward 
    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]  
     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]  
    47314557#include "zwisd_va_dynzdf_imp.h"  
    47324558#undef   YS1Y   
    … …  
    47464572#define  backward void zrhs_ua_dynzdf_imp::backward 
    47474573#define  flinward void zrhs_ua_dynzdf_imp::flinward 
    4748 #define  YS1Y Ystate[YTemps][0]  
    4749 #define  YS1  Ystate[YTemps][0]  
    4750 #define  YG1  Ygrad[YTemps][0]  
     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]  
    47514577#include "zrhs_ua_dynzdf_imp.h"  
    47524578#undef   YS1Y   
    … …  
    47604586#define  backward void zrhs_va_dynzdf_imp::backward 
    47614587#define  flinward void zrhs_va_dynzdf_imp::flinward 
    4762 #define  YS1Y Ystate[YTemps][0]  
    4763 #define  YS1  Ystate[YTemps][0]  
    4764 #define  YG1  Ygrad[YTemps][0]  
     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]  
    47654591#include "zrhs_va_dynzdf_imp.h"  
    47664592#undef   YS1Y   
    … …  
    47744600#define  backward void ua_dynzdf_imp::backward 
    47754601#define  flinward void ua_dynzdf_imp::flinward 
    4776 #define  YS1Y Ystate[YTemps][0]  
    4777 #define  YS1  Ystate[YTemps][0]  
    4778 #define  YG1  Ygrad[YTemps][0]  
     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]  
    47794605#include "ua_dynzdf_imp.h"  
    47804606#undef   YS1Y   
    … …  
    47884614#define  backward void ua_norm_dynzdf::backward 
    47894615#define  flinward void ua_norm_dynzdf::flinward 
    4790 #define  YS1Y Ystate[YTemps][0]  
    4791 #define  YS1  Ystate[YTemps][0]  
    4792 #define  YG1  Ygrad[YTemps][0]  
     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]  
    47934619#include "ua_norm_dynzdf.h"  
    47944620#undef   YS1Y   
    … …  
    48024628#define  backward void spguv_now_dynspg::backward 
    48034629#define  flinward void spguv_now_dynspg::flinward 
    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]  
     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]  
    48104636#include "spguv_now_dynspg.h"  
    48114637#undef   YS1Y   
    … …  
    48224648#define  backward void ua_1_dynspg_flt::backward 
    48234649#define  flinward void ua_1_dynspg_flt::flinward 
    4824 #define  YS1Y Ystate[YTemps][0]  
    4825 #define  YS1  Ystate[YTemps][0]  
    4826 #define  YG1  Ygrad[YTemps][0]  
     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]  
    48274653#include "ua_1_dynspg_flt.h"  
    48284654#undef   YS1Y   
    … …  
    48364662#define  backward void va_1_dynspg_flt::backward 
    48374663#define  flinward void va_1_dynspg_flt::flinward 
    4838 #define  YS1Y Ystate[YTemps][0]  
    4839 #define  YS1  Ystate[YTemps][0]  
    4840 #define  YG1  Ygrad[YTemps][0]  
     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]  
    48414667#include "va_1_dynspg_flt.h"  
    48424668#undef   YS1Y   
    … …  
    48504676#define  backward void sum_spgu_dynspg_flt::backward 
    48514677#define  flinward void sum_spgu_dynspg_flt::flinward 
    4852 #define  YS1Y Ystate[YTemps][0]  
    4853 #define  YS1  Ystate[YTemps][0]  
    4854 #define  YG1  Ygrad[YTemps][0]  
     4678#define  YS1Y Ystate[YTemps][Yi][Yj][0]  
     4679#define  YS1  Ystate[YTemps][Yi][Yj][0]  
     4680#define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    48554681#include "sum_spgu_dynspg_flt.h"  
    48564682#undef   YS1Y   
    … …  
    48644690#define  backward void sum_spgv_dynspg_flt::backward 
    48654691#define  flinward void sum_spgv_dynspg_flt::flinward 
    4866 #define  YS1Y Ystate[YTemps][0]  
    4867 #define  YS1  Ystate[YTemps][0]  
    4868 #define  YG1  Ygrad[YTemps][0]  
     4692#define  YS1Y Ystate[YTemps][Yi][Yj][0]  
     4693#define  YS1  Ystate[YTemps][Yi][Yj][0]  
     4694#define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    48694695#include "sum_spgv_dynspg_flt.h"  
    48704696#undef   YS1Y   
    … …  
    48784704#define  backward void gcb_dynspg_flt::backward 
    48794705#define  flinward void gcb_dynspg_flt::flinward 
    4880 #define  YS1Y Ystate[YTemps][0]  
    4881 #define  YS1  Ystate[YTemps][0]  
    4882 #define  YG1  Ygrad[YTemps][0]  
     4706#define  YS1Y Ystate[YTemps][Yi][Yj][0]  
     4707#define  YS1  Ystate[YTemps][Yi][Yj][0]  
     4708#define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    48834709#include "gcb_dynspg_flt.h"  
    48844710#undef   YS1Y   
    … …  
    48924718#define  backward void gcx_dynspg_flt::backward 
    48934719#define  flinward void gcx_dynspg_flt::flinward 
    4894 #define  YS1Y Ystate[YTemps][0]  
    4895 #define  YS1  Ystate[YTemps][0]  
    4896 #define  YG1  Ygrad[YTemps][0]  
     4720#define  YS1Y Ystate[YTemps][Yi][Yj][0]  
     4721#define  YS1  Ystate[YTemps][Yi][Yj][0]  
     4722#define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    48974723#include "gcx_dynspg_flt.h"  
    48984724#undef   YS1Y   
    … …  
    49064732#define  backward void solsor_dynspg_flt::backward 
    49074733#define  flinward void solsor_dynspg_flt::flinward 
    4908 #define  YS1Y Ystate[YTemps][0]  
    4909 #define  YS1  Ystate[YTemps][0]  
    4910 #define  YG1  Ygrad[YTemps][0]  
     4734#define  YS1Y Ystate[YTemps][Yi][Yj][0]  
     4735#define  YS1  Ystate[YTemps][Yi][Yj][0]  
     4736#define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    49114737#include "solsor_dynspg_flt.h"  
    49124738#undef   YS1Y   
    … …  
    49204746#define  backward void gcx2::backward 
    49214747#define  flinward void gcx2::flinward 
    4922 #define  YS1Y Ystate[YTemps][0]  
    4923 #define  YS1  Ystate[YTemps][0]  
    4924 #define  YG1  Ygrad[YTemps][0]  
     4748#define  YS1Y Ystate[YTemps][Yi][Yj][0]  
     4749#define  YS1  Ystate[YTemps][Yi][Yj][0]  
     4750#define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    49254751#include "gcx2.h"  
    49264752#undef   YS1Y   
    … …  
    49344760#define  backward void spguv_dynspg_flt::backward 
    49354761#define  flinward void spguv_dynspg_flt::flinward 
    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]  
     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]  
    49424768#include "spguv_dynspg_flt.h"  
    49434769#undef   YS1Y   
    … …  
    49544780#define  backward void ua::backward 
    49554781#define  flinward void ua::flinward 
    4956 #define  YS1Y Ystate[YTemps][0]  
    4957 #define  YS1  Ystate[YTemps][0]  
    4958 #define  YG1  Ygrad[YTemps][0]  
     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]  
    49594785#include "ua.h"  
    49604786#undef   YS1Y   
    … …  
    49684794#define  backward void va::backward 
    49694795#define  flinward void va::flinward 
    4970 #define  YS1Y Ystate[YTemps][0]  
    4971 #define  YS1  Ystate[YTemps][0]  
    4972 #define  YG1  Ygrad[YTemps][0]  
     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]  
    49734799#include "va.h"  
    49744800#undef   YS1Y   
    … …  
    49824808#define  backward void sshn::backward 
    49834809#define  flinward void sshn::flinward 
    4984 #define  YS1Y Ystate[YTemps][0]  
    4985 #define  YS1  Ystate[YTemps][0]  
    4986 #define  YG1  Ygrad[YTemps][0]  
     4810#define  YS1Y Ystate[YTemps][Yi][Yj][0]  
     4811#define  YS1  Ystate[YTemps][Yi][Yj][0]  
     4812#define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    49874813#include "sshn.h"  
    49884814#undef   YS1Y   
    … …  
    49964822#define  backward void sshb::backward 
    49974823#define  flinward void sshb::flinward 
    4998 #define  YS1Y Ystate[YTemps][0]  
    4999 #define  YS1  Ystate[YTemps][0]  
    5000 #define  YG1  Ygrad[YTemps][0]  
     4824#define  YS1Y Ystate[YTemps][Yi][Yj][0]  
     4825#define  YS1  Ystate[YTemps][Yi][Yj][0]  
     4826#define  YG1  Ygrad[YTemps][Yi][Yj][0]  
    50014827#include "sshb.h"  
    50024828#undef   YS1Y   
    … …  
    50104836#define  backward void ub::backward 
    50114837#define  flinward void ub::flinward 
    5012 #define  YS1Y Ystate[YTemps][0]  
    5013 #define  YS1  Ystate[YTemps][0]  
    5014 #define  YG1  Ygrad[YTemps][0]  
     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]  
    50154841#include "ub.h"  
    50164842#undef   YS1Y   
    … …  
    50244850#define  backward void vb::backward 
    50254851#define  flinward void vb::flinward 
    5026 #define  YS1Y Ystate[YTemps][0]  
    5027 #define  YS1  Ystate[YTemps][0]  
    5028 #define  YG1  Ygrad[YTemps][0]  
     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]  
    50294855#include "vb.h"  
    50304856#undef   YS1Y   
    … …  
    50384864#define  backward void hdivn::backward 
    50394865#define  flinward void hdivn::flinward 
    5040 #define  YS1Y Ystate[YTemps][0]  
    5041 #define  YS1  Ystate[YTemps][0]  
    5042 #define  YG1  Ygrad[YTemps][0]  
     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]  
    50434869#include "hdivn.h"  
    50444870#undef   YS1Y   
    … …  
    50524878#define  backward void rotn::backward 
    50534879#define  flinward void rotn::flinward 
    5054 #define  YS1Y Ystate[YTemps][0]  
    5055 #define  YS1  Ystate[YTemps][0]  
    5056 #define  YG1  Ygrad[YTemps][0]  
     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]  
    50574883#include "rotn.h"  
    50584884#undef   YS1Y   
    … …  
    50664892#define  backward void wa::backward 
    50674893#define  flinward void wa::flinward 
    5068 #define  YS1Y Ystate[YTemps][0]  
    5069 #define  YS1  Ystate[YTemps][0]  
    5070 #define  YG1  Ygrad[YTemps][0]  
     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]  
    50714897#include "wa.h"  
    50724898#undef   YS1Y   

  • trunk/src/Yworkdir/Y2sinobad.h

    r41 r42  
    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(Yw1, Yw2)->Ygrad[Yws] = 0.0;}}} 
     20                                 Ysshn_c->Ygrad[Yw1][Yw2][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(Yw1, Yw2)->Ystate[Yws] = val;}}} 
     27                                 Ysshn_c->Ystate[Yw1][Yw2][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 }/*M2_CREY*/  
    32 void 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();}} 
     31}/*M0_CREY*/  
     32void Ycreate_sshn_c()    
     33{ 
     34         if ((Ysshn_c = new Yaosshn_c ())==NULL)  
     35                 Ycreate_errnew(); 
    3736}/*M3_ADJUS*/  
    3837void Yadjust_ta_c() 
    … …  
    5958                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    6059                                 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 
    61                                          Y3x[Y3windice] = Yta_c(Yw1, Yw2, Yw3)->Ystate[Yws]; ++Y3windice;}}}} 
     60                                         Y3x[Y3windice] = Yta_c->Ystate[Yw1][Yw2][Yw3][Yws]; ++Y3windice;}}}} 
    6261}/*M3_GSTA*/  
    6362void Y3getstate_ta_c(float x[]) 
    … …  
    6766                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    6867                                 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 
    69                                          Yta_c(Yw1, Yw2, Yw3)->Ystate[Yws] = x[Y3windice]; ++Y3windice;}}}} 
     68                                         Yta_c->Ystate[Yw1][Yw2][Yw3][Yws] = x[Y3windice]; ++Y3windice;}}}} 
    7069}/*M3_VGRAD*/  
    7170void Y3valgrad_ta_c(float g[]) 
    … …  
    7574                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    7675                                 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 
    77                                          g[Y3windice] = Yta_c(Yw1, Yw2, Yw3)->Ygrad[Yws]; ++Y3windice;}}}} 
     76                                         g[Y3windice] = Yta_c->Ygrad[Yw1][Yw2][Yw3][Yws]; ++Y3windice;}}}} 
    7877}/*M3_TBTOG   */  
    7978void YtabTOgrad_ta_c(YREAL tab[]) 
    … …  
    9190                         for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 
    9291                                 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 
    93                                          Yta_c(Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}} 
     92                                         Yta_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 
    9493}/*M3_SETA*/  
    9594void Ysetstate_ta_c(double val) 
    … …  
    9998                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    10099                                 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 
    101                                          Yta_c(Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}} 
     100                                         Yta_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 
    102101}/*M3_YIOTU*/  
    103102void Yio_ta_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    … …  
    126125                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    127126                                 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 
    128                                          Yta_c(Yw1, Yw2, Yw3)->Yepsi[Yws] = val;}}}} 
    129 }/*M3_CREY*/  
    130 void 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();}}} 
     127                                         Yta_c->Yepsi[Yw1][Yw2][Yw3][Yws] = val;}}}} 
     128}/*M0_CREY*/  
     129void Ycreate_ta_c()      
     130{ 
     131         if ((Yta_c = new Yaota_c ())==NULL)  
     132                 Ycreate_errnew(); 
    136133}/*M3_SWISH*/  
    137134void Ysetwish_ta_c(double val) 
    … …  
    157154                         for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 
    158155                                 for (int Yws=0; Yws<YNBS_sa_c; ++Yws){ 
    159                                          Ysa_c(Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}} 
     156                                         Ysa_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 
    160157}/*M3_SETA*/  
    161158void Ysetstate_sa_c(double val) 
    … …  
    165162                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    166163                                 for (int Yws=0; Yws<YNBS_sa_c; ++Yws){ 
    167                                          Ysa_c(Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}} 
     164                                         Ysa_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 
    168165}/*M3_YIOTU*/  
    169166void Yio_sa_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    170167{  Yiorwf ("sa_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_c(Yws, Yw1, Yw2, Yw3), val); 
    171 }/*M3_CREY*/  
    172 void 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();}}} 
     168}/*M0_CREY*/  
     169void Ycreate_sa_c()      
     170{ 
     171         if ((Ysa_c = new Yaosa_c ())==NULL)  
     172                 Ycreate_errnew(); 
    178173}/*M3_TBTOG   */  
    179174void YtabTOgrad_ua_c(YREAL tab[]) 
    … …  
    191186                         for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 
    192187                                 for (int Yws=0; Yws<YNBS_ua_c; ++Yws){ 
    193                                          Yua_c(Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}} 
     188                                         Yua_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 
    194189}/*M3_SETA*/  
    195190void Ysetstate_ua_c(double val) 
    … …  
    199194                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    200195                                 for (int Yws=0; Yws<YNBS_ua_c; ++Yws){ 
    201                                          Yua_c(Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}} 
     196                                         Yua_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 
    202197}/*M3_YIOTU*/  
    203198void Yio_ua_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    204199{  Yiorwf ("ua_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_c(Yws, Yw1, Yw2, Yw3), val); 
    205 }/*M3_CREY*/  
    206 void 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();}}} 
     200}/*M0_CREY*/  
     201void Ycreate_ua_c()      
     202{ 
     203         if ((Yua_c = new Yaoua_c ())==NULL)  
     204                 Ycreate_errnew(); 
    212205}/*M3_TBTOG   */  
    213206void YtabTOgrad_va_c(YREAL tab[]) 
    … …  
    225218                         for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 
    226219                                 for (int Yws=0; Yws<YNBS_va_c; ++Yws){ 
    227                                          Yva_c(Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}} 
     220                                         Yva_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 
    228221}/*M3_SETA*/  
    229222void Ysetstate_va_c(double val) 
    … …  
    233226                         for (int Yw3=0; Yw3<YA3_S3d;  ++Yw3){ 
    234227                                 for (int Yws=0; Yws<YNBS_va_c; ++Yws){ 
    235                                          Yva_c(Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}} 
     228                                         Yva_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 
    236229}/*M3_YIOTU*/  
    237230void Yio_va_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    238231{  Yiorwf ("va_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_c(Yws, Yw1, Yw2, Yw3), val); 
    239 }/*M3_CREY*/  
    240 void 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();}}} 
     232}/*M0_CREY*/  
     233void Ycreate_va_c()      
     234{ 
     235         if ((Yva_c = new Yaova_c ())==NULL)  
     236                 Ycreate_errnew(); 
    246237}/*M2_TBTOGT  */  
    247238void YtabTOgrad_sbcgyre_qsr_qns(int frompdt, int topdt, YREAL tab[]) 
    … …  
    259250                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    260251                                 for (int Yws=0; Yws<YNBS_sbcgyre_qsr_qns; ++Yws){ 
    261                                          Ysbcgyre_qsr_qns(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     252                                         Ysbcgyre_qsr_qns->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    262253}/*M2_SETAT*/  
    263254void Ysetstate_sbcgyre_qsr_qns(double val) 
    … …  
    267258                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    268259                                 for (int Yws=0; Yws<YNBS_sbcgyre_qsr_qns; ++Yws){ 
    269                                          Ysbcgyre_qsr_qns(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     260                                         Ysbcgyre_qsr_qns->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    270261}/*M2_YIOUT*/  
    271262void Yio_sbcgyre_qsr_qns(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)        
    272263{  Yiorwf ("sbcgyre_qsr_qns", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_qsr_qns(Yws, Yw1, Yw2, Ywt), val); 
    273 }/*M2_CREU*/  
     264}/*M0_CREU*/  
    274265void Ycreate_sbcgyre_qsr_qns()   
    275266{ 
    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();}} 
     267         if ((Ysbcgyre_qsr_qns = new sbcgyre_qsr_qns ())==NULL)  
     268                 Ycreate_errnew(); 
    279269}/*M2_TBTOGT  */  
    280270void YtabTOgrad_sbcgyre_emp1(int frompdt, int topdt, YREAL tab[]) 
    … …  
    292282                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    293283                                 for (int Yws=0; Yws<YNBS_sbcgyre_emp1; ++Yws){ 
    294                                          Ysbcgyre_emp1(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     284                                         Ysbcgyre_emp1->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    295285}/*M2_SETAT*/  
    296286void Ysetstate_sbcgyre_emp1(double val) 
    … …  
    300290                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    301291                                 for (int Yws=0; Yws<YNBS_sbcgyre_emp1; ++Yws){ 
    302                                          Ysbcgyre_emp1(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     292                                         Ysbcgyre_emp1->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    303293}/*M2_YIOUT*/  
    304294void Yio_sbcgyre_emp1(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    305295{  Yiorwf ("sbcgyre_emp1", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emp1(Yws, Yw1, Yw2, Ywt), val); 
    306 }/*M2_CREU*/  
     296}/*M0_CREU*/  
    307297void Ycreate_sbcgyre_emp1()   
    308298{ 
    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();}} 
     299         if ((Ysbcgyre_emp1 = new sbcgyre_emp1 ())==NULL)  
     300                 Ycreate_errnew(); 
    312301}/*M2_TBTOGT  */  
    313302void YtabTOgrad_sbcgyre_zsumemp_zsurf(int frompdt, int topdt, YREAL tab[]) 
    … …  
    325314                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    326315                                 for (int Yws=0; Yws<YNBS_sbcgyre_zsumemp_zsurf; ++Yws){ 
    327                                          Ysbcgyre_zsumemp_zsurf(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     316                                         Ysbcgyre_zsumemp_zsurf->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    328317}/*M2_SETAT*/  
    329318void Ysetstate_sbcgyre_zsumemp_zsurf(double val) 
    … …  
    333322                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    334323                                 for (int Yws=0; Yws<YNBS_sbcgyre_zsumemp_zsurf; ++Yws){ 
    335                                          Ysbcgyre_zsumemp_zsurf(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     324                                         Ysbcgyre_zsumemp_zsurf->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    336325}/*M2_YIOUT*/  
    337326void Yio_sbcgyre_zsumemp_zsurf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    338327{  Yiorwf ("sbcgyre_zsumemp_zsurf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_zsumemp_zsurf(Yws, Yw1, Yw2, Ywt), val); 
    339 }/*M2_CREU*/  
     328}/*M0_CREU*/  
    340329void Ycreate_sbcgyre_zsumemp_zsurf()   
    341330{ 
    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();}} 
     331         if ((Ysbcgyre_zsumemp_zsurf = new sbcgyre_zsumemp_zsurf ())==NULL)  
     332                 Ycreate_errnew(); 
    345333}/*M2_TBTOGT  */  
    346334void YtabTOgrad_sbcgyre_emp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    358346                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    359347                                 for (int Yws=0; Yws<YNBS_sbcgyre_emp; ++Yws){ 
    360                                          Ysbcgyre_emp(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     348                                         Ysbcgyre_emp->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    361349}/*M2_SETAT*/  
    362350void Ysetstate_sbcgyre_emp(double val) 
    … …  
    366354                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    367355                                 for (int Yws=0; Yws<YNBS_sbcgyre_emp; ++Yws){ 
    368                                          Ysbcgyre_emp(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     356                                         Ysbcgyre_emp->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    369357}/*M2_YIOUT*/  
    370358void Yio_sbcgyre_emp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    371359{  Yiorwf ("sbcgyre_emp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emp(Yws, Yw1, Yw2, Ywt), val); 
    372 }/*M2_CREU*/  
     360}/*M0_CREU*/  
    373361void Ycreate_sbcgyre_emp()   
    374362{ 
    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();}} 
     363         if ((Ysbcgyre_emp = new sbcgyre_emp ())==NULL)  
     364                 Ycreate_errnew(); 
    378365}/*M2_TBTOGT  */  
    379366void YtabTOgrad_sbcgyre_emps(int frompdt, int topdt, YREAL tab[]) 
    … …  
    391378                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    392379                                 for (int Yws=0; Yws<YNBS_sbcgyre_emps; ++Yws){ 
    393                                          Ysbcgyre_emps(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     380                                         Ysbcgyre_emps->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    394381}/*M2_SETAT*/  
    395382void Ysetstate_sbcgyre_emps(double val) 
    … …  
    399386                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    400387                                 for (int Yws=0; Yws<YNBS_sbcgyre_emps; ++Yws){ 
    401                                          Ysbcgyre_emps(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     388                                         Ysbcgyre_emps->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    402389}/*M2_YIOUT*/  
    403390void Yio_sbcgyre_emps(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    404391{  Yiorwf ("sbcgyre_emps", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emps(Yws, Yw1, Yw2, Ywt), val); 
    405 }/*M2_CREU*/  
     392}/*M0_CREU*/  
    406393void Ycreate_sbcgyre_emps()   
    407394{ 
    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();}} 
     395         if ((Ysbcgyre_emps = new sbcgyre_emps ())==NULL)  
     396                 Ycreate_errnew(); 
    411397}/*M2_TBTOGT  */  
    412398void YtabTOgrad_sbcgyre_utau_vtau(int frompdt, int topdt, YREAL tab[]) 
    … …  
    424410                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    425411                                 for (int Yws=0; Yws<YNBS_sbcgyre_utau_vtau; ++Yws){ 
    426                                          Ysbcgyre_utau_vtau(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     412                                         Ysbcgyre_utau_vtau->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    427413}/*M2_SETAT*/  
    428414void Ysetstate_sbcgyre_utau_vtau(double val) 
    … …  
    432418                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    433419                                 for (int Yws=0; Yws<YNBS_sbcgyre_utau_vtau; ++Yws){ 
    434                                          Ysbcgyre_utau_vtau(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     420                                         Ysbcgyre_utau_vtau->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    435421}/*M2_YIOUT*/  
    436422void Yio_sbcgyre_utau_vtau(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)      
    437423{  Yiorwf ("sbcgyre_utau_vtau", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_utau_vtau(Yws, Yw1, Yw2, Ywt), val); 
    438 }/*M2_CREU*/  
     424}/*M0_CREU*/  
    439425void Ycreate_sbcgyre_utau_vtau()   
    440426{ 
    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();}} 
     427         if ((Ysbcgyre_utau_vtau = new sbcgyre_utau_vtau ())==NULL)  
     428                 Ycreate_errnew(); 
    444429}/*M2_TBTOGT  */  
    445430void YtabTOgrad_sbcgyre_wndm(int frompdt, int topdt, YREAL tab[]) 
    … …  
    457442                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    458443                                 for (int Yws=0; Yws<YNBS_sbcgyre_wndm; ++Yws){ 
    459                                          Ysbcgyre_wndm(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     444                                         Ysbcgyre_wndm->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    460445}/*M2_SETAT*/  
    461446void Ysetstate_sbcgyre_wndm(double val) 
    … …  
    465450                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    466451                                 for (int Yws=0; Yws<YNBS_sbcgyre_wndm; ++Yws){ 
    467                                          Ysbcgyre_wndm(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     452                                         Ysbcgyre_wndm->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    468453}/*M2_YIOUT*/  
    469454void Yio_sbcgyre_wndm(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    470455{  Yiorwf ("sbcgyre_wndm", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_wndm(Yws, Yw1, Yw2, Ywt), val); 
    471 }/*M2_CREU*/  
     456}/*M0_CREU*/  
    472457void Ycreate_sbcgyre_wndm()   
    473458{ 
    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();}} 
     459         if ((Ysbcgyre_wndm = new sbcgyre_wndm ())==NULL)  
     460                 Ycreate_errnew(); 
    477461}/*M3_TBTOGT  */  
    478462void YtabTOgrad_bn2_rn2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    492476                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    493477                                         for (int Yws=0; Yws<YNBS_bn2_rn2; ++Yws){ 
    494                                                  Ybn2_rn2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     478                                                 Ybn2_rn2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    495479}/*M3_SETAT*/  
    496480void Ysetstate_bn2_rn2(double val) 
    … …  
    501485                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    502486                                         for (int Yws=0; Yws<YNBS_bn2_rn2; ++Yws){ 
    503                                                  Ybn2_rn2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     487                                                 Ybn2_rn2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    504488}/*M3_YIOUT*/  
    505489void Yio_bn2_rn2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)        
    506490{  Yiorwf ("bn2_rn2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_bn2_rn2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    507 }/*M3_CREU*/  
     491}/*M0_CREU*/  
    508492void Ycreate_bn2_rn2()   
    509493{ 
    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();}}} 
     494         if ((Ybn2_rn2 = new bn2_rn2 ())==NULL)  
     495                 Ycreate_errnew(); 
    514496}/*M3_TBTOGT  */  
    515497void YtabTOgrad_zdf_avt_avmu_avmv(int frompdt, int topdt, YREAL tab[]) 
    … …  
    529511                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    530512                                         for (int Yws=0; Yws<YNBS_zdf_avt_avmu_avmv; ++Yws){ 
    531                                                  Yzdf_avt_avmu_avmv(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     513                                                 Yzdf_avt_avmu_avmv->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    532514}/*M3_SETAT*/  
    533515void Ysetstate_zdf_avt_avmu_avmv(double val) 
    … …  
    538520                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    539521                                         for (int Yws=0; Yws<YNBS_zdf_avt_avmu_avmv; ++Yws){ 
    540                                                  Yzdf_avt_avmu_avmv(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     522                                                 Yzdf_avt_avmu_avmv->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    541523}/*M3_YIOUT*/  
    542524void Yio_zdf_avt_avmu_avmv(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)      
    543525{  Yiorwf ("zdf_avt_avmu_avmv", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdf_avt_avmu_avmv(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    544 }/*M3_CREU*/  
     526}/*M0_CREU*/  
    545527void Ycreate_zdf_avt_avmu_avmv()   
    546528{ 
    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();}}} 
     529         if ((Yzdf_avt_avmu_avmv = new zdf_avt_avmu_avmv ())==NULL)  
     530                 Ycreate_errnew(); 
    551531}/*M2_TBTOGT  */  
    552532void YtabTOgrad_zdfmxl_hmld(int frompdt, int topdt, YREAL tab[]) 
    … …  
    564544                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    565545                                 for (int Yws=0; Yws<YNBS_zdfmxl_hmld; ++Yws){ 
    566                                          Yzdfmxl_hmld(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     546                                         Yzdfmxl_hmld->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    567547}/*M2_SETAT*/  
    568548void Ysetstate_zdfmxl_hmld(double val) 
    … …  
    572552                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    573553                                 for (int Yws=0; Yws<YNBS_zdfmxl_hmld; ++Yws){ 
    574                                          Yzdfmxl_hmld(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     554                                         Yzdfmxl_hmld->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    575555}/*M2_YIOUT*/  
    576556void Yio_zdfmxl_hmld(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    577557{  Yiorwf ("zdfmxl_hmld", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdfmxl_hmld(Yws, Yw1, Yw2, Ywt), val); 
    578 }/*M2_CREU*/  
     558}/*M0_CREU*/  
    579559void Ycreate_zdfmxl_hmld()   
    580560{ 
    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();}} 
     561         if ((Yzdfmxl_hmld = new zdfmxl_hmld ())==NULL)  
     562                 Ycreate_errnew(); 
    584563}/*M2_TBTOGT  */  
    585564void YtabTOgrad_zdfmxl_nmln_hmlp_hmlpt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    597576                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    598577                                 for (int Yws=0; Yws<YNBS_zdfmxl_nmln_hmlp_hmlpt; ++Yws){ 
    599                                          Yzdfmxl_nmln_hmlp_hmlpt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     578                                         Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    600579}/*M2_SETAT*/  
    601580void Ysetstate_zdfmxl_nmln_hmlp_hmlpt(double val) 
    … …  
    605584                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    606585                                 for (int Yws=0; Yws<YNBS_zdfmxl_nmln_hmlp_hmlpt; ++Yws){ 
    607                                          Yzdfmxl_nmln_hmlp_hmlpt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     586                                         Yzdfmxl_nmln_hmlp_hmlpt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    608587}/*M2_YIOUT*/  
    609588void Yio_zdfmxl_nmln_hmlp_hmlpt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    610589{  Yiorwf ("zdfmxl_nmln_hmlp_hmlpt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdfmxl_nmln_hmlp_hmlpt(Yws, Yw1, Yw2, Ywt), val); 
    611 }/*M2_CREU*/  
     590}/*M0_CREU*/  
    612591void Ycreate_zdfmxl_nmln_hmlp_hmlpt()   
    613592{ 
    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();}} 
     593         if ((Yzdfmxl_nmln_hmlp_hmlpt = new zdfmxl_nmln_hmlp_hmlpt ())==NULL)  
     594                 Ycreate_errnew(); 
    617595}/*M2_TBTOGT  */  
    618596void YtabTOgrad_ta_sa_trasbc(int frompdt, int topdt, YREAL tab[]) 
    … …  
    630608                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    631609                                 for (int Yws=0; Yws<YNBS_ta_sa_trasbc; ++Yws){ 
    632                                          Yta_sa_trasbc(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     610                                         Yta_sa_trasbc->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    633611}/*M2_SETAT*/  
    634612void Ysetstate_ta_sa_trasbc(double val) 
    … …  
    638616                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    639617                                 for (int Yws=0; Yws<YNBS_ta_sa_trasbc; ++Yws){ 
    640                                          Yta_sa_trasbc(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     618                                         Yta_sa_trasbc->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    641619}/*M2_YIOUT*/  
    642620void Yio_ta_sa_trasbc(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    643621{  Yiorwf ("ta_sa_trasbc", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_sa_trasbc(Yws, Yw1, Yw2, Ywt), val); 
    644 }/*M2_CREU*/  
     622}/*M0_CREU*/  
    645623void Ycreate_ta_sa_trasbc()   
    646624{ 
    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();}} 
     625         if ((Yta_sa_trasbc = new ta_sa_trasbc ())==NULL)  
     626                 Ycreate_errnew(); 
    650627}/*M3_TBTOGT  */  
    651628void YtabTOgrad_ta_traqsr(int frompdt, int topdt, YREAL tab[]) 
    … …  
    665642                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    666643                                         for (int Yws=0; Yws<YNBS_ta_traqsr; ++Yws){ 
    667                                                  Yta_traqsr(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     644                                                 Yta_traqsr->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    668645}/*M3_SETAT*/  
    669646void Ysetstate_ta_traqsr(double val) 
    … …  
    674651                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    675652                                         for (int Yws=0; Yws<YNBS_ta_traqsr; ++Yws){ 
    676                                                  Yta_traqsr(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     653                                                 Yta_traqsr->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    677654}/*M3_YIOUT*/  
    678655void Yio_ta_traqsr(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)      
    679656{  Yiorwf ("ta_traqsr", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_traqsr(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    680 }/*M3_CREU*/  
     657}/*M0_CREU*/  
    681658void Ycreate_ta_traqsr()   
    682659{ 
    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();}}} 
     660         if ((Yta_traqsr = new ta_traqsr ())==NULL)  
     661                 Ycreate_errnew(); 
    687662}/*M3_TBTOGT  */  
    688663void YtabTOgrad_zcent_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    702677                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    703678                                         for (int Yws=0; Yws<YNBS_zcent_hor_traadv_cen2; ++Yws){ 
    704                                                  Yzcent_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     679                                                 Yzcent_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    705680}/*M3_SETAT*/  
    706681void Ysetstate_zcent_hor_traadv_cen2(double val) 
    … …  
    711686                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    712687                                         for (int Yws=0; Yws<YNBS_zcent_hor_traadv_cen2; ++Yws){ 
    713                                                  Yzcent_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     688                                                 Yzcent_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    714689}/*M3_YIOUT*/  
    715690void Yio_zcent_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    716691{  Yiorwf ("zcent_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcent_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    717 }/*M3_CREU*/  
     692}/*M0_CREU*/  
    718693void Ycreate_zcent_hor_traadv_cen2()   
    719694{ 
    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();}}} 
     695         if ((Yzcent_hor_traadv_cen2 = new zcent_hor_traadv_cen2 ())==NULL)  
     696                 Ycreate_errnew(); 
    724697}/*M3_TBTOGT  */  
    725698void YtabTOgrad_zcens_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    739712                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    740713                                         for (int Yws=0; Yws<YNBS_zcens_hor_traadv_cen2; ++Yws){ 
    741                                                  Yzcens_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     714                                                 Yzcens_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    742715}/*M3_SETAT*/  
    743716void Ysetstate_zcens_hor_traadv_cen2(double val) 
    … …  
    748721                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    749722                                         for (int Yws=0; Yws<YNBS_zcens_hor_traadv_cen2; ++Yws){ 
    750                                                  Yzcens_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     723                                                 Yzcens_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    751724}/*M3_YIOUT*/  
    752725void Yio_zcens_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    753726{  Yiorwf ("zcens_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcens_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    754 }/*M3_CREU*/  
     727}/*M0_CREU*/  
    755728void Ycreate_zcens_hor_traadv_cen2()   
    756729{ 
    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();}}} 
     730         if ((Yzcens_hor_traadv_cen2 = new zcens_hor_traadv_cen2 ())==NULL)  
     731                 Ycreate_errnew(); 
    761732}/*M3_TBTOGT  */  
    762733void YtabTOgrad_ta_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    776747                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    777748                                         for (int Yws=0; Yws<YNBS_ta_hor_traadv_cen2; ++Yws){ 
    778                                                  Yta_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     749                                                 Yta_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    779750}/*M3_SETAT*/  
    780751void Ysetstate_ta_hor_traadv_cen2(double val) 
    … …  
    785756                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    786757                                         for (int Yws=0; Yws<YNBS_ta_hor_traadv_cen2; ++Yws){ 
    787                                                  Yta_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     758                                                 Yta_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    788759}/*M3_YIOUT*/  
    789760void Yio_ta_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    790761{  Yiorwf ("ta_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    791 }/*M3_CREU*/  
     762}/*M0_CREU*/  
    792763void Ycreate_ta_hor_traadv_cen2()   
    793764{ 
    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();}}} 
     765         if ((Yta_hor_traadv_cen2 = new ta_hor_traadv_cen2 ())==NULL)  
     766                 Ycreate_errnew(); 
    798767}/*M3_TBTOGT  */  
    799768void YtabTOgrad_sa_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    813782                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    814783                                         for (int Yws=0; Yws<YNBS_sa_hor_traadv_cen2; ++Yws){ 
    815                                                  Ysa_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     784                                                 Ysa_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    816785}/*M3_SETAT*/  
    817786void Ysetstate_sa_hor_traadv_cen2(double val) 
    … …  
    822791                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    823792                                         for (int Yws=0; Yws<YNBS_sa_hor_traadv_cen2; ++Yws){ 
    824                                                  Ysa_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     793                                                 Ysa_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    825794}/*M3_YIOUT*/  
    826795void Yio_sa_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    827796{  Yiorwf ("sa_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    828 }/*M3_CREU*/  
     797}/*M0_CREU*/  
    829798void Ycreate_sa_hor_traadv_cen2()   
    830799{ 
    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();}}} 
     800         if ((Ysa_hor_traadv_cen2 = new sa_hor_traadv_cen2 ())==NULL)  
     801                 Ycreate_errnew(); 
    835802}/*M3_TBTOGT  */  
    836803void YtabTOgrad_zcent_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    850817                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    851818                                         for (int Yws=0; Yws<YNBS_zcent_ver_traadv_cen2; ++Yws){ 
    852                                                  Yzcent_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     819                                                 Yzcent_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    853820}/*M3_SETAT*/  
    854821void Ysetstate_zcent_ver_traadv_cen2(double val) 
    … …  
    859826                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    860827                                         for (int Yws=0; Yws<YNBS_zcent_ver_traadv_cen2; ++Yws){ 
    861                                                  Yzcent_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     828                                                 Yzcent_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    862829}/*M3_YIOUT*/  
    863830void Yio_zcent_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    864831{  Yiorwf ("zcent_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcent_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    865 }/*M3_CREU*/  
     832}/*M0_CREU*/  
    866833void Ycreate_zcent_ver_traadv_cen2()   
    867834{ 
    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();}}} 
     835         if ((Yzcent_ver_traadv_cen2 = new zcent_ver_traadv_cen2 ())==NULL)  
     836                 Ycreate_errnew(); 
    872837}/*M3_TBTOGT  */  
    873838void YtabTOgrad_zcens_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    887852                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    888853                                         for (int Yws=0; Yws<YNBS_zcens_ver_traadv_cen2; ++Yws){ 
    889                                                  Yzcens_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     854                                                 Yzcens_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    890855}/*M3_SETAT*/  
    891856void Ysetstate_zcens_ver_traadv_cen2(double val) 
    … …  
    896861                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    897862                                         for (int Yws=0; Yws<YNBS_zcens_ver_traadv_cen2; ++Yws){ 
    898                                                  Yzcens_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     863                                                 Yzcens_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    899864}/*M3_YIOUT*/  
    900865void Yio_zcens_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    901866{  Yiorwf ("zcens_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcens_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    902 }/*M3_CREU*/  
     867}/*M0_CREU*/  
    903868void Ycreate_zcens_ver_traadv_cen2()   
    904869{ 
    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();}}} 
     870         if ((Yzcens_ver_traadv_cen2 = new zcens_ver_traadv_cen2 ())==NULL)  
     871                 Ycreate_errnew(); 
    909872}/*M3_TBTOGT  */  
    910873void YtabTOgrad_ta_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    924887                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    925888                                         for (int Yws=0; Yws<YNBS_ta_ver_traadv_cen2; ++Yws){ 
    926                                                  Yta_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     889                                                 Yta_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    927890}/*M3_SETAT*/  
    928891void Ysetstate_ta_ver_traadv_cen2(double val) 
    … …  
    933896                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    934897                                         for (int Yws=0; Yws<YNBS_ta_ver_traadv_cen2; ++Yws){ 
    935                                                  Yta_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     898                                                 Yta_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    936899}/*M3_YIOUT*/  
    937900void Yio_ta_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    938901{  Yiorwf ("ta_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    939 }/*M3_CREU*/  
     902}/*M0_CREU*/  
    940903void Ycreate_ta_ver_traadv_cen2()   
    941904{ 
    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();}}} 
     905         if ((Yta_ver_traadv_cen2 = new ta_ver_traadv_cen2 ())==NULL)  
     906                 Ycreate_errnew(); 
    946907}/*M3_TBTOGT  */  
    947908void YtabTOgrad_sa_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    961922                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    962923                                         for (int Yws=0; Yws<YNBS_sa_ver_traadv_cen2; ++Yws){ 
    963                                                  Ysa_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     924                                                 Ysa_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    964925}/*M3_SETAT*/  
    965926void Ysetstate_sa_ver_traadv_cen2(double val) 
    … …  
    970931                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    971932                                         for (int Yws=0; Yws<YNBS_sa_ver_traadv_cen2; ++Yws){ 
    972                                                  Ysa_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     933                                                 Ysa_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    973934}/*M3_YIOUT*/  
    974935void Yio_sa_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    975936{  Yiorwf ("sa_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    976 }/*M3_CREU*/  
     937}/*M0_CREU*/  
    977938void Ycreate_sa_ver_traadv_cen2()   
    978939{ 
    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();}}} 
     940         if ((Ysa_ver_traadv_cen2 = new sa_ver_traadv_cen2 ())==NULL)  
     941                 Ycreate_errnew(); 
    983942}/*M3_TBTOGT  */  
    984943void YtabTOgrad_ztuv_traldf_lap(int frompdt, int topdt, YREAL tab[]) 
    … …  
    998957                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    999958                                         for (int Yws=0; Yws<YNBS_ztuv_traldf_lap; ++Yws){ 
    1000                                                  Yztuv_traldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     959                                                 Yztuv_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    1001960}/*M3_SETAT*/  
    1002961void Ysetstate_ztuv_traldf_lap(double val) 
    … …  
    1007966                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    1008967                                         for (int Yws=0; Yws<YNBS_ztuv_traldf_lap; ++Yws){ 
    1009                                                  Yztuv_traldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     968                                                 Yztuv_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    1010969}/*M3_YIOUT*/  
    1011970void Yio_ztuv_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)        
    1012971{  Yiorwf ("ztuv_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ztuv_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1013 }/*M3_CREU*/  
     972}/*M0_CREU*/  
    1014973void Ycreate_ztuv_traldf_lap()   
    1015974{ 
    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();}}} 
     975         if ((Yztuv_traldf_lap = new ztuv_traldf_lap ())==NULL)  
     976                 Ycreate_errnew(); 
    1020977}/*M3_TBTOGT  */  
    1021978void YtabTOgrad_zsuv_traldf_lap(int frompdt, int topdt, YREAL tab[]) 
    … …  
    1035992                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    1036993                                         for (int Yws=0; Yws<YNBS_zsuv_traldf_lap; ++Yws){ 
    1037                                                  Yzsuv_traldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     994                                                 Yzsuv_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    1038995}/*M3_SETAT*/  
    1039996void Ysetstate_zsuv_traldf_lap(double val) 
    … …  
    10441001                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    10451002                                         for (int Yws=0; Yws<YNBS_zsuv_traldf_lap; ++Yws){ 
    1046                                                  Yzsuv_traldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1003                                                 Yzsuv_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    10471004}/*M3_YIOUT*/  
    10481005void Yio_zsuv_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)        
    10491006{  Yiorwf ("zsuv_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zsuv_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1050 }/*M3_CREU*/  
     1007}/*M0_CREU*/  
    10511008void Ycreate_zsuv_traldf_lap()   
    10521009{ 
    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();}}} 
     1010         if ((Yzsuv_traldf_lap = new zsuv_traldf_lap ())==NULL)  
     1011                 Ycreate_errnew(); 
    10571012}/*M3_TBTOGT  */  
    10581013void YtabTOgrad_ta_traldf_lap(int frompdt, int topdt, YREAL tab[]) 
    … …  
    10721027                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    10731028                                         for (int Yws=0; Yws<YNBS_ta_traldf_lap; ++Yws){ 
    1074                                                  Yta_traldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1029                                                 Yta_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    10751030}/*M3_SETAT*/  
    10761031void Ysetstate_ta_traldf_lap(double val) 
    … …  
    10811036                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    10821037                                         for (int Yws=0; Yws<YNBS_ta_traldf_lap; ++Yws){ 
    1083                                                  Yta_traldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1038                                                 Yta_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    10841039}/*M3_YIOUT*/  
    10851040void Yio_ta_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    10861041{  Yiorwf ("ta_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1087 }/*M3_CREU*/  
     1042}/*M0_CREU*/  
    10881043void Ycreate_ta_traldf_lap()   
    10891044{ 
    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();}}} 
     1045         if ((Yta_traldf_lap = new ta_traldf_lap ())==NULL)  
     1046                 Ycreate_errnew(); 
    10941047}/*M3_TBTOGT  */  
    10951048void YtabTOgrad_sa_traldf_lap(int frompdt, int topdt, YREAL tab[]) 
    … …  
    11091062                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    11101063                                         for (int Yws=0; Yws<YNBS_sa_traldf_lap; ++Yws){ 
    1111                                                  Ysa_traldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1064                                                 Ysa_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    11121065}/*M3_SETAT*/  
    11131066void Ysetstate_sa_traldf_lap(double val) 
    … …  
    11181071                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    11191072                                         for (int Yws=0; Yws<YNBS_sa_traldf_lap; ++Yws){ 
    1120                                                  Ysa_traldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1073                                                 Ysa_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    11211074}/*M3_YIOUT*/  
    11221075void Yio_sa_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    11231076{  Yiorwf ("sa_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1124 }/*M3_CREU*/  
     1077}/*M0_CREU*/  
    11251078void Ycreate_sa_traldf_lap()   
    11261079{ 
    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();}}} 
     1080         if ((Ysa_traldf_lap = new sa_traldf_lap ())==NULL)  
     1081                 Ycreate_errnew(); 
    11311082}/*M3_TBTOGT  */  
    11321083void YtabTOgrad_zwisd_trazdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    11461097                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    11471098                                         for (int Yws=0; Yws<YNBS_zwisd_trazdf_imp; ++Yws){ 
    1148                                                  Yzwisd_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1099                                                 Yzwisd_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    11491100}/*M3_SETAT*/  
    11501101void Ysetstate_zwisd_trazdf_imp(double val) 
    … …  
    11551106                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    11561107                                         for (int Yws=0; Yws<YNBS_zwisd_trazdf_imp; ++Yws){ 
    1157                                                  Yzwisd_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1108                                                 Yzwisd_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    11581109}/*M3_YIOUT*/  
    11591110void Yio_zwisd_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)       
    11601111{  Yiorwf ("zwisd_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1161 }/*M3_CREU*/  
     1112}/*M0_CREU*/  
    11621113void Ycreate_zwisd_trazdf_imp()   
    11631114{ 
    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();}}} 
     1115         if ((Yzwisd_trazdf_imp = new zwisd_trazdf_imp ())==NULL)  
     1116                 Ycreate_errnew(); 
    11681117}/*M3_TBTOGT  */  
    11691118void YtabTOgrad_zrhs_trazdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    11831132                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    11841133                                         for (int Yws=0; Yws<YNBS_zrhs_trazdf_imp; ++Yws){ 
    1185                                                  Yzrhs_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1134                                                 Yzrhs_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    11861135}/*M3_SETAT*/  
    11871136void Ysetstate_zrhs_trazdf_imp(double val) 
    … …  
    11921141                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    11931142                                         for (int Yws=0; Yws<YNBS_zrhs_trazdf_imp; ++Yws){ 
    1194                                                  Yzrhs_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1143                                                 Yzrhs_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    11951144}/*M3_YIOUT*/  
    11961145void Yio_zrhs_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)        
    11971146{  Yiorwf ("zrhs_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1198 }/*M3_CREU*/  
     1147}/*M0_CREU*/  
    11991148void Ycreate_zrhs_trazdf_imp()   
    12001149{ 
    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();}}} 
     1150         if ((Yzrhs_trazdf_imp = new zrhs_trazdf_imp ())==NULL)  
     1151                 Ycreate_errnew(); 
    12051152}/*M3_TBTOGT  */  
    12061153void YtabTOgrad_zrhs_sa_trazdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    12201167                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    12211168                                         for (int Yws=0; Yws<YNBS_zrhs_sa_trazdf_imp; ++Yws){ 
    1222                                                  Yzrhs_sa_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1169                                                 Yzrhs_sa_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    12231170}/*M3_SETAT*/  
    12241171void Ysetstate_zrhs_sa_trazdf_imp(double val) 
    … …  
    12291176                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    12301177                                         for (int Yws=0; Yws<YNBS_zrhs_sa_trazdf_imp; ++Yws){ 
    1231                                                  Yzrhs_sa_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1178                                                 Yzrhs_sa_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    12321179}/*M3_YIOUT*/  
    12331180void Yio_zrhs_sa_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    12341181{  Yiorwf ("zrhs_sa_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_sa_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1235 }/*M3_CREU*/  
     1182}/*M0_CREU*/  
    12361183void Ycreate_zrhs_sa_trazdf_imp()   
    12371184{ 
    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();}}} 
     1185         if ((Yzrhs_sa_trazdf_imp = new zrhs_sa_trazdf_imp ())==NULL)  
     1186                 Ycreate_errnew(); 
    12421187}/*M3_TBTOGT  */  
    12431188void YtabTOgrad_zwt_trazdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    12571202                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    12581203                                         for (int Yws=0; Yws<YNBS_zwt_trazdf_imp; ++Yws){ 
    1259                                                  Yzwt_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1204                                                 Yzwt_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    12601205}/*M3_SETAT*/  
    12611206void Ysetstate_zwt_trazdf_imp(double val) 
    … …  
    12661211                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    12671212                                         for (int Yws=0; Yws<YNBS_zwt_trazdf_imp; ++Yws){ 
    1268                                                  Yzwt_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1213                                                 Yzwt_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    12691214}/*M3_YIOUT*/  
    12701215void Yio_zwt_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    12711216{  Yiorwf ("zwt_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1272 }/*M3_CREU*/  
     1217}/*M0_CREU*/  
    12731218void Ycreate_zwt_trazdf_imp()   
    12741219{ 
    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();}}} 
     1220         if ((Yzwt_trazdf_imp = new zwt_trazdf_imp ())==NULL)  
     1221                 Ycreate_errnew(); 
    12791222}/*M3_TBTOGT  */  
    12801223void YtabTOgrad_ta_de_trazdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    12941237                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    12951238                                         for (int Yws=0; Yws<YNBS_ta_de_trazdf_imp; ++Yws){ 
    1296                                                  Yta_de_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1239                                                 Yta_de_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    12971240}/*M3_SETAT*/  
    12981241void Ysetstate_ta_de_trazdf_imp(double val) 
    … …  
    13031246                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    13041247                                         for (int Yws=0; Yws<YNBS_ta_de_trazdf_imp; ++Yws){ 
    1305                                                  Yta_de_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1248                                                 Yta_de_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    13061249}/*M3_YIOUT*/  
    13071250void Yio_ta_de_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)       
    13081251{  Yiorwf ("ta_de_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_de_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1309 }/*M3_CREU*/  
     1252}/*M0_CREU*/  
    13101253void Ycreate_ta_de_trazdf_imp()   
    13111254{ 
    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();}}} 
     1255         if ((Yta_de_trazdf_imp = new ta_de_trazdf_imp ())==NULL)  
     1256                 Ycreate_errnew(); 
    13161257}/*M3_TBTOGT  */  
    13171258void YtabTOgrad_ta(int frompdt, int topdt, YREAL tab[]) 
    … …  
    13311272                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    13321273                                         for (int Yws=0; Yws<YNBS_ta; ++Yws){ 
    1333                                                  Yta(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1274                                                 Yta->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    13341275}/*M3_SETAT*/  
    13351276void Ysetstate_ta(double val) 
    … …  
    13401281                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    13411282                                         for (int Yws=0; Yws<YNBS_ta; ++Yws){ 
    1342                                                  Yta(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1283                                                 Yta->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    13431284}/*M3_YIOUT*/  
    13441285void Yio_ta(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    13451286{  Yiorwf ("ta", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1346 }/*M3_CREU*/  
     1287}/*M0_CREU*/  
    13471288void Ycreate_ta()   
    13481289{ 
    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();}}} 
     1290         if ((Yta = new ta ())==NULL)  
     1291                 Ycreate_errnew(); 
    13531292}/*M3_TBTOGT  */  
    13541293void YtabTOgrad_sa_de_trazdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    13681307                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    13691308                                         for (int Yws=0; Yws<YNBS_sa_de_trazdf_imp; ++Yws){ 
    1370                                                  Ysa_de_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1309                                                 Ysa_de_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    13711310}/*M3_SETAT*/  
    13721311void Ysetstate_sa_de_trazdf_imp(double val) 
    … …  
    13771316                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    13781317                                         for (int Yws=0; Yws<YNBS_sa_de_trazdf_imp; ++Yws){ 
    1379                                                  Ysa_de_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1318                                                 Ysa_de_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    13801319}/*M3_YIOUT*/  
    13811320void Yio_sa_de_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)       
    13821321{  Yiorwf ("sa_de_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_de_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1383 }/*M3_CREU*/  
     1322}/*M0_CREU*/  
    13841323void Ycreate_sa_de_trazdf_imp()   
    13851324{ 
    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();}}} 
     1325         if ((Ysa_de_trazdf_imp = new sa_de_trazdf_imp ())==NULL)  
     1326                 Ycreate_errnew(); 
    13901327}/*M3_TBTOGT  */  
    13911328void YtabTOgrad_sa(int frompdt, int topdt, YREAL tab[]) 
    … …  
    14051342                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    14061343                                         for (int Yws=0; Yws<YNBS_sa; ++Yws){ 
    1407                                                  Ysa(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1344                                                 Ysa->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    14081345}/*M3_SETAT*/  
    14091346void Ysetstate_sa(double val) 
    … …  
    14141351                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    14151352                                         for (int Yws=0; Yws<YNBS_sa; ++Yws){ 
    1416                                                  Ysa(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1353                                                 Ysa->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    14171354}/*M3_YIOUT*/  
    14181355void Yio_sa(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    14191356{  Yiorwf ("sa", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1420 }/*M3_CREU*/  
     1357}/*M0_CREU*/  
    14211358void Ycreate_sa()   
    14221359{ 
    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();}}} 
     1360         if ((Ysa = new sa ())==NULL)  
     1361                 Ycreate_errnew(); 
    14271362}/*M3_TBTOGT  */  
    14281363void YtabTOgrad_tb(int frompdt, int topdt, YREAL tab[]) 
    … …  
    14421377                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    14431378                                         for (int Yws=0; Yws<YNBS_tb; ++Yws){ 
    1444                                                  Ytb(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1379                                                 Ytb->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    14451380}/*M3_SETAT*/  
    14461381void Ysetstate_tb(double val) 
    … …  
    14511386                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    14521387                                         for (int Yws=0; Yws<YNBS_tb; ++Yws){ 
    1453                                                  Ytb(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1388                                                 Ytb->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    14541389}/*M3_YIOUT*/  
    14551390void Yio_tb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    … …  
    14711406         }/*M9_OUTOB*/   
    14721407         return(1); 
    1473 }/*M3_CREU*/  
     1408}/*M0_CREU*/  
    14741409void Ycreate_tb()   
    14751410{ 
    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();}}} 
     1411         if ((Ytb = new tb ())==NULL)  
     1412                 Ycreate_errnew(); 
    14801413}/*M3_SWISH*/  
    14811414void Ysetwish_tb(double val) 
    … …  
    15031436                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    15041437                                         for (int Yws=0; Yws<YNBS_sb; ++Yws){ 
    1505                                                  Ysb(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1438                                                 Ysb->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    15061439}/*M3_SETAT*/  
    15071440void Ysetstate_sb(double val) 
    … …  
    15121445                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    15131446                                         for (int Yws=0; Yws<YNBS_sb; ++Yws){ 
    1514                                                  Ysb(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1447                                                 Ysb->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    15151448}/*M3_YIOUT*/  
    15161449void Yio_sb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    … …  
    15321465         }/*M9_OUTOB*/   
    15331466         return(1); 
    1534 }/*M3_CREU*/  
     1467}/*M0_CREU*/  
    15351468void Ycreate_sb()   
    15361469{ 
    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();}}} 
     1470         if ((Ysb = new sb ())==NULL)  
     1471                 Ycreate_errnew(); 
    15411472}/*M3_SWISH*/  
    15421473void Ysetwish_sb(double val) 
    … …  
    15641495                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    15651496                                         for (int Yws=0; Yws<YNBS_rhd; ++Yws){ 
    1566                                                  Yrhd(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1497                                                 Yrhd->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    15671498}/*M3_SETAT*/  
    15681499void Ysetstate_rhd(double val) 
    … …  
    15731504                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    15741505                                         for (int Yws=0; Yws<YNBS_rhd; ++Yws){ 
    1575                                                  Yrhd(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1506                                                 Yrhd->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    15761507}/*M3_YIOUT*/  
    15771508void Yio_rhd(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    15781509{  Yiorwf ("rhd", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rhd(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1579 }/*M3_CREU*/  
     1510}/*M0_CREU*/  
    15801511void Ycreate_rhd()   
    15811512{ 
    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();}}} 
     1513         if ((Yrhd = new rhd ())==NULL)  
     1514                 Ycreate_errnew(); 
    15861515}/*M3_TBTOGT  */  
    15871516void YtabTOgrad_rhop(int frompdt, int topdt, YREAL tab[]) 
    … …  
    16011530                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    16021531                                         for (int Yws=0; Yws<YNBS_rhop; ++Yws){ 
    1603                                                  Yrhop(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1532                                                 Yrhop->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    16041533}/*M3_SETAT*/  
    16051534void Ysetstate_rhop(double val) 
    … …  
    16101539                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    16111540                                         for (int Yws=0; Yws<YNBS_rhop; ++Yws){ 
    1612                                                  Yrhop(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1541                                                 Yrhop->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    16131542}/*M3_YIOUT*/  
    16141543void Yio_rhop(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    16151544{  Yiorwf ("rhop", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rhop(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1616 }/*M3_CREU*/  
     1545}/*M0_CREU*/  
    16171546void Ycreate_rhop()   
    16181547{ 
    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();}}} 
     1548         if ((Yrhop = new rhop ())==NULL)  
     1549                 Ycreate_errnew(); 
    16231550}/*M3_TBTOGT  */  
    16241551void YtabTOgrad_hmf_TF_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    16381565                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    16391566                                         for (int Yws=0; Yws<YNBS_hmf_TF_dynadv_cen2; ++Yws){ 
    1640                                                  Yhmf_TF_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1567                                                 Yhmf_TF_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    16411568}/*M3_SETAT*/  
    16421569void Ysetstate_hmf_TF_dynadv_cen2(double val) 
    … …  
    16471574                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    16481575                                         for (int Yws=0; Yws<YNBS_hmf_TF_dynadv_cen2; ++Yws){ 
    1649                                                  Yhmf_TF_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1576                                                 Yhmf_TF_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    16501577}/*M3_YIOUT*/  
    16511578void Yio_hmf_TF_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    16521579{  Yiorwf ("hmf_TF_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_hmf_TF_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1653 }/*M3_CREU*/  
     1580}/*M0_CREU*/  
    16541581void Ycreate_hmf_TF_dynadv_cen2()   
    16551582{ 
    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();}}} 
     1583         if ((Yhmf_TF_dynadv_cen2 = new hmf_TF_dynadv_cen2 ())==NULL)  
     1584                 Ycreate_errnew(); 
    16601585}/*M3_TBTOGT  */  
    16611586void YtabTOgrad_zua_dhmf_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    16751600                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    16761601                                         for (int Yws=0; Yws<YNBS_zua_dhmf_dynadv_cen2; ++Yws){ 
    1677                                                  Yzua_dhmf_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1602                                                 Yzua_dhmf_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    16781603}/*M3_SETAT*/  
    16791604void Ysetstate_zua_dhmf_dynadv_cen2(double val) 
    … …  
    16841609                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    16851610                                         for (int Yws=0; Yws<YNBS_zua_dhmf_dynadv_cen2; ++Yws){ 
    1686                                                  Yzua_dhmf_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1611                                                 Yzua_dhmf_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    16871612}/*M3_YIOUT*/  
    16881613void Yio_zua_dhmf_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    16891614{  Yiorwf ("zua_dhmf_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zua_dhmf_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1690 }/*M3_CREU*/  
     1615}/*M0_CREU*/  
    16911616void Ycreate_zua_dhmf_dynadv_cen2()   
    16921617{ 
    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();}}} 
     1618         if ((Yzua_dhmf_dynadv_cen2 = new zua_dhmf_dynadv_cen2 ())==NULL)  
     1619                 Ycreate_errnew(); 
    16971620}/*M3_TBTOGT  */  
    16981621void YtabTOgrad_zva_dhmf_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    17121635                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    17131636                                         for (int Yws=0; Yws<YNBS_zva_dhmf_dynadv_cen2; ++Yws){ 
    1714                                                  Yzva_dhmf_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1637                                                 Yzva_dhmf_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    17151638}/*M3_SETAT*/  
    17161639void Ysetstate_zva_dhmf_dynadv_cen2(double val) 
    … …  
    17211644                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    17221645                                         for (int Yws=0; Yws<YNBS_zva_dhmf_dynadv_cen2; ++Yws){ 
    1723                                                  Yzva_dhmf_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1646                                                 Yzva_dhmf_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    17241647}/*M3_YIOUT*/  
    17251648void Yio_zva_dhmf_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    17261649{  Yiorwf ("zva_dhmf_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zva_dhmf_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1727 }/*M3_CREU*/  
     1650}/*M0_CREU*/  
    17281651void Ycreate_zva_dhmf_dynadv_cen2()   
    17291652{ 
    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();}}} 
     1653         if ((Yzva_dhmf_dynadv_cen2 = new zva_dhmf_dynadv_cen2 ())==NULL)  
     1654                 Ycreate_errnew(); 
    17341655}/*M3_TBTOGT  */  
    17351656void YtabTOgrad_zfuv_UW_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    17491670                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    17501671                                         for (int Yws=0; Yws<YNBS_zfuv_UW_dynadv_cen2; ++Yws){ 
    1751                                                  Yzfuv_UW_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1672                                                 Yzfuv_UW_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    17521673}/*M3_SETAT*/  
    17531674void Ysetstate_zfuv_UW_dynadv_cen2(double val) 
    … …  
    17581679                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    17591680                                         for (int Yws=0; Yws<YNBS_zfuv_UW_dynadv_cen2; ++Yws){ 
    1760                                                  Yzfuv_UW_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1681                                                 Yzfuv_UW_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    17611682}/*M3_YIOUT*/  
    17621683void Yio_zfuv_UW_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    17631684{  Yiorwf ("zfuv_UW_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zfuv_UW_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1764 }/*M3_CREU*/  
     1685}/*M0_CREU*/  
    17651686void Ycreate_zfuv_UW_dynadv_cen2()   
    17661687{ 
    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();}}} 
     1688         if ((Yzfuv_UW_dynadv_cen2 = new zfuv_UW_dynadv_cen2 ())==NULL)  
     1689                 Ycreate_errnew(); 
    17711690}/*M3_TBTOGT  */  
    17721691void YtabTOgrad_ua_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    17861705                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    17871706                                         for (int Yws=0; Yws<YNBS_ua_dynadv_cen2; ++Yws){ 
    1788                                                  Yua_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1707                                                 Yua_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    17891708}/*M3_SETAT*/  
    17901709void Ysetstate_ua_dynadv_cen2(double val) 
    … …  
    17951714                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    17961715                                         for (int Yws=0; Yws<YNBS_ua_dynadv_cen2; ++Yws){ 
    1797                                                  Yua_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1716                                                 Yua_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    17981717}/*M3_YIOUT*/  
    17991718void Yio_ua_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    18001719{  Yiorwf ("ua_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1801 }/*M3_CREU*/  
     1720}/*M0_CREU*/  
    18021721void Ycreate_ua_dynadv_cen2()   
    18031722{ 
    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();}}} 
     1723         if ((Yua_dynadv_cen2 = new ua_dynadv_cen2 ())==NULL)  
     1724                 Ycreate_errnew(); 
    18081725}/*M3_TBTOGT  */  
    18091726void YtabTOgrad_va_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    18231740                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    18241741                                         for (int Yws=0; Yws<YNBS_va_dynadv_cen2; ++Yws){ 
    1825                                                  Yva_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1742                                                 Yva_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    18261743}/*M3_SETAT*/  
    18271744void Ysetstate_va_dynadv_cen2(double val) 
    … …  
    18321749                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    18331750                                         for (int Yws=0; Yws<YNBS_va_dynadv_cen2; ++Yws){ 
    1834                                                  Yva_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1751                                                 Yva_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    18351752}/*M3_YIOUT*/  
    18361753void Yio_va_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    18371754{  Yiorwf ("va_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1838 }/*M3_CREU*/  
     1755}/*M0_CREU*/  
    18391756void Ycreate_va_dynadv_cen2()   
    18401757{ 
    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();}}} 
     1758         if ((Yva_dynadv_cen2 = new va_dynadv_cen2 ())==NULL)  
     1759                 Ycreate_errnew(); 
    18451760}/*M3_TBTOGT  */  
    18461761void YtabTOgrad_zwxyz_vor_ene(int frompdt, int topdt, YREAL tab[]) 
    … …  
    18601775                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    18611776                                         for (int Yws=0; Yws<YNBS_zwxyz_vor_ene; ++Yws){ 
    1862                                                  Yzwxyz_vor_ene(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1777                                                 Yzwxyz_vor_ene->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    18631778}/*M3_SETAT*/  
    18641779void Ysetstate_zwxyz_vor_ene(double val) 
    … …  
    18691784                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    18701785                                         for (int Yws=0; Yws<YNBS_zwxyz_vor_ene; ++Yws){ 
    1871                                                  Yzwxyz_vor_ene(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1786                                                 Yzwxyz_vor_ene->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    18721787}/*M3_YIOUT*/  
    18731788void Yio_zwxyz_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    18741789{  Yiorwf ("zwxyz_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwxyz_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1875 }/*M3_CREU*/  
     1790}/*M0_CREU*/  
    18761791void Ycreate_zwxyz_vor_ene()   
    18771792{ 
    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();}}} 
     1793         if ((Yzwxyz_vor_ene = new zwxyz_vor_ene ())==NULL)  
     1794                 Ycreate_errnew(); 
    18821795}/*M3_TBTOGT  */  
    18831796void YtabTOgrad_ua_vor_ene(int frompdt, int topdt, YREAL tab[]) 
    … …  
    18971810                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    18981811                                         for (int Yws=0; Yws<YNBS_ua_vor_ene; ++Yws){ 
    1899                                                  Yua_vor_ene(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1812                                                 Yua_vor_ene->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    19001813}/*M3_SETAT*/  
    19011814void Ysetstate_ua_vor_ene(double val) 
    … …  
    19061819                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    19071820                                         for (int Yws=0; Yws<YNBS_ua_vor_ene; ++Yws){ 
    1908                                                  Yua_vor_ene(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1821                                                 Yua_vor_ene->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    19091822}/*M3_YIOUT*/  
    19101823void Yio_ua_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    19111824{  Yiorwf ("ua_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1912 }/*M3_CREU*/  
     1825}/*M0_CREU*/  
    19131826void Ycreate_ua_vor_ene()   
    19141827{ 
    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();}}} 
     1828         if ((Yua_vor_ene = new ua_vor_ene ())==NULL)  
     1829                 Ycreate_errnew(); 
    19191830}/*M3_TBTOGT  */  
    19201831void YtabTOgrad_va_vor_ene(int frompdt, int topdt, YREAL tab[]) 
    … …  
    19341845                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    19351846                                         for (int Yws=0; Yws<YNBS_va_vor_ene; ++Yws){ 
    1936                                                  Yva_vor_ene(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1847                                                 Yva_vor_ene->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    19371848}/*M3_SETAT*/  
    19381849void Ysetstate_va_vor_ene(double val) 
    … …  
    19431854                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    19441855                                         for (int Yws=0; Yws<YNBS_va_vor_ene; ++Yws){ 
    1945                                                  Yva_vor_ene(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1856                                                 Yva_vor_ene->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    19461857}/*M3_YIOUT*/  
    19471858void Yio_va_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    19481859{  Yiorwf ("va_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1949 }/*M3_CREU*/  
     1860}/*M0_CREU*/  
    19501861void Ycreate_va_vor_ene()   
    19511862{ 
    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();}}} 
     1863         if ((Yva_vor_ene = new va_vor_ene ())==NULL)  
     1864                 Ycreate_errnew(); 
    19561865}/*M3_TBTOGT  */  
    19571866void YtabTOgrad_ua_dyn_ldf_lap(int frompdt, int topdt, YREAL tab[]) 
    … …  
    19711880                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    19721881                                         for (int Yws=0; Yws<YNBS_ua_dyn_ldf_lap; ++Yws){ 
    1973                                                  Yua_dyn_ldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1882                                                 Yua_dyn_ldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    19741883}/*M3_SETAT*/  
    19751884void Ysetstate_ua_dyn_ldf_lap(double val) 
    … …  
    19801889                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    19811890                                         for (int Yws=0; Yws<YNBS_ua_dyn_ldf_lap; ++Yws){ 
    1982                                                  Yua_dyn_ldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1891                                                 Yua_dyn_ldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    19831892}/*M3_YIOUT*/  
    19841893void Yio_ua_dyn_ldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    19851894{  Yiorwf ("ua_dyn_ldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dyn_ldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    1986 }/*M3_CREU*/  
     1895}/*M0_CREU*/  
    19871896void Ycreate_ua_dyn_ldf_lap()   
    19881897{ 
    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();}}} 
     1898         if ((Yua_dyn_ldf_lap = new ua_dyn_ldf_lap ())==NULL)  
     1899                 Ycreate_errnew(); 
    19931900}/*M3_TBTOGT  */  
    19941901void YtabTOgrad_va_dyn_ldf_lap(int frompdt, int topdt, YREAL tab[]) 
    … …  
    20081915                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    20091916                                         for (int Yws=0; Yws<YNBS_va_dyn_ldf_lap; ++Yws){ 
    2010                                                  Yva_dyn_ldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1917                                                 Yva_dyn_ldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    20111918}/*M3_SETAT*/  
    20121919void Ysetstate_va_dyn_ldf_lap(double val) 
    … …  
    20171924                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    20181925                                         for (int Yws=0; Yws<YNBS_va_dyn_ldf_lap; ++Yws){ 
    2019                                                  Yva_dyn_ldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1926                                                 Yva_dyn_ldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    20201927}/*M3_YIOUT*/  
    20211928void Yio_va_dyn_ldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    20221929{  Yiorwf ("va_dyn_ldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dyn_ldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2023 }/*M3_CREU*/  
     1930}/*M0_CREU*/  
    20241931void Ycreate_va_dyn_ldf_lap()   
    20251932{ 
    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();}}} 
     1933         if ((Yva_dyn_ldf_lap = new va_dyn_ldf_lap ())==NULL)  
     1934                 Ycreate_errnew(); 
    20301935}/*M3_TBTOGT  */  
    20311936void YtabTOgrad_zhpij_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) 
    … …  
    20451950                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    20461951                                         for (int Yws=0; Yws<YNBS_zhpij_dyn_hpg_zco; ++Yws){ 
    2047                                                  Yzhpij_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1952                                                 Yzhpij_dyn_hpg_zco->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    20481953}/*M3_SETAT*/  
    20491954void Ysetstate_zhpij_dyn_hpg_zco(double val) 
    … …  
    20541959                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    20551960                                         for (int Yws=0; Yws<YNBS_zhpij_dyn_hpg_zco; ++Yws){ 
    2056                                                  Yzhpij_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1961                                                 Yzhpij_dyn_hpg_zco->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    20571962}/*M3_YIOUT*/  
    20581963void Yio_zhpij_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)      
    20591964{  Yiorwf ("zhpij_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zhpij_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2060 }/*M3_CREU*/  
     1965}/*M0_CREU*/  
    20611966void Ycreate_zhpij_dyn_hpg_zco()   
    20621967{ 
    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();}}} 
     1968         if ((Yzhpij_dyn_hpg_zco = new zhpij_dyn_hpg_zco ())==NULL)  
     1969                 Ycreate_errnew(); 
    20671970}/*M3_TBTOGT  */  
    20681971void YtabTOgrad_ua_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) 
    … …  
    20821985                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    20831986                                         for (int Yws=0; Yws<YNBS_ua_dyn_hpg_zco; ++Yws){ 
    2084                                                  Yua_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     1987                                                 Yua_dyn_hpg_zco->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    20851988}/*M3_SETAT*/  
    20861989void Ysetstate_ua_dyn_hpg_zco(double val) 
    … …  
    20911994                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    20921995                                         for (int Yws=0; Yws<YNBS_ua_dyn_hpg_zco; ++Yws){ 
    2093                                                  Yua_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     1996                                                 Yua_dyn_hpg_zco->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    20941997}/*M3_YIOUT*/  
    20951998void Yio_ua_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    20961999{  Yiorwf ("ua_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2097 }/*M3_CREU*/  
     2000}/*M0_CREU*/  
    20982001void Ycreate_ua_dyn_hpg_zco()   
    20992002{ 
    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();}}} 
     2003         if ((Yua_dyn_hpg_zco = new ua_dyn_hpg_zco ())==NULL)  
     2004                 Ycreate_errnew(); 
    21042005}/*M3_TBTOGT  */  
    21052006void YtabTOgrad_va_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) 
    … …  
    21192020                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    21202021                                         for (int Yws=0; Yws<YNBS_va_dyn_hpg_zco; ++Yws){ 
    2121                                                  Yva_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2022                                                 Yva_dyn_hpg_zco->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    21222023}/*M3_SETAT*/  
    21232024void Ysetstate_va_dyn_hpg_zco(double val) 
    … …  
    21282029                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    21292030                                         for (int Yws=0; Yws<YNBS_va_dyn_hpg_zco; ++Yws){ 
    2130                                                  Yva_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2031                                                 Yva_dyn_hpg_zco->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    21312032}/*M3_YIOUT*/  
    21322033void Yio_va_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    21332034{  Yiorwf ("va_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2134 }/*M3_CREU*/  
     2035}/*M0_CREU*/  
    21352036void Ycreate_va_dyn_hpg_zco()   
    21362037{ 
    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();}}} 
     2038         if ((Yva_dyn_hpg_zco = new va_dyn_hpg_zco ())==NULL)  
     2039                 Ycreate_errnew(); 
    21412040}/*M3_TBTOGT  */  
    21422041void YtabTOgrad_zwisd_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    21562055                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    21572056                                         for (int Yws=0; Yws<YNBS_zwisd_ua_dynzdf_imp; ++Yws){ 
    2158                                                  Yzwisd_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2057                                                 Yzwisd_ua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    21592058}/*M3_SETAT*/  
    21602059void Ysetstate_zwisd_ua_dynzdf_imp(double val) 
    … …  
    21652064                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    21662065                                         for (int Yws=0; Yws<YNBS_zwisd_ua_dynzdf_imp; ++Yws){ 
    2167                                                  Yzwisd_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2066                                                 Yzwisd_ua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    21682067}/*M3_YIOUT*/  
    21692068void Yio_zwisd_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    21702069{  Yiorwf ("zwisd_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2171 }/*M3_CREU*/  
     2070}/*M0_CREU*/  
    21722071void Ycreate_zwisd_ua_dynzdf_imp()   
    21732072{ 
    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();}}} 
     2073         if ((Yzwisd_ua_dynzdf_imp = new zwisd_ua_dynzdf_imp ())==NULL)  
     2074                 Ycreate_errnew(); 
    21782075}/*M3_TBTOGT  */  
    21792076void YtabTOgrad_zwisd_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    21932090                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    21942091                                         for (int Yws=0; Yws<YNBS_zwisd_va_dynzdf_imp; ++Yws){ 
    2195                                                  Yzwisd_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2092                                                 Yzwisd_va_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    21962093}/*M3_SETAT*/  
    21972094void Ysetstate_zwisd_va_dynzdf_imp(double val) 
    … …  
    22022099                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    22032100                                         for (int Yws=0; Yws<YNBS_zwisd_va_dynzdf_imp; ++Yws){ 
    2204                                                  Yzwisd_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2101                                                 Yzwisd_va_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    22052102}/*M3_YIOUT*/  
    22062103void Yio_zwisd_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    22072104{  Yiorwf ("zwisd_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2208 }/*M3_CREU*/  
     2105}/*M0_CREU*/  
    22092106void Ycreate_zwisd_va_dynzdf_imp()   
    22102107{ 
    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();}}} 
     2108         if ((Yzwisd_va_dynzdf_imp = new zwisd_va_dynzdf_imp ())==NULL)  
     2109                 Ycreate_errnew(); 
    22152110}/*M3_TBTOGT  */  
    22162111void YtabTOgrad_zrhs_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    22302125                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    22312126                                         for (int Yws=0; Yws<YNBS_zrhs_ua_dynzdf_imp; ++Yws){ 
    2232                                                  Yzrhs_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2127                                                 Yzrhs_ua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    22332128}/*M3_SETAT*/  
    22342129void Ysetstate_zrhs_ua_dynzdf_imp(double val) 
    … …  
    22392134                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    22402135                                         for (int Yws=0; Yws<YNBS_zrhs_ua_dynzdf_imp; ++Yws){ 
    2241                                                  Yzrhs_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2136                                                 Yzrhs_ua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    22422137}/*M3_YIOUT*/  
    22432138void Yio_zrhs_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    22442139{  Yiorwf ("zrhs_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2245 }/*M3_CREU*/  
     2140}/*M0_CREU*/  
    22462141void Ycreate_zrhs_ua_dynzdf_imp()   
    22472142{ 
    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();}}} 
     2143         if ((Yzrhs_ua_dynzdf_imp = new zrhs_ua_dynzdf_imp ())==NULL)  
     2144                 Ycreate_errnew(); 
    22522145}/*M3_TBTOGT  */  
    22532146void YtabTOgrad_zrhs_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    22672160                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    22682161                                         for (int Yws=0; Yws<YNBS_zrhs_va_dynzdf_imp; ++Yws){ 
    2269                                                  Yzrhs_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2162                                                 Yzrhs_va_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    22702163}/*M3_SETAT*/  
    22712164void Ysetstate_zrhs_va_dynzdf_imp(double val) 
    … …  
    22762169                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    22772170                                         for (int Yws=0; Yws<YNBS_zrhs_va_dynzdf_imp; ++Yws){ 
    2278                                                  Yzrhs_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2171                                                 Yzrhs_va_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    22792172}/*M3_YIOUT*/  
    22802173void Yio_zrhs_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    22812174{  Yiorwf ("zrhs_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2282 }/*M3_CREU*/  
     2175}/*M0_CREU*/  
    22832176void Ycreate_zrhs_va_dynzdf_imp()   
    22842177{ 
    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();}}} 
     2178         if ((Yzrhs_va_dynzdf_imp = new zrhs_va_dynzdf_imp ())==NULL)  
     2179                 Ycreate_errnew(); 
    22892180}/*M3_TBTOGT  */  
    22902181void YtabTOgrad_zwt_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    23042195                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    23052196                                         for (int Yws=0; Yws<YNBS_zwt_ua_dynzdf_imp; ++Yws){ 
    2306                                                  Yzwt_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2197                                                 Yzwt_ua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    23072198}/*M3_SETAT*/  
    23082199void Ysetstate_zwt_ua_dynzdf_imp(double val) 
    … …  
    23132204                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    23142205                                         for (int Yws=0; Yws<YNBS_zwt_ua_dynzdf_imp; ++Yws){ 
    2315                                                  Yzwt_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2206                                                 Yzwt_ua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    23162207}/*M3_YIOUT*/  
    23172208void Yio_zwt_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)      
    23182209{  Yiorwf ("zwt_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2319 }/*M3_CREU*/  
     2210}/*M0_CREU*/  
    23202211void Ycreate_zwt_ua_dynzdf_imp()   
    23212212{ 
    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();}}} 
     2213         if ((Yzwt_ua_dynzdf_imp = new zwt_ua_dynzdf_imp ())==NULL)  
     2214                 Ycreate_errnew(); 
    23262215}/*M3_TBTOGT  */  
    23272216void YtabTOgrad_zwt_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    23412230                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    23422231                                         for (int Yws=0; Yws<YNBS_zwt_va_dynzdf_imp; ++Yws){ 
    2343                                                  Yzwt_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2232                                                 Yzwt_va_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    23442233}/*M3_SETAT*/  
    23452234void Ysetstate_zwt_va_dynzdf_imp(double val) 
    … …  
    23502239                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    23512240                                         for (int Yws=0; Yws<YNBS_zwt_va_dynzdf_imp; ++Yws){ 
    2352                                                  Yzwt_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2241                                                 Yzwt_va_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    23532242}/*M3_YIOUT*/  
    23542243void Yio_zwt_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)      
    23552244{  Yiorwf ("zwt_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2356 }/*M3_CREU*/  
     2245}/*M0_CREU*/  
    23572246void Ycreate_zwt_va_dynzdf_imp()   
    23582247{ 
    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();}}} 
     2248         if ((Yzwt_va_dynzdf_imp = new zwt_va_dynzdf_imp ())==NULL)  
     2249                 Ycreate_errnew(); 
    23632250}/*M3_TBTOGT  */  
    23642251void YtabTOgrad_ua_de_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    23782265                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    23792266                                         for (int Yws=0; Yws<YNBS_ua_de_dynzdf_imp; ++Yws){ 
    2380                                                  Yua_de_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2267                                                 Yua_de_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    23812268}/*M3_SETAT*/  
    23822269void Ysetstate_ua_de_dynzdf_imp(double val) 
    … …  
    23872274                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    23882275                                         for (int Yws=0; Yws<YNBS_ua_de_dynzdf_imp; ++Yws){ 
    2389                                                  Yua_de_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2276                                                 Yua_de_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    23902277}/*M3_YIOUT*/  
    23912278void Yio_ua_de_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)       
    23922279{  Yiorwf ("ua_de_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_de_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2393 }/*M3_CREU*/  
     2280}/*M0_CREU*/  
    23942281void Ycreate_ua_de_dynzdf_imp()   
    23952282{ 
    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();}}} 
     2283         if ((Yua_de_dynzdf_imp = new ua_de_dynzdf_imp ())==NULL)  
     2284                 Ycreate_errnew(); 
    24002285}/*M3_TBTOGT  */  
    24012286void YtabTOgrad_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    24152300                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    24162301                                         for (int Yws=0; Yws<YNBS_ua_dynzdf_imp; ++Yws){ 
    2417                                                  Yua_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2302                                                 Yua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    24182303}/*M3_SETAT*/  
    24192304void Ysetstate_ua_dynzdf_imp(double val) 
    … …  
    24242309                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    24252310                                         for (int Yws=0; Yws<YNBS_ua_dynzdf_imp; ++Yws){ 
    2426                                                  Yua_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2311                                                 Yua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    24272312}/*M3_YIOUT*/  
    24282313void Yio_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    24292314{  Yiorwf ("ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2430 }/*M3_CREU*/  
     2315}/*M0_CREU*/  
    24312316void Ycreate_ua_dynzdf_imp()   
    24322317{ 
    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();}}} 
     2318         if ((Yua_dynzdf_imp = new ua_dynzdf_imp ())==NULL)  
     2319                 Ycreate_errnew(); 
    24372320}/*M3_TBTOGT  */  
    24382321void YtabTOgrad_va_de_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    24522335                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    24532336                                         for (int Yws=0; Yws<YNBS_va_de_dynzdf_imp; ++Yws){ 
    2454                                                  Yva_de_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2337                                                 Yva_de_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    24552338}/*M3_SETAT*/  
    24562339void Ysetstate_va_de_dynzdf_imp(double val) 
    … …  
    24612344                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    24622345                                         for (int Yws=0; Yws<YNBS_va_de_dynzdf_imp; ++Yws){ 
    2463                                                  Yva_de_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2346                                                 Yva_de_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    24642347}/*M3_YIOUT*/  
    24652348void Yio_va_de_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)       
    24662349{  Yiorwf ("va_de_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_de_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2467 }/*M3_CREU*/  
     2350}/*M0_CREU*/  
    24682351void Ycreate_va_de_dynzdf_imp()   
    24692352{ 
    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();}}} 
     2353         if ((Yva_de_dynzdf_imp = new va_de_dynzdf_imp ())==NULL)  
     2354                 Ycreate_errnew(); 
    24742355}/*M3_TBTOGT  */  
    24752356void YtabTOgrad_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) 
    … …  
    24892370                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    24902371                                         for (int Yws=0; Yws<YNBS_va_dynzdf_imp; ++Yws){ 
    2491                                                  Yva_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2372                                                 Yva_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    24922373}/*M3_SETAT*/  
    24932374void Ysetstate_va_dynzdf_imp(double val) 
    … …  
    24982379                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    24992380                                         for (int Yws=0; Yws<YNBS_va_dynzdf_imp; ++Yws){ 
    2500                                                  Yva_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2381                                                 Yva_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    25012382}/*M3_YIOUT*/  
    25022383void Yio_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    25032384{  Yiorwf ("va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2504 }/*M3_CREU*/  
     2385}/*M0_CREU*/  
    25052386void Ycreate_va_dynzdf_imp()   
    25062387{ 
    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();}}} 
     2388         if ((Yva_dynzdf_imp = new va_dynzdf_imp ())==NULL)  
     2389                 Ycreate_errnew(); 
    25112390}/*M3_TBTOGT  */  
    25122391void YtabTOgrad_ua_norm_dynzdf(int frompdt, int topdt, YREAL tab[]) 
    … …  
    25262405                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    25272406                                         for (int Yws=0; Yws<YNBS_ua_norm_dynzdf; ++Yws){ 
    2528                                                  Yua_norm_dynzdf(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2407                                                 Yua_norm_dynzdf->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    25292408}/*M3_SETAT*/  
    25302409void Ysetstate_ua_norm_dynzdf(double val) 
    … …  
    25352414                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    25362415                                         for (int Yws=0; Yws<YNBS_ua_norm_dynzdf; ++Yws){ 
    2537                                                  Yua_norm_dynzdf(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2416                                                 Yua_norm_dynzdf->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    25382417}/*M3_YIOUT*/  
    25392418void Yio_ua_norm_dynzdf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    25402419{  Yiorwf ("ua_norm_dynzdf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_norm_dynzdf(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2541 }/*M3_CREU*/  
     2420}/*M0_CREU*/  
    25422421void Ycreate_ua_norm_dynzdf()   
    25432422{ 
    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();}}} 
     2423         if ((Yua_norm_dynzdf = new ua_norm_dynzdf ())==NULL)  
     2424                 Ycreate_errnew(); 
    25482425}/*M3_TBTOGT  */  
    25492426void YtabTOgrad_va_norm_dynzdf(int frompdt, int topdt, YREAL tab[]) 
    … …  
    25632440                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    25642441                                         for (int Yws=0; Yws<YNBS_va_norm_dynzdf; ++Yws){ 
    2565                                                  Yva_norm_dynzdf(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2442                                                 Yva_norm_dynzdf->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    25662443}/*M3_SETAT*/  
    25672444void Ysetstate_va_norm_dynzdf(double val) 
    … …  
    25722449                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    25732450                                         for (int Yws=0; Yws<YNBS_va_norm_dynzdf; ++Yws){ 
    2574                                                  Yva_norm_dynzdf(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2451                                                 Yva_norm_dynzdf->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    25752452}/*M3_YIOUT*/  
    25762453void Yio_va_norm_dynzdf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    25772454{  Yiorwf ("va_norm_dynzdf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_norm_dynzdf(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2578 }/*M3_CREU*/  
     2455}/*M0_CREU*/  
    25792456void Ycreate_va_norm_dynzdf()   
    25802457{ 
    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();}}} 
     2458         if ((Yva_norm_dynzdf = new va_norm_dynzdf ())==NULL)  
     2459                 Ycreate_errnew(); 
    25852460}/*M2_TBTOGT  */  
    25862461void YtabTOgrad_spguv_now_dynspg(int frompdt, int topdt, YREAL tab[]) 
    … …  
    25982473                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    25992474                                 for (int Yws=0; Yws<YNBS_spguv_now_dynspg; ++Yws){ 
    2600                                          Yspguv_now_dynspg(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     2475                                         Yspguv_now_dynspg->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    26012476}/*M2_SETAT*/  
    26022477void Ysetstate_spguv_now_dynspg(double val) 
    … …  
    26062481                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    26072482                                 for (int Yws=0; Yws<YNBS_spguv_now_dynspg; ++Yws){ 
    2608                                          Yspguv_now_dynspg(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     2483                                         Yspguv_now_dynspg->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    26092484}/*M2_YIOUT*/  
    26102485void Yio_spguv_now_dynspg(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)       
    26112486{  Yiorwf ("spguv_now_dynspg", Yws, Yw1, Yw2, Yw3, Ywt, &YS_spguv_now_dynspg(Yws, Yw1, Yw2, Ywt), val); 
    2612 }/*M2_CREU*/  
     2487}/*M0_CREU*/  
    26132488void Ycreate_spguv_now_dynspg()   
    26142489{ 
    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();}} 
     2490         if ((Yspguv_now_dynspg = new spguv_now_dynspg ())==NULL)  
     2491                 Ycreate_errnew(); 
    26182492}/*M3_TBTOGT  */  
    26192493void YtabTOgrad_ua_1_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    26332507                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    26342508                                         for (int Yws=0; Yws<YNBS_ua_1_dynspg_flt; ++Yws){ 
    2635                                                  Yua_1_dynspg_flt(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2509                                                 Yua_1_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    26362510}/*M3_SETAT*/  
    26372511void Ysetstate_ua_1_dynspg_flt(double val) 
    … …  
    26422516                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    26432517                                         for (int Yws=0; Yws<YNBS_ua_1_dynspg_flt; ++Yws){ 
    2644                                                  Yua_1_dynspg_flt(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2518                                                 Yua_1_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    26452519}/*M3_YIOUT*/  
    26462520void Yio_ua_1_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)        
    26472521{  Yiorwf ("ua_1_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_1_dynspg_flt(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2648 }/*M3_CREU*/  
     2522}/*M0_CREU*/  
    26492523void Ycreate_ua_1_dynspg_flt()   
    26502524{ 
    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();}}} 
     2525         if ((Yua_1_dynspg_flt = new ua_1_dynspg_flt ())==NULL)  
     2526                 Ycreate_errnew(); 
    26552527}/*M3_TBTOGT  */  
    26562528void YtabTOgrad_va_1_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    26702542                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    26712543                                         for (int Yws=0; Yws<YNBS_va_1_dynspg_flt; ++Yws){ 
    2672                                                  Yva_1_dynspg_flt(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2544                                                 Yva_1_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    26732545}/*M3_SETAT*/  
    26742546void Ysetstate_va_1_dynspg_flt(double val) 
    … …  
    26792551                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    26802552                                         for (int Yws=0; Yws<YNBS_va_1_dynspg_flt; ++Yws){ 
    2681                                                  Yva_1_dynspg_flt(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2553                                                 Yva_1_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    26822554}/*M3_YIOUT*/  
    26832555void Yio_va_1_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)        
    26842556{  Yiorwf ("va_1_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_1_dynspg_flt(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2685 }/*M3_CREU*/  
     2557}/*M0_CREU*/  
    26862558void Ycreate_va_1_dynspg_flt()   
    26872559{ 
    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();}}} 
     2560         if ((Yva_1_dynspg_flt = new va_1_dynspg_flt ())==NULL)  
     2561                 Ycreate_errnew(); 
    26922562}/*M2_TBTOGT  */  
    26932563void YtabTOgrad_sum_spgu_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    27052575                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    27062576                                 for (int Yws=0; Yws<YNBS_sum_spgu_dynspg_flt; ++Yws){ 
    2707                                          Ysum_spgu_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     2577                                         Ysum_spgu_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    27082578}/*M2_SETAT*/  
    27092579void Ysetstate_sum_spgu_dynspg_flt(double val) 
    … …  
    27132583                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    27142584                                 for (int Yws=0; Yws<YNBS_sum_spgu_dynspg_flt; ++Yws){ 
    2715                                          Ysum_spgu_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     2585                                         Ysum_spgu_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    27162586}/*M2_YIOUT*/  
    27172587void Yio_sum_spgu_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    27182588{  Yiorwf ("sum_spgu_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sum_spgu_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 
    2719 }/*M2_CREU*/  
     2589}/*M0_CREU*/  
    27202590void Ycreate_sum_spgu_dynspg_flt()   
    27212591{ 
    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();}} 
     2592         if ((Ysum_spgu_dynspg_flt = new sum_spgu_dynspg_flt ())==NULL)  
     2593                 Ycreate_errnew(); 
    27252594}/*M2_TBTOGT  */  
    27262595void YtabTOgrad_sum_spgv_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    27382607                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    27392608                                 for (int Yws=0; Yws<YNBS_sum_spgv_dynspg_flt; ++Yws){ 
    2740                                          Ysum_spgv_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     2609                                         Ysum_spgv_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    27412610}/*M2_SETAT*/  
    27422611void Ysetstate_sum_spgv_dynspg_flt(double val) 
    … …  
    27462615                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    27472616                                 for (int Yws=0; Yws<YNBS_sum_spgv_dynspg_flt; ++Yws){ 
    2748                                          Ysum_spgv_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     2617                                         Ysum_spgv_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    27492618}/*M2_YIOUT*/  
    27502619void Yio_sum_spgv_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)    
    27512620{  Yiorwf ("sum_spgv_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sum_spgv_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 
    2752 }/*M2_CREU*/  
     2621}/*M0_CREU*/  
    27532622void Ycreate_sum_spgv_dynspg_flt()   
    27542623{ 
    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();}} 
     2624         if ((Ysum_spgv_dynspg_flt = new sum_spgv_dynspg_flt ())==NULL)  
     2625                 Ycreate_errnew(); 
    27582626}/*M2_TBTOGT  */  
    27592627void YtabTOgrad_gcb_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    27712639                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    27722640                                 for (int Yws=0; Yws<YNBS_gcb_dynspg_flt; ++Yws){ 
    2773                                          Ygcb_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     2641                                         Ygcb_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    27742642}/*M2_SETAT*/  
    27752643void Ysetstate_gcb_dynspg_flt(double val) 
    … …  
    27792647                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    27802648                                 for (int Yws=0; Yws<YNBS_gcb_dynspg_flt; ++Yws){ 
    2781                                          Ygcb_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     2649                                         Ygcb_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    27822650}/*M2_YIOUT*/  
    27832651void Yio_gcb_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    27842652{  Yiorwf ("gcb_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcb_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 
    2785 }/*M2_CREU*/  
     2653}/*M0_CREU*/  
    27862654void Ycreate_gcb_dynspg_flt()   
    27872655{ 
    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();}} 
     2656         if ((Ygcb_dynspg_flt = new gcb_dynspg_flt ())==NULL)  
     2657                 Ycreate_errnew(); 
    27912658}/*M2_TBTOGT  */  
    27922659void YtabTOgrad_gcx_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    28042671                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    28052672                                 for (int Yws=0; Yws<YNBS_gcx_dynspg_flt; ++Yws){ 
    2806                                          Ygcx_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     2673                                         Ygcx_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    28072674}/*M2_SETAT*/  
    28082675void Ysetstate_gcx_dynspg_flt(double val) 
    … …  
    28122679                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    28132680                                 for (int Yws=0; Yws<YNBS_gcx_dynspg_flt; ++Yws){ 
    2814                                          Ygcx_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     2681                                         Ygcx_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    28152682}/*M2_YIOUT*/  
    28162683void Yio_gcx_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)         
    28172684{  Yiorwf ("gcx_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcx_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 
    2818 }/*M2_CREU*/  
     2685}/*M0_CREU*/  
    28192686void Ycreate_gcx_dynspg_flt()   
    28202687{ 
    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();}} 
     2688         if ((Ygcx_dynspg_flt = new gcx_dynspg_flt ())==NULL)  
     2689                 Ycreate_errnew(); 
    28242690}/*M2_TBTOGT  */  
    28252691void YtabTOgrad_solsor_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    28372703                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    28382704                                 for (int Yws=0; Yws<YNBS_solsor_dynspg_flt; ++Yws){ 
    2839                                          Ysolsor_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     2705                                         Ysolsor_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    28402706}/*M2_SETAT*/  
    28412707void Ysetstate_solsor_dynspg_flt(double val) 
    … …  
    28452711                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    28462712                                 for (int Yws=0; Yws<YNBS_solsor_dynspg_flt; ++Yws){ 
    2847                                          Ysolsor_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     2713                                         Ysolsor_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    28482714}/*M2_YIOUT*/  
    28492715void Yio_solsor_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)      
    28502716{  Yiorwf ("solsor_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_solsor_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 
    2851 }/*M2_CREU*/  
     2717}/*M0_CREU*/  
    28522718void Ycreate_solsor_dynspg_flt()   
    28532719{ 
    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();}} 
     2720         if ((Ysolsor_dynspg_flt = new solsor_dynspg_flt ())==NULL)  
     2721                 Ycreate_errnew(); 
    28572722}/*M2_TBTOGT  */  
    28582723void YtabTOgrad_gcx2(int frompdt, int topdt, YREAL tab[]) 
    … …  
    28702735                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    28712736                                 for (int Yws=0; Yws<YNBS_gcx2; ++Yws){ 
    2872                                          Ygcx2(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     2737                                         Ygcx2->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    28732738}/*M2_SETAT*/  
    28742739void Ysetstate_gcx2(double val) 
    … …  
    28782743                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    28792744                                 for (int Yws=0; Yws<YNBS_gcx2; ++Yws){ 
    2880                                          Ygcx2(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     2745                                         Ygcx2->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    28812746}/*M2_YIOUT*/  
    28822747void Yio_gcx2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    28832748{  Yiorwf ("gcx2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcx2(Yws, Yw1, Yw2, Ywt), val); 
    2884 }/*M2_CREU*/  
     2749}/*M0_CREU*/  
    28852750void Ycreate_gcx2()   
    28862751{ 
    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();}} 
     2752         if ((Ygcx2 = new gcx2 ())==NULL)  
     2753                 Ycreate_errnew(); 
    28902754}/*M2_TBTOGT  */  
    28912755void YtabTOgrad_spguv_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 
    … …  
    29032767                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    29042768                                 for (int Yws=0; Yws<YNBS_spguv_dynspg_flt; ++Yws){ 
    2905                                          Yspguv_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     2769                                         Yspguv_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    29062770}/*M2_SETAT*/  
    29072771void Ysetstate_spguv_dynspg_flt(double val) 
    … …  
    29112775                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    29122776                                 for (int Yws=0; Yws<YNBS_spguv_dynspg_flt; ++Yws){ 
    2913                                          Yspguv_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     2777                                         Yspguv_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    29142778}/*M2_YIOUT*/  
    29152779void Yio_spguv_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)       
    29162780{  Yiorwf ("spguv_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_spguv_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 
    2917 }/*M2_CREU*/  
     2781}/*M0_CREU*/  
    29182782void Ycreate_spguv_dynspg_flt()   
    29192783{ 
    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();}} 
     2784         if ((Yspguv_dynspg_flt = new spguv_dynspg_flt ())==NULL)  
     2785                 Ycreate_errnew(); 
    29232786}/*M3_TBTOGT  */  
    29242787void YtabTOgrad_ua(int frompdt, int topdt, YREAL tab[]) 
    … …  
    29382801                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    29392802                                         for (int Yws=0; Yws<YNBS_ua; ++Yws){ 
    2940                                                  Yua(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2803                                                 Yua->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    29412804}/*M3_SETAT*/  
    29422805void Ysetstate_ua(double val) 
    … …  
    29472810                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    29482811                                         for (int Yws=0; Yws<YNBS_ua; ++Yws){ 
    2949                                                  Yua(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2812                                                 Yua->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    29502813}/*M3_YIOUT*/  
    29512814void Yio_ua(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    29522815{  Yiorwf ("ua", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2953 }/*M3_CREU*/  
     2816}/*M0_CREU*/  
    29542817void Ycreate_ua()   
    29552818{ 
    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();}}} 
     2819         if ((Yua = new ua ())==NULL)  
     2820                 Ycreate_errnew(); 
    29602821}/*M3_TBTOGT  */  
    29612822void YtabTOgrad_va(int frompdt, int topdt, YREAL tab[]) 
    … …  
    29752836                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    29762837                                         for (int Yws=0; Yws<YNBS_va; ++Yws){ 
    2977                                                  Yva(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2838                                                 Yva->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    29782839}/*M3_SETAT*/  
    29792840void Ysetstate_va(double val) 
    … …  
    29842845                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    29852846                                         for (int Yws=0; Yws<YNBS_va; ++Yws){ 
    2986                                                  Yva(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2847                                                 Yva->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    29872848}/*M3_YIOUT*/  
    29882849void Yio_va(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    29892850{  Yiorwf ("va", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    2990 }/*M3_CREU*/  
     2851}/*M0_CREU*/  
    29912852void Ycreate_va()   
    29922853{ 
    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();}}} 
     2854         if ((Yva = new va ())==NULL)  
     2855                 Ycreate_errnew(); 
    29972856}/*M2_TBTOGT  */  
    29982857void YtabTOgrad_sshn(int frompdt, int topdt, YREAL tab[]) 
    … …  
    30102869                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    30112870                                 for (int Yws=0; Yws<YNBS_sshn; ++Yws){ 
    3012                                          Ysshn(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     2871                                         Ysshn->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    30132872}/*M2_SETAT*/  
    30142873void Ysetstate_sshn(double val) 
    … …  
    30182877                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    30192878                                 for (int Yws=0; Yws<YNBS_sshn; ++Yws){ 
    3020                                          Ysshn(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     2879                                         Ysshn->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    30212880}/*M2_YIOUT*/  
    30222881void Yio_sshn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    30232882{  Yiorwf ("sshn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sshn(Yws, Yw1, Yw2, Ywt), val); 
    3024 }/*M2_CREU*/  
     2883}/*M0_CREU*/  
    30252884void Ycreate_sshn()   
    30262885{ 
    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();}} 
     2886         if ((Ysshn = new sshn ())==NULL)  
     2887                 Ycreate_errnew(); 
    30302888}/*M2_TBTOGT  */  
    30312889void YtabTOgrad_sshb(int frompdt, int topdt, YREAL tab[]) 
    … …  
    30432901                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    30442902                                 for (int Yws=0; Yws<YNBS_sshb; ++Yws){ 
    3045                                          Ysshb(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 
     2903                                         Ysshb->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 
    30462904}/*M2_SETAT*/  
    30472905void Ysetstate_sshb(double val) 
    … …  
    30512909                         for (int Ywt=0; Ywt<YNBALLTIME_Tsbd;    ++Ywt){ 
    30522910                                 for (int Yws=0; Yws<YNBS_sshb; ++Yws){ 
    3053                                          Ysshb(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 
     2911                                         Ysshb->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 
    30542912}/*M2_YIOUT*/  
    30552913void Yio_sshb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    … …  
    30702928         }/*M9_OUTOB*/   
    30712929         return(1); 
    3072 }/*M2_CREU*/  
     2930}/*M0_CREU*/  
    30732931void Ycreate_sshb()   
    30742932{ 
    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();}} 
     2933         if ((Ysshb = new sshb ())==NULL)  
     2934                 Ycreate_errnew(); 
    30782935}/*M2_SWISH*/  
    30792936void Ysetwish_sshb(double val) 
    … …  
    31002957                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    31012958                                         for (int Yws=0; Yws<YNBS_ub; ++Yws){ 
    3102                                                  Yub(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     2959                                                 Yub->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    31032960}/*M3_SETAT*/  
    31042961void Ysetstate_ub(double val) 
    … …  
    31092966                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    31102967                                         for (int Yws=0; Yws<YNBS_ub; ++Yws){ 
    3111                                                  Yub(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     2968                                                 Yub->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    31122969}/*M3_YIOUT*/  
    31132970void Yio_ub(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    … …  
    31292986         }/*M9_OUTOB*/   
    31302987         return(1); 
    3131 }/*M3_CREU*/  
     2988}/*M0_CREU*/  
    31322989void Ycreate_ub()   
    31332990{ 
    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();}}} 
     2991         if ((Yub = new ub ())==NULL)  
     2992                 Ycreate_errnew(); 
    31382993}/*M3_SWISH*/  
    31392994void Ysetwish_ub(double val) 
    … …  
    31613016                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    31623017                                         for (int Yws=0; Yws<YNBS_vb; ++Yws){ 
    3163                                                  Yvb(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     3018                                                 Yvb->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    31643019}/*M3_SETAT*/  
    31653020void Ysetstate_vb(double val) 
    … …  
    31703025                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    31713026                                         for (int Yws=0; Yws<YNBS_vb; ++Yws){ 
    3172                                                  Yvb(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     3027                                                 Yvb->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    31733028}/*M3_YIOUT*/  
    31743029void Yio_vb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    … …  
    31903045         }/*M9_OUTOB*/   
    31913046         return(1); 
    3192 }/*M3_CREU*/  
     3047}/*M0_CREU*/  
    31933048void Ycreate_vb()   
    31943049{ 
    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();}}} 
     3050         if ((Yvb = new vb ())==NULL)  
     3051                 Ycreate_errnew(); 
    31993052}/*M3_SWISH*/  
    32003053void Ysetwish_vb(double val) 
    … …  
    32223075                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    32233076                                         for (int Yws=0; Yws<YNBS_hdivn; ++Yws){ 
    3224                                                  Yhdivn(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     3077                                                 Yhdivn->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    32253078}/*M3_SETAT*/  
    32263079void Ysetstate_hdivn(double val) 
    … …  
    32313084                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    32323085                                         for (int Yws=0; Yws<YNBS_hdivn; ++Yws){ 
    3233                                                  Yhdivn(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     3086                                                 Yhdivn->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    32343087}/*M3_YIOUT*/  
    32353088void Yio_hdivn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)  
    32363089{  Yiorwf ("hdivn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_hdivn(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    3237 }/*M3_CREU*/  
     3090}/*M0_CREU*/  
    32383091void Ycreate_hdivn()   
    32393092{ 
    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();}}} 
     3093         if ((Yhdivn = new hdivn ())==NULL)  
     3094                 Ycreate_errnew(); 
    32443095}/*M3_TBTOGT  */  
    32453096void YtabTOgrad_rotn(int frompdt, int topdt, YREAL tab[]) 
    … …  
    32593110                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    32603111                                         for (int Yws=0; Yws<YNBS_rotn; ++Yws){ 
    3261                                                  Yrotn(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     3112                                                 Yrotn->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    32623113}/*M3_SETAT*/  
    32633114void Ysetstate_rotn(double val) 
    … …  
    32683119                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    32693120                                         for (int Yws=0; Yws<YNBS_rotn; ++Yws){ 
    3270                                                  Yrotn(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     3121                                                 Yrotn->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    32713122}/*M3_YIOUT*/  
    32723123void Yio_rotn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)   
    32733124{  Yiorwf ("rotn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rotn(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    3274 }/*M3_CREU*/  
     3125}/*M0_CREU*/  
    32753126void Ycreate_rotn()   
    32763127{ 
    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();}}} 
     3128         if ((Yrotn = new rotn ())==NULL)  
     3129                 Ycreate_errnew(); 
    32813130}/*M3_TBTOGT  */  
    32823131void YtabTOgrad_wa(int frompdt, int topdt, YREAL tab[]) 
    … …  
    32963145                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    32973146                                         for (int Yws=0; Yws<YNBS_wa; ++Yws){ 
    3298                                                  Ywa(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 
     3147                                                 Ywa->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 
    32993148}/*M3_SETAT*/  
    33003149void Ysetstate_wa(double val) 
    … …  
    33053154                                 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 
    33063155                                         for (int Yws=0; Yws<YNBS_wa; ++Yws){ 
    3307                                                  Ywa(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 
     3156                                                 Ywa->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 
    33083157}/*M3_YIOUT*/  
    33093158void Yio_wa(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val)     
    33103159{  Yiorwf ("wa", Yws, Yw1, Yw2, Yw3, Ywt, &YS_wa(Yws, Yw1, Yw2, Yw3, Ywt), val); 
    3311 }/*M3_CREU*/  
     3160}/*M0_CREU*/  
    33123161void Ycreate_wa()   
    33133162{ 
    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();}}} 
     3163         if ((Ywa = new wa ())==NULL)  
     3164                 Ycreate_errnew(); 
    33183165} 
    33193166void Ycreate_all ()  
    … …  
    38723719{ 
    38733720         Yting[0]=YS1_tb( Yi, Yj, 0, YTemps-1); 
    3874          Ysbcgyre_qsr_qns(Yi, Yj)->forward( Yting[0] ); 
    3875          Ysbcgyre_emp1(Yi, Yj)->forward(); 
     3721         Ysbcgyre_qsr_qns->forward( Yting[0] ); 
     3722         Ysbcgyre_emp1->forward(); 
    38763723         if (1==0 || Yi-1<0) 
    38773724         Yting[0]=0;  
    … …  
    38913738         Yting[3]=YS2_sbcgyre_zsumemp_zsurf( 31, Yj-1, YTemps); 
    38923739         Yting[4]=YS1_sbcgyre_emp1( Yi, Yj, YTemps); 
    3893          Ysbcgyre_zsumemp_zsurf(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     3740         Ysbcgyre_zsumemp_zsurf->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    38943741 
    38953742} 
    … …  
    39003747         Yting[1]=YS1_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 
    39013748         Yting[2]=YS2_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 
    3902          Ysbcgyre_emp(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 
     3749         Ysbcgyre_emp->forward( Yting[0], Yting[1], Yting[2] ); 
    39033750         Yting[0]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 
    3904          Ysbcgyre_emps(Yi, Yj)->forward( Yting[0] ); 
    3905          Ysbcgyre_utau_vtau(Yi, Yj)->forward(); 
     3751         Ysbcgyre_emps->forward( Yting[0] ); 
     3752         Ysbcgyre_utau_vtau->forward(); 
    39063753         if (1==0 || Yi-1<0) 
    39073754         Yting[0]=0;  
    … …  
    39143761         Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 
    39153762         Yting[3]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 
    3916          Ysbcgyre_wndm(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     3763         Ysbcgyre_wndm->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    39173764 
    39183765} 
    … …  
    39333780         else  
    39343781         Yting[3]=YS1_sb( Yi, Yj, Yk-1, YTemps-1); 
    3935          Ybn2_rn2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     3782         Ybn2_rn2->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    39363783 
    39373784} 
    … …  
    40043851         else  
    40053852         Yting[18]=YS1_va( Yi+1, Yj, 1, YTemps-1); 
    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] ); 
     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] ); 
    40073854 
    40083855} 
    … …  
    40443891         Yting[29]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 29, YTemps); 
    40453892         Yting[30]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 30, YTemps); 
    4046          Yzdfmxl_hmld(Yi, Yj)->forward(); 
     3893         Yzdfmxl_hmld->forward(); 
    40473894         Yting[0]=YS1_rhop( Yi, Yj, 0, YTemps-1); 
    40483895         Yting[1]=YS1_rhop( Yi, Yj, 1, YTemps-1); 
    … …  
    40763923         Yting[29]=YS1_rhop( Yi, Yj, 29, YTemps-1); 
    40773924         Yting[30]=YS1_rhop( Yi, Yj, 30, YTemps-1); 
    4078          Yzdfmxl_nmln_hmlp_hmlpt(Yi, Yj)->forward(); 
     3925         Yzdfmxl_nmln_hmlp_hmlpt->forward(); 
    40793926 
    40803927} 
    … …  
    40883935         Yting[1]=YS1_sbcgyre_emps( Yi, Yj, YTemps); 
    40893936         Yting[2]=YS1_sa( Yi, Yj, 0, YTemps-1); 
    4090          Yta_sa_trasbc(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 
     3937         Yta_sa_trasbc->forward( Yting[0], Yting[1], Yting[2] ); 
    40913938 
    40923939} 
    … …  
    41003947         Yting[0]=YS1_sbcgyre_qsr_qns( Yi, Yj, YTemps); 
    41013948         Yting[1]=YS1_ta_sa_trasbc( Yi, Yj, YTemps); 
    4102          Yta_traqsr(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
     3949         Yta_traqsr->forward( Yting[0], Yting[1] ); 
    41033950 
    41043951} 
    … …  
    41223969         else  
    41233970         Yting[4]=YS1_ta( Yi+1, Yj, Yk, YTemps-1); 
    4124          Yzcent_hor_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     3971         Yzcent_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    41253972         Yting[0]=YS1_ua( Yi, Yj, Yk, YTemps-1); 
    41263973         Yting[1]=YS1_va( Yi, Yj, Yk, YTemps-1); 
    … …  
    41343981         else  
    41353982         Yting[4]=YS1_sa( Yi+1, Yj, Yk, YTemps-1); 
    4136          Yzcens_hor_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     3983         Yzcens_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    41373984 
    41383985} 
    … …  
    41513998         Yting[3]=YS2_zcent_hor_traadv_cen2( Yi, Yj-1, Yk, YTemps); 
    41523999         Yting[4]=YS2_zcent_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 
    4153          Yta_hor_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4000         Yta_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    41544001         Yting[0]=YS2_ta_sa_trasbc( Yi, Yj, YTemps); 
    41554002         if (1==0 || Yi-1<0) 
    … …  
    41634010         Yting[3]=YS2_zcens_hor_traadv_cen2( Yi, Yj-1, Yk, YTemps); 
    41644011         Yting[4]=YS2_zcens_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 
    4165          Ysa_hor_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4012         Ysa_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    41664013 
    41674014} 
    … …  
    41814028         else  
    41824029         Yting[2]=YS1_ta( Yi, Yj, Yk-1, YTemps-1); 
    4183          Yzcent_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
     4030         Yzcent_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 
    41844031         Yting[0]=YS1_wa( Yi, Yj, Yk, YTemps-1); 
    41854032         Yting[1]=YS1_sa( Yi, Yj, Yk, YTemps-1); 
    … …  
    41884035         else  
    41894036         Yting[2]=YS1_sa( Yi, Yj, Yk-1, YTemps-1); 
    4190          Yzcens_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
     4037         Yzcens_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 
    41914038 
    41924039} 
    … …  
    42044051         else  
    42054052         Yting[2]=YS1_zcent_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 
    4206          Yta_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
     4053         Yta_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 
    42074054         Yting[0]=YS1_sa_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 
    42084055         Yting[1]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk, YTemps); 
    … …  
    42114058         else  
    42124059         Yting[2]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 
    4213          Ysa_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
     4060         Ysa_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 
    42144061 
    42154062} 
    … …  
    42304077         else  
    42314078         Yting[2]=YS1_tb( Yi, Yj+1, Yk, YTemps-1); 
    4232          Yztuv_traldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
     4079         Yztuv_traldf_lap->forward( Yting[0], Yting[1], Yting[2] ); 
    42334080         Yting[0]=YS1_sb( Yi, Yj, Yk, YTemps-1); 
    42344081         if (1==0 || Yi+1>YA1_S3dt-1) 
    … …  
    42404087         else  
    42414088         Yting[2]=YS1_sb( Yi, Yj+1, Yk, YTemps-1); 
    4242          Yzsuv_traldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
     4089         Yzsuv_traldf_lap->forward( Yting[0], Yting[1], Yting[2] ); 
    42434090         Yting[0]=YS1_ta_ver_traadv_cen2( Yi, Yj, Yk, YTemps); 
    42444091         Yting[1]=YS1_ztuv_traldf_lap( Yi, Yj, Yk, YTemps); 
    … …  
    42524099         else  
    42534100         Yting[4]=YS2_ztuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 
    4254          Yta_traldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4101         Yta_traldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    42554102         Yting[0]=YS1_sa_ver_traadv_cen2( Yi, Yj, Yk, YTemps); 
    42564103         Yting[1]=YS1_zsuv_traldf_lap( Yi, Yj, Yk, YTemps); 
    … …  
    42644111         else  
    42654112         Yting[4]=YS2_zsuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 
    4266          Ysa_traldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4113         Ysa_traldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    42674114 
    42684115} 
    … …  
    42794126         else  
    42804127         Yting[1]=YS1_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 
    4281          Yzwisd_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
     4128         Yzwisd_trazdf_imp->forward( Yting[0], Yting[1] ); 
    42824129         Yting[0]=YS1_ta_traldf_lap( Yi, Yj, Yk, YTemps); 
    42834130         Yting[1]=YS1_tb( Yi, Yj, Yk, YTemps-1); 
    4284          Yzrhs_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
     4131         Yzrhs_trazdf_imp->forward( Yting[0], Yting[1] ); 
    42854132         Yting[0]=YS1_sa_traldf_lap( Yi, Yj, Yk, YTemps); 
    42864133         Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps-1); 
    4287          Yzrhs_sa_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
     4134         Yzrhs_sa_trazdf_imp->forward( Yting[0], Yting[1] ); 
    42884135 
    42894136} 
    … …  
    43034150         else  
    43044151         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 
    4305          Yzwt_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4152         Yzwt_trazdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    43064153         Yting[0]=YS1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 
    43074154         if (1==0 || Yk-1<0) 
    … …  
    43144161         else  
    43154162         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 
    4316          Yta_de_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4163         Yta_de_trazdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    43174164         Yting[0]=YS1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 
    43184165         if (1==0 || Yk-1<0) 
    … …  
    43254172         else  
    43264173         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 
    4327          Ysa_de_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4174         Ysa_de_trazdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    43284175 
    43294176} 
    … …  
    43404187         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk, YTemps); 
    43414188         Yting[4]=YS1_ta_c( Yi, Yj, Yk); 
    4342          Yta(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4189         Yta->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    43434190         Yting[0]=YS2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 
    43444191         if (1==0 || Yk+1>YA3_S3dt-1) 
    … …  
    43494196         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk, YTemps); 
    43504197         Yting[4]=YS1_sa_c( Yi, Yj, Yk); 
    4351          Ysa(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4198         Ysa->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    43524199 
    43534200} 
    … …  
    43624209         Yting[2]=YS1_ta( Yi, Yj, Yk, YTemps); 
    43634210         Yting[3]=YS1_ta_c( Yi, Yj, Yk); 
    4364          Ytb(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4211         Ytb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    43654212         Yting[0]=YS1_sb( Yi, Yj, Yk, YTemps-1); 
    43664213         Yting[1]=YS1_sa( Yi, Yj, Yk, YTemps-1); 
    43674214         Yting[2]=YS1_sa( Yi, Yj, Yk, YTemps); 
    43684215         Yting[3]=YS1_sa_c( Yi, Yj, Yk); 
    4369          Ysb(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4216         Ysb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    43704217 
    43714218} 
    … …  
    43794226         Yting[0]=YS1_tb( Yi, Yj, Yk, YTemps); 
    43804227         Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps); 
    4381          Yrhd(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
     4228         Yrhd->forward( Yting[0], Yting[1] ); 
    43824229         Yting[0]=YS1_rhd( Yi, Yj, Yk, YTemps); 
    4383          Yrhop(Yi, Yj, Yk)->forward( Yting[0] ); 
     4230         Yrhop->forward( Yting[0] ); 
    43844231 
    43854232} 
    … …  
    44104257         else  
    44114258         Yting[5]=YS1_va( Yi, Yj+1, Yk, YTemps-1); 
    4412          Yhmf_TF_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] ); 
     4259         Yhmf_TF_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] ); 
    44134260 
    44144261} 
    … …  
    44264273         else  
    44274274         Yting[3]=YS2_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 
    4428          Yzua_dhmf_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4275         Yzua_dhmf_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    44294276         Yting[0]=YS3_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps); 
    44304277         if (1==0 || Yi-1<0) 
    … …  
    44374284         else  
    44384285         Yting[3]=YS4_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 
    4439          Yzva_dhmf_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4286         Yzva_dhmf_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    44404287 
    44414288} 
    … …  
    44684315         else  
    44694316         Yting[6]=YS1_va( Yi, Yj, Yk-1, YTemps-1); 
    4470          Yzfuv_UW_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
     4317         Yzfuv_UW_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
    44714318 
    44724319} 
    … …  
    44844331         Yting[1]=YS1_zfuv_UW_dynadv_cen2( Yi, Yj, Yk+1, YTemps); 
    44854332         Yting[2]=YS1_zua_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 
    4486          Yua_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
     4333         Yua_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 
    44874334         Yting[0]=YS2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk, YTemps); 
    44884335         if (1==0 || Yk+1>YA3_S3dt-1) 
    … …  
    44914338         Yting[1]=YS2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk+1, YTemps); 
    44924339         Yting[2]=YS1_zva_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 
    4493          Yva_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
     4340         Yva_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 
    44944341 
    44954342} 
    … …  
    45124359         else  
    45134360         Yting[3]=YS1_va( Yi+1, Yj, Yk, YTemps-1); 
    4514          Yzwxyz_vor_ene(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4361         Yzwxyz_vor_ene->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    45154362 
    45164363} 
    … …  
    45374384         else  
    45384385         Yting[6]=YS2_zwxyz_vor_ene( Yi+1, Yj, Yk, YTemps); 
    4539          Yua_vor_ene(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
     4386         Yua_vor_ene->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
    45404387         Yting[0]=YS1_va_dynadv_cen2( Yi, Yj, Yk, YTemps); 
    45414388         if (1==0 || Yi-1<0) 
    … …  
    45574404         else  
    45584405         Yting[6]=YS1_zwxyz_vor_ene( Yi, Yj+1, Yk, YTemps); 
    4559          Yva_vor_ene(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
     4406         Yva_vor_ene->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
    45604407         Yting[0]=YS1_ua_vor_ene( Yi, Yj, Yk, YTemps); 
    45614408         if (1==0 || Yj-1<0) 
    … …  
    45694416         else  
    45704417         Yting[4]=YS1_hdivn( Yi+1, Yj, Yk, YTemps-2); 
    4571          Yua_dyn_ldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4418         Yua_dyn_ldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    45724419         Yting[0]=YS1_va_vor_ene( Yi, Yj, Yk, YTemps); 
    45734420         if (1==0 || Yi-1<0) 
    … …  
    45814428         else  
    45824429         Yting[4]=YS1_hdivn( Yi, Yj+1, Yk, YTemps-2); 
    4583          Yva_dyn_ldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     4430         Yva_dyn_ldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    45844431 
    45854432} 
    … …  
    46204467         else  
    46214468         Yting[7]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk-1, YTemps); 
    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] ); 
     4469         Yzhpij_dyn_hpg_zco->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 
    46234470         Yting[0]=YS1_ua_dyn_ldf_lap( Yi, Yj, Yk, YTemps); 
    46244471         Yting[1]=YS1_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 
    4625          Yua_dyn_hpg_zco(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
     4472         Yua_dyn_hpg_zco->forward( Yting[0], Yting[1] ); 
    46264473         Yting[0]=YS1_va_dyn_ldf_lap( Yi, Yj, Yk, YTemps); 
    46274474         Yting[1]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 
    4628          Yva_dyn_hpg_zco(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
     4475         Yva_dyn_hpg_zco->forward( Yting[0], Yting[1] ); 
    46294476 
    46304477} 
    … …  
    46404487         else  
    46414488         Yting[1]=YS2_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 
    4642          Yzwisd_ua_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
     4489         Yzwisd_ua_dynzdf_imp->forward( Yting[0], Yting[1] ); 
    46434490         Yting[0]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps); 
    46444491         if (1==0 || Yk+1>YA3_S3dt-1) 
    … …  
    46464493         else  
    46474494         Yting[1]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 
    4648          Yzwisd_va_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
     4495         Yzwisd_va_dynzdf_imp->forward( Yting[0], Yting[1] ); 
    46494496         Yting[0]=YS1_ua_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 
    46504497         Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 
    46514498         Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 
    4652          Yzrhs_ua_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
     4499         Yzrhs_ua_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2] ); 
    46534500         Yting[0]=YS1_va_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 
    46544501         Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 
    46554502         Yting[2]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 
    4656          Yzrhs_va_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
     4503         Yzrhs_va_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2] ); 
    46574504 
    46584505} 
    … …  
    46724519         else  
    46734520         Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    4674          Yzwt_ua_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4521         Yzwt_ua_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    46754522         Yting[0]=YS1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    46764523         if (1==0 || Yk-1<0) 
    … …  
    46834530         else  
    46844531         Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    4685          Yua_de_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4532         Yua_de_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    46864533         Yting[0]=YS1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    46874534         if (1==0 || Yk-1<0) 
    … …  
    46944541         else  
    46954542         Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    4696          Yzwt_va_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4543         Yzwt_va_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    46974544         Yting[0]=YS1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    46984545         if (1==0 || Yk-1<0) 
    … …  
    47054552         else  
    47064553         Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    4707          Yva_de_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4554         Yva_de_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    47084555 
    47094556} 
    … …  
    47194566         Yting[2]=YS1_ua_de_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    47204567         Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    4721          Yua_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4568         Yua_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    47224569         Yting[0]=YS2_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    47234570         if (1==0 || Yk+1>YA3_S3dt-1) 
    … …  
    47274574         Yting[2]=YS1_va_de_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    47284575         Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    4729          Yva_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4576         Yva_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    47304577 
    47314578} 
    … …  
    47384585         Yting[0]=YS1_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    47394586         Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 
    4740          Yua_norm_dynzdf(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
     4587         Yua_norm_dynzdf->forward( Yting[0], Yting[1] ); 
    47414588         Yting[0]=YS1_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    47424589         Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 
    4743          Yva_norm_dynzdf(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
     4590         Yva_norm_dynzdf->forward( Yting[0], Yting[1] ); 
    47444591 
    47454592} 
    … …  
    47594606         else  
    47604607         Yting[2]=YS1_sshn( Yi+1, Yj, YTemps-1); 
    4761          Yspguv_now_dynspg(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 
     4608         Yspguv_now_dynspg->forward( Yting[0], Yting[1], Yting[2] ); 
    47624609 
    47634610} 
    … …  
    47724619         Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 
    47734620         Yting[2]=YS1_spguv_now_dynspg( Yi, Yj, YTemps); 
    4774          Yua_1_dynspg_flt(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
     4621         Yua_1_dynspg_flt->forward( Yting[0], Yting[1], Yting[2] ); 
    47754622         Yting[0]=YS1_va_norm_dynzdf( Yi, Yj, Yk, YTemps); 
    47764623         Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 
    47774624         Yting[2]=YS2_spguv_now_dynspg( Yi, Yj, YTemps); 
    4778          Yva_1_dynspg_flt(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
     4625         Yva_1_dynspg_flt->forward( Yting[0], Yting[1], Yting[2] ); 
    47794626 
    47804627} 
    … …  
    48164663         Yting[29]=YS1_ua_1_dynspg_flt( Yi, Yj, 29, YTemps); 
    48174664         Yting[30]=YS1_ua_1_dynspg_flt( Yi, Yj, 30, YTemps); 
    4818          Ysum_spgu_dynspg_flt(Yi, Yj)->forward(); 
     4665         Ysum_spgu_dynspg_flt->forward(); 
    48194666         Yting[0]=YS1_va_1_dynspg_flt( Yi, Yj, 0, YTemps); 
    48204667         Yting[1]=YS1_va_1_dynspg_flt( Yi, Yj, 1, YTemps); 
    … …  
    48484695         Yting[29]=YS1_va_1_dynspg_flt( Yi, Yj, 29, YTemps); 
    48494696         Yting[30]=YS1_va_1_dynspg_flt( Yi, Yj, 30, YTemps); 
    4850          Ysum_spgv_dynspg_flt(Yi, Yj)->forward(); 
     4697         Ysum_spgv_dynspg_flt->forward(); 
    48514698 
    48524699} 
    … …  
    48674714         else  
    48684715         Yting[3]=YS1_sum_spgv_dynspg_flt( Yi, Yj-1, YTemps); 
    4869          Ygcb_dynspg_flt(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4716         Ygcb_dynspg_flt->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    48704717         Yting[0]=YS1_gcx2( Yi, Yj, YTemps-1); 
    48714718         Yting[1]=YS1_gcx2( Yi, Yj, YTemps-2); 
    4872          Ygcx_dynspg_flt(Yi, Yj)->forward( Yting[0], Yting[1] ); 
     4719         Ygcx_dynspg_flt->forward( Yting[0], Yting[1] ); 
    48734720 
    48744721} 
    … …  
    49474794         else  
    49484795         Yting[18]=YS1_solsor_dynspg_flt( Yi-1, Yj-1, YTemps); 
    4949          Ysolsor_dynspg_flt(Yi, Yj)->forward(); 
     4796         Ysolsor_dynspg_flt->forward(); 
    49504797 
    49514798} 
    … …  
    49564803{ 
    49574804         Yting[0]=YS1_solsor_dynspg_flt( Yi, Yj, YTemps); 
    4958          Ygcx2(Yi, Yj)->forward(); 
     4805         Ygcx2->forward(); 
    49594806 
    49604807} 
    … …  
    49744821         else  
    49754822         Yting[2]=YS1_gcx2( Yi, Yj+1, YTemps); 
    4976          Yspguv_dynspg_flt(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 
     4823         Yspguv_dynspg_flt->forward( Yting[0], Yting[1], Yting[2] ); 
    49774824 
    49784825} 
    … …  
    49874834         Yting[1]=YS1_spguv_dynspg_flt( Yi, Yj, YTemps); 
    49884835         Yting[2]=YS1_ua_c( Yi, Yj, Yk); 
    4989          Yua(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
     4836         Yua->forward( Yting[0], Yting[1], Yting[2] ); 
    49904837         Yting[0]=YS1_va_1_dynspg_flt( Yi, Yj, Yk, YTemps); 
    49914838         Yting[1]=YS2_spguv_dynspg_flt( Yi, Yj, YTemps); 
    49924839         Yting[2]=YS1_va_c( Yi, Yj, Yk); 
    4993          Yva(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 
     4840         Yva->forward( Yting[0], Yting[1], Yting[2] ); 
    49944841 
    49954842} 
    … …  
    50044851         Yting[2]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 
    50054852         Yting[3]=YS1_sshn_c( Yi, Yj); 
    5006          Ysshn(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4853         Ysshn->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    50074854         Yting[0]=YS1_sshb( Yi, Yj, YTemps-1); 
    50084855         Yting[1]=YS1_sshn( Yi, Yj, YTemps-1); 
    50094856         Yting[2]=YS1_sshn( Yi, Yj, YTemps); 
    50104857         Yting[3]=YS1_sshn_c( Yi, Yj); 
    5011          Ysshb(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4858         Ysshb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    50124859 
    50134860} 
    … …  
    50234870         Yting[2]=YS1_ua( Yi, Yj, Yk, YTemps); 
    50244871         Yting[3]=YS1_ua_c( Yi, Yj, Yk); 
    5025          Yub(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4872         Yub->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    50264873         Yting[0]=YS1_vb( Yi, Yj, Yk, YTemps-1); 
    50274874         Yting[1]=YS1_va( Yi, Yj, Yk, YTemps-1); 
    50284875         Yting[2]=YS1_va( Yi, Yj, Yk, YTemps); 
    50294876         Yting[3]=YS1_va_c( Yi, Yj, Yk); 
    5030          Yvb(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4877         Yvb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    50314878 
    50324879} 
    … …  
    50484895         else  
    50494896         Yting[3]=YS1_va( Yi, Yj-1, Yk, YTemps); 
    5050          Yhdivn(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4897         Yhdivn->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    50514898         if (1==0 || Yi+1>YA1_S3dt-1) 
    50524899         Yting[0]=0;  
    … …  
    50594906         Yting[2]=YS1_ua( Yi, Yj+1, Yk, YTemps); 
    50604907         Yting[3]=YS1_ua( Yi, Yj, Yk, YTemps); 
    5061          Yrotn(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4908         Yrotn->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    50624909 
    50634910} 
    … …  
    50724919         Yting[0]=YS1_wa( Yi, Yj, Yk+1, YTemps); 
    50734920         Yting[1]=YS1_hdivn( Yi, Yj, Yk, YTemps); 
    5074          Ywa(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 
     4921         Ywa->forward( Yting[0], Yting[1] ); 
    50754922 
    50764923} 
    … …  
    50934940         Yting[1]=YS1_hdivn( Yi, Yj, Yk, YTemps); 
    50944941         memset(Yjac, 0, 31*sizeof(double)); 
    5095          Ywa(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
     4942         Ywa->backward( Yting[0], Yting[1] ); 
    50964943         Yvsmatt (YNBS_wa, YNBI_wa, YMAX_JAC_NBI, &YG1Y_wa, Yjac[0], Ytbeta); 
    50974944         if (1==0 || Yk+1>YA3_S3dt-1){}  
    … …  
    51184965         Yting[3]=YS1_ua( Yi, Yj, Yk, YTemps); 
    51194966         memset(Yjac, 0, 31*sizeof(double)); 
    5120          Yrotn(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4967         Yrotn->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    51214968         Yvsmatt (YNBS_rotn, YNBI_rotn, YMAX_JAC_NBI, &YG1Y_rotn, Yjac[0], Ytbeta); 
    51224969         if (1==0 || Yi+1>YA1_S3dt-1){}  
    … …  
    51394986         Yting[3]=YS1_va( Yi, Yj-1, Yk, YTemps); 
    51404987         memset(Yjac, 0, 31*sizeof(double)); 
    5141          Yhdivn(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     4988         Yhdivn->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    51424989         Yvsmatt (YNBS_hdivn, YNBI_hdivn, YMAX_JAC_NBI, &YG1Y_hdivn, Yjac[0], Ytbeta); 
    51434990         YG1_ua( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    51635010         Yting[3]=YS1_va_c( Yi, Yj, Yk); 
    51645011         memset(Yjac, 0, 31*sizeof(double)); 
    5165          Yvb(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5012         Yvb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    51665013         Yvsmatt (YNBS_vb, YNBI_vb, YMAX_JAC_NBI, &YG1Y_vb, Yjac[0], Ytbeta); 
    51675014         YG1_vb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    … …  
    51755022         Yting[3]=YS1_ua_c( Yi, Yj, Yk); 
    51765023         memset(Yjac, 0, 31*sizeof(double)); 
    5177          Yub(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5024         Yub->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    51785025         Yvsmatt (YNBS_ub, YNBI_ub, YMAX_JAC_NBI, &YG1Y_ub, Yjac[0], Ytbeta); 
    51795026         YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 
    … …  
    51955042         Yting[3]=YS1_sshn_c( Yi, Yj); 
    51965043         memset(Yjac, 0, 31*sizeof(double)); 
    5197          Ysshb(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5044         Ysshb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    51985045         Yvsmatt (YNBS_sshb, YNBI_sshb, YMAX_JAC_NBI, &YG1Y_sshb, Yjac[0], Ytbeta); 
    51995046         YG1_sshb( Yi, Yj, YTemps-1) += Ytbeta[0]; 
    … …  
    52075054         Yting[3]=YS1_sshn_c( Yi, Yj); 
    52085055         memset(Yjac, 0, 31*sizeof(double)); 
    5209          Ysshn(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5056         Ysshn->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    52105057         Yvsmatt (YNBS_sshn, YNBI_sshn, YMAX_JAC_NBI, &YG1Y_sshn, Yjac[0], Ytbeta); 
    52115058         YG1_sshb( Yi, Yj, YTemps-1) += Ytbeta[0]; 
    … …  
    52275074         Yting[2]=YS1_va_c( Yi, Yj, Yk); 
    52285075         memset(Yjac, 0, 31*sizeof(double)); 
    5229          Yva(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
     5076         Yva->backward( Yting[0], Yting[1], Yting[2] ); 
    52305077         Yvsmatt (YNBS_va, YNBI_va, YMAX_JAC_NBI, &YG1Y_va, Yjac[0], Ytbeta); 
    52315078         #pragma omp atomic 
    52325079         YG1_va_1_dynspg_flt( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
     5080         #pragma omp atomic 
    52335081         YG2_spguv_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[1]; 
    52345082         YG1_va_c( Yi, Yj, Yk) += Ytbeta[2]; 
    … …  
    52375085         Yting[2]=YS1_ua_c( Yi, Yj, Yk); 
    52385086         memset(Yjac, 0, 31*sizeof(double)); 
    5239          Yua(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
     5087         Yua->backward( Yting[0], Yting[1], Yting[2] ); 
    52405088         Yvsmatt (YNBS_ua, YNBI_ua, YMAX_JAC_NBI, &YG1Y_ua, Yjac[0], Ytbeta); 
    52415089         #pragma omp atomic 
    52425090         YG1_ua_1_dynspg_flt( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
     5091         #pragma omp atomic 
    52435092         YG1_spguv_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[1]; 
    52445093         YG1_ua_c( Yi, Yj, Yk) += Ytbeta[2]; 
    … …  
    52615110         Yting[2]=YS1_gcx2( Yi, Yj+1, YTemps); 
    52625111         memset(Yjac, 0, 62*sizeof(double)); 
    5263          Yspguv_dynspg_flt(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] ); 
     5112         Yspguv_dynspg_flt->backward( Yting[0], Yting[1], Yting[2] ); 
    52645113         Yvsmatt (YNBS_spguv_dynspg_flt, YNBI_spguv_dynspg_flt, YMAX_JAC_NBI, &YG1Y_spguv_dynspg_flt, Yjac[0], Ytbeta); 
    52655114         if (1==0 || Yi+1>YA1_S3dt-1){}  
    … …  
    52835132         Yting[0]=YS1_solsor_dynspg_flt( Yi, Yj, YTemps); 
    52845133         memset(Yjac, 0, 31*sizeof(double)); 
    5285          Ygcx2(Yi, Yj)->backward(); 
     5134         Ygcx2->backward(); 
    52865135         Yvsmatt (YNBS_gcx2, YNBI_gcx2, YMAX_JAC_NBI, &YG1Y_gcx2, Yjac[0], Ytbeta); 
    52875136         #pragma omp atomic 
    … …  
    53645213         Yting[18]=YS1_solsor_dynspg_flt( Yi-1, Yj-1, YTemps); 
    53655214         memset(Yjac, 0, 31*sizeof(double)); 
    5366          Ysolsor_dynspg_flt(Yi, Yj)->backward(); 
     5215         Ysolsor_dynspg_flt->backward(); 
    53675216         Yvsmatt (YNBS_solsor_dynspg_flt, YNBI_solsor_dynspg_flt, YMAX_JAC_NBI, &YG1Y_solsor_dynspg_flt, Yjac[0], Ytbeta); 
    53685217         if (1==0 || Yi-1<0 || Yj-1<0){}  
    … …  
    54295278         Yting[1]=YS1_gcx2( Yi, Yj, YTemps-2); 
    54305279         memset(Yjac, 0, 31*sizeof(double)); 
    5431          Ygcx_dynspg_flt(Yi, Yj)->backward( Yting[0], Yting[1] ); 
     5280         Ygcx_dynspg_flt->backward( Yting[0], Yting[1] ); 
    54325281         Yvsmatt (YNBS_gcx_dynspg_flt, YNBI_gcx_dynspg_flt, YMAX_JAC_NBI, &YG1Y_gcx_dynspg_flt, Yjac[0], Ytbeta); 
    54335282         YG1_gcx2( Yi, Yj, YTemps-1) += Ytbeta[0]; 
    … …  
    54445293         Yting[3]=YS1_sum_spgv_dynspg_flt( Yi, Yj-1, YTemps); 
    54455294         memset(Yjac, 0, 31*sizeof(double)); 
    5446          Ygcb_dynspg_flt(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5295         Ygcb_dynspg_flt->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    54475296         Yvsmatt (YNBS_gcb_dynspg_flt, YNBI_gcb_dynspg_flt, YMAX_JAC_NBI, &YG1Y_gcb_dynspg_flt, Yjac[0], Ytbeta); 
    54485297         YG1_sum_spgu_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[0]; 
    … …  
    54965345         Yting[30]=YS1_va_1_dynspg_flt( Yi, Yj, 30, YTemps); 
    54975346         memset(Yjac, 0, 31*sizeof(double)); 
    5498          Ysum_spgv_dynspg_flt(Yi, Yj)->backward(); 
     5347         Ysum_spgv_dynspg_flt->backward(); 
    54995348         Yvsmatt (YNBS_sum_spgv_dynspg_flt, YNBI_sum_spgv_dynspg_flt, YMAX_JAC_NBI, &YG1Y_sum_spgv_dynspg_flt, Yjac[0], Ytbeta); 
    55005349         YG1_va_1_dynspg_flt( Yi, Yj, 0, YTemps) += Ytbeta[0]; 
    … …  
    55615410         Yting[30]=YS1_ua_1_dynspg_flt( Yi, Yj, 30, YTemps); 
    55625411         memset(Yjac, 0, 31*sizeof(double)); 
    5563          Ysum_spgu_dynspg_flt(Yi, Yj)->backward(); 
     5412         Ysum_spgu_dynspg_flt->backward(); 
    55645413         Yvsmatt (YNBS_sum_spgu_dynspg_flt, YNBI_sum_spgu_dynspg_flt, YMAX_JAC_NBI, &YG1Y_sum_spgu_dynspg_flt, Yjac[0], Ytbeta); 
    55655414         YG1_ua_1_dynspg_flt( Yi, Yj, 0, YTemps) += Ytbeta[0]; 
    … …  
    56075456         Yting[2]=YS2_spguv_now_dynspg( Yi, Yj, YTemps); 
    56085457         memset(Yjac, 0, 31*sizeof(double)); 
    5609          Yva_1_dynspg_flt(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
     5458         Yva_1_dynspg_flt->backward( Yting[0], Yting[1], Yting[2] ); 
    56105459         Yvsmatt (YNBS_va_1_dynspg_flt, YNBI_va_1_dynspg_flt, YMAX_JAC_NBI, &YG1Y_va_1_dynspg_flt, Yjac[0], Ytbeta); 
    56115460         YG1_va_norm_dynzdf( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    56125461         YG1_vb( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
     5462         #pragma omp atomic 
    56135463         YG2_spguv_now_dynspg( Yi, Yj, YTemps) += Ytbeta[2]; 
    56145464         Yting[0]=YS1_ua_norm_dynzdf( Yi, Yj, Yk, YTemps); 
    … …  
    56165466         Yting[2]=YS1_spguv_now_dynspg( Yi, Yj, YTemps); 
    56175467         memset(Yjac, 0, 31*sizeof(double)); 
    5618          Yua_1_dynspg_flt(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
     5468         Yua_1_dynspg_flt->backward( Yting[0], Yting[1], Yting[2] ); 
    56195469         Yvsmatt (YNBS_ua_1_dynspg_flt, YNBI_ua_1_dynspg_flt, YMAX_JAC_NBI, &YG1Y_ua_1_dynspg_flt, Yjac[0], Ytbeta); 
    56205470         YG1_ua_norm_dynzdf( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    56215471         YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
     5472         #pragma omp atomic 
    56225473         YG1_spguv_now_dynspg( Yi, Yj, YTemps) += Ytbeta[2]; 
    56235474 
    … …  
    56395490         Yting[2]=YS1_sshn( Yi+1, Yj, YTemps-1); 
    56405491         memset(Yjac, 0, 62*sizeof(double)); 
    5641          Yspguv_now_dynspg(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] ); 
     5492         Yspguv_now_dynspg->backward( Yting[0], Yting[1], Yting[2] ); 
    56425493         Yvsmatt (YNBS_spguv_now_dynspg, YNBI_spguv_now_dynspg, YMAX_JAC_NBI, &YG1Y_spguv_now_dynspg, Yjac[0], Ytbeta); 
    56435494         #pragma omp atomic 
    … …  
    56635514         Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 
    56645515         memset(Yjac, 0, 31*sizeof(double)); 
    5665          Yva_norm_dynzdf(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
     5516         Yva_norm_dynzdf->backward( Yting[0], Yting[1] ); 
    56665517         Yvsmatt (YNBS_va_norm_dynzdf, YNBI_va_norm_dynzdf, YMAX_JAC_NBI, &YG1Y_va_norm_dynzdf, Yjac[0], Ytbeta); 
    56675518         #pragma omp atomic 
    … …  
    56715522         Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 
    56725523         memset(Yjac, 0, 31*sizeof(double)); 
    5673          Yua_norm_dynzdf(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
     5524         Yua_norm_dynzdf->backward( Yting[0], Yting[1] ); 
    56745525         Yvsmatt (YNBS_ua_norm_dynzdf, YNBI_ua_norm_dynzdf, YMAX_JAC_NBI, &YG1Y_ua_norm_dynzdf, Yjac[0], Ytbeta); 
    56755526         #pragma omp atomic 
    … …  
    56915542         Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    56925543         memset(Yjac, 0, 31*sizeof(double)); 
    5693          Yva_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5544         Yva_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    56945545         Yvsmatt (YNBS_va_dynzdf_imp, YNBI_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_va_dynzdf_imp, Yjac[0], Ytbeta); 
    56955546         YG2_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    57075558         Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 
    57085559         memset(Yjac, 0, 31*sizeof(double)); 
    5709          Yua_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5560         Yua_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    57105561         Yvsmatt (YNBS_ua_dynzdf_imp, YNBI_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_ua_dynzdf_imp, Yjac[0], Ytbeta); 
    57115562         YG2_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    57325583         Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    57335584         memset(Yjac, 0, 31*sizeof(double)); 
    5734          Yva_de_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5585         Yva_de_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    57355586         Yvsmatt (YNBS_va_de_dynzdf_imp, YNBI_va_de_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_va_de_dynzdf_imp, Yjac[0], Ytbeta); 
    57365587         YG1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    57535604         Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    57545605         memset(Yjac, 0, 31*sizeof(double)); 
    5755          Yzwt_va_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5606         Yzwt_va_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    57565607         Yvsmatt (YNBS_zwt_va_dynzdf_imp, YNBI_zwt_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_va_dynzdf_imp, Yjac[0], Ytbeta); 
    57575608         YG1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    57745625         Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    57755626         memset(Yjac, 0, 31*sizeof(double)); 
    5776          Yua_de_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5627         Yua_de_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    57775628         Yvsmatt (YNBS_ua_de_dynzdf_imp, YNBI_ua_de_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_ua_de_dynzdf_imp, Yjac[0], Ytbeta); 
    57785629         YG1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    57955646         Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 
    57965647         memset(Yjac, 0, 31*sizeof(double)); 
    5797          Yzwt_ua_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5648         Yzwt_ua_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    57985649         Yvsmatt (YNBS_zwt_ua_dynzdf_imp, YNBI_zwt_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_ua_dynzdf_imp, Yjac[0], Ytbeta); 
    57995650         YG1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    58175668         Yting[2]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 
    58185669         memset(Yjac, 0, 31*sizeof(double)); 
    5819          Yzrhs_va_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
     5670         Yzrhs_va_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2] ); 
    58205671         Yvsmatt (YNBS_zrhs_va_dynzdf_imp, YNBI_zrhs_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_va_dynzdf_imp, Yjac[0], Ytbeta); 
    58215672         YG1_va_dyn_hpg_zco( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    58225673         YG1_vb( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
     5674         #pragma omp atomic 
    58235675         YG2_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[2]; 
    58245676         Yting[0]=YS1_ua_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 
    … …  
    58265678         Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 
    58275679         memset(Yjac, 0, 31*sizeof(double)); 
    5828          Yzrhs_ua_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
     5680         Yzrhs_ua_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2] ); 
    58295681         Yvsmatt (YNBS_zrhs_ua_dynzdf_imp, YNBI_zrhs_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_ua_dynzdf_imp, Yjac[0], Ytbeta); 
    58305682         YG1_ua_dyn_hpg_zco( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    58315683         YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 
     5684         #pragma omp atomic 
    58325685         YG1_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[2]; 
    58335686         Yting[0]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps); 
    … …  
    58375690         Yting[1]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 
    58385691         memset(Yjac, 0, 93*sizeof(double)); 
    5839          Yzwisd_va_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
     5692         Yzwisd_va_dynzdf_imp->backward( Yting[0], Yting[1] ); 
    58405693         Yvsmatt (YNBS_zwisd_va_dynzdf_imp, YNBI_zwisd_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_va_dynzdf_imp, Yjac[0], Ytbeta); 
    58415694         #pragma omp atomic 
    … …  
    58515704         Yting[1]=YS2_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 
    58525705         memset(Yjac, 0, 93*sizeof(double)); 
    5853          Yzwisd_ua_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
     5706         Yzwisd_ua_dynzdf_imp->backward( Yting[0], Yting[1] ); 
    58545707         Yvsmatt (YNBS_zwisd_ua_dynzdf_imp, YNBI_zwisd_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_ua_dynzdf_imp, Yjac[0], Ytbeta); 
    58555708         #pragma omp atomic 
    … …  
    58695722         Yting[1]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 
    58705723         memset(Yjac, 0, 31*sizeof(double)); 
    5871          Yva_dyn_hpg_zco(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
     5724         Yva_dyn_hpg_zco->backward( Yting[0], Yting[1] ); 
    58725725         Yvsmatt (YNBS_va_dyn_hpg_zco, YNBI_va_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_va_dyn_hpg_zco, Yjac[0], Ytbeta); 
    58735726         YG1_va_dyn_ldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    58765729         Yting[1]=YS1_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 
    58775730         memset(Yjac, 0, 31*sizeof(double)); 
    5878          Yua_dyn_hpg_zco(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
     5731         Yua_dyn_hpg_zco->backward( Yting[0], Yting[1] ); 
    58795732         Yvsmatt (YNBS_ua_dyn_hpg_zco, YNBI_ua_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_ua_dyn_hpg_zco, Yjac[0], Ytbeta); 
    58805733         YG1_ua_dyn_ldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    59105763         Yting[7]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk-1, YTemps); 
    59115764         memset(Yjac, 0, 62*sizeof(double)); 
    5912          Yzhpij_dyn_hpg_zco(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 
     5765         Yzhpij_dyn_hpg_zco->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 
    59135766         Yvsmatt (YNBS_zhpij_dyn_hpg_zco, YNBI_zhpij_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_zhpij_dyn_hpg_zco, Yjac[0], Ytbeta); 
    59145767         if (1==0 || Yi+1>YA1_S3dt-1){}  
    … …  
    59555808         Yting[4]=YS1_hdivn( Yi, Yj+1, Yk, YTemps-2); 
    59565809         memset(Yjac, 0, 31*sizeof(double)); 
    5957          Yva_dyn_ldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     5810         Yva_dyn_ldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    59585811         Yvsmatt (YNBS_va_dyn_ldf_lap, YNBI_va_dyn_ldf_lap, YMAX_JAC_NBI, &YG1Y_va_dyn_ldf_lap, Yjac[0], Ytbeta); 
    59595812         YG1_va_vor_ene( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    59785831         Yting[4]=YS1_hdivn( Yi+1, Yj, Yk, YTemps-2); 
    59795832         memset(Yjac, 0, 31*sizeof(double)); 
    5980          Yua_dyn_ldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     5833         Yua_dyn_ldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    59815834         Yvsmatt (YNBS_ua_dyn_ldf_lap, YNBI_ua_dyn_ldf_lap, YMAX_JAC_NBI, &YG1Y_ua_dyn_ldf_lap, Yjac[0], Ytbeta); 
    59825835         YG1_ua_vor_ene( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    60095862         Yting[6]=YS1_zwxyz_vor_ene( Yi, Yj+1, Yk, YTemps); 
    60105863         memset(Yjac, 0, 31*sizeof(double)); 
    6011          Yva_vor_ene(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
     5864         Yva_vor_ene->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
    60125865         Yvsmatt (YNBS_va_vor_ene, YNBI_va_vor_ene, YMAX_JAC_NBI, &YG1Y_va_vor_ene, Yjac[0], Ytbeta); 
    60135866         YG1_va_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    60465899         Yting[6]=YS2_zwxyz_vor_ene( Yi+1, Yj, Yk, YTemps); 
    60475900         memset(Yjac, 0, 31*sizeof(double)); 
    6048          Yua_vor_ene(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
     5901         Yua_vor_ene->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
    60495902         Yvsmatt (YNBS_ua_vor_ene, YNBI_ua_vor_ene, YMAX_JAC_NBI, &YG1Y_ua_vor_ene, Yjac[0], Ytbeta); 
    60505903         YG1_ua_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    60795932         Yting[3]=YS1_va( Yi+1, Yj, Yk, YTemps-1); 
    60805933         memset(Yjac, 0, 93*sizeof(double)); 
    6081          Yzwxyz_vor_ene(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     5934         Yzwxyz_vor_ene->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    60825935         Yvsmatt (YNBS_zwxyz_vor_ene, YNBI_zwxyz_vor_ene, YMAX_JAC_NBI, &YG1Y_zwxyz_vor_ene, Yjac[0], Ytbeta); 
    60835936         #pragma omp atomic 
    … …  
    61115964         Yting[2]=YS1_zva_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 
    61125965         memset(Yjac, 0, 31*sizeof(double)); 
    6113          Yva_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
     5966         Yva_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 
    61145967         Yvsmatt (YNBS_va_dynadv_cen2, YNBI_va_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_va_dynadv_cen2, Yjac[0], Ytbeta); 
    61155968         #pragma omp atomic 
    … …  
    61275980         Yting[2]=YS1_zua_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 
    61285981         memset(Yjac, 0, 31*sizeof(double)); 
    6129          Yua_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
     5982         Yua_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 
    61305983         Yvsmatt (YNBS_ua_dynadv_cen2, YNBI_ua_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_ua_dynadv_cen2, Yjac[0], Ytbeta); 
    61315984         #pragma omp atomic 
    … …  
    61656018         Yting[6]=YS1_va( Yi, Yj, Yk-1, YTemps-1); 
    61666019         memset(Yjac, 0, 62*sizeof(double)); 
    6167          Yzfuv_UW_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
     6020         Yzfuv_UW_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 
    61686021         Yvsmatt (YNBS_zfuv_UW_dynadv_cen2, YNBI_zfuv_UW_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zfuv_UW_dynadv_cen2, Yjac[0], Ytbeta); 
    61696022         #pragma omp atomic 
    … …  
    62106063         Yting[3]=YS4_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 
    62116064         memset(Yjac, 0, 31*sizeof(double)); 
    6212          Yzva_dhmf_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6065         Yzva_dhmf_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    62136066         Yvsmatt (YNBS_zva_dhmf_dynadv_cen2, YNBI_zva_dhmf_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zva_dhmf_dynadv_cen2, Yjac[0], Ytbeta); 
    62146067         YG3_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    62316084         Yting[3]=YS2_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 
    62326085         memset(Yjac, 0, 31*sizeof(double)); 
    6233          Yzua_dhmf_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6086         Yzua_dhmf_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    62346087         Yvsmatt (YNBS_zua_dhmf_dynadv_cen2, YNBI_zua_dhmf_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zua_dhmf_dynadv_cen2, Yjac[0], Ytbeta); 
    62356088         YG1_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    62656118         Yting[5]=YS1_va( Yi, Yj+1, Yk, YTemps-1); 
    62666119         memset(Yjac, 0, 124*sizeof(double)); 
    6267          Yhmf_TF_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] ); 
     6120         Yhmf_TF_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] ); 
    62686121         Yvsmatt (YNBS_hmf_TF_dynadv_cen2, YNBI_hmf_TF_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_hmf_TF_dynadv_cen2, Yjac[0], Ytbeta); 
    62696122         #pragma omp atomic 
    … …  
    63006153         Yting[0]=YS1_rhd( Yi, Yj, Yk, YTemps); 
    63016154         memset(Yjac, 0, 31*sizeof(double)); 
    6302          Yrhop(Yi, Yj, Yk)->backward( Yting[0] ); 
     6155         Yrhop->backward( Yting[0] ); 
    63036156         Yvsmatt (YNBS_rhop, YNBI_rhop, YMAX_JAC_NBI, &YG1Y_rhop, Yjac[0], Ytbeta); 
    63046157         #pragma omp atomic 
    … …  
    63076160         Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps); 
    63086161         memset(Yjac, 0, 31*sizeof(double)); 
    6309          Yrhd(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
     6162         Yrhd->backward( Yting[0], Yting[1] ); 
    63106163         Yvsmatt (YNBS_rhd, YNBI_rhd, YMAX_JAC_NBI, &YG1Y_rhd, Yjac[0], Ytbeta); 
    63116164         YG1_tb( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    63256178         Yting[3]=YS1_sa_c( Yi, Yj, Yk); 
    63266179         memset(Yjac, 0, 31*sizeof(double)); 
    6327          Ysb(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6180         Ysb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    63286181         Yvsmatt (YNBS_sb, YNBI_sb, YMAX_JAC_NBI, &YG1Y_sb, Yjac[0], Ytbeta); 
    63296182         #pragma omp atomic 
    … …  
    63396192         Yting[3]=YS1_ta_c( Yi, Yj, Yk); 
    63406193         memset(Yjac, 0, 31*sizeof(double)); 
    6341          Ytb(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6194         Ytb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    63426195         Yvsmatt (YNBS_tb, YNBI_tb, YMAX_JAC_NBI, &YG1Y_tb, Yjac[0], Ytbeta); 
    63436196         #pragma omp atomic 
    … …  
    63646217         Yting[4]=YS1_sa_c( Yi, Yj, Yk); 
    63656218         memset(Yjac, 0, 31*sizeof(double)); 
    6366          Ysa(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6219         Ysa->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    63676220         Yvsmatt (YNBS_sa, YNBI_sa, YMAX_JAC_NBI, &YG1Y_sa, Yjac[0], Ytbeta); 
    63686221         YG2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    63826235         Yting[4]=YS1_ta_c( Yi, Yj, Yk); 
    63836236         memset(Yjac, 0, 31*sizeof(double)); 
    6384          Yta(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6237         Yta->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    63856238         Yvsmatt (YNBS_ta, YNBI_ta, YMAX_JAC_NBI, &YG1Y_ta, Yjac[0], Ytbeta); 
    63866239         YG2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    64086261         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 
    64096262         memset(Yjac, 0, 31*sizeof(double)); 
    6410          Ysa_de_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6263         Ysa_de_trazdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    64116264         Yvsmatt (YNBS_sa_de_trazdf_imp, YNBI_sa_de_trazdf_imp, YMAX_JAC_NBI, &YG1Y_sa_de_trazdf_imp, Yjac[0], Ytbeta); 
    64126265         YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    64296282         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 
    64306283         memset(Yjac, 0, 31*sizeof(double)); 
    6431          Yta_de_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6284         Yta_de_trazdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    64326285         Yvsmatt (YNBS_ta_de_trazdf_imp, YNBI_ta_de_trazdf_imp, YMAX_JAC_NBI, &YG1Y_ta_de_trazdf_imp, Yjac[0], Ytbeta); 
    64336286         YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    64506303         Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 
    64516304         memset(Yjac, 0, 31*sizeof(double)); 
    6452          Yzwt_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6305         Yzwt_trazdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    64536306         Yvsmatt (YNBS_zwt_trazdf_imp, YNBI_zwt_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_trazdf_imp, Yjac[0], Ytbeta); 
    64546307         YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    64716324         Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps-1); 
    64726325         memset(Yjac, 0, 31*sizeof(double)); 
    6473          Yzrhs_sa_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
     6326         Yzrhs_sa_trazdf_imp->backward( Yting[0], Yting[1] ); 
    64746327         Yvsmatt (YNBS_zrhs_sa_trazdf_imp, YNBI_zrhs_sa_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_sa_trazdf_imp, Yjac[0], Ytbeta); 
    64756328         YG1_sa_traldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    64796332         Yting[1]=YS1_tb( Yi, Yj, Yk, YTemps-1); 
    64806333         memset(Yjac, 0, 31*sizeof(double)); 
    6481          Yzrhs_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
     6334         Yzrhs_trazdf_imp->backward( Yting[0], Yting[1] ); 
    64826335         Yvsmatt (YNBS_zrhs_trazdf_imp, YNBI_zrhs_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_trazdf_imp, Yjac[0], Ytbeta); 
    64836336         YG1_ta_traldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    64906343         Yting[1]=YS1_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 
    64916344         memset(Yjac, 0, 93*sizeof(double)); 
    6492          Yzwisd_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
     6345         Yzwisd_trazdf_imp->backward( Yting[0], Yting[1] ); 
    64936346         Yvsmatt (YNBS_zwisd_trazdf_imp, YNBI_zwisd_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_trazdf_imp, Yjac[0], Ytbeta); 
    64946347         #pragma omp atomic 
    … …  
    65196372         Yting[4]=YS2_zsuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 
    65206373         memset(Yjac, 0, 31*sizeof(double)); 
    6521          Ysa_traldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6374         Ysa_traldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    65226375         Yvsmatt (YNBS_sa_traldf_lap, YNBI_sa_traldf_lap, YMAX_JAC_NBI, &YG1Y_sa_traldf_lap, Yjac[0], Ytbeta); 
    65236376         YG1_sa_ver_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    65426395         Yting[4]=YS2_ztuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 
    65436396         memset(Yjac, 0, 31*sizeof(double)); 
    6544          Yta_traldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6397         Yta_traldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    65456398         Yvsmatt (YNBS_ta_traldf_lap, YNBI_ta_traldf_lap, YMAX_JAC_NBI, &YG1Y_ta_traldf_lap, Yjac[0], Ytbeta); 
    65466399         YG1_ta_ver_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    65636416         Yting[2]=YS1_sb( Yi, Yj+1, Yk, YTemps-1); 
    65646417         memset(Yjac, 0, 62*sizeof(double)); 
    6565          Yzsuv_traldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
     6418         Yzsuv_traldf_lap->backward( Yting[0], Yting[1], Yting[2] ); 
    65666419         Yvsmatt (YNBS_zsuv_traldf_lap, YNBI_zsuv_traldf_lap, YMAX_JAC_NBI, &YG1Y_zsuv_traldf_lap, Yjac[0], Ytbeta); 
    65676420         #pragma omp atomic 
    … …  
    65856438         Yting[2]=YS1_tb( Yi, Yj+1, Yk, YTemps-1); 
    65866439         memset(Yjac, 0, 62*sizeof(double)); 
    6587          Yztuv_traldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
     6440         Yztuv_traldf_lap->backward( Yting[0], Yting[1], Yting[2] ); 
    65886441         Yvsmatt (YNBS_ztuv_traldf_lap, YNBI_ztuv_traldf_lap, YMAX_JAC_NBI, &YG1Y_ztuv_traldf_lap, Yjac[0], Ytbeta); 
    65896442         #pragma omp atomic 
    … …  
    66136466         Yting[2]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 
    66146467         memset(Yjac, 0, 31*sizeof(double)); 
    6615          Ysa_ver_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
     6468         Ysa_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 
    66166469         Yvsmatt (YNBS_sa_ver_traadv_cen2, YNBI_sa_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_sa_ver_traadv_cen2, Yjac[0], Ytbeta); 
    66176470         YG1_sa_hor_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    66296482         Yting[2]=YS1_zcent_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 
    66306483         memset(Yjac, 0, 31*sizeof(double)); 
    6631          Yta_ver_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
     6484         Yta_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 
    66326485         Yvsmatt (YNBS_ta_ver_traadv_cen2, YNBI_ta_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_ta_ver_traadv_cen2, Yjac[0], Ytbeta); 
    66336486         YG1_ta_hor_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    66546507         Yting[2]=YS1_sa( Yi, Yj, Yk-1, YTemps-1); 
    66556508         memset(Yjac, 0, 31*sizeof(double)); 
    6656          Yzcens_ver_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
     6509         Yzcens_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 
    66576510         Yvsmatt (YNBS_zcens_ver_traadv_cen2, YNBI_zcens_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcens_ver_traadv_cen2, Yjac[0], Ytbeta); 
    66586511         #pragma omp atomic 
    … …  
    66716524         Yting[2]=YS1_ta( Yi, Yj, Yk-1, YTemps-1); 
    66726525         memset(Yjac, 0, 31*sizeof(double)); 
    6673          Yzcent_ver_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 
     6526         Yzcent_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 
    66746527         Yvsmatt (YNBS_zcent_ver_traadv_cen2, YNBI_zcent_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcent_ver_traadv_cen2, Yjac[0], Ytbeta); 
    66756528         #pragma omp atomic 
    … …  
    67036556         Yting[4]=YS2_zcens_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 
    67046557         memset(Yjac, 0, 31*sizeof(double)); 
    6705          Ysa_hor_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6558         Ysa_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    67066559         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 
    67076561         YG2_ta_sa_trasbc( Yi, Yj, YTemps) += Ytbeta[0]; 
    67086562         if (1==0 || Yi-1<0){}  
    … …  
    67266580         Yting[4]=YS2_zcent_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 
    67276581         memset(Yjac, 0, 31*sizeof(double)); 
    6728          Yta_hor_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6582         Yta_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    67296583         Yvsmatt (YNBS_ta_hor_traadv_cen2, YNBI_ta_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_ta_hor_traadv_cen2, Yjac[0], Ytbeta); 
    67306584         YG1_ta_traqsr( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    67546608         Yting[4]=YS1_sa( Yi+1, Yj, Yk, YTemps-1); 
    67556609         memset(Yjac, 0, 62*sizeof(double)); 
    6756          Yzcens_hor_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6610         Yzcens_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    67576611         Yvsmatt (YNBS_zcens_hor_traadv_cen2, YNBI_zcens_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcens_hor_traadv_cen2, Yjac[0], Ytbeta); 
    67586612         #pragma omp atomic 
    … …  
    67826636         Yting[4]=YS1_ta( Yi+1, Yj, Yk, YTemps-1); 
    67836637         memset(Yjac, 0, 62*sizeof(double)); 
    6784          Yzcent_hor_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     6638         Yzcent_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    67856639         Yvsmatt (YNBS_zcent_hor_traadv_cen2, YNBI_zcent_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcent_hor_traadv_cen2, Yjac[0], Ytbeta); 
    67866640         #pragma omp atomic 
    … …  
    68126666         Yting[1]=YS1_ta_sa_trasbc( Yi, Yj, YTemps); 
    68136667         memset(Yjac, 0, 31*sizeof(double)); 
    6814          Yta_traqsr(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 
     6668         Yta_traqsr->backward( Yting[0], Yting[1] ); 
    68156669         Yvsmatt (YNBS_ta_traqsr, YNBI_ta_traqsr, YMAX_JAC_NBI, &YG1Y_ta_traqsr, Yjac[0], Ytbeta); 
     6670         #pragma omp atomic 
    68166671         YG1_sbcgyre_qsr_qns( Yi, Yj, YTemps) += Ytbeta[0]; 
     6672         #pragma omp atomic 
    68176673         YG1_ta_sa_trasbc( Yi, Yj, YTemps) += Ytbeta[1]; 
    68186674 
    … …  
    68286684         Yting[2]=YS1_sa( Yi, Yj, 0, YTemps-1); 
    68296685         memset(Yjac, 0, 62*sizeof(double)); 
    6830          Yta_sa_trasbc(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] ); 
     6686         Yta_sa_trasbc->backward( Yting[0], Yting[1], Yting[2] ); 
    68316687         Yvsmatt (YNBS_ta_sa_trasbc, YNBI_ta_sa_trasbc, YMAX_JAC_NBI, &YG1Y_ta_sa_trasbc, Yjac[0], Ytbeta); 
    68326688         YG2_sbcgyre_qsr_qns( Yi, Yj, YTemps) += Ytbeta[0]; 
    … …  
    68746730         Yting[30]=YS1_rhop( Yi, Yj, 30, YTemps-1); 
    68756731         memset(Yjac, 0, 93*sizeof(double)); 
    6876          Yzdfmxl_nmln_hmlp_hmlpt(Yi, Yj)->backward(); 
     6732         Yzdfmxl_nmln_hmlp_hmlpt->backward(); 
    68776733         Yvsmatt (YNBS_zdfmxl_nmln_hmlp_hmlpt, YNBI_zdfmxl_nmln_hmlp_hmlpt, YMAX_JAC_NBI, &YG1Y_zdfmxl_nmln_hmlp_hmlpt, Yjac[0], Ytbeta); 
    68786734         YG1_rhop( Yi, Yj, 0, YTemps-1) += Ytbeta[0]; 
    … …  
    69396795         Yting[30]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 30, YTemps); 
    69406796         memset(Yjac, 0, 31*sizeof(double)); 
    6941          Yzdfmxl_hmld(Yi, Yj)->backward(); 
     6797         Yzdfmxl_hmld->backward(); 
    69426798         Yvsmatt (YNBS_zdfmxl_hmld, YNBI_zdfmxl_hmld, YMAX_JAC_NBI, &YG1Y_zdfmxl_hmld, Yjac[0], Ytbeta); 
    69436799         YG1_zdf_avt_avmu_avmv( Yi, Yj, 0, YTemps) += Ytbeta[0]; 
    … …  
    70436899         Yting[18]=YS1_va( Yi+1, Yj, 1, YTemps-1); 
    70446900         memset(Yjac, 0, 93*sizeof(double)); 
    7045          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] ); 
     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] ); 
    70466902         Yvsmatt (YNBS_zdf_avt_avmu_avmv, YNBI_zdf_avt_avmu_avmv, YMAX_JAC_NBI, &YG1Y_zdf_avt_avmu_avmv, Yjac[0], Ytbeta); 
    70476903         YG1_bn2_rn2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 
    … …  
    71286984         Yting[3]=YS1_sb( Yi, Yj, Yk-1, YTemps-1); 
    71296985         memset(Yjac, 0, 31*sizeof(double)); 
    7130          Ybn2_rn2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     6986         Ybn2_rn2->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    71316987         Yvsmatt (YNBS_bn2_rn2, YNBI_bn2_rn2, YMAX_JAC_NBI, &YG1Y_bn2_rn2, Yjac[0], Ytbeta); 
    71326988         #pragma omp atomic 
    … …  
    71597015         Yting[3]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 
    71607016         memset(Yjac, 0, 31*sizeof(double)); 
    7161          Ysbcgyre_wndm(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
     7017         Ysbcgyre_wndm->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 
    71627018         Yvsmatt (YNBS_sbcgyre_wndm, YNBI_sbcgyre_wndm, YMAX_JAC_NBI, &YG1Y_sbcgyre_wndm, Yjac[0], Ytbeta); 
    71637019         if (1==0 || Yi-1<0){}  
    … …  
    71697025         YG1_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[2]; 
    71707026         YG2_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[3]; 
    7171          Ysbcgyre_utau_vtau(Yi, Yj)->backward(); 
     7027         Ysbcgyre_utau_vtau->backward(); 
    71727028         Yting[0]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 
    71737029         memset(Yjac, 0, 31*sizeof(double)); 
    7174          Ysbcgyre_emps(Yi, Yj)->backward( Yting[0] ); 
     7030         Ysbcgyre_emps->backward( Yting[0] ); 
    71757031         Yvsmatt (YNBS_sbcgyre_emps, YNBI_sbcgyre_emps, YMAX_JAC_NBI, &YG1Y_sbcgyre_emps, Yjac[0], Ytbeta); 
    71767032         YG1_sbcgyre_emp( Yi, Yj, YTemps) += Ytbeta[0]; 
    … …  
    71797035         Yting[2]=YS2_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 
    71807036         memset(Yjac, 0, 31*sizeof(double)); 
    7181          Ysbcgyre_emp(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] ); 
     7037         Ysbcgyre_emp->backward( Yting[0], Yting[1], Yting[2] ); 
    71827038         Yvsmatt (YNBS_sbcgyre_emp, YNBI_sbcgyre_emp, YMAX_JAC_NBI, &YG1Y_sbcgyre_emp, Yjac[0], Ytbeta); 
    71837039         YG1_sbcgyre_emp1( Yi, Yj, YTemps) += Ytbeta[0]; 
    … …  
    72077063         Yting[4]=YS1_sbcgyre_emp1( Yi, Yj, YTemps); 
    72087064         memset(Yjac, 0, 62*sizeof(double)); 
    7209          Ysbcgyre_zsumemp_zsurf(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
     7065         Ysbcgyre_zsumemp_zsurf->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 
    72107066         Yvsmatt (YNBS_sbcgyre_zsumemp_zsurf, YNBI_sbcgyre_zsumemp_zsurf, YMAX_JAC_NBI, &YG1Y_sbcgyre_zsumemp_zsurf, Yjac[0], Ytbeta); 
    72117067         if (1==0 || Yi-1<0){}  
    … …  
    72227078         YG2_sbcgyre_zsumemp_zsurf( 31, Yj-1, YTemps) += Ytbeta[3]; 
    72237079         YG1_sbcgyre_emp1( Yi, Yj, YTemps) += Ytbeta[4]; 
    7224          Ysbcgyre_emp1(Yi, Yj)->backward(); 
     7080         Ysbcgyre_emp1->backward(); 
    72257081         Yting[0]=YS1_tb( Yi, Yj, 0, YTemps-1); 
    72267082         memset(Yjac, 0, 62*sizeof(double)); 
    7227          Ysbcgyre_qsr_qns(Yi, Yj)->backward( Yting[0] ); 
     7083         Ysbcgyre_qsr_qns->backward( Yting[0] ); 
    72287084         Yvsmatt (YNBS_sbcgyre_qsr_qns, YNBI_sbcgyre_qsr_qns, YMAX_JAC_NBI, &YG1Y_sbcgyre_qsr_qns, Yjac[0], Ytbeta); 
    72297085         YG1_tb( Yi, Yj, 0, YTemps-1) += Ytbeta[0]; 
    … …  
    72677123} 
    72687124 
    7269 // ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ ï¿œ LES FONCTIONS UTILISATEUR ... :  
     7125// ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ LES FONCTIONS UTILISATEUR ... :  
    72707126int Yuser_call (int argc, char *argv[])  
    72717127{ 

  • trunk/src/Yworkdir/Yaoext_sinobad

    r1 r42  
     1 
     2#---------------------------------------------------- 
     3# project: sinobad     header generated by YAO version v.9 
     4#---------------------------------------------------- 
     5 
    16#!/bin/sh  
    27LDYEXTOBJ=" ../object/ncutil.o "  
Note: See TracChangeset for help on using the changeset viewer.