Changeset 45 for trunk/src/Yworkdir/Y1sinobad.h
- Timestamp:
- 05/05/11 11:20:26 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/Yworkdir/Y1sinobad.h
r44 r45 5 5 6 6 // DEFINE FOR PARALLELISM 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 7 #define NOT_PARALLEL 8 9 //ᅵ ᅵ ᅵ ᅵ LES DECLARATIONS DE CLASS, DEFINE ET ALLOCATION DU PROJET 17 10 #define NPCA 15 18 11 #define NX 32 19 12 #define NY 22 20 13 #define NZ 31 14 #define NMAX 800 21 15 #define TA 10 22 16 #define TU 2 … … 60 54 #define Yid_S3dt 2 61 55 56 #define YA1_S3dt_b 32 57 #define YA2_S3dt_b 22 58 #define YA3_S3dt_b 31 59 #define YA2A3_S3dt_b 682 60 #define YDIM_S3dt_b 3 61 #define YNB_S3dt_b 21824 62 #define Yid_S3dt_b 3 63 64 #define YA1_Ssolsor 32 65 #define YA2_Ssolsor 22 66 #define YA3_Ssolsor 800 67 #define YA2A3_Ssolsor 17600 68 #define YDIM_Ssolsor 3 69 #define YNB_Ssolsor 563200 70 #define Yid_Ssolsor 4 71 62 72 /*----------------- GENERATION OF MODULES... -------------*/ 63 73 … … 68 78 /*NBMOD */ #define YNB_sshn_c 704 69 79 /*NBSMOD */ #define YNBS_sshn_c 1 70 /*M2_IRMOD */ #define Ysshn_c(i, j) Ysshn_c[i][j] 71 /*M2_NOWMOD */ #define Ysshn_cY Ysshn_c[Yi][Yj] 72 /*M2_VALSG */ #define Ystate_sshn_c(v, i, j) Ysshn_c[i][j]->Ystate[v] 73 /*M2_VALSG */ #define YS_sshn_c(v, i, j) Ysshn_c[i][j]->Ystate[v] 74 /*M2_VALSGI */ #define YS1_sshn_c(i, j) Ysshn_c[i][j]->Ystate[0] 75 /*M2_HERESGI*/ #define YS1Y_sshn_c Ysshn_c[Yi][Yj]->Ystate[0] 76 /*M2_VALSG */ #define Ygrad_sshn_c(v, i, j) Ysshn_c[i][j]->Ygrad[v] 77 /*M2_VALSG */ #define YG_sshn_c(v, i, j) Ysshn_c[i][j]->Ygrad[v] 78 /*M2_VALSGI */ #define YG1_sshn_c(i, j) Ysshn_c[i][j]->Ygrad[0] 79 /*M2_HERESGI*/ #define YG1Y_sshn_c Ysshn_c[Yi][Yj]->Ygrad[0] 80 Yaosshn_c *Ysshn_c[YA1_S3d][YA2_S3d]; 80 /*M2_VALSG */ #define Ystate_sshn_c(v, i, j) Ysshn_c->Ystate[i][j][v] 81 /*M2_VALSG */ #define YS_sshn_c(v, i, j) Ysshn_c->Ystate[i][j][v] 82 /*M2_VALSGI */ #define YS1_sshn_c(i, j) Ysshn_c->Ystate[i][j][0] 83 /*M2_HERESGI*/ #define YS1Y_sshn_c Ysshn_c->Ystate[Yi][Yj][0] 84 /*M2_VALSG */ #define Ygrad_sshn_c(v, i, j) Ysshn_c->Ygrad[i][j][v] 85 /*M2_VALSG */ #define YG_sshn_c(v, i, j) Ysshn_c->Ygrad[i][j][v] 86 /*M2_VALSGI */ #define YG1_sshn_c(i, j) Ysshn_c->Ygrad[i][j][0] 87 /*M2_HERESGI*/ #define YG1Y_sshn_c Ysshn_c->Ygrad[Yi][Yj][0] 88 Yaosshn_c *Ysshn_c; 81 89 82 90 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_c~~~~~~~~~~~~~~~~~~~~~~~~~ … … 88 96 class Yaota_c; 89 97 /*NBSMOD */ #define YNBS_ta_c 1 90 /*M3_IRMOD */ #define Yta_c(i, j, k) Yta_c[i][j][k] 91 /*M3_NOWMOD */ #define Yta_cY Yta_c[Yi][Yj][Yk] 92 /*M3_VALSG */ #define Ystate_ta_c(v, i, j, k) Yta_c[i][j][k]->Ystate[v] 93 /*M3_VALSG */ #define YS_ta_c(v, i, j, k) Yta_c[i][j][k]->Ystate[v] 94 /*M3_VALSGI */ #define YS1_ta_c(i, j, k) Yta_c[i][j][k]->Ystate[0] 95 /*M3_HERESGI*/ #define YS1Y_ta_c Yta_c[Yi][Yj][Yk]->Ystate[0] 96 /*M3_VALSG */ #define Ygrad_ta_c(v, i, j, k) Yta_c[i][j][k]->Ygrad[v] 97 /*M3_VALSG */ #define YG_ta_c(v, i, j, k) Yta_c[i][j][k]->Ygrad[v] 98 /*M3_VALSGI */ #define YG1_ta_c(i, j, k) Yta_c[i][j][k]->Ygrad[0] 99 /*M3_HERESGI*/ #define YG1Y_ta_c Yta_c[Yi][Yj][Yk]->Ygrad[0] 100 /*M3_VALSG */ #define Yepsi_ta_c(v, i, j, k) Yta_c[i][j][k]->Yepsi[v] 101 /*M3_VALSG */ #define YE_ta_c(v, i, j, k) Yta_c[i][j][k]->Yepsi[v] 102 /*M3_VALSGI */ #define YE1_ta_c(i, j, k) Yta_c[i][j][k]->Yepsi[0] 103 Yaota_c *Yta_c[YA1_S3d][YA2_S3d][YA3_S3d]; 104 /*M3_VALSG */ #define Ywish_ta_c(v, i, j, k) Yta_c[i][j][k]->Ywish[v] 105 /*M3_VALSG */ #define YW_ta_c(v, i, j, k) Yta_c[i][j][k]->Ywish[v] 106 /*M3_VALSGI */ #define YW1_ta_c(i, j, k) Yta_c[i][j][k]->Ywish[0] 107 /*M3_HERESGI*/ #define YW1Y_ta_c Yta_c[Yi][Yj][Yk]->Ywish[0] 98 /*M3_VALSG */ #define Ystate_ta_c(v, i, j, k) Yta_c->Ystate[i][j][k][v] 99 /*M3_VALSG */ #define YS_ta_c(v, i, j, k) Yta_c->Ystate[i][j][k][v] 100 /*M3_VALSGI */ #define YS1_ta_c(i, j, k) Yta_c->Ystate[i][j][k][0] 101 /*M3_HERESGI*/ #define YS1Y_ta_c Yta_c->Ystate[Yi][Yj][Yk][0] 102 /*M3_VALSG */ #define Ygrad_ta_c(v, i, j, k) Yta_c->Ygrad[i][j][k][v] 103 /*M3_VALSG */ #define YG_ta_c(v, i, j, k) Yta_c->Ygrad[i][j][k][v] 104 /*M3_VALSGI */ #define YG1_ta_c(i, j, k) Yta_c->Ygrad[i][j][k][0] 105 /*M3_HERESGI*/ #define YG1Y_ta_c Yta_c->Ygrad[Yi][Yj][Yk][0] 106 /*M3_VALSG */ #define Yepsi_ta_c(v, i, j, k) Yta_c->Yepsi[i][j][k][v] 107 /*M3_VALSG */ #define YE_ta_c(v, i, j, k) Yta_c->Yepsi[i][j][k][v] 108 /*M3_VALSGI */ #define YE1_ta_c(i, j, k) Yta_c->Yepsi[i][j][k][0] 109 Yaota_c *Yta_c; 110 /*M3_VALSG */ #define Ywish_ta_c(v, i, j, k) Yta_c->Ywish[i][j][k][v] 111 /*M3_VALSG */ #define YW_ta_c(v, i, j, k) Yta_c->Ywish[i][j][k][v] 112 /*M3_VALSGI */ #define YW1_ta_c(i, j, k) Yta_c->Ywish[i][j][k][0] 113 /*M3_HERESGI*/ #define YW1Y_ta_c Yta_c->Ywish[Yi][Yj][Yk][0] 108 114 109 115 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_c~~~~~~~~~~~~~~~~~~~~~~~~~ … … 112 118 class Yaosa_c; 113 119 /*NBSMOD */ #define YNBS_sa_c 1 114 /*M3_IRMOD */ #define Ysa_c(i, j, k) Ysa_c[i][j][k] 115 /*M3_NOWMOD */ #define Ysa_cY Ysa_c[Yi][Yj][Yk] 116 /*M3_VALSG */ #define Ystate_sa_c(v, i, j, k) Ysa_c[i][j][k]->Ystate[v] 117 /*M3_VALSG */ #define YS_sa_c(v, i, j, k) Ysa_c[i][j][k]->Ystate[v] 118 /*M3_VALSGI */ #define YS1_sa_c(i, j, k) Ysa_c[i][j][k]->Ystate[0] 119 /*M3_HERESGI*/ #define YS1Y_sa_c Ysa_c[Yi][Yj][Yk]->Ystate[0] 120 /*M3_VALSG */ #define Ygrad_sa_c(v, i, j, k) Ysa_c[i][j][k]->Ygrad[v] 121 /*M3_VALSG */ #define YG_sa_c(v, i, j, k) Ysa_c[i][j][k]->Ygrad[v] 122 /*M3_VALSGI */ #define YG1_sa_c(i, j, k) Ysa_c[i][j][k]->Ygrad[0] 123 /*M3_HERESGI*/ #define YG1Y_sa_c Ysa_c[Yi][Yj][Yk]->Ygrad[0] 124 Yaosa_c *Ysa_c[YA1_S3d][YA2_S3d][YA3_S3d]; 120 /*M3_VALSG */ #define Ystate_sa_c(v, i, j, k) Ysa_c->Ystate[i][j][k][v] 121 /*M3_VALSG */ #define YS_sa_c(v, i, j, k) Ysa_c->Ystate[i][j][k][v] 122 /*M3_VALSGI */ #define YS1_sa_c(i, j, k) Ysa_c->Ystate[i][j][k][0] 123 /*M3_HERESGI*/ #define YS1Y_sa_c Ysa_c->Ystate[Yi][Yj][Yk][0] 124 /*M3_VALSG */ #define Ygrad_sa_c(v, i, j, k) Ysa_c->Ygrad[i][j][k][v] 125 /*M3_VALSG */ #define YG_sa_c(v, i, j, k) Ysa_c->Ygrad[i][j][k][v] 126 /*M3_VALSGI */ #define YG1_sa_c(i, j, k) Ysa_c->Ygrad[i][j][k][0] 127 /*M3_HERESGI*/ #define YG1Y_sa_c Ysa_c->Ygrad[Yi][Yj][Yk][0] 128 Yaosa_c *Ysa_c; 125 129 126 130 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_c~~~~~~~~~~~~~~~~~~~~~~~~~ … … 129 133 class Yaoua_c; 130 134 /*NBSMOD */ #define YNBS_ua_c 1 131 /*M3_IRMOD */ #define Yua_c(i, j, k) Yua_c[i][j][k] 132 /*M3_NOWMOD */ #define Yua_cY Yua_c[Yi][Yj][Yk] 133 /*M3_VALSG */ #define Ystate_ua_c(v, i, j, k) Yua_c[i][j][k]->Ystate[v] 134 /*M3_VALSG */ #define YS_ua_c(v, i, j, k) Yua_c[i][j][k]->Ystate[v] 135 /*M3_VALSGI */ #define YS1_ua_c(i, j, k) Yua_c[i][j][k]->Ystate[0] 136 /*M3_HERESGI*/ #define YS1Y_ua_c Yua_c[Yi][Yj][Yk]->Ystate[0] 137 /*M3_VALSG */ #define Ygrad_ua_c(v, i, j, k) Yua_c[i][j][k]->Ygrad[v] 138 /*M3_VALSG */ #define YG_ua_c(v, i, j, k) Yua_c[i][j][k]->Ygrad[v] 139 /*M3_VALSGI */ #define YG1_ua_c(i, j, k) Yua_c[i][j][k]->Ygrad[0] 140 /*M3_HERESGI*/ #define YG1Y_ua_c Yua_c[Yi][Yj][Yk]->Ygrad[0] 141 Yaoua_c *Yua_c[YA1_S3d][YA2_S3d][YA3_S3d]; 135 /*M3_VALSG */ #define Ystate_ua_c(v, i, j, k) Yua_c->Ystate[i][j][k][v] 136 /*M3_VALSG */ #define YS_ua_c(v, i, j, k) Yua_c->Ystate[i][j][k][v] 137 /*M3_VALSGI */ #define YS1_ua_c(i, j, k) Yua_c->Ystate[i][j][k][0] 138 /*M3_HERESGI*/ #define YS1Y_ua_c Yua_c->Ystate[Yi][Yj][Yk][0] 139 /*M3_VALSG */ #define Ygrad_ua_c(v, i, j, k) Yua_c->Ygrad[i][j][k][v] 140 /*M3_VALSG */ #define YG_ua_c(v, i, j, k) Yua_c->Ygrad[i][j][k][v] 141 /*M3_VALSGI */ #define YG1_ua_c(i, j, k) Yua_c->Ygrad[i][j][k][0] 142 /*M3_HERESGI*/ #define YG1Y_ua_c Yua_c->Ygrad[Yi][Yj][Yk][0] 143 Yaoua_c *Yua_c; 142 144 143 145 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_c~~~~~~~~~~~~~~~~~~~~~~~~~ … … 146 148 class Yaova_c; 147 149 /*NBSMOD */ #define YNBS_va_c 1 148 /*M3_IRMOD */ #define Yva_c(i, j, k) Yva_c[i][j][k] 149 /*M3_NOWMOD */ #define Yva_cY Yva_c[Yi][Yj][Yk] 150 /*M3_VALSG */ #define Ystate_va_c(v, i, j, k) Yva_c[i][j][k]->Ystate[v] 151 /*M3_VALSG */ #define YS_va_c(v, i, j, k) Yva_c[i][j][k]->Ystate[v] 152 /*M3_VALSGI */ #define YS1_va_c(i, j, k) Yva_c[i][j][k]->Ystate[0] 153 /*M3_HERESGI*/ #define YS1Y_va_c Yva_c[Yi][Yj][Yk]->Ystate[0] 154 /*M3_VALSG */ #define Ygrad_va_c(v, i, j, k) Yva_c[i][j][k]->Ygrad[v] 155 /*M3_VALSG */ #define YG_va_c(v, i, j, k) Yva_c[i][j][k]->Ygrad[v] 156 /*M3_VALSGI */ #define YG1_va_c(i, j, k) Yva_c[i][j][k]->Ygrad[0] 157 /*M3_HERESGI*/ #define YG1Y_va_c Yva_c[Yi][Yj][Yk]->Ygrad[0] 158 Yaova_c *Yva_c[YA1_S3d][YA2_S3d][YA3_S3d]; 150 /*M3_VALSG */ #define Ystate_va_c(v, i, j, k) Yva_c->Ystate[i][j][k][v] 151 /*M3_VALSG */ #define YS_va_c(v, i, j, k) Yva_c->Ystate[i][j][k][v] 152 /*M3_VALSGI */ #define YS1_va_c(i, j, k) Yva_c->Ystate[i][j][k][0] 153 /*M3_HERESGI*/ #define YS1Y_va_c Yva_c->Ystate[Yi][Yj][Yk][0] 154 /*M3_VALSG */ #define Ygrad_va_c(v, i, j, k) Yva_c->Ygrad[i][j][k][v] 155 /*M3_VALSG */ #define YG_va_c(v, i, j, k) Yva_c->Ygrad[i][j][k][v] 156 /*M3_VALSGI */ #define YG1_va_c(i, j, k) Yva_c->Ygrad[i][j][k][0] 157 /*M3_HERESGI*/ #define YG1Y_va_c Yva_c->Ygrad[Yi][Yj][Yk][0] 158 Yaova_c *Yva_c; 159 159 160 160 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_qsr_qns~~~~~~~~~~~~~~~~~~~~~~~~~ … … 166 166 /*NBSMOD */ #define YNBS_sbcgyre_qsr_qns 2 167 167 /*NBIMOD */ #define YNBI_sbcgyre_qsr_qns 1 168 /*M2_IRMOD */ #define Ysbcgyre_qsr_qns(i, j) Ysbcgyre_qsr_qns[i][j] 169 /*M2_NOWMOD */ #define Ysbcgyre_qsr_qnsY Ysbcgyre_qsr_qns[Yi][Yj] 170 /*M2_VALST */ #define Ystate_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns[i][j]->Ystate[t][v] 171 /*M2_VALST */ #define YS_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns[i][j]->Ystate[t][v] 172 /*M2_VALSIT */ #define YS1_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns[i][j]->Ystate[t][0] 173 /*M2_HERESIT*/ #define YS1Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns[Yi][Yj]->Ystate[YTemps][0] 174 /*M2_VALSIT */ #define YS2_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns[i][j]->Ystate[t][1] 175 /*M2_HERESIT*/ #define YS2Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns[Yi][Yj]->Ystate[YTemps][1] 176 /*M2_VALST */ #define Ygrad_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns[i][j]->Ygrad[t][v] 177 /*M2_VALST */ #define YG_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns[i][j]->Ygrad[t][v] 178 /*M2_VALSIT */ #define YG1_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns[i][j]->Ygrad[t][0] 179 /*M2_HERESIT*/ #define YG1Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns[Yi][Yj]->Ygrad[YTemps][0] 180 /*M2_VALSIT */ #define YG2_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns[i][j]->Ygrad[t][1] 181 /*M2_HERESIT*/ #define YG2Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns[Yi][Yj]->Ygrad[YTemps][1] 182 sbcgyre_qsr_qns *Ysbcgyre_qsr_qns[YA1_S3dt][YA2_S3dt]; 168 /*M2_VALST */ #define Ystate_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns->Ystate[t][i][j][v] 169 /*M2_VALST */ #define YS_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns->Ystate[t][i][j][v] 170 /*M2_VALSIT */ #define YS1_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns->Ystate[t][i][j][0] 171 /*M2_HERESIT*/ #define YS1Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns->Ystate[YTemps][Yi][Yj][0] 172 /*M2_VALSIT */ #define YS2_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns->Ystate[t][i][j][1] 173 /*M2_HERESIT*/ #define YS2Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns->Ystate[YTemps][Yi][Yj][1] 174 /*M2_VALST */ #define Ygrad_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns->Ygrad[t][i][j][v] 175 /*M2_VALST */ #define YG_sbcgyre_qsr_qns(v, i, j, t) Ysbcgyre_qsr_qns->Ygrad[t][i][j][v] 176 /*M2_VALSIT */ #define YG1_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns->Ygrad[t][i][j][0] 177 /*M2_HERESIT*/ #define YG1Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns->Ygrad[YTemps][Yi][Yj][0] 178 /*M2_VALSIT */ #define YG2_sbcgyre_qsr_qns(i, j, t) Ysbcgyre_qsr_qns->Ygrad[t][i][j][1] 179 /*M2_HERESIT*/ #define YG2Y_sbcgyre_qsr_qns Ysbcgyre_qsr_qns->Ygrad[YTemps][Yi][Yj][1] 180 sbcgyre_qsr_qns *Ysbcgyre_qsr_qns; 183 181 184 182 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emp1~~~~~~~~~~~~~~~~~~~~~~~~~ … … 189 187 /*NBMOD */ #define YNB_sbcgyre_emp1 704 190 188 /*NBSMOD */ #define YNBS_sbcgyre_emp1 1 191 /*M2_IRMOD */ #define Ysbcgyre_emp1(i, j) Ysbcgyre_emp1[i][j] 192 /*M2_NOWMOD */ #define Ysbcgyre_emp1Y Ysbcgyre_emp1[Yi][Yj] 193 /*M2_VALST */ #define Ystate_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1[i][j]->Ystate[t][v] 194 /*M2_VALST */ #define YS_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1[i][j]->Ystate[t][v] 195 /*M2_VALSIT */ #define YS1_sbcgyre_emp1(i, j, t) Ysbcgyre_emp1[i][j]->Ystate[t][0] 196 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emp1 Ysbcgyre_emp1[Yi][Yj]->Ystate[YTemps][0] 197 /*M2_VALST */ #define Ygrad_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1[i][j]->Ygrad[t][v] 198 /*M2_VALST */ #define YG_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1[i][j]->Ygrad[t][v] 199 /*M2_VALSIT */ #define YG1_sbcgyre_emp1(i, j, t) Ysbcgyre_emp1[i][j]->Ygrad[t][0] 200 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emp1 Ysbcgyre_emp1[Yi][Yj]->Ygrad[YTemps][0] 201 sbcgyre_emp1 *Ysbcgyre_emp1[YA1_S3dt][YA2_S3dt]; 189 /*M2_VALST */ #define Ystate_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1->Ystate[t][i][j][v] 190 /*M2_VALST */ #define YS_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1->Ystate[t][i][j][v] 191 /*M2_VALSIT */ #define YS1_sbcgyre_emp1(i, j, t) Ysbcgyre_emp1->Ystate[t][i][j][0] 192 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emp1 Ysbcgyre_emp1->Ystate[YTemps][Yi][Yj][0] 193 /*M2_VALST */ #define Ygrad_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1->Ygrad[t][i][j][v] 194 /*M2_VALST */ #define YG_sbcgyre_emp1(v, i, j, t) Ysbcgyre_emp1->Ygrad[t][i][j][v] 195 /*M2_VALSIT */ #define YG1_sbcgyre_emp1(i, j, t) Ysbcgyre_emp1->Ygrad[t][i][j][0] 196 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emp1 Ysbcgyre_emp1->Ygrad[YTemps][Yi][Yj][0] 197 sbcgyre_emp1 *Ysbcgyre_emp1; 202 198 203 199 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_zsumemp_zsurf~~~~~~~~~~~~~~~~~~~~~~~~~ … … 209 205 /*NBSMOD */ #define YNBS_sbcgyre_zsumemp_zsurf 2 210 206 /*NBIMOD */ #define YNBI_sbcgyre_zsumemp_zsurf 5 211 /*M2_IRMOD */ #define Ysbcgyre_zsumemp_zsurf(i, j) Ysbcgyre_zsumemp_zsurf[i][j] 212 /*M2_NOWMOD */ #define Ysbcgyre_zsumemp_zsurfY Ysbcgyre_zsumemp_zsurf[Yi][Yj] 213 /*M2_VALST */ #define Ystate_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][v] 214 /*M2_VALST */ #define YS_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][v] 215 /*M2_VALSIT */ #define YS1_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][0] 216 /*M2_HERESIT*/ #define YS1Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ystate[YTemps][0] 217 /*M2_VALSIT */ #define YS2_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ystate[t][1] 218 /*M2_HERESIT*/ #define YS2Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ystate[YTemps][1] 219 /*M2_VALST */ #define Ygrad_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][v] 220 /*M2_VALST */ #define YG_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][v] 221 /*M2_VALSIT */ #define YG1_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][0] 222 /*M2_HERESIT*/ #define YG1Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ygrad[YTemps][0] 223 /*M2_VALSIT */ #define YG2_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf[i][j]->Ygrad[t][1] 224 /*M2_HERESIT*/ #define YG2Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf[Yi][Yj]->Ygrad[YTemps][1] 225 sbcgyre_zsumemp_zsurf *Ysbcgyre_zsumemp_zsurf[YA1_S3dt][YA2_S3dt]; 207 /*M2_VALST */ #define Ystate_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][v] 208 /*M2_VALST */ #define YS_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][v] 209 /*M2_VALSIT */ #define YS1_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][0] 210 /*M2_HERESIT*/ #define YS1Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf->Ystate[YTemps][Yi][Yj][0] 211 /*M2_VALSIT */ #define YS2_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf->Ystate[t][i][j][1] 212 /*M2_HERESIT*/ #define YS2Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf->Ystate[YTemps][Yi][Yj][1] 213 /*M2_VALST */ #define Ygrad_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][v] 214 /*M2_VALST */ #define YG_sbcgyre_zsumemp_zsurf(v, i, j, t) Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][v] 215 /*M2_VALSIT */ #define YG1_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][0] 216 /*M2_HERESIT*/ #define YG1Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf->Ygrad[YTemps][Yi][Yj][0] 217 /*M2_VALSIT */ #define YG2_sbcgyre_zsumemp_zsurf(i, j, t) Ysbcgyre_zsumemp_zsurf->Ygrad[t][i][j][1] 218 /*M2_HERESIT*/ #define YG2Y_sbcgyre_zsumemp_zsurf Ysbcgyre_zsumemp_zsurf->Ygrad[YTemps][Yi][Yj][1] 219 sbcgyre_zsumemp_zsurf *Ysbcgyre_zsumemp_zsurf; 226 220 227 221 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 233 227 /*NBSMOD */ #define YNBS_sbcgyre_emp 1 234 228 /*NBIMOD */ #define YNBI_sbcgyre_emp 3 235 /*M2_IRMOD */ #define Ysbcgyre_emp(i, j) Ysbcgyre_emp[i][j] 236 /*M2_NOWMOD */ #define Ysbcgyre_empY Ysbcgyre_emp[Yi][Yj] 237 /*M2_VALST */ #define Ystate_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp[i][j]->Ystate[t][v] 238 /*M2_VALST */ #define YS_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp[i][j]->Ystate[t][v] 239 /*M2_VALSIT */ #define YS1_sbcgyre_emp(i, j, t) Ysbcgyre_emp[i][j]->Ystate[t][0] 240 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emp Ysbcgyre_emp[Yi][Yj]->Ystate[YTemps][0] 241 /*M2_VALST */ #define Ygrad_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp[i][j]->Ygrad[t][v] 242 /*M2_VALST */ #define YG_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp[i][j]->Ygrad[t][v] 243 /*M2_VALSIT */ #define YG1_sbcgyre_emp(i, j, t) Ysbcgyre_emp[i][j]->Ygrad[t][0] 244 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emp Ysbcgyre_emp[Yi][Yj]->Ygrad[YTemps][0] 245 sbcgyre_emp *Ysbcgyre_emp[YA1_S3dt][YA2_S3dt]; 229 /*M2_VALST */ #define Ystate_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp->Ystate[t][i][j][v] 230 /*M2_VALST */ #define YS_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp->Ystate[t][i][j][v] 231 /*M2_VALSIT */ #define YS1_sbcgyre_emp(i, j, t) Ysbcgyre_emp->Ystate[t][i][j][0] 232 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emp Ysbcgyre_emp->Ystate[YTemps][Yi][Yj][0] 233 /*M2_VALST */ #define Ygrad_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp->Ygrad[t][i][j][v] 234 /*M2_VALST */ #define YG_sbcgyre_emp(v, i, j, t) Ysbcgyre_emp->Ygrad[t][i][j][v] 235 /*M2_VALSIT */ #define YG1_sbcgyre_emp(i, j, t) Ysbcgyre_emp->Ygrad[t][i][j][0] 236 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emp Ysbcgyre_emp->Ygrad[YTemps][Yi][Yj][0] 237 sbcgyre_emp *Ysbcgyre_emp; 246 238 247 239 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_emps~~~~~~~~~~~~~~~~~~~~~~~~~ … … 253 245 /*NBSMOD */ #define YNBS_sbcgyre_emps 1 254 246 /*NBIMOD */ #define YNBI_sbcgyre_emps 1 255 /*M2_IRMOD */ #define Ysbcgyre_emps(i, j) Ysbcgyre_emps[i][j] 256 /*M2_NOWMOD */ #define Ysbcgyre_empsY Ysbcgyre_emps[Yi][Yj] 257 /*M2_VALST */ #define Ystate_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps[i][j]->Ystate[t][v] 258 /*M2_VALST */ #define YS_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps[i][j]->Ystate[t][v] 259 /*M2_VALSIT */ #define YS1_sbcgyre_emps(i, j, t) Ysbcgyre_emps[i][j]->Ystate[t][0] 260 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emps Ysbcgyre_emps[Yi][Yj]->Ystate[YTemps][0] 261 /*M2_VALST */ #define Ygrad_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps[i][j]->Ygrad[t][v] 262 /*M2_VALST */ #define YG_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps[i][j]->Ygrad[t][v] 263 /*M2_VALSIT */ #define YG1_sbcgyre_emps(i, j, t) Ysbcgyre_emps[i][j]->Ygrad[t][0] 264 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emps Ysbcgyre_emps[Yi][Yj]->Ygrad[YTemps][0] 265 sbcgyre_emps *Ysbcgyre_emps[YA1_S3dt][YA2_S3dt]; 247 /*M2_VALST */ #define Ystate_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps->Ystate[t][i][j][v] 248 /*M2_VALST */ #define YS_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps->Ystate[t][i][j][v] 249 /*M2_VALSIT */ #define YS1_sbcgyre_emps(i, j, t) Ysbcgyre_emps->Ystate[t][i][j][0] 250 /*M2_HERESIT*/ #define YS1Y_sbcgyre_emps Ysbcgyre_emps->Ystate[YTemps][Yi][Yj][0] 251 /*M2_VALST */ #define Ygrad_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps->Ygrad[t][i][j][v] 252 /*M2_VALST */ #define YG_sbcgyre_emps(v, i, j, t) Ysbcgyre_emps->Ygrad[t][i][j][v] 253 /*M2_VALSIT */ #define YG1_sbcgyre_emps(i, j, t) Ysbcgyre_emps->Ygrad[t][i][j][0] 254 /*M2_HERESIT*/ #define YG1Y_sbcgyre_emps Ysbcgyre_emps->Ygrad[YTemps][Yi][Yj][0] 255 sbcgyre_emps *Ysbcgyre_emps; 266 256 267 257 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_utau_vtau~~~~~~~~~~~~~~~~~~~~~~~~~ … … 272 262 /*NBMOD */ #define YNB_sbcgyre_utau_vtau 704 273 263 /*NBSMOD */ #define YNBS_sbcgyre_utau_vtau 2 274 /*M2_IRMOD */ #define Ysbcgyre_utau_vtau(i, j) Ysbcgyre_utau_vtau[i][j] 275 /*M2_NOWMOD */ #define Ysbcgyre_utau_vtauY Ysbcgyre_utau_vtau[Yi][Yj] 276 /*M2_VALST */ #define Ystate_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau[i][j]->Ystate[t][v] 277 /*M2_VALST */ #define YS_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau[i][j]->Ystate[t][v] 278 /*M2_VALSIT */ #define YS1_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau[i][j]->Ystate[t][0] 279 /*M2_HERESIT*/ #define YS1Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau[Yi][Yj]->Ystate[YTemps][0] 280 /*M2_VALSIT */ #define YS2_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau[i][j]->Ystate[t][1] 281 /*M2_HERESIT*/ #define YS2Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau[Yi][Yj]->Ystate[YTemps][1] 282 /*M2_VALST */ #define Ygrad_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau[i][j]->Ygrad[t][v] 283 /*M2_VALST */ #define YG_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau[i][j]->Ygrad[t][v] 284 /*M2_VALSIT */ #define YG1_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau[i][j]->Ygrad[t][0] 285 /*M2_HERESIT*/ #define YG1Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau[Yi][Yj]->Ygrad[YTemps][0] 286 /*M2_VALSIT */ #define YG2_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau[i][j]->Ygrad[t][1] 287 /*M2_HERESIT*/ #define YG2Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau[Yi][Yj]->Ygrad[YTemps][1] 288 sbcgyre_utau_vtau *Ysbcgyre_utau_vtau[YA1_S3dt][YA2_S3dt]; 264 /*M2_VALST */ #define Ystate_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau->Ystate[t][i][j][v] 265 /*M2_VALST */ #define YS_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau->Ystate[t][i][j][v] 266 /*M2_VALSIT */ #define YS1_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau->Ystate[t][i][j][0] 267 /*M2_HERESIT*/ #define YS1Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau->Ystate[YTemps][Yi][Yj][0] 268 /*M2_VALSIT */ #define YS2_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau->Ystate[t][i][j][1] 269 /*M2_HERESIT*/ #define YS2Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau->Ystate[YTemps][Yi][Yj][1] 270 /*M2_VALST */ #define Ygrad_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau->Ygrad[t][i][j][v] 271 /*M2_VALST */ #define YG_sbcgyre_utau_vtau(v, i, j, t) Ysbcgyre_utau_vtau->Ygrad[t][i][j][v] 272 /*M2_VALSIT */ #define YG1_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau->Ygrad[t][i][j][0] 273 /*M2_HERESIT*/ #define YG1Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau->Ygrad[YTemps][Yi][Yj][0] 274 /*M2_VALSIT */ #define YG2_sbcgyre_utau_vtau(i, j, t) Ysbcgyre_utau_vtau->Ygrad[t][i][j][1] 275 /*M2_HERESIT*/ #define YG2Y_sbcgyre_utau_vtau Ysbcgyre_utau_vtau->Ygrad[YTemps][Yi][Yj][1] 276 sbcgyre_utau_vtau *Ysbcgyre_utau_vtau; 289 277 290 278 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sbcgyre_wndm~~~~~~~~~~~~~~~~~~~~~~~~~ … … 296 284 /*NBSMOD */ #define YNBS_sbcgyre_wndm 1 297 285 /*NBIMOD */ #define YNBI_sbcgyre_wndm 4 298 /*M2_IRMOD */ #define Ysbcgyre_wndm(i, j) Ysbcgyre_wndm[i][j] 299 /*M2_NOWMOD */ #define Ysbcgyre_wndmY Ysbcgyre_wndm[Yi][Yj] 300 /*M2_VALST */ #define Ystate_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm[i][j]->Ystate[t][v] 301 /*M2_VALST */ #define YS_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm[i][j]->Ystate[t][v] 302 /*M2_VALSIT */ #define YS1_sbcgyre_wndm(i, j, t) Ysbcgyre_wndm[i][j]->Ystate[t][0] 303 /*M2_HERESIT*/ #define YS1Y_sbcgyre_wndm Ysbcgyre_wndm[Yi][Yj]->Ystate[YTemps][0] 304 /*M2_VALST */ #define Ygrad_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm[i][j]->Ygrad[t][v] 305 /*M2_VALST */ #define YG_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm[i][j]->Ygrad[t][v] 306 /*M2_VALSIT */ #define YG1_sbcgyre_wndm(i, j, t) Ysbcgyre_wndm[i][j]->Ygrad[t][0] 307 /*M2_HERESIT*/ #define YG1Y_sbcgyre_wndm Ysbcgyre_wndm[Yi][Yj]->Ygrad[YTemps][0] 308 sbcgyre_wndm *Ysbcgyre_wndm[YA1_S3dt][YA2_S3dt]; 286 /*M2_VALST */ #define Ystate_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm->Ystate[t][i][j][v] 287 /*M2_VALST */ #define YS_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm->Ystate[t][i][j][v] 288 /*M2_VALSIT */ #define YS1_sbcgyre_wndm(i, j, t) Ysbcgyre_wndm->Ystate[t][i][j][0] 289 /*M2_HERESIT*/ #define YS1Y_sbcgyre_wndm Ysbcgyre_wndm->Ystate[YTemps][Yi][Yj][0] 290 /*M2_VALST */ #define Ygrad_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm->Ygrad[t][i][j][v] 291 /*M2_VALST */ #define YG_sbcgyre_wndm(v, i, j, t) Ysbcgyre_wndm->Ygrad[t][i][j][v] 292 /*M2_VALSIT */ #define YG1_sbcgyre_wndm(i, j, t) Ysbcgyre_wndm->Ygrad[t][i][j][0] 293 /*M2_HERESIT*/ #define YG1Y_sbcgyre_wndm Ysbcgyre_wndm->Ygrad[YTemps][Yi][Yj][0] 294 sbcgyre_wndm *Ysbcgyre_wndm; 309 295 310 296 //~~~~~~~~~~~~~~~~~~~~~~~~~ module bn2_rn2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 315 301 /*NBSMOD */ #define YNBS_bn2_rn2 1 316 302 /*NBIMOD */ #define YNBI_bn2_rn2 4 317 /*M3_IRMOD */ #define Ybn2_rn2(i, j, k) Ybn2_rn2[i][j][k] 318 /*M3_NOWMOD */ #define Ybn2_rn2Y Ybn2_rn2[Yi][Yj][Yk] 319 /*M3_VALST */ #define Ystate_bn2_rn2(v, i, j, k, t) Ybn2_rn2[i][j][k]->Ystate[t][v] 320 /*M3_VALST */ #define YS_bn2_rn2(v, i, j, k, t) Ybn2_rn2[i][j][k]->Ystate[t][v] 321 /*M3_VALSIT */ #define YS1_bn2_rn2(i, j, k, t) Ybn2_rn2[i][j][k]->Ystate[t][0] 322 /*M3_HERESIT*/ #define YS1Y_bn2_rn2 Ybn2_rn2[Yi][Yj][Yk]->Ystate[YTemps][0] 323 /*M3_VALST */ #define Ygrad_bn2_rn2(v, i, j, k, t) Ybn2_rn2[i][j][k]->Ygrad[t][v] 324 /*M3_VALST */ #define YG_bn2_rn2(v, i, j, k, t) Ybn2_rn2[i][j][k]->Ygrad[t][v] 325 /*M3_VALSIT */ #define YG1_bn2_rn2(i, j, k, t) Ybn2_rn2[i][j][k]->Ygrad[t][0] 326 /*M3_HERESIT*/ #define YG1Y_bn2_rn2 Ybn2_rn2[Yi][Yj][Yk]->Ygrad[YTemps][0] 327 bn2_rn2 *Ybn2_rn2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 303 /*M3_VALST */ #define Ystate_bn2_rn2(v, i, j, k, t) Ybn2_rn2->Ystate[t][i][j][k][v] 304 /*M3_VALST */ #define YS_bn2_rn2(v, i, j, k, t) Ybn2_rn2->Ystate[t][i][j][k][v] 305 /*M3_VALSIT */ #define YS1_bn2_rn2(i, j, k, t) Ybn2_rn2->Ystate[t][i][j][k][0] 306 /*M3_HERESIT*/ #define YS1Y_bn2_rn2 Ybn2_rn2->Ystate[YTemps][Yi][Yj][Yk][0] 307 /*M3_VALST */ #define Ygrad_bn2_rn2(v, i, j, k, t) Ybn2_rn2->Ygrad[t][i][j][k][v] 308 /*M3_VALST */ #define YG_bn2_rn2(v, i, j, k, t) Ybn2_rn2->Ygrad[t][i][j][k][v] 309 /*M3_VALSIT */ #define YG1_bn2_rn2(i, j, k, t) Ybn2_rn2->Ygrad[t][i][j][k][0] 310 /*M3_HERESIT*/ #define YG1Y_bn2_rn2 Ybn2_rn2->Ygrad[YTemps][Yi][Yj][Yk][0] 311 bn2_rn2 *Ybn2_rn2; 328 312 329 313 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zdf_avt_avmu_avmv~~~~~~~~~~~~~~~~~~~~~~~~~ … … 334 318 /*NBSMOD */ #define YNBS_zdf_avt_avmu_avmv 3 335 319 /*NBIMOD */ #define YNBI_zdf_avt_avmu_avmv 19 336 /*M3_IRMOD */ #define Yzdf_avt_avmu_avmv(i, j, k) Yzdf_avt_avmu_avmv[i][j][k] 337 /*M3_NOWMOD */ #define Yzdf_avt_avmu_avmvY Yzdf_avt_avmu_avmv[Yi][Yj][Yk] 338 /*M3_VALST */ #define Ystate_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][v] 339 /*M3_VALST */ #define YS_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][v] 340 /*M3_VALSIT */ #define YS1_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][0] 341 /*M3_HERESIT*/ #define YS1Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ystate[YTemps][0] 342 /*M3_VALSIT */ #define YS2_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][1] 343 /*M3_HERESIT*/ #define YS2Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ystate[YTemps][1] 344 /*M3_VALSIT */ #define YS3_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ystate[t][2] 345 /*M3_HERESIT*/ #define YS3Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ystate[YTemps][2] 346 /*M3_VALST */ #define Ygrad_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][v] 347 /*M3_VALST */ #define YG_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][v] 348 /*M3_VALSIT */ #define YG1_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][0] 349 /*M3_HERESIT*/ #define YG1Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ygrad[YTemps][0] 350 /*M3_VALSIT */ #define YG2_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][1] 351 /*M3_HERESIT*/ #define YG2Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ygrad[YTemps][1] 352 /*M3_VALSIT */ #define YG3_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv[i][j][k]->Ygrad[t][2] 353 /*M3_HERESIT*/ #define YG3Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv[Yi][Yj][Yk]->Ygrad[YTemps][2] 354 zdf_avt_avmu_avmv *Yzdf_avt_avmu_avmv[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 320 /*M3_VALST */ #define Ystate_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][v] 321 /*M3_VALST */ #define YS_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][v] 322 /*M3_VALSIT */ #define YS1_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][0] 323 /*M3_HERESIT*/ #define YS1Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ystate[YTemps][Yi][Yj][Yk][0] 324 /*M3_VALSIT */ #define YS2_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][1] 325 /*M3_HERESIT*/ #define YS2Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ystate[YTemps][Yi][Yj][Yk][1] 326 /*M3_VALSIT */ #define YS3_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ystate[t][i][j][k][2] 327 /*M3_HERESIT*/ #define YS3Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ystate[YTemps][Yi][Yj][Yk][2] 328 /*M3_VALST */ #define Ygrad_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][v] 329 /*M3_VALST */ #define YG_zdf_avt_avmu_avmv(v, i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][v] 330 /*M3_VALSIT */ #define YG1_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][0] 331 /*M3_HERESIT*/ #define YG1Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ygrad[YTemps][Yi][Yj][Yk][0] 332 /*M3_VALSIT */ #define YG2_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][1] 333 /*M3_HERESIT*/ #define YG2Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ygrad[YTemps][Yi][Yj][Yk][1] 334 /*M3_VALSIT */ #define YG3_zdf_avt_avmu_avmv(i, j, k, t) Yzdf_avt_avmu_avmv->Ygrad[t][i][j][k][2] 335 /*M3_HERESIT*/ #define YG3Y_zdf_avt_avmu_avmv Yzdf_avt_avmu_avmv->Ygrad[YTemps][Yi][Yj][Yk][2] 336 zdf_avt_avmu_avmv *Yzdf_avt_avmu_avmv; 355 337 356 338 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zdfmxl_hmld~~~~~~~~~~~~~~~~~~~~~~~~~ … … 362 344 /*NBSMOD */ #define YNBS_zdfmxl_hmld 1 363 345 /*NBIMOD */ #define YNBI_zdfmxl_hmld 31 364 /*M2_IRMOD */ #define Yzdfmxl_hmld(i, j) Yzdfmxl_hmld[i][j] 365 /*M2_NOWMOD */ #define Yzdfmxl_hmldY Yzdfmxl_hmld[Yi][Yj] 366 /*M2_VALST */ #define Ystate_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld[i][j]->Ystate[t][v] 367 /*M2_VALST */ #define YS_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld[i][j]->Ystate[t][v] 368 /*M2_VALSIT */ #define YS1_zdfmxl_hmld(i, j, t) Yzdfmxl_hmld[i][j]->Ystate[t][0] 369 /*M2_HERESIT*/ #define YS1Y_zdfmxl_hmld Yzdfmxl_hmld[Yi][Yj]->Ystate[YTemps][0] 370 /*M2_VALST */ #define Ygrad_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld[i][j]->Ygrad[t][v] 371 /*M2_VALST */ #define YG_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld[i][j]->Ygrad[t][v] 372 /*M2_VALSIT */ #define YG1_zdfmxl_hmld(i, j, t) Yzdfmxl_hmld[i][j]->Ygrad[t][0] 373 /*M2_HERESIT*/ #define YG1Y_zdfmxl_hmld Yzdfmxl_hmld[Yi][Yj]->Ygrad[YTemps][0] 374 zdfmxl_hmld *Yzdfmxl_hmld[YA1_S3dt][YA2_S3dt]; 346 /*M2_VALST */ #define Ystate_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld->Ystate[t][i][j][v] 347 /*M2_VALST */ #define YS_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld->Ystate[t][i][j][v] 348 /*M2_VALSIT */ #define YS1_zdfmxl_hmld(i, j, t) Yzdfmxl_hmld->Ystate[t][i][j][0] 349 /*M2_HERESIT*/ #define YS1Y_zdfmxl_hmld Yzdfmxl_hmld->Ystate[YTemps][Yi][Yj][0] 350 /*M2_VALST */ #define Ygrad_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld->Ygrad[t][i][j][v] 351 /*M2_VALST */ #define YG_zdfmxl_hmld(v, i, j, t) Yzdfmxl_hmld->Ygrad[t][i][j][v] 352 /*M2_VALSIT */ #define YG1_zdfmxl_hmld(i, j, t) Yzdfmxl_hmld->Ygrad[t][i][j][0] 353 /*M2_HERESIT*/ #define YG1Y_zdfmxl_hmld Yzdfmxl_hmld->Ygrad[YTemps][Yi][Yj][0] 354 zdfmxl_hmld *Yzdfmxl_hmld; 375 355 376 356 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zdfmxl_nmln_hmlp_hmlpt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 382 362 /*NBSMOD */ #define YNBS_zdfmxl_nmln_hmlp_hmlpt 3 383 363 /*NBIMOD */ #define YNBI_zdfmxl_nmln_hmlp_hmlpt 31 384 /*M2_IRMOD */ #define Yzdfmxl_nmln_hmlp_hmlpt(i, j) Yzdfmxl_nmln_hmlp_hmlpt[i][j] 385 /*M2_NOWMOD */ #define Yzdfmxl_nmln_hmlp_hmlptY Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj] 386 /*M2_VALST */ #define Ystate_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][v] 387 /*M2_VALST */ #define YS_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][v] 388 /*M2_VALSIT */ #define YS1_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][0] 389 /*M2_HERESIT*/ #define YS1Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ystate[YTemps][0] 390 /*M2_VALSIT */ #define YS2_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][1] 391 /*M2_HERESIT*/ #define YS2Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ystate[YTemps][1] 392 /*M2_VALSIT */ #define YS3_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ystate[t][2] 393 /*M2_HERESIT*/ #define YS3Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ystate[YTemps][2] 394 /*M2_VALST */ #define Ygrad_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][v] 395 /*M2_VALST */ #define YG_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][v] 396 /*M2_VALSIT */ #define YG1_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][0] 397 /*M2_HERESIT*/ #define YG1Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ygrad[YTemps][0] 398 /*M2_VALSIT */ #define YG2_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][1] 399 /*M2_HERESIT*/ #define YG2Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ygrad[YTemps][1] 400 /*M2_VALSIT */ #define YG3_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt[i][j]->Ygrad[t][2] 401 /*M2_HERESIT*/ #define YG3Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt[Yi][Yj]->Ygrad[YTemps][2] 402 zdfmxl_nmln_hmlp_hmlpt *Yzdfmxl_nmln_hmlp_hmlpt[YA1_S3dt][YA2_S3dt]; 364 /*M2_VALST */ #define Ystate_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][v] 365 /*M2_VALST */ #define YS_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][v] 366 /*M2_VALSIT */ #define YS1_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][0] 367 /*M2_HERESIT*/ #define YS1Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ystate[YTemps][Yi][Yj][0] 368 /*M2_VALSIT */ #define YS2_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][1] 369 /*M2_HERESIT*/ #define YS2Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ystate[YTemps][Yi][Yj][1] 370 /*M2_VALSIT */ #define YS3_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ystate[t][i][j][2] 371 /*M2_HERESIT*/ #define YS3Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ystate[YTemps][Yi][Yj][2] 372 /*M2_VALST */ #define Ygrad_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][v] 373 /*M2_VALST */ #define YG_zdfmxl_nmln_hmlp_hmlpt(v, i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][v] 374 /*M2_VALSIT */ #define YG1_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][0] 375 /*M2_HERESIT*/ #define YG1Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[YTemps][Yi][Yj][0] 376 /*M2_VALSIT */ #define YG2_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][1] 377 /*M2_HERESIT*/ #define YG2Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[YTemps][Yi][Yj][1] 378 /*M2_VALSIT */ #define YG3_zdfmxl_nmln_hmlp_hmlpt(i, j, t) Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[t][i][j][2] 379 /*M2_HERESIT*/ #define YG3Y_zdfmxl_nmln_hmlp_hmlpt Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[YTemps][Yi][Yj][2] 380 zdfmxl_nmln_hmlp_hmlpt *Yzdfmxl_nmln_hmlp_hmlpt; 403 381 404 382 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_sa_trasbc~~~~~~~~~~~~~~~~~~~~~~~~~ … … 410 388 /*NBSMOD */ #define YNBS_ta_sa_trasbc 2 411 389 /*NBIMOD */ #define YNBI_ta_sa_trasbc 3 412 /*M2_IRMOD */ #define Yta_sa_trasbc(i, j) Yta_sa_trasbc[i][j] 413 /*M2_NOWMOD */ #define Yta_sa_trasbcY Yta_sa_trasbc[Yi][Yj] 414 /*M2_VALST */ #define Ystate_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc[i][j]->Ystate[t][v] 415 /*M2_VALST */ #define YS_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc[i][j]->Ystate[t][v] 416 /*M2_VALSIT */ #define YS1_ta_sa_trasbc(i, j, t) Yta_sa_trasbc[i][j]->Ystate[t][0] 417 /*M2_HERESIT*/ #define YS1Y_ta_sa_trasbc Yta_sa_trasbc[Yi][Yj]->Ystate[YTemps][0] 418 /*M2_VALSIT */ #define YS2_ta_sa_trasbc(i, j, t) Yta_sa_trasbc[i][j]->Ystate[t][1] 419 /*M2_HERESIT*/ #define YS2Y_ta_sa_trasbc Yta_sa_trasbc[Yi][Yj]->Ystate[YTemps][1] 420 /*M2_VALST */ #define Ygrad_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc[i][j]->Ygrad[t][v] 421 /*M2_VALST */ #define YG_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc[i][j]->Ygrad[t][v] 422 /*M2_VALSIT */ #define YG1_ta_sa_trasbc(i, j, t) Yta_sa_trasbc[i][j]->Ygrad[t][0] 423 /*M2_HERESIT*/ #define YG1Y_ta_sa_trasbc Yta_sa_trasbc[Yi][Yj]->Ygrad[YTemps][0] 424 /*M2_VALSIT */ #define YG2_ta_sa_trasbc(i, j, t) Yta_sa_trasbc[i][j]->Ygrad[t][1] 425 /*M2_HERESIT*/ #define YG2Y_ta_sa_trasbc Yta_sa_trasbc[Yi][Yj]->Ygrad[YTemps][1] 426 ta_sa_trasbc *Yta_sa_trasbc[YA1_S3dt][YA2_S3dt]; 390 /*M2_VALST */ #define Ystate_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc->Ystate[t][i][j][v] 391 /*M2_VALST */ #define YS_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc->Ystate[t][i][j][v] 392 /*M2_VALSIT */ #define YS1_ta_sa_trasbc(i, j, t) Yta_sa_trasbc->Ystate[t][i][j][0] 393 /*M2_HERESIT*/ #define YS1Y_ta_sa_trasbc Yta_sa_trasbc->Ystate[YTemps][Yi][Yj][0] 394 /*M2_VALSIT */ #define YS2_ta_sa_trasbc(i, j, t) Yta_sa_trasbc->Ystate[t][i][j][1] 395 /*M2_HERESIT*/ #define YS2Y_ta_sa_trasbc Yta_sa_trasbc->Ystate[YTemps][Yi][Yj][1] 396 /*M2_VALST */ #define Ygrad_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc->Ygrad[t][i][j][v] 397 /*M2_VALST */ #define YG_ta_sa_trasbc(v, i, j, t) Yta_sa_trasbc->Ygrad[t][i][j][v] 398 /*M2_VALSIT */ #define YG1_ta_sa_trasbc(i, j, t) Yta_sa_trasbc->Ygrad[t][i][j][0] 399 /*M2_HERESIT*/ #define YG1Y_ta_sa_trasbc Yta_sa_trasbc->Ygrad[YTemps][Yi][Yj][0] 400 /*M2_VALSIT */ #define YG2_ta_sa_trasbc(i, j, t) Yta_sa_trasbc->Ygrad[t][i][j][1] 401 /*M2_HERESIT*/ #define YG2Y_ta_sa_trasbc Yta_sa_trasbc->Ygrad[YTemps][Yi][Yj][1] 402 ta_sa_trasbc *Yta_sa_trasbc; 427 403 428 404 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_traqsr~~~~~~~~~~~~~~~~~~~~~~~~~ … … 433 409 /*NBSMOD */ #define YNBS_ta_traqsr 1 434 410 /*NBIMOD */ #define YNBI_ta_traqsr 2 435 /*M3_IRMOD */ #define Yta_traqsr(i, j, k) Yta_traqsr[i][j][k] 436 /*M3_NOWMOD */ #define Yta_traqsrY Yta_traqsr[Yi][Yj][Yk] 437 /*M3_VALST */ #define Ystate_ta_traqsr(v, i, j, k, t) Yta_traqsr[i][j][k]->Ystate[t][v] 438 /*M3_VALST */ #define YS_ta_traqsr(v, i, j, k, t) Yta_traqsr[i][j][k]->Ystate[t][v] 439 /*M3_VALSIT */ #define YS1_ta_traqsr(i, j, k, t) Yta_traqsr[i][j][k]->Ystate[t][0] 440 /*M3_HERESIT*/ #define YS1Y_ta_traqsr Yta_traqsr[Yi][Yj][Yk]->Ystate[YTemps][0] 441 /*M3_VALST */ #define Ygrad_ta_traqsr(v, i, j, k, t) Yta_traqsr[i][j][k]->Ygrad[t][v] 442 /*M3_VALST */ #define YG_ta_traqsr(v, i, j, k, t) Yta_traqsr[i][j][k]->Ygrad[t][v] 443 /*M3_VALSIT */ #define YG1_ta_traqsr(i, j, k, t) Yta_traqsr[i][j][k]->Ygrad[t][0] 444 /*M3_HERESIT*/ #define YG1Y_ta_traqsr Yta_traqsr[Yi][Yj][Yk]->Ygrad[YTemps][0] 445 ta_traqsr *Yta_traqsr[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 411 /*M3_VALST */ #define Ystate_ta_traqsr(v, i, j, k, t) Yta_traqsr->Ystate[t][i][j][k][v] 412 /*M3_VALST */ #define YS_ta_traqsr(v, i, j, k, t) Yta_traqsr->Ystate[t][i][j][k][v] 413 /*M3_VALSIT */ #define YS1_ta_traqsr(i, j, k, t) Yta_traqsr->Ystate[t][i][j][k][0] 414 /*M3_HERESIT*/ #define YS1Y_ta_traqsr Yta_traqsr->Ystate[YTemps][Yi][Yj][Yk][0] 415 /*M3_VALST */ #define Ygrad_ta_traqsr(v, i, j, k, t) Yta_traqsr->Ygrad[t][i][j][k][v] 416 /*M3_VALST */ #define YG_ta_traqsr(v, i, j, k, t) Yta_traqsr->Ygrad[t][i][j][k][v] 417 /*M3_VALSIT */ #define YG1_ta_traqsr(i, j, k, t) Yta_traqsr->Ygrad[t][i][j][k][0] 418 /*M3_HERESIT*/ #define YG1Y_ta_traqsr Yta_traqsr->Ygrad[YTemps][Yi][Yj][Yk][0] 419 ta_traqsr *Yta_traqsr; 446 420 447 421 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zcent_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 452 426 /*NBSMOD */ #define YNBS_zcent_hor_traadv_cen2 2 453 427 /*NBIMOD */ #define YNBI_zcent_hor_traadv_cen2 5 454 /*M3_IRMOD */ #define Yzcent_hor_traadv_cen2(i, j, k) Yzcent_hor_traadv_cen2[i][j][k] 455 /*M3_NOWMOD */ #define Yzcent_hor_traadv_cen2Y Yzcent_hor_traadv_cen2[Yi][Yj][Yk] 456 /*M3_VALST */ #define Ystate_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][v] 457 /*M3_VALST */ #define YS_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][v] 458 /*M3_VALSIT */ #define YS1_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][0] 459 /*M3_HERESIT*/ #define YS1Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 460 /*M3_VALSIT */ #define YS2_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ystate[t][1] 461 /*M3_HERESIT*/ #define YS2Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1] 462 /*M3_VALST */ #define Ygrad_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 463 /*M3_VALST */ #define YG_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 464 /*M3_VALSIT */ #define YG1_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][0] 465 /*M3_HERESIT*/ #define YG1Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 466 /*M3_VALSIT */ #define YG2_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2[i][j][k]->Ygrad[t][1] 467 /*M3_HERESIT*/ #define YG2Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1] 468 zcent_hor_traadv_cen2 *Yzcent_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 428 /*M3_VALST */ #define Ystate_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][v] 429 /*M3_VALST */ #define YS_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][v] 430 /*M3_VALSIT */ #define YS1_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][0] 431 /*M3_HERESIT*/ #define YS1Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 432 /*M3_VALSIT */ #define YS2_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2->Ystate[t][i][j][k][1] 433 /*M3_HERESIT*/ #define YS2Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1] 434 /*M3_VALST */ #define Ygrad_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][v] 435 /*M3_VALST */ #define YG_zcent_hor_traadv_cen2(v, i, j, k, t) Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][v] 436 /*M3_VALSIT */ #define YG1_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][0] 437 /*M3_HERESIT*/ #define YG1Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 438 /*M3_VALSIT */ #define YG2_zcent_hor_traadv_cen2(i, j, k, t) Yzcent_hor_traadv_cen2->Ygrad[t][i][j][k][1] 439 /*M3_HERESIT*/ #define YG2Y_zcent_hor_traadv_cen2 Yzcent_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1] 440 zcent_hor_traadv_cen2 *Yzcent_hor_traadv_cen2; 469 441 470 442 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zcens_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 473 445 /*NBSMOD */ #define YNBS_zcens_hor_traadv_cen2 2 474 446 /*NBIMOD */ #define YNBI_zcens_hor_traadv_cen2 5 475 /*M3_IRMOD */ #define Yzcens_hor_traadv_cen2(i, j, k) Yzcens_hor_traadv_cen2[i][j][k] 476 /*M3_NOWMOD */ #define Yzcens_hor_traadv_cen2Y Yzcens_hor_traadv_cen2[Yi][Yj][Yk] 477 /*M3_VALST */ #define Ystate_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][v] 478 /*M3_VALST */ #define YS_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][v] 479 /*M3_VALSIT */ #define YS1_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][0] 480 /*M3_HERESIT*/ #define YS1Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 481 /*M3_VALSIT */ #define YS2_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ystate[t][1] 482 /*M3_HERESIT*/ #define YS2Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1] 483 /*M3_VALST */ #define Ygrad_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 484 /*M3_VALST */ #define YG_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 485 /*M3_VALSIT */ #define YG1_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][0] 486 /*M3_HERESIT*/ #define YG1Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 487 /*M3_VALSIT */ #define YG2_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2[i][j][k]->Ygrad[t][1] 488 /*M3_HERESIT*/ #define YG2Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1] 489 zcens_hor_traadv_cen2 *Yzcens_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 447 /*M3_VALST */ #define Ystate_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][v] 448 /*M3_VALST */ #define YS_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][v] 449 /*M3_VALSIT */ #define YS1_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][0] 450 /*M3_HERESIT*/ #define YS1Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 451 /*M3_VALSIT */ #define YS2_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2->Ystate[t][i][j][k][1] 452 /*M3_HERESIT*/ #define YS2Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1] 453 /*M3_VALST */ #define Ygrad_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][v] 454 /*M3_VALST */ #define YG_zcens_hor_traadv_cen2(v, i, j, k, t) Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][v] 455 /*M3_VALSIT */ #define YG1_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][0] 456 /*M3_HERESIT*/ #define YG1Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 457 /*M3_VALSIT */ #define YG2_zcens_hor_traadv_cen2(i, j, k, t) Yzcens_hor_traadv_cen2->Ygrad[t][i][j][k][1] 458 /*M3_HERESIT*/ #define YG2Y_zcens_hor_traadv_cen2 Yzcens_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1] 459 zcens_hor_traadv_cen2 *Yzcens_hor_traadv_cen2; 490 460 491 461 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 496 466 /*NBSMOD */ #define YNBS_ta_hor_traadv_cen2 1 497 467 /*NBIMOD */ #define YNBI_ta_hor_traadv_cen2 5 498 /*M3_IRMOD */ #define Yta_hor_traadv_cen2(i, j, k) Yta_hor_traadv_cen2[i][j][k] 499 /*M3_NOWMOD */ #define Yta_hor_traadv_cen2Y Yta_hor_traadv_cen2[Yi][Yj][Yk] 500 /*M3_VALST */ #define Ystate_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2[i][j][k]->Ystate[t][v] 501 /*M3_VALST */ #define YS_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2[i][j][k]->Ystate[t][v] 502 /*M3_VALSIT */ #define YS1_ta_hor_traadv_cen2(i, j, k, t) Yta_hor_traadv_cen2[i][j][k]->Ystate[t][0] 503 /*M3_HERESIT*/ #define YS1Y_ta_hor_traadv_cen2 Yta_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 504 /*M3_VALST */ #define Ygrad_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 505 /*M3_VALST */ #define YG_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 506 /*M3_VALSIT */ #define YG1_ta_hor_traadv_cen2(i, j, k, t) Yta_hor_traadv_cen2[i][j][k]->Ygrad[t][0] 507 /*M3_HERESIT*/ #define YG1Y_ta_hor_traadv_cen2 Yta_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 508 ta_hor_traadv_cen2 *Yta_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 468 /*M3_VALST */ #define Ystate_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2->Ystate[t][i][j][k][v] 469 /*M3_VALST */ #define YS_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2->Ystate[t][i][j][k][v] 470 /*M3_VALSIT */ #define YS1_ta_hor_traadv_cen2(i, j, k, t) Yta_hor_traadv_cen2->Ystate[t][i][j][k][0] 471 /*M3_HERESIT*/ #define YS1Y_ta_hor_traadv_cen2 Yta_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 472 /*M3_VALST */ #define Ygrad_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2->Ygrad[t][i][j][k][v] 473 /*M3_VALST */ #define YG_ta_hor_traadv_cen2(v, i, j, k, t) Yta_hor_traadv_cen2->Ygrad[t][i][j][k][v] 474 /*M3_VALSIT */ #define YG1_ta_hor_traadv_cen2(i, j, k, t) Yta_hor_traadv_cen2->Ygrad[t][i][j][k][0] 475 /*M3_HERESIT*/ #define YG1Y_ta_hor_traadv_cen2 Yta_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 476 ta_hor_traadv_cen2 *Yta_hor_traadv_cen2; 509 477 510 478 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_hor_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 515 483 /*NBSMOD */ #define YNBS_sa_hor_traadv_cen2 1 516 484 /*NBIMOD */ #define YNBI_sa_hor_traadv_cen2 5 517 /*M3_IRMOD */ #define Ysa_hor_traadv_cen2(i, j, k) Ysa_hor_traadv_cen2[i][j][k] 518 /*M3_NOWMOD */ #define Ysa_hor_traadv_cen2Y Ysa_hor_traadv_cen2[Yi][Yj][Yk] 519 /*M3_VALST */ #define Ystate_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2[i][j][k]->Ystate[t][v] 520 /*M3_VALST */ #define YS_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2[i][j][k]->Ystate[t][v] 521 /*M3_VALSIT */ #define YS1_sa_hor_traadv_cen2(i, j, k, t) Ysa_hor_traadv_cen2[i][j][k]->Ystate[t][0] 522 /*M3_HERESIT*/ #define YS1Y_sa_hor_traadv_cen2 Ysa_hor_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 523 /*M3_VALST */ #define Ygrad_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 524 /*M3_VALST */ #define YG_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2[i][j][k]->Ygrad[t][v] 525 /*M3_VALSIT */ #define YG1_sa_hor_traadv_cen2(i, j, k, t) Ysa_hor_traadv_cen2[i][j][k]->Ygrad[t][0] 526 /*M3_HERESIT*/ #define YG1Y_sa_hor_traadv_cen2 Ysa_hor_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 527 sa_hor_traadv_cen2 *Ysa_hor_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 485 /*M3_VALST */ #define Ystate_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2->Ystate[t][i][j][k][v] 486 /*M3_VALST */ #define YS_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2->Ystate[t][i][j][k][v] 487 /*M3_VALSIT */ #define YS1_sa_hor_traadv_cen2(i, j, k, t) Ysa_hor_traadv_cen2->Ystate[t][i][j][k][0] 488 /*M3_HERESIT*/ #define YS1Y_sa_hor_traadv_cen2 Ysa_hor_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 489 /*M3_VALST */ #define Ygrad_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2->Ygrad[t][i][j][k][v] 490 /*M3_VALST */ #define YG_sa_hor_traadv_cen2(v, i, j, k, t) Ysa_hor_traadv_cen2->Ygrad[t][i][j][k][v] 491 /*M3_VALSIT */ #define YG1_sa_hor_traadv_cen2(i, j, k, t) Ysa_hor_traadv_cen2->Ygrad[t][i][j][k][0] 492 /*M3_HERESIT*/ #define YG1Y_sa_hor_traadv_cen2 Ysa_hor_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 493 sa_hor_traadv_cen2 *Ysa_hor_traadv_cen2; 528 494 529 495 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zcent_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 534 500 /*NBSMOD */ #define YNBS_zcent_ver_traadv_cen2 1 535 501 /*NBIMOD */ #define YNBI_zcent_ver_traadv_cen2 3 536 /*M3_IRMOD */ #define Yzcent_ver_traadv_cen2(i, j, k) Yzcent_ver_traadv_cen2[i][j][k] 537 /*M3_NOWMOD */ #define Yzcent_ver_traadv_cen2Y Yzcent_ver_traadv_cen2[Yi][Yj][Yk] 538 /*M3_VALST */ #define Ystate_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2[i][j][k]->Ystate[t][v] 539 /*M3_VALST */ #define YS_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2[i][j][k]->Ystate[t][v] 540 /*M3_VALSIT */ #define YS1_zcent_ver_traadv_cen2(i, j, k, t) Yzcent_ver_traadv_cen2[i][j][k]->Ystate[t][0] 541 /*M3_HERESIT*/ #define YS1Y_zcent_ver_traadv_cen2 Yzcent_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 542 /*M3_VALST */ #define Ygrad_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 543 /*M3_VALST */ #define YG_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 544 /*M3_VALSIT */ #define YG1_zcent_ver_traadv_cen2(i, j, k, t) Yzcent_ver_traadv_cen2[i][j][k]->Ygrad[t][0] 545 /*M3_HERESIT*/ #define YG1Y_zcent_ver_traadv_cen2 Yzcent_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 546 zcent_ver_traadv_cen2 *Yzcent_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 502 /*M3_VALST */ #define Ystate_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2->Ystate[t][i][j][k][v] 503 /*M3_VALST */ #define YS_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2->Ystate[t][i][j][k][v] 504 /*M3_VALSIT */ #define YS1_zcent_ver_traadv_cen2(i, j, k, t) Yzcent_ver_traadv_cen2->Ystate[t][i][j][k][0] 505 /*M3_HERESIT*/ #define YS1Y_zcent_ver_traadv_cen2 Yzcent_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 506 /*M3_VALST */ #define Ygrad_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2->Ygrad[t][i][j][k][v] 507 /*M3_VALST */ #define YG_zcent_ver_traadv_cen2(v, i, j, k, t) Yzcent_ver_traadv_cen2->Ygrad[t][i][j][k][v] 508 /*M3_VALSIT */ #define YG1_zcent_ver_traadv_cen2(i, j, k, t) Yzcent_ver_traadv_cen2->Ygrad[t][i][j][k][0] 509 /*M3_HERESIT*/ #define YG1Y_zcent_ver_traadv_cen2 Yzcent_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 510 zcent_ver_traadv_cen2 *Yzcent_ver_traadv_cen2; 547 511 548 512 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zcens_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 551 515 /*NBSMOD */ #define YNBS_zcens_ver_traadv_cen2 1 552 516 /*NBIMOD */ #define YNBI_zcens_ver_traadv_cen2 3 553 /*M3_IRMOD */ #define Yzcens_ver_traadv_cen2(i, j, k) Yzcens_ver_traadv_cen2[i][j][k] 554 /*M3_NOWMOD */ #define Yzcens_ver_traadv_cen2Y Yzcens_ver_traadv_cen2[Yi][Yj][Yk] 555 /*M3_VALST */ #define Ystate_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2[i][j][k]->Ystate[t][v] 556 /*M3_VALST */ #define YS_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2[i][j][k]->Ystate[t][v] 557 /*M3_VALSIT */ #define YS1_zcens_ver_traadv_cen2(i, j, k, t) Yzcens_ver_traadv_cen2[i][j][k]->Ystate[t][0] 558 /*M3_HERESIT*/ #define YS1Y_zcens_ver_traadv_cen2 Yzcens_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 559 /*M3_VALST */ #define Ygrad_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 560 /*M3_VALST */ #define YG_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 561 /*M3_VALSIT */ #define YG1_zcens_ver_traadv_cen2(i, j, k, t) Yzcens_ver_traadv_cen2[i][j][k]->Ygrad[t][0] 562 /*M3_HERESIT*/ #define YG1Y_zcens_ver_traadv_cen2 Yzcens_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 563 zcens_ver_traadv_cen2 *Yzcens_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 517 /*M3_VALST */ #define Ystate_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2->Ystate[t][i][j][k][v] 518 /*M3_VALST */ #define YS_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2->Ystate[t][i][j][k][v] 519 /*M3_VALSIT */ #define YS1_zcens_ver_traadv_cen2(i, j, k, t) Yzcens_ver_traadv_cen2->Ystate[t][i][j][k][0] 520 /*M3_HERESIT*/ #define YS1Y_zcens_ver_traadv_cen2 Yzcens_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 521 /*M3_VALST */ #define Ygrad_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2->Ygrad[t][i][j][k][v] 522 /*M3_VALST */ #define YG_zcens_ver_traadv_cen2(v, i, j, k, t) Yzcens_ver_traadv_cen2->Ygrad[t][i][j][k][v] 523 /*M3_VALSIT */ #define YG1_zcens_ver_traadv_cen2(i, j, k, t) Yzcens_ver_traadv_cen2->Ygrad[t][i][j][k][0] 524 /*M3_HERESIT*/ #define YG1Y_zcens_ver_traadv_cen2 Yzcens_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 525 zcens_ver_traadv_cen2 *Yzcens_ver_traadv_cen2; 564 526 565 527 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 570 532 /*NBSMOD */ #define YNBS_ta_ver_traadv_cen2 1 571 533 /*NBIMOD */ #define YNBI_ta_ver_traadv_cen2 3 572 /*M3_IRMOD */ #define Yta_ver_traadv_cen2(i, j, k) Yta_ver_traadv_cen2[i][j][k] 573 /*M3_NOWMOD */ #define Yta_ver_traadv_cen2Y Yta_ver_traadv_cen2[Yi][Yj][Yk] 574 /*M3_VALST */ #define Ystate_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2[i][j][k]->Ystate[t][v] 575 /*M3_VALST */ #define YS_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2[i][j][k]->Ystate[t][v] 576 /*M3_VALSIT */ #define YS1_ta_ver_traadv_cen2(i, j, k, t) Yta_ver_traadv_cen2[i][j][k]->Ystate[t][0] 577 /*M3_HERESIT*/ #define YS1Y_ta_ver_traadv_cen2 Yta_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 578 /*M3_VALST */ #define Ygrad_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 579 /*M3_VALST */ #define YG_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 580 /*M3_VALSIT */ #define YG1_ta_ver_traadv_cen2(i, j, k, t) Yta_ver_traadv_cen2[i][j][k]->Ygrad[t][0] 581 /*M3_HERESIT*/ #define YG1Y_ta_ver_traadv_cen2 Yta_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 582 ta_ver_traadv_cen2 *Yta_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 534 /*M3_VALST */ #define Ystate_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2->Ystate[t][i][j][k][v] 535 /*M3_VALST */ #define YS_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2->Ystate[t][i][j][k][v] 536 /*M3_VALSIT */ #define YS1_ta_ver_traadv_cen2(i, j, k, t) Yta_ver_traadv_cen2->Ystate[t][i][j][k][0] 537 /*M3_HERESIT*/ #define YS1Y_ta_ver_traadv_cen2 Yta_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 538 /*M3_VALST */ #define Ygrad_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2->Ygrad[t][i][j][k][v] 539 /*M3_VALST */ #define YG_ta_ver_traadv_cen2(v, i, j, k, t) Yta_ver_traadv_cen2->Ygrad[t][i][j][k][v] 540 /*M3_VALSIT */ #define YG1_ta_ver_traadv_cen2(i, j, k, t) Yta_ver_traadv_cen2->Ygrad[t][i][j][k][0] 541 /*M3_HERESIT*/ #define YG1Y_ta_ver_traadv_cen2 Yta_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 542 ta_ver_traadv_cen2 *Yta_ver_traadv_cen2; 583 543 584 544 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_ver_traadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 587 547 /*NBSMOD */ #define YNBS_sa_ver_traadv_cen2 1 588 548 /*NBIMOD */ #define YNBI_sa_ver_traadv_cen2 3 589 /*M3_IRMOD */ #define Ysa_ver_traadv_cen2(i, j, k) Ysa_ver_traadv_cen2[i][j][k] 590 /*M3_NOWMOD */ #define Ysa_ver_traadv_cen2Y Ysa_ver_traadv_cen2[Yi][Yj][Yk] 591 /*M3_VALST */ #define Ystate_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2[i][j][k]->Ystate[t][v] 592 /*M3_VALST */ #define YS_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2[i][j][k]->Ystate[t][v] 593 /*M3_VALSIT */ #define YS1_sa_ver_traadv_cen2(i, j, k, t) Ysa_ver_traadv_cen2[i][j][k]->Ystate[t][0] 594 /*M3_HERESIT*/ #define YS1Y_sa_ver_traadv_cen2 Ysa_ver_traadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 595 /*M3_VALST */ #define Ygrad_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 596 /*M3_VALST */ #define YG_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2[i][j][k]->Ygrad[t][v] 597 /*M3_VALSIT */ #define YG1_sa_ver_traadv_cen2(i, j, k, t) Ysa_ver_traadv_cen2[i][j][k]->Ygrad[t][0] 598 /*M3_HERESIT*/ #define YG1Y_sa_ver_traadv_cen2 Ysa_ver_traadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 599 sa_ver_traadv_cen2 *Ysa_ver_traadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 549 /*M3_VALST */ #define Ystate_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2->Ystate[t][i][j][k][v] 550 /*M3_VALST */ #define YS_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2->Ystate[t][i][j][k][v] 551 /*M3_VALSIT */ #define YS1_sa_ver_traadv_cen2(i, j, k, t) Ysa_ver_traadv_cen2->Ystate[t][i][j][k][0] 552 /*M3_HERESIT*/ #define YS1Y_sa_ver_traadv_cen2 Ysa_ver_traadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 553 /*M3_VALST */ #define Ygrad_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2->Ygrad[t][i][j][k][v] 554 /*M3_VALST */ #define YG_sa_ver_traadv_cen2(v, i, j, k, t) Ysa_ver_traadv_cen2->Ygrad[t][i][j][k][v] 555 /*M3_VALSIT */ #define YG1_sa_ver_traadv_cen2(i, j, k, t) Ysa_ver_traadv_cen2->Ygrad[t][i][j][k][0] 556 /*M3_HERESIT*/ #define YG1Y_sa_ver_traadv_cen2 Ysa_ver_traadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 557 sa_ver_traadv_cen2 *Ysa_ver_traadv_cen2; 600 558 601 559 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ztuv_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 606 564 /*NBSMOD */ #define YNBS_ztuv_traldf_lap 2 607 565 /*NBIMOD */ #define YNBI_ztuv_traldf_lap 3 608 /*M3_IRMOD */ #define Yztuv_traldf_lap(i, j, k) Yztuv_traldf_lap[i][j][k] 609 /*M3_NOWMOD */ #define Yztuv_traldf_lapY Yztuv_traldf_lap[Yi][Yj][Yk] 610 /*M3_VALST */ #define Ystate_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ystate[t][v] 611 /*M3_VALST */ #define YS_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ystate[t][v] 612 /*M3_VALSIT */ #define YS1_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ystate[t][0] 613 /*M3_HERESIT*/ #define YS1Y_ztuv_traldf_lap Yztuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 614 /*M3_VALSIT */ #define YS2_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ystate[t][1] 615 /*M3_HERESIT*/ #define YS2Y_ztuv_traldf_lap Yztuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][1] 616 /*M3_VALST */ #define Ygrad_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ygrad[t][v] 617 /*M3_VALST */ #define YG_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ygrad[t][v] 618 /*M3_VALSIT */ #define YG1_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ygrad[t][0] 619 /*M3_HERESIT*/ #define YG1Y_ztuv_traldf_lap Yztuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 620 /*M3_VALSIT */ #define YG2_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap[i][j][k]->Ygrad[t][1] 621 /*M3_HERESIT*/ #define YG2Y_ztuv_traldf_lap Yztuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][1] 622 ztuv_traldf_lap *Yztuv_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 566 /*M3_VALST */ #define Ystate_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap->Ystate[t][i][j][k][v] 567 /*M3_VALST */ #define YS_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap->Ystate[t][i][j][k][v] 568 /*M3_VALSIT */ #define YS1_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap->Ystate[t][i][j][k][0] 569 /*M3_HERESIT*/ #define YS1Y_ztuv_traldf_lap Yztuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 570 /*M3_VALSIT */ #define YS2_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap->Ystate[t][i][j][k][1] 571 /*M3_HERESIT*/ #define YS2Y_ztuv_traldf_lap Yztuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][1] 572 /*M3_VALST */ #define Ygrad_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap->Ygrad[t][i][j][k][v] 573 /*M3_VALST */ #define YG_ztuv_traldf_lap(v, i, j, k, t) Yztuv_traldf_lap->Ygrad[t][i][j][k][v] 574 /*M3_VALSIT */ #define YG1_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap->Ygrad[t][i][j][k][0] 575 /*M3_HERESIT*/ #define YG1Y_ztuv_traldf_lap Yztuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 576 /*M3_VALSIT */ #define YG2_ztuv_traldf_lap(i, j, k, t) Yztuv_traldf_lap->Ygrad[t][i][j][k][1] 577 /*M3_HERESIT*/ #define YG2Y_ztuv_traldf_lap Yztuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][1] 578 ztuv_traldf_lap *Yztuv_traldf_lap; 623 579 624 580 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zsuv_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 627 583 /*NBSMOD */ #define YNBS_zsuv_traldf_lap 2 628 584 /*NBIMOD */ #define YNBI_zsuv_traldf_lap 3 629 /*M3_IRMOD */ #define Yzsuv_traldf_lap(i, j, k) Yzsuv_traldf_lap[i][j][k] 630 /*M3_NOWMOD */ #define Yzsuv_traldf_lapY Yzsuv_traldf_lap[Yi][Yj][Yk] 631 /*M3_VALST */ #define Ystate_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ystate[t][v] 632 /*M3_VALST */ #define YS_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ystate[t][v] 633 /*M3_VALSIT */ #define YS1_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ystate[t][0] 634 /*M3_HERESIT*/ #define YS1Y_zsuv_traldf_lap Yzsuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 635 /*M3_VALSIT */ #define YS2_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ystate[t][1] 636 /*M3_HERESIT*/ #define YS2Y_zsuv_traldf_lap Yzsuv_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][1] 637 /*M3_VALST */ #define Ygrad_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ygrad[t][v] 638 /*M3_VALST */ #define YG_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ygrad[t][v] 639 /*M3_VALSIT */ #define YG1_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ygrad[t][0] 640 /*M3_HERESIT*/ #define YG1Y_zsuv_traldf_lap Yzsuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 641 /*M3_VALSIT */ #define YG2_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap[i][j][k]->Ygrad[t][1] 642 /*M3_HERESIT*/ #define YG2Y_zsuv_traldf_lap Yzsuv_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][1] 643 zsuv_traldf_lap *Yzsuv_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 585 /*M3_VALST */ #define Ystate_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap->Ystate[t][i][j][k][v] 586 /*M3_VALST */ #define YS_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap->Ystate[t][i][j][k][v] 587 /*M3_VALSIT */ #define YS1_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap->Ystate[t][i][j][k][0] 588 /*M3_HERESIT*/ #define YS1Y_zsuv_traldf_lap Yzsuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 589 /*M3_VALSIT */ #define YS2_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap->Ystate[t][i][j][k][1] 590 /*M3_HERESIT*/ #define YS2Y_zsuv_traldf_lap Yzsuv_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][1] 591 /*M3_VALST */ #define Ygrad_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap->Ygrad[t][i][j][k][v] 592 /*M3_VALST */ #define YG_zsuv_traldf_lap(v, i, j, k, t) Yzsuv_traldf_lap->Ygrad[t][i][j][k][v] 593 /*M3_VALSIT */ #define YG1_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap->Ygrad[t][i][j][k][0] 594 /*M3_HERESIT*/ #define YG1Y_zsuv_traldf_lap Yzsuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 595 /*M3_VALSIT */ #define YG2_zsuv_traldf_lap(i, j, k, t) Yzsuv_traldf_lap->Ygrad[t][i][j][k][1] 596 /*M3_HERESIT*/ #define YG2Y_zsuv_traldf_lap Yzsuv_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][1] 597 zsuv_traldf_lap *Yzsuv_traldf_lap; 644 598 645 599 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 650 604 /*NBSMOD */ #define YNBS_ta_traldf_lap 1 651 605 /*NBIMOD */ #define YNBI_ta_traldf_lap 5 652 /*M3_IRMOD */ #define Yta_traldf_lap(i, j, k) Yta_traldf_lap[i][j][k] 653 /*M3_NOWMOD */ #define Yta_traldf_lapY Yta_traldf_lap[Yi][Yj][Yk] 654 /*M3_VALST */ #define Ystate_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap[i][j][k]->Ystate[t][v] 655 /*M3_VALST */ #define YS_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap[i][j][k]->Ystate[t][v] 656 /*M3_VALSIT */ #define YS1_ta_traldf_lap(i, j, k, t) Yta_traldf_lap[i][j][k]->Ystate[t][0] 657 /*M3_HERESIT*/ #define YS1Y_ta_traldf_lap Yta_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 658 /*M3_VALST */ #define Ygrad_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap[i][j][k]->Ygrad[t][v] 659 /*M3_VALST */ #define YG_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap[i][j][k]->Ygrad[t][v] 660 /*M3_VALSIT */ #define YG1_ta_traldf_lap(i, j, k, t) Yta_traldf_lap[i][j][k]->Ygrad[t][0] 661 /*M3_HERESIT*/ #define YG1Y_ta_traldf_lap Yta_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 662 ta_traldf_lap *Yta_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 606 /*M3_VALST */ #define Ystate_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap->Ystate[t][i][j][k][v] 607 /*M3_VALST */ #define YS_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap->Ystate[t][i][j][k][v] 608 /*M3_VALSIT */ #define YS1_ta_traldf_lap(i, j, k, t) Yta_traldf_lap->Ystate[t][i][j][k][0] 609 /*M3_HERESIT*/ #define YS1Y_ta_traldf_lap Yta_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 610 /*M3_VALST */ #define Ygrad_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap->Ygrad[t][i][j][k][v] 611 /*M3_VALST */ #define YG_ta_traldf_lap(v, i, j, k, t) Yta_traldf_lap->Ygrad[t][i][j][k][v] 612 /*M3_VALSIT */ #define YG1_ta_traldf_lap(i, j, k, t) Yta_traldf_lap->Ygrad[t][i][j][k][0] 613 /*M3_HERESIT*/ #define YG1Y_ta_traldf_lap Yta_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 614 ta_traldf_lap *Yta_traldf_lap; 663 615 664 616 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_traldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 667 619 /*NBSMOD */ #define YNBS_sa_traldf_lap 1 668 620 /*NBIMOD */ #define YNBI_sa_traldf_lap 5 669 /*M3_IRMOD */ #define Ysa_traldf_lap(i, j, k) Ysa_traldf_lap[i][j][k] 670 /*M3_NOWMOD */ #define Ysa_traldf_lapY Ysa_traldf_lap[Yi][Yj][Yk] 671 /*M3_VALST */ #define Ystate_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap[i][j][k]->Ystate[t][v] 672 /*M3_VALST */ #define YS_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap[i][j][k]->Ystate[t][v] 673 /*M3_VALSIT */ #define YS1_sa_traldf_lap(i, j, k, t) Ysa_traldf_lap[i][j][k]->Ystate[t][0] 674 /*M3_HERESIT*/ #define YS1Y_sa_traldf_lap Ysa_traldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 675 /*M3_VALST */ #define Ygrad_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap[i][j][k]->Ygrad[t][v] 676 /*M3_VALST */ #define YG_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap[i][j][k]->Ygrad[t][v] 677 /*M3_VALSIT */ #define YG1_sa_traldf_lap(i, j, k, t) Ysa_traldf_lap[i][j][k]->Ygrad[t][0] 678 /*M3_HERESIT*/ #define YG1Y_sa_traldf_lap Ysa_traldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 679 sa_traldf_lap *Ysa_traldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 621 /*M3_VALST */ #define Ystate_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap->Ystate[t][i][j][k][v] 622 /*M3_VALST */ #define YS_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap->Ystate[t][i][j][k][v] 623 /*M3_VALSIT */ #define YS1_sa_traldf_lap(i, j, k, t) Ysa_traldf_lap->Ystate[t][i][j][k][0] 624 /*M3_HERESIT*/ #define YS1Y_sa_traldf_lap Ysa_traldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 625 /*M3_VALST */ #define Ygrad_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap->Ygrad[t][i][j][k][v] 626 /*M3_VALST */ #define YG_sa_traldf_lap(v, i, j, k, t) Ysa_traldf_lap->Ygrad[t][i][j][k][v] 627 /*M3_VALSIT */ #define YG1_sa_traldf_lap(i, j, k, t) Ysa_traldf_lap->Ygrad[t][i][j][k][0] 628 /*M3_HERESIT*/ #define YG1Y_sa_traldf_lap Ysa_traldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 629 sa_traldf_lap *Ysa_traldf_lap; 680 630 681 631 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 686 636 /*NBSMOD */ #define YNBS_zwisd_trazdf_imp 3 687 637 /*NBIMOD */ #define YNBI_zwisd_trazdf_imp 2 688 /*M3_IRMOD */ #define Yzwisd_trazdf_imp(i, j, k) Yzwisd_trazdf_imp[i][j][k] 689 /*M3_NOWMOD */ #define Yzwisd_trazdf_impY Yzwisd_trazdf_imp[Yi][Yj][Yk] 690 /*M3_VALST */ #define Ystate_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ystate[t][v] 691 /*M3_VALST */ #define YS_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ystate[t][v] 692 /*M3_VALSIT */ #define YS1_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ystate[t][0] 693 /*M3_HERESIT*/ #define YS1Y_zwisd_trazdf_imp Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 694 /*M3_VALSIT */ #define YS2_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ystate[t][1] 695 /*M3_HERESIT*/ #define YS2Y_zwisd_trazdf_imp Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][1] 696 /*M3_VALSIT */ #define YS3_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ystate[t][2] 697 /*M3_HERESIT*/ #define YS3Y_zwisd_trazdf_imp Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][2] 698 /*M3_VALST */ #define Ygrad_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][v] 699 /*M3_VALST */ #define YG_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][v] 700 /*M3_VALSIT */ #define YG1_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][0] 701 /*M3_HERESIT*/ #define YG1Y_zwisd_trazdf_imp Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 702 /*M3_VALSIT */ #define YG2_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][1] 703 /*M3_HERESIT*/ #define YG2Y_zwisd_trazdf_imp Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][1] 704 /*M3_VALSIT */ #define YG3_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp[i][j][k]->Ygrad[t][2] 705 /*M3_HERESIT*/ #define YG3Y_zwisd_trazdf_imp Yzwisd_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][2] 706 zwisd_trazdf_imp *Yzwisd_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 638 /*M3_VALST */ #define Ystate_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][v] 639 /*M3_VALST */ #define YS_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][v] 640 /*M3_VALSIT */ #define YS1_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][0] 641 /*M3_HERESIT*/ #define YS1Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 642 /*M3_VALSIT */ #define YS2_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][1] 643 /*M3_HERESIT*/ #define YS2Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][1] 644 /*M3_VALSIT */ #define YS3_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ystate[t][i][j][k][2] 645 /*M3_HERESIT*/ #define YS3Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][2] 646 /*M3_VALST */ #define Ygrad_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][v] 647 /*M3_VALST */ #define YG_zwisd_trazdf_imp(v, i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][v] 648 /*M3_VALSIT */ #define YG1_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][0] 649 /*M3_HERESIT*/ #define YG1Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 650 /*M3_VALSIT */ #define YG2_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][1] 651 /*M3_HERESIT*/ #define YG2Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][1] 652 /*M3_VALSIT */ #define YG3_zwisd_trazdf_imp(i, j, k, t) Yzwisd_trazdf_imp->Ygrad[t][i][j][k][2] 653 /*M3_HERESIT*/ #define YG3Y_zwisd_trazdf_imp Yzwisd_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][2] 654 zwisd_trazdf_imp *Yzwisd_trazdf_imp; 707 655 708 656 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 713 661 /*NBSMOD */ #define YNBS_zrhs_trazdf_imp 1 714 662 /*NBIMOD */ #define YNBI_zrhs_trazdf_imp 2 715 /*M3_IRMOD */ #define Yzrhs_trazdf_imp(i, j, k) Yzrhs_trazdf_imp[i][j][k] 716 /*M3_NOWMOD */ #define Yzrhs_trazdf_impY Yzrhs_trazdf_imp[Yi][Yj][Yk] 717 /*M3_VALST */ #define Ystate_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp[i][j][k]->Ystate[t][v] 718 /*M3_VALST */ #define YS_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp[i][j][k]->Ystate[t][v] 719 /*M3_VALSIT */ #define YS1_zrhs_trazdf_imp(i, j, k, t) Yzrhs_trazdf_imp[i][j][k]->Ystate[t][0] 720 /*M3_HERESIT*/ #define YS1Y_zrhs_trazdf_imp Yzrhs_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 721 /*M3_VALST */ #define Ygrad_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp[i][j][k]->Ygrad[t][v] 722 /*M3_VALST */ #define YG_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp[i][j][k]->Ygrad[t][v] 723 /*M3_VALSIT */ #define YG1_zrhs_trazdf_imp(i, j, k, t) Yzrhs_trazdf_imp[i][j][k]->Ygrad[t][0] 724 /*M3_HERESIT*/ #define YG1Y_zrhs_trazdf_imp Yzrhs_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 725 zrhs_trazdf_imp *Yzrhs_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 663 /*M3_VALST */ #define Ystate_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp->Ystate[t][i][j][k][v] 664 /*M3_VALST */ #define YS_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp->Ystate[t][i][j][k][v] 665 /*M3_VALSIT */ #define YS1_zrhs_trazdf_imp(i, j, k, t) Yzrhs_trazdf_imp->Ystate[t][i][j][k][0] 666 /*M3_HERESIT*/ #define YS1Y_zrhs_trazdf_imp Yzrhs_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 667 /*M3_VALST */ #define Ygrad_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp->Ygrad[t][i][j][k][v] 668 /*M3_VALST */ #define YG_zrhs_trazdf_imp(v, i, j, k, t) Yzrhs_trazdf_imp->Ygrad[t][i][j][k][v] 669 /*M3_VALSIT */ #define YG1_zrhs_trazdf_imp(i, j, k, t) Yzrhs_trazdf_imp->Ygrad[t][i][j][k][0] 670 /*M3_HERESIT*/ #define YG1Y_zrhs_trazdf_imp Yzrhs_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 671 zrhs_trazdf_imp *Yzrhs_trazdf_imp; 726 672 727 673 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_sa_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 730 676 /*NBSMOD */ #define YNBS_zrhs_sa_trazdf_imp 1 731 677 /*NBIMOD */ #define YNBI_zrhs_sa_trazdf_imp 2 732 /*M3_IRMOD */ #define Yzrhs_sa_trazdf_imp(i, j, k) Yzrhs_sa_trazdf_imp[i][j][k] 733 /*M3_NOWMOD */ #define Yzrhs_sa_trazdf_impY Yzrhs_sa_trazdf_imp[Yi][Yj][Yk] 734 /*M3_VALST */ #define Ystate_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp[i][j][k]->Ystate[t][v] 735 /*M3_VALST */ #define YS_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp[i][j][k]->Ystate[t][v] 736 /*M3_VALSIT */ #define YS1_zrhs_sa_trazdf_imp(i, j, k, t) Yzrhs_sa_trazdf_imp[i][j][k]->Ystate[t][0] 737 /*M3_HERESIT*/ #define YS1Y_zrhs_sa_trazdf_imp Yzrhs_sa_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 738 /*M3_VALST */ #define Ygrad_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp[i][j][k]->Ygrad[t][v] 739 /*M3_VALST */ #define YG_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp[i][j][k]->Ygrad[t][v] 740 /*M3_VALSIT */ #define YG1_zrhs_sa_trazdf_imp(i, j, k, t) Yzrhs_sa_trazdf_imp[i][j][k]->Ygrad[t][0] 741 /*M3_HERESIT*/ #define YG1Y_zrhs_sa_trazdf_imp Yzrhs_sa_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 742 zrhs_sa_trazdf_imp *Yzrhs_sa_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 678 /*M3_VALST */ #define Ystate_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp->Ystate[t][i][j][k][v] 679 /*M3_VALST */ #define YS_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp->Ystate[t][i][j][k][v] 680 /*M3_VALSIT */ #define YS1_zrhs_sa_trazdf_imp(i, j, k, t) Yzrhs_sa_trazdf_imp->Ystate[t][i][j][k][0] 681 /*M3_HERESIT*/ #define YS1Y_zrhs_sa_trazdf_imp Yzrhs_sa_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 682 /*M3_VALST */ #define Ygrad_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp->Ygrad[t][i][j][k][v] 683 /*M3_VALST */ #define YG_zrhs_sa_trazdf_imp(v, i, j, k, t) Yzrhs_sa_trazdf_imp->Ygrad[t][i][j][k][v] 684 /*M3_VALSIT */ #define YG1_zrhs_sa_trazdf_imp(i, j, k, t) Yzrhs_sa_trazdf_imp->Ygrad[t][i][j][k][0] 685 /*M3_HERESIT*/ #define YG1Y_zrhs_sa_trazdf_imp Yzrhs_sa_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 686 zrhs_sa_trazdf_imp *Yzrhs_sa_trazdf_imp; 743 687 744 688 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 749 693 /*NBSMOD */ #define YNBS_zwt_trazdf_imp 1 750 694 /*NBIMOD */ #define YNBI_zwt_trazdf_imp 4 751 /*M3_IRMOD */ #define Yzwt_trazdf_imp(i, j, k) Yzwt_trazdf_imp[i][j][k] 752 /*M3_NOWMOD */ #define Yzwt_trazdf_impY Yzwt_trazdf_imp[Yi][Yj][Yk] 753 /*M3_VALST */ #define Ystate_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp[i][j][k]->Ystate[t][v] 754 /*M3_VALST */ #define YS_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp[i][j][k]->Ystate[t][v] 755 /*M3_VALSIT */ #define YS1_zwt_trazdf_imp(i, j, k, t) Yzwt_trazdf_imp[i][j][k]->Ystate[t][0] 756 /*M3_HERESIT*/ #define YS1Y_zwt_trazdf_imp Yzwt_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 757 /*M3_VALST */ #define Ygrad_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp[i][j][k]->Ygrad[t][v] 758 /*M3_VALST */ #define YG_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp[i][j][k]->Ygrad[t][v] 759 /*M3_VALSIT */ #define YG1_zwt_trazdf_imp(i, j, k, t) Yzwt_trazdf_imp[i][j][k]->Ygrad[t][0] 760 /*M3_HERESIT*/ #define YG1Y_zwt_trazdf_imp Yzwt_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 761 zwt_trazdf_imp *Yzwt_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 695 /*M3_VALST */ #define Ystate_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp->Ystate[t][i][j][k][v] 696 /*M3_VALST */ #define YS_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp->Ystate[t][i][j][k][v] 697 /*M3_VALSIT */ #define YS1_zwt_trazdf_imp(i, j, k, t) Yzwt_trazdf_imp->Ystate[t][i][j][k][0] 698 /*M3_HERESIT*/ #define YS1Y_zwt_trazdf_imp Yzwt_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 699 /*M3_VALST */ #define Ygrad_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp->Ygrad[t][i][j][k][v] 700 /*M3_VALST */ #define YG_zwt_trazdf_imp(v, i, j, k, t) Yzwt_trazdf_imp->Ygrad[t][i][j][k][v] 701 /*M3_VALSIT */ #define YG1_zwt_trazdf_imp(i, j, k, t) Yzwt_trazdf_imp->Ygrad[t][i][j][k][0] 702 /*M3_HERESIT*/ #define YG1Y_zwt_trazdf_imp Yzwt_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 703 zwt_trazdf_imp *Yzwt_trazdf_imp; 762 704 763 705 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta_de_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 766 708 /*NBSMOD */ #define YNBS_ta_de_trazdf_imp 1 767 709 /*NBIMOD */ #define YNBI_ta_de_trazdf_imp 4 768 /*M3_IRMOD */ #define Yta_de_trazdf_imp(i, j, k) Yta_de_trazdf_imp[i][j][k] 769 /*M3_NOWMOD */ #define Yta_de_trazdf_impY Yta_de_trazdf_imp[Yi][Yj][Yk] 770 /*M3_VALST */ #define Ystate_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp[i][j][k]->Ystate[t][v] 771 /*M3_VALST */ #define YS_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp[i][j][k]->Ystate[t][v] 772 /*M3_VALSIT */ #define YS1_ta_de_trazdf_imp(i, j, k, t) Yta_de_trazdf_imp[i][j][k]->Ystate[t][0] 773 /*M3_HERESIT*/ #define YS1Y_ta_de_trazdf_imp Yta_de_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 774 /*M3_VALST */ #define Ygrad_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp[i][j][k]->Ygrad[t][v] 775 /*M3_VALST */ #define YG_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp[i][j][k]->Ygrad[t][v] 776 /*M3_VALSIT */ #define YG1_ta_de_trazdf_imp(i, j, k, t) Yta_de_trazdf_imp[i][j][k]->Ygrad[t][0] 777 /*M3_HERESIT*/ #define YG1Y_ta_de_trazdf_imp Yta_de_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 778 ta_de_trazdf_imp *Yta_de_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 710 /*M3_VALST */ #define Ystate_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp->Ystate[t][i][j][k][v] 711 /*M3_VALST */ #define YS_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp->Ystate[t][i][j][k][v] 712 /*M3_VALSIT */ #define YS1_ta_de_trazdf_imp(i, j, k, t) Yta_de_trazdf_imp->Ystate[t][i][j][k][0] 713 /*M3_HERESIT*/ #define YS1Y_ta_de_trazdf_imp Yta_de_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 714 /*M3_VALST */ #define Ygrad_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp->Ygrad[t][i][j][k][v] 715 /*M3_VALST */ #define YG_ta_de_trazdf_imp(v, i, j, k, t) Yta_de_trazdf_imp->Ygrad[t][i][j][k][v] 716 /*M3_VALSIT */ #define YG1_ta_de_trazdf_imp(i, j, k, t) Yta_de_trazdf_imp->Ygrad[t][i][j][k][0] 717 /*M3_HERESIT*/ #define YG1Y_ta_de_trazdf_imp Yta_de_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 718 ta_de_trazdf_imp *Yta_de_trazdf_imp; 779 719 780 720 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ta~~~~~~~~~~~~~~~~~~~~~~~~~ … … 785 725 /*NBSMOD */ #define YNBS_ta 1 786 726 /*NBIMOD */ #define YNBI_ta 5 787 /*M3_IRMOD */ #define Yta(i, j, k) Yta[i][j][k] 788 /*M3_NOWMOD */ #define YtaY Yta[Yi][Yj][Yk] 789 /*M3_VALST */ #define Ystate_ta(v, i, j, k, t) Yta[i][j][k]->Ystate[t][v] 790 /*M3_VALST */ #define YS_ta(v, i, j, k, t) Yta[i][j][k]->Ystate[t][v] 791 /*M3_VALSIT */ #define YS1_ta(i, j, k, t) Yta[i][j][k]->Ystate[t][0] 792 /*M3_HERESIT*/ #define YS1Y_ta Yta[Yi][Yj][Yk]->Ystate[YTemps][0] 793 /*M3_VALST */ #define Ygrad_ta(v, i, j, k, t) Yta[i][j][k]->Ygrad[t][v] 794 /*M3_VALST */ #define YG_ta(v, i, j, k, t) Yta[i][j][k]->Ygrad[t][v] 795 /*M3_VALSIT */ #define YG1_ta(i, j, k, t) Yta[i][j][k]->Ygrad[t][0] 796 /*M3_HERESIT*/ #define YG1Y_ta Yta[Yi][Yj][Yk]->Ygrad[YTemps][0] 797 ta *Yta[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 727 /*M3_VALST */ #define Ystate_ta(v, i, j, k, t) Yta->Ystate[t][i][j][k][v] 728 /*M3_VALST */ #define YS_ta(v, i, j, k, t) Yta->Ystate[t][i][j][k][v] 729 /*M3_VALSIT */ #define YS1_ta(i, j, k, t) Yta->Ystate[t][i][j][k][0] 730 /*M3_HERESIT*/ #define YS1Y_ta Yta->Ystate[YTemps][Yi][Yj][Yk][0] 731 /*M3_VALST */ #define Ygrad_ta(v, i, j, k, t) Yta->Ygrad[t][i][j][k][v] 732 /*M3_VALST */ #define YG_ta(v, i, j, k, t) Yta->Ygrad[t][i][j][k][v] 733 /*M3_VALSIT */ #define YG1_ta(i, j, k, t) Yta->Ygrad[t][i][j][k][0] 734 /*M3_HERESIT*/ #define YG1Y_ta Yta->Ygrad[YTemps][Yi][Yj][Yk][0] 735 ta *Yta; 798 736 799 737 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa_de_trazdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 802 740 /*NBSMOD */ #define YNBS_sa_de_trazdf_imp 1 803 741 /*NBIMOD */ #define YNBI_sa_de_trazdf_imp 4 804 /*M3_IRMOD */ #define Ysa_de_trazdf_imp(i, j, k) Ysa_de_trazdf_imp[i][j][k] 805 /*M3_NOWMOD */ #define Ysa_de_trazdf_impY Ysa_de_trazdf_imp[Yi][Yj][Yk] 806 /*M3_VALST */ #define Ystate_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp[i][j][k]->Ystate[t][v] 807 /*M3_VALST */ #define YS_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp[i][j][k]->Ystate[t][v] 808 /*M3_VALSIT */ #define YS1_sa_de_trazdf_imp(i, j, k, t) Ysa_de_trazdf_imp[i][j][k]->Ystate[t][0] 809 /*M3_HERESIT*/ #define YS1Y_sa_de_trazdf_imp Ysa_de_trazdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 810 /*M3_VALST */ #define Ygrad_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp[i][j][k]->Ygrad[t][v] 811 /*M3_VALST */ #define YG_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp[i][j][k]->Ygrad[t][v] 812 /*M3_VALSIT */ #define YG1_sa_de_trazdf_imp(i, j, k, t) Ysa_de_trazdf_imp[i][j][k]->Ygrad[t][0] 813 /*M3_HERESIT*/ #define YG1Y_sa_de_trazdf_imp Ysa_de_trazdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 814 sa_de_trazdf_imp *Ysa_de_trazdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 742 /*M3_VALST */ #define Ystate_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp->Ystate[t][i][j][k][v] 743 /*M3_VALST */ #define YS_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp->Ystate[t][i][j][k][v] 744 /*M3_VALSIT */ #define YS1_sa_de_trazdf_imp(i, j, k, t) Ysa_de_trazdf_imp->Ystate[t][i][j][k][0] 745 /*M3_HERESIT*/ #define YS1Y_sa_de_trazdf_imp Ysa_de_trazdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 746 /*M3_VALST */ #define Ygrad_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp->Ygrad[t][i][j][k][v] 747 /*M3_VALST */ #define YG_sa_de_trazdf_imp(v, i, j, k, t) Ysa_de_trazdf_imp->Ygrad[t][i][j][k][v] 748 /*M3_VALSIT */ #define YG1_sa_de_trazdf_imp(i, j, k, t) Ysa_de_trazdf_imp->Ygrad[t][i][j][k][0] 749 /*M3_HERESIT*/ #define YG1Y_sa_de_trazdf_imp Ysa_de_trazdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 750 sa_de_trazdf_imp *Ysa_de_trazdf_imp; 815 751 816 752 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sa~~~~~~~~~~~~~~~~~~~~~~~~~ … … 821 757 /*NBSMOD */ #define YNBS_sa 1 822 758 /*NBIMOD */ #define YNBI_sa 5 823 /*M3_IRMOD */ #define Ysa(i, j, k) Ysa[i][j][k] 824 /*M3_NOWMOD */ #define YsaY Ysa[Yi][Yj][Yk] 825 /*M3_VALST */ #define Ystate_sa(v, i, j, k, t) Ysa[i][j][k]->Ystate[t][v] 826 /*M3_VALST */ #define YS_sa(v, i, j, k, t) Ysa[i][j][k]->Ystate[t][v] 827 /*M3_VALSIT */ #define YS1_sa(i, j, k, t) Ysa[i][j][k]->Ystate[t][0] 828 /*M3_HERESIT*/ #define YS1Y_sa Ysa[Yi][Yj][Yk]->Ystate[YTemps][0] 829 /*M3_VALST */ #define Ygrad_sa(v, i, j, k, t) Ysa[i][j][k]->Ygrad[t][v] 830 /*M3_VALST */ #define YG_sa(v, i, j, k, t) Ysa[i][j][k]->Ygrad[t][v] 831 /*M3_VALSIT */ #define YG1_sa(i, j, k, t) Ysa[i][j][k]->Ygrad[t][0] 832 /*M3_HERESIT*/ #define YG1Y_sa Ysa[Yi][Yj][Yk]->Ygrad[YTemps][0] 833 sa *Ysa[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 759 /*M3_VALST */ #define Ystate_sa(v, i, j, k, t) Ysa->Ystate[t][i][j][k][v] 760 /*M3_VALST */ #define YS_sa(v, i, j, k, t) Ysa->Ystate[t][i][j][k][v] 761 /*M3_VALSIT */ #define YS1_sa(i, j, k, t) Ysa->Ystate[t][i][j][k][0] 762 /*M3_HERESIT*/ #define YS1Y_sa Ysa->Ystate[YTemps][Yi][Yj][Yk][0] 763 /*M3_VALST */ #define Ygrad_sa(v, i, j, k, t) Ysa->Ygrad[t][i][j][k][v] 764 /*M3_VALST */ #define YG_sa(v, i, j, k, t) Ysa->Ygrad[t][i][j][k][v] 765 /*M3_VALSIT */ #define YG1_sa(i, j, k, t) Ysa->Ygrad[t][i][j][k][0] 766 /*M3_HERESIT*/ #define YG1Y_sa Ysa->Ygrad[YTemps][Yi][Yj][Yk][0] 767 sa *Ysa; 834 768 835 769 //~~~~~~~~~~~~~~~~~~~~~~~~~ module tb~~~~~~~~~~~~~~~~~~~~~~~~~ … … 840 774 /*NBSMOD */ #define YNBS_tb 1 841 775 /*NBIMOD */ #define YNBI_tb 4 842 /*M3_IRMOD */ #define Ytb(i, j, k) Ytb[i][j][k] 843 /*M3_NOWMOD */ #define YtbY Ytb[Yi][Yj][Yk] 844 /*M3_VALST */ #define Ystate_tb(v, i, j, k, t) Ytb[i][j][k]->Ystate[t][v] 845 /*M3_VALST */ #define YS_tb(v, i, j, k, t) Ytb[i][j][k]->Ystate[t][v] 846 /*M3_VALSIT */ #define YS1_tb(i, j, k, t) Ytb[i][j][k]->Ystate[t][0] 847 /*M3_HERESIT*/ #define YS1Y_tb Ytb[Yi][Yj][Yk]->Ystate[YTemps][0] 848 /*M3_VALST */ #define Ygrad_tb(v, i, j, k, t) Ytb[i][j][k]->Ygrad[t][v] 849 /*M3_VALST */ #define YG_tb(v, i, j, k, t) Ytb[i][j][k]->Ygrad[t][v] 850 /*M3_VALSIT */ #define YG1_tb(i, j, k, t) Ytb[i][j][k]->Ygrad[t][0] 851 /*M3_HERESIT*/ #define YG1Y_tb Ytb[Yi][Yj][Yk]->Ygrad[YTemps][0] 852 tb *Ytb[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 853 /*M3_VALSG */ #define Ywish_tb(v, i, j, k) Ytb[i][j][k]->Ywish[v] 854 /*M3_VALSG */ #define YW_tb(v, i, j, k) Ytb[i][j][k]->Ywish[v] 855 /*M3_VALSGI */ #define YW1_tb(i, j, k) Ytb[i][j][k]->Ywish[0] 856 /*M3_HERESGI*/ #define YW1Y_tb Ytb[Yi][Yj][Yk]->Ywish[0] 776 /*M3_VALST */ #define Ystate_tb(v, i, j, k, t) Ytb->Ystate[t][i][j][k][v] 777 /*M3_VALST */ #define YS_tb(v, i, j, k, t) Ytb->Ystate[t][i][j][k][v] 778 /*M3_VALSIT */ #define YS1_tb(i, j, k, t) Ytb->Ystate[t][i][j][k][0] 779 /*M3_HERESIT*/ #define YS1Y_tb Ytb->Ystate[YTemps][Yi][Yj][Yk][0] 780 /*M3_VALST */ #define Ygrad_tb(v, i, j, k, t) Ytb->Ygrad[t][i][j][k][v] 781 /*M3_VALST */ #define YG_tb(v, i, j, k, t) Ytb->Ygrad[t][i][j][k][v] 782 /*M3_VALSIT */ #define YG1_tb(i, j, k, t) Ytb->Ygrad[t][i][j][k][0] 783 /*M3_HERESIT*/ #define YG1Y_tb Ytb->Ygrad[YTemps][Yi][Yj][Yk][0] 784 tb *Ytb; 785 /*M3_VALSG */ #define Ywish_tb(v, i, j, k) Ytb->Ywish[i][j][k][v] 786 /*M3_VALSG */ #define YW_tb(v, i, j, k) Ytb->Ywish[i][j][k][v] 787 /*M3_VALSGI */ #define YW1_tb(i, j, k) Ytb->Ywish[i][j][k][0] 788 /*M3_HERESGI*/ #define YW1Y_tb Ytb->Ywish[Yi][Yj][Yk][0] 857 789 858 790 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sb~~~~~~~~~~~~~~~~~~~~~~~~~ … … 863 795 /*NBSMOD */ #define YNBS_sb 1 864 796 /*NBIMOD */ #define YNBI_sb 4 865 /*M3_IRMOD */ #define Ysb(i, j, k) Ysb[i][j][k] 866 /*M3_NOWMOD */ #define YsbY Ysb[Yi][Yj][Yk] 867 /*M3_VALST */ #define Ystate_sb(v, i, j, k, t) Ysb[i][j][k]->Ystate[t][v] 868 /*M3_VALST */ #define YS_sb(v, i, j, k, t) Ysb[i][j][k]->Ystate[t][v] 869 /*M3_VALSIT */ #define YS1_sb(i, j, k, t) Ysb[i][j][k]->Ystate[t][0] 870 /*M3_HERESIT*/ #define YS1Y_sb Ysb[Yi][Yj][Yk]->Ystate[YTemps][0] 871 /*M3_VALST */ #define Ygrad_sb(v, i, j, k, t) Ysb[i][j][k]->Ygrad[t][v] 872 /*M3_VALST */ #define YG_sb(v, i, j, k, t) Ysb[i][j][k]->Ygrad[t][v] 873 /*M3_VALSIT */ #define YG1_sb(i, j, k, t) Ysb[i][j][k]->Ygrad[t][0] 874 /*M3_HERESIT*/ #define YG1Y_sb Ysb[Yi][Yj][Yk]->Ygrad[YTemps][0] 875 sb *Ysb[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 876 /*M3_VALSG */ #define Ywish_sb(v, i, j, k) Ysb[i][j][k]->Ywish[v] 877 /*M3_VALSG */ #define YW_sb(v, i, j, k) Ysb[i][j][k]->Ywish[v] 878 /*M3_VALSGI */ #define YW1_sb(i, j, k) Ysb[i][j][k]->Ywish[0] 879 /*M3_HERESGI*/ #define YW1Y_sb Ysb[Yi][Yj][Yk]->Ywish[0] 797 /*M3_VALST */ #define Ystate_sb(v, i, j, k, t) Ysb->Ystate[t][i][j][k][v] 798 /*M3_VALST */ #define YS_sb(v, i, j, k, t) Ysb->Ystate[t][i][j][k][v] 799 /*M3_VALSIT */ #define YS1_sb(i, j, k, t) Ysb->Ystate[t][i][j][k][0] 800 /*M3_HERESIT*/ #define YS1Y_sb Ysb->Ystate[YTemps][Yi][Yj][Yk][0] 801 /*M3_VALST */ #define Ygrad_sb(v, i, j, k, t) Ysb->Ygrad[t][i][j][k][v] 802 /*M3_VALST */ #define YG_sb(v, i, j, k, t) Ysb->Ygrad[t][i][j][k][v] 803 /*M3_VALSIT */ #define YG1_sb(i, j, k, t) Ysb->Ygrad[t][i][j][k][0] 804 /*M3_HERESIT*/ #define YG1Y_sb Ysb->Ygrad[YTemps][Yi][Yj][Yk][0] 805 sb *Ysb; 806 /*M3_VALSG */ #define Ywish_sb(v, i, j, k) Ysb->Ywish[i][j][k][v] 807 /*M3_VALSG */ #define YW_sb(v, i, j, k) Ysb->Ywish[i][j][k][v] 808 /*M3_VALSGI */ #define YW1_sb(i, j, k) Ysb->Ywish[i][j][k][0] 809 /*M3_HERESGI*/ #define YW1Y_sb Ysb->Ywish[Yi][Yj][Yk][0] 880 810 881 811 //~~~~~~~~~~~~~~~~~~~~~~~~~ module rhd~~~~~~~~~~~~~~~~~~~~~~~~~ … … 886 816 /*NBSMOD */ #define YNBS_rhd 1 887 817 /*NBIMOD */ #define YNBI_rhd 2 888 /*M3_IRMOD */ #define Yrhd(i, j, k) Yrhd[i][j][k] 889 /*M3_NOWMOD */ #define YrhdY Yrhd[Yi][Yj][Yk] 890 /*M3_VALST */ #define Ystate_rhd(v, i, j, k, t) Yrhd[i][j][k]->Ystate[t][v] 891 /*M3_VALST */ #define YS_rhd(v, i, j, k, t) Yrhd[i][j][k]->Ystate[t][v] 892 /*M3_VALSIT */ #define YS1_rhd(i, j, k, t) Yrhd[i][j][k]->Ystate[t][0] 893 /*M3_HERESIT*/ #define YS1Y_rhd Yrhd[Yi][Yj][Yk]->Ystate[YTemps][0] 894 /*M3_VALST */ #define Ygrad_rhd(v, i, j, k, t) Yrhd[i][j][k]->Ygrad[t][v] 895 /*M3_VALST */ #define YG_rhd(v, i, j, k, t) Yrhd[i][j][k]->Ygrad[t][v] 896 /*M3_VALSIT */ #define YG1_rhd(i, j, k, t) Yrhd[i][j][k]->Ygrad[t][0] 897 /*M3_HERESIT*/ #define YG1Y_rhd Yrhd[Yi][Yj][Yk]->Ygrad[YTemps][0] 898 rhd *Yrhd[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 818 /*M3_VALST */ #define Ystate_rhd(v, i, j, k, t) Yrhd->Ystate[t][i][j][k][v] 819 /*M3_VALST */ #define YS_rhd(v, i, j, k, t) Yrhd->Ystate[t][i][j][k][v] 820 /*M3_VALSIT */ #define YS1_rhd(i, j, k, t) Yrhd->Ystate[t][i][j][k][0] 821 /*M3_HERESIT*/ #define YS1Y_rhd Yrhd->Ystate[YTemps][Yi][Yj][Yk][0] 822 /*M3_VALST */ #define Ygrad_rhd(v, i, j, k, t) Yrhd->Ygrad[t][i][j][k][v] 823 /*M3_VALST */ #define YG_rhd(v, i, j, k, t) Yrhd->Ygrad[t][i][j][k][v] 824 /*M3_VALSIT */ #define YG1_rhd(i, j, k, t) Yrhd->Ygrad[t][i][j][k][0] 825 /*M3_HERESIT*/ #define YG1Y_rhd Yrhd->Ygrad[YTemps][Yi][Yj][Yk][0] 826 rhd *Yrhd; 899 827 900 828 //~~~~~~~~~~~~~~~~~~~~~~~~~ module rhop~~~~~~~~~~~~~~~~~~~~~~~~~ … … 905 833 /*NBSMOD */ #define YNBS_rhop 1 906 834 /*NBIMOD */ #define YNBI_rhop 1 907 /*M3_IRMOD */ #define Yrhop(i, j, k) Yrhop[i][j][k] 908 /*M3_NOWMOD */ #define YrhopY Yrhop[Yi][Yj][Yk] 909 /*M3_VALST */ #define Ystate_rhop(v, i, j, k, t) Yrhop[i][j][k]->Ystate[t][v] 910 /*M3_VALST */ #define YS_rhop(v, i, j, k, t) Yrhop[i][j][k]->Ystate[t][v] 911 /*M3_VALSIT */ #define YS1_rhop(i, j, k, t) Yrhop[i][j][k]->Ystate[t][0] 912 /*M3_HERESIT*/ #define YS1Y_rhop Yrhop[Yi][Yj][Yk]->Ystate[YTemps][0] 913 /*M3_VALST */ #define Ygrad_rhop(v, i, j, k, t) Yrhop[i][j][k]->Ygrad[t][v] 914 /*M3_VALST */ #define YG_rhop(v, i, j, k, t) Yrhop[i][j][k]->Ygrad[t][v] 915 /*M3_VALSIT */ #define YG1_rhop(i, j, k, t) Yrhop[i][j][k]->Ygrad[t][0] 916 /*M3_HERESIT*/ #define YG1Y_rhop Yrhop[Yi][Yj][Yk]->Ygrad[YTemps][0] 917 rhop *Yrhop[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 835 /*M3_VALST */ #define Ystate_rhop(v, i, j, k, t) Yrhop->Ystate[t][i][j][k][v] 836 /*M3_VALST */ #define YS_rhop(v, i, j, k, t) Yrhop->Ystate[t][i][j][k][v] 837 /*M3_VALSIT */ #define YS1_rhop(i, j, k, t) Yrhop->Ystate[t][i][j][k][0] 838 /*M3_HERESIT*/ #define YS1Y_rhop Yrhop->Ystate[YTemps][Yi][Yj][Yk][0] 839 /*M3_VALST */ #define Ygrad_rhop(v, i, j, k, t) Yrhop->Ygrad[t][i][j][k][v] 840 /*M3_VALST */ #define YG_rhop(v, i, j, k, t) Yrhop->Ygrad[t][i][j][k][v] 841 /*M3_VALSIT */ #define YG1_rhop(i, j, k, t) Yrhop->Ygrad[t][i][j][k][0] 842 /*M3_HERESIT*/ #define YG1Y_rhop Yrhop->Ygrad[YTemps][Yi][Yj][Yk][0] 843 rhop *Yrhop; 918 844 919 845 //~~~~~~~~~~~~~~~~~~~~~~~~~ module hmf_TF_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 924 850 /*NBSMOD */ #define YNBS_hmf_TF_dynadv_cen2 4 925 851 /*NBIMOD */ #define YNBI_hmf_TF_dynadv_cen2 6 926 /*M3_IRMOD */ #define Yhmf_TF_dynadv_cen2(i, j, k) Yhmf_TF_dynadv_cen2[i][j][k] 927 /*M3_NOWMOD */ #define Yhmf_TF_dynadv_cen2Y Yhmf_TF_dynadv_cen2[Yi][Yj][Yk] 928 /*M3_VALST */ #define Ystate_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][v] 929 /*M3_VALST */ #define YS_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][v] 930 /*M3_VALSIT */ #define YS1_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][0] 931 /*M3_HERESIT*/ #define YS1Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 932 /*M3_VALSIT */ #define YS2_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][1] 933 /*M3_HERESIT*/ #define YS2Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1] 934 /*M3_VALSIT */ #define YS3_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][2] 935 /*M3_HERESIT*/ #define YS3Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][2] 936 /*M3_VALSIT */ #define YS4_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ystate[t][3] 937 /*M3_HERESIT*/ #define YS4Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][3] 938 /*M3_VALST */ #define Ygrad_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][v] 939 /*M3_VALST */ #define YG_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][v] 940 /*M3_VALSIT */ #define YG1_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][0] 941 /*M3_HERESIT*/ #define YG1Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 942 /*M3_VALSIT */ #define YG2_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][1] 943 /*M3_HERESIT*/ #define YG2Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1] 944 /*M3_VALSIT */ #define YG3_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][2] 945 /*M3_HERESIT*/ #define YG3Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][2] 946 /*M3_VALSIT */ #define YG4_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2[i][j][k]->Ygrad[t][3] 947 /*M3_HERESIT*/ #define YG4Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][3] 948 hmf_TF_dynadv_cen2 *Yhmf_TF_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 852 /*M3_VALST */ #define Ystate_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][v] 853 /*M3_VALST */ #define YS_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][v] 854 /*M3_VALSIT */ #define YS1_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][0] 855 /*M3_HERESIT*/ #define YS1Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 856 /*M3_VALSIT */ #define YS2_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][1] 857 /*M3_HERESIT*/ #define YS2Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1] 858 /*M3_VALSIT */ #define YS3_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][2] 859 /*M3_HERESIT*/ #define YS3Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][2] 860 /*M3_VALSIT */ #define YS4_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ystate[t][i][j][k][3] 861 /*M3_HERESIT*/ #define YS4Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][3] 862 /*M3_VALST */ #define Ygrad_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][v] 863 /*M3_VALST */ #define YG_hmf_TF_dynadv_cen2(v, i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][v] 864 /*M3_VALSIT */ #define YG1_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][0] 865 /*M3_HERESIT*/ #define YG1Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 866 /*M3_VALSIT */ #define YG2_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][1] 867 /*M3_HERESIT*/ #define YG2Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1] 868 /*M3_VALSIT */ #define YG3_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][2] 869 /*M3_HERESIT*/ #define YG3Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][2] 870 /*M3_VALSIT */ #define YG4_hmf_TF_dynadv_cen2(i, j, k, t) Yhmf_TF_dynadv_cen2->Ygrad[t][i][j][k][3] 871 /*M3_HERESIT*/ #define YG4Y_hmf_TF_dynadv_cen2 Yhmf_TF_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][3] 872 hmf_TF_dynadv_cen2 *Yhmf_TF_dynadv_cen2; 949 873 950 874 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zua_dhmf_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 955 879 /*NBSMOD */ #define YNBS_zua_dhmf_dynadv_cen2 1 956 880 /*NBIMOD */ #define YNBI_zua_dhmf_dynadv_cen2 4 957 /*M3_IRMOD */ #define Yzua_dhmf_dynadv_cen2(i, j, k) Yzua_dhmf_dynadv_cen2[i][j][k] 958 /*M3_NOWMOD */ #define Yzua_dhmf_dynadv_cen2Y Yzua_dhmf_dynadv_cen2[Yi][Yj][Yk] 959 /*M3_VALST */ #define Ystate_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v] 960 /*M3_VALST */ #define YS_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v] 961 /*M3_VALSIT */ #define YS1_zua_dhmf_dynadv_cen2(i, j, k, t) Yzua_dhmf_dynadv_cen2[i][j][k]->Ystate[t][0] 962 /*M3_HERESIT*/ #define YS1Y_zua_dhmf_dynadv_cen2 Yzua_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 963 /*M3_VALST */ #define Ygrad_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v] 964 /*M3_VALST */ #define YG_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v] 965 /*M3_VALSIT */ #define YG1_zua_dhmf_dynadv_cen2(i, j, k, t) Yzua_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][0] 966 /*M3_HERESIT*/ #define YG1Y_zua_dhmf_dynadv_cen2 Yzua_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 967 zua_dhmf_dynadv_cen2 *Yzua_dhmf_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 881 /*M3_VALST */ #define Ystate_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2->Ystate[t][i][j][k][v] 882 /*M3_VALST */ #define YS_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2->Ystate[t][i][j][k][v] 883 /*M3_VALSIT */ #define YS1_zua_dhmf_dynadv_cen2(i, j, k, t) Yzua_dhmf_dynadv_cen2->Ystate[t][i][j][k][0] 884 /*M3_HERESIT*/ #define YS1Y_zua_dhmf_dynadv_cen2 Yzua_dhmf_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 885 /*M3_VALST */ #define Ygrad_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v] 886 /*M3_VALST */ #define YG_zua_dhmf_dynadv_cen2(v, i, j, k, t) Yzua_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v] 887 /*M3_VALSIT */ #define YG1_zua_dhmf_dynadv_cen2(i, j, k, t) Yzua_dhmf_dynadv_cen2->Ygrad[t][i][j][k][0] 888 /*M3_HERESIT*/ #define YG1Y_zua_dhmf_dynadv_cen2 Yzua_dhmf_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 889 zua_dhmf_dynadv_cen2 *Yzua_dhmf_dynadv_cen2; 968 890 969 891 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zva_dhmf_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 974 896 /*NBSMOD */ #define YNBS_zva_dhmf_dynadv_cen2 1 975 897 /*NBIMOD */ #define YNBI_zva_dhmf_dynadv_cen2 4 976 /*M3_IRMOD */ #define Yzva_dhmf_dynadv_cen2(i, j, k) Yzva_dhmf_dynadv_cen2[i][j][k] 977 /*M3_NOWMOD */ #define Yzva_dhmf_dynadv_cen2Y Yzva_dhmf_dynadv_cen2[Yi][Yj][Yk] 978 /*M3_VALST */ #define Ystate_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v] 979 /*M3_VALST */ #define YS_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2[i][j][k]->Ystate[t][v] 980 /*M3_VALSIT */ #define YS1_zva_dhmf_dynadv_cen2(i, j, k, t) Yzva_dhmf_dynadv_cen2[i][j][k]->Ystate[t][0] 981 /*M3_HERESIT*/ #define YS1Y_zva_dhmf_dynadv_cen2 Yzva_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 982 /*M3_VALST */ #define Ygrad_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v] 983 /*M3_VALST */ #define YG_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][v] 984 /*M3_VALSIT */ #define YG1_zva_dhmf_dynadv_cen2(i, j, k, t) Yzva_dhmf_dynadv_cen2[i][j][k]->Ygrad[t][0] 985 /*M3_HERESIT*/ #define YG1Y_zva_dhmf_dynadv_cen2 Yzva_dhmf_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 986 zva_dhmf_dynadv_cen2 *Yzva_dhmf_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 898 /*M3_VALST */ #define Ystate_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2->Ystate[t][i][j][k][v] 899 /*M3_VALST */ #define YS_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2->Ystate[t][i][j][k][v] 900 /*M3_VALSIT */ #define YS1_zva_dhmf_dynadv_cen2(i, j, k, t) Yzva_dhmf_dynadv_cen2->Ystate[t][i][j][k][0] 901 /*M3_HERESIT*/ #define YS1Y_zva_dhmf_dynadv_cen2 Yzva_dhmf_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 902 /*M3_VALST */ #define Ygrad_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v] 903 /*M3_VALST */ #define YG_zva_dhmf_dynadv_cen2(v, i, j, k, t) Yzva_dhmf_dynadv_cen2->Ygrad[t][i][j][k][v] 904 /*M3_VALSIT */ #define YG1_zva_dhmf_dynadv_cen2(i, j, k, t) Yzva_dhmf_dynadv_cen2->Ygrad[t][i][j][k][0] 905 /*M3_HERESIT*/ #define YG1Y_zva_dhmf_dynadv_cen2 Yzva_dhmf_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 906 zva_dhmf_dynadv_cen2 *Yzva_dhmf_dynadv_cen2; 987 907 988 908 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zfuv_UW_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 993 913 /*NBSMOD */ #define YNBS_zfuv_UW_dynadv_cen2 2 994 914 /*NBIMOD */ #define YNBI_zfuv_UW_dynadv_cen2 7 995 /*M3_IRMOD */ #define Yzfuv_UW_dynadv_cen2(i, j, k) Yzfuv_UW_dynadv_cen2[i][j][k] 996 /*M3_NOWMOD */ #define Yzfuv_UW_dynadv_cen2Y Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk] 997 /*M3_VALST */ #define Ystate_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][v] 998 /*M3_VALST */ #define YS_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][v] 999 /*M3_VALSIT */ #define YS1_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][0] 1000 /*M3_HERESIT*/ #define YS1Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 1001 /*M3_VALSIT */ #define YS2_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ystate[t][1] 1002 /*M3_HERESIT*/ #define YS2Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][1] 1003 /*M3_VALST */ #define Ygrad_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][v] 1004 /*M3_VALST */ #define YG_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][v] 1005 /*M3_VALSIT */ #define YG1_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][0] 1006 /*M3_HERESIT*/ #define YG1Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 1007 /*M3_VALSIT */ #define YG2_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2[i][j][k]->Ygrad[t][1] 1008 /*M3_HERESIT*/ #define YG2Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][1] 1009 zfuv_UW_dynadv_cen2 *Yzfuv_UW_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 915 /*M3_VALST */ #define Ystate_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][v] 916 /*M3_VALST */ #define YS_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][v] 917 /*M3_VALSIT */ #define YS1_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][0] 918 /*M3_HERESIT*/ #define YS1Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 919 /*M3_VALSIT */ #define YS2_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2->Ystate[t][i][j][k][1] 920 /*M3_HERESIT*/ #define YS2Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][1] 921 /*M3_VALST */ #define Ygrad_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][v] 922 /*M3_VALST */ #define YG_zfuv_UW_dynadv_cen2(v, i, j, k, t) Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][v] 923 /*M3_VALSIT */ #define YG1_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][0] 924 /*M3_HERESIT*/ #define YG1Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 925 /*M3_VALSIT */ #define YG2_zfuv_UW_dynadv_cen2(i, j, k, t) Yzfuv_UW_dynadv_cen2->Ygrad[t][i][j][k][1] 926 /*M3_HERESIT*/ #define YG2Y_zfuv_UW_dynadv_cen2 Yzfuv_UW_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][1] 927 zfuv_UW_dynadv_cen2 *Yzfuv_UW_dynadv_cen2; 1010 928 1011 929 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1016 934 /*NBSMOD */ #define YNBS_ua_dynadv_cen2 1 1017 935 /*NBIMOD */ #define YNBI_ua_dynadv_cen2 3 1018 /*M3_IRMOD */ #define Yua_dynadv_cen2(i, j, k) Yua_dynadv_cen2[i][j][k] 1019 /*M3_NOWMOD */ #define Yua_dynadv_cen2Y Yua_dynadv_cen2[Yi][Yj][Yk] 1020 /*M3_VALST */ #define Ystate_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2[i][j][k]->Ystate[t][v] 1021 /*M3_VALST */ #define YS_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2[i][j][k]->Ystate[t][v] 1022 /*M3_VALSIT */ #define YS1_ua_dynadv_cen2(i, j, k, t) Yua_dynadv_cen2[i][j][k]->Ystate[t][0] 1023 /*M3_HERESIT*/ #define YS1Y_ua_dynadv_cen2 Yua_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 1024 /*M3_VALST */ #define Ygrad_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2[i][j][k]->Ygrad[t][v] 1025 /*M3_VALST */ #define YG_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2[i][j][k]->Ygrad[t][v] 1026 /*M3_VALSIT */ #define YG1_ua_dynadv_cen2(i, j, k, t) Yua_dynadv_cen2[i][j][k]->Ygrad[t][0] 1027 /*M3_HERESIT*/ #define YG1Y_ua_dynadv_cen2 Yua_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 1028 ua_dynadv_cen2 *Yua_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 936 /*M3_VALST */ #define Ystate_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2->Ystate[t][i][j][k][v] 937 /*M3_VALST */ #define YS_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2->Ystate[t][i][j][k][v] 938 /*M3_VALSIT */ #define YS1_ua_dynadv_cen2(i, j, k, t) Yua_dynadv_cen2->Ystate[t][i][j][k][0] 939 /*M3_HERESIT*/ #define YS1Y_ua_dynadv_cen2 Yua_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 940 /*M3_VALST */ #define Ygrad_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2->Ygrad[t][i][j][k][v] 941 /*M3_VALST */ #define YG_ua_dynadv_cen2(v, i, j, k, t) Yua_dynadv_cen2->Ygrad[t][i][j][k][v] 942 /*M3_VALSIT */ #define YG1_ua_dynadv_cen2(i, j, k, t) Yua_dynadv_cen2->Ygrad[t][i][j][k][0] 943 /*M3_HERESIT*/ #define YG1Y_ua_dynadv_cen2 Yua_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 944 ua_dynadv_cen2 *Yua_dynadv_cen2; 1029 945 1030 946 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dynadv_cen2~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1035 951 /*NBSMOD */ #define YNBS_va_dynadv_cen2 1 1036 952 /*NBIMOD */ #define YNBI_va_dynadv_cen2 3 1037 /*M3_IRMOD */ #define Yva_dynadv_cen2(i, j, k) Yva_dynadv_cen2[i][j][k] 1038 /*M3_NOWMOD */ #define Yva_dynadv_cen2Y Yva_dynadv_cen2[Yi][Yj][Yk] 1039 /*M3_VALST */ #define Ystate_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2[i][j][k]->Ystate[t][v] 1040 /*M3_VALST */ #define YS_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2[i][j][k]->Ystate[t][v] 1041 /*M3_VALSIT */ #define YS1_va_dynadv_cen2(i, j, k, t) Yva_dynadv_cen2[i][j][k]->Ystate[t][0] 1042 /*M3_HERESIT*/ #define YS1Y_va_dynadv_cen2 Yva_dynadv_cen2[Yi][Yj][Yk]->Ystate[YTemps][0] 1043 /*M3_VALST */ #define Ygrad_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2[i][j][k]->Ygrad[t][v] 1044 /*M3_VALST */ #define YG_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2[i][j][k]->Ygrad[t][v] 1045 /*M3_VALSIT */ #define YG1_va_dynadv_cen2(i, j, k, t) Yva_dynadv_cen2[i][j][k]->Ygrad[t][0] 1046 /*M3_HERESIT*/ #define YG1Y_va_dynadv_cen2 Yva_dynadv_cen2[Yi][Yj][Yk]->Ygrad[YTemps][0] 1047 va_dynadv_cen2 *Yva_dynadv_cen2[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 953 /*M3_VALST */ #define Ystate_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2->Ystate[t][i][j][k][v] 954 /*M3_VALST */ #define YS_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2->Ystate[t][i][j][k][v] 955 /*M3_VALSIT */ #define YS1_va_dynadv_cen2(i, j, k, t) Yva_dynadv_cen2->Ystate[t][i][j][k][0] 956 /*M3_HERESIT*/ #define YS1Y_va_dynadv_cen2 Yva_dynadv_cen2->Ystate[YTemps][Yi][Yj][Yk][0] 957 /*M3_VALST */ #define Ygrad_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2->Ygrad[t][i][j][k][v] 958 /*M3_VALST */ #define YG_va_dynadv_cen2(v, i, j, k, t) Yva_dynadv_cen2->Ygrad[t][i][j][k][v] 959 /*M3_VALSIT */ #define YG1_va_dynadv_cen2(i, j, k, t) Yva_dynadv_cen2->Ygrad[t][i][j][k][0] 960 /*M3_HERESIT*/ #define YG1Y_va_dynadv_cen2 Yva_dynadv_cen2->Ygrad[YTemps][Yi][Yj][Yk][0] 961 va_dynadv_cen2 *Yva_dynadv_cen2; 1048 962 1049 963 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwxyz_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1054 968 /*NBSMOD */ #define YNBS_zwxyz_vor_ene 3 1055 969 /*NBIMOD */ #define YNBI_zwxyz_vor_ene 4 1056 /*M3_IRMOD */ #define Yzwxyz_vor_ene(i, j, k) Yzwxyz_vor_ene[i][j][k] 1057 /*M3_NOWMOD */ #define Yzwxyz_vor_eneY Yzwxyz_vor_ene[Yi][Yj][Yk] 1058 /*M3_VALST */ #define Ystate_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ystate[t][v] 1059 /*M3_VALST */ #define YS_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ystate[t][v] 1060 /*M3_VALSIT */ #define YS1_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ystate[t][0] 1061 /*M3_HERESIT*/ #define YS1Y_zwxyz_vor_ene Yzwxyz_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][0] 1062 /*M3_VALSIT */ #define YS2_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ystate[t][1] 1063 /*M3_HERESIT*/ #define YS2Y_zwxyz_vor_ene Yzwxyz_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][1] 1064 /*M3_VALSIT */ #define YS3_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ystate[t][2] 1065 /*M3_HERESIT*/ #define YS3Y_zwxyz_vor_ene Yzwxyz_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][2] 1066 /*M3_VALST */ #define Ygrad_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ygrad[t][v] 1067 /*M3_VALST */ #define YG_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ygrad[t][v] 1068 /*M3_VALSIT */ #define YG1_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ygrad[t][0] 1069 /*M3_HERESIT*/ #define YG1Y_zwxyz_vor_ene Yzwxyz_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][0] 1070 /*M3_VALSIT */ #define YG2_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ygrad[t][1] 1071 /*M3_HERESIT*/ #define YG2Y_zwxyz_vor_ene Yzwxyz_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][1] 1072 /*M3_VALSIT */ #define YG3_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene[i][j][k]->Ygrad[t][2] 1073 /*M3_HERESIT*/ #define YG3Y_zwxyz_vor_ene Yzwxyz_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][2] 1074 zwxyz_vor_ene *Yzwxyz_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 970 /*M3_VALST */ #define Ystate_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][v] 971 /*M3_VALST */ #define YS_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][v] 972 /*M3_VALSIT */ #define YS1_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][0] 973 /*M3_HERESIT*/ #define YS1Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ystate[YTemps][Yi][Yj][Yk][0] 974 /*M3_VALSIT */ #define YS2_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][1] 975 /*M3_HERESIT*/ #define YS2Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ystate[YTemps][Yi][Yj][Yk][1] 976 /*M3_VALSIT */ #define YS3_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ystate[t][i][j][k][2] 977 /*M3_HERESIT*/ #define YS3Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ystate[YTemps][Yi][Yj][Yk][2] 978 /*M3_VALST */ #define Ygrad_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][v] 979 /*M3_VALST */ #define YG_zwxyz_vor_ene(v, i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][v] 980 /*M3_VALSIT */ #define YG1_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][0] 981 /*M3_HERESIT*/ #define YG1Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][0] 982 /*M3_VALSIT */ #define YG2_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][1] 983 /*M3_HERESIT*/ #define YG2Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][1] 984 /*M3_VALSIT */ #define YG3_zwxyz_vor_ene(i, j, k, t) Yzwxyz_vor_ene->Ygrad[t][i][j][k][2] 985 /*M3_HERESIT*/ #define YG3Y_zwxyz_vor_ene Yzwxyz_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][2] 986 zwxyz_vor_ene *Yzwxyz_vor_ene; 1075 987 1076 988 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1081 993 /*NBSMOD */ #define YNBS_ua_vor_ene 1 1082 994 /*NBIMOD */ #define YNBI_ua_vor_ene 7 1083 /*M3_IRMOD */ #define Yua_vor_ene(i, j, k) Yua_vor_ene[i][j][k] 1084 /*M3_NOWMOD */ #define Yua_vor_eneY Yua_vor_ene[Yi][Yj][Yk] 1085 /*M3_VALST */ #define Ystate_ua_vor_ene(v, i, j, k, t) Yua_vor_ene[i][j][k]->Ystate[t][v] 1086 /*M3_VALST */ #define YS_ua_vor_ene(v, i, j, k, t) Yua_vor_ene[i][j][k]->Ystate[t][v] 1087 /*M3_VALSIT */ #define YS1_ua_vor_ene(i, j, k, t) Yua_vor_ene[i][j][k]->Ystate[t][0] 1088 /*M3_HERESIT*/ #define YS1Y_ua_vor_ene Yua_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][0] 1089 /*M3_VALST */ #define Ygrad_ua_vor_ene(v, i, j, k, t) Yua_vor_ene[i][j][k]->Ygrad[t][v] 1090 /*M3_VALST */ #define YG_ua_vor_ene(v, i, j, k, t) Yua_vor_ene[i][j][k]->Ygrad[t][v] 1091 /*M3_VALSIT */ #define YG1_ua_vor_ene(i, j, k, t) Yua_vor_ene[i][j][k]->Ygrad[t][0] 1092 /*M3_HERESIT*/ #define YG1Y_ua_vor_ene Yua_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][0] 1093 ua_vor_ene *Yua_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 995 /*M3_VALST */ #define Ystate_ua_vor_ene(v, i, j, k, t) Yua_vor_ene->Ystate[t][i][j][k][v] 996 /*M3_VALST */ #define YS_ua_vor_ene(v, i, j, k, t) Yua_vor_ene->Ystate[t][i][j][k][v] 997 /*M3_VALSIT */ #define YS1_ua_vor_ene(i, j, k, t) Yua_vor_ene->Ystate[t][i][j][k][0] 998 /*M3_HERESIT*/ #define YS1Y_ua_vor_ene Yua_vor_ene->Ystate[YTemps][Yi][Yj][Yk][0] 999 /*M3_VALST */ #define Ygrad_ua_vor_ene(v, i, j, k, t) Yua_vor_ene->Ygrad[t][i][j][k][v] 1000 /*M3_VALST */ #define YG_ua_vor_ene(v, i, j, k, t) Yua_vor_ene->Ygrad[t][i][j][k][v] 1001 /*M3_VALSIT */ #define YG1_ua_vor_ene(i, j, k, t) Yua_vor_ene->Ygrad[t][i][j][k][0] 1002 /*M3_HERESIT*/ #define YG1Y_ua_vor_ene Yua_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][0] 1003 ua_vor_ene *Yua_vor_ene; 1094 1004 1095 1005 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_vor_ene~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1100 1010 /*NBSMOD */ #define YNBS_va_vor_ene 1 1101 1011 /*NBIMOD */ #define YNBI_va_vor_ene 7 1102 /*M3_IRMOD */ #define Yva_vor_ene(i, j, k) Yva_vor_ene[i][j][k] 1103 /*M3_NOWMOD */ #define Yva_vor_eneY Yva_vor_ene[Yi][Yj][Yk] 1104 /*M3_VALST */ #define Ystate_va_vor_ene(v, i, j, k, t) Yva_vor_ene[i][j][k]->Ystate[t][v] 1105 /*M3_VALST */ #define YS_va_vor_ene(v, i, j, k, t) Yva_vor_ene[i][j][k]->Ystate[t][v] 1106 /*M3_VALSIT */ #define YS1_va_vor_ene(i, j, k, t) Yva_vor_ene[i][j][k]->Ystate[t][0] 1107 /*M3_HERESIT*/ #define YS1Y_va_vor_ene Yva_vor_ene[Yi][Yj][Yk]->Ystate[YTemps][0] 1108 /*M3_VALST */ #define Ygrad_va_vor_ene(v, i, j, k, t) Yva_vor_ene[i][j][k]->Ygrad[t][v] 1109 /*M3_VALST */ #define YG_va_vor_ene(v, i, j, k, t) Yva_vor_ene[i][j][k]->Ygrad[t][v] 1110 /*M3_VALSIT */ #define YG1_va_vor_ene(i, j, k, t) Yva_vor_ene[i][j][k]->Ygrad[t][0] 1111 /*M3_HERESIT*/ #define YG1Y_va_vor_ene Yva_vor_ene[Yi][Yj][Yk]->Ygrad[YTemps][0] 1112 va_vor_ene *Yva_vor_ene[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1012 /*M3_VALST */ #define Ystate_va_vor_ene(v, i, j, k, t) Yva_vor_ene->Ystate[t][i][j][k][v] 1013 /*M3_VALST */ #define YS_va_vor_ene(v, i, j, k, t) Yva_vor_ene->Ystate[t][i][j][k][v] 1014 /*M3_VALSIT */ #define YS1_va_vor_ene(i, j, k, t) Yva_vor_ene->Ystate[t][i][j][k][0] 1015 /*M3_HERESIT*/ #define YS1Y_va_vor_ene Yva_vor_ene->Ystate[YTemps][Yi][Yj][Yk][0] 1016 /*M3_VALST */ #define Ygrad_va_vor_ene(v, i, j, k, t) Yva_vor_ene->Ygrad[t][i][j][k][v] 1017 /*M3_VALST */ #define YG_va_vor_ene(v, i, j, k, t) Yva_vor_ene->Ygrad[t][i][j][k][v] 1018 /*M3_VALSIT */ #define YG1_va_vor_ene(i, j, k, t) Yva_vor_ene->Ygrad[t][i][j][k][0] 1019 /*M3_HERESIT*/ #define YG1Y_va_vor_ene Yva_vor_ene->Ygrad[YTemps][Yi][Yj][Yk][0] 1020 va_vor_ene *Yva_vor_ene; 1113 1021 1114 1022 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dyn_ldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1119 1027 /*NBSMOD */ #define YNBS_ua_dyn_ldf_lap 1 1120 1028 /*NBIMOD */ #define YNBI_ua_dyn_ldf_lap 5 1121 /*M3_IRMOD */ #define Yua_dyn_ldf_lap(i, j, k) Yua_dyn_ldf_lap[i][j][k] 1122 /*M3_NOWMOD */ #define Yua_dyn_ldf_lapY Yua_dyn_ldf_lap[Yi][Yj][Yk] 1123 /*M3_VALST */ #define Ystate_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap[i][j][k]->Ystate[t][v] 1124 /*M3_VALST */ #define YS_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap[i][j][k]->Ystate[t][v] 1125 /*M3_VALSIT */ #define YS1_ua_dyn_ldf_lap(i, j, k, t) Yua_dyn_ldf_lap[i][j][k]->Ystate[t][0] 1126 /*M3_HERESIT*/ #define YS1Y_ua_dyn_ldf_lap Yua_dyn_ldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 1127 /*M3_VALST */ #define Ygrad_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap[i][j][k]->Ygrad[t][v] 1128 /*M3_VALST */ #define YG_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap[i][j][k]->Ygrad[t][v] 1129 /*M3_VALSIT */ #define YG1_ua_dyn_ldf_lap(i, j, k, t) Yua_dyn_ldf_lap[i][j][k]->Ygrad[t][0] 1130 /*M3_HERESIT*/ #define YG1Y_ua_dyn_ldf_lap Yua_dyn_ldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 1131 ua_dyn_ldf_lap *Yua_dyn_ldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1029 /*M3_VALST */ #define Ystate_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap->Ystate[t][i][j][k][v] 1030 /*M3_VALST */ #define YS_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap->Ystate[t][i][j][k][v] 1031 /*M3_VALSIT */ #define YS1_ua_dyn_ldf_lap(i, j, k, t) Yua_dyn_ldf_lap->Ystate[t][i][j][k][0] 1032 /*M3_HERESIT*/ #define YS1Y_ua_dyn_ldf_lap Yua_dyn_ldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 1033 /*M3_VALST */ #define Ygrad_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap->Ygrad[t][i][j][k][v] 1034 /*M3_VALST */ #define YG_ua_dyn_ldf_lap(v, i, j, k, t) Yua_dyn_ldf_lap->Ygrad[t][i][j][k][v] 1035 /*M3_VALSIT */ #define YG1_ua_dyn_ldf_lap(i, j, k, t) Yua_dyn_ldf_lap->Ygrad[t][i][j][k][0] 1036 /*M3_HERESIT*/ #define YG1Y_ua_dyn_ldf_lap Yua_dyn_ldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 1037 ua_dyn_ldf_lap *Yua_dyn_ldf_lap; 1132 1038 1133 1039 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dyn_ldf_lap~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1138 1044 /*NBSMOD */ #define YNBS_va_dyn_ldf_lap 1 1139 1045 /*NBIMOD */ #define YNBI_va_dyn_ldf_lap 5 1140 /*M3_IRMOD */ #define Yva_dyn_ldf_lap(i, j, k) Yva_dyn_ldf_lap[i][j][k] 1141 /*M3_NOWMOD */ #define Yva_dyn_ldf_lapY Yva_dyn_ldf_lap[Yi][Yj][Yk] 1142 /*M3_VALST */ #define Ystate_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap[i][j][k]->Ystate[t][v] 1143 /*M3_VALST */ #define YS_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap[i][j][k]->Ystate[t][v] 1144 /*M3_VALSIT */ #define YS1_va_dyn_ldf_lap(i, j, k, t) Yva_dyn_ldf_lap[i][j][k]->Ystate[t][0] 1145 /*M3_HERESIT*/ #define YS1Y_va_dyn_ldf_lap Yva_dyn_ldf_lap[Yi][Yj][Yk]->Ystate[YTemps][0] 1146 /*M3_VALST */ #define Ygrad_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap[i][j][k]->Ygrad[t][v] 1147 /*M3_VALST */ #define YG_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap[i][j][k]->Ygrad[t][v] 1148 /*M3_VALSIT */ #define YG1_va_dyn_ldf_lap(i, j, k, t) Yva_dyn_ldf_lap[i][j][k]->Ygrad[t][0] 1149 /*M3_HERESIT*/ #define YG1Y_va_dyn_ldf_lap Yva_dyn_ldf_lap[Yi][Yj][Yk]->Ygrad[YTemps][0] 1150 va_dyn_ldf_lap *Yva_dyn_ldf_lap[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1046 /*M3_VALST */ #define Ystate_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap->Ystate[t][i][j][k][v] 1047 /*M3_VALST */ #define YS_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap->Ystate[t][i][j][k][v] 1048 /*M3_VALSIT */ #define YS1_va_dyn_ldf_lap(i, j, k, t) Yva_dyn_ldf_lap->Ystate[t][i][j][k][0] 1049 /*M3_HERESIT*/ #define YS1Y_va_dyn_ldf_lap Yva_dyn_ldf_lap->Ystate[YTemps][Yi][Yj][Yk][0] 1050 /*M3_VALST */ #define Ygrad_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap->Ygrad[t][i][j][k][v] 1051 /*M3_VALST */ #define YG_va_dyn_ldf_lap(v, i, j, k, t) Yva_dyn_ldf_lap->Ygrad[t][i][j][k][v] 1052 /*M3_VALSIT */ #define YG1_va_dyn_ldf_lap(i, j, k, t) Yva_dyn_ldf_lap->Ygrad[t][i][j][k][0] 1053 /*M3_HERESIT*/ #define YG1Y_va_dyn_ldf_lap Yva_dyn_ldf_lap->Ygrad[YTemps][Yi][Yj][Yk][0] 1054 va_dyn_ldf_lap *Yva_dyn_ldf_lap; 1151 1055 1152 1056 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zhpij_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1157 1061 /*NBSMOD */ #define YNBS_zhpij_dyn_hpg_zco 2 1158 1062 /*NBIMOD */ #define YNBI_zhpij_dyn_hpg_zco 8 1159 /*M3_IRMOD */ #define Yzhpij_dyn_hpg_zco(i, j, k) Yzhpij_dyn_hpg_zco[i][j][k] 1160 /*M3_NOWMOD */ #define Yzhpij_dyn_hpg_zcoY Yzhpij_dyn_hpg_zco[Yi][Yj][Yk] 1161 /*M3_VALST */ #define Ystate_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][v] 1162 /*M3_VALST */ #define YS_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][v] 1163 /*M3_VALSIT */ #define YS1_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][0] 1164 /*M3_HERESIT*/ #define YS1Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][0] 1165 /*M3_VALSIT */ #define YS2_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ystate[t][1] 1166 /*M3_HERESIT*/ #define YS2Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][1] 1167 /*M3_VALST */ #define Ygrad_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 1168 /*M3_VALST */ #define YG_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 1169 /*M3_VALSIT */ #define YG1_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][0] 1170 /*M3_HERESIT*/ #define YG1Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][0] 1171 /*M3_VALSIT */ #define YG2_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco[i][j][k]->Ygrad[t][1] 1172 /*M3_HERESIT*/ #define YG2Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][1] 1173 zhpij_dyn_hpg_zco *Yzhpij_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1063 /*M3_VALST */ #define Ystate_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][v] 1064 /*M3_VALST */ #define YS_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][v] 1065 /*M3_VALSIT */ #define YS1_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][0] 1066 /*M3_HERESIT*/ #define YS1Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][0] 1067 /*M3_VALSIT */ #define YS2_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco->Ystate[t][i][j][k][1] 1068 /*M3_HERESIT*/ #define YS2Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][1] 1069 /*M3_VALST */ #define Ygrad_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1070 /*M3_VALST */ #define YG_zhpij_dyn_hpg_zco(v, i, j, k, t) Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1071 /*M3_VALSIT */ #define YG1_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][0] 1072 /*M3_HERESIT*/ #define YG1Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][0] 1073 /*M3_VALSIT */ #define YG2_zhpij_dyn_hpg_zco(i, j, k, t) Yzhpij_dyn_hpg_zco->Ygrad[t][i][j][k][1] 1074 /*M3_HERESIT*/ #define YG2Y_zhpij_dyn_hpg_zco Yzhpij_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][1] 1075 zhpij_dyn_hpg_zco *Yzhpij_dyn_hpg_zco; 1174 1076 1175 1077 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1180 1082 /*NBSMOD */ #define YNBS_ua_dyn_hpg_zco 1 1181 1083 /*NBIMOD */ #define YNBI_ua_dyn_hpg_zco 2 1182 /*M3_IRMOD */ #define Yua_dyn_hpg_zco(i, j, k) Yua_dyn_hpg_zco[i][j][k] 1183 /*M3_NOWMOD */ #define Yua_dyn_hpg_zcoY Yua_dyn_hpg_zco[Yi][Yj][Yk] 1184 /*M3_VALST */ #define Ystate_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco[i][j][k]->Ystate[t][v] 1185 /*M3_VALST */ #define YS_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco[i][j][k]->Ystate[t][v] 1186 /*M3_VALSIT */ #define YS1_ua_dyn_hpg_zco(i, j, k, t) Yua_dyn_hpg_zco[i][j][k]->Ystate[t][0] 1187 /*M3_HERESIT*/ #define YS1Y_ua_dyn_hpg_zco Yua_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][0] 1188 /*M3_VALST */ #define Ygrad_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 1189 /*M3_VALST */ #define YG_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 1190 /*M3_VALSIT */ #define YG1_ua_dyn_hpg_zco(i, j, k, t) Yua_dyn_hpg_zco[i][j][k]->Ygrad[t][0] 1191 /*M3_HERESIT*/ #define YG1Y_ua_dyn_hpg_zco Yua_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][0] 1192 ua_dyn_hpg_zco *Yua_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1084 /*M3_VALST */ #define Ystate_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco->Ystate[t][i][j][k][v] 1085 /*M3_VALST */ #define YS_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco->Ystate[t][i][j][k][v] 1086 /*M3_VALSIT */ #define YS1_ua_dyn_hpg_zco(i, j, k, t) Yua_dyn_hpg_zco->Ystate[t][i][j][k][0] 1087 /*M3_HERESIT*/ #define YS1Y_ua_dyn_hpg_zco Yua_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][0] 1088 /*M3_VALST */ #define Ygrad_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1089 /*M3_VALST */ #define YG_ua_dyn_hpg_zco(v, i, j, k, t) Yua_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1090 /*M3_VALSIT */ #define YG1_ua_dyn_hpg_zco(i, j, k, t) Yua_dyn_hpg_zco->Ygrad[t][i][j][k][0] 1091 /*M3_HERESIT*/ #define YG1Y_ua_dyn_hpg_zco Yua_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][0] 1092 ua_dyn_hpg_zco *Yua_dyn_hpg_zco; 1193 1093 1194 1094 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dyn_hpg_zco~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1197 1097 /*NBSMOD */ #define YNBS_va_dyn_hpg_zco 1 1198 1098 /*NBIMOD */ #define YNBI_va_dyn_hpg_zco 2 1199 /*M3_IRMOD */ #define Yva_dyn_hpg_zco(i, j, k) Yva_dyn_hpg_zco[i][j][k] 1200 /*M3_NOWMOD */ #define Yva_dyn_hpg_zcoY Yva_dyn_hpg_zco[Yi][Yj][Yk] 1201 /*M3_VALST */ #define Ystate_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco[i][j][k]->Ystate[t][v] 1202 /*M3_VALST */ #define YS_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco[i][j][k]->Ystate[t][v] 1203 /*M3_VALSIT */ #define YS1_va_dyn_hpg_zco(i, j, k, t) Yva_dyn_hpg_zco[i][j][k]->Ystate[t][0] 1204 /*M3_HERESIT*/ #define YS1Y_va_dyn_hpg_zco Yva_dyn_hpg_zco[Yi][Yj][Yk]->Ystate[YTemps][0] 1205 /*M3_VALST */ #define Ygrad_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 1206 /*M3_VALST */ #define YG_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco[i][j][k]->Ygrad[t][v] 1207 /*M3_VALSIT */ #define YG1_va_dyn_hpg_zco(i, j, k, t) Yva_dyn_hpg_zco[i][j][k]->Ygrad[t][0] 1208 /*M3_HERESIT*/ #define YG1Y_va_dyn_hpg_zco Yva_dyn_hpg_zco[Yi][Yj][Yk]->Ygrad[YTemps][0] 1209 va_dyn_hpg_zco *Yva_dyn_hpg_zco[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1099 /*M3_VALST */ #define Ystate_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco->Ystate[t][i][j][k][v] 1100 /*M3_VALST */ #define YS_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco->Ystate[t][i][j][k][v] 1101 /*M3_VALSIT */ #define YS1_va_dyn_hpg_zco(i, j, k, t) Yva_dyn_hpg_zco->Ystate[t][i][j][k][0] 1102 /*M3_HERESIT*/ #define YS1Y_va_dyn_hpg_zco Yva_dyn_hpg_zco->Ystate[YTemps][Yi][Yj][Yk][0] 1103 /*M3_VALST */ #define Ygrad_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1104 /*M3_VALST */ #define YG_va_dyn_hpg_zco(v, i, j, k, t) Yva_dyn_hpg_zco->Ygrad[t][i][j][k][v] 1105 /*M3_VALSIT */ #define YG1_va_dyn_hpg_zco(i, j, k, t) Yva_dyn_hpg_zco->Ygrad[t][i][j][k][0] 1106 /*M3_HERESIT*/ #define YG1Y_va_dyn_hpg_zco Yva_dyn_hpg_zco->Ygrad[YTemps][Yi][Yj][Yk][0] 1107 va_dyn_hpg_zco *Yva_dyn_hpg_zco; 1210 1108 1211 1109 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1216 1114 /*NBSMOD */ #define YNBS_zwisd_ua_dynzdf_imp 3 1217 1115 /*NBIMOD */ #define YNBI_zwisd_ua_dynzdf_imp 2 1218 /*M3_IRMOD */ #define Yzwisd_ua_dynzdf_imp(i, j, k) Yzwisd_ua_dynzdf_imp[i][j][k] 1219 /*M3_NOWMOD */ #define Yzwisd_ua_dynzdf_impY Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk] 1220 /*M3_VALST */ #define Ystate_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 1221 /*M3_VALST */ #define YS_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 1222 /*M3_VALSIT */ #define YS1_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][0] 1223 /*M3_HERESIT*/ #define YS1Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1224 /*M3_VALSIT */ #define YS2_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][1] 1225 /*M3_HERESIT*/ #define YS2Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][1] 1226 /*M3_VALSIT */ #define YS3_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ystate[t][2] 1227 /*M3_HERESIT*/ #define YS3Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][2] 1228 /*M3_VALST */ #define Ygrad_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1229 /*M3_VALST */ #define YG_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1230 /*M3_VALSIT */ #define YG1_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][0] 1231 /*M3_HERESIT*/ #define YG1Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1232 /*M3_VALSIT */ #define YG2_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][1] 1233 /*M3_HERESIT*/ #define YG2Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][1] 1234 /*M3_VALSIT */ #define YG3_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp[i][j][k]->Ygrad[t][2] 1235 /*M3_HERESIT*/ #define YG3Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][2] 1236 zwisd_ua_dynzdf_imp *Yzwisd_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1116 /*M3_VALST */ #define Ystate_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1117 /*M3_VALST */ #define YS_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1118 /*M3_VALSIT */ #define YS1_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][0] 1119 /*M3_HERESIT*/ #define YS1Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1120 /*M3_VALSIT */ #define YS2_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][1] 1121 /*M3_HERESIT*/ #define YS2Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][1] 1122 /*M3_VALSIT */ #define YS3_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ystate[t][i][j][k][2] 1123 /*M3_HERESIT*/ #define YS3Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][2] 1124 /*M3_VALST */ #define Ygrad_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1125 /*M3_VALST */ #define YG_zwisd_ua_dynzdf_imp(v, i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1126 /*M3_VALSIT */ #define YG1_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][0] 1127 /*M3_HERESIT*/ #define YG1Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1128 /*M3_VALSIT */ #define YG2_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][1] 1129 /*M3_HERESIT*/ #define YG2Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][1] 1130 /*M3_VALSIT */ #define YG3_zwisd_ua_dynzdf_imp(i, j, k, t) Yzwisd_ua_dynzdf_imp->Ygrad[t][i][j][k][2] 1131 /*M3_HERESIT*/ #define YG3Y_zwisd_ua_dynzdf_imp Yzwisd_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][2] 1132 zwisd_ua_dynzdf_imp *Yzwisd_ua_dynzdf_imp; 1237 1133 1238 1134 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwisd_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1243 1139 /*NBSMOD */ #define YNBS_zwisd_va_dynzdf_imp 3 1244 1140 /*NBIMOD */ #define YNBI_zwisd_va_dynzdf_imp 2 1245 /*M3_IRMOD */ #define Yzwisd_va_dynzdf_imp(i, j, k) Yzwisd_va_dynzdf_imp[i][j][k] 1246 /*M3_NOWMOD */ #define Yzwisd_va_dynzdf_impY Yzwisd_va_dynzdf_imp[Yi][Yj][Yk] 1247 /*M3_VALST */ #define Ystate_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][v] 1248 /*M3_VALST */ #define YS_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][v] 1249 /*M3_VALSIT */ #define YS1_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][0] 1250 /*M3_HERESIT*/ #define YS1Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1251 /*M3_VALSIT */ #define YS2_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][1] 1252 /*M3_HERESIT*/ #define YS2Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][1] 1253 /*M3_VALSIT */ #define YS3_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ystate[t][2] 1254 /*M3_HERESIT*/ #define YS3Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][2] 1255 /*M3_VALST */ #define Ygrad_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 1256 /*M3_VALST */ #define YG_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 1257 /*M3_VALSIT */ #define YG1_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][0] 1258 /*M3_HERESIT*/ #define YG1Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1259 /*M3_VALSIT */ #define YG2_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][1] 1260 /*M3_HERESIT*/ #define YG2Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][1] 1261 /*M3_VALSIT */ #define YG3_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp[i][j][k]->Ygrad[t][2] 1262 /*M3_HERESIT*/ #define YG3Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][2] 1263 zwisd_va_dynzdf_imp *Yzwisd_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1141 /*M3_VALST */ #define Ystate_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][v] 1142 /*M3_VALST */ #define YS_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][v] 1143 /*M3_VALSIT */ #define YS1_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][0] 1144 /*M3_HERESIT*/ #define YS1Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1145 /*M3_VALSIT */ #define YS2_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][1] 1146 /*M3_HERESIT*/ #define YS2Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][1] 1147 /*M3_VALSIT */ #define YS3_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ystate[t][i][j][k][2] 1148 /*M3_HERESIT*/ #define YS3Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][2] 1149 /*M3_VALST */ #define Ygrad_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1150 /*M3_VALST */ #define YG_zwisd_va_dynzdf_imp(v, i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1151 /*M3_VALSIT */ #define YG1_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][0] 1152 /*M3_HERESIT*/ #define YG1Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1153 /*M3_VALSIT */ #define YG2_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][1] 1154 /*M3_HERESIT*/ #define YG2Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][1] 1155 /*M3_VALSIT */ #define YG3_zwisd_va_dynzdf_imp(i, j, k, t) Yzwisd_va_dynzdf_imp->Ygrad[t][i][j][k][2] 1156 /*M3_HERESIT*/ #define YG3Y_zwisd_va_dynzdf_imp Yzwisd_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][2] 1157 zwisd_va_dynzdf_imp *Yzwisd_va_dynzdf_imp; 1264 1158 1265 1159 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1270 1164 /*NBSMOD */ #define YNBS_zrhs_ua_dynzdf_imp 1 1271 1165 /*NBIMOD */ #define YNBI_zrhs_ua_dynzdf_imp 3 1272 /*M3_IRMOD */ #define Yzrhs_ua_dynzdf_imp(i, j, k) Yzrhs_ua_dynzdf_imp[i][j][k] 1273 /*M3_NOWMOD */ #define Yzrhs_ua_dynzdf_impY Yzrhs_ua_dynzdf_imp[Yi][Yj][Yk] 1274 /*M3_VALST */ #define Ystate_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 1275 /*M3_VALST */ #define YS_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 1276 /*M3_VALSIT */ #define YS1_zrhs_ua_dynzdf_imp(i, j, k, t) Yzrhs_ua_dynzdf_imp[i][j][k]->Ystate[t][0] 1277 /*M3_HERESIT*/ #define YS1Y_zrhs_ua_dynzdf_imp Yzrhs_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1278 /*M3_VALST */ #define Ygrad_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1279 /*M3_VALST */ #define YG_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1280 /*M3_VALSIT */ #define YG1_zrhs_ua_dynzdf_imp(i, j, k, t) Yzrhs_ua_dynzdf_imp[i][j][k]->Ygrad[t][0] 1281 /*M3_HERESIT*/ #define YG1Y_zrhs_ua_dynzdf_imp Yzrhs_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1282 zrhs_ua_dynzdf_imp *Yzrhs_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1166 /*M3_VALST */ #define Ystate_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1167 /*M3_VALST */ #define YS_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1168 /*M3_VALSIT */ #define YS1_zrhs_ua_dynzdf_imp(i, j, k, t) Yzrhs_ua_dynzdf_imp->Ystate[t][i][j][k][0] 1169 /*M3_HERESIT*/ #define YS1Y_zrhs_ua_dynzdf_imp Yzrhs_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1170 /*M3_VALST */ #define Ygrad_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1171 /*M3_VALST */ #define YG_zrhs_ua_dynzdf_imp(v, i, j, k, t) Yzrhs_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1172 /*M3_VALSIT */ #define YG1_zrhs_ua_dynzdf_imp(i, j, k, t) Yzrhs_ua_dynzdf_imp->Ygrad[t][i][j][k][0] 1173 /*M3_HERESIT*/ #define YG1Y_zrhs_ua_dynzdf_imp Yzrhs_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1174 zrhs_ua_dynzdf_imp *Yzrhs_ua_dynzdf_imp; 1283 1175 1284 1176 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zrhs_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1289 1181 /*NBSMOD */ #define YNBS_zrhs_va_dynzdf_imp 1 1290 1182 /*NBIMOD */ #define YNBI_zrhs_va_dynzdf_imp 3 1291 /*M3_IRMOD */ #define Yzrhs_va_dynzdf_imp(i, j, k) Yzrhs_va_dynzdf_imp[i][j][k] 1292 /*M3_NOWMOD */ #define Yzrhs_va_dynzdf_impY Yzrhs_va_dynzdf_imp[Yi][Yj][Yk] 1293 /*M3_VALST */ #define Ystate_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp[i][j][k]->Ystate[t][v] 1294 /*M3_VALST */ #define YS_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp[i][j][k]->Ystate[t][v] 1295 /*M3_VALSIT */ #define YS1_zrhs_va_dynzdf_imp(i, j, k, t) Yzrhs_va_dynzdf_imp[i][j][k]->Ystate[t][0] 1296 /*M3_HERESIT*/ #define YS1Y_zrhs_va_dynzdf_imp Yzrhs_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1297 /*M3_VALST */ #define Ygrad_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 1298 /*M3_VALST */ #define YG_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 1299 /*M3_VALSIT */ #define YG1_zrhs_va_dynzdf_imp(i, j, k, t) Yzrhs_va_dynzdf_imp[i][j][k]->Ygrad[t][0] 1300 /*M3_HERESIT*/ #define YG1Y_zrhs_va_dynzdf_imp Yzrhs_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1301 zrhs_va_dynzdf_imp *Yzrhs_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1183 /*M3_VALST */ #define Ystate_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp->Ystate[t][i][j][k][v] 1184 /*M3_VALST */ #define YS_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp->Ystate[t][i][j][k][v] 1185 /*M3_VALSIT */ #define YS1_zrhs_va_dynzdf_imp(i, j, k, t) Yzrhs_va_dynzdf_imp->Ystate[t][i][j][k][0] 1186 /*M3_HERESIT*/ #define YS1Y_zrhs_va_dynzdf_imp Yzrhs_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1187 /*M3_VALST */ #define Ygrad_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1188 /*M3_VALST */ #define YG_zrhs_va_dynzdf_imp(v, i, j, k, t) Yzrhs_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1189 /*M3_VALSIT */ #define YG1_zrhs_va_dynzdf_imp(i, j, k, t) Yzrhs_va_dynzdf_imp->Ygrad[t][i][j][k][0] 1190 /*M3_HERESIT*/ #define YG1Y_zrhs_va_dynzdf_imp Yzrhs_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1191 zrhs_va_dynzdf_imp *Yzrhs_va_dynzdf_imp; 1302 1192 1303 1193 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1306 1196 /*NBSMOD */ #define YNBS_zwt_ua_dynzdf_imp 1 1307 1197 /*NBIMOD */ #define YNBI_zwt_ua_dynzdf_imp 4 1308 /*M3_IRMOD */ #define Yzwt_ua_dynzdf_imp(i, j, k) Yzwt_ua_dynzdf_imp[i][j][k] 1309 /*M3_NOWMOD */ #define Yzwt_ua_dynzdf_impY Yzwt_ua_dynzdf_imp[Yi][Yj][Yk] 1310 /*M3_VALST */ #define Ystate_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 1311 /*M3_VALST */ #define YS_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp[i][j][k]->Ystate[t][v] 1312 /*M3_VALSIT */ #define YS1_zwt_ua_dynzdf_imp(i, j, k, t) Yzwt_ua_dynzdf_imp[i][j][k]->Ystate[t][0] 1313 /*M3_HERESIT*/ #define YS1Y_zwt_ua_dynzdf_imp Yzwt_ua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1314 /*M3_VALST */ #define Ygrad_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1315 /*M3_VALST */ #define YG_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1316 /*M3_VALSIT */ #define YG1_zwt_ua_dynzdf_imp(i, j, k, t) Yzwt_ua_dynzdf_imp[i][j][k]->Ygrad[t][0] 1317 /*M3_HERESIT*/ #define YG1Y_zwt_ua_dynzdf_imp Yzwt_ua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1318 zwt_ua_dynzdf_imp *Yzwt_ua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1198 /*M3_VALST */ #define Ystate_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1199 /*M3_VALST */ #define YS_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp->Ystate[t][i][j][k][v] 1200 /*M3_VALSIT */ #define YS1_zwt_ua_dynzdf_imp(i, j, k, t) Yzwt_ua_dynzdf_imp->Ystate[t][i][j][k][0] 1201 /*M3_HERESIT*/ #define YS1Y_zwt_ua_dynzdf_imp Yzwt_ua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1202 /*M3_VALST */ #define Ygrad_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1203 /*M3_VALST */ #define YG_zwt_ua_dynzdf_imp(v, i, j, k, t) Yzwt_ua_dynzdf_imp->Ygrad[t][i][j][k][v] 1204 /*M3_VALSIT */ #define YG1_zwt_ua_dynzdf_imp(i, j, k, t) Yzwt_ua_dynzdf_imp->Ygrad[t][i][j][k][0] 1205 /*M3_HERESIT*/ #define YG1Y_zwt_ua_dynzdf_imp Yzwt_ua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1206 zwt_ua_dynzdf_imp *Yzwt_ua_dynzdf_imp; 1319 1207 1320 1208 //~~~~~~~~~~~~~~~~~~~~~~~~~ module zwt_va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1323 1211 /*NBSMOD */ #define YNBS_zwt_va_dynzdf_imp 1 1324 1212 /*NBIMOD */ #define YNBI_zwt_va_dynzdf_imp 4 1325 /*M3_IRMOD */ #define Yzwt_va_dynzdf_imp(i, j, k) Yzwt_va_dynzdf_imp[i][j][k] 1326 /*M3_NOWMOD */ #define Yzwt_va_dynzdf_impY Yzwt_va_dynzdf_imp[Yi][Yj][Yk] 1327 /*M3_VALST */ #define Ystate_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp[i][j][k]->Ystate[t][v] 1328 /*M3_VALST */ #define YS_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp[i][j][k]->Ystate[t][v] 1329 /*M3_VALSIT */ #define YS1_zwt_va_dynzdf_imp(i, j, k, t) Yzwt_va_dynzdf_imp[i][j][k]->Ystate[t][0] 1330 /*M3_HERESIT*/ #define YS1Y_zwt_va_dynzdf_imp Yzwt_va_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1331 /*M3_VALST */ #define Ygrad_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 1332 /*M3_VALST */ #define YG_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp[i][j][k]->Ygrad[t][v] 1333 /*M3_VALSIT */ #define YG1_zwt_va_dynzdf_imp(i, j, k, t) Yzwt_va_dynzdf_imp[i][j][k]->Ygrad[t][0] 1334 /*M3_HERESIT*/ #define YG1Y_zwt_va_dynzdf_imp Yzwt_va_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1335 zwt_va_dynzdf_imp *Yzwt_va_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1213 /*M3_VALST */ #define Ystate_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp->Ystate[t][i][j][k][v] 1214 /*M3_VALST */ #define YS_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp->Ystate[t][i][j][k][v] 1215 /*M3_VALSIT */ #define YS1_zwt_va_dynzdf_imp(i, j, k, t) Yzwt_va_dynzdf_imp->Ystate[t][i][j][k][0] 1216 /*M3_HERESIT*/ #define YS1Y_zwt_va_dynzdf_imp Yzwt_va_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1217 /*M3_VALST */ #define Ygrad_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1218 /*M3_VALST */ #define YG_zwt_va_dynzdf_imp(v, i, j, k, t) Yzwt_va_dynzdf_imp->Ygrad[t][i][j][k][v] 1219 /*M3_VALSIT */ #define YG1_zwt_va_dynzdf_imp(i, j, k, t) Yzwt_va_dynzdf_imp->Ygrad[t][i][j][k][0] 1220 /*M3_HERESIT*/ #define YG1Y_zwt_va_dynzdf_imp Yzwt_va_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1221 zwt_va_dynzdf_imp *Yzwt_va_dynzdf_imp; 1336 1222 1337 1223 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_de_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1340 1226 /*NBSMOD */ #define YNBS_ua_de_dynzdf_imp 1 1341 1227 /*NBIMOD */ #define YNBI_ua_de_dynzdf_imp 4 1342 /*M3_IRMOD */ #define Yua_de_dynzdf_imp(i, j, k) Yua_de_dynzdf_imp[i][j][k] 1343 /*M3_NOWMOD */ #define Yua_de_dynzdf_impY Yua_de_dynzdf_imp[Yi][Yj][Yk] 1344 /*M3_VALST */ #define Ystate_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp[i][j][k]->Ystate[t][v] 1345 /*M3_VALST */ #define YS_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp[i][j][k]->Ystate[t][v] 1346 /*M3_VALSIT */ #define YS1_ua_de_dynzdf_imp(i, j, k, t) Yua_de_dynzdf_imp[i][j][k]->Ystate[t][0] 1347 /*M3_HERESIT*/ #define YS1Y_ua_de_dynzdf_imp Yua_de_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1348 /*M3_VALST */ #define Ygrad_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp[i][j][k]->Ygrad[t][v] 1349 /*M3_VALST */ #define YG_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp[i][j][k]->Ygrad[t][v] 1350 /*M3_VALSIT */ #define YG1_ua_de_dynzdf_imp(i, j, k, t) Yua_de_dynzdf_imp[i][j][k]->Ygrad[t][0] 1351 /*M3_HERESIT*/ #define YG1Y_ua_de_dynzdf_imp Yua_de_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1352 ua_de_dynzdf_imp *Yua_de_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1228 /*M3_VALST */ #define Ystate_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp->Ystate[t][i][j][k][v] 1229 /*M3_VALST */ #define YS_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp->Ystate[t][i][j][k][v] 1230 /*M3_VALSIT */ #define YS1_ua_de_dynzdf_imp(i, j, k, t) Yua_de_dynzdf_imp->Ystate[t][i][j][k][0] 1231 /*M3_HERESIT*/ #define YS1Y_ua_de_dynzdf_imp Yua_de_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1232 /*M3_VALST */ #define Ygrad_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp->Ygrad[t][i][j][k][v] 1233 /*M3_VALST */ #define YG_ua_de_dynzdf_imp(v, i, j, k, t) Yua_de_dynzdf_imp->Ygrad[t][i][j][k][v] 1234 /*M3_VALSIT */ #define YG1_ua_de_dynzdf_imp(i, j, k, t) Yua_de_dynzdf_imp->Ygrad[t][i][j][k][0] 1235 /*M3_HERESIT*/ #define YG1Y_ua_de_dynzdf_imp Yua_de_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1236 ua_de_dynzdf_imp *Yua_de_dynzdf_imp; 1353 1237 1354 1238 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1359 1243 /*NBSMOD */ #define YNBS_ua_dynzdf_imp 1 1360 1244 /*NBIMOD */ #define YNBI_ua_dynzdf_imp 4 1361 /*M3_IRMOD */ #define Yua_dynzdf_imp(i, j, k) Yua_dynzdf_imp[i][j][k] 1362 /*M3_NOWMOD */ #define Yua_dynzdf_impY Yua_dynzdf_imp[Yi][Yj][Yk] 1363 /*M3_VALST */ #define Ystate_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp[i][j][k]->Ystate[t][v] 1364 /*M3_VALST */ #define YS_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp[i][j][k]->Ystate[t][v] 1365 /*M3_VALSIT */ #define YS1_ua_dynzdf_imp(i, j, k, t) Yua_dynzdf_imp[i][j][k]->Ystate[t][0] 1366 /*M3_HERESIT*/ #define YS1Y_ua_dynzdf_imp Yua_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1367 /*M3_VALST */ #define Ygrad_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1368 /*M3_VALST */ #define YG_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp[i][j][k]->Ygrad[t][v] 1369 /*M3_VALSIT */ #define YG1_ua_dynzdf_imp(i, j, k, t) Yua_dynzdf_imp[i][j][k]->Ygrad[t][0] 1370 /*M3_HERESIT*/ #define YG1Y_ua_dynzdf_imp Yua_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1371 ua_dynzdf_imp *Yua_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1245 /*M3_VALST */ #define Ystate_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp->Ystate[t][i][j][k][v] 1246 /*M3_VALST */ #define YS_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp->Ystate[t][i][j][k][v] 1247 /*M3_VALSIT */ #define YS1_ua_dynzdf_imp(i, j, k, t) Yua_dynzdf_imp->Ystate[t][i][j][k][0] 1248 /*M3_HERESIT*/ #define YS1Y_ua_dynzdf_imp Yua_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1249 /*M3_VALST */ #define Ygrad_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp->Ygrad[t][i][j][k][v] 1250 /*M3_VALST */ #define YG_ua_dynzdf_imp(v, i, j, k, t) Yua_dynzdf_imp->Ygrad[t][i][j][k][v] 1251 /*M3_VALSIT */ #define YG1_ua_dynzdf_imp(i, j, k, t) Yua_dynzdf_imp->Ygrad[t][i][j][k][0] 1252 /*M3_HERESIT*/ #define YG1Y_ua_dynzdf_imp Yua_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1253 ua_dynzdf_imp *Yua_dynzdf_imp; 1372 1254 1373 1255 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_de_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1376 1258 /*NBSMOD */ #define YNBS_va_de_dynzdf_imp 1 1377 1259 /*NBIMOD */ #define YNBI_va_de_dynzdf_imp 4 1378 /*M3_IRMOD */ #define Yva_de_dynzdf_imp(i, j, k) Yva_de_dynzdf_imp[i][j][k] 1379 /*M3_NOWMOD */ #define Yva_de_dynzdf_impY Yva_de_dynzdf_imp[Yi][Yj][Yk] 1380 /*M3_VALST */ #define Ystate_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp[i][j][k]->Ystate[t][v] 1381 /*M3_VALST */ #define YS_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp[i][j][k]->Ystate[t][v] 1382 /*M3_VALSIT */ #define YS1_va_de_dynzdf_imp(i, j, k, t) Yva_de_dynzdf_imp[i][j][k]->Ystate[t][0] 1383 /*M3_HERESIT*/ #define YS1Y_va_de_dynzdf_imp Yva_de_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1384 /*M3_VALST */ #define Ygrad_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp[i][j][k]->Ygrad[t][v] 1385 /*M3_VALST */ #define YG_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp[i][j][k]->Ygrad[t][v] 1386 /*M3_VALSIT */ #define YG1_va_de_dynzdf_imp(i, j, k, t) Yva_de_dynzdf_imp[i][j][k]->Ygrad[t][0] 1387 /*M3_HERESIT*/ #define YG1Y_va_de_dynzdf_imp Yva_de_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1388 va_de_dynzdf_imp *Yva_de_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1260 /*M3_VALST */ #define Ystate_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp->Ystate[t][i][j][k][v] 1261 /*M3_VALST */ #define YS_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp->Ystate[t][i][j][k][v] 1262 /*M3_VALSIT */ #define YS1_va_de_dynzdf_imp(i, j, k, t) Yva_de_dynzdf_imp->Ystate[t][i][j][k][0] 1263 /*M3_HERESIT*/ #define YS1Y_va_de_dynzdf_imp Yva_de_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1264 /*M3_VALST */ #define Ygrad_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp->Ygrad[t][i][j][k][v] 1265 /*M3_VALST */ #define YG_va_de_dynzdf_imp(v, i, j, k, t) Yva_de_dynzdf_imp->Ygrad[t][i][j][k][v] 1266 /*M3_VALSIT */ #define YG1_va_de_dynzdf_imp(i, j, k, t) Yva_de_dynzdf_imp->Ygrad[t][i][j][k][0] 1267 /*M3_HERESIT*/ #define YG1Y_va_de_dynzdf_imp Yva_de_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1268 va_de_dynzdf_imp *Yva_de_dynzdf_imp; 1389 1269 1390 1270 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_dynzdf_imp~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1393 1273 /*NBSMOD */ #define YNBS_va_dynzdf_imp 1 1394 1274 /*NBIMOD */ #define YNBI_va_dynzdf_imp 4 1395 /*M3_IRMOD */ #define Yva_dynzdf_imp(i, j, k) Yva_dynzdf_imp[i][j][k] 1396 /*M3_NOWMOD */ #define Yva_dynzdf_impY Yva_dynzdf_imp[Yi][Yj][Yk] 1397 /*M3_VALST */ #define Ystate_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp[i][j][k]->Ystate[t][v] 1398 /*M3_VALST */ #define YS_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp[i][j][k]->Ystate[t][v] 1399 /*M3_VALSIT */ #define YS1_va_dynzdf_imp(i, j, k, t) Yva_dynzdf_imp[i][j][k]->Ystate[t][0] 1400 /*M3_HERESIT*/ #define YS1Y_va_dynzdf_imp Yva_dynzdf_imp[Yi][Yj][Yk]->Ystate[YTemps][0] 1401 /*M3_VALST */ #define Ygrad_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp[i][j][k]->Ygrad[t][v] 1402 /*M3_VALST */ #define YG_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp[i][j][k]->Ygrad[t][v] 1403 /*M3_VALSIT */ #define YG1_va_dynzdf_imp(i, j, k, t) Yva_dynzdf_imp[i][j][k]->Ygrad[t][0] 1404 /*M3_HERESIT*/ #define YG1Y_va_dynzdf_imp Yva_dynzdf_imp[Yi][Yj][Yk]->Ygrad[YTemps][0] 1405 va_dynzdf_imp *Yva_dynzdf_imp[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1275 /*M3_VALST */ #define Ystate_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp->Ystate[t][i][j][k][v] 1276 /*M3_VALST */ #define YS_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp->Ystate[t][i][j][k][v] 1277 /*M3_VALSIT */ #define YS1_va_dynzdf_imp(i, j, k, t) Yva_dynzdf_imp->Ystate[t][i][j][k][0] 1278 /*M3_HERESIT*/ #define YS1Y_va_dynzdf_imp Yva_dynzdf_imp->Ystate[YTemps][Yi][Yj][Yk][0] 1279 /*M3_VALST */ #define Ygrad_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp->Ygrad[t][i][j][k][v] 1280 /*M3_VALST */ #define YG_va_dynzdf_imp(v, i, j, k, t) Yva_dynzdf_imp->Ygrad[t][i][j][k][v] 1281 /*M3_VALSIT */ #define YG1_va_dynzdf_imp(i, j, k, t) Yva_dynzdf_imp->Ygrad[t][i][j][k][0] 1282 /*M3_HERESIT*/ #define YG1Y_va_dynzdf_imp Yva_dynzdf_imp->Ygrad[YTemps][Yi][Yj][Yk][0] 1283 va_dynzdf_imp *Yva_dynzdf_imp; 1406 1284 1407 1285 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_norm_dynzdf~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1412 1290 /*NBSMOD */ #define YNBS_ua_norm_dynzdf 1 1413 1291 /*NBIMOD */ #define YNBI_ua_norm_dynzdf 2 1414 /*M3_IRMOD */ #define Yua_norm_dynzdf(i, j, k) Yua_norm_dynzdf[i][j][k] 1415 /*M3_NOWMOD */ #define Yua_norm_dynzdfY Yua_norm_dynzdf[Yi][Yj][Yk] 1416 /*M3_VALST */ #define Ystate_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf[i][j][k]->Ystate[t][v] 1417 /*M3_VALST */ #define YS_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf[i][j][k]->Ystate[t][v] 1418 /*M3_VALSIT */ #define YS1_ua_norm_dynzdf(i, j, k, t) Yua_norm_dynzdf[i][j][k]->Ystate[t][0] 1419 /*M3_HERESIT*/ #define YS1Y_ua_norm_dynzdf Yua_norm_dynzdf[Yi][Yj][Yk]->Ystate[YTemps][0] 1420 /*M3_VALST */ #define Ygrad_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf[i][j][k]->Ygrad[t][v] 1421 /*M3_VALST */ #define YG_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf[i][j][k]->Ygrad[t][v] 1422 /*M3_VALSIT */ #define YG1_ua_norm_dynzdf(i, j, k, t) Yua_norm_dynzdf[i][j][k]->Ygrad[t][0] 1423 /*M3_HERESIT*/ #define YG1Y_ua_norm_dynzdf Yua_norm_dynzdf[Yi][Yj][Yk]->Ygrad[YTemps][0] 1424 ua_norm_dynzdf *Yua_norm_dynzdf[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1292 /*M3_VALST */ #define Ystate_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf->Ystate[t][i][j][k][v] 1293 /*M3_VALST */ #define YS_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf->Ystate[t][i][j][k][v] 1294 /*M3_VALSIT */ #define YS1_ua_norm_dynzdf(i, j, k, t) Yua_norm_dynzdf->Ystate[t][i][j][k][0] 1295 /*M3_HERESIT*/ #define YS1Y_ua_norm_dynzdf Yua_norm_dynzdf->Ystate[YTemps][Yi][Yj][Yk][0] 1296 /*M3_VALST */ #define Ygrad_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf->Ygrad[t][i][j][k][v] 1297 /*M3_VALST */ #define YG_ua_norm_dynzdf(v, i, j, k, t) Yua_norm_dynzdf->Ygrad[t][i][j][k][v] 1298 /*M3_VALSIT */ #define YG1_ua_norm_dynzdf(i, j, k, t) Yua_norm_dynzdf->Ygrad[t][i][j][k][0] 1299 /*M3_HERESIT*/ #define YG1Y_ua_norm_dynzdf Yua_norm_dynzdf->Ygrad[YTemps][Yi][Yj][Yk][0] 1300 ua_norm_dynzdf *Yua_norm_dynzdf; 1425 1301 1426 1302 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_norm_dynzdf~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1429 1305 /*NBSMOD */ #define YNBS_va_norm_dynzdf 1 1430 1306 /*NBIMOD */ #define YNBI_va_norm_dynzdf 2 1431 /*M3_IRMOD */ #define Yva_norm_dynzdf(i, j, k) Yva_norm_dynzdf[i][j][k] 1432 /*M3_NOWMOD */ #define Yva_norm_dynzdfY Yva_norm_dynzdf[Yi][Yj][Yk] 1433 /*M3_VALST */ #define Ystate_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf[i][j][k]->Ystate[t][v] 1434 /*M3_VALST */ #define YS_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf[i][j][k]->Ystate[t][v] 1435 /*M3_VALSIT */ #define YS1_va_norm_dynzdf(i, j, k, t) Yva_norm_dynzdf[i][j][k]->Ystate[t][0] 1436 /*M3_HERESIT*/ #define YS1Y_va_norm_dynzdf Yva_norm_dynzdf[Yi][Yj][Yk]->Ystate[YTemps][0] 1437 /*M3_VALST */ #define Ygrad_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf[i][j][k]->Ygrad[t][v] 1438 /*M3_VALST */ #define YG_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf[i][j][k]->Ygrad[t][v] 1439 /*M3_VALSIT */ #define YG1_va_norm_dynzdf(i, j, k, t) Yva_norm_dynzdf[i][j][k]->Ygrad[t][0] 1440 /*M3_HERESIT*/ #define YG1Y_va_norm_dynzdf Yva_norm_dynzdf[Yi][Yj][Yk]->Ygrad[YTemps][0] 1441 va_norm_dynzdf *Yva_norm_dynzdf[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1307 /*M3_VALST */ #define Ystate_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf->Ystate[t][i][j][k][v] 1308 /*M3_VALST */ #define YS_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf->Ystate[t][i][j][k][v] 1309 /*M3_VALSIT */ #define YS1_va_norm_dynzdf(i, j, k, t) Yva_norm_dynzdf->Ystate[t][i][j][k][0] 1310 /*M3_HERESIT*/ #define YS1Y_va_norm_dynzdf Yva_norm_dynzdf->Ystate[YTemps][Yi][Yj][Yk][0] 1311 /*M3_VALST */ #define Ygrad_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf->Ygrad[t][i][j][k][v] 1312 /*M3_VALST */ #define YG_va_norm_dynzdf(v, i, j, k, t) Yva_norm_dynzdf->Ygrad[t][i][j][k][v] 1313 /*M3_VALSIT */ #define YG1_va_norm_dynzdf(i, j, k, t) Yva_norm_dynzdf->Ygrad[t][i][j][k][0] 1314 /*M3_HERESIT*/ #define YG1Y_va_norm_dynzdf Yva_norm_dynzdf->Ygrad[YTemps][Yi][Yj][Yk][0] 1315 va_norm_dynzdf *Yva_norm_dynzdf; 1442 1316 1443 1317 //~~~~~~~~~~~~~~~~~~~~~~~~~ module spguv_now_dynspg~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1449 1323 /*NBSMOD */ #define YNBS_spguv_now_dynspg 2 1450 1324 /*NBIMOD */ #define YNBI_spguv_now_dynspg 3 1451 /*M2_IRMOD */ #define Yspguv_now_dynspg(i, j) Yspguv_now_dynspg[i][j] 1452 /*M2_NOWMOD */ #define Yspguv_now_dynspgY Yspguv_now_dynspg[Yi][Yj] 1453 /*M2_VALST */ #define Ystate_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg[i][j]->Ystate[t][v] 1454 /*M2_VALST */ #define YS_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg[i][j]->Ystate[t][v] 1455 /*M2_VALSIT */ #define YS1_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg[i][j]->Ystate[t][0] 1456 /*M2_HERESIT*/ #define YS1Y_spguv_now_dynspg Yspguv_now_dynspg[Yi][Yj]->Ystate[YTemps][0] 1457 /*M2_VALSIT */ #define YS2_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg[i][j]->Ystate[t][1] 1458 /*M2_HERESIT*/ #define YS2Y_spguv_now_dynspg Yspguv_now_dynspg[Yi][Yj]->Ystate[YTemps][1] 1459 /*M2_VALST */ #define Ygrad_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg[i][j]->Ygrad[t][v] 1460 /*M2_VALST */ #define YG_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg[i][j]->Ygrad[t][v] 1461 /*M2_VALSIT */ #define YG1_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg[i][j]->Ygrad[t][0] 1462 /*M2_HERESIT*/ #define YG1Y_spguv_now_dynspg Yspguv_now_dynspg[Yi][Yj]->Ygrad[YTemps][0] 1463 /*M2_VALSIT */ #define YG2_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg[i][j]->Ygrad[t][1] 1464 /*M2_HERESIT*/ #define YG2Y_spguv_now_dynspg Yspguv_now_dynspg[Yi][Yj]->Ygrad[YTemps][1] 1465 spguv_now_dynspg *Yspguv_now_dynspg[YA1_S3dt][YA2_S3dt]; 1325 /*M2_VALST */ #define Ystate_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg->Ystate[t][i][j][v] 1326 /*M2_VALST */ #define YS_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg->Ystate[t][i][j][v] 1327 /*M2_VALSIT */ #define YS1_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg->Ystate[t][i][j][0] 1328 /*M2_HERESIT*/ #define YS1Y_spguv_now_dynspg Yspguv_now_dynspg->Ystate[YTemps][Yi][Yj][0] 1329 /*M2_VALSIT */ #define YS2_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg->Ystate[t][i][j][1] 1330 /*M2_HERESIT*/ #define YS2Y_spguv_now_dynspg Yspguv_now_dynspg->Ystate[YTemps][Yi][Yj][1] 1331 /*M2_VALST */ #define Ygrad_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg->Ygrad[t][i][j][v] 1332 /*M2_VALST */ #define YG_spguv_now_dynspg(v, i, j, t) Yspguv_now_dynspg->Ygrad[t][i][j][v] 1333 /*M2_VALSIT */ #define YG1_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg->Ygrad[t][i][j][0] 1334 /*M2_HERESIT*/ #define YG1Y_spguv_now_dynspg Yspguv_now_dynspg->Ygrad[YTemps][Yi][Yj][0] 1335 /*M2_VALSIT */ #define YG2_spguv_now_dynspg(i, j, t) Yspguv_now_dynspg->Ygrad[t][i][j][1] 1336 /*M2_HERESIT*/ #define YG2Y_spguv_now_dynspg Yspguv_now_dynspg->Ygrad[YTemps][Yi][Yj][1] 1337 spguv_now_dynspg *Yspguv_now_dynspg; 1466 1338 1467 1339 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua_1_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1472 1344 /*NBSMOD */ #define YNBS_ua_1_dynspg_flt 1 1473 1345 /*NBIMOD */ #define YNBI_ua_1_dynspg_flt 3 1474 /*M3_IRMOD */ #define Yua_1_dynspg_flt(i, j, k) Yua_1_dynspg_flt[i][j][k] 1475 /*M3_NOWMOD */ #define Yua_1_dynspg_fltY Yua_1_dynspg_flt[Yi][Yj][Yk] 1476 /*M3_VALST */ #define Ystate_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt[i][j][k]->Ystate[t][v] 1477 /*M3_VALST */ #define YS_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt[i][j][k]->Ystate[t][v] 1478 /*M3_VALSIT */ #define YS1_ua_1_dynspg_flt(i, j, k, t) Yua_1_dynspg_flt[i][j][k]->Ystate[t][0] 1479 /*M3_HERESIT*/ #define YS1Y_ua_1_dynspg_flt Yua_1_dynspg_flt[Yi][Yj][Yk]->Ystate[YTemps][0] 1480 /*M3_VALST */ #define Ygrad_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt[i][j][k]->Ygrad[t][v] 1481 /*M3_VALST */ #define YG_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt[i][j][k]->Ygrad[t][v] 1482 /*M3_VALSIT */ #define YG1_ua_1_dynspg_flt(i, j, k, t) Yua_1_dynspg_flt[i][j][k]->Ygrad[t][0] 1483 /*M3_HERESIT*/ #define YG1Y_ua_1_dynspg_flt Yua_1_dynspg_flt[Yi][Yj][Yk]->Ygrad[YTemps][0] 1484 ua_1_dynspg_flt *Yua_1_dynspg_flt[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1346 /*M3_VALST */ #define Ystate_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt->Ystate[t][i][j][k][v] 1347 /*M3_VALST */ #define YS_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt->Ystate[t][i][j][k][v] 1348 /*M3_VALSIT */ #define YS1_ua_1_dynspg_flt(i, j, k, t) Yua_1_dynspg_flt->Ystate[t][i][j][k][0] 1349 /*M3_HERESIT*/ #define YS1Y_ua_1_dynspg_flt Yua_1_dynspg_flt->Ystate[YTemps][Yi][Yj][Yk][0] 1350 /*M3_VALST */ #define Ygrad_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt->Ygrad[t][i][j][k][v] 1351 /*M3_VALST */ #define YG_ua_1_dynspg_flt(v, i, j, k, t) Yua_1_dynspg_flt->Ygrad[t][i][j][k][v] 1352 /*M3_VALSIT */ #define YG1_ua_1_dynspg_flt(i, j, k, t) Yua_1_dynspg_flt->Ygrad[t][i][j][k][0] 1353 /*M3_HERESIT*/ #define YG1Y_ua_1_dynspg_flt Yua_1_dynspg_flt->Ygrad[YTemps][Yi][Yj][Yk][0] 1354 ua_1_dynspg_flt *Yua_1_dynspg_flt; 1485 1355 1486 1356 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va_1_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1491 1361 /*NBSMOD */ #define YNBS_va_1_dynspg_flt 1 1492 1362 /*NBIMOD */ #define YNBI_va_1_dynspg_flt 3 1493 /*M3_IRMOD */ #define Yva_1_dynspg_flt(i, j, k) Yva_1_dynspg_flt[i][j][k] 1494 /*M3_NOWMOD */ #define Yva_1_dynspg_fltY Yva_1_dynspg_flt[Yi][Yj][Yk] 1495 /*M3_VALST */ #define Ystate_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt[i][j][k]->Ystate[t][v] 1496 /*M3_VALST */ #define YS_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt[i][j][k]->Ystate[t][v] 1497 /*M3_VALSIT */ #define YS1_va_1_dynspg_flt(i, j, k, t) Yva_1_dynspg_flt[i][j][k]->Ystate[t][0] 1498 /*M3_HERESIT*/ #define YS1Y_va_1_dynspg_flt Yva_1_dynspg_flt[Yi][Yj][Yk]->Ystate[YTemps][0] 1499 /*M3_VALST */ #define Ygrad_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt[i][j][k]->Ygrad[t][v] 1500 /*M3_VALST */ #define YG_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt[i][j][k]->Ygrad[t][v] 1501 /*M3_VALSIT */ #define YG1_va_1_dynspg_flt(i, j, k, t) Yva_1_dynspg_flt[i][j][k]->Ygrad[t][0] 1502 /*M3_HERESIT*/ #define YG1Y_va_1_dynspg_flt Yva_1_dynspg_flt[Yi][Yj][Yk]->Ygrad[YTemps][0] 1503 va_1_dynspg_flt *Yva_1_dynspg_flt[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1363 /*M3_VALST */ #define Ystate_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt->Ystate[t][i][j][k][v] 1364 /*M3_VALST */ #define YS_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt->Ystate[t][i][j][k][v] 1365 /*M3_VALSIT */ #define YS1_va_1_dynspg_flt(i, j, k, t) Yva_1_dynspg_flt->Ystate[t][i][j][k][0] 1366 /*M3_HERESIT*/ #define YS1Y_va_1_dynspg_flt Yva_1_dynspg_flt->Ystate[YTemps][Yi][Yj][Yk][0] 1367 /*M3_VALST */ #define Ygrad_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt->Ygrad[t][i][j][k][v] 1368 /*M3_VALST */ #define YG_va_1_dynspg_flt(v, i, j, k, t) Yva_1_dynspg_flt->Ygrad[t][i][j][k][v] 1369 /*M3_VALSIT */ #define YG1_va_1_dynspg_flt(i, j, k, t) Yva_1_dynspg_flt->Ygrad[t][i][j][k][0] 1370 /*M3_HERESIT*/ #define YG1Y_va_1_dynspg_flt Yva_1_dynspg_flt->Ygrad[YTemps][Yi][Yj][Yk][0] 1371 va_1_dynspg_flt *Yva_1_dynspg_flt; 1504 1372 1505 1373 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sum_spgu_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1511 1379 /*NBSMOD */ #define YNBS_sum_spgu_dynspg_flt 1 1512 1380 /*NBIMOD */ #define YNBI_sum_spgu_dynspg_flt 31 1513 /*M2_IRMOD */ #define Ysum_spgu_dynspg_flt(i, j) Ysum_spgu_dynspg_flt[i][j] 1514 /*M2_NOWMOD */ #define Ysum_spgu_dynspg_fltY Ysum_spgu_dynspg_flt[Yi][Yj] 1515 /*M2_VALST */ #define Ystate_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt[i][j]->Ystate[t][v] 1516 /*M2_VALST */ #define YS_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt[i][j]->Ystate[t][v] 1517 /*M2_VALSIT */ #define YS1_sum_spgu_dynspg_flt(i, j, t) Ysum_spgu_dynspg_flt[i][j]->Ystate[t][0] 1518 /*M2_HERESIT*/ #define YS1Y_sum_spgu_dynspg_flt Ysum_spgu_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 1519 /*M2_VALST */ #define Ygrad_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt[i][j]->Ygrad[t][v] 1520 /*M2_VALST */ #define YG_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt[i][j]->Ygrad[t][v] 1521 /*M2_VALSIT */ #define YG1_sum_spgu_dynspg_flt(i, j, t) Ysum_spgu_dynspg_flt[i][j]->Ygrad[t][0] 1522 /*M2_HERESIT*/ #define YG1Y_sum_spgu_dynspg_flt Ysum_spgu_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 1523 sum_spgu_dynspg_flt *Ysum_spgu_dynspg_flt[YA1_S3dt][YA2_S3dt]; 1381 /*M2_VALST */ #define Ystate_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt->Ystate[t][i][j][v] 1382 /*M2_VALST */ #define YS_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt->Ystate[t][i][j][v] 1383 /*M2_VALSIT */ #define YS1_sum_spgu_dynspg_flt(i, j, t) Ysum_spgu_dynspg_flt->Ystate[t][i][j][0] 1384 /*M2_HERESIT*/ #define YS1Y_sum_spgu_dynspg_flt Ysum_spgu_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1385 /*M2_VALST */ #define Ygrad_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt->Ygrad[t][i][j][v] 1386 /*M2_VALST */ #define YG_sum_spgu_dynspg_flt(v, i, j, t) Ysum_spgu_dynspg_flt->Ygrad[t][i][j][v] 1387 /*M2_VALSIT */ #define YG1_sum_spgu_dynspg_flt(i, j, t) Ysum_spgu_dynspg_flt->Ygrad[t][i][j][0] 1388 /*M2_HERESIT*/ #define YG1Y_sum_spgu_dynspg_flt Ysum_spgu_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1389 sum_spgu_dynspg_flt *Ysum_spgu_dynspg_flt; 1524 1390 1525 1391 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sum_spgv_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1531 1397 /*NBSMOD */ #define YNBS_sum_spgv_dynspg_flt 1 1532 1398 /*NBIMOD */ #define YNBI_sum_spgv_dynspg_flt 31 1533 /*M2_IRMOD */ #define Ysum_spgv_dynspg_flt(i, j) Ysum_spgv_dynspg_flt[i][j] 1534 /*M2_NOWMOD */ #define Ysum_spgv_dynspg_fltY Ysum_spgv_dynspg_flt[Yi][Yj] 1535 /*M2_VALST */ #define Ystate_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt[i][j]->Ystate[t][v] 1536 /*M2_VALST */ #define YS_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt[i][j]->Ystate[t][v] 1537 /*M2_VALSIT */ #define YS1_sum_spgv_dynspg_flt(i, j, t) Ysum_spgv_dynspg_flt[i][j]->Ystate[t][0] 1538 /*M2_HERESIT*/ #define YS1Y_sum_spgv_dynspg_flt Ysum_spgv_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 1539 /*M2_VALST */ #define Ygrad_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt[i][j]->Ygrad[t][v] 1540 /*M2_VALST */ #define YG_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt[i][j]->Ygrad[t][v] 1541 /*M2_VALSIT */ #define YG1_sum_spgv_dynspg_flt(i, j, t) Ysum_spgv_dynspg_flt[i][j]->Ygrad[t][0] 1542 /*M2_HERESIT*/ #define YG1Y_sum_spgv_dynspg_flt Ysum_spgv_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 1543 sum_spgv_dynspg_flt *Ysum_spgv_dynspg_flt[YA1_S3dt][YA2_S3dt]; 1399 /*M2_VALST */ #define Ystate_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt->Ystate[t][i][j][v] 1400 /*M2_VALST */ #define YS_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt->Ystate[t][i][j][v] 1401 /*M2_VALSIT */ #define YS1_sum_spgv_dynspg_flt(i, j, t) Ysum_spgv_dynspg_flt->Ystate[t][i][j][0] 1402 /*M2_HERESIT*/ #define YS1Y_sum_spgv_dynspg_flt Ysum_spgv_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1403 /*M2_VALST */ #define Ygrad_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt->Ygrad[t][i][j][v] 1404 /*M2_VALST */ #define YG_sum_spgv_dynspg_flt(v, i, j, t) Ysum_spgv_dynspg_flt->Ygrad[t][i][j][v] 1405 /*M2_VALSIT */ #define YG1_sum_spgv_dynspg_flt(i, j, t) Ysum_spgv_dynspg_flt->Ygrad[t][i][j][0] 1406 /*M2_HERESIT*/ #define YG1Y_sum_spgv_dynspg_flt Ysum_spgv_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1407 sum_spgv_dynspg_flt *Ysum_spgv_dynspg_flt; 1544 1408 1545 1409 //~~~~~~~~~~~~~~~~~~~~~~~~~ module gcb_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1551 1415 /*NBSMOD */ #define YNBS_gcb_dynspg_flt 1 1552 1416 /*NBIMOD */ #define YNBI_gcb_dynspg_flt 4 1553 /*M2_IRMOD */ #define Ygcb_dynspg_flt(i, j) Ygcb_dynspg_flt[i][j] 1554 /*M2_NOWMOD */ #define Ygcb_dynspg_fltY Ygcb_dynspg_flt[Yi][Yj] 1555 /*M2_VALST */ #define Ystate_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt[i][j]->Ystate[t][v] 1556 /*M2_VALST */ #define YS_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt[i][j]->Ystate[t][v] 1557 /*M2_VALSIT */ #define YS1_gcb_dynspg_flt(i, j, t) Ygcb_dynspg_flt[i][j]->Ystate[t][0] 1558 /*M2_HERESIT*/ #define YS1Y_gcb_dynspg_flt Ygcb_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 1559 /*M2_VALST */ #define Ygrad_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt[i][j]->Ygrad[t][v] 1560 /*M2_VALST */ #define YG_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt[i][j]->Ygrad[t][v] 1561 /*M2_VALSIT */ #define YG1_gcb_dynspg_flt(i, j, t) Ygcb_dynspg_flt[i][j]->Ygrad[t][0] 1562 /*M2_HERESIT*/ #define YG1Y_gcb_dynspg_flt Ygcb_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 1563 gcb_dynspg_flt *Ygcb_dynspg_flt[YA1_S3dt][YA2_S3dt]; 1417 /*M2_VALST */ #define Ystate_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt->Ystate[t][i][j][v] 1418 /*M2_VALST */ #define YS_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt->Ystate[t][i][j][v] 1419 /*M2_VALSIT */ #define YS1_gcb_dynspg_flt(i, j, t) Ygcb_dynspg_flt->Ystate[t][i][j][0] 1420 /*M2_HERESIT*/ #define YS1Y_gcb_dynspg_flt Ygcb_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1421 /*M2_VALST */ #define Ygrad_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt->Ygrad[t][i][j][v] 1422 /*M2_VALST */ #define YG_gcb_dynspg_flt(v, i, j, t) Ygcb_dynspg_flt->Ygrad[t][i][j][v] 1423 /*M2_VALSIT */ #define YG1_gcb_dynspg_flt(i, j, t) Ygcb_dynspg_flt->Ygrad[t][i][j][0] 1424 /*M2_HERESIT*/ #define YG1Y_gcb_dynspg_flt Ygcb_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1425 gcb_dynspg_flt *Ygcb_dynspg_flt; 1564 1426 1565 1427 //~~~~~~~~~~~~~~~~~~~~~~~~~ module gcx_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ … … 1571 1433 /*NBSMOD */ #define YNBS_gcx_dynspg_flt 1 1572 1434 /*NBIMOD */ #define YNBI_gcx_dynspg_flt 2 1573 /*M2_IRMOD */ #define Ygcx_dynspg_flt(i, j) Ygcx_dynspg_flt[i][j] 1574 /*M2_NOWMOD */ #define Ygcx_dynspg_fltY Ygcx_dynspg_flt[Yi][Yj] 1575 /*M2_VALST */ #define Ystate_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt[i][j]->Ystate[t][v] 1576 /*M2_VALST */ #define YS_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt[i][j]->Ystate[t][v] 1577 /*M2_VALSIT */ #define YS1_gcx_dynspg_flt(i, j, t) Ygcx_dynspg_flt[i][j]->Ystate[t][0] 1578 /*M2_HERESIT*/ #define YS1Y_gcx_dynspg_flt Ygcx_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 1579 /*M2_VALST */ #define Ygrad_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt[i][j]->Ygrad[t][v] 1580 /*M2_VALST */ #define YG_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt[i][j]->Ygrad[t][v] 1581 /*M2_VALSIT */ #define YG1_gcx_dynspg_flt(i, j, t) Ygcx_dynspg_flt[i][j]->Ygrad[t][0] 1582 /*M2_HERESIT*/ #define YG1Y_gcx_dynspg_flt Ygcx_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 1583 gcx_dynspg_flt *Ygcx_dynspg_flt[YA1_S3dt][YA2_S3dt]; 1584 1585 //~~~~~~~~~~~~~~~~~~~~~~~~~ module solsor_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 1586 #define Yid_solsor_dynspg_flt 75 1587 1588 class Yaosolsor_dynspg_flt; 1589 class solsor_dynspg_flt; 1590 /*NBMOD */ #define YNB_solsor_dynspg_flt 704 1591 /*NBSMOD */ #define YNBS_solsor_dynspg_flt 1 1592 /*NBIMOD */ #define YNBI_solsor_dynspg_flt 19 1593 /*M2_IRMOD */ #define Ysolsor_dynspg_flt(i, j) Ysolsor_dynspg_flt[i][j] 1594 /*M2_NOWMOD */ #define Ysolsor_dynspg_fltY Ysolsor_dynspg_flt[Yi][Yj] 1595 /*M2_VALST */ #define Ystate_solsor_dynspg_flt(v, i, j, t) Ysolsor_dynspg_flt[i][j]->Ystate[t][v] 1596 /*M2_VALST */ #define YS_solsor_dynspg_flt(v, i, j, t) Ysolsor_dynspg_flt[i][j]->Ystate[t][v] 1597 /*M2_VALSIT */ #define YS1_solsor_dynspg_flt(i, j, t) Ysolsor_dynspg_flt[i][j]->Ystate[t][0] 1598 /*M2_HERESIT*/ #define YS1Y_solsor_dynspg_flt Ysolsor_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 1599 /*M2_VALST */ #define Ygrad_solsor_dynspg_flt(v, i, j, t) Ysolsor_dynspg_flt[i][j]->Ygrad[t][v] 1600 /*M2_VALST */ #define YG_solsor_dynspg_flt(v, i, j, t) Ysolsor_dynspg_flt[i][j]->Ygrad[t][v] 1601 /*M2_VALSIT */ #define YG1_solsor_dynspg_flt(i, j, t) Ysolsor_dynspg_flt[i][j]->Ygrad[t][0] 1602 /*M2_HERESIT*/ #define YG1Y_solsor_dynspg_flt Ysolsor_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 1603 solsor_dynspg_flt *Ysolsor_dynspg_flt[YA1_S3dt][YA2_S3dt]; 1435 /*M2_VALST */ #define Ystate_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt->Ystate[t][i][j][v] 1436 /*M2_VALST */ #define YS_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt->Ystate[t][i][j][v] 1437 /*M2_VALSIT */ #define YS1_gcx_dynspg_flt(i, j, t) Ygcx_dynspg_flt->Ystate[t][i][j][0] 1438 /*M2_HERESIT*/ #define YS1Y_gcx_dynspg_flt Ygcx_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1439 /*M2_VALST */ #define Ygrad_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt->Ygrad[t][i][j][v] 1440 /*M2_VALST */ #define YG_gcx_dynspg_flt(v, i, j, t) Ygcx_dynspg_flt->Ygrad[t][i][j][v] 1441 /*M2_VALSIT */ #define YG1_gcx_dynspg_flt(i, j, t) Ygcx_dynspg_flt->Ygrad[t][i][j][0] 1442 /*M2_HERESIT*/ #define YG1Y_gcx_dynspg_flt Ygcx_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1443 gcx_dynspg_flt *Ygcx_dynspg_flt; 1444 1445 //~~~~~~~~~~~~~~~~~~~~~~~~~ module solsor_gx1_x_r~~~~~~~~~~~~~~~~~~~~~~~~~ 1446 #define Yid_solsor_gx1_x_r 75 1447 1448 class Yaosolsor_gx1_x_r; 1449 class solsor_gx1_x_r; 1450 /*NBSMOD */ #define YNBS_solsor_gx1_x_r 2 1451 /*NBIMOD */ #define YNBI_solsor_gx1_x_r 8 1452 /*M3_VALST */ #define Ystate_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r->Ystate[t][i][j][k][v] 1453 /*M3_VALST */ #define YS_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r->Ystate[t][i][j][k][v] 1454 /*M3_VALSIT */ #define YS1_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r->Ystate[t][i][j][k][0] 1455 /*M3_HERESIT*/ #define YS1Y_solsor_gx1_x_r Ysolsor_gx1_x_r->Ystate[YTemps][Yi][Yj][Yk][0] 1456 /*M3_VALSIT */ #define YS2_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r->Ystate[t][i][j][k][1] 1457 /*M3_HERESIT*/ #define YS2Y_solsor_gx1_x_r Ysolsor_gx1_x_r->Ystate[YTemps][Yi][Yj][Yk][1] 1458 /*M3_VALST */ #define Ygrad_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r->Ygrad[t][i][j][k][v] 1459 /*M3_VALST */ #define YG_solsor_gx1_x_r(v, i, j, k, t) Ysolsor_gx1_x_r->Ygrad[t][i][j][k][v] 1460 /*M3_VALSIT */ #define YG1_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r->Ygrad[t][i][j][k][0] 1461 /*M3_HERESIT*/ #define YG1Y_solsor_gx1_x_r Ysolsor_gx1_x_r->Ygrad[YTemps][Yi][Yj][Yk][0] 1462 /*M3_VALSIT */ #define YG2_solsor_gx1_x_r(i, j, k, t) Ysolsor_gx1_x_r->Ygrad[t][i][j][k][1] 1463 /*M3_HERESIT*/ #define YG2Y_solsor_gx1_x_r Ysolsor_gx1_x_r->Ygrad[YTemps][Yi][Yj][Yk][1] 1464 solsor_gx1_x_r *Ysolsor_gx1_x_r; 1465 1466 //~~~~~~~~~~~~~~~~~~~~~~~~~ module solsor_gx2_x_r~~~~~~~~~~~~~~~~~~~~~~~~~ 1467 #define Yid_solsor_gx2_x_r 76 1468 1469 class Yaosolsor_gx2_x_r; 1470 class solsor_gx2_x_r; 1471 /*NBSMOD */ #define YNBS_solsor_gx2_x_r 2 1472 /*NBIMOD */ #define YNBI_solsor_gx2_x_r 9 1473 /*M3_VALST */ #define Ystate_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r->Ystate[t][i][j][k][v] 1474 /*M3_VALST */ #define YS_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r->Ystate[t][i][j][k][v] 1475 /*M3_VALSIT */ #define YS1_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r->Ystate[t][i][j][k][0] 1476 /*M3_HERESIT*/ #define YS1Y_solsor_gx2_x_r Ysolsor_gx2_x_r->Ystate[YTemps][Yi][Yj][Yk][0] 1477 /*M3_VALSIT */ #define YS2_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r->Ystate[t][i][j][k][1] 1478 /*M3_HERESIT*/ #define YS2Y_solsor_gx2_x_r Ysolsor_gx2_x_r->Ystate[YTemps][Yi][Yj][Yk][1] 1479 /*M3_VALST */ #define Ygrad_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r->Ygrad[t][i][j][k][v] 1480 /*M3_VALST */ #define YG_solsor_gx2_x_r(v, i, j, k, t) Ysolsor_gx2_x_r->Ygrad[t][i][j][k][v] 1481 /*M3_VALSIT */ #define YG1_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r->Ygrad[t][i][j][k][0] 1482 /*M3_HERESIT*/ #define YG1Y_solsor_gx2_x_r Ysolsor_gx2_x_r->Ygrad[YTemps][Yi][Yj][Yk][0] 1483 /*M3_VALSIT */ #define YG2_solsor_gx2_x_r(i, j, k, t) Ysolsor_gx2_x_r->Ygrad[t][i][j][k][1] 1484 /*M3_HERESIT*/ #define YG2Y_solsor_gx2_x_r Ysolsor_gx2_x_r->Ygrad[YTemps][Yi][Yj][Yk][1] 1485 solsor_gx2_x_r *Ysolsor_gx2_x_r; 1486 1487 //~~~~~~~~~~~~~~~~~~~~~~~~~ module solsor_flag~~~~~~~~~~~~~~~~~~~~~~~~~ 1488 #define Yid_solsor_flag 77 1489 1490 class Yaosolsor_flag; 1491 class solsor_flag; 1492 /*NBSMOD */ #define YNBS_solsor_flag 2 1493 /*NBIMOD */ #define YNBI_solsor_flag 4 1494 /*M3_VALST */ #define Ystate_solsor_flag(v, i, j, k, t) Ysolsor_flag->Ystate[t][i][j][k][v] 1495 /*M3_VALST */ #define YS_solsor_flag(v, i, j, k, t) Ysolsor_flag->Ystate[t][i][j][k][v] 1496 /*M3_VALSIT */ #define YS1_solsor_flag(i, j, k, t) Ysolsor_flag->Ystate[t][i][j][k][0] 1497 /*M3_HERESIT*/ #define YS1Y_solsor_flag Ysolsor_flag->Ystate[YTemps][Yi][Yj][Yk][0] 1498 /*M3_VALSIT */ #define YS2_solsor_flag(i, j, k, t) Ysolsor_flag->Ystate[t][i][j][k][1] 1499 /*M3_HERESIT*/ #define YS2Y_solsor_flag Ysolsor_flag->Ystate[YTemps][Yi][Yj][Yk][1] 1500 /*M3_VALST */ #define Ygrad_solsor_flag(v, i, j, k, t) Ysolsor_flag->Ygrad[t][i][j][k][v] 1501 /*M3_VALST */ #define YG_solsor_flag(v, i, j, k, t) Ysolsor_flag->Ygrad[t][i][j][k][v] 1502 /*M3_VALSIT */ #define YG1_solsor_flag(i, j, k, t) Ysolsor_flag->Ygrad[t][i][j][k][0] 1503 /*M3_HERESIT*/ #define YG1Y_solsor_flag Ysolsor_flag->Ygrad[YTemps][Yi][Yj][Yk][0] 1504 /*M3_VALSIT */ #define YG2_solsor_flag(i, j, k, t) Ysolsor_flag->Ygrad[t][i][j][k][1] 1505 /*M3_HERESIT*/ #define YG2Y_solsor_flag Ysolsor_flag->Ygrad[YTemps][Yi][Yj][Yk][1] 1506 solsor_flag *Ysolsor_flag; 1604 1507 1605 1508 //~~~~~~~~~~~~~~~~~~~~~~~~~ module gcx2~~~~~~~~~~~~~~~~~~~~~~~~~ 1606 #define Yid_gcx2 7 61509 #define Yid_gcx2 78 1607 1510 1608 1511 class Yaogcx2; … … 1611 1514 /*NBSMOD */ #define YNBS_gcx2 1 1612 1515 /*NBIMOD */ #define YNBI_gcx2 1 1613 /*M2_IRMOD */ #define Ygcx2(i, j) Ygcx2[i][j] 1614 /*M2_NOWMOD */ #define Ygcx2Y Ygcx2[Yi][Yj] 1615 /*M2_VALST */ #define Ystate_gcx2(v, i, j, t) Ygcx2[i][j]->Ystate[t][v] 1616 /*M2_VALST */ #define YS_gcx2(v, i, j, t) Ygcx2[i][j]->Ystate[t][v] 1617 /*M2_VALSIT */ #define YS1_gcx2(i, j, t) Ygcx2[i][j]->Ystate[t][0] 1618 /*M2_HERESIT*/ #define YS1Y_gcx2 Ygcx2[Yi][Yj]->Ystate[YTemps][0] 1619 /*M2_VALST */ #define Ygrad_gcx2(v, i, j, t) Ygcx2[i][j]->Ygrad[t][v] 1620 /*M2_VALST */ #define YG_gcx2(v, i, j, t) Ygcx2[i][j]->Ygrad[t][v] 1621 /*M2_VALSIT */ #define YG1_gcx2(i, j, t) Ygcx2[i][j]->Ygrad[t][0] 1622 /*M2_HERESIT*/ #define YG1Y_gcx2 Ygcx2[Yi][Yj]->Ygrad[YTemps][0] 1623 gcx2 *Ygcx2[YA1_S3dt][YA2_S3dt]; 1516 /*M2_VALST */ #define Ystate_gcx2(v, i, j, t) Ygcx2->Ystate[t][i][j][v] 1517 /*M2_VALST */ #define YS_gcx2(v, i, j, t) Ygcx2->Ystate[t][i][j][v] 1518 /*M2_VALSIT */ #define YS1_gcx2(i, j, t) Ygcx2->Ystate[t][i][j][0] 1519 /*M2_HERESIT*/ #define YS1Y_gcx2 Ygcx2->Ystate[YTemps][Yi][Yj][0] 1520 /*M2_VALST */ #define Ygrad_gcx2(v, i, j, t) Ygcx2->Ygrad[t][i][j][v] 1521 /*M2_VALST */ #define YG_gcx2(v, i, j, t) Ygcx2->Ygrad[t][i][j][v] 1522 /*M2_VALSIT */ #define YG1_gcx2(i, j, t) Ygcx2->Ygrad[t][i][j][0] 1523 /*M2_HERESIT*/ #define YG1Y_gcx2 Ygcx2->Ygrad[YTemps][Yi][Yj][0] 1524 gcx2 *Ygcx2; 1624 1525 1625 1526 //~~~~~~~~~~~~~~~~~~~~~~~~~ module spguv_dynspg_flt~~~~~~~~~~~~~~~~~~~~~~~~~ 1626 #define Yid_spguv_dynspg_flt 7 71527 #define Yid_spguv_dynspg_flt 79 1627 1528 1628 1529 class Yaospguv_dynspg_flt; … … 1631 1532 /*NBSMOD */ #define YNBS_spguv_dynspg_flt 2 1632 1533 /*NBIMOD */ #define YNBI_spguv_dynspg_flt 3 1633 /*M2_IRMOD */ #define Yspguv_dynspg_flt(i, j) Yspguv_dynspg_flt[i][j] 1634 /*M2_NOWMOD */ #define Yspguv_dynspg_fltY Yspguv_dynspg_flt[Yi][Yj] 1635 /*M2_VALST */ #define Ystate_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt[i][j]->Ystate[t][v] 1636 /*M2_VALST */ #define YS_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt[i][j]->Ystate[t][v] 1637 /*M2_VALSIT */ #define YS1_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt[i][j]->Ystate[t][0] 1638 /*M2_HERESIT*/ #define YS1Y_spguv_dynspg_flt Yspguv_dynspg_flt[Yi][Yj]->Ystate[YTemps][0] 1639 /*M2_VALSIT */ #define YS2_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt[i][j]->Ystate[t][1] 1640 /*M2_HERESIT*/ #define YS2Y_spguv_dynspg_flt Yspguv_dynspg_flt[Yi][Yj]->Ystate[YTemps][1] 1641 /*M2_VALST */ #define Ygrad_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt[i][j]->Ygrad[t][v] 1642 /*M2_VALST */ #define YG_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt[i][j]->Ygrad[t][v] 1643 /*M2_VALSIT */ #define YG1_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt[i][j]->Ygrad[t][0] 1644 /*M2_HERESIT*/ #define YG1Y_spguv_dynspg_flt Yspguv_dynspg_flt[Yi][Yj]->Ygrad[YTemps][0] 1645 /*M2_VALSIT */ #define YG2_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt[i][j]->Ygrad[t][1] 1646 /*M2_HERESIT*/ #define YG2Y_spguv_dynspg_flt Yspguv_dynspg_flt[Yi][Yj]->Ygrad[YTemps][1] 1647 spguv_dynspg_flt *Yspguv_dynspg_flt[YA1_S3dt][YA2_S3dt]; 1534 /*M2_VALST */ #define Ystate_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt->Ystate[t][i][j][v] 1535 /*M2_VALST */ #define YS_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt->Ystate[t][i][j][v] 1536 /*M2_VALSIT */ #define YS1_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt->Ystate[t][i][j][0] 1537 /*M2_HERESIT*/ #define YS1Y_spguv_dynspg_flt Yspguv_dynspg_flt->Ystate[YTemps][Yi][Yj][0] 1538 /*M2_VALSIT */ #define YS2_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt->Ystate[t][i][j][1] 1539 /*M2_HERESIT*/ #define YS2Y_spguv_dynspg_flt Yspguv_dynspg_flt->Ystate[YTemps][Yi][Yj][1] 1540 /*M2_VALST */ #define Ygrad_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt->Ygrad[t][i][j][v] 1541 /*M2_VALST */ #define YG_spguv_dynspg_flt(v, i, j, t) Yspguv_dynspg_flt->Ygrad[t][i][j][v] 1542 /*M2_VALSIT */ #define YG1_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt->Ygrad[t][i][j][0] 1543 /*M2_HERESIT*/ #define YG1Y_spguv_dynspg_flt Yspguv_dynspg_flt->Ygrad[YTemps][Yi][Yj][0] 1544 /*M2_VALSIT */ #define YG2_spguv_dynspg_flt(i, j, t) Yspguv_dynspg_flt->Ygrad[t][i][j][1] 1545 /*M2_HERESIT*/ #define YG2Y_spguv_dynspg_flt Yspguv_dynspg_flt->Ygrad[YTemps][Yi][Yj][1] 1546 spguv_dynspg_flt *Yspguv_dynspg_flt; 1648 1547 1649 1548 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ua~~~~~~~~~~~~~~~~~~~~~~~~~ 1650 #define Yid_ua 781549 #define Yid_ua 80 1651 1550 1652 1551 class Yaoua; … … 1654 1553 /*NBSMOD */ #define YNBS_ua 1 1655 1554 /*NBIMOD */ #define YNBI_ua 3 1656 /*M3_IRMOD */ #define Yua(i, j, k) Yua[i][j][k] 1657 /*M3_NOWMOD */ #define YuaY Yua[Yi][Yj][Yk] 1658 /*M3_VALST */ #define Ystate_ua(v, i, j, k, t) Yua[i][j][k]->Ystate[t][v] 1659 /*M3_VALST */ #define YS_ua(v, i, j, k, t) Yua[i][j][k]->Ystate[t][v] 1660 /*M3_VALSIT */ #define YS1_ua(i, j, k, t) Yua[i][j][k]->Ystate[t][0] 1661 /*M3_HERESIT*/ #define YS1Y_ua Yua[Yi][Yj][Yk]->Ystate[YTemps][0] 1662 /*M3_VALST */ #define Ygrad_ua(v, i, j, k, t) Yua[i][j][k]->Ygrad[t][v] 1663 /*M3_VALST */ #define YG_ua(v, i, j, k, t) Yua[i][j][k]->Ygrad[t][v] 1664 /*M3_VALSIT */ #define YG1_ua(i, j, k, t) Yua[i][j][k]->Ygrad[t][0] 1665 /*M3_HERESIT*/ #define YG1Y_ua Yua[Yi][Yj][Yk]->Ygrad[YTemps][0] 1666 ua *Yua[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1555 /*M3_VALST */ #define Ystate_ua(v, i, j, k, t) Yua->Ystate[t][i][j][k][v] 1556 /*M3_VALST */ #define YS_ua(v, i, j, k, t) Yua->Ystate[t][i][j][k][v] 1557 /*M3_VALSIT */ #define YS1_ua(i, j, k, t) Yua->Ystate[t][i][j][k][0] 1558 /*M3_HERESIT*/ #define YS1Y_ua Yua->Ystate[YTemps][Yi][Yj][Yk][0] 1559 /*M3_VALST */ #define Ygrad_ua(v, i, j, k, t) Yua->Ygrad[t][i][j][k][v] 1560 /*M3_VALST */ #define YG_ua(v, i, j, k, t) Yua->Ygrad[t][i][j][k][v] 1561 /*M3_VALSIT */ #define YG1_ua(i, j, k, t) Yua->Ygrad[t][i][j][k][0] 1562 /*M3_HERESIT*/ #define YG1Y_ua Yua->Ygrad[YTemps][Yi][Yj][Yk][0] 1563 ua *Yua; 1667 1564 1668 1565 //~~~~~~~~~~~~~~~~~~~~~~~~~ module va~~~~~~~~~~~~~~~~~~~~~~~~~ 1669 #define Yid_va 791566 #define Yid_va 81 1670 1567 1671 1568 class Yaova; … … 1673 1570 /*NBSMOD */ #define YNBS_va 1 1674 1571 /*NBIMOD */ #define YNBI_va 3 1675 /*M3_IRMOD */ #define Yva(i, j, k) Yva[i][j][k] 1676 /*M3_NOWMOD */ #define YvaY Yva[Yi][Yj][Yk] 1677 /*M3_VALST */ #define Ystate_va(v, i, j, k, t) Yva[i][j][k]->Ystate[t][v] 1678 /*M3_VALST */ #define YS_va(v, i, j, k, t) Yva[i][j][k]->Ystate[t][v] 1679 /*M3_VALSIT */ #define YS1_va(i, j, k, t) Yva[i][j][k]->Ystate[t][0] 1680 /*M3_HERESIT*/ #define YS1Y_va Yva[Yi][Yj][Yk]->Ystate[YTemps][0] 1681 /*M3_VALST */ #define Ygrad_va(v, i, j, k, t) Yva[i][j][k]->Ygrad[t][v] 1682 /*M3_VALST */ #define YG_va(v, i, j, k, t) Yva[i][j][k]->Ygrad[t][v] 1683 /*M3_VALSIT */ #define YG1_va(i, j, k, t) Yva[i][j][k]->Ygrad[t][0] 1684 /*M3_HERESIT*/ #define YG1Y_va Yva[Yi][Yj][Yk]->Ygrad[YTemps][0] 1685 va *Yva[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1572 /*M3_VALST */ #define Ystate_va(v, i, j, k, t) Yva->Ystate[t][i][j][k][v] 1573 /*M3_VALST */ #define YS_va(v, i, j, k, t) Yva->Ystate[t][i][j][k][v] 1574 /*M3_VALSIT */ #define YS1_va(i, j, k, t) Yva->Ystate[t][i][j][k][0] 1575 /*M3_HERESIT*/ #define YS1Y_va Yva->Ystate[YTemps][Yi][Yj][Yk][0] 1576 /*M3_VALST */ #define Ygrad_va(v, i, j, k, t) Yva->Ygrad[t][i][j][k][v] 1577 /*M3_VALST */ #define YG_va(v, i, j, k, t) Yva->Ygrad[t][i][j][k][v] 1578 /*M3_VALSIT */ #define YG1_va(i, j, k, t) Yva->Ygrad[t][i][j][k][0] 1579 /*M3_HERESIT*/ #define YG1Y_va Yva->Ygrad[YTemps][Yi][Yj][Yk][0] 1580 va *Yva; 1686 1581 1687 1582 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sshn~~~~~~~~~~~~~~~~~~~~~~~~~ 1688 #define Yid_sshn 8 01583 #define Yid_sshn 82 1689 1584 1690 1585 class Yaosshn; … … 1693 1588 /*NBSMOD */ #define YNBS_sshn 1 1694 1589 /*NBIMOD */ #define YNBI_sshn 4 1695 /*M2_IRMOD */ #define Ysshn(i, j) Ysshn[i][j] 1696 /*M2_NOWMOD */ #define YsshnY Ysshn[Yi][Yj] 1697 /*M2_VALST */ #define Ystate_sshn(v, i, j, t) Ysshn[i][j]->Ystate[t][v] 1698 /*M2_VALST */ #define YS_sshn(v, i, j, t) Ysshn[i][j]->Ystate[t][v] 1699 /*M2_VALSIT */ #define YS1_sshn(i, j, t) Ysshn[i][j]->Ystate[t][0] 1700 /*M2_HERESIT*/ #define YS1Y_sshn Ysshn[Yi][Yj]->Ystate[YTemps][0] 1701 /*M2_VALST */ #define Ygrad_sshn(v, i, j, t) Ysshn[i][j]->Ygrad[t][v] 1702 /*M2_VALST */ #define YG_sshn(v, i, j, t) Ysshn[i][j]->Ygrad[t][v] 1703 /*M2_VALSIT */ #define YG1_sshn(i, j, t) Ysshn[i][j]->Ygrad[t][0] 1704 /*M2_HERESIT*/ #define YG1Y_sshn Ysshn[Yi][Yj]->Ygrad[YTemps][0] 1705 sshn *Ysshn[YA1_S3dt][YA2_S3dt]; 1590 /*M2_VALST */ #define Ystate_sshn(v, i, j, t) Ysshn->Ystate[t][i][j][v] 1591 /*M2_VALST */ #define YS_sshn(v, i, j, t) Ysshn->Ystate[t][i][j][v] 1592 /*M2_VALSIT */ #define YS1_sshn(i, j, t) Ysshn->Ystate[t][i][j][0] 1593 /*M2_HERESIT*/ #define YS1Y_sshn Ysshn->Ystate[YTemps][Yi][Yj][0] 1594 /*M2_VALST */ #define Ygrad_sshn(v, i, j, t) Ysshn->Ygrad[t][i][j][v] 1595 /*M2_VALST */ #define YG_sshn(v, i, j, t) Ysshn->Ygrad[t][i][j][v] 1596 /*M2_VALSIT */ #define YG1_sshn(i, j, t) Ysshn->Ygrad[t][i][j][0] 1597 /*M2_HERESIT*/ #define YG1Y_sshn Ysshn->Ygrad[YTemps][Yi][Yj][0] 1598 sshn *Ysshn; 1706 1599 1707 1600 //~~~~~~~~~~~~~~~~~~~~~~~~~ module sshb~~~~~~~~~~~~~~~~~~~~~~~~~ 1708 #define Yid_sshb 8 11601 #define Yid_sshb 83 1709 1602 1710 1603 class Yaosshb; … … 1713 1606 /*NBSMOD */ #define YNBS_sshb 1 1714 1607 /*NBIMOD */ #define YNBI_sshb 4 1715 /*M2_IRMOD */ #define Ysshb(i, j) Ysshb[i][j] 1716 /*M2_NOWMOD */ #define YsshbY Ysshb[Yi][Yj] 1717 /*M2_VALST */ #define Ystate_sshb(v, i, j, t) Ysshb[i][j]->Ystate[t][v] 1718 /*M2_VALST */ #define YS_sshb(v, i, j, t) Ysshb[i][j]->Ystate[t][v] 1719 /*M2_VALSIT */ #define YS1_sshb(i, j, t) Ysshb[i][j]->Ystate[t][0] 1720 /*M2_HERESIT*/ #define YS1Y_sshb Ysshb[Yi][Yj]->Ystate[YTemps][0] 1721 /*M2_VALST */ #define Ygrad_sshb(v, i, j, t) Ysshb[i][j]->Ygrad[t][v] 1722 /*M2_VALST */ #define YG_sshb(v, i, j, t) Ysshb[i][j]->Ygrad[t][v] 1723 /*M2_VALSIT */ #define YG1_sshb(i, j, t) Ysshb[i][j]->Ygrad[t][0] 1724 /*M2_HERESIT*/ #define YG1Y_sshb Ysshb[Yi][Yj]->Ygrad[YTemps][0] 1725 sshb *Ysshb[YA1_S3dt][YA2_S3dt]; 1726 /*M2_VALSG */ #define Ywish_sshb(v, i, j) Ysshb[i][j]->Ywish[v] 1727 /*M2_VALSG */ #define YW_sshb(v, i, j) Ysshb[i][j]->Ywish[v] 1728 /*M2_VALSGI */ #define YW1_sshb(i, j) Ysshb[i][j]->Ywish[0] 1729 /*M2_HERESGI*/ #define YW1Y_sshb Ysshb[Yi][Yj]->Ywish[0] 1608 /*M2_VALST */ #define Ystate_sshb(v, i, j, t) Ysshb->Ystate[t][i][j][v] 1609 /*M2_VALST */ #define YS_sshb(v, i, j, t) Ysshb->Ystate[t][i][j][v] 1610 /*M2_VALSIT */ #define YS1_sshb(i, j, t) Ysshb->Ystate[t][i][j][0] 1611 /*M2_HERESIT*/ #define YS1Y_sshb Ysshb->Ystate[YTemps][Yi][Yj][0] 1612 /*M2_VALST */ #define Ygrad_sshb(v, i, j, t) Ysshb->Ygrad[t][i][j][v] 1613 /*M2_VALST */ #define YG_sshb(v, i, j, t) Ysshb->Ygrad[t][i][j][v] 1614 /*M2_VALSIT */ #define YG1_sshb(i, j, t) Ysshb->Ygrad[t][i][j][0] 1615 /*M2_HERESIT*/ #define YG1Y_sshb Ysshb->Ygrad[YTemps][Yi][Yj][0] 1616 sshb *Ysshb; 1617 /*M2_VALSG */ #define Ywish_sshb(v, i, j) Ysshb->Ywish[i][j][v] 1618 /*M2_VALSG */ #define YW_sshb(v, i, j) Ysshb->Ywish[i][j][v] 1619 /*M2_VALSGI */ #define YW1_sshb(i, j) Ysshb->Ywish[i][j][0] 1620 /*M2_HERESGI*/ #define YW1Y_sshb Ysshb->Ywish[Yi][Yj][0] 1730 1621 1731 1622 //~~~~~~~~~~~~~~~~~~~~~~~~~ module ub~~~~~~~~~~~~~~~~~~~~~~~~~ 1732 #define Yid_ub 8 21623 #define Yid_ub 84 1733 1624 1734 1625 class Yaoub; … … 1736 1627 /*NBSMOD */ #define YNBS_ub 1 1737 1628 /*NBIMOD */ #define YNBI_ub 4 1738 /*M3_IRMOD */ #define Yub(i, j, k) Yub[i][j][k] 1739 /*M3_NOWMOD */ #define YubY Yub[Yi][Yj][Yk] 1740 /*M3_VALST */ #define Ystate_ub(v, i, j, k, t) Yub[i][j][k]->Ystate[t][v] 1741 /*M3_VALST */ #define YS_ub(v, i, j, k, t) Yub[i][j][k]->Ystate[t][v] 1742 /*M3_VALSIT */ #define YS1_ub(i, j, k, t) Yub[i][j][k]->Ystate[t][0] 1743 /*M3_HERESIT*/ #define YS1Y_ub Yub[Yi][Yj][Yk]->Ystate[YTemps][0] 1744 /*M3_VALST */ #define Ygrad_ub(v, i, j, k, t) Yub[i][j][k]->Ygrad[t][v] 1745 /*M3_VALST */ #define YG_ub(v, i, j, k, t) Yub[i][j][k]->Ygrad[t][v] 1746 /*M3_VALSIT */ #define YG1_ub(i, j, k, t) Yub[i][j][k]->Ygrad[t][0] 1747 /*M3_HERESIT*/ #define YG1Y_ub Yub[Yi][Yj][Yk]->Ygrad[YTemps][0] 1748 ub *Yub[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1749 /*M3_VALSG */ #define Ywish_ub(v, i, j, k) Yub[i][j][k]->Ywish[v] 1750 /*M3_VALSG */ #define YW_ub(v, i, j, k) Yub[i][j][k]->Ywish[v] 1751 /*M3_VALSGI */ #define YW1_ub(i, j, k) Yub[i][j][k]->Ywish[0] 1752 /*M3_HERESGI*/ #define YW1Y_ub Yub[Yi][Yj][Yk]->Ywish[0] 1629 /*M3_VALST */ #define Ystate_ub(v, i, j, k, t) Yub->Ystate[t][i][j][k][v] 1630 /*M3_VALST */ #define YS_ub(v, i, j, k, t) Yub->Ystate[t][i][j][k][v] 1631 /*M3_VALSIT */ #define YS1_ub(i, j, k, t) Yub->Ystate[t][i][j][k][0] 1632 /*M3_HERESIT*/ #define YS1Y_ub Yub->Ystate[YTemps][Yi][Yj][Yk][0] 1633 /*M3_VALST */ #define Ygrad_ub(v, i, j, k, t) Yub->Ygrad[t][i][j][k][v] 1634 /*M3_VALST */ #define YG_ub(v, i, j, k, t) Yub->Ygrad[t][i][j][k][v] 1635 /*M3_VALSIT */ #define YG1_ub(i, j, k, t) Yub->Ygrad[t][i][j][k][0] 1636 /*M3_HERESIT*/ #define YG1Y_ub Yub->Ygrad[YTemps][Yi][Yj][Yk][0] 1637 ub *Yub; 1638 /*M3_VALSG */ #define Ywish_ub(v, i, j, k) Yub->Ywish[i][j][k][v] 1639 /*M3_VALSG */ #define YW_ub(v, i, j, k) Yub->Ywish[i][j][k][v] 1640 /*M3_VALSGI */ #define YW1_ub(i, j, k) Yub->Ywish[i][j][k][0] 1641 /*M3_HERESGI*/ #define YW1Y_ub Yub->Ywish[Yi][Yj][Yk][0] 1753 1642 1754 1643 //~~~~~~~~~~~~~~~~~~~~~~~~~ module vb~~~~~~~~~~~~~~~~~~~~~~~~~ 1755 #define Yid_vb 8 31644 #define Yid_vb 85 1756 1645 1757 1646 class Yaovb; … … 1759 1648 /*NBSMOD */ #define YNBS_vb 1 1760 1649 /*NBIMOD */ #define YNBI_vb 4 1761 /*M3_IRMOD */ #define Yvb(i, j, k) Yvb[i][j][k] 1762 /*M3_NOWMOD */ #define YvbY Yvb[Yi][Yj][Yk] 1763 /*M3_VALST */ #define Ystate_vb(v, i, j, k, t) Yvb[i][j][k]->Ystate[t][v] 1764 /*M3_VALST */ #define YS_vb(v, i, j, k, t) Yvb[i][j][k]->Ystate[t][v] 1765 /*M3_VALSIT */ #define YS1_vb(i, j, k, t) Yvb[i][j][k]->Ystate[t][0] 1766 /*M3_HERESIT*/ #define YS1Y_vb Yvb[Yi][Yj][Yk]->Ystate[YTemps][0] 1767 /*M3_VALST */ #define Ygrad_vb(v, i, j, k, t) Yvb[i][j][k]->Ygrad[t][v] 1768 /*M3_VALST */ #define YG_vb(v, i, j, k, t) Yvb[i][j][k]->Ygrad[t][v] 1769 /*M3_VALSIT */ #define YG1_vb(i, j, k, t) Yvb[i][j][k]->Ygrad[t][0] 1770 /*M3_HERESIT*/ #define YG1Y_vb Yvb[Yi][Yj][Yk]->Ygrad[YTemps][0] 1771 vb *Yvb[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1772 /*M3_VALSG */ #define Ywish_vb(v, i, j, k) Yvb[i][j][k]->Ywish[v] 1773 /*M3_VALSG */ #define YW_vb(v, i, j, k) Yvb[i][j][k]->Ywish[v] 1774 /*M3_VALSGI */ #define YW1_vb(i, j, k) Yvb[i][j][k]->Ywish[0] 1775 /*M3_HERESGI*/ #define YW1Y_vb Yvb[Yi][Yj][Yk]->Ywish[0] 1650 /*M3_VALST */ #define Ystate_vb(v, i, j, k, t) Yvb->Ystate[t][i][j][k][v] 1651 /*M3_VALST */ #define YS_vb(v, i, j, k, t) Yvb->Ystate[t][i][j][k][v] 1652 /*M3_VALSIT */ #define YS1_vb(i, j, k, t) Yvb->Ystate[t][i][j][k][0] 1653 /*M3_HERESIT*/ #define YS1Y_vb Yvb->Ystate[YTemps][Yi][Yj][Yk][0] 1654 /*M3_VALST */ #define Ygrad_vb(v, i, j, k, t) Yvb->Ygrad[t][i][j][k][v] 1655 /*M3_VALST */ #define YG_vb(v, i, j, k, t) Yvb->Ygrad[t][i][j][k][v] 1656 /*M3_VALSIT */ #define YG1_vb(i, j, k, t) Yvb->Ygrad[t][i][j][k][0] 1657 /*M3_HERESIT*/ #define YG1Y_vb Yvb->Ygrad[YTemps][Yi][Yj][Yk][0] 1658 vb *Yvb; 1659 /*M3_VALSG */ #define Ywish_vb(v, i, j, k) Yvb->Ywish[i][j][k][v] 1660 /*M3_VALSG */ #define YW_vb(v, i, j, k) Yvb->Ywish[i][j][k][v] 1661 /*M3_VALSGI */ #define YW1_vb(i, j, k) Yvb->Ywish[i][j][k][0] 1662 /*M3_HERESGI*/ #define YW1Y_vb Yvb->Ywish[Yi][Yj][Yk][0] 1776 1663 1777 1664 //~~~~~~~~~~~~~~~~~~~~~~~~~ module hdivn~~~~~~~~~~~~~~~~~~~~~~~~~ 1778 #define Yid_hdivn 8 41665 #define Yid_hdivn 86 1779 1666 1780 1667 class Yaohdivn; … … 1782 1669 /*NBSMOD */ #define YNBS_hdivn 1 1783 1670 /*NBIMOD */ #define YNBI_hdivn 4 1784 /*M3_IRMOD */ #define Yhdivn(i, j, k) Yhdivn[i][j][k] 1785 /*M3_NOWMOD */ #define YhdivnY Yhdivn[Yi][Yj][Yk] 1786 /*M3_VALST */ #define Ystate_hdivn(v, i, j, k, t) Yhdivn[i][j][k]->Ystate[t][v] 1787 /*M3_VALST */ #define YS_hdivn(v, i, j, k, t) Yhdivn[i][j][k]->Ystate[t][v] 1788 /*M3_VALSIT */ #define YS1_hdivn(i, j, k, t) Yhdivn[i][j][k]->Ystate[t][0] 1789 /*M3_HERESIT*/ #define YS1Y_hdivn Yhdivn[Yi][Yj][Yk]->Ystate[YTemps][0] 1790 /*M3_VALST */ #define Ygrad_hdivn(v, i, j, k, t) Yhdivn[i][j][k]->Ygrad[t][v] 1791 /*M3_VALST */ #define YG_hdivn(v, i, j, k, t) Yhdivn[i][j][k]->Ygrad[t][v] 1792 /*M3_VALSIT */ #define YG1_hdivn(i, j, k, t) Yhdivn[i][j][k]->Ygrad[t][0] 1793 /*M3_HERESIT*/ #define YG1Y_hdivn Yhdivn[Yi][Yj][Yk]->Ygrad[YTemps][0] 1794 hdivn *Yhdivn[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1671 /*M3_VALST */ #define Ystate_hdivn(v, i, j, k, t) Yhdivn->Ystate[t][i][j][k][v] 1672 /*M3_VALST */ #define YS_hdivn(v, i, j, k, t) Yhdivn->Ystate[t][i][j][k][v] 1673 /*M3_VALSIT */ #define YS1_hdivn(i, j, k, t) Yhdivn->Ystate[t][i][j][k][0] 1674 /*M3_HERESIT*/ #define YS1Y_hdivn Yhdivn->Ystate[YTemps][Yi][Yj][Yk][0] 1675 /*M3_VALST */ #define Ygrad_hdivn(v, i, j, k, t) Yhdivn->Ygrad[t][i][j][k][v] 1676 /*M3_VALST */ #define YG_hdivn(v, i, j, k, t) Yhdivn->Ygrad[t][i][j][k][v] 1677 /*M3_VALSIT */ #define YG1_hdivn(i, j, k, t) Yhdivn->Ygrad[t][i][j][k][0] 1678 /*M3_HERESIT*/ #define YG1Y_hdivn Yhdivn->Ygrad[YTemps][Yi][Yj][Yk][0] 1679 hdivn *Yhdivn; 1795 1680 1796 1681 //~~~~~~~~~~~~~~~~~~~~~~~~~ module rotn~~~~~~~~~~~~~~~~~~~~~~~~~ 1797 #define Yid_rotn 8 51682 #define Yid_rotn 87 1798 1683 1799 1684 class Yaorotn; … … 1801 1686 /*NBSMOD */ #define YNBS_rotn 1 1802 1687 /*NBIMOD */ #define YNBI_rotn 4 1803 /*M3_IRMOD */ #define Yrotn(i, j, k) Yrotn[i][j][k] 1804 /*M3_NOWMOD */ #define YrotnY Yrotn[Yi][Yj][Yk] 1805 /*M3_VALST */ #define Ystate_rotn(v, i, j, k, t) Yrotn[i][j][k]->Ystate[t][v] 1806 /*M3_VALST */ #define YS_rotn(v, i, j, k, t) Yrotn[i][j][k]->Ystate[t][v] 1807 /*M3_VALSIT */ #define YS1_rotn(i, j, k, t) Yrotn[i][j][k]->Ystate[t][0] 1808 /*M3_HERESIT*/ #define YS1Y_rotn Yrotn[Yi][Yj][Yk]->Ystate[YTemps][0] 1809 /*M3_VALST */ #define Ygrad_rotn(v, i, j, k, t) Yrotn[i][j][k]->Ygrad[t][v] 1810 /*M3_VALST */ #define YG_rotn(v, i, j, k, t) Yrotn[i][j][k]->Ygrad[t][v] 1811 /*M3_VALSIT */ #define YG1_rotn(i, j, k, t) Yrotn[i][j][k]->Ygrad[t][0] 1812 /*M3_HERESIT*/ #define YG1Y_rotn Yrotn[Yi][Yj][Yk]->Ygrad[YTemps][0] 1813 rotn *Yrotn[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1688 /*M3_VALST */ #define Ystate_rotn(v, i, j, k, t) Yrotn->Ystate[t][i][j][k][v] 1689 /*M3_VALST */ #define YS_rotn(v, i, j, k, t) Yrotn->Ystate[t][i][j][k][v] 1690 /*M3_VALSIT */ #define YS1_rotn(i, j, k, t) Yrotn->Ystate[t][i][j][k][0] 1691 /*M3_HERESIT*/ #define YS1Y_rotn Yrotn->Ystate[YTemps][Yi][Yj][Yk][0] 1692 /*M3_VALST */ #define Ygrad_rotn(v, i, j, k, t) Yrotn->Ygrad[t][i][j][k][v] 1693 /*M3_VALST */ #define YG_rotn(v, i, j, k, t) Yrotn->Ygrad[t][i][j][k][v] 1694 /*M3_VALSIT */ #define YG1_rotn(i, j, k, t) Yrotn->Ygrad[t][i][j][k][0] 1695 /*M3_HERESIT*/ #define YG1Y_rotn Yrotn->Ygrad[YTemps][Yi][Yj][Yk][0] 1696 rotn *Yrotn; 1814 1697 1815 1698 //~~~~~~~~~~~~~~~~~~~~~~~~~ module wa~~~~~~~~~~~~~~~~~~~~~~~~~ 1816 #define Yid_wa 8 61699 #define Yid_wa 88 1817 1700 1818 1701 class Yaowa; … … 1820 1703 /*NBSMOD */ #define YNBS_wa 1 1821 1704 /*NBIMOD */ #define YNBI_wa 2 1822 /*M3_IRMOD */ #define Ywa(i, j, k) Ywa[i][j][k] 1823 /*M3_NOWMOD */ #define YwaY Ywa[Yi][Yj][Yk] 1824 /*M3_VALST */ #define Ystate_wa(v, i, j, k, t) Ywa[i][j][k]->Ystate[t][v] 1825 /*M3_VALST */ #define YS_wa(v, i, j, k, t) Ywa[i][j][k]->Ystate[t][v] 1826 /*M3_VALSIT */ #define YS1_wa(i, j, k, t) Ywa[i][j][k]->Ystate[t][0] 1827 /*M3_HERESIT*/ #define YS1Y_wa Ywa[Yi][Yj][Yk]->Ystate[YTemps][0] 1828 /*M3_VALST */ #define Ygrad_wa(v, i, j, k, t) Ywa[i][j][k]->Ygrad[t][v] 1829 /*M3_VALST */ #define YG_wa(v, i, j, k, t) Ywa[i][j][k]->Ygrad[t][v] 1830 /*M3_VALSIT */ #define YG1_wa(i, j, k, t) Ywa[i][j][k]->Ygrad[t][0] 1831 /*M3_HERESIT*/ #define YG1Y_wa Ywa[Yi][Yj][Yk]->Ygrad[YTemps][0] 1832 wa *Ywa[YA1_S3dt][YA2_S3dt][YA3_S3dt]; 1705 /*M3_VALST */ #define Ystate_wa(v, i, j, k, t) Ywa->Ystate[t][i][j][k][v] 1706 /*M3_VALST */ #define YS_wa(v, i, j, k, t) Ywa->Ystate[t][i][j][k][v] 1707 /*M3_VALSIT */ #define YS1_wa(i, j, k, t) Ywa->Ystate[t][i][j][k][0] 1708 /*M3_HERESIT*/ #define YS1Y_wa Ywa->Ystate[YTemps][Yi][Yj][Yk][0] 1709 /*M3_VALST */ #define Ygrad_wa(v, i, j, k, t) Ywa->Ygrad[t][i][j][k][v] 1710 /*M3_VALST */ #define YG_wa(v, i, j, k, t) Ywa->Ygrad[t][i][j][k][v] 1711 /*M3_VALSIT */ #define YG1_wa(i, j, k, t) Ywa->Ygrad[t][i][j][k][0] 1712 /*M3_HERESIT*/ #define YG1Y_wa Ywa->Ygrad[YTemps][Yi][Yj][Yk][0] 1713 wa *Ywa; 1833 1714 #define YSIZEPB 21824//sum of the number of states (output) of all targets 1834 1715 1835 // € € € € FOR M1QN3 € € € € € € € € € € € € € € € € € € € € € € €1716 //ᅵ ᅵ ᅵ ᅵ FOR M1QN3 ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ 1836 1717 float Y3x[YSIZEPB]; //table for the states of targets 1837 1718 float Y3g[YSIZEPB]; //table for the gradients of targets … … 1974 1855 #define YJ4I31 Yjac[3][30] 1975 1856 double Ytbeta[YMAX_NBI]; //max table of global and common beta 1976 #ifdef _OPENMP1977 #pragma omp threadprivate(Yting,Yjac,Ytbeta) // Yting is a private global variable in the case of parallelism1978 #endif1979 1857 1980 1858 /*------- SOME OTHER AUTOMATIC GENERATION ------------------*/ … … 2001 1879 { 2002 1880 public: 2003 double Ystate[Y NBS_sshn_c];2004 double Ygrad[Y NBS_sshn_c];1881 double Ystate[YA1_S3d][YA2_S3d][YNBS_sshn_c]; 1882 double Ygrad[YA1_S3d][YA2_S3d][YNBS_sshn_c]; 2005 1883 2006 1884 //:=========> Constructor - Destructor ============ … … 2014 1892 { 2015 1893 public: 2016 double Ystate[Y NBS_ta_c];2017 double Ygrad[Y NBS_ta_c];2018 double Yepsi[Y NBS_ta_c];2019 double Ywish[Y NBS_ta_c];1894 double Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c]; 1895 double Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c]; 1896 double Yepsi[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c]; 1897 double Ywish[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ta_c]; 2020 1898 2021 1899 //:=========> Constructor - Destructor ============ … … 2029 1907 { 2030 1908 public: 2031 double Ystate[Y NBS_sa_c];2032 double Ygrad[Y NBS_sa_c];1909 double Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_sa_c]; 1910 double Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_sa_c]; 2033 1911 2034 1912 //:=========> Constructor - Destructor ============ … … 2042 1920 { 2043 1921 public: 2044 double Ystate[Y NBS_ua_c];2045 double Ygrad[Y NBS_ua_c];1922 double Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ua_c]; 1923 double Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_ua_c]; 2046 1924 2047 1925 //:=========> Constructor - Destructor ============ … … 2055 1933 { 2056 1934 public: 2057 double Ystate[Y NBS_va_c];2058 double Ygrad[Y NBS_va_c];1935 double Ystate[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_va_c]; 1936 double Ygrad[YA1_S3d][YA2_S3d][YA3_S3d][YNBS_va_c]; 2059 1937 2060 1938 //:=========> Constructor - Destructor ============ … … 2068 1946 { 2069 1947 public: 2070 double Ystate[YNBALLTIME_Tsbd][Y NBS_sbcgyre_qsr_qns];2071 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sbcgyre_qsr_qns];1948 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_qsr_qns]; 1949 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_qsr_qns]; 2072 1950 2073 1951 //:=========> Constructor - Destructor ============ … … 2090 1968 { 2091 1969 public: 2092 double Ystate[YNBALLTIME_Tsbd][Y NBS_sbcgyre_emp1];2093 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sbcgyre_emp1];1970 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp1]; 1971 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp1]; 2094 1972 2095 1973 //:=========> Constructor - Destructor ============ … … 2112 1990 { 2113 1991 public: 2114 double Ystate[YNBALLTIME_Tsbd][Y NBS_sbcgyre_zsumemp_zsurf];2115 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sbcgyre_zsumemp_zsurf];1992 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_zsumemp_zsurf]; 1993 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_zsumemp_zsurf]; 2116 1994 2117 1995 //:=========> Constructor - Destructor ============ … … 2134 2012 { 2135 2013 public: 2136 double Ystate[YNBALLTIME_Tsbd][Y NBS_sbcgyre_emp];2137 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sbcgyre_emp];2014 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp]; 2015 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emp]; 2138 2016 2139 2017 //:=========> Constructor - Destructor ============ … … 2156 2034 { 2157 2035 public: 2158 double Ystate[YNBALLTIME_Tsbd][Y NBS_sbcgyre_emps];2159 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sbcgyre_emps];2036 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emps]; 2037 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_emps]; 2160 2038 2161 2039 //:=========> Constructor - Destructor ============ … … 2178 2056 { 2179 2057 public: 2180 double Ystate[YNBALLTIME_Tsbd][Y NBS_sbcgyre_utau_vtau];2181 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sbcgyre_utau_vtau];2058 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_utau_vtau]; 2059 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_utau_vtau]; 2182 2060 2183 2061 //:=========> Constructor - Destructor ============ … … 2200 2078 { 2201 2079 public: 2202 double Ystate[YNBALLTIME_Tsbd][Y NBS_sbcgyre_wndm];2203 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sbcgyre_wndm];2080 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_wndm]; 2081 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sbcgyre_wndm]; 2204 2082 2205 2083 //:=========> Constructor - Destructor ============ … … 2222 2100 { 2223 2101 public: 2224 double Ystate[YNBALLTIME_Tsbd][Y NBS_bn2_rn2];2225 double Ygrad[YNBALLTIME_Tsbd][Y NBS_bn2_rn2];2102 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_bn2_rn2]; 2103 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_bn2_rn2]; 2226 2104 2227 2105 //:=========> Constructor - Destructor ============ … … 2244 2122 { 2245 2123 public: 2246 double Ystate[YNBALLTIME_Tsbd][Y NBS_zdf_avt_avmu_avmv];2247 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zdf_avt_avmu_avmv];2124 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zdf_avt_avmu_avmv]; 2125 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zdf_avt_avmu_avmv]; 2248 2126 2249 2127 //:=========> Constructor - Destructor ============ … … 2266 2144 { 2267 2145 public: 2268 double Ystate[YNBALLTIME_Tsbd][Y NBS_zdfmxl_hmld];2269 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zdfmxl_hmld];2146 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_zdfmxl_hmld]; 2147 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_zdfmxl_hmld]; 2270 2148 2271 2149 //:=========> Constructor - Destructor ============ … … 2288 2166 { 2289 2167 public: 2290 double Ystate[YNBALLTIME_Tsbd][Y NBS_zdfmxl_nmln_hmlp_hmlpt];2291 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zdfmxl_nmln_hmlp_hmlpt];2168 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_zdfmxl_nmln_hmlp_hmlpt]; 2169 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_zdfmxl_nmln_hmlp_hmlpt]; 2292 2170 2293 2171 //:=========> Constructor - Destructor ============ … … 2310 2188 { 2311 2189 public: 2312 double Ystate[YNBALLTIME_Tsbd][Y NBS_ta_sa_trasbc];2313 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ta_sa_trasbc];2190 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_ta_sa_trasbc]; 2191 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_ta_sa_trasbc]; 2314 2192 2315 2193 //:=========> Constructor - Destructor ============ … … 2332 2210 { 2333 2211 public: 2334 double Ystate[YNBALLTIME_Tsbd][Y NBS_ta_traqsr];2335 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ta_traqsr];2212 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traqsr]; 2213 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traqsr]; 2336 2214 2337 2215 //:=========> Constructor - Destructor ============ … … 2354 2232 { 2355 2233 public: 2356 double Ystate[YNBALLTIME_Tsbd][Y NBS_zcent_hor_traadv_cen2];2357 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zcent_hor_traadv_cen2];2234 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_hor_traadv_cen2]; 2235 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_hor_traadv_cen2]; 2358 2236 2359 2237 //:=========> Constructor - Destructor ============ … … 2379 2257 { 2380 2258 public: 2381 double Ystate[YNBALLTIME_Tsbd][Y NBS_ta_hor_traadv_cen2];2382 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ta_hor_traadv_cen2];2259 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_hor_traadv_cen2]; 2260 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_hor_traadv_cen2]; 2383 2261 2384 2262 //:=========> Constructor - Destructor ============ … … 2401 2279 { 2402 2280 public: 2403 double Ystate[YNBALLTIME_Tsbd][Y NBS_sa_hor_traadv_cen2];2404 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sa_hor_traadv_cen2];2281 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa_hor_traadv_cen2]; 2282 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa_hor_traadv_cen2]; 2405 2283 2406 2284 //:=========> Constructor - Destructor ============ … … 2423 2301 { 2424 2302 public: 2425 double Ystate[YNBALLTIME_Tsbd][Y NBS_zcent_ver_traadv_cen2];2426 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zcent_ver_traadv_cen2];2303 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_ver_traadv_cen2]; 2304 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zcent_ver_traadv_cen2]; 2427 2305 2428 2306 //:=========> Constructor - Destructor ============ … … 2448 2326 { 2449 2327 public: 2450 double Ystate[YNBALLTIME_Tsbd][Y NBS_ta_ver_traadv_cen2];2451 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ta_ver_traadv_cen2];2328 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_ver_traadv_cen2]; 2329 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_ver_traadv_cen2]; 2452 2330 2453 2331 //:=========> Constructor - Destructor ============ … … 2473 2351 { 2474 2352 public: 2475 double Ystate[YNBALLTIME_Tsbd][Y NBS_ztuv_traldf_lap];2476 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ztuv_traldf_lap];2353 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ztuv_traldf_lap]; 2354 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ztuv_traldf_lap]; 2477 2355 2478 2356 //:=========> Constructor - Destructor ============ … … 2498 2376 { 2499 2377 public: 2500 double Ystate[YNBALLTIME_Tsbd][Y NBS_ta_traldf_lap];2501 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ta_traldf_lap];2378 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traldf_lap]; 2379 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta_traldf_lap]; 2502 2380 2503 2381 //:=========> Constructor - Destructor ============ … … 2523 2401 { 2524 2402 public: 2525 double Ystate[YNBALLTIME_Tsbd][Y NBS_zwisd_trazdf_imp];2526 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zwisd_trazdf_imp];2403 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_trazdf_imp]; 2404 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_trazdf_imp]; 2527 2405 2528 2406 //:=========> Constructor - Destructor ============ … … 2545 2423 { 2546 2424 public: 2547 double Ystate[YNBALLTIME_Tsbd][Y NBS_zrhs_trazdf_imp];2548 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zrhs_trazdf_imp];2425 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_trazdf_imp]; 2426 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_trazdf_imp]; 2549 2427 2550 2428 //:=========> Constructor - Destructor ============ … … 2570 2448 { 2571 2449 public: 2572 double Ystate[YNBALLTIME_Tsbd][Y NBS_zwt_trazdf_imp];2573 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zwt_trazdf_imp];2450 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwt_trazdf_imp]; 2451 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwt_trazdf_imp]; 2574 2452 2575 2453 //:=========> Constructor - Destructor ============ … … 2595 2473 { 2596 2474 public: 2597 double Ystate[YNBALLTIME_Tsbd][Y NBS_ta];2598 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ta];2475 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta]; 2476 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ta]; 2599 2477 2600 2478 //:=========> Constructor - Destructor ============ … … 2620 2498 { 2621 2499 public: 2622 double Ystate[YNBALLTIME_Tsbd][Y NBS_sa];2623 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sa];2500 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa]; 2501 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sa]; 2624 2502 2625 2503 //:=========> Constructor - Destructor ============ … … 2642 2520 { 2643 2521 public: 2644 double Ystate[YNBALLTIME_Tsbd][Y NBS_tb];2645 double Ygrad[YNBALLTIME_Tsbd][Y NBS_tb];2646 double Ywish[Y NBS_tb];2522 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_tb]; 2523 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_tb]; 2524 double Ywish[YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_tb]; 2647 2525 2648 2526 //:=========> Constructor - Destructor ============ … … 2665 2543 { 2666 2544 public: 2667 double Ystate[YNBALLTIME_Tsbd][Y NBS_sb];2668 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sb];2669 double Ywish[Y NBS_sb];2545 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sb]; 2546 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sb]; 2547 double Ywish[YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_sb]; 2670 2548 2671 2549 //:=========> Constructor - Destructor ============ … … 2688 2566 { 2689 2567 public: 2690 double Ystate[YNBALLTIME_Tsbd][Y NBS_rhd];2691 double Ygrad[YNBALLTIME_Tsbd][Y NBS_rhd];2568 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhd]; 2569 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhd]; 2692 2570 2693 2571 //:=========> Constructor - Destructor ============ … … 2710 2588 { 2711 2589 public: 2712 double Ystate[YNBALLTIME_Tsbd][Y NBS_rhop];2713 double Ygrad[YNBALLTIME_Tsbd][Y NBS_rhop];2590 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhop]; 2591 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_rhop]; 2714 2592 2715 2593 //:=========> Constructor - Destructor ============ … … 2732 2610 { 2733 2611 public: 2734 double Ystate[YNBALLTIME_Tsbd][Y NBS_hmf_TF_dynadv_cen2];2735 double Ygrad[YNBALLTIME_Tsbd][Y NBS_hmf_TF_dynadv_cen2];2612 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_hmf_TF_dynadv_cen2]; 2613 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_hmf_TF_dynadv_cen2]; 2736 2614 2737 2615 //:=========> Constructor - Destructor ============ … … 2754 2632 { 2755 2633 public: 2756 double Ystate[YNBALLTIME_Tsbd][Y NBS_zua_dhmf_dynadv_cen2];2757 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zua_dhmf_dynadv_cen2];2634 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zua_dhmf_dynadv_cen2]; 2635 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zua_dhmf_dynadv_cen2]; 2758 2636 2759 2637 //:=========> Constructor - Destructor ============ … … 2776 2654 { 2777 2655 public: 2778 double Ystate[YNBALLTIME_Tsbd][Y NBS_zva_dhmf_dynadv_cen2];2779 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zva_dhmf_dynadv_cen2];2656 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zva_dhmf_dynadv_cen2]; 2657 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zva_dhmf_dynadv_cen2]; 2780 2658 2781 2659 //:=========> Constructor - Destructor ============ … … 2798 2676 { 2799 2677 public: 2800 double Ystate[YNBALLTIME_Tsbd][Y NBS_zfuv_UW_dynadv_cen2];2801 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zfuv_UW_dynadv_cen2];2678 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zfuv_UW_dynadv_cen2]; 2679 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zfuv_UW_dynadv_cen2]; 2802 2680 2803 2681 //:=========> Constructor - Destructor ============ … … 2820 2698 { 2821 2699 public: 2822 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua_dynadv_cen2];2823 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua_dynadv_cen2];2700 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynadv_cen2]; 2701 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynadv_cen2]; 2824 2702 2825 2703 //:=========> Constructor - Destructor ============ … … 2842 2720 { 2843 2721 public: 2844 double Ystate[YNBALLTIME_Tsbd][Y NBS_va_dynadv_cen2];2845 double Ygrad[YNBALLTIME_Tsbd][Y NBS_va_dynadv_cen2];2722 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dynadv_cen2]; 2723 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dynadv_cen2]; 2846 2724 2847 2725 //:=========> Constructor - Destructor ============ … … 2864 2742 { 2865 2743 public: 2866 double Ystate[YNBALLTIME_Tsbd][Y NBS_zwxyz_vor_ene];2867 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zwxyz_vor_ene];2744 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwxyz_vor_ene]; 2745 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwxyz_vor_ene]; 2868 2746 2869 2747 //:=========> Constructor - Destructor ============ … … 2886 2764 { 2887 2765 public: 2888 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua_vor_ene];2889 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua_vor_ene];2766 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_vor_ene]; 2767 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_vor_ene]; 2890 2768 2891 2769 //:=========> Constructor - Destructor ============ … … 2908 2786 { 2909 2787 public: 2910 double Ystate[YNBALLTIME_Tsbd][Y NBS_va_vor_ene];2911 double Ygrad[YNBALLTIME_Tsbd][Y NBS_va_vor_ene];2788 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_vor_ene]; 2789 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_vor_ene]; 2912 2790 2913 2791 //:=========> Constructor - Destructor ============ … … 2930 2808 { 2931 2809 public: 2932 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua_dyn_ldf_lap];2933 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua_dyn_ldf_lap];2810 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_ldf_lap]; 2811 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_ldf_lap]; 2934 2812 2935 2813 //:=========> Constructor - Destructor ============ … … 2952 2830 { 2953 2831 public: 2954 double Ystate[YNBALLTIME_Tsbd][Y NBS_va_dyn_ldf_lap];2955 double Ygrad[YNBALLTIME_Tsbd][Y NBS_va_dyn_ldf_lap];2832 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dyn_ldf_lap]; 2833 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_dyn_ldf_lap]; 2956 2834 2957 2835 //:=========> Constructor - Destructor ============ … … 2974 2852 { 2975 2853 public: 2976 double Ystate[YNBALLTIME_Tsbd][Y NBS_zhpij_dyn_hpg_zco];2977 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zhpij_dyn_hpg_zco];2854 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zhpij_dyn_hpg_zco]; 2855 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zhpij_dyn_hpg_zco]; 2978 2856 2979 2857 //:=========> Constructor - Destructor ============ … … 2996 2874 { 2997 2875 public: 2998 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua_dyn_hpg_zco];2999 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua_dyn_hpg_zco];2876 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_hpg_zco]; 2877 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dyn_hpg_zco]; 3000 2878 3001 2879 //:=========> Constructor - Destructor ============ … … 3021 2899 { 3022 2900 public: 3023 double Ystate[YNBALLTIME_Tsbd][Y NBS_zwisd_ua_dynzdf_imp];3024 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zwisd_ua_dynzdf_imp];2901 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_ua_dynzdf_imp]; 2902 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_ua_dynzdf_imp]; 3025 2903 3026 2904 //:=========> Constructor - Destructor ============ … … 3043 2921 { 3044 2922 public: 3045 double Ystate[YNBALLTIME_Tsbd][Y NBS_zwisd_va_dynzdf_imp];3046 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zwisd_va_dynzdf_imp];2923 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_va_dynzdf_imp]; 2924 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zwisd_va_dynzdf_imp]; 3047 2925 3048 2926 //:=========> Constructor - Destructor ============ … … 3065 2943 { 3066 2944 public: 3067 double Ystate[YNBALLTIME_Tsbd][Y NBS_zrhs_ua_dynzdf_imp];3068 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zrhs_ua_dynzdf_imp];2945 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_ua_dynzdf_imp]; 2946 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_ua_dynzdf_imp]; 3069 2947 3070 2948 //:=========> Constructor - Destructor ============ … … 3087 2965 { 3088 2966 public: 3089 double Ystate[YNBALLTIME_Tsbd][Y NBS_zrhs_va_dynzdf_imp];3090 double Ygrad[YNBALLTIME_Tsbd][Y NBS_zrhs_va_dynzdf_imp];2967 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_va_dynzdf_imp]; 2968 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_zrhs_va_dynzdf_imp]; 3091 2969 3092 2970 //:=========> Constructor - Destructor ============ … … 3118 2996 { 3119 2997 public: 3120 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua_dynzdf_imp];3121 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua_dynzdf_imp];2998 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynzdf_imp]; 2999 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_dynzdf_imp]; 3122 3000 3123 3001 //:=========> Constructor - Destructor ============ … … 3146 3024 { 3147 3025 public: 3148 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua_norm_dynzdf];3149 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua_norm_dynzdf];3026 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_norm_dynzdf]; 3027 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_norm_dynzdf]; 3150 3028 3151 3029 //:=========> Constructor - Destructor ============ … … 3171 3049 { 3172 3050 public: 3173 double Ystate[YNBALLTIME_Tsbd][Y NBS_spguv_now_dynspg];3174 double Ygrad[YNBALLTIME_Tsbd][Y NBS_spguv_now_dynspg];3051 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_spguv_now_dynspg]; 3052 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_spguv_now_dynspg]; 3175 3053 3176 3054 //:=========> Constructor - Destructor ============ … … 3193 3071 { 3194 3072 public: 3195 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua_1_dynspg_flt];3196 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua_1_dynspg_flt];3073 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_1_dynspg_flt]; 3074 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_ua_1_dynspg_flt]; 3197 3075 3198 3076 //:=========> Constructor - Destructor ============ … … 3215 3093 { 3216 3094 public: 3217 double Ystate[YNBALLTIME_Tsbd][Y NBS_va_1_dynspg_flt];3218 double Ygrad[YNBALLTIME_Tsbd][Y NBS_va_1_dynspg_flt];3095 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_1_dynspg_flt]; 3096 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YA3_S3dt][YNBS_va_1_dynspg_flt]; 3219 3097 3220 3098 //:=========> Constructor - Destructor ============ … … 3237 3115 { 3238 3116 public: 3239 double Ystate[YNBALLTIME_Tsbd][Y NBS_sum_spgu_dynspg_flt];3240 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sum_spgu_dynspg_flt];3117 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sum_spgu_dynspg_flt]; 3118 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sum_spgu_dynspg_flt]; 3241 3119 3242 3120 //:=========> Constructor - Destructor ============ … … 3259 3137 { 3260 3138 public: 3261 double Ystate[YNBALLTIME_Tsbd][Y NBS_sum_spgv_dynspg_flt];3262 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sum_spgv_dynspg_flt];3139 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sum_spgv_dynspg_flt]; 3140 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_sum_spgv_dynspg_flt]; 3263 3141 3264 3142 //:=========> Constructor - Destructor ============ … … 3281 3159 { 3282 3160 public: 3283 double Ystate[YNBALLTIME_Tsbd][Y NBS_gcb_dynspg_flt];3284 double Ygrad[YNBALLTIME_Tsbd][Y NBS_gcb_dynspg_flt];3161 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcb_dynspg_flt]; 3162 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcb_dynspg_flt]; 3285 3163 3286 3164 //:=========> Constructor - Destructor ============ … … 3303 3181 { 3304 3182 public: 3305 double Ystate[YNBALLTIME_Tsbd][Y NBS_gcx_dynspg_flt];3306 double Ygrad[YNBALLTIME_Tsbd][Y NBS_gcx_dynspg_flt];3183 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcx_dynspg_flt]; 3184 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt][YA2_S3dt][YNBS_gcx_dynspg_flt]; 3307 3185 3308 3186 //:=========> Constructor - Destructor ============ … … 3321 3199 }; 3322 3200 3323 //////////// Begin of the Yao Class Yaosolsor_dynspg_flt //////////// 3324 class Yaosolsor_dynspg_flt 3325 { 3326 public: 3327 double Ystate[YNBALLTIME_Tsbd][YNBS_solsor_dynspg_flt]; 3328 double Ygrad[YNBALLTIME_Tsbd][YNBS_solsor_dynspg_flt]; 3329 3330 //:=========> Constructor - Destructor ============ 3331 Yaosolsor_dynspg_flt(){} 3332 ~Yaosolsor_dynspg_flt(){} 3333 3334 }; 3335 3336 /*M_PCL */ 3337 class solsor_dynspg_flt:public Yaosolsor_dynspg_flt 3338 { public: 3339 solsor_dynspg_flt(){}; 3340 ~solsor_dynspg_flt (){}; 3341 void forward (); 3342 void backward(); 3201 //////////// Begin of the Yao Class Yaosolsor_gx1_x_r //////////// 3202 class Yaosolsor_gx1_x_r 3203 { 3204 public: 3205 double Ystate[YNBALLTIME_Tsbd][YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_gx1_x_r]; 3206 double Ygrad[YNBALLTIME_Tsbd][YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_gx1_x_r]; 3207 3208 //:=========> Constructor - Destructor ============ 3209 Yaosolsor_gx1_x_r(){} 3210 ~Yaosolsor_gx1_x_r(){} 3211 3212 }; 3213 3214 /*M_PCL */ 3215 class solsor_gx1_x_r:public Yaosolsor_gx1_x_r 3216 { public: 3217 solsor_gx1_x_r(){}; 3218 ~solsor_gx1_x_r (){}; 3219 void forward (double x0,double x1,double x2,double x3,double x4,double x5,double x6,double x7); 3220 void backward(double x0,double x1,double x2,double x3,double x4,double x5,double x6,double x7); 3221 }; 3222 3223 //////////// Begin of the Yao Class Yaosolsor_gx2_x_r //////////// 3224 class Yaosolsor_gx2_x_r 3225 { 3226 public: 3227 double Ystate[YNBALLTIME_Tsbd][YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_gx2_x_r]; 3228 double Ygrad[YNBALLTIME_Tsbd][YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_gx2_x_r]; 3229 3230 //:=========> Constructor - Destructor ============ 3231 Yaosolsor_gx2_x_r(){} 3232 ~Yaosolsor_gx2_x_r(){} 3233 3234 }; 3235 3236 /*M_PCL */ 3237 class solsor_gx2_x_r:public Yaosolsor_gx2_x_r 3238 { public: 3239 solsor_gx2_x_r(){}; 3240 ~solsor_gx2_x_r (){}; 3241 void forward (double x0,double x1,double x2,double x3,double x4,double x5,double x6,double x7,double x8); 3242 void backward(double x0,double x1,double x2,double x3,double x4,double x5,double x6,double x7,double x8); 3243 }; 3244 3245 //////////// Begin of the Yao Class Yaosolsor_flag //////////// 3246 class Yaosolsor_flag 3247 { 3248 public: 3249 double Ystate[YNBALLTIME_Tsbd][YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_flag]; 3250 double Ygrad[YNBALLTIME_Tsbd][YA1_Ssolsor][YA2_Ssolsor][YA3_Ssolsor][YNBS_solsor_flag]; 3251 3252 //:=========> Constructor - Destructor ============ 3253 Yaosolsor_flag(){} 3254 ~Yaosolsor_flag(){} 3255 3256 }; 3257 3258 /*M_PCL */ 3259 class solsor_flag:public Yaosolsor_flag 3260 { public: 3261 solsor_flag(){}; 3262 ~solsor_flag (){}; 3263 void forward (double x0,double x1,double x2,double x3); 3264 void backward(double x0,double x1,double x2,double x3); 3343 3265 }; 3344 3266 … … 3347 3269 { 3348 3270 public: 3349 double Ystate[YNBALLTIME_Tsbd][Y NBS_gcx2];3350 double Ygrad[YNBALLTIME_Tsbd][Y NBS_gcx2];3271 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_gcx2]; 3272 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_gcx2]; 3351 3273 3352 3274 //:=========> Constructor - Destructor ============ … … 3361 3283 gcx2(){}; 3362 3284 ~gcx2 (){}; 3363 void forward ( );3364 void backward( );3285 void forward (double x0); 3286 void backward(double x0); 3365 3287 }; 3366 3288 … … 3369 3291 { 3370 3292 public: 3371 double Ystate[YNBALLTIME_Tsbd][Y NBS_spguv_dynspg_flt];3372 double Ygrad[YNBALLTIME_Tsbd][Y NBS_spguv_dynspg_flt];3293 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_spguv_dynspg_flt]; 3294 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_spguv_dynspg_flt]; 3373 3295 3374 3296 //:=========> Constructor - Destructor ============ … … 3391 3313 { 3392 3314 public: 3393 double Ystate[YNBALLTIME_Tsbd][Y NBS_ua];3394 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ua];3315 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ua]; 3316 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ua]; 3395 3317 3396 3318 //:=========> Constructor - Destructor ============ … … 3413 3335 { 3414 3336 public: 3415 double Ystate[YNBALLTIME_Tsbd][Y NBS_va];3416 double Ygrad[YNBALLTIME_Tsbd][Y NBS_va];3337 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_va]; 3338 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_va]; 3417 3339 3418 3340 //:=========> Constructor - Destructor ============ … … 3435 3357 { 3436 3358 public: 3437 double Ystate[YNBALLTIME_Tsbd][Y NBS_sshn];3438 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sshn];3359 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_sshn]; 3360 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_sshn]; 3439 3361 3440 3362 //:=========> Constructor - Destructor ============ … … 3457 3379 { 3458 3380 public: 3459 double Ystate[YNBALLTIME_Tsbd][Y NBS_sshb];3460 double Ygrad[YNBALLTIME_Tsbd][Y NBS_sshb];3461 double Ywish[Y NBS_sshb];3381 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_sshb]; 3382 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YNBS_sshb]; 3383 double Ywish[YA1_S3dt_b][YA2_S3dt_b][YNBS_sshb]; 3462 3384 3463 3385 //:=========> Constructor - Destructor ============ … … 3480 3402 { 3481 3403 public: 3482 double Ystate[YNBALLTIME_Tsbd][Y NBS_ub];3483 double Ygrad[YNBALLTIME_Tsbd][Y NBS_ub];3484 double Ywish[Y NBS_ub];3404 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ub]; 3405 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ub]; 3406 double Ywish[YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_ub]; 3485 3407 3486 3408 //:=========> Constructor - Destructor ============ … … 3503 3425 { 3504 3426 public: 3505 double Ystate[YNBALLTIME_Tsbd][Y NBS_vb];3506 double Ygrad[YNBALLTIME_Tsbd][Y NBS_vb];3507 double Ywish[Y NBS_vb];3427 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_vb]; 3428 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_vb]; 3429 double Ywish[YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_vb]; 3508 3430 3509 3431 //:=========> Constructor - Destructor ============ … … 3526 3448 { 3527 3449 public: 3528 double Ystate[YNBALLTIME_Tsbd][Y NBS_hdivn];3529 double Ygrad[YNBALLTIME_Tsbd][Y NBS_hdivn];3450 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_hdivn]; 3451 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_hdivn]; 3530 3452 3531 3453 //:=========> Constructor - Destructor ============ … … 3548 3470 { 3549 3471 public: 3550 double Ystate[YNBALLTIME_Tsbd][Y NBS_rotn];3551 double Ygrad[YNBALLTIME_Tsbd][Y NBS_rotn];3472 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_rotn]; 3473 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_rotn]; 3552 3474 3553 3475 //:=========> Constructor - Destructor ============ … … 3570 3492 { 3571 3493 public: 3572 double Ystate[YNBALLTIME_Tsbd][Y NBS_wa];3573 double Ygrad[YNBALLTIME_Tsbd][Y NBS_wa];3494 double Ystate[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_wa]; 3495 double Ygrad[YNBALLTIME_Tsbd][YA1_S3dt_b][YA2_S3dt_b][YA3_S3dt_b][YNBS_wa]; 3574 3496 3575 3497 //:=========> Constructor - Destructor ============ … … 3588 3510 }; 3589 3511 3590 // € € € € PROTOTYPES of AUTO-FUNCTIONS € € € € € € € € € € €3512 //ᅵ ᅵ ᅵ ᅵ PROTOTYPES of AUTO-FUNCTIONS ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ 3591 3513 void Yrazgrad_sshn_c(); 3592 3514 void Ysetstate_sshn_c(); … … 3743 3665 void Yrazgrad_gcx_dynspg_flt(); 3744 3666 void Ysetstate_gcx_dynspg_flt(); 3745 void Yrazgrad_solsor_dynspg_flt(); 3746 void Ysetstate_solsor_dynspg_flt(); 3667 void Yrazgrad_solsor_gx1_x_r(); 3668 void Ysetstate_solsor_gx1_x_r(); 3669 void Yrazgrad_solsor_gx2_x_r(); 3670 void Ysetstate_solsor_gx2_x_r(); 3671 void Yrazgrad_solsor_flag(); 3672 void Ysetstate_solsor_flag(); 3747 3673 void Yrazgrad_gcx2(); 3748 3674 void Ysetstate_gcx2(); … … 3780 3706 3781 3707 /*------- GENERATION DU TABLEAU DES ESPACES --------*/ 3782 #define YNBSPACE 33783 struct Yst_space YTabSpace[ 3] = {3708 #define YNBSPACE 5 3709 struct Yst_space YTabSpace[5] = { 3784 3710 {"S0d", 'M', 1, 0, 0, "Tcst"}, 3785 3711 {"S3d", 'M', 32, 22, 31, "Tcst"}, 3786 3712 {"S3dt", 'M', 32, 22, 31, "Tsbd"}, 3713 {"S3dt_b", 'M', 32, 22, 31, "Tsbd"}, 3714 {"Ssolsor", 'M', 32, 22, 800, "Tsbd"}, 3787 3715 }; 3788 3716 … … 3793 3721 3794 3722 /*------- GENERATION D'UN TABLEAU d'ACCES AUX MODULES --------*/ 3795 #define YNBMODUL 87 3796 struct Yst_modul YTabMod[87] = { 3797 {"sshn_c", *Ysshn_c, 2, 32, 22, 0, 0, 1, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"}, 3798 {"ta_c", *Yta_c, 3, 32, 22, 31, 0, 1, 0, 0, 1, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"}, 3799 {"sa_c", *Ysa_c, 3, 32, 22, 31, 0, 1, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"}, 3800 {"ua_c", *Yua_c, 3, 32, 22, 31, 0, 1, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"}, 3801 {"va_c", *Yva_c, 3, 32, 22, 31, 0, 1, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"}, 3802 {"sbcgyre_qsr_qns", *Ysbcgyre_qsr_qns, 2, 32, 22, 0, 1, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3803 {"sbcgyre_emp1", *Ysbcgyre_emp1, 2, 32, 22, 0, 0, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3804 {"sbcgyre_zsumemp_zsurf", *Ysbcgyre_zsumemp_zsurf, 2, 32, 22, 0, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3805 {"sbcgyre_emp", *Ysbcgyre_emp, 2, 32, 22, 0, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3806 {"sbcgyre_emps", *Ysbcgyre_emps, 2, 32, 22, 0, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3807 {"sbcgyre_utau_vtau", *Ysbcgyre_utau_vtau, 2, 32, 22, 0, 0, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3808 {"sbcgyre_wndm", *Ysbcgyre_wndm, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3809 {"bn2_rn2", *Ybn2_rn2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3810 {"zdf_avt_avmu_avmv", *Yzdf_avt_avmu_avmv, 3, 32, 22, 31, 19, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3811 {"zdfmxl_hmld", *Yzdfmxl_hmld, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3812 {"zdfmxl_nmln_hmlp_hmlpt", *Yzdfmxl_nmln_hmlp_hmlpt, 2, 32, 22, 0, 31, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3813 {"ta_sa_trasbc", *Yta_sa_trasbc, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3814 {"ta_traqsr", *Yta_traqsr, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3815 {"zcent_hor_traadv_cen2", *Yzcent_hor_traadv_cen2, 3, 32, 22, 31, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3816 {"zcens_hor_traadv_cen2", *Yzcens_hor_traadv_cen2, 3, 32, 22, 31, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3817 {"ta_hor_traadv_cen2", *Yta_hor_traadv_cen2, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3818 {"sa_hor_traadv_cen2", *Ysa_hor_traadv_cen2, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3819 {"zcent_ver_traadv_cen2", *Yzcent_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3820 {"zcens_ver_traadv_cen2", *Yzcens_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3821 {"ta_ver_traadv_cen2", *Yta_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3822 {"sa_ver_traadv_cen2", *Ysa_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3823 {"ztuv_traldf_lap", *Yztuv_traldf_lap, 3, 32, 22, 31, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3824 {"zsuv_traldf_lap", *Yzsuv_traldf_lap, 3, 32, 22, 31, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3825 {"ta_traldf_lap", *Yta_traldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3826 {"sa_traldf_lap", *Ysa_traldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3827 {"zwisd_trazdf_imp", *Yzwisd_trazdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3828 {"zrhs_trazdf_imp", *Yzrhs_trazdf_imp, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3829 {"zrhs_sa_trazdf_imp", *Yzrhs_sa_trazdf_imp, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3830 {"zwt_trazdf_imp", *Yzwt_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3831 {"ta_de_trazdf_imp", *Yta_de_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3832 {"ta", *Yta, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3833 {"sa_de_trazdf_imp", *Ysa_de_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3834 {"sa", *Ysa, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3835 {"tb", *Ytb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3836 {"sb", *Ysb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3837 {"rhd", *Yrhd, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3838 {"rhop", *Yrhop, 3, 32, 22, 31, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3839 {"hmf_TF_dynadv_cen2", *Yhmf_TF_dynadv_cen2, 3, 32, 22, 31, 6, 4, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3840 {"zua_dhmf_dynadv_cen2", *Yzua_dhmf_dynadv_cen2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3841 {"zva_dhmf_dynadv_cen2", *Yzva_dhmf_dynadv_cen2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3842 {"zfuv_UW_dynadv_cen2", *Yzfuv_UW_dynadv_cen2, 3, 32, 22, 31, 7, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3843 {"ua_dynadv_cen2", *Yua_dynadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3844 {"va_dynadv_cen2", *Yva_dynadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3845 {"zwxyz_vor_ene", *Yzwxyz_vor_ene, 3, 32, 22, 31, 4, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3846 {"ua_vor_ene", *Yua_vor_ene, 3, 32, 22, 31, 7, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3847 {"va_vor_ene", *Yva_vor_ene, 3, 32, 22, 31, 7, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3848 {"ua_dyn_ldf_lap", *Yua_dyn_ldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3849 {"va_dyn_ldf_lap", *Yva_dyn_ldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3850 {"zhpij_dyn_hpg_zco", *Yzhpij_dyn_hpg_zco, 3, 32, 22, 31, 8, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3851 {"ua_dyn_hpg_zco", *Yua_dyn_hpg_zco, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3852 {"va_dyn_hpg_zco", *Yva_dyn_hpg_zco, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3853 {"zwisd_ua_dynzdf_imp", *Yzwisd_ua_dynzdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3854 {"zwisd_va_dynzdf_imp", *Yzwisd_va_dynzdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3855 {"zrhs_ua_dynzdf_imp", *Yzrhs_ua_dynzdf_imp, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3856 {"zrhs_va_dynzdf_imp", *Yzrhs_va_dynzdf_imp, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3857 {"zwt_ua_dynzdf_imp", *Yzwt_ua_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3858 {"zwt_va_dynzdf_imp", *Yzwt_va_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3859 {"ua_de_dynzdf_imp", *Yua_de_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3860 {"ua_dynzdf_imp", *Yua_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3861 {"va_de_dynzdf_imp", *Yva_de_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3862 {"va_dynzdf_imp", *Yva_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3863 {"ua_norm_dynzdf", *Yua_norm_dynzdf, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3864 {"va_norm_dynzdf", *Yva_norm_dynzdf, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3865 {"spguv_now_dynspg", *Yspguv_now_dynspg, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3866 {"ua_1_dynspg_flt", *Yua_1_dynspg_flt, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3867 {"va_1_dynspg_flt", *Yva_1_dynspg_flt, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3868 {"sum_spgu_dynspg_flt", *Ysum_spgu_dynspg_flt, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3869 {"sum_spgv_dynspg_flt", *Ysum_spgv_dynspg_flt, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3870 {"gcb_dynspg_flt", *Ygcb_dynspg_flt, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3871 {"gcx_dynspg_flt", *Ygcx_dynspg_flt, 2, 32, 22, 0, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3872 {"solsor_dynspg_flt", *Ysolsor_dynspg_flt, 2, 32, 22, 0, 19, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3873 {"gcx2", *Ygcx2, 2, 32, 22, 0, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3874 {"spguv_dynspg_flt", *Yspguv_dynspg_flt, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3875 {"ua", *Yua, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3876 {"va", *Yva, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3877 {"sshn", *Ysshn, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3878 {"sshb", *Ysshb, 2, 32, 22, 0, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3879 {"ub", *Yub, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3880 {"vb", *Yvb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3881 {"hdivn", *Yhdivn, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3882 {"rotn", *Yrotn, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3883 {"wa", *Ywa, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3723 #define YNBMODUL 89 3724 struct Yst_modul YTabMod[89] = { 3725 {"sshn_c", Ysshn_c, 2, 32, 22, 0, 0, 1, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"}, 3726 {"ta_c", Yta_c, 3, 32, 22, 31, 0, 1, 0, 0, 1, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"}, 3727 {"sa_c", Ysa_c, 3, 32, 22, 31, 0, 1, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"}, 3728 {"ua_c", Yua_c, 3, 32, 22, 31, 0, 1, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"}, 3729 {"va_c", Yva_c, 3, 32, 22, 31, 0, 1, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S3d"}, 3730 {"sbcgyre_qsr_qns", Ysbcgyre_qsr_qns, 2, 32, 22, 0, 1, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3731 {"sbcgyre_emp1", Ysbcgyre_emp1, 2, 32, 22, 0, 0, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3732 {"sbcgyre_zsumemp_zsurf", Ysbcgyre_zsumemp_zsurf, 2, 32, 22, 0, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3733 {"sbcgyre_emp", Ysbcgyre_emp, 2, 32, 22, 0, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3734 {"sbcgyre_emps", Ysbcgyre_emps, 2, 32, 22, 0, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3735 {"sbcgyre_utau_vtau", Ysbcgyre_utau_vtau, 2, 32, 22, 0, 0, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3736 {"sbcgyre_wndm", Ysbcgyre_wndm, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3737 {"bn2_rn2", Ybn2_rn2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3738 {"zdf_avt_avmu_avmv", Yzdf_avt_avmu_avmv, 3, 32, 22, 31, 19, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3739 {"zdfmxl_hmld", Yzdfmxl_hmld, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3740 {"zdfmxl_nmln_hmlp_hmlpt", Yzdfmxl_nmln_hmlp_hmlpt, 2, 32, 22, 0, 31, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3741 {"ta_sa_trasbc", Yta_sa_trasbc, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3742 {"ta_traqsr", Yta_traqsr, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3743 {"zcent_hor_traadv_cen2", Yzcent_hor_traadv_cen2, 3, 32, 22, 31, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3744 {"zcens_hor_traadv_cen2", Yzcens_hor_traadv_cen2, 3, 32, 22, 31, 5, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3745 {"ta_hor_traadv_cen2", Yta_hor_traadv_cen2, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3746 {"sa_hor_traadv_cen2", Ysa_hor_traadv_cen2, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3747 {"zcent_ver_traadv_cen2", Yzcent_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3748 {"zcens_ver_traadv_cen2", Yzcens_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3749 {"ta_ver_traadv_cen2", Yta_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3750 {"sa_ver_traadv_cen2", Ysa_ver_traadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3751 {"ztuv_traldf_lap", Yztuv_traldf_lap, 3, 32, 22, 31, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3752 {"zsuv_traldf_lap", Yzsuv_traldf_lap, 3, 32, 22, 31, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3753 {"ta_traldf_lap", Yta_traldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3754 {"sa_traldf_lap", Ysa_traldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3755 {"zwisd_trazdf_imp", Yzwisd_trazdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3756 {"zrhs_trazdf_imp", Yzrhs_trazdf_imp, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3757 {"zrhs_sa_trazdf_imp", Yzrhs_sa_trazdf_imp, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3758 {"zwt_trazdf_imp", Yzwt_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3759 {"ta_de_trazdf_imp", Yta_de_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3760 {"ta", Yta, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3761 {"sa_de_trazdf_imp", Ysa_de_trazdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3762 {"sa", Ysa, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3763 {"tb", Ytb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3764 {"sb", Ysb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3765 {"rhd", Yrhd, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3766 {"rhop", Yrhop, 3, 32, 22, 31, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3767 {"hmf_TF_dynadv_cen2", Yhmf_TF_dynadv_cen2, 3, 32, 22, 31, 6, 4, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3768 {"zua_dhmf_dynadv_cen2", Yzua_dhmf_dynadv_cen2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3769 {"zva_dhmf_dynadv_cen2", Yzva_dhmf_dynadv_cen2, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3770 {"zfuv_UW_dynadv_cen2", Yzfuv_UW_dynadv_cen2, 3, 32, 22, 31, 7, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3771 {"ua_dynadv_cen2", Yua_dynadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3772 {"va_dynadv_cen2", Yva_dynadv_cen2, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3773 {"zwxyz_vor_ene", Yzwxyz_vor_ene, 3, 32, 22, 31, 4, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3774 {"ua_vor_ene", Yua_vor_ene, 3, 32, 22, 31, 7, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3775 {"va_vor_ene", Yva_vor_ene, 3, 32, 22, 31, 7, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3776 {"ua_dyn_ldf_lap", Yua_dyn_ldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3777 {"va_dyn_ldf_lap", Yva_dyn_ldf_lap, 3, 32, 22, 31, 5, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3778 {"zhpij_dyn_hpg_zco", Yzhpij_dyn_hpg_zco, 3, 32, 22, 31, 8, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3779 {"ua_dyn_hpg_zco", Yua_dyn_hpg_zco, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3780 {"va_dyn_hpg_zco", Yva_dyn_hpg_zco, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3781 {"zwisd_ua_dynzdf_imp", Yzwisd_ua_dynzdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3782 {"zwisd_va_dynzdf_imp", Yzwisd_va_dynzdf_imp, 3, 32, 22, 31, 2, 3, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3783 {"zrhs_ua_dynzdf_imp", Yzrhs_ua_dynzdf_imp, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3784 {"zrhs_va_dynzdf_imp", Yzrhs_va_dynzdf_imp, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3785 {"zwt_ua_dynzdf_imp", Yzwt_ua_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3786 {"zwt_va_dynzdf_imp", Yzwt_va_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3787 {"ua_de_dynzdf_imp", Yua_de_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3788 {"ua_dynzdf_imp", Yua_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3789 {"va_de_dynzdf_imp", Yva_de_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3790 {"va_dynzdf_imp", Yva_dynzdf_imp, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3791 {"ua_norm_dynzdf", Yua_norm_dynzdf, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3792 {"va_norm_dynzdf", Yva_norm_dynzdf, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3793 {"spguv_now_dynspg", Yspguv_now_dynspg, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3794 {"ua_1_dynspg_flt", Yua_1_dynspg_flt, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3795 {"va_1_dynspg_flt", Yva_1_dynspg_flt, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3796 {"sum_spgu_dynspg_flt", Ysum_spgu_dynspg_flt, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3797 {"sum_spgv_dynspg_flt", Ysum_spgv_dynspg_flt, 2, 32, 22, 0, 31, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3798 {"gcb_dynspg_flt", Ygcb_dynspg_flt, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3799 {"gcx_dynspg_flt", Ygcx_dynspg_flt, 2, 32, 22, 0, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt"}, 3800 {"solsor_gx1_x_r", Ysolsor_gx1_x_r, 3, 32, 22, 800, 8, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "Ssolsor"}, 3801 {"solsor_gx2_x_r", Ysolsor_gx2_x_r, 3, 32, 22, 800, 9, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "Ssolsor"}, 3802 {"solsor_flag", Ysolsor_flag, 3, 32, 22, 800, 4, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "Ssolsor"}, 3803 {"gcx2", Ygcx2, 2, 32, 22, 0, 1, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3804 {"spguv_dynspg_flt", Yspguv_dynspg_flt, 2, 32, 22, 0, 3, 2, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3805 {"ua", Yua, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3806 {"va", Yva, 3, 32, 22, 31, 3, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3807 {"sshn", Ysshn, 2, 32, 22, 0, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3808 {"sshb", Ysshb, 2, 32, 22, 0, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3809 {"ub", Yub, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3810 {"vb", Yvb, 3, 32, 22, 31, 4, 1, 12, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3811 {"hdivn", Yhdivn, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3812 {"rotn", Yrotn, 3, 32, 22, 31, 4, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3813 {"wa", Ywa, 3, 32, 22, 31, 2, 1, 12, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S3dt_b"}, 3884 3814 }; 3885 3815 … … 3973 3903 { }, 3974 3904 { }, 3905 { }, 3906 { }, 3975 3907 }; 3976 3908 3977 3909 //----- GENERATION d'UN TABLEAU de DEFINITIONS de VALEURS ----- 3978 #define YNBDEFVAL 63979 struct Yst_defval YTabDefval[ 6] = {3910 #define YNBDEFVAL 7 3911 struct Yst_defval YTabDefval[7] = { 3980 3912 {"NPCA", "15"}, 3981 3913 {"NX", "32"}, 3982 3914 {"NY", "22"}, 3983 3915 {"NZ", "31"}, 3916 {"NMAX", "800"}, 3984 3917 {"TA", "10"}, 3985 3918 {"TU", "2"}, 3986 3919 }; 3987 3920 3988 // € € € € GENERATION AUTOMATIQUE DES include € € € € € € € € € € €3921 //ᅵ ᅵ ᅵ ᅵ GENERATION AUTOMATIQUE DES include ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ ᅵ 3989 3922 #include "sinobad.h" 3990 3923 … … 3992 3925 #define backward void sbcgyre_qsr_qns::backward 3993 3926 #define flinward void sbcgyre_qsr_qns::flinward 3994 #define YS1Y Ystate[YTemps][ 0]3995 #define YS1 Ystate[YTemps][ 0]3996 #define YG1 Ygrad[YTemps][ 0]3997 #define YS2Y Ystate[YTemps][ 1]3998 #define YS2 Ystate[YTemps][ 1]3999 #define YG2 Ygrad[YTemps][ 1]3927 #define YS1Y Ystate[YTemps][Yi][Yj][0] 3928 #define YS1 Ystate[YTemps][Yi][Yj][0] 3929 #define YG1 Ygrad[YTemps][Yi][Yj][0] 3930 #define YS2Y Ystate[YTemps][Yi][Yj][1] 3931 #define YS2 Ystate[YTemps][Yi][Yj][1] 3932 #define YG2 Ygrad[YTemps][Yi][Yj][1] 4000 3933 #include "sbcgyre_qsr_qns.h" 4001 3934 #undef YS1Y … … 4012 3945 #define backward void sbcgyre_emp1::backward 4013 3946 #define flinward void sbcgyre_emp1::flinward 4014 #define YS1Y Ystate[YTemps][ 0]4015 #define YS1 Ystate[YTemps][ 0]4016 #define YG1 Ygrad[YTemps][ 0]3947 #define YS1Y Ystate[YTemps][Yi][Yj][0] 3948 #define YS1 Ystate[YTemps][Yi][Yj][0] 3949 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4017 3950 #include "sbcgyre_emp1.h" 4018 3951 #undef YS1Y … … 4026 3959 #define backward void sbcgyre_zsumemp_zsurf::backward 4027 3960 #define flinward void sbcgyre_zsumemp_zsurf::flinward 4028 #define YS1Y Ystate[YTemps][ 0]4029 #define YS1 Ystate[YTemps][ 0]4030 #define YG1 Ygrad[YTemps][ 0]4031 #define YS2Y Ystate[YTemps][ 1]4032 #define YS2 Ystate[YTemps][ 1]4033 #define YG2 Ygrad[YTemps][ 1]3961 #define YS1Y Ystate[YTemps][Yi][Yj][0] 3962 #define YS1 Ystate[YTemps][Yi][Yj][0] 3963 #define YG1 Ygrad[YTemps][Yi][Yj][0] 3964 #define YS2Y Ystate[YTemps][Yi][Yj][1] 3965 #define YS2 Ystate[YTemps][Yi][Yj][1] 3966 #define YG2 Ygrad[YTemps][Yi][Yj][1] 4034 3967 #include "sbcgyre_zsumemp_zsurf.h" 4035 3968 #undef YS1Y … … 4046 3979 #define backward void sbcgyre_emp::backward 4047 3980 #define flinward void sbcgyre_emp::flinward 4048 #define YS1Y Ystate[YTemps][ 0]4049 #define YS1 Ystate[YTemps][ 0]4050 #define YG1 Ygrad[YTemps][ 0]3981 #define YS1Y Ystate[YTemps][Yi][Yj][0] 3982 #define YS1 Ystate[YTemps][Yi][Yj][0] 3983 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4051 3984 #include "sbcgyre_emp.h" 4052 3985 #undef YS1Y … … 4060 3993 #define backward void sbcgyre_emps::backward 4061 3994 #define flinward void sbcgyre_emps::flinward 4062 #define YS1Y Ystate[YTemps][ 0]4063 #define YS1 Ystate[YTemps][ 0]4064 #define YG1 Ygrad[YTemps][ 0]3995 #define YS1Y Ystate[YTemps][Yi][Yj][0] 3996 #define YS1 Ystate[YTemps][Yi][Yj][0] 3997 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4065 3998 #include "sbcgyre_emps.h" 4066 3999 #undef YS1Y … … 4074 4007 #define backward void sbcgyre_utau_vtau::backward 4075 4008 #define flinward void sbcgyre_utau_vtau::flinward 4076 #define YS1Y Ystate[YTemps][ 0]4077 #define YS1 Ystate[YTemps][ 0]4078 #define YG1 Ygrad[YTemps][ 0]4079 #define YS2Y Ystate[YTemps][ 1]4080 #define YS2 Ystate[YTemps][ 1]4081 #define YG2 Ygrad[YTemps][ 1]4009 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4010 #define YS1 Ystate[YTemps][Yi][Yj][0] 4011 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4012 #define YS2Y Ystate[YTemps][Yi][Yj][1] 4013 #define YS2 Ystate[YTemps][Yi][Yj][1] 4014 #define YG2 Ygrad[YTemps][Yi][Yj][1] 4082 4015 #include "sbcgyre_utau_vtau.h" 4083 4016 #undef YS1Y … … 4094 4027 #define backward void sbcgyre_wndm::backward 4095 4028 #define flinward void sbcgyre_wndm::flinward 4096 #define YS1Y Ystate[YTemps][ 0]4097 #define YS1 Ystate[YTemps][ 0]4098 #define YG1 Ygrad[YTemps][ 0]4029 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4030 #define YS1 Ystate[YTemps][Yi][Yj][0] 4031 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4099 4032 #include "sbcgyre_wndm.h" 4100 4033 #undef YS1Y … … 4108 4041 #define backward void bn2_rn2::backward 4109 4042 #define flinward void bn2_rn2::flinward 4110 #define YS1Y Ystate[YTemps][ 0]4111 #define YS1 Ystate[YTemps][ 0]4112 #define YG1 Ygrad[YTemps][ 0]4043 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4044 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4045 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4113 4046 #include "bn2_rn2.h" 4114 4047 #undef YS1Y … … 4122 4055 #define backward void zdf_avt_avmu_avmv::backward 4123 4056 #define flinward void zdf_avt_avmu_avmv::flinward 4124 #define YS1Y Ystate[YTemps][ 0]4125 #define YS1 Ystate[YTemps][ 0]4126 #define YG1 Ygrad[YTemps][ 0]4127 #define YS2Y Ystate[YTemps][ 1]4128 #define YS2 Ystate[YTemps][ 1]4129 #define YG2 Ygrad[YTemps][ 1]4130 #define YS3Y Ystate[YTemps][ 2]4131 #define YS3 Ystate[YTemps][ 2]4132 #define YG3 Ygrad[YTemps][ 2]4057 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4058 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4059 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4060 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4061 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4062 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4063 #define YS3Y Ystate[YTemps][Yi][Yj][Yk][2] 4064 #define YS3 Ystate[YTemps][Yi][Yj][Yk][2] 4065 #define YG3 Ygrad[YTemps][Yi][Yj][Yk][2] 4133 4066 #include "zdf_avt_avmu_avmv.h" 4134 4067 #undef YS1Y … … 4148 4081 #define backward void zdfmxl_hmld::backward 4149 4082 #define flinward void zdfmxl_hmld::flinward 4150 #define YS1Y Ystate[YTemps][ 0]4151 #define YS1 Ystate[YTemps][ 0]4152 #define YG1 Ygrad[YTemps][ 0]4083 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4084 #define YS1 Ystate[YTemps][Yi][Yj][0] 4085 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4153 4086 #include "zdfmxl_hmld.h" 4154 4087 #undef YS1Y … … 4162 4095 #define backward void zdfmxl_nmln_hmlp_hmlpt::backward 4163 4096 #define flinward void zdfmxl_nmln_hmlp_hmlpt::flinward 4164 #define YS1Y Ystate[YTemps][ 0]4165 #define YS1 Ystate[YTemps][ 0]4166 #define YG1 Ygrad[YTemps][ 0]4167 #define YS2Y Ystate[YTemps][ 1]4168 #define YS2 Ystate[YTemps][ 1]4169 #define YG2 Ygrad[YTemps][ 1]4170 #define YS3Y Ystate[YTemps][ 2]4171 #define YS3 Ystate[YTemps][ 2]4172 #define YG3 Ygrad[YTemps][ 2]4097 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4098 #define YS1 Ystate[YTemps][Yi][Yj][0] 4099 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4100 #define YS2Y Ystate[YTemps][Yi][Yj][1] 4101 #define YS2 Ystate[YTemps][Yi][Yj][1] 4102 #define YG2 Ygrad[YTemps][Yi][Yj][1] 4103 #define YS3Y Ystate[YTemps][Yi][Yj][2] 4104 #define YS3 Ystate[YTemps][Yi][Yj][2] 4105 #define YG3 Ygrad[YTemps][Yi][Yj][2] 4173 4106 #include "zdfmxl_nmln_hmlp_hmlpt.h" 4174 4107 #undef YS1Y … … 4188 4121 #define backward void ta_sa_trasbc::backward 4189 4122 #define flinward void ta_sa_trasbc::flinward 4190 #define YS1Y Ystate[YTemps][ 0]4191 #define YS1 Ystate[YTemps][ 0]4192 #define YG1 Ygrad[YTemps][ 0]4193 #define YS2Y Ystate[YTemps][ 1]4194 #define YS2 Ystate[YTemps][ 1]4195 #define YG2 Ygrad[YTemps][ 1]4123 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4124 #define YS1 Ystate[YTemps][Yi][Yj][0] 4125 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4126 #define YS2Y Ystate[YTemps][Yi][Yj][1] 4127 #define YS2 Ystate[YTemps][Yi][Yj][1] 4128 #define YG2 Ygrad[YTemps][Yi][Yj][1] 4196 4129 #include "ta_sa_trasbc.h" 4197 4130 #undef YS1Y … … 4208 4141 #define backward void ta_traqsr::backward 4209 4142 #define flinward void ta_traqsr::flinward 4210 #define YS1Y Ystate[YTemps][ 0]4211 #define YS1 Ystate[YTemps][ 0]4212 #define YG1 Ygrad[YTemps][ 0]4143 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4144 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4145 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4213 4146 #include "ta_traqsr.h" 4214 4147 #undef YS1Y … … 4222 4155 #define backward void zcent_hor_traadv_cen2::backward 4223 4156 #define flinward void zcent_hor_traadv_cen2::flinward 4224 #define YS1Y Ystate[YTemps][ 0]4225 #define YS1 Ystate[YTemps][ 0]4226 #define YG1 Ygrad[YTemps][ 0]4227 #define YS2Y Ystate[YTemps][ 1]4228 #define YS2 Ystate[YTemps][ 1]4229 #define YG2 Ygrad[YTemps][ 1]4157 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4158 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4159 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4160 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4161 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4162 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4230 4163 #include "zcent_hor_traadv_cen2.h" 4231 4164 #undef YS1Y … … 4242 4175 #define backward void ta_hor_traadv_cen2::backward 4243 4176 #define flinward void ta_hor_traadv_cen2::flinward 4244 #define YS1Y Ystate[YTemps][ 0]4245 #define YS1 Ystate[YTemps][ 0]4246 #define YG1 Ygrad[YTemps][ 0]4177 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4178 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4179 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4247 4180 #include "ta_hor_traadv_cen2.h" 4248 4181 #undef YS1Y … … 4256 4189 #define backward void sa_hor_traadv_cen2::backward 4257 4190 #define flinward void sa_hor_traadv_cen2::flinward 4258 #define YS1Y Ystate[YTemps][ 0]4259 #define YS1 Ystate[YTemps][ 0]4260 #define YG1 Ygrad[YTemps][ 0]4191 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4192 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4193 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4261 4194 #include "sa_hor_traadv_cen2.h" 4262 4195 #undef YS1Y … … 4270 4203 #define backward void zcent_ver_traadv_cen2::backward 4271 4204 #define flinward void zcent_ver_traadv_cen2::flinward 4272 #define YS1Y Ystate[YTemps][ 0]4273 #define YS1 Ystate[YTemps][ 0]4274 #define YG1 Ygrad[YTemps][ 0]4205 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4206 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4207 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4275 4208 #include "zcent_ver_traadv_cen2.h" 4276 4209 #undef YS1Y … … 4284 4217 #define backward void ta_ver_traadv_cen2::backward 4285 4218 #define flinward void ta_ver_traadv_cen2::flinward 4286 #define YS1Y Ystate[YTemps][ 0]4287 #define YS1 Ystate[YTemps][ 0]4288 #define YG1 Ygrad[YTemps][ 0]4219 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4220 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4221 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4289 4222 #include "ta_ver_traadv_cen2.h" 4290 4223 #undef YS1Y … … 4298 4231 #define backward void ztuv_traldf_lap::backward 4299 4232 #define flinward void ztuv_traldf_lap::flinward 4300 #define YS1Y Ystate[YTemps][ 0]4301 #define YS1 Ystate[YTemps][ 0]4302 #define YG1 Ygrad[YTemps][ 0]4303 #define YS2Y Ystate[YTemps][ 1]4304 #define YS2 Ystate[YTemps][ 1]4305 #define YG2 Ygrad[YTemps][ 1]4233 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4234 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4235 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4236 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4237 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4238 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4306 4239 #include "ztuv_traldf_lap.h" 4307 4240 #undef YS1Y … … 4318 4251 #define backward void ta_traldf_lap::backward 4319 4252 #define flinward void ta_traldf_lap::flinward 4320 #define YS1Y Ystate[YTemps][ 0]4321 #define YS1 Ystate[YTemps][ 0]4322 #define YG1 Ygrad[YTemps][ 0]4253 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4254 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4255 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4323 4256 #include "ta_traldf_lap.h" 4324 4257 #undef YS1Y … … 4332 4265 #define backward void zwisd_trazdf_imp::backward 4333 4266 #define flinward void zwisd_trazdf_imp::flinward 4334 #define YS1Y Ystate[YTemps][ 0]4335 #define YS1 Ystate[YTemps][ 0]4336 #define YG1 Ygrad[YTemps][ 0]4337 #define YS2Y Ystate[YTemps][ 1]4338 #define YS2 Ystate[YTemps][ 1]4339 #define YG2 Ygrad[YTemps][ 1]4340 #define YS3Y Ystate[YTemps][ 2]4341 #define YS3 Ystate[YTemps][ 2]4342 #define YG3 Ygrad[YTemps][ 2]4267 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4268 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4269 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4270 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4271 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4272 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4273 #define YS3Y Ystate[YTemps][Yi][Yj][Yk][2] 4274 #define YS3 Ystate[YTemps][Yi][Yj][Yk][2] 4275 #define YG3 Ygrad[YTemps][Yi][Yj][Yk][2] 4343 4276 #include "zwisd_trazdf_imp.h" 4344 4277 #undef YS1Y … … 4358 4291 #define backward void zrhs_trazdf_imp::backward 4359 4292 #define flinward void zrhs_trazdf_imp::flinward 4360 #define YS1Y Ystate[YTemps][ 0]4361 #define YS1 Ystate[YTemps][ 0]4362 #define YG1 Ygrad[YTemps][ 0]4293 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4294 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4295 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4363 4296 #include "zrhs_trazdf_imp.h" 4364 4297 #undef YS1Y … … 4372 4305 #define backward void zwt_trazdf_imp::backward 4373 4306 #define flinward void zwt_trazdf_imp::flinward 4374 #define YS1Y Ystate[YTemps][ 0]4375 #define YS1 Ystate[YTemps][ 0]4376 #define YG1 Ygrad[YTemps][ 0]4307 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4308 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4309 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4377 4310 #include "zwt_trazdf_imp.h" 4378 4311 #undef YS1Y … … 4386 4319 #define backward void ta::backward 4387 4320 #define flinward void ta::flinward 4388 #define YS1Y Ystate[YTemps][ 0]4389 #define YS1 Ystate[YTemps][ 0]4390 #define YG1 Ygrad[YTemps][ 0]4321 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4322 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4323 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4391 4324 #include "ta.h" 4392 4325 #undef YS1Y … … 4400 4333 #define backward void sa::backward 4401 4334 #define flinward void sa::flinward 4402 #define YS1Y Ystate[YTemps][ 0]4403 #define YS1 Ystate[YTemps][ 0]4404 #define YG1 Ygrad[YTemps][ 0]4335 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4336 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4337 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4405 4338 #include "sa.h" 4406 4339 #undef YS1Y … … 4414 4347 #define backward void tb::backward 4415 4348 #define flinward void tb::flinward 4416 #define YS1Y Ystate[YTemps][ 0]4417 #define YS1 Ystate[YTemps][ 0]4418 #define YG1 Ygrad[YTemps][ 0]4349 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4350 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4351 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4419 4352 #include "tb.h" 4420 4353 #undef YS1Y … … 4428 4361 #define backward void sb::backward 4429 4362 #define flinward void sb::flinward 4430 #define YS1Y Ystate[YTemps][ 0]4431 #define YS1 Ystate[YTemps][ 0]4432 #define YG1 Ygrad[YTemps][ 0]4363 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4364 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4365 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4433 4366 #include "sb.h" 4434 4367 #undef YS1Y … … 4442 4375 #define backward void rhd::backward 4443 4376 #define flinward void rhd::flinward 4444 #define YS1Y Ystate[YTemps][ 0]4445 #define YS1 Ystate[YTemps][ 0]4446 #define YG1 Ygrad[YTemps][ 0]4377 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4378 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4379 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4447 4380 #include "rhd.h" 4448 4381 #undef YS1Y … … 4456 4389 #define backward void rhop::backward 4457 4390 #define flinward void rhop::flinward 4458 #define YS1Y Ystate[YTemps][ 0]4459 #define YS1 Ystate[YTemps][ 0]4460 #define YG1 Ygrad[YTemps][ 0]4391 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4392 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4393 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4461 4394 #include "rhop.h" 4462 4395 #undef YS1Y … … 4470 4403 #define backward void hmf_TF_dynadv_cen2::backward 4471 4404 #define flinward void hmf_TF_dynadv_cen2::flinward 4472 #define YS1Y Ystate[YTemps][ 0]4473 #define YS1 Ystate[YTemps][ 0]4474 #define YG1 Ygrad[YTemps][ 0]4475 #define YS2Y Ystate[YTemps][ 1]4476 #define YS2 Ystate[YTemps][ 1]4477 #define YG2 Ygrad[YTemps][ 1]4478 #define YS3Y Ystate[YTemps][ 2]4479 #define YS3 Ystate[YTemps][ 2]4480 #define YG3 Ygrad[YTemps][ 2]4481 #define YS4Y Ystate[YTemps][ 3]4482 #define YS4 Ystate[YTemps][ 3]4483 #define YG4 Ygrad[YTemps][ 3]4405 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4406 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4407 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4408 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4409 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4410 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4411 #define YS3Y Ystate[YTemps][Yi][Yj][Yk][2] 4412 #define YS3 Ystate[YTemps][Yi][Yj][Yk][2] 4413 #define YG3 Ygrad[YTemps][Yi][Yj][Yk][2] 4414 #define YS4Y Ystate[YTemps][Yi][Yj][Yk][3] 4415 #define YS4 Ystate[YTemps][Yi][Yj][Yk][3] 4416 #define YG4 Ygrad[YTemps][Yi][Yj][Yk][3] 4484 4417 #include "hmf_TF_dynadv_cen2.h" 4485 4418 #undef YS1Y … … 4502 4435 #define backward void zua_dhmf_dynadv_cen2::backward 4503 4436 #define flinward void zua_dhmf_dynadv_cen2::flinward 4504 #define YS1Y Ystate[YTemps][ 0]4505 #define YS1 Ystate[YTemps][ 0]4506 #define YG1 Ygrad[YTemps][ 0]4437 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4438 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4439 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4507 4440 #include "zua_dhmf_dynadv_cen2.h" 4508 4441 #undef YS1Y … … 4516 4449 #define backward void zva_dhmf_dynadv_cen2::backward 4517 4450 #define flinward void zva_dhmf_dynadv_cen2::flinward 4518 #define YS1Y Ystate[YTemps][ 0]4519 #define YS1 Ystate[YTemps][ 0]4520 #define YG1 Ygrad[YTemps][ 0]4451 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4452 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4453 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4521 4454 #include "zva_dhmf_dynadv_cen2.h" 4522 4455 #undef YS1Y … … 4530 4463 #define backward void zfuv_UW_dynadv_cen2::backward 4531 4464 #define flinward void zfuv_UW_dynadv_cen2::flinward 4532 #define YS1Y Ystate[YTemps][ 0]4533 #define YS1 Ystate[YTemps][ 0]4534 #define YG1 Ygrad[YTemps][ 0]4535 #define YS2Y Ystate[YTemps][ 1]4536 #define YS2 Ystate[YTemps][ 1]4537 #define YG2 Ygrad[YTemps][ 1]4465 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4466 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4467 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4468 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4469 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4470 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4538 4471 #include "zfuv_UW_dynadv_cen2.h" 4539 4472 #undef YS1Y … … 4550 4483 #define backward void ua_dynadv_cen2::backward 4551 4484 #define flinward void ua_dynadv_cen2::flinward 4552 #define YS1Y Ystate[YTemps][ 0]4553 #define YS1 Ystate[YTemps][ 0]4554 #define YG1 Ygrad[YTemps][ 0]4485 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4486 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4487 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4555 4488 #include "ua_dynadv_cen2.h" 4556 4489 #undef YS1Y … … 4564 4497 #define backward void va_dynadv_cen2::backward 4565 4498 #define flinward void va_dynadv_cen2::flinward 4566 #define YS1Y Ystate[YTemps][ 0]4567 #define YS1 Ystate[YTemps][ 0]4568 #define YG1 Ygrad[YTemps][ 0]4499 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4500 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4501 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4569 4502 #include "va_dynadv_cen2.h" 4570 4503 #undef YS1Y … … 4578 4511 #define backward void zwxyz_vor_ene::backward 4579 4512 #define flinward void zwxyz_vor_ene::flinward 4580 #define YS1Y Ystate[YTemps][ 0]4581 #define YS1 Ystate[YTemps][ 0]4582 #define YG1 Ygrad[YTemps][ 0]4583 #define YS2Y Ystate[YTemps][ 1]4584 #define YS2 Ystate[YTemps][ 1]4585 #define YG2 Ygrad[YTemps][ 1]4586 #define YS3Y Ystate[YTemps][ 2]4587 #define YS3 Ystate[YTemps][ 2]4588 #define YG3 Ygrad[YTemps][ 2]4513 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4514 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4515 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4516 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4517 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4518 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4519 #define YS3Y Ystate[YTemps][Yi][Yj][Yk][2] 4520 #define YS3 Ystate[YTemps][Yi][Yj][Yk][2] 4521 #define YG3 Ygrad[YTemps][Yi][Yj][Yk][2] 4589 4522 #include "zwxyz_vor_ene.h" 4590 4523 #undef YS1Y … … 4604 4537 #define backward void ua_vor_ene::backward 4605 4538 #define flinward void ua_vor_ene::flinward 4606 #define YS1Y Ystate[YTemps][ 0]4607 #define YS1 Ystate[YTemps][ 0]4608 #define YG1 Ygrad[YTemps][ 0]4539 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4540 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4541 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4609 4542 #include "ua_vor_ene.h" 4610 4543 #undef YS1Y … … 4618 4551 #define backward void va_vor_ene::backward 4619 4552 #define flinward void va_vor_ene::flinward 4620 #define YS1Y Ystate[YTemps][ 0]4621 #define YS1 Ystate[YTemps][ 0]4622 #define YG1 Ygrad[YTemps][ 0]4553 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4554 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4555 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4623 4556 #include "va_vor_ene.h" 4624 4557 #undef YS1Y … … 4632 4565 #define backward void ua_dyn_ldf_lap::backward 4633 4566 #define flinward void ua_dyn_ldf_lap::flinward 4634 #define YS1Y Ystate[YTemps][ 0]4635 #define YS1 Ystate[YTemps][ 0]4636 #define YG1 Ygrad[YTemps][ 0]4567 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4568 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4569 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4637 4570 #include "ua_dyn_ldf_lap.h" 4638 4571 #undef YS1Y … … 4646 4579 #define backward void va_dyn_ldf_lap::backward 4647 4580 #define flinward void va_dyn_ldf_lap::flinward 4648 #define YS1Y Ystate[YTemps][ 0]4649 #define YS1 Ystate[YTemps][ 0]4650 #define YG1 Ygrad[YTemps][ 0]4581 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4582 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4583 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4651 4584 #include "va_dyn_ldf_lap.h" 4652 4585 #undef YS1Y … … 4660 4593 #define backward void zhpij_dyn_hpg_zco::backward 4661 4594 #define flinward void zhpij_dyn_hpg_zco::flinward 4662 #define YS1Y Ystate[YTemps][ 0]4663 #define YS1 Ystate[YTemps][ 0]4664 #define YG1 Ygrad[YTemps][ 0]4665 #define YS2Y Ystate[YTemps][ 1]4666 #define YS2 Ystate[YTemps][ 1]4667 #define YG2 Ygrad[YTemps][ 1]4595 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4596 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4597 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4598 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4599 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4600 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4668 4601 #include "zhpij_dyn_hpg_zco.h" 4669 4602 #undef YS1Y … … 4680 4613 #define backward void ua_dyn_hpg_zco::backward 4681 4614 #define flinward void ua_dyn_hpg_zco::flinward 4682 #define YS1Y Ystate[YTemps][ 0]4683 #define YS1 Ystate[YTemps][ 0]4684 #define YG1 Ygrad[YTemps][ 0]4615 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4616 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4617 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4685 4618 #include "ua_dyn_hpg_zco.h" 4686 4619 #undef YS1Y … … 4694 4627 #define backward void zwisd_ua_dynzdf_imp::backward 4695 4628 #define flinward void zwisd_ua_dynzdf_imp::flinward 4696 #define YS1Y Ystate[YTemps][ 0]4697 #define YS1 Ystate[YTemps][ 0]4698 #define YG1 Ygrad[YTemps][ 0]4699 #define YS2Y Ystate[YTemps][ 1]4700 #define YS2 Ystate[YTemps][ 1]4701 #define YG2 Ygrad[YTemps][ 1]4702 #define YS3Y Ystate[YTemps][ 2]4703 #define YS3 Ystate[YTemps][ 2]4704 #define YG3 Ygrad[YTemps][ 2]4629 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4630 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4631 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4632 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4633 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4634 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4635 #define YS3Y Ystate[YTemps][Yi][Yj][Yk][2] 4636 #define YS3 Ystate[YTemps][Yi][Yj][Yk][2] 4637 #define YG3 Ygrad[YTemps][Yi][Yj][Yk][2] 4705 4638 #include "zwisd_ua_dynzdf_imp.h" 4706 4639 #undef YS1Y … … 4720 4653 #define backward void zwisd_va_dynzdf_imp::backward 4721 4654 #define flinward void zwisd_va_dynzdf_imp::flinward 4722 #define YS1Y Ystate[YTemps][ 0]4723 #define YS1 Ystate[YTemps][ 0]4724 #define YG1 Ygrad[YTemps][ 0]4725 #define YS2Y Ystate[YTemps][ 1]4726 #define YS2 Ystate[YTemps][ 1]4727 #define YG2 Ygrad[YTemps][ 1]4728 #define YS3Y Ystate[YTemps][ 2]4729 #define YS3 Ystate[YTemps][ 2]4730 #define YG3 Ygrad[YTemps][ 2]4655 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4656 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4657 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4658 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4659 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4660 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4661 #define YS3Y Ystate[YTemps][Yi][Yj][Yk][2] 4662 #define YS3 Ystate[YTemps][Yi][Yj][Yk][2] 4663 #define YG3 Ygrad[YTemps][Yi][Yj][Yk][2] 4731 4664 #include "zwisd_va_dynzdf_imp.h" 4732 4665 #undef YS1Y … … 4746 4679 #define backward void zrhs_ua_dynzdf_imp::backward 4747 4680 #define flinward void zrhs_ua_dynzdf_imp::flinward 4748 #define YS1Y Ystate[YTemps][ 0]4749 #define YS1 Ystate[YTemps][ 0]4750 #define YG1 Ygrad[YTemps][ 0]4681 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4682 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4683 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4751 4684 #include "zrhs_ua_dynzdf_imp.h" 4752 4685 #undef YS1Y … … 4760 4693 #define backward void zrhs_va_dynzdf_imp::backward 4761 4694 #define flinward void zrhs_va_dynzdf_imp::flinward 4762 #define YS1Y Ystate[YTemps][ 0]4763 #define YS1 Ystate[YTemps][ 0]4764 #define YG1 Ygrad[YTemps][ 0]4695 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4696 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4697 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4765 4698 #include "zrhs_va_dynzdf_imp.h" 4766 4699 #undef YS1Y … … 4774 4707 #define backward void ua_dynzdf_imp::backward 4775 4708 #define flinward void ua_dynzdf_imp::flinward 4776 #define YS1Y Ystate[YTemps][ 0]4777 #define YS1 Ystate[YTemps][ 0]4778 #define YG1 Ygrad[YTemps][ 0]4709 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4710 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4711 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4779 4712 #include "ua_dynzdf_imp.h" 4780 4713 #undef YS1Y … … 4788 4721 #define backward void ua_norm_dynzdf::backward 4789 4722 #define flinward void ua_norm_dynzdf::flinward 4790 #define YS1Y Ystate[YTemps][ 0]4791 #define YS1 Ystate[YTemps][ 0]4792 #define YG1 Ygrad[YTemps][ 0]4723 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4724 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4725 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4793 4726 #include "ua_norm_dynzdf.h" 4794 4727 #undef YS1Y … … 4802 4735 #define backward void spguv_now_dynspg::backward 4803 4736 #define flinward void spguv_now_dynspg::flinward 4804 #define YS1Y Ystate[YTemps][ 0]4805 #define YS1 Ystate[YTemps][ 0]4806 #define YG1 Ygrad[YTemps][ 0]4807 #define YS2Y Ystate[YTemps][ 1]4808 #define YS2 Ystate[YTemps][ 1]4809 #define YG2 Ygrad[YTemps][ 1]4737 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4738 #define YS1 Ystate[YTemps][Yi][Yj][0] 4739 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4740 #define YS2Y Ystate[YTemps][Yi][Yj][1] 4741 #define YS2 Ystate[YTemps][Yi][Yj][1] 4742 #define YG2 Ygrad[YTemps][Yi][Yj][1] 4810 4743 #include "spguv_now_dynspg.h" 4811 4744 #undef YS1Y … … 4822 4755 #define backward void ua_1_dynspg_flt::backward 4823 4756 #define flinward void ua_1_dynspg_flt::flinward 4824 #define YS1Y Ystate[YTemps][ 0]4825 #define YS1 Ystate[YTemps][ 0]4826 #define YG1 Ygrad[YTemps][ 0]4757 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4758 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4759 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4827 4760 #include "ua_1_dynspg_flt.h" 4828 4761 #undef YS1Y … … 4836 4769 #define backward void va_1_dynspg_flt::backward 4837 4770 #define flinward void va_1_dynspg_flt::flinward 4838 #define YS1Y Ystate[YTemps][ 0]4839 #define YS1 Ystate[YTemps][ 0]4840 #define YG1 Ygrad[YTemps][ 0]4771 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4772 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4773 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4841 4774 #include "va_1_dynspg_flt.h" 4842 4775 #undef YS1Y … … 4850 4783 #define backward void sum_spgu_dynspg_flt::backward 4851 4784 #define flinward void sum_spgu_dynspg_flt::flinward 4852 #define YS1Y Ystate[YTemps][ 0]4853 #define YS1 Ystate[YTemps][ 0]4854 #define YG1 Ygrad[YTemps][ 0]4785 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4786 #define YS1 Ystate[YTemps][Yi][Yj][0] 4787 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4855 4788 #include "sum_spgu_dynspg_flt.h" 4856 4789 #undef YS1Y … … 4864 4797 #define backward void sum_spgv_dynspg_flt::backward 4865 4798 #define flinward void sum_spgv_dynspg_flt::flinward 4866 #define YS1Y Ystate[YTemps][ 0]4867 #define YS1 Ystate[YTemps][ 0]4868 #define YG1 Ygrad[YTemps][ 0]4799 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4800 #define YS1 Ystate[YTemps][Yi][Yj][0] 4801 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4869 4802 #include "sum_spgv_dynspg_flt.h" 4870 4803 #undef YS1Y … … 4878 4811 #define backward void gcb_dynspg_flt::backward 4879 4812 #define flinward void gcb_dynspg_flt::flinward 4880 #define YS1Y Ystate[YTemps][ 0]4881 #define YS1 Ystate[YTemps][ 0]4882 #define YG1 Ygrad[YTemps][ 0]4813 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4814 #define YS1 Ystate[YTemps][Yi][Yj][0] 4815 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4883 4816 #include "gcb_dynspg_flt.h" 4884 4817 #undef YS1Y … … 4892 4825 #define backward void gcx_dynspg_flt::backward 4893 4826 #define flinward void gcx_dynspg_flt::flinward 4894 #define YS1Y Ystate[YTemps][ 0]4895 #define YS1 Ystate[YTemps][ 0]4896 #define YG1 Ygrad[YTemps][ 0]4827 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4828 #define YS1 Ystate[YTemps][Yi][Yj][0] 4829 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4897 4830 #include "gcx_dynspg_flt.h" 4898 4831 #undef YS1Y … … 4903 4836 #undef flinward 4904 4837 4905 #define forward void solsor_dynspg_flt::forward 4906 #define backward void solsor_dynspg_flt::backward 4907 #define flinward void solsor_dynspg_flt::flinward 4908 #define YS1Y Ystate[YTemps][0] 4909 #define YS1 Ystate[YTemps][0] 4910 #define YG1 Ygrad[YTemps][0] 4911 #include "solsor_dynspg_flt.h" 4912 #undef YS1Y 4913 #undef YS1 4914 #undef YG1 4838 #define forward void solsor_gx1_x_r::forward 4839 #define backward void solsor_gx1_x_r::backward 4840 #define flinward void solsor_gx1_x_r::flinward 4841 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4842 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4843 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4844 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4845 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4846 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4847 #include "solsor_gx1_x_r.h" 4848 #undef YS1Y 4849 #undef YS1 4850 #undef YG1 4851 #undef YS2Y 4852 #undef YS2 4853 #undef YG2 4854 #undef forward 4855 #undef backward 4856 #undef flinward 4857 4858 #define forward void solsor_gx2_x_r::forward 4859 #define backward void solsor_gx2_x_r::backward 4860 #define flinward void solsor_gx2_x_r::flinward 4861 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4862 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4863 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4864 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4865 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4866 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4867 #include "solsor_gx2_x_r.h" 4868 #undef YS1Y 4869 #undef YS1 4870 #undef YG1 4871 #undef YS2Y 4872 #undef YS2 4873 #undef YG2 4874 #undef forward 4875 #undef backward 4876 #undef flinward 4877 4878 #define forward void solsor_flag::forward 4879 #define backward void solsor_flag::backward 4880 #define flinward void solsor_flag::flinward 4881 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4882 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4883 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4884 #define YS2Y Ystate[YTemps][Yi][Yj][Yk][1] 4885 #define YS2 Ystate[YTemps][Yi][Yj][Yk][1] 4886 #define YG2 Ygrad[YTemps][Yi][Yj][Yk][1] 4887 #include "solsor_flag.h" 4888 #undef YS1Y 4889 #undef YS1 4890 #undef YG1 4891 #undef YS2Y 4892 #undef YS2 4893 #undef YG2 4915 4894 #undef forward 4916 4895 #undef backward … … 4920 4899 #define backward void gcx2::backward 4921 4900 #define flinward void gcx2::flinward 4922 #define YS1Y Ystate[YTemps][ 0]4923 #define YS1 Ystate[YTemps][ 0]4924 #define YG1 Ygrad[YTemps][ 0]4901 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4902 #define YS1 Ystate[YTemps][Yi][Yj][0] 4903 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4925 4904 #include "gcx2.h" 4926 4905 #undef YS1Y … … 4934 4913 #define backward void spguv_dynspg_flt::backward 4935 4914 #define flinward void spguv_dynspg_flt::flinward 4936 #define YS1Y Ystate[YTemps][ 0]4937 #define YS1 Ystate[YTemps][ 0]4938 #define YG1 Ygrad[YTemps][ 0]4939 #define YS2Y Ystate[YTemps][ 1]4940 #define YS2 Ystate[YTemps][ 1]4941 #define YG2 Ygrad[YTemps][ 1]4915 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4916 #define YS1 Ystate[YTemps][Yi][Yj][0] 4917 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4918 #define YS2Y Ystate[YTemps][Yi][Yj][1] 4919 #define YS2 Ystate[YTemps][Yi][Yj][1] 4920 #define YG2 Ygrad[YTemps][Yi][Yj][1] 4942 4921 #include "spguv_dynspg_flt.h" 4943 4922 #undef YS1Y … … 4954 4933 #define backward void ua::backward 4955 4934 #define flinward void ua::flinward 4956 #define YS1Y Ystate[YTemps][ 0]4957 #define YS1 Ystate[YTemps][ 0]4958 #define YG1 Ygrad[YTemps][ 0]4935 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4936 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4937 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4959 4938 #include "ua.h" 4960 4939 #undef YS1Y … … 4968 4947 #define backward void va::backward 4969 4948 #define flinward void va::flinward 4970 #define YS1Y Ystate[YTemps][ 0]4971 #define YS1 Ystate[YTemps][ 0]4972 #define YG1 Ygrad[YTemps][ 0]4949 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4950 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4951 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 4973 4952 #include "va.h" 4974 4953 #undef YS1Y … … 4982 4961 #define backward void sshn::backward 4983 4962 #define flinward void sshn::flinward 4984 #define YS1Y Ystate[YTemps][ 0]4985 #define YS1 Ystate[YTemps][ 0]4986 #define YG1 Ygrad[YTemps][ 0]4963 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4964 #define YS1 Ystate[YTemps][Yi][Yj][0] 4965 #define YG1 Ygrad[YTemps][Yi][Yj][0] 4987 4966 #include "sshn.h" 4988 4967 #undef YS1Y … … 4996 4975 #define backward void sshb::backward 4997 4976 #define flinward void sshb::flinward 4998 #define YS1Y Ystate[YTemps][ 0]4999 #define YS1 Ystate[YTemps][ 0]5000 #define YG1 Ygrad[YTemps][ 0]4977 #define YS1Y Ystate[YTemps][Yi][Yj][0] 4978 #define YS1 Ystate[YTemps][Yi][Yj][0] 4979 #define YG1 Ygrad[YTemps][Yi][Yj][0] 5001 4980 #include "sshb.h" 5002 4981 #undef YS1Y … … 5010 4989 #define backward void ub::backward 5011 4990 #define flinward void ub::flinward 5012 #define YS1Y Ystate[YTemps][ 0]5013 #define YS1 Ystate[YTemps][ 0]5014 #define YG1 Ygrad[YTemps][ 0]4991 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 4992 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 4993 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 5015 4994 #include "ub.h" 5016 4995 #undef YS1Y … … 5024 5003 #define backward void vb::backward 5025 5004 #define flinward void vb::flinward 5026 #define YS1Y Ystate[YTemps][ 0]5027 #define YS1 Ystate[YTemps][ 0]5028 #define YG1 Ygrad[YTemps][ 0]5005 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 5006 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 5007 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 5029 5008 #include "vb.h" 5030 5009 #undef YS1Y … … 5038 5017 #define backward void hdivn::backward 5039 5018 #define flinward void hdivn::flinward 5040 #define YS1Y Ystate[YTemps][ 0]5041 #define YS1 Ystate[YTemps][ 0]5042 #define YG1 Ygrad[YTemps][ 0]5019 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 5020 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 5021 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 5043 5022 #include "hdivn.h" 5044 5023 #undef YS1Y … … 5052 5031 #define backward void rotn::backward 5053 5032 #define flinward void rotn::flinward 5054 #define YS1Y Ystate[YTemps][ 0]5055 #define YS1 Ystate[YTemps][ 0]5056 #define YG1 Ygrad[YTemps][ 0]5033 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 5034 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 5035 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 5057 5036 #include "rotn.h" 5058 5037 #undef YS1Y … … 5066 5045 #define backward void wa::backward 5067 5046 #define flinward void wa::flinward 5068 #define YS1Y Ystate[YTemps][ 0]5069 #define YS1 Ystate[YTemps][ 0]5070 #define YG1 Ygrad[YTemps][ 0]5047 #define YS1Y Ystate[YTemps][Yi][Yj][Yk][0] 5048 #define YS1 Ystate[YTemps][Yi][Yj][Yk][0] 5049 #define YG1 Ygrad[YTemps][Yi][Yj][Yk][0] 5071 5050 #include "wa.h" 5072 5051 #undef YS1Y
Note: See TracChangeset
for help on using the changeset viewer.