- Timestamp:
- 05/18/11 12:00:31 (13 years ago)
- Location:
- trunk/src
- Files:
-
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/Yworkdir/Y1sinobad.h
r46 r49 5 5 6 6 // DEFINE FOR PARALLELISM 7 #define NOT_PARALLEL 8 9 //€ € € € LES DECLARATIONS DE CLASS, DEFINE ET ALLOCATION DU PROJET 7 #define PARALLEL 8 #ifdef _OPENMP 9 #include <omp.h> 10 #else 11 #define omp_get_thread_num() 0 12 #define omp_get_num_threads() 1 13 #define omp_get_max_threads() 1 14 #endif 15 16 //ᅵ ᅵ ᅵ ᅵ LES DECLARATIONS DE CLASS, DEFINE ET ALLOCATION DU PROJET 10 17 #define NPCA 15 11 18 #define NX 32 … … 13 20 #define NZ 31 14 21 #define NMAX 800 15 #define TA 1022 #define TA 50 16 23 #define TU 2 17 24 #define Y3_M 8 … … 28 35 29 36 #define YNBUPTIME_Tsbd 2 30 #define YNBSTEPTIME_Tsbd 1031 #define YNBALLTIME_Tsbd 1237 #define YNBSTEPTIME_Tsbd 50 38 #define YNBALLTIME_Tsbd 52 32 39 #define YDt_Tsbd YTabTraj[1].dtime 33 40 #define Yid_Tsbd 1 … … 78 85 /*NBMOD */ #define YNB_sshn_c 704 79 86 /*NBSMOD */ #define YNBS_sshn_c 1 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]; 87 /*M2_VALSG */ #define Ystate_sshn_c(v, i, j) Ysshn_c->Ystate[i][j][v] 88 /*M2_VALSG */ #define YS_sshn_c(v, i, j) Ysshn_c->Ystate[i][j][v] 89 /*M2_VALSGI */ #define YS1_sshn_c(i, j) Ysshn_c->Ystate[i][j][0] 90 /*M2_HERESGI*/ #define YS1Y_sshn_c Ysshn_c->Ystate[Yi][Yj][0] 91 /*M2_VALSG */ #define Ygrad_sshn_c(v, i, j) Ysshn_c->Ygrad[i][j][v] 92 /*M2_VALSG */ #define YG_sshn_c(v, i, j) Ysshn_c->Ygrad[i][j][v] 93 /*M2_VALSGI */ #define YG1_sshn_c(i, j) Ysshn_c->Ygrad[i][j][0] 94 /*M2_HERESGI*/ #define YG1Y_sshn_c Ysshn_c->Ygrad[Yi][Yj][0] 95 Yaosshn_c *Ysshn_c; 91 96 92 97 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_c~~~~~~~~~~~~~~~~~~~~~~~~~ … … 98 103 class Yaota_c; 99 104 /*NBSMOD */ #define YNBS_ta_c 1 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] 105 /*M3_VALSG */ #define Ystate_ta_c(v, i, j, k) Yta_c->Ystate[i][j][k][v] 106 /*M3_VALSG */ #define YS_ta_c(v, i, j, k) Yta_c->Ystate[i][j][k][v] 107 /*M3_VALSGI */ #define YS1_ta_c(i, j, k) Yta_c->Ystate[i][j][k][0] 108 /*M3_HERESGI*/ #define YS1Y_ta_c Yta_c->Ystate[Yi][Yj][Yk][0] 109 /*M3_VALSG */ #define Ygrad_ta_c(v, i, j, k) Yta_c->Ygrad[i][j][k][v] 110 /*M3_VALSG */ #define YG_ta_c(v, i, j, k) Yta_c->Ygrad[i][j][k][v] 111 /*M3_VALSGI */ #define YG1_ta_c(i, j, k) Yta_c->Ygrad[i][j][k][0] 112 /*M3_HERESGI*/ #define YG1Y_ta_c Yta_c->Ygrad[Yi][Yj][Yk][0] 113 /*M3_VALSG */ #define Yepsi_ta_c(v, i, j, k) Yta_c->Yepsi[i][j][k][v] 114 /*M3_VALSG */ #define YE_ta_c(v, i, j, k) Yta_c->Yepsi[i][j][k][v] 115 /*M3_VALSGI */ #define YE1_ta_c(i, j, k) Yta_c->Yepsi[i][j][k][0] 116 Yaota_c *Yta_c; 117 /*M3_VALSG */ #define Ywish_ta_c(v, i, j, k) Yta_c->Ywish[i][j][k][v] 118 /*M3_VALSG */ #define YW_ta_c(v, i, j, k) Yta_c->Ywish[i][j][k][v] 119 /*M3_VALSGI */ #define YW1_ta_c(i, j, k) Yta_c->Ywish[i][j][k][0] 120 /*M3_HERESGI*/ #define YW1Y_ta_c Yta_c->Ywish[Yi][Yj][Yk][0] 118 121 119 122 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_c~~~~~~~~~~~~~~~~~~~~~~~~~ … … 122 125 class Yaosa_c; 123 126 /*NBSMOD */ #define YNBS_sa_c 1 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]; 127 /*M3_VALSG */ #define Ystate_sa_c(v, i, j, k) Ysa_c->Ystate[i][j][k][v] 128 /*M3_VALSG */ #define YS_sa_c(v, i, j, k) Ysa_c->Ystate[i][j][k][v] 129 /*M3_VALSGI */ #define YS1_sa_c(i, j, k) Ysa_c->Ystate[i][j][k][0] 130 /*M3_HERESGI*/ #define YS1Y_sa_c Ysa_c->Ystate[Yi][Yj][Yk][0] 131 /*M3_VALSG */ #define Ygrad_sa_c(v, i, j, k) Ysa_c->Ygrad[i][j][k][v] 132 /*M3_VALSG */ #define YG_sa_c(v, i, j, k) Ysa_c->Ygrad[i][j][k][v] 133 /*M3_VALSGI */ #define YG1_sa_c(i, j, k) Ysa_c->Ygrad[i][j][k][0] 134 /*M3_HERESGI*/ #define YG1Y_sa_c Ysa_c->Ygrad[Yi][Yj][Yk][0] 135 Yaosa_c *Ysa_c; 135 136 136 137 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_c~~~~~~~~~~~~~~~~~~~~~~~~~ … … 139 140 class Yaoua_c; 140 141 /*NBSMOD */ #define YNBS_ua_c 1 141 /*M3_IRMOD */ #define Yua_c(i, j, k) Yua_c[i][j][k] 142 /*M3_NOWMOD */ #define Yua_cY Yua_c[Yi][Yj][Yk] 143 /*M3_VALSG */ #define Ystate_ua_c(v, i, j, k) Yua_c[i][j][k]->Ystate[v] 144 /*M3_VALSG */ #define YS_ua_c(v, i, j, k) Yua_c[i][j][k]->Ystate[v] 145 /*M3_VALSGI */ #define YS1_ua_c(i, j, k) Yua_c[i][j][k]->Ystate[0] 146 /*M3_HERESGI*/ #define YS1Y_ua_c Yua_c[Yi][Yj][Yk]->Ystate[0] 147 /*M3_VALSG */ #define Ygrad_ua_c(v, i, j, k) Yua_c[i][j][k]->Ygrad[v] 148 /*M3_VALSG */ #define YG_ua_c(v, i, j, k) Yua_c[i][j][k]->Ygrad[v] 149 /*M3_VALSGI */ #define YG1_ua_c(i, j, k) Yua_c[i][j][k]->Ygrad[0] 150 /*M3_HERESGI*/ #define YG1Y_ua_c Yua_c[Yi][Yj][Yk]->Ygrad[0] 151 Yaoua_c *Yua_c[YA1_S3d][YA2_S3d][YA3_S3d]; 142 /*M3_VALSG */ #define Ystate_ua_c(v, i, j, k) Yua_c->Ystate[i][j][k][v] 143 /*M3_VALSG */ #define YS_ua_c(v, i, j, k) Yua_c->Ystate[i][j][k][v] 144 /*M3_VALSGI */ #define YS1_ua_c(i, j, k) Yua_c->Ystate[i][j][k][0] 145 /*M3_HERESGI*/ #define YS1Y_ua_c Yua_c->Ystate[Yi][Yj][Yk][0] 146 /*M3_VALSG */ #define Ygrad_ua_c(v, i, j, k) Yua_c->Ygrad[i][j][k][v] 147 /*M3_VALSG */ #define YG_ua_c(v, i, j, k) Yua_c->Ygrad[i][j][k][v] 148 /*M3_VALSGI */ #define YG1_ua_c(i, j, k) Yua_c->Ygrad[i][j][k][0] 149 /*M3_HERESGI*/ #define YG1Y_ua_c Yua_c->Ygrad[Yi][Yj][Yk][0] 150 Yaoua_c *Yua_c; 152 151 153 152 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_c~~~~~~~~~~~~~~~~~~~~~~~~~ … … 156 155 class Yaova_c; 157 156 /*NBSMOD */ #define YNBS_va_c 1 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]; 157 /*M3_VALSG */ #define Ystate_va_c(v, i, j, k) Yva_c->Ystate[i][j][k][v] 158 /*M3_VALSG */ #define YS_va_c(v, i, j, k) Yva_c->Ystate[i][j][k][v] 159 /*M3_VALSGI */ #define YS1_va_c(i, j, k) Yva_c->Ystate[i][j][k][0] 160 /*M3_HERESGI*/ #define YS1Y_va_c Yva_c->Ystate[Yi][Yj][Yk][0] 161 /*M3_VALSG */ #define Ygrad_va_c(v, i, j, k) Yva_c->Ygrad[i][j][k][v] 162 /*M3_VALSG */ #define YG_va_c(v, i, j, k) Yva_c->Ygrad[i][j][k][v] 163 /*M3_VALSGI */ #define YG1_va_c(i, j, k) Yva_c->Ygrad[i][j][k][0] 164 /*M3_HERESGI*/ #define YG1Y_va_c Yva_c->Ygrad[Yi][Yj][Yk][0] 165 Yaova_c *Yva_c; 169 166 170 167 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_qsr_qns~~~~~~~~~~~~~~~~~~~~~~~~~ … … 176 173 /*NBSMOD */ #define YNBS_sbcgyre_qsr_qns 2 177 174 /*NBIMOD */ #define YNBI_sbcgyre_qsr_qns 1 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]; 175 /*M2_VALST */ #define Ystate_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns->Ystate[t][i][j][v] 176 /*M2_VALST */ #define YS_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns->Ystate[t][i][j][v] 177 /*M2_VALSIT */ #define YS1_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns->Ystate[t][i][j][0] 178 /*M2_HERESIT*/ #define YS1Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns->Ystate[YTemps][Yi][Yj][0] 179 /*M2_VALSIT */ #define YS2_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns->Ystate[t][i][j][1] 180 /*M2_HERESIT*/ #define YS2Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns->Ystate[YTemps][Yi][Yj][1] 181 /*M2_VALST */ #define Ygrad_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns->Ygrad[t][i][j][v] 182 /*M2_VALST */ #define YG_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns->Ygrad[t][i][j][v] 183 /*M2_VALSIT */ #define YG1_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns->Ygrad[t][i][j][0] 184 /*M2_HERESIT*/ #define YG1Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns->Ygrad[YTemps][Yi][Yj][0] 185 /*M2_VALSIT */ #define YG2_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns->Ygrad[t][i][j][1] 186 /*M2_HERESIT*/ #define YG2Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns->Ygrad[YTemps][Yi][Yj][1] 187 sbcgyre_qsr_qns *Ysbcgyre_qsr_qns; 193 188 194 189 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emp1~~~~~~~~~~~~~~~~~~~~~~~~~ … … 199 194 /*NBMOD */ #define YNB_sbcgyre_emp1 704 200 195 /*NBSMOD */ #define YNBS_sbcgyre_emp1 1 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]; 196 /*M2_VALST */ #define Ystate_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1->Ystate[t][i][j][v] 197 /*M2_VALST */ #define YS_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1->Ystate[t][i][j][v] 198 /*M2_VALSIT */ #define YS1_sbcgyre_emp1(i, j, t) Ysbcgyre_emp1->Ystate[t][i][j][0] 199 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emp1 Ysbcgyre_emp1->Ystate[YTemps][Yi][Yj][0] 200 /*M2_VALST */ #define Ygrad_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1->Ygrad[t][i][j][v] 201 /*M2_VALST */ #define YG_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1->Ygrad[t][i][j][v] 202 /*M2_VALSIT */ #define YG1_sbcgyre_emp1(i, j, t) Ysbcgyre_emp1->Ygrad[t][i][j][0] 203 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emp1 Ysbcgyre_emp1->Ygrad[YTemps][Yi][Yj][0] 204 sbcgyre_emp1 *Ysbcgyre_emp1; 212 205 213 206 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_zsumemp_zsurf~~~~~~~~~~~~~~~~~~~~~~~~~ … … 219 212 /*NBSMOD */ #define YNBS_sbcgyre_zsumemp_zsurf 2 220 213 /*NBIMOD */ #define YNBI_sbcgyre_zsumemp_zsurf 5 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]; 214 /*M2_VALST */ #define Ystate_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][v] 215 /*M2_VALST */ #define YS_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][v] 216 /*M2_VALSIT */ #define YS1_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][0] 217 /*M2_HERESIT*/ #define YS1Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf->Ystate[YTemps][Yi][Yj][0] 218 /*M2_VALSIT */ #define YS2_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][1] 219 /*M2_HERESIT*/ #define YS2Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf->Ystate[YTemps][Yi][Yj][1] 220 /*M2_VALST */ #define Ygrad_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][v] 221 /*M2_VALST */ #define YG_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][v] 222 /*M2_VALSIT */ #define YG1_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][0] 223 /*M2_HERESIT*/ #define YG1Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf->Ygrad[YTemps][Yi][Yj][0] 224 /*M2_VALSIT */ #define YG2_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][1] 225 /*M2_HERESIT*/ #define YG2Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf->Ygrad[YTemps][Yi][Yj][1] 226 sbcgyre_zsumemp_zsurf *Ysbcgyre_zsumemp_zsurf; 236 227 237 228 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 243 234 /*NBSMOD */ #define YNBS_sbcgyre_emp 1 244 235 /*NBIMOD */ #define YNBI_sbcgyre_emp 3 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]; 236 /*M2_VALST */ #define Ystate_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp->Ystate[t][i][j][v] 237 /*M2_VALST */ #define YS_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp->Ystate[t][i][j][v] 238 /*M2_VALSIT */ #define YS1_sbcgyre_emp(i, j, t) Ysbcgyre_emp->Ystate[t][i][j][0] 239 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emp Ysbcgyre_emp->Ystate[YTemps][Yi][Yj][0] 240 /*M2_VALST */ #define Ygrad_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp->Ygrad[t][i][j][v] 241 /*M2_VALST */ #define YG_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp->Ygrad[t][i][j][v] 242 /*M2_VALSIT */ #define YG1_sbcgyre_emp(i, j, t) Ysbcgyre_emp->Ygrad[t][i][j][0] 243 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emp Ysbcgyre_emp->Ygrad[YTemps][Yi][Yj][0] 244 sbcgyre_emp *Ysbcgyre_emp; 256 245 257 246 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emps~~~~~~~~~~~~~~~~~~~~~~~~~ … … 263 252 /*NBSMOD */ #define YNBS_sbcgyre_emps 1 264 253 /*NBIMOD */ #define YNBI_sbcgyre_emps 1 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]; 254 /*M2_VALST */ #define Ystate_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps->Ystate[t][i][j][v] 255 /*M2_VALST */ #define YS_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps->Ystate[t][i][j][v] 256 /*M2_VALSIT */ #define YS1_sbcgyre_emps(i, j, t) Ysbcgyre_emps->Ystate[t][i][j][0] 257 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emps Ysbcgyre_emps->Ystate[YTemps][Yi][Yj][0] 258 /*M2_VALST */ #define Ygrad_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps->Ygrad[t][i][j][v] 259 /*M2_VALST */ #define YG_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps->Ygrad[t][i][j][v] 260 /*M2_VALSIT */ #define YG1_sbcgyre_emps(i, j, t) Ysbcgyre_emps->Ygrad[t][i][j][0] 261 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emps Ysbcgyre_emps->Ygrad[YTemps][Yi][Yj][0] 262 sbcgyre_emps *Ysbcgyre_emps; 276 263 277 264 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_utau_vtau~~~~~~~~~~~~~~~~~~~~~~~~~ … … 282 269 /*NBMOD */ #define YNB_sbcgyre_utau_vtau 704 283 270 /*NBSMOD */ #define YNBS_sbcgyre_utau_vtau 2 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]; 271 /*M2_VALST */ #define Ystate_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau->Ystate[t][i][j][v] 272 /*M2_VALST */ #define YS_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau->Ystate[t][i][j][v] 273 /*M2_VALSIT */ #define YS1_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau->Ystate[t][i][j][0] 274 /*M2_HERESIT*/ #define YS1Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau->Ystate[YTemps][Yi][Yj][0] 275 /*M2_VALSIT */ #define YS2_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau->Ystate[t][i][j][1] 276 /*M2_HERESIT*/ #define YS2Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau->Ystate[YTemps][Yi][Yj][1] 277 /*M2_VALST */ #define Ygrad_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau->Ygrad[t][i][j][v] 278 /*M2_VALST */ #define YG_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau->Ygrad[t][i][j][v] 279 /*M2_VALSIT */ #define YG1_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau->Ygrad[t][i][j][0] 280 /*M2_HERESIT*/ #define YG1Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau->Ygrad[YTemps][Yi][Yj][0] 281 /*M2_VALSIT */ #define YG2_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau->Ygrad[t][i][j][1] 282 /*M2_HERESIT*/ #define YG2Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau->Ygrad[YTemps][Yi][Yj][1] 283 sbcgyre_utau_vtau *Ysbcgyre_utau_vtau; 299 284 300 285 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_wndm~~~~~~~~~~~~~~~~~~~~~~~~~ … … 306 291 /*NBSMOD */ #define YNBS_sbcgyre_wndm 1 307 292 /*NBIMOD */ #define YNBI_sbcgyre_wndm 4 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]; 293 /*M2_VALST */ #define Ystate_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm->Ystate[t][i][j][v] 294 /*M2_VALST */ #define YS_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm->Ystate[t][i][j][v] 295 /*M2_VALSIT */ #define YS1_sbcgyre_wndm(i, j, t) Ysbcgyre_wndm->Ystate[t][i][j][0] 296 /*M2_HERESIT*/ #define YS1Y_sbcgyre_wndm Ysbcgyre_wndm->Ystate[YTemps][Yi][Yj][0] 297 /*M2_VALST */ #define Ygrad_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm->Ygrad[t][i][j][v] 298 /*M2_VALST */ #define YG_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm->Ygrad[t][i][j][v] 299 /*M2_VALSIT */ #define YG1_sbcgyre_wndm(i, j, t) Ysbcgyre_wndm->Ygrad[t][i][j][0] 300 /*M2_HERESIT*/ #define YG1Y_sbcgyre_wndm Ysbcgyre_wndm->Ygrad[YTemps][Yi][Yj][0] 301 sbcgyre_wndm *Ysbcgyre_wndm; 319 302 320 303 //~~~~~~~~~~~~~~~~~~~~~~~~~ module bn2_rn2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 325 308 /*NBSMOD */ #define YNBS_bn2_rn2 1 326 309 /*NBIMOD */ #define YNBI_bn2_rn2 4 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]; 310 /*M3_VALST */ #define Ystate_bn2_rn2(v, i, j, k, t) Ybn2_rn2->Ystate[t][i][j][k][v] 311 /*M3_VALST */ #define YS_bn2_rn2(v, i, j, k, t) Ybn2_rn2->Ystate[t][i][j][k][v] 312 /*M3_VALSIT */ #define YS1_bn2_rn2(i, j, k, t) Ybn2_rn2->Ystate[t][i][j][k][0] 313 /*M3_HERESIT*/ #define YS1Y_bn2_rn2 Ybn2_rn2->Ystate[YTemps][Yi][Yj][Yk][0] 314 /*M3_VALST */ #define Ygrad_bn2_rn2(v, i, j, k, t) Ybn2_rn2->Ygrad[t][i][j][k][v] 315 /*M3_VALST */ #define YG_bn2_rn2(v, i, j, k, t) Ybn2_rn2->Ygrad[t][i][j][k][v] 316 /*M3_VALSIT */ #define YG1_bn2_rn2(i, j, k, t) Ybn2_rn2->Ygrad[t][i][j][k][0] 317 /*M3_HERESIT*/ #define YG1Y_bn2_rn2 Ybn2_rn2->Ygrad[YTemps][Yi][Yj][Yk][0] 318 bn2_rn2 *Ybn2_rn2; 338 319 339 320 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zdf_avt_avmu_avmv~~~~~~~~~~~~~~~~~~~~~~~~~ … … 344 325 /*NBSMOD */ #define YNBS_zdf_avt_avmu_avmv 3 345 326 /*NBIMOD */ #define YNBI_zdf_avt_avmu_avmv 19 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]; 327 /*M3_VALST */ #define Ystate_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][v] 328 /*M3_VALST */ #define YS_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][v] 329 /*M3_VALSIT */ #define YS1_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][0] 330 /*M3_HERESIT*/ #define YS1Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ystate[YTemps][Yi][Yj][Yk][0] 331 /*M3_VALSIT */ #define YS2_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][1] 332 /*M3_HERESIT*/ #define YS2Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ystate[YTemps][Yi][Yj][Yk][1] 333 /*M3_VALSIT */ #define YS3_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][2] 334 /*M3_HERESIT*/ #define YS3Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ystate[YTemps][Yi][Yj][Yk][2] 335 /*M3_VALST */ #define Ygrad_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][v] 336 /*M3_VALST */ #define YG_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][v] 337 /*M3_VALSIT */ #define YG1_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][0] 338 /*M3_HERESIT*/ #define YG1Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ygrad[YTemps][Yi][Yj][Yk][0] 339 /*M3_VALSIT */ #define YG2_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][1] 340 /*M3_HERESIT*/ #define YG2Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ygrad[YTemps][Yi][Yj][Yk][1] 341 /*M3_VALSIT */ #define YG3_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][2] 342 /*M3_HERESIT*/ #define YG3Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ygrad[YTemps][Yi][Yj][Yk][2] 343 zdf_avt_avmu_avmv *Yzdf_avt_avmu_avmv; 365 344 366 345 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zdfmxl_hmld~~~~~~~~~~~~~~~~~~~~~~~~~ … … 372 351 /*NBSMOD */ #define YNBS_zdfmxl_hmld 1 373 352 /*NBIMOD */ #define YNBI_zdfmxl_hmld 31 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]; 353 /*M2_VALST */ #define Ystate_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld->Ystate[t][i][j][v] 354 /*M2_VALST */ #define YS_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld->Ystate[t][i][j][v] 355 /*M2_VALSIT */ #define YS1_zdfmxl_hmld(i, j, t) Yzdfmxl_hmld->Ystate[t][i][j][0] 356 /*M2_HERESIT*/ #define YS1Y_zdfmxl_hmld Yzdfmxl_hmld->Ystate[YTemps][Yi][Yj][0] 357 /*M2_VALST */ #define Ygrad_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld->Ygrad[t][i][j][v] 358 /*M2_VALST */ #define YG_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld->Ygrad[t][i][j][v] 359 /*M2_VALSIT */ #define YG1_zdfmxl_hmld(i, j, t) Yzdfmxl_hmld->Ygrad[t][i][j][0] 360 /*M2_HERESIT*/ #define YG1Y_zdfmxl_hmld Yzdfmxl_hmld->Ygrad[YTemps][Yi][Yj][0] 361 zdfmxl_hmld *Yzdfmxl_hmld; 385 362 386 363 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zdfmxl_nmln_hmlp_hmlpt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 392 369 /*NBSMOD */ #define YNBS_zdfmxl_nmln_hmlp_hmlpt 3 393 370 /*NBIMOD */ #define YNBI_zdfmxl_nmln_hmlp_hmlpt 31 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]; 371 /*M2_VALST */ #define Ystate_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][v] 372 /*M2_VALST */ #define YS_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][v] 373 /*M2_VALSIT */ #define YS1_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][0] 374 /*M2_HERESIT*/ #define YS1Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ystate[YTemps][Yi][Yj][0] 375 /*M2_VALSIT */ #define YS2_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][1] 376 /*M2_HERESIT*/ #define YS2Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ystate[YTemps][Yi][Yj][1] 377 /*M2_VALSIT */ #define YS3_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][2] 378 /*M2_HERESIT*/ #define YS3Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ystate[YTemps][Yi][Yj][2] 379 /*M2_VALST */ #define Ygrad_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][v] 380 /*M2_VALST */ #define YG_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][v] 381 /*M2_VALSIT */ #define YG1_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][0] 382 /*M2_HERESIT*/ #define YG1Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[YTemps][Yi][Yj][0] 383 /*M2_VALSIT */ #define YG2_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][1] 384 /*M2_HERESIT*/ #define YG2Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[YTemps][Yi][Yj][1] 385 /*M2_VALSIT */ #define YG3_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][2] 386 /*M2_HERESIT*/ #define YG3Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[YTemps][Yi][Yj][2] 387 zdfmxl_nmln_hmlp_hmlpt *Yzdfmxl_nmln_hmlp_hmlpt; 413 388 414 389 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_sa_trasbc~~~~~~~~~~~~~~~~~~~~~~~~~ … … 420 395 /*NBSMOD */ #define YNBS_ta_sa_trasbc 2 421 396 /*NBIMOD */ #define YNBI_ta_sa_trasbc 3 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]; 397 /*M2_VALST */ #define Ystate_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc->Ystate[t][i][j][v] 398 /*M2_VALST */ #define YS_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc->Ystate[t][i][j][v] 399 /*M2_VALSIT */ #define YS1_ta_sa_trasbc(i, j, t) Yta_sa_trasbc->Ystate[t][i][j][0] 400 /*M2_HERESIT*/ #define YS1Y_ta_sa_trasbc Yta_sa_trasbc->Ystate[YTemps][Yi][Yj][0] 401 /*M2_VALSIT */ #define YS2_ta_sa_trasbc(i, j, t) Yta_sa_trasbc->Ystate[t][i][j][1] 402 /*M2_HERESIT*/ #define YS2Y_ta_sa_trasbc Yta_sa_trasbc->Ystate[YTemps][Yi][Yj][1] 403 /*M2_VALST */ #define Ygrad_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc->Ygrad[t][i][j][v] 404 /*M2_VALST */ #define YG_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc->Ygrad[t][i][j][v] 405 /*M2_VALSIT */ #define YG1_ta_sa_trasbc(i, j, t) Yta_sa_trasbc->Ygrad[t][i][j][0] 406 /*M2_HERESIT*/ #define YG1Y_ta_sa_trasbc Yta_sa_trasbc->Ygrad[YTemps][Yi][Yj][0] 407 /*M2_VALSIT */ #define YG2_ta_sa_trasbc(i, j, t) Yta_sa_trasbc->Ygrad[t][i][j][1] 408 /*M2_HERESIT*/ #define YG2Y_ta_sa_trasbc Yta_sa_trasbc->Ygrad[YTemps][Yi][Yj][1] 409 ta_sa_trasbc *Yta_sa_trasbc; 437 410 438 411 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_traqsr~~~~~~~~~~~~~~~~~~~~~~~~~ … … 443 416 /*NBSMOD */ #define YNBS_ta_traqsr 1 444 417 /*NBIMOD */ #define YNBI_ta_traqsr 2 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]; 418 /*M3_VALST */ #define Ystate_ta_traqsr(v, i, j, k, t) Yta_traqsr->Ystate[t][i][j][k][v] 419 /*M3_VALST */ #define YS_ta_traqsr(v, i, j, k, t) Yta_traqsr->Ystate[t][i][j][k][v] 420 /*M3_VALSIT */ #define YS1_ta_traqsr(i, j, k, t) Yta_traqsr->Ystate[t][i][j][k][0] 421 /*M3_HERESIT*/ #define YS1Y_ta_traqsr Yta_traqsr->Ystate[YTemps][Yi][Yj][Yk][0] 422 /*M3_VALST */ #define Ygrad_ta_traqsr(v, i, j, k, t) Yta_traqsr->Ygrad[t][i][j][k][v] 423 /*M3_VALST */ #define YG_ta_traqsr(v, i, j, k, t) Yta_traqsr->Ygrad[t][i][j][k][v] 424 /*M3_VALSIT */ #define YG1_ta_traqsr(i, j, k, t) Yta_traqsr->Ygrad[t][i][j][k][0] 425 /*M3_HERESIT*/ #define YG1Y_ta_traqsr Yta_traqsr->Ygrad[YTemps][Yi][Yj][Yk][0] 426 ta_traqsr *Yta_traqsr; 456 427 457 428 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zcent_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 462 433 /*NBSMOD */ #define YNBS_zcent_hor_traadv_cen2 2 463 434 /*NBIMOD */ #define YNBI_zcent_hor_traadv_cen2 5 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]; 435 /*M3_VALST */ #define Ystate_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][v] 436 /*M3_VALST */ #define YS_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][v] 437 /*M3_VALSIT */ #define YS1_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][0] 438 /*M3_HERESIT*/ #define YS1Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 439 /*M3_VALSIT */ #define YS2_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][1] 440 /*M3_HERESIT*/ #define YS2Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1] 441 /*M3_VALST */ #define Ygrad_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][v] 442 /*M3_VALST */ #define YG_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][v] 443 /*M3_VALSIT */ #define YG1_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][0] 444 /*M3_HERESIT*/ #define YG1Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 445 /*M3_VALSIT */ #define YG2_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][1] 446 /*M3_HERESIT*/ #define YG2Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1] 447 zcent_hor_traadv_cen2 *Yzcent_hor_traadv_cen2; 479 448 480 449 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zcens_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 483 452 /*NBSMOD */ #define YNBS_zcens_hor_traadv_cen2 2 484 453 /*NBIMOD */ #define YNBI_zcens_hor_traadv_cen2 5 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]; 454 /*M3_VALST */ #define Ystate_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][v] 455 /*M3_VALST */ #define YS_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][v] 456 /*M3_VALSIT */ #define YS1_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][0] 457 /*M3_HERESIT*/ #define YS1Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 458 /*M3_VALSIT */ #define YS2_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][1] 459 /*M3_HERESIT*/ #define YS2Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1] 460 /*M3_VALST */ #define Ygrad_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][v] 461 /*M3_VALST */ #define YG_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][v] 462 /*M3_VALSIT */ #define YG1_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][0] 463 /*M3_HERESIT*/ #define YG1Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 464 /*M3_VALSIT */ #define YG2_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][1] 465 /*M3_HERESIT*/ #define YG2Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1] 466 zcens_hor_traadv_cen2 *Yzcens_hor_traadv_cen2; 500 467 501 468 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 506 473 /*NBSMOD */ #define YNBS_ta_hor_traadv_cen2 1 507 474 /*NBIMOD */ #define YNBI_ta_hor_traadv_cen2 5 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]; 475 /*M3_VALST */ #define Ystate_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2->Ystate[t][i][j][k][v] 476 /*M3_VALST */ #define YS_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2->Ystate[t][i][j][k][v] 477 /*M3_VALSIT */ #define YS1_ta_hor_traadv_cen2(i, j, k, t) Yta_hor_traadv_cen2->Ystate[t][i][j][k][0] 478 /*M3_HERESIT*/ #define YS1Y_ta_hor_traadv_cen2 Yta_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 479 /*M3_VALST */ #define Ygrad_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2->Ygrad[t][i][j][k][v] 480 /*M3_VALST */ #define YG_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2->Ygrad[t][i][j][k][v] 481 /*M3_VALSIT */ #define YG1_ta_hor_traadv_cen2(i, j, k, t) Yta_hor_traadv_cen2->Ygrad[t][i][j][k][0] 482 /*M3_HERESIT*/ #define YG1Y_ta_hor_traadv_cen2 Yta_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 483 ta_hor_traadv_cen2 *Yta_hor_traadv_cen2; 519 484 520 485 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 525 490 /*NBSMOD */ #define YNBS_sa_hor_traadv_cen2 1 526 491 /*NBIMOD */ #define YNBI_sa_hor_traadv_cen2 5 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]; 492 /*M3_VALST */ #define Ystate_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2->Ystate[t][i][j][k][v] 493 /*M3_VALST */ #define YS_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2->Ystate[t][i][j][k][v] 494 /*M3_VALSIT */ #define YS1_sa_hor_traadv_cen2(i, j, k, t) Ysa_hor_traadv_cen2->Ystate[t][i][j][k][0] 495 /*M3_HERESIT*/ #define YS1Y_sa_hor_traadv_cen2 Ysa_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 496 /*M3_VALST */ #define Ygrad_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2->Ygrad[t][i][j][k][v] 497 /*M3_VALST */ #define YG_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2->Ygrad[t][i][j][k][v] 498 /*M3_VALSIT */ #define YG1_sa_hor_traadv_cen2(i, j, k, t) Ysa_hor_traadv_cen2->Ygrad[t][i][j][k][0] 499 /*M3_HERESIT*/ #define YG1Y_sa_hor_traadv_cen2 Ysa_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 500 sa_hor_traadv_cen2 *Ysa_hor_traadv_cen2; 538 501 539 502 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zcent_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 544 507 /*NBSMOD */ #define YNBS_zcent_ver_traadv_cen2 1 545 508 /*NBIMOD */ #define YNBI_zcent_ver_traadv_cen2 3 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]; 509 /*M3_VALST */ #define Ystate_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2->Ystate[t][i][j][k][v] 510 /*M3_VALST */ #define YS_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2->Ystate[t][i][j][k][v] 511 /*M3_VALSIT */ #define YS1_zcent_ver_traadv_cen2(i, j, k, t) Yzcent_ver_traadv_cen2->Ystate[t][i][j][k][0] 512 /*M3_HERESIT*/ #define YS1Y_zcent_ver_traadv_cen2 Yzcent_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 513 /*M3_VALST */ #define Ygrad_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2->Ygrad[t][i][j][k][v] 514 /*M3_VALST */ #define YG_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2->Ygrad[t][i][j][k][v] 515 /*M3_VALSIT */ #define YG1_zcent_ver_traadv_cen2(i, j, k, t) Yzcent_ver_traadv_cen2->Ygrad[t][i][j][k][0] 516 /*M3_HERESIT*/ #define YG1Y_zcent_ver_traadv_cen2 Yzcent_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 517 zcent_ver_traadv_cen2 *Yzcent_ver_traadv_cen2; 557 518 558 519 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zcens_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 561 522 /*NBSMOD */ #define YNBS_zcens_ver_traadv_cen2 1 562 523 /*NBIMOD */ #define YNBI_zcens_ver_traadv_cen2 3 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]; 524 /*M3_VALST */ #define Ystate_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2->Ystate[t][i][j][k][v] 525 /*M3_VALST */ #define YS_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2->Ystate[t][i][j][k][v] 526 /*M3_VALSIT */ #define YS1_zcens_ver_traadv_cen2(i, j, k, t) Yzcens_ver_traadv_cen2->Ystate[t][i][j][k][0] 527 /*M3_HERESIT*/ #define YS1Y_zcens_ver_traadv_cen2 Yzcens_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 528 /*M3_VALST */ #define Ygrad_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2->Ygrad[t][i][j][k][v] 529 /*M3_VALST */ #define YG_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2->Ygrad[t][i][j][k][v] 530 /*M3_VALSIT */ #define YG1_zcens_ver_traadv_cen2(i, j, k, t) Yzcens_ver_traadv_cen2->Ygrad[t][i][j][k][0] 531 /*M3_HERESIT*/ #define YG1Y_zcens_ver_traadv_cen2 Yzcens_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 532 zcens_ver_traadv_cen2 *Yzcens_ver_traadv_cen2; 574 533 575 534 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 580 539 /*NBSMOD */ #define YNBS_ta_ver_traadv_cen2 1 581 540 /*NBIMOD */ #define YNBI_ta_ver_traadv_cen2 3 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]; 541 /*M3_VALST */ #define Ystate_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2->Ystate[t][i][j][k][v] 542 /*M3_VALST */ #define YS_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2->Ystate[t][i][j][k][v] 543 /*M3_VALSIT */ #define YS1_ta_ver_traadv_cen2(i, j, k, t) Yta_ver_traadv_cen2->Ystate[t][i][j][k][0] 544 /*M3_HERESIT*/ #define YS1Y_ta_ver_traadv_cen2 Yta_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 545 /*M3_VALST */ #define Ygrad_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2->Ygrad[t][i][j][k][v] 546 /*M3_VALST */ #define YG_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2->Ygrad[t][i][j][k][v] 547 /*M3_VALSIT */ #define YG1_ta_ver_traadv_cen2(i, j, k, t) Yta_ver_traadv_cen2->Ygrad[t][i][j][k][0] 548 /*M3_HERESIT*/ #define YG1Y_ta_ver_traadv_cen2 Yta_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 549 ta_ver_traadv_cen2 *Yta_ver_traadv_cen2; 593 550 594 551 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 597 554 /*NBSMOD */ #define YNBS_sa_ver_traadv_cen2 1 598 555 /*NBIMOD */ #define YNBI_sa_ver_traadv_cen2 3 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]; 556 /*M3_VALST */ #define Ystate_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2->Ystate[t][i][j][k][v] 557 /*M3_VALST */ #define YS_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2->Ystate[t][i][j][k][v] 558 /*M3_VALSIT */ #define YS1_sa_ver_traadv_cen2(i, j, k, t) Ysa_ver_traadv_cen2->Ystate[t][i][j][k][0] 559 /*M3_HERESIT*/ #define YS1Y_sa_ver_traadv_cen2 Ysa_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 560 /*M3_VALST */ #define Ygrad_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2->Ygrad[t][i][j][k][v] 561 /*M3_VALST */ #define YG_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2->Ygrad[t][i][j][k][v] 562 /*M3_VALSIT */ #define YG1_sa_ver_traadv_cen2(i, j, k, t) Ysa_ver_traadv_cen2->Ygrad[t][i][j][k][0] 563 /*M3_HERESIT*/ #define YG1Y_sa_ver_traadv_cen2 Ysa_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 564 sa_ver_traadv_cen2 *Ysa_ver_traadv_cen2; 610 565 611 566 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ztuv_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 616 571 /*NBSMOD */ #define YNBS_ztuv_traldf_lap 2 617 572 /*NBIMOD */ #define YNBI_ztuv_traldf_lap 3 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]; 573 /*M3_VALST */ #define Ystate_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap->Ystate[t][i][j][k][v] 574 /*M3_VALST */ #define YS_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap->Ystate[t][i][j][k][v] 575 /*M3_VALSIT */ #define YS1_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap->Ystate[t][i][j][k][0] 576 /*M3_HERESIT*/ #define YS1Y_ztuv_traldf_lap Yztuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 577 /*M3_VALSIT */ #define YS2_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap->Ystate[t][i][j][k][1] 578 /*M3_HERESIT*/ #define YS2Y_ztuv_traldf_lap Yztuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][1] 579 /*M3_VALST */ #define Ygrad_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap->Ygrad[t][i][j][k][v] 580 /*M3_VALST */ #define YG_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap->Ygrad[t][i][j][k][v] 581 /*M3_VALSIT */ #define YG1_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap->Ygrad[t][i][j][k][0] 582 /*M3_HERESIT*/ #define YG1Y_ztuv_traldf_lap Yztuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 583 /*M3_VALSIT */ #define YG2_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap->Ygrad[t][i][j][k][1] 584 /*M3_HERESIT*/ #define YG2Y_ztuv_traldf_lap Yztuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][1] 585 ztuv_traldf_lap *Yztuv_traldf_lap; 633 586 634 587 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zsuv_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 637 590 /*NBSMOD */ #define YNBS_zsuv_traldf_lap 2 638 591 /*NBIMOD */ #define YNBI_zsuv_traldf_lap 3 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]; 592 /*M3_VALST */ #define Ystate_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap->Ystate[t][i][j][k][v] 593 /*M3_VALST */ #define YS_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap->Ystate[t][i][j][k][v] 594 /*M3_VALSIT */ #define YS1_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap->Ystate[t][i][j][k][0] 595 /*M3_HERESIT*/ #define YS1Y_zsuv_traldf_lap Yzsuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 596 /*M3_VALSIT */ #define YS2_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap->Ystate[t][i][j][k][1] 597 /*M3_HERESIT*/ #define YS2Y_zsuv_traldf_lap Yzsuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][1] 598 /*M3_VALST */ #define Ygrad_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap->Ygrad[t][i][j][k][v] 599 /*M3_VALST */ #define YG_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap->Ygrad[t][i][j][k][v] 600 /*M3_VALSIT */ #define YG1_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap->Ygrad[t][i][j][k][0] 601 /*M3_HERESIT*/ #define YG1Y_zsuv_traldf_lap Yzsuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 602 /*M3_VALSIT */ #define YG2_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap->Ygrad[t][i][j][k][1] 603 /*M3_HERESIT*/ #define YG2Y_zsuv_traldf_lap Yzsuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][1] 604 zsuv_traldf_lap *Yzsuv_traldf_lap; 654 605 655 606 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 660 611 /*NBSMOD */ #define YNBS_ta_traldf_lap 1 661 612 /*NBIMOD */ #define YNBI_ta_traldf_lap 5 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]; 613 /*M3_VALST */ #define Ystate_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap->Ystate[t][i][j][k][v] 614 /*M3_VALST */ #define YS_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap->Ystate[t][i][j][k][v] 615 /*M3_VALSIT */ #define YS1_ta_traldf_lap(i, j, k, t) Yta_traldf_lap->Ystate[t][i][j][k][0] 616 /*M3_HERESIT*/ #define YS1Y_ta_traldf_lap Yta_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 617 /*M3_VALST */ #define Ygrad_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap->Ygrad[t][i][j][k][v] 618 /*M3_VALST */ #define YG_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap->Ygrad[t][i][j][k][v] 619 /*M3_VALSIT */ #define YG1_ta_traldf_lap(i, j, k, t) Yta_traldf_lap->Ygrad[t][i][j][k][0] 620 /*M3_HERESIT*/ #define YG1Y_ta_traldf_lap Yta_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 621 ta_traldf_lap *Yta_traldf_lap; 673 622 674 623 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 677 626 /*NBSMOD */ #define YNBS_sa_traldf_lap 1 678 627 /*NBIMOD */ #define YNBI_sa_traldf_lap 5 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]; 628 /*M3_VALST */ #define Ystate_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap->Ystate[t][i][j][k][v] 629 /*M3_VALST */ #define YS_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap->Ystate[t][i][j][k][v] 630 /*M3_VALSIT */ #define YS1_sa_traldf_lap(i, j, k, t) Ysa_traldf_lap->Ystate[t][i][j][k][0] 631 /*M3_HERESIT*/ #define YS1Y_sa_traldf_lap Ysa_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 632 /*M3_VALST */ #define Ygrad_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap->Ygrad[t][i][j][k][v] 633 /*M3_VALST */ #define YG_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap->Ygrad[t][i][j][k][v] 634 /*M3_VALSIT */ #define YG1_sa_traldf_lap(i, j, k, t) Ysa_traldf_lap->Ygrad[t][i][j][k][0] 635 /*M3_HERESIT*/ #define YG1Y_sa_traldf_lap Ysa_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 636 sa_traldf_lap *Ysa_traldf_lap; 690 637 691 638 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 696 643 /*NBSMOD */ #define YNBS_zwisd_trazdf_imp 3 697 644 /*NBIMOD */ #define YNBI_zwisd_trazdf_imp 2 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]; 645 /*M3_VALST */ #define Ystate_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][v] 646 /*M3_VALST */ #define YS_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][v] 647 /*M3_VALSIT */ #define YS1_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][0] 648 /*M3_HERESIT*/ #define YS1Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 649 /*M3_VALSIT */ #define YS2_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][1] 650 /*M3_HERESIT*/ #define YS2Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][1] 651 /*M3_VALSIT */ #define YS3_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][2] 652 /*M3_HERESIT*/ #define YS3Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][2] 653 /*M3_VALST */ #define Ygrad_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][v] 654 /*M3_VALST */ #define YG_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][v] 655 /*M3_VALSIT */ #define YG1_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][0] 656 /*M3_HERESIT*/ #define YG1Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 657 /*M3_VALSIT */ #define YG2_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][1] 658 /*M3_HERESIT*/ #define YG2Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][1] 659 /*M3_VALSIT */ #define YG3_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][2] 660 /*M3_HERESIT*/ #define YG3Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][2] 661 zwisd_trazdf_imp *Yzwisd_trazdf_imp; 717 662 718 663 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 723 668 /*NBSMOD */ #define YNBS_zrhs_trazdf_imp 1 724 669 /*NBIMOD */ #define YNBI_zrhs_trazdf_imp 2 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]; 670 /*M3_VALST */ #define Ystate_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp->Ystate[t][i][j][k][v] 671 /*M3_VALST */ #define YS_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp->Ystate[t][i][j][k][v] 672 /*M3_VALSIT */ #define YS1_zrhs_trazdf_imp(i, j, k, t) Yzrhs_trazdf_imp->Ystate[t][i][j][k][0] 673 /*M3_HERESIT*/ #define YS1Y_zrhs_trazdf_imp Yzrhs_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 674 /*M3_VALST */ #define Ygrad_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp->Ygrad[t][i][j][k][v] 675 /*M3_VALST */ #define YG_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp->Ygrad[t][i][j][k][v] 676 /*M3_VALSIT */ #define YG1_zrhs_trazdf_imp(i, j, k, t) Yzrhs_trazdf_imp->Ygrad[t][i][j][k][0] 677 /*M3_HERESIT*/ #define YG1Y_zrhs_trazdf_imp Yzrhs_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 678 zrhs_trazdf_imp *Yzrhs_trazdf_imp; 736 679 737 680 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_sa_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 740 683 /*NBSMOD */ #define YNBS_zrhs_sa_trazdf_imp 1 741 684 /*NBIMOD */ #define YNBI_zrhs_sa_trazdf_imp 2 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]; 685 /*M3_VALST */ #define Ystate_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp->Ystate[t][i][j][k][v] 686 /*M3_VALST */ #define YS_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp->Ystate[t][i][j][k][v] 687 /*M3_VALSIT */ #define YS1_zrhs_sa_trazdf_imp(i, j, k, t) Yzrhs_sa_trazdf_imp->Ystate[t][i][j][k][0] 688 /*M3_HERESIT*/ #define YS1Y_zrhs_sa_trazdf_imp Yzrhs_sa_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 689 /*M3_VALST */ #define Ygrad_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp->Ygrad[t][i][j][k][v] 690 /*M3_VALST */ #define YG_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp->Ygrad[t][i][j][k][v] 691 /*M3_VALSIT */ #define YG1_zrhs_sa_trazdf_imp(i, j, k, t) Yzrhs_sa_trazdf_imp->Ygrad[t][i][j][k][0] 692 /*M3_HERESIT*/ #define YG1Y_zrhs_sa_trazdf_imp Yzrhs_sa_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 693 zrhs_sa_trazdf_imp *Yzrhs_sa_trazdf_imp; 753 694 754 695 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 759 700 /*NBSMOD */ #define YNBS_zwt_trazdf_imp 1 760 701 /*NBIMOD */ #define YNBI_zwt_trazdf_imp 4 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]; 702 /*M3_VALST */ #define Ystate_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp->Ystate[t][i][j][k][v] 703 /*M3_VALST */ #define YS_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp->Ystate[t][i][j][k][v] 704 /*M3_VALSIT */ #define YS1_zwt_trazdf_imp(i, j, k, t) Yzwt_trazdf_imp->Ystate[t][i][j][k][0] 705 /*M3_HERESIT*/ #define YS1Y_zwt_trazdf_imp Yzwt_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 706 /*M3_VALST */ #define Ygrad_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp->Ygrad[t][i][j][k][v] 707 /*M3_VALST */ #define YG_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp->Ygrad[t][i][j][k][v] 708 /*M3_VALSIT */ #define YG1_zwt_trazdf_imp(i, j, k, t) Yzwt_trazdf_imp->Ygrad[t][i][j][k][0] 709 /*M3_HERESIT*/ #define YG1Y_zwt_trazdf_imp Yzwt_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 710 zwt_trazdf_imp *Yzwt_trazdf_imp; 772 711 773 712 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_de_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 776 715 /*NBSMOD */ #define YNBS_ta_de_trazdf_imp 1 777 716 /*NBIMOD */ #define YNBI_ta_de_trazdf_imp 4 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]; 717 /*M3_VALST */ #define Ystate_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp->Ystate[t][i][j][k][v] 718 /*M3_VALST */ #define YS_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp->Ystate[t][i][j][k][v] 719 /*M3_VALSIT */ #define YS1_ta_de_trazdf_imp(i, j, k, t) Yta_de_trazdf_imp->Ystate[t][i][j][k][0] 720 /*M3_HERESIT*/ #define YS1Y_ta_de_trazdf_imp Yta_de_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 721 /*M3_VALST */ #define Ygrad_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp->Ygrad[t][i][j][k][v] 722 /*M3_VALST */ #define YG_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp->Ygrad[t][i][j][k][v] 723 /*M3_VALSIT */ #define YG1_ta_de_trazdf_imp(i, j, k, t) Yta_de_trazdf_imp->Ygrad[t][i][j][k][0] 724 /*M3_HERESIT*/ #define YG1Y_ta_de_trazdf_imp Yta_de_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 725 ta_de_trazdf_imp *Yta_de_trazdf_imp; 789 726 790 727 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta~~~~~~~~~~~~~~~~~~~~~~~~~ … … 795 732 /*NBSMOD */ #define YNBS_ta 1 796 733 /*NBIMOD */ #define YNBI_ta 5 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]; 734 /*M3_VALST */ #define Ystate_ta(v, i, j, k, t) Yta->Ystate[t][i][j][k][v] 735 /*M3_VALST */ #define YS_ta(v, i, j, k, t) Yta->Ystate[t][i][j][k][v] 736 /*M3_VALSIT */ #define YS1_ta(i, j, k, t) Yta->Ystate[t][i][j][k][0] 737 /*M3_HERESIT*/ #define YS1Y_ta Yta->Ystate[YTemps][Yi][Yj][Yk][0] 738 /*M3_VALST */ #define Ygrad_ta(v, i, j, k, t) Yta->Ygrad[t][i][j][k][v] 739 /*M3_VALST */ #define YG_ta(v, i, j, k, t) Yta->Ygrad[t][i][j][k][v] 740 /*M3_VALSIT */ #define YG1_ta(i, j, k, t) Yta->Ygrad[t][i][j][k][0] 741 /*M3_HERESIT*/ #define YG1Y_ta Yta->Ygrad[YTemps][Yi][Yj][Yk][0] 742 ta *Yta; 808 743 809 744 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_de_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 812 747 /*NBSMOD */ #define YNBS_sa_de_trazdf_imp 1 813 748 /*NBIMOD */ #define YNBI_sa_de_trazdf_imp 4 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]; 749 /*M3_VALST */ #define Ystate_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp->Ystate[t][i][j][k][v] 750 /*M3_VALST */ #define YS_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp->Ystate[t][i][j][k][v] 751 /*M3_VALSIT */ #define YS1_sa_de_trazdf_imp(i, j, k, t) Ysa_de_trazdf_imp->Ystate[t][i][j][k][0] 752 /*M3_HERESIT*/ #define YS1Y_sa_de_trazdf_imp Ysa_de_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 753 /*M3_VALST */ #define Ygrad_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp->Ygrad[t][i][j][k][v] 754 /*M3_VALST */ #define YG_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp->Ygrad[t][i][j][k][v] 755 /*M3_VALSIT */ #define YG1_sa_de_trazdf_imp(i, j, k, t) Ysa_de_trazdf_imp->Ygrad[t][i][j][k][0] 756 /*M3_HERESIT*/ #define YG1Y_sa_de_trazdf_imp Ysa_de_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 757 sa_de_trazdf_imp *Ysa_de_trazdf_imp; 825 758 826 759 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa~~~~~~~~~~~~~~~~~~~~~~~~~ … … 831 764 /*NBSMOD */ #define YNBS_sa 1 832 765 /*NBIMOD */ #define YNBI_sa 5 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]; 766 /*M3_VALST */ #define Ystate_sa(v, i, j, k, t) Ysa->Ystate[t][i][j][k][v] 767 /*M3_VALST */ #define YS_sa(v, i, j, k, t) Ysa->Ystate[t][i][j][k][v] 768 /*M3_VALSIT */ #define YS1_sa(i, j, k, t) Ysa->Ystate[t][i][j][k][0] 769 /*M3_HERESIT*/ #define YS1Y_sa Ysa->Ystate[YTemps][Yi][Yj][Yk][0] 770 /*M3_VALST */ #define Ygrad_sa(v, i, j, k, t) Ysa->Ygrad[t][i][j][k][v] 771 /*M3_VALST */ #define YG_sa(v, i, j, k, t) Ysa->Ygrad[t][i][j][k][v] 772 /*M3_VALSIT */ #define YG1_sa(i, j, k, t) Ysa->Ygrad[t][i][j][k][0] 773 /*M3_HERESIT*/ #define YG1Y_sa Ysa->Ygrad[YTemps][Yi][Yj][Yk][0] 774 sa *Ysa; 844 775 845 776 //~~~~~~~~~~~~~~~~~~~~~~~~~ module tb~~~~~~~~~~~~~~~~~~~~~~~~~ … … 850 781 /*NBSMOD */ #define YNBS_tb 1 851 782 /*NBIMOD */ #define YNBI_tb 4 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] 783 /*M3_VALST */ #define Ystate_tb(v, i, j, k, t) Ytb->Ystate[t][i][j][k][v] 784 /*M3_VALST */ #define YS_tb(v, i, j, k, t) Ytb->Ystate[t][i][j][k][v] 785 /*M3_VALSIT */ #define YS1_tb(i, j, k, t) Ytb->Ystate[t][i][j][k][0] 786 /*M3_HERESIT*/ #define YS1Y_tb Ytb->Ystate[YTemps][Yi][Yj][Yk][0] 787 /*M3_VALST */ #define Ygrad_tb(v, i, j, k, t) Ytb->Ygrad[t][i][j][k][v] 788 /*M3_VALST */ #define YG_tb(v, i, j, k, t) Ytb->Ygrad[t][i][j][k][v] 789 /*M3_VALSIT */ #define YG1_tb(i, j, k, t) Ytb->Ygrad[t][i][j][k][0] 790 /*M3_HERESIT*/ #define YG1Y_tb Ytb->Ygrad[YTemps][Yi][Yj][Yk][0] 791 tb *Ytb; 792 /*M3_VALSG */ #define Ywish_tb(v, i, j, k) Ytb->Ywish[i][j][k][v] 793 /*M3_VALSG */ #define YW_tb(v, i, j, k) Ytb->Ywish[i][j][k][v] 794 /*M3_VALSGI */ #define YW1_tb(i, j, k) Ytb->Ywish[i][j][k][0] 795 /*M3_HERESGI*/ #define YW1Y_tb Ytb->Ywish[Yi][Yj][Yk][0] 867 796 868 797 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sb~~~~~~~~~~~~~~~~~~~~~~~~~ … … 873 802 /*NBSMOD */ #define YNBS_sb 1 874 803 /*NBIMOD */ #define YNBI_sb 4 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] 804 /*M3_VALST */ #define Ystate_sb(v, i, j, k, t) Ysb->Ystate[t][i][j][k][v] 805 /*M3_VALST */ #define YS_sb(v, i, j, k, t) Ysb->Ystate[t][i][j][k][v] 806 /*M3_VALSIT */ #define YS1_sb(i, j, k, t) Ysb->Ystate[t][i][j][k][0] 807 /*M3_HERESIT*/ #define YS1Y_sb Ysb->Ystate[YTemps][Yi][Yj][Yk][0] 808 /*M3_VALST */ #define Ygrad_sb(v, i, j, k, t) Ysb->Ygrad[t][i][j][k][v] 809 /*M3_VALST */ #define YG_sb(v, i, j, k, t) Ysb->Ygrad[t][i][j][k][v] 810 /*M3_VALSIT */ #define YG1_sb(i, j, k, t) Ysb->Ygrad[t][i][j][k][0] 811 /*M3_HERESIT*/ #define YG1Y_sb Ysb->Ygrad[YTemps][Yi][Yj][Yk][0] 812 sb *Ysb; 813 /*M3_VALSG */ #define Ywish_sb(v, i, j, k) Ysb->Ywish[i][j][k][v] 814 /*M3_VALSG */ #define YW_sb(v, i, j, k) Ysb->Ywish[i][j][k][v] 815 /*M3_VALSGI */ #define YW1_sb(i, j, k) Ysb->Ywish[i][j][k][0] 816 /*M3_HERESGI*/ #define YW1Y_sb Ysb->Ywish[Yi][Yj][Yk][0] 890 817 891 818 //~~~~~~~~~~~~~~~~~~~~~~~~~ module rhd~~~~~~~~~~~~~~~~~~~~~~~~~ … … 896 823 /*NBSMOD */ #define YNBS_rhd 1 897 824 /*NBIMOD */ #define YNBI_rhd 2 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]; 825 /*M3_VALST */ #define Ystate_rhd(v, i, j, k, t) Yrhd->Ystate[t][i][j][k][v] 826 /*M3_VALST */ #define YS_rhd(v, i, j, k, t) Yrhd->Ystate[t][i][j][k][v] 827 /*M3_VALSIT */ #define YS1_rhd(i, j, k, t) Yrhd->Ystate[t][i][j][k][0] 828 /*M3_HERESIT*/ #define YS1Y_rhd Yrhd->Ystate[YTemps][Yi][Yj][Yk][0] 829 /*M3_VALST */ #define Ygrad_rhd(v, i, j, k, t) Yrhd->Ygrad[t][i][j][k][v] 830 /*M3_VALST */ #define YG_rhd(v, i, j, k, t) Yrhd->Ygrad[t][i][j][k][v] 831 /*M3_VALSIT */ #define YG1_rhd(i, j, k, t) Yrhd->Ygrad[t][i][j][k][0] 832 /*M3_HERESIT*/ #define YG1Y_rhd Yrhd->Ygrad[YTemps][Yi][Yj][Yk][0] 833 rhd *Yrhd; 909 834 910 835 //~~~~~~~~~~~~~~~~~~~~~~~~~ module rhop~~~~~~~~~~~~~~~~~~~~~~~~~ … … 915 840 /*NBSMOD */ #define YNBS_rhop 1 916 841 /*NBIMOD */ #define YNBI_rhop 1 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]; 842 /*M3_VALST */ #define Ystate_rhop(v, i, j, k, t) Yrhop->Ystate[t][i][j][k][v] 843 /*M3_VALST */ #define YS_rhop(v, i, j, k, t) Yrhop->Ystate[t][i][j][k][v] 844 /*M3_VALSIT */ #define YS1_rhop(i, j, k, t) Yrhop->Ystate[t][i][j][k][0] 845 /*M3_HERESIT*/ #define YS1Y_rhop Yrhop->Ystate[YTemps][Yi][Yj][Yk][0] 846 /*M3_VALST */ #define Ygrad_rhop(v, i, j, k, t) Yrhop->Ygrad[t][i][j][k][v] 847 /*M3_VALST */ #define YG_rhop(v, i, j, k, t) Yrhop->Ygrad[t][i][j][k][v] 848 /*M3_VALSIT */ #define YG1_rhop(i, j, k, t) Yrhop->Ygrad[t][i][j][k][0] 849 /*M3_HERESIT*/ #define YG1Y_rhop Yrhop->Ygrad[YTemps][Yi][Yj][Yk][0] 850 rhop *Yrhop; 928 851 929 852 //~~~~~~~~~~~~~~~~~~~~~~~~~ module hmf_TF_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 934 857 /*NBSMOD */ #define YNBS_hmf_TF_dynadv_cen2 4 935 858 /*NBIMOD */ #define YNBI_hmf_TF_dynadv_cen2 6 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]; 859 /*M3_VALST */ #define Ystate_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][v] 860 /*M3_VALST */ #define YS_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][v] 861 /*M3_VALSIT */ #define YS1_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][0] 862 /*M3_HERESIT*/ #define YS1Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 863 /*M3_VALSIT */ #define YS2_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][1] 864 /*M3_HERESIT*/ #define YS2Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1] 865 /*M3_VALSIT */ #define YS3_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][2] 866 /*M3_HERESIT*/ #define YS3Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][2] 867 /*M3_VALSIT */ #define YS4_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][3] 868 /*M3_HERESIT*/ #define YS4Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][3] 869 /*M3_VALST */ #define Ygrad_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][v] 870 /*M3_VALST */ #define YG_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][v] 871 /*M3_VALSIT */ #define YG1_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][0] 872 /*M3_HERESIT*/ #define YG1Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 873 /*M3_VALSIT */ #define YG2_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][1] 874 /*M3_HERESIT*/ #define YG2Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1] 875 /*M3_VALSIT */ #define YG3_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][2] 876 /*M3_HERESIT*/ #define YG3Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][2] 877 /*M3_VALSIT */ #define YG4_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][3] 878 /*M3_HERESIT*/ #define YG4Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][3] 879 hmf_TF_dynadv_cen2 *Yhmf_TF_dynadv_cen2; 959 880 960 881 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zua_dhmf_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 965 886 /*NBSMOD */ #define YNBS_zua_dhmf_dynadv_cen2 1 966 887 /*NBIMOD */ #define YNBI_zua_dhmf_dynadv_cen2 4 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]; 888 /*M3_VALST */ #define Ystate_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2->Ystate[t][i][j][k][v] 889 /*M3_VALST */ #define YS_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2->Ystate[t][i][j][k][v] 890 /*M3_VALSIT */ #define YS1_zua_dhmf_dynadv_cen2(i, j, k, t) Yzua_dhmf_dynadv_cen2->Ystate[t][i][j][k][0] 891 /*M3_HERESIT*/ #define YS1Y_zua_dhmf_dynadv_cen2 Yzua_dhmf_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 892 /*M3_VALST */ #define Ygrad_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v] 893 /*M3_VALST */ #define YG_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v] 894 /*M3_VALSIT */ #define YG1_zua_dhmf_dynadv_cen2(i, j, k, t) Yzua_dhmf_dynadv_cen2->Ygrad[t][i][j][k][0] 895 /*M3_HERESIT*/ #define YG1Y_zua_dhmf_dynadv_cen2 Yzua_dhmf_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 896 zua_dhmf_dynadv_cen2 *Yzua_dhmf_dynadv_cen2; 978 897 979 898 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zva_dhmf_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 984 903 /*NBSMOD */ #define YNBS_zva_dhmf_dynadv_cen2 1 985 904 /*NBIMOD */ #define YNBI_zva_dhmf_dynadv_cen2 4 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]; 905 /*M3_VALST */ #define Ystate_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2->Ystate[t][i][j][k][v] 906 /*M3_VALST */ #define YS_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2->Ystate[t][i][j][k][v] 907 /*M3_VALSIT */ #define YS1_zva_dhmf_dynadv_cen2(i, j, k, t) Yzva_dhmf_dynadv_cen2->Ystate[t][i][j][k][0] 908 /*M3_HERESIT*/ #define YS1Y_zva_dhmf_dynadv_cen2 Yzva_dhmf_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 909 /*M3_VALST */ #define Ygrad_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v] 910 /*M3_VALST */ #define YG_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v] 911 /*M3_VALSIT */ #define YG1_zva_dhmf_dynadv_cen2(i, j, k, t) Yzva_dhmf_dynadv_cen2->Ygrad[t][i][j][k][0] 912 /*M3_HERESIT*/ #define YG1Y_zva_dhmf_dynadv_cen2 Yzva_dhmf_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 913 zva_dhmf_dynadv_cen2 *Yzva_dhmf_dynadv_cen2; 997 914 998 915 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zfuv_UW_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1003 920 /*NBSMOD */ #define YNBS_zfuv_UW_dynadv_cen2 2 1004 921 /*NBIMOD */ #define YNBI_zfuv_UW_dynadv_cen2 7 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]; 922 /*M3_VALST */ #define Ystate_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][v] 923 /*M3_VALST */ #define YS_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][v] 924 /*M3_VALSIT */ #define YS1_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][0] 925 /*M3_HERESIT*/ #define YS1Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 926 /*M3_VALSIT */ #define YS2_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][1] 927 /*M3_HERESIT*/ #define YS2Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1] 928 /*M3_VALST */ #define Ygrad_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][v] 929 /*M3_VALST */ #define YG_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][v] 930 /*M3_VALSIT */ #define YG1_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][0] 931 /*M3_HERESIT*/ #define YG1Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 932 /*M3_VALSIT */ #define YG2_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][1] 933 /*M3_HERESIT*/ #define YG2Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1] 934 zfuv_UW_dynadv_cen2 *Yzfuv_UW_dynadv_cen2; 1020 935 1021 936 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1026 941 /*NBSMOD */ #define YNBS_ua_dynadv_cen2 1 1027 942 /*NBIMOD */ #define YNBI_ua_dynadv_cen2 3 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]; 943 /*M3_VALST */ #define Ystate_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2->Ystate[t][i][j][k][v] 944 /*M3_VALST */ #define YS_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2->Ystate[t][i][j][k][v] 945 /*M3_VALSIT */ #define YS1_ua_dynadv_cen2(i, j, k, t) Yua_dynadv_cen2->Ystate[t][i][j][k][0] 946 /*M3_HERESIT*/ #define YS1Y_ua_dynadv_cen2 Yua_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 947 /*M3_VALST */ #define Ygrad_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2->Ygrad[t][i][j][k][v] 948 /*M3_VALST */ #define YG_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2->Ygrad[t][i][j][k][v] 949 /*M3_VALSIT */ #define YG1_ua_dynadv_cen2(i, j, k, t) Yua_dynadv_cen2->Ygrad[t][i][j][k][0] 950 /*M3_HERESIT*/ #define YG1Y_ua_dynadv_cen2 Yua_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 951 ua_dynadv_cen2 *Yua_dynadv_cen2; 1039 952 1040 953 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1045 958 /*NBSMOD */ #define YNBS_va_dynadv_cen2 1 1046 959 /*NBIMOD */ #define YNBI_va_dynadv_cen2 3 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]; 960 /*M3_VALST */ #define Ystate_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2->Ystate[t][i][j][k][v] 961 /*M3_VALST */ #define YS_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2->Ystate[t][i][j][k][v] 962 /*M3_VALSIT */ #define YS1_va_dynadv_cen2(i, j, k, t) Yva_dynadv_cen2->Ystate[t][i][j][k][0] 963 /*M3_HERESIT*/ #define YS1Y_va_dynadv_cen2 Yva_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 964 /*M3_VALST */ #define Ygrad_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2->Ygrad[t][i][j][k][v] 965 /*M3_VALST */ #define YG_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2->Ygrad[t][i][j][k][v] 966 /*M3_VALSIT */ #define YG1_va_dynadv_cen2(i, j, k, t) Yva_dynadv_cen2->Ygrad[t][i][j][k][0] 967 /*M3_HERESIT*/ #define YG1Y_va_dynadv_cen2 Yva_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 968 va_dynadv_cen2 *Yva_dynadv_cen2; 1058 969 1059 970 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwxyz_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1064 975 /*NBSMOD */ #define YNBS_zwxyz_vor_ene 3 1065 976 /*NBIMOD */ #define YNBI_zwxyz_vor_ene 4 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]; 977 /*M3_VALST */ #define Ystate_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][v] 978 /*M3_VALST */ #define YS_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][v] 979 /*M3_VALSIT */ #define YS1_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][0] 980 /*M3_HERESIT*/ #define YS1Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ystate[YTemps][Yi][Yj][Yk][0] 981 /*M3_VALSIT */ #define YS2_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][1] 982 /*M3_HERESIT*/ #define YS2Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ystate[YTemps][Yi][Yj][Yk][1] 983 /*M3_VALSIT */ #define YS3_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][2] 984 /*M3_HERESIT*/ #define YS3Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ystate[YTemps][Yi][Yj][Yk][2] 985 /*M3_VALST */ #define Ygrad_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][v] 986 /*M3_VALST */ #define YG_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][v] 987 /*M3_VALSIT */ #define YG1_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][0] 988 /*M3_HERESIT*/ #define YG1Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][0] 989 /*M3_VALSIT */ #define YG2_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][1] 990 /*M3_HERESIT*/ #define YG2Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][1] 991 /*M3_VALSIT */ #define YG3_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][2] 992 /*M3_HERESIT*/ #define YG3Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][2] 993 zwxyz_vor_ene *Yzwxyz_vor_ene; 1085 994 1086 995 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1091 1000 /*NBSMOD */ #define YNBS_ua_vor_ene 1 1092 1001 /*NBIMOD */ #define YNBI_ua_vor_ene 7 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]; 1002 /*M3_VALST */ #define Ystate_ua_vor_ene(v, i, j, k, t) Yua_vor_ene->Ystate[t][i][j][k][v] 1003 /*M3_VALST */ #define YS_ua_vor_ene(v, i, j, k, t) Yua_vor_ene->Ystate[t][i][j][k][v] 1004 /*M3_VALSIT */ #define YS1_ua_vor_ene(i, j, k, t) Yua_vor_ene->Ystate[t][i][j][k][0] 1005 /*M3_HERESIT*/ #define YS1Y_ua_vor_ene Yua_vor_ene->Ystate[YTemps][Yi][Yj][Yk][0] 1006 /*M3_VALST */ #define Ygrad_ua_vor_ene(v, i, j, k, t) Yua_vor_ene->Ygrad[t][i][j][k][v] 1007 /*M3_VALST */ #define YG_ua_vor_ene(v, i, j, k, t) Yua_vor_ene->Ygrad[t][i][j][k][v] 1008 /*M3_VALSIT */ #define YG1_ua_vor_ene(i, j, k, t) Yua_vor_ene->Ygrad[t][i][j][k][0] 1009 /*M3_HERESIT*/ #define YG1Y_ua_vor_ene Yua_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][0] 1010 ua_vor_ene *Yua_vor_ene; 1104 1011 1105 1012 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1110 1017 /*NBSMOD */ #define YNBS_va_vor_ene 1 1111 1018 /*NBIMOD */ #define YNBI_va_vor_ene 7 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]; 1019 /*M3_VALST */ #define Ystate_va_vor_ene(v, i, j, k, t) Yva_vor_ene->Ystate[t][i][j][k][v] 1020 /*M3_VALST */ #define YS_va_vor_ene(v, i, j, k, t) Yva_vor_ene->Ystate[t][i][j][k][v] 1021 /*M3_VALSIT */ #define YS1_va_vor_ene(i, j, k, t) Yva_vor_ene->Ystate[t][i][j][k][0] 1022 /*M3_HERESIT*/ #define YS1Y_va_vor_ene Yva_vor_ene->Ystate[YTemps][Yi][Yj][Yk][0] 1023 /*M3_VALST */ #define Ygrad_va_vor_ene(v, i, j, k, t) Yva_vor_ene->Ygrad[t][i][j][k][v] 1024 /*M3_VALST */ #define YG_va_vor_ene(v, i, j, k, t) Yva_vor_ene->Ygrad[t][i][j][k][v] 1025 /*M3_VALSIT */ #define YG1_va_vor_ene(i, j, k, t) Yva_vor_ene->Ygrad[t][i][j][k][0] 1026 /*M3_HERESIT*/ #define YG1Y_va_vor_ene Yva_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][0] 1027 va_vor_ene *Yva_vor_ene; 1123 1028 1124 1029 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dyn_ldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1129 1034 /*NBSMOD */ #define YNBS_ua_dyn_ldf_lap 1 1130 1035 /*NBIMOD */ #define YNBI_ua_dyn_ldf_lap 5 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]; 1036 /*M3_VALST */ #define Ystate_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap->Ystate[t][i][j][k][v] 1037 /*M3_VALST */ #define YS_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap->Ystate[t][i][j][k][v] 1038 /*M3_VALSIT */ #define YS1_ua_dyn_ldf_lap(i, j, k, t) Yua_dyn_ldf_lap->Ystate[t][i][j][k][0] 1039 /*M3_HERESIT*/ #define YS1Y_ua_dyn_ldf_lap Yua_dyn_ldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 1040 /*M3_VALST */ #define Ygrad_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap->Ygrad[t][i][j][k][v] 1041 /*M3_VALST */ #define YG_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap->Ygrad[t][i][j][k][v] 1042 /*M3_VALSIT */ #define YG1_ua_dyn_ldf_lap(i, j, k, t) Yua_dyn_ldf_lap->Ygrad[t][i][j][k][0] 1043 /*M3_HERESIT*/ #define YG1Y_ua_dyn_ldf_lap Yua_dyn_ldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 1044 ua_dyn_ldf_lap *Yua_dyn_ldf_lap; 1142 1045 1143 1046 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dyn_ldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1148 1051 /*NBSMOD */ #define YNBS_va_dyn_ldf_lap 1 1149 1052 /*NBIMOD */ #define YNBI_va_dyn_ldf_lap 5 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]; 1053 /*M3_VALST */ #define Ystate_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap->Ystate[t][i][j][k][v] 1054 /*M3_VALST */ #define YS_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap->Ystate[t][i][j][k][v] 1055 /*M3_VALSIT */ #define YS1_va_dyn_ldf_lap(i, j, k, t) Yva_dyn_ldf_lap->Ystate[t][i][j][k][0] 1056 /*M3_HERESIT*/ #define YS1Y_va_dyn_ldf_lap Yva_dyn_ldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 1057 /*M3_VALST */ #define Ygrad_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap->Ygrad[t][i][j][k][v] 1058 /*M3_VALST */ #define YG_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap->Ygrad[t][i][j][k][v] 1059 /*M3_VALSIT */ #define YG1_va_dyn_ldf_lap(i, j, k, t) Yva_dyn_ldf_lap->Ygrad[t][i][j][k][0] 1060 /*M3_HERESIT*/ #define YG1Y_va_dyn_ldf_lap Yva_dyn_ldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 1061 va_dyn_ldf_lap *Yva_dyn_ldf_lap; 1161 1062 1162 1063 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zhpij_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1167 1068 /*NBSMOD */ #define YNBS_zhpij_dyn_hpg_zco 2 1168 1069 /*NBIMOD */ #define YNBI_zhpij_dyn_hpg_zco 8 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]; 1070 /*M3_VALST */ #define Ystate_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][v] 1071 /*M3_VALST */ #define YS_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][v] 1072 /*M3_VALSIT */ #define YS1_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][0] 1073 /*M3_HERESIT*/ #define YS1Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][0] 1074 /*M3_VALSIT */ #define YS2_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][1] 1075 /*M3_HERESIT*/ #define YS2Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][1] 1076 /*M3_VALST */ #define Ygrad_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1077 /*M3_VALST */ #define YG_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1078 /*M3_VALSIT */ #define YG1_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][0] 1079 /*M3_HERESIT*/ #define YG1Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][0] 1080 /*M3_VALSIT */ #define YG2_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][1] 1081 /*M3_HERESIT*/ #define YG2Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][1] 1082 zhpij_dyn_hpg_zco *Yzhpij_dyn_hpg_zco; 1184 1083 1185 1084 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1190 1089 /*NBSMOD */ #define YNBS_ua_dyn_hpg_zco 1 1191 1090 /*NBIMOD */ #define YNBI_ua_dyn_hpg_zco 2 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]; 1091 /*M3_VALST */ #define Ystate_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco->Ystate[t][i][j][k][v] 1092 /*M3_VALST */ #define YS_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco->Ystate[t][i][j][k][v] 1093 /*M3_VALSIT */ #define YS1_ua_dyn_hpg_zco(i, j, k, t) Yua_dyn_hpg_zco->Ystate[t][i][j][k][0] 1094 /*M3_HERESIT*/ #define YS1Y_ua_dyn_hpg_zco Yua_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][0] 1095 /*M3_VALST */ #define Ygrad_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1096 /*M3_VALST */ #define YG_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1097 /*M3_VALSIT */ #define YG1_ua_dyn_hpg_zco(i, j, k, t) Yua_dyn_hpg_zco->Ygrad[t][i][j][k][0] 1098 /*M3_HERESIT*/ #define YG1Y_ua_dyn_hpg_zco Yua_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][0] 1099 ua_dyn_hpg_zco *Yua_dyn_hpg_zco; 1203 1100 1204 1101 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1207 1104 /*NBSMOD */ #define YNBS_va_dyn_hpg_zco 1 1208 1105 /*NBIMOD */ #define YNBI_va_dyn_hpg_zco 2 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]; 1106 /*M3_VALST */ #define Ystate_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco->Ystate[t][i][j][k][v] 1107 /*M3_VALST */ #define YS_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco->Ystate[t][i][j][k][v] 1108 /*M3_VALSIT */ #define YS1_va_dyn_hpg_zco(i, j, k, t) Yva_dyn_hpg_zco->Ystate[t][i][j][k][0] 1109 /*M3_HERESIT*/ #define YS1Y_va_dyn_hpg_zco Yva_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][0] 1110 /*M3_VALST */ #define Ygrad_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1111 /*M3_VALST */ #define YG_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1112 /*M3_VALSIT */ #define YG1_va_dyn_hpg_zco(i, j, k, t) Yva_dyn_hpg_zco->Ygrad[t][i][j][k][0] 1113 /*M3_HERESIT*/ #define YG1Y_va_dyn_hpg_zco Yva_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][0] 1114 va_dyn_hpg_zco *Yva_dyn_hpg_zco; 1220 1115 1221 1116 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1226 1121 /*NBSMOD */ #define YNBS_zwisd_ua_dynzdf_imp 3 1227 1122 /*NBIMOD */ #define YNBI_zwisd_ua_dynzdf_imp 2 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]; 1123 /*M3_VALST */ #define Ystate_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1124 /*M3_VALST */ #define YS_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1125 /*M3_VALSIT */ #define YS1_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][0] 1126 /*M3_HERESIT*/ #define YS1Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1127 /*M3_VALSIT */ #define YS2_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][1] 1128 /*M3_HERESIT*/ #define YS2Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][1] 1129 /*M3_VALSIT */ #define YS3_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][2] 1130 /*M3_HERESIT*/ #define YS3Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][2] 1131 /*M3_VALST */ #define Ygrad_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1132 /*M3_VALST */ #define YG_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1133 /*M3_VALSIT */ #define YG1_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][0] 1134 /*M3_HERESIT*/ #define YG1Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1135 /*M3_VALSIT */ #define YG2_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][1] 1136 /*M3_HERESIT*/ #define YG2Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][1] 1137 /*M3_VALSIT */ #define YG3_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][2] 1138 /*M3_HERESIT*/ #define YG3Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][2] 1139 zwisd_ua_dynzdf_imp *Yzwisd_ua_dynzdf_imp; 1247 1140 1248 1141 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1253 1146 /*NBSMOD */ #define YNBS_zwisd_va_dynzdf_imp 3 1254 1147 /*NBIMOD */ #define YNBI_zwisd_va_dynzdf_imp 2 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]; 1148 /*M3_VALST */ #define Ystate_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][v] 1149 /*M3_VALST */ #define YS_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][v] 1150 /*M3_VALSIT */ #define YS1_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][0] 1151 /*M3_HERESIT*/ #define YS1Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1152 /*M3_VALSIT */ #define YS2_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][1] 1153 /*M3_HERESIT*/ #define YS2Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][1] 1154 /*M3_VALSIT */ #define YS3_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][2] 1155 /*M3_HERESIT*/ #define YS3Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][2] 1156 /*M3_VALST */ #define Ygrad_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1157 /*M3_VALST */ #define YG_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1158 /*M3_VALSIT */ #define YG1_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][0] 1159 /*M3_HERESIT*/ #define YG1Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1160 /*M3_VALSIT */ #define YG2_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][1] 1161 /*M3_HERESIT*/ #define YG2Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][1] 1162 /*M3_VALSIT */ #define YG3_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][2] 1163 /*M3_HERESIT*/ #define YG3Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][2] 1164 zwisd_va_dynzdf_imp *Yzwisd_va_dynzdf_imp; 1274 1165 1275 1166 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1280 1171 /*NBSMOD */ #define YNBS_zrhs_ua_dynzdf_imp 1 1281 1172 /*NBIMOD */ #define YNBI_zrhs_ua_dynzdf_imp 3 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]; 1173 /*M3_VALST */ #define Ystate_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1174 /*M3_VALST */ #define YS_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1175 /*M3_VALSIT */ #define YS1_zrhs_ua_dynzdf_imp(i, j, k, t) Yzrhs_ua_dynzdf_imp->Ystate[t][i][j][k][0] 1176 /*M3_HERESIT*/ #define YS1Y_zrhs_ua_dynzdf_imp Yzrhs_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1177 /*M3_VALST */ #define Ygrad_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1178 /*M3_VALST */ #define YG_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1179 /*M3_VALSIT */ #define YG1_zrhs_ua_dynzdf_imp(i, j, k, t) Yzrhs_ua_dynzdf_imp->Ygrad[t][i][j][k][0] 1180 /*M3_HERESIT*/ #define YG1Y_zrhs_ua_dynzdf_imp Yzrhs_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1181 zrhs_ua_dynzdf_imp *Yzrhs_ua_dynzdf_imp; 1293 1182 1294 1183 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1299 1188 /*NBSMOD */ #define YNBS_zrhs_va_dynzdf_imp 1 1300 1189 /*NBIMOD */ #define YNBI_zrhs_va_dynzdf_imp 3 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]; 1190 /*M3_VALST */ #define Ystate_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp->Ystate[t][i][j][k][v] 1191 /*M3_VALST */ #define YS_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp->Ystate[t][i][j][k][v] 1192 /*M3_VALSIT */ #define YS1_zrhs_va_dynzdf_imp(i, j, k, t) Yzrhs_va_dynzdf_imp->Ystate[t][i][j][k][0] 1193 /*M3_HERESIT*/ #define YS1Y_zrhs_va_dynzdf_imp Yzrhs_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1194 /*M3_VALST */ #define Ygrad_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1195 /*M3_VALST */ #define YG_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1196 /*M3_VALSIT */ #define YG1_zrhs_va_dynzdf_imp(i, j, k, t) Yzrhs_va_dynzdf_imp->Ygrad[t][i][j][k][0] 1197 /*M3_HERESIT*/ #define YG1Y_zrhs_va_dynzdf_imp Yzrhs_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1198 zrhs_va_dynzdf_imp *Yzrhs_va_dynzdf_imp; 1312 1199 1313 1200 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1316 1203 /*NBSMOD */ #define YNBS_zwt_ua_dynzdf_imp 1 1317 1204 /*NBIMOD */ #define YNBI_zwt_ua_dynzdf_imp 4 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]; 1205 /*M3_VALST */ #define Ystate_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1206 /*M3_VALST */ #define YS_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1207 /*M3_VALSIT */ #define YS1_zwt_ua_dynzdf_imp(i, j, k, t) Yzwt_ua_dynzdf_imp->Ystate[t][i][j][k][0] 1208 /*M3_HERESIT*/ #define YS1Y_zwt_ua_dynzdf_imp Yzwt_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1209 /*M3_VALST */ #define Ygrad_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1210 /*M3_VALST */ #define YG_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1211 /*M3_VALSIT */ #define YG1_zwt_ua_dynzdf_imp(i, j, k, t) Yzwt_ua_dynzdf_imp->Ygrad[t][i][j][k][0] 1212 /*M3_HERESIT*/ #define YG1Y_zwt_ua_dynzdf_imp Yzwt_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1213 zwt_ua_dynzdf_imp *Yzwt_ua_dynzdf_imp; 1329 1214 1330 1215 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1333 1218 /*NBSMOD */ #define YNBS_zwt_va_dynzdf_imp 1 1334 1219 /*NBIMOD */ #define YNBI_zwt_va_dynzdf_imp 4 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]; 1220 /*M3_VALST */ #define Ystate_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp->Ystate[t][i][j][k][v] 1221 /*M3_VALST */ #define YS_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp->Ystate[t][i][j][k][v] 1222 /*M3_VALSIT */ #define YS1_zwt_va_dynzdf_imp(i, j, k, t) Yzwt_va_dynzdf_imp->Ystate[t][i][j][k][0] 1223 /*M3_HERESIT*/ #define YS1Y_zwt_va_dynzdf_imp Yzwt_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1224 /*M3_VALST */ #define Ygrad_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1225 /*M3_VALST */ #define YG_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1226 /*M3_VALSIT */ #define YG1_zwt_va_dynzdf_imp(i, j, k, t) Yzwt_va_dynzdf_imp->Ygrad[t][i][j][k][0] 1227 /*M3_HERESIT*/ #define YG1Y_zwt_va_dynzdf_imp Yzwt_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1228 zwt_va_dynzdf_imp *Yzwt_va_dynzdf_imp; 1346 1229 1347 1230 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_de_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1350 1233 /*NBSMOD */ #define YNBS_ua_de_dynzdf_imp 1 1351 1234 /*NBIMOD */ #define YNBI_ua_de_dynzdf_imp 4 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]; 1235 /*M3_VALST */ #define Ystate_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp->Ystate[t][i][j][k][v] 1236 /*M3_VALST */ #define YS_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp->Ystate[t][i][j][k][v] 1237 /*M3_VALSIT */ #define YS1_ua_de_dynzdf_imp(i, j, k, t) Yua_de_dynzdf_imp->Ystate[t][i][j][k][0] 1238 /*M3_HERESIT*/ #define YS1Y_ua_de_dynzdf_imp Yua_de_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1239 /*M3_VALST */ #define Ygrad_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp->Ygrad[t][i][j][k][v] 1240 /*M3_VALST */ #define YG_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp->Ygrad[t][i][j][k][v] 1241 /*M3_VALSIT */ #define YG1_ua_de_dynzdf_imp(i, j, k, t) Yua_de_dynzdf_imp->Ygrad[t][i][j][k][0] 1242 /*M3_HERESIT*/ #define YG1Y_ua_de_dynzdf_imp Yua_de_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1243 ua_de_dynzdf_imp *Yua_de_dynzdf_imp; 1363 1244 1364 1245 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1369 1250 /*NBSMOD */ #define YNBS_ua_dynzdf_imp 1 1370 1251 /*NBIMOD */ #define YNBI_ua_dynzdf_imp 4 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]; 1252 /*M3_VALST */ #define Ystate_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp->Ystate[t][i][j][k][v] 1253 /*M3_VALST */ #define YS_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp->Ystate[t][i][j][k][v] 1254 /*M3_VALSIT */ #define YS1_ua_dynzdf_imp(i, j, k, t) Yua_dynzdf_imp->Ystate[t][i][j][k][0] 1255 /*M3_HERESIT*/ #define YS1Y_ua_dynzdf_imp Yua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1256 /*M3_VALST */ #define Ygrad_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp->Ygrad[t][i][j][k][v] 1257 /*M3_VALST */ #define YG_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp->Ygrad[t][i][j][k][v] 1258 /*M3_VALSIT */ #define YG1_ua_dynzdf_imp(i, j, k, t) Yua_dynzdf_imp->Ygrad[t][i][j][k][0] 1259 /*M3_HERESIT*/ #define YG1Y_ua_dynzdf_imp Yua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1260 ua_dynzdf_imp *Yua_dynzdf_imp; 1382 1261 1383 1262 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_de_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1386 1265 /*NBSMOD */ #define YNBS_va_de_dynzdf_imp 1 1387 1266 /*NBIMOD */ #define YNBI_va_de_dynzdf_imp 4 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]; 1267 /*M3_VALST */ #define Ystate_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp->Ystate[t][i][j][k][v] 1268 /*M3_VALST */ #define YS_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp->Ystate[t][i][j][k][v] 1269 /*M3_VALSIT */ #define YS1_va_de_dynzdf_imp(i, j, k, t) Yva_de_dynzdf_imp->Ystate[t][i][j][k][0] 1270 /*M3_HERESIT*/ #define YS1Y_va_de_dynzdf_imp Yva_de_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1271 /*M3_VALST */ #define Ygrad_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp->Ygrad[t][i][j][k][v] 1272 /*M3_VALST */ #define YG_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp->Ygrad[t][i][j][k][v] 1273 /*M3_VALSIT */ #define YG1_va_de_dynzdf_imp(i, j, k, t) Yva_de_dynzdf_imp->Ygrad[t][i][j][k][0] 1274 /*M3_HERESIT*/ #define YG1Y_va_de_dynzdf_imp Yva_de_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1275 va_de_dynzdf_imp *Yva_de_dynzdf_imp; 1399 1276 1400 1277 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1403 1280 /*NBSMOD */ #define YNBS_va_dynzdf_imp 1 1404 1281 /*NBIMOD */ #define YNBI_va_dynzdf_imp 4 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]; 1282 /*M3_VALST */ #define Ystate_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp->Ystate[t][i][j][k][v] 1283 /*M3_VALST */ #define YS_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp->Ystate[t][i][j][k][v] 1284 /*M3_VALSIT */ #define YS1_va_dynzdf_imp(i, j, k, t) Yva_dynzdf_imp->Ystate[t][i][j][k][0] 1285 /*M3_HERESIT*/ #define YS1Y_va_dynzdf_imp Yva_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1286 /*M3_VALST */ #define Ygrad_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp->Ygrad[t][i][j][k][v] 1287 /*M3_VALST */ #define YG_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp->Ygrad[t][i][j][k][v] 1288 /*M3_VALSIT */ #define YG1_va_dynzdf_imp(i, j, k, t) Yva_dynzdf_imp->Ygrad[t][i][j][k][0] 1289 /*M3_HERESIT*/ #define YG1Y_va_dynzdf_imp Yva_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1290 va_dynzdf_imp *Yva_dynzdf_imp; 1416 1291 1417 1292 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_norm_dynzdf~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1422 1297 /*NBSMOD */ #define YNBS_ua_norm_dynzdf 1 1423 1298 /*NBIMOD */ #define YNBI_ua_norm_dynzdf 2 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]; 1299 /*M3_VALST */ #define Ystate_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf->Ystate[t][i][j][k][v] 1300 /*M3_VALST */ #define YS_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf->Ystate[t][i][j][k][v] 1301 /*M3_VALSIT */ #define YS1_ua_norm_dynzdf(i, j, k, t) Yua_norm_dynzdf->Ystate[t][i][j][k][0] 1302 /*M3_HERESIT*/ #define YS1Y_ua_norm_dynzdf Yua_norm_dynzdf->Ystate[YTemps][Yi][Yj][Yk][0] 1303 /*M3_VALST */ #define Ygrad_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf->Ygrad[t][i][j][k][v] 1304 /*M3_VALST */ #define YG_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf->Ygrad[t][i][j][k][v] 1305 /*M3_VALSIT */ #define YG1_ua_norm_dynzdf(i, j, k, t) Yua_norm_dynzdf->Ygrad[t][i][j][k][0] 1306 /*M3_HERESIT*/ #define YG1Y_ua_norm_dynzdf Yua_norm_dynzdf->Ygrad[YTemps][Yi][Yj][Yk][0] 1307 ua_norm_dynzdf *Yua_norm_dynzdf; 1435 1308 1436 1309 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_norm_dynzdf~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1439 1312 /*NBSMOD */ #define YNBS_va_norm_dynzdf 1 1440 1313 /*NBIMOD */ #define YNBI_va_norm_dynzdf 2 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]; 1314 /*M3_VALST */ #define Ystate_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf->Ystate[t][i][j][k][v] 1315 /*M3_VALST */ #define YS_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf->Ystate[t][i][j][k][v] 1316 /*M3_VALSIT */ #define YS1_va_norm_dynzdf(i, j, k, t) Yva_norm_dynzdf->Ystate[t][i][j][k][0] 1317 /*M3_HERESIT*/ #define YS1Y_va_norm_dynzdf Yva_norm_dynzdf->Ystate[YTemps][Yi][Yj][Yk][0] 1318 /*M3_VALST */ #define Ygrad_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf->Ygrad[t][i][j][k][v] 1319 /*M3_VALST */ #define YG_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf->Ygrad[t][i][j][k][v] 1320 /*M3_VALSIT */ #define YG1_va_norm_dynzdf(i, j, k, t) Yva_norm_dynzdf->Ygrad[t][i][j][k][0] 1321 /*M3_HERESIT*/ #define YG1Y_va_norm_dynzdf Yva_norm_dynzdf->Ygrad[YTemps][Yi][Yj][Yk][0] 1322 va_norm_dynzdf *Yva_norm_dynzdf; 1452 1323 1453 1324 //~~~~~~~~~~~~~~~~~~~~~~~~~ module spguv_now_dynspg~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1459 1330 /*NBSMOD */ #define YNBS_spguv_now_dynspg 2 1460 1331 /*NBIMOD */ #define YNBI_spguv_now_dynspg 3 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]; 1332 /*M2_VALST */ #define Ystate_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg->Ystate[t][i][j][v] 1333 /*M2_VALST */ #define YS_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg->Ystate[t][i][j][v] 1334 /*M2_VALSIT */ #define YS1_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg->Ystate[t][i][j][0] 1335 /*M2_HERESIT*/ #define YS1Y_spguv_now_dynspg Yspguv_now_dynspg->Ystate[YTemps][Yi][Yj][0] 1336 /*M2_VALSIT */ #define YS2_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg->Ystate[t][i][j][1] 1337 /*M2_HERESIT*/ #define YS2Y_spguv_now_dynspg Yspguv_now_dynspg->Ystate[YTemps][Yi][Yj][1] 1338 /*M2_VALST */ #define Ygrad_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg->Ygrad[t][i][j][v] 1339 /*M2_VALST */ #define YG_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg->Ygrad[t][i][j][v] 1340 /*M2_VALSIT */ #define YG1_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg->Ygrad[t][i][j][0] 1341 /*M2_HERESIT*/ #define YG1Y_spguv_now_dynspg Yspguv_now_dynspg->Ygrad[YTemps][Yi][Yj][0] 1342 /*M2_VALSIT */ #define YG2_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg->Ygrad[t][i][j][1] 1343 /*M2_HERESIT*/ #define YG2Y_spguv_now_dynspg Yspguv_now_dynspg->Ygrad[YTemps][Yi][Yj][1] 1344 spguv_now_dynspg *Yspguv_now_dynspg; 1476 1345 1477 1346 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_1_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1482 1351 /*NBSMOD */ #define YNBS_ua_1_dynspg_flt 1 1483 1352 /*NBIMOD */ #define YNBI_ua_1_dynspg_flt 3 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]; 1353 /*M3_VALST */ #define Ystate_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt->Ystate[t][i][j][k][v] 1354 /*M3_VALST */ #define YS_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt->Ystate[t][i][j][k][v] 1355 /*M3_VALSIT */ #define YS1_ua_1_dynspg_flt(i, j, k, t) Yua_1_dynspg_flt->Ystate[t][i][j][k][0] 1356 /*M3_HERESIT*/ #define YS1Y_ua_1_dynspg_flt Yua_1_dynspg_flt->Ystate[YTemps][Yi][Yj][Yk][0] 1357 /*M3_VALST */ #define Ygrad_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt->Ygrad[t][i][j][k][v] 1358 /*M3_VALST */ #define YG_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt->Ygrad[t][i][j][k][v] 1359 /*M3_VALSIT */ #define YG1_ua_1_dynspg_flt(i, j, k, t) Yua_1_dynspg_flt->Ygrad[t][i][j][k][0] 1360 /*M3_HERESIT*/ #define YG1Y_ua_1_dynspg_flt Yua_1_dynspg_flt->Ygrad[YTemps][Yi][Yj][Yk][0] 1361 ua_1_dynspg_flt *Yua_1_dynspg_flt; 1495 1362 1496 1363 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_1_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1501 1368 /*NBSMOD */ #define YNBS_va_1_dynspg_flt 1 1502 1369 /*NBIMOD */ #define YNBI_va_1_dynspg_flt 3 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]; 1370 /*M3_VALST */ #define Ystate_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt->Ystate[t][i][j][k][v] 1371 /*M3_VALST */ #define YS_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt->Ystate[t][i][j][k][v] 1372 /*M3_VALSIT */ #define YS1_va_1_dynspg_flt(i, j, k, t) Yva_1_dynspg_flt->Ystate[t][i][j][k][0] 1373 /*M3_HERESIT*/ #define YS1Y_va_1_dynspg_flt Yva_1_dynspg_flt->Ystate[YTemps][Yi][Yj][Yk][0] 1374 /*M3_VALST */ #define Ygrad_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt->Ygrad[t][i][j][k][v] 1375 /*M3_VALST */ #define YG_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt->Ygrad[t][i][j][k][v] 1376 /*M3_VALSIT */ #define YG1_va_1_dynspg_flt(i, j, k, t) Yva_1_dynspg_flt->Ygrad[t][i][j][k][0] 1377 /*M3_HERESIT*/ #define YG1Y_va_1_dynspg_flt Yva_1_dynspg_flt->Ygrad[YTemps][Yi][Yj][Yk][0] 1378 va_1_dynspg_flt *Yva_1_dynspg_flt; 1514 1379 1515 1380 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sum_spgu_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1521 1386 /*NBSMOD */ #define YNBS_sum_spgu_dynspg_flt 1 1522 1387 /*NBIMOD */ #define YNBI_sum_spgu_dynspg_flt 31 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]; 1388 /*M2_VALST */ #define Ystate_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt->Ystate[t][i][j][v] 1389 /*M2_VALST */ #define YS_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt->Ystate[t][i][j][v] 1390 /*M2_VALSIT */ #define YS1_sum_spgu_dynspg_flt(i, j, t) Ysum_spgu_dynspg_flt->Ystate[t][i][j][0] 1391 /*M2_HERESIT*/ #define YS1Y_sum_spgu_dynspg_flt Ysum_spgu_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1392 /*M2_VALST */ #define Ygrad_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt->Ygrad[t][i][j][v] 1393 /*M2_VALST */ #define YG_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt->Ygrad[t][i][j][v] 1394 /*M2_VALSIT */ #define YG1_sum_spgu_dynspg_flt(i, j, t) Ysum_spgu_dynspg_flt->Ygrad[t][i][j][0] 1395 /*M2_HERESIT*/ #define YG1Y_sum_spgu_dynspg_flt Ysum_spgu_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1396 sum_spgu_dynspg_flt *Ysum_spgu_dynspg_flt; 1534 1397 1535 1398 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sum_spgv_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1541 1404 /*NBSMOD */ #define YNBS_sum_spgv_dynspg_flt 1 1542 1405 /*NBIMOD */ #define YNBI_sum_spgv_dynspg_flt 31 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]; 1406 /*M2_VALST */ #define Ystate_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt->Ystate[t][i][j][v] 1407 /*M2_VALST */ #define YS_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt->Ystate[t][i][j][v] 1408 /*M2_VALSIT */ #define YS1_sum_spgv_dynspg_flt(i, j, t) Ysum_spgv_dynspg_flt->Ystate[t][i][j][0] 1409 /*M2_HERESIT*/ #define YS1Y_sum_spgv_dynspg_flt Ysum_spgv_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1410 /*M2_VALST */ #define Ygrad_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt->Ygrad[t][i][j][v] 1411 /*M2_VALST */ #define YG_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt->Ygrad[t][i][j][v] 1412 /*M2_VALSIT */ #define YG1_sum_spgv_dynspg_flt(i, j, t) Ysum_spgv_dynspg_flt->Ygrad[t][i][j][0] 1413 /*M2_HERESIT*/ #define YG1Y_sum_spgv_dynspg_flt Ysum_spgv_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1414 sum_spgv_dynspg_flt *Ysum_spgv_dynspg_flt; 1554 1415 1555 1416 //~~~~~~~~~~~~~~~~~~~~~~~~~ module gcb_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1561 1422 /*NBSMOD */ #define YNBS_gcb_dynspg_flt 1 1562 1423 /*NBIMOD */ #define YNBI_gcb_dynspg_flt 4 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]; 1424 /*M2_VALST */ #define Ystate_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt->Ystate[t][i][j][v] 1425 /*M2_VALST */ #define YS_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt->Ystate[t][i][j][v] 1426 /*M2_VALSIT */ #define YS1_gcb_dynspg_flt(i, j, t) Ygcb_dynspg_flt->Ystate[t][i][j][0] 1427 /*M2_HERESIT*/ #define YS1Y_gcb_dynspg_flt Ygcb_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1428 /*M2_VALST */ #define Ygrad_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt->Ygrad[t][i][j][v] 1429 /*M2_VALST */ #define YG_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt->Ygrad[t][i][j][v] 1430 /*M2_VALSIT */ #define YG1_gcb_dynspg_flt(i, j, t) Ygcb_dynspg_flt->Ygrad[t][i][j][0] 1431 /*M2_HERESIT*/ #define YG1Y_gcb_dynspg_flt Ygcb_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1432 gcb_dynspg_flt *Ygcb_dynspg_flt; 1574 1433 1575 1434 //~~~~~~~~~~~~~~~~~~~~~~~~~ module gcx_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1581 1440 /*NBSMOD */ #define YNBS_gcx_dynspg_flt 1 1582 1441 /*NBIMOD */ #define YNBI_gcx_dynspg_flt 2 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]; 1442 /*M2_VALST */ #define Ystate_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt->Ystate[t][i][j][v] 1443 /*M2_VALST */ #define YS_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt->Ystate[t][i][j][v] 1444 /*M2_VALSIT */ #define YS1_gcx_dynspg_flt(i, j, t) Ygcx_dynspg_flt->Ystate[t][i][j][0] 1445 /*M2_HERESIT*/ #define YS1Y_gcx_dynspg_flt Ygcx_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1446 /*M2_VALST */ #define Ygrad_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt->Ygrad[t][i][j][v] 1447 /*M2_VALST */ #define YG_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt->Ygrad[t][i][j][v] 1448 /*M2_VALSIT */ #define YG1_gcx_dynspg_flt(i, j, t) Ygcx_dynspg_flt->Ygrad[t][i][j][0] 1449 /*M2_HERESIT*/ #define YG1Y_gcx_dynspg_flt Ygcx_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1450 gcx_dynspg_flt *Ygcx_dynspg_flt; 1594 1451 1595 1452 //~~~~~~~~~~~~~~~~~~~~~~~~~ module solsor_gx1_x_r~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1600 1457 /*NBSMOD */ #define YNBS_solsor_gx1_x_r 2 1601 1458 /*NBIMOD */ #define YNBI_solsor_gx1_x_r 8 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]; 1459 /*M3_VALST */ #define Ystate_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r->Ystate[t][i][j][k][v] 1460 /*M3_VALST */ #define YS_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r->Ystate[t][i][j][k][v] 1461 /*M3_VALSIT */ #define YS1_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r->Ystate[t][i][j][k][0] 1462 /*M3_HERESIT*/ #define YS1Y_solsor_gx1_x_r Ysolsor_gx1_x_r->Ystate[YTemps][Yi][Yj][Yk][0] 1463 /*M3_VALSIT */ #define YS2_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r->Ystate[t][i][j][k][1] 1464 /*M3_HERESIT*/ #define YS2Y_solsor_gx1_x_r Ysolsor_gx1_x_r->Ystate[YTemps][Yi][Yj][Yk][1] 1465 /*M3_VALST */ #define Ygrad_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r->Ygrad[t][i][j][k][v] 1466 /*M3_VALST */ #define YG_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r->Ygrad[t][i][j][k][v] 1467 /*M3_VALSIT */ #define YG1_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r->Ygrad[t][i][j][k][0] 1468 /*M3_HERESIT*/ #define YG1Y_solsor_gx1_x_r Ysolsor_gx1_x_r->Ygrad[YTemps][Yi][Yj][Yk][0] 1469 /*M3_VALSIT */ #define YG2_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r->Ygrad[t][i][j][k][1] 1470 /*M3_HERESIT*/ #define YG2Y_solsor_gx1_x_r Ysolsor_gx1_x_r->Ygrad[YTemps][Yi][Yj][Yk][1] 1471 solsor_gx1_x_r *Ysolsor_gx1_x_r; 1617 1472 1618 1473 //~~~~~~~~~~~~~~~~~~~~~~~~~ module solsor_gx2_x_r~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1623 1478 /*NBSMOD */ #define YNBS_solsor_gx2_x_r 2 1624 1479 /*NBIMOD */ #define YNBI_solsor_gx2_x_r 9 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]; 1480 /*M3_VALST */ #define Ystate_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r->Ystate[t][i][j][k][v] 1481 /*M3_VALST */ #define YS_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r->Ystate[t][i][j][k][v] 1482 /*M3_VALSIT */ #define YS1_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r->Ystate[t][i][j][k][0] 1483 /*M3_HERESIT*/ #define YS1Y_solsor_gx2_x_r Ysolsor_gx2_x_r->Ystate[YTemps][Yi][Yj][Yk][0] 1484 /*M3_VALSIT */ #define YS2_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r->Ystate[t][i][j][k][1] 1485 /*M3_HERESIT*/ #define YS2Y_solsor_gx2_x_r Ysolsor_gx2_x_r->Ystate[YTemps][Yi][Yj][Yk][1] 1486 /*M3_VALST */ #define Ygrad_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r->Ygrad[t][i][j][k][v] 1487 /*M3_VALST */ #define YG_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r->Ygrad[t][i][j][k][v] 1488 /*M3_VALSIT */ #define YG1_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r->Ygrad[t][i][j][k][0] 1489 /*M3_HERESIT*/ #define YG1Y_solsor_gx2_x_r Ysolsor_gx2_x_r->Ygrad[YTemps][Yi][Yj][Yk][0] 1490 /*M3_VALSIT */ #define YG2_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r->Ygrad[t][i][j][k][1] 1491 /*M3_HERESIT*/ #define YG2Y_solsor_gx2_x_r Ysolsor_gx2_x_r->Ygrad[YTemps][Yi][Yj][Yk][1] 1492 solsor_gx2_x_r *Ysolsor_gx2_x_r; 1640 1493 1641 1494 //~~~~~~~~~~~~~~~~~~~~~~~~~ module solsor_flag~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1646 1499 /*NBSMOD */ #define YNBS_solsor_flag 2 1647 1500 /*NBIMOD */ #define YNBI_solsor_flag 4 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]; 1501 /*M3_VALST */ #define Ystate_solsor_flag(v, i, j, k, t) Ysolsor_flag->Ystate[t][i][j][k][v] 1502 /*M3_VALST */ #define YS_solsor_flag(v, i, j, k, t) Ysolsor_flag->Ystate[t][i][j][k][v] 1503 /*M3_VALSIT */ #define YS1_solsor_flag(i, j, k, t) Ysolsor_flag->Ystate[t][i][j][k][0] 1504 /*M3_HERESIT*/ #define YS1Y_solsor_flag Ysolsor_flag->Ystate[YTemps][Yi][Yj][Yk][0] 1505 /*M3_VALSIT */ #define YS2_solsor_flag(i, j, k, t) Ysolsor_flag->Ystate[t][i][j][k][1] 1506 /*M3_HERESIT*/ #define YS2Y_solsor_flag Ysolsor_flag->Ystate[YTemps][Yi][Yj][Yk][1] 1507 /*M3_VALST */ #define Ygrad_solsor_flag(v, i, j, k, t) Ysolsor_flag->Ygrad[t][i][j][k][v] 1508 /*M3_VALST */ #define YG_solsor_flag(v, i, j, k, t) Ysolsor_flag->Ygrad[t][i][j][k][v] 1509 /*M3_VALSIT */ #define YG1_solsor_flag(i, j, k, t) Ysolsor_flag->Ygrad[t][i][j][k][0] 1510 /*M3_HERESIT*/ #define YG1Y_solsor_flag Ysolsor_flag->Ygrad[YTemps][Yi][Yj][Yk][0] 1511 /*M3_VALSIT */ #define YG2_solsor_flag(i, j, k, t) Ysolsor_flag->Ygrad[t][i][j][k][1] 1512 /*M3_HERESIT*/ #define YG2Y_solsor_flag Ysolsor_flag->Ygrad[YTemps][Yi][Yj][Yk][1] 1513 solsor_flag *Ysolsor_flag; 1663 1514 1664 1515 //~~~~~~~~~~~~~~~~~~~~~~~~~ module gcx2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1670 1521 /*NBSMOD */ #define YNBS_gcx2 1 1671 1522 /*NBIMOD */ #define YNBI_gcx2 1 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]; 1523 /*M2_VALST */ #define Ystate_gcx2(v, i, j, t) Ygcx2->Ystate[t][i][j][v] 1524 /*M2_VALST */ #define YS_gcx2(v, i, j, t) Ygcx2->Ystate[t][i][j][v] 1525 /*M2_VALSIT */ #define YS1_gcx2(i, j, t) Ygcx2->Ystate[t][i][j][0] 1526 /*M2_HERESIT*/ #define YS1Y_gcx2 Ygcx2->Ystate[YTemps][Yi][Yj][0] 1527 /*M2_VALST */ #define Ygrad_gcx2(v, i, j, t) Ygcx2->Ygrad[t][i][j][v] 1528 /*M2_VALST */ #define YG_gcx2(v, i, j, t) Ygcx2->Ygrad[t][i][j][v] 1529 /*M2_VALSIT */ #define YG1_gcx2(i, j, t) Ygcx2->Ygrad[t][i][j][0] 1530 /*M2_HERESIT*/ #define YG1Y_gcx2 Ygcx2->Ygrad[YTemps][Yi][Yj][0] 1531 gcx2 *Ygcx2; 1683 1532 1684 1533 //~~~~~~~~~~~~~~~~~~~~~~~~~ module spguv_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1690 1539 /*NBSMOD */ #define YNBS_spguv_dynspg_flt 2 1691 1540 /*NBIMOD */ #define YNBI_spguv_dynspg_flt 3 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]; 1541 /*M2_VALST */ #define Ystate_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt->Ystate[t][i][j][v] 1542 /*M2_VALST */ #define YS_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt->Ystate[t][i][j][v] 1543 /*M2_VALSIT */ #define YS1_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt->Ystate[t][i][j][0] 1544 /*M2_HERESIT*/ #define YS1Y_spguv_dynspg_flt Yspguv_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1545 /*M2_VALSIT */ #define YS2_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt->Ystate[t][i][j][1] 1546 /*M2_HERESIT*/ #define YS2Y_spguv_dynspg_flt Yspguv_dynspg_flt->Ystate[YTemps][Yi][Yj][1] 1547 /*M2_VALST */ #define Ygrad_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt->Ygrad[t][i][j][v] 1548 /*M2_VALST */ #define YG_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt->Ygrad[t][i][j][v] 1549 /*M2_VALSIT */ #define YG1_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt->Ygrad[t][i][j][0] 1550 /*M2_HERESIT*/ #define YG1Y_spguv_dynspg_flt Yspguv_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1551 /*M2_VALSIT */ #define YG2_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt->Ygrad[t][i][j][1] 1552 /*M2_HERESIT*/ #define YG2Y_spguv_dynspg_flt Yspguv_dynspg_flt->Ygrad[YTemps][Yi][Yj][1] 1553 spguv_dynspg_flt *Yspguv_dynspg_flt; 1707 1554 1708 1555 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1713 1560 /*NBSMOD */ #define YNBS_ua 1 1714 1561 /*NBIMOD */ #define YNBI_ua 3 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]; 1562 /*M3_VALST */ #define Ystate_ua(v, i, j, k, t) Yua->Ystate[t][i][j][k][v] 1563 /*M3_VALST */ #define YS_ua(v, i, j, k, t) Yua->Ystate[t][i][j][k][v] 1564 /*M3_VALSIT */ #define YS1_ua(i, j, k, t) Yua->Ystate[t][i][j][k][0] 1565 /*M3_HERESIT*/ #define YS1Y_ua Yua->Ystate[YTemps][Yi][Yj][Yk][0] 1566 /*M3_VALST */ #define Ygrad_ua(v, i, j, k, t) Yua->Ygrad[t][i][j][k][v] 1567 /*M3_VALST */ #define YG_ua(v, i, j, k, t) Yua->Ygrad[t][i][j][k][v] 1568 /*M3_VALSIT */ #define YG1_ua(i, j, k, t) Yua->Ygrad[t][i][j][k][0] 1569 /*M3_HERESIT*/ #define YG1Y_ua Yua->Ygrad[YTemps][Yi][Yj][Yk][0] 1570 ua *Yua; 1726 1571 1727 1572 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1732 1577 /*NBSMOD */ #define YNBS_va 1 1733 1578 /*NBIMOD */ #define YNBI_va 3 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]; 1579 /*M3_VALST */ #define Ystate_va(v, i, j, k, t) Yva->Ystate[t][i][j][k][v] 1580 /*M3_VALST */ #define YS_va(v, i, j, k, t) Yva->Ystate[t][i][j][k][v] 1581 /*M3_VALSIT */ #define YS1_va(i, j, k, t) Yva->Ystate[t][i][j][k][0] 1582 /*M3_HERESIT*/ #define YS1Y_va Yva->Ystate[YTemps][Yi][Yj][Yk][0] 1583 /*M3_VALST */ #define Ygrad_va(v, i, j, k, t) Yva->Ygrad[t][i][j][k][v] 1584 /*M3_VALST */ #define YG_va(v, i, j, k, t) Yva->Ygrad[t][i][j][k][v] 1585 /*M3_VALSIT */ #define YG1_va(i, j, k, t) Yva->Ygrad[t][i][j][k][0] 1586 /*M3_HERESIT*/ #define YG1Y_va Yva->Ygrad[YTemps][Yi][Yj][Yk][0] 1587 va *Yva; 1745 1588 1746 1589 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sshn~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1752 1595 /*NBSMOD */ #define YNBS_sshn 1 1753 1596 /*NBIMOD */ #define YNBI_sshn 4 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]; 1597 /*M2_VALST */ #define Ystate_sshn(v, i, j, t) Ysshn->Ystate[t][i][j][v] 1598 /*M2_VALST */ #define YS_sshn(v, i, j, t) Ysshn->Ystate[t][i][j][v] 1599 /*M2_VALSIT */ #define YS1_sshn(i, j, t) Ysshn->Ystate[t][i][j][0] 1600 /*M2_HERESIT*/ #define YS1Y_sshn Ysshn->Ystate[YTemps][Yi][Yj][0] 1601 /*M2_VALST */ #define Ygrad_sshn(v, i, j, t) Ysshn->Ygrad[t][i][j][v] 1602 /*M2_VALST */ #define YG_sshn(v, i, j, t) Ysshn->Ygrad[t][i][j][v] 1603 /*M2_VALSIT */ #define YG1_sshn(i, j, t) Ysshn->Ygrad[t][i][j][0] 1604 /*M2_HERESIT*/ #define YG1Y_sshn Ysshn->Ygrad[YTemps][Yi][Yj][0] 1605 sshn *Ysshn; 1765 1606 1766 1607 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sshb~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1772 1613 /*NBSMOD */ #define YNBS_sshb 1 1773 1614 /*NBIMOD */ #define YNBI_sshb 4 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] 1615 /*M2_VALST */ #define Ystate_sshb(v, i, j, t) Ysshb->Ystate[t][i][j][v] 1616 /*M2_VALST */ #define YS_sshb(v, i, j, t) Ysshb->Ystate[t][i][j][v] 1617 /*M2_VALSIT */ #define YS1_sshb(i, j, t) Ysshb->Ystate[t][i][j][0] 1618 /*M2_HERESIT*/ #define YS1Y_sshb Ysshb->Ystate[YTemps][Yi][Yj][0] 1619 /*M2_VALST */ #define Ygrad_sshb(v, i, j, t) Ysshb->Ygrad[t][i][j][v] 1620 /*M2_VALST */ #define YG_sshb(v, i, j, t) Ysshb->Ygrad[t][i][j][v] 1621 /*M2_VALSIT */ #define YG1_sshb(i, j, t) Ysshb->Ygrad[t][i][j][0] 1622 /*M2_HERESIT*/ #define YG1Y_sshb Ysshb->Ygrad[YTemps][Yi][Yj][0] 1623 sshb *Ysshb; 1624 /*M2_VALSG */ #define Ywish_sshb(v, i, j) Ysshb->Ywish[i][j][v] 1625 /*M2_VALSG */ #define YW_sshb(v, i, j) Ysshb->Ywish[i][j][v] 1626 /*M2_VALSGI */ #define YW1_sshb(i, j) Ysshb->Ywish[i][j][0] 1627 /*M2_HERESGI*/ #define YW1Y_sshb Ysshb->Ywish[Yi][Yj][0] 1789 1628 1790 1629 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ub~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1795 1634 /*NBSMOD */ #define YNBS_ub 1 1796 1635 /*NBIMOD */ #define YNBI_ub 4 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] 1636 /*M3_VALST */ #define Ystate_ub(v, i, j, k, t) Yub->Ystate[t][i][j][k][v] 1637 /*M3_VALST */ #define YS_ub(v, i, j, k, t) Yub->Ystate[t][i][j][k][v] 1638 /*M3_VALSIT */ #define YS1_ub(i, j, k, t) Yub->Ystate[t][i][j][k][0] 1639 /*M3_HERESIT*/ #define YS1Y_ub Yub->Ystate[YTemps][Yi][Yj][Yk][0] 1640 /*M3_VALST */ #define Ygrad_ub(v, i, j, k, t) Yub->Ygrad[t][i][j][k][v] 1641 /*M3_VALST */ #define YG_ub(v, i, j, k, t) Yub->Ygrad[t][i][j][k][v] 1642 /*M3_VALSIT */ #define YG1_ub(i, j, k, t) Yub->Ygrad[t][i][j][k][0] 1643 /*M3_HERESIT*/ #define YG1Y_ub Yub->Ygrad[YTemps][Yi][Yj][Yk][0] 1644 ub *Yub; 1645 /*M3_VALSG */ #define Ywish_ub(v, i, j, k) Yub->Ywish[i][j][k][v] 1646 /*M3_VALSG */ #define YW_ub(v, i, j, k) Yub->Ywish[i][j][k][v] 1647 /*M3_VALSGI */ #define YW1_ub(i, j, k) Yub->Ywish[i][j][k][0] 1648 /*M3_HERESGI*/ #define YW1Y_ub Yub->Ywish[Yi][Yj][Yk][0] 1812 1649 1813 1650 //~~~~~~~~~~~~~~~~~~~~~~~~~ module vb~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1818 1655 /*NBSMOD */ #define YNBS_vb 1 1819 1656 /*NBIMOD */ #define YNBI_vb 4 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] 1657 /*M3_VALST */ #define Ystate_vb(v, i, j, k, t) Yvb->Ystate[t][i][j][k][v] 1658 /*M3_VALST */ #define YS_vb(v, i, j, k, t) Yvb->Ystate[t][i][j][k][v] 1659 /*M3_VALSIT */ #define YS1_vb(i, j, k, t) Yvb->Ystate[t][i][j][k][0] 1660 /*M3_HERESIT*/ #define YS1Y_vb Yvb->Ystate[YTemps][Yi][Yj][Yk][0] 1661 /*M3_VALST */ #define Ygrad_vb(v, i, j, k, t) Yvb->Ygrad[t][i][j][k][v] 1662 /*M3_VALST */ #define YG_vb(v, i, j, k, t) Yvb->Ygrad[t][i][j][k][v] 1663 /*M3_VALSIT */ #define YG1_vb(i, j, k, t) Yvb->Ygrad[t][i][j][k][0] 1664 /*M3_HERESIT*/ #define YG1Y_vb Yvb->Ygrad[YTemps][Yi][Yj][Yk][0] 1665 vb *Yvb; 1666 /*M3_VALSG */ #define Ywish_vb(v, i, j, k) Yvb->Ywish[i][j][k][v] 1667 /*M3_VALSG */ #define YW_vb(v, i, j, k) Yvb->Ywish[i][j][k][v] 1668 /*M3_VALSGI */ #define YW1_vb(i, j, k) Yvb->Ywish[i][j][k][0] 1669 /*M3_HERESGI*/ #define YW1Y_vb Yvb->Ywish[Yi][Yj][Yk][0] 1835 1670 1836 1671 //~~~~~~~~~~~~~~~~~~~~~~~~~ module hdivn~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1841 1676 /*NBSMOD */ #define YNBS_hdivn 1 1842 1677 /*NBIMOD */ #define YNBI_hdivn 4 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]; 1678 /*M3_VALST */ #define Ystate_hdivn(v, i, j, k, t) Yhdivn->Ystate[t][i][j][k][v] 1679 /*M3_VALST */ #define YS_hdivn(v, i, j, k, t) Yhdivn->Ystate[t][i][j][k][v] 1680 /*M3_VALSIT */ #define YS1_hdivn(i, j, k, t) Yhdivn->Ystate[t][i][j][k][0] 1681 /*M3_HERESIT*/ #define YS1Y_hdivn Yhdivn->Ystate[YTemps][Yi][Yj][Yk][0] 1682 /*M3_VALST */ #define Ygrad_hdivn(v, i, j, k, t) Yhdivn->Ygrad[t][i][j][k][v] 1683 /*M3_VALST */ #define YG_hdivn(v, i, j, k, t) Yhdivn->Ygrad[t][i][j][k][v] 1684 /*M3_VALSIT */ #define YG1_hdivn(i, j, k, t) Yhdivn->Ygrad[t][i][j][k][0] 1685 /*M3_HERESIT*/ #define YG1Y_hdivn Yhdivn->Ygrad[YTemps][Yi][Yj][Yk][0] 1686 hdivn *Yhdivn; 1854 1687 1855 1688 //~~~~~~~~~~~~~~~~~~~~~~~~~ module rotn~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1860 1693 /*NBSMOD */ #define YNBS_rotn 1 1861 1694 /*NBIMOD */ #define YNBI_rotn 4 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]; 1695 /*M3_VALST */ #define Ystate_rotn(v, i, j, k, t) Yrotn->Ystate[t][i][j][k][v] 1696 /*M3_VALST */ #define YS_rotn(v, i, j, k, t) Yrotn->Ystate[t][i][j][k][v] 1697 /*M3_VALSIT */ #define YS1_rotn(i, j, k, t) Yrotn->Ystate[t][i][j][k][0] 1698 /*M3_HERESIT*/ #define YS1Y_rotn Yrotn->Ystate[YTemps][Yi][Yj][Yk][0] 1699 /*M3_VALST */ #define Ygrad_rotn(v, i, j, k, t) Yrotn->Ygrad[t][i][j][k][v] 1700 /*M3_VALST */ #define YG_rotn(v, i, j, k, t) Yrotn->Ygrad[t][i][j][k][v] 1701 /*M3_VALSIT */ #define YG1_rotn(i, j, k, t) Yrotn->Ygrad[t][i][j][k][0] 1702 /*M3_HERESIT*/ #define YG1Y_rotn Yrotn->Ygrad[YTemps][Yi][Yj][Yk][0] 1703 rotn *Yrotn; 1873 1704 1874 1705 //~~~~~~~~~~~~~~~~~~~~~~~~~ module wa~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1879 1710 /*NBSMOD */ #define YNBS_wa 1 1880 1711 /*NBIMOD */ #define YNBI_wa 2 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]; 1712 /*M3_VALST */ #define Ystate_wa(v, i, j, k, t) Ywa->Ystate[t][i][j][k][v] 1713 /*M3_VALST */ #define YS_wa(v, i, j, k, t) Ywa->Ystate[t][i][j][k][v] 1714 /*M3_VALSIT */ #define YS1_wa(i, j, k, t) Ywa->Ystate[t][i][j][k][0] 1715 /*M3_HERESIT*/ #define YS1Y_wa Ywa->Ystate[YTemps][Yi][Yj][Yk][0] 1716 /*M3_VALST */ #define Ygrad_wa(v, i, j, k, t) Ywa->Ygrad[t][i][j][k][v] 1717 /*M3_VALST */ #define YG_wa(v, i, j, k, t) Ywa->Ygrad[t][i][j][k][v] 1718 /*M3_VALSIT */ #define YG1_wa(i, j, k, t) Ywa->Ygrad[t][i][j][k][0] 1719 /*M3_HERESIT*/ #define YG1Y_wa Ywa->Ygrad[YTemps][Yi][Yj][Yk][0] 1720 wa *Ywa; 1892 1721 #define YSIZEPB 21824//sum of the number of states (output) of all targets 1893 1722 1894 // € € € € FOR M1QN3 € € € € € € € € € € € € € € € € € € € € € € €1723 //ᅵ ᅵ ᅵ ᅵ FOR M1QN3 ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ 1895 1724 float Y3x[YSIZEPB]; //table for the states of targets 1896 1725 float Y3g[YSIZEPB]; //table for the gradients of targets … … 2033 1862 #define YJ4I31 Yjac[3][30] 2034 1863 double Ytbeta[YMAX_NBI]; //max table of global and common beta 1864 #ifdef _OPENMP 1865 #pragma omp threadprivate(Yting,Yjac,Ytbeta) // Yting is a private global variable in the case of parallelism 1866 #endif 2035 1867 2036 1868 /*------- SOME OTHER AUTOMATIC GENERATION ------------------*/ … … 2057 1889 { 2058 1890 public: 2059 double Ystate[Y NBS_sshn_c];2060 double Ygrad[Y NBS_sshn_c];1891 double Ystate[YA1_S3d][YA2_S3d][YNBS_sshn_c]; 1892 double Ygrad[YA1_S3d][YA2_S3d][YNBS_sshn_c]; 2061 1893 2062 1894 //:=========> Constructor - Destructor ============ … … 2070 1902 { 2071 1903 public: 2072 double Ystate[Y NBS_ta_c];2073 double Ygrad[Y NBS_ta_c];2074 double Yepsi[Y NBS_ta_c];2075 double Ywish[Y NBS_ta_c];1904 double Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c]; 1905 double Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c]; 1906 double Yepsi[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c]; 1907 double Ywish[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c]; 2076 1908 2077 1909 //:=========> Constructor - Destructor ============ … … 2085 1917 { 2086 1918 public: 2087 double Ystate[Y NBS_sa_c];2088 double Ygrad[Y NBS_sa_c];1919 double Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_sa_c]; 1920 double Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_sa_c]; 2089 1921 2090 1922 //:=========> Constructor - Destructor ============ … … 2098 1930 { 2099 1931 public: 2100 double Ystate[Y NBS_ua_c];2101 double Ygrad[Y NBS_ua_c];1932 double Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ua_c]; 1933 double Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ua_c]; 2102 1934 2103 1935 //:=========> Constructor - Destructor ============ … … 2111 1943 { 2112 1944 public: 2113 double Ystate[Y NBS_va_c];2114 double Ygrad[Y NBS_va_c];1945 double Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_va_c]; 1946 double Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_va_c]; 2115 1947 2116 1948 //:=========> Constructor - Destructor ============ … … 2124 1956 { 2125 1957 public: 2126 double Ystate[YNBALLTIME_Tsbd][Y NBS_sbcgyre_qsr_qns];2127 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sbcgyre_qsr_qns];1958 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_qsr_qns]; 1959 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_qsr_qns]; 2128 1960 2129 1961 //:=========> Constructor - Destructor ============ … … 2146 1978 { 2147 1979 public: 2148 double Ystate[YNBALLTIME_Tsbd][Y NBS_sbcgyre_emp1];2149 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sbcgyre_emp1];1980 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp1]; 1981 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp1]; 2150 1982 2151 1983 //:=========> Constructor - Destructor ============ … … 2168 2000 { 2169 2001 public: 2170 double Ystate[YNBALLTIME_Tsbd][Y NBS_sbcgyre_zsumemp_zsurf];2171 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sbcgyre_zsumemp_zsurf];2002 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_zsumemp_zsurf]; 2003 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_zsumemp_zsurf]; 2172 2004 2173 2005 //:=========> Constructor - Destructor ============ … … 2190 2022 { 2191 2023 public: 2192 double Ystate[YNBALLTIME_Tsbd][Y NBS_sbcgyre_emp];2193 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sbcgyre_emp];2024 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp]; 2025 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp]; 2194 2026 2195 2027 //:=========> Constructor - Destructor ============ … … 2212 2044 { 2213 2045 public: 2214 double Ystate[YNBALLTIME_Tsbd][Y NBS_sbcgyre_emps];2215 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sbcgyre_emps];2046 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emps]; 2047 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emps]; 2216 2048 2217 2049 //:=========> Constructor - Destructor ============ … … 2234 2066 { 2235 2067 public: 2236 double Ystate[YNBALLTIME_Tsbd][Y NBS_sbcgyre_utau_vtau];2237 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sbcgyre_utau_vtau];2068 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_utau_vtau]; 2069 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_utau_vtau]; 2238 2070 2239 2071 //:=========> Constructor - Destructor ============ … … 2256 2088 { 2257 2089 public: 2258 double Ystate[YNBALLTIME_Tsbd][Y NBS_sbcgyre_wndm];2259 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sbcgyre_wndm];2090 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_wndm]; 2091 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_wndm]; 2260 2092 2261 2093 //:=========> Constructor - Destructor ============ … … 2278 2110 { 2279 2111 public: 2280 double Ystate[YNBALLTIME_Tsbd][Y NBS_bn2_rn2];2281 double Ygrad[YNBALLTIME_Tsbd][Y NBS_bn2_rn2];2112 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_bn2_rn2]; 2113 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_bn2_rn2]; 2282 2114 2283 2115 //:=========> Constructor - Destructor ============ … … 2300 2132 { 2301 2133 public: 2302 double Ystate[YNBALLTIME_Tsbd][Y NBS_zdf_avt_avmu_avmv];2303 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zdf_avt_avmu_avmv];2134 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zdf_avt_avmu_avmv]; 2135 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zdf_avt_avmu_avmv]; 2304 2136 2305 2137 //:=========> Constructor - Destructor ============ … … 2322 2154 { 2323 2155 public: 2324 double Ystate[YNBALLTIME_Tsbd][Y NBS_zdfmxl_hmld];2325 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zdfmxl_hmld];2156 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_zdfmxl_hmld]; 2157 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_zdfmxl_hmld]; 2326 2158 2327 2159 //:=========> Constructor - Destructor ============ … … 2344 2176 { 2345 2177 public: 2346 double Ystate[YNBALLTIME_Tsbd][Y NBS_zdfmxl_nmln_hmlp_hmlpt];2347 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zdfmxl_nmln_hmlp_hmlpt];2178 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_zdfmxl_nmln_hmlp_hmlpt]; 2179 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_zdfmxl_nmln_hmlp_hmlpt]; 2348 2180 2349 2181 //:=========> Constructor - Destructor ============ … … 2366 2198 { 2367 2199 public: 2368 double Ystate[YNBALLTIME_Tsbd][Y NBS_ta_sa_trasbc];2369 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ta_sa_trasbc];2200 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_ta_sa_trasbc]; 2201 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_ta_sa_trasbc]; 2370 2202 2371 2203 //:=========> Constructor - Destructor ============ … … 2388 2220 { 2389 2221 public: 2390 double Ystate[YNBALLTIME_Tsbd][Y NBS_ta_traqsr];2391 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ta_traqsr];2222 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traqsr]; 2223 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traqsr]; 2392 2224 2393 2225 //:=========> Constructor - Destructor ============ … … 2410 2242 { 2411 2243 public: 2412 double Ystate[YNBALLTIME_Tsbd][Y NBS_zcent_hor_traadv_cen2];2413 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zcent_hor_traadv_cen2];2244 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_hor_traadv_cen2]; 2245 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_hor_traadv_cen2]; 2414 2246 2415 2247 //:=========> Constructor - Destructor ============ … … 2435 2267 { 2436 2268 public: 2437 double Ystate[YNBALLTIME_Tsbd][Y NBS_ta_hor_traadv_cen2];2438 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ta_hor_traadv_cen2];2269 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_hor_traadv_cen2]; 2270 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_hor_traadv_cen2]; 2439 2271 2440 2272 //:=========> Constructor - Destructor ============ … … 2457 2289 { 2458 2290 public: 2459 double Ystate[YNBALLTIME_Tsbd][Y NBS_sa_hor_traadv_cen2];2460 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sa_hor_traadv_cen2];2291 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa_hor_traadv_cen2]; 2292 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa_hor_traadv_cen2]; 2461 2293 2462 2294 //:=========> Constructor - Destructor ============ … … 2479 2311 { 2480 2312 public: 2481 double Ystate[YNBALLTIME_Tsbd][Y NBS_zcent_ver_traadv_cen2];2482 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zcent_ver_traadv_cen2];2313 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_ver_traadv_cen2]; 2314 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_ver_traadv_cen2]; 2483 2315 2484 2316 //:=========> Constructor - Destructor ============ … … 2504 2336 { 2505 2337 public: 2506 double Ystate[YNBALLTIME_Tsbd][Y NBS_ta_ver_traadv_cen2];2507 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ta_ver_traadv_cen2];2338 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_ver_traadv_cen2]; 2339 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_ver_traadv_cen2]; 2508 2340 2509 2341 //:=========> Constructor - Destructor ============ … … 2529 2361 { 2530 2362 public: 2531 double Ystate[YNBALLTIME_Tsbd][Y NBS_ztuv_traldf_lap];2532 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ztuv_traldf_lap];2363 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ztuv_traldf_lap]; 2364 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ztuv_traldf_lap]; 2533 2365 2534 2366 //:=========> Constructor - Destructor ============ … … 2554 2386 { 2555 2387 public: 2556 double Ystate[YNBALLTIME_Tsbd][Y NBS_ta_traldf_lap];2557 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ta_traldf_lap];2388 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traldf_lap]; 2389 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traldf_lap]; 2558 2390 2559 2391 //:=========> Constructor - Destructor ============ … … 2579 2411 { 2580 2412 public: 2581 double Ystate[YNBALLTIME_Tsbd][Y NBS_zwisd_trazdf_imp];2582 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zwisd_trazdf_imp];2413 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_trazdf_imp]; 2414 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_trazdf_imp]; 2583 2415 2584 2416 //:=========> Constructor - Destructor ============ … … 2601 2433 { 2602 2434 public: 2603 double Ystate[YNBALLTIME_Tsbd][Y NBS_zrhs_trazdf_imp];2604 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zrhs_trazdf_imp];2435 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_trazdf_imp]; 2436 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_trazdf_imp]; 2605 2437 2606 2438 //:=========> Constructor - Destructor ============ … … 2626 2458 { 2627 2459 public: 2628 double Ystate[YNBALLTIME_Tsbd][Y NBS_zwt_trazdf_imp];2629 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zwt_trazdf_imp];2460 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwt_trazdf_imp]; 2461 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwt_trazdf_imp]; 2630 2462 2631 2463 //:=========> Constructor - Destructor ============ … … 2651 2483 { 2652 2484 public: 2653 double Ystate[YNBALLTIME_Tsbd][Y NBS_ta];2654 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ta];2485 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta]; 2486 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta]; 2655 2487 2656 2488 //:=========> Constructor - Destructor ============ … … 2676 2508 { 2677 2509 public: 2678 double Ystate[YNBALLTIME_Tsbd][Y NBS_sa];2679 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sa];2510 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa]; 2511 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa]; 2680 2512 2681 2513 //:=========> Constructor - Destructor ============ … … 2698 2530 { 2699 2531 public: 2700 double Ystate[YNBALLTIME_Tsbd][Y NBS_tb];2701 double Ygrad[YNBALLTIME_Tsbd][Y NBS_tb];2702 double Ywish[Y NBS_tb];2532 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_tb]; 2533 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_tb]; 2534 double Ywish[YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_tb]; 2703 2535 2704 2536 //:=========> Constructor - Destructor ============ … … 2721 2553 { 2722 2554 public: 2723 double Ystate[YNBALLTIME_Tsbd][Y NBS_sb];2724 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sb];2725 double Ywish[Y NBS_sb];2555 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sb]; 2556 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sb]; 2557 double Ywish[YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sb]; 2726 2558 2727 2559 //:=========> Constructor - Destructor ============ … … 2744 2576 { 2745 2577 public: 2746 double Ystate[YNBALLTIME_Tsbd][Y NBS_rhd];2747 double Ygrad[YNBALLTIME_Tsbd][Y NBS_rhd];2578 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhd]; 2579 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhd]; 2748 2580 2749 2581 //:=========> Constructor - Destructor ============ … … 2766 2598 { 2767 2599 public: 2768 double Ystate[YNBALLTIME_Tsbd][Y NBS_rhop];2769 double Ygrad[YNBALLTIME_Tsbd][Y NBS_rhop];2600 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhop]; 2601 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhop]; 2770 2602 2771 2603 //:=========> Constructor - Destructor ============ … … 2788 2620 { 2789 2621 public: 2790 double Ystate[YNBALLTIME_Tsbd][Y NBS_hmf_TF_dynadv_cen2];2791 double Ygrad[YNBALLTIME_Tsbd][Y NBS_hmf_TF_dynadv_cen2];2622 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_hmf_TF_dynadv_cen2]; 2623 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_hmf_TF_dynadv_cen2]; 2792 2624 2793 2625 //:=========> Constructor - Destructor ============ … … 2810 2642 { 2811 2643 public: 2812 double Ystate[YNBALLTIME_Tsbd][Y NBS_zua_dhmf_dynadv_cen2];2813 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zua_dhmf_dynadv_cen2];2644 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zua_dhmf_dynadv_cen2]; 2645 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zua_dhmf_dynadv_cen2]; 2814 2646 2815 2647 //:=========> Constructor - Destructor ============ … … 2832 2664 { 2833 2665 public: 2834 double Ystate[YNBALLTIME_Tsbd][Y NBS_zva_dhmf_dynadv_cen2];2835 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zva_dhmf_dynadv_cen2];2666 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zva_dhmf_dynadv_cen2]; 2667 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zva_dhmf_dynadv_cen2]; 2836 2668 2837 2669 //:=========> Constructor - Destructor ============ … … 2854 2686 { 2855 2687 public: 2856 double Ystate[YNBALLTIME_Tsbd][Y NBS_zfuv_UW_dynadv_cen2];2857 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zfuv_UW_dynadv_cen2];2688 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zfuv_UW_dynadv_cen2]; 2689 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zfuv_UW_dynadv_cen2]; 2858 2690 2859 2691 //:=========> Constructor - Destructor ============ … … 2876 2708 { 2877 2709 public: 2878 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua_dynadv_cen2];2879 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua_dynadv_cen2];2710 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynadv_cen2]; 2711 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynadv_cen2]; 2880 2712 2881 2713 //:=========> Constructor - Destructor ============ … … 2898 2730 { 2899 2731 public: 2900 double Ystate[YNBALLTIME_Tsbd][Y NBS_va_dynadv_cen2];2901 double Ygrad[YNBALLTIME_Tsbd][Y NBS_va_dynadv_cen2];2732 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dynadv_cen2]; 2733 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dynadv_cen2]; 2902 2734 2903 2735 //:=========> Constructor - Destructor ============ … … 2920 2752 { 2921 2753 public: 2922 double Ystate[YNBALLTIME_Tsbd][Y NBS_zwxyz_vor_ene];2923 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zwxyz_vor_ene];2754 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwxyz_vor_ene]; 2755 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwxyz_vor_ene]; 2924 2756 2925 2757 //:=========> Constructor - Destructor ============ … … 2942 2774 { 2943 2775 public: 2944 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua_vor_ene];2945 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua_vor_ene];2776 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_vor_ene]; 2777 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_vor_ene]; 2946 2778 2947 2779 //:=========> Constructor - Destructor ============ … … 2964 2796 { 2965 2797 public: 2966 double Ystate[YNBALLTIME_Tsbd][Y NBS_va_vor_ene];2967 double Ygrad[YNBALLTIME_Tsbd][Y NBS_va_vor_ene];2798 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_vor_ene]; 2799 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_vor_ene]; 2968 2800 2969 2801 //:=========> Constructor - Destructor ============ … … 2986 2818 { 2987 2819 public: 2988 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua_dyn_ldf_lap];2989 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua_dyn_ldf_lap];2820 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_ldf_lap]; 2821 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_ldf_lap]; 2990 2822 2991 2823 //:=========> Constructor - Destructor ============ … … 3008 2840 { 3009 2841 public: 3010 double Ystate[YNBALLTIME_Tsbd][Y NBS_va_dyn_ldf_lap];3011 double Ygrad[YNBALLTIME_Tsbd][Y NBS_va_dyn_ldf_lap];2842 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dyn_ldf_lap]; 2843 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dyn_ldf_lap]; 3012 2844 3013 2845 //:=========> Constructor - Destructor ============ … … 3030 2862 { 3031 2863 public: 3032 double Ystate[YNBALLTIME_Tsbd][Y NBS_zhpij_dyn_hpg_zco];3033 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zhpij_dyn_hpg_zco];2864 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zhpij_dyn_hpg_zco]; 2865 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zhpij_dyn_hpg_zco]; 3034 2866 3035 2867 //:=========> Constructor - Destructor ============ … … 3052 2884 { 3053 2885 public: 3054 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua_dyn_hpg_zco];3055 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua_dyn_hpg_zco];2886 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_hpg_zco]; 2887 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_hpg_zco]; 3056 2888 3057 2889 //:=========> Constructor - Destructor ============ … … 3077 2909 { 3078 2910 public: 3079 double Ystate[YNBALLTIME_Tsbd][Y NBS_zwisd_ua_dynzdf_imp];3080 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zwisd_ua_dynzdf_imp];2911 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_ua_dynzdf_imp]; 2912 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_ua_dynzdf_imp]; 3081 2913 3082 2914 //:=========> Constructor - Destructor ============ … … 3099 2931 { 3100 2932 public: 3101 double Ystate[YNBALLTIME_Tsbd][Y NBS_zwisd_va_dynzdf_imp];3102 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zwisd_va_dynzdf_imp];2933 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_va_dynzdf_imp]; 2934 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_va_dynzdf_imp]; 3103 2935 3104 2936 //:=========> Constructor - Destructor ============ … … 3121 2953 { 3122 2954 public: 3123 double Ystate[YNBALLTIME_Tsbd][Y NBS_zrhs_ua_dynzdf_imp];3124 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zrhs_ua_dynzdf_imp];2955 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_ua_dynzdf_imp]; 2956 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_ua_dynzdf_imp]; 3125 2957 3126 2958 //:=========> Constructor - Destructor ============ … … 3143 2975 { 3144 2976 public: 3145 double Ystate[YNBALLTIME_Tsbd][Y NBS_zrhs_va_dynzdf_imp];3146 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zrhs_va_dynzdf_imp];2977 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_va_dynzdf_imp]; 2978 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_va_dynzdf_imp]; 3147 2979 3148 2980 //:=========> Constructor - Destructor ============ … … 3174 3006 { 3175 3007 public: 3176 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua_dynzdf_imp];3177 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua_dynzdf_imp];3008 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynzdf_imp]; 3009 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynzdf_imp]; 3178 3010 3179 3011 //:=========> Constructor - Destructor ============ … … 3202 3034 { 3203 3035 public: 3204 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua_norm_dynzdf];3205 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua_norm_dynzdf];3036 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_norm_dynzdf]; 3037 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_norm_dynzdf]; 3206 3038 3207 3039 //:=========> Constructor - Destructor ============ … … 3227 3059 { 3228 3060 public: 3229 double Ystate[YNBALLTIME_Tsbd][Y NBS_spguv_now_dynspg];3230 double Ygrad[YNBALLTIME_Tsbd][Y NBS_spguv_now_dynspg];3061 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_spguv_now_dynspg]; 3062 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_spguv_now_dynspg]; 3231 3063 3232 3064 //:=========> Constructor - Destructor ============ … … 3249 3081 { 3250 3082 public: 3251 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua_1_dynspg_flt];3252 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua_1_dynspg_flt];3083 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_1_dynspg_flt]; 3084 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_1_dynspg_flt]; 3253 3085 3254 3086 //:=========> Constructor - Destructor ============ … … 3271 3103 { 3272 3104 public: 3273 double Ystate[YNBALLTIME_Tsbd][Y NBS_va_1_dynspg_flt];3274 double Ygrad[YNBALLTIME_Tsbd][Y NBS_va_1_dynspg_flt];3105 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_1_dynspg_flt]; 3106 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_1_dynspg_flt]; 3275 3107 3276 3108 //:=========> Constructor - Destructor ============ … … 3293 3125 { 3294 3126 public: 3295 double Ystate[YNBALLTIME_Tsbd][Y NBS_sum_spgu_dynspg_flt];3296 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sum_spgu_dynspg_flt];3127 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sum_spgu_dynspg_flt]; 3128 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sum_spgu_dynspg_flt]; 3297 3129 3298 3130 //:=========> Constructor - Destructor ============ … … 3315 3147 { 3316 3148 public: 3317 double Ystate[YNBALLTIME_Tsbd][Y NBS_sum_spgv_dynspg_flt];3318 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sum_spgv_dynspg_flt];3149 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sum_spgv_dynspg_flt]; 3150 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sum_spgv_dynspg_flt]; 3319 3151 3320 3152 //:=========> Constructor - Destructor ============ … … 3337 3169 { 3338 3170 public: 3339 double Ystate[YNBALLTIME_Tsbd][Y NBS_gcb_dynspg_flt];3340 double Ygrad[YNBALLTIME_Tsbd][Y NBS_gcb_dynspg_flt];3171 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcb_dynspg_flt]; 3172 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcb_dynspg_flt]; 3341 3173 3342 3174 //:=========> Constructor - Destructor ============ … … 3359 3191 { 3360 3192 public: 3361 double Ystate[YNBALLTIME_Tsbd][Y NBS_gcx_dynspg_flt];3362 double Ygrad[YNBALLTIME_Tsbd][Y NBS_gcx_dynspg_flt];3193 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcx_dynspg_flt]; 3194 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcx_dynspg_flt]; 3363 3195 3364 3196 //:=========> Constructor - Destructor ============ … … 3381 3213 { 3382 3214 public: 3383 double Ystate[YNBALLTIME_Tsbd][Y NBS_solsor_gx1_x_r];3384 double Ygrad[YNBALLTIME_Tsbd][Y NBS_solsor_gx1_x_r];3215 double Ystate[YNBALLTIME_Tsbd][YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_gx1_x_r]; 3216 double Ygrad[YNBALLTIME_Tsbd][YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_gx1_x_r]; 3385 3217 3386 3218 //:=========> Constructor - Destructor ============ … … 3403 3235 { 3404 3236 public: 3405 double Ystate[YNBALLTIME_Tsbd][Y NBS_solsor_gx2_x_r];3406 double Ygrad[YNBALLTIME_Tsbd][Y NBS_solsor_gx2_x_r];3237 double Ystate[YNBALLTIME_Tsbd][YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_gx2_x_r]; 3238 double Ygrad[YNBALLTIME_Tsbd][YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_gx2_x_r]; 3407 3239 3408 3240 //:=========> Constructor - Destructor ============ … … 3425 3257 { 3426 3258 public: 3427 double Ystate[YNBALLTIME_Tsbd][Y NBS_solsor_flag];3428 double Ygrad[YNBALLTIME_Tsbd][Y NBS_solsor_flag];3259 double Ystate[YNBALLTIME_Tsbd][YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_flag]; 3260 double Ygrad[YNBALLTIME_Tsbd][YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_flag]; 3429 3261 3430 3262 //:=========> Constructor - Destructor ============ … … 3447 3279 { 3448 3280 public: 3449 double Ystate[YNBALLTIME_Tsbd][Y NBS_gcx2];3450 double Ygrad[YNBALLTIME_Tsbd][Y NBS_gcx2];3281 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_gcx2]; 3282 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_gcx2]; 3451 3283 3452 3284 //:=========> Constructor - Destructor ============ … … 3469 3301 { 3470 3302 public: 3471 double Ystate[YNBALLTIME_Tsbd][Y NBS_spguv_dynspg_flt];3472 double Ygrad[YNBALLTIME_Tsbd][Y NBS_spguv_dynspg_flt];3303 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_spguv_dynspg_flt]; 3304 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_spguv_dynspg_flt]; 3473 3305 3474 3306 //:=========> Constructor - Destructor ============ … … 3491 3323 { 3492 3324 public: 3493 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua];3494 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua];3325 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ua]; 3326 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ua]; 3495 3327 3496 3328 //:=========> Constructor - Destructor ============ … … 3513 3345 { 3514 3346 public: 3515 double Ystate[YNBALLTIME_Tsbd][Y NBS_va];3516 double Ygrad[YNBALLTIME_Tsbd][Y NBS_va];3347 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_va]; 3348 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_va]; 3517 3349 3518 3350 //:=========> Constructor - Destructor ============ … … 3535 3367 { 3536 3368 public: 3537 double Ystate[YNBALLTIME_Tsbd][Y NBS_sshn];3538 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sshn];3369 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_sshn]; 3370 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_sshn]; 3539 3371 3540 3372 //:=========> Constructor - Destructor ============ … … 3557 3389 { 3558 3390 public: 3559 double Ystate[YNBALLTIME_Tsbd][Y NBS_sshb];3560 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sshb];3561 double Ywish[Y NBS_sshb];3391 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_sshb]; 3392 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_sshb]; 3393 double Ywish[YA1_S3dt_b][YA2_S3dt_b][YNBS_sshb]; 3562 3394 3563 3395 //:=========> Constructor - Destructor ============ … … 3580 3412 { 3581 3413 public: 3582 double Ystate[YNBALLTIME_Tsbd][Y NBS_ub];3583 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ub];3584 double Ywish[Y NBS_ub];3414 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ub]; 3415 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ub]; 3416 double Ywish[YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ub]; 3585 3417 3586 3418 //:=========> Constructor - Destructor ============ … … 3603 3435 { 3604 3436 public: 3605 double Ystate[YNBALLTIME_Tsbd][Y NBS_vb];3606 double Ygrad[YNBALLTIME_Tsbd][Y NBS_vb];3607 double Ywish[Y NBS_vb];3437 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_vb]; 3438 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_vb]; 3439 double Ywish[YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_vb]; 3608 3440 3609 3441 //:=========> Constructor - Destructor ============ … … 3626 3458 { 3627 3459 public: 3628 double Ystate[YNBALLTIME_Tsbd][Y NBS_hdivn];3629 double Ygrad[YNBALLTIME_Tsbd][Y NBS_hdivn];3460 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_hdivn]; 3461 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_hdivn]; 3630 3462 3631 3463 //:=========> Constructor - Destructor ============ … … 3648 3480 { 3649 3481 public: 3650 double Ystate[YNBALLTIME_Tsbd][Y NBS_rotn];3651 double Ygrad[YNBALLTIME_Tsbd][Y NBS_rotn];3482 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_rotn]; 3483 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_rotn]; 3652 3484 3653 3485 //:=========> Constructor - Destructor ============ … … 3670 3502 { 3671 3503 public: 3672 double Ystate[YNBALLTIME_Tsbd][Y NBS_wa];3673 double Ygrad[YNBALLTIME_Tsbd][Y NBS_wa];3504 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_wa]; 3505 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_wa]; 3674 3506 3675 3507 //:=========> Constructor - Destructor ============ … … 3688 3520 }; 3689 3521 3690 // € € € € PROTOTYPES of AUTO-FUNCTIONS € € € € € € € € € € €3522 //ᅵ ᅵ ᅵ ᅵ PROTOTYPES of AUTO-FUNCTIONS ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ 3691 3523 void Yrazgrad_sshn_c(); 3692 3524 void Ysetstate_sshn_c(); … … 3880 3712 struct Yst_traj YTabTraj[2] = { 3881 3713 {"Tcst", 'M', 0, 0.000000, 1.000000, 0.000000, 0, 1, 1.000000, NULL, NULL, NULL, NULL, 0}, 3882 {"Tsbd", 'M', 2, 0.000000, 1.000000, 0.000000, 2, 10, 10.000000, Yforward_traj_Tsbd, Ybackward_traj_Tsbd, NULL, NULL, 1},3714 {"Tsbd", 'M', 2, 0.000000, 1.000000, 0.000000, 2, 50, 50.000000, Yforward_traj_Tsbd, Ybackward_traj_Tsbd, NULL, NULL, 1}, 3883 3715 }; 3884 3716 … … 3901 3733 #define YNBMODUL 89 3902 3734 struct Yst_modul YTabMod[89] = { 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"},3735 {"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"}, 3736 {"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"}, 3737 {"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"}, 3738 {"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"}, 3739 {"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"}, 3740 {"sbcgyre_qsr_qns", Ysbcgyre_qsr_qns, 2, 32, 22, 0, 1, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3741 {"sbcgyre_emp1", Ysbcgyre_emp1, 2, 32, 22, 0, 0, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3742 {"sbcgyre_zsumemp_zsurf", Ysbcgyre_zsumemp_zsurf, 2, 32, 22, 0, 5, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3743 {"sbcgyre_emp", Ysbcgyre_emp, 2, 32, 22, 0, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3744 {"sbcgyre_emps", Ysbcgyre_emps, 2, 32, 22, 0, 1, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3745 {"sbcgyre_utau_vtau", Ysbcgyre_utau_vtau, 2, 32, 22, 0, 0, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3746 {"sbcgyre_wndm", Ysbcgyre_wndm, 2, 32, 22, 0, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3747 {"bn2_rn2", Ybn2_rn2, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3748 {"zdf_avt_avmu_avmv", Yzdf_avt_avmu_avmv, 3, 32, 22, 31, 19, 3, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3749 {"zdfmxl_hmld", Yzdfmxl_hmld, 2, 32, 22, 0, 31, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3750 {"zdfmxl_nmln_hmlp_hmlpt", Yzdfmxl_nmln_hmlp_hmlpt, 2, 32, 22, 0, 31, 3, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3751 {"ta_sa_trasbc", Yta_sa_trasbc, 2, 32, 22, 0, 3, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3752 {"ta_traqsr", Yta_traqsr, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3753 {"zcent_hor_traadv_cen2", Yzcent_hor_traadv_cen2, 3, 32, 22, 31, 5, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3754 {"zcens_hor_traadv_cen2", Yzcens_hor_traadv_cen2, 3, 32, 22, 31, 5, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3755 {"ta_hor_traadv_cen2", Yta_hor_traadv_cen2, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3756 {"sa_hor_traadv_cen2", Ysa_hor_traadv_cen2, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3757 {"zcent_ver_traadv_cen2", Yzcent_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3758 {"zcens_ver_traadv_cen2", Yzcens_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3759 {"ta_ver_traadv_cen2", Yta_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3760 {"sa_ver_traadv_cen2", Ysa_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3761 {"ztuv_traldf_lap", Yztuv_traldf_lap, 3, 32, 22, 31, 3, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3762 {"zsuv_traldf_lap", Yzsuv_traldf_lap, 3, 32, 22, 31, 3, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3763 {"ta_traldf_lap", Yta_traldf_lap, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3764 {"sa_traldf_lap", Ysa_traldf_lap, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3765 {"zwisd_trazdf_imp", Yzwisd_trazdf_imp, 3, 32, 22, 31, 2, 3, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3766 {"zrhs_trazdf_imp", Yzrhs_trazdf_imp, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3767 {"zrhs_sa_trazdf_imp", Yzrhs_sa_trazdf_imp, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3768 {"zwt_trazdf_imp", Yzwt_trazdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3769 {"ta_de_trazdf_imp", Yta_de_trazdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3770 {"ta", Yta, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3771 {"sa_de_trazdf_imp", Ysa_de_trazdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3772 {"sa", Ysa, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3773 {"tb", Ytb, 3, 32, 22, 31, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3774 {"sb", Ysb, 3, 32, 22, 31, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3775 {"rhd", Yrhd, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3776 {"rhop", Yrhop, 3, 32, 22, 31, 1, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3777 {"hmf_TF_dynadv_cen2", Yhmf_TF_dynadv_cen2, 3, 32, 22, 31, 6, 4, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3778 {"zua_dhmf_dynadv_cen2", Yzua_dhmf_dynadv_cen2, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3779 {"zva_dhmf_dynadv_cen2", Yzva_dhmf_dynadv_cen2, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3780 {"zfuv_UW_dynadv_cen2", Yzfuv_UW_dynadv_cen2, 3, 32, 22, 31, 7, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3781 {"ua_dynadv_cen2", Yua_dynadv_cen2, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3782 {"va_dynadv_cen2", Yva_dynadv_cen2, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3783 {"zwxyz_vor_ene", Yzwxyz_vor_ene, 3, 32, 22, 31, 4, 3, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3784 {"ua_vor_ene", Yua_vor_ene, 3, 32, 22, 31, 7, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3785 {"va_vor_ene", Yva_vor_ene, 3, 32, 22, 31, 7, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3786 {"ua_dyn_ldf_lap", Yua_dyn_ldf_lap, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3787 {"va_dyn_ldf_lap", Yva_dyn_ldf_lap, 3, 32, 22, 31, 5, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3788 {"zhpij_dyn_hpg_zco", Yzhpij_dyn_hpg_zco, 3, 32, 22, 31, 8, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3789 {"ua_dyn_hpg_zco", Yua_dyn_hpg_zco, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3790 {"va_dyn_hpg_zco", Yva_dyn_hpg_zco, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3791 {"zwisd_ua_dynzdf_imp", Yzwisd_ua_dynzdf_imp, 3, 32, 22, 31, 2, 3, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3792 {"zwisd_va_dynzdf_imp", Yzwisd_va_dynzdf_imp, 3, 32, 22, 31, 2, 3, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3793 {"zrhs_ua_dynzdf_imp", Yzrhs_ua_dynzdf_imp, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3794 {"zrhs_va_dynzdf_imp", Yzrhs_va_dynzdf_imp, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3795 {"zwt_ua_dynzdf_imp", Yzwt_ua_dynzdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3796 {"zwt_va_dynzdf_imp", Yzwt_va_dynzdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3797 {"ua_de_dynzdf_imp", Yua_de_dynzdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3798 {"ua_dynzdf_imp", Yua_dynzdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3799 {"va_de_dynzdf_imp", Yva_de_dynzdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3800 {"va_dynzdf_imp", Yva_dynzdf_imp, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3801 {"ua_norm_dynzdf", Yua_norm_dynzdf, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3802 {"va_norm_dynzdf", Yva_norm_dynzdf, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3803 {"spguv_now_dynspg", Yspguv_now_dynspg, 2, 32, 22, 0, 3, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3804 {"ua_1_dynspg_flt", Yua_1_dynspg_flt, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3805 {"va_1_dynspg_flt", Yva_1_dynspg_flt, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3806 {"sum_spgu_dynspg_flt", Ysum_spgu_dynspg_flt, 2, 32, 22, 0, 31, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3807 {"sum_spgv_dynspg_flt", Ysum_spgv_dynspg_flt, 2, 32, 22, 0, 31, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3808 {"gcb_dynspg_flt", Ygcb_dynspg_flt, 2, 32, 22, 0, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3809 {"gcx_dynspg_flt", Ygcx_dynspg_flt, 2, 32, 22, 0, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3810 {"solsor_gx1_x_r", Ysolsor_gx1_x_r, 3, 32, 22, 800, 8, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "Ssolsor"}, 3811 {"solsor_gx2_x_r", Ysolsor_gx2_x_r, 3, 32, 22, 800, 9, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "Ssolsor"}, 3812 {"solsor_flag", Ysolsor_flag, 3, 32, 22, 800, 4, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "Ssolsor"}, 3813 {"gcx2", Ygcx2, 2, 32, 22, 0, 1, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3814 {"spguv_dynspg_flt", Yspguv_dynspg_flt, 2, 32, 22, 0, 3, 2, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3815 {"ua", Yua, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3816 {"va", Yva, 3, 32, 22, 31, 3, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3817 {"sshn", Ysshn, 2, 32, 22, 0, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3818 {"sshb", Ysshb, 2, 32, 22, 0, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3819 {"ub", Yub, 3, 32, 22, 31, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3820 {"vb", Yvb, 3, 32, 22, 31, 4, 1, 52, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3821 {"hdivn", Yhdivn, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3822 {"rotn", Yrotn, 3, 32, 22, 31, 4, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3823 {"wa", Ywa, 3, 32, 22, 31, 2, 1, 52, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3992 3824 }; 3993 3825 … … 4093 3925 {"NZ", "31"}, 4094 3926 {"NMAX", "800"}, 4095 {"TA", " 10"},3927 {"TA", "50"}, 4096 3928 {"TU", "2"}, 4097 3929 }; 4098 3930 4099 // € € € € GENERATION AUTOMATIQUE DES include € € € € € € € € € € €3931 //ᅵ ᅵ ᅵ ᅵ GENERATION AUTOMATIQUE DES include ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ 4100 3932 #include "sinobad.h" 4101 3933 … … 4103 3935 #define backward void sbcgyre_qsr_qns::backward 4104 3936 #define flinward void sbcgyre_qsr_qns::flinward 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]3937 #define YS1Y Ystate[YTemps][Yi][Yj][0] 3938 #define YS1 Ystate[YTemps][Yi][Yj][0] 3939 #define YG1 Ygrad[YTemps][Yi][Yj][0] 3940 #define YS2Y Ystate[YTemps][Yi][Yj][1] 3941 #define YS2 Ystate[YTemps][Yi][Yj][1] 3942 #define YG2 Ygrad[YTemps][Yi][Yj][1] 4111 3943 #include "sbcgyre_qsr_qns.h" 4112 3944 #undef YS1Y … … 4123 3955 #define backward void sbcgyre_emp1::backward 4124 3956 #define flinward void sbcgyre_emp1::flinward 4125 #define YS1Y Ystate[YTemps][ 0]4126 #define YS1 Ystate[YTemps][ 0]4127 #define YG1 Ygrad[YTemps][ 0]3957 #define YS1Y Ystate[YTemps][Yi][Yj][0] 3958 #define YS1 Ystate[YTemps][Yi][Yj][0] 3959 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4128 3960 #include "sbcgyre_emp1.h" 4129 3961 #undef YS1Y … … 4137 3969 #define backward void sbcgyre_zsumemp_zsurf::backward 4138 3970 #define flinward void sbcgyre_zsumemp_zsurf::flinward 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]3971 #define YS1Y Ystate[YTemps][Yi][Yj][0] 3972 #define YS1 Ystate[YTemps][Yi][Yj][0] 3973 #define YG1 Ygrad[YTemps][Yi][Yj][0] 3974 #define YS2Y Ystate[YTemps][Yi][Yj][1] 3975 #define YS2 Ystate[YTemps][Yi][Yj][1] 3976 #define YG2 Ygrad[YTemps][Yi][Yj][1] 4145 3977 #include "sbcgyre_zsumemp_zsurf.h" 4146 3978 #undef YS1Y … … 4157 3989 #define backward void sbcgyre_emp::backward 4158 3990 #define flinward void sbcgyre_emp::flinward 4159 #define YS1Y Ystate[YTemps][ 0]4160 #define YS1 Ystate[YTemps][ 0]4161 #define YG1 Ygrad[YTemps][ 0]3991 #define YS1Y Ystate[YTemps][Yi][Yj][0] 3992 #define YS1 Ystate[YTemps][Yi][Yj][0] 3993 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4162 3994 #include "sbcgyre_emp.h" 4163 3995 #undef YS1Y … … 4171 4003 #define backward void sbcgyre_emps::backward 4172 4004 #define flinward void sbcgyre_emps::flinward 4173 #define YS1Y Ystate[YTemps][ 0]4174 #define YS1 Ystate[YTemps][ 0]4175 #define YG1 Ygrad[YTemps][ 0]4005 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4006 #define YS1 Ystate[YTemps][Yi][Yj][0] 4007 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4176 4008 #include "sbcgyre_emps.h" 4177 4009 #undef YS1Y … … 4185 4017 #define backward void sbcgyre_utau_vtau::backward 4186 4018 #define flinward void sbcgyre_utau_vtau::flinward 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]4019 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4020 #define YS1 Ystate[YTemps][Yi][Yj][0] 4021 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4022 #define YS2Y Ystate[YTemps][Yi][Yj][1] 4023 #define YS2 Ystate[YTemps][Yi][Yj][1] 4024 #define YG2 Ygrad[YTemps][Yi][Yj][1] 4193 4025 #include "sbcgyre_utau_vtau.h" 4194 4026 #undef YS1Y … … 4205 4037 #define backward void sbcgyre_wndm::backward 4206 4038 #define flinward void sbcgyre_wndm::flinward 4207 #define YS1Y Ystate[YTemps][ 0]4208 #define YS1 Ystate[YTemps][ 0]4209 #define YG1 Ygrad[YTemps][ 0]4039 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4040 #define YS1 Ystate[YTemps][Yi][Yj][0] 4041 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4210 4042 #include "sbcgyre_wndm.h" 4211 4043 #undef YS1Y … … 4219 4051 #define backward void bn2_rn2::backward 4220 4052 #define flinward void bn2_rn2::flinward 4221 #define YS1Y Ystate[YTemps][ 0]4222 #define YS1 Ystate[YTemps][ 0]4223 #define YG1 Ygrad[YTemps][ 0]4053 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4054 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4055 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4224 4056 #include "bn2_rn2.h" 4225 4057 #undef YS1Y … … 4233 4065 #define backward void zdf_avt_avmu_avmv::backward 4234 4066 #define flinward void zdf_avt_avmu_avmv::flinward 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]4067 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4068 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4069 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4070 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4071 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4072 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4073 #define YS3Y Ystate[YTemps][Yi][Yj][Yk][2] 4074 #define YS3 Ystate[YTemps][Yi][Yj][Yk][2] 4075 #define YG3 Ygrad[YTemps][Yi][Yj][Yk][2] 4244 4076 #include "zdf_avt_avmu_avmv.h" 4245 4077 #undef YS1Y … … 4259 4091 #define backward void zdfmxl_hmld::backward 4260 4092 #define flinward void zdfmxl_hmld::flinward 4261 #define YS1Y Ystate[YTemps][ 0]4262 #define YS1 Ystate[YTemps][ 0]4263 #define YG1 Ygrad[YTemps][ 0]4093 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4094 #define YS1 Ystate[YTemps][Yi][Yj][0] 4095 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4264 4096 #include "zdfmxl_hmld.h" 4265 4097 #undef YS1Y … … 4273 4105 #define backward void zdfmxl_nmln_hmlp_hmlpt::backward 4274 4106 #define flinward void zdfmxl_nmln_hmlp_hmlpt::flinward 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]4107 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4108 #define YS1 Ystate[YTemps][Yi][Yj][0] 4109 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4110 #define YS2Y Ystate[YTemps][Yi][Yj][1] 4111 #define YS2 Ystate[YTemps][Yi][Yj][1] 4112 #define YG2 Ygrad[YTemps][Yi][Yj][1] 4113 #define YS3Y Ystate[YTemps][Yi][Yj][2] 4114 #define YS3 Ystate[YTemps][Yi][Yj][2] 4115 #define YG3 Ygrad[YTemps][Yi][Yj][2] 4284 4116 #include "zdfmxl_nmln_hmlp_hmlpt.h" 4285 4117 #undef YS1Y … … 4299 4131 #define backward void ta_sa_trasbc::backward 4300 4132 #define flinward void ta_sa_trasbc::flinward 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]4133 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4134 #define YS1 Ystate[YTemps][Yi][Yj][0] 4135 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4136 #define YS2Y Ystate[YTemps][Yi][Yj][1] 4137 #define YS2 Ystate[YTemps][Yi][Yj][1] 4138 #define YG2 Ygrad[YTemps][Yi][Yj][1] 4307 4139 #include "ta_sa_trasbc.h" 4308 4140 #undef YS1Y … … 4319 4151 #define backward void ta_traqsr::backward 4320 4152 #define flinward void ta_traqsr::flinward 4321 #define YS1Y Ystate[YTemps][ 0]4322 #define YS1 Ystate[YTemps][ 0]4323 #define YG1 Ygrad[YTemps][ 0]4153 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4154 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4155 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4324 4156 #include "ta_traqsr.h" 4325 4157 #undef YS1Y … … 4333 4165 #define backward void zcent_hor_traadv_cen2::backward 4334 4166 #define flinward void zcent_hor_traadv_cen2::flinward 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]4167 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4168 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4169 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4170 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4171 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4172 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4341 4173 #include "zcent_hor_traadv_cen2.h" 4342 4174 #undef YS1Y … … 4353 4185 #define backward void ta_hor_traadv_cen2::backward 4354 4186 #define flinward void ta_hor_traadv_cen2::flinward 4355 #define YS1Y Ystate[YTemps][ 0]4356 #define YS1 Ystate[YTemps][ 0]4357 #define YG1 Ygrad[YTemps][ 0]4187 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4188 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4189 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4358 4190 #include "ta_hor_traadv_cen2.h" 4359 4191 #undef YS1Y … … 4367 4199 #define backward void sa_hor_traadv_cen2::backward 4368 4200 #define flinward void sa_hor_traadv_cen2::flinward 4369 #define YS1Y Ystate[YTemps][ 0]4370 #define YS1 Ystate[YTemps][ 0]4371 #define YG1 Ygrad[YTemps][ 0]4201 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4202 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4203 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4372 4204 #include "sa_hor_traadv_cen2.h" 4373 4205 #undef YS1Y … … 4381 4213 #define backward void zcent_ver_traadv_cen2::backward 4382 4214 #define flinward void zcent_ver_traadv_cen2::flinward 4383 #define YS1Y Ystate[YTemps][ 0]4384 #define YS1 Ystate[YTemps][ 0]4385 #define YG1 Ygrad[YTemps][ 0]4215 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4216 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4217 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4386 4218 #include "zcent_ver_traadv_cen2.h" 4387 4219 #undef YS1Y … … 4395 4227 #define backward void ta_ver_traadv_cen2::backward 4396 4228 #define flinward void ta_ver_traadv_cen2::flinward 4397 #define YS1Y Ystate[YTemps][ 0]4398 #define YS1 Ystate[YTemps][ 0]4399 #define YG1 Ygrad[YTemps][ 0]4229 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4230 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4231 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4400 4232 #include "ta_ver_traadv_cen2.h" 4401 4233 #undef YS1Y … … 4409 4241 #define backward void ztuv_traldf_lap::backward 4410 4242 #define flinward void ztuv_traldf_lap::flinward 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]4243 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4244 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4245 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4246 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4247 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4248 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4417 4249 #include "ztuv_traldf_lap.h" 4418 4250 #undef YS1Y … … 4429 4261 #define backward void ta_traldf_lap::backward 4430 4262 #define flinward void ta_traldf_lap::flinward 4431 #define YS1Y Ystate[YTemps][ 0]4432 #define YS1 Ystate[YTemps][ 0]4433 #define YG1 Ygrad[YTemps][ 0]4263 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4264 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4265 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4434 4266 #include "ta_traldf_lap.h" 4435 4267 #undef YS1Y … … 4443 4275 #define backward void zwisd_trazdf_imp::backward 4444 4276 #define flinward void zwisd_trazdf_imp::flinward 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]4277 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4278 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4279 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4280 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4281 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4282 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4283 #define YS3Y Ystate[YTemps][Yi][Yj][Yk][2] 4284 #define YS3 Ystate[YTemps][Yi][Yj][Yk][2] 4285 #define YG3 Ygrad[YTemps][Yi][Yj][Yk][2] 4454 4286 #include "zwisd_trazdf_imp.h" 4455 4287 #undef YS1Y … … 4469 4301 #define backward void zrhs_trazdf_imp::backward 4470 4302 #define flinward void zrhs_trazdf_imp::flinward 4471 #define YS1Y Ystate[YTemps][ 0]4472 #define YS1 Ystate[YTemps][ 0]4473 #define YG1 Ygrad[YTemps][ 0]4303 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4304 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4305 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4474 4306 #include "zrhs_trazdf_imp.h" 4475 4307 #undef YS1Y … … 4483 4315 #define backward void zwt_trazdf_imp::backward 4484 4316 #define flinward void zwt_trazdf_imp::flinward 4485 #define YS1Y Ystate[YTemps][ 0]4486 #define YS1 Ystate[YTemps][ 0]4487 #define YG1 Ygrad[YTemps][ 0]4317 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4318 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4319 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4488 4320 #include "zwt_trazdf_imp.h" 4489 4321 #undef YS1Y … … 4497 4329 #define backward void ta::backward 4498 4330 #define flinward void ta::flinward 4499 #define YS1Y Ystate[YTemps][ 0]4500 #define YS1 Ystate[YTemps][ 0]4501 #define YG1 Ygrad[YTemps][ 0]4331 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4332 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4333 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4502 4334 #include "ta.h" 4503 4335 #undef YS1Y … … 4511 4343 #define backward void sa::backward 4512 4344 #define flinward void sa::flinward 4513 #define YS1Y Ystate[YTemps][ 0]4514 #define YS1 Ystate[YTemps][ 0]4515 #define YG1 Ygrad[YTemps][ 0]4345 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4346 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4347 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4516 4348 #include "sa.h" 4517 4349 #undef YS1Y … … 4525 4357 #define backward void tb::backward 4526 4358 #define flinward void tb::flinward 4527 #define YS1Y Ystate[YTemps][ 0]4528 #define YS1 Ystate[YTemps][ 0]4529 #define YG1 Ygrad[YTemps][ 0]4359 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4360 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4361 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4530 4362 #include "tb.h" 4531 4363 #undef YS1Y … … 4539 4371 #define backward void sb::backward 4540 4372 #define flinward void sb::flinward 4541 #define YS1Y Ystate[YTemps][ 0]4542 #define YS1 Ystate[YTemps][ 0]4543 #define YG1 Ygrad[YTemps][ 0]4373 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4374 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4375 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4544 4376 #include "sb.h" 4545 4377 #undef YS1Y … … 4553 4385 #define backward void rhd::backward 4554 4386 #define flinward void rhd::flinward 4555 #define YS1Y Ystate[YTemps][ 0]4556 #define YS1 Ystate[YTemps][ 0]4557 #define YG1 Ygrad[YTemps][ 0]4387 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4388 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4389 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4558 4390 #include "rhd.h" 4559 4391 #undef YS1Y … … 4567 4399 #define backward void rhop::backward 4568 4400 #define flinward void rhop::flinward 4569 #define YS1Y Ystate[YTemps][ 0]4570 #define YS1 Ystate[YTemps][ 0]4571 #define YG1 Ygrad[YTemps][ 0]4401 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4402 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4403 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4572 4404 #include "rhop.h" 4573 4405 #undef YS1Y … … 4581 4413 #define backward void hmf_TF_dynadv_cen2::backward 4582 4414 #define flinward void hmf_TF_dynadv_cen2::flinward 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]4415 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4416 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4417 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4418 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4419 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4420 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4421 #define YS3Y Ystate[YTemps][Yi][Yj][Yk][2] 4422 #define YS3 Ystate[YTemps][Yi][Yj][Yk][2] 4423 #define YG3 Ygrad[YTemps][Yi][Yj][Yk][2] 4424 #define YS4Y Ystate[YTemps][Yi][Yj][Yk][3] 4425 #define YS4 Ystate[YTemps][Yi][Yj][Yk][3] 4426 #define YG4 Ygrad[YTemps][Yi][Yj][Yk][3] 4595 4427 #include "hmf_TF_dynadv_cen2.h" 4596 4428 #undef YS1Y … … 4613 4445 #define backward void zua_dhmf_dynadv_cen2::backward 4614 4446 #define flinward void zua_dhmf_dynadv_cen2::flinward 4615 #define YS1Y Ystate[YTemps][ 0]4616 #define YS1 Ystate[YTemps][ 0]4617 #define YG1 Ygrad[YTemps][ 0]4447 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4448 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4449 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4618 4450 #include "zua_dhmf_dynadv_cen2.h" 4619 4451 #undef YS1Y … … 4627 4459 #define backward void zva_dhmf_dynadv_cen2::backward 4628 4460 #define flinward void zva_dhmf_dynadv_cen2::flinward 4629 #define YS1Y Ystate[YTemps][ 0]4630 #define YS1 Ystate[YTemps][ 0]4631 #define YG1 Ygrad[YTemps][ 0]4461 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4462 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4463 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4632 4464 #include "zva_dhmf_dynadv_cen2.h" 4633 4465 #undef YS1Y … … 4641 4473 #define backward void zfuv_UW_dynadv_cen2::backward 4642 4474 #define flinward void zfuv_UW_dynadv_cen2::flinward 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]4475 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4476 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4477 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4478 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4479 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4480 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4649 4481 #include "zfuv_UW_dynadv_cen2.h" 4650 4482 #undef YS1Y … … 4661 4493 #define backward void ua_dynadv_cen2::backward 4662 4494 #define flinward void ua_dynadv_cen2::flinward 4663 #define YS1Y Ystate[YTemps][ 0]4664 #define YS1 Ystate[YTemps][ 0]4665 #define YG1 Ygrad[YTemps][ 0]4495 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4496 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4497 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4666 4498 #include "ua_dynadv_cen2.h" 4667 4499 #undef YS1Y … … 4675 4507 #define backward void va_dynadv_cen2::backward 4676 4508 #define flinward void va_dynadv_cen2::flinward 4677 #define YS1Y Ystate[YTemps][ 0]4678 #define YS1 Ystate[YTemps][ 0]4679 #define YG1 Ygrad[YTemps][ 0]4509 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4510 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4511 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4680 4512 #include "va_dynadv_cen2.h" 4681 4513 #undef YS1Y … … 4689 4521 #define backward void zwxyz_vor_ene::backward 4690 4522 #define flinward void zwxyz_vor_ene::flinward 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]4523 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4524 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4525 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4526 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4527 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4528 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4529 #define YS3Y Ystate[YTemps][Yi][Yj][Yk][2] 4530 #define YS3 Ystate[YTemps][Yi][Yj][Yk][2] 4531 #define YG3 Ygrad[YTemps][Yi][Yj][Yk][2] 4700 4532 #include "zwxyz_vor_ene.h" 4701 4533 #undef YS1Y … … 4715 4547 #define backward void ua_vor_ene::backward 4716 4548 #define flinward void ua_vor_ene::flinward 4717 #define YS1Y Ystate[YTemps][ 0]4718 #define YS1 Ystate[YTemps][ 0]4719 #define YG1 Ygrad[YTemps][ 0]4549 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4550 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4551 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4720 4552 #include "ua_vor_ene.h" 4721 4553 #undef YS1Y … … 4729 4561 #define backward void va_vor_ene::backward 4730 4562 #define flinward void va_vor_ene::flinward 4731 #define YS1Y Ystate[YTemps][ 0]4732 #define YS1 Ystate[YTemps][ 0]4733 #define YG1 Ygrad[YTemps][ 0]4563 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4564 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4565 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4734 4566 #include "va_vor_ene.h" 4735 4567 #undef YS1Y … … 4743 4575 #define backward void ua_dyn_ldf_lap::backward 4744 4576 #define flinward void ua_dyn_ldf_lap::flinward 4745 #define YS1Y Ystate[YTemps][ 0]4746 #define YS1 Ystate[YTemps][ 0]4747 #define YG1 Ygrad[YTemps][ 0]4577 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4578 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4579 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4748 4580 #include "ua_dyn_ldf_lap.h" 4749 4581 #undef YS1Y … … 4757 4589 #define backward void va_dyn_ldf_lap::backward 4758 4590 #define flinward void va_dyn_ldf_lap::flinward 4759 #define YS1Y Ystate[YTemps][ 0]4760 #define YS1 Ystate[YTemps][ 0]4761 #define YG1 Ygrad[YTemps][ 0]4591 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4592 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4593 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4762 4594 #include "va_dyn_ldf_lap.h" 4763 4595 #undef YS1Y … … 4771 4603 #define backward void zhpij_dyn_hpg_zco::backward 4772 4604 #define flinward void zhpij_dyn_hpg_zco::flinward 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]4605 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4606 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4607 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4608 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4609 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4610 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4779 4611 #include "zhpij_dyn_hpg_zco.h" 4780 4612 #undef YS1Y … … 4791 4623 #define backward void ua_dyn_hpg_zco::backward 4792 4624 #define flinward void ua_dyn_hpg_zco::flinward 4793 #define YS1Y Ystate[YTemps][ 0]4794 #define YS1 Ystate[YTemps][ 0]4795 #define YG1 Ygrad[YTemps][ 0]4625 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4626 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4627 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4796 4628 #include "ua_dyn_hpg_zco.h" 4797 4629 #undef YS1Y … … 4805 4637 #define backward void zwisd_ua_dynzdf_imp::backward 4806 4638 #define flinward void zwisd_ua_dynzdf_imp::flinward 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]4639 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4640 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4641 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4642 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4643 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4644 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4645 #define YS3Y Ystate[YTemps][Yi][Yj][Yk][2] 4646 #define YS3 Ystate[YTemps][Yi][Yj][Yk][2] 4647 #define YG3 Ygrad[YTemps][Yi][Yj][Yk][2] 4816 4648 #include "zwisd_ua_dynzdf_imp.h" 4817 4649 #undef YS1Y … … 4831 4663 #define backward void zwisd_va_dynzdf_imp::backward 4832 4664 #define flinward void zwisd_va_dynzdf_imp::flinward 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]4665 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4666 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4667 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4668 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4669 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4670 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4671 #define YS3Y Ystate[YTemps][Yi][Yj][Yk][2] 4672 #define YS3 Ystate[YTemps][Yi][Yj][Yk][2] 4673 #define YG3 Ygrad[YTemps][Yi][Yj][Yk][2] 4842 4674 #include "zwisd_va_dynzdf_imp.h" 4843 4675 #undef YS1Y … … 4857 4689 #define backward void zrhs_ua_dynzdf_imp::backward 4858 4690 #define flinward void zrhs_ua_dynzdf_imp::flinward 4859 #define YS1Y Ystate[YTemps][ 0]4860 #define YS1 Ystate[YTemps][ 0]4861 #define YG1 Ygrad[YTemps][ 0]4691 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4692 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4693 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4862 4694 #include "zrhs_ua_dynzdf_imp.h" 4863 4695 #undef YS1Y … … 4871 4703 #define backward void zrhs_va_dynzdf_imp::backward 4872 4704 #define flinward void zrhs_va_dynzdf_imp::flinward 4873 #define YS1Y Ystate[YTemps][ 0]4874 #define YS1 Ystate[YTemps][ 0]4875 #define YG1 Ygrad[YTemps][ 0]4705 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4706 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4707 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4876 4708 #include "zrhs_va_dynzdf_imp.h" 4877 4709 #undef YS1Y … … 4885 4717 #define backward void ua_dynzdf_imp::backward 4886 4718 #define flinward void ua_dynzdf_imp::flinward 4887 #define YS1Y Ystate[YTemps][ 0]4888 #define YS1 Ystate[YTemps][ 0]4889 #define YG1 Ygrad[YTemps][ 0]4719 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4720 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4721 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4890 4722 #include "ua_dynzdf_imp.h" 4891 4723 #undef YS1Y … … 4899 4731 #define backward void ua_norm_dynzdf::backward 4900 4732 #define flinward void ua_norm_dynzdf::flinward 4901 #define YS1Y Ystate[YTemps][ 0]4902 #define YS1 Ystate[YTemps][ 0]4903 #define YG1 Ygrad[YTemps][ 0]4733 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4734 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4735 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4904 4736 #include "ua_norm_dynzdf.h" 4905 4737 #undef YS1Y … … 4913 4745 #define backward void spguv_now_dynspg::backward 4914 4746 #define flinward void spguv_now_dynspg::flinward 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]4747 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4748 #define YS1 Ystate[YTemps][Yi][Yj][0] 4749 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4750 #define YS2Y Ystate[YTemps][Yi][Yj][1] 4751 #define YS2 Ystate[YTemps][Yi][Yj][1] 4752 #define YG2 Ygrad[YTemps][Yi][Yj][1] 4921 4753 #include "spguv_now_dynspg.h" 4922 4754 #undef YS1Y … … 4933 4765 #define backward void ua_1_dynspg_flt::backward 4934 4766 #define flinward void ua_1_dynspg_flt::flinward 4935 #define YS1Y Ystate[YTemps][ 0]4936 #define YS1 Ystate[YTemps][ 0]4937 #define YG1 Ygrad[YTemps][ 0]4767 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4768 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4769 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4938 4770 #include "ua_1_dynspg_flt.h" 4939 4771 #undef YS1Y … … 4947 4779 #define backward void va_1_dynspg_flt::backward 4948 4780 #define flinward void va_1_dynspg_flt::flinward 4949 #define YS1Y Ystate[YTemps][ 0]4950 #define YS1 Ystate[YTemps][ 0]4951 #define YG1 Ygrad[YTemps][ 0]4781 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4782 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4783 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4952 4784 #include "va_1_dynspg_flt.h" 4953 4785 #undef YS1Y … … 4961 4793 #define backward void sum_spgu_dynspg_flt::backward 4962 4794 #define flinward void sum_spgu_dynspg_flt::flinward 4963 #define YS1Y Ystate[YTemps][ 0]4964 #define YS1 Ystate[YTemps][ 0]4965 #define YG1 Ygrad[YTemps][ 0]4795 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4796 #define YS1 Ystate[YTemps][Yi][Yj][0] 4797 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4966 4798 #include "sum_spgu_dynspg_flt.h" 4967 4799 #undef YS1Y … … 4975 4807 #define backward void sum_spgv_dynspg_flt::backward 4976 4808 #define flinward void sum_spgv_dynspg_flt::flinward 4977 #define YS1Y Ystate[YTemps][ 0]4978 #define YS1 Ystate[YTemps][ 0]4979 #define YG1 Ygrad[YTemps][ 0]4809 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4810 #define YS1 Ystate[YTemps][Yi][Yj][0] 4811 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4980 4812 #include "sum_spgv_dynspg_flt.h" 4981 4813 #undef YS1Y … … 4989 4821 #define backward void gcb_dynspg_flt::backward 4990 4822 #define flinward void gcb_dynspg_flt::flinward 4991 #define YS1Y Ystate[YTemps][ 0]4992 #define YS1 Ystate[YTemps][ 0]4993 #define YG1 Ygrad[YTemps][ 0]4823 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4824 #define YS1 Ystate[YTemps][Yi][Yj][0] 4825 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4994 4826 #include "gcb_dynspg_flt.h" 4995 4827 #undef YS1Y … … 5003 4835 #define backward void gcx_dynspg_flt::backward 5004 4836 #define flinward void gcx_dynspg_flt::flinward 5005 #define YS1Y Ystate[YTemps][ 0]5006 #define YS1 Ystate[YTemps][ 0]5007 #define YG1 Ygrad[YTemps][ 0]4837 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4838 #define YS1 Ystate[YTemps][Yi][Yj][0] 4839 #define YG1 Ygrad[YTemps][Yi][Yj][0] 5008 4840 #include "gcx_dynspg_flt.h" 5009 4841 #undef YS1Y … … 5017 4849 #define backward void solsor_gx1_x_r::backward 5018 4850 #define flinward void solsor_gx1_x_r::flinward 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]4851 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4852 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4853 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4854 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4855 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4856 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 5025 4857 #include "solsor_gx1_x_r.h" 5026 4858 #undef YS1Y … … 5037 4869 #define backward void solsor_gx2_x_r::backward 5038 4870 #define flinward void solsor_gx2_x_r::flinward 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]4871 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4872 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4873 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4874 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4875 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4876 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 5045 4877 #include "solsor_gx2_x_r.h" 5046 4878 #undef YS1Y … … 5057 4889 #define backward void solsor_flag::backward 5058 4890 #define flinward void solsor_flag::flinward 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]4891 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4892 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4893 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4894 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4895 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4896 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 5065 4897 #include "solsor_flag.h" 5066 4898 #undef YS1Y … … 5077 4909 #define backward void gcx2::backward 5078 4910 #define flinward void gcx2::flinward 5079 #define YS1Y Ystate[YTemps][ 0]5080 #define YS1 Ystate[YTemps][ 0]5081 #define YG1 Ygrad[YTemps][ 0]4911 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4912 #define YS1 Ystate[YTemps][Yi][Yj][0] 4913 #define YG1 Ygrad[YTemps][Yi][Yj][0] 5082 4914 #include "gcx2.h" 5083 4915 #undef YS1Y … … 5091 4923 #define backward void spguv_dynspg_flt::backward 5092 4924 #define flinward void spguv_dynspg_flt::flinward 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]4925 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4926 #define YS1 Ystate[YTemps][Yi][Yj][0] 4927 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4928 #define YS2Y Ystate[YTemps][Yi][Yj][1] 4929 #define YS2 Ystate[YTemps][Yi][Yj][1] 4930 #define YG2 Ygrad[YTemps][Yi][Yj][1] 5099 4931 #include "spguv_dynspg_flt.h" 5100 4932 #undef YS1Y … … 5111 4943 #define backward void ua::backward 5112 4944 #define flinward void ua::flinward 5113 #define YS1Y Ystate[YTemps][ 0]5114 #define YS1 Ystate[YTemps][ 0]5115 #define YG1 Ygrad[YTemps][ 0]4945 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4946 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4947 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 5116 4948 #include "ua.h" 5117 4949 #undef YS1Y … … 5125 4957 #define backward void va::backward 5126 4958 #define flinward void va::flinward 5127 #define YS1Y Ystate[YTemps][ 0]5128 #define YS1 Ystate[YTemps][ 0]5129 #define YG1 Ygrad[YTemps][ 0]4959 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4960 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4961 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 5130 4962 #include "va.h" 5131 4963 #undef YS1Y … … 5139 4971 #define backward void sshn::backward 5140 4972 #define flinward void sshn::flinward 5141 #define YS1Y Ystate[YTemps][ 0]5142 #define YS1 Ystate[YTemps][ 0]5143 #define YG1 Ygrad[YTemps][ 0]4973 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4974 #define YS1 Ystate[YTemps][Yi][Yj][0] 4975 #define YG1 Ygrad[YTemps][Yi][Yj][0] 5144 4976 #include "sshn.h" 5145 4977 #undef YS1Y … … 5153 4985 #define backward void sshb::backward 5154 4986 #define flinward void sshb::flinward 5155 #define YS1Y Ystate[YTemps][ 0]5156 #define YS1 Ystate[YTemps][ 0]5157 #define YG1 Ygrad[YTemps][ 0]4987 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4988 #define YS1 Ystate[YTemps][Yi][Yj][0] 4989 #define YG1 Ygrad[YTemps][Yi][Yj][0] 5158 4990 #include "sshb.h" 5159 4991 #undef YS1Y … … 5167 4999 #define backward void ub::backward 5168 5000 #define flinward void ub::flinward 5169 #define YS1Y Ystate[YTemps][ 0]5170 #define YS1 Ystate[YTemps][ 0]5171 #define YG1 Ygrad[YTemps][ 0]5001 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 5002 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 5003 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 5172 5004 #include "ub.h" 5173 5005 #undef YS1Y … … 5181 5013 #define backward void vb::backward 5182 5014 #define flinward void vb::flinward 5183 #define YS1Y Ystate[YTemps][ 0]5184 #define YS1 Ystate[YTemps][ 0]5185 #define YG1 Ygrad[YTemps][ 0]5015 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 5016 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 5017 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 5186 5018 #include "vb.h" 5187 5019 #undef YS1Y … … 5195 5027 #define backward void hdivn::backward 5196 5028 #define flinward void hdivn::flinward 5197 #define YS1Y Ystate[YTemps][ 0]5198 #define YS1 Ystate[YTemps][ 0]5199 #define YG1 Ygrad[YTemps][ 0]5029 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 5030 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 5031 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 5200 5032 #include "hdivn.h" 5201 5033 #undef YS1Y … … 5209 5041 #define backward void rotn::backward 5210 5042 #define flinward void rotn::flinward 5211 #define YS1Y Ystate[YTemps][ 0]5212 #define YS1 Ystate[YTemps][ 0]5213 #define YG1 Ygrad[YTemps][ 0]5043 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 5044 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 5045 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 5214 5046 #include "rotn.h" 5215 5047 #undef YS1Y … … 5223 5055 #define backward void wa::backward 5224 5056 #define flinward void wa::flinward 5225 #define YS1Y Ystate[YTemps][ 0]5226 #define YS1 Ystate[YTemps][ 0]5227 #define YG1 Ygrad[YTemps][ 0]5057 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 5058 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 5059 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 5228 5060 #include "wa.h" 5229 5061 #undef YS1Y -
trunk/src/Yworkdir/Y2sinobad.h
r47 r49 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 (Yw1, Yw2)->Ygrad[Yws] = 0.0;}}}20 Ysshn_c->Ygrad[Yw1][Yw2][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 (Yw1, Yw2)->Ystate[Yws] = val;}}}27 Ysshn_c->Ystate[Yw1][Yw2][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 }/*M2_CREY*/ 32 void Ycreate_sshn_c() 33 { 34 for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 35 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 36 if ((Ysshn_c(Yw1, Yw2)= new Yaosshn_c ())==NULL) Ycreate_errnew();}} 31 }/*M0_CREY*/ 32 void Ycreate_sshn_c() 33 { 34 if ((Ysshn_c = new Yaosshn_c ())==NULL) 35 Ycreate_errnew(); 37 36 }/*M3_ADJUS*/ 38 37 void Yadjust_ta_c() … … 59 58 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 60 59 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 61 Y3x[Y3windice] = Yta_c (Yw1, Yw2, Yw3)->Ystate[Yws]; ++Y3windice;}}}}60 Y3x[Y3windice] = Yta_c->Ystate[Yw1][Yw2][Yw3][Yws]; ++Y3windice;}}}} 62 61 }/*M3_GSTA*/ 63 62 void Y3getstate_ta_c(float x[]) … … 67 66 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 68 67 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 69 Yta_c (Yw1, Yw2, Yw3)->Ystate[Yws] = x[Y3windice]; ++Y3windice;}}}}68 Yta_c->Ystate[Yw1][Yw2][Yw3][Yws] = x[Y3windice]; ++Y3windice;}}}} 70 69 }/*M3_VGRAD*/ 71 70 void Y3valgrad_ta_c(float g[]) … … 75 74 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 76 75 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 77 g[Y3windice] = Yta_c (Yw1, Yw2, Yw3)->Ygrad[Yws]; ++Y3windice;}}}}76 g[Y3windice] = Yta_c->Ygrad[Yw1][Yw2][Yw3][Yws]; ++Y3windice;}}}} 78 77 }/*M3_TBTOG */ 79 78 void YtabTOgrad_ta_c(YREAL tab[]) … … 91 90 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 92 91 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 93 Yta_c (Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}}92 Yta_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 94 93 }/*M3_SETA*/ 95 94 void Ysetstate_ta_c(double val) … … 99 98 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 100 99 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 101 Yta_c (Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}}100 Yta_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 102 101 }/*M3_YIOTU*/ 103 102 void Yio_ta_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 126 125 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 127 126 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 128 Yta_c(Yw1, Yw2, Yw3)->Yepsi[Yws] = val;}}}} 129 }/*M3_CREY*/ 130 void Ycreate_ta_c() 131 { 132 for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 133 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 134 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 135 if ((Yta_c(Yw1, Yw2, Yw3) = new Yaota_c ())==NULL) Ycreate_errnew();}}} 127 Yta_c->Yepsi[Yw1][Yw2][Yw3][Yws] = val;}}}} 128 }/*M0_CREY*/ 129 void Ycreate_ta_c() 130 { 131 if ((Yta_c = new Yaota_c ())==NULL) 132 Ycreate_errnew(); 136 133 }/*M3_SWISH*/ 137 134 void Ysetwish_ta_c(double val) … … 157 154 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 158 155 for (int Yws=0; Yws<YNBS_sa_c; ++Yws){ 159 Ysa_c (Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}}156 Ysa_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 160 157 }/*M3_SETA*/ 161 158 void Ysetstate_sa_c(double val) … … 165 162 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 166 163 for (int Yws=0; Yws<YNBS_sa_c; ++Yws){ 167 Ysa_c (Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}}164 Ysa_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 168 165 }/*M3_YIOTU*/ 169 166 void Yio_sa_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 170 167 { Yiorwf ("sa_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_c(Yws, Yw1, Yw2, Yw3), val); 171 }/*M3_CREY*/ 172 void Ycreate_sa_c() 173 { 174 for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 175 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 176 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 177 if ((Ysa_c(Yw1, Yw2, Yw3) = new Yaosa_c ())==NULL) Ycreate_errnew();}}} 168 }/*M0_CREY*/ 169 void Ycreate_sa_c() 170 { 171 if ((Ysa_c = new Yaosa_c ())==NULL) 172 Ycreate_errnew(); 178 173 }/*M3_TBTOG */ 179 174 void YtabTOgrad_ua_c(YREAL tab[]) … … 191 186 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 192 187 for (int Yws=0; Yws<YNBS_ua_c; ++Yws){ 193 Yua_c (Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}}188 Yua_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 194 189 }/*M3_SETA*/ 195 190 void Ysetstate_ua_c(double val) … … 199 194 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 200 195 for (int Yws=0; Yws<YNBS_ua_c; ++Yws){ 201 Yua_c (Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}}196 Yua_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 202 197 }/*M3_YIOTU*/ 203 198 void Yio_ua_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 204 199 { Yiorwf ("ua_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_c(Yws, Yw1, Yw2, Yw3), val); 205 }/*M3_CREY*/ 206 void Ycreate_ua_c() 207 { 208 for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 209 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 210 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 211 if ((Yua_c(Yw1, Yw2, Yw3) = new Yaoua_c ())==NULL) Ycreate_errnew();}}} 200 }/*M0_CREY*/ 201 void Ycreate_ua_c() 202 { 203 if ((Yua_c = new Yaoua_c ())==NULL) 204 Ycreate_errnew(); 212 205 }/*M3_TBTOG */ 213 206 void YtabTOgrad_va_c(YREAL tab[]) … … 225 218 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 226 219 for (int Yws=0; Yws<YNBS_va_c; ++Yws){ 227 Yva_c (Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}}220 Yva_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 228 221 }/*M3_SETA*/ 229 222 void Ysetstate_va_c(double val) … … 233 226 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 234 227 for (int Yws=0; Yws<YNBS_va_c; ++Yws){ 235 Yva_c (Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}}228 Yva_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 236 229 }/*M3_YIOTU*/ 237 230 void Yio_va_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 238 231 { Yiorwf ("va_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_c(Yws, Yw1, Yw2, Yw3), val); 239 }/*M3_CREY*/ 240 void Ycreate_va_c() 241 { 242 for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 243 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 244 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 245 if ((Yva_c(Yw1, Yw2, Yw3) = new Yaova_c ())==NULL) Ycreate_errnew();}}} 232 }/*M0_CREY*/ 233 void Ycreate_va_c() 234 { 235 if ((Yva_c = new Yaova_c ())==NULL) 236 Ycreate_errnew(); 246 237 }/*M2_TBTOGT */ 247 238 void YtabTOgrad_sbcgyre_qsr_qns(int frompdt, int topdt, YREAL tab[]) … … 259 250 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 260 251 for (int Yws=0; Yws<YNBS_sbcgyre_qsr_qns; ++Yws){ 261 Ysbcgyre_qsr_qns (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}252 Ysbcgyre_qsr_qns->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 262 253 }/*M2_SETAT*/ 263 254 void Ysetstate_sbcgyre_qsr_qns(double val) … … 267 258 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 268 259 for (int Yws=0; Yws<YNBS_sbcgyre_qsr_qns; ++Yws){ 269 Ysbcgyre_qsr_qns (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}260 Ysbcgyre_qsr_qns->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 270 261 }/*M2_YIOUT*/ 271 262 void Yio_sbcgyre_qsr_qns(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 272 263 { Yiorwf ("sbcgyre_qsr_qns", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_qsr_qns(Yws, Yw1, Yw2, Ywt), val); 273 }/*M 2_CREU*/264 }/*M0_CREU*/ 274 265 void Ycreate_sbcgyre_qsr_qns() 275 266 { 276 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 277 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 278 if ((Ysbcgyre_qsr_qns(Yw1, Yw2)= new sbcgyre_qsr_qns ())==NULL) Ycreate_errnew();}} 267 if ((Ysbcgyre_qsr_qns = new sbcgyre_qsr_qns ())==NULL) 268 Ycreate_errnew(); 279 269 }/*M2_TBTOGT */ 280 270 void YtabTOgrad_sbcgyre_emp1(int frompdt, int topdt, YREAL tab[]) … … 292 282 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 293 283 for (int Yws=0; Yws<YNBS_sbcgyre_emp1; ++Yws){ 294 Ysbcgyre_emp1 (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}284 Ysbcgyre_emp1->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 295 285 }/*M2_SETAT*/ 296 286 void Ysetstate_sbcgyre_emp1(double val) … … 300 290 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 301 291 for (int Yws=0; Yws<YNBS_sbcgyre_emp1; ++Yws){ 302 Ysbcgyre_emp1 (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}292 Ysbcgyre_emp1->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 303 293 }/*M2_YIOUT*/ 304 294 void Yio_sbcgyre_emp1(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 305 295 { Yiorwf ("sbcgyre_emp1", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emp1(Yws, Yw1, Yw2, Ywt), val); 306 }/*M 2_CREU*/296 }/*M0_CREU*/ 307 297 void Ycreate_sbcgyre_emp1() 308 298 { 309 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 310 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 311 if ((Ysbcgyre_emp1(Yw1, Yw2)= new sbcgyre_emp1 ())==NULL) Ycreate_errnew();}} 299 if ((Ysbcgyre_emp1 = new sbcgyre_emp1 ())==NULL) 300 Ycreate_errnew(); 312 301 }/*M2_TBTOGT */ 313 302 void YtabTOgrad_sbcgyre_zsumemp_zsurf(int frompdt, int topdt, YREAL tab[]) … … 325 314 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 326 315 for (int Yws=0; Yws<YNBS_sbcgyre_zsumemp_zsurf; ++Yws){ 327 Ysbcgyre_zsumemp_zsurf (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}316 Ysbcgyre_zsumemp_zsurf->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 328 317 }/*M2_SETAT*/ 329 318 void Ysetstate_sbcgyre_zsumemp_zsurf(double val) … … 333 322 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 334 323 for (int Yws=0; Yws<YNBS_sbcgyre_zsumemp_zsurf; ++Yws){ 335 Ysbcgyre_zsumemp_zsurf (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}324 Ysbcgyre_zsumemp_zsurf->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 336 325 }/*M2_YIOUT*/ 337 326 void Yio_sbcgyre_zsumemp_zsurf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 338 327 { Yiorwf ("sbcgyre_zsumemp_zsurf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_zsumemp_zsurf(Yws, Yw1, Yw2, Ywt), val); 339 }/*M 2_CREU*/328 }/*M0_CREU*/ 340 329 void Ycreate_sbcgyre_zsumemp_zsurf() 341 330 { 342 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 343 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 344 if ((Ysbcgyre_zsumemp_zsurf(Yw1, Yw2)= new sbcgyre_zsumemp_zsurf ())==NULL) Ycreate_errnew();}} 331 if ((Ysbcgyre_zsumemp_zsurf = new sbcgyre_zsumemp_zsurf ())==NULL) 332 Ycreate_errnew(); 345 333 }/*M2_TBTOGT */ 346 334 void YtabTOgrad_sbcgyre_emp(int frompdt, int topdt, YREAL tab[]) … … 358 346 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 359 347 for (int Yws=0; Yws<YNBS_sbcgyre_emp; ++Yws){ 360 Ysbcgyre_emp (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}348 Ysbcgyre_emp->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 361 349 }/*M2_SETAT*/ 362 350 void Ysetstate_sbcgyre_emp(double val) … … 366 354 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 367 355 for (int Yws=0; Yws<YNBS_sbcgyre_emp; ++Yws){ 368 Ysbcgyre_emp (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}356 Ysbcgyre_emp->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 369 357 }/*M2_YIOUT*/ 370 358 void Yio_sbcgyre_emp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 371 359 { Yiorwf ("sbcgyre_emp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emp(Yws, Yw1, Yw2, Ywt), val); 372 }/*M 2_CREU*/360 }/*M0_CREU*/ 373 361 void Ycreate_sbcgyre_emp() 374 362 { 375 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 376 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 377 if ((Ysbcgyre_emp(Yw1, Yw2)= new sbcgyre_emp ())==NULL) Ycreate_errnew();}} 363 if ((Ysbcgyre_emp = new sbcgyre_emp ())==NULL) 364 Ycreate_errnew(); 378 365 }/*M2_TBTOGT */ 379 366 void YtabTOgrad_sbcgyre_emps(int frompdt, int topdt, YREAL tab[]) … … 391 378 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 392 379 for (int Yws=0; Yws<YNBS_sbcgyre_emps; ++Yws){ 393 Ysbcgyre_emps (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}380 Ysbcgyre_emps->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 394 381 }/*M2_SETAT*/ 395 382 void Ysetstate_sbcgyre_emps(double val) … … 399 386 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 400 387 for (int Yws=0; Yws<YNBS_sbcgyre_emps; ++Yws){ 401 Ysbcgyre_emps (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}388 Ysbcgyre_emps->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 402 389 }/*M2_YIOUT*/ 403 390 void Yio_sbcgyre_emps(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 404 391 { Yiorwf ("sbcgyre_emps", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emps(Yws, Yw1, Yw2, Ywt), val); 405 }/*M 2_CREU*/392 }/*M0_CREU*/ 406 393 void Ycreate_sbcgyre_emps() 407 394 { 408 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 409 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 410 if ((Ysbcgyre_emps(Yw1, Yw2)= new sbcgyre_emps ())==NULL) Ycreate_errnew();}} 395 if ((Ysbcgyre_emps = new sbcgyre_emps ())==NULL) 396 Ycreate_errnew(); 411 397 }/*M2_TBTOGT */ 412 398 void YtabTOgrad_sbcgyre_utau_vtau(int frompdt, int topdt, YREAL tab[]) … … 424 410 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 425 411 for (int Yws=0; Yws<YNBS_sbcgyre_utau_vtau; ++Yws){ 426 Ysbcgyre_utau_vtau (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}412 Ysbcgyre_utau_vtau->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 427 413 }/*M2_SETAT*/ 428 414 void Ysetstate_sbcgyre_utau_vtau(double val) … … 432 418 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 433 419 for (int Yws=0; Yws<YNBS_sbcgyre_utau_vtau; ++Yws){ 434 Ysbcgyre_utau_vtau (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}420 Ysbcgyre_utau_vtau->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 435 421 }/*M2_YIOUT*/ 436 422 void Yio_sbcgyre_utau_vtau(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 437 423 { Yiorwf ("sbcgyre_utau_vtau", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_utau_vtau(Yws, Yw1, Yw2, Ywt), val); 438 }/*M 2_CREU*/424 }/*M0_CREU*/ 439 425 void Ycreate_sbcgyre_utau_vtau() 440 426 { 441 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 442 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 443 if ((Ysbcgyre_utau_vtau(Yw1, Yw2)= new sbcgyre_utau_vtau ())==NULL) Ycreate_errnew();}} 427 if ((Ysbcgyre_utau_vtau = new sbcgyre_utau_vtau ())==NULL) 428 Ycreate_errnew(); 444 429 }/*M2_TBTOGT */ 445 430 void YtabTOgrad_sbcgyre_wndm(int frompdt, int topdt, YREAL tab[]) … … 457 442 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 458 443 for (int Yws=0; Yws<YNBS_sbcgyre_wndm; ++Yws){ 459 Ysbcgyre_wndm (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}444 Ysbcgyre_wndm->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 460 445 }/*M2_SETAT*/ 461 446 void Ysetstate_sbcgyre_wndm(double val) … … 465 450 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 466 451 for (int Yws=0; Yws<YNBS_sbcgyre_wndm; ++Yws){ 467 Ysbcgyre_wndm (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}452 Ysbcgyre_wndm->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 468 453 }/*M2_YIOUT*/ 469 454 void Yio_sbcgyre_wndm(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 470 455 { Yiorwf ("sbcgyre_wndm", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_wndm(Yws, Yw1, Yw2, Ywt), val); 471 }/*M 2_CREU*/456 }/*M0_CREU*/ 472 457 void Ycreate_sbcgyre_wndm() 473 458 { 474 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 475 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 476 if ((Ysbcgyre_wndm(Yw1, Yw2)= new sbcgyre_wndm ())==NULL) Ycreate_errnew();}} 459 if ((Ysbcgyre_wndm = new sbcgyre_wndm ())==NULL) 460 Ycreate_errnew(); 477 461 }/*M3_TBTOGT */ 478 462 void YtabTOgrad_bn2_rn2(int frompdt, int topdt, YREAL tab[]) … … 492 476 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 493 477 for (int Yws=0; Yws<YNBS_bn2_rn2; ++Yws){ 494 Ybn2_rn2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}478 Ybn2_rn2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 495 479 }/*M3_SETAT*/ 496 480 void Ysetstate_bn2_rn2(double val) … … 501 485 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 502 486 for (int Yws=0; Yws<YNBS_bn2_rn2; ++Yws){ 503 Ybn2_rn2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}487 Ybn2_rn2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 504 488 }/*M3_YIOUT*/ 505 489 void Yio_bn2_rn2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 506 490 { Yiorwf ("bn2_rn2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_bn2_rn2(Yws, Yw1, Yw2, Yw3, Ywt), val); 507 }/*M 3_CREU*/491 }/*M0_CREU*/ 508 492 void Ycreate_bn2_rn2() 509 493 { 510 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 511 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 512 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 513 if ((Ybn2_rn2(Yw1, Yw2, Yw3) = new bn2_rn2 ())==NULL) Ycreate_errnew();}}} 494 if ((Ybn2_rn2 = new bn2_rn2 ())==NULL) 495 Ycreate_errnew(); 514 496 }/*M3_TBTOGT */ 515 497 void YtabTOgrad_zdf_avt_avmu_avmv(int frompdt, int topdt, YREAL tab[]) … … 529 511 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 530 512 for (int Yws=0; Yws<YNBS_zdf_avt_avmu_avmv; ++Yws){ 531 Yzdf_avt_avmu_avmv (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}513 Yzdf_avt_avmu_avmv->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 532 514 }/*M3_SETAT*/ 533 515 void Ysetstate_zdf_avt_avmu_avmv(double val) … … 538 520 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 539 521 for (int Yws=0; Yws<YNBS_zdf_avt_avmu_avmv; ++Yws){ 540 Yzdf_avt_avmu_avmv (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}522 Yzdf_avt_avmu_avmv->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 541 523 }/*M3_YIOUT*/ 542 524 void Yio_zdf_avt_avmu_avmv(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 543 525 { Yiorwf ("zdf_avt_avmu_avmv", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdf_avt_avmu_avmv(Yws, Yw1, Yw2, Yw3, Ywt), val); 544 }/*M 3_CREU*/526 }/*M0_CREU*/ 545 527 void Ycreate_zdf_avt_avmu_avmv() 546 528 { 547 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 548 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 549 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 550 if ((Yzdf_avt_avmu_avmv(Yw1, Yw2, Yw3) = new zdf_avt_avmu_avmv ())==NULL) Ycreate_errnew();}}} 529 if ((Yzdf_avt_avmu_avmv = new zdf_avt_avmu_avmv ())==NULL) 530 Ycreate_errnew(); 551 531 }/*M2_TBTOGT */ 552 532 void YtabTOgrad_zdfmxl_hmld(int frompdt, int topdt, YREAL tab[]) … … 564 544 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 565 545 for (int Yws=0; Yws<YNBS_zdfmxl_hmld; ++Yws){ 566 Yzdfmxl_hmld (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}546 Yzdfmxl_hmld->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 567 547 }/*M2_SETAT*/ 568 548 void Ysetstate_zdfmxl_hmld(double val) … … 572 552 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 573 553 for (int Yws=0; Yws<YNBS_zdfmxl_hmld; ++Yws){ 574 Yzdfmxl_hmld (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}554 Yzdfmxl_hmld->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 575 555 }/*M2_YIOUT*/ 576 556 void Yio_zdfmxl_hmld(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 577 557 { Yiorwf ("zdfmxl_hmld", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdfmxl_hmld(Yws, Yw1, Yw2, Ywt), val); 578 }/*M 2_CREU*/558 }/*M0_CREU*/ 579 559 void Ycreate_zdfmxl_hmld() 580 560 { 581 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 582 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 583 if ((Yzdfmxl_hmld(Yw1, Yw2)= new zdfmxl_hmld ())==NULL) Ycreate_errnew();}} 561 if ((Yzdfmxl_hmld = new zdfmxl_hmld ())==NULL) 562 Ycreate_errnew(); 584 563 }/*M2_TBTOGT */ 585 564 void YtabTOgrad_zdfmxl_nmln_hmlp_hmlpt(int frompdt, int topdt, YREAL tab[]) … … 597 576 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 598 577 for (int Yws=0; Yws<YNBS_zdfmxl_nmln_hmlp_hmlpt; ++Yws){ 599 Yzdfmxl_nmln_hmlp_hmlpt (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}578 Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 600 579 }/*M2_SETAT*/ 601 580 void Ysetstate_zdfmxl_nmln_hmlp_hmlpt(double val) … … 605 584 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 606 585 for (int Yws=0; Yws<YNBS_zdfmxl_nmln_hmlp_hmlpt; ++Yws){ 607 Yzdfmxl_nmln_hmlp_hmlpt (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}586 Yzdfmxl_nmln_hmlp_hmlpt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 608 587 }/*M2_YIOUT*/ 609 588 void Yio_zdfmxl_nmln_hmlp_hmlpt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 610 589 { Yiorwf ("zdfmxl_nmln_hmlp_hmlpt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdfmxl_nmln_hmlp_hmlpt(Yws, Yw1, Yw2, Ywt), val); 611 }/*M 2_CREU*/590 }/*M0_CREU*/ 612 591 void Ycreate_zdfmxl_nmln_hmlp_hmlpt() 613 592 { 614 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 615 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 616 if ((Yzdfmxl_nmln_hmlp_hmlpt(Yw1, Yw2)= new zdfmxl_nmln_hmlp_hmlpt ())==NULL) Ycreate_errnew();}} 593 if ((Yzdfmxl_nmln_hmlp_hmlpt = new zdfmxl_nmln_hmlp_hmlpt ())==NULL) 594 Ycreate_errnew(); 617 595 }/*M2_TBTOGT */ 618 596 void YtabTOgrad_ta_sa_trasbc(int frompdt, int topdt, YREAL tab[]) … … 630 608 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 631 609 for (int Yws=0; Yws<YNBS_ta_sa_trasbc; ++Yws){ 632 Yta_sa_trasbc (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}610 Yta_sa_trasbc->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 633 611 }/*M2_SETAT*/ 634 612 void Ysetstate_ta_sa_trasbc(double val) … … 638 616 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 639 617 for (int Yws=0; Yws<YNBS_ta_sa_trasbc; ++Yws){ 640 Yta_sa_trasbc (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}618 Yta_sa_trasbc->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 641 619 }/*M2_YIOUT*/ 642 620 void Yio_ta_sa_trasbc(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 643 621 { Yiorwf ("ta_sa_trasbc", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_sa_trasbc(Yws, Yw1, Yw2, Ywt), val); 644 }/*M 2_CREU*/622 }/*M0_CREU*/ 645 623 void Ycreate_ta_sa_trasbc() 646 624 { 647 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 648 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 649 if ((Yta_sa_trasbc(Yw1, Yw2)= new ta_sa_trasbc ())==NULL) Ycreate_errnew();}} 625 if ((Yta_sa_trasbc = new ta_sa_trasbc ())==NULL) 626 Ycreate_errnew(); 650 627 }/*M3_TBTOGT */ 651 628 void YtabTOgrad_ta_traqsr(int frompdt, int topdt, YREAL tab[]) … … 665 642 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 666 643 for (int Yws=0; Yws<YNBS_ta_traqsr; ++Yws){ 667 Yta_traqsr (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}644 Yta_traqsr->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 668 645 }/*M3_SETAT*/ 669 646 void Ysetstate_ta_traqsr(double val) … … 674 651 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 675 652 for (int Yws=0; Yws<YNBS_ta_traqsr; ++Yws){ 676 Yta_traqsr (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}653 Yta_traqsr->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 677 654 }/*M3_YIOUT*/ 678 655 void Yio_ta_traqsr(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 679 656 { Yiorwf ("ta_traqsr", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_traqsr(Yws, Yw1, Yw2, Yw3, Ywt), val); 680 }/*M 3_CREU*/657 }/*M0_CREU*/ 681 658 void Ycreate_ta_traqsr() 682 659 { 683 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 684 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 685 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 686 if ((Yta_traqsr(Yw1, Yw2, Yw3) = new ta_traqsr ())==NULL) Ycreate_errnew();}}} 660 if ((Yta_traqsr = new ta_traqsr ())==NULL) 661 Ycreate_errnew(); 687 662 }/*M3_TBTOGT */ 688 663 void YtabTOgrad_zcent_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 702 677 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 703 678 for (int Yws=0; Yws<YNBS_zcent_hor_traadv_cen2; ++Yws){ 704 Yzcent_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}679 Yzcent_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 705 680 }/*M3_SETAT*/ 706 681 void Ysetstate_zcent_hor_traadv_cen2(double val) … … 711 686 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 712 687 for (int Yws=0; Yws<YNBS_zcent_hor_traadv_cen2; ++Yws){ 713 Yzcent_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}688 Yzcent_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 714 689 }/*M3_YIOUT*/ 715 690 void Yio_zcent_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 716 691 { Yiorwf ("zcent_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcent_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 717 }/*M 3_CREU*/692 }/*M0_CREU*/ 718 693 void Ycreate_zcent_hor_traadv_cen2() 719 694 { 720 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 721 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 722 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 723 if ((Yzcent_hor_traadv_cen2(Yw1, Yw2, Yw3) = new zcent_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 695 if ((Yzcent_hor_traadv_cen2 = new zcent_hor_traadv_cen2 ())==NULL) 696 Ycreate_errnew(); 724 697 }/*M3_TBTOGT */ 725 698 void YtabTOgrad_zcens_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 739 712 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 740 713 for (int Yws=0; Yws<YNBS_zcens_hor_traadv_cen2; ++Yws){ 741 Yzcens_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}714 Yzcens_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 742 715 }/*M3_SETAT*/ 743 716 void Ysetstate_zcens_hor_traadv_cen2(double val) … … 748 721 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 749 722 for (int Yws=0; Yws<YNBS_zcens_hor_traadv_cen2; ++Yws){ 750 Yzcens_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}723 Yzcens_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 751 724 }/*M3_YIOUT*/ 752 725 void Yio_zcens_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 753 726 { Yiorwf ("zcens_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcens_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 754 }/*M 3_CREU*/727 }/*M0_CREU*/ 755 728 void Ycreate_zcens_hor_traadv_cen2() 756 729 { 757 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 758 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 759 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 760 if ((Yzcens_hor_traadv_cen2(Yw1, Yw2, Yw3) = new zcens_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 730 if ((Yzcens_hor_traadv_cen2 = new zcens_hor_traadv_cen2 ())==NULL) 731 Ycreate_errnew(); 761 732 }/*M3_TBTOGT */ 762 733 void YtabTOgrad_ta_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 776 747 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 777 748 for (int Yws=0; Yws<YNBS_ta_hor_traadv_cen2; ++Yws){ 778 Yta_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}749 Yta_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 779 750 }/*M3_SETAT*/ 780 751 void Ysetstate_ta_hor_traadv_cen2(double val) … … 785 756 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 786 757 for (int Yws=0; Yws<YNBS_ta_hor_traadv_cen2; ++Yws){ 787 Yta_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}758 Yta_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 788 759 }/*M3_YIOUT*/ 789 760 void Yio_ta_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 790 761 { Yiorwf ("ta_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 791 }/*M 3_CREU*/762 }/*M0_CREU*/ 792 763 void Ycreate_ta_hor_traadv_cen2() 793 764 { 794 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 795 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 796 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 797 if ((Yta_hor_traadv_cen2(Yw1, Yw2, Yw3) = new ta_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 765 if ((Yta_hor_traadv_cen2 = new ta_hor_traadv_cen2 ())==NULL) 766 Ycreate_errnew(); 798 767 }/*M3_TBTOGT */ 799 768 void YtabTOgrad_sa_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 813 782 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 814 783 for (int Yws=0; Yws<YNBS_sa_hor_traadv_cen2; ++Yws){ 815 Ysa_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}784 Ysa_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 816 785 }/*M3_SETAT*/ 817 786 void Ysetstate_sa_hor_traadv_cen2(double val) … … 822 791 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 823 792 for (int Yws=0; Yws<YNBS_sa_hor_traadv_cen2; ++Yws){ 824 Ysa_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}793 Ysa_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 825 794 }/*M3_YIOUT*/ 826 795 void Yio_sa_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 827 796 { Yiorwf ("sa_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 828 }/*M 3_CREU*/797 }/*M0_CREU*/ 829 798 void Ycreate_sa_hor_traadv_cen2() 830 799 { 831 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 832 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 833 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 834 if ((Ysa_hor_traadv_cen2(Yw1, Yw2, Yw3) = new sa_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 800 if ((Ysa_hor_traadv_cen2 = new sa_hor_traadv_cen2 ())==NULL) 801 Ycreate_errnew(); 835 802 }/*M3_TBTOGT */ 836 803 void YtabTOgrad_zcent_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 850 817 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 851 818 for (int Yws=0; Yws<YNBS_zcent_ver_traadv_cen2; ++Yws){ 852 Yzcent_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}819 Yzcent_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 853 820 }/*M3_SETAT*/ 854 821 void Ysetstate_zcent_ver_traadv_cen2(double val) … … 859 826 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 860 827 for (int Yws=0; Yws<YNBS_zcent_ver_traadv_cen2; ++Yws){ 861 Yzcent_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}828 Yzcent_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 862 829 }/*M3_YIOUT*/ 863 830 void Yio_zcent_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 864 831 { Yiorwf ("zcent_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcent_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 865 }/*M 3_CREU*/832 }/*M0_CREU*/ 866 833 void Ycreate_zcent_ver_traadv_cen2() 867 834 { 868 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 869 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 870 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 871 if ((Yzcent_ver_traadv_cen2(Yw1, Yw2, Yw3) = new zcent_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 835 if ((Yzcent_ver_traadv_cen2 = new zcent_ver_traadv_cen2 ())==NULL) 836 Ycreate_errnew(); 872 837 }/*M3_TBTOGT */ 873 838 void YtabTOgrad_zcens_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 887 852 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 888 853 for (int Yws=0; Yws<YNBS_zcens_ver_traadv_cen2; ++Yws){ 889 Yzcens_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}854 Yzcens_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 890 855 }/*M3_SETAT*/ 891 856 void Ysetstate_zcens_ver_traadv_cen2(double val) … … 896 861 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 897 862 for (int Yws=0; Yws<YNBS_zcens_ver_traadv_cen2; ++Yws){ 898 Yzcens_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}863 Yzcens_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 899 864 }/*M3_YIOUT*/ 900 865 void Yio_zcens_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 901 866 { Yiorwf ("zcens_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcens_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 902 }/*M 3_CREU*/867 }/*M0_CREU*/ 903 868 void Ycreate_zcens_ver_traadv_cen2() 904 869 { 905 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 906 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 907 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 908 if ((Yzcens_ver_traadv_cen2(Yw1, Yw2, Yw3) = new zcens_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 870 if ((Yzcens_ver_traadv_cen2 = new zcens_ver_traadv_cen2 ())==NULL) 871 Ycreate_errnew(); 909 872 }/*M3_TBTOGT */ 910 873 void YtabTOgrad_ta_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 924 887 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 925 888 for (int Yws=0; Yws<YNBS_ta_ver_traadv_cen2; ++Yws){ 926 Yta_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}889 Yta_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 927 890 }/*M3_SETAT*/ 928 891 void Ysetstate_ta_ver_traadv_cen2(double val) … … 933 896 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 934 897 for (int Yws=0; Yws<YNBS_ta_ver_traadv_cen2; ++Yws){ 935 Yta_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}898 Yta_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 936 899 }/*M3_YIOUT*/ 937 900 void Yio_ta_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 938 901 { Yiorwf ("ta_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 939 }/*M 3_CREU*/902 }/*M0_CREU*/ 940 903 void Ycreate_ta_ver_traadv_cen2() 941 904 { 942 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 943 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 944 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 945 if ((Yta_ver_traadv_cen2(Yw1, Yw2, Yw3) = new ta_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 905 if ((Yta_ver_traadv_cen2 = new ta_ver_traadv_cen2 ())==NULL) 906 Ycreate_errnew(); 946 907 }/*M3_TBTOGT */ 947 908 void YtabTOgrad_sa_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 961 922 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 962 923 for (int Yws=0; Yws<YNBS_sa_ver_traadv_cen2; ++Yws){ 963 Ysa_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}924 Ysa_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 964 925 }/*M3_SETAT*/ 965 926 void Ysetstate_sa_ver_traadv_cen2(double val) … … 970 931 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 971 932 for (int Yws=0; Yws<YNBS_sa_ver_traadv_cen2; ++Yws){ 972 Ysa_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}933 Ysa_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 973 934 }/*M3_YIOUT*/ 974 935 void Yio_sa_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 975 936 { Yiorwf ("sa_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 976 }/*M 3_CREU*/937 }/*M0_CREU*/ 977 938 void Ycreate_sa_ver_traadv_cen2() 978 939 { 979 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 980 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 981 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 982 if ((Ysa_ver_traadv_cen2(Yw1, Yw2, Yw3) = new sa_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 940 if ((Ysa_ver_traadv_cen2 = new sa_ver_traadv_cen2 ())==NULL) 941 Ycreate_errnew(); 983 942 }/*M3_TBTOGT */ 984 943 void YtabTOgrad_ztuv_traldf_lap(int frompdt, int topdt, YREAL tab[]) … … 998 957 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 999 958 for (int Yws=0; Yws<YNBS_ztuv_traldf_lap; ++Yws){ 1000 Yztuv_traldf_lap (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}959 Yztuv_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1001 960 }/*M3_SETAT*/ 1002 961 void Ysetstate_ztuv_traldf_lap(double val) … … 1007 966 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1008 967 for (int Yws=0; Yws<YNBS_ztuv_traldf_lap; ++Yws){ 1009 Yztuv_traldf_lap (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}968 Yztuv_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1010 969 }/*M3_YIOUT*/ 1011 970 void Yio_ztuv_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1012 971 { Yiorwf ("ztuv_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ztuv_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1013 }/*M 3_CREU*/972 }/*M0_CREU*/ 1014 973 void Ycreate_ztuv_traldf_lap() 1015 974 { 1016 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1017 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1018 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1019 if ((Yztuv_traldf_lap(Yw1, Yw2, Yw3) = new ztuv_traldf_lap ())==NULL) Ycreate_errnew();}}} 975 if ((Yztuv_traldf_lap = new ztuv_traldf_lap ())==NULL) 976 Ycreate_errnew(); 1020 977 }/*M3_TBTOGT */ 1021 978 void YtabTOgrad_zsuv_traldf_lap(int frompdt, int topdt, YREAL tab[]) … … 1035 992 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1036 993 for (int Yws=0; Yws<YNBS_zsuv_traldf_lap; ++Yws){ 1037 Yzsuv_traldf_lap (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}994 Yzsuv_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1038 995 }/*M3_SETAT*/ 1039 996 void Ysetstate_zsuv_traldf_lap(double val) … … 1044 1001 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1045 1002 for (int Yws=0; Yws<YNBS_zsuv_traldf_lap; ++Yws){ 1046 Yzsuv_traldf_lap (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1003 Yzsuv_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1047 1004 }/*M3_YIOUT*/ 1048 1005 void Yio_zsuv_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1049 1006 { Yiorwf ("zsuv_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zsuv_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1050 }/*M 3_CREU*/1007 }/*M0_CREU*/ 1051 1008 void Ycreate_zsuv_traldf_lap() 1052 1009 { 1053 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1054 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1055 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1056 if ((Yzsuv_traldf_lap(Yw1, Yw2, Yw3) = new zsuv_traldf_lap ())==NULL) Ycreate_errnew();}}} 1010 if ((Yzsuv_traldf_lap = new zsuv_traldf_lap ())==NULL) 1011 Ycreate_errnew(); 1057 1012 }/*M3_TBTOGT */ 1058 1013 void YtabTOgrad_ta_traldf_lap(int frompdt, int topdt, YREAL tab[]) … … 1072 1027 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1073 1028 for (int Yws=0; Yws<YNBS_ta_traldf_lap; ++Yws){ 1074 Yta_traldf_lap (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1029 Yta_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1075 1030 }/*M3_SETAT*/ 1076 1031 void Ysetstate_ta_traldf_lap(double val) … … 1081 1036 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1082 1037 for (int Yws=0; Yws<YNBS_ta_traldf_lap; ++Yws){ 1083 Yta_traldf_lap (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1038 Yta_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1084 1039 }/*M3_YIOUT*/ 1085 1040 void Yio_ta_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1086 1041 { Yiorwf ("ta_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1087 }/*M 3_CREU*/1042 }/*M0_CREU*/ 1088 1043 void Ycreate_ta_traldf_lap() 1089 1044 { 1090 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1091 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1092 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1093 if ((Yta_traldf_lap(Yw1, Yw2, Yw3) = new ta_traldf_lap ())==NULL) Ycreate_errnew();}}} 1045 if ((Yta_traldf_lap = new ta_traldf_lap ())==NULL) 1046 Ycreate_errnew(); 1094 1047 }/*M3_TBTOGT */ 1095 1048 void YtabTOgrad_sa_traldf_lap(int frompdt, int topdt, YREAL tab[]) … … 1109 1062 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1110 1063 for (int Yws=0; Yws<YNBS_sa_traldf_lap; ++Yws){ 1111 Ysa_traldf_lap (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1064 Ysa_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1112 1065 }/*M3_SETAT*/ 1113 1066 void Ysetstate_sa_traldf_lap(double val) … … 1118 1071 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1119 1072 for (int Yws=0; Yws<YNBS_sa_traldf_lap; ++Yws){ 1120 Ysa_traldf_lap (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1073 Ysa_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1121 1074 }/*M3_YIOUT*/ 1122 1075 void Yio_sa_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1123 1076 { Yiorwf ("sa_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1124 }/*M 3_CREU*/1077 }/*M0_CREU*/ 1125 1078 void Ycreate_sa_traldf_lap() 1126 1079 { 1127 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1128 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1129 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1130 if ((Ysa_traldf_lap(Yw1, Yw2, Yw3) = new sa_traldf_lap ())==NULL) Ycreate_errnew();}}} 1080 if ((Ysa_traldf_lap = new sa_traldf_lap ())==NULL) 1081 Ycreate_errnew(); 1131 1082 }/*M3_TBTOGT */ 1132 1083 void YtabTOgrad_zwisd_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1146 1097 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1147 1098 for (int Yws=0; Yws<YNBS_zwisd_trazdf_imp; ++Yws){ 1148 Yzwisd_trazdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1099 Yzwisd_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1149 1100 }/*M3_SETAT*/ 1150 1101 void Ysetstate_zwisd_trazdf_imp(double val) … … 1155 1106 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1156 1107 for (int Yws=0; Yws<YNBS_zwisd_trazdf_imp; ++Yws){ 1157 Yzwisd_trazdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1108 Yzwisd_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1158 1109 }/*M3_YIOUT*/ 1159 1110 void Yio_zwisd_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1160 1111 { Yiorwf ("zwisd_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1161 }/*M 3_CREU*/1112 }/*M0_CREU*/ 1162 1113 void Ycreate_zwisd_trazdf_imp() 1163 1114 { 1164 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1165 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1166 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1167 if ((Yzwisd_trazdf_imp(Yw1, Yw2, Yw3) = new zwisd_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1115 if ((Yzwisd_trazdf_imp = new zwisd_trazdf_imp ())==NULL) 1116 Ycreate_errnew(); 1168 1117 }/*M3_TBTOGT */ 1169 1118 void YtabTOgrad_zrhs_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1183 1132 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1184 1133 for (int Yws=0; Yws<YNBS_zrhs_trazdf_imp; ++Yws){ 1185 Yzrhs_trazdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1134 Yzrhs_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1186 1135 }/*M3_SETAT*/ 1187 1136 void Ysetstate_zrhs_trazdf_imp(double val) … … 1192 1141 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1193 1142 for (int Yws=0; Yws<YNBS_zrhs_trazdf_imp; ++Yws){ 1194 Yzrhs_trazdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1143 Yzrhs_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1195 1144 }/*M3_YIOUT*/ 1196 1145 void Yio_zrhs_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1197 1146 { Yiorwf ("zrhs_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1198 }/*M 3_CREU*/1147 }/*M0_CREU*/ 1199 1148 void Ycreate_zrhs_trazdf_imp() 1200 1149 { 1201 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1202 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1203 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1204 if ((Yzrhs_trazdf_imp(Yw1, Yw2, Yw3) = new zrhs_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1150 if ((Yzrhs_trazdf_imp = new zrhs_trazdf_imp ())==NULL) 1151 Ycreate_errnew(); 1205 1152 }/*M3_TBTOGT */ 1206 1153 void YtabTOgrad_zrhs_sa_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1220 1167 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1221 1168 for (int Yws=0; Yws<YNBS_zrhs_sa_trazdf_imp; ++Yws){ 1222 Yzrhs_sa_trazdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1169 Yzrhs_sa_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1223 1170 }/*M3_SETAT*/ 1224 1171 void Ysetstate_zrhs_sa_trazdf_imp(double val) … … 1229 1176 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1230 1177 for (int Yws=0; Yws<YNBS_zrhs_sa_trazdf_imp; ++Yws){ 1231 Yzrhs_sa_trazdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1178 Yzrhs_sa_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1232 1179 }/*M3_YIOUT*/ 1233 1180 void Yio_zrhs_sa_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1234 1181 { Yiorwf ("zrhs_sa_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_sa_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1235 }/*M 3_CREU*/1182 }/*M0_CREU*/ 1236 1183 void Ycreate_zrhs_sa_trazdf_imp() 1237 1184 { 1238 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1239 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1240 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1241 if ((Yzrhs_sa_trazdf_imp(Yw1, Yw2, Yw3) = new zrhs_sa_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1185 if ((Yzrhs_sa_trazdf_imp = new zrhs_sa_trazdf_imp ())==NULL) 1186 Ycreate_errnew(); 1242 1187 }/*M3_TBTOGT */ 1243 1188 void YtabTOgrad_zwt_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1257 1202 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1258 1203 for (int Yws=0; Yws<YNBS_zwt_trazdf_imp; ++Yws){ 1259 Yzwt_trazdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1204 Yzwt_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1260 1205 }/*M3_SETAT*/ 1261 1206 void Ysetstate_zwt_trazdf_imp(double val) … … 1266 1211 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1267 1212 for (int Yws=0; Yws<YNBS_zwt_trazdf_imp; ++Yws){ 1268 Yzwt_trazdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1213 Yzwt_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1269 1214 }/*M3_YIOUT*/ 1270 1215 void Yio_zwt_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1271 1216 { Yiorwf ("zwt_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1272 }/*M 3_CREU*/1217 }/*M0_CREU*/ 1273 1218 void Ycreate_zwt_trazdf_imp() 1274 1219 { 1275 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1276 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1277 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1278 if ((Yzwt_trazdf_imp(Yw1, Yw2, Yw3) = new zwt_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1220 if ((Yzwt_trazdf_imp = new zwt_trazdf_imp ())==NULL) 1221 Ycreate_errnew(); 1279 1222 }/*M3_TBTOGT */ 1280 1223 void YtabTOgrad_ta_de_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1294 1237 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1295 1238 for (int Yws=0; Yws<YNBS_ta_de_trazdf_imp; ++Yws){ 1296 Yta_de_trazdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1239 Yta_de_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1297 1240 }/*M3_SETAT*/ 1298 1241 void Ysetstate_ta_de_trazdf_imp(double val) … … 1303 1246 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1304 1247 for (int Yws=0; Yws<YNBS_ta_de_trazdf_imp; ++Yws){ 1305 Yta_de_trazdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1248 Yta_de_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1306 1249 }/*M3_YIOUT*/ 1307 1250 void Yio_ta_de_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1308 1251 { Yiorwf ("ta_de_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_de_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1309 }/*M 3_CREU*/1252 }/*M0_CREU*/ 1310 1253 void Ycreate_ta_de_trazdf_imp() 1311 1254 { 1312 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1313 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1314 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1315 if ((Yta_de_trazdf_imp(Yw1, Yw2, Yw3) = new ta_de_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1255 if ((Yta_de_trazdf_imp = new ta_de_trazdf_imp ())==NULL) 1256 Ycreate_errnew(); 1316 1257 }/*M3_TBTOGT */ 1317 1258 void YtabTOgrad_ta(int frompdt, int topdt, YREAL tab[]) … … 1331 1272 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1332 1273 for (int Yws=0; Yws<YNBS_ta; ++Yws){ 1333 Yta (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1274 Yta->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1334 1275 }/*M3_SETAT*/ 1335 1276 void Ysetstate_ta(double val) … … 1340 1281 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1341 1282 for (int Yws=0; Yws<YNBS_ta; ++Yws){ 1342 Yta (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1283 Yta->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1343 1284 }/*M3_YIOUT*/ 1344 1285 void Yio_ta(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1345 1286 { Yiorwf ("ta", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta(Yws, Yw1, Yw2, Yw3, Ywt), val); 1346 }/*M 3_CREU*/1287 }/*M0_CREU*/ 1347 1288 void Ycreate_ta() 1348 1289 { 1349 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1350 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1351 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1352 if ((Yta(Yw1, Yw2, Yw3) = new ta ())==NULL) Ycreate_errnew();}}} 1290 if ((Yta = new ta ())==NULL) 1291 Ycreate_errnew(); 1353 1292 }/*M3_TBTOGT */ 1354 1293 void YtabTOgrad_sa_de_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1368 1307 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1369 1308 for (int Yws=0; Yws<YNBS_sa_de_trazdf_imp; ++Yws){ 1370 Ysa_de_trazdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1309 Ysa_de_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1371 1310 }/*M3_SETAT*/ 1372 1311 void Ysetstate_sa_de_trazdf_imp(double val) … … 1377 1316 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1378 1317 for (int Yws=0; Yws<YNBS_sa_de_trazdf_imp; ++Yws){ 1379 Ysa_de_trazdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1318 Ysa_de_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1380 1319 }/*M3_YIOUT*/ 1381 1320 void Yio_sa_de_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1382 1321 { Yiorwf ("sa_de_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_de_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1383 }/*M 3_CREU*/1322 }/*M0_CREU*/ 1384 1323 void Ycreate_sa_de_trazdf_imp() 1385 1324 { 1386 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1387 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1388 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1389 if ((Ysa_de_trazdf_imp(Yw1, Yw2, Yw3) = new sa_de_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1325 if ((Ysa_de_trazdf_imp = new sa_de_trazdf_imp ())==NULL) 1326 Ycreate_errnew(); 1390 1327 }/*M3_TBTOGT */ 1391 1328 void YtabTOgrad_sa(int frompdt, int topdt, YREAL tab[]) … … 1405 1342 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1406 1343 for (int Yws=0; Yws<YNBS_sa; ++Yws){ 1407 Ysa (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1344 Ysa->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1408 1345 }/*M3_SETAT*/ 1409 1346 void Ysetstate_sa(double val) … … 1414 1351 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1415 1352 for (int Yws=0; Yws<YNBS_sa; ++Yws){ 1416 Ysa (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1353 Ysa->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1417 1354 }/*M3_YIOUT*/ 1418 1355 void Yio_sa(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1419 1356 { Yiorwf ("sa", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa(Yws, Yw1, Yw2, Yw3, Ywt), val); 1420 }/*M 3_CREU*/1357 }/*M0_CREU*/ 1421 1358 void Ycreate_sa() 1422 1359 { 1423 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1424 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1425 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1426 if ((Ysa(Yw1, Yw2, Yw3) = new sa ())==NULL) Ycreate_errnew();}}} 1360 if ((Ysa = new sa ())==NULL) 1361 Ycreate_errnew(); 1427 1362 }/*M3_TBTOGT */ 1428 1363 void YtabTOgrad_tb(int frompdt, int topdt, YREAL tab[]) … … 1442 1377 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1443 1378 for (int Yws=0; Yws<YNBS_tb; ++Yws){ 1444 Ytb (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1379 Ytb->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1445 1380 }/*M3_SETAT*/ 1446 1381 void Ysetstate_tb(double val) … … 1451 1386 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1452 1387 for (int Yws=0; Yws<YNBS_tb; ++Yws){ 1453 Ytb (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1388 Ytb->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1454 1389 }/*M3_YIOUT*/ 1455 1390 void Yio_tb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 1471 1406 }/*M9_OUTOB*/ 1472 1407 return(1); 1473 }/*M 3_CREU*/1408 }/*M0_CREU*/ 1474 1409 void Ycreate_tb() 1475 1410 { 1476 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1477 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1478 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1479 if ((Ytb(Yw1, Yw2, Yw3) = new tb ())==NULL) Ycreate_errnew();}}} 1411 if ((Ytb = new tb ())==NULL) 1412 Ycreate_errnew(); 1480 1413 }/*M3_SWISH*/ 1481 1414 void Ysetwish_tb(double val) … … 1503 1436 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1504 1437 for (int Yws=0; Yws<YNBS_sb; ++Yws){ 1505 Ysb (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1438 Ysb->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1506 1439 }/*M3_SETAT*/ 1507 1440 void Ysetstate_sb(double val) … … 1512 1445 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1513 1446 for (int Yws=0; Yws<YNBS_sb; ++Yws){ 1514 Ysb (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1447 Ysb->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1515 1448 }/*M3_YIOUT*/ 1516 1449 void Yio_sb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 1532 1465 }/*M9_OUTOB*/ 1533 1466 return(1); 1534 }/*M 3_CREU*/1467 }/*M0_CREU*/ 1535 1468 void Ycreate_sb() 1536 1469 { 1537 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1538 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1539 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1540 if ((Ysb(Yw1, Yw2, Yw3) = new sb ())==NULL) Ycreate_errnew();}}} 1470 if ((Ysb = new sb ())==NULL) 1471 Ycreate_errnew(); 1541 1472 }/*M3_SWISH*/ 1542 1473 void Ysetwish_sb(double val) … … 1564 1495 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1565 1496 for (int Yws=0; Yws<YNBS_rhd; ++Yws){ 1566 Yrhd (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1497 Yrhd->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1567 1498 }/*M3_SETAT*/ 1568 1499 void Ysetstate_rhd(double val) … … 1573 1504 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1574 1505 for (int Yws=0; Yws<YNBS_rhd; ++Yws){ 1575 Yrhd (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1506 Yrhd->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1576 1507 }/*M3_YIOUT*/ 1577 1508 void Yio_rhd(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1578 1509 { Yiorwf ("rhd", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rhd(Yws, Yw1, Yw2, Yw3, Ywt), val); 1579 }/*M 3_CREU*/1510 }/*M0_CREU*/ 1580 1511 void Ycreate_rhd() 1581 1512 { 1582 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1583 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1584 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1585 if ((Yrhd(Yw1, Yw2, Yw3) = new rhd ())==NULL) Ycreate_errnew();}}} 1513 if ((Yrhd = new rhd ())==NULL) 1514 Ycreate_errnew(); 1586 1515 }/*M3_TBTOGT */ 1587 1516 void YtabTOgrad_rhop(int frompdt, int topdt, YREAL tab[]) … … 1601 1530 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1602 1531 for (int Yws=0; Yws<YNBS_rhop; ++Yws){ 1603 Yrhop (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1532 Yrhop->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1604 1533 }/*M3_SETAT*/ 1605 1534 void Ysetstate_rhop(double val) … … 1610 1539 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1611 1540 for (int Yws=0; Yws<YNBS_rhop; ++Yws){ 1612 Yrhop (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1541 Yrhop->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1613 1542 }/*M3_YIOUT*/ 1614 1543 void Yio_rhop(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1615 1544 { Yiorwf ("rhop", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rhop(Yws, Yw1, Yw2, Yw3, Ywt), val); 1616 }/*M 3_CREU*/1545 }/*M0_CREU*/ 1617 1546 void Ycreate_rhop() 1618 1547 { 1619 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1620 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1621 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1622 if ((Yrhop(Yw1, Yw2, Yw3) = new rhop ())==NULL) Ycreate_errnew();}}} 1548 if ((Yrhop = new rhop ())==NULL) 1549 Ycreate_errnew(); 1623 1550 }/*M3_TBTOGT */ 1624 1551 void YtabTOgrad_hmf_TF_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1638 1565 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1639 1566 for (int Yws=0; Yws<YNBS_hmf_TF_dynadv_cen2; ++Yws){ 1640 Yhmf_TF_dynadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1567 Yhmf_TF_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1641 1568 }/*M3_SETAT*/ 1642 1569 void Ysetstate_hmf_TF_dynadv_cen2(double val) … … 1647 1574 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1648 1575 for (int Yws=0; Yws<YNBS_hmf_TF_dynadv_cen2; ++Yws){ 1649 Yhmf_TF_dynadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1576 Yhmf_TF_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1650 1577 }/*M3_YIOUT*/ 1651 1578 void Yio_hmf_TF_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1652 1579 { Yiorwf ("hmf_TF_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_hmf_TF_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1653 }/*M 3_CREU*/1580 }/*M0_CREU*/ 1654 1581 void Ycreate_hmf_TF_dynadv_cen2() 1655 1582 { 1656 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1657 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1658 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1659 if ((Yhmf_TF_dynadv_cen2(Yw1, Yw2, Yw3) = new hmf_TF_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1583 if ((Yhmf_TF_dynadv_cen2 = new hmf_TF_dynadv_cen2 ())==NULL) 1584 Ycreate_errnew(); 1660 1585 }/*M3_TBTOGT */ 1661 1586 void YtabTOgrad_zua_dhmf_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1675 1600 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1676 1601 for (int Yws=0; Yws<YNBS_zua_dhmf_dynadv_cen2; ++Yws){ 1677 Yzua_dhmf_dynadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1602 Yzua_dhmf_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1678 1603 }/*M3_SETAT*/ 1679 1604 void Ysetstate_zua_dhmf_dynadv_cen2(double val) … … 1684 1609 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1685 1610 for (int Yws=0; Yws<YNBS_zua_dhmf_dynadv_cen2; ++Yws){ 1686 Yzua_dhmf_dynadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1611 Yzua_dhmf_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1687 1612 }/*M3_YIOUT*/ 1688 1613 void Yio_zua_dhmf_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1689 1614 { Yiorwf ("zua_dhmf_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zua_dhmf_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1690 }/*M 3_CREU*/1615 }/*M0_CREU*/ 1691 1616 void Ycreate_zua_dhmf_dynadv_cen2() 1692 1617 { 1693 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1694 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1695 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1696 if ((Yzua_dhmf_dynadv_cen2(Yw1, Yw2, Yw3) = new zua_dhmf_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1618 if ((Yzua_dhmf_dynadv_cen2 = new zua_dhmf_dynadv_cen2 ())==NULL) 1619 Ycreate_errnew(); 1697 1620 }/*M3_TBTOGT */ 1698 1621 void YtabTOgrad_zva_dhmf_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1712 1635 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1713 1636 for (int Yws=0; Yws<YNBS_zva_dhmf_dynadv_cen2; ++Yws){ 1714 Yzva_dhmf_dynadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1637 Yzva_dhmf_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1715 1638 }/*M3_SETAT*/ 1716 1639 void Ysetstate_zva_dhmf_dynadv_cen2(double val) … … 1721 1644 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1722 1645 for (int Yws=0; Yws<YNBS_zva_dhmf_dynadv_cen2; ++Yws){ 1723 Yzva_dhmf_dynadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1646 Yzva_dhmf_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1724 1647 }/*M3_YIOUT*/ 1725 1648 void Yio_zva_dhmf_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1726 1649 { Yiorwf ("zva_dhmf_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zva_dhmf_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1727 }/*M 3_CREU*/1650 }/*M0_CREU*/ 1728 1651 void Ycreate_zva_dhmf_dynadv_cen2() 1729 1652 { 1730 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1731 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1732 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1733 if ((Yzva_dhmf_dynadv_cen2(Yw1, Yw2, Yw3) = new zva_dhmf_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1653 if ((Yzva_dhmf_dynadv_cen2 = new zva_dhmf_dynadv_cen2 ())==NULL) 1654 Ycreate_errnew(); 1734 1655 }/*M3_TBTOGT */ 1735 1656 void YtabTOgrad_zfuv_UW_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1749 1670 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1750 1671 for (int Yws=0; Yws<YNBS_zfuv_UW_dynadv_cen2; ++Yws){ 1751 Yzfuv_UW_dynadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1672 Yzfuv_UW_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1752 1673 }/*M3_SETAT*/ 1753 1674 void Ysetstate_zfuv_UW_dynadv_cen2(double val) … … 1758 1679 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1759 1680 for (int Yws=0; Yws<YNBS_zfuv_UW_dynadv_cen2; ++Yws){ 1760 Yzfuv_UW_dynadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1681 Yzfuv_UW_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1761 1682 }/*M3_YIOUT*/ 1762 1683 void Yio_zfuv_UW_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1763 1684 { Yiorwf ("zfuv_UW_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zfuv_UW_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1764 }/*M 3_CREU*/1685 }/*M0_CREU*/ 1765 1686 void Ycreate_zfuv_UW_dynadv_cen2() 1766 1687 { 1767 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1768 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1769 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1770 if ((Yzfuv_UW_dynadv_cen2(Yw1, Yw2, Yw3) = new zfuv_UW_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1688 if ((Yzfuv_UW_dynadv_cen2 = new zfuv_UW_dynadv_cen2 ())==NULL) 1689 Ycreate_errnew(); 1771 1690 }/*M3_TBTOGT */ 1772 1691 void YtabTOgrad_ua_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1786 1705 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1787 1706 for (int Yws=0; Yws<YNBS_ua_dynadv_cen2; ++Yws){ 1788 Yua_dynadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1707 Yua_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1789 1708 }/*M3_SETAT*/ 1790 1709 void Ysetstate_ua_dynadv_cen2(double val) … … 1795 1714 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1796 1715 for (int Yws=0; Yws<YNBS_ua_dynadv_cen2; ++Yws){ 1797 Yua_dynadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1716 Yua_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1798 1717 }/*M3_YIOUT*/ 1799 1718 void Yio_ua_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1800 1719 { Yiorwf ("ua_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1801 }/*M 3_CREU*/1720 }/*M0_CREU*/ 1802 1721 void Ycreate_ua_dynadv_cen2() 1803 1722 { 1804 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1805 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1806 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1807 if ((Yua_dynadv_cen2(Yw1, Yw2, Yw3) = new ua_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1723 if ((Yua_dynadv_cen2 = new ua_dynadv_cen2 ())==NULL) 1724 Ycreate_errnew(); 1808 1725 }/*M3_TBTOGT */ 1809 1726 void YtabTOgrad_va_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1823 1740 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1824 1741 for (int Yws=0; Yws<YNBS_va_dynadv_cen2; ++Yws){ 1825 Yva_dynadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1742 Yva_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1826 1743 }/*M3_SETAT*/ 1827 1744 void Ysetstate_va_dynadv_cen2(double val) … … 1832 1749 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1833 1750 for (int Yws=0; Yws<YNBS_va_dynadv_cen2; ++Yws){ 1834 Yva_dynadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1751 Yva_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1835 1752 }/*M3_YIOUT*/ 1836 1753 void Yio_va_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1837 1754 { Yiorwf ("va_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1838 }/*M 3_CREU*/1755 }/*M0_CREU*/ 1839 1756 void Ycreate_va_dynadv_cen2() 1840 1757 { 1841 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1842 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1843 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1844 if ((Yva_dynadv_cen2(Yw1, Yw2, Yw3) = new va_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1758 if ((Yva_dynadv_cen2 = new va_dynadv_cen2 ())==NULL) 1759 Ycreate_errnew(); 1845 1760 }/*M3_TBTOGT */ 1846 1761 void YtabTOgrad_zwxyz_vor_ene(int frompdt, int topdt, YREAL tab[]) … … 1860 1775 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1861 1776 for (int Yws=0; Yws<YNBS_zwxyz_vor_ene; ++Yws){ 1862 Yzwxyz_vor_ene (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1777 Yzwxyz_vor_ene->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1863 1778 }/*M3_SETAT*/ 1864 1779 void Ysetstate_zwxyz_vor_ene(double val) … … 1869 1784 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1870 1785 for (int Yws=0; Yws<YNBS_zwxyz_vor_ene; ++Yws){ 1871 Yzwxyz_vor_ene (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1786 Yzwxyz_vor_ene->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1872 1787 }/*M3_YIOUT*/ 1873 1788 void Yio_zwxyz_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1874 1789 { Yiorwf ("zwxyz_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwxyz_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 1875 }/*M 3_CREU*/1790 }/*M0_CREU*/ 1876 1791 void Ycreate_zwxyz_vor_ene() 1877 1792 { 1878 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1879 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1880 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1881 if ((Yzwxyz_vor_ene(Yw1, Yw2, Yw3) = new zwxyz_vor_ene ())==NULL) Ycreate_errnew();}}} 1793 if ((Yzwxyz_vor_ene = new zwxyz_vor_ene ())==NULL) 1794 Ycreate_errnew(); 1882 1795 }/*M3_TBTOGT */ 1883 1796 void YtabTOgrad_ua_vor_ene(int frompdt, int topdt, YREAL tab[]) … … 1897 1810 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1898 1811 for (int Yws=0; Yws<YNBS_ua_vor_ene; ++Yws){ 1899 Yua_vor_ene (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1812 Yua_vor_ene->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1900 1813 }/*M3_SETAT*/ 1901 1814 void Ysetstate_ua_vor_ene(double val) … … 1906 1819 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1907 1820 for (int Yws=0; Yws<YNBS_ua_vor_ene; ++Yws){ 1908 Yua_vor_ene (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1821 Yua_vor_ene->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1909 1822 }/*M3_YIOUT*/ 1910 1823 void Yio_ua_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1911 1824 { Yiorwf ("ua_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 1912 }/*M 3_CREU*/1825 }/*M0_CREU*/ 1913 1826 void Ycreate_ua_vor_ene() 1914 1827 { 1915 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1916 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1917 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1918 if ((Yua_vor_ene(Yw1, Yw2, Yw3) = new ua_vor_ene ())==NULL) Ycreate_errnew();}}} 1828 if ((Yua_vor_ene = new ua_vor_ene ())==NULL) 1829 Ycreate_errnew(); 1919 1830 }/*M3_TBTOGT */ 1920 1831 void YtabTOgrad_va_vor_ene(int frompdt, int topdt, YREAL tab[]) … … 1934 1845 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1935 1846 for (int Yws=0; Yws<YNBS_va_vor_ene; ++Yws){ 1936 Yva_vor_ene (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1847 Yva_vor_ene->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1937 1848 }/*M3_SETAT*/ 1938 1849 void Ysetstate_va_vor_ene(double val) … … 1943 1854 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1944 1855 for (int Yws=0; Yws<YNBS_va_vor_ene; ++Yws){ 1945 Yva_vor_ene (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1856 Yva_vor_ene->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1946 1857 }/*M3_YIOUT*/ 1947 1858 void Yio_va_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1948 1859 { Yiorwf ("va_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 1949 }/*M 3_CREU*/1860 }/*M0_CREU*/ 1950 1861 void Ycreate_va_vor_ene() 1951 1862 { 1952 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1953 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1954 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1955 if ((Yva_vor_ene(Yw1, Yw2, Yw3) = new va_vor_ene ())==NULL) Ycreate_errnew();}}} 1863 if ((Yva_vor_ene = new va_vor_ene ())==NULL) 1864 Ycreate_errnew(); 1956 1865 }/*M3_TBTOGT */ 1957 1866 void YtabTOgrad_ua_dyn_ldf_lap(int frompdt, int topdt, YREAL tab[]) … … 1971 1880 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1972 1881 for (int Yws=0; Yws<YNBS_ua_dyn_ldf_lap; ++Yws){ 1973 Yua_dyn_ldf_lap (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1882 Yua_dyn_ldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1974 1883 }/*M3_SETAT*/ 1975 1884 void Ysetstate_ua_dyn_ldf_lap(double val) … … 1980 1889 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1981 1890 for (int Yws=0; Yws<YNBS_ua_dyn_ldf_lap; ++Yws){ 1982 Yua_dyn_ldf_lap (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1891 Yua_dyn_ldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1983 1892 }/*M3_YIOUT*/ 1984 1893 void Yio_ua_dyn_ldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1985 1894 { Yiorwf ("ua_dyn_ldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dyn_ldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1986 }/*M 3_CREU*/1895 }/*M0_CREU*/ 1987 1896 void Ycreate_ua_dyn_ldf_lap() 1988 1897 { 1989 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1990 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1991 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1992 if ((Yua_dyn_ldf_lap(Yw1, Yw2, Yw3) = new ua_dyn_ldf_lap ())==NULL) Ycreate_errnew();}}} 1898 if ((Yua_dyn_ldf_lap = new ua_dyn_ldf_lap ())==NULL) 1899 Ycreate_errnew(); 1993 1900 }/*M3_TBTOGT */ 1994 1901 void YtabTOgrad_va_dyn_ldf_lap(int frompdt, int topdt, YREAL tab[]) … … 2008 1915 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2009 1916 for (int Yws=0; Yws<YNBS_va_dyn_ldf_lap; ++Yws){ 2010 Yva_dyn_ldf_lap (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1917 Yva_dyn_ldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2011 1918 }/*M3_SETAT*/ 2012 1919 void Ysetstate_va_dyn_ldf_lap(double val) … … 2017 1924 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2018 1925 for (int Yws=0; Yws<YNBS_va_dyn_ldf_lap; ++Yws){ 2019 Yva_dyn_ldf_lap (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1926 Yva_dyn_ldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2020 1927 }/*M3_YIOUT*/ 2021 1928 void Yio_va_dyn_ldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2022 1929 { Yiorwf ("va_dyn_ldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dyn_ldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 2023 }/*M 3_CREU*/1930 }/*M0_CREU*/ 2024 1931 void Ycreate_va_dyn_ldf_lap() 2025 1932 { 2026 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2027 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2028 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2029 if ((Yva_dyn_ldf_lap(Yw1, Yw2, Yw3) = new va_dyn_ldf_lap ())==NULL) Ycreate_errnew();}}} 1933 if ((Yva_dyn_ldf_lap = new va_dyn_ldf_lap ())==NULL) 1934 Ycreate_errnew(); 2030 1935 }/*M3_TBTOGT */ 2031 1936 void YtabTOgrad_zhpij_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) … … 2045 1950 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2046 1951 for (int Yws=0; Yws<YNBS_zhpij_dyn_hpg_zco; ++Yws){ 2047 Yzhpij_dyn_hpg_zco (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1952 Yzhpij_dyn_hpg_zco->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2048 1953 }/*M3_SETAT*/ 2049 1954 void Ysetstate_zhpij_dyn_hpg_zco(double val) … … 2054 1959 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2055 1960 for (int Yws=0; Yws<YNBS_zhpij_dyn_hpg_zco; ++Yws){ 2056 Yzhpij_dyn_hpg_zco (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1961 Yzhpij_dyn_hpg_zco->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2057 1962 }/*M3_YIOUT*/ 2058 1963 void Yio_zhpij_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2059 1964 { Yiorwf ("zhpij_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zhpij_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 2060 }/*M 3_CREU*/1965 }/*M0_CREU*/ 2061 1966 void Ycreate_zhpij_dyn_hpg_zco() 2062 1967 { 2063 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2064 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2065 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2066 if ((Yzhpij_dyn_hpg_zco(Yw1, Yw2, Yw3) = new zhpij_dyn_hpg_zco ())==NULL) Ycreate_errnew();}}} 1968 if ((Yzhpij_dyn_hpg_zco = new zhpij_dyn_hpg_zco ())==NULL) 1969 Ycreate_errnew(); 2067 1970 }/*M3_TBTOGT */ 2068 1971 void YtabTOgrad_ua_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) … … 2082 1985 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2083 1986 for (int Yws=0; Yws<YNBS_ua_dyn_hpg_zco; ++Yws){ 2084 Yua_dyn_hpg_zco (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1987 Yua_dyn_hpg_zco->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2085 1988 }/*M3_SETAT*/ 2086 1989 void Ysetstate_ua_dyn_hpg_zco(double val) … … 2091 1994 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2092 1995 for (int Yws=0; Yws<YNBS_ua_dyn_hpg_zco; ++Yws){ 2093 Yua_dyn_hpg_zco (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1996 Yua_dyn_hpg_zco->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2094 1997 }/*M3_YIOUT*/ 2095 1998 void Yio_ua_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2096 1999 { Yiorwf ("ua_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 2097 }/*M 3_CREU*/2000 }/*M0_CREU*/ 2098 2001 void Ycreate_ua_dyn_hpg_zco() 2099 2002 { 2100 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2101 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2102 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2103 if ((Yua_dyn_hpg_zco(Yw1, Yw2, Yw3) = new ua_dyn_hpg_zco ())==NULL) Ycreate_errnew();}}} 2003 if ((Yua_dyn_hpg_zco = new ua_dyn_hpg_zco ())==NULL) 2004 Ycreate_errnew(); 2104 2005 }/*M3_TBTOGT */ 2105 2006 void YtabTOgrad_va_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) … … 2119 2020 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2120 2021 for (int Yws=0; Yws<YNBS_va_dyn_hpg_zco; ++Yws){ 2121 Yva_dyn_hpg_zco (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2022 Yva_dyn_hpg_zco->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2122 2023 }/*M3_SETAT*/ 2123 2024 void Ysetstate_va_dyn_hpg_zco(double val) … … 2128 2029 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2129 2030 for (int Yws=0; Yws<YNBS_va_dyn_hpg_zco; ++Yws){ 2130 Yva_dyn_hpg_zco (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2031 Yva_dyn_hpg_zco->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2131 2032 }/*M3_YIOUT*/ 2132 2033 void Yio_va_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2133 2034 { Yiorwf ("va_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 2134 }/*M 3_CREU*/2035 }/*M0_CREU*/ 2135 2036 void Ycreate_va_dyn_hpg_zco() 2136 2037 { 2137 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2138 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2139 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2140 if ((Yva_dyn_hpg_zco(Yw1, Yw2, Yw3) = new va_dyn_hpg_zco ())==NULL) Ycreate_errnew();}}} 2038 if ((Yva_dyn_hpg_zco = new va_dyn_hpg_zco ())==NULL) 2039 Ycreate_errnew(); 2141 2040 }/*M3_TBTOGT */ 2142 2041 void YtabTOgrad_zwisd_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2156 2055 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2157 2056 for (int Yws=0; Yws<YNBS_zwisd_ua_dynzdf_imp; ++Yws){ 2158 Yzwisd_ua_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2057 Yzwisd_ua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2159 2058 }/*M3_SETAT*/ 2160 2059 void Ysetstate_zwisd_ua_dynzdf_imp(double val) … … 2165 2064 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2166 2065 for (int Yws=0; Yws<YNBS_zwisd_ua_dynzdf_imp; ++Yws){ 2167 Yzwisd_ua_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2066 Yzwisd_ua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2168 2067 }/*M3_YIOUT*/ 2169 2068 void Yio_zwisd_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2170 2069 { Yiorwf ("zwisd_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2171 }/*M 3_CREU*/2070 }/*M0_CREU*/ 2172 2071 void Ycreate_zwisd_ua_dynzdf_imp() 2173 2072 { 2174 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2175 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2176 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2177 if ((Yzwisd_ua_dynzdf_imp(Yw1, Yw2, Yw3) = new zwisd_ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2073 if ((Yzwisd_ua_dynzdf_imp = new zwisd_ua_dynzdf_imp ())==NULL) 2074 Ycreate_errnew(); 2178 2075 }/*M3_TBTOGT */ 2179 2076 void YtabTOgrad_zwisd_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2193 2090 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2194 2091 for (int Yws=0; Yws<YNBS_zwisd_va_dynzdf_imp; ++Yws){ 2195 Yzwisd_va_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2092 Yzwisd_va_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2196 2093 }/*M3_SETAT*/ 2197 2094 void Ysetstate_zwisd_va_dynzdf_imp(double val) … … 2202 2099 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2203 2100 for (int Yws=0; Yws<YNBS_zwisd_va_dynzdf_imp; ++Yws){ 2204 Yzwisd_va_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2101 Yzwisd_va_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2205 2102 }/*M3_YIOUT*/ 2206 2103 void Yio_zwisd_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2207 2104 { Yiorwf ("zwisd_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2208 }/*M 3_CREU*/2105 }/*M0_CREU*/ 2209 2106 void Ycreate_zwisd_va_dynzdf_imp() 2210 2107 { 2211 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2212 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2213 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2214 if ((Yzwisd_va_dynzdf_imp(Yw1, Yw2, Yw3) = new zwisd_va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2108 if ((Yzwisd_va_dynzdf_imp = new zwisd_va_dynzdf_imp ())==NULL) 2109 Ycreate_errnew(); 2215 2110 }/*M3_TBTOGT */ 2216 2111 void YtabTOgrad_zrhs_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2230 2125 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2231 2126 for (int Yws=0; Yws<YNBS_zrhs_ua_dynzdf_imp; ++Yws){ 2232 Yzrhs_ua_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2127 Yzrhs_ua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2233 2128 }/*M3_SETAT*/ 2234 2129 void Ysetstate_zrhs_ua_dynzdf_imp(double val) … … 2239 2134 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2240 2135 for (int Yws=0; Yws<YNBS_zrhs_ua_dynzdf_imp; ++Yws){ 2241 Yzrhs_ua_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2136 Yzrhs_ua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2242 2137 }/*M3_YIOUT*/ 2243 2138 void Yio_zrhs_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2244 2139 { Yiorwf ("zrhs_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2245 }/*M 3_CREU*/2140 }/*M0_CREU*/ 2246 2141 void Ycreate_zrhs_ua_dynzdf_imp() 2247 2142 { 2248 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2249 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2250 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2251 if ((Yzrhs_ua_dynzdf_imp(Yw1, Yw2, Yw3) = new zrhs_ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2143 if ((Yzrhs_ua_dynzdf_imp = new zrhs_ua_dynzdf_imp ())==NULL) 2144 Ycreate_errnew(); 2252 2145 }/*M3_TBTOGT */ 2253 2146 void YtabTOgrad_zrhs_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2267 2160 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2268 2161 for (int Yws=0; Yws<YNBS_zrhs_va_dynzdf_imp; ++Yws){ 2269 Yzrhs_va_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2162 Yzrhs_va_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2270 2163 }/*M3_SETAT*/ 2271 2164 void Ysetstate_zrhs_va_dynzdf_imp(double val) … … 2276 2169 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2277 2170 for (int Yws=0; Yws<YNBS_zrhs_va_dynzdf_imp; ++Yws){ 2278 Yzrhs_va_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2171 Yzrhs_va_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2279 2172 }/*M3_YIOUT*/ 2280 2173 void Yio_zrhs_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2281 2174 { Yiorwf ("zrhs_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2282 }/*M 3_CREU*/2175 }/*M0_CREU*/ 2283 2176 void Ycreate_zrhs_va_dynzdf_imp() 2284 2177 { 2285 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2286 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2287 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2288 if ((Yzrhs_va_dynzdf_imp(Yw1, Yw2, Yw3) = new zrhs_va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2178 if ((Yzrhs_va_dynzdf_imp = new zrhs_va_dynzdf_imp ())==NULL) 2179 Ycreate_errnew(); 2289 2180 }/*M3_TBTOGT */ 2290 2181 void YtabTOgrad_zwt_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2304 2195 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2305 2196 for (int Yws=0; Yws<YNBS_zwt_ua_dynzdf_imp; ++Yws){ 2306 Yzwt_ua_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2197 Yzwt_ua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2307 2198 }/*M3_SETAT*/ 2308 2199 void Ysetstate_zwt_ua_dynzdf_imp(double val) … … 2313 2204 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2314 2205 for (int Yws=0; Yws<YNBS_zwt_ua_dynzdf_imp; ++Yws){ 2315 Yzwt_ua_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2206 Yzwt_ua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2316 2207 }/*M3_YIOUT*/ 2317 2208 void Yio_zwt_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2318 2209 { Yiorwf ("zwt_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2319 }/*M 3_CREU*/2210 }/*M0_CREU*/ 2320 2211 void Ycreate_zwt_ua_dynzdf_imp() 2321 2212 { 2322 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2323 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2324 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2325 if ((Yzwt_ua_dynzdf_imp(Yw1, Yw2, Yw3) = new zwt_ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2213 if ((Yzwt_ua_dynzdf_imp = new zwt_ua_dynzdf_imp ())==NULL) 2214 Ycreate_errnew(); 2326 2215 }/*M3_TBTOGT */ 2327 2216 void YtabTOgrad_zwt_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2341 2230 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2342 2231 for (int Yws=0; Yws<YNBS_zwt_va_dynzdf_imp; ++Yws){ 2343 Yzwt_va_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2232 Yzwt_va_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2344 2233 }/*M3_SETAT*/ 2345 2234 void Ysetstate_zwt_va_dynzdf_imp(double val) … … 2350 2239 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2351 2240 for (int Yws=0; Yws<YNBS_zwt_va_dynzdf_imp; ++Yws){ 2352 Yzwt_va_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2241 Yzwt_va_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2353 2242 }/*M3_YIOUT*/ 2354 2243 void Yio_zwt_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2355 2244 { Yiorwf ("zwt_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2356 }/*M 3_CREU*/2245 }/*M0_CREU*/ 2357 2246 void Ycreate_zwt_va_dynzdf_imp() 2358 2247 { 2359 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2360 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2361 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2362 if ((Yzwt_va_dynzdf_imp(Yw1, Yw2, Yw3) = new zwt_va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2248 if ((Yzwt_va_dynzdf_imp = new zwt_va_dynzdf_imp ())==NULL) 2249 Ycreate_errnew(); 2363 2250 }/*M3_TBTOGT */ 2364 2251 void YtabTOgrad_ua_de_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2378 2265 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2379 2266 for (int Yws=0; Yws<YNBS_ua_de_dynzdf_imp; ++Yws){ 2380 Yua_de_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2267 Yua_de_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2381 2268 }/*M3_SETAT*/ 2382 2269 void Ysetstate_ua_de_dynzdf_imp(double val) … … 2387 2274 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2388 2275 for (int Yws=0; Yws<YNBS_ua_de_dynzdf_imp; ++Yws){ 2389 Yua_de_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2276 Yua_de_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2390 2277 }/*M3_YIOUT*/ 2391 2278 void Yio_ua_de_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2392 2279 { Yiorwf ("ua_de_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_de_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2393 }/*M 3_CREU*/2280 }/*M0_CREU*/ 2394 2281 void Ycreate_ua_de_dynzdf_imp() 2395 2282 { 2396 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2397 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2398 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2399 if ((Yua_de_dynzdf_imp(Yw1, Yw2, Yw3) = new ua_de_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2283 if ((Yua_de_dynzdf_imp = new ua_de_dynzdf_imp ())==NULL) 2284 Ycreate_errnew(); 2400 2285 }/*M3_TBTOGT */ 2401 2286 void YtabTOgrad_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2415 2300 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2416 2301 for (int Yws=0; Yws<YNBS_ua_dynzdf_imp; ++Yws){ 2417 Yua_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2302 Yua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2418 2303 }/*M3_SETAT*/ 2419 2304 void Ysetstate_ua_dynzdf_imp(double val) … … 2424 2309 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2425 2310 for (int Yws=0; Yws<YNBS_ua_dynzdf_imp; ++Yws){ 2426 Yua_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2311 Yua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2427 2312 }/*M3_YIOUT*/ 2428 2313 void Yio_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2429 2314 { Yiorwf ("ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2430 }/*M 3_CREU*/2315 }/*M0_CREU*/ 2431 2316 void Ycreate_ua_dynzdf_imp() 2432 2317 { 2433 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2434 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2435 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2436 if ((Yua_dynzdf_imp(Yw1, Yw2, Yw3) = new ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2318 if ((Yua_dynzdf_imp = new ua_dynzdf_imp ())==NULL) 2319 Ycreate_errnew(); 2437 2320 }/*M3_TBTOGT */ 2438 2321 void YtabTOgrad_va_de_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2452 2335 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2453 2336 for (int Yws=0; Yws<YNBS_va_de_dynzdf_imp; ++Yws){ 2454 Yva_de_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2337 Yva_de_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2455 2338 }/*M3_SETAT*/ 2456 2339 void Ysetstate_va_de_dynzdf_imp(double val) … … 2461 2344 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2462 2345 for (int Yws=0; Yws<YNBS_va_de_dynzdf_imp; ++Yws){ 2463 Yva_de_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2346 Yva_de_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2464 2347 }/*M3_YIOUT*/ 2465 2348 void Yio_va_de_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2466 2349 { Yiorwf ("va_de_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_de_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2467 }/*M 3_CREU*/2350 }/*M0_CREU*/ 2468 2351 void Ycreate_va_de_dynzdf_imp() 2469 2352 { 2470 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2471 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2472 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2473 if ((Yva_de_dynzdf_imp(Yw1, Yw2, Yw3) = new va_de_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2353 if ((Yva_de_dynzdf_imp = new va_de_dynzdf_imp ())==NULL) 2354 Ycreate_errnew(); 2474 2355 }/*M3_TBTOGT */ 2475 2356 void YtabTOgrad_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2489 2370 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2490 2371 for (int Yws=0; Yws<YNBS_va_dynzdf_imp; ++Yws){ 2491 Yva_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2372 Yva_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2492 2373 }/*M3_SETAT*/ 2493 2374 void Ysetstate_va_dynzdf_imp(double val) … … 2498 2379 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2499 2380 for (int Yws=0; Yws<YNBS_va_dynzdf_imp; ++Yws){ 2500 Yva_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2381 Yva_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2501 2382 }/*M3_YIOUT*/ 2502 2383 void Yio_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2503 2384 { Yiorwf ("va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2504 }/*M 3_CREU*/2385 }/*M0_CREU*/ 2505 2386 void Ycreate_va_dynzdf_imp() 2506 2387 { 2507 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2508 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2509 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2510 if ((Yva_dynzdf_imp(Yw1, Yw2, Yw3) = new va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2388 if ((Yva_dynzdf_imp = new va_dynzdf_imp ())==NULL) 2389 Ycreate_errnew(); 2511 2390 }/*M3_TBTOGT */ 2512 2391 void YtabTOgrad_ua_norm_dynzdf(int frompdt, int topdt, YREAL tab[]) … … 2526 2405 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2527 2406 for (int Yws=0; Yws<YNBS_ua_norm_dynzdf; ++Yws){ 2528 Yua_norm_dynzdf (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2407 Yua_norm_dynzdf->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2529 2408 }/*M3_SETAT*/ 2530 2409 void Ysetstate_ua_norm_dynzdf(double val) … … 2535 2414 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2536 2415 for (int Yws=0; Yws<YNBS_ua_norm_dynzdf; ++Yws){ 2537 Yua_norm_dynzdf (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2416 Yua_norm_dynzdf->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2538 2417 }/*M3_YIOUT*/ 2539 2418 void Yio_ua_norm_dynzdf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2540 2419 { Yiorwf ("ua_norm_dynzdf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_norm_dynzdf(Yws, Yw1, Yw2, Yw3, Ywt), val); 2541 }/*M 3_CREU*/2420 }/*M0_CREU*/ 2542 2421 void Ycreate_ua_norm_dynzdf() 2543 2422 { 2544 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2545 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2546 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2547 if ((Yua_norm_dynzdf(Yw1, Yw2, Yw3) = new ua_norm_dynzdf ())==NULL) Ycreate_errnew();}}} 2423 if ((Yua_norm_dynzdf = new ua_norm_dynzdf ())==NULL) 2424 Ycreate_errnew(); 2548 2425 }/*M3_TBTOGT */ 2549 2426 void YtabTOgrad_va_norm_dynzdf(int frompdt, int topdt, YREAL tab[]) … … 2563 2440 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2564 2441 for (int Yws=0; Yws<YNBS_va_norm_dynzdf; ++Yws){ 2565 Yva_norm_dynzdf (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2442 Yva_norm_dynzdf->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2566 2443 }/*M3_SETAT*/ 2567 2444 void Ysetstate_va_norm_dynzdf(double val) … … 2572 2449 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2573 2450 for (int Yws=0; Yws<YNBS_va_norm_dynzdf; ++Yws){ 2574 Yva_norm_dynzdf (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2451 Yva_norm_dynzdf->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2575 2452 }/*M3_YIOUT*/ 2576 2453 void Yio_va_norm_dynzdf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2577 2454 { Yiorwf ("va_norm_dynzdf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_norm_dynzdf(Yws, Yw1, Yw2, Yw3, Ywt), val); 2578 }/*M 3_CREU*/2455 }/*M0_CREU*/ 2579 2456 void Ycreate_va_norm_dynzdf() 2580 2457 { 2581 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2582 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2583 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2584 if ((Yva_norm_dynzdf(Yw1, Yw2, Yw3) = new va_norm_dynzdf ())==NULL) Ycreate_errnew();}}} 2458 if ((Yva_norm_dynzdf = new va_norm_dynzdf ())==NULL) 2459 Ycreate_errnew(); 2585 2460 }/*M2_TBTOGT */ 2586 2461 void YtabTOgrad_spguv_now_dynspg(int frompdt, int topdt, YREAL tab[]) … … 2598 2473 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2599 2474 for (int Yws=0; Yws<YNBS_spguv_now_dynspg; ++Yws){ 2600 Yspguv_now_dynspg (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2475 Yspguv_now_dynspg->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 2601 2476 }/*M2_SETAT*/ 2602 2477 void Ysetstate_spguv_now_dynspg(double val) … … 2606 2481 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2607 2482 for (int Yws=0; Yws<YNBS_spguv_now_dynspg; ++Yws){ 2608 Yspguv_now_dynspg (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2483 Yspguv_now_dynspg->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 2609 2484 }/*M2_YIOUT*/ 2610 2485 void Yio_spguv_now_dynspg(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2611 2486 { Yiorwf ("spguv_now_dynspg", Yws, Yw1, Yw2, Yw3, Ywt, &YS_spguv_now_dynspg(Yws, Yw1, Yw2, Ywt), val); 2612 }/*M 2_CREU*/2487 }/*M0_CREU*/ 2613 2488 void Ycreate_spguv_now_dynspg() 2614 2489 { 2615 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2616 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2617 if ((Yspguv_now_dynspg(Yw1, Yw2)= new spguv_now_dynspg ())==NULL) Ycreate_errnew();}} 2490 if ((Yspguv_now_dynspg = new spguv_now_dynspg ())==NULL) 2491 Ycreate_errnew(); 2618 2492 }/*M3_TBTOGT */ 2619 2493 void YtabTOgrad_ua_1_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2633 2507 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2634 2508 for (int Yws=0; Yws<YNBS_ua_1_dynspg_flt; ++Yws){ 2635 Yua_1_dynspg_flt (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2509 Yua_1_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2636 2510 }/*M3_SETAT*/ 2637 2511 void Ysetstate_ua_1_dynspg_flt(double val) … … 2642 2516 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2643 2517 for (int Yws=0; Yws<YNBS_ua_1_dynspg_flt; ++Yws){ 2644 Yua_1_dynspg_flt (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2518 Yua_1_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2645 2519 }/*M3_YIOUT*/ 2646 2520 void Yio_ua_1_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2647 2521 { Yiorwf ("ua_1_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_1_dynspg_flt(Yws, Yw1, Yw2, Yw3, Ywt), val); 2648 }/*M 3_CREU*/2522 }/*M0_CREU*/ 2649 2523 void Ycreate_ua_1_dynspg_flt() 2650 2524 { 2651 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2652 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2653 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2654 if ((Yua_1_dynspg_flt(Yw1, Yw2, Yw3) = new ua_1_dynspg_flt ())==NULL) Ycreate_errnew();}}} 2525 if ((Yua_1_dynspg_flt = new ua_1_dynspg_flt ())==NULL) 2526 Ycreate_errnew(); 2655 2527 }/*M3_TBTOGT */ 2656 2528 void YtabTOgrad_va_1_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2670 2542 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2671 2543 for (int Yws=0; Yws<YNBS_va_1_dynspg_flt; ++Yws){ 2672 Yva_1_dynspg_flt (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2544 Yva_1_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2673 2545 }/*M3_SETAT*/ 2674 2546 void Ysetstate_va_1_dynspg_flt(double val) … … 2679 2551 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2680 2552 for (int Yws=0; Yws<YNBS_va_1_dynspg_flt; ++Yws){ 2681 Yva_1_dynspg_flt (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2553 Yva_1_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2682 2554 }/*M3_YIOUT*/ 2683 2555 void Yio_va_1_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2684 2556 { Yiorwf ("va_1_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_1_dynspg_flt(Yws, Yw1, Yw2, Yw3, Ywt), val); 2685 }/*M 3_CREU*/2557 }/*M0_CREU*/ 2686 2558 void Ycreate_va_1_dynspg_flt() 2687 2559 { 2688 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2689 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2690 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2691 if ((Yva_1_dynspg_flt(Yw1, Yw2, Yw3) = new va_1_dynspg_flt ())==NULL) Ycreate_errnew();}}} 2560 if ((Yva_1_dynspg_flt = new va_1_dynspg_flt ())==NULL) 2561 Ycreate_errnew(); 2692 2562 }/*M2_TBTOGT */ 2693 2563 void YtabTOgrad_sum_spgu_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2705 2575 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2706 2576 for (int Yws=0; Yws<YNBS_sum_spgu_dynspg_flt; ++Yws){ 2707 Ysum_spgu_dynspg_flt (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2577 Ysum_spgu_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 2708 2578 }/*M2_SETAT*/ 2709 2579 void Ysetstate_sum_spgu_dynspg_flt(double val) … … 2713 2583 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2714 2584 for (int Yws=0; Yws<YNBS_sum_spgu_dynspg_flt; ++Yws){ 2715 Ysum_spgu_dynspg_flt (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2585 Ysum_spgu_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 2716 2586 }/*M2_YIOUT*/ 2717 2587 void Yio_sum_spgu_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2718 2588 { Yiorwf ("sum_spgu_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sum_spgu_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2719 }/*M 2_CREU*/2589 }/*M0_CREU*/ 2720 2590 void Ycreate_sum_spgu_dynspg_flt() 2721 2591 { 2722 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2723 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2724 if ((Ysum_spgu_dynspg_flt(Yw1, Yw2)= new sum_spgu_dynspg_flt ())==NULL) Ycreate_errnew();}} 2592 if ((Ysum_spgu_dynspg_flt = new sum_spgu_dynspg_flt ())==NULL) 2593 Ycreate_errnew(); 2725 2594 }/*M2_TBTOGT */ 2726 2595 void YtabTOgrad_sum_spgv_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2738 2607 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2739 2608 for (int Yws=0; Yws<YNBS_sum_spgv_dynspg_flt; ++Yws){ 2740 Ysum_spgv_dynspg_flt (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2609 Ysum_spgv_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 2741 2610 }/*M2_SETAT*/ 2742 2611 void Ysetstate_sum_spgv_dynspg_flt(double val) … … 2746 2615 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2747 2616 for (int Yws=0; Yws<YNBS_sum_spgv_dynspg_flt; ++Yws){ 2748 Ysum_spgv_dynspg_flt (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2617 Ysum_spgv_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 2749 2618 }/*M2_YIOUT*/ 2750 2619 void Yio_sum_spgv_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2751 2620 { Yiorwf ("sum_spgv_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sum_spgv_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2752 }/*M 2_CREU*/2621 }/*M0_CREU*/ 2753 2622 void Ycreate_sum_spgv_dynspg_flt() 2754 2623 { 2755 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2756 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2757 if ((Ysum_spgv_dynspg_flt(Yw1, Yw2)= new sum_spgv_dynspg_flt ())==NULL) Ycreate_errnew();}} 2624 if ((Ysum_spgv_dynspg_flt = new sum_spgv_dynspg_flt ())==NULL) 2625 Ycreate_errnew(); 2758 2626 }/*M2_TBTOGT */ 2759 2627 void YtabTOgrad_gcb_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2771 2639 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2772 2640 for (int Yws=0; Yws<YNBS_gcb_dynspg_flt; ++Yws){ 2773 Ygcb_dynspg_flt (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2641 Ygcb_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 2774 2642 }/*M2_SETAT*/ 2775 2643 void Ysetstate_gcb_dynspg_flt(double val) … … 2779 2647 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2780 2648 for (int Yws=0; Yws<YNBS_gcb_dynspg_flt; ++Yws){ 2781 Ygcb_dynspg_flt (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2649 Ygcb_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 2782 2650 }/*M2_YIOUT*/ 2783 2651 void Yio_gcb_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2784 2652 { Yiorwf ("gcb_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcb_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2785 }/*M 2_CREU*/2653 }/*M0_CREU*/ 2786 2654 void Ycreate_gcb_dynspg_flt() 2787 2655 { 2788 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2789 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2790 if ((Ygcb_dynspg_flt(Yw1, Yw2)= new gcb_dynspg_flt ())==NULL) Ycreate_errnew();}} 2656 if ((Ygcb_dynspg_flt = new gcb_dynspg_flt ())==NULL) 2657 Ycreate_errnew(); 2791 2658 }/*M2_TBTOGT */ 2792 2659 void YtabTOgrad_gcx_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2804 2671 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2805 2672 for (int Yws=0; Yws<YNBS_gcx_dynspg_flt; ++Yws){ 2806 Ygcx_dynspg_flt (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2673 Ygcx_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 2807 2674 }/*M2_SETAT*/ 2808 2675 void Ysetstate_gcx_dynspg_flt(double val) … … 2812 2679 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2813 2680 for (int Yws=0; Yws<YNBS_gcx_dynspg_flt; ++Yws){ 2814 Ygcx_dynspg_flt (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2681 Ygcx_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 2815 2682 }/*M2_YIOUT*/ 2816 2683 void Yio_gcx_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2817 2684 { Yiorwf ("gcx_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcx_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2818 }/*M 2_CREU*/2685 }/*M0_CREU*/ 2819 2686 void Ycreate_gcx_dynspg_flt() 2820 2687 { 2821 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2822 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2823 if ((Ygcx_dynspg_flt(Yw1, Yw2)= new gcx_dynspg_flt ())==NULL) Ycreate_errnew();}} 2688 if ((Ygcx_dynspg_flt = new gcx_dynspg_flt ())==NULL) 2689 Ycreate_errnew(); 2824 2690 }/*M3_TBTOGT */ 2825 2691 void YtabTOgrad_solsor_gx1_x_r(int frompdt, int topdt, YREAL tab[]) … … 2839 2705 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2840 2706 for (int Yws=0; Yws<YNBS_solsor_gx1_x_r; ++Yws){ 2841 Ysolsor_gx1_x_r (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2707 Ysolsor_gx1_x_r->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2842 2708 }/*M3_SETAT*/ 2843 2709 void Ysetstate_solsor_gx1_x_r(double val) … … 2848 2714 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2849 2715 for (int Yws=0; Yws<YNBS_solsor_gx1_x_r; ++Yws){ 2850 Ysolsor_gx1_x_r (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2716 Ysolsor_gx1_x_r->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2851 2717 }/*M3_YIOUT*/ 2852 2718 void Yio_solsor_gx1_x_r(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2853 2719 { Yiorwf ("solsor_gx1_x_r", Yws, Yw1, Yw2, Yw3, Ywt, &YS_solsor_gx1_x_r(Yws, Yw1, Yw2, Yw3, Ywt), val); 2854 }/*M 3_CREU*/2720 }/*M0_CREU*/ 2855 2721 void Ycreate_solsor_gx1_x_r() 2856 2722 { 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();}}} 2723 if ((Ysolsor_gx1_x_r = new solsor_gx1_x_r ())==NULL) 2724 Ycreate_errnew(); 2861 2725 }/*M3_TBTOGT */ 2862 2726 void YtabTOgrad_solsor_gx2_x_r(int frompdt, int topdt, YREAL tab[]) … … 2876 2740 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2877 2741 for (int Yws=0; Yws<YNBS_solsor_gx2_x_r; ++Yws){ 2878 Ysolsor_gx2_x_r (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2742 Ysolsor_gx2_x_r->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2879 2743 }/*M3_SETAT*/ 2880 2744 void Ysetstate_solsor_gx2_x_r(double val) … … 2885 2749 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2886 2750 for (int Yws=0; Yws<YNBS_solsor_gx2_x_r; ++Yws){ 2887 Ysolsor_gx2_x_r (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2751 Ysolsor_gx2_x_r->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2888 2752 }/*M3_YIOUT*/ 2889 2753 void Yio_solsor_gx2_x_r(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2890 2754 { Yiorwf ("solsor_gx2_x_r", Yws, Yw1, Yw2, Yw3, Ywt, &YS_solsor_gx2_x_r(Yws, Yw1, Yw2, Yw3, Ywt), val); 2891 }/*M 3_CREU*/2755 }/*M0_CREU*/ 2892 2756 void Ycreate_solsor_gx2_x_r() 2893 2757 { 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();}}} 2758 if ((Ysolsor_gx2_x_r = new solsor_gx2_x_r ())==NULL) 2759 Ycreate_errnew(); 2898 2760 }/*M3_TBTOGT */ 2899 2761 void YtabTOgrad_solsor_flag(int frompdt, int topdt, YREAL tab[]) … … 2913 2775 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2914 2776 for (int Yws=0; Yws<YNBS_solsor_flag; ++Yws){ 2915 Ysolsor_flag (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2777 Ysolsor_flag->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2916 2778 }/*M3_SETAT*/ 2917 2779 void Ysetstate_solsor_flag(double val) … … 2922 2784 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2923 2785 for (int Yws=0; Yws<YNBS_solsor_flag; ++Yws){ 2924 Ysolsor_flag (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2786 Ysolsor_flag->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2925 2787 }/*M3_YIOUT*/ 2926 2788 void Yio_solsor_flag(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2927 2789 { Yiorwf ("solsor_flag", Yws, Yw1, Yw2, Yw3, Ywt, &YS_solsor_flag(Yws, Yw1, Yw2, Yw3, Ywt), val); 2928 }/*M 3_CREU*/2790 }/*M0_CREU*/ 2929 2791 void Ycreate_solsor_flag() 2930 2792 { 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();}}} 2793 if ((Ysolsor_flag = new solsor_flag ())==NULL) 2794 Ycreate_errnew(); 2935 2795 }/*M2_TBTOGT */ 2936 2796 void YtabTOgrad_gcx2(int frompdt, int topdt, YREAL tab[]) … … 2948 2808 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2949 2809 for (int Yws=0; Yws<YNBS_gcx2; ++Yws){ 2950 Ygcx2 (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2810 Ygcx2->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 2951 2811 }/*M2_SETAT*/ 2952 2812 void Ysetstate_gcx2(double val) … … 2956 2816 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2957 2817 for (int Yws=0; Yws<YNBS_gcx2; ++Yws){ 2958 Ygcx2 (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2818 Ygcx2->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 2959 2819 }/*M2_YIOUT*/ 2960 2820 void Yio_gcx2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2961 2821 { Yiorwf ("gcx2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcx2(Yws, Yw1, Yw2, Ywt), val); 2962 }/*M 2_CREU*/2822 }/*M0_CREU*/ 2963 2823 void Ycreate_gcx2() 2964 2824 { 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();}} 2825 if ((Ygcx2 = new gcx2 ())==NULL) 2826 Ycreate_errnew(); 2968 2827 }/*M2_TBTOGT */ 2969 2828 void YtabTOgrad_spguv_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2981 2840 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2982 2841 for (int Yws=0; Yws<YNBS_spguv_dynspg_flt; ++Yws){ 2983 Yspguv_dynspg_flt (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2842 Yspguv_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 2984 2843 }/*M2_SETAT*/ 2985 2844 void Ysetstate_spguv_dynspg_flt(double val) … … 2989 2848 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2990 2849 for (int Yws=0; Yws<YNBS_spguv_dynspg_flt; ++Yws){ 2991 Yspguv_dynspg_flt (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2850 Yspguv_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 2992 2851 }/*M2_YIOUT*/ 2993 2852 void Yio_spguv_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2994 2853 { Yiorwf ("spguv_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_spguv_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2995 }/*M 2_CREU*/2854 }/*M0_CREU*/ 2996 2855 void Ycreate_spguv_dynspg_flt() 2997 2856 { 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();}} 2857 if ((Yspguv_dynspg_flt = new spguv_dynspg_flt ())==NULL) 2858 Ycreate_errnew(); 3001 2859 }/*M3_TBTOGT */ 3002 2860 void YtabTOgrad_ua(int frompdt, int topdt, YREAL tab[]) … … 3016 2874 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3017 2875 for (int Yws=0; Yws<YNBS_ua; ++Yws){ 3018 Yua (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2876 Yua->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 3019 2877 }/*M3_SETAT*/ 3020 2878 void Ysetstate_ua(double val) … … 3025 2883 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3026 2884 for (int Yws=0; Yws<YNBS_ua; ++Yws){ 3027 Yua (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2885 Yua->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 3028 2886 }/*M3_YIOUT*/ 3029 2887 void Yio_ua(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 3030 2888 { Yiorwf ("ua", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua(Yws, Yw1, Yw2, Yw3, Ywt), val); 3031 }/*M 3_CREU*/2889 }/*M0_CREU*/ 3032 2890 void Ycreate_ua() 3033 2891 { 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();}}} 2892 if ((Yua = new ua ())==NULL) 2893 Ycreate_errnew(); 3038 2894 }/*M3_TBTOGT */ 3039 2895 void YtabTOgrad_va(int frompdt, int topdt, YREAL tab[]) … … 3053 2909 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3054 2910 for (int Yws=0; Yws<YNBS_va; ++Yws){ 3055 Yva (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2911 Yva->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 3056 2912 }/*M3_SETAT*/ 3057 2913 void Ysetstate_va(double val) … … 3062 2918 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3063 2919 for (int Yws=0; Yws<YNBS_va; ++Yws){ 3064 Yva (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2920 Yva->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 3065 2921 }/*M3_YIOUT*/ 3066 2922 void Yio_va(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 3067 2923 { Yiorwf ("va", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va(Yws, Yw1, Yw2, Yw3, Ywt), val); 3068 }/*M 3_CREU*/2924 }/*M0_CREU*/ 3069 2925 void Ycreate_va() 3070 2926 { 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();}}} 2927 if ((Yva = new va ())==NULL) 2928 Ycreate_errnew(); 3075 2929 }/*M2_TBTOGT */ 3076 2930 void YtabTOgrad_sshn(int frompdt, int topdt, YREAL tab[]) … … 3088 2942 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3089 2943 for (int Yws=0; Yws<YNBS_sshn; ++Yws){ 3090 Ysshn (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2944 Ysshn->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 3091 2945 }/*M2_SETAT*/ 3092 2946 void Ysetstate_sshn(double val) … … 3096 2950 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3097 2951 for (int Yws=0; Yws<YNBS_sshn; ++Yws){ 3098 Ysshn (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2952 Ysshn->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 3099 2953 }/*M2_YIOUT*/ 3100 2954 void Yio_sshn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 3101 2955 { Yiorwf ("sshn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sshn(Yws, Yw1, Yw2, Ywt), val); 3102 }/*M 2_CREU*/2956 }/*M0_CREU*/ 3103 2957 void Ycreate_sshn() 3104 2958 { 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();}} 2959 if ((Ysshn = new sshn ())==NULL) 2960 Ycreate_errnew(); 3108 2961 }/*M2_TBTOGT */ 3109 2962 void YtabTOgrad_sshb(int frompdt, int topdt, YREAL tab[]) … … 3121 2974 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3122 2975 for (int Yws=0; Yws<YNBS_sshb; ++Yws){ 3123 Ysshb (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2976 Ysshb->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 3124 2977 }/*M2_SETAT*/ 3125 2978 void Ysetstate_sshb(double val) … … 3129 2982 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3130 2983 for (int Yws=0; Yws<YNBS_sshb; ++Yws){ 3131 Ysshb (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2984 Ysshb->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 3132 2985 }/*M2_YIOUT*/ 3133 2986 void Yio_sshb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 3148 3001 }/*M9_OUTOB*/ 3149 3002 return(1); 3150 }/*M 2_CREU*/3003 }/*M0_CREU*/ 3151 3004 void Ycreate_sshb() 3152 3005 { 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();}} 3006 if ((Ysshb = new sshb ())==NULL) 3007 Ycreate_errnew(); 3156 3008 }/*M2_SWISH*/ 3157 3009 void Ysetwish_sshb(double val) … … 3178 3030 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3179 3031 for (int Yws=0; Yws<YNBS_ub; ++Yws){ 3180 Yub (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}3032 Yub->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 3181 3033 }/*M3_SETAT*/ 3182 3034 void Ysetstate_ub(double val) … … 3187 3039 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3188 3040 for (int Yws=0; Yws<YNBS_ub; ++Yws){ 3189 Yub (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}3041 Yub->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 3190 3042 }/*M3_YIOUT*/ 3191 3043 void Yio_ub(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 3207 3059 }/*M9_OUTOB*/ 3208 3060 return(1); 3209 }/*M 3_CREU*/3061 }/*M0_CREU*/ 3210 3062 void Ycreate_ub() 3211 3063 { 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();}}} 3064 if ((Yub = new ub ())==NULL) 3065 Ycreate_errnew(); 3216 3066 }/*M3_SWISH*/ 3217 3067 void Ysetwish_ub(double val) … … 3239 3089 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3240 3090 for (int Yws=0; Yws<YNBS_vb; ++Yws){ 3241 Yvb (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}3091 Yvb->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 3242 3092 }/*M3_SETAT*/ 3243 3093 void Ysetstate_vb(double val) … … 3248 3098 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3249 3099 for (int Yws=0; Yws<YNBS_vb; ++Yws){ 3250 Yvb (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}3100 Yvb->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 3251 3101 }/*M3_YIOUT*/ 3252 3102 void Yio_vb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 3268 3118 }/*M9_OUTOB*/ 3269 3119 return(1); 3270 }/*M 3_CREU*/3120 }/*M0_CREU*/ 3271 3121 void Ycreate_vb() 3272 3122 { 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();}}} 3123 if ((Yvb = new vb ())==NULL) 3124 Ycreate_errnew(); 3277 3125 }/*M3_SWISH*/ 3278 3126 void Ysetwish_vb(double val) … … 3300 3148 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3301 3149 for (int Yws=0; Yws<YNBS_hdivn; ++Yws){ 3302 Yhdivn (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}3150 Yhdivn->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 3303 3151 }/*M3_SETAT*/ 3304 3152 void Ysetstate_hdivn(double val) … … 3309 3157 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3310 3158 for (int Yws=0; Yws<YNBS_hdivn; ++Yws){ 3311 Yhdivn (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}3159 Yhdivn->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 3312 3160 }/*M3_YIOUT*/ 3313 3161 void Yio_hdivn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 3314 3162 { Yiorwf ("hdivn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_hdivn(Yws, Yw1, Yw2, Yw3, Ywt), val); 3315 }/*M 3_CREU*/3163 }/*M0_CREU*/ 3316 3164 void Ycreate_hdivn() 3317 3165 { 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();}}} 3166 if ((Yhdivn = new hdivn ())==NULL) 3167 Ycreate_errnew(); 3322 3168 }/*M3_TBTOGT */ 3323 3169 void YtabTOgrad_rotn(int frompdt, int topdt, YREAL tab[]) … … 3337 3183 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3338 3184 for (int Yws=0; Yws<YNBS_rotn; ++Yws){ 3339 Yrotn (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}3185 Yrotn->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 3340 3186 }/*M3_SETAT*/ 3341 3187 void Ysetstate_rotn(double val) … … 3346 3192 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3347 3193 for (int Yws=0; Yws<YNBS_rotn; ++Yws){ 3348 Yrotn (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}3194 Yrotn->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 3349 3195 }/*M3_YIOUT*/ 3350 3196 void Yio_rotn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 3351 3197 { Yiorwf ("rotn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rotn(Yws, Yw1, Yw2, Yw3, Ywt), val); 3352 }/*M 3_CREU*/3198 }/*M0_CREU*/ 3353 3199 void Ycreate_rotn() 3354 3200 { 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();}}} 3201 if ((Yrotn = new rotn ())==NULL) 3202 Ycreate_errnew(); 3359 3203 }/*M3_TBTOGT */ 3360 3204 void YtabTOgrad_wa(int frompdt, int topdt, YREAL tab[]) … … 3374 3218 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3375 3219 for (int Yws=0; Yws<YNBS_wa; ++Yws){ 3376 Ywa (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}3220 Ywa->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 3377 3221 }/*M3_SETAT*/ 3378 3222 void Ysetstate_wa(double val) … … 3383 3227 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3384 3228 for (int Yws=0; Yws<YNBS_wa; ++Yws){ 3385 Ywa (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}3229 Ywa->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 3386 3230 }/*M3_YIOUT*/ 3387 3231 void Yio_wa(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 3388 3232 { Yiorwf ("wa", Yws, Yw1, Yw2, Yw3, Ywt, &YS_wa(Yws, Yw1, Yw2, Yw3, Ywt), val); 3389 }/*M 3_CREU*/3233 }/*M0_CREU*/ 3390 3234 void Ycreate_wa() 3391 3235 { 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();}}} 3236 if ((Ywa = new wa ())==NULL) 3237 Ycreate_errnew(); 3396 3238 } 3397 3239 void Ycreate_all () … … 3960 3802 { 3961 3803 Yting[0]=YS1_tb( Yi, Yj, 0, YTemps-1); 3962 Ysbcgyre_qsr_qns (Yi, Yj)->forward( Yting[0] );3963 Ysbcgyre_emp1 (Yi, Yj)->forward();3804 Ysbcgyre_qsr_qns->forward( Yting[0] ); 3805 Ysbcgyre_emp1->forward(); 3964 3806 if (1==0 || Yi-1<0) 3965 3807 Yting[0]=0; … … 3979 3821 Yting[3]=YS2_sbcgyre_zsumemp_zsurf( 31, Yj-1, YTemps); 3980 3822 Yting[4]=YS1_sbcgyre_emp1( Yi, Yj, YTemps); 3981 Ysbcgyre_zsumemp_zsurf (Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );3823 Ysbcgyre_zsumemp_zsurf->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 3982 3824 3983 3825 } … … 3988 3830 Yting[1]=YS1_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 3989 3831 Yting[2]=YS2_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 3990 Ysbcgyre_emp (Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] );3832 Ysbcgyre_emp->forward( Yting[0], Yting[1], Yting[2] ); 3991 3833 Yting[0]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 3992 Ysbcgyre_emps (Yi, Yj)->forward( Yting[0] );3993 Ysbcgyre_utau_vtau (Yi, Yj)->forward();3834 Ysbcgyre_emps->forward( Yting[0] ); 3835 Ysbcgyre_utau_vtau->forward(); 3994 3836 if (1==0 || Yi-1<0) 3995 3837 Yting[0]=0; … … 4002 3844 Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 4003 3845 Yting[3]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 4004 Ysbcgyre_wndm(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4005 4006 } 4007 for(Yk=0; Yk<YA3_S3dt; ++Yk) 3846 Ysbcgyre_wndm->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 3847 3848 } 3849 #pragma omp parallel for num_threads(16) 3850 for(YY=0; YY<YA3_S3dt; ++YY){ 3851 Yk=YY; 4008 3852 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4009 3853 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4019 3863 else 4020 3864 Yting[3]=YS1_sb( Yi, Yj, Yk-1, YTemps-1); 4021 Ybn2_rn2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4022 4023 } 4024 for(Yk=0; Yk<YA3_S3dt; ++Yk) 3865 Ybn2_rn2->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 3866 3867 } 3868 } 3869 #pragma omp parallel for num_threads(16) 3870 for(YY=0; YY<YA3_S3dt; ++YY){ 3871 Yk=YY; 4025 3872 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4026 3873 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4087 3934 else 4088 3935 Yting[18]=YS1_va( Yi+1, Yj, 1, YTemps-1); 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] ); 4090 4091 } 4092 for(Yj=0; Yj<YA2_S3dt; ++Yj) 3936 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] ); 3937 3938 } 3939 } 3940 #pragma omp parallel for num_threads(16) 3941 for(YY=0; YY<YA2_S3dt; ++YY){ 3942 Yj=YY; 4093 3943 for(Yi=0; Yi<YA1_S3dt; ++Yi) 4094 3944 { … … 4124 3974 Yting[29]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 29, YTemps); 4125 3975 Yting[30]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 30, YTemps); 4126 Yzdfmxl_hmld (Yi, Yj)->forward();3976 Yzdfmxl_hmld->forward(); 4127 3977 Yting[0]=YS1_rhop( Yi, Yj, 0, YTemps-1); 4128 3978 Yting[1]=YS1_rhop( Yi, Yj, 1, YTemps-1); … … 4156 4006 Yting[29]=YS1_rhop( Yi, Yj, 29, YTemps-1); 4157 4007 Yting[30]=YS1_rhop( Yi, Yj, 30, YTemps-1); 4158 Yzdfmxl_nmln_hmlp_hmlpt(Yi, Yj)->forward(); 4159 4160 } 4161 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4008 Yzdfmxl_nmln_hmlp_hmlpt->forward(); 4009 4010 } 4011 } 4012 #pragma omp parallel for num_threads(16) 4013 for(YY=0; YY<YA2_S3dt; ++YY){ 4014 Yj=YY; 4162 4015 for(Yi=0; Yi<YA1_S3dt; ++Yi) 4163 4016 { … … 4165 4018 Yting[1]=YS1_sbcgyre_emps( Yi, Yj, YTemps); 4166 4019 Yting[2]=YS1_sa( Yi, Yj, 0, YTemps-1); 4167 Yta_sa_trasbc(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 4168 4169 } 4170 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4020 Yta_sa_trasbc->forward( Yting[0], Yting[1], Yting[2] ); 4021 4022 } 4023 } 4024 #pragma omp parallel for num_threads(16) 4025 for(YY=0; YY<YA3_S3dt; ++YY){ 4026 Yk=YY; 4171 4027 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4172 4028 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4174 4030 Yting[0]=YS1_sbcgyre_qsr_qns( Yi, Yj, YTemps); 4175 4031 Yting[1]=YS1_ta_sa_trasbc( Yi, Yj, YTemps); 4176 Yta_traqsr(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4177 4178 } 4179 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4032 Yta_traqsr->forward( Yting[0], Yting[1] ); 4033 4034 } 4035 } 4036 #pragma omp parallel for num_threads(16) 4037 for(YY=0; YY<YA3_S3dt; ++YY){ 4038 Yk=YY; 4180 4039 { 4181 4040 for(Yj=0; Yj<YA2_S3dt; ++Yj) … … 4193 4052 else 4194 4053 Yting[4]=YS1_ta( Yi+1, Yj, Yk, YTemps-1); 4195 Yzcent_hor_traadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4054 Yzcent_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4196 4055 Yting[0]=YS1_ua( Yi, Yj, Yk, YTemps-1); 4197 4056 Yting[1]=YS1_va( Yi, Yj, Yk, YTemps-1); … … 4205 4064 else 4206 4065 Yting[4]=YS1_sa( Yi+1, Yj, Yk, YTemps-1); 4207 Yzcens_hor_traadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4066 Yzcens_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4208 4067 4209 4068 } … … 4222 4081 Yting[3]=YS2_zcent_hor_traadv_cen2( Yi, Yj-1, Yk, YTemps); 4223 4082 Yting[4]=YS2_zcent_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 4224 Yta_hor_traadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4083 Yta_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4225 4084 Yting[0]=YS2_ta_sa_trasbc( Yi, Yj, YTemps); 4226 4085 if (1==0 || Yi-1<0) … … 4234 4093 Yting[3]=YS2_zcens_hor_traadv_cen2( Yi, Yj-1, Yk, YTemps); 4235 4094 Yting[4]=YS2_zcens_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 4236 Ysa_hor_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4237 4238 } 4239 4240 } 4241 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4095 Ysa_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4096 4097 } 4098 4099 } 4100 } 4101 #pragma omp parallel for num_threads(16) 4102 for(YY=0; YY<YA3_S3dt; ++YY){ 4103 Yk=YY; 4242 4104 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4243 4105 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4249 4111 else 4250 4112 Yting[2]=YS1_ta( Yi, Yj, Yk-1, YTemps-1); 4251 Yzcent_ver_traadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );4113 Yzcent_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 4252 4114 Yting[0]=YS1_wa( Yi, Yj, Yk, YTemps-1); 4253 4115 Yting[1]=YS1_sa( Yi, Yj, Yk, YTemps-1); … … 4256 4118 else 4257 4119 Yting[2]=YS1_sa( Yi, Yj, Yk-1, YTemps-1); 4258 Yzcens_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4259 4260 } 4261 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4120 Yzcens_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 4121 4122 } 4123 } 4124 #pragma omp parallel for num_threads(16) 4125 for(YY=0; YY<YA3_S3dt; ++YY){ 4126 Yk=YY; 4262 4127 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4263 4128 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4269 4134 else 4270 4135 Yting[2]=YS1_zcent_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 4271 Yta_ver_traadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );4136 Yta_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 4272 4137 Yting[0]=YS1_sa_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 4273 4138 Yting[1]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk, YTemps); … … 4276 4141 else 4277 4142 Yting[2]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 4278 Ysa_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4279 4280 } 4281 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4143 Ysa_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 4144 4145 } 4146 } 4147 #pragma omp parallel for num_threads(16) 4148 for(YY=0; YY<YA3_S3dt; ++YY){ 4149 Yk=YY; 4282 4150 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4283 4151 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4292 4160 else 4293 4161 Yting[2]=YS1_tb( Yi, Yj+1, Yk, YTemps-1); 4294 Yztuv_traldf_lap (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );4162 Yztuv_traldf_lap->forward( Yting[0], Yting[1], Yting[2] ); 4295 4163 Yting[0]=YS1_sb( Yi, Yj, Yk, YTemps-1); 4296 4164 if (1==0 || Yi+1>YA1_S3dt-1) … … 4302 4170 else 4303 4171 Yting[2]=YS1_sb( Yi, Yj+1, Yk, YTemps-1); 4304 Yzsuv_traldf_lap (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );4172 Yzsuv_traldf_lap->forward( Yting[0], Yting[1], Yting[2] ); 4305 4173 Yting[0]=YS1_ta_ver_traadv_cen2( Yi, Yj, Yk, YTemps); 4306 4174 Yting[1]=YS1_ztuv_traldf_lap( Yi, Yj, Yk, YTemps); … … 4314 4182 else 4315 4183 Yting[4]=YS2_ztuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 4316 Yta_traldf_lap (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4184 Yta_traldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4317 4185 Yting[0]=YS1_sa_ver_traadv_cen2( Yi, Yj, Yk, YTemps); 4318 4186 Yting[1]=YS1_zsuv_traldf_lap( Yi, Yj, Yk, YTemps); … … 4326 4194 else 4327 4195 Yting[4]=YS2_zsuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 4328 Ysa_traldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4329 4330 } 4331 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4196 Ysa_traldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4197 4198 } 4199 } 4200 #pragma omp parallel for num_threads(16) 4201 for(YY=0; YY<YA3_S3dt; ++YY){ 4202 Yk=YY; 4332 4203 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4333 4204 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4338 4209 else 4339 4210 Yting[1]=YS1_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 4340 Yzwisd_trazdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );4211 Yzwisd_trazdf_imp->forward( Yting[0], Yting[1] ); 4341 4212 Yting[0]=YS1_ta_traldf_lap( Yi, Yj, Yk, YTemps); 4342 4213 Yting[1]=YS1_tb( Yi, Yj, Yk, YTemps-1); 4343 Yzrhs_trazdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );4214 Yzrhs_trazdf_imp->forward( Yting[0], Yting[1] ); 4344 4215 Yting[0]=YS1_sa_traldf_lap( Yi, Yj, Yk, YTemps); 4345 4216 Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps-1); 4346 Yzrhs_sa_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4347 4217 Yzrhs_sa_trazdf_imp->forward( Yting[0], Yting[1] ); 4218 4219 } 4348 4220 } 4349 4221 for(Yk=0; Yk<YA3_S3dt; ++Yk) … … 4361 4233 else 4362 4234 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 4363 Yzwt_trazdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4235 Yzwt_trazdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4364 4236 Yting[0]=YS1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 4365 4237 if (1==0 || Yk-1<0) … … 4372 4244 else 4373 4245 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 4374 Yta_de_trazdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4246 Yta_de_trazdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4375 4247 Yting[0]=YS1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 4376 4248 if (1==0 || Yk-1<0) … … 4383 4255 else 4384 4256 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 4385 Ysa_de_trazdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4257 Ysa_de_trazdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4386 4258 4387 4259 } … … 4398 4270 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk, YTemps); 4399 4271 Yting[4]=YS1_ta_c( Yi, Yj, Yk); 4400 Yta (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4272 Yta->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4401 4273 Yting[0]=YS2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 4402 4274 if (1==0 || Yk+1>YA3_S3dt-1) … … 4407 4279 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk, YTemps); 4408 4280 Yting[4]=YS1_sa_c( Yi, Yj, Yk); 4409 Ysa(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4410 4411 } 4412 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4281 Ysa->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4282 4283 } 4284 #pragma omp parallel for num_threads(16) 4285 for(YY=0; YY<YA3_S3dt; ++YY){ 4286 Yk=YY; 4413 4287 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4414 4288 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4418 4292 Yting[2]=YS1_ta( Yi, Yj, Yk, YTemps); 4419 4293 Yting[3]=YS1_ta_c( Yi, Yj, Yk); 4420 Ytb (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4294 Ytb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4421 4295 Yting[0]=YS1_sb( Yi, Yj, Yk, YTemps-1); 4422 4296 Yting[1]=YS1_sa( Yi, Yj, Yk, YTemps-1); 4423 4297 Yting[2]=YS1_sa( Yi, Yj, Yk, YTemps); 4424 4298 Yting[3]=YS1_sa_c( Yi, Yj, Yk); 4425 Ysb(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4426 4427 } 4428 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4299 Ysb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4300 4301 } 4302 } 4303 #pragma omp parallel for num_threads(16) 4304 for(YY=0; YY<YA3_S3dt; ++YY){ 4305 Yk=YY; 4429 4306 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4430 4307 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4432 4309 Yting[0]=YS1_tb( Yi, Yj, Yk, YTemps); 4433 4310 Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps); 4434 Yrhd (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );4311 Yrhd->forward( Yting[0], Yting[1] ); 4435 4312 Yting[0]=YS1_rhd( Yi, Yj, Yk, YTemps); 4436 Yrhop(Yi, Yj, Yk)->forward( Yting[0] ); 4437 4438 } 4439 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4313 Yrhop->forward( Yting[0] ); 4314 4315 } 4316 } 4317 #pragma omp parallel for num_threads(16) 4318 for(YY=0; YY<YA3_S3dt; ++YY){ 4319 Yk=YY; 4440 4320 { 4441 4321 for(Yj=0; Yj<YA2_S3dt; ++Yj) … … 4460 4340 else 4461 4341 Yting[5]=YS1_va( Yi, Yj+1, Yk, YTemps-1); 4462 Yhmf_TF_dynadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] );4342 Yhmf_TF_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] ); 4463 4343 4464 4344 } … … 4476 4356 else 4477 4357 Yting[3]=YS2_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 4478 Yzua_dhmf_dynadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4358 Yzua_dhmf_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4479 4359 Yting[0]=YS3_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps); 4480 4360 if (1==0 || Yi-1<0) … … 4487 4367 else 4488 4368 Yting[3]=YS4_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 4489 Yzva_dhmf_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4490 4491 } 4492 4493 } 4494 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4369 Yzva_dhmf_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4370 4371 } 4372 4373 } 4374 } 4375 #pragma omp parallel for num_threads(16) 4376 for(YY=0; YY<YA3_S3dt; ++YY){ 4377 Yk=YY; 4495 4378 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4496 4379 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4515 4398 else 4516 4399 Yting[6]=YS1_va( Yi, Yj, Yk-1, YTemps-1); 4517 Yzfuv_UW_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 4518 4519 } 4520 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4400 Yzfuv_UW_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 4401 4402 } 4403 } 4404 #pragma omp parallel for num_threads(16) 4405 for(YY=0; YY<YA3_S3dt; ++YY){ 4406 Yk=YY; 4521 4407 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4522 4408 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4528 4414 Yting[1]=YS1_zfuv_UW_dynadv_cen2( Yi, Yj, Yk+1, YTemps); 4529 4415 Yting[2]=YS1_zua_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 4530 Yua_dynadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );4416 Yua_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 4531 4417 Yting[0]=YS2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk, YTemps); 4532 4418 if (1==0 || Yk+1>YA3_S3dt-1) … … 4535 4421 Yting[1]=YS2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk+1, YTemps); 4536 4422 Yting[2]=YS1_zva_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 4537 Yva_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4538 4539 } 4540 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4423 Yva_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 4424 4425 } 4426 } 4427 #pragma omp parallel for num_threads(16) 4428 for(YY=0; YY<YA3_S3dt; ++YY){ 4429 Yk=YY; 4541 4430 { 4542 4431 for(Yj=0; Yj<YA2_S3dt; ++Yj) … … 4553 4442 else 4554 4443 Yting[3]=YS1_va( Yi+1, Yj, Yk, YTemps-1); 4555 Yzwxyz_vor_ene (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4444 Yzwxyz_vor_ene->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4556 4445 4557 4446 } … … 4578 4467 else 4579 4468 Yting[6]=YS2_zwxyz_vor_ene( Yi+1, Yj, Yk, YTemps); 4580 Yua_vor_ene (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );4469 Yua_vor_ene->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 4581 4470 Yting[0]=YS1_va_dynadv_cen2( Yi, Yj, Yk, YTemps); 4582 4471 if (1==0 || Yi-1<0) … … 4598 4487 else 4599 4488 Yting[6]=YS1_zwxyz_vor_ene( Yi, Yj+1, Yk, YTemps); 4600 Yva_vor_ene (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );4489 Yva_vor_ene->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 4601 4490 Yting[0]=YS1_ua_vor_ene( Yi, Yj, Yk, YTemps); 4602 4491 if (1==0 || Yj-1<0) … … 4610 4499 else 4611 4500 Yting[4]=YS1_hdivn( Yi+1, Yj, Yk, YTemps-2); 4612 Yua_dyn_ldf_lap (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4501 Yua_dyn_ldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4613 4502 Yting[0]=YS1_va_vor_ene( Yi, Yj, Yk, YTemps); 4614 4503 if (1==0 || Yi-1<0) … … 4622 4511 else 4623 4512 Yting[4]=YS1_hdivn( Yi, Yj+1, Yk, YTemps-2); 4624 Yva_dyn_ldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4625 4626 } 4627 4513 Yva_dyn_ldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4514 4515 } 4516 4517 } 4628 4518 } 4629 4519 for(Yk=0; Yk<YA3_S3dt; ++Yk) … … 4660 4550 else 4661 4551 Yting[7]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk-1, YTemps); 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] );4552 Yzhpij_dyn_hpg_zco->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 4663 4553 Yting[0]=YS1_ua_dyn_ldf_lap( Yi, Yj, Yk, YTemps); 4664 4554 Yting[1]=YS1_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 4665 Yua_dyn_hpg_zco (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );4555 Yua_dyn_hpg_zco->forward( Yting[0], Yting[1] ); 4666 4556 Yting[0]=YS1_va_dyn_ldf_lap( Yi, Yj, Yk, YTemps); 4667 4557 Yting[1]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 4668 Yva_dyn_hpg_zco(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4669 4670 } 4671 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4558 Yva_dyn_hpg_zco->forward( Yting[0], Yting[1] ); 4559 4560 } 4561 #pragma omp parallel for num_threads(16) 4562 for(YY=0; YY<YA3_S3dt; ++YY){ 4563 Yk=YY; 4672 4564 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4673 4565 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4678 4570 else 4679 4571 Yting[1]=YS2_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 4680 Yzwisd_ua_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );4572 Yzwisd_ua_dynzdf_imp->forward( Yting[0], Yting[1] ); 4681 4573 Yting[0]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps); 4682 4574 if (1==0 || Yk+1>YA3_S3dt-1) … … 4684 4576 else 4685 4577 Yting[1]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 4686 Yzwisd_va_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );4578 Yzwisd_va_dynzdf_imp->forward( Yting[0], Yting[1] ); 4687 4579 Yting[0]=YS1_ua_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 4688 4580 Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 4689 4581 Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 4690 Yzrhs_ua_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );4582 Yzrhs_ua_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2] ); 4691 4583 Yting[0]=YS1_va_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 4692 4584 Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 4693 4585 Yting[2]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 4694 Yzrhs_va_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4695 4586 Yzrhs_va_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2] ); 4587 4588 } 4696 4589 } 4697 4590 for(Yk=0; Yk<YA3_S3dt; ++Yk) … … 4709 4602 else 4710 4603 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 4711 Yzwt_ua_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4604 Yzwt_ua_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4712 4605 Yting[0]=YS1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 4713 4606 if (1==0 || Yk-1<0) … … 4720 4613 else 4721 4614 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 4722 Yua_de_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4615 Yua_de_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4723 4616 Yting[0]=YS1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4724 4617 if (1==0 || Yk-1<0) … … 4731 4624 else 4732 4625 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 4733 Yzwt_va_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4626 Yzwt_va_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4734 4627 Yting[0]=YS1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4735 4628 if (1==0 || Yk-1<0) … … 4742 4635 else 4743 4636 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 4744 Yva_de_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4637 Yva_de_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4745 4638 4746 4639 } … … 4756 4649 Yting[2]=YS1_ua_de_dynzdf_imp( Yi, Yj, Yk, YTemps); 4757 4650 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 4758 Yua_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4651 Yua_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4759 4652 Yting[0]=YS2_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4760 4653 if (1==0 || Yk+1>YA3_S3dt-1) … … 4764 4657 Yting[2]=YS1_va_de_dynzdf_imp( Yi, Yj, Yk, YTemps); 4765 4658 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4766 Yva_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4767 4768 } 4769 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4659 Yva_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4660 4661 } 4662 #pragma omp parallel for num_threads(16) 4663 for(YY=0; YY<YA3_S3dt; ++YY){ 4664 Yk=YY; 4770 4665 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4771 4666 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4773 4668 Yting[0]=YS1_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 4774 4669 Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 4775 Yua_norm_dynzdf (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );4670 Yua_norm_dynzdf->forward( Yting[0], Yting[1] ); 4776 4671 Yting[0]=YS1_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4777 4672 Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 4778 Yva_norm_dynzdf(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4779 4780 } 4781 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4673 Yva_norm_dynzdf->forward( Yting[0], Yting[1] ); 4674 4675 } 4676 } 4677 #pragma omp parallel for num_threads(16) 4678 for(YY=0; YY<YA2_S3dt; ++YY){ 4679 Yj=YY; 4782 4680 for(Yi=0; Yi<YA1_S3dt; ++Yi) 4783 4681 { … … 4791 4689 else 4792 4690 Yting[2]=YS1_sshn( Yi+1, Yj, YTemps-1); 4793 Yspguv_now_dynspg(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 4794 4795 } 4796 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4691 Yspguv_now_dynspg->forward( Yting[0], Yting[1], Yting[2] ); 4692 4693 } 4694 } 4695 #pragma omp parallel for num_threads(16) 4696 for(YY=0; YY<YA3_S3dt; ++YY){ 4697 Yk=YY; 4797 4698 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4798 4699 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4801 4702 Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 4802 4703 Yting[2]=YS1_spguv_now_dynspg( Yi, Yj, YTemps); 4803 Yua_1_dynspg_flt (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );4704 Yua_1_dynspg_flt->forward( Yting[0], Yting[1], Yting[2] ); 4804 4705 Yting[0]=YS1_va_norm_dynzdf( Yi, Yj, Yk, YTemps); 4805 4706 Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 4806 4707 Yting[2]=YS2_spguv_now_dynspg( Yi, Yj, YTemps); 4807 Yva_1_dynspg_flt(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4808 4809 } 4810 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4708 Yva_1_dynspg_flt->forward( Yting[0], Yting[1], Yting[2] ); 4709 4710 } 4711 } 4712 #pragma omp parallel for num_threads(16) 4713 for(YY=0; YY<YA2_S3dt; ++YY){ 4714 Yj=YY; 4811 4715 for(Yi=0; Yi<YA1_S3dt; ++Yi) 4812 4716 { … … 4842 4746 Yting[29]=YS1_ua_1_dynspg_flt( Yi, Yj, 29, YTemps); 4843 4747 Yting[30]=YS1_ua_1_dynspg_flt( Yi, Yj, 30, YTemps); 4844 Ysum_spgu_dynspg_flt (Yi, Yj)->forward();4748 Ysum_spgu_dynspg_flt->forward(); 4845 4749 Yting[0]=YS1_va_1_dynspg_flt( Yi, Yj, 0, YTemps); 4846 4750 Yting[1]=YS1_va_1_dynspg_flt( Yi, Yj, 1, YTemps); … … 4874 4778 Yting[29]=YS1_va_1_dynspg_flt( Yi, Yj, 29, YTemps); 4875 4779 Yting[30]=YS1_va_1_dynspg_flt( Yi, Yj, 30, YTemps); 4876 Ysum_spgv_dynspg_flt(Yi, Yj)->forward(); 4877 4878 } 4879 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4780 Ysum_spgv_dynspg_flt->forward(); 4781 4782 } 4783 } 4784 #pragma omp parallel for num_threads(16) 4785 for(YY=0; YY<YA2_S3dt; ++YY){ 4786 Yj=YY; 4880 4787 for(Yi=0; Yi<YA1_S3dt; ++Yi) 4881 4788 { … … 4890 4797 else 4891 4798 Yting[3]=YS1_sum_spgv_dynspg_flt( Yi, Yj-1, YTemps); 4892 Ygcb_dynspg_flt (Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4799 Ygcb_dynspg_flt->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4893 4800 Yting[0]=YS1_gcx2( Yi, Yj, YTemps-1); 4894 4801 Yting[1]=YS1_gcx2( Yi, Yj, YTemps-2); 4895 Ygcx_dynspg_flt(Yi, Yj)->forward( Yting[0], Yting[1] ); 4896 4802 Ygcx_dynspg_flt->forward( Yting[0], Yting[1] ); 4803 4804 } 4897 4805 } 4898 4806 … … 4904 4812 YA1=32; YA2=22; YA3=31; 4905 4813 Yi=-1; Yj=-1; Yk=-1; /* init des indices de maille: maj par la boucle si valide*/ 4906 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 4814 #pragma omp parallel for num_threads(16) 4815 for(YY=YA2_S3dt-1; YY>=0; --YY){ 4816 Yj=YY; 4907 4817 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) 4908 4818 { … … 4910 4820 Yting[1]=YS1_gcx2( Yi, Yj, YTemps-2); 4911 4821 memset(Yjac, 0, 31*sizeof(double)); 4912 Ygcx_dynspg_flt (Yi, Yj)->backward( Yting[0], Yting[1] );4822 Ygcx_dynspg_flt->backward( Yting[0], Yting[1] ); 4913 4823 Yvsmatt (YNBS_gcx_dynspg_flt, YNBI_gcx_dynspg_flt, YMAX_JAC_NBI, &YG1Y_gcx_dynspg_flt, Yjac[0], Ytbeta); 4914 4824 YG1_gcx2( Yi, Yj, YTemps-1) += Ytbeta[0]; … … 4925 4835 Yting[3]=YS1_sum_spgv_dynspg_flt( Yi, Yj-1, YTemps); 4926 4836 memset(Yjac, 0, 31*sizeof(double)); 4927 Ygcb_dynspg_flt (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );4837 Ygcb_dynspg_flt->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4928 4838 Yvsmatt (YNBS_gcb_dynspg_flt, YNBI_gcb_dynspg_flt, YMAX_JAC_NBI, &YG1Y_gcb_dynspg_flt, Yjac[0], Ytbeta); 4929 4839 YG1_sum_spgu_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[0]; … … 4931 4841 else 4932 4842 YG1_sum_spgu_dynspg_flt( Yi-1, Yj, YTemps) += Ytbeta[1]; 4843 #pragma omp atomic 4933 4844 YG1_sum_spgv_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[2]; 4934 4845 if (1==0 || Yj-1<0){} 4935 4846 else 4847 #pragma omp atomic 4936 4848 YG1_sum_spgv_dynspg_flt( Yi, Yj-1, YTemps) += Ytbeta[3]; 4937 4849 4938 4850 } 4939 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 4851 } 4852 #pragma omp parallel for num_threads(16) 4853 for(YY=YA2_S3dt-1; YY>=0; --YY){ 4854 Yj=YY; 4940 4855 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) 4941 4856 { … … 4972 4887 Yting[30]=YS1_va_1_dynspg_flt( Yi, Yj, 30, YTemps); 4973 4888 memset(Yjac, 0, 31*sizeof(double)); 4974 Ysum_spgv_dynspg_flt (Yi, Yj)->backward();4889 Ysum_spgv_dynspg_flt->backward(); 4975 4890 Yvsmatt (YNBS_sum_spgv_dynspg_flt, YNBI_sum_spgv_dynspg_flt, YMAX_JAC_NBI, &YG1Y_sum_spgv_dynspg_flt, Yjac[0], Ytbeta); 4976 4891 YG1_va_1_dynspg_flt( Yi, Yj, 0, YTemps) += Ytbeta[0]; … … 5037 4952 Yting[30]=YS1_ua_1_dynspg_flt( Yi, Yj, 30, YTemps); 5038 4953 memset(Yjac, 0, 31*sizeof(double)); 5039 Ysum_spgu_dynspg_flt (Yi, Yj)->backward();4954 Ysum_spgu_dynspg_flt->backward(); 5040 4955 Yvsmatt (YNBS_sum_spgu_dynspg_flt, YNBI_sum_spgu_dynspg_flt, YMAX_JAC_NBI, &YG1Y_sum_spgu_dynspg_flt, Yjac[0], Ytbeta); 5041 4956 YG1_ua_1_dynspg_flt( Yi, Yj, 0, YTemps) += Ytbeta[0]; … … 5072 4987 5073 4988 } 5074 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 4989 } 4990 #pragma omp parallel for num_threads(16) 4991 for(YY=YA3_S3dt-1; YY>=0; --YY){ 4992 Yk=YY; 5075 4993 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5076 4994 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 5080 4998 Yting[2]=YS2_spguv_now_dynspg( Yi, Yj, YTemps); 5081 4999 memset(Yjac, 0, 31*sizeof(double)); 5082 Yva_1_dynspg_flt (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5000 Yva_1_dynspg_flt->backward( Yting[0], Yting[1], Yting[2] ); 5083 5001 Yvsmatt (YNBS_va_1_dynspg_flt, YNBI_va_1_dynspg_flt, YMAX_JAC_NBI, &YG1Y_va_1_dynspg_flt, Yjac[0], Ytbeta); 5084 5002 YG1_va_norm_dynzdf( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5085 5003 YG1_vb( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 5004 #pragma omp atomic 5086 5005 YG2_spguv_now_dynspg( Yi, Yj, YTemps) += Ytbeta[2]; 5087 5006 Yting[0]=YS1_ua_norm_dynzdf( Yi, Yj, Yk, YTemps); … … 5089 5008 Yting[2]=YS1_spguv_now_dynspg( Yi, Yj, YTemps); 5090 5009 memset(Yjac, 0, 31*sizeof(double)); 5091 Yua_1_dynspg_flt (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5010 Yua_1_dynspg_flt->backward( Yting[0], Yting[1], Yting[2] ); 5092 5011 Yvsmatt (YNBS_ua_1_dynspg_flt, YNBI_ua_1_dynspg_flt, YMAX_JAC_NBI, &YG1Y_ua_1_dynspg_flt, Yjac[0], Ytbeta); 5093 5012 YG1_ua_norm_dynzdf( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5094 5013 YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 5014 #pragma omp atomic 5095 5015 YG1_spguv_now_dynspg( Yi, Yj, YTemps) += Ytbeta[2]; 5096 5016 5097 5017 } 5098 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5018 } 5019 #pragma omp parallel for num_threads(16) 5020 for(YY=YA2_S3dt-1; YY>=0; --YY){ 5021 Yj=YY; 5099 5022 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) 5100 5023 { … … 5109 5032 Yting[2]=YS1_sshn( Yi+1, Yj, YTemps-1); 5110 5033 memset(Yjac, 0, 62*sizeof(double)); 5111 Yspguv_now_dynspg (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] );5034 Yspguv_now_dynspg->backward( Yting[0], Yting[1], Yting[2] ); 5112 5035 Yvsmatt (YNBS_spguv_now_dynspg, YNBI_spguv_now_dynspg, YMAX_JAC_NBI, &YG1Y_spguv_now_dynspg, Yjac[0], Ytbeta); 5036 #pragma omp atomic 5113 5037 YG1_sshn( Yi, Yj, YTemps-1) += Ytbeta[0]; 5114 5038 if (1==0 || Yj+1>YA2_S3dt-1){} 5115 5039 else 5040 #pragma omp atomic 5116 5041 YG1_sshn( Yi, Yj+1, YTemps-1) += Ytbeta[1]; 5117 5042 if (1==0 || Yi+1>YA1_S3dt-1){} 5118 5043 else 5044 #pragma omp atomic 5119 5045 YG1_sshn( Yi+1, Yj, YTemps-1) += Ytbeta[2]; 5120 5046 5121 5047 } 5122 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5048 } 5049 #pragma omp parallel for num_threads(16) 5050 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5051 Yk=YY; 5123 5052 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5124 5053 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 5127 5056 Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 5128 5057 memset(Yjac, 0, 31*sizeof(double)); 5129 Yva_norm_dynzdf (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5058 Yva_norm_dynzdf->backward( Yting[0], Yting[1] ); 5130 5059 Yvsmatt (YNBS_va_norm_dynzdf, YNBI_va_norm_dynzdf, YMAX_JAC_NBI, &YG1Y_va_norm_dynzdf, Yjac[0], Ytbeta); 5060 #pragma omp atomic 5131 5061 YG1_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5132 5062 YG1_vb( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; … … 5134 5064 Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 5135 5065 memset(Yjac, 0, 31*sizeof(double)); 5136 Yua_norm_dynzdf (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5066 Yua_norm_dynzdf->backward( Yting[0], Yting[1] ); 5137 5067 Yvsmatt (YNBS_ua_norm_dynzdf, YNBI_ua_norm_dynzdf, YMAX_JAC_NBI, &YG1Y_ua_norm_dynzdf, Yjac[0], Ytbeta); 5068 #pragma omp atomic 5138 5069 YG1_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5139 5070 YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 5140 5071 5072 } 5141 5073 } 5142 5074 for(Yk=0; Yk<YA3_S3dt; ++Yk) … … 5152 5084 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 5153 5085 memset(Yjac, 0, 31*sizeof(double)); 5154 Yva_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5086 Yva_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5155 5087 Yvsmatt (YNBS_va_dynzdf_imp, YNBI_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_va_dynzdf_imp, Yjac[0], Ytbeta); 5156 5088 YG2_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5168 5100 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 5169 5101 memset(Yjac, 0, 31*sizeof(double)); 5170 Yua_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5102 Yua_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5171 5103 Yvsmatt (YNBS_ua_dynzdf_imp, YNBI_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_ua_dynzdf_imp, Yjac[0], Ytbeta); 5172 5104 YG2_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5193 5125 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 5194 5126 memset(Yjac, 0, 31*sizeof(double)); 5195 Yva_de_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5127 Yva_de_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5196 5128 Yvsmatt (YNBS_va_de_dynzdf_imp, YNBI_va_de_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_va_de_dynzdf_imp, Yjac[0], Ytbeta); 5197 5129 YG1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5214 5146 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 5215 5147 memset(Yjac, 0, 31*sizeof(double)); 5216 Yzwt_va_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5148 Yzwt_va_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5217 5149 Yvsmatt (YNBS_zwt_va_dynzdf_imp, YNBI_zwt_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_va_dynzdf_imp, Yjac[0], Ytbeta); 5218 5150 YG1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5235 5167 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 5236 5168 memset(Yjac, 0, 31*sizeof(double)); 5237 Yua_de_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5169 Yua_de_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5238 5170 Yvsmatt (YNBS_ua_de_dynzdf_imp, YNBI_ua_de_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_ua_de_dynzdf_imp, Yjac[0], Ytbeta); 5239 5171 YG1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5256 5188 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 5257 5189 memset(Yjac, 0, 31*sizeof(double)); 5258 Yzwt_ua_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5190 Yzwt_ua_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5259 5191 Yvsmatt (YNBS_zwt_ua_dynzdf_imp, YNBI_zwt_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_ua_dynzdf_imp, Yjac[0], Ytbeta); 5260 5192 YG1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5268 5200 5269 5201 } 5270 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5202 #pragma omp parallel for num_threads(16) 5203 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5204 Yk=YY; 5271 5205 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5272 5206 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 5276 5210 Yting[2]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 5277 5211 memset(Yjac, 0, 31*sizeof(double)); 5278 Yzrhs_va_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5212 Yzrhs_va_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2] ); 5279 5213 Yvsmatt (YNBS_zrhs_va_dynzdf_imp, YNBI_zrhs_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_va_dynzdf_imp, Yjac[0], Ytbeta); 5280 5214 YG1_va_dyn_hpg_zco( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5281 5215 YG1_vb( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 5216 #pragma omp atomic 5282 5217 YG2_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[2]; 5283 5218 Yting[0]=YS1_ua_dyn_hpg_zco( Yi, Yj, Yk, YTemps); … … 5285 5220 Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 5286 5221 memset(Yjac, 0, 31*sizeof(double)); 5287 Yzrhs_ua_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5222 Yzrhs_ua_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2] ); 5288 5223 Yvsmatt (YNBS_zrhs_ua_dynzdf_imp, YNBI_zrhs_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_ua_dynzdf_imp, Yjac[0], Ytbeta); 5289 5224 YG1_ua_dyn_hpg_zco( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5290 5225 YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 5226 #pragma omp atomic 5291 5227 YG1_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[2]; 5292 5228 Yting[0]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps); … … 5296 5232 Yting[1]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 5297 5233 memset(Yjac, 0, 93*sizeof(double)); 5298 Yzwisd_va_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5234 Yzwisd_va_dynzdf_imp->backward( Yting[0], Yting[1] ); 5299 5235 Yvsmatt (YNBS_zwisd_va_dynzdf_imp, YNBI_zwisd_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_va_dynzdf_imp, Yjac[0], Ytbeta); 5236 #pragma omp atomic 5300 5237 YG3_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5301 5238 if (1==0 || Yk+1>YA3_S3dt-1){} 5302 5239 else 5240 #pragma omp atomic 5303 5241 YG3_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps) += Ytbeta[1]; 5304 5242 Yting[0]=YS2_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps); … … 5308 5246 Yting[1]=YS2_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 5309 5247 memset(Yjac, 0, 93*sizeof(double)); 5310 Yzwisd_ua_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5248 Yzwisd_ua_dynzdf_imp->backward( Yting[0], Yting[1] ); 5311 5249 Yvsmatt (YNBS_zwisd_ua_dynzdf_imp, YNBI_zwisd_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_ua_dynzdf_imp, Yjac[0], Ytbeta); 5250 #pragma omp atomic 5312 5251 YG2_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5313 5252 if (1==0 || Yk+1>YA3_S3dt-1){} 5314 5253 else 5254 #pragma omp atomic 5315 5255 YG2_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps) += Ytbeta[1]; 5316 5256 5257 } 5317 5258 } 5318 5259 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) … … 5323 5264 Yting[1]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 5324 5265 memset(Yjac, 0, 31*sizeof(double)); 5325 Yva_dyn_hpg_zco (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5266 Yva_dyn_hpg_zco->backward( Yting[0], Yting[1] ); 5326 5267 Yvsmatt (YNBS_va_dyn_hpg_zco, YNBI_va_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_va_dyn_hpg_zco, Yjac[0], Ytbeta); 5327 5268 YG1_va_dyn_ldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5330 5271 Yting[1]=YS1_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 5331 5272 memset(Yjac, 0, 31*sizeof(double)); 5332 Yua_dyn_hpg_zco (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5273 Yua_dyn_hpg_zco->backward( Yting[0], Yting[1] ); 5333 5274 Yvsmatt (YNBS_ua_dyn_hpg_zco, YNBI_ua_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_ua_dyn_hpg_zco, Yjac[0], Ytbeta); 5334 5275 YG1_ua_dyn_ldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5364 5305 Yting[7]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk-1, YTemps); 5365 5306 memset(Yjac, 0, 62*sizeof(double)); 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] );5307 Yzhpij_dyn_hpg_zco->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 5367 5308 Yvsmatt (YNBS_zhpij_dyn_hpg_zco, YNBI_zhpij_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_zhpij_dyn_hpg_zco, Yjac[0], Ytbeta); 5368 5309 if (1==0 || Yi+1>YA1_S3dt-1){} … … 5390 5331 5391 5332 } 5392 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5333 #pragma omp parallel for num_threads(16) 5334 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5335 Yk=YY; 5393 5336 { 5394 5337 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) … … 5407 5350 Yting[4]=YS1_hdivn( Yi, Yj+1, Yk, YTemps-2); 5408 5351 memset(Yjac, 0, 31*sizeof(double)); 5409 Yva_dyn_ldf_lap (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5352 Yva_dyn_ldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5410 5353 Yvsmatt (YNBS_va_dyn_ldf_lap, YNBI_va_dyn_ldf_lap, YMAX_JAC_NBI, &YG1Y_va_dyn_ldf_lap, Yjac[0], Ytbeta); 5411 5354 YG1_va_vor_ene( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5430 5373 Yting[4]=YS1_hdivn( Yi+1, Yj, Yk, YTemps-2); 5431 5374 memset(Yjac, 0, 31*sizeof(double)); 5432 Yua_dyn_ldf_lap (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5375 Yua_dyn_ldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5433 5376 Yvsmatt (YNBS_ua_dyn_ldf_lap, YNBI_ua_dyn_ldf_lap, YMAX_JAC_NBI, &YG1Y_ua_dyn_ldf_lap, Yjac[0], Ytbeta); 5434 5377 YG1_ua_vor_ene( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5461 5404 Yting[6]=YS1_zwxyz_vor_ene( Yi, Yj+1, Yk, YTemps); 5462 5405 memset(Yjac, 0, 31*sizeof(double)); 5463 Yva_vor_ene (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );5406 Yva_vor_ene->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 5464 5407 Yvsmatt (YNBS_va_vor_ene, YNBI_va_vor_ene, YMAX_JAC_NBI, &YG1Y_va_vor_ene, Yjac[0], Ytbeta); 5465 5408 YG1_va_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5498 5441 Yting[6]=YS2_zwxyz_vor_ene( Yi+1, Yj, Yk, YTemps); 5499 5442 memset(Yjac, 0, 31*sizeof(double)); 5500 Yua_vor_ene (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );5443 Yua_vor_ene->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 5501 5444 Yvsmatt (YNBS_ua_vor_ene, YNBI_ua_vor_ene, YMAX_JAC_NBI, &YG1Y_ua_vor_ene, Yjac[0], Ytbeta); 5502 5445 YG1_ua_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5531 5474 Yting[3]=YS1_va( Yi+1, Yj, Yk, YTemps-1); 5532 5475 memset(Yjac, 0, 93*sizeof(double)); 5533 Yzwxyz_vor_ene (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5476 Yzwxyz_vor_ene->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5534 5477 Yvsmatt (YNBS_zwxyz_vor_ene, YNBI_zwxyz_vor_ene, YMAX_JAC_NBI, &YG1Y_zwxyz_vor_ene, Yjac[0], Ytbeta); 5478 #pragma omp atomic 5535 5479 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 5536 5480 if (1==0 || Yj+1>YA2_S3dt-1){} 5537 5481 else 5482 #pragma omp atomic 5538 5483 YG1_ua( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[1]; 5484 #pragma omp atomic 5539 5485 YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[2]; 5540 5486 if (1==0 || Yi+1>YA1_S3dt-1){} 5541 5487 else 5488 #pragma omp atomic 5542 5489 YG1_va( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[3]; 5543 5490 … … 5545 5492 5546 5493 } 5547 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5494 } 5495 #pragma omp parallel for num_threads(16) 5496 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5497 Yk=YY; 5548 5498 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5549 5499 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 5556 5506 Yting[2]=YS1_zva_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 5557 5507 memset(Yjac, 0, 31*sizeof(double)); 5558 Yva_dynadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5508 Yva_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 5559 5509 Yvsmatt (YNBS_va_dynadv_cen2, YNBI_va_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_va_dynadv_cen2, Yjac[0], Ytbeta); 5510 #pragma omp atomic 5560 5511 YG2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5561 5512 if (1==0 || Yk+1>YA3_S3dt-1){} 5562 5513 else 5514 #pragma omp atomic 5563 5515 YG2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk+1, YTemps) += Ytbeta[1]; 5564 5516 YG1_zva_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[2]; … … 5570 5522 Yting[2]=YS1_zua_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 5571 5523 memset(Yjac, 0, 31*sizeof(double)); 5572 Yua_dynadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5524 Yua_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 5573 5525 Yvsmatt (YNBS_ua_dynadv_cen2, YNBI_ua_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_ua_dynadv_cen2, Yjac[0], Ytbeta); 5526 #pragma omp atomic 5574 5527 YG1_zfuv_UW_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5575 5528 if (1==0 || Yk+1>YA3_S3dt-1){} 5576 5529 else 5530 #pragma omp atomic 5577 5531 YG1_zfuv_UW_dynadv_cen2( Yi, Yj, Yk+1, YTemps) += Ytbeta[1]; 5578 5532 YG1_zua_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[2]; 5579 5533 5580 5534 } 5581 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5535 } 5536 #pragma omp parallel for num_threads(16) 5537 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5538 Yk=YY; 5582 5539 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5583 5540 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 5603 5560 Yting[6]=YS1_va( Yi, Yj, Yk-1, YTemps-1); 5604 5561 memset(Yjac, 0, 62*sizeof(double)); 5605 Yzfuv_UW_dynadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );5562 Yzfuv_UW_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 5606 5563 Yvsmatt (YNBS_zfuv_UW_dynadv_cen2, YNBI_zfuv_UW_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zfuv_UW_dynadv_cen2, Yjac[0], Ytbeta); 5564 #pragma omp atomic 5607 5565 YG1_wa( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 5608 5566 if (1==0 || Yi+1>YA1_S3dt-1){} 5609 5567 else 5568 #pragma omp atomic 5610 5569 YG1_wa( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[1]; 5611 5570 if (1==0 || Yj+1>YA2_S3dt-1){} 5612 5571 else 5572 #pragma omp atomic 5613 5573 YG1_wa( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[2]; 5574 #pragma omp atomic 5614 5575 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[3]; 5615 5576 if (1==0 || Yk-1<0){} 5616 5577 else 5578 #pragma omp atomic 5617 5579 YG1_ua( Yi, Yj, Yk-1, YTemps-1) += Ytbeta[4]; 5580 #pragma omp atomic 5618 5581 YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[5]; 5619 5582 if (1==0 || Yk-1<0){} 5620 5583 else 5584 #pragma omp atomic 5621 5585 YG1_va( Yi, Yj, Yk-1, YTemps-1) += Ytbeta[6]; 5622 5586 5623 5587 } 5624 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5588 } 5589 #pragma omp parallel for num_threads(16) 5590 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5591 Yk=YY; 5625 5592 { 5626 5593 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) … … 5638 5605 Yting[3]=YS4_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 5639 5606 memset(Yjac, 0, 31*sizeof(double)); 5640 Yzva_dhmf_dynadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5607 Yzva_dhmf_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5641 5608 Yvsmatt (YNBS_zva_dhmf_dynadv_cen2, YNBI_zva_dhmf_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zva_dhmf_dynadv_cen2, Yjac[0], Ytbeta); 5642 5609 YG3_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5659 5626 Yting[3]=YS2_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 5660 5627 memset(Yjac, 0, 31*sizeof(double)); 5661 Yzua_dhmf_dynadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5628 Yzua_dhmf_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5662 5629 Yvsmatt (YNBS_zua_dhmf_dynadv_cen2, YNBI_zua_dhmf_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zua_dhmf_dynadv_cen2, Yjac[0], Ytbeta); 5663 5630 YG1_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5693 5660 Yting[5]=YS1_va( Yi, Yj+1, Yk, YTemps-1); 5694 5661 memset(Yjac, 0, 124*sizeof(double)); 5695 Yhmf_TF_dynadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] );5662 Yhmf_TF_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] ); 5696 5663 Yvsmatt (YNBS_hmf_TF_dynadv_cen2, YNBI_hmf_TF_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_hmf_TF_dynadv_cen2, Yjac[0], Ytbeta); 5664 #pragma omp atomic 5697 5665 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 5698 5666 if (1==0 || Yi+1>YA1_S3dt-1){} 5699 5667 else 5668 #pragma omp atomic 5700 5669 YG1_ua( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[1]; 5701 5670 if (1==0 || Yj+1>YA2_S3dt-1){} 5702 5671 else 5672 #pragma omp atomic 5703 5673 YG1_ua( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[2]; 5674 #pragma omp atomic 5704 5675 YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[3]; 5705 5676 if (1==0 || Yi+1>YA1_S3dt-1){} 5706 5677 else 5678 #pragma omp atomic 5707 5679 YG1_va( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[4]; 5708 5680 if (1==0 || Yj+1>YA2_S3dt-1){} 5709 5681 else 5682 #pragma omp atomic 5710 5683 YG1_va( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[5]; 5711 5684 … … 5713 5686 5714 5687 } 5715 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5688 } 5689 #pragma omp parallel for num_threads(16) 5690 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5691 Yk=YY; 5716 5692 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5717 5693 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 5719 5695 Yting[0]=YS1_rhd( Yi, Yj, Yk, YTemps); 5720 5696 memset(Yjac, 0, 31*sizeof(double)); 5721 Yrhop (Yi, Yj, Yk)->backward( Yting[0] );5697 Yrhop->backward( Yting[0] ); 5722 5698 Yvsmatt (YNBS_rhop, YNBI_rhop, YMAX_JAC_NBI, &YG1Y_rhop, Yjac[0], Ytbeta); 5699 #pragma omp atomic 5723 5700 YG1_rhd( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5724 5701 Yting[0]=YS1_tb( Yi, Yj, Yk, YTemps); 5725 5702 Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps); 5726 5703 memset(Yjac, 0, 31*sizeof(double)); 5727 Yrhd (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5704 Yrhd->backward( Yting[0], Yting[1] ); 5728 5705 Yvsmatt (YNBS_rhd, YNBI_rhd, YMAX_JAC_NBI, &YG1Y_rhd, Yjac[0], Ytbeta); 5729 5706 YG1_tb( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5731 5708 5732 5709 } 5733 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5710 } 5711 #pragma omp parallel for num_threads(16) 5712 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5713 Yk=YY; 5734 5714 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5735 5715 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 5740 5720 Yting[3]=YS1_sa_c( Yi, Yj, Yk); 5741 5721 memset(Yjac, 0, 31*sizeof(double)); 5742 Ysb (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5722 Ysb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5743 5723 Yvsmatt (YNBS_sb, YNBI_sb, YMAX_JAC_NBI, &YG1Y_sb, Yjac[0], Ytbeta); 5724 #pragma omp atomic 5744 5725 YG1_sb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 5726 #pragma omp atomic 5745 5727 YG1_sa( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 5728 #pragma omp atomic 5746 5729 YG1_sa( Yi, Yj, Yk, YTemps) += Ytbeta[2]; 5747 5730 YG1_sa_c( Yi, Yj, Yk) += Ytbeta[3]; … … 5751 5734 Yting[3]=YS1_ta_c( Yi, Yj, Yk); 5752 5735 memset(Yjac, 0, 31*sizeof(double)); 5753 Ytb (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5736 Ytb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5754 5737 Yvsmatt (YNBS_tb, YNBI_tb, YMAX_JAC_NBI, &YG1Y_tb, Yjac[0], Ytbeta); 5738 #pragma omp atomic 5755 5739 YG1_tb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 5740 #pragma omp atomic 5756 5741 YG1_ta( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 5742 #pragma omp atomic 5757 5743 YG1_ta( Yi, Yj, Yk, YTemps) += Ytbeta[2]; 5758 5744 YG1_ta_c( Yi, Yj, Yk) += Ytbeta[3]; 5759 5745 5746 } 5760 5747 } 5761 5748 for(Yk=0; Yk<YA3_S3dt; ++Yk) … … 5772 5759 Yting[4]=YS1_sa_c( Yi, Yj, Yk); 5773 5760 memset(Yjac, 0, 31*sizeof(double)); 5774 Ysa (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5761 Ysa->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5775 5762 Yvsmatt (YNBS_sa, YNBI_sa, YMAX_JAC_NBI, &YG1Y_sa, Yjac[0], Ytbeta); 5776 5763 YG2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5790 5777 Yting[4]=YS1_ta_c( Yi, Yj, Yk); 5791 5778 memset(Yjac, 0, 31*sizeof(double)); 5792 Yta (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5779 Yta->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5793 5780 Yvsmatt (YNBS_ta, YNBI_ta, YMAX_JAC_NBI, &YG1Y_ta, Yjac[0], Ytbeta); 5794 5781 YG2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5816 5803 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 5817 5804 memset(Yjac, 0, 31*sizeof(double)); 5818 Ysa_de_trazdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5805 Ysa_de_trazdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5819 5806 Yvsmatt (YNBS_sa_de_trazdf_imp, YNBI_sa_de_trazdf_imp, YMAX_JAC_NBI, &YG1Y_sa_de_trazdf_imp, Yjac[0], Ytbeta); 5820 5807 YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5837 5824 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 5838 5825 memset(Yjac, 0, 31*sizeof(double)); 5839 Yta_de_trazdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5826 Yta_de_trazdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5840 5827 Yvsmatt (YNBS_ta_de_trazdf_imp, YNBI_ta_de_trazdf_imp, YMAX_JAC_NBI, &YG1Y_ta_de_trazdf_imp, Yjac[0], Ytbeta); 5841 5828 YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5858 5845 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 5859 5846 memset(Yjac, 0, 31*sizeof(double)); 5860 Yzwt_trazdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5847 Yzwt_trazdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5861 5848 Yvsmatt (YNBS_zwt_trazdf_imp, YNBI_zwt_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_trazdf_imp, Yjac[0], Ytbeta); 5862 5849 YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5870 5857 5871 5858 } 5872 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5859 #pragma omp parallel for num_threads(16) 5860 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5861 Yk=YY; 5873 5862 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5874 5863 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 5877 5866 Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps-1); 5878 5867 memset(Yjac, 0, 31*sizeof(double)); 5879 Yzrhs_sa_trazdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5868 Yzrhs_sa_trazdf_imp->backward( Yting[0], Yting[1] ); 5880 5869 Yvsmatt (YNBS_zrhs_sa_trazdf_imp, YNBI_zrhs_sa_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_sa_trazdf_imp, Yjac[0], Ytbeta); 5881 5870 YG1_sa_traldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5871 #pragma omp atomic 5882 5872 YG1_sb( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 5883 5873 Yting[0]=YS1_ta_traldf_lap( Yi, Yj, Yk, YTemps); 5884 5874 Yting[1]=YS1_tb( Yi, Yj, Yk, YTemps-1); 5885 5875 memset(Yjac, 0, 31*sizeof(double)); 5886 Yzrhs_trazdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5876 Yzrhs_trazdf_imp->backward( Yting[0], Yting[1] ); 5887 5877 Yvsmatt (YNBS_zrhs_trazdf_imp, YNBI_zrhs_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_trazdf_imp, Yjac[0], Ytbeta); 5888 5878 YG1_ta_traldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5879 #pragma omp atomic 5889 5880 YG1_tb( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 5890 5881 Yting[0]=YS1_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps); … … 5894 5885 Yting[1]=YS1_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 5895 5886 memset(Yjac, 0, 93*sizeof(double)); 5896 Yzwisd_trazdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5887 Yzwisd_trazdf_imp->backward( Yting[0], Yting[1] ); 5897 5888 Yvsmatt (YNBS_zwisd_trazdf_imp, YNBI_zwisd_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_trazdf_imp, Yjac[0], Ytbeta); 5889 #pragma omp atomic 5898 5890 YG1_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5899 5891 if (1==0 || Yk+1>YA3_S3dt-1){} 5900 5892 else 5893 #pragma omp atomic 5901 5894 YG1_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps) += Ytbeta[1]; 5902 5895 5903 5896 } 5904 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5897 } 5898 #pragma omp parallel for num_threads(16) 5899 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5900 Yk=YY; 5905 5901 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5906 5902 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 5918 5914 Yting[4]=YS2_zsuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 5919 5915 memset(Yjac, 0, 31*sizeof(double)); 5920 Ysa_traldf_lap (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5916 Ysa_traldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5921 5917 Yvsmatt (YNBS_sa_traldf_lap, YNBI_sa_traldf_lap, YMAX_JAC_NBI, &YG1Y_sa_traldf_lap, Yjac[0], Ytbeta); 5922 5918 YG1_sa_ver_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5941 5937 Yting[4]=YS2_ztuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 5942 5938 memset(Yjac, 0, 31*sizeof(double)); 5943 Yta_traldf_lap (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5939 Yta_traldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5944 5940 Yvsmatt (YNBS_ta_traldf_lap, YNBI_ta_traldf_lap, YMAX_JAC_NBI, &YG1Y_ta_traldf_lap, Yjac[0], Ytbeta); 5945 5941 YG1_ta_ver_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5962 5958 Yting[2]=YS1_sb( Yi, Yj+1, Yk, YTemps-1); 5963 5959 memset(Yjac, 0, 62*sizeof(double)); 5964 Yzsuv_traldf_lap (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5960 Yzsuv_traldf_lap->backward( Yting[0], Yting[1], Yting[2] ); 5965 5961 Yvsmatt (YNBS_zsuv_traldf_lap, YNBI_zsuv_traldf_lap, YMAX_JAC_NBI, &YG1Y_zsuv_traldf_lap, Yjac[0], Ytbeta); 5962 #pragma omp atomic 5966 5963 YG1_sb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 5967 5964 if (1==0 || Yi+1>YA1_S3dt-1){} 5968 5965 else 5966 #pragma omp atomic 5969 5967 YG1_sb( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[1]; 5970 5968 if (1==0 || Yj+1>YA2_S3dt-1){} 5971 5969 else 5970 #pragma omp atomic 5972 5971 YG1_sb( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[2]; 5973 5972 Yting[0]=YS1_tb( Yi, Yj, Yk, YTemps-1); … … 5981 5980 Yting[2]=YS1_tb( Yi, Yj+1, Yk, YTemps-1); 5982 5981 memset(Yjac, 0, 62*sizeof(double)); 5983 Yztuv_traldf_lap (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5982 Yztuv_traldf_lap->backward( Yting[0], Yting[1], Yting[2] ); 5984 5983 Yvsmatt (YNBS_ztuv_traldf_lap, YNBI_ztuv_traldf_lap, YMAX_JAC_NBI, &YG1Y_ztuv_traldf_lap, Yjac[0], Ytbeta); 5984 #pragma omp atomic 5985 5985 YG1_tb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 5986 5986 if (1==0 || Yi+1>YA1_S3dt-1){} 5987 5987 else 5988 #pragma omp atomic 5988 5989 YG1_tb( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[1]; 5989 5990 if (1==0 || Yj+1>YA2_S3dt-1){} 5990 5991 else 5992 #pragma omp atomic 5991 5993 YG1_tb( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[2]; 5992 5994 5993 5995 } 5994 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5996 } 5997 #pragma omp parallel for num_threads(16) 5998 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5999 Yk=YY; 5995 6000 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5996 6001 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6003 6008 Yting[2]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 6004 6009 memset(Yjac, 0, 31*sizeof(double)); 6005 Ysa_ver_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );6010 Ysa_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 6006 6011 Yvsmatt (YNBS_sa_ver_traadv_cen2, YNBI_sa_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_sa_ver_traadv_cen2, Yjac[0], Ytbeta); 6007 6012 YG1_sa_hor_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 6013 #pragma omp atomic 6008 6014 YG1_zcens_ver_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[1]; 6009 6015 if (1==0 || Yk+1>YA3_S3dt-1){} 6010 6016 else 6017 #pragma omp atomic 6011 6018 YG1_zcens_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps) += Ytbeta[2]; 6012 6019 Yting[0]=YS1_ta_hor_traadv_cen2( Yi, Yj, Yk, YTemps); … … 6017 6024 Yting[2]=YS1_zcent_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 6018 6025 memset(Yjac, 0, 31*sizeof(double)); 6019 Yta_ver_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );6026 Yta_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 6020 6027 Yvsmatt (YNBS_ta_ver_traadv_cen2, YNBI_ta_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_ta_ver_traadv_cen2, Yjac[0], Ytbeta); 6021 6028 YG1_ta_hor_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 6029 #pragma omp atomic 6022 6030 YG1_zcent_ver_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[1]; 6023 6031 if (1==0 || Yk+1>YA3_S3dt-1){} 6024 6032 else 6033 #pragma omp atomic 6025 6034 YG1_zcent_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps) += Ytbeta[2]; 6026 6035 6027 6036 } 6028 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6037 } 6038 #pragma omp parallel for num_threads(16) 6039 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6040 Yk=YY; 6029 6041 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6030 6042 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6037 6049 Yting[2]=YS1_sa( Yi, Yj, Yk-1, YTemps-1); 6038 6050 memset(Yjac, 0, 31*sizeof(double)); 6039 Yzcens_ver_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );6051 Yzcens_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 6040 6052 Yvsmatt (YNBS_zcens_ver_traadv_cen2, YNBI_zcens_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcens_ver_traadv_cen2, Yjac[0], Ytbeta); 6053 #pragma omp atomic 6041 6054 YG1_wa( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 6055 #pragma omp atomic 6042 6056 YG1_sa( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 6043 6057 if (1==0 || Yk-1<0){} 6044 6058 else 6059 #pragma omp atomic 6045 6060 YG1_sa( Yi, Yj, Yk-1, YTemps-1) += Ytbeta[2]; 6046 6061 Yting[0]=YS1_wa( Yi, Yj, Yk, YTemps-1); … … 6051 6066 Yting[2]=YS1_ta( Yi, Yj, Yk-1, YTemps-1); 6052 6067 memset(Yjac, 0, 31*sizeof(double)); 6053 Yzcent_ver_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );6068 Yzcent_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 6054 6069 Yvsmatt (YNBS_zcent_ver_traadv_cen2, YNBI_zcent_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcent_ver_traadv_cen2, Yjac[0], Ytbeta); 6070 #pragma omp atomic 6055 6071 YG1_wa( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 6072 #pragma omp atomic 6056 6073 YG1_ta( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 6057 6074 if (1==0 || Yk-1<0){} 6058 6075 else 6076 #pragma omp atomic 6059 6077 YG1_ta( Yi, Yj, Yk-1, YTemps-1) += Ytbeta[2]; 6060 6078 6061 6079 } 6062 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6080 } 6081 #pragma omp parallel for num_threads(16) 6082 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6083 Yk=YY; 6063 6084 { 6064 6085 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) … … 6077 6098 Yting[4]=YS2_zcens_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 6078 6099 memset(Yjac, 0, 31*sizeof(double)); 6079 Ysa_hor_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );6100 Ysa_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 6080 6101 Yvsmatt (YNBS_sa_hor_traadv_cen2, YNBI_sa_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_sa_hor_traadv_cen2, Yjac[0], Ytbeta); 6102 #pragma omp atomic 6081 6103 YG2_ta_sa_trasbc( Yi, Yj, YTemps) += Ytbeta[0]; 6082 6104 if (1==0 || Yi-1<0){} … … 6100 6122 Yting[4]=YS2_zcent_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 6101 6123 memset(Yjac, 0, 31*sizeof(double)); 6102 Yta_hor_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );6124 Yta_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 6103 6125 Yvsmatt (YNBS_ta_hor_traadv_cen2, YNBI_ta_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_ta_hor_traadv_cen2, Yjac[0], Ytbeta); 6104 6126 YG1_ta_traqsr( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6128 6150 Yting[4]=YS1_sa( Yi+1, Yj, Yk, YTemps-1); 6129 6151 memset(Yjac, 0, 62*sizeof(double)); 6130 Yzcens_hor_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );6152 Yzcens_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 6131 6153 Yvsmatt (YNBS_zcens_hor_traadv_cen2, YNBI_zcens_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcens_hor_traadv_cen2, Yjac[0], Ytbeta); 6154 #pragma omp atomic 6132 6155 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 6156 #pragma omp atomic 6133 6157 YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 6158 #pragma omp atomic 6134 6159 YG1_sa( Yi, Yj, Yk, YTemps-1) += Ytbeta[2]; 6135 6160 if (1==0 || Yj+1>YA2_S3dt-1){} 6136 6161 else 6162 #pragma omp atomic 6137 6163 YG1_sa( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[3]; 6138 6164 if (1==0 || Yi+1>YA1_S3dt-1){} 6139 6165 else 6166 #pragma omp atomic 6140 6167 YG1_sa( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[4]; 6141 6168 Yting[0]=YS1_ua( Yi, Yj, Yk, YTemps-1); … … 6151 6178 Yting[4]=YS1_ta( Yi+1, Yj, Yk, YTemps-1); 6152 6179 memset(Yjac, 0, 62*sizeof(double)); 6153 Yzcent_hor_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );6180 Yzcent_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 6154 6181 Yvsmatt (YNBS_zcent_hor_traadv_cen2, YNBI_zcent_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcent_hor_traadv_cen2, Yjac[0], Ytbeta); 6182 #pragma omp atomic 6155 6183 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 6184 #pragma omp atomic 6156 6185 YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 6186 #pragma omp atomic 6157 6187 YG1_ta( Yi, Yj, Yk, YTemps-1) += Ytbeta[2]; 6158 6188 if (1==0 || Yj+1>YA2_S3dt-1){} 6159 6189 else 6190 #pragma omp atomic 6160 6191 YG1_ta( Yi, Yj+1, Yk, YTemps-1) += Ytbeta[3]; 6161 6192 if (1==0 || Yi+1>YA1_S3dt-1){} 6162 6193 else 6194 #pragma omp atomic 6163 6195 YG1_ta( Yi+1, Yj, Yk, YTemps-1) += Ytbeta[4]; 6164 6196 … … 6166 6198 6167 6199 } 6168 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6200 } 6201 #pragma omp parallel for num_threads(16) 6202 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6203 Yk=YY; 6169 6204 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6170 6205 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6173 6208 Yting[1]=YS1_ta_sa_trasbc( Yi, Yj, YTemps); 6174 6209 memset(Yjac, 0, 31*sizeof(double)); 6175 Yta_traqsr (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );6210 Yta_traqsr->backward( Yting[0], Yting[1] ); 6176 6211 Yvsmatt (YNBS_ta_traqsr, YNBI_ta_traqsr, YMAX_JAC_NBI, &YG1Y_ta_traqsr, Yjac[0], Ytbeta); 6212 #pragma omp atomic 6177 6213 YG1_sbcgyre_qsr_qns( Yi, Yj, YTemps) += Ytbeta[0]; 6214 #pragma omp atomic 6178 6215 YG1_ta_sa_trasbc( Yi, Yj, YTemps) += Ytbeta[1]; 6179 6216 6180 6217 } 6181 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6218 } 6219 #pragma omp parallel for num_threads(16) 6220 for(YY=YA2_S3dt-1; YY>=0; --YY){ 6221 Yj=YY; 6182 6222 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) 6183 6223 { … … 6186 6226 Yting[2]=YS1_sa( Yi, Yj, 0, YTemps-1); 6187 6227 memset(Yjac, 0, 62*sizeof(double)); 6188 Yta_sa_trasbc (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] );6228 Yta_sa_trasbc->backward( Yting[0], Yting[1], Yting[2] ); 6189 6229 Yvsmatt (YNBS_ta_sa_trasbc, YNBI_ta_sa_trasbc, YMAX_JAC_NBI, &YG1Y_ta_sa_trasbc, Yjac[0], Ytbeta); 6190 6230 YG2_sbcgyre_qsr_qns( Yi, Yj, YTemps) += Ytbeta[0]; 6191 6231 YG1_sbcgyre_emps( Yi, Yj, YTemps) += Ytbeta[1]; 6232 #pragma omp atomic 6192 6233 YG1_sa( Yi, Yj, 0, YTemps-1) += Ytbeta[2]; 6193 6234 6194 6235 } 6195 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6236 } 6237 #pragma omp parallel for num_threads(16) 6238 for(YY=YA2_S3dt-1; YY>=0; --YY){ 6239 Yj=YY; 6196 6240 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) 6197 6241 { … … 6228 6272 Yting[30]=YS1_rhop( Yi, Yj, 30, YTemps-1); 6229 6273 memset(Yjac, 0, 93*sizeof(double)); 6230 Yzdfmxl_nmln_hmlp_hmlpt (Yi, Yj)->backward();6274 Yzdfmxl_nmln_hmlp_hmlpt->backward(); 6231 6275 Yvsmatt (YNBS_zdfmxl_nmln_hmlp_hmlpt, YNBI_zdfmxl_nmln_hmlp_hmlpt, YMAX_JAC_NBI, &YG1Y_zdfmxl_nmln_hmlp_hmlpt, Yjac[0], Ytbeta); 6232 6276 YG1_rhop( Yi, Yj, 0, YTemps-1) += Ytbeta[0]; … … 6293 6337 Yting[30]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 30, YTemps); 6294 6338 memset(Yjac, 0, 31*sizeof(double)); 6295 Yzdfmxl_hmld (Yi, Yj)->backward();6339 Yzdfmxl_hmld->backward(); 6296 6340 Yvsmatt (YNBS_zdfmxl_hmld, YNBI_zdfmxl_hmld, YMAX_JAC_NBI, &YG1Y_zdfmxl_hmld, Yjac[0], Ytbeta); 6297 6341 YG1_zdf_avt_avmu_avmv( Yi, Yj, 0, YTemps) += Ytbeta[0]; … … 6328 6372 6329 6373 } 6330 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6374 } 6375 #pragma omp parallel for num_threads(16) 6376 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6377 Yk=YY; 6331 6378 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6332 6379 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6394 6441 Yting[18]=YS1_va( Yi+1, Yj, 1, YTemps-1); 6395 6442 memset(Yjac, 0, 93*sizeof(double)); 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] );6443 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] ); 6397 6444 Yvsmatt (YNBS_zdf_avt_avmu_avmv, YNBI_zdf_avt_avmu_avmv, YMAX_JAC_NBI, &YG1Y_zdf_avt_avmu_avmv, Yjac[0], Ytbeta); 6398 6445 YG1_bn2_rn2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6405 6452 if (1==0 || Yi-1<0){} 6406 6453 else 6454 #pragma omp atomic 6407 6455 YG1_ua( Yi-1, Yj, 29, YTemps-1) += Ytbeta[3]; 6408 6456 if (1==0 || Yi-1<0 || Yj+1>YA2_S3dt-1){} 6409 6457 else 6458 #pragma omp atomic 6410 6459 YG1_ua( Yi-1, Yj+1, 29, YTemps-1) += Ytbeta[4]; 6460 #pragma omp atomic 6411 6461 YG1_ua( Yi, Yj, 29, YTemps-1) += Ytbeta[5]; 6412 6462 if (1==0 || Yj+1>YA2_S3dt-1){} 6413 6463 else 6464 #pragma omp atomic 6414 6465 YG1_ua( Yi, Yj+1, 29, YTemps-1) += Ytbeta[6]; 6415 6466 if (1==0 || Yi-1<0){} 6416 6467 else 6468 #pragma omp atomic 6417 6469 YG1_ua( Yi-1, Yj, 1, YTemps-1) += Ytbeta[7]; 6418 6470 if (1==0 || Yi-1<0 || Yj+1>YA2_S3dt-1){} 6419 6471 else 6472 #pragma omp atomic 6420 6473 YG1_ua( Yi-1, Yj+1, 1, YTemps-1) += Ytbeta[8]; 6474 #pragma omp atomic 6421 6475 YG1_ua( Yi, Yj, 1, YTemps-1) += Ytbeta[9]; 6422 6476 if (1==0 || Yj+1>YA2_S3dt-1){} 6423 6477 else 6478 #pragma omp atomic 6424 6479 YG1_ua( Yi, Yj+1, 1, YTemps-1) += Ytbeta[10]; 6425 6480 if (1==0 || Yj-1<0){} 6426 6481 else 6482 #pragma omp atomic 6427 6483 YG1_va( Yi, Yj-1, 29, YTemps-1) += Ytbeta[11]; 6484 #pragma omp atomic 6428 6485 YG1_va( Yi, Yj, 29, YTemps-1) += Ytbeta[12]; 6429 6486 if (1==0 || Yi+1>YA1_S3dt-1 || Yj-1<0){} 6430 6487 else 6488 #pragma omp atomic 6431 6489 YG1_va( Yi+1, Yj-1, 29, YTemps-1) += Ytbeta[13]; 6432 6490 if (1==0 || Yi+1>YA1_S3dt-1){} 6433 6491 else 6492 #pragma omp atomic 6434 6493 YG1_va( Yi+1, Yj, 29, YTemps-1) += Ytbeta[14]; 6435 6494 if (1==0 || Yj-1<0){} 6436 6495 else 6496 #pragma omp atomic 6437 6497 YG1_va( Yi, Yj-1, 1, YTemps-1) += Ytbeta[15]; 6498 #pragma omp atomic 6438 6499 YG1_va( Yi, Yj, 1, YTemps-1) += Ytbeta[16]; 6439 6500 if (1==0 || Yi+1>YA1_S3dt-1 || Yj-1<0){} 6440 6501 else 6502 #pragma omp atomic 6441 6503 YG1_va( Yi+1, Yj-1, 1, YTemps-1) += Ytbeta[17]; 6442 6504 if (1==0 || Yi+1>YA1_S3dt-1){} 6443 6505 else 6506 #pragma omp atomic 6444 6507 YG1_va( Yi+1, Yj, 1, YTemps-1) += Ytbeta[18]; 6445 6508 6446 6509 } 6447 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6510 } 6511 #pragma omp parallel for num_threads(16) 6512 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6513 Yk=YY; 6448 6514 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6449 6515 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6460 6526 Yting[3]=YS1_sb( Yi, Yj, Yk-1, YTemps-1); 6461 6527 memset(Yjac, 0, 31*sizeof(double)); 6462 Ybn2_rn2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );6528 Ybn2_rn2->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6463 6529 Yvsmatt (YNBS_bn2_rn2, YNBI_bn2_rn2, YMAX_JAC_NBI, &YG1Y_bn2_rn2, Yjac[0], Ytbeta); 6530 #pragma omp atomic 6464 6531 YG1_tb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 6465 6532 if (1==0 || Yk-1<0){} 6466 6533 else 6534 #pragma omp atomic 6467 6535 YG1_tb( Yi, Yj, Yk-1, YTemps-1) += Ytbeta[1]; 6536 #pragma omp atomic 6468 6537 YG1_sb( Yi, Yj, Yk, YTemps-1) += Ytbeta[2]; 6469 6538 if (1==0 || Yk-1<0){} 6470 6539 else 6540 #pragma omp atomic 6471 6541 YG1_sb( Yi, Yj, Yk-1, YTemps-1) += Ytbeta[3]; 6472 6542 6543 } 6473 6544 } 6474 6545 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) … … 6486 6557 Yting[3]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 6487 6558 memset(Yjac, 0, 31*sizeof(double)); 6488 Ysbcgyre_wndm (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );6559 Ysbcgyre_wndm->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6489 6560 Yvsmatt (YNBS_sbcgyre_wndm, YNBI_sbcgyre_wndm, YMAX_JAC_NBI, &YG1Y_sbcgyre_wndm, Yjac[0], Ytbeta); 6490 6561 if (1==0 || Yi-1<0){} … … 6496 6567 YG1_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[2]; 6497 6568 YG2_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[3]; 6498 Ysbcgyre_utau_vtau (Yi, Yj)->backward();6569 Ysbcgyre_utau_vtau->backward(); 6499 6570 Yting[0]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 6500 6571 memset(Yjac, 0, 31*sizeof(double)); 6501 Ysbcgyre_emps (Yi, Yj)->backward( Yting[0] );6572 Ysbcgyre_emps->backward( Yting[0] ); 6502 6573 Yvsmatt (YNBS_sbcgyre_emps, YNBI_sbcgyre_emps, YMAX_JAC_NBI, &YG1Y_sbcgyre_emps, Yjac[0], Ytbeta); 6503 6574 YG1_sbcgyre_emp( Yi, Yj, YTemps) += Ytbeta[0]; … … 6506 6577 Yting[2]=YS2_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 6507 6578 memset(Yjac, 0, 31*sizeof(double)); 6508 Ysbcgyre_emp (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] );6579 Ysbcgyre_emp->backward( Yting[0], Yting[1], Yting[2] ); 6509 6580 Yvsmatt (YNBS_sbcgyre_emp, YNBI_sbcgyre_emp, YMAX_JAC_NBI, &YG1Y_sbcgyre_emp, Yjac[0], Ytbeta); 6510 6581 YG1_sbcgyre_emp1( Yi, Yj, YTemps) += Ytbeta[0]; … … 6534 6605 Yting[4]=YS1_sbcgyre_emp1( Yi, Yj, YTemps); 6535 6606 memset(Yjac, 0, 62*sizeof(double)); 6536 Ysbcgyre_zsumemp_zsurf (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );6607 Ysbcgyre_zsumemp_zsurf->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 6537 6608 Yvsmatt (YNBS_sbcgyre_zsumemp_zsurf, YNBI_sbcgyre_zsumemp_zsurf, YMAX_JAC_NBI, &YG1Y_sbcgyre_zsumemp_zsurf, Yjac[0], Ytbeta); 6538 6609 if (1==0 || Yi-1<0){} … … 6549 6620 YG2_sbcgyre_zsumemp_zsurf( 31, Yj-1, YTemps) += Ytbeta[3]; 6550 6621 YG1_sbcgyre_emp1( Yi, Yj, YTemps) += Ytbeta[4]; 6551 Ysbcgyre_emp1 (Yi, Yj)->backward();6622 Ysbcgyre_emp1->backward(); 6552 6623 Yting[0]=YS1_tb( Yi, Yj, 0, YTemps-1); 6553 6624 memset(Yjac, 0, 62*sizeof(double)); 6554 Ysbcgyre_qsr_qns (Yi, Yj)->backward( Yting[0] );6625 Ysbcgyre_qsr_qns->backward( Yting[0] ); 6555 6626 Yvsmatt (YNBS_sbcgyre_qsr_qns, YNBI_sbcgyre_qsr_qns, YMAX_JAC_NBI, &YG1Y_sbcgyre_qsr_qns, Yjac[0], Ytbeta); 6556 6627 YG1_tb( Yi, Yj, 0, YTemps-1) += Ytbeta[0]; … … 6596 6667 else 6597 6668 Yting[7]=YS2_solsor_flag( 31, 21, Yk-1, YTemps); 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] );6669 Ysolsor_gx1_x_r->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 6599 6670 6600 6671 } … … 6626 6697 Yting[7]=YS2_solsor_flag( 31, 21, Yk-1, YTemps); 6627 6698 Yting[8]=YS2_solsor_gx1_x_r( Yi, Yj, Yk, YTemps); 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] );6699 Ysolsor_gx2_x_r->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8] ); 6629 6700 6630 6701 } … … 6645 6716 else 6646 6717 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] );6718 Ysolsor_flag->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6648 6719 6649 6720 } … … 6677 6748 Yting[3]=YS1_solsor_flag( Yi, Yj-1, Yk, YTemps); 6678 6749 memset(Yjac, 0, 62*sizeof(double)); 6679 Ysolsor_flag (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );6750 Ysolsor_flag->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6680 6751 Yvsmatt (YNBS_solsor_flag, YNBI_solsor_flag, YMAX_JAC_NBI, &YG1Y_solsor_flag, Yjac[0], Ytbeta); 6681 6752 YG2_solsor_gx2_x_r( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6719 6790 Yting[8]=YS2_solsor_gx1_x_r( Yi, Yj, Yk, YTemps); 6720 6791 memset(Yjac, 0, 62*sizeof(double)); 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] );6792 Ysolsor_gx2_x_r->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8] ); 6722 6793 Yvsmatt (YNBS_solsor_gx2_x_r, YNBI_solsor_gx2_x_r, YMAX_JAC_NBI, &YG1Y_solsor_gx2_x_r, Yjac[0], Ytbeta); 6723 6794 YG1_gcx_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[0]; … … 6772 6843 Yting[7]=YS2_solsor_flag( 31, 21, Yk-1, YTemps); 6773 6844 memset(Yjac, 0, 62*sizeof(double)); 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] );6845 Ysolsor_gx1_x_r->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 6775 6846 Yvsmatt (YNBS_solsor_gx1_x_r, YNBI_solsor_gx1_x_r, YMAX_JAC_NBI, &YG1Y_solsor_gx1_x_r, Yjac[0], Ytbeta); 6776 6847 YG1_gcx_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[0]; … … 6806 6877 YA1=32; YA2=22; YA3=31; 6807 6878 Yi=-1; Yj=-1; Yk=-1; /* init des indices de maille: maj par la boucle si valide*/ 6808 for(Yj=0; Yj<YA2_S3dt_b; ++Yj) 6879 #pragma omp parallel for num_threads(16) 6880 for(YY=0; YY<YA2_S3dt_b; ++YY){ 6881 Yj=YY; 6809 6882 for(Yi=0; Yi<YA1_S3dt_b; ++Yi) 6810 6883 { 6811 6884 Yting[0]=YS1_solsor_gx2_x_r( Yi, Yj, 799, YTemps); 6812 Ygcx2(Yi, Yj)->forward( Yting[0] ); 6813 6814 } 6815 for(Yj=0; Yj<YA2_S3dt_b; ++Yj) 6885 Ygcx2->forward( Yting[0] ); 6886 6887 } 6888 } 6889 #pragma omp parallel for num_threads(16) 6890 for(YY=0; YY<YA2_S3dt_b; ++YY){ 6891 Yj=YY; 6816 6892 for(Yi=0; Yi<YA1_S3dt_b; ++Yi) 6817 6893 { … … 6825 6901 else 6826 6902 Yting[2]=YS1_gcx2( Yi, Yj+1, YTemps); 6827 Yspguv_dynspg_flt(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 6828 6829 } 6830 for(Yk=0; Yk<YA3_S3dt_b; ++Yk) 6903 Yspguv_dynspg_flt->forward( Yting[0], Yting[1], Yting[2] ); 6904 6905 } 6906 } 6907 #pragma omp parallel for num_threads(16) 6908 for(YY=0; YY<YA3_S3dt_b; ++YY){ 6909 Yk=YY; 6831 6910 for(Yj=0; Yj<YA2_S3dt_b; ++Yj) 6832 6911 for(Yi=0; Yi<YA1_S3dt_b; ++Yi) … … 6835 6914 Yting[1]=YS1_spguv_dynspg_flt( Yi, Yj, YTemps); 6836 6915 Yting[2]=YS1_ua_c( Yi, Yj, Yk); 6837 Yua (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );6916 Yua->forward( Yting[0], Yting[1], Yting[2] ); 6838 6917 Yting[0]=YS1_va_1_dynspg_flt( Yi, Yj, Yk, YTemps); 6839 6918 Yting[1]=YS2_spguv_dynspg_flt( Yi, Yj, YTemps); 6840 6919 Yting[2]=YS1_va_c( Yi, Yj, Yk); 6841 Yva(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 6842 6843 } 6844 for(Yj=0; Yj<YA2_S3dt_b; ++Yj) 6920 Yva->forward( Yting[0], Yting[1], Yting[2] ); 6921 6922 } 6923 } 6924 #pragma omp parallel for num_threads(16) 6925 for(YY=0; YY<YA2_S3dt_b; ++YY){ 6926 Yj=YY; 6845 6927 for(Yi=0; Yi<YA1_S3dt_b; ++Yi) 6846 6928 { … … 6849 6931 Yting[2]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 6850 6932 Yting[3]=YS1_sshn_c( Yi, Yj); 6851 Ysshn (Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );6933 Ysshn->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6852 6934 Yting[0]=YS1_sshb( Yi, Yj, YTemps-1); 6853 6935 Yting[1]=YS1_sshn( Yi, Yj, YTemps-1); 6854 6936 Yting[2]=YS1_sshn( Yi, Yj, YTemps); 6855 6937 Yting[3]=YS1_sshn_c( Yi, Yj); 6856 Ysshb(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6857 6858 } 6859 for(Yk=0; Yk<YA3_S3dt_b; ++Yk) 6938 Ysshb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6939 6940 } 6941 } 6942 #pragma omp parallel for num_threads(16) 6943 for(YY=0; YY<YA3_S3dt_b; ++YY){ 6944 Yk=YY; 6860 6945 for(Yj=0; Yj<YA2_S3dt_b; ++Yj) 6861 6946 for(Yi=0; Yi<YA1_S3dt_b; ++Yi) … … 6865 6950 Yting[2]=YS1_ua( Yi, Yj, Yk, YTemps); 6866 6951 Yting[3]=YS1_ua_c( Yi, Yj, Yk); 6867 Yub (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );6952 Yub->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6868 6953 Yting[0]=YS1_vb( Yi, Yj, Yk, YTemps-1); 6869 6954 Yting[1]=YS1_va( Yi, Yj, Yk, YTemps-1); 6870 6955 Yting[2]=YS1_va( Yi, Yj, Yk, YTemps); 6871 6956 Yting[3]=YS1_va_c( Yi, Yj, Yk); 6872 Yvb(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6873 6874 } 6875 for(Yk=0; Yk<YA3_S3dt_b; ++Yk) 6957 Yvb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6958 6959 } 6960 } 6961 #pragma omp parallel for num_threads(16) 6962 for(YY=0; YY<YA3_S3dt_b; ++YY){ 6963 Yk=YY; 6876 6964 for(Yj=0; Yj<YA2_S3dt_b; ++Yj) 6877 6965 for(Yi=0; Yi<YA1_S3dt_b; ++Yi) … … 6887 6975 else 6888 6976 Yting[3]=YS1_va( Yi, Yj-1, Yk, YTemps); 6889 Yhdivn (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );6977 Yhdivn->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6890 6978 if (1==0 || Yi+1>YA1_S3dt_b-1) 6891 6979 Yting[0]=0; … … 6898 6986 Yting[2]=YS1_ua( Yi, Yj+1, Yk, YTemps); 6899 6987 Yting[3]=YS1_ua( Yi, Yj, Yk, YTemps); 6900 Yrotn(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6901 6988 Yrotn->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6989 6990 } 6902 6991 } 6903 6992 for(Yk=YA3_S3dt_b-1; Yk>=0; --Yk) … … 6910 6999 Yting[0]=YS1_wa( Yi, Yj, Yk+1, YTemps); 6911 7000 Yting[1]=YS1_hdivn( Yi, Yj, Yk, YTemps); 6912 Ywa (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );7001 Ywa->forward( Yting[0], Yting[1] ); 6913 7002 6914 7003 } … … 6931 7020 Yting[1]=YS1_hdivn( Yi, Yj, Yk, YTemps); 6932 7021 memset(Yjac, 0, 31*sizeof(double)); 6933 Ywa (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );7022 Ywa->backward( Yting[0], Yting[1] ); 6934 7023 Yvsmatt (YNBS_wa, YNBI_wa, YMAX_JAC_NBI, &YG1Y_wa, Yjac[0], Ytbeta); 6935 7024 if (1==0 || Yk+1>YA3_S3dt_b-1){} … … 6939 7028 6940 7029 } 6941 for(Yk=YA3_S3dt_b-1; Yk>=0; --Yk) 7030 #pragma omp parallel for num_threads(16) 7031 for(YY=YA3_S3dt_b-1; YY>=0; --YY){ 7032 Yk=YY; 6942 7033 for(Yj=YA2_S3dt_b-1; Yj>=0; --Yj) 6943 7034 for(Yi=YA1_S3dt_b-1; Yi>=0; --Yi) … … 6954 7045 Yting[3]=YS1_ua( Yi, Yj, Yk, YTemps); 6955 7046 memset(Yjac, 0, 31*sizeof(double)); 6956 Yrotn (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );7047 Yrotn->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6957 7048 Yvsmatt (YNBS_rotn, YNBI_rotn, YMAX_JAC_NBI, &YG1Y_rotn, Yjac[0], Ytbeta); 6958 7049 if (1==0 || Yi+1>YA1_S3dt_b-1){} … … 6975 7066 Yting[3]=YS1_va( Yi, Yj-1, Yk, YTemps); 6976 7067 memset(Yjac, 0, 31*sizeof(double)); 6977 Yhdivn (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );7068 Yhdivn->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6978 7069 Yvsmatt (YNBS_hdivn, YNBI_hdivn, YMAX_JAC_NBI, &YG1Y_hdivn, Yjac[0], Ytbeta); 6979 7070 YG1_ua( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6987 7078 6988 7079 } 6989 for(Yk=YA3_S3dt_b-1; Yk>=0; --Yk) 7080 } 7081 #pragma omp parallel for num_threads(16) 7082 for(YY=YA3_S3dt_b-1; YY>=0; --YY){ 7083 Yk=YY; 6990 7084 for(Yj=YA2_S3dt_b-1; Yj>=0; --Yj) 6991 7085 for(Yi=YA1_S3dt_b-1; Yi>=0; --Yi) … … 6996 7090 Yting[3]=YS1_va_c( Yi, Yj, Yk); 6997 7091 memset(Yjac, 0, 31*sizeof(double)); 6998 Yvb (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );7092 Yvb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6999 7093 Yvsmatt (YNBS_vb, YNBI_vb, YMAX_JAC_NBI, &YG1Y_vb, Yjac[0], Ytbeta); 7000 7094 YG1_vb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 7095 #pragma omp atomic 7001 7096 YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 7002 7097 YG1_va( Yi, Yj, Yk, YTemps) += Ytbeta[2]; … … 7007 7102 Yting[3]=YS1_ua_c( Yi, Yj, Yk); 7008 7103 memset(Yjac, 0, 31*sizeof(double)); 7009 Yub (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );7104 Yub->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 7010 7105 Yvsmatt (YNBS_ub, YNBI_ub, YMAX_JAC_NBI, &YG1Y_ub, Yjac[0], Ytbeta); 7011 7106 YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 7107 #pragma omp atomic 7012 7108 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 7013 7109 YG1_ua( Yi, Yj, Yk, YTemps) += Ytbeta[2]; … … 7015 7111 7016 7112 } 7017 for(Yj=YA2_S3dt_b-1; Yj>=0; --Yj) 7113 } 7114 #pragma omp parallel for num_threads(16) 7115 for(YY=YA2_S3dt_b-1; YY>=0; --YY){ 7116 Yj=YY; 7018 7117 for(Yi=YA1_S3dt_b-1; Yi>=0; --Yi) 7019 7118 { … … 7023 7122 Yting[3]=YS1_sshn_c( Yi, Yj); 7024 7123 memset(Yjac, 0, 31*sizeof(double)); 7025 Ysshb (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );7124 Ysshb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 7026 7125 Yvsmatt (YNBS_sshb, YNBI_sshb, YMAX_JAC_NBI, &YG1Y_sshb, Yjac[0], Ytbeta); 7027 7126 YG1_sshb( Yi, Yj, YTemps-1) += Ytbeta[0]; 7127 #pragma omp atomic 7028 7128 YG1_sshn( Yi, Yj, YTemps-1) += Ytbeta[1]; 7029 7129 YG1_sshn( Yi, Yj, YTemps) += Ytbeta[2]; … … 7034 7134 Yting[3]=YS1_sshn_c( Yi, Yj); 7035 7135 memset(Yjac, 0, 31*sizeof(double)); 7036 Ysshn (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );7136 Ysshn->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 7037 7137 Yvsmatt (YNBS_sshn, YNBI_sshn, YMAX_JAC_NBI, &YG1Y_sshn, Yjac[0], Ytbeta); 7038 7138 YG1_sshb( Yi, Yj, YTemps-1) += Ytbeta[0]; 7139 #pragma omp atomic 7039 7140 YG1_wa( Yi, Yj, 0, YTemps-1) += Ytbeta[1]; 7040 7141 YG1_sbcgyre_emp( Yi, Yj, YTemps) += Ytbeta[2]; … … 7042 7143 7043 7144 } 7044 for(Yk=YA3_S3dt_b-1; Yk>=0; --Yk) 7145 } 7146 #pragma omp parallel for num_threads(16) 7147 for(YY=YA3_S3dt_b-1; YY>=0; --YY){ 7148 Yk=YY; 7045 7149 for(Yj=YA2_S3dt_b-1; Yj>=0; --Yj) 7046 7150 for(Yi=YA1_S3dt_b-1; Yi>=0; --Yi) … … 7050 7154 Yting[2]=YS1_va_c( Yi, Yj, Yk); 7051 7155 memset(Yjac, 0, 31*sizeof(double)); 7052 Yva (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );7156 Yva->backward( Yting[0], Yting[1], Yting[2] ); 7053 7157 Yvsmatt (YNBS_va, YNBI_va, YMAX_JAC_NBI, &YG1Y_va, Yjac[0], Ytbeta); 7158 #pragma omp atomic 7054 7159 YG1_va_1_dynspg_flt( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 7160 #pragma omp atomic 7055 7161 YG2_spguv_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[1]; 7056 7162 YG1_va_c( Yi, Yj, Yk) += Ytbeta[2]; … … 7059 7165 Yting[2]=YS1_ua_c( Yi, Yj, Yk); 7060 7166 memset(Yjac, 0, 31*sizeof(double)); 7061 Yua (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );7167 Yua->backward( Yting[0], Yting[1], Yting[2] ); 7062 7168 Yvsmatt (YNBS_ua, YNBI_ua, YMAX_JAC_NBI, &YG1Y_ua, Yjac[0], Ytbeta); 7169 #pragma omp atomic 7063 7170 YG1_ua_1_dynspg_flt( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 7171 #pragma omp atomic 7064 7172 YG1_spguv_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[1]; 7065 7173 YG1_ua_c( Yi, Yj, Yk) += Ytbeta[2]; 7066 7174 7067 7175 } 7068 for(Yj=YA2_S3dt_b-1; Yj>=0; --Yj) 7176 } 7177 #pragma omp parallel for num_threads(16) 7178 for(YY=YA2_S3dt_b-1; YY>=0; --YY){ 7179 Yj=YY; 7069 7180 for(Yi=YA1_S3dt_b-1; Yi>=0; --Yi) 7070 7181 { … … 7079 7190 Yting[2]=YS1_gcx2( Yi, Yj+1, YTemps); 7080 7191 memset(Yjac, 0, 62*sizeof(double)); 7081 Yspguv_dynspg_flt (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] );7192 Yspguv_dynspg_flt->backward( Yting[0], Yting[1], Yting[2] ); 7082 7193 Yvsmatt (YNBS_spguv_dynspg_flt, YNBI_spguv_dynspg_flt, YMAX_JAC_NBI, &YG1Y_spguv_dynspg_flt, Yjac[0], Ytbeta); 7083 7194 if (1==0 || Yi+1>YA1_S3dt_b-1){} 7084 7195 else 7196 #pragma omp atomic 7085 7197 YG1_gcx2( Yi+1, Yj, YTemps) += Ytbeta[0]; 7198 #pragma omp atomic 7086 7199 YG1_gcx2( Yi, Yj, YTemps) += Ytbeta[1]; 7087 7200 if (1==0 || Yj+1>YA2_S3dt_b-1){} 7088 7201 else 7202 #pragma omp atomic 7089 7203 YG1_gcx2( Yi, Yj+1, YTemps) += Ytbeta[2]; 7090 7204 7091 7205 } 7092 for(Yj=YA2_S3dt_b-1; Yj>=0; --Yj) 7206 } 7207 #pragma omp parallel for num_threads(16) 7208 for(YY=YA2_S3dt_b-1; YY>=0; --YY){ 7209 Yj=YY; 7093 7210 for(Yi=YA1_S3dt_b-1; Yi>=0; --Yi) 7094 7211 { 7095 7212 Yting[0]=YS1_solsor_gx2_x_r( Yi, Yj, 799, YTemps); 7096 7213 memset(Yjac, 0, 31*sizeof(double)); 7097 Ygcx2 (Yi, Yj)->backward( Yting[0] );7214 Ygcx2->backward( Yting[0] ); 7098 7215 Yvsmatt (YNBS_gcx2, YNBI_gcx2, YMAX_JAC_NBI, &YG1Y_gcx2, Yjac[0], Ytbeta); 7216 #pragma omp atomic 7099 7217 YG1_solsor_gx2_x_r( Yi, Yj, 799, YTemps) += Ytbeta[0]; 7100 7218 7219 } 7101 7220 } 7102 7221 … … 7141 7260 } 7142 7261 7143 // € € € € € € € €LES FONCTIONS UTILISATEUR ... :7262 // ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ LES FONCTIONS UTILISATEUR ... : 7144 7263 int Yuser_call (int argc, char *argv[]) 7145 7264 { -
trunk/src/Yworkdir/Yaoext_sinobad
r46 r49 1 2 #---------------------------------------------------- 3 # project: sinobad header generated by YAO version v.9 4 #---------------------------------------------------- 5 1 6 #!/bin/sh 2 7 LDYEXTOBJ=" ../object/ncutil.o " -
trunk/src/Yworkdir/Ysinobad.cpp
r45 r49 561 561 #include "Y2sinobad.h" 562 562 #define PRJNAME "sinobad" 563 #define VERREF "YaoI V.9 01.11.2008 (release 01.11.2008) "563 #define VERREF "YaoI V.9 01.11.2008 (release 01.11.2008) -O3 " 564 564 565 565 //============================================================================= -
trunk/src/cost.dat
r44 r49 1 1 0.0000000000000000e+00 2 0.0000000000000000e+00 3 0.0000000000000000e+00 4 2.9733593674719423e+03 5 5.4561410776679122e+02 6 2.4475352252509134e+02 7 2.6358555318068841e+02 8 2.1527711430855038e+02 9 2.0204126463990215e+02 10 2.1416662011590833e+02 11 2.0207208737645496e+02 12 2.0211049147089304e+02 13 2.0235703823123197e+02 14 2.0019969413511828e+02 15 2.2286623273509434e+02 16 1.9878349444274735e+02 17 2.0070292696001030e+02 18 2.0014258993979595e+02 19 1.9972801663599338e+02 20 1.9293537153893590e+02 21 2.0814944891652880e+02 22 1.8213155756443817e+02 23 1.7950672225933866e+02 24 1.8080233872884580e+02 25 1.7876027971923725e+02 26 2.0259497236690703e+02 27 1.7881103040469617e+02 28 1.7886996041817454e+02 29 1.7907554124113310e+02 30 1.8045371934564810e+02 31 1.7569372841627006e+02 32 1.9113648527038990e+02 33 1.7516955251891332e+02 34 1.9550146370923514e+02 35 1.7455342251319595e+02 36 2.1077987977826763e+02 37 1.7473743190883036e+02 38 1.7476659805882767e+02 39 1.7491607437730161e+02 40 1.7534570209262407e+02 41 1.7146968928574532e+02 42 1.7918664114219453e+02 43 1.7311809756377912e+02 44 1.7320818032615955e+02 45 1.7322190117805096e+02 46 1.7328346667692077e+02 47 1.7390681350015083e+02 48 1.7091883954920155e+02 49 1.7074257389516592e+02 50 1.7423942813610816e+02 51 1.7069031205380722e+02 52 1.7425456057653693e+02 53 1.7425631257707835e+02 54 1.7425753342598696e+02 -
trunk/src/sinobad.d
r47 r49 10 10 defval NZ 31 11 11 defval NMAX 800 // ! maximum of iterations for the SOR solver 12 defval TA 10 |50 | number of time steps12 defval TA 50 |50 | number of time steps 13 13 defval TU 2 | start time step 14 14 #exec disp_valdef … … 22 22 #option O_VARINCR 23 23 #option O_GRADTEST 24 #option O_DBG_NANF24 # option O_DBG_NANF 25 25 #option O_DBG_TING 26 26 option O_EXTOBJ "../object/ncutil.o" 27 27 option O_REAL double 28 #option o_parallel 1628 option o_parallel 16 29 29 30 30 #TRAJECTOIRES (DIM) -----------------------------------TRAJ … … 667 667 sbcgyre_emp sbcgyre_emps sbcgyre_utau_vtau sbcgyre_wndm 668 668 forder 669 670 #---------->sbcgyre + bn2_rn2 + zdf + trasbc + traqsr + traadv + 671 # traldf + trazdf + tra_nxt// 672 # order YA1 YA2 673 # sbcgyre_qsr_qns sbcgyre_emp1 674 # order YA3 675 # bn2_rn2 zcent_hor_traadv_cen2 zcens_hor_traadv_cen2 676 # zcent_ver_traadv_cen2 zcens_ver_traadv_cen2 677 ztuv_traldf_lap zsuv_traldf_lap 678 # forder 679 # forder 680 681 # #NO PARALLEL 682 # order YA2 YA1 683 # sbcgyre_zsum3emp_zsurf 684 # 685 686 # forder 687 # order YA1 YA2 688 # order YB3 689 # zdf_avt_avmu_avmv 690 # zwisd_trazdf_imp 691 # forder 692 # sbcgyre_emp sbcgyre_emps sbcgyre_utau_vtau 693 # zdfmxl_hmld zdfmxl_nmln_hmlp_hmlpt ta_sa_trasbc 694 # ta_traqsr 695 order YB3 696 # ta_hor_traadv_cen2 sa_hor_traadv_cen2 697 ta_ver_traadv_cen2 sa_ver_traadv_cen2 698 ta_traldf_lap sa_traldf_lap 699 zrhs_trazdf_imp zrhs_sa_trazdf_imp 700 # forder 701 order YA3 702 zwt_trazdf_imp ta_de_trazdf_imp sa_de_trazdf_imp 703 forder 704 order YB3 705 ta sa tb sb rhd rhop 706 forder 707 # forder 708 709 710 # order YA1 YA2 711 # sbcgyre_wndm 712 # forder 713 669 714 #---------->bn2 670 715 order YA3 YA2 YA1 671 716 bn2_rn2 672 717 forder 718 673 719 #---------->zdf 674 720 order YA3 YA2 YA1 -
trunk/src/solsor_flag.h
r48 r49 45 45 { 46 46 YS2=1; 47 printf("FOR=======tniter(%d)=%d\n",Yt,Yk);47 // printf("FOR=======tniter(%d)=%d\n",Yt,Yk); 48 48 } //moment de tester le maximum 49 49 else YS2=0; -
trunk/src/solsor_gx1_x_r.h
r47 r49 74 74 } // Yk>0 75 75 } //if x8==0 76 if (Yt==TU+1)77 printf("%d\t%d\t%d\t%e\t%e (1)\n",Yk,Yj,Yi,YS1,YS2);76 //if (Yt==TU+1) 77 // printf("%d\t%d\t%d\t%e\t%e (1)\n",Yk,Yj,Yi,YS1,YS2); 78 78 } //Yt>TU 79 79 } … … 83 83 84 84 backward (YREAL x1, YREAL x2, YREAL x3, YREAL x4, YREAL x5, YREAL x6, YREAL x7, YREAL x8) { 85 /* 1 from gcx_dynspg_flt 1 i j t 86 2 from gcb_dynspg_flt 1 i j t 87 3 from solsor_gc2_x_r 1 i j-1 k-1 t 88 4 from solsor_gc2_x_r 1 i-1 j k-1 t 89 5 from solsor_gc2_x_r 1 i+1 j k-1 t 90 6 from solsor_gc2_x_r 1 i j+1 k-1 t 91 7 from solsor_gc2_x_r 1 i j k-1 t 92 8 from solsor_flag 2 NX NY k-1 t 93 } 94 output 1 : gcx 95 oupput 2 : gcr (pour l'arrêt des itérations 96 97 */ 98 if(Yt==TU) 99 { 100 YJ1I1=0; 101 } 102 else { 103 int t; 104 if(Yt==TU+1 && neuler==0) 105 t=0; 106 else 107 t=1; 108 109 if (x8==1) 110 { 111 YJ1I7=1; 112 // YS1=x7; 113 } 114 else 115 { 116 if (Yk==0) { 117 if ( ( (Yi==0) | (Yj==0) ) | ( (Yi==NX-1) | (Yj==NY-1) )) { 118 119 //YS1=0; 120 121 } 122 else { 123 YJ1I1=1; 124 // YS1=x1; 125 } 126 } //Yk=0; 127 else { 128 // YREAL ztmp,zres; 129 int ishift=Yj%2; 130 if ((Yi+1)%2==ishift) { //! Guess black update 131 YREAL dztmpdx2=1; 132 YREAL dztmpdx3=-gcp(Yi,Yj,0,t); 133 YREAL dztmpdx4=-gcp(Yi,Yj,1,t); 134 YREAL dztmpdx5=-gcp(Yi,Yj,2,t); 135 YREAL dztmpdx6=-gcp(Yi,Yj,3,t); 136 /*ztmp = x2 137 - gcp(Yi,Yj,0,t) * x3 138 - gcp(Yi,Yj,1,t) * x4 139 - gcp(Yi,Yj,2,t) * x5 140 - gcp(Yi,Yj,3,t) * x6;*/ 141 142 YJ1I2=sor*dztmpdx2; 143 YJ1I3=sor*dztmpdx3; 144 YJ1I4=sor*dztmpdx4; 145 YJ1I5=sor*dztmpdx5; 146 YJ1I6=sor*dztmpdx6; 147 YJ1I7=(1.-sor); 148 //YS1 = sor * ztmp + (1.-sor) * x7; 149 } 150 else 151 { 152 YJ1I7=1; 153 // YS1=x7; 154 } 155 156 157 } // Yk>0 158 } //if x8==0 159 //if (Yt==TU+1) 160 // printf("%d\t%d\t%d\t%e\t%e (1)\n",Yk,Yj,Yi,YS1,YS2); 161 } //Yt>TU 162 163 /*if (Yi>22 & Yi < 26 & Yj>18 & Yj <21 & Yk==241 & Yt==9) { 164 165 for (int i=0;i< 9;i++) 166 { 167 168 for (int j=0;j<2;j++) { 169 // if (Yjac[j][i]>1 & YG1Y_solsor_gx2_x_r>1e-10 ) { 170 printf("gx1 (%d,%d,%d,%d) YG1=%e,YG2=%e(%e)",Yi,Yj,Yk,Yt,YG1Y_solsor_gx2_x_r,YG2Y_solsor_gx2_x_r,(&YG1Y_solsor_gx2_x_r)[1]); 171 printf(" YJ%dI%d=%e\n",j+1,i+1,Yjac[j][i]); 172 } 173 } 174 }*/ 85 175 } -
trunk/src/solsor_gx2_x_r.h
r47 r49 8 8 forward (YREAL x1, YREAL x2, YREAL x3, YREAL x4, YREAL x5, YREAL x6, YREAL x7, YREAL x8, YREAL x9) 9 9 { 10 /* 1 from gcx_dynspg_flt 1 i j t10 /* 1 from gcx_dynspg_flt 1 i j t 11 11 2 from gcb_dynspg_flt 1 i j t 12 12 3 from solsor_gc1_x_r 1 i j-1 k t … … 17 17 8 from solsor_flag 2 NX NY k t 18 18 9 from solsor_gc1_x_r 2 i j k-1 t 19 }20 output 1 : gcx21 oupput 2 : gcr (pour l'arrêt des itérations)22 23 */24 if(Yt==TU)25 {26 YS1=0;27 YS2=x9;28 }29 else {30 int t;31 if(Yt==TU+1 && neuler==0)32 t=0;33 else34 t=1;35 36 if (x8==1)37 {38 39 40 }41 else42 {43 44 YS1=x7;45 YS2=x9;46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 } //if x8==072 if (Yt==TU+1)73 printf("%d\t%d\t%d\t%e\t%e (2)\n",Yk,Yj,Yi,YS1,YS2);74 } //Yt>TU19 } 20 output 1 : gcx 21 oupput 2 : gcr (pour l'arrêt des itérations) 22 23 */ 24 if(Yt==TU) 25 { 26 YS1=0; 27 YS2=x9; 28 } 29 else { 30 int t; 31 if(Yt==TU+1 && neuler==0) 32 t=0; 33 else 34 t=1; 35 36 if (x8==1) 37 { 38 YS1=x7; 39 YS2=x9; 40 } 41 else 42 { 43 if (Yk==0) { 44 YS1=x7; 45 YS2=x9; 46 } //Yk=0; 47 else { 48 YREAL ztmp,zres; 49 int ishift=(Yj-1)%2; 50 if ((Yi+1)%2==ishift) { //! Guess black update 51 ztmp = x2 52 - gcp(Yi,Yj,0,t) * x3 53 - gcp(Yi,Yj,1,t) * x4 54 - gcp(Yi,Yj,2,t) * x5 55 - gcp(Yi,Yj,3,t) * x6; 56 // ! Estimate of the residual 57 zres = ztmp - x7; 58 YS2 = zres * gcdmat(Yi,Yj,t) * zres; 59 // ! Guess update 60 YS1 = sor * ztmp + (1.-sor) * x7; 61 } 62 else 63 { 64 YS2=x9; 65 YS1=x7; 66 } 67 68 69 70 } // Yk>0 71 } //if x8==0 72 //if (Yt==TU+1) 73 //printf("%d\t%d\t%d\t%e\t%e (2)\n",Yk,Yj,Yi,YS1,YS2); 74 } //Yt>TU 75 75 } 76 76 … … 79 79 80 80 backward (YREAL x1, YREAL x2, YREAL x3, YREAL x4, YREAL x5, YREAL x6, YREAL x7, YREAL x8, YREAL x9) { 81 /* 1 from gcx_dynspg_flt 1 i j t 82 2 from gcb_dynspg_flt 1 i j t 83 3 from solsor_gc1_x_r 1 i j-1 k t 84 4 from solsor_gc1_x_r 1 i-1 j k t 85 5 from solsor_gc1_x_r 1 i+1 j k t 86 6 from solsor_gc1_x_r 1 i j+1 k t 87 7 from solsor_gc1_x_r 1 i j k t 88 8 from solsor_flag 2 NX NY k t 89 9 from solsor_gc1_x_r 2 i j k-1 t 90 } 91 output 1 : gcx 92 oupput 2 : gcr (pour l'arrêt des itérations) 93 94 */ 95 96 if(Yt==TU) 97 { 98 YJ2I9=0; 99 } 100 else { 101 int t; 102 if(Yt==TU+1 && neuler==0) 103 t=0; 104 else 105 t=1; 106 107 if (x8==1) 108 { 109 YJ1I7=1; 110 } 111 else 112 { 113 if (Yk==0) { 114 YJ1I7=1; 115 } //Yk=0; 116 else { 117 int ishift=(Yj-1)%2; 118 if ((Yi+1)%2==ishift) { //! Guess black update 119 YREAL dztmpdx2=1; 120 YREAL dztmpdx3=-gcp(Yi,Yj,0,t); 121 YREAL dztmpdx4=-gcp(Yi,Yj,1,t); 122 YREAL dztmpdx5=-gcp(Yi,Yj,2,t); 123 YREAL dztmpdx6=-gcp(Yi,Yj,3,t); 124 /*ztmp = x2 125 - gcp(Yi,Yj,0,t) * x3 126 - gcp(Yi,Yj,1,t) * x4 127 - gcp(Yi,Yj,2,t) * x5 128 - gcp(Yi,Yj,3,t) * x6;*/ 129 130 YJ1I2=sor*dztmpdx2; 131 YJ1I3=sor*dztmpdx3; 132 YJ1I4=sor*dztmpdx4; 133 YJ1I5=sor*dztmpdx5; 134 YJ1I6=sor*dztmpdx6; 135 YJ1I7=(1.-sor); 136 // YS1 = sor * ztmp + (1.-sor) * x7; 137 } 138 else 139 { 140 YJ1I7=1; 141 // YS1=x7; 142 } 143 } 144 } 145 } 146 /* 147 for (int i=0;i< 9;i++) 148 { 149 150 for (int j=0;j<2;j++) { 151 if (Yjac[j][i]>1 & YG1Y_solsor_gx2_x_r>1e-10) { 152 printf("gx2 (%d,%d,%d,%d) YG1=%e,YG2=%e(%e)",Yi,Yj,Yk,Yt,YG1Y_solsor_gx2_x_r,YG2Y_solsor_gx2_x_r,(&YG1Y_solsor_gx2_x_r)[1]); 153 printf(" YJ%dI%d=%e\n",j+1,i+1,Yjac[j][i]); 154 } 155 } 156 }*/ 81 157 }
Note: See TracChangeset
for help on using the changeset viewer.