- Timestamp:
- 05/06/11 15:17:04 (13 years ago)
- Location:
- trunk/src
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/Yworkdir/Y1sinobad.h
r45 r46 7 7 #define NOT_PARALLEL 8 8 9 // ᅵ ᅵ ᅵ ᅵLES DECLARATIONS DE CLASS, DEFINE ET ALLOCATION DU PROJET9 //€ € € € LES DECLARATIONS DE CLASS, DEFINE ET ALLOCATION DU PROJET 10 10 #define NPCA 15 11 11 #define NX 32 … … 78 78 /*NBMOD */ #define YNB_sshn_c 704 79 79 /*NBSMOD */ #define YNBS_sshn_c 1 80 /*M2_VALSG */ #define Ystate_sshn_c(v, i, j) Ysshn_c->Ystate[i][j][v] 81 /*M2_VALSG */ #define YS_sshn_c(v, i, j) Ysshn_c->Ystate[i][j][v] 82 /*M2_VALSGI */ #define YS1_sshn_c(i, j) Ysshn_c->Ystate[i][j][0] 83 /*M2_HERESGI*/ #define YS1Y_sshn_c Ysshn_c->Ystate[Yi][Yj][0] 84 /*M2_VALSG */ #define Ygrad_sshn_c(v, i, j) Ysshn_c->Ygrad[i][j][v] 85 /*M2_VALSG */ #define YG_sshn_c(v, i, j) Ysshn_c->Ygrad[i][j][v] 86 /*M2_VALSGI */ #define YG1_sshn_c(i, j) Ysshn_c->Ygrad[i][j][0] 87 /*M2_HERESGI*/ #define YG1Y_sshn_c Ysshn_c->Ygrad[Yi][Yj][0] 88 Yaosshn_c *Ysshn_c; 80 /*M2_IRMOD */ #define Ysshn_c(i, j) Ysshn_c[i][j] 81 /*M2_NOWMOD */ #define Ysshn_cY Ysshn_c[Yi][Yj] 82 /*M2_VALSG */ #define Ystate_sshn_c(v, i, j) Ysshn_c[i][j]->Ystate[v] 83 /*M2_VALSG */ #define YS_sshn_c(v, i, j) Ysshn_c[i][j]->Ystate[v] 84 /*M2_VALSGI */ #define YS1_sshn_c(i, j) Ysshn_c[i][j]->Ystate[0] 85 /*M2_HERESGI*/ #define YS1Y_sshn_c Ysshn_c[Yi][Yj]->Ystate[0] 86 /*M2_VALSG */ #define Ygrad_sshn_c(v, i, j) Ysshn_c[i][j]->Ygrad[v] 87 /*M2_VALSG */ #define YG_sshn_c(v, i, j) Ysshn_c[i][j]->Ygrad[v] 88 /*M2_VALSGI */ #define YG1_sshn_c(i, j) Ysshn_c[i][j]->Ygrad[0] 89 /*M2_HERESGI*/ #define YG1Y_sshn_c Ysshn_c[Yi][Yj]->Ygrad[0] 90 Yaosshn_c *Ysshn_c[YA1_S3d][YA2_S3d]; 89 91 90 92 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_c~~~~~~~~~~~~~~~~~~~~~~~~~ … … 96 98 class Yaota_c; 97 99 /*NBSMOD */ #define YNBS_ta_c 1 98 /*M3_VALSG */ #define Ystate_ta_c(v, i, j, k) Yta_c->Ystate[i][j][k][v] 99 /*M3_VALSG */ #define YS_ta_c(v, i, j, k) Yta_c->Ystate[i][j][k][v] 100 /*M3_VALSGI */ #define YS1_ta_c(i, j, k) Yta_c->Ystate[i][j][k][0] 101 /*M3_HERESGI*/ #define YS1Y_ta_c Yta_c->Ystate[Yi][Yj][Yk][0] 102 /*M3_VALSG */ #define Ygrad_ta_c(v, i, j, k) Yta_c->Ygrad[i][j][k][v] 103 /*M3_VALSG */ #define YG_ta_c(v, i, j, k) Yta_c->Ygrad[i][j][k][v] 104 /*M3_VALSGI */ #define YG1_ta_c(i, j, k) Yta_c->Ygrad[i][j][k][0] 105 /*M3_HERESGI*/ #define YG1Y_ta_c Yta_c->Ygrad[Yi][Yj][Yk][0] 106 /*M3_VALSG */ #define Yepsi_ta_c(v, i, j, k) Yta_c->Yepsi[i][j][k][v] 107 /*M3_VALSG */ #define YE_ta_c(v, i, j, k) Yta_c->Yepsi[i][j][k][v] 108 /*M3_VALSGI */ #define YE1_ta_c(i, j, k) Yta_c->Yepsi[i][j][k][0] 109 Yaota_c *Yta_c; 110 /*M3_VALSG */ #define Ywish_ta_c(v, i, j, k) Yta_c->Ywish[i][j][k][v] 111 /*M3_VALSG */ #define YW_ta_c(v, i, j, k) Yta_c->Ywish[i][j][k][v] 112 /*M3_VALSGI */ #define YW1_ta_c(i, j, k) Yta_c->Ywish[i][j][k][0] 113 /*M3_HERESGI*/ #define YW1Y_ta_c Yta_c->Ywish[Yi][Yj][Yk][0] 100 /*M3_IRMOD */ #define Yta_c(i, j, k) Yta_c[i][j][k] 101 /*M3_NOWMOD */ #define Yta_cY Yta_c[Yi][Yj][Yk] 102 /*M3_VALSG */ #define Ystate_ta_c(v, i, j, k) Yta_c[i][j][k]->Ystate[v] 103 /*M3_VALSG */ #define YS_ta_c(v, i, j, k) Yta_c[i][j][k]->Ystate[v] 104 /*M3_VALSGI */ #define YS1_ta_c(i, j, k) Yta_c[i][j][k]->Ystate[0] 105 /*M3_HERESGI*/ #define YS1Y_ta_c Yta_c[Yi][Yj][Yk]->Ystate[0] 106 /*M3_VALSG */ #define Ygrad_ta_c(v, i, j, k) Yta_c[i][j][k]->Ygrad[v] 107 /*M3_VALSG */ #define YG_ta_c(v, i, j, k) Yta_c[i][j][k]->Ygrad[v] 108 /*M3_VALSGI */ #define YG1_ta_c(i, j, k) Yta_c[i][j][k]->Ygrad[0] 109 /*M3_HERESGI*/ #define YG1Y_ta_c Yta_c[Yi][Yj][Yk]->Ygrad[0] 110 /*M3_VALSG */ #define Yepsi_ta_c(v, i, j, k) Yta_c[i][j][k]->Yepsi[v] 111 /*M3_VALSG */ #define YE_ta_c(v, i, j, k) Yta_c[i][j][k]->Yepsi[v] 112 /*M3_VALSGI */ #define YE1_ta_c(i, j, k) Yta_c[i][j][k]->Yepsi[0] 113 Yaota_c *Yta_c[YA1_S3d][YA2_S3d][YA3_S3d]; 114 /*M3_VALSG */ #define Ywish_ta_c(v, i, j, k) Yta_c[i][j][k]->Ywish[v] 115 /*M3_VALSG */ #define YW_ta_c(v, i, j, k) Yta_c[i][j][k]->Ywish[v] 116 /*M3_VALSGI */ #define YW1_ta_c(i, j, k) Yta_c[i][j][k]->Ywish[0] 117 /*M3_HERESGI*/ #define YW1Y_ta_c Yta_c[Yi][Yj][Yk]->Ywish[0] 114 118 115 119 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_c~~~~~~~~~~~~~~~~~~~~~~~~~ … … 118 122 class Yaosa_c; 119 123 /*NBSMOD */ #define YNBS_sa_c 1 120 /*M3_VALSG */ #define Ystate_sa_c(v, i, j, k) Ysa_c->Ystate[i][j][k][v] 121 /*M3_VALSG */ #define YS_sa_c(v, i, j, k) Ysa_c->Ystate[i][j][k][v] 122 /*M3_VALSGI */ #define YS1_sa_c(i, j, k) Ysa_c->Ystate[i][j][k][0] 123 /*M3_HERESGI*/ #define YS1Y_sa_c Ysa_c->Ystate[Yi][Yj][Yk][0] 124 /*M3_VALSG */ #define Ygrad_sa_c(v, i, j, k) Ysa_c->Ygrad[i][j][k][v] 125 /*M3_VALSG */ #define YG_sa_c(v, i, j, k) Ysa_c->Ygrad[i][j][k][v] 126 /*M3_VALSGI */ #define YG1_sa_c(i, j, k) Ysa_c->Ygrad[i][j][k][0] 127 /*M3_HERESGI*/ #define YG1Y_sa_c Ysa_c->Ygrad[Yi][Yj][Yk][0] 128 Yaosa_c *Ysa_c; 124 /*M3_IRMOD */ #define Ysa_c(i, j, k) Ysa_c[i][j][k] 125 /*M3_NOWMOD */ #define Ysa_cY Ysa_c[Yi][Yj][Yk] 126 /*M3_VALSG */ #define Ystate_sa_c(v, i, j, k) Ysa_c[i][j][k]->Ystate[v] 127 /*M3_VALSG */ #define YS_sa_c(v, i, j, k) Ysa_c[i][j][k]->Ystate[v] 128 /*M3_VALSGI */ #define YS1_sa_c(i, j, k) Ysa_c[i][j][k]->Ystate[0] 129 /*M3_HERESGI*/ #define YS1Y_sa_c Ysa_c[Yi][Yj][Yk]->Ystate[0] 130 /*M3_VALSG */ #define Ygrad_sa_c(v, i, j, k) Ysa_c[i][j][k]->Ygrad[v] 131 /*M3_VALSG */ #define YG_sa_c(v, i, j, k) Ysa_c[i][j][k]->Ygrad[v] 132 /*M3_VALSGI */ #define YG1_sa_c(i, j, k) Ysa_c[i][j][k]->Ygrad[0] 133 /*M3_HERESGI*/ #define YG1Y_sa_c Ysa_c[Yi][Yj][Yk]->Ygrad[0] 134 Yaosa_c *Ysa_c[YA1_S3d][YA2_S3d][YA3_S3d]; 129 135 130 136 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_c~~~~~~~~~~~~~~~~~~~~~~~~~ … … 133 139 class Yaoua_c; 134 140 /*NBSMOD */ #define YNBS_ua_c 1 135 /*M3_VALSG */ #define Ystate_ua_c(v, i, j, k) Yua_c->Ystate[i][j][k][v] 136 /*M3_VALSG */ #define YS_ua_c(v, i, j, k) Yua_c->Ystate[i][j][k][v] 137 /*M3_VALSGI */ #define YS1_ua_c(i, j, k) Yua_c->Ystate[i][j][k][0] 138 /*M3_HERESGI*/ #define YS1Y_ua_c Yua_c->Ystate[Yi][Yj][Yk][0] 139 /*M3_VALSG */ #define Ygrad_ua_c(v, i, j, k) Yua_c->Ygrad[i][j][k][v] 140 /*M3_VALSG */ #define YG_ua_c(v, i, j, k) Yua_c->Ygrad[i][j][k][v] 141 /*M3_VALSGI */ #define YG1_ua_c(i, j, k) Yua_c->Ygrad[i][j][k][0] 142 /*M3_HERESGI*/ #define YG1Y_ua_c Yua_c->Ygrad[Yi][Yj][Yk][0] 143 Yaoua_c *Yua_c; 141 /*M3_IRMOD */ #define Yua_c(i, j, k) Yua_c[i][j][k] 142 /*M3_NOWMOD */ #define Yua_cY Yua_c[Yi][Yj][Yk] 143 /*M3_VALSG */ #define Ystate_ua_c(v, i, j, k) Yua_c[i][j][k]->Ystate[v] 144 /*M3_VALSG */ #define YS_ua_c(v, i, j, k) Yua_c[i][j][k]->Ystate[v] 145 /*M3_VALSGI */ #define YS1_ua_c(i, j, k) Yua_c[i][j][k]->Ystate[0] 146 /*M3_HERESGI*/ #define YS1Y_ua_c Yua_c[Yi][Yj][Yk]->Ystate[0] 147 /*M3_VALSG */ #define Ygrad_ua_c(v, i, j, k) Yua_c[i][j][k]->Ygrad[v] 148 /*M3_VALSG */ #define YG_ua_c(v, i, j, k) Yua_c[i][j][k]->Ygrad[v] 149 /*M3_VALSGI */ #define YG1_ua_c(i, j, k) Yua_c[i][j][k]->Ygrad[0] 150 /*M3_HERESGI*/ #define YG1Y_ua_c Yua_c[Yi][Yj][Yk]->Ygrad[0] 151 Yaoua_c *Yua_c[YA1_S3d][YA2_S3d][YA3_S3d]; 144 152 145 153 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_c~~~~~~~~~~~~~~~~~~~~~~~~~ … … 148 156 class Yaova_c; 149 157 /*NBSMOD */ #define YNBS_va_c 1 150 /*M3_VALSG */ #define Ystate_va_c(v, i, j, k) Yva_c->Ystate[i][j][k][v] 151 /*M3_VALSG */ #define YS_va_c(v, i, j, k) Yva_c->Ystate[i][j][k][v] 152 /*M3_VALSGI */ #define YS1_va_c(i, j, k) Yva_c->Ystate[i][j][k][0] 153 /*M3_HERESGI*/ #define YS1Y_va_c Yva_c->Ystate[Yi][Yj][Yk][0] 154 /*M3_VALSG */ #define Ygrad_va_c(v, i, j, k) Yva_c->Ygrad[i][j][k][v] 155 /*M3_VALSG */ #define YG_va_c(v, i, j, k) Yva_c->Ygrad[i][j][k][v] 156 /*M3_VALSGI */ #define YG1_va_c(i, j, k) Yva_c->Ygrad[i][j][k][0] 157 /*M3_HERESGI*/ #define YG1Y_va_c Yva_c->Ygrad[Yi][Yj][Yk][0] 158 Yaova_c *Yva_c; 158 /*M3_IRMOD */ #define Yva_c(i, j, k) Yva_c[i][j][k] 159 /*M3_NOWMOD */ #define Yva_cY Yva_c[Yi][Yj][Yk] 160 /*M3_VALSG */ #define Ystate_va_c(v, i, j, k) Yva_c[i][j][k]->Ystate[v] 161 /*M3_VALSG */ #define YS_va_c(v, i, j, k) Yva_c[i][j][k]->Ystate[v] 162 /*M3_VALSGI */ #define YS1_va_c(i, j, k) Yva_c[i][j][k]->Ystate[0] 163 /*M3_HERESGI*/ #define YS1Y_va_c Yva_c[Yi][Yj][Yk]->Ystate[0] 164 /*M3_VALSG */ #define Ygrad_va_c(v, i, j, k) Yva_c[i][j][k]->Ygrad[v] 165 /*M3_VALSG */ #define YG_va_c(v, i, j, k) Yva_c[i][j][k]->Ygrad[v] 166 /*M3_VALSGI */ #define YG1_va_c(i, j, k) Yva_c[i][j][k]->Ygrad[0] 167 /*M3_HERESGI*/ #define YG1Y_va_c Yva_c[Yi][Yj][Yk]->Ygrad[0] 168 Yaova_c *Yva_c[YA1_S3d][YA2_S3d][YA3_S3d]; 159 169 160 170 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_qsr_qns~~~~~~~~~~~~~~~~~~~~~~~~~ … … 166 176 /*NBSMOD */ #define YNBS_sbcgyre_qsr_qns 2 167 177 /*NBIMOD */ #define YNBI_sbcgyre_qsr_qns 1 168 /*M2_VALST */ #define Ystate_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns->Ystate[t][i][j][v] 169 /*M2_VALST */ #define YS_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns->Ystate[t][i][j][v] 170 /*M2_VALSIT */ #define YS1_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns->Ystate[t][i][j][0] 171 /*M2_HERESIT*/ #define YS1Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns->Ystate[YTemps][Yi][Yj][0] 172 /*M2_VALSIT */ #define YS2_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns->Ystate[t][i][j][1] 173 /*M2_HERESIT*/ #define YS2Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns->Ystate[YTemps][Yi][Yj][1] 174 /*M2_VALST */ #define Ygrad_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns->Ygrad[t][i][j][v] 175 /*M2_VALST */ #define YG_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns->Ygrad[t][i][j][v] 176 /*M2_VALSIT */ #define YG1_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns->Ygrad[t][i][j][0] 177 /*M2_HERESIT*/ #define YG1Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns->Ygrad[YTemps][Yi][Yj][0] 178 /*M2_VALSIT */ #define YG2_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns->Ygrad[t][i][j][1] 179 /*M2_HERESIT*/ #define YG2Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns->Ygrad[YTemps][Yi][Yj][1] 180 sbcgyre_qsr_qns *Ysbcgyre_qsr_qns; 178 /*M2_IRMOD */ #define Ysbcgyre_qsr_qns(i, j) Ysbcgyre_qsr_qns[i][j] 179 /*M2_NOWMOD */ #define Ysbcgyre_qsr_qnsY Ysbcgyre_qsr_qns[Yi][Yj] 180 /*M2_VALST */ #define Ystate_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns[i][j]->Ystate[t][v] 181 /*M2_VALST */ #define YS_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns[i][j]->Ystate[t][v] 182 /*M2_VALSIT */ #define YS1_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns[i][j]->Ystate[t][0] 183 /*M2_HERESIT*/ #define YS1Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns[Yi][Yj]->Ystate[YTemps][0] 184 /*M2_VALSIT */ #define YS2_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns[i][j]->Ystate[t][1] 185 /*M2_HERESIT*/ #define YS2Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns[Yi][Yj]->Ystate[YTemps][1] 186 /*M2_VALST */ #define Ygrad_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns[i][j]->Ygrad[t][v] 187 /*M2_VALST */ #define YG_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns[i][j]->Ygrad[t][v] 188 /*M2_VALSIT */ #define YG1_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns[i][j]->Ygrad[t][0] 189 /*M2_HERESIT*/ #define YG1Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns[Yi][Yj]->Ygrad[YTemps][0] 190 /*M2_VALSIT */ #define YG2_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns[i][j]->Ygrad[t][1] 191 /*M2_HERESIT*/ #define YG2Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns[Yi][Yj]->Ygrad[YTemps][1] 192 sbcgyre_qsr_qns *Ysbcgyre_qsr_qns[YA1_S3dt][YA2_S3dt]; 181 193 182 194 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emp1~~~~~~~~~~~~~~~~~~~~~~~~~ … … 187 199 /*NBMOD */ #define YNB_sbcgyre_emp1 704 188 200 /*NBSMOD */ #define YNBS_sbcgyre_emp1 1 189 /*M2_VALST */ #define Ystate_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1->Ystate[t][i][j][v] 190 /*M2_VALST */ #define YS_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1->Ystate[t][i][j][v] 191 /*M2_VALSIT */ #define YS1_sbcgyre_emp1(i, j, t) Ysbcgyre_emp1->Ystate[t][i][j][0] 192 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emp1 Ysbcgyre_emp1->Ystate[YTemps][Yi][Yj][0] 193 /*M2_VALST */ #define Ygrad_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1->Ygrad[t][i][j][v] 194 /*M2_VALST */ #define YG_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1->Ygrad[t][i][j][v] 195 /*M2_VALSIT */ #define YG1_sbcgyre_emp1(i, j, t) Ysbcgyre_emp1->Ygrad[t][i][j][0] 196 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emp1 Ysbcgyre_emp1->Ygrad[YTemps][Yi][Yj][0] 197 sbcgyre_emp1 *Ysbcgyre_emp1; 201 /*M2_IRMOD */ #define Ysbcgyre_emp1(i, j) Ysbcgyre_emp1[i][j] 202 /*M2_NOWMOD */ #define Ysbcgyre_emp1Y Ysbcgyre_emp1[Yi][Yj] 203 /*M2_VALST */ #define Ystate_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1[i][j]->Ystate[t][v] 204 /*M2_VALST */ #define YS_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1[i][j]->Ystate[t][v] 205 /*M2_VALSIT */ #define YS1_sbcgyre_emp1(i, j, t) Ysbcgyre_emp1[i][j]->Ystate[t][0] 206 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emp1 Ysbcgyre_emp1[Yi][Yj]->Ystate[YTemps][0] 207 /*M2_VALST */ #define Ygrad_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1[i][j]->Ygrad[t][v] 208 /*M2_VALST */ #define YG_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1[i][j]->Ygrad[t][v] 209 /*M2_VALSIT */ #define YG1_sbcgyre_emp1(i, j, t) Ysbcgyre_emp1[i][j]->Ygrad[t][0] 210 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emp1 Ysbcgyre_emp1[Yi][Yj]->Ygrad[YTemps][0] 211 sbcgyre_emp1 *Ysbcgyre_emp1[YA1_S3dt][YA2_S3dt]; 198 212 199 213 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_zsumemp_zsurf~~~~~~~~~~~~~~~~~~~~~~~~~ … … 205 219 /*NBSMOD */ #define YNBS_sbcgyre_zsumemp_zsurf 2 206 220 /*NBIMOD */ #define YNBI_sbcgyre_zsumemp_zsurf 5 207 /*M2_VALST */ #define Ystate_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][v] 208 /*M2_VALST */ #define YS_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][v] 209 /*M2_VALSIT */ #define YS1_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][0] 210 /*M2_HERESIT*/ #define YS1Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf->Ystate[YTemps][Yi][Yj][0] 211 /*M2_VALSIT */ #define YS2_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][1] 212 /*M2_HERESIT*/ #define YS2Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf->Ystate[YTemps][Yi][Yj][1] 213 /*M2_VALST */ #define Ygrad_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][v] 214 /*M2_VALST */ #define YG_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][v] 215 /*M2_VALSIT */ #define YG1_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][0] 216 /*M2_HERESIT*/ #define YG1Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf->Ygrad[YTemps][Yi][Yj][0] 217 /*M2_VALSIT */ #define YG2_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][1] 218 /*M2_HERESIT*/ #define YG2Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf->Ygrad[YTemps][Yi][Yj][1] 219 sbcgyre_zsumemp_zsurf *Ysbcgyre_zsumemp_zsurf; 221 /*M2_IRMOD */ #define Ysbcgyre_zsumemp_zsurf(i, j) Ysbcgyre_zsumemp_zsurf[i][j] 222 /*M2_NOWMOD */ #define Ysbcgyre_zsumemp_zsurfY Ysbcgyre_zsumemp_zsurf[Yi][Yj] 223 /*M2_VALST */ #define Ystate_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][v] 224 /*M2_VALST */ #define YS_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][v] 225 /*M2_VALSIT */ #define YS1_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][0] 226 /*M2_HERESIT*/ #define YS1Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ystate[YTemps][0] 227 /*M2_VALSIT */ #define YS2_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][1] 228 /*M2_HERESIT*/ #define YS2Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ystate[YTemps][1] 229 /*M2_VALST */ #define Ygrad_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][v] 230 /*M2_VALST */ #define YG_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][v] 231 /*M2_VALSIT */ #define YG1_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][0] 232 /*M2_HERESIT*/ #define YG1Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ygrad[YTemps][0] 233 /*M2_VALSIT */ #define YG2_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][1] 234 /*M2_HERESIT*/ #define YG2Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ygrad[YTemps][1] 235 sbcgyre_zsumemp_zsurf *Ysbcgyre_zsumemp_zsurf[YA1_S3dt][YA2_S3dt]; 220 236 221 237 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 227 243 /*NBSMOD */ #define YNBS_sbcgyre_emp 1 228 244 /*NBIMOD */ #define YNBI_sbcgyre_emp 3 229 /*M2_VALST */ #define Ystate_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp->Ystate[t][i][j][v] 230 /*M2_VALST */ #define YS_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp->Ystate[t][i][j][v] 231 /*M2_VALSIT */ #define YS1_sbcgyre_emp(i, j, t) Ysbcgyre_emp->Ystate[t][i][j][0] 232 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emp Ysbcgyre_emp->Ystate[YTemps][Yi][Yj][0] 233 /*M2_VALST */ #define Ygrad_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp->Ygrad[t][i][j][v] 234 /*M2_VALST */ #define YG_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp->Ygrad[t][i][j][v] 235 /*M2_VALSIT */ #define YG1_sbcgyre_emp(i, j, t) Ysbcgyre_emp->Ygrad[t][i][j][0] 236 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emp Ysbcgyre_emp->Ygrad[YTemps][Yi][Yj][0] 237 sbcgyre_emp *Ysbcgyre_emp; 245 /*M2_IRMOD */ #define Ysbcgyre_emp(i, j) Ysbcgyre_emp[i][j] 246 /*M2_NOWMOD */ #define Ysbcgyre_empY Ysbcgyre_emp[Yi][Yj] 247 /*M2_VALST */ #define Ystate_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp[i][j]->Ystate[t][v] 248 /*M2_VALST */ #define YS_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp[i][j]->Ystate[t][v] 249 /*M2_VALSIT */ #define YS1_sbcgyre_emp(i, j, t) Ysbcgyre_emp[i][j]->Ystate[t][0] 250 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emp Ysbcgyre_emp[Yi][Yj]->Ystate[YTemps][0] 251 /*M2_VALST */ #define Ygrad_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp[i][j]->Ygrad[t][v] 252 /*M2_VALST */ #define YG_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp[i][j]->Ygrad[t][v] 253 /*M2_VALSIT */ #define YG1_sbcgyre_emp(i, j, t) Ysbcgyre_emp[i][j]->Ygrad[t][0] 254 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emp Ysbcgyre_emp[Yi][Yj]->Ygrad[YTemps][0] 255 sbcgyre_emp *Ysbcgyre_emp[YA1_S3dt][YA2_S3dt]; 238 256 239 257 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emps~~~~~~~~~~~~~~~~~~~~~~~~~ … … 245 263 /*NBSMOD */ #define YNBS_sbcgyre_emps 1 246 264 /*NBIMOD */ #define YNBI_sbcgyre_emps 1 247 /*M2_VALST */ #define Ystate_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps->Ystate[t][i][j][v] 248 /*M2_VALST */ #define YS_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps->Ystate[t][i][j][v] 249 /*M2_VALSIT */ #define YS1_sbcgyre_emps(i, j, t) Ysbcgyre_emps->Ystate[t][i][j][0] 250 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emps Ysbcgyre_emps->Ystate[YTemps][Yi][Yj][0] 251 /*M2_VALST */ #define Ygrad_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps->Ygrad[t][i][j][v] 252 /*M2_VALST */ #define YG_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps->Ygrad[t][i][j][v] 253 /*M2_VALSIT */ #define YG1_sbcgyre_emps(i, j, t) Ysbcgyre_emps->Ygrad[t][i][j][0] 254 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emps Ysbcgyre_emps->Ygrad[YTemps][Yi][Yj][0] 255 sbcgyre_emps *Ysbcgyre_emps; 265 /*M2_IRMOD */ #define Ysbcgyre_emps(i, j) Ysbcgyre_emps[i][j] 266 /*M2_NOWMOD */ #define Ysbcgyre_empsY Ysbcgyre_emps[Yi][Yj] 267 /*M2_VALST */ #define Ystate_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps[i][j]->Ystate[t][v] 268 /*M2_VALST */ #define YS_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps[i][j]->Ystate[t][v] 269 /*M2_VALSIT */ #define YS1_sbcgyre_emps(i, j, t) Ysbcgyre_emps[i][j]->Ystate[t][0] 270 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emps Ysbcgyre_emps[Yi][Yj]->Ystate[YTemps][0] 271 /*M2_VALST */ #define Ygrad_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps[i][j]->Ygrad[t][v] 272 /*M2_VALST */ #define YG_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps[i][j]->Ygrad[t][v] 273 /*M2_VALSIT */ #define YG1_sbcgyre_emps(i, j, t) Ysbcgyre_emps[i][j]->Ygrad[t][0] 274 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emps Ysbcgyre_emps[Yi][Yj]->Ygrad[YTemps][0] 275 sbcgyre_emps *Ysbcgyre_emps[YA1_S3dt][YA2_S3dt]; 256 276 257 277 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_utau_vtau~~~~~~~~~~~~~~~~~~~~~~~~~ … … 262 282 /*NBMOD */ #define YNB_sbcgyre_utau_vtau 704 263 283 /*NBSMOD */ #define YNBS_sbcgyre_utau_vtau 2 264 /*M2_VALST */ #define Ystate_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau->Ystate[t][i][j][v] 265 /*M2_VALST */ #define YS_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau->Ystate[t][i][j][v] 266 /*M2_VALSIT */ #define YS1_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau->Ystate[t][i][j][0] 267 /*M2_HERESIT*/ #define YS1Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau->Ystate[YTemps][Yi][Yj][0] 268 /*M2_VALSIT */ #define YS2_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau->Ystate[t][i][j][1] 269 /*M2_HERESIT*/ #define YS2Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau->Ystate[YTemps][Yi][Yj][1] 270 /*M2_VALST */ #define Ygrad_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau->Ygrad[t][i][j][v] 271 /*M2_VALST */ #define YG_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau->Ygrad[t][i][j][v] 272 /*M2_VALSIT */ #define YG1_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau->Ygrad[t][i][j][0] 273 /*M2_HERESIT*/ #define YG1Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau->Ygrad[YTemps][Yi][Yj][0] 274 /*M2_VALSIT */ #define YG2_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau->Ygrad[t][i][j][1] 275 /*M2_HERESIT*/ #define YG2Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau->Ygrad[YTemps][Yi][Yj][1] 276 sbcgyre_utau_vtau *Ysbcgyre_utau_vtau; 284 /*M2_IRMOD */ #define Ysbcgyre_utau_vtau(i, j) Ysbcgyre_utau_vtau[i][j] 285 /*M2_NOWMOD */ #define Ysbcgyre_utau_vtauY Ysbcgyre_utau_vtau[Yi][Yj] 286 /*M2_VALST */ #define Ystate_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau[i][j]->Ystate[t][v] 287 /*M2_VALST */ #define YS_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau[i][j]->Ystate[t][v] 288 /*M2_VALSIT */ #define YS1_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau[i][j]->Ystate[t][0] 289 /*M2_HERESIT*/ #define YS1Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau[Yi][Yj]->Ystate[YTemps][0] 290 /*M2_VALSIT */ #define YS2_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau[i][j]->Ystate[t][1] 291 /*M2_HERESIT*/ #define YS2Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau[Yi][Yj]->Ystate[YTemps][1] 292 /*M2_VALST */ #define Ygrad_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau[i][j]->Ygrad[t][v] 293 /*M2_VALST */ #define YG_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau[i][j]->Ygrad[t][v] 294 /*M2_VALSIT */ #define YG1_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau[i][j]->Ygrad[t][0] 295 /*M2_HERESIT*/ #define YG1Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau[Yi][Yj]->Ygrad[YTemps][0] 296 /*M2_VALSIT */ #define YG2_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau[i][j]->Ygrad[t][1] 297 /*M2_HERESIT*/ #define YG2Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau[Yi][Yj]->Ygrad[YTemps][1] 298 sbcgyre_utau_vtau *Ysbcgyre_utau_vtau[YA1_S3dt][YA2_S3dt]; 277 299 278 300 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_wndm~~~~~~~~~~~~~~~~~~~~~~~~~ … … 284 306 /*NBSMOD */ #define YNBS_sbcgyre_wndm 1 285 307 /*NBIMOD */ #define YNBI_sbcgyre_wndm 4 286 /*M2_VALST */ #define Ystate_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm->Ystate[t][i][j][v] 287 /*M2_VALST */ #define YS_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm->Ystate[t][i][j][v] 288 /*M2_VALSIT */ #define YS1_sbcgyre_wndm(i, j, t) Ysbcgyre_wndm->Ystate[t][i][j][0] 289 /*M2_HERESIT*/ #define YS1Y_sbcgyre_wndm Ysbcgyre_wndm->Ystate[YTemps][Yi][Yj][0] 290 /*M2_VALST */ #define Ygrad_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm->Ygrad[t][i][j][v] 291 /*M2_VALST */ #define YG_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm->Ygrad[t][i][j][v] 292 /*M2_VALSIT */ #define YG1_sbcgyre_wndm(i, j, t) Ysbcgyre_wndm->Ygrad[t][i][j][0] 293 /*M2_HERESIT*/ #define YG1Y_sbcgyre_wndm Ysbcgyre_wndm->Ygrad[YTemps][Yi][Yj][0] 294 sbcgyre_wndm *Ysbcgyre_wndm; 308 /*M2_IRMOD */ #define Ysbcgyre_wndm(i, j) Ysbcgyre_wndm[i][j] 309 /*M2_NOWMOD */ #define Ysbcgyre_wndmY Ysbcgyre_wndm[Yi][Yj] 310 /*M2_VALST */ #define Ystate_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm[i][j]->Ystate[t][v] 311 /*M2_VALST */ #define YS_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm[i][j]->Ystate[t][v] 312 /*M2_VALSIT */ #define YS1_sbcgyre_wndm(i, j, t) Ysbcgyre_wndm[i][j]->Ystate[t][0] 313 /*M2_HERESIT*/ #define YS1Y_sbcgyre_wndm Ysbcgyre_wndm[Yi][Yj]->Ystate[YTemps][0] 314 /*M2_VALST */ #define Ygrad_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm[i][j]->Ygrad[t][v] 315 /*M2_VALST */ #define YG_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm[i][j]->Ygrad[t][v] 316 /*M2_VALSIT */ #define YG1_sbcgyre_wndm(i, j, t) Ysbcgyre_wndm[i][j]->Ygrad[t][0] 317 /*M2_HERESIT*/ #define YG1Y_sbcgyre_wndm Ysbcgyre_wndm[Yi][Yj]->Ygrad[YTemps][0] 318 sbcgyre_wndm *Ysbcgyre_wndm[YA1_S3dt][YA2_S3dt]; 295 319 296 320 //~~~~~~~~~~~~~~~~~~~~~~~~~ module bn2_rn2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 301 325 /*NBSMOD */ #define YNBS_bn2_rn2 1 302 326 /*NBIMOD */ #define YNBI_bn2_rn2 4 303 /*M3_VALST */ #define Ystate_bn2_rn2(v, i, j, k, t) Ybn2_rn2->Ystate[t][i][j][k][v] 304 /*M3_VALST */ #define YS_bn2_rn2(v, i, j, k, t) Ybn2_rn2->Ystate[t][i][j][k][v] 305 /*M3_VALSIT */ #define YS1_bn2_rn2(i, j, k, t) Ybn2_rn2->Ystate[t][i][j][k][0] 306 /*M3_HERESIT*/ #define YS1Y_bn2_rn2 Ybn2_rn2->Ystate[YTemps][Yi][Yj][Yk][0] 307 /*M3_VALST */ #define Ygrad_bn2_rn2(v, i, j, k, t) Ybn2_rn2->Ygrad[t][i][j][k][v] 308 /*M3_VALST */ #define YG_bn2_rn2(v, i, j, k, t) Ybn2_rn2->Ygrad[t][i][j][k][v] 309 /*M3_VALSIT */ #define YG1_bn2_rn2(i, j, k, t) Ybn2_rn2->Ygrad[t][i][j][k][0] 310 /*M3_HERESIT*/ #define YG1Y_bn2_rn2 Ybn2_rn2->Ygrad[YTemps][Yi][Yj][Yk][0] 311 bn2_rn2 *Ybn2_rn2; 327 /*M3_IRMOD */ #define Ybn2_rn2(i, j, k) Ybn2_rn2[i][j][k] 328 /*M3_NOWMOD */ #define Ybn2_rn2Y Ybn2_rn2[Yi][Yj][Yk] 329 /*M3_VALST */ #define Ystate_bn2_rn2(v, i, j, k, t) Ybn2_rn2[i][j][k]->Ystate[t][v] 330 /*M3_VALST */ #define YS_bn2_rn2(v, i, j, k, t) Ybn2_rn2[i][j][k]->Ystate[t][v] 331 /*M3_VALSIT */ #define YS1_bn2_rn2(i, j, k, t) Ybn2_rn2[i][j][k]->Ystate[t][0] 332 /*M3_HERESIT*/ #define YS1Y_bn2_rn2 Ybn2_rn2[Yi][Yj][Yk]->Ystate[YTemps][0] 333 /*M3_VALST */ #define Ygrad_bn2_rn2(v, i, j, k, t) Ybn2_rn2[i][j][k]->Ygrad[t][v] 334 /*M3_VALST */ #define YG_bn2_rn2(v, i, j, k, t) Ybn2_rn2[i][j][k]->Ygrad[t][v] 335 /*M3_VALSIT */ #define YG1_bn2_rn2(i, j, k, t) Ybn2_rn2[i][j][k]->Ygrad[t][0] 336 /*M3_HERESIT*/ #define YG1Y_bn2_rn2 Ybn2_rn2[Yi][Yj][Yk]->Ygrad[YTemps][0] 337 bn2_rn2 *Ybn2_rn2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 312 338 313 339 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zdf_avt_avmu_avmv~~~~~~~~~~~~~~~~~~~~~~~~~ … … 318 344 /*NBSMOD */ #define YNBS_zdf_avt_avmu_avmv 3 319 345 /*NBIMOD */ #define YNBI_zdf_avt_avmu_avmv 19 320 /*M3_VALST */ #define Ystate_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][v] 321 /*M3_VALST */ #define YS_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][v] 322 /*M3_VALSIT */ #define YS1_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][0] 323 /*M3_HERESIT*/ #define YS1Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ystate[YTemps][Yi][Yj][Yk][0] 324 /*M3_VALSIT */ #define YS2_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][1] 325 /*M3_HERESIT*/ #define YS2Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ystate[YTemps][Yi][Yj][Yk][1] 326 /*M3_VALSIT */ #define YS3_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][2] 327 /*M3_HERESIT*/ #define YS3Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ystate[YTemps][Yi][Yj][Yk][2] 328 /*M3_VALST */ #define Ygrad_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][v] 329 /*M3_VALST */ #define YG_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][v] 330 /*M3_VALSIT */ #define YG1_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][0] 331 /*M3_HERESIT*/ #define YG1Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ygrad[YTemps][Yi][Yj][Yk][0] 332 /*M3_VALSIT */ #define YG2_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][1] 333 /*M3_HERESIT*/ #define YG2Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ygrad[YTemps][Yi][Yj][Yk][1] 334 /*M3_VALSIT */ #define YG3_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][2] 335 /*M3_HERESIT*/ #define YG3Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ygrad[YTemps][Yi][Yj][Yk][2] 336 zdf_avt_avmu_avmv *Yzdf_avt_avmu_avmv; 346 /*M3_IRMOD */ #define Yzdf_avt_avmu_avmv(i, j, k) Yzdf_avt_avmu_avmv[i][j][k] 347 /*M3_NOWMOD */ #define Yzdf_avt_avmu_avmvY Yzdf_avt_avmu_avmv[Yi][Yj][Yk] 348 /*M3_VALST */ #define Ystate_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][v] 349 /*M3_VALST */ #define YS_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][v] 350 /*M3_VALSIT */ #define YS1_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][0] 351 /*M3_HERESIT*/ #define YS1Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ystate[YTemps][0] 352 /*M3_VALSIT */ #define YS2_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][1] 353 /*M3_HERESIT*/ #define YS2Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ystate[YTemps][1] 354 /*M3_VALSIT */ #define YS3_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][2] 355 /*M3_HERESIT*/ #define YS3Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ystate[YTemps][2] 356 /*M3_VALST */ #define Ygrad_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][v] 357 /*M3_VALST */ #define YG_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][v] 358 /*M3_VALSIT */ #define YG1_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][0] 359 /*M3_HERESIT*/ #define YG1Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ygrad[YTemps][0] 360 /*M3_VALSIT */ #define YG2_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][1] 361 /*M3_HERESIT*/ #define YG2Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ygrad[YTemps][1] 362 /*M3_VALSIT */ #define YG3_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][2] 363 /*M3_HERESIT*/ #define YG3Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ygrad[YTemps][2] 364 zdf_avt_avmu_avmv *Yzdf_avt_avmu_avmv[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 337 365 338 366 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zdfmxl_hmld~~~~~~~~~~~~~~~~~~~~~~~~~ … … 344 372 /*NBSMOD */ #define YNBS_zdfmxl_hmld 1 345 373 /*NBIMOD */ #define YNBI_zdfmxl_hmld 31 346 /*M2_VALST */ #define Ystate_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld->Ystate[t][i][j][v] 347 /*M2_VALST */ #define YS_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld->Ystate[t][i][j][v] 348 /*M2_VALSIT */ #define YS1_zdfmxl_hmld(i, j, t) Yzdfmxl_hmld->Ystate[t][i][j][0] 349 /*M2_HERESIT*/ #define YS1Y_zdfmxl_hmld Yzdfmxl_hmld->Ystate[YTemps][Yi][Yj][0] 350 /*M2_VALST */ #define Ygrad_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld->Ygrad[t][i][j][v] 351 /*M2_VALST */ #define YG_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld->Ygrad[t][i][j][v] 352 /*M2_VALSIT */ #define YG1_zdfmxl_hmld(i, j, t) Yzdfmxl_hmld->Ygrad[t][i][j][0] 353 /*M2_HERESIT*/ #define YG1Y_zdfmxl_hmld Yzdfmxl_hmld->Ygrad[YTemps][Yi][Yj][0] 354 zdfmxl_hmld *Yzdfmxl_hmld; 374 /*M2_IRMOD */ #define Yzdfmxl_hmld(i, j) Yzdfmxl_hmld[i][j] 375 /*M2_NOWMOD */ #define Yzdfmxl_hmldY Yzdfmxl_hmld[Yi][Yj] 376 /*M2_VALST */ #define Ystate_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld[i][j]->Ystate[t][v] 377 /*M2_VALST */ #define YS_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld[i][j]->Ystate[t][v] 378 /*M2_VALSIT */ #define YS1_zdfmxl_hmld(i, j, t) Yzdfmxl_hmld[i][j]->Ystate[t][0] 379 /*M2_HERESIT*/ #define YS1Y_zdfmxl_hmld Yzdfmxl_hmld[Yi][Yj]->Ystate[YTemps][0] 380 /*M2_VALST */ #define Ygrad_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld[i][j]->Ygrad[t][v] 381 /*M2_VALST */ #define YG_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld[i][j]->Ygrad[t][v] 382 /*M2_VALSIT */ #define YG1_zdfmxl_hmld(i, j, t) Yzdfmxl_hmld[i][j]->Ygrad[t][0] 383 /*M2_HERESIT*/ #define YG1Y_zdfmxl_hmld Yzdfmxl_hmld[Yi][Yj]->Ygrad[YTemps][0] 384 zdfmxl_hmld *Yzdfmxl_hmld[YA1_S3dt][YA2_S3dt]; 355 385 356 386 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zdfmxl_nmln_hmlp_hmlpt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 362 392 /*NBSMOD */ #define YNBS_zdfmxl_nmln_hmlp_hmlpt 3 363 393 /*NBIMOD */ #define YNBI_zdfmxl_nmln_hmlp_hmlpt 31 364 /*M2_VALST */ #define Ystate_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][v] 365 /*M2_VALST */ #define YS_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][v] 366 /*M2_VALSIT */ #define YS1_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][0] 367 /*M2_HERESIT*/ #define YS1Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ystate[YTemps][Yi][Yj][0] 368 /*M2_VALSIT */ #define YS2_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][1] 369 /*M2_HERESIT*/ #define YS2Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ystate[YTemps][Yi][Yj][1] 370 /*M2_VALSIT */ #define YS3_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][2] 371 /*M2_HERESIT*/ #define YS3Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ystate[YTemps][Yi][Yj][2] 372 /*M2_VALST */ #define Ygrad_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][v] 373 /*M2_VALST */ #define YG_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][v] 374 /*M2_VALSIT */ #define YG1_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][0] 375 /*M2_HERESIT*/ #define YG1Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[YTemps][Yi][Yj][0] 376 /*M2_VALSIT */ #define YG2_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][1] 377 /*M2_HERESIT*/ #define YG2Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[YTemps][Yi][Yj][1] 378 /*M2_VALSIT */ #define YG3_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][2] 379 /*M2_HERESIT*/ #define YG3Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[YTemps][Yi][Yj][2] 380 zdfmxl_nmln_hmlp_hmlpt *Yzdfmxl_nmln_hmlp_hmlpt; 394 /*M2_IRMOD */ #define Yzdfmxl_nmln_hmlp_hmlpt(i, j) Yzdfmxl_nmln_hmlp_hmlpt[i][j] 395 /*M2_NOWMOD */ #define Yzdfmxl_nmln_hmlp_hmlptY Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj] 396 /*M2_VALST */ #define Ystate_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][v] 397 /*M2_VALST */ #define YS_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][v] 398 /*M2_VALSIT */ #define YS1_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][0] 399 /*M2_HERESIT*/ #define YS1Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ystate[YTemps][0] 400 /*M2_VALSIT */ #define YS2_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][1] 401 /*M2_HERESIT*/ #define YS2Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ystate[YTemps][1] 402 /*M2_VALSIT */ #define YS3_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][2] 403 /*M2_HERESIT*/ #define YS3Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ystate[YTemps][2] 404 /*M2_VALST */ #define Ygrad_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][v] 405 /*M2_VALST */ #define YG_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][v] 406 /*M2_VALSIT */ #define YG1_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][0] 407 /*M2_HERESIT*/ #define YG1Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ygrad[YTemps][0] 408 /*M2_VALSIT */ #define YG2_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][1] 409 /*M2_HERESIT*/ #define YG2Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ygrad[YTemps][1] 410 /*M2_VALSIT */ #define YG3_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][2] 411 /*M2_HERESIT*/ #define YG3Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ygrad[YTemps][2] 412 zdfmxl_nmln_hmlp_hmlpt *Yzdfmxl_nmln_hmlp_hmlpt[YA1_S3dt][YA2_S3dt]; 381 413 382 414 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_sa_trasbc~~~~~~~~~~~~~~~~~~~~~~~~~ … … 388 420 /*NBSMOD */ #define YNBS_ta_sa_trasbc 2 389 421 /*NBIMOD */ #define YNBI_ta_sa_trasbc 3 390 /*M2_VALST */ #define Ystate_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc->Ystate[t][i][j][v] 391 /*M2_VALST */ #define YS_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc->Ystate[t][i][j][v] 392 /*M2_VALSIT */ #define YS1_ta_sa_trasbc(i, j, t) Yta_sa_trasbc->Ystate[t][i][j][0] 393 /*M2_HERESIT*/ #define YS1Y_ta_sa_trasbc Yta_sa_trasbc->Ystate[YTemps][Yi][Yj][0] 394 /*M2_VALSIT */ #define YS2_ta_sa_trasbc(i, j, t) Yta_sa_trasbc->Ystate[t][i][j][1] 395 /*M2_HERESIT*/ #define YS2Y_ta_sa_trasbc Yta_sa_trasbc->Ystate[YTemps][Yi][Yj][1] 396 /*M2_VALST */ #define Ygrad_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc->Ygrad[t][i][j][v] 397 /*M2_VALST */ #define YG_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc->Ygrad[t][i][j][v] 398 /*M2_VALSIT */ #define YG1_ta_sa_trasbc(i, j, t) Yta_sa_trasbc->Ygrad[t][i][j][0] 399 /*M2_HERESIT*/ #define YG1Y_ta_sa_trasbc Yta_sa_trasbc->Ygrad[YTemps][Yi][Yj][0] 400 /*M2_VALSIT */ #define YG2_ta_sa_trasbc(i, j, t) Yta_sa_trasbc->Ygrad[t][i][j][1] 401 /*M2_HERESIT*/ #define YG2Y_ta_sa_trasbc Yta_sa_trasbc->Ygrad[YTemps][Yi][Yj][1] 402 ta_sa_trasbc *Yta_sa_trasbc; 422 /*M2_IRMOD */ #define Yta_sa_trasbc(i, j) Yta_sa_trasbc[i][j] 423 /*M2_NOWMOD */ #define Yta_sa_trasbcY Yta_sa_trasbc[Yi][Yj] 424 /*M2_VALST */ #define Ystate_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc[i][j]->Ystate[t][v] 425 /*M2_VALST */ #define YS_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc[i][j]->Ystate[t][v] 426 /*M2_VALSIT */ #define YS1_ta_sa_trasbc(i, j, t) Yta_sa_trasbc[i][j]->Ystate[t][0] 427 /*M2_HERESIT*/ #define YS1Y_ta_sa_trasbc Yta_sa_trasbc[Yi][Yj]->Ystate[YTemps][0] 428 /*M2_VALSIT */ #define YS2_ta_sa_trasbc(i, j, t) Yta_sa_trasbc[i][j]->Ystate[t][1] 429 /*M2_HERESIT*/ #define YS2Y_ta_sa_trasbc Yta_sa_trasbc[Yi][Yj]->Ystate[YTemps][1] 430 /*M2_VALST */ #define Ygrad_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc[i][j]->Ygrad[t][v] 431 /*M2_VALST */ #define YG_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc[i][j]->Ygrad[t][v] 432 /*M2_VALSIT */ #define YG1_ta_sa_trasbc(i, j, t) Yta_sa_trasbc[i][j]->Ygrad[t][0] 433 /*M2_HERESIT*/ #define YG1Y_ta_sa_trasbc Yta_sa_trasbc[Yi][Yj]->Ygrad[YTemps][0] 434 /*M2_VALSIT */ #define YG2_ta_sa_trasbc(i, j, t) Yta_sa_trasbc[i][j]->Ygrad[t][1] 435 /*M2_HERESIT*/ #define YG2Y_ta_sa_trasbc Yta_sa_trasbc[Yi][Yj]->Ygrad[YTemps][1] 436 ta_sa_trasbc *Yta_sa_trasbc[YA1_S3dt][YA2_S3dt]; 403 437 404 438 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_traqsr~~~~~~~~~~~~~~~~~~~~~~~~~ … … 409 443 /*NBSMOD */ #define YNBS_ta_traqsr 1 410 444 /*NBIMOD */ #define YNBI_ta_traqsr 2 411 /*M3_VALST */ #define Ystate_ta_traqsr(v, i, j, k, t) Yta_traqsr->Ystate[t][i][j][k][v] 412 /*M3_VALST */ #define YS_ta_traqsr(v, i, j, k, t) Yta_traqsr->Ystate[t][i][j][k][v] 413 /*M3_VALSIT */ #define YS1_ta_traqsr(i, j, k, t) Yta_traqsr->Ystate[t][i][j][k][0] 414 /*M3_HERESIT*/ #define YS1Y_ta_traqsr Yta_traqsr->Ystate[YTemps][Yi][Yj][Yk][0] 415 /*M3_VALST */ #define Ygrad_ta_traqsr(v, i, j, k, t) Yta_traqsr->Ygrad[t][i][j][k][v] 416 /*M3_VALST */ #define YG_ta_traqsr(v, i, j, k, t) Yta_traqsr->Ygrad[t][i][j][k][v] 417 /*M3_VALSIT */ #define YG1_ta_traqsr(i, j, k, t) Yta_traqsr->Ygrad[t][i][j][k][0] 418 /*M3_HERESIT*/ #define YG1Y_ta_traqsr Yta_traqsr->Ygrad[YTemps][Yi][Yj][Yk][0] 419 ta_traqsr *Yta_traqsr; 445 /*M3_IRMOD */ #define Yta_traqsr(i, j, k) Yta_traqsr[i][j][k] 446 /*M3_NOWMOD */ #define Yta_traqsrY Yta_traqsr[Yi][Yj][Yk] 447 /*M3_VALST */ #define Ystate_ta_traqsr(v, i, j, k, t) Yta_traqsr[i][j][k]->Ystate[t][v] 448 /*M3_VALST */ #define YS_ta_traqsr(v, i, j, k, t) Yta_traqsr[i][j][k]->Ystate[t][v] 449 /*M3_VALSIT */ #define YS1_ta_traqsr(i, j, k, t) Yta_traqsr[i][j][k]->Ystate[t][0] 450 /*M3_HERESIT*/ #define YS1Y_ta_traqsr Yta_traqsr[Yi][Yj][Yk]->Ystate[YTemps][0] 451 /*M3_VALST */ #define Ygrad_ta_traqsr(v, i, j, k, t) Yta_traqsr[i][j][k]->Ygrad[t][v] 452 /*M3_VALST */ #define YG_ta_traqsr(v, i, j, k, t) Yta_traqsr[i][j][k]->Ygrad[t][v] 453 /*M3_VALSIT */ #define YG1_ta_traqsr(i, j, k, t) Yta_traqsr[i][j][k]->Ygrad[t][0] 454 /*M3_HERESIT*/ #define YG1Y_ta_traqsr Yta_traqsr[Yi][Yj][Yk]->Ygrad[YTemps][0] 455 ta_traqsr *Yta_traqsr[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 420 456 421 457 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zcent_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 426 462 /*NBSMOD */ #define YNBS_zcent_hor_traadv_cen2 2 427 463 /*NBIMOD */ #define YNBI_zcent_hor_traadv_cen2 5 428 /*M3_VALST */ #define Ystate_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][v] 429 /*M3_VALST */ #define YS_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][v] 430 /*M3_VALSIT */ #define YS1_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][0] 431 /*M3_HERESIT*/ #define YS1Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 432 /*M3_VALSIT */ #define YS2_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][1] 433 /*M3_HERESIT*/ #define YS2Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1] 434 /*M3_VALST */ #define Ygrad_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][v] 435 /*M3_VALST */ #define YG_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][v] 436 /*M3_VALSIT */ #define YG1_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][0] 437 /*M3_HERESIT*/ #define YG1Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 438 /*M3_VALSIT */ #define YG2_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][1] 439 /*M3_HERESIT*/ #define YG2Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1] 440 zcent_hor_traadv_cen2 *Yzcent_hor_traadv_cen2; 464 /*M3_IRMOD */ #define Yzcent_hor_traadv_cen2(i, j, k) Yzcent_hor_traadv_cen2[i][j][k] 465 /*M3_NOWMOD */ #define Yzcent_hor_traadv_cen2Y Yzcent_hor_traadv_cen2[Yi][Yj][Yk] 466 /*M3_VALST */ #define Ystate_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][v] 467 /*M3_VALST */ #define YS_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][v] 468 /*M3_VALSIT */ #define YS1_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][0] 469 /*M3_HERESIT*/ #define YS1Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 470 /*M3_VALSIT */ #define YS2_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][1] 471 /*M3_HERESIT*/ #define YS2Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1] 472 /*M3_VALST */ #define Ygrad_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 473 /*M3_VALST */ #define YG_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 474 /*M3_VALSIT */ #define YG1_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][0] 475 /*M3_HERESIT*/ #define YG1Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 476 /*M3_VALSIT */ #define YG2_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][1] 477 /*M3_HERESIT*/ #define YG2Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1] 478 zcent_hor_traadv_cen2 *Yzcent_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 441 479 442 480 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zcens_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 445 483 /*NBSMOD */ #define YNBS_zcens_hor_traadv_cen2 2 446 484 /*NBIMOD */ #define YNBI_zcens_hor_traadv_cen2 5 447 /*M3_VALST */ #define Ystate_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][v] 448 /*M3_VALST */ #define YS_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][v] 449 /*M3_VALSIT */ #define YS1_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][0] 450 /*M3_HERESIT*/ #define YS1Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 451 /*M3_VALSIT */ #define YS2_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][1] 452 /*M3_HERESIT*/ #define YS2Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1] 453 /*M3_VALST */ #define Ygrad_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][v] 454 /*M3_VALST */ #define YG_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][v] 455 /*M3_VALSIT */ #define YG1_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][0] 456 /*M3_HERESIT*/ #define YG1Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 457 /*M3_VALSIT */ #define YG2_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][1] 458 /*M3_HERESIT*/ #define YG2Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1] 459 zcens_hor_traadv_cen2 *Yzcens_hor_traadv_cen2; 485 /*M3_IRMOD */ #define Yzcens_hor_traadv_cen2(i, j, k) Yzcens_hor_traadv_cen2[i][j][k] 486 /*M3_NOWMOD */ #define Yzcens_hor_traadv_cen2Y Yzcens_hor_traadv_cen2[Yi][Yj][Yk] 487 /*M3_VALST */ #define Ystate_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][v] 488 /*M3_VALST */ #define YS_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][v] 489 /*M3_VALSIT */ #define YS1_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][0] 490 /*M3_HERESIT*/ #define YS1Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 491 /*M3_VALSIT */ #define YS2_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][1] 492 /*M3_HERESIT*/ #define YS2Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1] 493 /*M3_VALST */ #define Ygrad_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 494 /*M3_VALST */ #define YG_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 495 /*M3_VALSIT */ #define YG1_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][0] 496 /*M3_HERESIT*/ #define YG1Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 497 /*M3_VALSIT */ #define YG2_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][1] 498 /*M3_HERESIT*/ #define YG2Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1] 499 zcens_hor_traadv_cen2 *Yzcens_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 460 500 461 501 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 466 506 /*NBSMOD */ #define YNBS_ta_hor_traadv_cen2 1 467 507 /*NBIMOD */ #define YNBI_ta_hor_traadv_cen2 5 468 /*M3_VALST */ #define Ystate_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2->Ystate[t][i][j][k][v] 469 /*M3_VALST */ #define YS_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2->Ystate[t][i][j][k][v] 470 /*M3_VALSIT */ #define YS1_ta_hor_traadv_cen2(i, j, k, t) Yta_hor_traadv_cen2->Ystate[t][i][j][k][0] 471 /*M3_HERESIT*/ #define YS1Y_ta_hor_traadv_cen2 Yta_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 472 /*M3_VALST */ #define Ygrad_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2->Ygrad[t][i][j][k][v] 473 /*M3_VALST */ #define YG_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2->Ygrad[t][i][j][k][v] 474 /*M3_VALSIT */ #define YG1_ta_hor_traadv_cen2(i, j, k, t) Yta_hor_traadv_cen2->Ygrad[t][i][j][k][0] 475 /*M3_HERESIT*/ #define YG1Y_ta_hor_traadv_cen2 Yta_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 476 ta_hor_traadv_cen2 *Yta_hor_traadv_cen2; 508 /*M3_IRMOD */ #define Yta_hor_traadv_cen2(i, j, k) Yta_hor_traadv_cen2[i][j][k] 509 /*M3_NOWMOD */ #define Yta_hor_traadv_cen2Y Yta_hor_traadv_cen2[Yi][Yj][Yk] 510 /*M3_VALST */ #define Ystate_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2[i][j][k]->Ystate[t][v] 511 /*M3_VALST */ #define YS_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2[i][j][k]->Ystate[t][v] 512 /*M3_VALSIT */ #define YS1_ta_hor_traadv_cen2(i, j, k, t) Yta_hor_traadv_cen2[i][j][k]->Ystate[t][0] 513 /*M3_HERESIT*/ #define YS1Y_ta_hor_traadv_cen2 Yta_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 514 /*M3_VALST */ #define Ygrad_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 515 /*M3_VALST */ #define YG_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 516 /*M3_VALSIT */ #define YG1_ta_hor_traadv_cen2(i, j, k, t) Yta_hor_traadv_cen2[i][j][k]->Ygrad[t][0] 517 /*M3_HERESIT*/ #define YG1Y_ta_hor_traadv_cen2 Yta_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 518 ta_hor_traadv_cen2 *Yta_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 477 519 478 520 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 483 525 /*NBSMOD */ #define YNBS_sa_hor_traadv_cen2 1 484 526 /*NBIMOD */ #define YNBI_sa_hor_traadv_cen2 5 485 /*M3_VALST */ #define Ystate_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2->Ystate[t][i][j][k][v] 486 /*M3_VALST */ #define YS_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2->Ystate[t][i][j][k][v] 487 /*M3_VALSIT */ #define YS1_sa_hor_traadv_cen2(i, j, k, t) Ysa_hor_traadv_cen2->Ystate[t][i][j][k][0] 488 /*M3_HERESIT*/ #define YS1Y_sa_hor_traadv_cen2 Ysa_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 489 /*M3_VALST */ #define Ygrad_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2->Ygrad[t][i][j][k][v] 490 /*M3_VALST */ #define YG_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2->Ygrad[t][i][j][k][v] 491 /*M3_VALSIT */ #define YG1_sa_hor_traadv_cen2(i, j, k, t) Ysa_hor_traadv_cen2->Ygrad[t][i][j][k][0] 492 /*M3_HERESIT*/ #define YG1Y_sa_hor_traadv_cen2 Ysa_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 493 sa_hor_traadv_cen2 *Ysa_hor_traadv_cen2; 527 /*M3_IRMOD */ #define Ysa_hor_traadv_cen2(i, j, k) Ysa_hor_traadv_cen2[i][j][k] 528 /*M3_NOWMOD */ #define Ysa_hor_traadv_cen2Y Ysa_hor_traadv_cen2[Yi][Yj][Yk] 529 /*M3_VALST */ #define Ystate_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2[i][j][k]->Ystate[t][v] 530 /*M3_VALST */ #define YS_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2[i][j][k]->Ystate[t][v] 531 /*M3_VALSIT */ #define YS1_sa_hor_traadv_cen2(i, j, k, t) Ysa_hor_traadv_cen2[i][j][k]->Ystate[t][0] 532 /*M3_HERESIT*/ #define YS1Y_sa_hor_traadv_cen2 Ysa_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 533 /*M3_VALST */ #define Ygrad_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 534 /*M3_VALST */ #define YG_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 535 /*M3_VALSIT */ #define YG1_sa_hor_traadv_cen2(i, j, k, t) Ysa_hor_traadv_cen2[i][j][k]->Ygrad[t][0] 536 /*M3_HERESIT*/ #define YG1Y_sa_hor_traadv_cen2 Ysa_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 537 sa_hor_traadv_cen2 *Ysa_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 494 538 495 539 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zcent_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 500 544 /*NBSMOD */ #define YNBS_zcent_ver_traadv_cen2 1 501 545 /*NBIMOD */ #define YNBI_zcent_ver_traadv_cen2 3 502 /*M3_VALST */ #define Ystate_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2->Ystate[t][i][j][k][v] 503 /*M3_VALST */ #define YS_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2->Ystate[t][i][j][k][v] 504 /*M3_VALSIT */ #define YS1_zcent_ver_traadv_cen2(i, j, k, t) Yzcent_ver_traadv_cen2->Ystate[t][i][j][k][0] 505 /*M3_HERESIT*/ #define YS1Y_zcent_ver_traadv_cen2 Yzcent_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 506 /*M3_VALST */ #define Ygrad_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2->Ygrad[t][i][j][k][v] 507 /*M3_VALST */ #define YG_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2->Ygrad[t][i][j][k][v] 508 /*M3_VALSIT */ #define YG1_zcent_ver_traadv_cen2(i, j, k, t) Yzcent_ver_traadv_cen2->Ygrad[t][i][j][k][0] 509 /*M3_HERESIT*/ #define YG1Y_zcent_ver_traadv_cen2 Yzcent_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 510 zcent_ver_traadv_cen2 *Yzcent_ver_traadv_cen2; 546 /*M3_IRMOD */ #define Yzcent_ver_traadv_cen2(i, j, k) Yzcent_ver_traadv_cen2[i][j][k] 547 /*M3_NOWMOD */ #define Yzcent_ver_traadv_cen2Y Yzcent_ver_traadv_cen2[Yi][Yj][Yk] 548 /*M3_VALST */ #define Ystate_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2[i][j][k]->Ystate[t][v] 549 /*M3_VALST */ #define YS_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2[i][j][k]->Ystate[t][v] 550 /*M3_VALSIT */ #define YS1_zcent_ver_traadv_cen2(i, j, k, t) Yzcent_ver_traadv_cen2[i][j][k]->Ystate[t][0] 551 /*M3_HERESIT*/ #define YS1Y_zcent_ver_traadv_cen2 Yzcent_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 552 /*M3_VALST */ #define Ygrad_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 553 /*M3_VALST */ #define YG_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 554 /*M3_VALSIT */ #define YG1_zcent_ver_traadv_cen2(i, j, k, t) Yzcent_ver_traadv_cen2[i][j][k]->Ygrad[t][0] 555 /*M3_HERESIT*/ #define YG1Y_zcent_ver_traadv_cen2 Yzcent_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 556 zcent_ver_traadv_cen2 *Yzcent_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 511 557 512 558 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zcens_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 515 561 /*NBSMOD */ #define YNBS_zcens_ver_traadv_cen2 1 516 562 /*NBIMOD */ #define YNBI_zcens_ver_traadv_cen2 3 517 /*M3_VALST */ #define Ystate_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2->Ystate[t][i][j][k][v] 518 /*M3_VALST */ #define YS_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2->Ystate[t][i][j][k][v] 519 /*M3_VALSIT */ #define YS1_zcens_ver_traadv_cen2(i, j, k, t) Yzcens_ver_traadv_cen2->Ystate[t][i][j][k][0] 520 /*M3_HERESIT*/ #define YS1Y_zcens_ver_traadv_cen2 Yzcens_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 521 /*M3_VALST */ #define Ygrad_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2->Ygrad[t][i][j][k][v] 522 /*M3_VALST */ #define YG_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2->Ygrad[t][i][j][k][v] 523 /*M3_VALSIT */ #define YG1_zcens_ver_traadv_cen2(i, j, k, t) Yzcens_ver_traadv_cen2->Ygrad[t][i][j][k][0] 524 /*M3_HERESIT*/ #define YG1Y_zcens_ver_traadv_cen2 Yzcens_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 525 zcens_ver_traadv_cen2 *Yzcens_ver_traadv_cen2; 563 /*M3_IRMOD */ #define Yzcens_ver_traadv_cen2(i, j, k) Yzcens_ver_traadv_cen2[i][j][k] 564 /*M3_NOWMOD */ #define Yzcens_ver_traadv_cen2Y Yzcens_ver_traadv_cen2[Yi][Yj][Yk] 565 /*M3_VALST */ #define Ystate_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2[i][j][k]->Ystate[t][v] 566 /*M3_VALST */ #define YS_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2[i][j][k]->Ystate[t][v] 567 /*M3_VALSIT */ #define YS1_zcens_ver_traadv_cen2(i, j, k, t) Yzcens_ver_traadv_cen2[i][j][k]->Ystate[t][0] 568 /*M3_HERESIT*/ #define YS1Y_zcens_ver_traadv_cen2 Yzcens_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 569 /*M3_VALST */ #define Ygrad_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 570 /*M3_VALST */ #define YG_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 571 /*M3_VALSIT */ #define YG1_zcens_ver_traadv_cen2(i, j, k, t) Yzcens_ver_traadv_cen2[i][j][k]->Ygrad[t][0] 572 /*M3_HERESIT*/ #define YG1Y_zcens_ver_traadv_cen2 Yzcens_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 573 zcens_ver_traadv_cen2 *Yzcens_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 526 574 527 575 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 532 580 /*NBSMOD */ #define YNBS_ta_ver_traadv_cen2 1 533 581 /*NBIMOD */ #define YNBI_ta_ver_traadv_cen2 3 534 /*M3_VALST */ #define Ystate_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2->Ystate[t][i][j][k][v] 535 /*M3_VALST */ #define YS_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2->Ystate[t][i][j][k][v] 536 /*M3_VALSIT */ #define YS1_ta_ver_traadv_cen2(i, j, k, t) Yta_ver_traadv_cen2->Ystate[t][i][j][k][0] 537 /*M3_HERESIT*/ #define YS1Y_ta_ver_traadv_cen2 Yta_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 538 /*M3_VALST */ #define Ygrad_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2->Ygrad[t][i][j][k][v] 539 /*M3_VALST */ #define YG_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2->Ygrad[t][i][j][k][v] 540 /*M3_VALSIT */ #define YG1_ta_ver_traadv_cen2(i, j, k, t) Yta_ver_traadv_cen2->Ygrad[t][i][j][k][0] 541 /*M3_HERESIT*/ #define YG1Y_ta_ver_traadv_cen2 Yta_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 542 ta_ver_traadv_cen2 *Yta_ver_traadv_cen2; 582 /*M3_IRMOD */ #define Yta_ver_traadv_cen2(i, j, k) Yta_ver_traadv_cen2[i][j][k] 583 /*M3_NOWMOD */ #define Yta_ver_traadv_cen2Y Yta_ver_traadv_cen2[Yi][Yj][Yk] 584 /*M3_VALST */ #define Ystate_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2[i][j][k]->Ystate[t][v] 585 /*M3_VALST */ #define YS_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2[i][j][k]->Ystate[t][v] 586 /*M3_VALSIT */ #define YS1_ta_ver_traadv_cen2(i, j, k, t) Yta_ver_traadv_cen2[i][j][k]->Ystate[t][0] 587 /*M3_HERESIT*/ #define YS1Y_ta_ver_traadv_cen2 Yta_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 588 /*M3_VALST */ #define Ygrad_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 589 /*M3_VALST */ #define YG_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 590 /*M3_VALSIT */ #define YG1_ta_ver_traadv_cen2(i, j, k, t) Yta_ver_traadv_cen2[i][j][k]->Ygrad[t][0] 591 /*M3_HERESIT*/ #define YG1Y_ta_ver_traadv_cen2 Yta_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 592 ta_ver_traadv_cen2 *Yta_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 543 593 544 594 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 547 597 /*NBSMOD */ #define YNBS_sa_ver_traadv_cen2 1 548 598 /*NBIMOD */ #define YNBI_sa_ver_traadv_cen2 3 549 /*M3_VALST */ #define Ystate_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2->Ystate[t][i][j][k][v] 550 /*M3_VALST */ #define YS_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2->Ystate[t][i][j][k][v] 551 /*M3_VALSIT */ #define YS1_sa_ver_traadv_cen2(i, j, k, t) Ysa_ver_traadv_cen2->Ystate[t][i][j][k][0] 552 /*M3_HERESIT*/ #define YS1Y_sa_ver_traadv_cen2 Ysa_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 553 /*M3_VALST */ #define Ygrad_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2->Ygrad[t][i][j][k][v] 554 /*M3_VALST */ #define YG_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2->Ygrad[t][i][j][k][v] 555 /*M3_VALSIT */ #define YG1_sa_ver_traadv_cen2(i, j, k, t) Ysa_ver_traadv_cen2->Ygrad[t][i][j][k][0] 556 /*M3_HERESIT*/ #define YG1Y_sa_ver_traadv_cen2 Ysa_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 557 sa_ver_traadv_cen2 *Ysa_ver_traadv_cen2; 599 /*M3_IRMOD */ #define Ysa_ver_traadv_cen2(i, j, k) Ysa_ver_traadv_cen2[i][j][k] 600 /*M3_NOWMOD */ #define Ysa_ver_traadv_cen2Y Ysa_ver_traadv_cen2[Yi][Yj][Yk] 601 /*M3_VALST */ #define Ystate_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2[i][j][k]->Ystate[t][v] 602 /*M3_VALST */ #define YS_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2[i][j][k]->Ystate[t][v] 603 /*M3_VALSIT */ #define YS1_sa_ver_traadv_cen2(i, j, k, t) Ysa_ver_traadv_cen2[i][j][k]->Ystate[t][0] 604 /*M3_HERESIT*/ #define YS1Y_sa_ver_traadv_cen2 Ysa_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 605 /*M3_VALST */ #define Ygrad_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 606 /*M3_VALST */ #define YG_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 607 /*M3_VALSIT */ #define YG1_sa_ver_traadv_cen2(i, j, k, t) Ysa_ver_traadv_cen2[i][j][k]->Ygrad[t][0] 608 /*M3_HERESIT*/ #define YG1Y_sa_ver_traadv_cen2 Ysa_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 609 sa_ver_traadv_cen2 *Ysa_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 558 610 559 611 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ztuv_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 564 616 /*NBSMOD */ #define YNBS_ztuv_traldf_lap 2 565 617 /*NBIMOD */ #define YNBI_ztuv_traldf_lap 3 566 /*M3_VALST */ #define Ystate_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap->Ystate[t][i][j][k][v] 567 /*M3_VALST */ #define YS_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap->Ystate[t][i][j][k][v] 568 /*M3_VALSIT */ #define YS1_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap->Ystate[t][i][j][k][0] 569 /*M3_HERESIT*/ #define YS1Y_ztuv_traldf_lap Yztuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 570 /*M3_VALSIT */ #define YS2_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap->Ystate[t][i][j][k][1] 571 /*M3_HERESIT*/ #define YS2Y_ztuv_traldf_lap Yztuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][1] 572 /*M3_VALST */ #define Ygrad_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap->Ygrad[t][i][j][k][v] 573 /*M3_VALST */ #define YG_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap->Ygrad[t][i][j][k][v] 574 /*M3_VALSIT */ #define YG1_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap->Ygrad[t][i][j][k][0] 575 /*M3_HERESIT*/ #define YG1Y_ztuv_traldf_lap Yztuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 576 /*M3_VALSIT */ #define YG2_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap->Ygrad[t][i][j][k][1] 577 /*M3_HERESIT*/ #define YG2Y_ztuv_traldf_lap Yztuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][1] 578 ztuv_traldf_lap *Yztuv_traldf_lap; 618 /*M3_IRMOD */ #define Yztuv_traldf_lap(i, j, k) Yztuv_traldf_lap[i][j][k] 619 /*M3_NOWMOD */ #define Yztuv_traldf_lapY Yztuv_traldf_lap[Yi][Yj][Yk] 620 /*M3_VALST */ #define Ystate_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ystate[t][v] 621 /*M3_VALST */ #define YS_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ystate[t][v] 622 /*M3_VALSIT */ #define YS1_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ystate[t][0] 623 /*M3_HERESIT*/ #define YS1Y_ztuv_traldf_lap Yztuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 624 /*M3_VALSIT */ #define YS2_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ystate[t][1] 625 /*M3_HERESIT*/ #define YS2Y_ztuv_traldf_lap Yztuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][1] 626 /*M3_VALST */ #define Ygrad_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ygrad[t][v] 627 /*M3_VALST */ #define YG_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ygrad[t][v] 628 /*M3_VALSIT */ #define YG1_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ygrad[t][0] 629 /*M3_HERESIT*/ #define YG1Y_ztuv_traldf_lap Yztuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 630 /*M3_VALSIT */ #define YG2_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ygrad[t][1] 631 /*M3_HERESIT*/ #define YG2Y_ztuv_traldf_lap Yztuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][1] 632 ztuv_traldf_lap *Yztuv_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 579 633 580 634 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zsuv_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 583 637 /*NBSMOD */ #define YNBS_zsuv_traldf_lap 2 584 638 /*NBIMOD */ #define YNBI_zsuv_traldf_lap 3 585 /*M3_VALST */ #define Ystate_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap->Ystate[t][i][j][k][v] 586 /*M3_VALST */ #define YS_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap->Ystate[t][i][j][k][v] 587 /*M3_VALSIT */ #define YS1_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap->Ystate[t][i][j][k][0] 588 /*M3_HERESIT*/ #define YS1Y_zsuv_traldf_lap Yzsuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 589 /*M3_VALSIT */ #define YS2_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap->Ystate[t][i][j][k][1] 590 /*M3_HERESIT*/ #define YS2Y_zsuv_traldf_lap Yzsuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][1] 591 /*M3_VALST */ #define Ygrad_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap->Ygrad[t][i][j][k][v] 592 /*M3_VALST */ #define YG_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap->Ygrad[t][i][j][k][v] 593 /*M3_VALSIT */ #define YG1_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap->Ygrad[t][i][j][k][0] 594 /*M3_HERESIT*/ #define YG1Y_zsuv_traldf_lap Yzsuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 595 /*M3_VALSIT */ #define YG2_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap->Ygrad[t][i][j][k][1] 596 /*M3_HERESIT*/ #define YG2Y_zsuv_traldf_lap Yzsuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][1] 597 zsuv_traldf_lap *Yzsuv_traldf_lap; 639 /*M3_IRMOD */ #define Yzsuv_traldf_lap(i, j, k) Yzsuv_traldf_lap[i][j][k] 640 /*M3_NOWMOD */ #define Yzsuv_traldf_lapY Yzsuv_traldf_lap[Yi][Yj][Yk] 641 /*M3_VALST */ #define Ystate_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ystate[t][v] 642 /*M3_VALST */ #define YS_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ystate[t][v] 643 /*M3_VALSIT */ #define YS1_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ystate[t][0] 644 /*M3_HERESIT*/ #define YS1Y_zsuv_traldf_lap Yzsuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 645 /*M3_VALSIT */ #define YS2_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ystate[t][1] 646 /*M3_HERESIT*/ #define YS2Y_zsuv_traldf_lap Yzsuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][1] 647 /*M3_VALST */ #define Ygrad_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ygrad[t][v] 648 /*M3_VALST */ #define YG_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ygrad[t][v] 649 /*M3_VALSIT */ #define YG1_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ygrad[t][0] 650 /*M3_HERESIT*/ #define YG1Y_zsuv_traldf_lap Yzsuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 651 /*M3_VALSIT */ #define YG2_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ygrad[t][1] 652 /*M3_HERESIT*/ #define YG2Y_zsuv_traldf_lap Yzsuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][1] 653 zsuv_traldf_lap *Yzsuv_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 598 654 599 655 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 604 660 /*NBSMOD */ #define YNBS_ta_traldf_lap 1 605 661 /*NBIMOD */ #define YNBI_ta_traldf_lap 5 606 /*M3_VALST */ #define Ystate_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap->Ystate[t][i][j][k][v] 607 /*M3_VALST */ #define YS_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap->Ystate[t][i][j][k][v] 608 /*M3_VALSIT */ #define YS1_ta_traldf_lap(i, j, k, t) Yta_traldf_lap->Ystate[t][i][j][k][0] 609 /*M3_HERESIT*/ #define YS1Y_ta_traldf_lap Yta_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 610 /*M3_VALST */ #define Ygrad_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap->Ygrad[t][i][j][k][v] 611 /*M3_VALST */ #define YG_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap->Ygrad[t][i][j][k][v] 612 /*M3_VALSIT */ #define YG1_ta_traldf_lap(i, j, k, t) Yta_traldf_lap->Ygrad[t][i][j][k][0] 613 /*M3_HERESIT*/ #define YG1Y_ta_traldf_lap Yta_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 614 ta_traldf_lap *Yta_traldf_lap; 662 /*M3_IRMOD */ #define Yta_traldf_lap(i, j, k) Yta_traldf_lap[i][j][k] 663 /*M3_NOWMOD */ #define Yta_traldf_lapY Yta_traldf_lap[Yi][Yj][Yk] 664 /*M3_VALST */ #define Ystate_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap[i][j][k]->Ystate[t][v] 665 /*M3_VALST */ #define YS_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap[i][j][k]->Ystate[t][v] 666 /*M3_VALSIT */ #define YS1_ta_traldf_lap(i, j, k, t) Yta_traldf_lap[i][j][k]->Ystate[t][0] 667 /*M3_HERESIT*/ #define YS1Y_ta_traldf_lap Yta_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 668 /*M3_VALST */ #define Ygrad_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap[i][j][k]->Ygrad[t][v] 669 /*M3_VALST */ #define YG_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap[i][j][k]->Ygrad[t][v] 670 /*M3_VALSIT */ #define YG1_ta_traldf_lap(i, j, k, t) Yta_traldf_lap[i][j][k]->Ygrad[t][0] 671 /*M3_HERESIT*/ #define YG1Y_ta_traldf_lap Yta_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 672 ta_traldf_lap *Yta_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 615 673 616 674 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 619 677 /*NBSMOD */ #define YNBS_sa_traldf_lap 1 620 678 /*NBIMOD */ #define YNBI_sa_traldf_lap 5 621 /*M3_VALST */ #define Ystate_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap->Ystate[t][i][j][k][v] 622 /*M3_VALST */ #define YS_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap->Ystate[t][i][j][k][v] 623 /*M3_VALSIT */ #define YS1_sa_traldf_lap(i, j, k, t) Ysa_traldf_lap->Ystate[t][i][j][k][0] 624 /*M3_HERESIT*/ #define YS1Y_sa_traldf_lap Ysa_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 625 /*M3_VALST */ #define Ygrad_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap->Ygrad[t][i][j][k][v] 626 /*M3_VALST */ #define YG_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap->Ygrad[t][i][j][k][v] 627 /*M3_VALSIT */ #define YG1_sa_traldf_lap(i, j, k, t) Ysa_traldf_lap->Ygrad[t][i][j][k][0] 628 /*M3_HERESIT*/ #define YG1Y_sa_traldf_lap Ysa_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 629 sa_traldf_lap *Ysa_traldf_lap; 679 /*M3_IRMOD */ #define Ysa_traldf_lap(i, j, k) Ysa_traldf_lap[i][j][k] 680 /*M3_NOWMOD */ #define Ysa_traldf_lapY Ysa_traldf_lap[Yi][Yj][Yk] 681 /*M3_VALST */ #define Ystate_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap[i][j][k]->Ystate[t][v] 682 /*M3_VALST */ #define YS_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap[i][j][k]->Ystate[t][v] 683 /*M3_VALSIT */ #define YS1_sa_traldf_lap(i, j, k, t) Ysa_traldf_lap[i][j][k]->Ystate[t][0] 684 /*M3_HERESIT*/ #define YS1Y_sa_traldf_lap Ysa_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 685 /*M3_VALST */ #define Ygrad_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap[i][j][k]->Ygrad[t][v] 686 /*M3_VALST */ #define YG_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap[i][j][k]->Ygrad[t][v] 687 /*M3_VALSIT */ #define YG1_sa_traldf_lap(i, j, k, t) Ysa_traldf_lap[i][j][k]->Ygrad[t][0] 688 /*M3_HERESIT*/ #define YG1Y_sa_traldf_lap Ysa_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 689 sa_traldf_lap *Ysa_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 630 690 631 691 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 636 696 /*NBSMOD */ #define YNBS_zwisd_trazdf_imp 3 637 697 /*NBIMOD */ #define YNBI_zwisd_trazdf_imp 2 638 /*M3_VALST */ #define Ystate_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][v] 639 /*M3_VALST */ #define YS_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][v] 640 /*M3_VALSIT */ #define YS1_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][0] 641 /*M3_HERESIT*/ #define YS1Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 642 /*M3_VALSIT */ #define YS2_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][1] 643 /*M3_HERESIT*/ #define YS2Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][1] 644 /*M3_VALSIT */ #define YS3_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][2] 645 /*M3_HERESIT*/ #define YS3Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][2] 646 /*M3_VALST */ #define Ygrad_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][v] 647 /*M3_VALST */ #define YG_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][v] 648 /*M3_VALSIT */ #define YG1_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][0] 649 /*M3_HERESIT*/ #define YG1Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 650 /*M3_VALSIT */ #define YG2_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][1] 651 /*M3_HERESIT*/ #define YG2Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][1] 652 /*M3_VALSIT */ #define YG3_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][2] 653 /*M3_HERESIT*/ #define YG3Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][2] 654 zwisd_trazdf_imp *Yzwisd_trazdf_imp; 698 /*M3_IRMOD */ #define Yzwisd_trazdf_imp(i, j, k) Yzwisd_trazdf_imp[i][j][k] 699 /*M3_NOWMOD */ #define Yzwisd_trazdf_impY Yzwisd_trazdf_imp[Yi][Yj][Yk] 700 /*M3_VALST */ #define Ystate_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ystate[t][v] 701 /*M3_VALST */ #define YS_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ystate[t][v] 702 /*M3_VALSIT */ #define YS1_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ystate[t][0] 703 /*M3_HERESIT*/ #define YS1Y_zwisd_trazdf_imp Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 704 /*M3_VALSIT */ #define YS2_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ystate[t][1] 705 /*M3_HERESIT*/ #define YS2Y_zwisd_trazdf_imp Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][1] 706 /*M3_VALSIT */ #define YS3_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ystate[t][2] 707 /*M3_HERESIT*/ #define YS3Y_zwisd_trazdf_imp Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][2] 708 /*M3_VALST */ #define Ygrad_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][v] 709 /*M3_VALST */ #define YG_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][v] 710 /*M3_VALSIT */ #define YG1_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][0] 711 /*M3_HERESIT*/ #define YG1Y_zwisd_trazdf_imp Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 712 /*M3_VALSIT */ #define YG2_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][1] 713 /*M3_HERESIT*/ #define YG2Y_zwisd_trazdf_imp Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][1] 714 /*M3_VALSIT */ #define YG3_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][2] 715 /*M3_HERESIT*/ #define YG3Y_zwisd_trazdf_imp Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][2] 716 zwisd_trazdf_imp *Yzwisd_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 655 717 656 718 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 661 723 /*NBSMOD */ #define YNBS_zrhs_trazdf_imp 1 662 724 /*NBIMOD */ #define YNBI_zrhs_trazdf_imp 2 663 /*M3_VALST */ #define Ystate_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp->Ystate[t][i][j][k][v] 664 /*M3_VALST */ #define YS_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp->Ystate[t][i][j][k][v] 665 /*M3_VALSIT */ #define YS1_zrhs_trazdf_imp(i, j, k, t) Yzrhs_trazdf_imp->Ystate[t][i][j][k][0] 666 /*M3_HERESIT*/ #define YS1Y_zrhs_trazdf_imp Yzrhs_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 667 /*M3_VALST */ #define Ygrad_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp->Ygrad[t][i][j][k][v] 668 /*M3_VALST */ #define YG_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp->Ygrad[t][i][j][k][v] 669 /*M3_VALSIT */ #define YG1_zrhs_trazdf_imp(i, j, k, t) Yzrhs_trazdf_imp->Ygrad[t][i][j][k][0] 670 /*M3_HERESIT*/ #define YG1Y_zrhs_trazdf_imp Yzrhs_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 671 zrhs_trazdf_imp *Yzrhs_trazdf_imp; 725 /*M3_IRMOD */ #define Yzrhs_trazdf_imp(i, j, k) Yzrhs_trazdf_imp[i][j][k] 726 /*M3_NOWMOD */ #define Yzrhs_trazdf_impY Yzrhs_trazdf_imp[Yi][Yj][Yk] 727 /*M3_VALST */ #define Ystate_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp[i][j][k]->Ystate[t][v] 728 /*M3_VALST */ #define YS_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp[i][j][k]->Ystate[t][v] 729 /*M3_VALSIT */ #define YS1_zrhs_trazdf_imp(i, j, k, t) Yzrhs_trazdf_imp[i][j][k]->Ystate[t][0] 730 /*M3_HERESIT*/ #define YS1Y_zrhs_trazdf_imp Yzrhs_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 731 /*M3_VALST */ #define Ygrad_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp[i][j][k]->Ygrad[t][v] 732 /*M3_VALST */ #define YG_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp[i][j][k]->Ygrad[t][v] 733 /*M3_VALSIT */ #define YG1_zrhs_trazdf_imp(i, j, k, t) Yzrhs_trazdf_imp[i][j][k]->Ygrad[t][0] 734 /*M3_HERESIT*/ #define YG1Y_zrhs_trazdf_imp Yzrhs_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 735 zrhs_trazdf_imp *Yzrhs_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 672 736 673 737 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_sa_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 676 740 /*NBSMOD */ #define YNBS_zrhs_sa_trazdf_imp 1 677 741 /*NBIMOD */ #define YNBI_zrhs_sa_trazdf_imp 2 678 /*M3_VALST */ #define Ystate_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp->Ystate[t][i][j][k][v] 679 /*M3_VALST */ #define YS_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp->Ystate[t][i][j][k][v] 680 /*M3_VALSIT */ #define YS1_zrhs_sa_trazdf_imp(i, j, k, t) Yzrhs_sa_trazdf_imp->Ystate[t][i][j][k][0] 681 /*M3_HERESIT*/ #define YS1Y_zrhs_sa_trazdf_imp Yzrhs_sa_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 682 /*M3_VALST */ #define Ygrad_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp->Ygrad[t][i][j][k][v] 683 /*M3_VALST */ #define YG_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp->Ygrad[t][i][j][k][v] 684 /*M3_VALSIT */ #define YG1_zrhs_sa_trazdf_imp(i, j, k, t) Yzrhs_sa_trazdf_imp->Ygrad[t][i][j][k][0] 685 /*M3_HERESIT*/ #define YG1Y_zrhs_sa_trazdf_imp Yzrhs_sa_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 686 zrhs_sa_trazdf_imp *Yzrhs_sa_trazdf_imp; 742 /*M3_IRMOD */ #define Yzrhs_sa_trazdf_imp(i, j, k) Yzrhs_sa_trazdf_imp[i][j][k] 743 /*M3_NOWMOD */ #define Yzrhs_sa_trazdf_impY Yzrhs_sa_trazdf_imp[Yi][Yj][Yk] 744 /*M3_VALST */ #define Ystate_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp[i][j][k]->Ystate[t][v] 745 /*M3_VALST */ #define YS_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp[i][j][k]->Ystate[t][v] 746 /*M3_VALSIT */ #define YS1_zrhs_sa_trazdf_imp(i, j, k, t) Yzrhs_sa_trazdf_imp[i][j][k]->Ystate[t][0] 747 /*M3_HERESIT*/ #define YS1Y_zrhs_sa_trazdf_imp Yzrhs_sa_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 748 /*M3_VALST */ #define Ygrad_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp[i][j][k]->Ygrad[t][v] 749 /*M3_VALST */ #define YG_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp[i][j][k]->Ygrad[t][v] 750 /*M3_VALSIT */ #define YG1_zrhs_sa_trazdf_imp(i, j, k, t) Yzrhs_sa_trazdf_imp[i][j][k]->Ygrad[t][0] 751 /*M3_HERESIT*/ #define YG1Y_zrhs_sa_trazdf_imp Yzrhs_sa_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 752 zrhs_sa_trazdf_imp *Yzrhs_sa_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 687 753 688 754 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 693 759 /*NBSMOD */ #define YNBS_zwt_trazdf_imp 1 694 760 /*NBIMOD */ #define YNBI_zwt_trazdf_imp 4 695 /*M3_VALST */ #define Ystate_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp->Ystate[t][i][j][k][v] 696 /*M3_VALST */ #define YS_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp->Ystate[t][i][j][k][v] 697 /*M3_VALSIT */ #define YS1_zwt_trazdf_imp(i, j, k, t) Yzwt_trazdf_imp->Ystate[t][i][j][k][0] 698 /*M3_HERESIT*/ #define YS1Y_zwt_trazdf_imp Yzwt_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 699 /*M3_VALST */ #define Ygrad_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp->Ygrad[t][i][j][k][v] 700 /*M3_VALST */ #define YG_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp->Ygrad[t][i][j][k][v] 701 /*M3_VALSIT */ #define YG1_zwt_trazdf_imp(i, j, k, t) Yzwt_trazdf_imp->Ygrad[t][i][j][k][0] 702 /*M3_HERESIT*/ #define YG1Y_zwt_trazdf_imp Yzwt_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 703 zwt_trazdf_imp *Yzwt_trazdf_imp; 761 /*M3_IRMOD */ #define Yzwt_trazdf_imp(i, j, k) Yzwt_trazdf_imp[i][j][k] 762 /*M3_NOWMOD */ #define Yzwt_trazdf_impY Yzwt_trazdf_imp[Yi][Yj][Yk] 763 /*M3_VALST */ #define Ystate_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp[i][j][k]->Ystate[t][v] 764 /*M3_VALST */ #define YS_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp[i][j][k]->Ystate[t][v] 765 /*M3_VALSIT */ #define YS1_zwt_trazdf_imp(i, j, k, t) Yzwt_trazdf_imp[i][j][k]->Ystate[t][0] 766 /*M3_HERESIT*/ #define YS1Y_zwt_trazdf_imp Yzwt_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 767 /*M3_VALST */ #define Ygrad_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp[i][j][k]->Ygrad[t][v] 768 /*M3_VALST */ #define YG_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp[i][j][k]->Ygrad[t][v] 769 /*M3_VALSIT */ #define YG1_zwt_trazdf_imp(i, j, k, t) Yzwt_trazdf_imp[i][j][k]->Ygrad[t][0] 770 /*M3_HERESIT*/ #define YG1Y_zwt_trazdf_imp Yzwt_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 771 zwt_trazdf_imp *Yzwt_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 704 772 705 773 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_de_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 708 776 /*NBSMOD */ #define YNBS_ta_de_trazdf_imp 1 709 777 /*NBIMOD */ #define YNBI_ta_de_trazdf_imp 4 710 /*M3_VALST */ #define Ystate_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp->Ystate[t][i][j][k][v] 711 /*M3_VALST */ #define YS_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp->Ystate[t][i][j][k][v] 712 /*M3_VALSIT */ #define YS1_ta_de_trazdf_imp(i, j, k, t) Yta_de_trazdf_imp->Ystate[t][i][j][k][0] 713 /*M3_HERESIT*/ #define YS1Y_ta_de_trazdf_imp Yta_de_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 714 /*M3_VALST */ #define Ygrad_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp->Ygrad[t][i][j][k][v] 715 /*M3_VALST */ #define YG_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp->Ygrad[t][i][j][k][v] 716 /*M3_VALSIT */ #define YG1_ta_de_trazdf_imp(i, j, k, t) Yta_de_trazdf_imp->Ygrad[t][i][j][k][0] 717 /*M3_HERESIT*/ #define YG1Y_ta_de_trazdf_imp Yta_de_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 718 ta_de_trazdf_imp *Yta_de_trazdf_imp; 778 /*M3_IRMOD */ #define Yta_de_trazdf_imp(i, j, k) Yta_de_trazdf_imp[i][j][k] 779 /*M3_NOWMOD */ #define Yta_de_trazdf_impY Yta_de_trazdf_imp[Yi][Yj][Yk] 780 /*M3_VALST */ #define Ystate_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp[i][j][k]->Ystate[t][v] 781 /*M3_VALST */ #define YS_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp[i][j][k]->Ystate[t][v] 782 /*M3_VALSIT */ #define YS1_ta_de_trazdf_imp(i, j, k, t) Yta_de_trazdf_imp[i][j][k]->Ystate[t][0] 783 /*M3_HERESIT*/ #define YS1Y_ta_de_trazdf_imp Yta_de_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 784 /*M3_VALST */ #define Ygrad_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp[i][j][k]->Ygrad[t][v] 785 /*M3_VALST */ #define YG_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp[i][j][k]->Ygrad[t][v] 786 /*M3_VALSIT */ #define YG1_ta_de_trazdf_imp(i, j, k, t) Yta_de_trazdf_imp[i][j][k]->Ygrad[t][0] 787 /*M3_HERESIT*/ #define YG1Y_ta_de_trazdf_imp Yta_de_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 788 ta_de_trazdf_imp *Yta_de_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 719 789 720 790 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta~~~~~~~~~~~~~~~~~~~~~~~~~ … … 725 795 /*NBSMOD */ #define YNBS_ta 1 726 796 /*NBIMOD */ #define YNBI_ta 5 727 /*M3_VALST */ #define Ystate_ta(v, i, j, k, t) Yta->Ystate[t][i][j][k][v] 728 /*M3_VALST */ #define YS_ta(v, i, j, k, t) Yta->Ystate[t][i][j][k][v] 729 /*M3_VALSIT */ #define YS1_ta(i, j, k, t) Yta->Ystate[t][i][j][k][0] 730 /*M3_HERESIT*/ #define YS1Y_ta Yta->Ystate[YTemps][Yi][Yj][Yk][0] 731 /*M3_VALST */ #define Ygrad_ta(v, i, j, k, t) Yta->Ygrad[t][i][j][k][v] 732 /*M3_VALST */ #define YG_ta(v, i, j, k, t) Yta->Ygrad[t][i][j][k][v] 733 /*M3_VALSIT */ #define YG1_ta(i, j, k, t) Yta->Ygrad[t][i][j][k][0] 734 /*M3_HERESIT*/ #define YG1Y_ta Yta->Ygrad[YTemps][Yi][Yj][Yk][0] 735 ta *Yta; 797 /*M3_IRMOD */ #define Yta(i, j, k) Yta[i][j][k] 798 /*M3_NOWMOD */ #define YtaY Yta[Yi][Yj][Yk] 799 /*M3_VALST */ #define Ystate_ta(v, i, j, k, t) Yta[i][j][k]->Ystate[t][v] 800 /*M3_VALST */ #define YS_ta(v, i, j, k, t) Yta[i][j][k]->Ystate[t][v] 801 /*M3_VALSIT */ #define YS1_ta(i, j, k, t) Yta[i][j][k]->Ystate[t][0] 802 /*M3_HERESIT*/ #define YS1Y_ta Yta[Yi][Yj][Yk]->Ystate[YTemps][0] 803 /*M3_VALST */ #define Ygrad_ta(v, i, j, k, t) Yta[i][j][k]->Ygrad[t][v] 804 /*M3_VALST */ #define YG_ta(v, i, j, k, t) Yta[i][j][k]->Ygrad[t][v] 805 /*M3_VALSIT */ #define YG1_ta(i, j, k, t) Yta[i][j][k]->Ygrad[t][0] 806 /*M3_HERESIT*/ #define YG1Y_ta Yta[Yi][Yj][Yk]->Ygrad[YTemps][0] 807 ta *Yta[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 736 808 737 809 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_de_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 740 812 /*NBSMOD */ #define YNBS_sa_de_trazdf_imp 1 741 813 /*NBIMOD */ #define YNBI_sa_de_trazdf_imp 4 742 /*M3_VALST */ #define Ystate_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp->Ystate[t][i][j][k][v] 743 /*M3_VALST */ #define YS_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp->Ystate[t][i][j][k][v] 744 /*M3_VALSIT */ #define YS1_sa_de_trazdf_imp(i, j, k, t) Ysa_de_trazdf_imp->Ystate[t][i][j][k][0] 745 /*M3_HERESIT*/ #define YS1Y_sa_de_trazdf_imp Ysa_de_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 746 /*M3_VALST */ #define Ygrad_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp->Ygrad[t][i][j][k][v] 747 /*M3_VALST */ #define YG_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp->Ygrad[t][i][j][k][v] 748 /*M3_VALSIT */ #define YG1_sa_de_trazdf_imp(i, j, k, t) Ysa_de_trazdf_imp->Ygrad[t][i][j][k][0] 749 /*M3_HERESIT*/ #define YG1Y_sa_de_trazdf_imp Ysa_de_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 750 sa_de_trazdf_imp *Ysa_de_trazdf_imp; 814 /*M3_IRMOD */ #define Ysa_de_trazdf_imp(i, j, k) Ysa_de_trazdf_imp[i][j][k] 815 /*M3_NOWMOD */ #define Ysa_de_trazdf_impY Ysa_de_trazdf_imp[Yi][Yj][Yk] 816 /*M3_VALST */ #define Ystate_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp[i][j][k]->Ystate[t][v] 817 /*M3_VALST */ #define YS_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp[i][j][k]->Ystate[t][v] 818 /*M3_VALSIT */ #define YS1_sa_de_trazdf_imp(i, j, k, t) Ysa_de_trazdf_imp[i][j][k]->Ystate[t][0] 819 /*M3_HERESIT*/ #define YS1Y_sa_de_trazdf_imp Ysa_de_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 820 /*M3_VALST */ #define Ygrad_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp[i][j][k]->Ygrad[t][v] 821 /*M3_VALST */ #define YG_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp[i][j][k]->Ygrad[t][v] 822 /*M3_VALSIT */ #define YG1_sa_de_trazdf_imp(i, j, k, t) Ysa_de_trazdf_imp[i][j][k]->Ygrad[t][0] 823 /*M3_HERESIT*/ #define YG1Y_sa_de_trazdf_imp Ysa_de_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 824 sa_de_trazdf_imp *Ysa_de_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 751 825 752 826 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa~~~~~~~~~~~~~~~~~~~~~~~~~ … … 757 831 /*NBSMOD */ #define YNBS_sa 1 758 832 /*NBIMOD */ #define YNBI_sa 5 759 /*M3_VALST */ #define Ystate_sa(v, i, j, k, t) Ysa->Ystate[t][i][j][k][v] 760 /*M3_VALST */ #define YS_sa(v, i, j, k, t) Ysa->Ystate[t][i][j][k][v] 761 /*M3_VALSIT */ #define YS1_sa(i, j, k, t) Ysa->Ystate[t][i][j][k][0] 762 /*M3_HERESIT*/ #define YS1Y_sa Ysa->Ystate[YTemps][Yi][Yj][Yk][0] 763 /*M3_VALST */ #define Ygrad_sa(v, i, j, k, t) Ysa->Ygrad[t][i][j][k][v] 764 /*M3_VALST */ #define YG_sa(v, i, j, k, t) Ysa->Ygrad[t][i][j][k][v] 765 /*M3_VALSIT */ #define YG1_sa(i, j, k, t) Ysa->Ygrad[t][i][j][k][0] 766 /*M3_HERESIT*/ #define YG1Y_sa Ysa->Ygrad[YTemps][Yi][Yj][Yk][0] 767 sa *Ysa; 833 /*M3_IRMOD */ #define Ysa(i, j, k) Ysa[i][j][k] 834 /*M3_NOWMOD */ #define YsaY Ysa[Yi][Yj][Yk] 835 /*M3_VALST */ #define Ystate_sa(v, i, j, k, t) Ysa[i][j][k]->Ystate[t][v] 836 /*M3_VALST */ #define YS_sa(v, i, j, k, t) Ysa[i][j][k]->Ystate[t][v] 837 /*M3_VALSIT */ #define YS1_sa(i, j, k, t) Ysa[i][j][k]->Ystate[t][0] 838 /*M3_HERESIT*/ #define YS1Y_sa Ysa[Yi][Yj][Yk]->Ystate[YTemps][0] 839 /*M3_VALST */ #define Ygrad_sa(v, i, j, k, t) Ysa[i][j][k]->Ygrad[t][v] 840 /*M3_VALST */ #define YG_sa(v, i, j, k, t) Ysa[i][j][k]->Ygrad[t][v] 841 /*M3_VALSIT */ #define YG1_sa(i, j, k, t) Ysa[i][j][k]->Ygrad[t][0] 842 /*M3_HERESIT*/ #define YG1Y_sa Ysa[Yi][Yj][Yk]->Ygrad[YTemps][0] 843 sa *Ysa[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 768 844 769 845 //~~~~~~~~~~~~~~~~~~~~~~~~~ module tb~~~~~~~~~~~~~~~~~~~~~~~~~ … … 774 850 /*NBSMOD */ #define YNBS_tb 1 775 851 /*NBIMOD */ #define YNBI_tb 4 776 /*M3_VALST */ #define Ystate_tb(v, i, j, k, t) Ytb->Ystate[t][i][j][k][v] 777 /*M3_VALST */ #define YS_tb(v, i, j, k, t) Ytb->Ystate[t][i][j][k][v] 778 /*M3_VALSIT */ #define YS1_tb(i, j, k, t) Ytb->Ystate[t][i][j][k][0] 779 /*M3_HERESIT*/ #define YS1Y_tb Ytb->Ystate[YTemps][Yi][Yj][Yk][0] 780 /*M3_VALST */ #define Ygrad_tb(v, i, j, k, t) Ytb->Ygrad[t][i][j][k][v] 781 /*M3_VALST */ #define YG_tb(v, i, j, k, t) Ytb->Ygrad[t][i][j][k][v] 782 /*M3_VALSIT */ #define YG1_tb(i, j, k, t) Ytb->Ygrad[t][i][j][k][0] 783 /*M3_HERESIT*/ #define YG1Y_tb Ytb->Ygrad[YTemps][Yi][Yj][Yk][0] 784 tb *Ytb; 785 /*M3_VALSG */ #define Ywish_tb(v, i, j, k) Ytb->Ywish[i][j][k][v] 786 /*M3_VALSG */ #define YW_tb(v, i, j, k) Ytb->Ywish[i][j][k][v] 787 /*M3_VALSGI */ #define YW1_tb(i, j, k) Ytb->Ywish[i][j][k][0] 788 /*M3_HERESGI*/ #define YW1Y_tb Ytb->Ywish[Yi][Yj][Yk][0] 852 /*M3_IRMOD */ #define Ytb(i, j, k) Ytb[i][j][k] 853 /*M3_NOWMOD */ #define YtbY Ytb[Yi][Yj][Yk] 854 /*M3_VALST */ #define Ystate_tb(v, i, j, k, t) Ytb[i][j][k]->Ystate[t][v] 855 /*M3_VALST */ #define YS_tb(v, i, j, k, t) Ytb[i][j][k]->Ystate[t][v] 856 /*M3_VALSIT */ #define YS1_tb(i, j, k, t) Ytb[i][j][k]->Ystate[t][0] 857 /*M3_HERESIT*/ #define YS1Y_tb Ytb[Yi][Yj][Yk]->Ystate[YTemps][0] 858 /*M3_VALST */ #define Ygrad_tb(v, i, j, k, t) Ytb[i][j][k]->Ygrad[t][v] 859 /*M3_VALST */ #define YG_tb(v, i, j, k, t) Ytb[i][j][k]->Ygrad[t][v] 860 /*M3_VALSIT */ #define YG1_tb(i, j, k, t) Ytb[i][j][k]->Ygrad[t][0] 861 /*M3_HERESIT*/ #define YG1Y_tb Ytb[Yi][Yj][Yk]->Ygrad[YTemps][0] 862 tb *Ytb[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 863 /*M3_VALSG */ #define Ywish_tb(v, i, j, k) Ytb[i][j][k]->Ywish[v] 864 /*M3_VALSG */ #define YW_tb(v, i, j, k) Ytb[i][j][k]->Ywish[v] 865 /*M3_VALSGI */ #define YW1_tb(i, j, k) Ytb[i][j][k]->Ywish[0] 866 /*M3_HERESGI*/ #define YW1Y_tb Ytb[Yi][Yj][Yk]->Ywish[0] 789 867 790 868 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sb~~~~~~~~~~~~~~~~~~~~~~~~~ … … 795 873 /*NBSMOD */ #define YNBS_sb 1 796 874 /*NBIMOD */ #define YNBI_sb 4 797 /*M3_VALST */ #define Ystate_sb(v, i, j, k, t) Ysb->Ystate[t][i][j][k][v] 798 /*M3_VALST */ #define YS_sb(v, i, j, k, t) Ysb->Ystate[t][i][j][k][v] 799 /*M3_VALSIT */ #define YS1_sb(i, j, k, t) Ysb->Ystate[t][i][j][k][0] 800 /*M3_HERESIT*/ #define YS1Y_sb Ysb->Ystate[YTemps][Yi][Yj][Yk][0] 801 /*M3_VALST */ #define Ygrad_sb(v, i, j, k, t) Ysb->Ygrad[t][i][j][k][v] 802 /*M3_VALST */ #define YG_sb(v, i, j, k, t) Ysb->Ygrad[t][i][j][k][v] 803 /*M3_VALSIT */ #define YG1_sb(i, j, k, t) Ysb->Ygrad[t][i][j][k][0] 804 /*M3_HERESIT*/ #define YG1Y_sb Ysb->Ygrad[YTemps][Yi][Yj][Yk][0] 805 sb *Ysb; 806 /*M3_VALSG */ #define Ywish_sb(v, i, j, k) Ysb->Ywish[i][j][k][v] 807 /*M3_VALSG */ #define YW_sb(v, i, j, k) Ysb->Ywish[i][j][k][v] 808 /*M3_VALSGI */ #define YW1_sb(i, j, k) Ysb->Ywish[i][j][k][0] 809 /*M3_HERESGI*/ #define YW1Y_sb Ysb->Ywish[Yi][Yj][Yk][0] 875 /*M3_IRMOD */ #define Ysb(i, j, k) Ysb[i][j][k] 876 /*M3_NOWMOD */ #define YsbY Ysb[Yi][Yj][Yk] 877 /*M3_VALST */ #define Ystate_sb(v, i, j, k, t) Ysb[i][j][k]->Ystate[t][v] 878 /*M3_VALST */ #define YS_sb(v, i, j, k, t) Ysb[i][j][k]->Ystate[t][v] 879 /*M3_VALSIT */ #define YS1_sb(i, j, k, t) Ysb[i][j][k]->Ystate[t][0] 880 /*M3_HERESIT*/ #define YS1Y_sb Ysb[Yi][Yj][Yk]->Ystate[YTemps][0] 881 /*M3_VALST */ #define Ygrad_sb(v, i, j, k, t) Ysb[i][j][k]->Ygrad[t][v] 882 /*M3_VALST */ #define YG_sb(v, i, j, k, t) Ysb[i][j][k]->Ygrad[t][v] 883 /*M3_VALSIT */ #define YG1_sb(i, j, k, t) Ysb[i][j][k]->Ygrad[t][0] 884 /*M3_HERESIT*/ #define YG1Y_sb Ysb[Yi][Yj][Yk]->Ygrad[YTemps][0] 885 sb *Ysb[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 886 /*M3_VALSG */ #define Ywish_sb(v, i, j, k) Ysb[i][j][k]->Ywish[v] 887 /*M3_VALSG */ #define YW_sb(v, i, j, k) Ysb[i][j][k]->Ywish[v] 888 /*M3_VALSGI */ #define YW1_sb(i, j, k) Ysb[i][j][k]->Ywish[0] 889 /*M3_HERESGI*/ #define YW1Y_sb Ysb[Yi][Yj][Yk]->Ywish[0] 810 890 811 891 //~~~~~~~~~~~~~~~~~~~~~~~~~ module rhd~~~~~~~~~~~~~~~~~~~~~~~~~ … … 816 896 /*NBSMOD */ #define YNBS_rhd 1 817 897 /*NBIMOD */ #define YNBI_rhd 2 818 /*M3_VALST */ #define Ystate_rhd(v, i, j, k, t) Yrhd->Ystate[t][i][j][k][v] 819 /*M3_VALST */ #define YS_rhd(v, i, j, k, t) Yrhd->Ystate[t][i][j][k][v] 820 /*M3_VALSIT */ #define YS1_rhd(i, j, k, t) Yrhd->Ystate[t][i][j][k][0] 821 /*M3_HERESIT*/ #define YS1Y_rhd Yrhd->Ystate[YTemps][Yi][Yj][Yk][0] 822 /*M3_VALST */ #define Ygrad_rhd(v, i, j, k, t) Yrhd->Ygrad[t][i][j][k][v] 823 /*M3_VALST */ #define YG_rhd(v, i, j, k, t) Yrhd->Ygrad[t][i][j][k][v] 824 /*M3_VALSIT */ #define YG1_rhd(i, j, k, t) Yrhd->Ygrad[t][i][j][k][0] 825 /*M3_HERESIT*/ #define YG1Y_rhd Yrhd->Ygrad[YTemps][Yi][Yj][Yk][0] 826 rhd *Yrhd; 898 /*M3_IRMOD */ #define Yrhd(i, j, k) Yrhd[i][j][k] 899 /*M3_NOWMOD */ #define YrhdY Yrhd[Yi][Yj][Yk] 900 /*M3_VALST */ #define Ystate_rhd(v, i, j, k, t) Yrhd[i][j][k]->Ystate[t][v] 901 /*M3_VALST */ #define YS_rhd(v, i, j, k, t) Yrhd[i][j][k]->Ystate[t][v] 902 /*M3_VALSIT */ #define YS1_rhd(i, j, k, t) Yrhd[i][j][k]->Ystate[t][0] 903 /*M3_HERESIT*/ #define YS1Y_rhd Yrhd[Yi][Yj][Yk]->Ystate[YTemps][0] 904 /*M3_VALST */ #define Ygrad_rhd(v, i, j, k, t) Yrhd[i][j][k]->Ygrad[t][v] 905 /*M3_VALST */ #define YG_rhd(v, i, j, k, t) Yrhd[i][j][k]->Ygrad[t][v] 906 /*M3_VALSIT */ #define YG1_rhd(i, j, k, t) Yrhd[i][j][k]->Ygrad[t][0] 907 /*M3_HERESIT*/ #define YG1Y_rhd Yrhd[Yi][Yj][Yk]->Ygrad[YTemps][0] 908 rhd *Yrhd[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 827 909 828 910 //~~~~~~~~~~~~~~~~~~~~~~~~~ module rhop~~~~~~~~~~~~~~~~~~~~~~~~~ … … 833 915 /*NBSMOD */ #define YNBS_rhop 1 834 916 /*NBIMOD */ #define YNBI_rhop 1 835 /*M3_VALST */ #define Ystate_rhop(v, i, j, k, t) Yrhop->Ystate[t][i][j][k][v] 836 /*M3_VALST */ #define YS_rhop(v, i, j, k, t) Yrhop->Ystate[t][i][j][k][v] 837 /*M3_VALSIT */ #define YS1_rhop(i, j, k, t) Yrhop->Ystate[t][i][j][k][0] 838 /*M3_HERESIT*/ #define YS1Y_rhop Yrhop->Ystate[YTemps][Yi][Yj][Yk][0] 839 /*M3_VALST */ #define Ygrad_rhop(v, i, j, k, t) Yrhop->Ygrad[t][i][j][k][v] 840 /*M3_VALST */ #define YG_rhop(v, i, j, k, t) Yrhop->Ygrad[t][i][j][k][v] 841 /*M3_VALSIT */ #define YG1_rhop(i, j, k, t) Yrhop->Ygrad[t][i][j][k][0] 842 /*M3_HERESIT*/ #define YG1Y_rhop Yrhop->Ygrad[YTemps][Yi][Yj][Yk][0] 843 rhop *Yrhop; 917 /*M3_IRMOD */ #define Yrhop(i, j, k) Yrhop[i][j][k] 918 /*M3_NOWMOD */ #define YrhopY Yrhop[Yi][Yj][Yk] 919 /*M3_VALST */ #define Ystate_rhop(v, i, j, k, t) Yrhop[i][j][k]->Ystate[t][v] 920 /*M3_VALST */ #define YS_rhop(v, i, j, k, t) Yrhop[i][j][k]->Ystate[t][v] 921 /*M3_VALSIT */ #define YS1_rhop(i, j, k, t) Yrhop[i][j][k]->Ystate[t][0] 922 /*M3_HERESIT*/ #define YS1Y_rhop Yrhop[Yi][Yj][Yk]->Ystate[YTemps][0] 923 /*M3_VALST */ #define Ygrad_rhop(v, i, j, k, t) Yrhop[i][j][k]->Ygrad[t][v] 924 /*M3_VALST */ #define YG_rhop(v, i, j, k, t) Yrhop[i][j][k]->Ygrad[t][v] 925 /*M3_VALSIT */ #define YG1_rhop(i, j, k, t) Yrhop[i][j][k]->Ygrad[t][0] 926 /*M3_HERESIT*/ #define YG1Y_rhop Yrhop[Yi][Yj][Yk]->Ygrad[YTemps][0] 927 rhop *Yrhop[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 844 928 845 929 //~~~~~~~~~~~~~~~~~~~~~~~~~ module hmf_TF_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 850 934 /*NBSMOD */ #define YNBS_hmf_TF_dynadv_cen2 4 851 935 /*NBIMOD */ #define YNBI_hmf_TF_dynadv_cen2 6 852 /*M3_VALST */ #define Ystate_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][v] 853 /*M3_VALST */ #define YS_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][v] 854 /*M3_VALSIT */ #define YS1_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][0] 855 /*M3_HERESIT*/ #define YS1Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 856 /*M3_VALSIT */ #define YS2_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][1] 857 /*M3_HERESIT*/ #define YS2Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1] 858 /*M3_VALSIT */ #define YS3_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][2] 859 /*M3_HERESIT*/ #define YS3Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][2] 860 /*M3_VALSIT */ #define YS4_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][3] 861 /*M3_HERESIT*/ #define YS4Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][3] 862 /*M3_VALST */ #define Ygrad_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][v] 863 /*M3_VALST */ #define YG_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][v] 864 /*M3_VALSIT */ #define YG1_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][0] 865 /*M3_HERESIT*/ #define YG1Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 866 /*M3_VALSIT */ #define YG2_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][1] 867 /*M3_HERESIT*/ #define YG2Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1] 868 /*M3_VALSIT */ #define YG3_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][2] 869 /*M3_HERESIT*/ #define YG3Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][2] 870 /*M3_VALSIT */ #define YG4_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][3] 871 /*M3_HERESIT*/ #define YG4Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][3] 872 hmf_TF_dynadv_cen2 *Yhmf_TF_dynadv_cen2; 936 /*M3_IRMOD */ #define Yhmf_TF_dynadv_cen2(i, j, k) Yhmf_TF_dynadv_cen2[i][j][k] 937 /*M3_NOWMOD */ #define Yhmf_TF_dynadv_cen2Y Yhmf_TF_dynadv_cen2[Yi][Yj][Yk] 938 /*M3_VALST */ #define Ystate_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][v] 939 /*M3_VALST */ #define YS_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][v] 940 /*M3_VALSIT */ #define YS1_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][0] 941 /*M3_HERESIT*/ #define YS1Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 942 /*M3_VALSIT */ #define YS2_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][1] 943 /*M3_HERESIT*/ #define YS2Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1] 944 /*M3_VALSIT */ #define YS3_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][2] 945 /*M3_HERESIT*/ #define YS3Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][2] 946 /*M3_VALSIT */ #define YS4_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][3] 947 /*M3_HERESIT*/ #define YS4Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][3] 948 /*M3_VALST */ #define Ygrad_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][v] 949 /*M3_VALST */ #define YG_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][v] 950 /*M3_VALSIT */ #define YG1_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][0] 951 /*M3_HERESIT*/ #define YG1Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 952 /*M3_VALSIT */ #define YG2_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][1] 953 /*M3_HERESIT*/ #define YG2Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1] 954 /*M3_VALSIT */ #define YG3_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][2] 955 /*M3_HERESIT*/ #define YG3Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][2] 956 /*M3_VALSIT */ #define YG4_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][3] 957 /*M3_HERESIT*/ #define YG4Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][3] 958 hmf_TF_dynadv_cen2 *Yhmf_TF_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 873 959 874 960 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zua_dhmf_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 879 965 /*NBSMOD */ #define YNBS_zua_dhmf_dynadv_cen2 1 880 966 /*NBIMOD */ #define YNBI_zua_dhmf_dynadv_cen2 4 881 /*M3_VALST */ #define Ystate_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2->Ystate[t][i][j][k][v] 882 /*M3_VALST */ #define YS_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2->Ystate[t][i][j][k][v] 883 /*M3_VALSIT */ #define YS1_zua_dhmf_dynadv_cen2(i, j, k, t) Yzua_dhmf_dynadv_cen2->Ystate[t][i][j][k][0] 884 /*M3_HERESIT*/ #define YS1Y_zua_dhmf_dynadv_cen2 Yzua_dhmf_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 885 /*M3_VALST */ #define Ygrad_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v] 886 /*M3_VALST */ #define YG_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v] 887 /*M3_VALSIT */ #define YG1_zua_dhmf_dynadv_cen2(i, j, k, t) Yzua_dhmf_dynadv_cen2->Ygrad[t][i][j][k][0] 888 /*M3_HERESIT*/ #define YG1Y_zua_dhmf_dynadv_cen2 Yzua_dhmf_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 889 zua_dhmf_dynadv_cen2 *Yzua_dhmf_dynadv_cen2; 967 /*M3_IRMOD */ #define Yzua_dhmf_dynadv_cen2(i, j, k) Yzua_dhmf_dynadv_cen2[i][j][k] 968 /*M3_NOWMOD */ #define Yzua_dhmf_dynadv_cen2Y Yzua_dhmf_dynadv_cen2[Yi][Yj][Yk] 969 /*M3_VALST */ #define Ystate_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v] 970 /*M3_VALST */ #define YS_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v] 971 /*M3_VALSIT */ #define YS1_zua_dhmf_dynadv_cen2(i, j, k, t) Yzua_dhmf_dynadv_cen2[i][j][k]->Ystate[t][0] 972 /*M3_HERESIT*/ #define YS1Y_zua_dhmf_dynadv_cen2 Yzua_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 973 /*M3_VALST */ #define Ygrad_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v] 974 /*M3_VALST */ #define YG_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v] 975 /*M3_VALSIT */ #define YG1_zua_dhmf_dynadv_cen2(i, j, k, t) Yzua_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][0] 976 /*M3_HERESIT*/ #define YG1Y_zua_dhmf_dynadv_cen2 Yzua_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 977 zua_dhmf_dynadv_cen2 *Yzua_dhmf_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 890 978 891 979 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zva_dhmf_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 896 984 /*NBSMOD */ #define YNBS_zva_dhmf_dynadv_cen2 1 897 985 /*NBIMOD */ #define YNBI_zva_dhmf_dynadv_cen2 4 898 /*M3_VALST */ #define Ystate_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2->Ystate[t][i][j][k][v] 899 /*M3_VALST */ #define YS_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2->Ystate[t][i][j][k][v] 900 /*M3_VALSIT */ #define YS1_zva_dhmf_dynadv_cen2(i, j, k, t) Yzva_dhmf_dynadv_cen2->Ystate[t][i][j][k][0] 901 /*M3_HERESIT*/ #define YS1Y_zva_dhmf_dynadv_cen2 Yzva_dhmf_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 902 /*M3_VALST */ #define Ygrad_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v] 903 /*M3_VALST */ #define YG_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v] 904 /*M3_VALSIT */ #define YG1_zva_dhmf_dynadv_cen2(i, j, k, t) Yzva_dhmf_dynadv_cen2->Ygrad[t][i][j][k][0] 905 /*M3_HERESIT*/ #define YG1Y_zva_dhmf_dynadv_cen2 Yzva_dhmf_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 906 zva_dhmf_dynadv_cen2 *Yzva_dhmf_dynadv_cen2; 986 /*M3_IRMOD */ #define Yzva_dhmf_dynadv_cen2(i, j, k) Yzva_dhmf_dynadv_cen2[i][j][k] 987 /*M3_NOWMOD */ #define Yzva_dhmf_dynadv_cen2Y Yzva_dhmf_dynadv_cen2[Yi][Yj][Yk] 988 /*M3_VALST */ #define Ystate_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v] 989 /*M3_VALST */ #define YS_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v] 990 /*M3_VALSIT */ #define YS1_zva_dhmf_dynadv_cen2(i, j, k, t) Yzva_dhmf_dynadv_cen2[i][j][k]->Ystate[t][0] 991 /*M3_HERESIT*/ #define YS1Y_zva_dhmf_dynadv_cen2 Yzva_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 992 /*M3_VALST */ #define Ygrad_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v] 993 /*M3_VALST */ #define YG_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v] 994 /*M3_VALSIT */ #define YG1_zva_dhmf_dynadv_cen2(i, j, k, t) Yzva_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][0] 995 /*M3_HERESIT*/ #define YG1Y_zva_dhmf_dynadv_cen2 Yzva_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 996 zva_dhmf_dynadv_cen2 *Yzva_dhmf_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 907 997 908 998 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zfuv_UW_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 913 1003 /*NBSMOD */ #define YNBS_zfuv_UW_dynadv_cen2 2 914 1004 /*NBIMOD */ #define YNBI_zfuv_UW_dynadv_cen2 7 915 /*M3_VALST */ #define Ystate_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][v] 916 /*M3_VALST */ #define YS_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][v] 917 /*M3_VALSIT */ #define YS1_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][0] 918 /*M3_HERESIT*/ #define YS1Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 919 /*M3_VALSIT */ #define YS2_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][1] 920 /*M3_HERESIT*/ #define YS2Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1] 921 /*M3_VALST */ #define Ygrad_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][v] 922 /*M3_VALST */ #define YG_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][v] 923 /*M3_VALSIT */ #define YG1_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][0] 924 /*M3_HERESIT*/ #define YG1Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 925 /*M3_VALSIT */ #define YG2_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][1] 926 /*M3_HERESIT*/ #define YG2Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1] 927 zfuv_UW_dynadv_cen2 *Yzfuv_UW_dynadv_cen2; 1005 /*M3_IRMOD */ #define Yzfuv_UW_dynadv_cen2(i, j, k) Yzfuv_UW_dynadv_cen2[i][j][k] 1006 /*M3_NOWMOD */ #define Yzfuv_UW_dynadv_cen2Y Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk] 1007 /*M3_VALST */ #define Ystate_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][v] 1008 /*M3_VALST */ #define YS_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][v] 1009 /*M3_VALSIT */ #define YS1_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][0] 1010 /*M3_HERESIT*/ #define YS1Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 1011 /*M3_VALSIT */ #define YS2_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][1] 1012 /*M3_HERESIT*/ #define YS2Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1] 1013 /*M3_VALST */ #define Ygrad_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][v] 1014 /*M3_VALST */ #define YG_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][v] 1015 /*M3_VALSIT */ #define YG1_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][0] 1016 /*M3_HERESIT*/ #define YG1Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 1017 /*M3_VALSIT */ #define YG2_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][1] 1018 /*M3_HERESIT*/ #define YG2Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1] 1019 zfuv_UW_dynadv_cen2 *Yzfuv_UW_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 928 1020 929 1021 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 934 1026 /*NBSMOD */ #define YNBS_ua_dynadv_cen2 1 935 1027 /*NBIMOD */ #define YNBI_ua_dynadv_cen2 3 936 /*M3_VALST */ #define Ystate_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2->Ystate[t][i][j][k][v] 937 /*M3_VALST */ #define YS_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2->Ystate[t][i][j][k][v] 938 /*M3_VALSIT */ #define YS1_ua_dynadv_cen2(i, j, k, t) Yua_dynadv_cen2->Ystate[t][i][j][k][0] 939 /*M3_HERESIT*/ #define YS1Y_ua_dynadv_cen2 Yua_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 940 /*M3_VALST */ #define Ygrad_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2->Ygrad[t][i][j][k][v] 941 /*M3_VALST */ #define YG_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2->Ygrad[t][i][j][k][v] 942 /*M3_VALSIT */ #define YG1_ua_dynadv_cen2(i, j, k, t) Yua_dynadv_cen2->Ygrad[t][i][j][k][0] 943 /*M3_HERESIT*/ #define YG1Y_ua_dynadv_cen2 Yua_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 944 ua_dynadv_cen2 *Yua_dynadv_cen2; 1028 /*M3_IRMOD */ #define Yua_dynadv_cen2(i, j, k) Yua_dynadv_cen2[i][j][k] 1029 /*M3_NOWMOD */ #define Yua_dynadv_cen2Y Yua_dynadv_cen2[Yi][Yj][Yk] 1030 /*M3_VALST */ #define Ystate_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2[i][j][k]->Ystate[t][v] 1031 /*M3_VALST */ #define YS_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2[i][j][k]->Ystate[t][v] 1032 /*M3_VALSIT */ #define YS1_ua_dynadv_cen2(i, j, k, t) Yua_dynadv_cen2[i][j][k]->Ystate[t][0] 1033 /*M3_HERESIT*/ #define YS1Y_ua_dynadv_cen2 Yua_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 1034 /*M3_VALST */ #define Ygrad_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2[i][j][k]->Ygrad[t][v] 1035 /*M3_VALST */ #define YG_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2[i][j][k]->Ygrad[t][v] 1036 /*M3_VALSIT */ #define YG1_ua_dynadv_cen2(i, j, k, t) Yua_dynadv_cen2[i][j][k]->Ygrad[t][0] 1037 /*M3_HERESIT*/ #define YG1Y_ua_dynadv_cen2 Yua_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 1038 ua_dynadv_cen2 *Yua_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 945 1039 946 1040 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 951 1045 /*NBSMOD */ #define YNBS_va_dynadv_cen2 1 952 1046 /*NBIMOD */ #define YNBI_va_dynadv_cen2 3 953 /*M3_VALST */ #define Ystate_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2->Ystate[t][i][j][k][v] 954 /*M3_VALST */ #define YS_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2->Ystate[t][i][j][k][v] 955 /*M3_VALSIT */ #define YS1_va_dynadv_cen2(i, j, k, t) Yva_dynadv_cen2->Ystate[t][i][j][k][0] 956 /*M3_HERESIT*/ #define YS1Y_va_dynadv_cen2 Yva_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 957 /*M3_VALST */ #define Ygrad_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2->Ygrad[t][i][j][k][v] 958 /*M3_VALST */ #define YG_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2->Ygrad[t][i][j][k][v] 959 /*M3_VALSIT */ #define YG1_va_dynadv_cen2(i, j, k, t) Yva_dynadv_cen2->Ygrad[t][i][j][k][0] 960 /*M3_HERESIT*/ #define YG1Y_va_dynadv_cen2 Yva_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 961 va_dynadv_cen2 *Yva_dynadv_cen2; 1047 /*M3_IRMOD */ #define Yva_dynadv_cen2(i, j, k) Yva_dynadv_cen2[i][j][k] 1048 /*M3_NOWMOD */ #define Yva_dynadv_cen2Y Yva_dynadv_cen2[Yi][Yj][Yk] 1049 /*M3_VALST */ #define Ystate_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2[i][j][k]->Ystate[t][v] 1050 /*M3_VALST */ #define YS_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2[i][j][k]->Ystate[t][v] 1051 /*M3_VALSIT */ #define YS1_va_dynadv_cen2(i, j, k, t) Yva_dynadv_cen2[i][j][k]->Ystate[t][0] 1052 /*M3_HERESIT*/ #define YS1Y_va_dynadv_cen2 Yva_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 1053 /*M3_VALST */ #define Ygrad_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2[i][j][k]->Ygrad[t][v] 1054 /*M3_VALST */ #define YG_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2[i][j][k]->Ygrad[t][v] 1055 /*M3_VALSIT */ #define YG1_va_dynadv_cen2(i, j, k, t) Yva_dynadv_cen2[i][j][k]->Ygrad[t][0] 1056 /*M3_HERESIT*/ #define YG1Y_va_dynadv_cen2 Yva_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 1057 va_dynadv_cen2 *Yva_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 962 1058 963 1059 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwxyz_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ … … 968 1064 /*NBSMOD */ #define YNBS_zwxyz_vor_ene 3 969 1065 /*NBIMOD */ #define YNBI_zwxyz_vor_ene 4 970 /*M3_VALST */ #define Ystate_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][v] 971 /*M3_VALST */ #define YS_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][v] 972 /*M3_VALSIT */ #define YS1_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][0] 973 /*M3_HERESIT*/ #define YS1Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ystate[YTemps][Yi][Yj][Yk][0] 974 /*M3_VALSIT */ #define YS2_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][1] 975 /*M3_HERESIT*/ #define YS2Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ystate[YTemps][Yi][Yj][Yk][1] 976 /*M3_VALSIT */ #define YS3_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][2] 977 /*M3_HERESIT*/ #define YS3Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ystate[YTemps][Yi][Yj][Yk][2] 978 /*M3_VALST */ #define Ygrad_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][v] 979 /*M3_VALST */ #define YG_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][v] 980 /*M3_VALSIT */ #define YG1_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][0] 981 /*M3_HERESIT*/ #define YG1Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][0] 982 /*M3_VALSIT */ #define YG2_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][1] 983 /*M3_HERESIT*/ #define YG2Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][1] 984 /*M3_VALSIT */ #define YG3_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][2] 985 /*M3_HERESIT*/ #define YG3Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][2] 986 zwxyz_vor_ene *Yzwxyz_vor_ene; 1066 /*M3_IRMOD */ #define Yzwxyz_vor_ene(i, j, k) Yzwxyz_vor_ene[i][j][k] 1067 /*M3_NOWMOD */ #define Yzwxyz_vor_eneY Yzwxyz_vor_ene[Yi][Yj][Yk] 1068 /*M3_VALST */ #define Ystate_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ystate[t][v] 1069 /*M3_VALST */ #define YS_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ystate[t][v] 1070 /*M3_VALSIT */ #define YS1_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ystate[t][0] 1071 /*M3_HERESIT*/ #define YS1Y_zwxyz_vor_ene Yzwxyz_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][0] 1072 /*M3_VALSIT */ #define YS2_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ystate[t][1] 1073 /*M3_HERESIT*/ #define YS2Y_zwxyz_vor_ene Yzwxyz_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][1] 1074 /*M3_VALSIT */ #define YS3_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ystate[t][2] 1075 /*M3_HERESIT*/ #define YS3Y_zwxyz_vor_ene Yzwxyz_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][2] 1076 /*M3_VALST */ #define Ygrad_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ygrad[t][v] 1077 /*M3_VALST */ #define YG_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ygrad[t][v] 1078 /*M3_VALSIT */ #define YG1_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ygrad[t][0] 1079 /*M3_HERESIT*/ #define YG1Y_zwxyz_vor_ene Yzwxyz_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][0] 1080 /*M3_VALSIT */ #define YG2_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ygrad[t][1] 1081 /*M3_HERESIT*/ #define YG2Y_zwxyz_vor_ene Yzwxyz_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][1] 1082 /*M3_VALSIT */ #define YG3_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ygrad[t][2] 1083 /*M3_HERESIT*/ #define YG3Y_zwxyz_vor_ene Yzwxyz_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][2] 1084 zwxyz_vor_ene *Yzwxyz_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 987 1085 988 1086 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ … … 993 1091 /*NBSMOD */ #define YNBS_ua_vor_ene 1 994 1092 /*NBIMOD */ #define YNBI_ua_vor_ene 7 995 /*M3_VALST */ #define Ystate_ua_vor_ene(v, i, j, k, t) Yua_vor_ene->Ystate[t][i][j][k][v] 996 /*M3_VALST */ #define YS_ua_vor_ene(v, i, j, k, t) Yua_vor_ene->Ystate[t][i][j][k][v] 997 /*M3_VALSIT */ #define YS1_ua_vor_ene(i, j, k, t) Yua_vor_ene->Ystate[t][i][j][k][0] 998 /*M3_HERESIT*/ #define YS1Y_ua_vor_ene Yua_vor_ene->Ystate[YTemps][Yi][Yj][Yk][0] 999 /*M3_VALST */ #define Ygrad_ua_vor_ene(v, i, j, k, t) Yua_vor_ene->Ygrad[t][i][j][k][v] 1000 /*M3_VALST */ #define YG_ua_vor_ene(v, i, j, k, t) Yua_vor_ene->Ygrad[t][i][j][k][v] 1001 /*M3_VALSIT */ #define YG1_ua_vor_ene(i, j, k, t) Yua_vor_ene->Ygrad[t][i][j][k][0] 1002 /*M3_HERESIT*/ #define YG1Y_ua_vor_ene Yua_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][0] 1003 ua_vor_ene *Yua_vor_ene; 1093 /*M3_IRMOD */ #define Yua_vor_ene(i, j, k) Yua_vor_ene[i][j][k] 1094 /*M3_NOWMOD */ #define Yua_vor_eneY Yua_vor_ene[Yi][Yj][Yk] 1095 /*M3_VALST */ #define Ystate_ua_vor_ene(v, i, j, k, t) Yua_vor_ene[i][j][k]->Ystate[t][v] 1096 /*M3_VALST */ #define YS_ua_vor_ene(v, i, j, k, t) Yua_vor_ene[i][j][k]->Ystate[t][v] 1097 /*M3_VALSIT */ #define YS1_ua_vor_ene(i, j, k, t) Yua_vor_ene[i][j][k]->Ystate[t][0] 1098 /*M3_HERESIT*/ #define YS1Y_ua_vor_ene Yua_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][0] 1099 /*M3_VALST */ #define Ygrad_ua_vor_ene(v, i, j, k, t) Yua_vor_ene[i][j][k]->Ygrad[t][v] 1100 /*M3_VALST */ #define YG_ua_vor_ene(v, i, j, k, t) Yua_vor_ene[i][j][k]->Ygrad[t][v] 1101 /*M3_VALSIT */ #define YG1_ua_vor_ene(i, j, k, t) Yua_vor_ene[i][j][k]->Ygrad[t][0] 1102 /*M3_HERESIT*/ #define YG1Y_ua_vor_ene Yua_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][0] 1103 ua_vor_ene *Yua_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1004 1104 1005 1105 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1010 1110 /*NBSMOD */ #define YNBS_va_vor_ene 1 1011 1111 /*NBIMOD */ #define YNBI_va_vor_ene 7 1012 /*M3_VALST */ #define Ystate_va_vor_ene(v, i, j, k, t) Yva_vor_ene->Ystate[t][i][j][k][v] 1013 /*M3_VALST */ #define YS_va_vor_ene(v, i, j, k, t) Yva_vor_ene->Ystate[t][i][j][k][v] 1014 /*M3_VALSIT */ #define YS1_va_vor_ene(i, j, k, t) Yva_vor_ene->Ystate[t][i][j][k][0] 1015 /*M3_HERESIT*/ #define YS1Y_va_vor_ene Yva_vor_ene->Ystate[YTemps][Yi][Yj][Yk][0] 1016 /*M3_VALST */ #define Ygrad_va_vor_ene(v, i, j, k, t) Yva_vor_ene->Ygrad[t][i][j][k][v] 1017 /*M3_VALST */ #define YG_va_vor_ene(v, i, j, k, t) Yva_vor_ene->Ygrad[t][i][j][k][v] 1018 /*M3_VALSIT */ #define YG1_va_vor_ene(i, j, k, t) Yva_vor_ene->Ygrad[t][i][j][k][0] 1019 /*M3_HERESIT*/ #define YG1Y_va_vor_ene Yva_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][0] 1020 va_vor_ene *Yva_vor_ene; 1112 /*M3_IRMOD */ #define Yva_vor_ene(i, j, k) Yva_vor_ene[i][j][k] 1113 /*M3_NOWMOD */ #define Yva_vor_eneY Yva_vor_ene[Yi][Yj][Yk] 1114 /*M3_VALST */ #define Ystate_va_vor_ene(v, i, j, k, t) Yva_vor_ene[i][j][k]->Ystate[t][v] 1115 /*M3_VALST */ #define YS_va_vor_ene(v, i, j, k, t) Yva_vor_ene[i][j][k]->Ystate[t][v] 1116 /*M3_VALSIT */ #define YS1_va_vor_ene(i, j, k, t) Yva_vor_ene[i][j][k]->Ystate[t][0] 1117 /*M3_HERESIT*/ #define YS1Y_va_vor_ene Yva_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][0] 1118 /*M3_VALST */ #define Ygrad_va_vor_ene(v, i, j, k, t) Yva_vor_ene[i][j][k]->Ygrad[t][v] 1119 /*M3_VALST */ #define YG_va_vor_ene(v, i, j, k, t) Yva_vor_ene[i][j][k]->Ygrad[t][v] 1120 /*M3_VALSIT */ #define YG1_va_vor_ene(i, j, k, t) Yva_vor_ene[i][j][k]->Ygrad[t][0] 1121 /*M3_HERESIT*/ #define YG1Y_va_vor_ene Yva_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][0] 1122 va_vor_ene *Yva_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1021 1123 1022 1124 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dyn_ldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1027 1129 /*NBSMOD */ #define YNBS_ua_dyn_ldf_lap 1 1028 1130 /*NBIMOD */ #define YNBI_ua_dyn_ldf_lap 5 1029 /*M3_VALST */ #define Ystate_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap->Ystate[t][i][j][k][v] 1030 /*M3_VALST */ #define YS_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap->Ystate[t][i][j][k][v] 1031 /*M3_VALSIT */ #define YS1_ua_dyn_ldf_lap(i, j, k, t) Yua_dyn_ldf_lap->Ystate[t][i][j][k][0] 1032 /*M3_HERESIT*/ #define YS1Y_ua_dyn_ldf_lap Yua_dyn_ldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 1033 /*M3_VALST */ #define Ygrad_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap->Ygrad[t][i][j][k][v] 1034 /*M3_VALST */ #define YG_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap->Ygrad[t][i][j][k][v] 1035 /*M3_VALSIT */ #define YG1_ua_dyn_ldf_lap(i, j, k, t) Yua_dyn_ldf_lap->Ygrad[t][i][j][k][0] 1036 /*M3_HERESIT*/ #define YG1Y_ua_dyn_ldf_lap Yua_dyn_ldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 1037 ua_dyn_ldf_lap *Yua_dyn_ldf_lap; 1131 /*M3_IRMOD */ #define Yua_dyn_ldf_lap(i, j, k) Yua_dyn_ldf_lap[i][j][k] 1132 /*M3_NOWMOD */ #define Yua_dyn_ldf_lapY Yua_dyn_ldf_lap[Yi][Yj][Yk] 1133 /*M3_VALST */ #define Ystate_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap[i][j][k]->Ystate[t][v] 1134 /*M3_VALST */ #define YS_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap[i][j][k]->Ystate[t][v] 1135 /*M3_VALSIT */ #define YS1_ua_dyn_ldf_lap(i, j, k, t) Yua_dyn_ldf_lap[i][j][k]->Ystate[t][0] 1136 /*M3_HERESIT*/ #define YS1Y_ua_dyn_ldf_lap Yua_dyn_ldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 1137 /*M3_VALST */ #define Ygrad_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap[i][j][k]->Ygrad[t][v] 1138 /*M3_VALST */ #define YG_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap[i][j][k]->Ygrad[t][v] 1139 /*M3_VALSIT */ #define YG1_ua_dyn_ldf_lap(i, j, k, t) Yua_dyn_ldf_lap[i][j][k]->Ygrad[t][0] 1140 /*M3_HERESIT*/ #define YG1Y_ua_dyn_ldf_lap Yua_dyn_ldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 1141 ua_dyn_ldf_lap *Yua_dyn_ldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1038 1142 1039 1143 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dyn_ldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1044 1148 /*NBSMOD */ #define YNBS_va_dyn_ldf_lap 1 1045 1149 /*NBIMOD */ #define YNBI_va_dyn_ldf_lap 5 1046 /*M3_VALST */ #define Ystate_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap->Ystate[t][i][j][k][v] 1047 /*M3_VALST */ #define YS_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap->Ystate[t][i][j][k][v] 1048 /*M3_VALSIT */ #define YS1_va_dyn_ldf_lap(i, j, k, t) Yva_dyn_ldf_lap->Ystate[t][i][j][k][0] 1049 /*M3_HERESIT*/ #define YS1Y_va_dyn_ldf_lap Yva_dyn_ldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 1050 /*M3_VALST */ #define Ygrad_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap->Ygrad[t][i][j][k][v] 1051 /*M3_VALST */ #define YG_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap->Ygrad[t][i][j][k][v] 1052 /*M3_VALSIT */ #define YG1_va_dyn_ldf_lap(i, j, k, t) Yva_dyn_ldf_lap->Ygrad[t][i][j][k][0] 1053 /*M3_HERESIT*/ #define YG1Y_va_dyn_ldf_lap Yva_dyn_ldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 1054 va_dyn_ldf_lap *Yva_dyn_ldf_lap; 1150 /*M3_IRMOD */ #define Yva_dyn_ldf_lap(i, j, k) Yva_dyn_ldf_lap[i][j][k] 1151 /*M3_NOWMOD */ #define Yva_dyn_ldf_lapY Yva_dyn_ldf_lap[Yi][Yj][Yk] 1152 /*M3_VALST */ #define Ystate_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap[i][j][k]->Ystate[t][v] 1153 /*M3_VALST */ #define YS_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap[i][j][k]->Ystate[t][v] 1154 /*M3_VALSIT */ #define YS1_va_dyn_ldf_lap(i, j, k, t) Yva_dyn_ldf_lap[i][j][k]->Ystate[t][0] 1155 /*M3_HERESIT*/ #define YS1Y_va_dyn_ldf_lap Yva_dyn_ldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 1156 /*M3_VALST */ #define Ygrad_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap[i][j][k]->Ygrad[t][v] 1157 /*M3_VALST */ #define YG_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap[i][j][k]->Ygrad[t][v] 1158 /*M3_VALSIT */ #define YG1_va_dyn_ldf_lap(i, j, k, t) Yva_dyn_ldf_lap[i][j][k]->Ygrad[t][0] 1159 /*M3_HERESIT*/ #define YG1Y_va_dyn_ldf_lap Yva_dyn_ldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 1160 va_dyn_ldf_lap *Yva_dyn_ldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1055 1161 1056 1162 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zhpij_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1061 1167 /*NBSMOD */ #define YNBS_zhpij_dyn_hpg_zco 2 1062 1168 /*NBIMOD */ #define YNBI_zhpij_dyn_hpg_zco 8 1063 /*M3_VALST */ #define Ystate_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][v] 1064 /*M3_VALST */ #define YS_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][v] 1065 /*M3_VALSIT */ #define YS1_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][0] 1066 /*M3_HERESIT*/ #define YS1Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][0] 1067 /*M3_VALSIT */ #define YS2_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][1] 1068 /*M3_HERESIT*/ #define YS2Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][1] 1069 /*M3_VALST */ #define Ygrad_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1070 /*M3_VALST */ #define YG_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1071 /*M3_VALSIT */ #define YG1_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][0] 1072 /*M3_HERESIT*/ #define YG1Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][0] 1073 /*M3_VALSIT */ #define YG2_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][1] 1074 /*M3_HERESIT*/ #define YG2Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][1] 1075 zhpij_dyn_hpg_zco *Yzhpij_dyn_hpg_zco; 1169 /*M3_IRMOD */ #define Yzhpij_dyn_hpg_zco(i, j, k) Yzhpij_dyn_hpg_zco[i][j][k] 1170 /*M3_NOWMOD */ #define Yzhpij_dyn_hpg_zcoY Yzhpij_dyn_hpg_zco[Yi][Yj][Yk] 1171 /*M3_VALST */ #define Ystate_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][v] 1172 /*M3_VALST */ #define YS_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][v] 1173 /*M3_VALSIT */ #define YS1_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][0] 1174 /*M3_HERESIT*/ #define YS1Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][0] 1175 /*M3_VALSIT */ #define YS2_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][1] 1176 /*M3_HERESIT*/ #define YS2Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][1] 1177 /*M3_VALST */ #define Ygrad_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 1178 /*M3_VALST */ #define YG_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 1179 /*M3_VALSIT */ #define YG1_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][0] 1180 /*M3_HERESIT*/ #define YG1Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][0] 1181 /*M3_VALSIT */ #define YG2_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][1] 1182 /*M3_HERESIT*/ #define YG2Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][1] 1183 zhpij_dyn_hpg_zco *Yzhpij_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1076 1184 1077 1185 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1082 1190 /*NBSMOD */ #define YNBS_ua_dyn_hpg_zco 1 1083 1191 /*NBIMOD */ #define YNBI_ua_dyn_hpg_zco 2 1084 /*M3_VALST */ #define Ystate_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco->Ystate[t][i][j][k][v] 1085 /*M3_VALST */ #define YS_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco->Ystate[t][i][j][k][v] 1086 /*M3_VALSIT */ #define YS1_ua_dyn_hpg_zco(i, j, k, t) Yua_dyn_hpg_zco->Ystate[t][i][j][k][0] 1087 /*M3_HERESIT*/ #define YS1Y_ua_dyn_hpg_zco Yua_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][0] 1088 /*M3_VALST */ #define Ygrad_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1089 /*M3_VALST */ #define YG_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1090 /*M3_VALSIT */ #define YG1_ua_dyn_hpg_zco(i, j, k, t) Yua_dyn_hpg_zco->Ygrad[t][i][j][k][0] 1091 /*M3_HERESIT*/ #define YG1Y_ua_dyn_hpg_zco Yua_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][0] 1092 ua_dyn_hpg_zco *Yua_dyn_hpg_zco; 1192 /*M3_IRMOD */ #define Yua_dyn_hpg_zco(i, j, k) Yua_dyn_hpg_zco[i][j][k] 1193 /*M3_NOWMOD */ #define Yua_dyn_hpg_zcoY Yua_dyn_hpg_zco[Yi][Yj][Yk] 1194 /*M3_VALST */ #define Ystate_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco[i][j][k]->Ystate[t][v] 1195 /*M3_VALST */ #define YS_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco[i][j][k]->Ystate[t][v] 1196 /*M3_VALSIT */ #define YS1_ua_dyn_hpg_zco(i, j, k, t) Yua_dyn_hpg_zco[i][j][k]->Ystate[t][0] 1197 /*M3_HERESIT*/ #define YS1Y_ua_dyn_hpg_zco Yua_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][0] 1198 /*M3_VALST */ #define Ygrad_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 1199 /*M3_VALST */ #define YG_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 1200 /*M3_VALSIT */ #define YG1_ua_dyn_hpg_zco(i, j, k, t) Yua_dyn_hpg_zco[i][j][k]->Ygrad[t][0] 1201 /*M3_HERESIT*/ #define YG1Y_ua_dyn_hpg_zco Yua_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][0] 1202 ua_dyn_hpg_zco *Yua_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1093 1203 1094 1204 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1097 1207 /*NBSMOD */ #define YNBS_va_dyn_hpg_zco 1 1098 1208 /*NBIMOD */ #define YNBI_va_dyn_hpg_zco 2 1099 /*M3_VALST */ #define Ystate_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco->Ystate[t][i][j][k][v] 1100 /*M3_VALST */ #define YS_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco->Ystate[t][i][j][k][v] 1101 /*M3_VALSIT */ #define YS1_va_dyn_hpg_zco(i, j, k, t) Yva_dyn_hpg_zco->Ystate[t][i][j][k][0] 1102 /*M3_HERESIT*/ #define YS1Y_va_dyn_hpg_zco Yva_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][0] 1103 /*M3_VALST */ #define Ygrad_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1104 /*M3_VALST */ #define YG_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1105 /*M3_VALSIT */ #define YG1_va_dyn_hpg_zco(i, j, k, t) Yva_dyn_hpg_zco->Ygrad[t][i][j][k][0] 1106 /*M3_HERESIT*/ #define YG1Y_va_dyn_hpg_zco Yva_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][0] 1107 va_dyn_hpg_zco *Yva_dyn_hpg_zco; 1209 /*M3_IRMOD */ #define Yva_dyn_hpg_zco(i, j, k) Yva_dyn_hpg_zco[i][j][k] 1210 /*M3_NOWMOD */ #define Yva_dyn_hpg_zcoY Yva_dyn_hpg_zco[Yi][Yj][Yk] 1211 /*M3_VALST */ #define Ystate_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco[i][j][k]->Ystate[t][v] 1212 /*M3_VALST */ #define YS_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco[i][j][k]->Ystate[t][v] 1213 /*M3_VALSIT */ #define YS1_va_dyn_hpg_zco(i, j, k, t) Yva_dyn_hpg_zco[i][j][k]->Ystate[t][0] 1214 /*M3_HERESIT*/ #define YS1Y_va_dyn_hpg_zco Yva_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][0] 1215 /*M3_VALST */ #define Ygrad_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 1216 /*M3_VALST */ #define YG_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 1217 /*M3_VALSIT */ #define YG1_va_dyn_hpg_zco(i, j, k, t) Yva_dyn_hpg_zco[i][j][k]->Ygrad[t][0] 1218 /*M3_HERESIT*/ #define YG1Y_va_dyn_hpg_zco Yva_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][0] 1219 va_dyn_hpg_zco *Yva_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1108 1220 1109 1221 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1114 1226 /*NBSMOD */ #define YNBS_zwisd_ua_dynzdf_imp 3 1115 1227 /*NBIMOD */ #define YNBI_zwisd_ua_dynzdf_imp 2 1116 /*M3_VALST */ #define Ystate_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1117 /*M3_VALST */ #define YS_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1118 /*M3_VALSIT */ #define YS1_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][0] 1119 /*M3_HERESIT*/ #define YS1Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1120 /*M3_VALSIT */ #define YS2_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][1] 1121 /*M3_HERESIT*/ #define YS2Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][1] 1122 /*M3_VALSIT */ #define YS3_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][2] 1123 /*M3_HERESIT*/ #define YS3Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][2] 1124 /*M3_VALST */ #define Ygrad_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1125 /*M3_VALST */ #define YG_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1126 /*M3_VALSIT */ #define YG1_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][0] 1127 /*M3_HERESIT*/ #define YG1Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1128 /*M3_VALSIT */ #define YG2_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][1] 1129 /*M3_HERESIT*/ #define YG2Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][1] 1130 /*M3_VALSIT */ #define YG3_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][2] 1131 /*M3_HERESIT*/ #define YG3Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][2] 1132 zwisd_ua_dynzdf_imp *Yzwisd_ua_dynzdf_imp; 1228 /*M3_IRMOD */ #define Yzwisd_ua_dynzdf_imp(i, j, k) Yzwisd_ua_dynzdf_imp[i][j][k] 1229 /*M3_NOWMOD */ #define Yzwisd_ua_dynzdf_impY Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk] 1230 /*M3_VALST */ #define Ystate_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 1231 /*M3_VALST */ #define YS_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 1232 /*M3_VALSIT */ #define YS1_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][0] 1233 /*M3_HERESIT*/ #define YS1Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1234 /*M3_VALSIT */ #define YS2_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][1] 1235 /*M3_HERESIT*/ #define YS2Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][1] 1236 /*M3_VALSIT */ #define YS3_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][2] 1237 /*M3_HERESIT*/ #define YS3Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][2] 1238 /*M3_VALST */ #define Ygrad_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1239 /*M3_VALST */ #define YG_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1240 /*M3_VALSIT */ #define YG1_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][0] 1241 /*M3_HERESIT*/ #define YG1Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1242 /*M3_VALSIT */ #define YG2_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][1] 1243 /*M3_HERESIT*/ #define YG2Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][1] 1244 /*M3_VALSIT */ #define YG3_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][2] 1245 /*M3_HERESIT*/ #define YG3Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][2] 1246 zwisd_ua_dynzdf_imp *Yzwisd_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1133 1247 1134 1248 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1139 1253 /*NBSMOD */ #define YNBS_zwisd_va_dynzdf_imp 3 1140 1254 /*NBIMOD */ #define YNBI_zwisd_va_dynzdf_imp 2 1141 /*M3_VALST */ #define Ystate_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][v] 1142 /*M3_VALST */ #define YS_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][v] 1143 /*M3_VALSIT */ #define YS1_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][0] 1144 /*M3_HERESIT*/ #define YS1Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1145 /*M3_VALSIT */ #define YS2_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][1] 1146 /*M3_HERESIT*/ #define YS2Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][1] 1147 /*M3_VALSIT */ #define YS3_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][2] 1148 /*M3_HERESIT*/ #define YS3Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][2] 1149 /*M3_VALST */ #define Ygrad_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1150 /*M3_VALST */ #define YG_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1151 /*M3_VALSIT */ #define YG1_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][0] 1152 /*M3_HERESIT*/ #define YG1Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1153 /*M3_VALSIT */ #define YG2_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][1] 1154 /*M3_HERESIT*/ #define YG2Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][1] 1155 /*M3_VALSIT */ #define YG3_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][2] 1156 /*M3_HERESIT*/ #define YG3Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][2] 1157 zwisd_va_dynzdf_imp *Yzwisd_va_dynzdf_imp; 1255 /*M3_IRMOD */ #define Yzwisd_va_dynzdf_imp(i, j, k) Yzwisd_va_dynzdf_imp[i][j][k] 1256 /*M3_NOWMOD */ #define Yzwisd_va_dynzdf_impY Yzwisd_va_dynzdf_imp[Yi][Yj][Yk] 1257 /*M3_VALST */ #define Ystate_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][v] 1258 /*M3_VALST */ #define YS_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][v] 1259 /*M3_VALSIT */ #define YS1_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][0] 1260 /*M3_HERESIT*/ #define YS1Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1261 /*M3_VALSIT */ #define YS2_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][1] 1262 /*M3_HERESIT*/ #define YS2Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][1] 1263 /*M3_VALSIT */ #define YS3_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][2] 1264 /*M3_HERESIT*/ #define YS3Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][2] 1265 /*M3_VALST */ #define Ygrad_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 1266 /*M3_VALST */ #define YG_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 1267 /*M3_VALSIT */ #define YG1_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][0] 1268 /*M3_HERESIT*/ #define YG1Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1269 /*M3_VALSIT */ #define YG2_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][1] 1270 /*M3_HERESIT*/ #define YG2Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][1] 1271 /*M3_VALSIT */ #define YG3_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][2] 1272 /*M3_HERESIT*/ #define YG3Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][2] 1273 zwisd_va_dynzdf_imp *Yzwisd_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1158 1274 1159 1275 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1164 1280 /*NBSMOD */ #define YNBS_zrhs_ua_dynzdf_imp 1 1165 1281 /*NBIMOD */ #define YNBI_zrhs_ua_dynzdf_imp 3 1166 /*M3_VALST */ #define Ystate_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1167 /*M3_VALST */ #define YS_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1168 /*M3_VALSIT */ #define YS1_zrhs_ua_dynzdf_imp(i, j, k, t) Yzrhs_ua_dynzdf_imp->Ystate[t][i][j][k][0] 1169 /*M3_HERESIT*/ #define YS1Y_zrhs_ua_dynzdf_imp Yzrhs_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1170 /*M3_VALST */ #define Ygrad_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1171 /*M3_VALST */ #define YG_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1172 /*M3_VALSIT */ #define YG1_zrhs_ua_dynzdf_imp(i, j, k, t) Yzrhs_ua_dynzdf_imp->Ygrad[t][i][j][k][0] 1173 /*M3_HERESIT*/ #define YG1Y_zrhs_ua_dynzdf_imp Yzrhs_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1174 zrhs_ua_dynzdf_imp *Yzrhs_ua_dynzdf_imp; 1282 /*M3_IRMOD */ #define Yzrhs_ua_dynzdf_imp(i, j, k) Yzrhs_ua_dynzdf_imp[i][j][k] 1283 /*M3_NOWMOD */ #define Yzrhs_ua_dynzdf_impY Yzrhs_ua_dynzdf_imp[Yi][Yj][Yk] 1284 /*M3_VALST */ #define Ystate_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 1285 /*M3_VALST */ #define YS_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 1286 /*M3_VALSIT */ #define YS1_zrhs_ua_dynzdf_imp(i, j, k, t) Yzrhs_ua_dynzdf_imp[i][j][k]->Ystate[t][0] 1287 /*M3_HERESIT*/ #define YS1Y_zrhs_ua_dynzdf_imp Yzrhs_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1288 /*M3_VALST */ #define Ygrad_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1289 /*M3_VALST */ #define YG_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1290 /*M3_VALSIT */ #define YG1_zrhs_ua_dynzdf_imp(i, j, k, t) Yzrhs_ua_dynzdf_imp[i][j][k]->Ygrad[t][0] 1291 /*M3_HERESIT*/ #define YG1Y_zrhs_ua_dynzdf_imp Yzrhs_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1292 zrhs_ua_dynzdf_imp *Yzrhs_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1175 1293 1176 1294 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1181 1299 /*NBSMOD */ #define YNBS_zrhs_va_dynzdf_imp 1 1182 1300 /*NBIMOD */ #define YNBI_zrhs_va_dynzdf_imp 3 1183 /*M3_VALST */ #define Ystate_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp->Ystate[t][i][j][k][v] 1184 /*M3_VALST */ #define YS_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp->Ystate[t][i][j][k][v] 1185 /*M3_VALSIT */ #define YS1_zrhs_va_dynzdf_imp(i, j, k, t) Yzrhs_va_dynzdf_imp->Ystate[t][i][j][k][0] 1186 /*M3_HERESIT*/ #define YS1Y_zrhs_va_dynzdf_imp Yzrhs_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1187 /*M3_VALST */ #define Ygrad_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1188 /*M3_VALST */ #define YG_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1189 /*M3_VALSIT */ #define YG1_zrhs_va_dynzdf_imp(i, j, k, t) Yzrhs_va_dynzdf_imp->Ygrad[t][i][j][k][0] 1190 /*M3_HERESIT*/ #define YG1Y_zrhs_va_dynzdf_imp Yzrhs_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1191 zrhs_va_dynzdf_imp *Yzrhs_va_dynzdf_imp; 1301 /*M3_IRMOD */ #define Yzrhs_va_dynzdf_imp(i, j, k) Yzrhs_va_dynzdf_imp[i][j][k] 1302 /*M3_NOWMOD */ #define Yzrhs_va_dynzdf_impY Yzrhs_va_dynzdf_imp[Yi][Yj][Yk] 1303 /*M3_VALST */ #define Ystate_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp[i][j][k]->Ystate[t][v] 1304 /*M3_VALST */ #define YS_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp[i][j][k]->Ystate[t][v] 1305 /*M3_VALSIT */ #define YS1_zrhs_va_dynzdf_imp(i, j, k, t) Yzrhs_va_dynzdf_imp[i][j][k]->Ystate[t][0] 1306 /*M3_HERESIT*/ #define YS1Y_zrhs_va_dynzdf_imp Yzrhs_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1307 /*M3_VALST */ #define Ygrad_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 1308 /*M3_VALST */ #define YG_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 1309 /*M3_VALSIT */ #define YG1_zrhs_va_dynzdf_imp(i, j, k, t) Yzrhs_va_dynzdf_imp[i][j][k]->Ygrad[t][0] 1310 /*M3_HERESIT*/ #define YG1Y_zrhs_va_dynzdf_imp Yzrhs_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1311 zrhs_va_dynzdf_imp *Yzrhs_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1192 1312 1193 1313 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1196 1316 /*NBSMOD */ #define YNBS_zwt_ua_dynzdf_imp 1 1197 1317 /*NBIMOD */ #define YNBI_zwt_ua_dynzdf_imp 4 1198 /*M3_VALST */ #define Ystate_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1199 /*M3_VALST */ #define YS_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1200 /*M3_VALSIT */ #define YS1_zwt_ua_dynzdf_imp(i, j, k, t) Yzwt_ua_dynzdf_imp->Ystate[t][i][j][k][0] 1201 /*M3_HERESIT*/ #define YS1Y_zwt_ua_dynzdf_imp Yzwt_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1202 /*M3_VALST */ #define Ygrad_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1203 /*M3_VALST */ #define YG_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1204 /*M3_VALSIT */ #define YG1_zwt_ua_dynzdf_imp(i, j, k, t) Yzwt_ua_dynzdf_imp->Ygrad[t][i][j][k][0] 1205 /*M3_HERESIT*/ #define YG1Y_zwt_ua_dynzdf_imp Yzwt_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1206 zwt_ua_dynzdf_imp *Yzwt_ua_dynzdf_imp; 1318 /*M3_IRMOD */ #define Yzwt_ua_dynzdf_imp(i, j, k) Yzwt_ua_dynzdf_imp[i][j][k] 1319 /*M3_NOWMOD */ #define Yzwt_ua_dynzdf_impY Yzwt_ua_dynzdf_imp[Yi][Yj][Yk] 1320 /*M3_VALST */ #define Ystate_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 1321 /*M3_VALST */ #define YS_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 1322 /*M3_VALSIT */ #define YS1_zwt_ua_dynzdf_imp(i, j, k, t) Yzwt_ua_dynzdf_imp[i][j][k]->Ystate[t][0] 1323 /*M3_HERESIT*/ #define YS1Y_zwt_ua_dynzdf_imp Yzwt_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1324 /*M3_VALST */ #define Ygrad_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1325 /*M3_VALST */ #define YG_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1326 /*M3_VALSIT */ #define YG1_zwt_ua_dynzdf_imp(i, j, k, t) Yzwt_ua_dynzdf_imp[i][j][k]->Ygrad[t][0] 1327 /*M3_HERESIT*/ #define YG1Y_zwt_ua_dynzdf_imp Yzwt_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1328 zwt_ua_dynzdf_imp *Yzwt_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1207 1329 1208 1330 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1211 1333 /*NBSMOD */ #define YNBS_zwt_va_dynzdf_imp 1 1212 1334 /*NBIMOD */ #define YNBI_zwt_va_dynzdf_imp 4 1213 /*M3_VALST */ #define Ystate_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp->Ystate[t][i][j][k][v] 1214 /*M3_VALST */ #define YS_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp->Ystate[t][i][j][k][v] 1215 /*M3_VALSIT */ #define YS1_zwt_va_dynzdf_imp(i, j, k, t) Yzwt_va_dynzdf_imp->Ystate[t][i][j][k][0] 1216 /*M3_HERESIT*/ #define YS1Y_zwt_va_dynzdf_imp Yzwt_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1217 /*M3_VALST */ #define Ygrad_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1218 /*M3_VALST */ #define YG_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1219 /*M3_VALSIT */ #define YG1_zwt_va_dynzdf_imp(i, j, k, t) Yzwt_va_dynzdf_imp->Ygrad[t][i][j][k][0] 1220 /*M3_HERESIT*/ #define YG1Y_zwt_va_dynzdf_imp Yzwt_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1221 zwt_va_dynzdf_imp *Yzwt_va_dynzdf_imp; 1335 /*M3_IRMOD */ #define Yzwt_va_dynzdf_imp(i, j, k) Yzwt_va_dynzdf_imp[i][j][k] 1336 /*M3_NOWMOD */ #define Yzwt_va_dynzdf_impY Yzwt_va_dynzdf_imp[Yi][Yj][Yk] 1337 /*M3_VALST */ #define Ystate_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp[i][j][k]->Ystate[t][v] 1338 /*M3_VALST */ #define YS_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp[i][j][k]->Ystate[t][v] 1339 /*M3_VALSIT */ #define YS1_zwt_va_dynzdf_imp(i, j, k, t) Yzwt_va_dynzdf_imp[i][j][k]->Ystate[t][0] 1340 /*M3_HERESIT*/ #define YS1Y_zwt_va_dynzdf_imp Yzwt_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1341 /*M3_VALST */ #define Ygrad_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 1342 /*M3_VALST */ #define YG_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 1343 /*M3_VALSIT */ #define YG1_zwt_va_dynzdf_imp(i, j, k, t) Yzwt_va_dynzdf_imp[i][j][k]->Ygrad[t][0] 1344 /*M3_HERESIT*/ #define YG1Y_zwt_va_dynzdf_imp Yzwt_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1345 zwt_va_dynzdf_imp *Yzwt_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1222 1346 1223 1347 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_de_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1226 1350 /*NBSMOD */ #define YNBS_ua_de_dynzdf_imp 1 1227 1351 /*NBIMOD */ #define YNBI_ua_de_dynzdf_imp 4 1228 /*M3_VALST */ #define Ystate_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp->Ystate[t][i][j][k][v] 1229 /*M3_VALST */ #define YS_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp->Ystate[t][i][j][k][v] 1230 /*M3_VALSIT */ #define YS1_ua_de_dynzdf_imp(i, j, k, t) Yua_de_dynzdf_imp->Ystate[t][i][j][k][0] 1231 /*M3_HERESIT*/ #define YS1Y_ua_de_dynzdf_imp Yua_de_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1232 /*M3_VALST */ #define Ygrad_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp->Ygrad[t][i][j][k][v] 1233 /*M3_VALST */ #define YG_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp->Ygrad[t][i][j][k][v] 1234 /*M3_VALSIT */ #define YG1_ua_de_dynzdf_imp(i, j, k, t) Yua_de_dynzdf_imp->Ygrad[t][i][j][k][0] 1235 /*M3_HERESIT*/ #define YG1Y_ua_de_dynzdf_imp Yua_de_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1236 ua_de_dynzdf_imp *Yua_de_dynzdf_imp; 1352 /*M3_IRMOD */ #define Yua_de_dynzdf_imp(i, j, k) Yua_de_dynzdf_imp[i][j][k] 1353 /*M3_NOWMOD */ #define Yua_de_dynzdf_impY Yua_de_dynzdf_imp[Yi][Yj][Yk] 1354 /*M3_VALST */ #define Ystate_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp[i][j][k]->Ystate[t][v] 1355 /*M3_VALST */ #define YS_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp[i][j][k]->Ystate[t][v] 1356 /*M3_VALSIT */ #define YS1_ua_de_dynzdf_imp(i, j, k, t) Yua_de_dynzdf_imp[i][j][k]->Ystate[t][0] 1357 /*M3_HERESIT*/ #define YS1Y_ua_de_dynzdf_imp Yua_de_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1358 /*M3_VALST */ #define Ygrad_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp[i][j][k]->Ygrad[t][v] 1359 /*M3_VALST */ #define YG_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp[i][j][k]->Ygrad[t][v] 1360 /*M3_VALSIT */ #define YG1_ua_de_dynzdf_imp(i, j, k, t) Yua_de_dynzdf_imp[i][j][k]->Ygrad[t][0] 1361 /*M3_HERESIT*/ #define YG1Y_ua_de_dynzdf_imp Yua_de_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1362 ua_de_dynzdf_imp *Yua_de_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1237 1363 1238 1364 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1243 1369 /*NBSMOD */ #define YNBS_ua_dynzdf_imp 1 1244 1370 /*NBIMOD */ #define YNBI_ua_dynzdf_imp 4 1245 /*M3_VALST */ #define Ystate_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp->Ystate[t][i][j][k][v] 1246 /*M3_VALST */ #define YS_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp->Ystate[t][i][j][k][v] 1247 /*M3_VALSIT */ #define YS1_ua_dynzdf_imp(i, j, k, t) Yua_dynzdf_imp->Ystate[t][i][j][k][0] 1248 /*M3_HERESIT*/ #define YS1Y_ua_dynzdf_imp Yua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1249 /*M3_VALST */ #define Ygrad_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp->Ygrad[t][i][j][k][v] 1250 /*M3_VALST */ #define YG_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp->Ygrad[t][i][j][k][v] 1251 /*M3_VALSIT */ #define YG1_ua_dynzdf_imp(i, j, k, t) Yua_dynzdf_imp->Ygrad[t][i][j][k][0] 1252 /*M3_HERESIT*/ #define YG1Y_ua_dynzdf_imp Yua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1253 ua_dynzdf_imp *Yua_dynzdf_imp; 1371 /*M3_IRMOD */ #define Yua_dynzdf_imp(i, j, k) Yua_dynzdf_imp[i][j][k] 1372 /*M3_NOWMOD */ #define Yua_dynzdf_impY Yua_dynzdf_imp[Yi][Yj][Yk] 1373 /*M3_VALST */ #define Ystate_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp[i][j][k]->Ystate[t][v] 1374 /*M3_VALST */ #define YS_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp[i][j][k]->Ystate[t][v] 1375 /*M3_VALSIT */ #define YS1_ua_dynzdf_imp(i, j, k, t) Yua_dynzdf_imp[i][j][k]->Ystate[t][0] 1376 /*M3_HERESIT*/ #define YS1Y_ua_dynzdf_imp Yua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1377 /*M3_VALST */ #define Ygrad_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1378 /*M3_VALST */ #define YG_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1379 /*M3_VALSIT */ #define YG1_ua_dynzdf_imp(i, j, k, t) Yua_dynzdf_imp[i][j][k]->Ygrad[t][0] 1380 /*M3_HERESIT*/ #define YG1Y_ua_dynzdf_imp Yua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1381 ua_dynzdf_imp *Yua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1254 1382 1255 1383 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_de_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1258 1386 /*NBSMOD */ #define YNBS_va_de_dynzdf_imp 1 1259 1387 /*NBIMOD */ #define YNBI_va_de_dynzdf_imp 4 1260 /*M3_VALST */ #define Ystate_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp->Ystate[t][i][j][k][v] 1261 /*M3_VALST */ #define YS_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp->Ystate[t][i][j][k][v] 1262 /*M3_VALSIT */ #define YS1_va_de_dynzdf_imp(i, j, k, t) Yva_de_dynzdf_imp->Ystate[t][i][j][k][0] 1263 /*M3_HERESIT*/ #define YS1Y_va_de_dynzdf_imp Yva_de_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1264 /*M3_VALST */ #define Ygrad_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp->Ygrad[t][i][j][k][v] 1265 /*M3_VALST */ #define YG_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp->Ygrad[t][i][j][k][v] 1266 /*M3_VALSIT */ #define YG1_va_de_dynzdf_imp(i, j, k, t) Yva_de_dynzdf_imp->Ygrad[t][i][j][k][0] 1267 /*M3_HERESIT*/ #define YG1Y_va_de_dynzdf_imp Yva_de_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1268 va_de_dynzdf_imp *Yva_de_dynzdf_imp; 1388 /*M3_IRMOD */ #define Yva_de_dynzdf_imp(i, j, k) Yva_de_dynzdf_imp[i][j][k] 1389 /*M3_NOWMOD */ #define Yva_de_dynzdf_impY Yva_de_dynzdf_imp[Yi][Yj][Yk] 1390 /*M3_VALST */ #define Ystate_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp[i][j][k]->Ystate[t][v] 1391 /*M3_VALST */ #define YS_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp[i][j][k]->Ystate[t][v] 1392 /*M3_VALSIT */ #define YS1_va_de_dynzdf_imp(i, j, k, t) Yva_de_dynzdf_imp[i][j][k]->Ystate[t][0] 1393 /*M3_HERESIT*/ #define YS1Y_va_de_dynzdf_imp Yva_de_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1394 /*M3_VALST */ #define Ygrad_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp[i][j][k]->Ygrad[t][v] 1395 /*M3_VALST */ #define YG_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp[i][j][k]->Ygrad[t][v] 1396 /*M3_VALSIT */ #define YG1_va_de_dynzdf_imp(i, j, k, t) Yva_de_dynzdf_imp[i][j][k]->Ygrad[t][0] 1397 /*M3_HERESIT*/ #define YG1Y_va_de_dynzdf_imp Yva_de_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1398 va_de_dynzdf_imp *Yva_de_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1269 1399 1270 1400 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1273 1403 /*NBSMOD */ #define YNBS_va_dynzdf_imp 1 1274 1404 /*NBIMOD */ #define YNBI_va_dynzdf_imp 4 1275 /*M3_VALST */ #define Ystate_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp->Ystate[t][i][j][k][v] 1276 /*M3_VALST */ #define YS_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp->Ystate[t][i][j][k][v] 1277 /*M3_VALSIT */ #define YS1_va_dynzdf_imp(i, j, k, t) Yva_dynzdf_imp->Ystate[t][i][j][k][0] 1278 /*M3_HERESIT*/ #define YS1Y_va_dynzdf_imp Yva_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1279 /*M3_VALST */ #define Ygrad_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp->Ygrad[t][i][j][k][v] 1280 /*M3_VALST */ #define YG_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp->Ygrad[t][i][j][k][v] 1281 /*M3_VALSIT */ #define YG1_va_dynzdf_imp(i, j, k, t) Yva_dynzdf_imp->Ygrad[t][i][j][k][0] 1282 /*M3_HERESIT*/ #define YG1Y_va_dynzdf_imp Yva_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1283 va_dynzdf_imp *Yva_dynzdf_imp; 1405 /*M3_IRMOD */ #define Yva_dynzdf_imp(i, j, k) Yva_dynzdf_imp[i][j][k] 1406 /*M3_NOWMOD */ #define Yva_dynzdf_impY Yva_dynzdf_imp[Yi][Yj][Yk] 1407 /*M3_VALST */ #define Ystate_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp[i][j][k]->Ystate[t][v] 1408 /*M3_VALST */ #define YS_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp[i][j][k]->Ystate[t][v] 1409 /*M3_VALSIT */ #define YS1_va_dynzdf_imp(i, j, k, t) Yva_dynzdf_imp[i][j][k]->Ystate[t][0] 1410 /*M3_HERESIT*/ #define YS1Y_va_dynzdf_imp Yva_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1411 /*M3_VALST */ #define Ygrad_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp[i][j][k]->Ygrad[t][v] 1412 /*M3_VALST */ #define YG_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp[i][j][k]->Ygrad[t][v] 1413 /*M3_VALSIT */ #define YG1_va_dynzdf_imp(i, j, k, t) Yva_dynzdf_imp[i][j][k]->Ygrad[t][0] 1414 /*M3_HERESIT*/ #define YG1Y_va_dynzdf_imp Yva_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1415 va_dynzdf_imp *Yva_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1284 1416 1285 1417 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_norm_dynzdf~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1290 1422 /*NBSMOD */ #define YNBS_ua_norm_dynzdf 1 1291 1423 /*NBIMOD */ #define YNBI_ua_norm_dynzdf 2 1292 /*M3_VALST */ #define Ystate_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf->Ystate[t][i][j][k][v] 1293 /*M3_VALST */ #define YS_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf->Ystate[t][i][j][k][v] 1294 /*M3_VALSIT */ #define YS1_ua_norm_dynzdf(i, j, k, t) Yua_norm_dynzdf->Ystate[t][i][j][k][0] 1295 /*M3_HERESIT*/ #define YS1Y_ua_norm_dynzdf Yua_norm_dynzdf->Ystate[YTemps][Yi][Yj][Yk][0] 1296 /*M3_VALST */ #define Ygrad_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf->Ygrad[t][i][j][k][v] 1297 /*M3_VALST */ #define YG_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf->Ygrad[t][i][j][k][v] 1298 /*M3_VALSIT */ #define YG1_ua_norm_dynzdf(i, j, k, t) Yua_norm_dynzdf->Ygrad[t][i][j][k][0] 1299 /*M3_HERESIT*/ #define YG1Y_ua_norm_dynzdf Yua_norm_dynzdf->Ygrad[YTemps][Yi][Yj][Yk][0] 1300 ua_norm_dynzdf *Yua_norm_dynzdf; 1424 /*M3_IRMOD */ #define Yua_norm_dynzdf(i, j, k) Yua_norm_dynzdf[i][j][k] 1425 /*M3_NOWMOD */ #define Yua_norm_dynzdfY Yua_norm_dynzdf[Yi][Yj][Yk] 1426 /*M3_VALST */ #define Ystate_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf[i][j][k]->Ystate[t][v] 1427 /*M3_VALST */ #define YS_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf[i][j][k]->Ystate[t][v] 1428 /*M3_VALSIT */ #define YS1_ua_norm_dynzdf(i, j, k, t) Yua_norm_dynzdf[i][j][k]->Ystate[t][0] 1429 /*M3_HERESIT*/ #define YS1Y_ua_norm_dynzdf Yua_norm_dynzdf[Yi][Yj][Yk]->Ystate[YTemps][0] 1430 /*M3_VALST */ #define Ygrad_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf[i][j][k]->Ygrad[t][v] 1431 /*M3_VALST */ #define YG_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf[i][j][k]->Ygrad[t][v] 1432 /*M3_VALSIT */ #define YG1_ua_norm_dynzdf(i, j, k, t) Yua_norm_dynzdf[i][j][k]->Ygrad[t][0] 1433 /*M3_HERESIT*/ #define YG1Y_ua_norm_dynzdf Yua_norm_dynzdf[Yi][Yj][Yk]->Ygrad[YTemps][0] 1434 ua_norm_dynzdf *Yua_norm_dynzdf[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1301 1435 1302 1436 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_norm_dynzdf~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1305 1439 /*NBSMOD */ #define YNBS_va_norm_dynzdf 1 1306 1440 /*NBIMOD */ #define YNBI_va_norm_dynzdf 2 1307 /*M3_VALST */ #define Ystate_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf->Ystate[t][i][j][k][v] 1308 /*M3_VALST */ #define YS_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf->Ystate[t][i][j][k][v] 1309 /*M3_VALSIT */ #define YS1_va_norm_dynzdf(i, j, k, t) Yva_norm_dynzdf->Ystate[t][i][j][k][0] 1310 /*M3_HERESIT*/ #define YS1Y_va_norm_dynzdf Yva_norm_dynzdf->Ystate[YTemps][Yi][Yj][Yk][0] 1311 /*M3_VALST */ #define Ygrad_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf->Ygrad[t][i][j][k][v] 1312 /*M3_VALST */ #define YG_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf->Ygrad[t][i][j][k][v] 1313 /*M3_VALSIT */ #define YG1_va_norm_dynzdf(i, j, k, t) Yva_norm_dynzdf->Ygrad[t][i][j][k][0] 1314 /*M3_HERESIT*/ #define YG1Y_va_norm_dynzdf Yva_norm_dynzdf->Ygrad[YTemps][Yi][Yj][Yk][0] 1315 va_norm_dynzdf *Yva_norm_dynzdf; 1441 /*M3_IRMOD */ #define Yva_norm_dynzdf(i, j, k) Yva_norm_dynzdf[i][j][k] 1442 /*M3_NOWMOD */ #define Yva_norm_dynzdfY Yva_norm_dynzdf[Yi][Yj][Yk] 1443 /*M3_VALST */ #define Ystate_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf[i][j][k]->Ystate[t][v] 1444 /*M3_VALST */ #define YS_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf[i][j][k]->Ystate[t][v] 1445 /*M3_VALSIT */ #define YS1_va_norm_dynzdf(i, j, k, t) Yva_norm_dynzdf[i][j][k]->Ystate[t][0] 1446 /*M3_HERESIT*/ #define YS1Y_va_norm_dynzdf Yva_norm_dynzdf[Yi][Yj][Yk]->Ystate[YTemps][0] 1447 /*M3_VALST */ #define Ygrad_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf[i][j][k]->Ygrad[t][v] 1448 /*M3_VALST */ #define YG_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf[i][j][k]->Ygrad[t][v] 1449 /*M3_VALSIT */ #define YG1_va_norm_dynzdf(i, j, k, t) Yva_norm_dynzdf[i][j][k]->Ygrad[t][0] 1450 /*M3_HERESIT*/ #define YG1Y_va_norm_dynzdf Yva_norm_dynzdf[Yi][Yj][Yk]->Ygrad[YTemps][0] 1451 va_norm_dynzdf *Yva_norm_dynzdf[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1316 1452 1317 1453 //~~~~~~~~~~~~~~~~~~~~~~~~~ module spguv_now_dynspg~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1323 1459 /*NBSMOD */ #define YNBS_spguv_now_dynspg 2 1324 1460 /*NBIMOD */ #define YNBI_spguv_now_dynspg 3 1325 /*M2_VALST */ #define Ystate_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg->Ystate[t][i][j][v] 1326 /*M2_VALST */ #define YS_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg->Ystate[t][i][j][v] 1327 /*M2_VALSIT */ #define YS1_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg->Ystate[t][i][j][0] 1328 /*M2_HERESIT*/ #define YS1Y_spguv_now_dynspg Yspguv_now_dynspg->Ystate[YTemps][Yi][Yj][0] 1329 /*M2_VALSIT */ #define YS2_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg->Ystate[t][i][j][1] 1330 /*M2_HERESIT*/ #define YS2Y_spguv_now_dynspg Yspguv_now_dynspg->Ystate[YTemps][Yi][Yj][1] 1331 /*M2_VALST */ #define Ygrad_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg->Ygrad[t][i][j][v] 1332 /*M2_VALST */ #define YG_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg->Ygrad[t][i][j][v] 1333 /*M2_VALSIT */ #define YG1_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg->Ygrad[t][i][j][0] 1334 /*M2_HERESIT*/ #define YG1Y_spguv_now_dynspg Yspguv_now_dynspg->Ygrad[YTemps][Yi][Yj][0] 1335 /*M2_VALSIT */ #define YG2_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg->Ygrad[t][i][j][1] 1336 /*M2_HERESIT*/ #define YG2Y_spguv_now_dynspg Yspguv_now_dynspg->Ygrad[YTemps][Yi][Yj][1] 1337 spguv_now_dynspg *Yspguv_now_dynspg; 1461 /*M2_IRMOD */ #define Yspguv_now_dynspg(i, j) Yspguv_now_dynspg[i][j] 1462 /*M2_NOWMOD */ #define Yspguv_now_dynspgY Yspguv_now_dynspg[Yi][Yj] 1463 /*M2_VALST */ #define Ystate_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg[i][j]->Ystate[t][v] 1464 /*M2_VALST */ #define YS_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg[i][j]->Ystate[t][v] 1465 /*M2_VALSIT */ #define YS1_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg[i][j]->Ystate[t][0] 1466 /*M2_HERESIT*/ #define YS1Y_spguv_now_dynspg Yspguv_now_dynspg[Yi][Yj]->Ystate[YTemps][0] 1467 /*M2_VALSIT */ #define YS2_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg[i][j]->Ystate[t][1] 1468 /*M2_HERESIT*/ #define YS2Y_spguv_now_dynspg Yspguv_now_dynspg[Yi][Yj]->Ystate[YTemps][1] 1469 /*M2_VALST */ #define Ygrad_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg[i][j]->Ygrad[t][v] 1470 /*M2_VALST */ #define YG_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg[i][j]->Ygrad[t][v] 1471 /*M2_VALSIT */ #define YG1_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg[i][j]->Ygrad[t][0] 1472 /*M2_HERESIT*/ #define YG1Y_spguv_now_dynspg Yspguv_now_dynspg[Yi][Yj]->Ygrad[YTemps][0] 1473 /*M2_VALSIT */ #define YG2_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg[i][j]->Ygrad[t][1] 1474 /*M2_HERESIT*/ #define YG2Y_spguv_now_dynspg Yspguv_now_dynspg[Yi][Yj]->Ygrad[YTemps][1] 1475 spguv_now_dynspg *Yspguv_now_dynspg[YA1_S3dt][YA2_S3dt]; 1338 1476 1339 1477 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_1_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1344 1482 /*NBSMOD */ #define YNBS_ua_1_dynspg_flt 1 1345 1483 /*NBIMOD */ #define YNBI_ua_1_dynspg_flt 3 1346 /*M3_VALST */ #define Ystate_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt->Ystate[t][i][j][k][v] 1347 /*M3_VALST */ #define YS_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt->Ystate[t][i][j][k][v] 1348 /*M3_VALSIT */ #define YS1_ua_1_dynspg_flt(i, j, k, t) Yua_1_dynspg_flt->Ystate[t][i][j][k][0] 1349 /*M3_HERESIT*/ #define YS1Y_ua_1_dynspg_flt Yua_1_dynspg_flt->Ystate[YTemps][Yi][Yj][Yk][0] 1350 /*M3_VALST */ #define Ygrad_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt->Ygrad[t][i][j][k][v] 1351 /*M3_VALST */ #define YG_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt->Ygrad[t][i][j][k][v] 1352 /*M3_VALSIT */ #define YG1_ua_1_dynspg_flt(i, j, k, t) Yua_1_dynspg_flt->Ygrad[t][i][j][k][0] 1353 /*M3_HERESIT*/ #define YG1Y_ua_1_dynspg_flt Yua_1_dynspg_flt->Ygrad[YTemps][Yi][Yj][Yk][0] 1354 ua_1_dynspg_flt *Yua_1_dynspg_flt; 1484 /*M3_IRMOD */ #define Yua_1_dynspg_flt(i, j, k) Yua_1_dynspg_flt[i][j][k] 1485 /*M3_NOWMOD */ #define Yua_1_dynspg_fltY Yua_1_dynspg_flt[Yi][Yj][Yk] 1486 /*M3_VALST */ #define Ystate_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt[i][j][k]->Ystate[t][v] 1487 /*M3_VALST */ #define YS_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt[i][j][k]->Ystate[t][v] 1488 /*M3_VALSIT */ #define YS1_ua_1_dynspg_flt(i, j, k, t) Yua_1_dynspg_flt[i][j][k]->Ystate[t][0] 1489 /*M3_HERESIT*/ #define YS1Y_ua_1_dynspg_flt Yua_1_dynspg_flt[Yi][Yj][Yk]->Ystate[YTemps][0] 1490 /*M3_VALST */ #define Ygrad_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt[i][j][k]->Ygrad[t][v] 1491 /*M3_VALST */ #define YG_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt[i][j][k]->Ygrad[t][v] 1492 /*M3_VALSIT */ #define YG1_ua_1_dynspg_flt(i, j, k, t) Yua_1_dynspg_flt[i][j][k]->Ygrad[t][0] 1493 /*M3_HERESIT*/ #define YG1Y_ua_1_dynspg_flt Yua_1_dynspg_flt[Yi][Yj][Yk]->Ygrad[YTemps][0] 1494 ua_1_dynspg_flt *Yua_1_dynspg_flt[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1355 1495 1356 1496 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_1_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1361 1501 /*NBSMOD */ #define YNBS_va_1_dynspg_flt 1 1362 1502 /*NBIMOD */ #define YNBI_va_1_dynspg_flt 3 1363 /*M3_VALST */ #define Ystate_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt->Ystate[t][i][j][k][v] 1364 /*M3_VALST */ #define YS_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt->Ystate[t][i][j][k][v] 1365 /*M3_VALSIT */ #define YS1_va_1_dynspg_flt(i, j, k, t) Yva_1_dynspg_flt->Ystate[t][i][j][k][0] 1366 /*M3_HERESIT*/ #define YS1Y_va_1_dynspg_flt Yva_1_dynspg_flt->Ystate[YTemps][Yi][Yj][Yk][0] 1367 /*M3_VALST */ #define Ygrad_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt->Ygrad[t][i][j][k][v] 1368 /*M3_VALST */ #define YG_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt->Ygrad[t][i][j][k][v] 1369 /*M3_VALSIT */ #define YG1_va_1_dynspg_flt(i, j, k, t) Yva_1_dynspg_flt->Ygrad[t][i][j][k][0] 1370 /*M3_HERESIT*/ #define YG1Y_va_1_dynspg_flt Yva_1_dynspg_flt->Ygrad[YTemps][Yi][Yj][Yk][0] 1371 va_1_dynspg_flt *Yva_1_dynspg_flt; 1503 /*M3_IRMOD */ #define Yva_1_dynspg_flt(i, j, k) Yva_1_dynspg_flt[i][j][k] 1504 /*M3_NOWMOD */ #define Yva_1_dynspg_fltY Yva_1_dynspg_flt[Yi][Yj][Yk] 1505 /*M3_VALST */ #define Ystate_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt[i][j][k]->Ystate[t][v] 1506 /*M3_VALST */ #define YS_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt[i][j][k]->Ystate[t][v] 1507 /*M3_VALSIT */ #define YS1_va_1_dynspg_flt(i, j, k, t) Yva_1_dynspg_flt[i][j][k]->Ystate[t][0] 1508 /*M3_HERESIT*/ #define YS1Y_va_1_dynspg_flt Yva_1_dynspg_flt[Yi][Yj][Yk]->Ystate[YTemps][0] 1509 /*M3_VALST */ #define Ygrad_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt[i][j][k]->Ygrad[t][v] 1510 /*M3_VALST */ #define YG_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt[i][j][k]->Ygrad[t][v] 1511 /*M3_VALSIT */ #define YG1_va_1_dynspg_flt(i, j, k, t) Yva_1_dynspg_flt[i][j][k]->Ygrad[t][0] 1512 /*M3_HERESIT*/ #define YG1Y_va_1_dynspg_flt Yva_1_dynspg_flt[Yi][Yj][Yk]->Ygrad[YTemps][0] 1513 va_1_dynspg_flt *Yva_1_dynspg_flt[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1372 1514 1373 1515 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sum_spgu_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1379 1521 /*NBSMOD */ #define YNBS_sum_spgu_dynspg_flt 1 1380 1522 /*NBIMOD */ #define YNBI_sum_spgu_dynspg_flt 31 1381 /*M2_VALST */ #define Ystate_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt->Ystate[t][i][j][v] 1382 /*M2_VALST */ #define YS_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt->Ystate[t][i][j][v] 1383 /*M2_VALSIT */ #define YS1_sum_spgu_dynspg_flt(i, j, t) Ysum_spgu_dynspg_flt->Ystate[t][i][j][0] 1384 /*M2_HERESIT*/ #define YS1Y_sum_spgu_dynspg_flt Ysum_spgu_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1385 /*M2_VALST */ #define Ygrad_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt->Ygrad[t][i][j][v] 1386 /*M2_VALST */ #define YG_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt->Ygrad[t][i][j][v] 1387 /*M2_VALSIT */ #define YG1_sum_spgu_dynspg_flt(i, j, t) Ysum_spgu_dynspg_flt->Ygrad[t][i][j][0] 1388 /*M2_HERESIT*/ #define YG1Y_sum_spgu_dynspg_flt Ysum_spgu_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1389 sum_spgu_dynspg_flt *Ysum_spgu_dynspg_flt; 1523 /*M2_IRMOD */ #define Ysum_spgu_dynspg_flt(i, j) Ysum_spgu_dynspg_flt[i][j] 1524 /*M2_NOWMOD */ #define Ysum_spgu_dynspg_fltY Ysum_spgu_dynspg_flt[Yi][Yj] 1525 /*M2_VALST */ #define Ystate_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt[i][j]->Ystate[t][v] 1526 /*M2_VALST */ #define YS_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt[i][j]->Ystate[t][v] 1527 /*M2_VALSIT */ #define YS1_sum_spgu_dynspg_flt(i, j, t) Ysum_spgu_dynspg_flt[i][j]->Ystate[t][0] 1528 /*M2_HERESIT*/ #define YS1Y_sum_spgu_dynspg_flt Ysum_spgu_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 1529 /*M2_VALST */ #define Ygrad_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt[i][j]->Ygrad[t][v] 1530 /*M2_VALST */ #define YG_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt[i][j]->Ygrad[t][v] 1531 /*M2_VALSIT */ #define YG1_sum_spgu_dynspg_flt(i, j, t) Ysum_spgu_dynspg_flt[i][j]->Ygrad[t][0] 1532 /*M2_HERESIT*/ #define YG1Y_sum_spgu_dynspg_flt Ysum_spgu_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 1533 sum_spgu_dynspg_flt *Ysum_spgu_dynspg_flt[YA1_S3dt][YA2_S3dt]; 1390 1534 1391 1535 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sum_spgv_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1397 1541 /*NBSMOD */ #define YNBS_sum_spgv_dynspg_flt 1 1398 1542 /*NBIMOD */ #define YNBI_sum_spgv_dynspg_flt 31 1399 /*M2_VALST */ #define Ystate_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt->Ystate[t][i][j][v] 1400 /*M2_VALST */ #define YS_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt->Ystate[t][i][j][v] 1401 /*M2_VALSIT */ #define YS1_sum_spgv_dynspg_flt(i, j, t) Ysum_spgv_dynspg_flt->Ystate[t][i][j][0] 1402 /*M2_HERESIT*/ #define YS1Y_sum_spgv_dynspg_flt Ysum_spgv_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1403 /*M2_VALST */ #define Ygrad_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt->Ygrad[t][i][j][v] 1404 /*M2_VALST */ #define YG_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt->Ygrad[t][i][j][v] 1405 /*M2_VALSIT */ #define YG1_sum_spgv_dynspg_flt(i, j, t) Ysum_spgv_dynspg_flt->Ygrad[t][i][j][0] 1406 /*M2_HERESIT*/ #define YG1Y_sum_spgv_dynspg_flt Ysum_spgv_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1407 sum_spgv_dynspg_flt *Ysum_spgv_dynspg_flt; 1543 /*M2_IRMOD */ #define Ysum_spgv_dynspg_flt(i, j) Ysum_spgv_dynspg_flt[i][j] 1544 /*M2_NOWMOD */ #define Ysum_spgv_dynspg_fltY Ysum_spgv_dynspg_flt[Yi][Yj] 1545 /*M2_VALST */ #define Ystate_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt[i][j]->Ystate[t][v] 1546 /*M2_VALST */ #define YS_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt[i][j]->Ystate[t][v] 1547 /*M2_VALSIT */ #define YS1_sum_spgv_dynspg_flt(i, j, t) Ysum_spgv_dynspg_flt[i][j]->Ystate[t][0] 1548 /*M2_HERESIT*/ #define YS1Y_sum_spgv_dynspg_flt Ysum_spgv_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 1549 /*M2_VALST */ #define Ygrad_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt[i][j]->Ygrad[t][v] 1550 /*M2_VALST */ #define YG_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt[i][j]->Ygrad[t][v] 1551 /*M2_VALSIT */ #define YG1_sum_spgv_dynspg_flt(i, j, t) Ysum_spgv_dynspg_flt[i][j]->Ygrad[t][0] 1552 /*M2_HERESIT*/ #define YG1Y_sum_spgv_dynspg_flt Ysum_spgv_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 1553 sum_spgv_dynspg_flt *Ysum_spgv_dynspg_flt[YA1_S3dt][YA2_S3dt]; 1408 1554 1409 1555 //~~~~~~~~~~~~~~~~~~~~~~~~~ module gcb_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1415 1561 /*NBSMOD */ #define YNBS_gcb_dynspg_flt 1 1416 1562 /*NBIMOD */ #define YNBI_gcb_dynspg_flt 4 1417 /*M2_VALST */ #define Ystate_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt->Ystate[t][i][j][v] 1418 /*M2_VALST */ #define YS_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt->Ystate[t][i][j][v] 1419 /*M2_VALSIT */ #define YS1_gcb_dynspg_flt(i, j, t) Ygcb_dynspg_flt->Ystate[t][i][j][0] 1420 /*M2_HERESIT*/ #define YS1Y_gcb_dynspg_flt Ygcb_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1421 /*M2_VALST */ #define Ygrad_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt->Ygrad[t][i][j][v] 1422 /*M2_VALST */ #define YG_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt->Ygrad[t][i][j][v] 1423 /*M2_VALSIT */ #define YG1_gcb_dynspg_flt(i, j, t) Ygcb_dynspg_flt->Ygrad[t][i][j][0] 1424 /*M2_HERESIT*/ #define YG1Y_gcb_dynspg_flt Ygcb_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1425 gcb_dynspg_flt *Ygcb_dynspg_flt; 1563 /*M2_IRMOD */ #define Ygcb_dynspg_flt(i, j) Ygcb_dynspg_flt[i][j] 1564 /*M2_NOWMOD */ #define Ygcb_dynspg_fltY Ygcb_dynspg_flt[Yi][Yj] 1565 /*M2_VALST */ #define Ystate_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt[i][j]->Ystate[t][v] 1566 /*M2_VALST */ #define YS_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt[i][j]->Ystate[t][v] 1567 /*M2_VALSIT */ #define YS1_gcb_dynspg_flt(i, j, t) Ygcb_dynspg_flt[i][j]->Ystate[t][0] 1568 /*M2_HERESIT*/ #define YS1Y_gcb_dynspg_flt Ygcb_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 1569 /*M2_VALST */ #define Ygrad_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt[i][j]->Ygrad[t][v] 1570 /*M2_VALST */ #define YG_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt[i][j]->Ygrad[t][v] 1571 /*M2_VALSIT */ #define YG1_gcb_dynspg_flt(i, j, t) Ygcb_dynspg_flt[i][j]->Ygrad[t][0] 1572 /*M2_HERESIT*/ #define YG1Y_gcb_dynspg_flt Ygcb_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 1573 gcb_dynspg_flt *Ygcb_dynspg_flt[YA1_S3dt][YA2_S3dt]; 1426 1574 1427 1575 //~~~~~~~~~~~~~~~~~~~~~~~~~ module gcx_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1433 1581 /*NBSMOD */ #define YNBS_gcx_dynspg_flt 1 1434 1582 /*NBIMOD */ #define YNBI_gcx_dynspg_flt 2 1435 /*M2_VALST */ #define Ystate_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt->Ystate[t][i][j][v] 1436 /*M2_VALST */ #define YS_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt->Ystate[t][i][j][v] 1437 /*M2_VALSIT */ #define YS1_gcx_dynspg_flt(i, j, t) Ygcx_dynspg_flt->Ystate[t][i][j][0] 1438 /*M2_HERESIT*/ #define YS1Y_gcx_dynspg_flt Ygcx_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1439 /*M2_VALST */ #define Ygrad_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt->Ygrad[t][i][j][v] 1440 /*M2_VALST */ #define YG_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt->Ygrad[t][i][j][v] 1441 /*M2_VALSIT */ #define YG1_gcx_dynspg_flt(i, j, t) Ygcx_dynspg_flt->Ygrad[t][i][j][0] 1442 /*M2_HERESIT*/ #define YG1Y_gcx_dynspg_flt Ygcx_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1443 gcx_dynspg_flt *Ygcx_dynspg_flt; 1583 /*M2_IRMOD */ #define Ygcx_dynspg_flt(i, j) Ygcx_dynspg_flt[i][j] 1584 /*M2_NOWMOD */ #define Ygcx_dynspg_fltY Ygcx_dynspg_flt[Yi][Yj] 1585 /*M2_VALST */ #define Ystate_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt[i][j]->Ystate[t][v] 1586 /*M2_VALST */ #define YS_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt[i][j]->Ystate[t][v] 1587 /*M2_VALSIT */ #define YS1_gcx_dynspg_flt(i, j, t) Ygcx_dynspg_flt[i][j]->Ystate[t][0] 1588 /*M2_HERESIT*/ #define YS1Y_gcx_dynspg_flt Ygcx_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 1589 /*M2_VALST */ #define Ygrad_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt[i][j]->Ygrad[t][v] 1590 /*M2_VALST */ #define YG_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt[i][j]->Ygrad[t][v] 1591 /*M2_VALSIT */ #define YG1_gcx_dynspg_flt(i, j, t) Ygcx_dynspg_flt[i][j]->Ygrad[t][0] 1592 /*M2_HERESIT*/ #define YG1Y_gcx_dynspg_flt Ygcx_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 1593 gcx_dynspg_flt *Ygcx_dynspg_flt[YA1_S3dt][YA2_S3dt]; 1444 1594 1445 1595 //~~~~~~~~~~~~~~~~~~~~~~~~~ module solsor_gx1_x_r~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1450 1600 /*NBSMOD */ #define YNBS_solsor_gx1_x_r 2 1451 1601 /*NBIMOD */ #define YNBI_solsor_gx1_x_r 8 1452 /*M3_VALST */ #define Ystate_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r->Ystate[t][i][j][k][v] 1453 /*M3_VALST */ #define YS_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r->Ystate[t][i][j][k][v] 1454 /*M3_VALSIT */ #define YS1_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r->Ystate[t][i][j][k][0] 1455 /*M3_HERESIT*/ #define YS1Y_solsor_gx1_x_r Ysolsor_gx1_x_r->Ystate[YTemps][Yi][Yj][Yk][0] 1456 /*M3_VALSIT */ #define YS2_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r->Ystate[t][i][j][k][1] 1457 /*M3_HERESIT*/ #define YS2Y_solsor_gx1_x_r Ysolsor_gx1_x_r->Ystate[YTemps][Yi][Yj][Yk][1] 1458 /*M3_VALST */ #define Ygrad_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r->Ygrad[t][i][j][k][v] 1459 /*M3_VALST */ #define YG_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r->Ygrad[t][i][j][k][v] 1460 /*M3_VALSIT */ #define YG1_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r->Ygrad[t][i][j][k][0] 1461 /*M3_HERESIT*/ #define YG1Y_solsor_gx1_x_r Ysolsor_gx1_x_r->Ygrad[YTemps][Yi][Yj][Yk][0] 1462 /*M3_VALSIT */ #define YG2_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r->Ygrad[t][i][j][k][1] 1463 /*M3_HERESIT*/ #define YG2Y_solsor_gx1_x_r Ysolsor_gx1_x_r->Ygrad[YTemps][Yi][Yj][Yk][1] 1464 solsor_gx1_x_r *Ysolsor_gx1_x_r; 1602 /*M3_IRMOD */ #define Ysolsor_gx1_x_r(i, j, k) Ysolsor_gx1_x_r[i][j][k] 1603 /*M3_NOWMOD */ #define Ysolsor_gx1_x_rY Ysolsor_gx1_x_r[Yi][Yj][Yk] 1604 /*M3_VALST */ #define Ystate_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r[i][j][k]->Ystate[t][v] 1605 /*M3_VALST */ #define YS_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r[i][j][k]->Ystate[t][v] 1606 /*M3_VALSIT */ #define YS1_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r[i][j][k]->Ystate[t][0] 1607 /*M3_HERESIT*/ #define YS1Y_solsor_gx1_x_r Ysolsor_gx1_x_r[Yi][Yj][Yk]->Ystate[YTemps][0] 1608 /*M3_VALSIT */ #define YS2_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r[i][j][k]->Ystate[t][1] 1609 /*M3_HERESIT*/ #define YS2Y_solsor_gx1_x_r Ysolsor_gx1_x_r[Yi][Yj][Yk]->Ystate[YTemps][1] 1610 /*M3_VALST */ #define Ygrad_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r[i][j][k]->Ygrad[t][v] 1611 /*M3_VALST */ #define YG_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r[i][j][k]->Ygrad[t][v] 1612 /*M3_VALSIT */ #define YG1_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r[i][j][k]->Ygrad[t][0] 1613 /*M3_HERESIT*/ #define YG1Y_solsor_gx1_x_r Ysolsor_gx1_x_r[Yi][Yj][Yk]->Ygrad[YTemps][0] 1614 /*M3_VALSIT */ #define YG2_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r[i][j][k]->Ygrad[t][1] 1615 /*M3_HERESIT*/ #define YG2Y_solsor_gx1_x_r Ysolsor_gx1_x_r[Yi][Yj][Yk]->Ygrad[YTemps][1] 1616 solsor_gx1_x_r *Ysolsor_gx1_x_r[YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor]; 1465 1617 1466 1618 //~~~~~~~~~~~~~~~~~~~~~~~~~ module solsor_gx2_x_r~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1471 1623 /*NBSMOD */ #define YNBS_solsor_gx2_x_r 2 1472 1624 /*NBIMOD */ #define YNBI_solsor_gx2_x_r 9 1473 /*M3_VALST */ #define Ystate_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r->Ystate[t][i][j][k][v] 1474 /*M3_VALST */ #define YS_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r->Ystate[t][i][j][k][v] 1475 /*M3_VALSIT */ #define YS1_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r->Ystate[t][i][j][k][0] 1476 /*M3_HERESIT*/ #define YS1Y_solsor_gx2_x_r Ysolsor_gx2_x_r->Ystate[YTemps][Yi][Yj][Yk][0] 1477 /*M3_VALSIT */ #define YS2_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r->Ystate[t][i][j][k][1] 1478 /*M3_HERESIT*/ #define YS2Y_solsor_gx2_x_r Ysolsor_gx2_x_r->Ystate[YTemps][Yi][Yj][Yk][1] 1479 /*M3_VALST */ #define Ygrad_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r->Ygrad[t][i][j][k][v] 1480 /*M3_VALST */ #define YG_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r->Ygrad[t][i][j][k][v] 1481 /*M3_VALSIT */ #define YG1_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r->Ygrad[t][i][j][k][0] 1482 /*M3_HERESIT*/ #define YG1Y_solsor_gx2_x_r Ysolsor_gx2_x_r->Ygrad[YTemps][Yi][Yj][Yk][0] 1483 /*M3_VALSIT */ #define YG2_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r->Ygrad[t][i][j][k][1] 1484 /*M3_HERESIT*/ #define YG2Y_solsor_gx2_x_r Ysolsor_gx2_x_r->Ygrad[YTemps][Yi][Yj][Yk][1] 1485 solsor_gx2_x_r *Ysolsor_gx2_x_r; 1625 /*M3_IRMOD */ #define Ysolsor_gx2_x_r(i, j, k) Ysolsor_gx2_x_r[i][j][k] 1626 /*M3_NOWMOD */ #define Ysolsor_gx2_x_rY Ysolsor_gx2_x_r[Yi][Yj][Yk] 1627 /*M3_VALST */ #define Ystate_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r[i][j][k]->Ystate[t][v] 1628 /*M3_VALST */ #define YS_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r[i][j][k]->Ystate[t][v] 1629 /*M3_VALSIT */ #define YS1_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r[i][j][k]->Ystate[t][0] 1630 /*M3_HERESIT*/ #define YS1Y_solsor_gx2_x_r Ysolsor_gx2_x_r[Yi][Yj][Yk]->Ystate[YTemps][0] 1631 /*M3_VALSIT */ #define YS2_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r[i][j][k]->Ystate[t][1] 1632 /*M3_HERESIT*/ #define YS2Y_solsor_gx2_x_r Ysolsor_gx2_x_r[Yi][Yj][Yk]->Ystate[YTemps][1] 1633 /*M3_VALST */ #define Ygrad_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r[i][j][k]->Ygrad[t][v] 1634 /*M3_VALST */ #define YG_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r[i][j][k]->Ygrad[t][v] 1635 /*M3_VALSIT */ #define YG1_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r[i][j][k]->Ygrad[t][0] 1636 /*M3_HERESIT*/ #define YG1Y_solsor_gx2_x_r Ysolsor_gx2_x_r[Yi][Yj][Yk]->Ygrad[YTemps][0] 1637 /*M3_VALSIT */ #define YG2_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r[i][j][k]->Ygrad[t][1] 1638 /*M3_HERESIT*/ #define YG2Y_solsor_gx2_x_r Ysolsor_gx2_x_r[Yi][Yj][Yk]->Ygrad[YTemps][1] 1639 solsor_gx2_x_r *Ysolsor_gx2_x_r[YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor]; 1486 1640 1487 1641 //~~~~~~~~~~~~~~~~~~~~~~~~~ module solsor_flag~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1492 1646 /*NBSMOD */ #define YNBS_solsor_flag 2 1493 1647 /*NBIMOD */ #define YNBI_solsor_flag 4 1494 /*M3_VALST */ #define Ystate_solsor_flag(v, i, j, k, t) Ysolsor_flag->Ystate[t][i][j][k][v] 1495 /*M3_VALST */ #define YS_solsor_flag(v, i, j, k, t) Ysolsor_flag->Ystate[t][i][j][k][v] 1496 /*M3_VALSIT */ #define YS1_solsor_flag(i, j, k, t) Ysolsor_flag->Ystate[t][i][j][k][0] 1497 /*M3_HERESIT*/ #define YS1Y_solsor_flag Ysolsor_flag->Ystate[YTemps][Yi][Yj][Yk][0] 1498 /*M3_VALSIT */ #define YS2_solsor_flag(i, j, k, t) Ysolsor_flag->Ystate[t][i][j][k][1] 1499 /*M3_HERESIT*/ #define YS2Y_solsor_flag Ysolsor_flag->Ystate[YTemps][Yi][Yj][Yk][1] 1500 /*M3_VALST */ #define Ygrad_solsor_flag(v, i, j, k, t) Ysolsor_flag->Ygrad[t][i][j][k][v] 1501 /*M3_VALST */ #define YG_solsor_flag(v, i, j, k, t) Ysolsor_flag->Ygrad[t][i][j][k][v] 1502 /*M3_VALSIT */ #define YG1_solsor_flag(i, j, k, t) Ysolsor_flag->Ygrad[t][i][j][k][0] 1503 /*M3_HERESIT*/ #define YG1Y_solsor_flag Ysolsor_flag->Ygrad[YTemps][Yi][Yj][Yk][0] 1504 /*M3_VALSIT */ #define YG2_solsor_flag(i, j, k, t) Ysolsor_flag->Ygrad[t][i][j][k][1] 1505 /*M3_HERESIT*/ #define YG2Y_solsor_flag Ysolsor_flag->Ygrad[YTemps][Yi][Yj][Yk][1] 1506 solsor_flag *Ysolsor_flag; 1648 /*M3_IRMOD */ #define Ysolsor_flag(i, j, k) Ysolsor_flag[i][j][k] 1649 /*M3_NOWMOD */ #define Ysolsor_flagY Ysolsor_flag[Yi][Yj][Yk] 1650 /*M3_VALST */ #define Ystate_solsor_flag(v, i, j, k, t) Ysolsor_flag[i][j][k]->Ystate[t][v] 1651 /*M3_VALST */ #define YS_solsor_flag(v, i, j, k, t) Ysolsor_flag[i][j][k]->Ystate[t][v] 1652 /*M3_VALSIT */ #define YS1_solsor_flag(i, j, k, t) Ysolsor_flag[i][j][k]->Ystate[t][0] 1653 /*M3_HERESIT*/ #define YS1Y_solsor_flag Ysolsor_flag[Yi][Yj][Yk]->Ystate[YTemps][0] 1654 /*M3_VALSIT */ #define YS2_solsor_flag(i, j, k, t) Ysolsor_flag[i][j][k]->Ystate[t][1] 1655 /*M3_HERESIT*/ #define YS2Y_solsor_flag Ysolsor_flag[Yi][Yj][Yk]->Ystate[YTemps][1] 1656 /*M3_VALST */ #define Ygrad_solsor_flag(v, i, j, k, t) Ysolsor_flag[i][j][k]->Ygrad[t][v] 1657 /*M3_VALST */ #define YG_solsor_flag(v, i, j, k, t) Ysolsor_flag[i][j][k]->Ygrad[t][v] 1658 /*M3_VALSIT */ #define YG1_solsor_flag(i, j, k, t) Ysolsor_flag[i][j][k]->Ygrad[t][0] 1659 /*M3_HERESIT*/ #define YG1Y_solsor_flag Ysolsor_flag[Yi][Yj][Yk]->Ygrad[YTemps][0] 1660 /*M3_VALSIT */ #define YG2_solsor_flag(i, j, k, t) Ysolsor_flag[i][j][k]->Ygrad[t][1] 1661 /*M3_HERESIT*/ #define YG2Y_solsor_flag Ysolsor_flag[Yi][Yj][Yk]->Ygrad[YTemps][1] 1662 solsor_flag *Ysolsor_flag[YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor]; 1507 1663 1508 1664 //~~~~~~~~~~~~~~~~~~~~~~~~~ module gcx2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1514 1670 /*NBSMOD */ #define YNBS_gcx2 1 1515 1671 /*NBIMOD */ #define YNBI_gcx2 1 1516 /*M2_VALST */ #define Ystate_gcx2(v, i, j, t) Ygcx2->Ystate[t][i][j][v] 1517 /*M2_VALST */ #define YS_gcx2(v, i, j, t) Ygcx2->Ystate[t][i][j][v] 1518 /*M2_VALSIT */ #define YS1_gcx2(i, j, t) Ygcx2->Ystate[t][i][j][0] 1519 /*M2_HERESIT*/ #define YS1Y_gcx2 Ygcx2->Ystate[YTemps][Yi][Yj][0] 1520 /*M2_VALST */ #define Ygrad_gcx2(v, i, j, t) Ygcx2->Ygrad[t][i][j][v] 1521 /*M2_VALST */ #define YG_gcx2(v, i, j, t) Ygcx2->Ygrad[t][i][j][v] 1522 /*M2_VALSIT */ #define YG1_gcx2(i, j, t) Ygcx2->Ygrad[t][i][j][0] 1523 /*M2_HERESIT*/ #define YG1Y_gcx2 Ygcx2->Ygrad[YTemps][Yi][Yj][0] 1524 gcx2 *Ygcx2; 1672 /*M2_IRMOD */ #define Ygcx2(i, j) Ygcx2[i][j] 1673 /*M2_NOWMOD */ #define Ygcx2Y Ygcx2[Yi][Yj] 1674 /*M2_VALST */ #define Ystate_gcx2(v, i, j, t) Ygcx2[i][j]->Ystate[t][v] 1675 /*M2_VALST */ #define YS_gcx2(v, i, j, t) Ygcx2[i][j]->Ystate[t][v] 1676 /*M2_VALSIT */ #define YS1_gcx2(i, j, t) Ygcx2[i][j]->Ystate[t][0] 1677 /*M2_HERESIT*/ #define YS1Y_gcx2 Ygcx2[Yi][Yj]->Ystate[YTemps][0] 1678 /*M2_VALST */ #define Ygrad_gcx2(v, i, j, t) Ygcx2[i][j]->Ygrad[t][v] 1679 /*M2_VALST */ #define YG_gcx2(v, i, j, t) Ygcx2[i][j]->Ygrad[t][v] 1680 /*M2_VALSIT */ #define YG1_gcx2(i, j, t) Ygcx2[i][j]->Ygrad[t][0] 1681 /*M2_HERESIT*/ #define YG1Y_gcx2 Ygcx2[Yi][Yj]->Ygrad[YTemps][0] 1682 gcx2 *Ygcx2[YA1_S3dt_b][YA2_S3dt_b]; 1525 1683 1526 1684 //~~~~~~~~~~~~~~~~~~~~~~~~~ module spguv_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1532 1690 /*NBSMOD */ #define YNBS_spguv_dynspg_flt 2 1533 1691 /*NBIMOD */ #define YNBI_spguv_dynspg_flt 3 1534 /*M2_VALST */ #define Ystate_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt->Ystate[t][i][j][v] 1535 /*M2_VALST */ #define YS_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt->Ystate[t][i][j][v] 1536 /*M2_VALSIT */ #define YS1_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt->Ystate[t][i][j][0] 1537 /*M2_HERESIT*/ #define YS1Y_spguv_dynspg_flt Yspguv_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1538 /*M2_VALSIT */ #define YS2_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt->Ystate[t][i][j][1] 1539 /*M2_HERESIT*/ #define YS2Y_spguv_dynspg_flt Yspguv_dynspg_flt->Ystate[YTemps][Yi][Yj][1] 1540 /*M2_VALST */ #define Ygrad_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt->Ygrad[t][i][j][v] 1541 /*M2_VALST */ #define YG_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt->Ygrad[t][i][j][v] 1542 /*M2_VALSIT */ #define YG1_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt->Ygrad[t][i][j][0] 1543 /*M2_HERESIT*/ #define YG1Y_spguv_dynspg_flt Yspguv_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1544 /*M2_VALSIT */ #define YG2_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt->Ygrad[t][i][j][1] 1545 /*M2_HERESIT*/ #define YG2Y_spguv_dynspg_flt Yspguv_dynspg_flt->Ygrad[YTemps][Yi][Yj][1] 1546 spguv_dynspg_flt *Yspguv_dynspg_flt; 1692 /*M2_IRMOD */ #define Yspguv_dynspg_flt(i, j) Yspguv_dynspg_flt[i][j] 1693 /*M2_NOWMOD */ #define Yspguv_dynspg_fltY Yspguv_dynspg_flt[Yi][Yj] 1694 /*M2_VALST */ #define Ystate_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt[i][j]->Ystate[t][v] 1695 /*M2_VALST */ #define YS_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt[i][j]->Ystate[t][v] 1696 /*M2_VALSIT */ #define YS1_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt[i][j]->Ystate[t][0] 1697 /*M2_HERESIT*/ #define YS1Y_spguv_dynspg_flt Yspguv_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 1698 /*M2_VALSIT */ #define YS2_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt[i][j]->Ystate[t][1] 1699 /*M2_HERESIT*/ #define YS2Y_spguv_dynspg_flt Yspguv_dynspg_flt[Yi][Yj]->Ystate[YTemps][1] 1700 /*M2_VALST */ #define Ygrad_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt[i][j]->Ygrad[t][v] 1701 /*M2_VALST */ #define YG_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt[i][j]->Ygrad[t][v] 1702 /*M2_VALSIT */ #define YG1_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt[i][j]->Ygrad[t][0] 1703 /*M2_HERESIT*/ #define YG1Y_spguv_dynspg_flt Yspguv_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 1704 /*M2_VALSIT */ #define YG2_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt[i][j]->Ygrad[t][1] 1705 /*M2_HERESIT*/ #define YG2Y_spguv_dynspg_flt Yspguv_dynspg_flt[Yi][Yj]->Ygrad[YTemps][1] 1706 spguv_dynspg_flt *Yspguv_dynspg_flt[YA1_S3dt_b][YA2_S3dt_b]; 1547 1707 1548 1708 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1553 1713 /*NBSMOD */ #define YNBS_ua 1 1554 1714 /*NBIMOD */ #define YNBI_ua 3 1555 /*M3_VALST */ #define Ystate_ua(v, i, j, k, t) Yua->Ystate[t][i][j][k][v] 1556 /*M3_VALST */ #define YS_ua(v, i, j, k, t) Yua->Ystate[t][i][j][k][v] 1557 /*M3_VALSIT */ #define YS1_ua(i, j, k, t) Yua->Ystate[t][i][j][k][0] 1558 /*M3_HERESIT*/ #define YS1Y_ua Yua->Ystate[YTemps][Yi][Yj][Yk][0] 1559 /*M3_VALST */ #define Ygrad_ua(v, i, j, k, t) Yua->Ygrad[t][i][j][k][v] 1560 /*M3_VALST */ #define YG_ua(v, i, j, k, t) Yua->Ygrad[t][i][j][k][v] 1561 /*M3_VALSIT */ #define YG1_ua(i, j, k, t) Yua->Ygrad[t][i][j][k][0] 1562 /*M3_HERESIT*/ #define YG1Y_ua Yua->Ygrad[YTemps][Yi][Yj][Yk][0] 1563 ua *Yua; 1715 /*M3_IRMOD */ #define Yua(i, j, k) Yua[i][j][k] 1716 /*M3_NOWMOD */ #define YuaY Yua[Yi][Yj][Yk] 1717 /*M3_VALST */ #define Ystate_ua(v, i, j, k, t) Yua[i][j][k]->Ystate[t][v] 1718 /*M3_VALST */ #define YS_ua(v, i, j, k, t) Yua[i][j][k]->Ystate[t][v] 1719 /*M3_VALSIT */ #define YS1_ua(i, j, k, t) Yua[i][j][k]->Ystate[t][0] 1720 /*M3_HERESIT*/ #define YS1Y_ua Yua[Yi][Yj][Yk]->Ystate[YTemps][0] 1721 /*M3_VALST */ #define Ygrad_ua(v, i, j, k, t) Yua[i][j][k]->Ygrad[t][v] 1722 /*M3_VALST */ #define YG_ua(v, i, j, k, t) Yua[i][j][k]->Ygrad[t][v] 1723 /*M3_VALSIT */ #define YG1_ua(i, j, k, t) Yua[i][j][k]->Ygrad[t][0] 1724 /*M3_HERESIT*/ #define YG1Y_ua Yua[Yi][Yj][Yk]->Ygrad[YTemps][0] 1725 ua *Yua[YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b]; 1564 1726 1565 1727 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1570 1732 /*NBSMOD */ #define YNBS_va 1 1571 1733 /*NBIMOD */ #define YNBI_va 3 1572 /*M3_VALST */ #define Ystate_va(v, i, j, k, t) Yva->Ystate[t][i][j][k][v] 1573 /*M3_VALST */ #define YS_va(v, i, j, k, t) Yva->Ystate[t][i][j][k][v] 1574 /*M3_VALSIT */ #define YS1_va(i, j, k, t) Yva->Ystate[t][i][j][k][0] 1575 /*M3_HERESIT*/ #define YS1Y_va Yva->Ystate[YTemps][Yi][Yj][Yk][0] 1576 /*M3_VALST */ #define Ygrad_va(v, i, j, k, t) Yva->Ygrad[t][i][j][k][v] 1577 /*M3_VALST */ #define YG_va(v, i, j, k, t) Yva->Ygrad[t][i][j][k][v] 1578 /*M3_VALSIT */ #define YG1_va(i, j, k, t) Yva->Ygrad[t][i][j][k][0] 1579 /*M3_HERESIT*/ #define YG1Y_va Yva->Ygrad[YTemps][Yi][Yj][Yk][0] 1580 va *Yva; 1734 /*M3_IRMOD */ #define Yva(i, j, k) Yva[i][j][k] 1735 /*M3_NOWMOD */ #define YvaY Yva[Yi][Yj][Yk] 1736 /*M3_VALST */ #define Ystate_va(v, i, j, k, t) Yva[i][j][k]->Ystate[t][v] 1737 /*M3_VALST */ #define YS_va(v, i, j, k, t) Yva[i][j][k]->Ystate[t][v] 1738 /*M3_VALSIT */ #define YS1_va(i, j, k, t) Yva[i][j][k]->Ystate[t][0] 1739 /*M3_HERESIT*/ #define YS1Y_va Yva[Yi][Yj][Yk]->Ystate[YTemps][0] 1740 /*M3_VALST */ #define Ygrad_va(v, i, j, k, t) Yva[i][j][k]->Ygrad[t][v] 1741 /*M3_VALST */ #define YG_va(v, i, j, k, t) Yva[i][j][k]->Ygrad[t][v] 1742 /*M3_VALSIT */ #define YG1_va(i, j, k, t) Yva[i][j][k]->Ygrad[t][0] 1743 /*M3_HERESIT*/ #define YG1Y_va Yva[Yi][Yj][Yk]->Ygrad[YTemps][0] 1744 va *Yva[YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b]; 1581 1745 1582 1746 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sshn~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1588 1752 /*NBSMOD */ #define YNBS_sshn 1 1589 1753 /*NBIMOD */ #define YNBI_sshn 4 1590 /*M2_VALST */ #define Ystate_sshn(v, i, j, t) Ysshn->Ystate[t][i][j][v] 1591 /*M2_VALST */ #define YS_sshn(v, i, j, t) Ysshn->Ystate[t][i][j][v] 1592 /*M2_VALSIT */ #define YS1_sshn(i, j, t) Ysshn->Ystate[t][i][j][0] 1593 /*M2_HERESIT*/ #define YS1Y_sshn Ysshn->Ystate[YTemps][Yi][Yj][0] 1594 /*M2_VALST */ #define Ygrad_sshn(v, i, j, t) Ysshn->Ygrad[t][i][j][v] 1595 /*M2_VALST */ #define YG_sshn(v, i, j, t) Ysshn->Ygrad[t][i][j][v] 1596 /*M2_VALSIT */ #define YG1_sshn(i, j, t) Ysshn->Ygrad[t][i][j][0] 1597 /*M2_HERESIT*/ #define YG1Y_sshn Ysshn->Ygrad[YTemps][Yi][Yj][0] 1598 sshn *Ysshn; 1754 /*M2_IRMOD */ #define Ysshn(i, j) Ysshn[i][j] 1755 /*M2_NOWMOD */ #define YsshnY Ysshn[Yi][Yj] 1756 /*M2_VALST */ #define Ystate_sshn(v, i, j, t) Ysshn[i][j]->Ystate[t][v] 1757 /*M2_VALST */ #define YS_sshn(v, i, j, t) Ysshn[i][j]->Ystate[t][v] 1758 /*M2_VALSIT */ #define YS1_sshn(i, j, t) Ysshn[i][j]->Ystate[t][0] 1759 /*M2_HERESIT*/ #define YS1Y_sshn Ysshn[Yi][Yj]->Ystate[YTemps][0] 1760 /*M2_VALST */ #define Ygrad_sshn(v, i, j, t) Ysshn[i][j]->Ygrad[t][v] 1761 /*M2_VALST */ #define YG_sshn(v, i, j, t) Ysshn[i][j]->Ygrad[t][v] 1762 /*M2_VALSIT */ #define YG1_sshn(i, j, t) Ysshn[i][j]->Ygrad[t][0] 1763 /*M2_HERESIT*/ #define YG1Y_sshn Ysshn[Yi][Yj]->Ygrad[YTemps][0] 1764 sshn *Ysshn[YA1_S3dt_b][YA2_S3dt_b]; 1599 1765 1600 1766 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sshb~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1606 1772 /*NBSMOD */ #define YNBS_sshb 1 1607 1773 /*NBIMOD */ #define YNBI_sshb 4 1608 /*M2_VALST */ #define Ystate_sshb(v, i, j, t) Ysshb->Ystate[t][i][j][v] 1609 /*M2_VALST */ #define YS_sshb(v, i, j, t) Ysshb->Ystate[t][i][j][v] 1610 /*M2_VALSIT */ #define YS1_sshb(i, j, t) Ysshb->Ystate[t][i][j][0] 1611 /*M2_HERESIT*/ #define YS1Y_sshb Ysshb->Ystate[YTemps][Yi][Yj][0] 1612 /*M2_VALST */ #define Ygrad_sshb(v, i, j, t) Ysshb->Ygrad[t][i][j][v] 1613 /*M2_VALST */ #define YG_sshb(v, i, j, t) Ysshb->Ygrad[t][i][j][v] 1614 /*M2_VALSIT */ #define YG1_sshb(i, j, t) Ysshb->Ygrad[t][i][j][0] 1615 /*M2_HERESIT*/ #define YG1Y_sshb Ysshb->Ygrad[YTemps][Yi][Yj][0] 1616 sshb *Ysshb; 1617 /*M2_VALSG */ #define Ywish_sshb(v, i, j) Ysshb->Ywish[i][j][v] 1618 /*M2_VALSG */ #define YW_sshb(v, i, j) Ysshb->Ywish[i][j][v] 1619 /*M2_VALSGI */ #define YW1_sshb(i, j) Ysshb->Ywish[i][j][0] 1620 /*M2_HERESGI*/ #define YW1Y_sshb Ysshb->Ywish[Yi][Yj][0] 1774 /*M2_IRMOD */ #define Ysshb(i, j) Ysshb[i][j] 1775 /*M2_NOWMOD */ #define YsshbY Ysshb[Yi][Yj] 1776 /*M2_VALST */ #define Ystate_sshb(v, i, j, t) Ysshb[i][j]->Ystate[t][v] 1777 /*M2_VALST */ #define YS_sshb(v, i, j, t) Ysshb[i][j]->Ystate[t][v] 1778 /*M2_VALSIT */ #define YS1_sshb(i, j, t) Ysshb[i][j]->Ystate[t][0] 1779 /*M2_HERESIT*/ #define YS1Y_sshb Ysshb[Yi][Yj]->Ystate[YTemps][0] 1780 /*M2_VALST */ #define Ygrad_sshb(v, i, j, t) Ysshb[i][j]->Ygrad[t][v] 1781 /*M2_VALST */ #define YG_sshb(v, i, j, t) Ysshb[i][j]->Ygrad[t][v] 1782 /*M2_VALSIT */ #define YG1_sshb(i, j, t) Ysshb[i][j]->Ygrad[t][0] 1783 /*M2_HERESIT*/ #define YG1Y_sshb Ysshb[Yi][Yj]->Ygrad[YTemps][0] 1784 sshb *Ysshb[YA1_S3dt_b][YA2_S3dt_b]; 1785 /*M2_VALSG */ #define Ywish_sshb(v, i, j) Ysshb[i][j]->Ywish[v] 1786 /*M2_VALSG */ #define YW_sshb(v, i, j) Ysshb[i][j]->Ywish[v] 1787 /*M2_VALSGI */ #define YW1_sshb(i, j) Ysshb[i][j]->Ywish[0] 1788 /*M2_HERESGI*/ #define YW1Y_sshb Ysshb[Yi][Yj]->Ywish[0] 1621 1789 1622 1790 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ub~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1627 1795 /*NBSMOD */ #define YNBS_ub 1 1628 1796 /*NBIMOD */ #define YNBI_ub 4 1629 /*M3_VALST */ #define Ystate_ub(v, i, j, k, t) Yub->Ystate[t][i][j][k][v] 1630 /*M3_VALST */ #define YS_ub(v, i, j, k, t) Yub->Ystate[t][i][j][k][v] 1631 /*M3_VALSIT */ #define YS1_ub(i, j, k, t) Yub->Ystate[t][i][j][k][0] 1632 /*M3_HERESIT*/ #define YS1Y_ub Yub->Ystate[YTemps][Yi][Yj][Yk][0] 1633 /*M3_VALST */ #define Ygrad_ub(v, i, j, k, t) Yub->Ygrad[t][i][j][k][v] 1634 /*M3_VALST */ #define YG_ub(v, i, j, k, t) Yub->Ygrad[t][i][j][k][v] 1635 /*M3_VALSIT */ #define YG1_ub(i, j, k, t) Yub->Ygrad[t][i][j][k][0] 1636 /*M3_HERESIT*/ #define YG1Y_ub Yub->Ygrad[YTemps][Yi][Yj][Yk][0] 1637 ub *Yub; 1638 /*M3_VALSG */ #define Ywish_ub(v, i, j, k) Yub->Ywish[i][j][k][v] 1639 /*M3_VALSG */ #define YW_ub(v, i, j, k) Yub->Ywish[i][j][k][v] 1640 /*M3_VALSGI */ #define YW1_ub(i, j, k) Yub->Ywish[i][j][k][0] 1641 /*M3_HERESGI*/ #define YW1Y_ub Yub->Ywish[Yi][Yj][Yk][0] 1797 /*M3_IRMOD */ #define Yub(i, j, k) Yub[i][j][k] 1798 /*M3_NOWMOD */ #define YubY Yub[Yi][Yj][Yk] 1799 /*M3_VALST */ #define Ystate_ub(v, i, j, k, t) Yub[i][j][k]->Ystate[t][v] 1800 /*M3_VALST */ #define YS_ub(v, i, j, k, t) Yub[i][j][k]->Ystate[t][v] 1801 /*M3_VALSIT */ #define YS1_ub(i, j, k, t) Yub[i][j][k]->Ystate[t][0] 1802 /*M3_HERESIT*/ #define YS1Y_ub Yub[Yi][Yj][Yk]->Ystate[YTemps][0] 1803 /*M3_VALST */ #define Ygrad_ub(v, i, j, k, t) Yub[i][j][k]->Ygrad[t][v] 1804 /*M3_VALST */ #define YG_ub(v, i, j, k, t) Yub[i][j][k]->Ygrad[t][v] 1805 /*M3_VALSIT */ #define YG1_ub(i, j, k, t) Yub[i][j][k]->Ygrad[t][0] 1806 /*M3_HERESIT*/ #define YG1Y_ub Yub[Yi][Yj][Yk]->Ygrad[YTemps][0] 1807 ub *Yub[YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b]; 1808 /*M3_VALSG */ #define Ywish_ub(v, i, j, k) Yub[i][j][k]->Ywish[v] 1809 /*M3_VALSG */ #define YW_ub(v, i, j, k) Yub[i][j][k]->Ywish[v] 1810 /*M3_VALSGI */ #define YW1_ub(i, j, k) Yub[i][j][k]->Ywish[0] 1811 /*M3_HERESGI*/ #define YW1Y_ub Yub[Yi][Yj][Yk]->Ywish[0] 1642 1812 1643 1813 //~~~~~~~~~~~~~~~~~~~~~~~~~ module vb~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1648 1818 /*NBSMOD */ #define YNBS_vb 1 1649 1819 /*NBIMOD */ #define YNBI_vb 4 1650 /*M3_VALST */ #define Ystate_vb(v, i, j, k, t) Yvb->Ystate[t][i][j][k][v] 1651 /*M3_VALST */ #define YS_vb(v, i, j, k, t) Yvb->Ystate[t][i][j][k][v] 1652 /*M3_VALSIT */ #define YS1_vb(i, j, k, t) Yvb->Ystate[t][i][j][k][0] 1653 /*M3_HERESIT*/ #define YS1Y_vb Yvb->Ystate[YTemps][Yi][Yj][Yk][0] 1654 /*M3_VALST */ #define Ygrad_vb(v, i, j, k, t) Yvb->Ygrad[t][i][j][k][v] 1655 /*M3_VALST */ #define YG_vb(v, i, j, k, t) Yvb->Ygrad[t][i][j][k][v] 1656 /*M3_VALSIT */ #define YG1_vb(i, j, k, t) Yvb->Ygrad[t][i][j][k][0] 1657 /*M3_HERESIT*/ #define YG1Y_vb Yvb->Ygrad[YTemps][Yi][Yj][Yk][0] 1658 vb *Yvb; 1659 /*M3_VALSG */ #define Ywish_vb(v, i, j, k) Yvb->Ywish[i][j][k][v] 1660 /*M3_VALSG */ #define YW_vb(v, i, j, k) Yvb->Ywish[i][j][k][v] 1661 /*M3_VALSGI */ #define YW1_vb(i, j, k) Yvb->Ywish[i][j][k][0] 1662 /*M3_HERESGI*/ #define YW1Y_vb Yvb->Ywish[Yi][Yj][Yk][0] 1820 /*M3_IRMOD */ #define Yvb(i, j, k) Yvb[i][j][k] 1821 /*M3_NOWMOD */ #define YvbY Yvb[Yi][Yj][Yk] 1822 /*M3_VALST */ #define Ystate_vb(v, i, j, k, t) Yvb[i][j][k]->Ystate[t][v] 1823 /*M3_VALST */ #define YS_vb(v, i, j, k, t) Yvb[i][j][k]->Ystate[t][v] 1824 /*M3_VALSIT */ #define YS1_vb(i, j, k, t) Yvb[i][j][k]->Ystate[t][0] 1825 /*M3_HERESIT*/ #define YS1Y_vb Yvb[Yi][Yj][Yk]->Ystate[YTemps][0] 1826 /*M3_VALST */ #define Ygrad_vb(v, i, j, k, t) Yvb[i][j][k]->Ygrad[t][v] 1827 /*M3_VALST */ #define YG_vb(v, i, j, k, t) Yvb[i][j][k]->Ygrad[t][v] 1828 /*M3_VALSIT */ #define YG1_vb(i, j, k, t) Yvb[i][j][k]->Ygrad[t][0] 1829 /*M3_HERESIT*/ #define YG1Y_vb Yvb[Yi][Yj][Yk]->Ygrad[YTemps][0] 1830 vb *Yvb[YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b]; 1831 /*M3_VALSG */ #define Ywish_vb(v, i, j, k) Yvb[i][j][k]->Ywish[v] 1832 /*M3_VALSG */ #define YW_vb(v, i, j, k) Yvb[i][j][k]->Ywish[v] 1833 /*M3_VALSGI */ #define YW1_vb(i, j, k) Yvb[i][j][k]->Ywish[0] 1834 /*M3_HERESGI*/ #define YW1Y_vb Yvb[Yi][Yj][Yk]->Ywish[0] 1663 1835 1664 1836 //~~~~~~~~~~~~~~~~~~~~~~~~~ module hdivn~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1669 1841 /*NBSMOD */ #define YNBS_hdivn 1 1670 1842 /*NBIMOD */ #define YNBI_hdivn 4 1671 /*M3_VALST */ #define Ystate_hdivn(v, i, j, k, t) Yhdivn->Ystate[t][i][j][k][v] 1672 /*M3_VALST */ #define YS_hdivn(v, i, j, k, t) Yhdivn->Ystate[t][i][j][k][v] 1673 /*M3_VALSIT */ #define YS1_hdivn(i, j, k, t) Yhdivn->Ystate[t][i][j][k][0] 1674 /*M3_HERESIT*/ #define YS1Y_hdivn Yhdivn->Ystate[YTemps][Yi][Yj][Yk][0] 1675 /*M3_VALST */ #define Ygrad_hdivn(v, i, j, k, t) Yhdivn->Ygrad[t][i][j][k][v] 1676 /*M3_VALST */ #define YG_hdivn(v, i, j, k, t) Yhdivn->Ygrad[t][i][j][k][v] 1677 /*M3_VALSIT */ #define YG1_hdivn(i, j, k, t) Yhdivn->Ygrad[t][i][j][k][0] 1678 /*M3_HERESIT*/ #define YG1Y_hdivn Yhdivn->Ygrad[YTemps][Yi][Yj][Yk][0] 1679 hdivn *Yhdivn; 1843 /*M3_IRMOD */ #define Yhdivn(i, j, k) Yhdivn[i][j][k] 1844 /*M3_NOWMOD */ #define YhdivnY Yhdivn[Yi][Yj][Yk] 1845 /*M3_VALST */ #define Ystate_hdivn(v, i, j, k, t) Yhdivn[i][j][k]->Ystate[t][v] 1846 /*M3_VALST */ #define YS_hdivn(v, i, j, k, t) Yhdivn[i][j][k]->Ystate[t][v] 1847 /*M3_VALSIT */ #define YS1_hdivn(i, j, k, t) Yhdivn[i][j][k]->Ystate[t][0] 1848 /*M3_HERESIT*/ #define YS1Y_hdivn Yhdivn[Yi][Yj][Yk]->Ystate[YTemps][0] 1849 /*M3_VALST */ #define Ygrad_hdivn(v, i, j, k, t) Yhdivn[i][j][k]->Ygrad[t][v] 1850 /*M3_VALST */ #define YG_hdivn(v, i, j, k, t) Yhdivn[i][j][k]->Ygrad[t][v] 1851 /*M3_VALSIT */ #define YG1_hdivn(i, j, k, t) Yhdivn[i][j][k]->Ygrad[t][0] 1852 /*M3_HERESIT*/ #define YG1Y_hdivn Yhdivn[Yi][Yj][Yk]->Ygrad[YTemps][0] 1853 hdivn *Yhdivn[YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b]; 1680 1854 1681 1855 //~~~~~~~~~~~~~~~~~~~~~~~~~ module rotn~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1686 1860 /*NBSMOD */ #define YNBS_rotn 1 1687 1861 /*NBIMOD */ #define YNBI_rotn 4 1688 /*M3_VALST */ #define Ystate_rotn(v, i, j, k, t) Yrotn->Ystate[t][i][j][k][v] 1689 /*M3_VALST */ #define YS_rotn(v, i, j, k, t) Yrotn->Ystate[t][i][j][k][v] 1690 /*M3_VALSIT */ #define YS1_rotn(i, j, k, t) Yrotn->Ystate[t][i][j][k][0] 1691 /*M3_HERESIT*/ #define YS1Y_rotn Yrotn->Ystate[YTemps][Yi][Yj][Yk][0] 1692 /*M3_VALST */ #define Ygrad_rotn(v, i, j, k, t) Yrotn->Ygrad[t][i][j][k][v] 1693 /*M3_VALST */ #define YG_rotn(v, i, j, k, t) Yrotn->Ygrad[t][i][j][k][v] 1694 /*M3_VALSIT */ #define YG1_rotn(i, j, k, t) Yrotn->Ygrad[t][i][j][k][0] 1695 /*M3_HERESIT*/ #define YG1Y_rotn Yrotn->Ygrad[YTemps][Yi][Yj][Yk][0] 1696 rotn *Yrotn; 1862 /*M3_IRMOD */ #define Yrotn(i, j, k) Yrotn[i][j][k] 1863 /*M3_NOWMOD */ #define YrotnY Yrotn[Yi][Yj][Yk] 1864 /*M3_VALST */ #define Ystate_rotn(v, i, j, k, t) Yrotn[i][j][k]->Ystate[t][v] 1865 /*M3_VALST */ #define YS_rotn(v, i, j, k, t) Yrotn[i][j][k]->Ystate[t][v] 1866 /*M3_VALSIT */ #define YS1_rotn(i, j, k, t) Yrotn[i][j][k]->Ystate[t][0] 1867 /*M3_HERESIT*/ #define YS1Y_rotn Yrotn[Yi][Yj][Yk]->Ystate[YTemps][0] 1868 /*M3_VALST */ #define Ygrad_rotn(v, i, j, k, t) Yrotn[i][j][k]->Ygrad[t][v] 1869 /*M3_VALST */ #define YG_rotn(v, i, j, k, t) Yrotn[i][j][k]->Ygrad[t][v] 1870 /*M3_VALSIT */ #define YG1_rotn(i, j, k, t) Yrotn[i][j][k]->Ygrad[t][0] 1871 /*M3_HERESIT*/ #define YG1Y_rotn Yrotn[Yi][Yj][Yk]->Ygrad[YTemps][0] 1872 rotn *Yrotn[YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b]; 1697 1873 1698 1874 //~~~~~~~~~~~~~~~~~~~~~~~~~ module wa~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1703 1879 /*NBSMOD */ #define YNBS_wa 1 1704 1880 /*NBIMOD */ #define YNBI_wa 2 1705 /*M3_VALST */ #define Ystate_wa(v, i, j, k, t) Ywa->Ystate[t][i][j][k][v] 1706 /*M3_VALST */ #define YS_wa(v, i, j, k, t) Ywa->Ystate[t][i][j][k][v] 1707 /*M3_VALSIT */ #define YS1_wa(i, j, k, t) Ywa->Ystate[t][i][j][k][0] 1708 /*M3_HERESIT*/ #define YS1Y_wa Ywa->Ystate[YTemps][Yi][Yj][Yk][0] 1709 /*M3_VALST */ #define Ygrad_wa(v, i, j, k, t) Ywa->Ygrad[t][i][j][k][v] 1710 /*M3_VALST */ #define YG_wa(v, i, j, k, t) Ywa->Ygrad[t][i][j][k][v] 1711 /*M3_VALSIT */ #define YG1_wa(i, j, k, t) Ywa->Ygrad[t][i][j][k][0] 1712 /*M3_HERESIT*/ #define YG1Y_wa Ywa->Ygrad[YTemps][Yi][Yj][Yk][0] 1713 wa *Ywa; 1881 /*M3_IRMOD */ #define Ywa(i, j, k) Ywa[i][j][k] 1882 /*M3_NOWMOD */ #define YwaY Ywa[Yi][Yj][Yk] 1883 /*M3_VALST */ #define Ystate_wa(v, i, j, k, t) Ywa[i][j][k]->Ystate[t][v] 1884 /*M3_VALST */ #define YS_wa(v, i, j, k, t) Ywa[i][j][k]->Ystate[t][v] 1885 /*M3_VALSIT */ #define YS1_wa(i, j, k, t) Ywa[i][j][k]->Ystate[t][0] 1886 /*M3_HERESIT*/ #define YS1Y_wa Ywa[Yi][Yj][Yk]->Ystate[YTemps][0] 1887 /*M3_VALST */ #define Ygrad_wa(v, i, j, k, t) Ywa[i][j][k]->Ygrad[t][v] 1888 /*M3_VALST */ #define YG_wa(v, i, j, k, t) Ywa[i][j][k]->Ygrad[t][v] 1889 /*M3_VALSIT */ #define YG1_wa(i, j, k, t) Ywa[i][j][k]->Ygrad[t][0] 1890 /*M3_HERESIT*/ #define YG1Y_wa Ywa[Yi][Yj][Yk]->Ygrad[YTemps][0] 1891 wa *Ywa[YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b]; 1714 1892 #define YSIZEPB 21824//sum of the number of states (output) of all targets 1715 1893 1716 // ᅵ ᅵ ᅵ ᅵ FOR M1QN3 ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ1894 //€ € € € FOR M1QN3 € € € € € € € € € € € € € € € € € € € € € € € 1717 1895 float Y3x[YSIZEPB]; //table for the states of targets 1718 1896 float Y3g[YSIZEPB]; //table for the gradients of targets … … 1879 2057 { 1880 2058 public: 1881 double Ystate[Y A1_S3d][YA2_S3d][YNBS_sshn_c];1882 double Ygrad[Y A1_S3d][YA2_S3d][YNBS_sshn_c];2059 double Ystate[YNBS_sshn_c]; 2060 double Ygrad[YNBS_sshn_c]; 1883 2061 1884 2062 //:=========> Constructor - Destructor ============ … … 1892 2070 { 1893 2071 public: 1894 double Ystate[Y A1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c];1895 double Ygrad[Y A1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c];1896 double Yepsi[Y A1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c];1897 double Ywish[Y A1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c];2072 double Ystate[YNBS_ta_c]; 2073 double Ygrad[YNBS_ta_c]; 2074 double Yepsi[YNBS_ta_c]; 2075 double Ywish[YNBS_ta_c]; 1898 2076 1899 2077 //:=========> Constructor - Destructor ============ … … 1907 2085 { 1908 2086 public: 1909 double Ystate[Y A1_S3d][YA2_S3d][YA3_S3d][YNBS_sa_c];1910 double Ygrad[Y A1_S3d][YA2_S3d][YA3_S3d][YNBS_sa_c];2087 double Ystate[YNBS_sa_c]; 2088 double Ygrad[YNBS_sa_c]; 1911 2089 1912 2090 //:=========> Constructor - Destructor ============ … … 1920 2098 { 1921 2099 public: 1922 double Ystate[Y A1_S3d][YA2_S3d][YA3_S3d][YNBS_ua_c];1923 double Ygrad[Y A1_S3d][YA2_S3d][YA3_S3d][YNBS_ua_c];2100 double Ystate[YNBS_ua_c]; 2101 double Ygrad[YNBS_ua_c]; 1924 2102 1925 2103 //:=========> Constructor - Destructor ============ … … 1933 2111 { 1934 2112 public: 1935 double Ystate[Y A1_S3d][YA2_S3d][YA3_S3d][YNBS_va_c];1936 double Ygrad[Y A1_S3d][YA2_S3d][YA3_S3d][YNBS_va_c];2113 double Ystate[YNBS_va_c]; 2114 double Ygrad[YNBS_va_c]; 1937 2115 1938 2116 //:=========> Constructor - Destructor ============ … … 1946 2124 { 1947 2125 public: 1948 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sbcgyre_qsr_qns];1949 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sbcgyre_qsr_qns];2126 double Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_qsr_qns]; 2127 double Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_qsr_qns]; 1950 2128 1951 2129 //:=========> Constructor - Destructor ============ … … 1968 2146 { 1969 2147 public: 1970 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp1];1971 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp1];2148 double Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp1]; 2149 double Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp1]; 1972 2150 1973 2151 //:=========> Constructor - Destructor ============ … … 1990 2168 { 1991 2169 public: 1992 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sbcgyre_zsumemp_zsurf];1993 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sbcgyre_zsumemp_zsurf];2170 double Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_zsumemp_zsurf]; 2171 double Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_zsumemp_zsurf]; 1994 2172 1995 2173 //:=========> Constructor - Destructor ============ … … 2012 2190 { 2013 2191 public: 2014 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp];2015 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp];2192 double Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp]; 2193 double Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_emp]; 2016 2194 2017 2195 //:=========> Constructor - Destructor ============ … … 2034 2212 { 2035 2213 public: 2036 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sbcgyre_emps];2037 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sbcgyre_emps];2214 double Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_emps]; 2215 double Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_emps]; 2038 2216 2039 2217 //:=========> Constructor - Destructor ============ … … 2056 2234 { 2057 2235 public: 2058 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sbcgyre_utau_vtau];2059 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sbcgyre_utau_vtau];2236 double Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_utau_vtau]; 2237 double Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_utau_vtau]; 2060 2238 2061 2239 //:=========> Constructor - Destructor ============ … … 2078 2256 { 2079 2257 public: 2080 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sbcgyre_wndm];2081 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sbcgyre_wndm];2258 double Ystate[YNBALLTIME_Tsbd][YNBS_sbcgyre_wndm]; 2259 double Ygrad[YNBALLTIME_Tsbd][YNBS_sbcgyre_wndm]; 2082 2260 2083 2261 //:=========> Constructor - Destructor ============ … … 2100 2278 { 2101 2279 public: 2102 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_bn2_rn2];2103 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_bn2_rn2];2280 double Ystate[YNBALLTIME_Tsbd][YNBS_bn2_rn2]; 2281 double Ygrad[YNBALLTIME_Tsbd][YNBS_bn2_rn2]; 2104 2282 2105 2283 //:=========> Constructor - Destructor ============ … … 2122 2300 { 2123 2301 public: 2124 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zdf_avt_avmu_avmv];2125 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zdf_avt_avmu_avmv];2302 double Ystate[YNBALLTIME_Tsbd][YNBS_zdf_avt_avmu_avmv]; 2303 double Ygrad[YNBALLTIME_Tsbd][YNBS_zdf_avt_avmu_avmv]; 2126 2304 2127 2305 //:=========> Constructor - Destructor ============ … … 2144 2322 { 2145 2323 public: 2146 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_zdfmxl_hmld];2147 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_zdfmxl_hmld];2324 double Ystate[YNBALLTIME_Tsbd][YNBS_zdfmxl_hmld]; 2325 double Ygrad[YNBALLTIME_Tsbd][YNBS_zdfmxl_hmld]; 2148 2326 2149 2327 //:=========> Constructor - Destructor ============ … … 2166 2344 { 2167 2345 public: 2168 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_zdfmxl_nmln_hmlp_hmlpt];2169 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_zdfmxl_nmln_hmlp_hmlpt];2346 double Ystate[YNBALLTIME_Tsbd][YNBS_zdfmxl_nmln_hmlp_hmlpt]; 2347 double Ygrad[YNBALLTIME_Tsbd][YNBS_zdfmxl_nmln_hmlp_hmlpt]; 2170 2348 2171 2349 //:=========> Constructor - Destructor ============ … … 2188 2366 { 2189 2367 public: 2190 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_ta_sa_trasbc];2191 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_ta_sa_trasbc];2368 double Ystate[YNBALLTIME_Tsbd][YNBS_ta_sa_trasbc]; 2369 double Ygrad[YNBALLTIME_Tsbd][YNBS_ta_sa_trasbc]; 2192 2370 2193 2371 //:=========> Constructor - Destructor ============ … … 2210 2388 { 2211 2389 public: 2212 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traqsr];2213 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traqsr];2390 double Ystate[YNBALLTIME_Tsbd][YNBS_ta_traqsr]; 2391 double Ygrad[YNBALLTIME_Tsbd][YNBS_ta_traqsr]; 2214 2392 2215 2393 //:=========> Constructor - Destructor ============ … … 2232 2410 { 2233 2411 public: 2234 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_hor_traadv_cen2];2235 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_hor_traadv_cen2];2412 double Ystate[YNBALLTIME_Tsbd][YNBS_zcent_hor_traadv_cen2]; 2413 double Ygrad[YNBALLTIME_Tsbd][YNBS_zcent_hor_traadv_cen2]; 2236 2414 2237 2415 //:=========> Constructor - Destructor ============ … … 2257 2435 { 2258 2436 public: 2259 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_hor_traadv_cen2];2260 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_hor_traadv_cen2];2437 double Ystate[YNBALLTIME_Tsbd][YNBS_ta_hor_traadv_cen2]; 2438 double Ygrad[YNBALLTIME_Tsbd][YNBS_ta_hor_traadv_cen2]; 2261 2439 2262 2440 //:=========> Constructor - Destructor ============ … … 2279 2457 { 2280 2458 public: 2281 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa_hor_traadv_cen2];2282 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa_hor_traadv_cen2];2459 double Ystate[YNBALLTIME_Tsbd][YNBS_sa_hor_traadv_cen2]; 2460 double Ygrad[YNBALLTIME_Tsbd][YNBS_sa_hor_traadv_cen2]; 2283 2461 2284 2462 //:=========> Constructor - Destructor ============ … … 2301 2479 { 2302 2480 public: 2303 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_ver_traadv_cen2];2304 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_ver_traadv_cen2];2481 double Ystate[YNBALLTIME_Tsbd][YNBS_zcent_ver_traadv_cen2]; 2482 double Ygrad[YNBALLTIME_Tsbd][YNBS_zcent_ver_traadv_cen2]; 2305 2483 2306 2484 //:=========> Constructor - Destructor ============ … … 2326 2504 { 2327 2505 public: 2328 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_ver_traadv_cen2];2329 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_ver_traadv_cen2];2506 double Ystate[YNBALLTIME_Tsbd][YNBS_ta_ver_traadv_cen2]; 2507 double Ygrad[YNBALLTIME_Tsbd][YNBS_ta_ver_traadv_cen2]; 2330 2508 2331 2509 //:=========> Constructor - Destructor ============ … … 2351 2529 { 2352 2530 public: 2353 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ztuv_traldf_lap];2354 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ztuv_traldf_lap];2531 double Ystate[YNBALLTIME_Tsbd][YNBS_ztuv_traldf_lap]; 2532 double Ygrad[YNBALLTIME_Tsbd][YNBS_ztuv_traldf_lap]; 2355 2533 2356 2534 //:=========> Constructor - Destructor ============ … … 2376 2554 { 2377 2555 public: 2378 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traldf_lap];2379 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traldf_lap];2556 double Ystate[YNBALLTIME_Tsbd][YNBS_ta_traldf_lap]; 2557 double Ygrad[YNBALLTIME_Tsbd][YNBS_ta_traldf_lap]; 2380 2558 2381 2559 //:=========> Constructor - Destructor ============ … … 2401 2579 { 2402 2580 public: 2403 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_trazdf_imp];2404 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_trazdf_imp];2581 double Ystate[YNBALLTIME_Tsbd][YNBS_zwisd_trazdf_imp]; 2582 double Ygrad[YNBALLTIME_Tsbd][YNBS_zwisd_trazdf_imp]; 2405 2583 2406 2584 //:=========> Constructor - Destructor ============ … … 2423 2601 { 2424 2602 public: 2425 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_trazdf_imp];2426 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_trazdf_imp];2603 double Ystate[YNBALLTIME_Tsbd][YNBS_zrhs_trazdf_imp]; 2604 double Ygrad[YNBALLTIME_Tsbd][YNBS_zrhs_trazdf_imp]; 2427 2605 2428 2606 //:=========> Constructor - Destructor ============ … … 2448 2626 { 2449 2627 public: 2450 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwt_trazdf_imp];2451 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwt_trazdf_imp];2628 double Ystate[YNBALLTIME_Tsbd][YNBS_zwt_trazdf_imp]; 2629 double Ygrad[YNBALLTIME_Tsbd][YNBS_zwt_trazdf_imp]; 2452 2630 2453 2631 //:=========> Constructor - Destructor ============ … … 2473 2651 { 2474 2652 public: 2475 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta];2476 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta];2653 double Ystate[YNBALLTIME_Tsbd][YNBS_ta]; 2654 double Ygrad[YNBALLTIME_Tsbd][YNBS_ta]; 2477 2655 2478 2656 //:=========> Constructor - Destructor ============ … … 2498 2676 { 2499 2677 public: 2500 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa];2501 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa];2678 double Ystate[YNBALLTIME_Tsbd][YNBS_sa]; 2679 double Ygrad[YNBALLTIME_Tsbd][YNBS_sa]; 2502 2680 2503 2681 //:=========> Constructor - Destructor ============ … … 2520 2698 { 2521 2699 public: 2522 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_tb];2523 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_tb];2524 double Ywish[Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_tb];2700 double Ystate[YNBALLTIME_Tsbd][YNBS_tb]; 2701 double Ygrad[YNBALLTIME_Tsbd][YNBS_tb]; 2702 double Ywish[YNBS_tb]; 2525 2703 2526 2704 //:=========> Constructor - Destructor ============ … … 2543 2721 { 2544 2722 public: 2545 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sb];2546 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sb];2547 double Ywish[Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sb];2723 double Ystate[YNBALLTIME_Tsbd][YNBS_sb]; 2724 double Ygrad[YNBALLTIME_Tsbd][YNBS_sb]; 2725 double Ywish[YNBS_sb]; 2548 2726 2549 2727 //:=========> Constructor - Destructor ============ … … 2566 2744 { 2567 2745 public: 2568 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhd];2569 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhd];2746 double Ystate[YNBALLTIME_Tsbd][YNBS_rhd]; 2747 double Ygrad[YNBALLTIME_Tsbd][YNBS_rhd]; 2570 2748 2571 2749 //:=========> Constructor - Destructor ============ … … 2588 2766 { 2589 2767 public: 2590 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhop];2591 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhop];2768 double Ystate[YNBALLTIME_Tsbd][YNBS_rhop]; 2769 double Ygrad[YNBALLTIME_Tsbd][YNBS_rhop]; 2592 2770 2593 2771 //:=========> Constructor - Destructor ============ … … 2610 2788 { 2611 2789 public: 2612 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_hmf_TF_dynadv_cen2];2613 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_hmf_TF_dynadv_cen2];2790 double Ystate[YNBALLTIME_Tsbd][YNBS_hmf_TF_dynadv_cen2]; 2791 double Ygrad[YNBALLTIME_Tsbd][YNBS_hmf_TF_dynadv_cen2]; 2614 2792 2615 2793 //:=========> Constructor - Destructor ============ … … 2632 2810 { 2633 2811 public: 2634 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zua_dhmf_dynadv_cen2];2635 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zua_dhmf_dynadv_cen2];2812 double Ystate[YNBALLTIME_Tsbd][YNBS_zua_dhmf_dynadv_cen2]; 2813 double Ygrad[YNBALLTIME_Tsbd][YNBS_zua_dhmf_dynadv_cen2]; 2636 2814 2637 2815 //:=========> Constructor - Destructor ============ … … 2654 2832 { 2655 2833 public: 2656 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zva_dhmf_dynadv_cen2];2657 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zva_dhmf_dynadv_cen2];2834 double Ystate[YNBALLTIME_Tsbd][YNBS_zva_dhmf_dynadv_cen2]; 2835 double Ygrad[YNBALLTIME_Tsbd][YNBS_zva_dhmf_dynadv_cen2]; 2658 2836 2659 2837 //:=========> Constructor - Destructor ============ … … 2676 2854 { 2677 2855 public: 2678 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zfuv_UW_dynadv_cen2];2679 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zfuv_UW_dynadv_cen2];2856 double Ystate[YNBALLTIME_Tsbd][YNBS_zfuv_UW_dynadv_cen2]; 2857 double Ygrad[YNBALLTIME_Tsbd][YNBS_zfuv_UW_dynadv_cen2]; 2680 2858 2681 2859 //:=========> Constructor - Destructor ============ … … 2698 2876 { 2699 2877 public: 2700 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynadv_cen2];2701 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynadv_cen2];2878 double Ystate[YNBALLTIME_Tsbd][YNBS_ua_dynadv_cen2]; 2879 double Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dynadv_cen2]; 2702 2880 2703 2881 //:=========> Constructor - Destructor ============ … … 2720 2898 { 2721 2899 public: 2722 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dynadv_cen2];2723 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dynadv_cen2];2900 double Ystate[YNBALLTIME_Tsbd][YNBS_va_dynadv_cen2]; 2901 double Ygrad[YNBALLTIME_Tsbd][YNBS_va_dynadv_cen2]; 2724 2902 2725 2903 //:=========> Constructor - Destructor ============ … … 2742 2920 { 2743 2921 public: 2744 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwxyz_vor_ene];2745 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwxyz_vor_ene];2922 double Ystate[YNBALLTIME_Tsbd][YNBS_zwxyz_vor_ene]; 2923 double Ygrad[YNBALLTIME_Tsbd][YNBS_zwxyz_vor_ene]; 2746 2924 2747 2925 //:=========> Constructor - Destructor ============ … … 2764 2942 { 2765 2943 public: 2766 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_vor_ene];2767 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_vor_ene];2944 double Ystate[YNBALLTIME_Tsbd][YNBS_ua_vor_ene]; 2945 double Ygrad[YNBALLTIME_Tsbd][YNBS_ua_vor_ene]; 2768 2946 2769 2947 //:=========> Constructor - Destructor ============ … … 2786 2964 { 2787 2965 public: 2788 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_vor_ene];2789 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_vor_ene];2966 double Ystate[YNBALLTIME_Tsbd][YNBS_va_vor_ene]; 2967 double Ygrad[YNBALLTIME_Tsbd][YNBS_va_vor_ene]; 2790 2968 2791 2969 //:=========> Constructor - Destructor ============ … … 2808 2986 { 2809 2987 public: 2810 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_ldf_lap];2811 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_ldf_lap];2988 double Ystate[YNBALLTIME_Tsbd][YNBS_ua_dyn_ldf_lap]; 2989 double Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dyn_ldf_lap]; 2812 2990 2813 2991 //:=========> Constructor - Destructor ============ … … 2830 3008 { 2831 3009 public: 2832 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dyn_ldf_lap];2833 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dyn_ldf_lap];3010 double Ystate[YNBALLTIME_Tsbd][YNBS_va_dyn_ldf_lap]; 3011 double Ygrad[YNBALLTIME_Tsbd][YNBS_va_dyn_ldf_lap]; 2834 3012 2835 3013 //:=========> Constructor - Destructor ============ … … 2852 3030 { 2853 3031 public: 2854 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zhpij_dyn_hpg_zco];2855 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zhpij_dyn_hpg_zco];3032 double Ystate[YNBALLTIME_Tsbd][YNBS_zhpij_dyn_hpg_zco]; 3033 double Ygrad[YNBALLTIME_Tsbd][YNBS_zhpij_dyn_hpg_zco]; 2856 3034 2857 3035 //:=========> Constructor - Destructor ============ … … 2874 3052 { 2875 3053 public: 2876 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_hpg_zco];2877 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_hpg_zco];3054 double Ystate[YNBALLTIME_Tsbd][YNBS_ua_dyn_hpg_zco]; 3055 double Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dyn_hpg_zco]; 2878 3056 2879 3057 //:=========> Constructor - Destructor ============ … … 2899 3077 { 2900 3078 public: 2901 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_ua_dynzdf_imp];2902 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_ua_dynzdf_imp];3079 double Ystate[YNBALLTIME_Tsbd][YNBS_zwisd_ua_dynzdf_imp]; 3080 double Ygrad[YNBALLTIME_Tsbd][YNBS_zwisd_ua_dynzdf_imp]; 2903 3081 2904 3082 //:=========> Constructor - Destructor ============ … … 2921 3099 { 2922 3100 public: 2923 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_va_dynzdf_imp];2924 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_va_dynzdf_imp];3101 double Ystate[YNBALLTIME_Tsbd][YNBS_zwisd_va_dynzdf_imp]; 3102 double Ygrad[YNBALLTIME_Tsbd][YNBS_zwisd_va_dynzdf_imp]; 2925 3103 2926 3104 //:=========> Constructor - Destructor ============ … … 2943 3121 { 2944 3122 public: 2945 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_ua_dynzdf_imp];2946 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_ua_dynzdf_imp];3123 double Ystate[YNBALLTIME_Tsbd][YNBS_zrhs_ua_dynzdf_imp]; 3124 double Ygrad[YNBALLTIME_Tsbd][YNBS_zrhs_ua_dynzdf_imp]; 2947 3125 2948 3126 //:=========> Constructor - Destructor ============ … … 2965 3143 { 2966 3144 public: 2967 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_va_dynzdf_imp];2968 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_va_dynzdf_imp];3145 double Ystate[YNBALLTIME_Tsbd][YNBS_zrhs_va_dynzdf_imp]; 3146 double Ygrad[YNBALLTIME_Tsbd][YNBS_zrhs_va_dynzdf_imp]; 2969 3147 2970 3148 //:=========> Constructor - Destructor ============ … … 2996 3174 { 2997 3175 public: 2998 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynzdf_imp];2999 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynzdf_imp];3176 double Ystate[YNBALLTIME_Tsbd][YNBS_ua_dynzdf_imp]; 3177 double Ygrad[YNBALLTIME_Tsbd][YNBS_ua_dynzdf_imp]; 3000 3178 3001 3179 //:=========> Constructor - Destructor ============ … … 3024 3202 { 3025 3203 public: 3026 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_norm_dynzdf];3027 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_norm_dynzdf];3204 double Ystate[YNBALLTIME_Tsbd][YNBS_ua_norm_dynzdf]; 3205 double Ygrad[YNBALLTIME_Tsbd][YNBS_ua_norm_dynzdf]; 3028 3206 3029 3207 //:=========> Constructor - Destructor ============ … … 3049 3227 { 3050 3228 public: 3051 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_spguv_now_dynspg];3052 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_spguv_now_dynspg];3229 double Ystate[YNBALLTIME_Tsbd][YNBS_spguv_now_dynspg]; 3230 double Ygrad[YNBALLTIME_Tsbd][YNBS_spguv_now_dynspg]; 3053 3231 3054 3232 //:=========> Constructor - Destructor ============ … … 3071 3249 { 3072 3250 public: 3073 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_1_dynspg_flt];3074 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_1_dynspg_flt];3251 double Ystate[YNBALLTIME_Tsbd][YNBS_ua_1_dynspg_flt]; 3252 double Ygrad[YNBALLTIME_Tsbd][YNBS_ua_1_dynspg_flt]; 3075 3253 3076 3254 //:=========> Constructor - Destructor ============ … … 3093 3271 { 3094 3272 public: 3095 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_1_dynspg_flt];3096 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_1_dynspg_flt];3273 double Ystate[YNBALLTIME_Tsbd][YNBS_va_1_dynspg_flt]; 3274 double Ygrad[YNBALLTIME_Tsbd][YNBS_va_1_dynspg_flt]; 3097 3275 3098 3276 //:=========> Constructor - Destructor ============ … … 3115 3293 { 3116 3294 public: 3117 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sum_spgu_dynspg_flt];3118 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sum_spgu_dynspg_flt];3295 double Ystate[YNBALLTIME_Tsbd][YNBS_sum_spgu_dynspg_flt]; 3296 double Ygrad[YNBALLTIME_Tsbd][YNBS_sum_spgu_dynspg_flt]; 3119 3297 3120 3298 //:=========> Constructor - Destructor ============ … … 3137 3315 { 3138 3316 public: 3139 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sum_spgv_dynspg_flt];3140 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_sum_spgv_dynspg_flt];3317 double Ystate[YNBALLTIME_Tsbd][YNBS_sum_spgv_dynspg_flt]; 3318 double Ygrad[YNBALLTIME_Tsbd][YNBS_sum_spgv_dynspg_flt]; 3141 3319 3142 3320 //:=========> Constructor - Destructor ============ … … 3159 3337 { 3160 3338 public: 3161 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_gcb_dynspg_flt];3162 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_gcb_dynspg_flt];3339 double Ystate[YNBALLTIME_Tsbd][YNBS_gcb_dynspg_flt]; 3340 double Ygrad[YNBALLTIME_Tsbd][YNBS_gcb_dynspg_flt]; 3163 3341 3164 3342 //:=========> Constructor - Destructor ============ … … 3181 3359 { 3182 3360 public: 3183 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_gcx_dynspg_flt];3184 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt][YA2_S3dt][YNBS_gcx_dynspg_flt];3361 double Ystate[YNBALLTIME_Tsbd][YNBS_gcx_dynspg_flt]; 3362 double Ygrad[YNBALLTIME_Tsbd][YNBS_gcx_dynspg_flt]; 3185 3363 3186 3364 //:=========> Constructor - Destructor ============ … … 3203 3381 { 3204 3382 public: 3205 double Ystate[YNBALLTIME_Tsbd][Y A1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_gx1_x_r];3206 double Ygrad[YNBALLTIME_Tsbd][Y A1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_gx1_x_r];3383 double Ystate[YNBALLTIME_Tsbd][YNBS_solsor_gx1_x_r]; 3384 double Ygrad[YNBALLTIME_Tsbd][YNBS_solsor_gx1_x_r]; 3207 3385 3208 3386 //:=========> Constructor - Destructor ============ … … 3225 3403 { 3226 3404 public: 3227 double Ystate[YNBALLTIME_Tsbd][Y A1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_gx2_x_r];3228 double Ygrad[YNBALLTIME_Tsbd][Y A1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_gx2_x_r];3405 double Ystate[YNBALLTIME_Tsbd][YNBS_solsor_gx2_x_r]; 3406 double Ygrad[YNBALLTIME_Tsbd][YNBS_solsor_gx2_x_r]; 3229 3407 3230 3408 //:=========> Constructor - Destructor ============ … … 3247 3425 { 3248 3426 public: 3249 double Ystate[YNBALLTIME_Tsbd][Y A1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_flag];3250 double Ygrad[YNBALLTIME_Tsbd][Y A1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_flag];3427 double Ystate[YNBALLTIME_Tsbd][YNBS_solsor_flag]; 3428 double Ygrad[YNBALLTIME_Tsbd][YNBS_solsor_flag]; 3251 3429 3252 3430 //:=========> Constructor - Destructor ============ … … 3269 3447 { 3270 3448 public: 3271 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YNBS_gcx2];3272 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YNBS_gcx2];3449 double Ystate[YNBALLTIME_Tsbd][YNBS_gcx2]; 3450 double Ygrad[YNBALLTIME_Tsbd][YNBS_gcx2]; 3273 3451 3274 3452 //:=========> Constructor - Destructor ============ … … 3291 3469 { 3292 3470 public: 3293 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YNBS_spguv_dynspg_flt];3294 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YNBS_spguv_dynspg_flt];3471 double Ystate[YNBALLTIME_Tsbd][YNBS_spguv_dynspg_flt]; 3472 double Ygrad[YNBALLTIME_Tsbd][YNBS_spguv_dynspg_flt]; 3295 3473 3296 3474 //:=========> Constructor - Destructor ============ … … 3313 3491 { 3314 3492 public: 3315 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ua];3316 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ua];3493 double Ystate[YNBALLTIME_Tsbd][YNBS_ua]; 3494 double Ygrad[YNBALLTIME_Tsbd][YNBS_ua]; 3317 3495 3318 3496 //:=========> Constructor - Destructor ============ … … 3335 3513 { 3336 3514 public: 3337 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_va];3338 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_va];3515 double Ystate[YNBALLTIME_Tsbd][YNBS_va]; 3516 double Ygrad[YNBALLTIME_Tsbd][YNBS_va]; 3339 3517 3340 3518 //:=========> Constructor - Destructor ============ … … 3357 3535 { 3358 3536 public: 3359 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YNBS_sshn];3360 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YNBS_sshn];3537 double Ystate[YNBALLTIME_Tsbd][YNBS_sshn]; 3538 double Ygrad[YNBALLTIME_Tsbd][YNBS_sshn]; 3361 3539 3362 3540 //:=========> Constructor - Destructor ============ … … 3379 3557 { 3380 3558 public: 3381 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YNBS_sshb];3382 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YNBS_sshb];3383 double Ywish[Y A1_S3dt_b][YA2_S3dt_b][YNBS_sshb];3559 double Ystate[YNBALLTIME_Tsbd][YNBS_sshb]; 3560 double Ygrad[YNBALLTIME_Tsbd][YNBS_sshb]; 3561 double Ywish[YNBS_sshb]; 3384 3562 3385 3563 //:=========> Constructor - Destructor ============ … … 3402 3580 { 3403 3581 public: 3404 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ub];3405 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ub];3406 double Ywish[Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ub];3582 double Ystate[YNBALLTIME_Tsbd][YNBS_ub]; 3583 double Ygrad[YNBALLTIME_Tsbd][YNBS_ub]; 3584 double Ywish[YNBS_ub]; 3407 3585 3408 3586 //:=========> Constructor - Destructor ============ … … 3425 3603 { 3426 3604 public: 3427 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_vb];3428 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_vb];3429 double Ywish[Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_vb];3605 double Ystate[YNBALLTIME_Tsbd][YNBS_vb]; 3606 double Ygrad[YNBALLTIME_Tsbd][YNBS_vb]; 3607 double Ywish[YNBS_vb]; 3430 3608 3431 3609 //:=========> Constructor - Destructor ============ … … 3448 3626 { 3449 3627 public: 3450 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_hdivn];3451 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_hdivn];3628 double Ystate[YNBALLTIME_Tsbd][YNBS_hdivn]; 3629 double Ygrad[YNBALLTIME_Tsbd][YNBS_hdivn]; 3452 3630 3453 3631 //:=========> Constructor - Destructor ============ … … 3470 3648 { 3471 3649 public: 3472 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_rotn];3473 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_rotn];3650 double Ystate[YNBALLTIME_Tsbd][YNBS_rotn]; 3651 double Ygrad[YNBALLTIME_Tsbd][YNBS_rotn]; 3474 3652 3475 3653 //:=========> Constructor - Destructor ============ … … 3492 3670 { 3493 3671 public: 3494 double Ystate[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_wa];3495 double Ygrad[YNBALLTIME_Tsbd][Y A1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_wa];3672 double Ystate[YNBALLTIME_Tsbd][YNBS_wa]; 3673 double Ygrad[YNBALLTIME_Tsbd][YNBS_wa]; 3496 3674 3497 3675 //:=========> Constructor - Destructor ============ … … 3510 3688 }; 3511 3689 3512 // ᅵ ᅵ ᅵ ᅵ PROTOTYPES of AUTO-FUNCTIONS ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ3690 //€ € € € PROTOTYPES of AUTO-FUNCTIONS € € € € € € € € € € € 3513 3691 void Yrazgrad_sshn_c(); 3514 3692 void Ysetstate_sshn_c(); … … 3723 3901 #define YNBMODUL 89 3724 3902 struct Yst_modul YTabMod[89] = { 3725 {"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"},3726 {"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"},3727 {"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"},3728 {"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"},3729 {"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"},3730 {"sbcgyre_qsr_qns", Ysbcgyre_qsr_qns, 2, 32, 22, 0, 1, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3731 {"sbcgyre_emp1", Ysbcgyre_emp1, 2, 32, 22, 0, 0, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3732 {"sbcgyre_zsumemp_zsurf", Ysbcgyre_zsumemp_zsurf, 2, 32, 22, 0, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3733 {"sbcgyre_emp", Ysbcgyre_emp, 2, 32, 22, 0, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3734 {"sbcgyre_emps", Ysbcgyre_emps, 2, 32, 22, 0, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3735 {"sbcgyre_utau_vtau", Ysbcgyre_utau_vtau, 2, 32, 22, 0, 0, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3736 {"sbcgyre_wndm", Ysbcgyre_wndm, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3737 {"bn2_rn2", Ybn2_rn2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3738 {"zdf_avt_avmu_avmv", Yzdf_avt_avmu_avmv, 3, 32, 22, 31, 19, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3739 {"zdfmxl_hmld", Yzdfmxl_hmld, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3740 {"zdfmxl_nmln_hmlp_hmlpt", Yzdfmxl_nmln_hmlp_hmlpt, 2, 32, 22, 0, 31, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3741 {"ta_sa_trasbc", Yta_sa_trasbc, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3742 {"ta_traqsr", Yta_traqsr, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3743 {"zcent_hor_traadv_cen2", Yzcent_hor_traadv_cen2, 3, 32, 22, 31, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3744 {"zcens_hor_traadv_cen2", Yzcens_hor_traadv_cen2, 3, 32, 22, 31, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3745 {"ta_hor_traadv_cen2", Yta_hor_traadv_cen2, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3746 {"sa_hor_traadv_cen2", Ysa_hor_traadv_cen2, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3747 {"zcent_ver_traadv_cen2", Yzcent_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3748 {"zcens_ver_traadv_cen2", Yzcens_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3749 {"ta_ver_traadv_cen2", Yta_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3750 {"sa_ver_traadv_cen2", Ysa_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3751 {"ztuv_traldf_lap", Yztuv_traldf_lap, 3, 32, 22, 31, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3752 {"zsuv_traldf_lap", Yzsuv_traldf_lap, 3, 32, 22, 31, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3753 {"ta_traldf_lap", Yta_traldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3754 {"sa_traldf_lap", Ysa_traldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3755 {"zwisd_trazdf_imp", Yzwisd_trazdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3756 {"zrhs_trazdf_imp", Yzrhs_trazdf_imp, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3757 {"zrhs_sa_trazdf_imp", Yzrhs_sa_trazdf_imp, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3758 {"zwt_trazdf_imp", Yzwt_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3759 {"ta_de_trazdf_imp", Yta_de_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3760 {"ta", Yta, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3761 {"sa_de_trazdf_imp", Ysa_de_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3762 {"sa", Ysa, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3763 {"tb", Ytb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3764 {"sb", Ysb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3765 {"rhd", Yrhd, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3766 {"rhop", Yrhop, 3, 32, 22, 31, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3767 {"hmf_TF_dynadv_cen2", Yhmf_TF_dynadv_cen2, 3, 32, 22, 31, 6, 4, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3768 {"zua_dhmf_dynadv_cen2", Yzua_dhmf_dynadv_cen2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3769 {"zva_dhmf_dynadv_cen2", Yzva_dhmf_dynadv_cen2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3770 {"zfuv_UW_dynadv_cen2", Yzfuv_UW_dynadv_cen2, 3, 32, 22, 31, 7, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3771 {"ua_dynadv_cen2", Yua_dynadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3772 {"va_dynadv_cen2", Yva_dynadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3773 {"zwxyz_vor_ene", Yzwxyz_vor_ene, 3, 32, 22, 31, 4, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3774 {"ua_vor_ene", Yua_vor_ene, 3, 32, 22, 31, 7, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3775 {"va_vor_ene", Yva_vor_ene, 3, 32, 22, 31, 7, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3776 {"ua_dyn_ldf_lap", Yua_dyn_ldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3777 {"va_dyn_ldf_lap", Yva_dyn_ldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3778 {"zhpij_dyn_hpg_zco", Yzhpij_dyn_hpg_zco, 3, 32, 22, 31, 8, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3779 {"ua_dyn_hpg_zco", Yua_dyn_hpg_zco, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3780 {"va_dyn_hpg_zco", Yva_dyn_hpg_zco, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3781 {"zwisd_ua_dynzdf_imp", Yzwisd_ua_dynzdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3782 {"zwisd_va_dynzdf_imp", Yzwisd_va_dynzdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3783 {"zrhs_ua_dynzdf_imp", Yzrhs_ua_dynzdf_imp, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3784 {"zrhs_va_dynzdf_imp", Yzrhs_va_dynzdf_imp, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3785 {"zwt_ua_dynzdf_imp", Yzwt_ua_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3786 {"zwt_va_dynzdf_imp", Yzwt_va_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3787 {"ua_de_dynzdf_imp", Yua_de_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3788 {"ua_dynzdf_imp", Yua_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3789 {"va_de_dynzdf_imp", Yva_de_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3790 {"va_dynzdf_imp", Yva_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3791 {"ua_norm_dynzdf", Yua_norm_dynzdf, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3792 {"va_norm_dynzdf", Yva_norm_dynzdf, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3793 {"spguv_now_dynspg", Yspguv_now_dynspg, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3794 {"ua_1_dynspg_flt", Yua_1_dynspg_flt, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3795 {"va_1_dynspg_flt", Yva_1_dynspg_flt, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3796 {"sum_spgu_dynspg_flt", Ysum_spgu_dynspg_flt, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3797 {"sum_spgv_dynspg_flt", Ysum_spgv_dynspg_flt, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3798 {"gcb_dynspg_flt", Ygcb_dynspg_flt, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3799 {"gcx_dynspg_flt", Ygcx_dynspg_flt, 2, 32, 22, 0, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"},3800 {"solsor_gx1_x_r", Ysolsor_gx1_x_r, 3, 32, 22, 800, 8, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "Ssolsor"},3801 {"solsor_gx2_x_r", Ysolsor_gx2_x_r, 3, 32, 22, 800, 9, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "Ssolsor"},3802 {"solsor_flag", Ysolsor_flag, 3, 32, 22, 800, 4, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "Ssolsor"},3803 {"gcx2", Ygcx2, 2, 32, 22, 0, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"},3804 {"spguv_dynspg_flt", Yspguv_dynspg_flt, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"},3805 {"ua", Yua, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"},3806 {"va", Yva, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"},3807 {"sshn", Ysshn, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"},3808 {"sshb", Ysshb, 2, 32, 22, 0, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"},3809 {"ub", Yub, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"},3810 {"vb", Yvb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"},3811 {"hdivn", Yhdivn, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"},3812 {"rotn", Yrotn, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"},3813 {"wa", Ywa, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"},3903 {"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"}, 3904 {"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"}, 3905 {"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"}, 3906 {"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"}, 3907 {"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"}, 3908 {"sbcgyre_qsr_qns", *Ysbcgyre_qsr_qns, 2, 32, 22, 0, 1, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3909 {"sbcgyre_emp1", *Ysbcgyre_emp1, 2, 32, 22, 0, 0, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3910 {"sbcgyre_zsumemp_zsurf", *Ysbcgyre_zsumemp_zsurf, 2, 32, 22, 0, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3911 {"sbcgyre_emp", *Ysbcgyre_emp, 2, 32, 22, 0, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3912 {"sbcgyre_emps", *Ysbcgyre_emps, 2, 32, 22, 0, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3913 {"sbcgyre_utau_vtau", *Ysbcgyre_utau_vtau, 2, 32, 22, 0, 0, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3914 {"sbcgyre_wndm", *Ysbcgyre_wndm, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3915 {"bn2_rn2", *Ybn2_rn2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3916 {"zdf_avt_avmu_avmv", *Yzdf_avt_avmu_avmv, 3, 32, 22, 31, 19, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3917 {"zdfmxl_hmld", *Yzdfmxl_hmld, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3918 {"zdfmxl_nmln_hmlp_hmlpt", *Yzdfmxl_nmln_hmlp_hmlpt, 2, 32, 22, 0, 31, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3919 {"ta_sa_trasbc", *Yta_sa_trasbc, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3920 {"ta_traqsr", *Yta_traqsr, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3921 {"zcent_hor_traadv_cen2", *Yzcent_hor_traadv_cen2, 3, 32, 22, 31, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3922 {"zcens_hor_traadv_cen2", *Yzcens_hor_traadv_cen2, 3, 32, 22, 31, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3923 {"ta_hor_traadv_cen2", *Yta_hor_traadv_cen2, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3924 {"sa_hor_traadv_cen2", *Ysa_hor_traadv_cen2, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3925 {"zcent_ver_traadv_cen2", *Yzcent_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3926 {"zcens_ver_traadv_cen2", *Yzcens_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3927 {"ta_ver_traadv_cen2", *Yta_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3928 {"sa_ver_traadv_cen2", *Ysa_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3929 {"ztuv_traldf_lap", *Yztuv_traldf_lap, 3, 32, 22, 31, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3930 {"zsuv_traldf_lap", *Yzsuv_traldf_lap, 3, 32, 22, 31, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3931 {"ta_traldf_lap", *Yta_traldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3932 {"sa_traldf_lap", *Ysa_traldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3933 {"zwisd_trazdf_imp", *Yzwisd_trazdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3934 {"zrhs_trazdf_imp", *Yzrhs_trazdf_imp, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3935 {"zrhs_sa_trazdf_imp", *Yzrhs_sa_trazdf_imp, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3936 {"zwt_trazdf_imp", *Yzwt_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3937 {"ta_de_trazdf_imp", *Yta_de_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3938 {"ta", *Yta, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3939 {"sa_de_trazdf_imp", *Ysa_de_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3940 {"sa", *Ysa, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3941 {"tb", *Ytb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3942 {"sb", *Ysb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3943 {"rhd", *Yrhd, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3944 {"rhop", *Yrhop, 3, 32, 22, 31, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3945 {"hmf_TF_dynadv_cen2", *Yhmf_TF_dynadv_cen2, 3, 32, 22, 31, 6, 4, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3946 {"zua_dhmf_dynadv_cen2", *Yzua_dhmf_dynadv_cen2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3947 {"zva_dhmf_dynadv_cen2", *Yzva_dhmf_dynadv_cen2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3948 {"zfuv_UW_dynadv_cen2", *Yzfuv_UW_dynadv_cen2, 3, 32, 22, 31, 7, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3949 {"ua_dynadv_cen2", *Yua_dynadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3950 {"va_dynadv_cen2", *Yva_dynadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3951 {"zwxyz_vor_ene", *Yzwxyz_vor_ene, 3, 32, 22, 31, 4, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3952 {"ua_vor_ene", *Yua_vor_ene, 3, 32, 22, 31, 7, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3953 {"va_vor_ene", *Yva_vor_ene, 3, 32, 22, 31, 7, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3954 {"ua_dyn_ldf_lap", *Yua_dyn_ldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3955 {"va_dyn_ldf_lap", *Yva_dyn_ldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3956 {"zhpij_dyn_hpg_zco", *Yzhpij_dyn_hpg_zco, 3, 32, 22, 31, 8, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3957 {"ua_dyn_hpg_zco", *Yua_dyn_hpg_zco, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3958 {"va_dyn_hpg_zco", *Yva_dyn_hpg_zco, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3959 {"zwisd_ua_dynzdf_imp", *Yzwisd_ua_dynzdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3960 {"zwisd_va_dynzdf_imp", *Yzwisd_va_dynzdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3961 {"zrhs_ua_dynzdf_imp", *Yzrhs_ua_dynzdf_imp, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3962 {"zrhs_va_dynzdf_imp", *Yzrhs_va_dynzdf_imp, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3963 {"zwt_ua_dynzdf_imp", *Yzwt_ua_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3964 {"zwt_va_dynzdf_imp", *Yzwt_va_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3965 {"ua_de_dynzdf_imp", *Yua_de_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3966 {"ua_dynzdf_imp", *Yua_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3967 {"va_de_dynzdf_imp", *Yva_de_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3968 {"va_dynzdf_imp", *Yva_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3969 {"ua_norm_dynzdf", *Yua_norm_dynzdf, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3970 {"va_norm_dynzdf", *Yva_norm_dynzdf, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3971 {"spguv_now_dynspg", *Yspguv_now_dynspg, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3972 {"ua_1_dynspg_flt", *Yua_1_dynspg_flt, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3973 {"va_1_dynspg_flt", *Yva_1_dynspg_flt, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3974 {"sum_spgu_dynspg_flt", *Ysum_spgu_dynspg_flt, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3975 {"sum_spgv_dynspg_flt", *Ysum_spgv_dynspg_flt, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3976 {"gcb_dynspg_flt", *Ygcb_dynspg_flt, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3977 {"gcx_dynspg_flt", *Ygcx_dynspg_flt, 2, 32, 22, 0, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3978 {"solsor_gx1_x_r", *Ysolsor_gx1_x_r, 3, 32, 22, 800, 8, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "Ssolsor"}, 3979 {"solsor_gx2_x_r", *Ysolsor_gx2_x_r, 3, 32, 22, 800, 9, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "Ssolsor"}, 3980 {"solsor_flag", *Ysolsor_flag, 3, 32, 22, 800, 4, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "Ssolsor"}, 3981 {"gcx2", *Ygcx2, 2, 32, 22, 0, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3982 {"spguv_dynspg_flt", *Yspguv_dynspg_flt, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3983 {"ua", *Yua, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3984 {"va", *Yva, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3985 {"sshn", *Ysshn, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3986 {"sshb", *Ysshb, 2, 32, 22, 0, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3987 {"ub", *Yub, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3988 {"vb", *Yvb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3989 {"hdivn", *Yhdivn, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3990 {"rotn", *Yrotn, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3991 {"wa", *Ywa, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3814 3992 }; 3815 3993 … … 3919 4097 }; 3920 4098 3921 // ᅵ ᅵ ᅵ ᅵ GENERATION AUTOMATIQUE DES include ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ4099 //€ € € € GENERATION AUTOMATIQUE DES include € € € € € € € € € € € 3922 4100 #include "sinobad.h" 3923 4101 … … 3925 4103 #define backward void sbcgyre_qsr_qns::backward 3926 4104 #define flinward void sbcgyre_qsr_qns::flinward 3927 #define YS1Y Ystate[YTemps][ Yi][Yj][0]3928 #define YS1 Ystate[YTemps][ Yi][Yj][0]3929 #define YG1 Ygrad[YTemps][ Yi][Yj][0]3930 #define YS2Y Ystate[YTemps][ Yi][Yj][1]3931 #define YS2 Ystate[YTemps][ Yi][Yj][1]3932 #define YG2 Ygrad[YTemps][ Yi][Yj][1]4105 #define YS1Y Ystate[YTemps][0] 4106 #define YS1 Ystate[YTemps][0] 4107 #define YG1 Ygrad[YTemps][0] 4108 #define YS2Y Ystate[YTemps][1] 4109 #define YS2 Ystate[YTemps][1] 4110 #define YG2 Ygrad[YTemps][1] 3933 4111 #include "sbcgyre_qsr_qns.h" 3934 4112 #undef YS1Y … … 3945 4123 #define backward void sbcgyre_emp1::backward 3946 4124 #define flinward void sbcgyre_emp1::flinward 3947 #define YS1Y Ystate[YTemps][ Yi][Yj][0]3948 #define YS1 Ystate[YTemps][ Yi][Yj][0]3949 #define YG1 Ygrad[YTemps][ Yi][Yj][0]4125 #define YS1Y Ystate[YTemps][0] 4126 #define YS1 Ystate[YTemps][0] 4127 #define YG1 Ygrad[YTemps][0] 3950 4128 #include "sbcgyre_emp1.h" 3951 4129 #undef YS1Y … … 3959 4137 #define backward void sbcgyre_zsumemp_zsurf::backward 3960 4138 #define flinward void sbcgyre_zsumemp_zsurf::flinward 3961 #define YS1Y Ystate[YTemps][ Yi][Yj][0]3962 #define YS1 Ystate[YTemps][ Yi][Yj][0]3963 #define YG1 Ygrad[YTemps][ Yi][Yj][0]3964 #define YS2Y Ystate[YTemps][ Yi][Yj][1]3965 #define YS2 Ystate[YTemps][ Yi][Yj][1]3966 #define YG2 Ygrad[YTemps][ Yi][Yj][1]4139 #define YS1Y Ystate[YTemps][0] 4140 #define YS1 Ystate[YTemps][0] 4141 #define YG1 Ygrad[YTemps][0] 4142 #define YS2Y Ystate[YTemps][1] 4143 #define YS2 Ystate[YTemps][1] 4144 #define YG2 Ygrad[YTemps][1] 3967 4145 #include "sbcgyre_zsumemp_zsurf.h" 3968 4146 #undef YS1Y … … 3979 4157 #define backward void sbcgyre_emp::backward 3980 4158 #define flinward void sbcgyre_emp::flinward 3981 #define YS1Y Ystate[YTemps][ Yi][Yj][0]3982 #define YS1 Ystate[YTemps][ Yi][Yj][0]3983 #define YG1 Ygrad[YTemps][ Yi][Yj][0]4159 #define YS1Y Ystate[YTemps][0] 4160 #define YS1 Ystate[YTemps][0] 4161 #define YG1 Ygrad[YTemps][0] 3984 4162 #include "sbcgyre_emp.h" 3985 4163 #undef YS1Y … … 3993 4171 #define backward void sbcgyre_emps::backward 3994 4172 #define flinward void sbcgyre_emps::flinward 3995 #define YS1Y Ystate[YTemps][ Yi][Yj][0]3996 #define YS1 Ystate[YTemps][ Yi][Yj][0]3997 #define YG1 Ygrad[YTemps][ Yi][Yj][0]4173 #define YS1Y Ystate[YTemps][0] 4174 #define YS1 Ystate[YTemps][0] 4175 #define YG1 Ygrad[YTemps][0] 3998 4176 #include "sbcgyre_emps.h" 3999 4177 #undef YS1Y … … 4007 4185 #define backward void sbcgyre_utau_vtau::backward 4008 4186 #define flinward void sbcgyre_utau_vtau::flinward 4009 #define YS1Y Ystate[YTemps][ Yi][Yj][0]4010 #define YS1 Ystate[YTemps][ Yi][Yj][0]4011 #define YG1 Ygrad[YTemps][ Yi][Yj][0]4012 #define YS2Y Ystate[YTemps][ Yi][Yj][1]4013 #define YS2 Ystate[YTemps][ Yi][Yj][1]4014 #define YG2 Ygrad[YTemps][ Yi][Yj][1]4187 #define YS1Y Ystate[YTemps][0] 4188 #define YS1 Ystate[YTemps][0] 4189 #define YG1 Ygrad[YTemps][0] 4190 #define YS2Y Ystate[YTemps][1] 4191 #define YS2 Ystate[YTemps][1] 4192 #define YG2 Ygrad[YTemps][1] 4015 4193 #include "sbcgyre_utau_vtau.h" 4016 4194 #undef YS1Y … … 4027 4205 #define backward void sbcgyre_wndm::backward 4028 4206 #define flinward void sbcgyre_wndm::flinward 4029 #define YS1Y Ystate[YTemps][ Yi][Yj][0]4030 #define YS1 Ystate[YTemps][ Yi][Yj][0]4031 #define YG1 Ygrad[YTemps][ Yi][Yj][0]4207 #define YS1Y Ystate[YTemps][0] 4208 #define YS1 Ystate[YTemps][0] 4209 #define YG1 Ygrad[YTemps][0] 4032 4210 #include "sbcgyre_wndm.h" 4033 4211 #undef YS1Y … … 4041 4219 #define backward void bn2_rn2::backward 4042 4220 #define flinward void bn2_rn2::flinward 4043 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4044 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4045 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4221 #define YS1Y Ystate[YTemps][0] 4222 #define YS1 Ystate[YTemps][0] 4223 #define YG1 Ygrad[YTemps][0] 4046 4224 #include "bn2_rn2.h" 4047 4225 #undef YS1Y … … 4055 4233 #define backward void zdf_avt_avmu_avmv::backward 4056 4234 #define flinward void zdf_avt_avmu_avmv::flinward 4057 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4058 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4059 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4060 #define YS2Y Ystate[YTemps][ Yi][Yj][Yk][1]4061 #define YS2 Ystate[YTemps][ Yi][Yj][Yk][1]4062 #define YG2 Ygrad[YTemps][ Yi][Yj][Yk][1]4063 #define YS3Y Ystate[YTemps][ Yi][Yj][Yk][2]4064 #define YS3 Ystate[YTemps][ Yi][Yj][Yk][2]4065 #define YG3 Ygrad[YTemps][ Yi][Yj][Yk][2]4235 #define YS1Y Ystate[YTemps][0] 4236 #define YS1 Ystate[YTemps][0] 4237 #define YG1 Ygrad[YTemps][0] 4238 #define YS2Y Ystate[YTemps][1] 4239 #define YS2 Ystate[YTemps][1] 4240 #define YG2 Ygrad[YTemps][1] 4241 #define YS3Y Ystate[YTemps][2] 4242 #define YS3 Ystate[YTemps][2] 4243 #define YG3 Ygrad[YTemps][2] 4066 4244 #include "zdf_avt_avmu_avmv.h" 4067 4245 #undef YS1Y … … 4081 4259 #define backward void zdfmxl_hmld::backward 4082 4260 #define flinward void zdfmxl_hmld::flinward 4083 #define YS1Y Ystate[YTemps][ Yi][Yj][0]4084 #define YS1 Ystate[YTemps][ Yi][Yj][0]4085 #define YG1 Ygrad[YTemps][ Yi][Yj][0]4261 #define YS1Y Ystate[YTemps][0] 4262 #define YS1 Ystate[YTemps][0] 4263 #define YG1 Ygrad[YTemps][0] 4086 4264 #include "zdfmxl_hmld.h" 4087 4265 #undef YS1Y … … 4095 4273 #define backward void zdfmxl_nmln_hmlp_hmlpt::backward 4096 4274 #define flinward void zdfmxl_nmln_hmlp_hmlpt::flinward 4097 #define YS1Y Ystate[YTemps][ Yi][Yj][0]4098 #define YS1 Ystate[YTemps][ Yi][Yj][0]4099 #define YG1 Ygrad[YTemps][ Yi][Yj][0]4100 #define YS2Y Ystate[YTemps][ Yi][Yj][1]4101 #define YS2 Ystate[YTemps][ Yi][Yj][1]4102 #define YG2 Ygrad[YTemps][ Yi][Yj][1]4103 #define YS3Y Ystate[YTemps][ Yi][Yj][2]4104 #define YS3 Ystate[YTemps][ Yi][Yj][2]4105 #define YG3 Ygrad[YTemps][ Yi][Yj][2]4275 #define YS1Y Ystate[YTemps][0] 4276 #define YS1 Ystate[YTemps][0] 4277 #define YG1 Ygrad[YTemps][0] 4278 #define YS2Y Ystate[YTemps][1] 4279 #define YS2 Ystate[YTemps][1] 4280 #define YG2 Ygrad[YTemps][1] 4281 #define YS3Y Ystate[YTemps][2] 4282 #define YS3 Ystate[YTemps][2] 4283 #define YG3 Ygrad[YTemps][2] 4106 4284 #include "zdfmxl_nmln_hmlp_hmlpt.h" 4107 4285 #undef YS1Y … … 4121 4299 #define backward void ta_sa_trasbc::backward 4122 4300 #define flinward void ta_sa_trasbc::flinward 4123 #define YS1Y Ystate[YTemps][ Yi][Yj][0]4124 #define YS1 Ystate[YTemps][ Yi][Yj][0]4125 #define YG1 Ygrad[YTemps][ Yi][Yj][0]4126 #define YS2Y Ystate[YTemps][ Yi][Yj][1]4127 #define YS2 Ystate[YTemps][ Yi][Yj][1]4128 #define YG2 Ygrad[YTemps][ Yi][Yj][1]4301 #define YS1Y Ystate[YTemps][0] 4302 #define YS1 Ystate[YTemps][0] 4303 #define YG1 Ygrad[YTemps][0] 4304 #define YS2Y Ystate[YTemps][1] 4305 #define YS2 Ystate[YTemps][1] 4306 #define YG2 Ygrad[YTemps][1] 4129 4307 #include "ta_sa_trasbc.h" 4130 4308 #undef YS1Y … … 4141 4319 #define backward void ta_traqsr::backward 4142 4320 #define flinward void ta_traqsr::flinward 4143 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4144 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4145 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4321 #define YS1Y Ystate[YTemps][0] 4322 #define YS1 Ystate[YTemps][0] 4323 #define YG1 Ygrad[YTemps][0] 4146 4324 #include "ta_traqsr.h" 4147 4325 #undef YS1Y … … 4155 4333 #define backward void zcent_hor_traadv_cen2::backward 4156 4334 #define flinward void zcent_hor_traadv_cen2::flinward 4157 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4158 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4159 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4160 #define YS2Y Ystate[YTemps][ Yi][Yj][Yk][1]4161 #define YS2 Ystate[YTemps][ Yi][Yj][Yk][1]4162 #define YG2 Ygrad[YTemps][ Yi][Yj][Yk][1]4335 #define YS1Y Ystate[YTemps][0] 4336 #define YS1 Ystate[YTemps][0] 4337 #define YG1 Ygrad[YTemps][0] 4338 #define YS2Y Ystate[YTemps][1] 4339 #define YS2 Ystate[YTemps][1] 4340 #define YG2 Ygrad[YTemps][1] 4163 4341 #include "zcent_hor_traadv_cen2.h" 4164 4342 #undef YS1Y … … 4175 4353 #define backward void ta_hor_traadv_cen2::backward 4176 4354 #define flinward void ta_hor_traadv_cen2::flinward 4177 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4178 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4179 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4355 #define YS1Y Ystate[YTemps][0] 4356 #define YS1 Ystate[YTemps][0] 4357 #define YG1 Ygrad[YTemps][0] 4180 4358 #include "ta_hor_traadv_cen2.h" 4181 4359 #undef YS1Y … … 4189 4367 #define backward void sa_hor_traadv_cen2::backward 4190 4368 #define flinward void sa_hor_traadv_cen2::flinward 4191 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4192 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4193 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4369 #define YS1Y Ystate[YTemps][0] 4370 #define YS1 Ystate[YTemps][0] 4371 #define YG1 Ygrad[YTemps][0] 4194 4372 #include "sa_hor_traadv_cen2.h" 4195 4373 #undef YS1Y … … 4203 4381 #define backward void zcent_ver_traadv_cen2::backward 4204 4382 #define flinward void zcent_ver_traadv_cen2::flinward 4205 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4206 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4207 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4383 #define YS1Y Ystate[YTemps][0] 4384 #define YS1 Ystate[YTemps][0] 4385 #define YG1 Ygrad[YTemps][0] 4208 4386 #include "zcent_ver_traadv_cen2.h" 4209 4387 #undef YS1Y … … 4217 4395 #define backward void ta_ver_traadv_cen2::backward 4218 4396 #define flinward void ta_ver_traadv_cen2::flinward 4219 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4220 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4221 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4397 #define YS1Y Ystate[YTemps][0] 4398 #define YS1 Ystate[YTemps][0] 4399 #define YG1 Ygrad[YTemps][0] 4222 4400 #include "ta_ver_traadv_cen2.h" 4223 4401 #undef YS1Y … … 4231 4409 #define backward void ztuv_traldf_lap::backward 4232 4410 #define flinward void ztuv_traldf_lap::flinward 4233 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4234 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4235 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4236 #define YS2Y Ystate[YTemps][ Yi][Yj][Yk][1]4237 #define YS2 Ystate[YTemps][ Yi][Yj][Yk][1]4238 #define YG2 Ygrad[YTemps][ Yi][Yj][Yk][1]4411 #define YS1Y Ystate[YTemps][0] 4412 #define YS1 Ystate[YTemps][0] 4413 #define YG1 Ygrad[YTemps][0] 4414 #define YS2Y Ystate[YTemps][1] 4415 #define YS2 Ystate[YTemps][1] 4416 #define YG2 Ygrad[YTemps][1] 4239 4417 #include "ztuv_traldf_lap.h" 4240 4418 #undef YS1Y … … 4251 4429 #define backward void ta_traldf_lap::backward 4252 4430 #define flinward void ta_traldf_lap::flinward 4253 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4254 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4255 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4431 #define YS1Y Ystate[YTemps][0] 4432 #define YS1 Ystate[YTemps][0] 4433 #define YG1 Ygrad[YTemps][0] 4256 4434 #include "ta_traldf_lap.h" 4257 4435 #undef YS1Y … … 4265 4443 #define backward void zwisd_trazdf_imp::backward 4266 4444 #define flinward void zwisd_trazdf_imp::flinward 4267 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4268 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4269 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4270 #define YS2Y Ystate[YTemps][ Yi][Yj][Yk][1]4271 #define YS2 Ystate[YTemps][ Yi][Yj][Yk][1]4272 #define YG2 Ygrad[YTemps][ Yi][Yj][Yk][1]4273 #define YS3Y Ystate[YTemps][ Yi][Yj][Yk][2]4274 #define YS3 Ystate[YTemps][ Yi][Yj][Yk][2]4275 #define YG3 Ygrad[YTemps][ Yi][Yj][Yk][2]4445 #define YS1Y Ystate[YTemps][0] 4446 #define YS1 Ystate[YTemps][0] 4447 #define YG1 Ygrad[YTemps][0] 4448 #define YS2Y Ystate[YTemps][1] 4449 #define YS2 Ystate[YTemps][1] 4450 #define YG2 Ygrad[YTemps][1] 4451 #define YS3Y Ystate[YTemps][2] 4452 #define YS3 Ystate[YTemps][2] 4453 #define YG3 Ygrad[YTemps][2] 4276 4454 #include "zwisd_trazdf_imp.h" 4277 4455 #undef YS1Y … … 4291 4469 #define backward void zrhs_trazdf_imp::backward 4292 4470 #define flinward void zrhs_trazdf_imp::flinward 4293 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4294 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4295 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4471 #define YS1Y Ystate[YTemps][0] 4472 #define YS1 Ystate[YTemps][0] 4473 #define YG1 Ygrad[YTemps][0] 4296 4474 #include "zrhs_trazdf_imp.h" 4297 4475 #undef YS1Y … … 4305 4483 #define backward void zwt_trazdf_imp::backward 4306 4484 #define flinward void zwt_trazdf_imp::flinward 4307 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4308 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4309 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4485 #define YS1Y Ystate[YTemps][0] 4486 #define YS1 Ystate[YTemps][0] 4487 #define YG1 Ygrad[YTemps][0] 4310 4488 #include "zwt_trazdf_imp.h" 4311 4489 #undef YS1Y … … 4319 4497 #define backward void ta::backward 4320 4498 #define flinward void ta::flinward 4321 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4322 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4323 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4499 #define YS1Y Ystate[YTemps][0] 4500 #define YS1 Ystate[YTemps][0] 4501 #define YG1 Ygrad[YTemps][0] 4324 4502 #include "ta.h" 4325 4503 #undef YS1Y … … 4333 4511 #define backward void sa::backward 4334 4512 #define flinward void sa::flinward 4335 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4336 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4337 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4513 #define YS1Y Ystate[YTemps][0] 4514 #define YS1 Ystate[YTemps][0] 4515 #define YG1 Ygrad[YTemps][0] 4338 4516 #include "sa.h" 4339 4517 #undef YS1Y … … 4347 4525 #define backward void tb::backward 4348 4526 #define flinward void tb::flinward 4349 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4350 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4351 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4527 #define YS1Y Ystate[YTemps][0] 4528 #define YS1 Ystate[YTemps][0] 4529 #define YG1 Ygrad[YTemps][0] 4352 4530 #include "tb.h" 4353 4531 #undef YS1Y … … 4361 4539 #define backward void sb::backward 4362 4540 #define flinward void sb::flinward 4363 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4364 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4365 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4541 #define YS1Y Ystate[YTemps][0] 4542 #define YS1 Ystate[YTemps][0] 4543 #define YG1 Ygrad[YTemps][0] 4366 4544 #include "sb.h" 4367 4545 #undef YS1Y … … 4375 4553 #define backward void rhd::backward 4376 4554 #define flinward void rhd::flinward 4377 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4378 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4379 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4555 #define YS1Y Ystate[YTemps][0] 4556 #define YS1 Ystate[YTemps][0] 4557 #define YG1 Ygrad[YTemps][0] 4380 4558 #include "rhd.h" 4381 4559 #undef YS1Y … … 4389 4567 #define backward void rhop::backward 4390 4568 #define flinward void rhop::flinward 4391 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4392 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4393 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4569 #define YS1Y Ystate[YTemps][0] 4570 #define YS1 Ystate[YTemps][0] 4571 #define YG1 Ygrad[YTemps][0] 4394 4572 #include "rhop.h" 4395 4573 #undef YS1Y … … 4403 4581 #define backward void hmf_TF_dynadv_cen2::backward 4404 4582 #define flinward void hmf_TF_dynadv_cen2::flinward 4405 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4406 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4407 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4408 #define YS2Y Ystate[YTemps][ Yi][Yj][Yk][1]4409 #define YS2 Ystate[YTemps][ Yi][Yj][Yk][1]4410 #define YG2 Ygrad[YTemps][ Yi][Yj][Yk][1]4411 #define YS3Y Ystate[YTemps][ Yi][Yj][Yk][2]4412 #define YS3 Ystate[YTemps][ Yi][Yj][Yk][2]4413 #define YG3 Ygrad[YTemps][ Yi][Yj][Yk][2]4414 #define YS4Y Ystate[YTemps][ Yi][Yj][Yk][3]4415 #define YS4 Ystate[YTemps][ Yi][Yj][Yk][3]4416 #define YG4 Ygrad[YTemps][ Yi][Yj][Yk][3]4583 #define YS1Y Ystate[YTemps][0] 4584 #define YS1 Ystate[YTemps][0] 4585 #define YG1 Ygrad[YTemps][0] 4586 #define YS2Y Ystate[YTemps][1] 4587 #define YS2 Ystate[YTemps][1] 4588 #define YG2 Ygrad[YTemps][1] 4589 #define YS3Y Ystate[YTemps][2] 4590 #define YS3 Ystate[YTemps][2] 4591 #define YG3 Ygrad[YTemps][2] 4592 #define YS4Y Ystate[YTemps][3] 4593 #define YS4 Ystate[YTemps][3] 4594 #define YG4 Ygrad[YTemps][3] 4417 4595 #include "hmf_TF_dynadv_cen2.h" 4418 4596 #undef YS1Y … … 4435 4613 #define backward void zua_dhmf_dynadv_cen2::backward 4436 4614 #define flinward void zua_dhmf_dynadv_cen2::flinward 4437 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4438 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4439 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4615 #define YS1Y Ystate[YTemps][0] 4616 #define YS1 Ystate[YTemps][0] 4617 #define YG1 Ygrad[YTemps][0] 4440 4618 #include "zua_dhmf_dynadv_cen2.h" 4441 4619 #undef YS1Y … … 4449 4627 #define backward void zva_dhmf_dynadv_cen2::backward 4450 4628 #define flinward void zva_dhmf_dynadv_cen2::flinward 4451 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4452 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4453 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4629 #define YS1Y Ystate[YTemps][0] 4630 #define YS1 Ystate[YTemps][0] 4631 #define YG1 Ygrad[YTemps][0] 4454 4632 #include "zva_dhmf_dynadv_cen2.h" 4455 4633 #undef YS1Y … … 4463 4641 #define backward void zfuv_UW_dynadv_cen2::backward 4464 4642 #define flinward void zfuv_UW_dynadv_cen2::flinward 4465 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4466 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4467 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4468 #define YS2Y Ystate[YTemps][ Yi][Yj][Yk][1]4469 #define YS2 Ystate[YTemps][ Yi][Yj][Yk][1]4470 #define YG2 Ygrad[YTemps][ Yi][Yj][Yk][1]4643 #define YS1Y Ystate[YTemps][0] 4644 #define YS1 Ystate[YTemps][0] 4645 #define YG1 Ygrad[YTemps][0] 4646 #define YS2Y Ystate[YTemps][1] 4647 #define YS2 Ystate[YTemps][1] 4648 #define YG2 Ygrad[YTemps][1] 4471 4649 #include "zfuv_UW_dynadv_cen2.h" 4472 4650 #undef YS1Y … … 4483 4661 #define backward void ua_dynadv_cen2::backward 4484 4662 #define flinward void ua_dynadv_cen2::flinward 4485 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4486 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4487 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4663 #define YS1Y Ystate[YTemps][0] 4664 #define YS1 Ystate[YTemps][0] 4665 #define YG1 Ygrad[YTemps][0] 4488 4666 #include "ua_dynadv_cen2.h" 4489 4667 #undef YS1Y … … 4497 4675 #define backward void va_dynadv_cen2::backward 4498 4676 #define flinward void va_dynadv_cen2::flinward 4499 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4500 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4501 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4677 #define YS1Y Ystate[YTemps][0] 4678 #define YS1 Ystate[YTemps][0] 4679 #define YG1 Ygrad[YTemps][0] 4502 4680 #include "va_dynadv_cen2.h" 4503 4681 #undef YS1Y … … 4511 4689 #define backward void zwxyz_vor_ene::backward 4512 4690 #define flinward void zwxyz_vor_ene::flinward 4513 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4514 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4515 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4516 #define YS2Y Ystate[YTemps][ Yi][Yj][Yk][1]4517 #define YS2 Ystate[YTemps][ Yi][Yj][Yk][1]4518 #define YG2 Ygrad[YTemps][ Yi][Yj][Yk][1]4519 #define YS3Y Ystate[YTemps][ Yi][Yj][Yk][2]4520 #define YS3 Ystate[YTemps][ Yi][Yj][Yk][2]4521 #define YG3 Ygrad[YTemps][ Yi][Yj][Yk][2]4691 #define YS1Y Ystate[YTemps][0] 4692 #define YS1 Ystate[YTemps][0] 4693 #define YG1 Ygrad[YTemps][0] 4694 #define YS2Y Ystate[YTemps][1] 4695 #define YS2 Ystate[YTemps][1] 4696 #define YG2 Ygrad[YTemps][1] 4697 #define YS3Y Ystate[YTemps][2] 4698 #define YS3 Ystate[YTemps][2] 4699 #define YG3 Ygrad[YTemps][2] 4522 4700 #include "zwxyz_vor_ene.h" 4523 4701 #undef YS1Y … … 4537 4715 #define backward void ua_vor_ene::backward 4538 4716 #define flinward void ua_vor_ene::flinward 4539 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4540 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4541 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4717 #define YS1Y Ystate[YTemps][0] 4718 #define YS1 Ystate[YTemps][0] 4719 #define YG1 Ygrad[YTemps][0] 4542 4720 #include "ua_vor_ene.h" 4543 4721 #undef YS1Y … … 4551 4729 #define backward void va_vor_ene::backward 4552 4730 #define flinward void va_vor_ene::flinward 4553 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4554 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4555 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4731 #define YS1Y Ystate[YTemps][0] 4732 #define YS1 Ystate[YTemps][0] 4733 #define YG1 Ygrad[YTemps][0] 4556 4734 #include "va_vor_ene.h" 4557 4735 #undef YS1Y … … 4565 4743 #define backward void ua_dyn_ldf_lap::backward 4566 4744 #define flinward void ua_dyn_ldf_lap::flinward 4567 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4568 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4569 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4745 #define YS1Y Ystate[YTemps][0] 4746 #define YS1 Ystate[YTemps][0] 4747 #define YG1 Ygrad[YTemps][0] 4570 4748 #include "ua_dyn_ldf_lap.h" 4571 4749 #undef YS1Y … … 4579 4757 #define backward void va_dyn_ldf_lap::backward 4580 4758 #define flinward void va_dyn_ldf_lap::flinward 4581 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4582 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4583 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4759 #define YS1Y Ystate[YTemps][0] 4760 #define YS1 Ystate[YTemps][0] 4761 #define YG1 Ygrad[YTemps][0] 4584 4762 #include "va_dyn_ldf_lap.h" 4585 4763 #undef YS1Y … … 4593 4771 #define backward void zhpij_dyn_hpg_zco::backward 4594 4772 #define flinward void zhpij_dyn_hpg_zco::flinward 4595 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4596 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4597 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4598 #define YS2Y Ystate[YTemps][ Yi][Yj][Yk][1]4599 #define YS2 Ystate[YTemps][ Yi][Yj][Yk][1]4600 #define YG2 Ygrad[YTemps][ Yi][Yj][Yk][1]4773 #define YS1Y Ystate[YTemps][0] 4774 #define YS1 Ystate[YTemps][0] 4775 #define YG1 Ygrad[YTemps][0] 4776 #define YS2Y Ystate[YTemps][1] 4777 #define YS2 Ystate[YTemps][1] 4778 #define YG2 Ygrad[YTemps][1] 4601 4779 #include "zhpij_dyn_hpg_zco.h" 4602 4780 #undef YS1Y … … 4613 4791 #define backward void ua_dyn_hpg_zco::backward 4614 4792 #define flinward void ua_dyn_hpg_zco::flinward 4615 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4616 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4617 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4793 #define YS1Y Ystate[YTemps][0] 4794 #define YS1 Ystate[YTemps][0] 4795 #define YG1 Ygrad[YTemps][0] 4618 4796 #include "ua_dyn_hpg_zco.h" 4619 4797 #undef YS1Y … … 4627 4805 #define backward void zwisd_ua_dynzdf_imp::backward 4628 4806 #define flinward void zwisd_ua_dynzdf_imp::flinward 4629 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4630 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4631 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4632 #define YS2Y Ystate[YTemps][ Yi][Yj][Yk][1]4633 #define YS2 Ystate[YTemps][ Yi][Yj][Yk][1]4634 #define YG2 Ygrad[YTemps][ Yi][Yj][Yk][1]4635 #define YS3Y Ystate[YTemps][ Yi][Yj][Yk][2]4636 #define YS3 Ystate[YTemps][ Yi][Yj][Yk][2]4637 #define YG3 Ygrad[YTemps][ Yi][Yj][Yk][2]4807 #define YS1Y Ystate[YTemps][0] 4808 #define YS1 Ystate[YTemps][0] 4809 #define YG1 Ygrad[YTemps][0] 4810 #define YS2Y Ystate[YTemps][1] 4811 #define YS2 Ystate[YTemps][1] 4812 #define YG2 Ygrad[YTemps][1] 4813 #define YS3Y Ystate[YTemps][2] 4814 #define YS3 Ystate[YTemps][2] 4815 #define YG3 Ygrad[YTemps][2] 4638 4816 #include "zwisd_ua_dynzdf_imp.h" 4639 4817 #undef YS1Y … … 4653 4831 #define backward void zwisd_va_dynzdf_imp::backward 4654 4832 #define flinward void zwisd_va_dynzdf_imp::flinward 4655 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4656 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4657 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4658 #define YS2Y Ystate[YTemps][ Yi][Yj][Yk][1]4659 #define YS2 Ystate[YTemps][ Yi][Yj][Yk][1]4660 #define YG2 Ygrad[YTemps][ Yi][Yj][Yk][1]4661 #define YS3Y Ystate[YTemps][ Yi][Yj][Yk][2]4662 #define YS3 Ystate[YTemps][ Yi][Yj][Yk][2]4663 #define YG3 Ygrad[YTemps][ Yi][Yj][Yk][2]4833 #define YS1Y Ystate[YTemps][0] 4834 #define YS1 Ystate[YTemps][0] 4835 #define YG1 Ygrad[YTemps][0] 4836 #define YS2Y Ystate[YTemps][1] 4837 #define YS2 Ystate[YTemps][1] 4838 #define YG2 Ygrad[YTemps][1] 4839 #define YS3Y Ystate[YTemps][2] 4840 #define YS3 Ystate[YTemps][2] 4841 #define YG3 Ygrad[YTemps][2] 4664 4842 #include "zwisd_va_dynzdf_imp.h" 4665 4843 #undef YS1Y … … 4679 4857 #define backward void zrhs_ua_dynzdf_imp::backward 4680 4858 #define flinward void zrhs_ua_dynzdf_imp::flinward 4681 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4682 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4683 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4859 #define YS1Y Ystate[YTemps][0] 4860 #define YS1 Ystate[YTemps][0] 4861 #define YG1 Ygrad[YTemps][0] 4684 4862 #include "zrhs_ua_dynzdf_imp.h" 4685 4863 #undef YS1Y … … 4693 4871 #define backward void zrhs_va_dynzdf_imp::backward 4694 4872 #define flinward void zrhs_va_dynzdf_imp::flinward 4695 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4696 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4697 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4873 #define YS1Y Ystate[YTemps][0] 4874 #define YS1 Ystate[YTemps][0] 4875 #define YG1 Ygrad[YTemps][0] 4698 4876 #include "zrhs_va_dynzdf_imp.h" 4699 4877 #undef YS1Y … … 4707 4885 #define backward void ua_dynzdf_imp::backward 4708 4886 #define flinward void ua_dynzdf_imp::flinward 4709 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4710 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4711 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4887 #define YS1Y Ystate[YTemps][0] 4888 #define YS1 Ystate[YTemps][0] 4889 #define YG1 Ygrad[YTemps][0] 4712 4890 #include "ua_dynzdf_imp.h" 4713 4891 #undef YS1Y … … 4721 4899 #define backward void ua_norm_dynzdf::backward 4722 4900 #define flinward void ua_norm_dynzdf::flinward 4723 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4724 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4725 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4901 #define YS1Y Ystate[YTemps][0] 4902 #define YS1 Ystate[YTemps][0] 4903 #define YG1 Ygrad[YTemps][0] 4726 4904 #include "ua_norm_dynzdf.h" 4727 4905 #undef YS1Y … … 4735 4913 #define backward void spguv_now_dynspg::backward 4736 4914 #define flinward void spguv_now_dynspg::flinward 4737 #define YS1Y Ystate[YTemps][ Yi][Yj][0]4738 #define YS1 Ystate[YTemps][ Yi][Yj][0]4739 #define YG1 Ygrad[YTemps][ Yi][Yj][0]4740 #define YS2Y Ystate[YTemps][ Yi][Yj][1]4741 #define YS2 Ystate[YTemps][ Yi][Yj][1]4742 #define YG2 Ygrad[YTemps][ Yi][Yj][1]4915 #define YS1Y Ystate[YTemps][0] 4916 #define YS1 Ystate[YTemps][0] 4917 #define YG1 Ygrad[YTemps][0] 4918 #define YS2Y Ystate[YTemps][1] 4919 #define YS2 Ystate[YTemps][1] 4920 #define YG2 Ygrad[YTemps][1] 4743 4921 #include "spguv_now_dynspg.h" 4744 4922 #undef YS1Y … … 4755 4933 #define backward void ua_1_dynspg_flt::backward 4756 4934 #define flinward void ua_1_dynspg_flt::flinward 4757 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4758 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4759 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4935 #define YS1Y Ystate[YTemps][0] 4936 #define YS1 Ystate[YTemps][0] 4937 #define YG1 Ygrad[YTemps][0] 4760 4938 #include "ua_1_dynspg_flt.h" 4761 4939 #undef YS1Y … … 4769 4947 #define backward void va_1_dynspg_flt::backward 4770 4948 #define flinward void va_1_dynspg_flt::flinward 4771 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4772 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4773 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4949 #define YS1Y Ystate[YTemps][0] 4950 #define YS1 Ystate[YTemps][0] 4951 #define YG1 Ygrad[YTemps][0] 4774 4952 #include "va_1_dynspg_flt.h" 4775 4953 #undef YS1Y … … 4783 4961 #define backward void sum_spgu_dynspg_flt::backward 4784 4962 #define flinward void sum_spgu_dynspg_flt::flinward 4785 #define YS1Y Ystate[YTemps][ Yi][Yj][0]4786 #define YS1 Ystate[YTemps][ Yi][Yj][0]4787 #define YG1 Ygrad[YTemps][ Yi][Yj][0]4963 #define YS1Y Ystate[YTemps][0] 4964 #define YS1 Ystate[YTemps][0] 4965 #define YG1 Ygrad[YTemps][0] 4788 4966 #include "sum_spgu_dynspg_flt.h" 4789 4967 #undef YS1Y … … 4797 4975 #define backward void sum_spgv_dynspg_flt::backward 4798 4976 #define flinward void sum_spgv_dynspg_flt::flinward 4799 #define YS1Y Ystate[YTemps][ Yi][Yj][0]4800 #define YS1 Ystate[YTemps][ Yi][Yj][0]4801 #define YG1 Ygrad[YTemps][ Yi][Yj][0]4977 #define YS1Y Ystate[YTemps][0] 4978 #define YS1 Ystate[YTemps][0] 4979 #define YG1 Ygrad[YTemps][0] 4802 4980 #include "sum_spgv_dynspg_flt.h" 4803 4981 #undef YS1Y … … 4811 4989 #define backward void gcb_dynspg_flt::backward 4812 4990 #define flinward void gcb_dynspg_flt::flinward 4813 #define YS1Y Ystate[YTemps][ Yi][Yj][0]4814 #define YS1 Ystate[YTemps][ Yi][Yj][0]4815 #define YG1 Ygrad[YTemps][ Yi][Yj][0]4991 #define YS1Y Ystate[YTemps][0] 4992 #define YS1 Ystate[YTemps][0] 4993 #define YG1 Ygrad[YTemps][0] 4816 4994 #include "gcb_dynspg_flt.h" 4817 4995 #undef YS1Y … … 4825 5003 #define backward void gcx_dynspg_flt::backward 4826 5004 #define flinward void gcx_dynspg_flt::flinward 4827 #define YS1Y Ystate[YTemps][ Yi][Yj][0]4828 #define YS1 Ystate[YTemps][ Yi][Yj][0]4829 #define YG1 Ygrad[YTemps][ Yi][Yj][0]5005 #define YS1Y Ystate[YTemps][0] 5006 #define YS1 Ystate[YTemps][0] 5007 #define YG1 Ygrad[YTemps][0] 4830 5008 #include "gcx_dynspg_flt.h" 4831 5009 #undef YS1Y … … 4839 5017 #define backward void solsor_gx1_x_r::backward 4840 5018 #define flinward void solsor_gx1_x_r::flinward 4841 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4842 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4843 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4844 #define YS2Y Ystate[YTemps][ Yi][Yj][Yk][1]4845 #define YS2 Ystate[YTemps][ Yi][Yj][Yk][1]4846 #define YG2 Ygrad[YTemps][ Yi][Yj][Yk][1]5019 #define YS1Y Ystate[YTemps][0] 5020 #define YS1 Ystate[YTemps][0] 5021 #define YG1 Ygrad[YTemps][0] 5022 #define YS2Y Ystate[YTemps][1] 5023 #define YS2 Ystate[YTemps][1] 5024 #define YG2 Ygrad[YTemps][1] 4847 5025 #include "solsor_gx1_x_r.h" 4848 5026 #undef YS1Y … … 4859 5037 #define backward void solsor_gx2_x_r::backward 4860 5038 #define flinward void solsor_gx2_x_r::flinward 4861 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4862 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4863 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4864 #define YS2Y Ystate[YTemps][ Yi][Yj][Yk][1]4865 #define YS2 Ystate[YTemps][ Yi][Yj][Yk][1]4866 #define YG2 Ygrad[YTemps][ Yi][Yj][Yk][1]5039 #define YS1Y Ystate[YTemps][0] 5040 #define YS1 Ystate[YTemps][0] 5041 #define YG1 Ygrad[YTemps][0] 5042 #define YS2Y Ystate[YTemps][1] 5043 #define YS2 Ystate[YTemps][1] 5044 #define YG2 Ygrad[YTemps][1] 4867 5045 #include "solsor_gx2_x_r.h" 4868 5046 #undef YS1Y … … 4879 5057 #define backward void solsor_flag::backward 4880 5058 #define flinward void solsor_flag::flinward 4881 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4882 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4883 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]4884 #define YS2Y Ystate[YTemps][ Yi][Yj][Yk][1]4885 #define YS2 Ystate[YTemps][ Yi][Yj][Yk][1]4886 #define YG2 Ygrad[YTemps][ Yi][Yj][Yk][1]5059 #define YS1Y Ystate[YTemps][0] 5060 #define YS1 Ystate[YTemps][0] 5061 #define YG1 Ygrad[YTemps][0] 5062 #define YS2Y Ystate[YTemps][1] 5063 #define YS2 Ystate[YTemps][1] 5064 #define YG2 Ygrad[YTemps][1] 4887 5065 #include "solsor_flag.h" 4888 5066 #undef YS1Y … … 4899 5077 #define backward void gcx2::backward 4900 5078 #define flinward void gcx2::flinward 4901 #define YS1Y Ystate[YTemps][ Yi][Yj][0]4902 #define YS1 Ystate[YTemps][ Yi][Yj][0]4903 #define YG1 Ygrad[YTemps][ Yi][Yj][0]5079 #define YS1Y Ystate[YTemps][0] 5080 #define YS1 Ystate[YTemps][0] 5081 #define YG1 Ygrad[YTemps][0] 4904 5082 #include "gcx2.h" 4905 5083 #undef YS1Y … … 4913 5091 #define backward void spguv_dynspg_flt::backward 4914 5092 #define flinward void spguv_dynspg_flt::flinward 4915 #define YS1Y Ystate[YTemps][ Yi][Yj][0]4916 #define YS1 Ystate[YTemps][ Yi][Yj][0]4917 #define YG1 Ygrad[YTemps][ Yi][Yj][0]4918 #define YS2Y Ystate[YTemps][ Yi][Yj][1]4919 #define YS2 Ystate[YTemps][ Yi][Yj][1]4920 #define YG2 Ygrad[YTemps][ Yi][Yj][1]5093 #define YS1Y Ystate[YTemps][0] 5094 #define YS1 Ystate[YTemps][0] 5095 #define YG1 Ygrad[YTemps][0] 5096 #define YS2Y Ystate[YTemps][1] 5097 #define YS2 Ystate[YTemps][1] 5098 #define YG2 Ygrad[YTemps][1] 4921 5099 #include "spguv_dynspg_flt.h" 4922 5100 #undef YS1Y … … 4933 5111 #define backward void ua::backward 4934 5112 #define flinward void ua::flinward 4935 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4936 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4937 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]5113 #define YS1Y Ystate[YTemps][0] 5114 #define YS1 Ystate[YTemps][0] 5115 #define YG1 Ygrad[YTemps][0] 4938 5116 #include "ua.h" 4939 5117 #undef YS1Y … … 4947 5125 #define backward void va::backward 4948 5126 #define flinward void va::flinward 4949 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4950 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4951 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]5127 #define YS1Y Ystate[YTemps][0] 5128 #define YS1 Ystate[YTemps][0] 5129 #define YG1 Ygrad[YTemps][0] 4952 5130 #include "va.h" 4953 5131 #undef YS1Y … … 4961 5139 #define backward void sshn::backward 4962 5140 #define flinward void sshn::flinward 4963 #define YS1Y Ystate[YTemps][ Yi][Yj][0]4964 #define YS1 Ystate[YTemps][ Yi][Yj][0]4965 #define YG1 Ygrad[YTemps][ Yi][Yj][0]5141 #define YS1Y Ystate[YTemps][0] 5142 #define YS1 Ystate[YTemps][0] 5143 #define YG1 Ygrad[YTemps][0] 4966 5144 #include "sshn.h" 4967 5145 #undef YS1Y … … 4975 5153 #define backward void sshb::backward 4976 5154 #define flinward void sshb::flinward 4977 #define YS1Y Ystate[YTemps][ Yi][Yj][0]4978 #define YS1 Ystate[YTemps][ Yi][Yj][0]4979 #define YG1 Ygrad[YTemps][ Yi][Yj][0]5155 #define YS1Y Ystate[YTemps][0] 5156 #define YS1 Ystate[YTemps][0] 5157 #define YG1 Ygrad[YTemps][0] 4980 5158 #include "sshb.h" 4981 5159 #undef YS1Y … … 4989 5167 #define backward void ub::backward 4990 5168 #define flinward void ub::flinward 4991 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]4992 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]4993 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]5169 #define YS1Y Ystate[YTemps][0] 5170 #define YS1 Ystate[YTemps][0] 5171 #define YG1 Ygrad[YTemps][0] 4994 5172 #include "ub.h" 4995 5173 #undef YS1Y … … 5003 5181 #define backward void vb::backward 5004 5182 #define flinward void vb::flinward 5005 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]5006 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]5007 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]5183 #define YS1Y Ystate[YTemps][0] 5184 #define YS1 Ystate[YTemps][0] 5185 #define YG1 Ygrad[YTemps][0] 5008 5186 #include "vb.h" 5009 5187 #undef YS1Y … … 5017 5195 #define backward void hdivn::backward 5018 5196 #define flinward void hdivn::flinward 5019 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]5020 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]5021 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]5197 #define YS1Y Ystate[YTemps][0] 5198 #define YS1 Ystate[YTemps][0] 5199 #define YG1 Ygrad[YTemps][0] 5022 5200 #include "hdivn.h" 5023 5201 #undef YS1Y … … 5031 5209 #define backward void rotn::backward 5032 5210 #define flinward void rotn::flinward 5033 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]5034 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]5035 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]5211 #define YS1Y Ystate[YTemps][0] 5212 #define YS1 Ystate[YTemps][0] 5213 #define YG1 Ygrad[YTemps][0] 5036 5214 #include "rotn.h" 5037 5215 #undef YS1Y … … 5045 5223 #define backward void wa::backward 5046 5224 #define flinward void wa::flinward 5047 #define YS1Y Ystate[YTemps][ Yi][Yj][Yk][0]5048 #define YS1 Ystate[YTemps][ Yi][Yj][Yk][0]5049 #define YG1 Ygrad[YTemps][ Yi][Yj][Yk][0]5225 #define YS1Y Ystate[YTemps][0] 5226 #define YS1 Ystate[YTemps][0] 5227 #define YG1 Ygrad[YTemps][0] 5050 5228 #include "wa.h" 5051 5229 #undef YS1Y -
trunk/src/Yworkdir/Y2sinobad.h
r45 r46 4 4 //---------------------------------------------------- 5 5 6 // ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵLES FONCTIONS PREDEFINIES6 // € € € € € € € € LES FONCTIONS PREDEFINIES 7 7 /*M2_TBTOG */ 8 8 void YtabTOgrad_sshn_c(YREAL tab[]) … … 18 18 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 19 19 for (int Yws=0; Yws<YNBS_sshn_c; ++Yws){ 20 Ysshn_c ->Ygrad[Yw1][Yw2][Yws] = 0.0;}}}20 Ysshn_c(Yw1, Yw2)->Ygrad[Yws] = 0.0;}}} 21 21 }/*M2_SETA*/ 22 22 void Ysetstate_sshn_c(double val) … … 25 25 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 26 26 for (int Yws=0; Yws<YNBS_sshn_c; ++Yws){ 27 Ysshn_c ->Ystate[Yw1][Yw2][Yws] = val;}}}27 Ysshn_c(Yw1, Yw2)->Ystate[Yws] = val;}}} 28 28 }/*M2_YIOTU*/ 29 29 void Yio_sshn_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 30 30 { Yiorwf ("sshn_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sshn_c(Yws, Yw1, Yw2), val); 31 }/*M0_CREY*/ 32 void Ycreate_sshn_c() 33 { 34 if ((Ysshn_c = new Yaosshn_c ())==NULL) 35 Ycreate_errnew(); 31 }/*M2_CREY*/ 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();}} 36 37 }/*M3_ADJUS*/ 37 38 void Yadjust_ta_c() … … 58 59 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 59 60 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 60 Y3x[Y3windice] = Yta_c ->Ystate[Yw1][Yw2][Yw3][Yws]; ++Y3windice;}}}}61 Y3x[Y3windice] = Yta_c(Yw1, Yw2, Yw3)->Ystate[Yws]; ++Y3windice;}}}} 61 62 }/*M3_GSTA*/ 62 63 void Y3getstate_ta_c(float x[]) … … 66 67 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 67 68 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 68 Yta_c ->Ystate[Yw1][Yw2][Yw3][Yws] = x[Y3windice]; ++Y3windice;}}}}69 Yta_c(Yw1, Yw2, Yw3)->Ystate[Yws] = x[Y3windice]; ++Y3windice;}}}} 69 70 }/*M3_VGRAD*/ 70 71 void Y3valgrad_ta_c(float g[]) … … 74 75 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 75 76 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 76 g[Y3windice] = Yta_c ->Ygrad[Yw1][Yw2][Yw3][Yws]; ++Y3windice;}}}}77 g[Y3windice] = Yta_c(Yw1, Yw2, Yw3)->Ygrad[Yws]; ++Y3windice;}}}} 77 78 }/*M3_TBTOG */ 78 79 void YtabTOgrad_ta_c(YREAL tab[]) … … 90 91 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 91 92 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 92 Yta_c ->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}}93 Yta_c(Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}} 93 94 }/*M3_SETA*/ 94 95 void Ysetstate_ta_c(double val) … … 98 99 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 99 100 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 100 Yta_c ->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}}101 Yta_c(Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}} 101 102 }/*M3_YIOTU*/ 102 103 void Yio_ta_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 125 126 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 126 127 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 127 Yta_c->Yepsi[Yw1][Yw2][Yw3][Yws] = val;}}}} 128 }/*M0_CREY*/ 129 void Ycreate_ta_c() 130 { 131 if ((Yta_c = new Yaota_c ())==NULL) 132 Ycreate_errnew(); 128 Yta_c(Yw1, Yw2, Yw3)->Yepsi[Yws] = val;}}}} 129 }/*M3_CREY*/ 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();}}} 133 136 }/*M3_SWISH*/ 134 137 void Ysetwish_ta_c(double val) … … 154 157 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 155 158 for (int Yws=0; Yws<YNBS_sa_c; ++Yws){ 156 Ysa_c ->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}}159 Ysa_c(Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}} 157 160 }/*M3_SETA*/ 158 161 void Ysetstate_sa_c(double val) … … 162 165 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 163 166 for (int Yws=0; Yws<YNBS_sa_c; ++Yws){ 164 Ysa_c ->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}}167 Ysa_c(Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}} 165 168 }/*M3_YIOTU*/ 166 169 void Yio_sa_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 167 170 { Yiorwf ("sa_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_c(Yws, Yw1, Yw2, Yw3), val); 168 }/*M0_CREY*/ 169 void Ycreate_sa_c() 170 { 171 if ((Ysa_c = new Yaosa_c ())==NULL) 172 Ycreate_errnew(); 171 }/*M3_CREY*/ 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();}}} 173 178 }/*M3_TBTOG */ 174 179 void YtabTOgrad_ua_c(YREAL tab[]) … … 186 191 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 187 192 for (int Yws=0; Yws<YNBS_ua_c; ++Yws){ 188 Yua_c ->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}}193 Yua_c(Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}} 189 194 }/*M3_SETA*/ 190 195 void Ysetstate_ua_c(double val) … … 194 199 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 195 200 for (int Yws=0; Yws<YNBS_ua_c; ++Yws){ 196 Yua_c ->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}}201 Yua_c(Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}} 197 202 }/*M3_YIOTU*/ 198 203 void Yio_ua_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 199 204 { Yiorwf ("ua_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_c(Yws, Yw1, Yw2, Yw3), val); 200 }/*M0_CREY*/ 201 void Ycreate_ua_c() 202 { 203 if ((Yua_c = new Yaoua_c ())==NULL) 204 Ycreate_errnew(); 205 }/*M3_CREY*/ 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();}}} 205 212 }/*M3_TBTOG */ 206 213 void YtabTOgrad_va_c(YREAL tab[]) … … 218 225 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 219 226 for (int Yws=0; Yws<YNBS_va_c; ++Yws){ 220 Yva_c ->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}}227 Yva_c(Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}} 221 228 }/*M3_SETA*/ 222 229 void Ysetstate_va_c(double val) … … 226 233 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 227 234 for (int Yws=0; Yws<YNBS_va_c; ++Yws){ 228 Yva_c ->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}}235 Yva_c(Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}} 229 236 }/*M3_YIOTU*/ 230 237 void Yio_va_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 231 238 { Yiorwf ("va_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_c(Yws, Yw1, Yw2, Yw3), val); 232 }/*M0_CREY*/ 233 void Ycreate_va_c() 234 { 235 if ((Yva_c = new Yaova_c ())==NULL) 236 Ycreate_errnew(); 239 }/*M3_CREY*/ 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();}}} 237 246 }/*M2_TBTOGT */ 238 247 void YtabTOgrad_sbcgyre_qsr_qns(int frompdt, int topdt, YREAL tab[]) … … 250 259 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 251 260 for (int Yws=0; Yws<YNBS_sbcgyre_qsr_qns; ++Yws){ 252 Ysbcgyre_qsr_qns ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}261 Ysbcgyre_qsr_qns(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 253 262 }/*M2_SETAT*/ 254 263 void Ysetstate_sbcgyre_qsr_qns(double val) … … 258 267 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 259 268 for (int Yws=0; Yws<YNBS_sbcgyre_qsr_qns; ++Yws){ 260 Ysbcgyre_qsr_qns ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}269 Ysbcgyre_qsr_qns(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 261 270 }/*M2_YIOUT*/ 262 271 void Yio_sbcgyre_qsr_qns(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 263 272 { Yiorwf ("sbcgyre_qsr_qns", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_qsr_qns(Yws, Yw1, Yw2, Ywt), val); 264 }/*M 0_CREU*/273 }/*M2_CREU*/ 265 274 void Ycreate_sbcgyre_qsr_qns() 266 275 { 267 if ((Ysbcgyre_qsr_qns = new sbcgyre_qsr_qns ())==NULL) 268 Ycreate_errnew(); 276 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 277 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 278 if ((Ysbcgyre_qsr_qns(Yw1, Yw2)= new sbcgyre_qsr_qns ())==NULL) Ycreate_errnew();}} 269 279 }/*M2_TBTOGT */ 270 280 void YtabTOgrad_sbcgyre_emp1(int frompdt, int topdt, YREAL tab[]) … … 282 292 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 283 293 for (int Yws=0; Yws<YNBS_sbcgyre_emp1; ++Yws){ 284 Ysbcgyre_emp1 ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}294 Ysbcgyre_emp1(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 285 295 }/*M2_SETAT*/ 286 296 void Ysetstate_sbcgyre_emp1(double val) … … 290 300 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 291 301 for (int Yws=0; Yws<YNBS_sbcgyre_emp1; ++Yws){ 292 Ysbcgyre_emp1 ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}302 Ysbcgyre_emp1(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 293 303 }/*M2_YIOUT*/ 294 304 void Yio_sbcgyre_emp1(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 295 305 { Yiorwf ("sbcgyre_emp1", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emp1(Yws, Yw1, Yw2, Ywt), val); 296 }/*M 0_CREU*/306 }/*M2_CREU*/ 297 307 void Ycreate_sbcgyre_emp1() 298 308 { 299 if ((Ysbcgyre_emp1 = new sbcgyre_emp1 ())==NULL) 300 Ycreate_errnew(); 309 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 310 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 311 if ((Ysbcgyre_emp1(Yw1, Yw2)= new sbcgyre_emp1 ())==NULL) Ycreate_errnew();}} 301 312 }/*M2_TBTOGT */ 302 313 void YtabTOgrad_sbcgyre_zsumemp_zsurf(int frompdt, int topdt, YREAL tab[]) … … 314 325 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 315 326 for (int Yws=0; Yws<YNBS_sbcgyre_zsumemp_zsurf; ++Yws){ 316 Ysbcgyre_zsumemp_zsurf ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}327 Ysbcgyre_zsumemp_zsurf(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 317 328 }/*M2_SETAT*/ 318 329 void Ysetstate_sbcgyre_zsumemp_zsurf(double val) … … 322 333 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 323 334 for (int Yws=0; Yws<YNBS_sbcgyre_zsumemp_zsurf; ++Yws){ 324 Ysbcgyre_zsumemp_zsurf ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}335 Ysbcgyre_zsumemp_zsurf(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 325 336 }/*M2_YIOUT*/ 326 337 void Yio_sbcgyre_zsumemp_zsurf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 327 338 { Yiorwf ("sbcgyre_zsumemp_zsurf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_zsumemp_zsurf(Yws, Yw1, Yw2, Ywt), val); 328 }/*M 0_CREU*/339 }/*M2_CREU*/ 329 340 void Ycreate_sbcgyre_zsumemp_zsurf() 330 341 { 331 if ((Ysbcgyre_zsumemp_zsurf = new sbcgyre_zsumemp_zsurf ())==NULL) 332 Ycreate_errnew(); 342 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 343 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 344 if ((Ysbcgyre_zsumemp_zsurf(Yw1, Yw2)= new sbcgyre_zsumemp_zsurf ())==NULL) Ycreate_errnew();}} 333 345 }/*M2_TBTOGT */ 334 346 void YtabTOgrad_sbcgyre_emp(int frompdt, int topdt, YREAL tab[]) … … 346 358 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 347 359 for (int Yws=0; Yws<YNBS_sbcgyre_emp; ++Yws){ 348 Ysbcgyre_emp ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}360 Ysbcgyre_emp(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 349 361 }/*M2_SETAT*/ 350 362 void Ysetstate_sbcgyre_emp(double val) … … 354 366 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 355 367 for (int Yws=0; Yws<YNBS_sbcgyre_emp; ++Yws){ 356 Ysbcgyre_emp ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}368 Ysbcgyre_emp(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 357 369 }/*M2_YIOUT*/ 358 370 void Yio_sbcgyre_emp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 359 371 { Yiorwf ("sbcgyre_emp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emp(Yws, Yw1, Yw2, Ywt), val); 360 }/*M 0_CREU*/372 }/*M2_CREU*/ 361 373 void Ycreate_sbcgyre_emp() 362 374 { 363 if ((Ysbcgyre_emp = new sbcgyre_emp ())==NULL) 364 Ycreate_errnew(); 375 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 376 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 377 if ((Ysbcgyre_emp(Yw1, Yw2)= new sbcgyre_emp ())==NULL) Ycreate_errnew();}} 365 378 }/*M2_TBTOGT */ 366 379 void YtabTOgrad_sbcgyre_emps(int frompdt, int topdt, YREAL tab[]) … … 378 391 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 379 392 for (int Yws=0; Yws<YNBS_sbcgyre_emps; ++Yws){ 380 Ysbcgyre_emps ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}393 Ysbcgyre_emps(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 381 394 }/*M2_SETAT*/ 382 395 void Ysetstate_sbcgyre_emps(double val) … … 386 399 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 387 400 for (int Yws=0; Yws<YNBS_sbcgyre_emps; ++Yws){ 388 Ysbcgyre_emps ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}401 Ysbcgyre_emps(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 389 402 }/*M2_YIOUT*/ 390 403 void Yio_sbcgyre_emps(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 391 404 { Yiorwf ("sbcgyre_emps", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emps(Yws, Yw1, Yw2, Ywt), val); 392 }/*M 0_CREU*/405 }/*M2_CREU*/ 393 406 void Ycreate_sbcgyre_emps() 394 407 { 395 if ((Ysbcgyre_emps = new sbcgyre_emps ())==NULL) 396 Ycreate_errnew(); 408 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 409 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 410 if ((Ysbcgyre_emps(Yw1, Yw2)= new sbcgyre_emps ())==NULL) Ycreate_errnew();}} 397 411 }/*M2_TBTOGT */ 398 412 void YtabTOgrad_sbcgyre_utau_vtau(int frompdt, int topdt, YREAL tab[]) … … 410 424 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 411 425 for (int Yws=0; Yws<YNBS_sbcgyre_utau_vtau; ++Yws){ 412 Ysbcgyre_utau_vtau ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}426 Ysbcgyre_utau_vtau(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 413 427 }/*M2_SETAT*/ 414 428 void Ysetstate_sbcgyre_utau_vtau(double val) … … 418 432 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 419 433 for (int Yws=0; Yws<YNBS_sbcgyre_utau_vtau; ++Yws){ 420 Ysbcgyre_utau_vtau ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}434 Ysbcgyre_utau_vtau(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 421 435 }/*M2_YIOUT*/ 422 436 void Yio_sbcgyre_utau_vtau(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 423 437 { Yiorwf ("sbcgyre_utau_vtau", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_utau_vtau(Yws, Yw1, Yw2, Ywt), val); 424 }/*M 0_CREU*/438 }/*M2_CREU*/ 425 439 void Ycreate_sbcgyre_utau_vtau() 426 440 { 427 if ((Ysbcgyre_utau_vtau = new sbcgyre_utau_vtau ())==NULL) 428 Ycreate_errnew(); 441 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 442 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 443 if ((Ysbcgyre_utau_vtau(Yw1, Yw2)= new sbcgyre_utau_vtau ())==NULL) Ycreate_errnew();}} 429 444 }/*M2_TBTOGT */ 430 445 void YtabTOgrad_sbcgyre_wndm(int frompdt, int topdt, YREAL tab[]) … … 442 457 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 443 458 for (int Yws=0; Yws<YNBS_sbcgyre_wndm; ++Yws){ 444 Ysbcgyre_wndm ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}459 Ysbcgyre_wndm(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 445 460 }/*M2_SETAT*/ 446 461 void Ysetstate_sbcgyre_wndm(double val) … … 450 465 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 451 466 for (int Yws=0; Yws<YNBS_sbcgyre_wndm; ++Yws){ 452 Ysbcgyre_wndm ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}467 Ysbcgyre_wndm(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 453 468 }/*M2_YIOUT*/ 454 469 void Yio_sbcgyre_wndm(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 455 470 { Yiorwf ("sbcgyre_wndm", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_wndm(Yws, Yw1, Yw2, Ywt), val); 456 }/*M 0_CREU*/471 }/*M2_CREU*/ 457 472 void Ycreate_sbcgyre_wndm() 458 473 { 459 if ((Ysbcgyre_wndm = new sbcgyre_wndm ())==NULL) 460 Ycreate_errnew(); 474 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 475 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 476 if ((Ysbcgyre_wndm(Yw1, Yw2)= new sbcgyre_wndm ())==NULL) Ycreate_errnew();}} 461 477 }/*M3_TBTOGT */ 462 478 void YtabTOgrad_bn2_rn2(int frompdt, int topdt, YREAL tab[]) … … 476 492 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 477 493 for (int Yws=0; Yws<YNBS_bn2_rn2; ++Yws){ 478 Ybn2_rn2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}494 Ybn2_rn2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 479 495 }/*M3_SETAT*/ 480 496 void Ysetstate_bn2_rn2(double val) … … 485 501 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 486 502 for (int Yws=0; Yws<YNBS_bn2_rn2; ++Yws){ 487 Ybn2_rn2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}503 Ybn2_rn2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 488 504 }/*M3_YIOUT*/ 489 505 void Yio_bn2_rn2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 490 506 { Yiorwf ("bn2_rn2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_bn2_rn2(Yws, Yw1, Yw2, Yw3, Ywt), val); 491 }/*M 0_CREU*/507 }/*M3_CREU*/ 492 508 void Ycreate_bn2_rn2() 493 509 { 494 if ((Ybn2_rn2 = new bn2_rn2 ())==NULL) 495 Ycreate_errnew(); 510 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 511 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 512 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 513 if ((Ybn2_rn2(Yw1, Yw2, Yw3) = new bn2_rn2 ())==NULL) Ycreate_errnew();}}} 496 514 }/*M3_TBTOGT */ 497 515 void YtabTOgrad_zdf_avt_avmu_avmv(int frompdt, int topdt, YREAL tab[]) … … 511 529 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 512 530 for (int Yws=0; Yws<YNBS_zdf_avt_avmu_avmv; ++Yws){ 513 Yzdf_avt_avmu_avmv ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}531 Yzdf_avt_avmu_avmv(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 514 532 }/*M3_SETAT*/ 515 533 void Ysetstate_zdf_avt_avmu_avmv(double val) … … 520 538 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 521 539 for (int Yws=0; Yws<YNBS_zdf_avt_avmu_avmv; ++Yws){ 522 Yzdf_avt_avmu_avmv ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}540 Yzdf_avt_avmu_avmv(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 523 541 }/*M3_YIOUT*/ 524 542 void Yio_zdf_avt_avmu_avmv(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 525 543 { Yiorwf ("zdf_avt_avmu_avmv", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdf_avt_avmu_avmv(Yws, Yw1, Yw2, Yw3, Ywt), val); 526 }/*M 0_CREU*/544 }/*M3_CREU*/ 527 545 void Ycreate_zdf_avt_avmu_avmv() 528 546 { 529 if ((Yzdf_avt_avmu_avmv = new zdf_avt_avmu_avmv ())==NULL) 530 Ycreate_errnew(); 547 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 548 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 549 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 550 if ((Yzdf_avt_avmu_avmv(Yw1, Yw2, Yw3) = new zdf_avt_avmu_avmv ())==NULL) Ycreate_errnew();}}} 531 551 }/*M2_TBTOGT */ 532 552 void YtabTOgrad_zdfmxl_hmld(int frompdt, int topdt, YREAL tab[]) … … 544 564 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 545 565 for (int Yws=0; Yws<YNBS_zdfmxl_hmld; ++Yws){ 546 Yzdfmxl_hmld ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}566 Yzdfmxl_hmld(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 547 567 }/*M2_SETAT*/ 548 568 void Ysetstate_zdfmxl_hmld(double val) … … 552 572 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 553 573 for (int Yws=0; Yws<YNBS_zdfmxl_hmld; ++Yws){ 554 Yzdfmxl_hmld ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}574 Yzdfmxl_hmld(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 555 575 }/*M2_YIOUT*/ 556 576 void Yio_zdfmxl_hmld(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 557 577 { Yiorwf ("zdfmxl_hmld", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdfmxl_hmld(Yws, Yw1, Yw2, Ywt), val); 558 }/*M 0_CREU*/578 }/*M2_CREU*/ 559 579 void Ycreate_zdfmxl_hmld() 560 580 { 561 if ((Yzdfmxl_hmld = new zdfmxl_hmld ())==NULL) 562 Ycreate_errnew(); 581 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 582 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 583 if ((Yzdfmxl_hmld(Yw1, Yw2)= new zdfmxl_hmld ())==NULL) Ycreate_errnew();}} 563 584 }/*M2_TBTOGT */ 564 585 void YtabTOgrad_zdfmxl_nmln_hmlp_hmlpt(int frompdt, int topdt, YREAL tab[]) … … 576 597 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 577 598 for (int Yws=0; Yws<YNBS_zdfmxl_nmln_hmlp_hmlpt; ++Yws){ 578 Yzdfmxl_nmln_hmlp_hmlpt ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}599 Yzdfmxl_nmln_hmlp_hmlpt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 579 600 }/*M2_SETAT*/ 580 601 void Ysetstate_zdfmxl_nmln_hmlp_hmlpt(double val) … … 584 605 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 585 606 for (int Yws=0; Yws<YNBS_zdfmxl_nmln_hmlp_hmlpt; ++Yws){ 586 Yzdfmxl_nmln_hmlp_hmlpt ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}607 Yzdfmxl_nmln_hmlp_hmlpt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 587 608 }/*M2_YIOUT*/ 588 609 void Yio_zdfmxl_nmln_hmlp_hmlpt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 589 610 { Yiorwf ("zdfmxl_nmln_hmlp_hmlpt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdfmxl_nmln_hmlp_hmlpt(Yws, Yw1, Yw2, Ywt), val); 590 }/*M 0_CREU*/611 }/*M2_CREU*/ 591 612 void Ycreate_zdfmxl_nmln_hmlp_hmlpt() 592 613 { 593 if ((Yzdfmxl_nmln_hmlp_hmlpt = new zdfmxl_nmln_hmlp_hmlpt ())==NULL) 594 Ycreate_errnew(); 614 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 615 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 616 if ((Yzdfmxl_nmln_hmlp_hmlpt(Yw1, Yw2)= new zdfmxl_nmln_hmlp_hmlpt ())==NULL) Ycreate_errnew();}} 595 617 }/*M2_TBTOGT */ 596 618 void YtabTOgrad_ta_sa_trasbc(int frompdt, int topdt, YREAL tab[]) … … 608 630 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 609 631 for (int Yws=0; Yws<YNBS_ta_sa_trasbc; ++Yws){ 610 Yta_sa_trasbc ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}632 Yta_sa_trasbc(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 611 633 }/*M2_SETAT*/ 612 634 void Ysetstate_ta_sa_trasbc(double val) … … 616 638 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 617 639 for (int Yws=0; Yws<YNBS_ta_sa_trasbc; ++Yws){ 618 Yta_sa_trasbc ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}640 Yta_sa_trasbc(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 619 641 }/*M2_YIOUT*/ 620 642 void Yio_ta_sa_trasbc(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 621 643 { Yiorwf ("ta_sa_trasbc", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_sa_trasbc(Yws, Yw1, Yw2, Ywt), val); 622 }/*M 0_CREU*/644 }/*M2_CREU*/ 623 645 void Ycreate_ta_sa_trasbc() 624 646 { 625 if ((Yta_sa_trasbc = new ta_sa_trasbc ())==NULL) 626 Ycreate_errnew(); 647 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 648 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 649 if ((Yta_sa_trasbc(Yw1, Yw2)= new ta_sa_trasbc ())==NULL) Ycreate_errnew();}} 627 650 }/*M3_TBTOGT */ 628 651 void YtabTOgrad_ta_traqsr(int frompdt, int topdt, YREAL tab[]) … … 642 665 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 643 666 for (int Yws=0; Yws<YNBS_ta_traqsr; ++Yws){ 644 Yta_traqsr ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}667 Yta_traqsr(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 645 668 }/*M3_SETAT*/ 646 669 void Ysetstate_ta_traqsr(double val) … … 651 674 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 652 675 for (int Yws=0; Yws<YNBS_ta_traqsr; ++Yws){ 653 Yta_traqsr ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}676 Yta_traqsr(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 654 677 }/*M3_YIOUT*/ 655 678 void Yio_ta_traqsr(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 656 679 { Yiorwf ("ta_traqsr", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_traqsr(Yws, Yw1, Yw2, Yw3, Ywt), val); 657 }/*M 0_CREU*/680 }/*M3_CREU*/ 658 681 void Ycreate_ta_traqsr() 659 682 { 660 if ((Yta_traqsr = new ta_traqsr ())==NULL) 661 Ycreate_errnew(); 683 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 684 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 685 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 686 if ((Yta_traqsr(Yw1, Yw2, Yw3) = new ta_traqsr ())==NULL) Ycreate_errnew();}}} 662 687 }/*M3_TBTOGT */ 663 688 void YtabTOgrad_zcent_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 677 702 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 678 703 for (int Yws=0; Yws<YNBS_zcent_hor_traadv_cen2; ++Yws){ 679 Yzcent_hor_traadv_cen2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}704 Yzcent_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 680 705 }/*M3_SETAT*/ 681 706 void Ysetstate_zcent_hor_traadv_cen2(double val) … … 686 711 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 687 712 for (int Yws=0; Yws<YNBS_zcent_hor_traadv_cen2; ++Yws){ 688 Yzcent_hor_traadv_cen2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}713 Yzcent_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 689 714 }/*M3_YIOUT*/ 690 715 void Yio_zcent_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 691 716 { Yiorwf ("zcent_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcent_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 692 }/*M 0_CREU*/717 }/*M3_CREU*/ 693 718 void Ycreate_zcent_hor_traadv_cen2() 694 719 { 695 if ((Yzcent_hor_traadv_cen2 = new zcent_hor_traadv_cen2 ())==NULL) 696 Ycreate_errnew(); 720 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 721 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 722 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 723 if ((Yzcent_hor_traadv_cen2(Yw1, Yw2, Yw3) = new zcent_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 697 724 }/*M3_TBTOGT */ 698 725 void YtabTOgrad_zcens_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 712 739 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 713 740 for (int Yws=0; Yws<YNBS_zcens_hor_traadv_cen2; ++Yws){ 714 Yzcens_hor_traadv_cen2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}741 Yzcens_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 715 742 }/*M3_SETAT*/ 716 743 void Ysetstate_zcens_hor_traadv_cen2(double val) … … 721 748 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 722 749 for (int Yws=0; Yws<YNBS_zcens_hor_traadv_cen2; ++Yws){ 723 Yzcens_hor_traadv_cen2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}750 Yzcens_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 724 751 }/*M3_YIOUT*/ 725 752 void Yio_zcens_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 726 753 { Yiorwf ("zcens_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcens_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 727 }/*M 0_CREU*/754 }/*M3_CREU*/ 728 755 void Ycreate_zcens_hor_traadv_cen2() 729 756 { 730 if ((Yzcens_hor_traadv_cen2 = new zcens_hor_traadv_cen2 ())==NULL) 731 Ycreate_errnew(); 757 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 758 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 759 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 760 if ((Yzcens_hor_traadv_cen2(Yw1, Yw2, Yw3) = new zcens_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 732 761 }/*M3_TBTOGT */ 733 762 void YtabTOgrad_ta_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 747 776 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 748 777 for (int Yws=0; Yws<YNBS_ta_hor_traadv_cen2; ++Yws){ 749 Yta_hor_traadv_cen2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}778 Yta_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 750 779 }/*M3_SETAT*/ 751 780 void Ysetstate_ta_hor_traadv_cen2(double val) … … 756 785 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 757 786 for (int Yws=0; Yws<YNBS_ta_hor_traadv_cen2; ++Yws){ 758 Yta_hor_traadv_cen2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}787 Yta_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 759 788 }/*M3_YIOUT*/ 760 789 void Yio_ta_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 761 790 { Yiorwf ("ta_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 762 }/*M 0_CREU*/791 }/*M3_CREU*/ 763 792 void Ycreate_ta_hor_traadv_cen2() 764 793 { 765 if ((Yta_hor_traadv_cen2 = new ta_hor_traadv_cen2 ())==NULL) 766 Ycreate_errnew(); 794 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 795 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 796 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 797 if ((Yta_hor_traadv_cen2(Yw1, Yw2, Yw3) = new ta_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 767 798 }/*M3_TBTOGT */ 768 799 void YtabTOgrad_sa_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 782 813 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 783 814 for (int Yws=0; Yws<YNBS_sa_hor_traadv_cen2; ++Yws){ 784 Ysa_hor_traadv_cen2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}815 Ysa_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 785 816 }/*M3_SETAT*/ 786 817 void Ysetstate_sa_hor_traadv_cen2(double val) … … 791 822 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 792 823 for (int Yws=0; Yws<YNBS_sa_hor_traadv_cen2; ++Yws){ 793 Ysa_hor_traadv_cen2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}824 Ysa_hor_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 794 825 }/*M3_YIOUT*/ 795 826 void Yio_sa_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 796 827 { Yiorwf ("sa_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 797 }/*M 0_CREU*/828 }/*M3_CREU*/ 798 829 void Ycreate_sa_hor_traadv_cen2() 799 830 { 800 if ((Ysa_hor_traadv_cen2 = new sa_hor_traadv_cen2 ())==NULL) 801 Ycreate_errnew(); 831 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 832 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 833 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 834 if ((Ysa_hor_traadv_cen2(Yw1, Yw2, Yw3) = new sa_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 802 835 }/*M3_TBTOGT */ 803 836 void YtabTOgrad_zcent_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 817 850 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 818 851 for (int Yws=0; Yws<YNBS_zcent_ver_traadv_cen2; ++Yws){ 819 Yzcent_ver_traadv_cen2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}852 Yzcent_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 820 853 }/*M3_SETAT*/ 821 854 void Ysetstate_zcent_ver_traadv_cen2(double val) … … 826 859 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 827 860 for (int Yws=0; Yws<YNBS_zcent_ver_traadv_cen2; ++Yws){ 828 Yzcent_ver_traadv_cen2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}861 Yzcent_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 829 862 }/*M3_YIOUT*/ 830 863 void Yio_zcent_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 831 864 { Yiorwf ("zcent_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcent_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 832 }/*M 0_CREU*/865 }/*M3_CREU*/ 833 866 void Ycreate_zcent_ver_traadv_cen2() 834 867 { 835 if ((Yzcent_ver_traadv_cen2 = new zcent_ver_traadv_cen2 ())==NULL) 836 Ycreate_errnew(); 868 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 869 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 870 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 871 if ((Yzcent_ver_traadv_cen2(Yw1, Yw2, Yw3) = new zcent_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 837 872 }/*M3_TBTOGT */ 838 873 void YtabTOgrad_zcens_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 852 887 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 853 888 for (int Yws=0; Yws<YNBS_zcens_ver_traadv_cen2; ++Yws){ 854 Yzcens_ver_traadv_cen2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}889 Yzcens_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 855 890 }/*M3_SETAT*/ 856 891 void Ysetstate_zcens_ver_traadv_cen2(double val) … … 861 896 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 862 897 for (int Yws=0; Yws<YNBS_zcens_ver_traadv_cen2; ++Yws){ 863 Yzcens_ver_traadv_cen2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}898 Yzcens_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 864 899 }/*M3_YIOUT*/ 865 900 void Yio_zcens_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 866 901 { Yiorwf ("zcens_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcens_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 867 }/*M 0_CREU*/902 }/*M3_CREU*/ 868 903 void Ycreate_zcens_ver_traadv_cen2() 869 904 { 870 if ((Yzcens_ver_traadv_cen2 = new zcens_ver_traadv_cen2 ())==NULL) 871 Ycreate_errnew(); 905 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 906 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 907 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 908 if ((Yzcens_ver_traadv_cen2(Yw1, Yw2, Yw3) = new zcens_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 872 909 }/*M3_TBTOGT */ 873 910 void YtabTOgrad_ta_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 887 924 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 888 925 for (int Yws=0; Yws<YNBS_ta_ver_traadv_cen2; ++Yws){ 889 Yta_ver_traadv_cen2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}926 Yta_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 890 927 }/*M3_SETAT*/ 891 928 void Ysetstate_ta_ver_traadv_cen2(double val) … … 896 933 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 897 934 for (int Yws=0; Yws<YNBS_ta_ver_traadv_cen2; ++Yws){ 898 Yta_ver_traadv_cen2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}935 Yta_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 899 936 }/*M3_YIOUT*/ 900 937 void Yio_ta_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 901 938 { Yiorwf ("ta_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 902 }/*M 0_CREU*/939 }/*M3_CREU*/ 903 940 void Ycreate_ta_ver_traadv_cen2() 904 941 { 905 if ((Yta_ver_traadv_cen2 = new ta_ver_traadv_cen2 ())==NULL) 906 Ycreate_errnew(); 942 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 943 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 944 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 945 if ((Yta_ver_traadv_cen2(Yw1, Yw2, Yw3) = new ta_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 907 946 }/*M3_TBTOGT */ 908 947 void YtabTOgrad_sa_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 922 961 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 923 962 for (int Yws=0; Yws<YNBS_sa_ver_traadv_cen2; ++Yws){ 924 Ysa_ver_traadv_cen2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}963 Ysa_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 925 964 }/*M3_SETAT*/ 926 965 void Ysetstate_sa_ver_traadv_cen2(double val) … … 931 970 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 932 971 for (int Yws=0; Yws<YNBS_sa_ver_traadv_cen2; ++Yws){ 933 Ysa_ver_traadv_cen2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}972 Ysa_ver_traadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 934 973 }/*M3_YIOUT*/ 935 974 void Yio_sa_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 936 975 { Yiorwf ("sa_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 937 }/*M 0_CREU*/976 }/*M3_CREU*/ 938 977 void Ycreate_sa_ver_traadv_cen2() 939 978 { 940 if ((Ysa_ver_traadv_cen2 = new sa_ver_traadv_cen2 ())==NULL) 941 Ycreate_errnew(); 979 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 980 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 981 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 982 if ((Ysa_ver_traadv_cen2(Yw1, Yw2, Yw3) = new sa_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 942 983 }/*M3_TBTOGT */ 943 984 void YtabTOgrad_ztuv_traldf_lap(int frompdt, int topdt, YREAL tab[]) … … 957 998 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 958 999 for (int Yws=0; Yws<YNBS_ztuv_traldf_lap; ++Yws){ 959 Yztuv_traldf_lap ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1000 Yztuv_traldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 960 1001 }/*M3_SETAT*/ 961 1002 void Ysetstate_ztuv_traldf_lap(double val) … … 966 1007 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 967 1008 for (int Yws=0; Yws<YNBS_ztuv_traldf_lap; ++Yws){ 968 Yztuv_traldf_lap ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1009 Yztuv_traldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 969 1010 }/*M3_YIOUT*/ 970 1011 void Yio_ztuv_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 971 1012 { Yiorwf ("ztuv_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ztuv_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 972 }/*M 0_CREU*/1013 }/*M3_CREU*/ 973 1014 void Ycreate_ztuv_traldf_lap() 974 1015 { 975 if ((Yztuv_traldf_lap = new ztuv_traldf_lap ())==NULL) 976 Ycreate_errnew(); 1016 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1017 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1018 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1019 if ((Yztuv_traldf_lap(Yw1, Yw2, Yw3) = new ztuv_traldf_lap ())==NULL) Ycreate_errnew();}}} 977 1020 }/*M3_TBTOGT */ 978 1021 void YtabTOgrad_zsuv_traldf_lap(int frompdt, int topdt, YREAL tab[]) … … 992 1035 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 993 1036 for (int Yws=0; Yws<YNBS_zsuv_traldf_lap; ++Yws){ 994 Yzsuv_traldf_lap ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1037 Yzsuv_traldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 995 1038 }/*M3_SETAT*/ 996 1039 void Ysetstate_zsuv_traldf_lap(double val) … … 1001 1044 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1002 1045 for (int Yws=0; Yws<YNBS_zsuv_traldf_lap; ++Yws){ 1003 Yzsuv_traldf_lap ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1046 Yzsuv_traldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1004 1047 }/*M3_YIOUT*/ 1005 1048 void Yio_zsuv_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1006 1049 { Yiorwf ("zsuv_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zsuv_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1007 }/*M 0_CREU*/1050 }/*M3_CREU*/ 1008 1051 void Ycreate_zsuv_traldf_lap() 1009 1052 { 1010 if ((Yzsuv_traldf_lap = new zsuv_traldf_lap ())==NULL) 1011 Ycreate_errnew(); 1053 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1054 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1055 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1056 if ((Yzsuv_traldf_lap(Yw1, Yw2, Yw3) = new zsuv_traldf_lap ())==NULL) Ycreate_errnew();}}} 1012 1057 }/*M3_TBTOGT */ 1013 1058 void YtabTOgrad_ta_traldf_lap(int frompdt, int topdt, YREAL tab[]) … … 1027 1072 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1028 1073 for (int Yws=0; Yws<YNBS_ta_traldf_lap; ++Yws){ 1029 Yta_traldf_lap ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1074 Yta_traldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1030 1075 }/*M3_SETAT*/ 1031 1076 void Ysetstate_ta_traldf_lap(double val) … … 1036 1081 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1037 1082 for (int Yws=0; Yws<YNBS_ta_traldf_lap; ++Yws){ 1038 Yta_traldf_lap ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1083 Yta_traldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1039 1084 }/*M3_YIOUT*/ 1040 1085 void Yio_ta_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1041 1086 { Yiorwf ("ta_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1042 }/*M 0_CREU*/1087 }/*M3_CREU*/ 1043 1088 void Ycreate_ta_traldf_lap() 1044 1089 { 1045 if ((Yta_traldf_lap = new ta_traldf_lap ())==NULL) 1046 Ycreate_errnew(); 1090 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1091 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1092 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1093 if ((Yta_traldf_lap(Yw1, Yw2, Yw3) = new ta_traldf_lap ())==NULL) Ycreate_errnew();}}} 1047 1094 }/*M3_TBTOGT */ 1048 1095 void YtabTOgrad_sa_traldf_lap(int frompdt, int topdt, YREAL tab[]) … … 1062 1109 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1063 1110 for (int Yws=0; Yws<YNBS_sa_traldf_lap; ++Yws){ 1064 Ysa_traldf_lap ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1111 Ysa_traldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1065 1112 }/*M3_SETAT*/ 1066 1113 void Ysetstate_sa_traldf_lap(double val) … … 1071 1118 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1072 1119 for (int Yws=0; Yws<YNBS_sa_traldf_lap; ++Yws){ 1073 Ysa_traldf_lap ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1120 Ysa_traldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1074 1121 }/*M3_YIOUT*/ 1075 1122 void Yio_sa_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1076 1123 { Yiorwf ("sa_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1077 }/*M 0_CREU*/1124 }/*M3_CREU*/ 1078 1125 void Ycreate_sa_traldf_lap() 1079 1126 { 1080 if ((Ysa_traldf_lap = new sa_traldf_lap ())==NULL) 1081 Ycreate_errnew(); 1127 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1128 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1129 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1130 if ((Ysa_traldf_lap(Yw1, Yw2, Yw3) = new sa_traldf_lap ())==NULL) Ycreate_errnew();}}} 1082 1131 }/*M3_TBTOGT */ 1083 1132 void YtabTOgrad_zwisd_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1097 1146 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1098 1147 for (int Yws=0; Yws<YNBS_zwisd_trazdf_imp; ++Yws){ 1099 Yzwisd_trazdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1148 Yzwisd_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1100 1149 }/*M3_SETAT*/ 1101 1150 void Ysetstate_zwisd_trazdf_imp(double val) … … 1106 1155 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1107 1156 for (int Yws=0; Yws<YNBS_zwisd_trazdf_imp; ++Yws){ 1108 Yzwisd_trazdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1157 Yzwisd_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1109 1158 }/*M3_YIOUT*/ 1110 1159 void Yio_zwisd_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1111 1160 { Yiorwf ("zwisd_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1112 }/*M 0_CREU*/1161 }/*M3_CREU*/ 1113 1162 void Ycreate_zwisd_trazdf_imp() 1114 1163 { 1115 if ((Yzwisd_trazdf_imp = new zwisd_trazdf_imp ())==NULL) 1116 Ycreate_errnew(); 1164 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1165 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1166 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1167 if ((Yzwisd_trazdf_imp(Yw1, Yw2, Yw3) = new zwisd_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1117 1168 }/*M3_TBTOGT */ 1118 1169 void YtabTOgrad_zrhs_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1132 1183 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1133 1184 for (int Yws=0; Yws<YNBS_zrhs_trazdf_imp; ++Yws){ 1134 Yzrhs_trazdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1185 Yzrhs_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1135 1186 }/*M3_SETAT*/ 1136 1187 void Ysetstate_zrhs_trazdf_imp(double val) … … 1141 1192 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1142 1193 for (int Yws=0; Yws<YNBS_zrhs_trazdf_imp; ++Yws){ 1143 Yzrhs_trazdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1194 Yzrhs_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1144 1195 }/*M3_YIOUT*/ 1145 1196 void Yio_zrhs_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1146 1197 { Yiorwf ("zrhs_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1147 }/*M 0_CREU*/1198 }/*M3_CREU*/ 1148 1199 void Ycreate_zrhs_trazdf_imp() 1149 1200 { 1150 if ((Yzrhs_trazdf_imp = new zrhs_trazdf_imp ())==NULL) 1151 Ycreate_errnew(); 1201 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1202 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1203 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1204 if ((Yzrhs_trazdf_imp(Yw1, Yw2, Yw3) = new zrhs_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1152 1205 }/*M3_TBTOGT */ 1153 1206 void YtabTOgrad_zrhs_sa_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1167 1220 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1168 1221 for (int Yws=0; Yws<YNBS_zrhs_sa_trazdf_imp; ++Yws){ 1169 Yzrhs_sa_trazdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1222 Yzrhs_sa_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1170 1223 }/*M3_SETAT*/ 1171 1224 void Ysetstate_zrhs_sa_trazdf_imp(double val) … … 1176 1229 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1177 1230 for (int Yws=0; Yws<YNBS_zrhs_sa_trazdf_imp; ++Yws){ 1178 Yzrhs_sa_trazdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1231 Yzrhs_sa_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1179 1232 }/*M3_YIOUT*/ 1180 1233 void Yio_zrhs_sa_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1181 1234 { Yiorwf ("zrhs_sa_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_sa_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1182 }/*M 0_CREU*/1235 }/*M3_CREU*/ 1183 1236 void Ycreate_zrhs_sa_trazdf_imp() 1184 1237 { 1185 if ((Yzrhs_sa_trazdf_imp = new zrhs_sa_trazdf_imp ())==NULL) 1186 Ycreate_errnew(); 1238 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1239 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1240 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1241 if ((Yzrhs_sa_trazdf_imp(Yw1, Yw2, Yw3) = new zrhs_sa_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1187 1242 }/*M3_TBTOGT */ 1188 1243 void YtabTOgrad_zwt_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1202 1257 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1203 1258 for (int Yws=0; Yws<YNBS_zwt_trazdf_imp; ++Yws){ 1204 Yzwt_trazdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1259 Yzwt_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1205 1260 }/*M3_SETAT*/ 1206 1261 void Ysetstate_zwt_trazdf_imp(double val) … … 1211 1266 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1212 1267 for (int Yws=0; Yws<YNBS_zwt_trazdf_imp; ++Yws){ 1213 Yzwt_trazdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1268 Yzwt_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1214 1269 }/*M3_YIOUT*/ 1215 1270 void Yio_zwt_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1216 1271 { Yiorwf ("zwt_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1217 }/*M 0_CREU*/1272 }/*M3_CREU*/ 1218 1273 void Ycreate_zwt_trazdf_imp() 1219 1274 { 1220 if ((Yzwt_trazdf_imp = new zwt_trazdf_imp ())==NULL) 1221 Ycreate_errnew(); 1275 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1276 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1277 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1278 if ((Yzwt_trazdf_imp(Yw1, Yw2, Yw3) = new zwt_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1222 1279 }/*M3_TBTOGT */ 1223 1280 void YtabTOgrad_ta_de_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1237 1294 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1238 1295 for (int Yws=0; Yws<YNBS_ta_de_trazdf_imp; ++Yws){ 1239 Yta_de_trazdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1296 Yta_de_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1240 1297 }/*M3_SETAT*/ 1241 1298 void Ysetstate_ta_de_trazdf_imp(double val) … … 1246 1303 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1247 1304 for (int Yws=0; Yws<YNBS_ta_de_trazdf_imp; ++Yws){ 1248 Yta_de_trazdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1305 Yta_de_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1249 1306 }/*M3_YIOUT*/ 1250 1307 void Yio_ta_de_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1251 1308 { Yiorwf ("ta_de_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_de_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1252 }/*M 0_CREU*/1309 }/*M3_CREU*/ 1253 1310 void Ycreate_ta_de_trazdf_imp() 1254 1311 { 1255 if ((Yta_de_trazdf_imp = new ta_de_trazdf_imp ())==NULL) 1256 Ycreate_errnew(); 1312 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1313 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1314 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1315 if ((Yta_de_trazdf_imp(Yw1, Yw2, Yw3) = new ta_de_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1257 1316 }/*M3_TBTOGT */ 1258 1317 void YtabTOgrad_ta(int frompdt, int topdt, YREAL tab[]) … … 1272 1331 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1273 1332 for (int Yws=0; Yws<YNBS_ta; ++Yws){ 1274 Yta ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1333 Yta(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1275 1334 }/*M3_SETAT*/ 1276 1335 void Ysetstate_ta(double val) … … 1281 1340 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1282 1341 for (int Yws=0; Yws<YNBS_ta; ++Yws){ 1283 Yta ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1342 Yta(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1284 1343 }/*M3_YIOUT*/ 1285 1344 void Yio_ta(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1286 1345 { Yiorwf ("ta", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta(Yws, Yw1, Yw2, Yw3, Ywt), val); 1287 }/*M 0_CREU*/1346 }/*M3_CREU*/ 1288 1347 void Ycreate_ta() 1289 1348 { 1290 if ((Yta = new ta ())==NULL) 1291 Ycreate_errnew(); 1349 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1350 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1351 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1352 if ((Yta(Yw1, Yw2, Yw3) = new ta ())==NULL) Ycreate_errnew();}}} 1292 1353 }/*M3_TBTOGT */ 1293 1354 void YtabTOgrad_sa_de_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1307 1368 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1308 1369 for (int Yws=0; Yws<YNBS_sa_de_trazdf_imp; ++Yws){ 1309 Ysa_de_trazdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1370 Ysa_de_trazdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1310 1371 }/*M3_SETAT*/ 1311 1372 void Ysetstate_sa_de_trazdf_imp(double val) … … 1316 1377 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1317 1378 for (int Yws=0; Yws<YNBS_sa_de_trazdf_imp; ++Yws){ 1318 Ysa_de_trazdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1379 Ysa_de_trazdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1319 1380 }/*M3_YIOUT*/ 1320 1381 void Yio_sa_de_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1321 1382 { Yiorwf ("sa_de_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_de_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1322 }/*M 0_CREU*/1383 }/*M3_CREU*/ 1323 1384 void Ycreate_sa_de_trazdf_imp() 1324 1385 { 1325 if ((Ysa_de_trazdf_imp = new sa_de_trazdf_imp ())==NULL) 1326 Ycreate_errnew(); 1386 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1387 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1388 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1389 if ((Ysa_de_trazdf_imp(Yw1, Yw2, Yw3) = new sa_de_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1327 1390 }/*M3_TBTOGT */ 1328 1391 void YtabTOgrad_sa(int frompdt, int topdt, YREAL tab[]) … … 1342 1405 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1343 1406 for (int Yws=0; Yws<YNBS_sa; ++Yws){ 1344 Ysa ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1407 Ysa(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1345 1408 }/*M3_SETAT*/ 1346 1409 void Ysetstate_sa(double val) … … 1351 1414 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1352 1415 for (int Yws=0; Yws<YNBS_sa; ++Yws){ 1353 Ysa ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1416 Ysa(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1354 1417 }/*M3_YIOUT*/ 1355 1418 void Yio_sa(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1356 1419 { Yiorwf ("sa", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa(Yws, Yw1, Yw2, Yw3, Ywt), val); 1357 }/*M 0_CREU*/1420 }/*M3_CREU*/ 1358 1421 void Ycreate_sa() 1359 1422 { 1360 if ((Ysa = new sa ())==NULL) 1361 Ycreate_errnew(); 1423 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1424 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1425 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1426 if ((Ysa(Yw1, Yw2, Yw3) = new sa ())==NULL) Ycreate_errnew();}}} 1362 1427 }/*M3_TBTOGT */ 1363 1428 void YtabTOgrad_tb(int frompdt, int topdt, YREAL tab[]) … … 1377 1442 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1378 1443 for (int Yws=0; Yws<YNBS_tb; ++Yws){ 1379 Ytb ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1444 Ytb(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1380 1445 }/*M3_SETAT*/ 1381 1446 void Ysetstate_tb(double val) … … 1386 1451 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1387 1452 for (int Yws=0; Yws<YNBS_tb; ++Yws){ 1388 Ytb ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1453 Ytb(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1389 1454 }/*M3_YIOUT*/ 1390 1455 void Yio_tb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 1406 1471 }/*M9_OUTOB*/ 1407 1472 return(1); 1408 }/*M 0_CREU*/1473 }/*M3_CREU*/ 1409 1474 void Ycreate_tb() 1410 1475 { 1411 if ((Ytb = new tb ())==NULL) 1412 Ycreate_errnew(); 1476 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1477 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1478 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1479 if ((Ytb(Yw1, Yw2, Yw3) = new tb ())==NULL) Ycreate_errnew();}}} 1413 1480 }/*M3_SWISH*/ 1414 1481 void Ysetwish_tb(double val) … … 1436 1503 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1437 1504 for (int Yws=0; Yws<YNBS_sb; ++Yws){ 1438 Ysb ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1505 Ysb(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1439 1506 }/*M3_SETAT*/ 1440 1507 void Ysetstate_sb(double val) … … 1445 1512 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1446 1513 for (int Yws=0; Yws<YNBS_sb; ++Yws){ 1447 Ysb ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1514 Ysb(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1448 1515 }/*M3_YIOUT*/ 1449 1516 void Yio_sb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 1465 1532 }/*M9_OUTOB*/ 1466 1533 return(1); 1467 }/*M 0_CREU*/1534 }/*M3_CREU*/ 1468 1535 void Ycreate_sb() 1469 1536 { 1470 if ((Ysb = new sb ())==NULL) 1471 Ycreate_errnew(); 1537 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1538 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1539 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1540 if ((Ysb(Yw1, Yw2, Yw3) = new sb ())==NULL) Ycreate_errnew();}}} 1472 1541 }/*M3_SWISH*/ 1473 1542 void Ysetwish_sb(double val) … … 1495 1564 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1496 1565 for (int Yws=0; Yws<YNBS_rhd; ++Yws){ 1497 Yrhd ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1566 Yrhd(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1498 1567 }/*M3_SETAT*/ 1499 1568 void Ysetstate_rhd(double val) … … 1504 1573 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1505 1574 for (int Yws=0; Yws<YNBS_rhd; ++Yws){ 1506 Yrhd ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1575 Yrhd(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1507 1576 }/*M3_YIOUT*/ 1508 1577 void Yio_rhd(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1509 1578 { Yiorwf ("rhd", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rhd(Yws, Yw1, Yw2, Yw3, Ywt), val); 1510 }/*M 0_CREU*/1579 }/*M3_CREU*/ 1511 1580 void Ycreate_rhd() 1512 1581 { 1513 if ((Yrhd = new rhd ())==NULL) 1514 Ycreate_errnew(); 1582 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1583 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1584 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1585 if ((Yrhd(Yw1, Yw2, Yw3) = new rhd ())==NULL) Ycreate_errnew();}}} 1515 1586 }/*M3_TBTOGT */ 1516 1587 void YtabTOgrad_rhop(int frompdt, int topdt, YREAL tab[]) … … 1530 1601 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1531 1602 for (int Yws=0; Yws<YNBS_rhop; ++Yws){ 1532 Yrhop ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1603 Yrhop(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1533 1604 }/*M3_SETAT*/ 1534 1605 void Ysetstate_rhop(double val) … … 1539 1610 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1540 1611 for (int Yws=0; Yws<YNBS_rhop; ++Yws){ 1541 Yrhop ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1612 Yrhop(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1542 1613 }/*M3_YIOUT*/ 1543 1614 void Yio_rhop(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1544 1615 { Yiorwf ("rhop", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rhop(Yws, Yw1, Yw2, Yw3, Ywt), val); 1545 }/*M 0_CREU*/1616 }/*M3_CREU*/ 1546 1617 void Ycreate_rhop() 1547 1618 { 1548 if ((Yrhop = new rhop ())==NULL) 1549 Ycreate_errnew(); 1619 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1620 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1621 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1622 if ((Yrhop(Yw1, Yw2, Yw3) = new rhop ())==NULL) Ycreate_errnew();}}} 1550 1623 }/*M3_TBTOGT */ 1551 1624 void YtabTOgrad_hmf_TF_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1565 1638 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1566 1639 for (int Yws=0; Yws<YNBS_hmf_TF_dynadv_cen2; ++Yws){ 1567 Yhmf_TF_dynadv_cen2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1640 Yhmf_TF_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1568 1641 }/*M3_SETAT*/ 1569 1642 void Ysetstate_hmf_TF_dynadv_cen2(double val) … … 1574 1647 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1575 1648 for (int Yws=0; Yws<YNBS_hmf_TF_dynadv_cen2; ++Yws){ 1576 Yhmf_TF_dynadv_cen2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1649 Yhmf_TF_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1577 1650 }/*M3_YIOUT*/ 1578 1651 void Yio_hmf_TF_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1579 1652 { Yiorwf ("hmf_TF_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_hmf_TF_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1580 }/*M 0_CREU*/1653 }/*M3_CREU*/ 1581 1654 void Ycreate_hmf_TF_dynadv_cen2() 1582 1655 { 1583 if ((Yhmf_TF_dynadv_cen2 = new hmf_TF_dynadv_cen2 ())==NULL) 1584 Ycreate_errnew(); 1656 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1657 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1658 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1659 if ((Yhmf_TF_dynadv_cen2(Yw1, Yw2, Yw3) = new hmf_TF_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1585 1660 }/*M3_TBTOGT */ 1586 1661 void YtabTOgrad_zua_dhmf_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1600 1675 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1601 1676 for (int Yws=0; Yws<YNBS_zua_dhmf_dynadv_cen2; ++Yws){ 1602 Yzua_dhmf_dynadv_cen2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1677 Yzua_dhmf_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1603 1678 }/*M3_SETAT*/ 1604 1679 void Ysetstate_zua_dhmf_dynadv_cen2(double val) … … 1609 1684 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1610 1685 for (int Yws=0; Yws<YNBS_zua_dhmf_dynadv_cen2; ++Yws){ 1611 Yzua_dhmf_dynadv_cen2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1686 Yzua_dhmf_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1612 1687 }/*M3_YIOUT*/ 1613 1688 void Yio_zua_dhmf_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1614 1689 { Yiorwf ("zua_dhmf_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zua_dhmf_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1615 }/*M 0_CREU*/1690 }/*M3_CREU*/ 1616 1691 void Ycreate_zua_dhmf_dynadv_cen2() 1617 1692 { 1618 if ((Yzua_dhmf_dynadv_cen2 = new zua_dhmf_dynadv_cen2 ())==NULL) 1619 Ycreate_errnew(); 1693 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1694 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1695 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1696 if ((Yzua_dhmf_dynadv_cen2(Yw1, Yw2, Yw3) = new zua_dhmf_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1620 1697 }/*M3_TBTOGT */ 1621 1698 void YtabTOgrad_zva_dhmf_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1635 1712 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1636 1713 for (int Yws=0; Yws<YNBS_zva_dhmf_dynadv_cen2; ++Yws){ 1637 Yzva_dhmf_dynadv_cen2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1714 Yzva_dhmf_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1638 1715 }/*M3_SETAT*/ 1639 1716 void Ysetstate_zva_dhmf_dynadv_cen2(double val) … … 1644 1721 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1645 1722 for (int Yws=0; Yws<YNBS_zva_dhmf_dynadv_cen2; ++Yws){ 1646 Yzva_dhmf_dynadv_cen2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1723 Yzva_dhmf_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1647 1724 }/*M3_YIOUT*/ 1648 1725 void Yio_zva_dhmf_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1649 1726 { Yiorwf ("zva_dhmf_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zva_dhmf_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1650 }/*M 0_CREU*/1727 }/*M3_CREU*/ 1651 1728 void Ycreate_zva_dhmf_dynadv_cen2() 1652 1729 { 1653 if ((Yzva_dhmf_dynadv_cen2 = new zva_dhmf_dynadv_cen2 ())==NULL) 1654 Ycreate_errnew(); 1730 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1731 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1732 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1733 if ((Yzva_dhmf_dynadv_cen2(Yw1, Yw2, Yw3) = new zva_dhmf_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1655 1734 }/*M3_TBTOGT */ 1656 1735 void YtabTOgrad_zfuv_UW_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1670 1749 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1671 1750 for (int Yws=0; Yws<YNBS_zfuv_UW_dynadv_cen2; ++Yws){ 1672 Yzfuv_UW_dynadv_cen2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1751 Yzfuv_UW_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1673 1752 }/*M3_SETAT*/ 1674 1753 void Ysetstate_zfuv_UW_dynadv_cen2(double val) … … 1679 1758 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1680 1759 for (int Yws=0; Yws<YNBS_zfuv_UW_dynadv_cen2; ++Yws){ 1681 Yzfuv_UW_dynadv_cen2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1760 Yzfuv_UW_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1682 1761 }/*M3_YIOUT*/ 1683 1762 void Yio_zfuv_UW_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1684 1763 { Yiorwf ("zfuv_UW_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zfuv_UW_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1685 }/*M 0_CREU*/1764 }/*M3_CREU*/ 1686 1765 void Ycreate_zfuv_UW_dynadv_cen2() 1687 1766 { 1688 if ((Yzfuv_UW_dynadv_cen2 = new zfuv_UW_dynadv_cen2 ())==NULL) 1689 Ycreate_errnew(); 1767 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1768 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1769 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1770 if ((Yzfuv_UW_dynadv_cen2(Yw1, Yw2, Yw3) = new zfuv_UW_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1690 1771 }/*M3_TBTOGT */ 1691 1772 void YtabTOgrad_ua_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1705 1786 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1706 1787 for (int Yws=0; Yws<YNBS_ua_dynadv_cen2; ++Yws){ 1707 Yua_dynadv_cen2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1788 Yua_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1708 1789 }/*M3_SETAT*/ 1709 1790 void Ysetstate_ua_dynadv_cen2(double val) … … 1714 1795 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1715 1796 for (int Yws=0; Yws<YNBS_ua_dynadv_cen2; ++Yws){ 1716 Yua_dynadv_cen2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1797 Yua_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1717 1798 }/*M3_YIOUT*/ 1718 1799 void Yio_ua_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1719 1800 { Yiorwf ("ua_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1720 }/*M 0_CREU*/1801 }/*M3_CREU*/ 1721 1802 void Ycreate_ua_dynadv_cen2() 1722 1803 { 1723 if ((Yua_dynadv_cen2 = new ua_dynadv_cen2 ())==NULL) 1724 Ycreate_errnew(); 1804 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1805 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1806 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1807 if ((Yua_dynadv_cen2(Yw1, Yw2, Yw3) = new ua_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1725 1808 }/*M3_TBTOGT */ 1726 1809 void YtabTOgrad_va_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1740 1823 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1741 1824 for (int Yws=0; Yws<YNBS_va_dynadv_cen2; ++Yws){ 1742 Yva_dynadv_cen2 ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1825 Yva_dynadv_cen2(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1743 1826 }/*M3_SETAT*/ 1744 1827 void Ysetstate_va_dynadv_cen2(double val) … … 1749 1832 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1750 1833 for (int Yws=0; Yws<YNBS_va_dynadv_cen2; ++Yws){ 1751 Yva_dynadv_cen2 ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1834 Yva_dynadv_cen2(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1752 1835 }/*M3_YIOUT*/ 1753 1836 void Yio_va_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1754 1837 { Yiorwf ("va_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1755 }/*M 0_CREU*/1838 }/*M3_CREU*/ 1756 1839 void Ycreate_va_dynadv_cen2() 1757 1840 { 1758 if ((Yva_dynadv_cen2 = new va_dynadv_cen2 ())==NULL) 1759 Ycreate_errnew(); 1841 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1842 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1843 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1844 if ((Yva_dynadv_cen2(Yw1, Yw2, Yw3) = new va_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1760 1845 }/*M3_TBTOGT */ 1761 1846 void YtabTOgrad_zwxyz_vor_ene(int frompdt, int topdt, YREAL tab[]) … … 1775 1860 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1776 1861 for (int Yws=0; Yws<YNBS_zwxyz_vor_ene; ++Yws){ 1777 Yzwxyz_vor_ene ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1862 Yzwxyz_vor_ene(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1778 1863 }/*M3_SETAT*/ 1779 1864 void Ysetstate_zwxyz_vor_ene(double val) … … 1784 1869 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1785 1870 for (int Yws=0; Yws<YNBS_zwxyz_vor_ene; ++Yws){ 1786 Yzwxyz_vor_ene ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1871 Yzwxyz_vor_ene(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1787 1872 }/*M3_YIOUT*/ 1788 1873 void Yio_zwxyz_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1789 1874 { Yiorwf ("zwxyz_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwxyz_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 1790 }/*M 0_CREU*/1875 }/*M3_CREU*/ 1791 1876 void Ycreate_zwxyz_vor_ene() 1792 1877 { 1793 if ((Yzwxyz_vor_ene = new zwxyz_vor_ene ())==NULL) 1794 Ycreate_errnew(); 1878 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1879 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1880 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1881 if ((Yzwxyz_vor_ene(Yw1, Yw2, Yw3) = new zwxyz_vor_ene ())==NULL) Ycreate_errnew();}}} 1795 1882 }/*M3_TBTOGT */ 1796 1883 void YtabTOgrad_ua_vor_ene(int frompdt, int topdt, YREAL tab[]) … … 1810 1897 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1811 1898 for (int Yws=0; Yws<YNBS_ua_vor_ene; ++Yws){ 1812 Yua_vor_ene ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1899 Yua_vor_ene(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1813 1900 }/*M3_SETAT*/ 1814 1901 void Ysetstate_ua_vor_ene(double val) … … 1819 1906 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1820 1907 for (int Yws=0; Yws<YNBS_ua_vor_ene; ++Yws){ 1821 Yua_vor_ene ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1908 Yua_vor_ene(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1822 1909 }/*M3_YIOUT*/ 1823 1910 void Yio_ua_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1824 1911 { Yiorwf ("ua_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 1825 }/*M 0_CREU*/1912 }/*M3_CREU*/ 1826 1913 void Ycreate_ua_vor_ene() 1827 1914 { 1828 if ((Yua_vor_ene = new ua_vor_ene ())==NULL) 1829 Ycreate_errnew(); 1915 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1916 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1917 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1918 if ((Yua_vor_ene(Yw1, Yw2, Yw3) = new ua_vor_ene ())==NULL) Ycreate_errnew();}}} 1830 1919 }/*M3_TBTOGT */ 1831 1920 void YtabTOgrad_va_vor_ene(int frompdt, int topdt, YREAL tab[]) … … 1845 1934 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1846 1935 for (int Yws=0; Yws<YNBS_va_vor_ene; ++Yws){ 1847 Yva_vor_ene ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1936 Yva_vor_ene(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1848 1937 }/*M3_SETAT*/ 1849 1938 void Ysetstate_va_vor_ene(double val) … … 1854 1943 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1855 1944 for (int Yws=0; Yws<YNBS_va_vor_ene; ++Yws){ 1856 Yva_vor_ene ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1945 Yva_vor_ene(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1857 1946 }/*M3_YIOUT*/ 1858 1947 void Yio_va_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1859 1948 { Yiorwf ("va_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 1860 }/*M 0_CREU*/1949 }/*M3_CREU*/ 1861 1950 void Ycreate_va_vor_ene() 1862 1951 { 1863 if ((Yva_vor_ene = new va_vor_ene ())==NULL) 1864 Ycreate_errnew(); 1952 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1953 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1954 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1955 if ((Yva_vor_ene(Yw1, Yw2, Yw3) = new va_vor_ene ())==NULL) Ycreate_errnew();}}} 1865 1956 }/*M3_TBTOGT */ 1866 1957 void YtabTOgrad_ua_dyn_ldf_lap(int frompdt, int topdt, YREAL tab[]) … … 1880 1971 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1881 1972 for (int Yws=0; Yws<YNBS_ua_dyn_ldf_lap; ++Yws){ 1882 Yua_dyn_ldf_lap ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}1973 Yua_dyn_ldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1883 1974 }/*M3_SETAT*/ 1884 1975 void Ysetstate_ua_dyn_ldf_lap(double val) … … 1889 1980 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1890 1981 for (int Yws=0; Yws<YNBS_ua_dyn_ldf_lap; ++Yws){ 1891 Yua_dyn_ldf_lap ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}1982 Yua_dyn_ldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1892 1983 }/*M3_YIOUT*/ 1893 1984 void Yio_ua_dyn_ldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1894 1985 { Yiorwf ("ua_dyn_ldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dyn_ldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1895 }/*M 0_CREU*/1986 }/*M3_CREU*/ 1896 1987 void Ycreate_ua_dyn_ldf_lap() 1897 1988 { 1898 if ((Yua_dyn_ldf_lap = new ua_dyn_ldf_lap ())==NULL) 1899 Ycreate_errnew(); 1989 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1990 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1991 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1992 if ((Yua_dyn_ldf_lap(Yw1, Yw2, Yw3) = new ua_dyn_ldf_lap ())==NULL) Ycreate_errnew();}}} 1900 1993 }/*M3_TBTOGT */ 1901 1994 void YtabTOgrad_va_dyn_ldf_lap(int frompdt, int topdt, YREAL tab[]) … … 1915 2008 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1916 2009 for (int Yws=0; Yws<YNBS_va_dyn_ldf_lap; ++Yws){ 1917 Yva_dyn_ldf_lap ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2010 Yva_dyn_ldf_lap(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1918 2011 }/*M3_SETAT*/ 1919 2012 void Ysetstate_va_dyn_ldf_lap(double val) … … 1924 2017 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1925 2018 for (int Yws=0; Yws<YNBS_va_dyn_ldf_lap; ++Yws){ 1926 Yva_dyn_ldf_lap ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2019 Yva_dyn_ldf_lap(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1927 2020 }/*M3_YIOUT*/ 1928 2021 void Yio_va_dyn_ldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1929 2022 { Yiorwf ("va_dyn_ldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dyn_ldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1930 }/*M 0_CREU*/2023 }/*M3_CREU*/ 1931 2024 void Ycreate_va_dyn_ldf_lap() 1932 2025 { 1933 if ((Yva_dyn_ldf_lap = new va_dyn_ldf_lap ())==NULL) 1934 Ycreate_errnew(); 2026 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2027 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2028 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2029 if ((Yva_dyn_ldf_lap(Yw1, Yw2, Yw3) = new va_dyn_ldf_lap ())==NULL) Ycreate_errnew();}}} 1935 2030 }/*M3_TBTOGT */ 1936 2031 void YtabTOgrad_zhpij_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) … … 1950 2045 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1951 2046 for (int Yws=0; Yws<YNBS_zhpij_dyn_hpg_zco; ++Yws){ 1952 Yzhpij_dyn_hpg_zco ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2047 Yzhpij_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1953 2048 }/*M3_SETAT*/ 1954 2049 void Ysetstate_zhpij_dyn_hpg_zco(double val) … … 1959 2054 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1960 2055 for (int Yws=0; Yws<YNBS_zhpij_dyn_hpg_zco; ++Yws){ 1961 Yzhpij_dyn_hpg_zco ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2056 Yzhpij_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1962 2057 }/*M3_YIOUT*/ 1963 2058 void Yio_zhpij_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1964 2059 { Yiorwf ("zhpij_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zhpij_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 1965 }/*M 0_CREU*/2060 }/*M3_CREU*/ 1966 2061 void Ycreate_zhpij_dyn_hpg_zco() 1967 2062 { 1968 if ((Yzhpij_dyn_hpg_zco = new zhpij_dyn_hpg_zco ())==NULL) 1969 Ycreate_errnew(); 2063 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2064 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2065 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2066 if ((Yzhpij_dyn_hpg_zco(Yw1, Yw2, Yw3) = new zhpij_dyn_hpg_zco ())==NULL) Ycreate_errnew();}}} 1970 2067 }/*M3_TBTOGT */ 1971 2068 void YtabTOgrad_ua_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) … … 1985 2082 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1986 2083 for (int Yws=0; Yws<YNBS_ua_dyn_hpg_zco; ++Yws){ 1987 Yua_dyn_hpg_zco ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2084 Yua_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 1988 2085 }/*M3_SETAT*/ 1989 2086 void Ysetstate_ua_dyn_hpg_zco(double val) … … 1994 2091 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1995 2092 for (int Yws=0; Yws<YNBS_ua_dyn_hpg_zco; ++Yws){ 1996 Yua_dyn_hpg_zco ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2093 Yua_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 1997 2094 }/*M3_YIOUT*/ 1998 2095 void Yio_ua_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1999 2096 { Yiorwf ("ua_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 2000 }/*M 0_CREU*/2097 }/*M3_CREU*/ 2001 2098 void Ycreate_ua_dyn_hpg_zco() 2002 2099 { 2003 if ((Yua_dyn_hpg_zco = new ua_dyn_hpg_zco ())==NULL) 2004 Ycreate_errnew(); 2100 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2101 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2102 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2103 if ((Yua_dyn_hpg_zco(Yw1, Yw2, Yw3) = new ua_dyn_hpg_zco ())==NULL) Ycreate_errnew();}}} 2005 2104 }/*M3_TBTOGT */ 2006 2105 void YtabTOgrad_va_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) … … 2020 2119 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2021 2120 for (int Yws=0; Yws<YNBS_va_dyn_hpg_zco; ++Yws){ 2022 Yva_dyn_hpg_zco ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2121 Yva_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2023 2122 }/*M3_SETAT*/ 2024 2123 void Ysetstate_va_dyn_hpg_zco(double val) … … 2029 2128 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2030 2129 for (int Yws=0; Yws<YNBS_va_dyn_hpg_zco; ++Yws){ 2031 Yva_dyn_hpg_zco ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2130 Yva_dyn_hpg_zco(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2032 2131 }/*M3_YIOUT*/ 2033 2132 void Yio_va_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2034 2133 { Yiorwf ("va_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 2035 }/*M 0_CREU*/2134 }/*M3_CREU*/ 2036 2135 void Ycreate_va_dyn_hpg_zco() 2037 2136 { 2038 if ((Yva_dyn_hpg_zco = new va_dyn_hpg_zco ())==NULL) 2039 Ycreate_errnew(); 2137 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2138 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2139 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2140 if ((Yva_dyn_hpg_zco(Yw1, Yw2, Yw3) = new va_dyn_hpg_zco ())==NULL) Ycreate_errnew();}}} 2040 2141 }/*M3_TBTOGT */ 2041 2142 void YtabTOgrad_zwisd_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2055 2156 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2056 2157 for (int Yws=0; Yws<YNBS_zwisd_ua_dynzdf_imp; ++Yws){ 2057 Yzwisd_ua_dynzdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2158 Yzwisd_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2058 2159 }/*M3_SETAT*/ 2059 2160 void Ysetstate_zwisd_ua_dynzdf_imp(double val) … … 2064 2165 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2065 2166 for (int Yws=0; Yws<YNBS_zwisd_ua_dynzdf_imp; ++Yws){ 2066 Yzwisd_ua_dynzdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2167 Yzwisd_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2067 2168 }/*M3_YIOUT*/ 2068 2169 void Yio_zwisd_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2069 2170 { Yiorwf ("zwisd_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2070 }/*M 0_CREU*/2171 }/*M3_CREU*/ 2071 2172 void Ycreate_zwisd_ua_dynzdf_imp() 2072 2173 { 2073 if ((Yzwisd_ua_dynzdf_imp = new zwisd_ua_dynzdf_imp ())==NULL) 2074 Ycreate_errnew(); 2174 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2175 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2176 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2177 if ((Yzwisd_ua_dynzdf_imp(Yw1, Yw2, Yw3) = new zwisd_ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2075 2178 }/*M3_TBTOGT */ 2076 2179 void YtabTOgrad_zwisd_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2090 2193 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2091 2194 for (int Yws=0; Yws<YNBS_zwisd_va_dynzdf_imp; ++Yws){ 2092 Yzwisd_va_dynzdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2195 Yzwisd_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2093 2196 }/*M3_SETAT*/ 2094 2197 void Ysetstate_zwisd_va_dynzdf_imp(double val) … … 2099 2202 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2100 2203 for (int Yws=0; Yws<YNBS_zwisd_va_dynzdf_imp; ++Yws){ 2101 Yzwisd_va_dynzdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2204 Yzwisd_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2102 2205 }/*M3_YIOUT*/ 2103 2206 void Yio_zwisd_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2104 2207 { Yiorwf ("zwisd_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2105 }/*M 0_CREU*/2208 }/*M3_CREU*/ 2106 2209 void Ycreate_zwisd_va_dynzdf_imp() 2107 2210 { 2108 if ((Yzwisd_va_dynzdf_imp = new zwisd_va_dynzdf_imp ())==NULL) 2109 Ycreate_errnew(); 2211 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2212 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2213 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2214 if ((Yzwisd_va_dynzdf_imp(Yw1, Yw2, Yw3) = new zwisd_va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2110 2215 }/*M3_TBTOGT */ 2111 2216 void YtabTOgrad_zrhs_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2125 2230 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2126 2231 for (int Yws=0; Yws<YNBS_zrhs_ua_dynzdf_imp; ++Yws){ 2127 Yzrhs_ua_dynzdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2232 Yzrhs_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2128 2233 }/*M3_SETAT*/ 2129 2234 void Ysetstate_zrhs_ua_dynzdf_imp(double val) … … 2134 2239 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2135 2240 for (int Yws=0; Yws<YNBS_zrhs_ua_dynzdf_imp; ++Yws){ 2136 Yzrhs_ua_dynzdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2241 Yzrhs_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2137 2242 }/*M3_YIOUT*/ 2138 2243 void Yio_zrhs_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2139 2244 { Yiorwf ("zrhs_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2140 }/*M 0_CREU*/2245 }/*M3_CREU*/ 2141 2246 void Ycreate_zrhs_ua_dynzdf_imp() 2142 2247 { 2143 if ((Yzrhs_ua_dynzdf_imp = new zrhs_ua_dynzdf_imp ())==NULL) 2144 Ycreate_errnew(); 2248 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2249 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2250 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2251 if ((Yzrhs_ua_dynzdf_imp(Yw1, Yw2, Yw3) = new zrhs_ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2145 2252 }/*M3_TBTOGT */ 2146 2253 void YtabTOgrad_zrhs_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2160 2267 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2161 2268 for (int Yws=0; Yws<YNBS_zrhs_va_dynzdf_imp; ++Yws){ 2162 Yzrhs_va_dynzdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2269 Yzrhs_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2163 2270 }/*M3_SETAT*/ 2164 2271 void Ysetstate_zrhs_va_dynzdf_imp(double val) … … 2169 2276 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2170 2277 for (int Yws=0; Yws<YNBS_zrhs_va_dynzdf_imp; ++Yws){ 2171 Yzrhs_va_dynzdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2278 Yzrhs_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2172 2279 }/*M3_YIOUT*/ 2173 2280 void Yio_zrhs_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2174 2281 { Yiorwf ("zrhs_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2175 }/*M 0_CREU*/2282 }/*M3_CREU*/ 2176 2283 void Ycreate_zrhs_va_dynzdf_imp() 2177 2284 { 2178 if ((Yzrhs_va_dynzdf_imp = new zrhs_va_dynzdf_imp ())==NULL) 2179 Ycreate_errnew(); 2285 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2286 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2287 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2288 if ((Yzrhs_va_dynzdf_imp(Yw1, Yw2, Yw3) = new zrhs_va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2180 2289 }/*M3_TBTOGT */ 2181 2290 void YtabTOgrad_zwt_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2195 2304 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2196 2305 for (int Yws=0; Yws<YNBS_zwt_ua_dynzdf_imp; ++Yws){ 2197 Yzwt_ua_dynzdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2306 Yzwt_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2198 2307 }/*M3_SETAT*/ 2199 2308 void Ysetstate_zwt_ua_dynzdf_imp(double val) … … 2204 2313 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2205 2314 for (int Yws=0; Yws<YNBS_zwt_ua_dynzdf_imp; ++Yws){ 2206 Yzwt_ua_dynzdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2315 Yzwt_ua_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2207 2316 }/*M3_YIOUT*/ 2208 2317 void Yio_zwt_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2209 2318 { Yiorwf ("zwt_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2210 }/*M 0_CREU*/2319 }/*M3_CREU*/ 2211 2320 void Ycreate_zwt_ua_dynzdf_imp() 2212 2321 { 2213 if ((Yzwt_ua_dynzdf_imp = new zwt_ua_dynzdf_imp ())==NULL) 2214 Ycreate_errnew(); 2322 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2323 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2324 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2325 if ((Yzwt_ua_dynzdf_imp(Yw1, Yw2, Yw3) = new zwt_ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2215 2326 }/*M3_TBTOGT */ 2216 2327 void YtabTOgrad_zwt_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2230 2341 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2231 2342 for (int Yws=0; Yws<YNBS_zwt_va_dynzdf_imp; ++Yws){ 2232 Yzwt_va_dynzdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2343 Yzwt_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2233 2344 }/*M3_SETAT*/ 2234 2345 void Ysetstate_zwt_va_dynzdf_imp(double val) … … 2239 2350 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2240 2351 for (int Yws=0; Yws<YNBS_zwt_va_dynzdf_imp; ++Yws){ 2241 Yzwt_va_dynzdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2352 Yzwt_va_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2242 2353 }/*M3_YIOUT*/ 2243 2354 void Yio_zwt_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2244 2355 { Yiorwf ("zwt_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2245 }/*M 0_CREU*/2356 }/*M3_CREU*/ 2246 2357 void Ycreate_zwt_va_dynzdf_imp() 2247 2358 { 2248 if ((Yzwt_va_dynzdf_imp = new zwt_va_dynzdf_imp ())==NULL) 2249 Ycreate_errnew(); 2359 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2360 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2361 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2362 if ((Yzwt_va_dynzdf_imp(Yw1, Yw2, Yw3) = new zwt_va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2250 2363 }/*M3_TBTOGT */ 2251 2364 void YtabTOgrad_ua_de_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2265 2378 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2266 2379 for (int Yws=0; Yws<YNBS_ua_de_dynzdf_imp; ++Yws){ 2267 Yua_de_dynzdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2380 Yua_de_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2268 2381 }/*M3_SETAT*/ 2269 2382 void Ysetstate_ua_de_dynzdf_imp(double val) … … 2274 2387 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2275 2388 for (int Yws=0; Yws<YNBS_ua_de_dynzdf_imp; ++Yws){ 2276 Yua_de_dynzdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2389 Yua_de_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2277 2390 }/*M3_YIOUT*/ 2278 2391 void Yio_ua_de_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2279 2392 { Yiorwf ("ua_de_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_de_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2280 }/*M 0_CREU*/2393 }/*M3_CREU*/ 2281 2394 void Ycreate_ua_de_dynzdf_imp() 2282 2395 { 2283 if ((Yua_de_dynzdf_imp = new ua_de_dynzdf_imp ())==NULL) 2284 Ycreate_errnew(); 2396 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2397 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2398 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2399 if ((Yua_de_dynzdf_imp(Yw1, Yw2, Yw3) = new ua_de_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2285 2400 }/*M3_TBTOGT */ 2286 2401 void YtabTOgrad_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2300 2415 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2301 2416 for (int Yws=0; Yws<YNBS_ua_dynzdf_imp; ++Yws){ 2302 Yua_dynzdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2417 Yua_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2303 2418 }/*M3_SETAT*/ 2304 2419 void Ysetstate_ua_dynzdf_imp(double val) … … 2309 2424 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2310 2425 for (int Yws=0; Yws<YNBS_ua_dynzdf_imp; ++Yws){ 2311 Yua_dynzdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2426 Yua_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2312 2427 }/*M3_YIOUT*/ 2313 2428 void Yio_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2314 2429 { Yiorwf ("ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2315 }/*M 0_CREU*/2430 }/*M3_CREU*/ 2316 2431 void Ycreate_ua_dynzdf_imp() 2317 2432 { 2318 if ((Yua_dynzdf_imp = new ua_dynzdf_imp ())==NULL) 2319 Ycreate_errnew(); 2433 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2434 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2435 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2436 if ((Yua_dynzdf_imp(Yw1, Yw2, Yw3) = new ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2320 2437 }/*M3_TBTOGT */ 2321 2438 void YtabTOgrad_va_de_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2335 2452 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2336 2453 for (int Yws=0; Yws<YNBS_va_de_dynzdf_imp; ++Yws){ 2337 Yva_de_dynzdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2454 Yva_de_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2338 2455 }/*M3_SETAT*/ 2339 2456 void Ysetstate_va_de_dynzdf_imp(double val) … … 2344 2461 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2345 2462 for (int Yws=0; Yws<YNBS_va_de_dynzdf_imp; ++Yws){ 2346 Yva_de_dynzdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2463 Yva_de_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2347 2464 }/*M3_YIOUT*/ 2348 2465 void Yio_va_de_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2349 2466 { Yiorwf ("va_de_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_de_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2350 }/*M 0_CREU*/2467 }/*M3_CREU*/ 2351 2468 void Ycreate_va_de_dynzdf_imp() 2352 2469 { 2353 if ((Yva_de_dynzdf_imp = new va_de_dynzdf_imp ())==NULL) 2354 Ycreate_errnew(); 2470 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2471 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2472 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2473 if ((Yva_de_dynzdf_imp(Yw1, Yw2, Yw3) = new va_de_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2355 2474 }/*M3_TBTOGT */ 2356 2475 void YtabTOgrad_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2370 2489 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2371 2490 for (int Yws=0; Yws<YNBS_va_dynzdf_imp; ++Yws){ 2372 Yva_dynzdf_imp ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2491 Yva_dynzdf_imp(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2373 2492 }/*M3_SETAT*/ 2374 2493 void Ysetstate_va_dynzdf_imp(double val) … … 2379 2498 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2380 2499 for (int Yws=0; Yws<YNBS_va_dynzdf_imp; ++Yws){ 2381 Yva_dynzdf_imp ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2500 Yva_dynzdf_imp(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2382 2501 }/*M3_YIOUT*/ 2383 2502 void Yio_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2384 2503 { Yiorwf ("va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2385 }/*M 0_CREU*/2504 }/*M3_CREU*/ 2386 2505 void Ycreate_va_dynzdf_imp() 2387 2506 { 2388 if ((Yva_dynzdf_imp = new va_dynzdf_imp ())==NULL) 2389 Ycreate_errnew(); 2507 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2508 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2509 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2510 if ((Yva_dynzdf_imp(Yw1, Yw2, Yw3) = new va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2390 2511 }/*M3_TBTOGT */ 2391 2512 void YtabTOgrad_ua_norm_dynzdf(int frompdt, int topdt, YREAL tab[]) … … 2405 2526 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2406 2527 for (int Yws=0; Yws<YNBS_ua_norm_dynzdf; ++Yws){ 2407 Yua_norm_dynzdf ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2528 Yua_norm_dynzdf(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2408 2529 }/*M3_SETAT*/ 2409 2530 void Ysetstate_ua_norm_dynzdf(double val) … … 2414 2535 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2415 2536 for (int Yws=0; Yws<YNBS_ua_norm_dynzdf; ++Yws){ 2416 Yua_norm_dynzdf ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2537 Yua_norm_dynzdf(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2417 2538 }/*M3_YIOUT*/ 2418 2539 void Yio_ua_norm_dynzdf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2419 2540 { Yiorwf ("ua_norm_dynzdf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_norm_dynzdf(Yws, Yw1, Yw2, Yw3, Ywt), val); 2420 }/*M 0_CREU*/2541 }/*M3_CREU*/ 2421 2542 void Ycreate_ua_norm_dynzdf() 2422 2543 { 2423 if ((Yua_norm_dynzdf = new ua_norm_dynzdf ())==NULL) 2424 Ycreate_errnew(); 2544 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2545 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2546 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2547 if ((Yua_norm_dynzdf(Yw1, Yw2, Yw3) = new ua_norm_dynzdf ())==NULL) Ycreate_errnew();}}} 2425 2548 }/*M3_TBTOGT */ 2426 2549 void YtabTOgrad_va_norm_dynzdf(int frompdt, int topdt, YREAL tab[]) … … 2440 2563 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2441 2564 for (int Yws=0; Yws<YNBS_va_norm_dynzdf; ++Yws){ 2442 Yva_norm_dynzdf ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2565 Yva_norm_dynzdf(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2443 2566 }/*M3_SETAT*/ 2444 2567 void Ysetstate_va_norm_dynzdf(double val) … … 2449 2572 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2450 2573 for (int Yws=0; Yws<YNBS_va_norm_dynzdf; ++Yws){ 2451 Yva_norm_dynzdf ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2574 Yva_norm_dynzdf(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2452 2575 }/*M3_YIOUT*/ 2453 2576 void Yio_va_norm_dynzdf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2454 2577 { Yiorwf ("va_norm_dynzdf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_norm_dynzdf(Yws, Yw1, Yw2, Yw3, Ywt), val); 2455 }/*M 0_CREU*/2578 }/*M3_CREU*/ 2456 2579 void Ycreate_va_norm_dynzdf() 2457 2580 { 2458 if ((Yva_norm_dynzdf = new va_norm_dynzdf ())==NULL) 2459 Ycreate_errnew(); 2581 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2582 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2583 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2584 if ((Yva_norm_dynzdf(Yw1, Yw2, Yw3) = new va_norm_dynzdf ())==NULL) Ycreate_errnew();}}} 2460 2585 }/*M2_TBTOGT */ 2461 2586 void YtabTOgrad_spguv_now_dynspg(int frompdt, int topdt, YREAL tab[]) … … 2473 2598 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2474 2599 for (int Yws=0; Yws<YNBS_spguv_now_dynspg; ++Yws){ 2475 Yspguv_now_dynspg ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}2600 Yspguv_now_dynspg(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 2476 2601 }/*M2_SETAT*/ 2477 2602 void Ysetstate_spguv_now_dynspg(double val) … … 2481 2606 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2482 2607 for (int Yws=0; Yws<YNBS_spguv_now_dynspg; ++Yws){ 2483 Yspguv_now_dynspg ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}2608 Yspguv_now_dynspg(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 2484 2609 }/*M2_YIOUT*/ 2485 2610 void Yio_spguv_now_dynspg(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2486 2611 { Yiorwf ("spguv_now_dynspg", Yws, Yw1, Yw2, Yw3, Ywt, &YS_spguv_now_dynspg(Yws, Yw1, Yw2, Ywt), val); 2487 }/*M 0_CREU*/2612 }/*M2_CREU*/ 2488 2613 void Ycreate_spguv_now_dynspg() 2489 2614 { 2490 if ((Yspguv_now_dynspg = new spguv_now_dynspg ())==NULL) 2491 Ycreate_errnew(); 2615 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2616 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2617 if ((Yspguv_now_dynspg(Yw1, Yw2)= new spguv_now_dynspg ())==NULL) Ycreate_errnew();}} 2492 2618 }/*M3_TBTOGT */ 2493 2619 void YtabTOgrad_ua_1_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2507 2633 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2508 2634 for (int Yws=0; Yws<YNBS_ua_1_dynspg_flt; ++Yws){ 2509 Yua_1_dynspg_flt ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2635 Yua_1_dynspg_flt(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2510 2636 }/*M3_SETAT*/ 2511 2637 void Ysetstate_ua_1_dynspg_flt(double val) … … 2516 2642 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2517 2643 for (int Yws=0; Yws<YNBS_ua_1_dynspg_flt; ++Yws){ 2518 Yua_1_dynspg_flt ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2644 Yua_1_dynspg_flt(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2519 2645 }/*M3_YIOUT*/ 2520 2646 void Yio_ua_1_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2521 2647 { Yiorwf ("ua_1_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_1_dynspg_flt(Yws, Yw1, Yw2, Yw3, Ywt), val); 2522 }/*M 0_CREU*/2648 }/*M3_CREU*/ 2523 2649 void Ycreate_ua_1_dynspg_flt() 2524 2650 { 2525 if ((Yua_1_dynspg_flt = new ua_1_dynspg_flt ())==NULL) 2526 Ycreate_errnew(); 2651 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2652 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2653 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2654 if ((Yua_1_dynspg_flt(Yw1, Yw2, Yw3) = new ua_1_dynspg_flt ())==NULL) Ycreate_errnew();}}} 2527 2655 }/*M3_TBTOGT */ 2528 2656 void YtabTOgrad_va_1_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2542 2670 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2543 2671 for (int Yws=0; Yws<YNBS_va_1_dynspg_flt; ++Yws){ 2544 Yva_1_dynspg_flt ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2672 Yva_1_dynspg_flt(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2545 2673 }/*M3_SETAT*/ 2546 2674 void Ysetstate_va_1_dynspg_flt(double val) … … 2551 2679 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2552 2680 for (int Yws=0; Yws<YNBS_va_1_dynspg_flt; ++Yws){ 2553 Yva_1_dynspg_flt ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2681 Yva_1_dynspg_flt(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2554 2682 }/*M3_YIOUT*/ 2555 2683 void Yio_va_1_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2556 2684 { Yiorwf ("va_1_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_1_dynspg_flt(Yws, Yw1, Yw2, Yw3, Ywt), val); 2557 }/*M 0_CREU*/2685 }/*M3_CREU*/ 2558 2686 void Ycreate_va_1_dynspg_flt() 2559 2687 { 2560 if ((Yva_1_dynspg_flt = new va_1_dynspg_flt ())==NULL) 2561 Ycreate_errnew(); 2688 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2689 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2690 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2691 if ((Yva_1_dynspg_flt(Yw1, Yw2, Yw3) = new va_1_dynspg_flt ())==NULL) Ycreate_errnew();}}} 2562 2692 }/*M2_TBTOGT */ 2563 2693 void YtabTOgrad_sum_spgu_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2575 2705 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2576 2706 for (int Yws=0; Yws<YNBS_sum_spgu_dynspg_flt; ++Yws){ 2577 Ysum_spgu_dynspg_flt ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}2707 Ysum_spgu_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 2578 2708 }/*M2_SETAT*/ 2579 2709 void Ysetstate_sum_spgu_dynspg_flt(double val) … … 2583 2713 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2584 2714 for (int Yws=0; Yws<YNBS_sum_spgu_dynspg_flt; ++Yws){ 2585 Ysum_spgu_dynspg_flt ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}2715 Ysum_spgu_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 2586 2716 }/*M2_YIOUT*/ 2587 2717 void Yio_sum_spgu_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2588 2718 { Yiorwf ("sum_spgu_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sum_spgu_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2589 }/*M 0_CREU*/2719 }/*M2_CREU*/ 2590 2720 void Ycreate_sum_spgu_dynspg_flt() 2591 2721 { 2592 if ((Ysum_spgu_dynspg_flt = new sum_spgu_dynspg_flt ())==NULL) 2593 Ycreate_errnew(); 2722 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2723 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2724 if ((Ysum_spgu_dynspg_flt(Yw1, Yw2)= new sum_spgu_dynspg_flt ())==NULL) Ycreate_errnew();}} 2594 2725 }/*M2_TBTOGT */ 2595 2726 void YtabTOgrad_sum_spgv_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2607 2738 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2608 2739 for (int Yws=0; Yws<YNBS_sum_spgv_dynspg_flt; ++Yws){ 2609 Ysum_spgv_dynspg_flt ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}2740 Ysum_spgv_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 2610 2741 }/*M2_SETAT*/ 2611 2742 void Ysetstate_sum_spgv_dynspg_flt(double val) … … 2615 2746 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2616 2747 for (int Yws=0; Yws<YNBS_sum_spgv_dynspg_flt; ++Yws){ 2617 Ysum_spgv_dynspg_flt ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}2748 Ysum_spgv_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 2618 2749 }/*M2_YIOUT*/ 2619 2750 void Yio_sum_spgv_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2620 2751 { Yiorwf ("sum_spgv_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sum_spgv_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2621 }/*M 0_CREU*/2752 }/*M2_CREU*/ 2622 2753 void Ycreate_sum_spgv_dynspg_flt() 2623 2754 { 2624 if ((Ysum_spgv_dynspg_flt = new sum_spgv_dynspg_flt ())==NULL) 2625 Ycreate_errnew(); 2755 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2756 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2757 if ((Ysum_spgv_dynspg_flt(Yw1, Yw2)= new sum_spgv_dynspg_flt ())==NULL) Ycreate_errnew();}} 2626 2758 }/*M2_TBTOGT */ 2627 2759 void YtabTOgrad_gcb_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2639 2771 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2640 2772 for (int Yws=0; Yws<YNBS_gcb_dynspg_flt; ++Yws){ 2641 Ygcb_dynspg_flt ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}2773 Ygcb_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 2642 2774 }/*M2_SETAT*/ 2643 2775 void Ysetstate_gcb_dynspg_flt(double val) … … 2647 2779 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2648 2780 for (int Yws=0; Yws<YNBS_gcb_dynspg_flt; ++Yws){ 2649 Ygcb_dynspg_flt ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}2781 Ygcb_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 2650 2782 }/*M2_YIOUT*/ 2651 2783 void Yio_gcb_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2652 2784 { Yiorwf ("gcb_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcb_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2653 }/*M 0_CREU*/2785 }/*M2_CREU*/ 2654 2786 void Ycreate_gcb_dynspg_flt() 2655 2787 { 2656 if ((Ygcb_dynspg_flt = new gcb_dynspg_flt ())==NULL) 2657 Ycreate_errnew(); 2788 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2789 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2790 if ((Ygcb_dynspg_flt(Yw1, Yw2)= new gcb_dynspg_flt ())==NULL) Ycreate_errnew();}} 2658 2791 }/*M2_TBTOGT */ 2659 2792 void YtabTOgrad_gcx_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2671 2804 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2672 2805 for (int Yws=0; Yws<YNBS_gcx_dynspg_flt; ++Yws){ 2673 Ygcx_dynspg_flt ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}2806 Ygcx_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 2674 2807 }/*M2_SETAT*/ 2675 2808 void Ysetstate_gcx_dynspg_flt(double val) … … 2679 2812 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2680 2813 for (int Yws=0; Yws<YNBS_gcx_dynspg_flt; ++Yws){ 2681 Ygcx_dynspg_flt ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}2814 Ygcx_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 2682 2815 }/*M2_YIOUT*/ 2683 2816 void Yio_gcx_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2684 2817 { Yiorwf ("gcx_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcx_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2685 }/*M 0_CREU*/2818 }/*M2_CREU*/ 2686 2819 void Ycreate_gcx_dynspg_flt() 2687 2820 { 2688 if ((Ygcx_dynspg_flt = new gcx_dynspg_flt ())==NULL) 2689 Ycreate_errnew(); 2821 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2822 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2823 if ((Ygcx_dynspg_flt(Yw1, Yw2)= new gcx_dynspg_flt ())==NULL) Ycreate_errnew();}} 2690 2824 }/*M3_TBTOGT */ 2691 2825 void YtabTOgrad_solsor_gx1_x_r(int frompdt, int topdt, YREAL tab[]) … … 2705 2839 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2706 2840 for (int Yws=0; Yws<YNBS_solsor_gx1_x_r; ++Yws){ 2707 Ysolsor_gx1_x_r ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2841 Ysolsor_gx1_x_r(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2708 2842 }/*M3_SETAT*/ 2709 2843 void Ysetstate_solsor_gx1_x_r(double val) … … 2714 2848 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2715 2849 for (int Yws=0; Yws<YNBS_solsor_gx1_x_r; ++Yws){ 2716 Ysolsor_gx1_x_r ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2850 Ysolsor_gx1_x_r(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2717 2851 }/*M3_YIOUT*/ 2718 2852 void Yio_solsor_gx1_x_r(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2719 2853 { Yiorwf ("solsor_gx1_x_r", Yws, Yw1, Yw2, Yw3, Ywt, &YS_solsor_gx1_x_r(Yws, Yw1, Yw2, Yw3, Ywt), val); 2720 }/*M 0_CREU*/2854 }/*M3_CREU*/ 2721 2855 void Ycreate_solsor_gx1_x_r() 2722 2856 { 2723 if ((Ysolsor_gx1_x_r = new solsor_gx1_x_r ())==NULL) 2724 Ycreate_errnew(); 2857 for (int Yw1=0; Yw1<YA1_Ssolsor; ++Yw1){ 2858 for (int Yw2=0; Yw2<YA2_Ssolsor; ++Yw2){ 2859 for (int Yw3=0; Yw3<YA3_Ssolsor; ++Yw3){ 2860 if ((Ysolsor_gx1_x_r(Yw1, Yw2, Yw3) = new solsor_gx1_x_r ())==NULL) Ycreate_errnew();}}} 2725 2861 }/*M3_TBTOGT */ 2726 2862 void YtabTOgrad_solsor_gx2_x_r(int frompdt, int topdt, YREAL tab[]) … … 2740 2876 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2741 2877 for (int Yws=0; Yws<YNBS_solsor_gx2_x_r; ++Yws){ 2742 Ysolsor_gx2_x_r ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2878 Ysolsor_gx2_x_r(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2743 2879 }/*M3_SETAT*/ 2744 2880 void Ysetstate_solsor_gx2_x_r(double val) … … 2749 2885 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2750 2886 for (int Yws=0; Yws<YNBS_solsor_gx2_x_r; ++Yws){ 2751 Ysolsor_gx2_x_r ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2887 Ysolsor_gx2_x_r(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2752 2888 }/*M3_YIOUT*/ 2753 2889 void Yio_solsor_gx2_x_r(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2754 2890 { Yiorwf ("solsor_gx2_x_r", Yws, Yw1, Yw2, Yw3, Ywt, &YS_solsor_gx2_x_r(Yws, Yw1, Yw2, Yw3, Ywt), val); 2755 }/*M 0_CREU*/2891 }/*M3_CREU*/ 2756 2892 void Ycreate_solsor_gx2_x_r() 2757 2893 { 2758 if ((Ysolsor_gx2_x_r = new solsor_gx2_x_r ())==NULL) 2759 Ycreate_errnew(); 2894 for (int Yw1=0; Yw1<YA1_Ssolsor; ++Yw1){ 2895 for (int Yw2=0; Yw2<YA2_Ssolsor; ++Yw2){ 2896 for (int Yw3=0; Yw3<YA3_Ssolsor; ++Yw3){ 2897 if ((Ysolsor_gx2_x_r(Yw1, Yw2, Yw3) = new solsor_gx2_x_r ())==NULL) Ycreate_errnew();}}} 2760 2898 }/*M3_TBTOGT */ 2761 2899 void YtabTOgrad_solsor_flag(int frompdt, int topdt, YREAL tab[]) … … 2775 2913 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2776 2914 for (int Yws=0; Yws<YNBS_solsor_flag; ++Yws){ 2777 Ysolsor_flag ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}2915 Ysolsor_flag(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2778 2916 }/*M3_SETAT*/ 2779 2917 void Ysetstate_solsor_flag(double val) … … 2784 2922 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2785 2923 for (int Yws=0; Yws<YNBS_solsor_flag; ++Yws){ 2786 Ysolsor_flag ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}2924 Ysolsor_flag(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2787 2925 }/*M3_YIOUT*/ 2788 2926 void Yio_solsor_flag(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2789 2927 { Yiorwf ("solsor_flag", Yws, Yw1, Yw2, Yw3, Ywt, &YS_solsor_flag(Yws, Yw1, Yw2, Yw3, Ywt), val); 2790 }/*M 0_CREU*/2928 }/*M3_CREU*/ 2791 2929 void Ycreate_solsor_flag() 2792 2930 { 2793 if ((Ysolsor_flag = new solsor_flag ())==NULL) 2794 Ycreate_errnew(); 2931 for (int Yw1=0; Yw1<YA1_Ssolsor; ++Yw1){ 2932 for (int Yw2=0; Yw2<YA2_Ssolsor; ++Yw2){ 2933 for (int Yw3=0; Yw3<YA3_Ssolsor; ++Yw3){ 2934 if ((Ysolsor_flag(Yw1, Yw2, Yw3) = new solsor_flag ())==NULL) Ycreate_errnew();}}} 2795 2935 }/*M2_TBTOGT */ 2796 2936 void YtabTOgrad_gcx2(int frompdt, int topdt, YREAL tab[]) … … 2808 2948 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2809 2949 for (int Yws=0; Yws<YNBS_gcx2; ++Yws){ 2810 Ygcx2 ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}2950 Ygcx2(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 2811 2951 }/*M2_SETAT*/ 2812 2952 void Ysetstate_gcx2(double val) … … 2816 2956 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2817 2957 for (int Yws=0; Yws<YNBS_gcx2; ++Yws){ 2818 Ygcx2 ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}2958 Ygcx2(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 2819 2959 }/*M2_YIOUT*/ 2820 2960 void Yio_gcx2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2821 2961 { Yiorwf ("gcx2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcx2(Yws, Yw1, Yw2, Ywt), val); 2822 }/*M 0_CREU*/2962 }/*M2_CREU*/ 2823 2963 void Ycreate_gcx2() 2824 2964 { 2825 if ((Ygcx2 = new gcx2 ())==NULL) 2826 Ycreate_errnew(); 2965 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2966 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 2967 if ((Ygcx2(Yw1, Yw2)= new gcx2 ())==NULL) Ycreate_errnew();}} 2827 2968 }/*M2_TBTOGT */ 2828 2969 void YtabTOgrad_spguv_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2840 2981 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2841 2982 for (int Yws=0; Yws<YNBS_spguv_dynspg_flt; ++Yws){ 2842 Yspguv_dynspg_flt ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}2983 Yspguv_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 2843 2984 }/*M2_SETAT*/ 2844 2985 void Ysetstate_spguv_dynspg_flt(double val) … … 2848 2989 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2849 2990 for (int Yws=0; Yws<YNBS_spguv_dynspg_flt; ++Yws){ 2850 Yspguv_dynspg_flt ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}2991 Yspguv_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 2851 2992 }/*M2_YIOUT*/ 2852 2993 void Yio_spguv_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2853 2994 { Yiorwf ("spguv_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_spguv_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2854 }/*M 0_CREU*/2995 }/*M2_CREU*/ 2855 2996 void Ycreate_spguv_dynspg_flt() 2856 2997 { 2857 if ((Yspguv_dynspg_flt = new spguv_dynspg_flt ())==NULL) 2858 Ycreate_errnew(); 2998 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2999 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3000 if ((Yspguv_dynspg_flt(Yw1, Yw2)= new spguv_dynspg_flt ())==NULL) Ycreate_errnew();}} 2859 3001 }/*M3_TBTOGT */ 2860 3002 void YtabTOgrad_ua(int frompdt, int topdt, YREAL tab[]) … … 2874 3016 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2875 3017 for (int Yws=0; Yws<YNBS_ua; ++Yws){ 2876 Yua ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}3018 Yua(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2877 3019 }/*M3_SETAT*/ 2878 3020 void Ysetstate_ua(double val) … … 2883 3025 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2884 3026 for (int Yws=0; Yws<YNBS_ua; ++Yws){ 2885 Yua ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}3027 Yua(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2886 3028 }/*M3_YIOUT*/ 2887 3029 void Yio_ua(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2888 3030 { Yiorwf ("ua", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua(Yws, Yw1, Yw2, Yw3, Ywt), val); 2889 }/*M 0_CREU*/3031 }/*M3_CREU*/ 2890 3032 void Ycreate_ua() 2891 3033 { 2892 if ((Yua = new ua ())==NULL) 2893 Ycreate_errnew(); 3034 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3035 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3036 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3037 if ((Yua(Yw1, Yw2, Yw3) = new ua ())==NULL) Ycreate_errnew();}}} 2894 3038 }/*M3_TBTOGT */ 2895 3039 void YtabTOgrad_va(int frompdt, int topdt, YREAL tab[]) … … 2909 3053 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2910 3054 for (int Yws=0; Yws<YNBS_va; ++Yws){ 2911 Yva ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}3055 Yva(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 2912 3056 }/*M3_SETAT*/ 2913 3057 void Ysetstate_va(double val) … … 2918 3062 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2919 3063 for (int Yws=0; Yws<YNBS_va; ++Yws){ 2920 Yva ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}3064 Yva(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 2921 3065 }/*M3_YIOUT*/ 2922 3066 void Yio_va(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2923 3067 { Yiorwf ("va", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va(Yws, Yw1, Yw2, Yw3, Ywt), val); 2924 }/*M 0_CREU*/3068 }/*M3_CREU*/ 2925 3069 void Ycreate_va() 2926 3070 { 2927 if ((Yva = new va ())==NULL) 2928 Ycreate_errnew(); 3071 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3072 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3073 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3074 if ((Yva(Yw1, Yw2, Yw3) = new va ())==NULL) Ycreate_errnew();}}} 2929 3075 }/*M2_TBTOGT */ 2930 3076 void YtabTOgrad_sshn(int frompdt, int topdt, YREAL tab[]) … … 2942 3088 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2943 3089 for (int Yws=0; Yws<YNBS_sshn; ++Yws){ 2944 Ysshn ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}3090 Ysshn(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 2945 3091 }/*M2_SETAT*/ 2946 3092 void Ysetstate_sshn(double val) … … 2950 3096 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2951 3097 for (int Yws=0; Yws<YNBS_sshn; ++Yws){ 2952 Ysshn ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}3098 Ysshn(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 2953 3099 }/*M2_YIOUT*/ 2954 3100 void Yio_sshn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2955 3101 { Yiorwf ("sshn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sshn(Yws, Yw1, Yw2, Ywt), val); 2956 }/*M 0_CREU*/3102 }/*M2_CREU*/ 2957 3103 void Ycreate_sshn() 2958 3104 { 2959 if ((Ysshn = new sshn ())==NULL) 2960 Ycreate_errnew(); 3105 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3106 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3107 if ((Ysshn(Yw1, Yw2)= new sshn ())==NULL) Ycreate_errnew();}} 2961 3108 }/*M2_TBTOGT */ 2962 3109 void YtabTOgrad_sshb(int frompdt, int topdt, YREAL tab[]) … … 2974 3121 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2975 3122 for (int Yws=0; Yws<YNBS_sshb; ++Yws){ 2976 Ysshb ->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}}3123 Ysshb(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 2977 3124 }/*M2_SETAT*/ 2978 3125 void Ysetstate_sshb(double val) … … 2982 3129 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2983 3130 for (int Yws=0; Yws<YNBS_sshb; ++Yws){ 2984 Ysshb ->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}}3131 Ysshb(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 2985 3132 }/*M2_YIOUT*/ 2986 3133 void Yio_sshb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 3001 3148 }/*M9_OUTOB*/ 3002 3149 return(1); 3003 }/*M 0_CREU*/3150 }/*M2_CREU*/ 3004 3151 void Ycreate_sshb() 3005 3152 { 3006 if ((Ysshb = new sshb ())==NULL) 3007 Ycreate_errnew(); 3153 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3154 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3155 if ((Ysshb(Yw1, Yw2)= new sshb ())==NULL) Ycreate_errnew();}} 3008 3156 }/*M2_SWISH*/ 3009 3157 void Ysetwish_sshb(double val) … … 3030 3178 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3031 3179 for (int Yws=0; Yws<YNBS_ub; ++Yws){ 3032 Yub ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}3180 Yub(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 3033 3181 }/*M3_SETAT*/ 3034 3182 void Ysetstate_ub(double val) … … 3039 3187 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3040 3188 for (int Yws=0; Yws<YNBS_ub; ++Yws){ 3041 Yub ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}3189 Yub(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 3042 3190 }/*M3_YIOUT*/ 3043 3191 void Yio_ub(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 3059 3207 }/*M9_OUTOB*/ 3060 3208 return(1); 3061 }/*M 0_CREU*/3209 }/*M3_CREU*/ 3062 3210 void Ycreate_ub() 3063 3211 { 3064 if ((Yub = new ub ())==NULL) 3065 Ycreate_errnew(); 3212 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3213 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3214 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3215 if ((Yub(Yw1, Yw2, Yw3) = new ub ())==NULL) Ycreate_errnew();}}} 3066 3216 }/*M3_SWISH*/ 3067 3217 void Ysetwish_ub(double val) … … 3089 3239 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3090 3240 for (int Yws=0; Yws<YNBS_vb; ++Yws){ 3091 Yvb ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}3241 Yvb(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 3092 3242 }/*M3_SETAT*/ 3093 3243 void Ysetstate_vb(double val) … … 3098 3248 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3099 3249 for (int Yws=0; Yws<YNBS_vb; ++Yws){ 3100 Yvb ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}3250 Yvb(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 3101 3251 }/*M3_YIOUT*/ 3102 3252 void Yio_vb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 3118 3268 }/*M9_OUTOB*/ 3119 3269 return(1); 3120 }/*M 0_CREU*/3270 }/*M3_CREU*/ 3121 3271 void Ycreate_vb() 3122 3272 { 3123 if ((Yvb = new vb ())==NULL) 3124 Ycreate_errnew(); 3273 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3274 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3275 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3276 if ((Yvb(Yw1, Yw2, Yw3) = new vb ())==NULL) Ycreate_errnew();}}} 3125 3277 }/*M3_SWISH*/ 3126 3278 void Ysetwish_vb(double val) … … 3148 3300 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3149 3301 for (int Yws=0; Yws<YNBS_hdivn; ++Yws){ 3150 Yhdivn ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}3302 Yhdivn(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 3151 3303 }/*M3_SETAT*/ 3152 3304 void Ysetstate_hdivn(double val) … … 3157 3309 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3158 3310 for (int Yws=0; Yws<YNBS_hdivn; ++Yws){ 3159 Yhdivn ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}3311 Yhdivn(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 3160 3312 }/*M3_YIOUT*/ 3161 3313 void Yio_hdivn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 3162 3314 { Yiorwf ("hdivn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_hdivn(Yws, Yw1, Yw2, Yw3, Ywt), val); 3163 }/*M 0_CREU*/3315 }/*M3_CREU*/ 3164 3316 void Ycreate_hdivn() 3165 3317 { 3166 if ((Yhdivn = new hdivn ())==NULL) 3167 Ycreate_errnew(); 3318 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3319 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3320 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3321 if ((Yhdivn(Yw1, Yw2, Yw3) = new hdivn ())==NULL) Ycreate_errnew();}}} 3168 3322 }/*M3_TBTOGT */ 3169 3323 void YtabTOgrad_rotn(int frompdt, int topdt, YREAL tab[]) … … 3183 3337 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3184 3338 for (int Yws=0; Yws<YNBS_rotn; ++Yws){ 3185 Yrotn ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}3339 Yrotn(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 3186 3340 }/*M3_SETAT*/ 3187 3341 void Ysetstate_rotn(double val) … … 3192 3346 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3193 3347 for (int Yws=0; Yws<YNBS_rotn; ++Yws){ 3194 Yrotn ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}3348 Yrotn(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 3195 3349 }/*M3_YIOUT*/ 3196 3350 void Yio_rotn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 3197 3351 { Yiorwf ("rotn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rotn(Yws, Yw1, Yw2, Yw3, Ywt), val); 3198 }/*M 0_CREU*/3352 }/*M3_CREU*/ 3199 3353 void Ycreate_rotn() 3200 3354 { 3201 if ((Yrotn = new rotn ())==NULL) 3202 Ycreate_errnew(); 3355 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3356 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3357 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3358 if ((Yrotn(Yw1, Yw2, Yw3) = new rotn ())==NULL) Ycreate_errnew();}}} 3203 3359 }/*M3_TBTOGT */ 3204 3360 void YtabTOgrad_wa(int frompdt, int topdt, YREAL tab[]) … … 3218 3374 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3219 3375 for (int Yws=0; Yws<YNBS_wa; ++Yws){ 3220 Ywa ->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}}3376 Ywa(Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}} 3221 3377 }/*M3_SETAT*/ 3222 3378 void Ysetstate_wa(double val) … … 3227 3383 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3228 3384 for (int Yws=0; Yws<YNBS_wa; ++Yws){ 3229 Ywa ->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}}3385 Ywa(Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}} 3230 3386 }/*M3_YIOUT*/ 3231 3387 void Yio_wa(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 3232 3388 { Yiorwf ("wa", Yws, Yw1, Yw2, Yw3, Ywt, &YS_wa(Yws, Yw1, Yw2, Yw3, Ywt), val); 3233 }/*M 0_CREU*/3389 }/*M3_CREU*/ 3234 3390 void Ycreate_wa() 3235 3391 { 3236 if ((Ywa = new wa ())==NULL) 3237 Ycreate_errnew(); 3392 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3393 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3394 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3395 if ((Ywa(Yw1, Yw2, Yw3) = new wa ())==NULL) Ycreate_errnew();}}} 3238 3396 } 3239 3397 void Ycreate_all () … … 3802 3960 { 3803 3961 Yting[0]=YS1_tb( Yi, Yj, 0, YTemps-1); 3804 Ysbcgyre_qsr_qns ->forward( Yting[0] );3805 Ysbcgyre_emp1 ->forward();3962 Ysbcgyre_qsr_qns(Yi, Yj)->forward( Yting[0] ); 3963 Ysbcgyre_emp1(Yi, Yj)->forward(); 3806 3964 if (1==0 || Yi-1<0) 3807 3965 Yting[0]=0; … … 3821 3979 Yting[3]=YS2_sbcgyre_zsumemp_zsurf( 31, Yj-1, YTemps); 3822 3980 Yting[4]=YS1_sbcgyre_emp1( Yi, Yj, YTemps); 3823 Ysbcgyre_zsumemp_zsurf ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );3981 Ysbcgyre_zsumemp_zsurf(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 3824 3982 3825 3983 } … … 3830 3988 Yting[1]=YS1_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 3831 3989 Yting[2]=YS2_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 3832 Ysbcgyre_emp ->forward( Yting[0], Yting[1], Yting[2] );3990 Ysbcgyre_emp(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 3833 3991 Yting[0]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 3834 Ysbcgyre_emps ->forward( Yting[0] );3835 Ysbcgyre_utau_vtau ->forward();3992 Ysbcgyre_emps(Yi, Yj)->forward( Yting[0] ); 3993 Ysbcgyre_utau_vtau(Yi, Yj)->forward(); 3836 3994 if (1==0 || Yi-1<0) 3837 3995 Yting[0]=0; … … 3844 4002 Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 3845 4003 Yting[3]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 3846 Ysbcgyre_wndm ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4004 Ysbcgyre_wndm(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 3847 4005 3848 4006 } … … 3861 4019 else 3862 4020 Yting[3]=YS1_sb( Yi, Yj, Yk-1, YTemps-1); 3863 Ybn2_rn2 ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4021 Ybn2_rn2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 3864 4022 3865 4023 } … … 3929 4087 else 3930 4088 Yting[18]=YS1_va( Yi+1, Yj, 1, YTemps-1); 3931 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] );4089 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] ); 3932 4090 3933 4091 } … … 3966 4124 Yting[29]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 29, YTemps); 3967 4125 Yting[30]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 30, YTemps); 3968 Yzdfmxl_hmld ->forward();4126 Yzdfmxl_hmld(Yi, Yj)->forward(); 3969 4127 Yting[0]=YS1_rhop( Yi, Yj, 0, YTemps-1); 3970 4128 Yting[1]=YS1_rhop( Yi, Yj, 1, YTemps-1); … … 3998 4156 Yting[29]=YS1_rhop( Yi, Yj, 29, YTemps-1); 3999 4157 Yting[30]=YS1_rhop( Yi, Yj, 30, YTemps-1); 4000 Yzdfmxl_nmln_hmlp_hmlpt ->forward();4158 Yzdfmxl_nmln_hmlp_hmlpt(Yi, Yj)->forward(); 4001 4159 4002 4160 } … … 4007 4165 Yting[1]=YS1_sbcgyre_emps( Yi, Yj, YTemps); 4008 4166 Yting[2]=YS1_sa( Yi, Yj, 0, YTemps-1); 4009 Yta_sa_trasbc ->forward( Yting[0], Yting[1], Yting[2] );4167 Yta_sa_trasbc(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 4010 4168 4011 4169 } … … 4016 4174 Yting[0]=YS1_sbcgyre_qsr_qns( Yi, Yj, YTemps); 4017 4175 Yting[1]=YS1_ta_sa_trasbc( Yi, Yj, YTemps); 4018 Yta_traqsr ->forward( Yting[0], Yting[1] );4176 Yta_traqsr(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4019 4177 4020 4178 } … … 4035 4193 else 4036 4194 Yting[4]=YS1_ta( Yi+1, Yj, Yk, YTemps-1); 4037 Yzcent_hor_traadv_cen2 ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4195 Yzcent_hor_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4038 4196 Yting[0]=YS1_ua( Yi, Yj, Yk, YTemps-1); 4039 4197 Yting[1]=YS1_va( Yi, Yj, Yk, YTemps-1); … … 4047 4205 else 4048 4206 Yting[4]=YS1_sa( Yi+1, Yj, Yk, YTemps-1); 4049 Yzcens_hor_traadv_cen2 ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4207 Yzcens_hor_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4050 4208 4051 4209 } … … 4064 4222 Yting[3]=YS2_zcent_hor_traadv_cen2( Yi, Yj-1, Yk, YTemps); 4065 4223 Yting[4]=YS2_zcent_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 4066 Yta_hor_traadv_cen2 ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4224 Yta_hor_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4067 4225 Yting[0]=YS2_ta_sa_trasbc( Yi, Yj, YTemps); 4068 4226 if (1==0 || Yi-1<0) … … 4076 4234 Yting[3]=YS2_zcens_hor_traadv_cen2( Yi, Yj-1, Yk, YTemps); 4077 4235 Yting[4]=YS2_zcens_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 4078 Ysa_hor_traadv_cen2 ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4236 Ysa_hor_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4079 4237 4080 4238 } … … 4091 4249 else 4092 4250 Yting[2]=YS1_ta( Yi, Yj, Yk-1, YTemps-1); 4093 Yzcent_ver_traadv_cen2 ->forward( Yting[0], Yting[1], Yting[2] );4251 Yzcent_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4094 4252 Yting[0]=YS1_wa( Yi, Yj, Yk, YTemps-1); 4095 4253 Yting[1]=YS1_sa( Yi, Yj, Yk, YTemps-1); … … 4098 4256 else 4099 4257 Yting[2]=YS1_sa( Yi, Yj, Yk-1, YTemps-1); 4100 Yzcens_ver_traadv_cen2 ->forward( Yting[0], Yting[1], Yting[2] );4258 Yzcens_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4101 4259 4102 4260 } … … 4111 4269 else 4112 4270 Yting[2]=YS1_zcent_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 4113 Yta_ver_traadv_cen2 ->forward( Yting[0], Yting[1], Yting[2] );4271 Yta_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4114 4272 Yting[0]=YS1_sa_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 4115 4273 Yting[1]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk, YTemps); … … 4118 4276 else 4119 4277 Yting[2]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 4120 Ysa_ver_traadv_cen2 ->forward( Yting[0], Yting[1], Yting[2] );4278 Ysa_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4121 4279 4122 4280 } … … 4134 4292 else 4135 4293 Yting[2]=YS1_tb( Yi, Yj+1, Yk, YTemps-1); 4136 Yztuv_traldf_lap ->forward( Yting[0], Yting[1], Yting[2] );4294 Yztuv_traldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4137 4295 Yting[0]=YS1_sb( Yi, Yj, Yk, YTemps-1); 4138 4296 if (1==0 || Yi+1>YA1_S3dt-1) … … 4144 4302 else 4145 4303 Yting[2]=YS1_sb( Yi, Yj+1, Yk, YTemps-1); 4146 Yzsuv_traldf_lap ->forward( Yting[0], Yting[1], Yting[2] );4304 Yzsuv_traldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4147 4305 Yting[0]=YS1_ta_ver_traadv_cen2( Yi, Yj, Yk, YTemps); 4148 4306 Yting[1]=YS1_ztuv_traldf_lap( Yi, Yj, Yk, YTemps); … … 4156 4314 else 4157 4315 Yting[4]=YS2_ztuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 4158 Yta_traldf_lap ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4316 Yta_traldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4159 4317 Yting[0]=YS1_sa_ver_traadv_cen2( Yi, Yj, Yk, YTemps); 4160 4318 Yting[1]=YS1_zsuv_traldf_lap( Yi, Yj, Yk, YTemps); … … 4168 4326 else 4169 4327 Yting[4]=YS2_zsuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 4170 Ysa_traldf_lap ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4328 Ysa_traldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4171 4329 4172 4330 } … … 4180 4338 else 4181 4339 Yting[1]=YS1_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 4182 Yzwisd_trazdf_imp ->forward( Yting[0], Yting[1] );4340 Yzwisd_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4183 4341 Yting[0]=YS1_ta_traldf_lap( Yi, Yj, Yk, YTemps); 4184 4342 Yting[1]=YS1_tb( Yi, Yj, Yk, YTemps-1); 4185 Yzrhs_trazdf_imp ->forward( Yting[0], Yting[1] );4343 Yzrhs_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4186 4344 Yting[0]=YS1_sa_traldf_lap( Yi, Yj, Yk, YTemps); 4187 4345 Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps-1); 4188 Yzrhs_sa_trazdf_imp ->forward( Yting[0], Yting[1] );4346 Yzrhs_sa_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4189 4347 4190 4348 } … … 4203 4361 else 4204 4362 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 4205 Yzwt_trazdf_imp ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4363 Yzwt_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4206 4364 Yting[0]=YS1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 4207 4365 if (1==0 || Yk-1<0) … … 4214 4372 else 4215 4373 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 4216 Yta_de_trazdf_imp ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4374 Yta_de_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4217 4375 Yting[0]=YS1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 4218 4376 if (1==0 || Yk-1<0) … … 4225 4383 else 4226 4384 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 4227 Ysa_de_trazdf_imp ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4385 Ysa_de_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4228 4386 4229 4387 } … … 4240 4398 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk, YTemps); 4241 4399 Yting[4]=YS1_ta_c( Yi, Yj, Yk); 4242 Yta ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4400 Yta(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4243 4401 Yting[0]=YS2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 4244 4402 if (1==0 || Yk+1>YA3_S3dt-1) … … 4249 4407 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk, YTemps); 4250 4408 Yting[4]=YS1_sa_c( Yi, Yj, Yk); 4251 Ysa ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4409 Ysa(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4252 4410 4253 4411 } … … 4260 4418 Yting[2]=YS1_ta( Yi, Yj, Yk, YTemps); 4261 4419 Yting[3]=YS1_ta_c( Yi, Yj, Yk); 4262 Ytb ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4420 Ytb(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4263 4421 Yting[0]=YS1_sb( Yi, Yj, Yk, YTemps-1); 4264 4422 Yting[1]=YS1_sa( Yi, Yj, Yk, YTemps-1); 4265 4423 Yting[2]=YS1_sa( Yi, Yj, Yk, YTemps); 4266 4424 Yting[3]=YS1_sa_c( Yi, Yj, Yk); 4267 Ysb ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4425 Ysb(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4268 4426 4269 4427 } … … 4274 4432 Yting[0]=YS1_tb( Yi, Yj, Yk, YTemps); 4275 4433 Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps); 4276 Yrhd ->forward( Yting[0], Yting[1] );4434 Yrhd(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4277 4435 Yting[0]=YS1_rhd( Yi, Yj, Yk, YTemps); 4278 Yrhop ->forward( Yting[0] );4436 Yrhop(Yi, Yj, Yk)->forward( Yting[0] ); 4279 4437 4280 4438 } … … 4302 4460 else 4303 4461 Yting[5]=YS1_va( Yi, Yj+1, Yk, YTemps-1); 4304 Yhmf_TF_dynadv_cen2 ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] );4462 Yhmf_TF_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] ); 4305 4463 4306 4464 } … … 4318 4476 else 4319 4477 Yting[3]=YS2_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 4320 Yzua_dhmf_dynadv_cen2 ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4478 Yzua_dhmf_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4321 4479 Yting[0]=YS3_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps); 4322 4480 if (1==0 || Yi-1<0) … … 4329 4487 else 4330 4488 Yting[3]=YS4_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 4331 Yzva_dhmf_dynadv_cen2 ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4489 Yzva_dhmf_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4332 4490 4333 4491 } … … 4357 4515 else 4358 4516 Yting[6]=YS1_va( Yi, Yj, Yk-1, YTemps-1); 4359 Yzfuv_UW_dynadv_cen2 ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );4517 Yzfuv_UW_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 4360 4518 4361 4519 } … … 4370 4528 Yting[1]=YS1_zfuv_UW_dynadv_cen2( Yi, Yj, Yk+1, YTemps); 4371 4529 Yting[2]=YS1_zua_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 4372 Yua_dynadv_cen2 ->forward( Yting[0], Yting[1], Yting[2] );4530 Yua_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4373 4531 Yting[0]=YS2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk, YTemps); 4374 4532 if (1==0 || Yk+1>YA3_S3dt-1) … … 4377 4535 Yting[1]=YS2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk+1, YTemps); 4378 4536 Yting[2]=YS1_zva_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 4379 Yva_dynadv_cen2 ->forward( Yting[0], Yting[1], Yting[2] );4537 Yva_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4380 4538 4381 4539 } … … 4395 4553 else 4396 4554 Yting[3]=YS1_va( Yi+1, Yj, Yk, YTemps-1); 4397 Yzwxyz_vor_ene ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4555 Yzwxyz_vor_ene(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4398 4556 4399 4557 } … … 4420 4578 else 4421 4579 Yting[6]=YS2_zwxyz_vor_ene( Yi+1, Yj, Yk, YTemps); 4422 Yua_vor_ene ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );4580 Yua_vor_ene(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 4423 4581 Yting[0]=YS1_va_dynadv_cen2( Yi, Yj, Yk, YTemps); 4424 4582 if (1==0 || Yi-1<0) … … 4440 4598 else 4441 4599 Yting[6]=YS1_zwxyz_vor_ene( Yi, Yj+1, Yk, YTemps); 4442 Yva_vor_ene ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );4600 Yva_vor_ene(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 4443 4601 Yting[0]=YS1_ua_vor_ene( Yi, Yj, Yk, YTemps); 4444 4602 if (1==0 || Yj-1<0) … … 4452 4610 else 4453 4611 Yting[4]=YS1_hdivn( Yi+1, Yj, Yk, YTemps-2); 4454 Yua_dyn_ldf_lap ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4612 Yua_dyn_ldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4455 4613 Yting[0]=YS1_va_vor_ene( Yi, Yj, Yk, YTemps); 4456 4614 if (1==0 || Yi-1<0) … … 4464 4622 else 4465 4623 Yting[4]=YS1_hdivn( Yi, Yj+1, Yk, YTemps-2); 4466 Yva_dyn_ldf_lap ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4624 Yva_dyn_ldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4467 4625 4468 4626 } … … 4502 4660 else 4503 4661 Yting[7]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk-1, YTemps); 4504 Yzhpij_dyn_hpg_zco ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] );4662 Yzhpij_dyn_hpg_zco(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 4505 4663 Yting[0]=YS1_ua_dyn_ldf_lap( Yi, Yj, Yk, YTemps); 4506 4664 Yting[1]=YS1_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 4507 Yua_dyn_hpg_zco ->forward( Yting[0], Yting[1] );4665 Yua_dyn_hpg_zco(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4508 4666 Yting[0]=YS1_va_dyn_ldf_lap( Yi, Yj, Yk, YTemps); 4509 4667 Yting[1]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 4510 Yva_dyn_hpg_zco ->forward( Yting[0], Yting[1] );4668 Yva_dyn_hpg_zco(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4511 4669 4512 4670 } … … 4520 4678 else 4521 4679 Yting[1]=YS2_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 4522 Yzwisd_ua_dynzdf_imp ->forward( Yting[0], Yting[1] );4680 Yzwisd_ua_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4523 4681 Yting[0]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps); 4524 4682 if (1==0 || Yk+1>YA3_S3dt-1) … … 4526 4684 else 4527 4685 Yting[1]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 4528 Yzwisd_va_dynzdf_imp ->forward( Yting[0], Yting[1] );4686 Yzwisd_va_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4529 4687 Yting[0]=YS1_ua_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 4530 4688 Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 4531 4689 Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 4532 Yzrhs_ua_dynzdf_imp ->forward( Yting[0], Yting[1], Yting[2] );4690 Yzrhs_ua_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4533 4691 Yting[0]=YS1_va_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 4534 4692 Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 4535 4693 Yting[2]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 4536 Yzrhs_va_dynzdf_imp ->forward( Yting[0], Yting[1], Yting[2] );4694 Yzrhs_va_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4537 4695 4538 4696 } … … 4551 4709 else 4552 4710 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 4553 Yzwt_ua_dynzdf_imp ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4711 Yzwt_ua_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4554 4712 Yting[0]=YS1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 4555 4713 if (1==0 || Yk-1<0) … … 4562 4720 else 4563 4721 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 4564 Yua_de_dynzdf_imp ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4722 Yua_de_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4565 4723 Yting[0]=YS1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4566 4724 if (1==0 || Yk-1<0) … … 4573 4731 else 4574 4732 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 4575 Yzwt_va_dynzdf_imp ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4733 Yzwt_va_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4576 4734 Yting[0]=YS1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4577 4735 if (1==0 || Yk-1<0) … … 4584 4742 else 4585 4743 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 4586 Yva_de_dynzdf_imp ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4744 Yva_de_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4587 4745 4588 4746 } … … 4598 4756 Yting[2]=YS1_ua_de_dynzdf_imp( Yi, Yj, Yk, YTemps); 4599 4757 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 4600 Yua_dynzdf_imp ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4758 Yua_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4601 4759 Yting[0]=YS2_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4602 4760 if (1==0 || Yk+1>YA3_S3dt-1) … … 4606 4764 Yting[2]=YS1_va_de_dynzdf_imp( Yi, Yj, Yk, YTemps); 4607 4765 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4608 Yva_dynzdf_imp ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4766 Yva_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4609 4767 4610 4768 } … … 4615 4773 Yting[0]=YS1_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 4616 4774 Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 4617 Yua_norm_dynzdf ->forward( Yting[0], Yting[1] );4775 Yua_norm_dynzdf(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4618 4776 Yting[0]=YS1_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4619 4777 Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 4620 Yva_norm_dynzdf ->forward( Yting[0], Yting[1] );4778 Yva_norm_dynzdf(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4621 4779 4622 4780 } … … 4633 4791 else 4634 4792 Yting[2]=YS1_sshn( Yi+1, Yj, YTemps-1); 4635 Yspguv_now_dynspg ->forward( Yting[0], Yting[1], Yting[2] );4793 Yspguv_now_dynspg(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 4636 4794 4637 4795 } … … 4643 4801 Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 4644 4802 Yting[2]=YS1_spguv_now_dynspg( Yi, Yj, YTemps); 4645 Yua_1_dynspg_flt ->forward( Yting[0], Yting[1], Yting[2] );4803 Yua_1_dynspg_flt(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4646 4804 Yting[0]=YS1_va_norm_dynzdf( Yi, Yj, Yk, YTemps); 4647 4805 Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 4648 4806 Yting[2]=YS2_spguv_now_dynspg( Yi, Yj, YTemps); 4649 Yva_1_dynspg_flt ->forward( Yting[0], Yting[1], Yting[2] );4807 Yva_1_dynspg_flt(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4650 4808 4651 4809 } … … 4684 4842 Yting[29]=YS1_ua_1_dynspg_flt( Yi, Yj, 29, YTemps); 4685 4843 Yting[30]=YS1_ua_1_dynspg_flt( Yi, Yj, 30, YTemps); 4686 Ysum_spgu_dynspg_flt ->forward();4844 Ysum_spgu_dynspg_flt(Yi, Yj)->forward(); 4687 4845 Yting[0]=YS1_va_1_dynspg_flt( Yi, Yj, 0, YTemps); 4688 4846 Yting[1]=YS1_va_1_dynspg_flt( Yi, Yj, 1, YTemps); … … 4716 4874 Yting[29]=YS1_va_1_dynspg_flt( Yi, Yj, 29, YTemps); 4717 4875 Yting[30]=YS1_va_1_dynspg_flt( Yi, Yj, 30, YTemps); 4718 Ysum_spgv_dynspg_flt ->forward();4876 Ysum_spgv_dynspg_flt(Yi, Yj)->forward(); 4719 4877 4720 4878 } … … 4732 4890 else 4733 4891 Yting[3]=YS1_sum_spgv_dynspg_flt( Yi, Yj-1, YTemps); 4734 Ygcb_dynspg_flt ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4892 Ygcb_dynspg_flt(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4735 4893 Yting[0]=YS1_gcx2( Yi, Yj, YTemps-1); 4736 4894 Yting[1]=YS1_gcx2( Yi, Yj, YTemps-2); 4737 Ygcx_dynspg_flt ->forward( Yting[0], Yting[1] );4895 Ygcx_dynspg_flt(Yi, Yj)->forward( Yting[0], Yting[1] ); 4738 4896 4739 4897 } … … 4752 4910 Yting[1]=YS1_gcx2( Yi, Yj, YTemps-2); 4753 4911 memset(Yjac, 0, 31*sizeof(double)); 4754 Ygcx_dynspg_flt ->backward( Yting[0], Yting[1] );4912 Ygcx_dynspg_flt(Yi, Yj)->backward( Yting[0], Yting[1] ); 4755 4913 Yvsmatt (YNBS_gcx_dynspg_flt, YNBI_gcx_dynspg_flt, YMAX_JAC_NBI, &YG1Y_gcx_dynspg_flt, Yjac[0], Ytbeta); 4756 4914 YG1_gcx2( Yi, Yj, YTemps-1) += Ytbeta[0]; … … 4767 4925 Yting[3]=YS1_sum_spgv_dynspg_flt( Yi, Yj-1, YTemps); 4768 4926 memset(Yjac, 0, 31*sizeof(double)); 4769 Ygcb_dynspg_flt ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );4927 Ygcb_dynspg_flt(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4770 4928 Yvsmatt (YNBS_gcb_dynspg_flt, YNBI_gcb_dynspg_flt, YMAX_JAC_NBI, &YG1Y_gcb_dynspg_flt, Yjac[0], Ytbeta); 4771 4929 YG1_sum_spgu_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[0]; … … 4814 4972 Yting[30]=YS1_va_1_dynspg_flt( Yi, Yj, 30, YTemps); 4815 4973 memset(Yjac, 0, 31*sizeof(double)); 4816 Ysum_spgv_dynspg_flt ->backward();4974 Ysum_spgv_dynspg_flt(Yi, Yj)->backward(); 4817 4975 Yvsmatt (YNBS_sum_spgv_dynspg_flt, YNBI_sum_spgv_dynspg_flt, YMAX_JAC_NBI, &YG1Y_sum_spgv_dynspg_flt, Yjac[0], Ytbeta); 4818 4976 YG1_va_1_dynspg_flt( Yi, Yj, 0, YTemps) += Ytbeta[0]; … … 4879 5037 Yting[30]=YS1_ua_1_dynspg_flt( Yi, Yj, 30, YTemps); 4880 5038 memset(Yjac, 0, 31*sizeof(double)); 4881 Ysum_spgu_dynspg_flt ->backward();5039 Ysum_spgu_dynspg_flt(Yi, Yj)->backward(); 4882 5040 Yvsmatt (YNBS_sum_spgu_dynspg_flt, YNBI_sum_spgu_dynspg_flt, YMAX_JAC_NBI, &YG1Y_sum_spgu_dynspg_flt, Yjac[0], Ytbeta); 4883 5041 YG1_ua_1_dynspg_flt( Yi, Yj, 0, YTemps) += Ytbeta[0]; … … 4922 5080 Yting[2]=YS2_spguv_now_dynspg( Yi, Yj, YTemps); 4923 5081 memset(Yjac, 0, 31*sizeof(double)); 4924 Yva_1_dynspg_flt ->backward( Yting[0], Yting[1], Yting[2] );5082 Yva_1_dynspg_flt(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 4925 5083 Yvsmatt (YNBS_va_1_dynspg_flt, YNBI_va_1_dynspg_flt, YMAX_JAC_NBI, &YG1Y_va_1_dynspg_flt, Yjac[0], Ytbeta); 4926 5084 YG1_va_norm_dynzdf( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 4931 5089 Yting[2]=YS1_spguv_now_dynspg( Yi, Yj, YTemps); 4932 5090 memset(Yjac, 0, 31*sizeof(double)); 4933 Yua_1_dynspg_flt ->backward( Yting[0], Yting[1], Yting[2] );5091 Yua_1_dynspg_flt(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 4934 5092 Yvsmatt (YNBS_ua_1_dynspg_flt, YNBI_ua_1_dynspg_flt, YMAX_JAC_NBI, &YG1Y_ua_1_dynspg_flt, Yjac[0], Ytbeta); 4935 5093 YG1_ua_norm_dynzdf( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 4951 5109 Yting[2]=YS1_sshn( Yi+1, Yj, YTemps-1); 4952 5110 memset(Yjac, 0, 62*sizeof(double)); 4953 Yspguv_now_dynspg ->backward( Yting[0], Yting[1], Yting[2] );5111 Yspguv_now_dynspg(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] ); 4954 5112 Yvsmatt (YNBS_spguv_now_dynspg, YNBI_spguv_now_dynspg, YMAX_JAC_NBI, &YG1Y_spguv_now_dynspg, Yjac[0], Ytbeta); 4955 5113 YG1_sshn( Yi, Yj, YTemps-1) += Ytbeta[0]; … … 4969 5127 Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 4970 5128 memset(Yjac, 0, 31*sizeof(double)); 4971 Yva_norm_dynzdf ->backward( Yting[0], Yting[1] );5129 Yva_norm_dynzdf(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 4972 5130 Yvsmatt (YNBS_va_norm_dynzdf, YNBI_va_norm_dynzdf, YMAX_JAC_NBI, &YG1Y_va_norm_dynzdf, Yjac[0], Ytbeta); 4973 5131 YG1_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 4976 5134 Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 4977 5135 memset(Yjac, 0, 31*sizeof(double)); 4978 Yua_norm_dynzdf ->backward( Yting[0], Yting[1] );5136 Yua_norm_dynzdf(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 4979 5137 Yvsmatt (YNBS_ua_norm_dynzdf, YNBI_ua_norm_dynzdf, YMAX_JAC_NBI, &YG1Y_ua_norm_dynzdf, Yjac[0], Ytbeta); 4980 5138 YG1_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 4994 5152 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4995 5153 memset(Yjac, 0, 31*sizeof(double)); 4996 Yva_dynzdf_imp ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5154 Yva_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4997 5155 Yvsmatt (YNBS_va_dynzdf_imp, YNBI_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_va_dynzdf_imp, Yjac[0], Ytbeta); 4998 5156 YG2_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5010 5168 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 5011 5169 memset(Yjac, 0, 31*sizeof(double)); 5012 Yua_dynzdf_imp ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5170 Yua_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5013 5171 Yvsmatt (YNBS_ua_dynzdf_imp, YNBI_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_ua_dynzdf_imp, Yjac[0], Ytbeta); 5014 5172 YG2_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5035 5193 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 5036 5194 memset(Yjac, 0, 31*sizeof(double)); 5037 Yva_de_dynzdf_imp ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5195 Yva_de_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5038 5196 Yvsmatt (YNBS_va_de_dynzdf_imp, YNBI_va_de_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_va_de_dynzdf_imp, Yjac[0], Ytbeta); 5039 5197 YG1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5056 5214 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 5057 5215 memset(Yjac, 0, 31*sizeof(double)); 5058 Yzwt_va_dynzdf_imp ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5216 Yzwt_va_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5059 5217 Yvsmatt (YNBS_zwt_va_dynzdf_imp, YNBI_zwt_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_va_dynzdf_imp, Yjac[0], Ytbeta); 5060 5218 YG1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5077 5235 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 5078 5236 memset(Yjac, 0, 31*sizeof(double)); 5079 Yua_de_dynzdf_imp ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5237 Yua_de_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5080 5238 Yvsmatt (YNBS_ua_de_dynzdf_imp, YNBI_ua_de_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_ua_de_dynzdf_imp, Yjac[0], Ytbeta); 5081 5239 YG1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5098 5256 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 5099 5257 memset(Yjac, 0, 31*sizeof(double)); 5100 Yzwt_ua_dynzdf_imp ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5258 Yzwt_ua_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5101 5259 Yvsmatt (YNBS_zwt_ua_dynzdf_imp, YNBI_zwt_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_ua_dynzdf_imp, Yjac[0], Ytbeta); 5102 5260 YG1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5118 5276 Yting[2]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 5119 5277 memset(Yjac, 0, 31*sizeof(double)); 5120 Yzrhs_va_dynzdf_imp ->backward( Yting[0], Yting[1], Yting[2] );5278 Yzrhs_va_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 5121 5279 Yvsmatt (YNBS_zrhs_va_dynzdf_imp, YNBI_zrhs_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_va_dynzdf_imp, Yjac[0], Ytbeta); 5122 5280 YG1_va_dyn_hpg_zco( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5127 5285 Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 5128 5286 memset(Yjac, 0, 31*sizeof(double)); 5129 Yzrhs_ua_dynzdf_imp ->backward( Yting[0], Yting[1], Yting[2] );5287 Yzrhs_ua_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 5130 5288 Yvsmatt (YNBS_zrhs_ua_dynzdf_imp, YNBI_zrhs_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_ua_dynzdf_imp, Yjac[0], Ytbeta); 5131 5289 YG1_ua_dyn_hpg_zco( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5138 5296 Yting[1]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 5139 5297 memset(Yjac, 0, 93*sizeof(double)); 5140 Yzwisd_va_dynzdf_imp ->backward( Yting[0], Yting[1] );5298 Yzwisd_va_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 5141 5299 Yvsmatt (YNBS_zwisd_va_dynzdf_imp, YNBI_zwisd_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_va_dynzdf_imp, Yjac[0], Ytbeta); 5142 5300 YG3_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5150 5308 Yting[1]=YS2_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 5151 5309 memset(Yjac, 0, 93*sizeof(double)); 5152 Yzwisd_ua_dynzdf_imp ->backward( Yting[0], Yting[1] );5310 Yzwisd_ua_dynzdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 5153 5311 Yvsmatt (YNBS_zwisd_ua_dynzdf_imp, YNBI_zwisd_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_ua_dynzdf_imp, Yjac[0], Ytbeta); 5154 5312 YG2_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5165 5323 Yting[1]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 5166 5324 memset(Yjac, 0, 31*sizeof(double)); 5167 Yva_dyn_hpg_zco ->backward( Yting[0], Yting[1] );5325 Yva_dyn_hpg_zco(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 5168 5326 Yvsmatt (YNBS_va_dyn_hpg_zco, YNBI_va_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_va_dyn_hpg_zco, Yjac[0], Ytbeta); 5169 5327 YG1_va_dyn_ldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5172 5330 Yting[1]=YS1_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 5173 5331 memset(Yjac, 0, 31*sizeof(double)); 5174 Yua_dyn_hpg_zco ->backward( Yting[0], Yting[1] );5332 Yua_dyn_hpg_zco(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 5175 5333 Yvsmatt (YNBS_ua_dyn_hpg_zco, YNBI_ua_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_ua_dyn_hpg_zco, Yjac[0], Ytbeta); 5176 5334 YG1_ua_dyn_ldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5206 5364 Yting[7]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk-1, YTemps); 5207 5365 memset(Yjac, 0, 62*sizeof(double)); 5208 Yzhpij_dyn_hpg_zco ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] );5366 Yzhpij_dyn_hpg_zco(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 5209 5367 Yvsmatt (YNBS_zhpij_dyn_hpg_zco, YNBI_zhpij_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_zhpij_dyn_hpg_zco, Yjac[0], Ytbeta); 5210 5368 if (1==0 || Yi+1>YA1_S3dt-1){} … … 5249 5407 Yting[4]=YS1_hdivn( Yi, Yj+1, Yk, YTemps-2); 5250 5408 memset(Yjac, 0, 31*sizeof(double)); 5251 Yva_dyn_ldf_lap ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5409 Yva_dyn_ldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5252 5410 Yvsmatt (YNBS_va_dyn_ldf_lap, YNBI_va_dyn_ldf_lap, YMAX_JAC_NBI, &YG1Y_va_dyn_ldf_lap, Yjac[0], Ytbeta); 5253 5411 YG1_va_vor_ene( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5272 5430 Yting[4]=YS1_hdivn( Yi+1, Yj, Yk, YTemps-2); 5273 5431 memset(Yjac, 0, 31*sizeof(double)); 5274 Yua_dyn_ldf_lap ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5432 Yua_dyn_ldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5275 5433 Yvsmatt (YNBS_ua_dyn_ldf_lap, YNBI_ua_dyn_ldf_lap, YMAX_JAC_NBI, &YG1Y_ua_dyn_ldf_lap, Yjac[0], Ytbeta); 5276 5434 YG1_ua_vor_ene( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5303 5461 Yting[6]=YS1_zwxyz_vor_ene( Yi, Yj+1, Yk, YTemps); 5304 5462 memset(Yjac, 0, 31*sizeof(double)); 5305 Yva_vor_ene ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );5463 Yva_vor_ene(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 5306 5464 Yvsmatt (YNBS_va_vor_ene, YNBI_va_vor_ene, YMAX_JAC_NBI, &YG1Y_va_vor_ene, Yjac[0], Ytbeta); 5307 5465 YG1_va_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5340 5498 Yting[6]=YS2_zwxyz_vor_ene( Yi+1, Yj, Yk, YTemps); 5341 5499 memset(Yjac, 0, 31*sizeof(double)); 5342 Yua_vor_ene ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );5500 Yua_vor_ene(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 5343 5501 Yvsmatt (YNBS_ua_vor_ene, YNBI_ua_vor_ene, YMAX_JAC_NBI, &YG1Y_ua_vor_ene, Yjac[0], Ytbeta); 5344 5502 YG1_ua_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5373 5531 Yting[3]=YS1_va( Yi+1, Yj, Yk, YTemps-1); 5374 5532 memset(Yjac, 0, 93*sizeof(double)); 5375 Yzwxyz_vor_ene ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5533 Yzwxyz_vor_ene(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5376 5534 Yvsmatt (YNBS_zwxyz_vor_ene, YNBI_zwxyz_vor_ene, YMAX_JAC_NBI, &YG1Y_zwxyz_vor_ene, Yjac[0], Ytbeta); 5377 5535 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 5398 5556 Yting[2]=YS1_zva_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 5399 5557 memset(Yjac, 0, 31*sizeof(double)); 5400 Yva_dynadv_cen2 ->backward( Yting[0], Yting[1], Yting[2] );5558 Yva_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 5401 5559 Yvsmatt (YNBS_va_dynadv_cen2, YNBI_va_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_va_dynadv_cen2, Yjac[0], Ytbeta); 5402 5560 YG2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5412 5570 Yting[2]=YS1_zua_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 5413 5571 memset(Yjac, 0, 31*sizeof(double)); 5414 Yua_dynadv_cen2 ->backward( Yting[0], Yting[1], Yting[2] );5572 Yua_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 5415 5573 Yvsmatt (YNBS_ua_dynadv_cen2, YNBI_ua_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_ua_dynadv_cen2, Yjac[0], Ytbeta); 5416 5574 YG1_zfuv_UW_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5445 5603 Yting[6]=YS1_va( Yi, Yj, Yk-1, YTemps-1); 5446 5604 memset(Yjac, 0, 62*sizeof(double)); 5447 Yzfuv_UW_dynadv_cen2 ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );5605 Yzfuv_UW_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 5448 5606 Yvsmatt (YNBS_zfuv_UW_dynadv_cen2, YNBI_zfuv_UW_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zfuv_UW_dynadv_cen2, Yjac[0], Ytbeta); 5449 5607 YG1_wa( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 5480 5638 Yting[3]=YS4_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 5481 5639 memset(Yjac, 0, 31*sizeof(double)); 5482 Yzva_dhmf_dynadv_cen2 ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5640 Yzva_dhmf_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5483 5641 Yvsmatt (YNBS_zva_dhmf_dynadv_cen2, YNBI_zva_dhmf_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zva_dhmf_dynadv_cen2, Yjac[0], Ytbeta); 5484 5642 YG3_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5501 5659 Yting[3]=YS2_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 5502 5660 memset(Yjac, 0, 31*sizeof(double)); 5503 Yzua_dhmf_dynadv_cen2 ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5661 Yzua_dhmf_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5504 5662 Yvsmatt (YNBS_zua_dhmf_dynadv_cen2, YNBI_zua_dhmf_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zua_dhmf_dynadv_cen2, Yjac[0], Ytbeta); 5505 5663 YG1_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5535 5693 Yting[5]=YS1_va( Yi, Yj+1, Yk, YTemps-1); 5536 5694 memset(Yjac, 0, 124*sizeof(double)); 5537 Yhmf_TF_dynadv_cen2 ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] );5695 Yhmf_TF_dynadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] ); 5538 5696 Yvsmatt (YNBS_hmf_TF_dynadv_cen2, YNBI_hmf_TF_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_hmf_TF_dynadv_cen2, Yjac[0], Ytbeta); 5539 5697 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 5561 5719 Yting[0]=YS1_rhd( Yi, Yj, Yk, YTemps); 5562 5720 memset(Yjac, 0, 31*sizeof(double)); 5563 Yrhop ->backward( Yting[0] );5721 Yrhop(Yi, Yj, Yk)->backward( Yting[0] ); 5564 5722 Yvsmatt (YNBS_rhop, YNBI_rhop, YMAX_JAC_NBI, &YG1Y_rhop, Yjac[0], Ytbeta); 5565 5723 YG1_rhd( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5567 5725 Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps); 5568 5726 memset(Yjac, 0, 31*sizeof(double)); 5569 Yrhd ->backward( Yting[0], Yting[1] );5727 Yrhd(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 5570 5728 Yvsmatt (YNBS_rhd, YNBI_rhd, YMAX_JAC_NBI, &YG1Y_rhd, Yjac[0], Ytbeta); 5571 5729 YG1_tb( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5582 5740 Yting[3]=YS1_sa_c( Yi, Yj, Yk); 5583 5741 memset(Yjac, 0, 31*sizeof(double)); 5584 Ysb ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5742 Ysb(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5585 5743 Yvsmatt (YNBS_sb, YNBI_sb, YMAX_JAC_NBI, &YG1Y_sb, Yjac[0], Ytbeta); 5586 5744 YG1_sb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 5593 5751 Yting[3]=YS1_ta_c( Yi, Yj, Yk); 5594 5752 memset(Yjac, 0, 31*sizeof(double)); 5595 Ytb ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5753 Ytb(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5596 5754 Yvsmatt (YNBS_tb, YNBI_tb, YMAX_JAC_NBI, &YG1Y_tb, Yjac[0], Ytbeta); 5597 5755 YG1_tb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 5614 5772 Yting[4]=YS1_sa_c( Yi, Yj, Yk); 5615 5773 memset(Yjac, 0, 31*sizeof(double)); 5616 Ysa ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5774 Ysa(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5617 5775 Yvsmatt (YNBS_sa, YNBI_sa, YMAX_JAC_NBI, &YG1Y_sa, Yjac[0], Ytbeta); 5618 5776 YG2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5632 5790 Yting[4]=YS1_ta_c( Yi, Yj, Yk); 5633 5791 memset(Yjac, 0, 31*sizeof(double)); 5634 Yta ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5792 Yta(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5635 5793 Yvsmatt (YNBS_ta, YNBI_ta, YMAX_JAC_NBI, &YG1Y_ta, Yjac[0], Ytbeta); 5636 5794 YG2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5658 5816 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 5659 5817 memset(Yjac, 0, 31*sizeof(double)); 5660 Ysa_de_trazdf_imp ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5818 Ysa_de_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5661 5819 Yvsmatt (YNBS_sa_de_trazdf_imp, YNBI_sa_de_trazdf_imp, YMAX_JAC_NBI, &YG1Y_sa_de_trazdf_imp, Yjac[0], Ytbeta); 5662 5820 YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5679 5837 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 5680 5838 memset(Yjac, 0, 31*sizeof(double)); 5681 Yta_de_trazdf_imp ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5839 Yta_de_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5682 5840 Yvsmatt (YNBS_ta_de_trazdf_imp, YNBI_ta_de_trazdf_imp, YMAX_JAC_NBI, &YG1Y_ta_de_trazdf_imp, Yjac[0], Ytbeta); 5683 5841 YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5700 5858 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 5701 5859 memset(Yjac, 0, 31*sizeof(double)); 5702 Yzwt_trazdf_imp ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5860 Yzwt_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5703 5861 Yvsmatt (YNBS_zwt_trazdf_imp, YNBI_zwt_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_trazdf_imp, Yjac[0], Ytbeta); 5704 5862 YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5719 5877 Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps-1); 5720 5878 memset(Yjac, 0, 31*sizeof(double)); 5721 Yzrhs_sa_trazdf_imp ->backward( Yting[0], Yting[1] );5879 Yzrhs_sa_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 5722 5880 Yvsmatt (YNBS_zrhs_sa_trazdf_imp, YNBI_zrhs_sa_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_sa_trazdf_imp, Yjac[0], Ytbeta); 5723 5881 YG1_sa_traldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5726 5884 Yting[1]=YS1_tb( Yi, Yj, Yk, YTemps-1); 5727 5885 memset(Yjac, 0, 31*sizeof(double)); 5728 Yzrhs_trazdf_imp ->backward( Yting[0], Yting[1] );5886 Yzrhs_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 5729 5887 Yvsmatt (YNBS_zrhs_trazdf_imp, YNBI_zrhs_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_trazdf_imp, Yjac[0], Ytbeta); 5730 5888 YG1_ta_traldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5736 5894 Yting[1]=YS1_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 5737 5895 memset(Yjac, 0, 93*sizeof(double)); 5738 Yzwisd_trazdf_imp ->backward( Yting[0], Yting[1] );5896 Yzwisd_trazdf_imp(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 5739 5897 Yvsmatt (YNBS_zwisd_trazdf_imp, YNBI_zwisd_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_trazdf_imp, Yjac[0], Ytbeta); 5740 5898 YG1_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5760 5918 Yting[4]=YS2_zsuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 5761 5919 memset(Yjac, 0, 31*sizeof(double)); 5762 Ysa_traldf_lap ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5920 Ysa_traldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5763 5921 Yvsmatt (YNBS_sa_traldf_lap, YNBI_sa_traldf_lap, YMAX_JAC_NBI, &YG1Y_sa_traldf_lap, Yjac[0], Ytbeta); 5764 5922 YG1_sa_ver_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5783 5941 Yting[4]=YS2_ztuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 5784 5942 memset(Yjac, 0, 31*sizeof(double)); 5785 Yta_traldf_lap ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5943 Yta_traldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5786 5944 Yvsmatt (YNBS_ta_traldf_lap, YNBI_ta_traldf_lap, YMAX_JAC_NBI, &YG1Y_ta_traldf_lap, Yjac[0], Ytbeta); 5787 5945 YG1_ta_ver_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5804 5962 Yting[2]=YS1_sb( Yi, Yj+1, Yk, YTemps-1); 5805 5963 memset(Yjac, 0, 62*sizeof(double)); 5806 Yzsuv_traldf_lap ->backward( Yting[0], Yting[1], Yting[2] );5964 Yzsuv_traldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 5807 5965 Yvsmatt (YNBS_zsuv_traldf_lap, YNBI_zsuv_traldf_lap, YMAX_JAC_NBI, &YG1Y_zsuv_traldf_lap, Yjac[0], Ytbeta); 5808 5966 YG1_sb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 5823 5981 Yting[2]=YS1_tb( Yi, Yj+1, Yk, YTemps-1); 5824 5982 memset(Yjac, 0, 62*sizeof(double)); 5825 Yztuv_traldf_lap ->backward( Yting[0], Yting[1], Yting[2] );5983 Yztuv_traldf_lap(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 5826 5984 Yvsmatt (YNBS_ztuv_traldf_lap, YNBI_ztuv_traldf_lap, YMAX_JAC_NBI, &YG1Y_ztuv_traldf_lap, Yjac[0], Ytbeta); 5827 5985 YG1_tb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 5845 6003 Yting[2]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 5846 6004 memset(Yjac, 0, 31*sizeof(double)); 5847 Ysa_ver_traadv_cen2 ->backward( Yting[0], Yting[1], Yting[2] );6005 Ysa_ver_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 5848 6006 Yvsmatt (YNBS_sa_ver_traadv_cen2, YNBI_sa_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_sa_ver_traadv_cen2, Yjac[0], Ytbeta); 5849 6007 YG1_sa_hor_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5859 6017 Yting[2]=YS1_zcent_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 5860 6018 memset(Yjac, 0, 31*sizeof(double)); 5861 Yta_ver_traadv_cen2 ->backward( Yting[0], Yting[1], Yting[2] );6019 Yta_ver_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 5862 6020 Yvsmatt (YNBS_ta_ver_traadv_cen2, YNBI_ta_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_ta_ver_traadv_cen2, Yjac[0], Ytbeta); 5863 6021 YG1_ta_hor_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5879 6037 Yting[2]=YS1_sa( Yi, Yj, Yk-1, YTemps-1); 5880 6038 memset(Yjac, 0, 31*sizeof(double)); 5881 Yzcens_ver_traadv_cen2 ->backward( Yting[0], Yting[1], Yting[2] );6039 Yzcens_ver_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 5882 6040 Yvsmatt (YNBS_zcens_ver_traadv_cen2, YNBI_zcens_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcens_ver_traadv_cen2, Yjac[0], Ytbeta); 5883 6041 YG1_wa( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 5893 6051 Yting[2]=YS1_ta( Yi, Yj, Yk-1, YTemps-1); 5894 6052 memset(Yjac, 0, 31*sizeof(double)); 5895 Yzcent_ver_traadv_cen2 ->backward( Yting[0], Yting[1], Yting[2] );6053 Yzcent_ver_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 5896 6054 Yvsmatt (YNBS_zcent_ver_traadv_cen2, YNBI_zcent_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcent_ver_traadv_cen2, Yjac[0], Ytbeta); 5897 6055 YG1_wa( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 5919 6077 Yting[4]=YS2_zcens_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 5920 6078 memset(Yjac, 0, 31*sizeof(double)); 5921 Ysa_hor_traadv_cen2 ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );6079 Ysa_hor_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5922 6080 Yvsmatt (YNBS_sa_hor_traadv_cen2, YNBI_sa_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_sa_hor_traadv_cen2, Yjac[0], Ytbeta); 5923 6081 YG2_ta_sa_trasbc( Yi, Yj, YTemps) += Ytbeta[0]; … … 5942 6100 Yting[4]=YS2_zcent_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 5943 6101 memset(Yjac, 0, 31*sizeof(double)); 5944 Yta_hor_traadv_cen2 ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );6102 Yta_hor_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5945 6103 Yvsmatt (YNBS_ta_hor_traadv_cen2, YNBI_ta_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_ta_hor_traadv_cen2, Yjac[0], Ytbeta); 5946 6104 YG1_ta_traqsr( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5970 6128 Yting[4]=YS1_sa( Yi+1, Yj, Yk, YTemps-1); 5971 6129 memset(Yjac, 0, 62*sizeof(double)); 5972 Yzcens_hor_traadv_cen2 ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );6130 Yzcens_hor_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5973 6131 Yvsmatt (YNBS_zcens_hor_traadv_cen2, YNBI_zcens_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcens_hor_traadv_cen2, Yjac[0], Ytbeta); 5974 6132 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 5993 6151 Yting[4]=YS1_ta( Yi+1, Yj, Yk, YTemps-1); 5994 6152 memset(Yjac, 0, 62*sizeof(double)); 5995 Yzcent_hor_traadv_cen2 ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );6153 Yzcent_hor_traadv_cen2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5996 6154 Yvsmatt (YNBS_zcent_hor_traadv_cen2, YNBI_zcent_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcent_hor_traadv_cen2, Yjac[0], Ytbeta); 5997 6155 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6015 6173 Yting[1]=YS1_ta_sa_trasbc( Yi, Yj, YTemps); 6016 6174 memset(Yjac, 0, 31*sizeof(double)); 6017 Yta_traqsr ->backward( Yting[0], Yting[1] );6175 Yta_traqsr(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 6018 6176 Yvsmatt (YNBS_ta_traqsr, YNBI_ta_traqsr, YMAX_JAC_NBI, &YG1Y_ta_traqsr, Yjac[0], Ytbeta); 6019 6177 YG1_sbcgyre_qsr_qns( Yi, Yj, YTemps) += Ytbeta[0]; … … 6028 6186 Yting[2]=YS1_sa( Yi, Yj, 0, YTemps-1); 6029 6187 memset(Yjac, 0, 62*sizeof(double)); 6030 Yta_sa_trasbc ->backward( Yting[0], Yting[1], Yting[2] );6188 Yta_sa_trasbc(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] ); 6031 6189 Yvsmatt (YNBS_ta_sa_trasbc, YNBI_ta_sa_trasbc, YMAX_JAC_NBI, &YG1Y_ta_sa_trasbc, Yjac[0], Ytbeta); 6032 6190 YG2_sbcgyre_qsr_qns( Yi, Yj, YTemps) += Ytbeta[0]; … … 6070 6228 Yting[30]=YS1_rhop( Yi, Yj, 30, YTemps-1); 6071 6229 memset(Yjac, 0, 93*sizeof(double)); 6072 Yzdfmxl_nmln_hmlp_hmlpt ->backward();6230 Yzdfmxl_nmln_hmlp_hmlpt(Yi, Yj)->backward(); 6073 6231 Yvsmatt (YNBS_zdfmxl_nmln_hmlp_hmlpt, YNBI_zdfmxl_nmln_hmlp_hmlpt, YMAX_JAC_NBI, &YG1Y_zdfmxl_nmln_hmlp_hmlpt, Yjac[0], Ytbeta); 6074 6232 YG1_rhop( Yi, Yj, 0, YTemps-1) += Ytbeta[0]; … … 6135 6293 Yting[30]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 30, YTemps); 6136 6294 memset(Yjac, 0, 31*sizeof(double)); 6137 Yzdfmxl_hmld ->backward();6295 Yzdfmxl_hmld(Yi, Yj)->backward(); 6138 6296 Yvsmatt (YNBS_zdfmxl_hmld, YNBI_zdfmxl_hmld, YMAX_JAC_NBI, &YG1Y_zdfmxl_hmld, Yjac[0], Ytbeta); 6139 6297 YG1_zdf_avt_avmu_avmv( Yi, Yj, 0, YTemps) += Ytbeta[0]; … … 6236 6394 Yting[18]=YS1_va( Yi+1, Yj, 1, YTemps-1); 6237 6395 memset(Yjac, 0, 93*sizeof(double)); 6238 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] );6396 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] ); 6239 6397 Yvsmatt (YNBS_zdf_avt_avmu_avmv, YNBI_zdf_avt_avmu_avmv, YMAX_JAC_NBI, &YG1Y_zdf_avt_avmu_avmv, Yjac[0], Ytbeta); 6240 6398 YG1_bn2_rn2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6302 6460 Yting[3]=YS1_sb( Yi, Yj, Yk-1, YTemps-1); 6303 6461 memset(Yjac, 0, 31*sizeof(double)); 6304 Ybn2_rn2 ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );6462 Ybn2_rn2(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6305 6463 Yvsmatt (YNBS_bn2_rn2, YNBI_bn2_rn2, YMAX_JAC_NBI, &YG1Y_bn2_rn2, Yjac[0], Ytbeta); 6306 6464 YG1_tb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6328 6486 Yting[3]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 6329 6487 memset(Yjac, 0, 31*sizeof(double)); 6330 Ysbcgyre_wndm ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );6488 Ysbcgyre_wndm(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6331 6489 Yvsmatt (YNBS_sbcgyre_wndm, YNBI_sbcgyre_wndm, YMAX_JAC_NBI, &YG1Y_sbcgyre_wndm, Yjac[0], Ytbeta); 6332 6490 if (1==0 || Yi-1<0){} … … 6338 6496 YG1_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[2]; 6339 6497 YG2_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[3]; 6340 Ysbcgyre_utau_vtau ->backward();6498 Ysbcgyre_utau_vtau(Yi, Yj)->backward(); 6341 6499 Yting[0]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 6342 6500 memset(Yjac, 0, 31*sizeof(double)); 6343 Ysbcgyre_emps ->backward( Yting[0] );6501 Ysbcgyre_emps(Yi, Yj)->backward( Yting[0] ); 6344 6502 Yvsmatt (YNBS_sbcgyre_emps, YNBI_sbcgyre_emps, YMAX_JAC_NBI, &YG1Y_sbcgyre_emps, Yjac[0], Ytbeta); 6345 6503 YG1_sbcgyre_emp( Yi, Yj, YTemps) += Ytbeta[0]; … … 6348 6506 Yting[2]=YS2_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 6349 6507 memset(Yjac, 0, 31*sizeof(double)); 6350 Ysbcgyre_emp ->backward( Yting[0], Yting[1], Yting[2] );6508 Ysbcgyre_emp(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] ); 6351 6509 Yvsmatt (YNBS_sbcgyre_emp, YNBI_sbcgyre_emp, YMAX_JAC_NBI, &YG1Y_sbcgyre_emp, Yjac[0], Ytbeta); 6352 6510 YG1_sbcgyre_emp1( Yi, Yj, YTemps) += Ytbeta[0]; … … 6376 6534 Yting[4]=YS1_sbcgyre_emp1( Yi, Yj, YTemps); 6377 6535 memset(Yjac, 0, 62*sizeof(double)); 6378 Ysbcgyre_zsumemp_zsurf ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );6536 Ysbcgyre_zsumemp_zsurf(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 6379 6537 Yvsmatt (YNBS_sbcgyre_zsumemp_zsurf, YNBI_sbcgyre_zsumemp_zsurf, YMAX_JAC_NBI, &YG1Y_sbcgyre_zsumemp_zsurf, Yjac[0], Ytbeta); 6380 6538 if (1==0 || Yi-1<0){} … … 6391 6549 YG2_sbcgyre_zsumemp_zsurf( 31, Yj-1, YTemps) += Ytbeta[3]; 6392 6550 YG1_sbcgyre_emp1( Yi, Yj, YTemps) += Ytbeta[4]; 6393 Ysbcgyre_emp1 ->backward();6551 Ysbcgyre_emp1(Yi, Yj)->backward(); 6394 6552 Yting[0]=YS1_tb( Yi, Yj, 0, YTemps-1); 6395 6553 memset(Yjac, 0, 62*sizeof(double)); 6396 Ysbcgyre_qsr_qns ->backward( Yting[0] );6554 Ysbcgyre_qsr_qns(Yi, Yj)->backward( Yting[0] ); 6397 6555 Yvsmatt (YNBS_sbcgyre_qsr_qns, YNBI_sbcgyre_qsr_qns, YMAX_JAC_NBI, &YG1Y_sbcgyre_qsr_qns, Yjac[0], Ytbeta); 6398 6556 YG1_tb( Yi, Yj, 0, YTemps-1) += Ytbeta[0]; … … 6438 6596 else 6439 6597 Yting[7]=YS2_solsor_flag( 31, 21, Yk-1, YTemps); 6440 Ysolsor_gx1_x_r ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] );6598 Ysolsor_gx1_x_r(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 6441 6599 6442 6600 } … … 6468 6626 Yting[7]=YS2_solsor_flag( 31, 21, Yk-1, YTemps); 6469 6627 Yting[8]=YS2_solsor_gx1_x_r( Yi, Yj, Yk, YTemps); 6470 Ysolsor_gx2_x_r ->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8] );6628 Ysolsor_gx2_x_r(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8] ); 6471 6629 6472 6630 } … … 6483 6641 else 6484 6642 Yting[2]=YS1_solsor_flag( Yi-1, 21, Yk, YTemps); 6485 if (1==0 || Yj-1<0 || Yk-1<0)6643 if (1==0 || Yj-1<0) 6486 6644 Yting[3]=0; 6487 6645 else 6488 Yting[3]=YS1_solsor_flag( Yi, Yj-1, Yk -1, YTemps);6489 Ysolsor_flag ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );6646 Yting[3]=YS1_solsor_flag( Yi, Yj-1, Yk, YTemps); 6647 Ysolsor_flag(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6490 6648 6491 6649 } … … 6514 6672 else 6515 6673 Yting[2]=YS1_solsor_flag( Yi-1, 21, Yk, YTemps); 6516 if (1==0 || Yj-1<0 || Yk-1<0)6674 if (1==0 || Yj-1<0) 6517 6675 Yting[3]=0; 6518 6676 else 6519 Yting[3]=YS1_solsor_flag( Yi, Yj-1, Yk -1, YTemps);6677 Yting[3]=YS1_solsor_flag( Yi, Yj-1, Yk, YTemps); 6520 6678 memset(Yjac, 0, 62*sizeof(double)); 6521 Ysolsor_flag ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );6679 Ysolsor_flag(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6522 6680 Yvsmatt (YNBS_solsor_flag, YNBI_solsor_flag, YMAX_JAC_NBI, &YG1Y_solsor_flag, Yjac[0], Ytbeta); 6523 6681 YG2_solsor_gx2_x_r( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6528 6686 else 6529 6687 YG1_solsor_flag( Yi-1, 21, Yk, YTemps) += Ytbeta[2]; 6530 if (1==0 || Yj-1<0 || Yk-1<0){}6531 else 6532 YG1_solsor_flag( Yi, Yj-1, Yk -1, YTemps) += Ytbeta[3];6688 if (1==0 || Yj-1<0){} 6689 else 6690 YG1_solsor_flag( Yi, Yj-1, Yk, YTemps) += Ytbeta[3]; 6533 6691 6534 6692 } … … 6561 6719 Yting[8]=YS2_solsor_gx1_x_r( Yi, Yj, Yk, YTemps); 6562 6720 memset(Yjac, 0, 62*sizeof(double)); 6563 Ysolsor_gx2_x_r ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8] );6721 Ysolsor_gx2_x_r(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8] ); 6564 6722 Yvsmatt (YNBS_solsor_gx2_x_r, YNBI_solsor_gx2_x_r, YMAX_JAC_NBI, &YG1Y_solsor_gx2_x_r, Yjac[0], Ytbeta); 6565 6723 YG1_gcx_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[0]; … … 6614 6772 Yting[7]=YS2_solsor_flag( 31, 21, Yk-1, YTemps); 6615 6773 memset(Yjac, 0, 62*sizeof(double)); 6616 Ysolsor_gx1_x_r ->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] );6774 Ysolsor_gx1_x_r(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 6617 6775 Yvsmatt (YNBS_solsor_gx1_x_r, YNBI_solsor_gx1_x_r, YMAX_JAC_NBI, &YG1Y_solsor_gx1_x_r, Yjac[0], Ytbeta); 6618 6776 YG1_gcx_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[0]; … … 6652 6810 { 6653 6811 Yting[0]=YS1_solsor_gx2_x_r( Yi, Yj, 30, YTemps); 6654 Ygcx2 ->forward( Yting[0] );6812 Ygcx2(Yi, Yj)->forward( Yting[0] ); 6655 6813 6656 6814 } … … 6667 6825 else 6668 6826 Yting[2]=YS1_gcx2( Yi, Yj+1, YTemps); 6669 Yspguv_dynspg_flt ->forward( Yting[0], Yting[1], Yting[2] );6827 Yspguv_dynspg_flt(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 6670 6828 6671 6829 } … … 6677 6835 Yting[1]=YS1_spguv_dynspg_flt( Yi, Yj, YTemps); 6678 6836 Yting[2]=YS1_ua_c( Yi, Yj, Yk); 6679 Yua ->forward( Yting[0], Yting[1], Yting[2] );6837 Yua(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 6680 6838 Yting[0]=YS1_va_1_dynspg_flt( Yi, Yj, Yk, YTemps); 6681 6839 Yting[1]=YS2_spguv_dynspg_flt( Yi, Yj, YTemps); 6682 6840 Yting[2]=YS1_va_c( Yi, Yj, Yk); 6683 Yva ->forward( Yting[0], Yting[1], Yting[2] );6841 Yva(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 6684 6842 6685 6843 } … … 6691 6849 Yting[2]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 6692 6850 Yting[3]=YS1_sshn_c( Yi, Yj); 6693 Ysshn ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );6851 Ysshn(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6694 6852 Yting[0]=YS1_sshb( Yi, Yj, YTemps-1); 6695 6853 Yting[1]=YS1_sshn( Yi, Yj, YTemps-1); 6696 6854 Yting[2]=YS1_sshn( Yi, Yj, YTemps); 6697 6855 Yting[3]=YS1_sshn_c( Yi, Yj); 6698 Ysshb ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );6856 Ysshb(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6699 6857 6700 6858 } … … 6707 6865 Yting[2]=YS1_ua( Yi, Yj, Yk, YTemps); 6708 6866 Yting[3]=YS1_ua_c( Yi, Yj, Yk); 6709 Yub ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );6867 Yub(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6710 6868 Yting[0]=YS1_vb( Yi, Yj, Yk, YTemps-1); 6711 6869 Yting[1]=YS1_va( Yi, Yj, Yk, YTemps-1); 6712 6870 Yting[2]=YS1_va( Yi, Yj, Yk, YTemps); 6713 6871 Yting[3]=YS1_va_c( Yi, Yj, Yk); 6714 Yvb ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );6872 Yvb(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6715 6873 6716 6874 } … … 6729 6887 else 6730 6888 Yting[3]=YS1_va( Yi, Yj-1, Yk, YTemps); 6731 Yhdivn ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );6889 Yhdivn(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6732 6890 if (1==0 || Yi+1>YA1_S3dt_b-1) 6733 6891 Yting[0]=0; … … 6740 6898 Yting[2]=YS1_ua( Yi, Yj+1, Yk, YTemps); 6741 6899 Yting[3]=YS1_ua( Yi, Yj, Yk, YTemps); 6742 Yrotn ->forward( Yting[0], Yting[1], Yting[2], Yting[3] );6900 Yrotn(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6743 6901 6744 6902 } … … 6752 6910 Yting[0]=YS1_wa( Yi, Yj, Yk+1, YTemps); 6753 6911 Yting[1]=YS1_hdivn( Yi, Yj, Yk, YTemps); 6754 Ywa ->forward( Yting[0], Yting[1] );6912 Ywa(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 6755 6913 6756 6914 } … … 6773 6931 Yting[1]=YS1_hdivn( Yi, Yj, Yk, YTemps); 6774 6932 memset(Yjac, 0, 31*sizeof(double)); 6775 Ywa ->backward( Yting[0], Yting[1] );6933 Ywa(Yi, Yj, Yk)->backward( Yting[0], Yting[1] ); 6776 6934 Yvsmatt (YNBS_wa, YNBI_wa, YMAX_JAC_NBI, &YG1Y_wa, Yjac[0], Ytbeta); 6777 6935 if (1==0 || Yk+1>YA3_S3dt_b-1){} … … 6796 6954 Yting[3]=YS1_ua( Yi, Yj, Yk, YTemps); 6797 6955 memset(Yjac, 0, 31*sizeof(double)); 6798 Yrotn ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );6956 Yrotn(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6799 6957 Yvsmatt (YNBS_rotn, YNBI_rotn, YMAX_JAC_NBI, &YG1Y_rotn, Yjac[0], Ytbeta); 6800 6958 if (1==0 || Yi+1>YA1_S3dt_b-1){} … … 6817 6975 Yting[3]=YS1_va( Yi, Yj-1, Yk, YTemps); 6818 6976 memset(Yjac, 0, 31*sizeof(double)); 6819 Yhdivn ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );6977 Yhdivn(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6820 6978 Yvsmatt (YNBS_hdivn, YNBI_hdivn, YMAX_JAC_NBI, &YG1Y_hdivn, Yjac[0], Ytbeta); 6821 6979 YG1_ua( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6838 6996 Yting[3]=YS1_va_c( Yi, Yj, Yk); 6839 6997 memset(Yjac, 0, 31*sizeof(double)); 6840 Yvb ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );6998 Yvb(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6841 6999 Yvsmatt (YNBS_vb, YNBI_vb, YMAX_JAC_NBI, &YG1Y_vb, Yjac[0], Ytbeta); 6842 7000 YG1_vb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6849 7007 Yting[3]=YS1_ua_c( Yi, Yj, Yk); 6850 7008 memset(Yjac, 0, 31*sizeof(double)); 6851 Yub ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );7009 Yub(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6852 7010 Yvsmatt (YNBS_ub, YNBI_ub, YMAX_JAC_NBI, &YG1Y_ub, Yjac[0], Ytbeta); 6853 7011 YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6865 7023 Yting[3]=YS1_sshn_c( Yi, Yj); 6866 7024 memset(Yjac, 0, 31*sizeof(double)); 6867 Ysshb ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );7025 Ysshb(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6868 7026 Yvsmatt (YNBS_sshb, YNBI_sshb, YMAX_JAC_NBI, &YG1Y_sshb, Yjac[0], Ytbeta); 6869 7027 YG1_sshb( Yi, Yj, YTemps-1) += Ytbeta[0]; … … 6876 7034 Yting[3]=YS1_sshn_c( Yi, Yj); 6877 7035 memset(Yjac, 0, 31*sizeof(double)); 6878 Ysshn ->backward( Yting[0], Yting[1], Yting[2], Yting[3] );7036 Ysshn(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6879 7037 Yvsmatt (YNBS_sshn, YNBI_sshn, YMAX_JAC_NBI, &YG1Y_sshn, Yjac[0], Ytbeta); 6880 7038 YG1_sshb( Yi, Yj, YTemps-1) += Ytbeta[0]; … … 6892 7050 Yting[2]=YS1_va_c( Yi, Yj, Yk); 6893 7051 memset(Yjac, 0, 31*sizeof(double)); 6894 Yva ->backward( Yting[0], Yting[1], Yting[2] );7052 Yva(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 6895 7053 Yvsmatt (YNBS_va, YNBI_va, YMAX_JAC_NBI, &YG1Y_va, Yjac[0], Ytbeta); 6896 7054 YG1_va_1_dynspg_flt( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6901 7059 Yting[2]=YS1_ua_c( Yi, Yj, Yk); 6902 7060 memset(Yjac, 0, 31*sizeof(double)); 6903 Yua ->backward( Yting[0], Yting[1], Yting[2] );7061 Yua(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] ); 6904 7062 Yvsmatt (YNBS_ua, YNBI_ua, YMAX_JAC_NBI, &YG1Y_ua, Yjac[0], Ytbeta); 6905 7063 YG1_ua_1_dynspg_flt( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6921 7079 Yting[2]=YS1_gcx2( Yi, Yj+1, YTemps); 6922 7080 memset(Yjac, 0, 62*sizeof(double)); 6923 Yspguv_dynspg_flt ->backward( Yting[0], Yting[1], Yting[2] );7081 Yspguv_dynspg_flt(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] ); 6924 7082 Yvsmatt (YNBS_spguv_dynspg_flt, YNBI_spguv_dynspg_flt, YMAX_JAC_NBI, &YG1Y_spguv_dynspg_flt, Yjac[0], Ytbeta); 6925 7083 if (1==0 || Yi+1>YA1_S3dt_b-1){} … … 6937 7095 Yting[0]=YS1_solsor_gx2_x_r( Yi, Yj, 30, YTemps); 6938 7096 memset(Yjac, 0, 31*sizeof(double)); 6939 Ygcx2 ->backward( Yting[0] );7097 Ygcx2(Yi, Yj)->backward( Yting[0] ); 6940 7098 Yvsmatt (YNBS_gcx2, YNBI_gcx2, YMAX_JAC_NBI, &YG1Y_gcx2, Yjac[0], Ytbeta); 6941 7099 YG1_solsor_gx2_x_r( Yi, Yj, 30, YTemps) += Ytbeta[0]; … … 6983 7141 } 6984 7142 6985 // ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵLES FONCTIONS UTILISATEUR ... :7143 // € € € € € € € € LES FONCTIONS UTILISATEUR ... : 6986 7144 int Yuser_call (int argc, char *argv[]) 6987 7145 { -
trunk/src/Yworkdir/Yaoext_sinobad
r45 r46 1 2 #----------------------------------------------------3 # project: sinobad header generated by YAO version v.94 #----------------------------------------------------5 6 1 #!/bin/sh 7 2 LDYEXTOBJ=" ../object/ncutil.o " -
trunk/src/sinobad.d
r45 r46 597 597 ctin solsor_flag 2 from solsor_flag 2 NX NY k-1 t 598 598 ctin solsor_flag 3 from solsor_flag 1 i-1 NY k t 599 ctin solsor_flag 4 from solsor_flag 1 i j-1 k -1t599 ctin solsor_flag 4 from solsor_flag 1 i j-1 k t 600 600 601 601 ctin solsor_gx1_x_r 1 from gcx_dynspg_flt 1 i j t -
trunk/src/solsor_dynspg_flt.h
r45 r46 23 23 //--------------------- 24 24 //initialisation de gcx 25 26 /*test solsor */ 27 if (Yt==TU+1) { 28 29 fid=fopen("../data_out/test_solsor_mb","w"); 30 } 31 32 25 33 for(jj=0;jj<NY;jj++) 26 34 for(ji=0;ji<NX;ji++){ … … 46 54 } 47 55 48 /*test solsor */ 49 if (Yt==TU+1) { 50 51 fid=fopen("../data_out/test_solsor_mb","w"); 52 } 53 56 54 57 double ztmp,zres,zres2,res=0.; 55 58 //--------------------- -
trunk/src/solsor_flag.h
r45 r46 20 20 //jn (current iteration) = Yk 21 21 22 if ( Yk<=nmin)22 if ( (Yk<=nmin) | (Yt==TU) ) 23 23 { 24 24 YS1=0; … … 26 26 } 27 27 else { 28 if (x2 == 1) {28 if (x2 == 1) { 29 29 YS1=0; //plus besoin d'avoir la valeur du max 30 30 YS2=1; … … 38 38 if (Yj==0) YS1= ((x3<x1) ? x1 : x3) ; //max(x1,x3) 39 39 else YS1 = ((x4<x1) ? x1 : x4) ; // max(x1,x4) 40 if ( ( (Yi==NX-1) & (Yj ==NX-1) ) & (YS1< resmax)) YS2=1; //moment de tester le maximum 40 if ( ( (Yi==NX-1) & (Yj ==NY-1) ) & (YS1< resmax)) 41 {YS2=1;} //moment de tester le maximum 41 42 else YS2=0; 42 43 } // Yi>0 || Yj>0 43 44 } //x2==0 44 } //Yk>kmin 45 // printf("%d\t%d\t%d\t%e\t%e\t%e\t%e\t\n",Yk,Yj,Yi,x1,x2,x3,x4); 46 if (Yt==TU+1) printf("%d\t%d\t%d\t%e\t%d\n",Yk,Yj,Yi,YS1,(int)YS2); 47 48 } //Yk>kmin 45 49 } 46 50 //===========================================================================
Note: See TracChangeset
for help on using the changeset viewer.