![(please configure the [header_logo] section in trac.ini)](/nemoyao/chrome/site/your_project_logo.png){kind=logo}
Changeset 45
- Timestamp:
- 05/05/11 11:20:26 (13 years ago)
- Location:
- trunk
- Files:
-
- 12 edited
-
scripts/sinobad.i (modified) (1 diff)
-
src/Yworkdir/Y1sinobad.h (modified) (234 diffs)
-
src/Yworkdir/Y2sinobad.h (modified) (332 diffs)
-
src/Yworkdir/Yaoext_sinobad (modified) (1 diff)
-
src/Yworkdir/Ysinobad.cpp (modified) (1 diff)
-
src/gcx2.h (modified) (3 diffs)
-
src/sinobad (modified) (previous)
-
src/sinobad.d (modified) (7 diffs)
-
src/solsor_dynspg_flt.h (modified) (1 diff)
-
src/solsor_flag.h (modified) (1 diff)
-
src/solsor_gx1_x_r.h (modified) (2 diffs)
-
src/solsor_gx2_x_r.h (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/scripts/sinobad.i
r44 r45 20 20 set_modeltime 0 21 21 FORWARD 22 xwriteout 50 obs_48 ../data_out/exp_T.nc 22 23 23 24 goto FINRUN -
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 -
trunk/src/Yworkdir/Y2sinobad.h
r44 r45 4 4 //---------------------------------------------------- 5 5 6 // € € € € € € € €LES FONCTIONS PREDEFINIES6 // ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ LES FONCTIONS PREDEFINIES 7 7 /*M2_TBTOG */ 8 8 void YtabTOgrad_sshn_c(YREAL tab[]) … … 18 18 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 19 19 for (int Yws=0; Yws<YNBS_sshn_c; ++Yws){ 20 Ysshn_c (Yw1, Yw2)->Ygrad[Yws] = 0.0;}}}20 Ysshn_c->Ygrad[Yw1][Yw2][Yws] = 0.0;}}} 21 21 }/*M2_SETA*/ 22 22 void Ysetstate_sshn_c(double val) … … 25 25 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 26 26 for (int Yws=0; Yws<YNBS_sshn_c; ++Yws){ 27 Ysshn_c (Yw1, Yw2)->Ystate[Yws] = val;}}}27 Ysshn_c->Ystate[Yw1][Yw2][Yws] = val;}}} 28 28 }/*M2_YIOTU*/ 29 29 void Yio_sshn_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 30 30 { Yiorwf ("sshn_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sshn_c(Yws, Yw1, Yw2), val); 31 }/*M2_CREY*/ 32 void Ycreate_sshn_c() 33 { 34 for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 35 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 36 if ((Ysshn_c(Yw1, Yw2)= new Yaosshn_c ())==NULL) Ycreate_errnew();}} 31 }/*M0_CREY*/ 32 void Ycreate_sshn_c() 33 { 34 if ((Ysshn_c = new Yaosshn_c ())==NULL) 35 Ycreate_errnew(); 37 36 }/*M3_ADJUS*/ 38 37 void Yadjust_ta_c() … … 59 58 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 60 59 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 61 Y3x[Y3windice] = Yta_c (Yw1, Yw2, Yw3)->Ystate[Yws]; ++Y3windice;}}}}60 Y3x[Y3windice] = Yta_c->Ystate[Yw1][Yw2][Yw3][Yws]; ++Y3windice;}}}} 62 61 }/*M3_GSTA*/ 63 62 void Y3getstate_ta_c(float x[]) … … 67 66 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 68 67 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 69 Yta_c (Yw1, Yw2, Yw3)->Ystate[Yws] = x[Y3windice]; ++Y3windice;}}}}68 Yta_c->Ystate[Yw1][Yw2][Yw3][Yws] = x[Y3windice]; ++Y3windice;}}}} 70 69 }/*M3_VGRAD*/ 71 70 void Y3valgrad_ta_c(float g[]) … … 75 74 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 76 75 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 77 g[Y3windice] = Yta_c (Yw1, Yw2, Yw3)->Ygrad[Yws]; ++Y3windice;}}}}76 g[Y3windice] = Yta_c->Ygrad[Yw1][Yw2][Yw3][Yws]; ++Y3windice;}}}} 78 77 }/*M3_TBTOG */ 79 78 void YtabTOgrad_ta_c(YREAL tab[]) … … 91 90 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 92 91 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 93 Yta_c (Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}}92 Yta_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 94 93 }/*M3_SETA*/ 95 94 void Ysetstate_ta_c(double val) … … 99 98 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 100 99 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 101 Yta_c (Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}}100 Yta_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 102 101 }/*M3_YIOTU*/ 103 102 void Yio_ta_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 126 125 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 127 126 for (int Yws=0; Yws<YNBS_ta_c; ++Yws){ 128 Yta_c(Yw1, Yw2, Yw3)->Yepsi[Yws] = val;}}}} 129 }/*M3_CREY*/ 130 void Ycreate_ta_c() 131 { 132 for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 133 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 134 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 135 if ((Yta_c(Yw1, Yw2, Yw3) = new Yaota_c ())==NULL) Ycreate_errnew();}}} 127 Yta_c->Yepsi[Yw1][Yw2][Yw3][Yws] = val;}}}} 128 }/*M0_CREY*/ 129 void Ycreate_ta_c() 130 { 131 if ((Yta_c = new Yaota_c ())==NULL) 132 Ycreate_errnew(); 136 133 }/*M3_SWISH*/ 137 134 void Ysetwish_ta_c(double val) … … 157 154 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 158 155 for (int Yws=0; Yws<YNBS_sa_c; ++Yws){ 159 Ysa_c (Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}}156 Ysa_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 160 157 }/*M3_SETA*/ 161 158 void Ysetstate_sa_c(double val) … … 165 162 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 166 163 for (int Yws=0; Yws<YNBS_sa_c; ++Yws){ 167 Ysa_c (Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}}164 Ysa_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 168 165 }/*M3_YIOTU*/ 169 166 void Yio_sa_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 170 167 { Yiorwf ("sa_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_c(Yws, Yw1, Yw2, Yw3), val); 171 }/*M3_CREY*/ 172 void Ycreate_sa_c() 173 { 174 for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 175 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 176 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 177 if ((Ysa_c(Yw1, Yw2, Yw3) = new Yaosa_c ())==NULL) Ycreate_errnew();}}} 168 }/*M0_CREY*/ 169 void Ycreate_sa_c() 170 { 171 if ((Ysa_c = new Yaosa_c ())==NULL) 172 Ycreate_errnew(); 178 173 }/*M3_TBTOG */ 179 174 void YtabTOgrad_ua_c(YREAL tab[]) … … 191 186 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 192 187 for (int Yws=0; Yws<YNBS_ua_c; ++Yws){ 193 Yua_c (Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}}188 Yua_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 194 189 }/*M3_SETA*/ 195 190 void Ysetstate_ua_c(double val) … … 199 194 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 200 195 for (int Yws=0; Yws<YNBS_ua_c; ++Yws){ 201 Yua_c (Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}}196 Yua_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 202 197 }/*M3_YIOTU*/ 203 198 void Yio_ua_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 204 199 { Yiorwf ("ua_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_c(Yws, Yw1, Yw2, Yw3), val); 205 }/*M3_CREY*/ 206 void Ycreate_ua_c() 207 { 208 for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 209 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 210 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 211 if ((Yua_c(Yw1, Yw2, Yw3) = new Yaoua_c ())==NULL) Ycreate_errnew();}}} 200 }/*M0_CREY*/ 201 void Ycreate_ua_c() 202 { 203 if ((Yua_c = new Yaoua_c ())==NULL) 204 Ycreate_errnew(); 212 205 }/*M3_TBTOG */ 213 206 void YtabTOgrad_va_c(YREAL tab[]) … … 225 218 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 226 219 for (int Yws=0; Yws<YNBS_va_c; ++Yws){ 227 Yva_c (Yw1, Yw2, Yw3)->Ygrad[Yws] = 0.0;}}}}220 Yva_c->Ygrad[Yw1][Yw2][Yw3][Yws] = 0.0;}}}} 228 221 }/*M3_SETA*/ 229 222 void Ysetstate_va_c(double val) … … 233 226 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 234 227 for (int Yws=0; Yws<YNBS_va_c; ++Yws){ 235 Yva_c (Yw1, Yw2, Yw3)->Ystate[Yws] = val;}}}}228 Yva_c->Ystate[Yw1][Yw2][Yw3][Yws] = val;}}}} 236 229 }/*M3_YIOTU*/ 237 230 void Yio_va_c(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 238 231 { Yiorwf ("va_c", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_c(Yws, Yw1, Yw2, Yw3), val); 239 }/*M3_CREY*/ 240 void Ycreate_va_c() 241 { 242 for (int Yw1=0; Yw1<YA1_S3d; ++Yw1){ 243 for (int Yw2=0; Yw2<YA2_S3d; ++Yw2){ 244 for (int Yw3=0; Yw3<YA3_S3d; ++Yw3){ 245 if ((Yva_c(Yw1, Yw2, Yw3) = new Yaova_c ())==NULL) Ycreate_errnew();}}} 232 }/*M0_CREY*/ 233 void Ycreate_va_c() 234 { 235 if ((Yva_c = new Yaova_c ())==NULL) 236 Ycreate_errnew(); 246 237 }/*M2_TBTOGT */ 247 238 void YtabTOgrad_sbcgyre_qsr_qns(int frompdt, int topdt, YREAL tab[]) … … 259 250 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 260 251 for (int Yws=0; Yws<YNBS_sbcgyre_qsr_qns; ++Yws){ 261 Ysbcgyre_qsr_qns (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}252 Ysbcgyre_qsr_qns->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 262 253 }/*M2_SETAT*/ 263 254 void Ysetstate_sbcgyre_qsr_qns(double val) … … 267 258 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 268 259 for (int Yws=0; Yws<YNBS_sbcgyre_qsr_qns; ++Yws){ 269 Ysbcgyre_qsr_qns (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}260 Ysbcgyre_qsr_qns->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 270 261 }/*M2_YIOUT*/ 271 262 void Yio_sbcgyre_qsr_qns(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 272 263 { Yiorwf ("sbcgyre_qsr_qns", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_qsr_qns(Yws, Yw1, Yw2, Ywt), val); 273 }/*M 2_CREU*/264 }/*M0_CREU*/ 274 265 void Ycreate_sbcgyre_qsr_qns() 275 266 { 276 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 277 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 278 if ((Ysbcgyre_qsr_qns(Yw1, Yw2)= new sbcgyre_qsr_qns ())==NULL) Ycreate_errnew();}} 267 if ((Ysbcgyre_qsr_qns = new sbcgyre_qsr_qns ())==NULL) 268 Ycreate_errnew(); 279 269 }/*M2_TBTOGT */ 280 270 void YtabTOgrad_sbcgyre_emp1(int frompdt, int topdt, YREAL tab[]) … … 292 282 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 293 283 for (int Yws=0; Yws<YNBS_sbcgyre_emp1; ++Yws){ 294 Ysbcgyre_emp1 (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}284 Ysbcgyre_emp1->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 295 285 }/*M2_SETAT*/ 296 286 void Ysetstate_sbcgyre_emp1(double val) … … 300 290 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 301 291 for (int Yws=0; Yws<YNBS_sbcgyre_emp1; ++Yws){ 302 Ysbcgyre_emp1 (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}292 Ysbcgyre_emp1->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 303 293 }/*M2_YIOUT*/ 304 294 void Yio_sbcgyre_emp1(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 305 295 { Yiorwf ("sbcgyre_emp1", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emp1(Yws, Yw1, Yw2, Ywt), val); 306 }/*M 2_CREU*/296 }/*M0_CREU*/ 307 297 void Ycreate_sbcgyre_emp1() 308 298 { 309 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 310 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 311 if ((Ysbcgyre_emp1(Yw1, Yw2)= new sbcgyre_emp1 ())==NULL) Ycreate_errnew();}} 299 if ((Ysbcgyre_emp1 = new sbcgyre_emp1 ())==NULL) 300 Ycreate_errnew(); 312 301 }/*M2_TBTOGT */ 313 302 void YtabTOgrad_sbcgyre_zsumemp_zsurf(int frompdt, int topdt, YREAL tab[]) … … 325 314 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 326 315 for (int Yws=0; Yws<YNBS_sbcgyre_zsumemp_zsurf; ++Yws){ 327 Ysbcgyre_zsumemp_zsurf (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}316 Ysbcgyre_zsumemp_zsurf->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 328 317 }/*M2_SETAT*/ 329 318 void Ysetstate_sbcgyre_zsumemp_zsurf(double val) … … 333 322 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 334 323 for (int Yws=0; Yws<YNBS_sbcgyre_zsumemp_zsurf; ++Yws){ 335 Ysbcgyre_zsumemp_zsurf (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}324 Ysbcgyre_zsumemp_zsurf->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 336 325 }/*M2_YIOUT*/ 337 326 void Yio_sbcgyre_zsumemp_zsurf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 338 327 { Yiorwf ("sbcgyre_zsumemp_zsurf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_zsumemp_zsurf(Yws, Yw1, Yw2, Ywt), val); 339 }/*M 2_CREU*/328 }/*M0_CREU*/ 340 329 void Ycreate_sbcgyre_zsumemp_zsurf() 341 330 { 342 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 343 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 344 if ((Ysbcgyre_zsumemp_zsurf(Yw1, Yw2)= new sbcgyre_zsumemp_zsurf ())==NULL) Ycreate_errnew();}} 331 if ((Ysbcgyre_zsumemp_zsurf = new sbcgyre_zsumemp_zsurf ())==NULL) 332 Ycreate_errnew(); 345 333 }/*M2_TBTOGT */ 346 334 void YtabTOgrad_sbcgyre_emp(int frompdt, int topdt, YREAL tab[]) … … 358 346 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 359 347 for (int Yws=0; Yws<YNBS_sbcgyre_emp; ++Yws){ 360 Ysbcgyre_emp (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}348 Ysbcgyre_emp->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 361 349 }/*M2_SETAT*/ 362 350 void Ysetstate_sbcgyre_emp(double val) … … 366 354 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 367 355 for (int Yws=0; Yws<YNBS_sbcgyre_emp; ++Yws){ 368 Ysbcgyre_emp (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}356 Ysbcgyre_emp->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 369 357 }/*M2_YIOUT*/ 370 358 void Yio_sbcgyre_emp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 371 359 { Yiorwf ("sbcgyre_emp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emp(Yws, Yw1, Yw2, Ywt), val); 372 }/*M 2_CREU*/360 }/*M0_CREU*/ 373 361 void Ycreate_sbcgyre_emp() 374 362 { 375 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 376 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 377 if ((Ysbcgyre_emp(Yw1, Yw2)= new sbcgyre_emp ())==NULL) Ycreate_errnew();}} 363 if ((Ysbcgyre_emp = new sbcgyre_emp ())==NULL) 364 Ycreate_errnew(); 378 365 }/*M2_TBTOGT */ 379 366 void YtabTOgrad_sbcgyre_emps(int frompdt, int topdt, YREAL tab[]) … … 391 378 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 392 379 for (int Yws=0; Yws<YNBS_sbcgyre_emps; ++Yws){ 393 Ysbcgyre_emps (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}380 Ysbcgyre_emps->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 394 381 }/*M2_SETAT*/ 395 382 void Ysetstate_sbcgyre_emps(double val) … … 399 386 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 400 387 for (int Yws=0; Yws<YNBS_sbcgyre_emps; ++Yws){ 401 Ysbcgyre_emps (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}388 Ysbcgyre_emps->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 402 389 }/*M2_YIOUT*/ 403 390 void Yio_sbcgyre_emps(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 404 391 { Yiorwf ("sbcgyre_emps", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_emps(Yws, Yw1, Yw2, Ywt), val); 405 }/*M 2_CREU*/392 }/*M0_CREU*/ 406 393 void Ycreate_sbcgyre_emps() 407 394 { 408 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 409 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 410 if ((Ysbcgyre_emps(Yw1, Yw2)= new sbcgyre_emps ())==NULL) Ycreate_errnew();}} 395 if ((Ysbcgyre_emps = new sbcgyre_emps ())==NULL) 396 Ycreate_errnew(); 411 397 }/*M2_TBTOGT */ 412 398 void YtabTOgrad_sbcgyre_utau_vtau(int frompdt, int topdt, YREAL tab[]) … … 424 410 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 425 411 for (int Yws=0; Yws<YNBS_sbcgyre_utau_vtau; ++Yws){ 426 Ysbcgyre_utau_vtau (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}412 Ysbcgyre_utau_vtau->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 427 413 }/*M2_SETAT*/ 428 414 void Ysetstate_sbcgyre_utau_vtau(double val) … … 432 418 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 433 419 for (int Yws=0; Yws<YNBS_sbcgyre_utau_vtau; ++Yws){ 434 Ysbcgyre_utau_vtau (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}420 Ysbcgyre_utau_vtau->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 435 421 }/*M2_YIOUT*/ 436 422 void Yio_sbcgyre_utau_vtau(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 437 423 { Yiorwf ("sbcgyre_utau_vtau", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_utau_vtau(Yws, Yw1, Yw2, Ywt), val); 438 }/*M 2_CREU*/424 }/*M0_CREU*/ 439 425 void Ycreate_sbcgyre_utau_vtau() 440 426 { 441 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 442 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 443 if ((Ysbcgyre_utau_vtau(Yw1, Yw2)= new sbcgyre_utau_vtau ())==NULL) Ycreate_errnew();}} 427 if ((Ysbcgyre_utau_vtau = new sbcgyre_utau_vtau ())==NULL) 428 Ycreate_errnew(); 444 429 }/*M2_TBTOGT */ 445 430 void YtabTOgrad_sbcgyre_wndm(int frompdt, int topdt, YREAL tab[]) … … 457 442 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 458 443 for (int Yws=0; Yws<YNBS_sbcgyre_wndm; ++Yws){ 459 Ysbcgyre_wndm (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}444 Ysbcgyre_wndm->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 460 445 }/*M2_SETAT*/ 461 446 void Ysetstate_sbcgyre_wndm(double val) … … 465 450 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 466 451 for (int Yws=0; Yws<YNBS_sbcgyre_wndm; ++Yws){ 467 Ysbcgyre_wndm (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}452 Ysbcgyre_wndm->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 468 453 }/*M2_YIOUT*/ 469 454 void Yio_sbcgyre_wndm(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 470 455 { Yiorwf ("sbcgyre_wndm", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sbcgyre_wndm(Yws, Yw1, Yw2, Ywt), val); 471 }/*M 2_CREU*/456 }/*M0_CREU*/ 472 457 void Ycreate_sbcgyre_wndm() 473 458 { 474 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 475 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 476 if ((Ysbcgyre_wndm(Yw1, Yw2)= new sbcgyre_wndm ())==NULL) Ycreate_errnew();}} 459 if ((Ysbcgyre_wndm = new sbcgyre_wndm ())==NULL) 460 Ycreate_errnew(); 477 461 }/*M3_TBTOGT */ 478 462 void YtabTOgrad_bn2_rn2(int frompdt, int topdt, YREAL tab[]) … … 492 476 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 493 477 for (int Yws=0; Yws<YNBS_bn2_rn2; ++Yws){ 494 Ybn2_rn2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}478 Ybn2_rn2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 495 479 }/*M3_SETAT*/ 496 480 void Ysetstate_bn2_rn2(double val) … … 501 485 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 502 486 for (int Yws=0; Yws<YNBS_bn2_rn2; ++Yws){ 503 Ybn2_rn2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}487 Ybn2_rn2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 504 488 }/*M3_YIOUT*/ 505 489 void Yio_bn2_rn2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 506 490 { Yiorwf ("bn2_rn2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_bn2_rn2(Yws, Yw1, Yw2, Yw3, Ywt), val); 507 }/*M 3_CREU*/491 }/*M0_CREU*/ 508 492 void Ycreate_bn2_rn2() 509 493 { 510 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 511 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 512 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 513 if ((Ybn2_rn2(Yw1, Yw2, Yw3) = new bn2_rn2 ())==NULL) Ycreate_errnew();}}} 494 if ((Ybn2_rn2 = new bn2_rn2 ())==NULL) 495 Ycreate_errnew(); 514 496 }/*M3_TBTOGT */ 515 497 void YtabTOgrad_zdf_avt_avmu_avmv(int frompdt, int topdt, YREAL tab[]) … … 529 511 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 530 512 for (int Yws=0; Yws<YNBS_zdf_avt_avmu_avmv; ++Yws){ 531 Yzdf_avt_avmu_avmv (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}513 Yzdf_avt_avmu_avmv->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 532 514 }/*M3_SETAT*/ 533 515 void Ysetstate_zdf_avt_avmu_avmv(double val) … … 538 520 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 539 521 for (int Yws=0; Yws<YNBS_zdf_avt_avmu_avmv; ++Yws){ 540 Yzdf_avt_avmu_avmv (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}522 Yzdf_avt_avmu_avmv->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 541 523 }/*M3_YIOUT*/ 542 524 void Yio_zdf_avt_avmu_avmv(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 543 525 { Yiorwf ("zdf_avt_avmu_avmv", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdf_avt_avmu_avmv(Yws, Yw1, Yw2, Yw3, Ywt), val); 544 }/*M 3_CREU*/526 }/*M0_CREU*/ 545 527 void Ycreate_zdf_avt_avmu_avmv() 546 528 { 547 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 548 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 549 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 550 if ((Yzdf_avt_avmu_avmv(Yw1, Yw2, Yw3) = new zdf_avt_avmu_avmv ())==NULL) Ycreate_errnew();}}} 529 if ((Yzdf_avt_avmu_avmv = new zdf_avt_avmu_avmv ())==NULL) 530 Ycreate_errnew(); 551 531 }/*M2_TBTOGT */ 552 532 void YtabTOgrad_zdfmxl_hmld(int frompdt, int topdt, YREAL tab[]) … … 564 544 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 565 545 for (int Yws=0; Yws<YNBS_zdfmxl_hmld; ++Yws){ 566 Yzdfmxl_hmld (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}546 Yzdfmxl_hmld->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 567 547 }/*M2_SETAT*/ 568 548 void Ysetstate_zdfmxl_hmld(double val) … … 572 552 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 573 553 for (int Yws=0; Yws<YNBS_zdfmxl_hmld; ++Yws){ 574 Yzdfmxl_hmld (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}554 Yzdfmxl_hmld->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 575 555 }/*M2_YIOUT*/ 576 556 void Yio_zdfmxl_hmld(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 577 557 { Yiorwf ("zdfmxl_hmld", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdfmxl_hmld(Yws, Yw1, Yw2, Ywt), val); 578 }/*M 2_CREU*/558 }/*M0_CREU*/ 579 559 void Ycreate_zdfmxl_hmld() 580 560 { 581 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 582 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 583 if ((Yzdfmxl_hmld(Yw1, Yw2)= new zdfmxl_hmld ())==NULL) Ycreate_errnew();}} 561 if ((Yzdfmxl_hmld = new zdfmxl_hmld ())==NULL) 562 Ycreate_errnew(); 584 563 }/*M2_TBTOGT */ 585 564 void YtabTOgrad_zdfmxl_nmln_hmlp_hmlpt(int frompdt, int topdt, YREAL tab[]) … … 597 576 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 598 577 for (int Yws=0; Yws<YNBS_zdfmxl_nmln_hmlp_hmlpt; ++Yws){ 599 Yzdfmxl_nmln_hmlp_hmlpt (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}578 Yzdfmxl_nmln_hmlp_hmlpt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 600 579 }/*M2_SETAT*/ 601 580 void Ysetstate_zdfmxl_nmln_hmlp_hmlpt(double val) … … 605 584 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 606 585 for (int Yws=0; Yws<YNBS_zdfmxl_nmln_hmlp_hmlpt; ++Yws){ 607 Yzdfmxl_nmln_hmlp_hmlpt (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}586 Yzdfmxl_nmln_hmlp_hmlpt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 608 587 }/*M2_YIOUT*/ 609 588 void Yio_zdfmxl_nmln_hmlp_hmlpt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 610 589 { Yiorwf ("zdfmxl_nmln_hmlp_hmlpt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zdfmxl_nmln_hmlp_hmlpt(Yws, Yw1, Yw2, Ywt), val); 611 }/*M 2_CREU*/590 }/*M0_CREU*/ 612 591 void Ycreate_zdfmxl_nmln_hmlp_hmlpt() 613 592 { 614 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 615 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 616 if ((Yzdfmxl_nmln_hmlp_hmlpt(Yw1, Yw2)= new zdfmxl_nmln_hmlp_hmlpt ())==NULL) Ycreate_errnew();}} 593 if ((Yzdfmxl_nmln_hmlp_hmlpt = new zdfmxl_nmln_hmlp_hmlpt ())==NULL) 594 Ycreate_errnew(); 617 595 }/*M2_TBTOGT */ 618 596 void YtabTOgrad_ta_sa_trasbc(int frompdt, int topdt, YREAL tab[]) … … 630 608 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 631 609 for (int Yws=0; Yws<YNBS_ta_sa_trasbc; ++Yws){ 632 Yta_sa_trasbc (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}610 Yta_sa_trasbc->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 633 611 }/*M2_SETAT*/ 634 612 void Ysetstate_ta_sa_trasbc(double val) … … 638 616 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 639 617 for (int Yws=0; Yws<YNBS_ta_sa_trasbc; ++Yws){ 640 Yta_sa_trasbc (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}618 Yta_sa_trasbc->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 641 619 }/*M2_YIOUT*/ 642 620 void Yio_ta_sa_trasbc(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 643 621 { Yiorwf ("ta_sa_trasbc", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_sa_trasbc(Yws, Yw1, Yw2, Ywt), val); 644 }/*M 2_CREU*/622 }/*M0_CREU*/ 645 623 void Ycreate_ta_sa_trasbc() 646 624 { 647 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 648 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 649 if ((Yta_sa_trasbc(Yw1, Yw2)= new ta_sa_trasbc ())==NULL) Ycreate_errnew();}} 625 if ((Yta_sa_trasbc = new ta_sa_trasbc ())==NULL) 626 Ycreate_errnew(); 650 627 }/*M3_TBTOGT */ 651 628 void YtabTOgrad_ta_traqsr(int frompdt, int topdt, YREAL tab[]) … … 665 642 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 666 643 for (int Yws=0; Yws<YNBS_ta_traqsr; ++Yws){ 667 Yta_traqsr (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}644 Yta_traqsr->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 668 645 }/*M3_SETAT*/ 669 646 void Ysetstate_ta_traqsr(double val) … … 674 651 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 675 652 for (int Yws=0; Yws<YNBS_ta_traqsr; ++Yws){ 676 Yta_traqsr (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}653 Yta_traqsr->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 677 654 }/*M3_YIOUT*/ 678 655 void Yio_ta_traqsr(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 679 656 { Yiorwf ("ta_traqsr", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_traqsr(Yws, Yw1, Yw2, Yw3, Ywt), val); 680 }/*M 3_CREU*/657 }/*M0_CREU*/ 681 658 void Ycreate_ta_traqsr() 682 659 { 683 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 684 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 685 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 686 if ((Yta_traqsr(Yw1, Yw2, Yw3) = new ta_traqsr ())==NULL) Ycreate_errnew();}}} 660 if ((Yta_traqsr = new ta_traqsr ())==NULL) 661 Ycreate_errnew(); 687 662 }/*M3_TBTOGT */ 688 663 void YtabTOgrad_zcent_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 702 677 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 703 678 for (int Yws=0; Yws<YNBS_zcent_hor_traadv_cen2; ++Yws){ 704 Yzcent_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}679 Yzcent_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 705 680 }/*M3_SETAT*/ 706 681 void Ysetstate_zcent_hor_traadv_cen2(double val) … … 711 686 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 712 687 for (int Yws=0; Yws<YNBS_zcent_hor_traadv_cen2; ++Yws){ 713 Yzcent_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}688 Yzcent_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 714 689 }/*M3_YIOUT*/ 715 690 void Yio_zcent_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 716 691 { Yiorwf ("zcent_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcent_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 717 }/*M 3_CREU*/692 }/*M0_CREU*/ 718 693 void Ycreate_zcent_hor_traadv_cen2() 719 694 { 720 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 721 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 722 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 723 if ((Yzcent_hor_traadv_cen2(Yw1, Yw2, Yw3) = new zcent_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 695 if ((Yzcent_hor_traadv_cen2 = new zcent_hor_traadv_cen2 ())==NULL) 696 Ycreate_errnew(); 724 697 }/*M3_TBTOGT */ 725 698 void YtabTOgrad_zcens_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 739 712 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 740 713 for (int Yws=0; Yws<YNBS_zcens_hor_traadv_cen2; ++Yws){ 741 Yzcens_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}714 Yzcens_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 742 715 }/*M3_SETAT*/ 743 716 void Ysetstate_zcens_hor_traadv_cen2(double val) … … 748 721 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 749 722 for (int Yws=0; Yws<YNBS_zcens_hor_traadv_cen2; ++Yws){ 750 Yzcens_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}723 Yzcens_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 751 724 }/*M3_YIOUT*/ 752 725 void Yio_zcens_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 753 726 { Yiorwf ("zcens_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcens_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 754 }/*M 3_CREU*/727 }/*M0_CREU*/ 755 728 void Ycreate_zcens_hor_traadv_cen2() 756 729 { 757 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 758 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 759 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 760 if ((Yzcens_hor_traadv_cen2(Yw1, Yw2, Yw3) = new zcens_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 730 if ((Yzcens_hor_traadv_cen2 = new zcens_hor_traadv_cen2 ())==NULL) 731 Ycreate_errnew(); 761 732 }/*M3_TBTOGT */ 762 733 void YtabTOgrad_ta_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 776 747 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 777 748 for (int Yws=0; Yws<YNBS_ta_hor_traadv_cen2; ++Yws){ 778 Yta_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}749 Yta_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 779 750 }/*M3_SETAT*/ 780 751 void Ysetstate_ta_hor_traadv_cen2(double val) … … 785 756 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 786 757 for (int Yws=0; Yws<YNBS_ta_hor_traadv_cen2; ++Yws){ 787 Yta_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}758 Yta_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 788 759 }/*M3_YIOUT*/ 789 760 void Yio_ta_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 790 761 { Yiorwf ("ta_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 791 }/*M 3_CREU*/762 }/*M0_CREU*/ 792 763 void Ycreate_ta_hor_traadv_cen2() 793 764 { 794 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 795 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 796 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 797 if ((Yta_hor_traadv_cen2(Yw1, Yw2, Yw3) = new ta_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 765 if ((Yta_hor_traadv_cen2 = new ta_hor_traadv_cen2 ())==NULL) 766 Ycreate_errnew(); 798 767 }/*M3_TBTOGT */ 799 768 void YtabTOgrad_sa_hor_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 813 782 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 814 783 for (int Yws=0; Yws<YNBS_sa_hor_traadv_cen2; ++Yws){ 815 Ysa_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}784 Ysa_hor_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 816 785 }/*M3_SETAT*/ 817 786 void Ysetstate_sa_hor_traadv_cen2(double val) … … 822 791 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 823 792 for (int Yws=0; Yws<YNBS_sa_hor_traadv_cen2; ++Yws){ 824 Ysa_hor_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}793 Ysa_hor_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 825 794 }/*M3_YIOUT*/ 826 795 void Yio_sa_hor_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 827 796 { Yiorwf ("sa_hor_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_hor_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 828 }/*M 3_CREU*/797 }/*M0_CREU*/ 829 798 void Ycreate_sa_hor_traadv_cen2() 830 799 { 831 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 832 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 833 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 834 if ((Ysa_hor_traadv_cen2(Yw1, Yw2, Yw3) = new sa_hor_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 800 if ((Ysa_hor_traadv_cen2 = new sa_hor_traadv_cen2 ())==NULL) 801 Ycreate_errnew(); 835 802 }/*M3_TBTOGT */ 836 803 void YtabTOgrad_zcent_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 850 817 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 851 818 for (int Yws=0; Yws<YNBS_zcent_ver_traadv_cen2; ++Yws){ 852 Yzcent_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}819 Yzcent_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 853 820 }/*M3_SETAT*/ 854 821 void Ysetstate_zcent_ver_traadv_cen2(double val) … … 859 826 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 860 827 for (int Yws=0; Yws<YNBS_zcent_ver_traadv_cen2; ++Yws){ 861 Yzcent_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}828 Yzcent_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 862 829 }/*M3_YIOUT*/ 863 830 void Yio_zcent_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 864 831 { Yiorwf ("zcent_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcent_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 865 }/*M 3_CREU*/832 }/*M0_CREU*/ 866 833 void Ycreate_zcent_ver_traadv_cen2() 867 834 { 868 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 869 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 870 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 871 if ((Yzcent_ver_traadv_cen2(Yw1, Yw2, Yw3) = new zcent_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 835 if ((Yzcent_ver_traadv_cen2 = new zcent_ver_traadv_cen2 ())==NULL) 836 Ycreate_errnew(); 872 837 }/*M3_TBTOGT */ 873 838 void YtabTOgrad_zcens_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 887 852 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 888 853 for (int Yws=0; Yws<YNBS_zcens_ver_traadv_cen2; ++Yws){ 889 Yzcens_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}854 Yzcens_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 890 855 }/*M3_SETAT*/ 891 856 void Ysetstate_zcens_ver_traadv_cen2(double val) … … 896 861 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 897 862 for (int Yws=0; Yws<YNBS_zcens_ver_traadv_cen2; ++Yws){ 898 Yzcens_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}863 Yzcens_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 899 864 }/*M3_YIOUT*/ 900 865 void Yio_zcens_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 901 866 { Yiorwf ("zcens_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zcens_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 902 }/*M 3_CREU*/867 }/*M0_CREU*/ 903 868 void Ycreate_zcens_ver_traadv_cen2() 904 869 { 905 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 906 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 907 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 908 if ((Yzcens_ver_traadv_cen2(Yw1, Yw2, Yw3) = new zcens_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 870 if ((Yzcens_ver_traadv_cen2 = new zcens_ver_traadv_cen2 ())==NULL) 871 Ycreate_errnew(); 909 872 }/*M3_TBTOGT */ 910 873 void YtabTOgrad_ta_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 924 887 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 925 888 for (int Yws=0; Yws<YNBS_ta_ver_traadv_cen2; ++Yws){ 926 Yta_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}889 Yta_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 927 890 }/*M3_SETAT*/ 928 891 void Ysetstate_ta_ver_traadv_cen2(double val) … … 933 896 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 934 897 for (int Yws=0; Yws<YNBS_ta_ver_traadv_cen2; ++Yws){ 935 Yta_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}898 Yta_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 936 899 }/*M3_YIOUT*/ 937 900 void Yio_ta_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 938 901 { Yiorwf ("ta_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 939 }/*M 3_CREU*/902 }/*M0_CREU*/ 940 903 void Ycreate_ta_ver_traadv_cen2() 941 904 { 942 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 943 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 944 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 945 if ((Yta_ver_traadv_cen2(Yw1, Yw2, Yw3) = new ta_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 905 if ((Yta_ver_traadv_cen2 = new ta_ver_traadv_cen2 ())==NULL) 906 Ycreate_errnew(); 946 907 }/*M3_TBTOGT */ 947 908 void YtabTOgrad_sa_ver_traadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 961 922 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 962 923 for (int Yws=0; Yws<YNBS_sa_ver_traadv_cen2; ++Yws){ 963 Ysa_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}924 Ysa_ver_traadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 964 925 }/*M3_SETAT*/ 965 926 void Ysetstate_sa_ver_traadv_cen2(double val) … … 970 931 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 971 932 for (int Yws=0; Yws<YNBS_sa_ver_traadv_cen2; ++Yws){ 972 Ysa_ver_traadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}933 Ysa_ver_traadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 973 934 }/*M3_YIOUT*/ 974 935 void Yio_sa_ver_traadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 975 936 { Yiorwf ("sa_ver_traadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_ver_traadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 976 }/*M 3_CREU*/937 }/*M0_CREU*/ 977 938 void Ycreate_sa_ver_traadv_cen2() 978 939 { 979 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 980 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 981 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 982 if ((Ysa_ver_traadv_cen2(Yw1, Yw2, Yw3) = new sa_ver_traadv_cen2 ())==NULL) Ycreate_errnew();}}} 940 if ((Ysa_ver_traadv_cen2 = new sa_ver_traadv_cen2 ())==NULL) 941 Ycreate_errnew(); 983 942 }/*M3_TBTOGT */ 984 943 void YtabTOgrad_ztuv_traldf_lap(int frompdt, int topdt, YREAL tab[]) … … 998 957 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 999 958 for (int Yws=0; Yws<YNBS_ztuv_traldf_lap; ++Yws){ 1000 Yztuv_traldf_lap (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}959 Yztuv_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1001 960 }/*M3_SETAT*/ 1002 961 void Ysetstate_ztuv_traldf_lap(double val) … … 1007 966 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1008 967 for (int Yws=0; Yws<YNBS_ztuv_traldf_lap; ++Yws){ 1009 Yztuv_traldf_lap (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}968 Yztuv_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1010 969 }/*M3_YIOUT*/ 1011 970 void Yio_ztuv_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1012 971 { Yiorwf ("ztuv_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ztuv_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1013 }/*M 3_CREU*/972 }/*M0_CREU*/ 1014 973 void Ycreate_ztuv_traldf_lap() 1015 974 { 1016 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1017 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1018 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1019 if ((Yztuv_traldf_lap(Yw1, Yw2, Yw3) = new ztuv_traldf_lap ())==NULL) Ycreate_errnew();}}} 975 if ((Yztuv_traldf_lap = new ztuv_traldf_lap ())==NULL) 976 Ycreate_errnew(); 1020 977 }/*M3_TBTOGT */ 1021 978 void YtabTOgrad_zsuv_traldf_lap(int frompdt, int topdt, YREAL tab[]) … … 1035 992 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1036 993 for (int Yws=0; Yws<YNBS_zsuv_traldf_lap; ++Yws){ 1037 Yzsuv_traldf_lap (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}994 Yzsuv_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1038 995 }/*M3_SETAT*/ 1039 996 void Ysetstate_zsuv_traldf_lap(double val) … … 1044 1001 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1045 1002 for (int Yws=0; Yws<YNBS_zsuv_traldf_lap; ++Yws){ 1046 Yzsuv_traldf_lap (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1003 Yzsuv_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1047 1004 }/*M3_YIOUT*/ 1048 1005 void Yio_zsuv_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1049 1006 { Yiorwf ("zsuv_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zsuv_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1050 }/*M 3_CREU*/1007 }/*M0_CREU*/ 1051 1008 void Ycreate_zsuv_traldf_lap() 1052 1009 { 1053 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1054 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1055 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1056 if ((Yzsuv_traldf_lap(Yw1, Yw2, Yw3) = new zsuv_traldf_lap ())==NULL) Ycreate_errnew();}}} 1010 if ((Yzsuv_traldf_lap = new zsuv_traldf_lap ())==NULL) 1011 Ycreate_errnew(); 1057 1012 }/*M3_TBTOGT */ 1058 1013 void YtabTOgrad_ta_traldf_lap(int frompdt, int topdt, YREAL tab[]) … … 1072 1027 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1073 1028 for (int Yws=0; Yws<YNBS_ta_traldf_lap; ++Yws){ 1074 Yta_traldf_lap (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1029 Yta_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1075 1030 }/*M3_SETAT*/ 1076 1031 void Ysetstate_ta_traldf_lap(double val) … … 1081 1036 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1082 1037 for (int Yws=0; Yws<YNBS_ta_traldf_lap; ++Yws){ 1083 Yta_traldf_lap (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1038 Yta_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1084 1039 }/*M3_YIOUT*/ 1085 1040 void Yio_ta_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1086 1041 { Yiorwf ("ta_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1087 }/*M 3_CREU*/1042 }/*M0_CREU*/ 1088 1043 void Ycreate_ta_traldf_lap() 1089 1044 { 1090 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1091 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1092 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1093 if ((Yta_traldf_lap(Yw1, Yw2, Yw3) = new ta_traldf_lap ())==NULL) Ycreate_errnew();}}} 1045 if ((Yta_traldf_lap = new ta_traldf_lap ())==NULL) 1046 Ycreate_errnew(); 1094 1047 }/*M3_TBTOGT */ 1095 1048 void YtabTOgrad_sa_traldf_lap(int frompdt, int topdt, YREAL tab[]) … … 1109 1062 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1110 1063 for (int Yws=0; Yws<YNBS_sa_traldf_lap; ++Yws){ 1111 Ysa_traldf_lap (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1064 Ysa_traldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1112 1065 }/*M3_SETAT*/ 1113 1066 void Ysetstate_sa_traldf_lap(double val) … … 1118 1071 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1119 1072 for (int Yws=0; Yws<YNBS_sa_traldf_lap; ++Yws){ 1120 Ysa_traldf_lap (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1073 Ysa_traldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1121 1074 }/*M3_YIOUT*/ 1122 1075 void Yio_sa_traldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1123 1076 { Yiorwf ("sa_traldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_traldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1124 }/*M 3_CREU*/1077 }/*M0_CREU*/ 1125 1078 void Ycreate_sa_traldf_lap() 1126 1079 { 1127 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1128 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1129 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1130 if ((Ysa_traldf_lap(Yw1, Yw2, Yw3) = new sa_traldf_lap ())==NULL) Ycreate_errnew();}}} 1080 if ((Ysa_traldf_lap = new sa_traldf_lap ())==NULL) 1081 Ycreate_errnew(); 1131 1082 }/*M3_TBTOGT */ 1132 1083 void YtabTOgrad_zwisd_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1146 1097 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1147 1098 for (int Yws=0; Yws<YNBS_zwisd_trazdf_imp; ++Yws){ 1148 Yzwisd_trazdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1099 Yzwisd_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1149 1100 }/*M3_SETAT*/ 1150 1101 void Ysetstate_zwisd_trazdf_imp(double val) … … 1155 1106 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1156 1107 for (int Yws=0; Yws<YNBS_zwisd_trazdf_imp; ++Yws){ 1157 Yzwisd_trazdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1108 Yzwisd_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1158 1109 }/*M3_YIOUT*/ 1159 1110 void Yio_zwisd_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1160 1111 { Yiorwf ("zwisd_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1161 }/*M 3_CREU*/1112 }/*M0_CREU*/ 1162 1113 void Ycreate_zwisd_trazdf_imp() 1163 1114 { 1164 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1165 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1166 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1167 if ((Yzwisd_trazdf_imp(Yw1, Yw2, Yw3) = new zwisd_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1115 if ((Yzwisd_trazdf_imp = new zwisd_trazdf_imp ())==NULL) 1116 Ycreate_errnew(); 1168 1117 }/*M3_TBTOGT */ 1169 1118 void YtabTOgrad_zrhs_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1183 1132 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1184 1133 for (int Yws=0; Yws<YNBS_zrhs_trazdf_imp; ++Yws){ 1185 Yzrhs_trazdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1134 Yzrhs_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1186 1135 }/*M3_SETAT*/ 1187 1136 void Ysetstate_zrhs_trazdf_imp(double val) … … 1192 1141 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1193 1142 for (int Yws=0; Yws<YNBS_zrhs_trazdf_imp; ++Yws){ 1194 Yzrhs_trazdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1143 Yzrhs_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1195 1144 }/*M3_YIOUT*/ 1196 1145 void Yio_zrhs_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1197 1146 { Yiorwf ("zrhs_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1198 }/*M 3_CREU*/1147 }/*M0_CREU*/ 1199 1148 void Ycreate_zrhs_trazdf_imp() 1200 1149 { 1201 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1202 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1203 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1204 if ((Yzrhs_trazdf_imp(Yw1, Yw2, Yw3) = new zrhs_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1150 if ((Yzrhs_trazdf_imp = new zrhs_trazdf_imp ())==NULL) 1151 Ycreate_errnew(); 1205 1152 }/*M3_TBTOGT */ 1206 1153 void YtabTOgrad_zrhs_sa_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1220 1167 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1221 1168 for (int Yws=0; Yws<YNBS_zrhs_sa_trazdf_imp; ++Yws){ 1222 Yzrhs_sa_trazdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1169 Yzrhs_sa_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1223 1170 }/*M3_SETAT*/ 1224 1171 void Ysetstate_zrhs_sa_trazdf_imp(double val) … … 1229 1176 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1230 1177 for (int Yws=0; Yws<YNBS_zrhs_sa_trazdf_imp; ++Yws){ 1231 Yzrhs_sa_trazdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1178 Yzrhs_sa_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1232 1179 }/*M3_YIOUT*/ 1233 1180 void Yio_zrhs_sa_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1234 1181 { Yiorwf ("zrhs_sa_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_sa_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1235 }/*M 3_CREU*/1182 }/*M0_CREU*/ 1236 1183 void Ycreate_zrhs_sa_trazdf_imp() 1237 1184 { 1238 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1239 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1240 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1241 if ((Yzrhs_sa_trazdf_imp(Yw1, Yw2, Yw3) = new zrhs_sa_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1185 if ((Yzrhs_sa_trazdf_imp = new zrhs_sa_trazdf_imp ())==NULL) 1186 Ycreate_errnew(); 1242 1187 }/*M3_TBTOGT */ 1243 1188 void YtabTOgrad_zwt_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1257 1202 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1258 1203 for (int Yws=0; Yws<YNBS_zwt_trazdf_imp; ++Yws){ 1259 Yzwt_trazdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1204 Yzwt_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1260 1205 }/*M3_SETAT*/ 1261 1206 void Ysetstate_zwt_trazdf_imp(double val) … … 1266 1211 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1267 1212 for (int Yws=0; Yws<YNBS_zwt_trazdf_imp; ++Yws){ 1268 Yzwt_trazdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1213 Yzwt_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1269 1214 }/*M3_YIOUT*/ 1270 1215 void Yio_zwt_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1271 1216 { Yiorwf ("zwt_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1272 }/*M 3_CREU*/1217 }/*M0_CREU*/ 1273 1218 void Ycreate_zwt_trazdf_imp() 1274 1219 { 1275 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1276 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1277 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1278 if ((Yzwt_trazdf_imp(Yw1, Yw2, Yw3) = new zwt_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1220 if ((Yzwt_trazdf_imp = new zwt_trazdf_imp ())==NULL) 1221 Ycreate_errnew(); 1279 1222 }/*M3_TBTOGT */ 1280 1223 void YtabTOgrad_ta_de_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1294 1237 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1295 1238 for (int Yws=0; Yws<YNBS_ta_de_trazdf_imp; ++Yws){ 1296 Yta_de_trazdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1239 Yta_de_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1297 1240 }/*M3_SETAT*/ 1298 1241 void Ysetstate_ta_de_trazdf_imp(double val) … … 1303 1246 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1304 1247 for (int Yws=0; Yws<YNBS_ta_de_trazdf_imp; ++Yws){ 1305 Yta_de_trazdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1248 Yta_de_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1306 1249 }/*M3_YIOUT*/ 1307 1250 void Yio_ta_de_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1308 1251 { Yiorwf ("ta_de_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta_de_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1309 }/*M 3_CREU*/1252 }/*M0_CREU*/ 1310 1253 void Ycreate_ta_de_trazdf_imp() 1311 1254 { 1312 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1313 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1314 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1315 if ((Yta_de_trazdf_imp(Yw1, Yw2, Yw3) = new ta_de_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1255 if ((Yta_de_trazdf_imp = new ta_de_trazdf_imp ())==NULL) 1256 Ycreate_errnew(); 1316 1257 }/*M3_TBTOGT */ 1317 1258 void YtabTOgrad_ta(int frompdt, int topdt, YREAL tab[]) … … 1331 1272 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1332 1273 for (int Yws=0; Yws<YNBS_ta; ++Yws){ 1333 Yta (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1274 Yta->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1334 1275 }/*M3_SETAT*/ 1335 1276 void Ysetstate_ta(double val) … … 1340 1281 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1341 1282 for (int Yws=0; Yws<YNBS_ta; ++Yws){ 1342 Yta (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1283 Yta->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1343 1284 }/*M3_YIOUT*/ 1344 1285 void Yio_ta(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1345 1286 { Yiorwf ("ta", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ta(Yws, Yw1, Yw2, Yw3, Ywt), val); 1346 }/*M 3_CREU*/1287 }/*M0_CREU*/ 1347 1288 void Ycreate_ta() 1348 1289 { 1349 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1350 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1351 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1352 if ((Yta(Yw1, Yw2, Yw3) = new ta ())==NULL) Ycreate_errnew();}}} 1290 if ((Yta = new ta ())==NULL) 1291 Ycreate_errnew(); 1353 1292 }/*M3_TBTOGT */ 1354 1293 void YtabTOgrad_sa_de_trazdf_imp(int frompdt, int topdt, YREAL tab[]) … … 1368 1307 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1369 1308 for (int Yws=0; Yws<YNBS_sa_de_trazdf_imp; ++Yws){ 1370 Ysa_de_trazdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1309 Ysa_de_trazdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1371 1310 }/*M3_SETAT*/ 1372 1311 void Ysetstate_sa_de_trazdf_imp(double val) … … 1377 1316 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1378 1317 for (int Yws=0; Yws<YNBS_sa_de_trazdf_imp; ++Yws){ 1379 Ysa_de_trazdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1318 Ysa_de_trazdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1380 1319 }/*M3_YIOUT*/ 1381 1320 void Yio_sa_de_trazdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1382 1321 { Yiorwf ("sa_de_trazdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa_de_trazdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 1383 }/*M 3_CREU*/1322 }/*M0_CREU*/ 1384 1323 void Ycreate_sa_de_trazdf_imp() 1385 1324 { 1386 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1387 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1388 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1389 if ((Ysa_de_trazdf_imp(Yw1, Yw2, Yw3) = new sa_de_trazdf_imp ())==NULL) Ycreate_errnew();}}} 1325 if ((Ysa_de_trazdf_imp = new sa_de_trazdf_imp ())==NULL) 1326 Ycreate_errnew(); 1390 1327 }/*M3_TBTOGT */ 1391 1328 void YtabTOgrad_sa(int frompdt, int topdt, YREAL tab[]) … … 1405 1342 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1406 1343 for (int Yws=0; Yws<YNBS_sa; ++Yws){ 1407 Ysa (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1344 Ysa->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1408 1345 }/*M3_SETAT*/ 1409 1346 void Ysetstate_sa(double val) … … 1414 1351 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1415 1352 for (int Yws=0; Yws<YNBS_sa; ++Yws){ 1416 Ysa (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1353 Ysa->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1417 1354 }/*M3_YIOUT*/ 1418 1355 void Yio_sa(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1419 1356 { Yiorwf ("sa", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sa(Yws, Yw1, Yw2, Yw3, Ywt), val); 1420 }/*M 3_CREU*/1357 }/*M0_CREU*/ 1421 1358 void Ycreate_sa() 1422 1359 { 1423 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1424 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1425 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1426 if ((Ysa(Yw1, Yw2, Yw3) = new sa ())==NULL) Ycreate_errnew();}}} 1360 if ((Ysa = new sa ())==NULL) 1361 Ycreate_errnew(); 1427 1362 }/*M3_TBTOGT */ 1428 1363 void YtabTOgrad_tb(int frompdt, int topdt, YREAL tab[]) … … 1442 1377 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1443 1378 for (int Yws=0; Yws<YNBS_tb; ++Yws){ 1444 Ytb (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1379 Ytb->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1445 1380 }/*M3_SETAT*/ 1446 1381 void Ysetstate_tb(double val) … … 1451 1386 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1452 1387 for (int Yws=0; Yws<YNBS_tb; ++Yws){ 1453 Ytb (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1388 Ytb->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1454 1389 }/*M3_YIOUT*/ 1455 1390 void Yio_tb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 1471 1406 }/*M9_OUTOB*/ 1472 1407 return(1); 1473 }/*M 3_CREU*/1408 }/*M0_CREU*/ 1474 1409 void Ycreate_tb() 1475 1410 { 1476 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1477 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1478 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1479 if ((Ytb(Yw1, Yw2, Yw3) = new tb ())==NULL) Ycreate_errnew();}}} 1411 if ((Ytb = new tb ())==NULL) 1412 Ycreate_errnew(); 1480 1413 }/*M3_SWISH*/ 1481 1414 void Ysetwish_tb(double val) … … 1503 1436 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1504 1437 for (int Yws=0; Yws<YNBS_sb; ++Yws){ 1505 Ysb (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1438 Ysb->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1506 1439 }/*M3_SETAT*/ 1507 1440 void Ysetstate_sb(double val) … … 1512 1445 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1513 1446 for (int Yws=0; Yws<YNBS_sb; ++Yws){ 1514 Ysb (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1447 Ysb->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1515 1448 }/*M3_YIOUT*/ 1516 1449 void Yio_sb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 1532 1465 }/*M9_OUTOB*/ 1533 1466 return(1); 1534 }/*M 3_CREU*/1467 }/*M0_CREU*/ 1535 1468 void Ycreate_sb() 1536 1469 { 1537 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1538 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1539 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1540 if ((Ysb(Yw1, Yw2, Yw3) = new sb ())==NULL) Ycreate_errnew();}}} 1470 if ((Ysb = new sb ())==NULL) 1471 Ycreate_errnew(); 1541 1472 }/*M3_SWISH*/ 1542 1473 void Ysetwish_sb(double val) … … 1564 1495 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1565 1496 for (int Yws=0; Yws<YNBS_rhd; ++Yws){ 1566 Yrhd (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1497 Yrhd->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1567 1498 }/*M3_SETAT*/ 1568 1499 void Ysetstate_rhd(double val) … … 1573 1504 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1574 1505 for (int Yws=0; Yws<YNBS_rhd; ++Yws){ 1575 Yrhd (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1506 Yrhd->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1576 1507 }/*M3_YIOUT*/ 1577 1508 void Yio_rhd(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1578 1509 { Yiorwf ("rhd", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rhd(Yws, Yw1, Yw2, Yw3, Ywt), val); 1579 }/*M 3_CREU*/1510 }/*M0_CREU*/ 1580 1511 void Ycreate_rhd() 1581 1512 { 1582 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1583 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1584 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1585 if ((Yrhd(Yw1, Yw2, Yw3) = new rhd ())==NULL) Ycreate_errnew();}}} 1513 if ((Yrhd = new rhd ())==NULL) 1514 Ycreate_errnew(); 1586 1515 }/*M3_TBTOGT */ 1587 1516 void YtabTOgrad_rhop(int frompdt, int topdt, YREAL tab[]) … … 1601 1530 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1602 1531 for (int Yws=0; Yws<YNBS_rhop; ++Yws){ 1603 Yrhop (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1532 Yrhop->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1604 1533 }/*M3_SETAT*/ 1605 1534 void Ysetstate_rhop(double val) … … 1610 1539 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1611 1540 for (int Yws=0; Yws<YNBS_rhop; ++Yws){ 1612 Yrhop (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1541 Yrhop->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1613 1542 }/*M3_YIOUT*/ 1614 1543 void Yio_rhop(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1615 1544 { Yiorwf ("rhop", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rhop(Yws, Yw1, Yw2, Yw3, Ywt), val); 1616 }/*M 3_CREU*/1545 }/*M0_CREU*/ 1617 1546 void Ycreate_rhop() 1618 1547 { 1619 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1620 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1621 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1622 if ((Yrhop(Yw1, Yw2, Yw3) = new rhop ())==NULL) Ycreate_errnew();}}} 1548 if ((Yrhop = new rhop ())==NULL) 1549 Ycreate_errnew(); 1623 1550 }/*M3_TBTOGT */ 1624 1551 void YtabTOgrad_hmf_TF_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1638 1565 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1639 1566 for (int Yws=0; Yws<YNBS_hmf_TF_dynadv_cen2; ++Yws){ 1640 Yhmf_TF_dynadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1567 Yhmf_TF_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1641 1568 }/*M3_SETAT*/ 1642 1569 void Ysetstate_hmf_TF_dynadv_cen2(double val) … … 1647 1574 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1648 1575 for (int Yws=0; Yws<YNBS_hmf_TF_dynadv_cen2; ++Yws){ 1649 Yhmf_TF_dynadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1576 Yhmf_TF_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1650 1577 }/*M3_YIOUT*/ 1651 1578 void Yio_hmf_TF_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1652 1579 { Yiorwf ("hmf_TF_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_hmf_TF_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1653 }/*M 3_CREU*/1580 }/*M0_CREU*/ 1654 1581 void Ycreate_hmf_TF_dynadv_cen2() 1655 1582 { 1656 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1657 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1658 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1659 if ((Yhmf_TF_dynadv_cen2(Yw1, Yw2, Yw3) = new hmf_TF_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1583 if ((Yhmf_TF_dynadv_cen2 = new hmf_TF_dynadv_cen2 ())==NULL) 1584 Ycreate_errnew(); 1660 1585 }/*M3_TBTOGT */ 1661 1586 void YtabTOgrad_zua_dhmf_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1675 1600 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1676 1601 for (int Yws=0; Yws<YNBS_zua_dhmf_dynadv_cen2; ++Yws){ 1677 Yzua_dhmf_dynadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1602 Yzua_dhmf_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1678 1603 }/*M3_SETAT*/ 1679 1604 void Ysetstate_zua_dhmf_dynadv_cen2(double val) … … 1684 1609 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1685 1610 for (int Yws=0; Yws<YNBS_zua_dhmf_dynadv_cen2; ++Yws){ 1686 Yzua_dhmf_dynadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1611 Yzua_dhmf_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1687 1612 }/*M3_YIOUT*/ 1688 1613 void Yio_zua_dhmf_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1689 1614 { Yiorwf ("zua_dhmf_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zua_dhmf_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1690 }/*M 3_CREU*/1615 }/*M0_CREU*/ 1691 1616 void Ycreate_zua_dhmf_dynadv_cen2() 1692 1617 { 1693 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1694 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1695 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1696 if ((Yzua_dhmf_dynadv_cen2(Yw1, Yw2, Yw3) = new zua_dhmf_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1618 if ((Yzua_dhmf_dynadv_cen2 = new zua_dhmf_dynadv_cen2 ())==NULL) 1619 Ycreate_errnew(); 1697 1620 }/*M3_TBTOGT */ 1698 1621 void YtabTOgrad_zva_dhmf_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1712 1635 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1713 1636 for (int Yws=0; Yws<YNBS_zva_dhmf_dynadv_cen2; ++Yws){ 1714 Yzva_dhmf_dynadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1637 Yzva_dhmf_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1715 1638 }/*M3_SETAT*/ 1716 1639 void Ysetstate_zva_dhmf_dynadv_cen2(double val) … … 1721 1644 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1722 1645 for (int Yws=0; Yws<YNBS_zva_dhmf_dynadv_cen2; ++Yws){ 1723 Yzva_dhmf_dynadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1646 Yzva_dhmf_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1724 1647 }/*M3_YIOUT*/ 1725 1648 void Yio_zva_dhmf_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1726 1649 { Yiorwf ("zva_dhmf_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zva_dhmf_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1727 }/*M 3_CREU*/1650 }/*M0_CREU*/ 1728 1651 void Ycreate_zva_dhmf_dynadv_cen2() 1729 1652 { 1730 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1731 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1732 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1733 if ((Yzva_dhmf_dynadv_cen2(Yw1, Yw2, Yw3) = new zva_dhmf_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1653 if ((Yzva_dhmf_dynadv_cen2 = new zva_dhmf_dynadv_cen2 ())==NULL) 1654 Ycreate_errnew(); 1734 1655 }/*M3_TBTOGT */ 1735 1656 void YtabTOgrad_zfuv_UW_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1749 1670 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1750 1671 for (int Yws=0; Yws<YNBS_zfuv_UW_dynadv_cen2; ++Yws){ 1751 Yzfuv_UW_dynadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1672 Yzfuv_UW_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1752 1673 }/*M3_SETAT*/ 1753 1674 void Ysetstate_zfuv_UW_dynadv_cen2(double val) … … 1758 1679 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1759 1680 for (int Yws=0; Yws<YNBS_zfuv_UW_dynadv_cen2; ++Yws){ 1760 Yzfuv_UW_dynadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1681 Yzfuv_UW_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1761 1682 }/*M3_YIOUT*/ 1762 1683 void Yio_zfuv_UW_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1763 1684 { Yiorwf ("zfuv_UW_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zfuv_UW_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1764 }/*M 3_CREU*/1685 }/*M0_CREU*/ 1765 1686 void Ycreate_zfuv_UW_dynadv_cen2() 1766 1687 { 1767 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1768 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1769 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1770 if ((Yzfuv_UW_dynadv_cen2(Yw1, Yw2, Yw3) = new zfuv_UW_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1688 if ((Yzfuv_UW_dynadv_cen2 = new zfuv_UW_dynadv_cen2 ())==NULL) 1689 Ycreate_errnew(); 1771 1690 }/*M3_TBTOGT */ 1772 1691 void YtabTOgrad_ua_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1786 1705 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1787 1706 for (int Yws=0; Yws<YNBS_ua_dynadv_cen2; ++Yws){ 1788 Yua_dynadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1707 Yua_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1789 1708 }/*M3_SETAT*/ 1790 1709 void Ysetstate_ua_dynadv_cen2(double val) … … 1795 1714 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1796 1715 for (int Yws=0; Yws<YNBS_ua_dynadv_cen2; ++Yws){ 1797 Yua_dynadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1716 Yua_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1798 1717 }/*M3_YIOUT*/ 1799 1718 void Yio_ua_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1800 1719 { Yiorwf ("ua_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1801 }/*M 3_CREU*/1720 }/*M0_CREU*/ 1802 1721 void Ycreate_ua_dynadv_cen2() 1803 1722 { 1804 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1805 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1806 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1807 if ((Yua_dynadv_cen2(Yw1, Yw2, Yw3) = new ua_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1723 if ((Yua_dynadv_cen2 = new ua_dynadv_cen2 ())==NULL) 1724 Ycreate_errnew(); 1808 1725 }/*M3_TBTOGT */ 1809 1726 void YtabTOgrad_va_dynadv_cen2(int frompdt, int topdt, YREAL tab[]) … … 1823 1740 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1824 1741 for (int Yws=0; Yws<YNBS_va_dynadv_cen2; ++Yws){ 1825 Yva_dynadv_cen2 (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1742 Yva_dynadv_cen2->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1826 1743 }/*M3_SETAT*/ 1827 1744 void Ysetstate_va_dynadv_cen2(double val) … … 1832 1749 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1833 1750 for (int Yws=0; Yws<YNBS_va_dynadv_cen2; ++Yws){ 1834 Yva_dynadv_cen2 (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1751 Yva_dynadv_cen2->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1835 1752 }/*M3_YIOUT*/ 1836 1753 void Yio_va_dynadv_cen2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1837 1754 { Yiorwf ("va_dynadv_cen2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dynadv_cen2(Yws, Yw1, Yw2, Yw3, Ywt), val); 1838 }/*M 3_CREU*/1755 }/*M0_CREU*/ 1839 1756 void Ycreate_va_dynadv_cen2() 1840 1757 { 1841 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1842 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1843 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1844 if ((Yva_dynadv_cen2(Yw1, Yw2, Yw3) = new va_dynadv_cen2 ())==NULL) Ycreate_errnew();}}} 1758 if ((Yva_dynadv_cen2 = new va_dynadv_cen2 ())==NULL) 1759 Ycreate_errnew(); 1845 1760 }/*M3_TBTOGT */ 1846 1761 void YtabTOgrad_zwxyz_vor_ene(int frompdt, int topdt, YREAL tab[]) … … 1860 1775 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1861 1776 for (int Yws=0; Yws<YNBS_zwxyz_vor_ene; ++Yws){ 1862 Yzwxyz_vor_ene (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1777 Yzwxyz_vor_ene->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1863 1778 }/*M3_SETAT*/ 1864 1779 void Ysetstate_zwxyz_vor_ene(double val) … … 1869 1784 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1870 1785 for (int Yws=0; Yws<YNBS_zwxyz_vor_ene; ++Yws){ 1871 Yzwxyz_vor_ene (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1786 Yzwxyz_vor_ene->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1872 1787 }/*M3_YIOUT*/ 1873 1788 void Yio_zwxyz_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1874 1789 { Yiorwf ("zwxyz_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwxyz_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 1875 }/*M 3_CREU*/1790 }/*M0_CREU*/ 1876 1791 void Ycreate_zwxyz_vor_ene() 1877 1792 { 1878 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1879 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1880 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1881 if ((Yzwxyz_vor_ene(Yw1, Yw2, Yw3) = new zwxyz_vor_ene ())==NULL) Ycreate_errnew();}}} 1793 if ((Yzwxyz_vor_ene = new zwxyz_vor_ene ())==NULL) 1794 Ycreate_errnew(); 1882 1795 }/*M3_TBTOGT */ 1883 1796 void YtabTOgrad_ua_vor_ene(int frompdt, int topdt, YREAL tab[]) … … 1897 1810 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1898 1811 for (int Yws=0; Yws<YNBS_ua_vor_ene; ++Yws){ 1899 Yua_vor_ene (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1812 Yua_vor_ene->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1900 1813 }/*M3_SETAT*/ 1901 1814 void Ysetstate_ua_vor_ene(double val) … … 1906 1819 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1907 1820 for (int Yws=0; Yws<YNBS_ua_vor_ene; ++Yws){ 1908 Yua_vor_ene (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1821 Yua_vor_ene->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1909 1822 }/*M3_YIOUT*/ 1910 1823 void Yio_ua_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1911 1824 { Yiorwf ("ua_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 1912 }/*M 3_CREU*/1825 }/*M0_CREU*/ 1913 1826 void Ycreate_ua_vor_ene() 1914 1827 { 1915 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1916 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1917 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1918 if ((Yua_vor_ene(Yw1, Yw2, Yw3) = new ua_vor_ene ())==NULL) Ycreate_errnew();}}} 1828 if ((Yua_vor_ene = new ua_vor_ene ())==NULL) 1829 Ycreate_errnew(); 1919 1830 }/*M3_TBTOGT */ 1920 1831 void YtabTOgrad_va_vor_ene(int frompdt, int topdt, YREAL tab[]) … … 1934 1845 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1935 1846 for (int Yws=0; Yws<YNBS_va_vor_ene; ++Yws){ 1936 Yva_vor_ene (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1847 Yva_vor_ene->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1937 1848 }/*M3_SETAT*/ 1938 1849 void Ysetstate_va_vor_ene(double val) … … 1943 1854 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1944 1855 for (int Yws=0; Yws<YNBS_va_vor_ene; ++Yws){ 1945 Yva_vor_ene (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1856 Yva_vor_ene->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1946 1857 }/*M3_YIOUT*/ 1947 1858 void Yio_va_vor_ene(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1948 1859 { Yiorwf ("va_vor_ene", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_vor_ene(Yws, Yw1, Yw2, Yw3, Ywt), val); 1949 }/*M 3_CREU*/1860 }/*M0_CREU*/ 1950 1861 void Ycreate_va_vor_ene() 1951 1862 { 1952 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1953 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1954 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1955 if ((Yva_vor_ene(Yw1, Yw2, Yw3) = new va_vor_ene ())==NULL) Ycreate_errnew();}}} 1863 if ((Yva_vor_ene = new va_vor_ene ())==NULL) 1864 Ycreate_errnew(); 1956 1865 }/*M3_TBTOGT */ 1957 1866 void YtabTOgrad_ua_dyn_ldf_lap(int frompdt, int topdt, YREAL tab[]) … … 1971 1880 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1972 1881 for (int Yws=0; Yws<YNBS_ua_dyn_ldf_lap; ++Yws){ 1973 Yua_dyn_ldf_lap (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1882 Yua_dyn_ldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 1974 1883 }/*M3_SETAT*/ 1975 1884 void Ysetstate_ua_dyn_ldf_lap(double val) … … 1980 1889 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 1981 1890 for (int Yws=0; Yws<YNBS_ua_dyn_ldf_lap; ++Yws){ 1982 Yua_dyn_ldf_lap (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1891 Yua_dyn_ldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 1983 1892 }/*M3_YIOUT*/ 1984 1893 void Yio_ua_dyn_ldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 1985 1894 { Yiorwf ("ua_dyn_ldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dyn_ldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 1986 }/*M 3_CREU*/1895 }/*M0_CREU*/ 1987 1896 void Ycreate_ua_dyn_ldf_lap() 1988 1897 { 1989 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 1990 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 1991 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 1992 if ((Yua_dyn_ldf_lap(Yw1, Yw2, Yw3) = new ua_dyn_ldf_lap ())==NULL) Ycreate_errnew();}}} 1898 if ((Yua_dyn_ldf_lap = new ua_dyn_ldf_lap ())==NULL) 1899 Ycreate_errnew(); 1993 1900 }/*M3_TBTOGT */ 1994 1901 void YtabTOgrad_va_dyn_ldf_lap(int frompdt, int topdt, YREAL tab[]) … … 2008 1915 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2009 1916 for (int Yws=0; Yws<YNBS_va_dyn_ldf_lap; ++Yws){ 2010 Yva_dyn_ldf_lap (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1917 Yva_dyn_ldf_lap->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2011 1918 }/*M3_SETAT*/ 2012 1919 void Ysetstate_va_dyn_ldf_lap(double val) … … 2017 1924 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2018 1925 for (int Yws=0; Yws<YNBS_va_dyn_ldf_lap; ++Yws){ 2019 Yva_dyn_ldf_lap (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1926 Yva_dyn_ldf_lap->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2020 1927 }/*M3_YIOUT*/ 2021 1928 void Yio_va_dyn_ldf_lap(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2022 1929 { Yiorwf ("va_dyn_ldf_lap", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dyn_ldf_lap(Yws, Yw1, Yw2, Yw3, Ywt), val); 2023 }/*M 3_CREU*/1930 }/*M0_CREU*/ 2024 1931 void Ycreate_va_dyn_ldf_lap() 2025 1932 { 2026 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2027 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2028 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2029 if ((Yva_dyn_ldf_lap(Yw1, Yw2, Yw3) = new va_dyn_ldf_lap ())==NULL) Ycreate_errnew();}}} 1933 if ((Yva_dyn_ldf_lap = new va_dyn_ldf_lap ())==NULL) 1934 Ycreate_errnew(); 2030 1935 }/*M3_TBTOGT */ 2031 1936 void YtabTOgrad_zhpij_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) … … 2045 1950 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2046 1951 for (int Yws=0; Yws<YNBS_zhpij_dyn_hpg_zco; ++Yws){ 2047 Yzhpij_dyn_hpg_zco (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1952 Yzhpij_dyn_hpg_zco->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2048 1953 }/*M3_SETAT*/ 2049 1954 void Ysetstate_zhpij_dyn_hpg_zco(double val) … … 2054 1959 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2055 1960 for (int Yws=0; Yws<YNBS_zhpij_dyn_hpg_zco; ++Yws){ 2056 Yzhpij_dyn_hpg_zco (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1961 Yzhpij_dyn_hpg_zco->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2057 1962 }/*M3_YIOUT*/ 2058 1963 void Yio_zhpij_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2059 1964 { Yiorwf ("zhpij_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zhpij_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 2060 }/*M 3_CREU*/1965 }/*M0_CREU*/ 2061 1966 void Ycreate_zhpij_dyn_hpg_zco() 2062 1967 { 2063 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2064 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2065 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2066 if ((Yzhpij_dyn_hpg_zco(Yw1, Yw2, Yw3) = new zhpij_dyn_hpg_zco ())==NULL) Ycreate_errnew();}}} 1968 if ((Yzhpij_dyn_hpg_zco = new zhpij_dyn_hpg_zco ())==NULL) 1969 Ycreate_errnew(); 2067 1970 }/*M3_TBTOGT */ 2068 1971 void YtabTOgrad_ua_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) … … 2082 1985 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2083 1986 for (int Yws=0; Yws<YNBS_ua_dyn_hpg_zco; ++Yws){ 2084 Yua_dyn_hpg_zco (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}1987 Yua_dyn_hpg_zco->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2085 1988 }/*M3_SETAT*/ 2086 1989 void Ysetstate_ua_dyn_hpg_zco(double val) … … 2091 1994 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2092 1995 for (int Yws=0; Yws<YNBS_ua_dyn_hpg_zco; ++Yws){ 2093 Yua_dyn_hpg_zco (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}1996 Yua_dyn_hpg_zco->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2094 1997 }/*M3_YIOUT*/ 2095 1998 void Yio_ua_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2096 1999 { Yiorwf ("ua_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 2097 }/*M 3_CREU*/2000 }/*M0_CREU*/ 2098 2001 void Ycreate_ua_dyn_hpg_zco() 2099 2002 { 2100 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2101 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2102 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2103 if ((Yua_dyn_hpg_zco(Yw1, Yw2, Yw3) = new ua_dyn_hpg_zco ())==NULL) Ycreate_errnew();}}} 2003 if ((Yua_dyn_hpg_zco = new ua_dyn_hpg_zco ())==NULL) 2004 Ycreate_errnew(); 2104 2005 }/*M3_TBTOGT */ 2105 2006 void YtabTOgrad_va_dyn_hpg_zco(int frompdt, int topdt, YREAL tab[]) … … 2119 2020 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2120 2021 for (int Yws=0; Yws<YNBS_va_dyn_hpg_zco; ++Yws){ 2121 Yva_dyn_hpg_zco (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2022 Yva_dyn_hpg_zco->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2122 2023 }/*M3_SETAT*/ 2123 2024 void Ysetstate_va_dyn_hpg_zco(double val) … … 2128 2029 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2129 2030 for (int Yws=0; Yws<YNBS_va_dyn_hpg_zco; ++Yws){ 2130 Yva_dyn_hpg_zco (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2031 Yva_dyn_hpg_zco->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2131 2032 }/*M3_YIOUT*/ 2132 2033 void Yio_va_dyn_hpg_zco(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2133 2034 { Yiorwf ("va_dyn_hpg_zco", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dyn_hpg_zco(Yws, Yw1, Yw2, Yw3, Ywt), val); 2134 }/*M 3_CREU*/2035 }/*M0_CREU*/ 2135 2036 void Ycreate_va_dyn_hpg_zco() 2136 2037 { 2137 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2138 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2139 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2140 if ((Yva_dyn_hpg_zco(Yw1, Yw2, Yw3) = new va_dyn_hpg_zco ())==NULL) Ycreate_errnew();}}} 2038 if ((Yva_dyn_hpg_zco = new va_dyn_hpg_zco ())==NULL) 2039 Ycreate_errnew(); 2141 2040 }/*M3_TBTOGT */ 2142 2041 void YtabTOgrad_zwisd_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2156 2055 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2157 2056 for (int Yws=0; Yws<YNBS_zwisd_ua_dynzdf_imp; ++Yws){ 2158 Yzwisd_ua_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2057 Yzwisd_ua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2159 2058 }/*M3_SETAT*/ 2160 2059 void Ysetstate_zwisd_ua_dynzdf_imp(double val) … … 2165 2064 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2166 2065 for (int Yws=0; Yws<YNBS_zwisd_ua_dynzdf_imp; ++Yws){ 2167 Yzwisd_ua_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2066 Yzwisd_ua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2168 2067 }/*M3_YIOUT*/ 2169 2068 void Yio_zwisd_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2170 2069 { Yiorwf ("zwisd_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2171 }/*M 3_CREU*/2070 }/*M0_CREU*/ 2172 2071 void Ycreate_zwisd_ua_dynzdf_imp() 2173 2072 { 2174 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2175 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2176 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2177 if ((Yzwisd_ua_dynzdf_imp(Yw1, Yw2, Yw3) = new zwisd_ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2073 if ((Yzwisd_ua_dynzdf_imp = new zwisd_ua_dynzdf_imp ())==NULL) 2074 Ycreate_errnew(); 2178 2075 }/*M3_TBTOGT */ 2179 2076 void YtabTOgrad_zwisd_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2193 2090 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2194 2091 for (int Yws=0; Yws<YNBS_zwisd_va_dynzdf_imp; ++Yws){ 2195 Yzwisd_va_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2092 Yzwisd_va_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2196 2093 }/*M3_SETAT*/ 2197 2094 void Ysetstate_zwisd_va_dynzdf_imp(double val) … … 2202 2099 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2203 2100 for (int Yws=0; Yws<YNBS_zwisd_va_dynzdf_imp; ++Yws){ 2204 Yzwisd_va_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2101 Yzwisd_va_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2205 2102 }/*M3_YIOUT*/ 2206 2103 void Yio_zwisd_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2207 2104 { Yiorwf ("zwisd_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwisd_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2208 }/*M 3_CREU*/2105 }/*M0_CREU*/ 2209 2106 void Ycreate_zwisd_va_dynzdf_imp() 2210 2107 { 2211 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2212 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2213 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2214 if ((Yzwisd_va_dynzdf_imp(Yw1, Yw2, Yw3) = new zwisd_va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2108 if ((Yzwisd_va_dynzdf_imp = new zwisd_va_dynzdf_imp ())==NULL) 2109 Ycreate_errnew(); 2215 2110 }/*M3_TBTOGT */ 2216 2111 void YtabTOgrad_zrhs_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2230 2125 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2231 2126 for (int Yws=0; Yws<YNBS_zrhs_ua_dynzdf_imp; ++Yws){ 2232 Yzrhs_ua_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2127 Yzrhs_ua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2233 2128 }/*M3_SETAT*/ 2234 2129 void Ysetstate_zrhs_ua_dynzdf_imp(double val) … … 2239 2134 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2240 2135 for (int Yws=0; Yws<YNBS_zrhs_ua_dynzdf_imp; ++Yws){ 2241 Yzrhs_ua_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2136 Yzrhs_ua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2242 2137 }/*M3_YIOUT*/ 2243 2138 void Yio_zrhs_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2244 2139 { Yiorwf ("zrhs_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2245 }/*M 3_CREU*/2140 }/*M0_CREU*/ 2246 2141 void Ycreate_zrhs_ua_dynzdf_imp() 2247 2142 { 2248 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2249 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2250 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2251 if ((Yzrhs_ua_dynzdf_imp(Yw1, Yw2, Yw3) = new zrhs_ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2143 if ((Yzrhs_ua_dynzdf_imp = new zrhs_ua_dynzdf_imp ())==NULL) 2144 Ycreate_errnew(); 2252 2145 }/*M3_TBTOGT */ 2253 2146 void YtabTOgrad_zrhs_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2267 2160 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2268 2161 for (int Yws=0; Yws<YNBS_zrhs_va_dynzdf_imp; ++Yws){ 2269 Yzrhs_va_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2162 Yzrhs_va_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2270 2163 }/*M3_SETAT*/ 2271 2164 void Ysetstate_zrhs_va_dynzdf_imp(double val) … … 2276 2169 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2277 2170 for (int Yws=0; Yws<YNBS_zrhs_va_dynzdf_imp; ++Yws){ 2278 Yzrhs_va_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2171 Yzrhs_va_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2279 2172 }/*M3_YIOUT*/ 2280 2173 void Yio_zrhs_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2281 2174 { Yiorwf ("zrhs_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zrhs_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2282 }/*M 3_CREU*/2175 }/*M0_CREU*/ 2283 2176 void Ycreate_zrhs_va_dynzdf_imp() 2284 2177 { 2285 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2286 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2287 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2288 if ((Yzrhs_va_dynzdf_imp(Yw1, Yw2, Yw3) = new zrhs_va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2178 if ((Yzrhs_va_dynzdf_imp = new zrhs_va_dynzdf_imp ())==NULL) 2179 Ycreate_errnew(); 2289 2180 }/*M3_TBTOGT */ 2290 2181 void YtabTOgrad_zwt_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2304 2195 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2305 2196 for (int Yws=0; Yws<YNBS_zwt_ua_dynzdf_imp; ++Yws){ 2306 Yzwt_ua_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2197 Yzwt_ua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2307 2198 }/*M3_SETAT*/ 2308 2199 void Ysetstate_zwt_ua_dynzdf_imp(double val) … … 2313 2204 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2314 2205 for (int Yws=0; Yws<YNBS_zwt_ua_dynzdf_imp; ++Yws){ 2315 Yzwt_ua_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2206 Yzwt_ua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2316 2207 }/*M3_YIOUT*/ 2317 2208 void Yio_zwt_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2318 2209 { Yiorwf ("zwt_ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2319 }/*M 3_CREU*/2210 }/*M0_CREU*/ 2320 2211 void Ycreate_zwt_ua_dynzdf_imp() 2321 2212 { 2322 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2323 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2324 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2325 if ((Yzwt_ua_dynzdf_imp(Yw1, Yw2, Yw3) = new zwt_ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2213 if ((Yzwt_ua_dynzdf_imp = new zwt_ua_dynzdf_imp ())==NULL) 2214 Ycreate_errnew(); 2326 2215 }/*M3_TBTOGT */ 2327 2216 void YtabTOgrad_zwt_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2341 2230 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2342 2231 for (int Yws=0; Yws<YNBS_zwt_va_dynzdf_imp; ++Yws){ 2343 Yzwt_va_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2232 Yzwt_va_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2344 2233 }/*M3_SETAT*/ 2345 2234 void Ysetstate_zwt_va_dynzdf_imp(double val) … … 2350 2239 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2351 2240 for (int Yws=0; Yws<YNBS_zwt_va_dynzdf_imp; ++Yws){ 2352 Yzwt_va_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2241 Yzwt_va_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2353 2242 }/*M3_YIOUT*/ 2354 2243 void Yio_zwt_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2355 2244 { Yiorwf ("zwt_va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_zwt_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2356 }/*M 3_CREU*/2245 }/*M0_CREU*/ 2357 2246 void Ycreate_zwt_va_dynzdf_imp() 2358 2247 { 2359 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2360 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2361 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2362 if ((Yzwt_va_dynzdf_imp(Yw1, Yw2, Yw3) = new zwt_va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2248 if ((Yzwt_va_dynzdf_imp = new zwt_va_dynzdf_imp ())==NULL) 2249 Ycreate_errnew(); 2363 2250 }/*M3_TBTOGT */ 2364 2251 void YtabTOgrad_ua_de_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2378 2265 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2379 2266 for (int Yws=0; Yws<YNBS_ua_de_dynzdf_imp; ++Yws){ 2380 Yua_de_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2267 Yua_de_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2381 2268 }/*M3_SETAT*/ 2382 2269 void Ysetstate_ua_de_dynzdf_imp(double val) … … 2387 2274 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2388 2275 for (int Yws=0; Yws<YNBS_ua_de_dynzdf_imp; ++Yws){ 2389 Yua_de_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2276 Yua_de_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2390 2277 }/*M3_YIOUT*/ 2391 2278 void Yio_ua_de_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2392 2279 { Yiorwf ("ua_de_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_de_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2393 }/*M 3_CREU*/2280 }/*M0_CREU*/ 2394 2281 void Ycreate_ua_de_dynzdf_imp() 2395 2282 { 2396 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2397 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2398 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2399 if ((Yua_de_dynzdf_imp(Yw1, Yw2, Yw3) = new ua_de_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2283 if ((Yua_de_dynzdf_imp = new ua_de_dynzdf_imp ())==NULL) 2284 Ycreate_errnew(); 2400 2285 }/*M3_TBTOGT */ 2401 2286 void YtabTOgrad_ua_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2415 2300 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2416 2301 for (int Yws=0; Yws<YNBS_ua_dynzdf_imp; ++Yws){ 2417 Yua_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2302 Yua_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2418 2303 }/*M3_SETAT*/ 2419 2304 void Ysetstate_ua_dynzdf_imp(double val) … … 2424 2309 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2425 2310 for (int Yws=0; Yws<YNBS_ua_dynzdf_imp; ++Yws){ 2426 Yua_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2311 Yua_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2427 2312 }/*M3_YIOUT*/ 2428 2313 void Yio_ua_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2429 2314 { Yiorwf ("ua_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2430 }/*M 3_CREU*/2315 }/*M0_CREU*/ 2431 2316 void Ycreate_ua_dynzdf_imp() 2432 2317 { 2433 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2434 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2435 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2436 if ((Yua_dynzdf_imp(Yw1, Yw2, Yw3) = new ua_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2318 if ((Yua_dynzdf_imp = new ua_dynzdf_imp ())==NULL) 2319 Ycreate_errnew(); 2437 2320 }/*M3_TBTOGT */ 2438 2321 void YtabTOgrad_va_de_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2452 2335 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2453 2336 for (int Yws=0; Yws<YNBS_va_de_dynzdf_imp; ++Yws){ 2454 Yva_de_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2337 Yva_de_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2455 2338 }/*M3_SETAT*/ 2456 2339 void Ysetstate_va_de_dynzdf_imp(double val) … … 2461 2344 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2462 2345 for (int Yws=0; Yws<YNBS_va_de_dynzdf_imp; ++Yws){ 2463 Yva_de_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2346 Yva_de_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2464 2347 }/*M3_YIOUT*/ 2465 2348 void Yio_va_de_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2466 2349 { Yiorwf ("va_de_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_de_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2467 }/*M 3_CREU*/2350 }/*M0_CREU*/ 2468 2351 void Ycreate_va_de_dynzdf_imp() 2469 2352 { 2470 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2471 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2472 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2473 if ((Yva_de_dynzdf_imp(Yw1, Yw2, Yw3) = new va_de_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2353 if ((Yva_de_dynzdf_imp = new va_de_dynzdf_imp ())==NULL) 2354 Ycreate_errnew(); 2474 2355 }/*M3_TBTOGT */ 2475 2356 void YtabTOgrad_va_dynzdf_imp(int frompdt, int topdt, YREAL tab[]) … … 2489 2370 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2490 2371 for (int Yws=0; Yws<YNBS_va_dynzdf_imp; ++Yws){ 2491 Yva_dynzdf_imp (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2372 Yva_dynzdf_imp->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2492 2373 }/*M3_SETAT*/ 2493 2374 void Ysetstate_va_dynzdf_imp(double val) … … 2498 2379 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2499 2380 for (int Yws=0; Yws<YNBS_va_dynzdf_imp; ++Yws){ 2500 Yva_dynzdf_imp (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2381 Yva_dynzdf_imp->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2501 2382 }/*M3_YIOUT*/ 2502 2383 void Yio_va_dynzdf_imp(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2503 2384 { Yiorwf ("va_dynzdf_imp", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_dynzdf_imp(Yws, Yw1, Yw2, Yw3, Ywt), val); 2504 }/*M 3_CREU*/2385 }/*M0_CREU*/ 2505 2386 void Ycreate_va_dynzdf_imp() 2506 2387 { 2507 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2508 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2509 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2510 if ((Yva_dynzdf_imp(Yw1, Yw2, Yw3) = new va_dynzdf_imp ())==NULL) Ycreate_errnew();}}} 2388 if ((Yva_dynzdf_imp = new va_dynzdf_imp ())==NULL) 2389 Ycreate_errnew(); 2511 2390 }/*M3_TBTOGT */ 2512 2391 void YtabTOgrad_ua_norm_dynzdf(int frompdt, int topdt, YREAL tab[]) … … 2526 2405 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2527 2406 for (int Yws=0; Yws<YNBS_ua_norm_dynzdf; ++Yws){ 2528 Yua_norm_dynzdf (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2407 Yua_norm_dynzdf->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2529 2408 }/*M3_SETAT*/ 2530 2409 void Ysetstate_ua_norm_dynzdf(double val) … … 2535 2414 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2536 2415 for (int Yws=0; Yws<YNBS_ua_norm_dynzdf; ++Yws){ 2537 Yua_norm_dynzdf (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2416 Yua_norm_dynzdf->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2538 2417 }/*M3_YIOUT*/ 2539 2418 void Yio_ua_norm_dynzdf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2540 2419 { Yiorwf ("ua_norm_dynzdf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_norm_dynzdf(Yws, Yw1, Yw2, Yw3, Ywt), val); 2541 }/*M 3_CREU*/2420 }/*M0_CREU*/ 2542 2421 void Ycreate_ua_norm_dynzdf() 2543 2422 { 2544 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2545 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2546 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2547 if ((Yua_norm_dynzdf(Yw1, Yw2, Yw3) = new ua_norm_dynzdf ())==NULL) Ycreate_errnew();}}} 2423 if ((Yua_norm_dynzdf = new ua_norm_dynzdf ())==NULL) 2424 Ycreate_errnew(); 2548 2425 }/*M3_TBTOGT */ 2549 2426 void YtabTOgrad_va_norm_dynzdf(int frompdt, int topdt, YREAL tab[]) … … 2563 2440 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2564 2441 for (int Yws=0; Yws<YNBS_va_norm_dynzdf; ++Yws){ 2565 Yva_norm_dynzdf (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2442 Yva_norm_dynzdf->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2566 2443 }/*M3_SETAT*/ 2567 2444 void Ysetstate_va_norm_dynzdf(double val) … … 2572 2449 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2573 2450 for (int Yws=0; Yws<YNBS_va_norm_dynzdf; ++Yws){ 2574 Yva_norm_dynzdf (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2451 Yva_norm_dynzdf->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2575 2452 }/*M3_YIOUT*/ 2576 2453 void Yio_va_norm_dynzdf(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2577 2454 { Yiorwf ("va_norm_dynzdf", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_norm_dynzdf(Yws, Yw1, Yw2, Yw3, Ywt), val); 2578 }/*M 3_CREU*/2455 }/*M0_CREU*/ 2579 2456 void Ycreate_va_norm_dynzdf() 2580 2457 { 2581 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2582 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2583 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2584 if ((Yva_norm_dynzdf(Yw1, Yw2, Yw3) = new va_norm_dynzdf ())==NULL) Ycreate_errnew();}}} 2458 if ((Yva_norm_dynzdf = new va_norm_dynzdf ())==NULL) 2459 Ycreate_errnew(); 2585 2460 }/*M2_TBTOGT */ 2586 2461 void YtabTOgrad_spguv_now_dynspg(int frompdt, int topdt, YREAL tab[]) … … 2598 2473 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2599 2474 for (int Yws=0; Yws<YNBS_spguv_now_dynspg; ++Yws){ 2600 Yspguv_now_dynspg (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2475 Yspguv_now_dynspg->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 2601 2476 }/*M2_SETAT*/ 2602 2477 void Ysetstate_spguv_now_dynspg(double val) … … 2606 2481 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2607 2482 for (int Yws=0; Yws<YNBS_spguv_now_dynspg; ++Yws){ 2608 Yspguv_now_dynspg (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2483 Yspguv_now_dynspg->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 2609 2484 }/*M2_YIOUT*/ 2610 2485 void Yio_spguv_now_dynspg(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2611 2486 { Yiorwf ("spguv_now_dynspg", Yws, Yw1, Yw2, Yw3, Ywt, &YS_spguv_now_dynspg(Yws, Yw1, Yw2, Ywt), val); 2612 }/*M 2_CREU*/2487 }/*M0_CREU*/ 2613 2488 void Ycreate_spguv_now_dynspg() 2614 2489 { 2615 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2616 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2617 if ((Yspguv_now_dynspg(Yw1, Yw2)= new spguv_now_dynspg ())==NULL) Ycreate_errnew();}} 2490 if ((Yspguv_now_dynspg = new spguv_now_dynspg ())==NULL) 2491 Ycreate_errnew(); 2618 2492 }/*M3_TBTOGT */ 2619 2493 void YtabTOgrad_ua_1_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2633 2507 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2634 2508 for (int Yws=0; Yws<YNBS_ua_1_dynspg_flt; ++Yws){ 2635 Yua_1_dynspg_flt (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2509 Yua_1_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2636 2510 }/*M3_SETAT*/ 2637 2511 void Ysetstate_ua_1_dynspg_flt(double val) … … 2642 2516 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2643 2517 for (int Yws=0; Yws<YNBS_ua_1_dynspg_flt; ++Yws){ 2644 Yua_1_dynspg_flt (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2518 Yua_1_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2645 2519 }/*M3_YIOUT*/ 2646 2520 void Yio_ua_1_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2647 2521 { Yiorwf ("ua_1_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua_1_dynspg_flt(Yws, Yw1, Yw2, Yw3, Ywt), val); 2648 }/*M 3_CREU*/2522 }/*M0_CREU*/ 2649 2523 void Ycreate_ua_1_dynspg_flt() 2650 2524 { 2651 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2652 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2653 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2654 if ((Yua_1_dynspg_flt(Yw1, Yw2, Yw3) = new ua_1_dynspg_flt ())==NULL) Ycreate_errnew();}}} 2525 if ((Yua_1_dynspg_flt = new ua_1_dynspg_flt ())==NULL) 2526 Ycreate_errnew(); 2655 2527 }/*M3_TBTOGT */ 2656 2528 void YtabTOgrad_va_1_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2670 2542 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2671 2543 for (int Yws=0; Yws<YNBS_va_1_dynspg_flt; ++Yws){ 2672 Yva_1_dynspg_flt (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2544 Yva_1_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2673 2545 }/*M3_SETAT*/ 2674 2546 void Ysetstate_va_1_dynspg_flt(double val) … … 2679 2551 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2680 2552 for (int Yws=0; Yws<YNBS_va_1_dynspg_flt; ++Yws){ 2681 Yva_1_dynspg_flt (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2553 Yva_1_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2682 2554 }/*M3_YIOUT*/ 2683 2555 void Yio_va_1_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2684 2556 { Yiorwf ("va_1_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va_1_dynspg_flt(Yws, Yw1, Yw2, Yw3, Ywt), val); 2685 }/*M 3_CREU*/2557 }/*M0_CREU*/ 2686 2558 void Ycreate_va_1_dynspg_flt() 2687 2559 { 2688 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2689 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2690 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2691 if ((Yva_1_dynspg_flt(Yw1, Yw2, Yw3) = new va_1_dynspg_flt ())==NULL) Ycreate_errnew();}}} 2560 if ((Yva_1_dynspg_flt = new va_1_dynspg_flt ())==NULL) 2561 Ycreate_errnew(); 2692 2562 }/*M2_TBTOGT */ 2693 2563 void YtabTOgrad_sum_spgu_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2705 2575 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2706 2576 for (int Yws=0; Yws<YNBS_sum_spgu_dynspg_flt; ++Yws){ 2707 Ysum_spgu_dynspg_flt (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2577 Ysum_spgu_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 2708 2578 }/*M2_SETAT*/ 2709 2579 void Ysetstate_sum_spgu_dynspg_flt(double val) … … 2713 2583 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2714 2584 for (int Yws=0; Yws<YNBS_sum_spgu_dynspg_flt; ++Yws){ 2715 Ysum_spgu_dynspg_flt (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2585 Ysum_spgu_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 2716 2586 }/*M2_YIOUT*/ 2717 2587 void Yio_sum_spgu_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2718 2588 { Yiorwf ("sum_spgu_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sum_spgu_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2719 }/*M 2_CREU*/2589 }/*M0_CREU*/ 2720 2590 void Ycreate_sum_spgu_dynspg_flt() 2721 2591 { 2722 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2723 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2724 if ((Ysum_spgu_dynspg_flt(Yw1, Yw2)= new sum_spgu_dynspg_flt ())==NULL) Ycreate_errnew();}} 2592 if ((Ysum_spgu_dynspg_flt = new sum_spgu_dynspg_flt ())==NULL) 2593 Ycreate_errnew(); 2725 2594 }/*M2_TBTOGT */ 2726 2595 void YtabTOgrad_sum_spgv_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2738 2607 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2739 2608 for (int Yws=0; Yws<YNBS_sum_spgv_dynspg_flt; ++Yws){ 2740 Ysum_spgv_dynspg_flt (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2609 Ysum_spgv_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 2741 2610 }/*M2_SETAT*/ 2742 2611 void Ysetstate_sum_spgv_dynspg_flt(double val) … … 2746 2615 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2747 2616 for (int Yws=0; Yws<YNBS_sum_spgv_dynspg_flt; ++Yws){ 2748 Ysum_spgv_dynspg_flt (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2617 Ysum_spgv_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 2749 2618 }/*M2_YIOUT*/ 2750 2619 void Yio_sum_spgv_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2751 2620 { Yiorwf ("sum_spgv_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sum_spgv_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2752 }/*M 2_CREU*/2621 }/*M0_CREU*/ 2753 2622 void Ycreate_sum_spgv_dynspg_flt() 2754 2623 { 2755 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2756 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2757 if ((Ysum_spgv_dynspg_flt(Yw1, Yw2)= new sum_spgv_dynspg_flt ())==NULL) Ycreate_errnew();}} 2624 if ((Ysum_spgv_dynspg_flt = new sum_spgv_dynspg_flt ())==NULL) 2625 Ycreate_errnew(); 2758 2626 }/*M2_TBTOGT */ 2759 2627 void YtabTOgrad_gcb_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2771 2639 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2772 2640 for (int Yws=0; Yws<YNBS_gcb_dynspg_flt; ++Yws){ 2773 Ygcb_dynspg_flt (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2641 Ygcb_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 2774 2642 }/*M2_SETAT*/ 2775 2643 void Ysetstate_gcb_dynspg_flt(double val) … … 2779 2647 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2780 2648 for (int Yws=0; Yws<YNBS_gcb_dynspg_flt; ++Yws){ 2781 Ygcb_dynspg_flt (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2649 Ygcb_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 2782 2650 }/*M2_YIOUT*/ 2783 2651 void Yio_gcb_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2784 2652 { Yiorwf ("gcb_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcb_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2785 }/*M 2_CREU*/2653 }/*M0_CREU*/ 2786 2654 void Ycreate_gcb_dynspg_flt() 2787 2655 { 2788 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2789 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2790 if ((Ygcb_dynspg_flt(Yw1, Yw2)= new gcb_dynspg_flt ())==NULL) Ycreate_errnew();}} 2656 if ((Ygcb_dynspg_flt = new gcb_dynspg_flt ())==NULL) 2657 Ycreate_errnew(); 2791 2658 }/*M2_TBTOGT */ 2792 2659 void YtabTOgrad_gcx_dynspg_flt(int frompdt, int topdt, YREAL tab[]) … … 2804 2671 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2805 2672 for (int Yws=0; Yws<YNBS_gcx_dynspg_flt; ++Yws){ 2806 Ygcx_dynspg_flt (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2673 Ygcx_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 2807 2674 }/*M2_SETAT*/ 2808 2675 void Ysetstate_gcx_dynspg_flt(double val) … … 2812 2679 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2813 2680 for (int Yws=0; Yws<YNBS_gcx_dynspg_flt; ++Yws){ 2814 Ygcx_dynspg_flt (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2681 Ygcx_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 2815 2682 }/*M2_YIOUT*/ 2816 2683 void Yio_gcx_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2817 2684 { Yiorwf ("gcx_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcx_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2818 }/*M 2_CREU*/2685 }/*M0_CREU*/ 2819 2686 void Ycreate_gcx_dynspg_flt() 2820 2687 { 2821 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2822 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2823 if ((Ygcx_dynspg_flt(Yw1, Yw2)= new gcx_dynspg_flt ())==NULL) Ycreate_errnew();}} 2824 }/*M2_TBTOGT */ 2825 void YtabTOgrad_solsor_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 2826 { 2827 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2828 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2829 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 2830 for (int Yws=0; Yws<YNBS_solsor_dynspg_flt; ++Yws){ 2831 YG_solsor_dynspg_flt(Yws, Yw1, Yw2, Ywt) = tab[Y3windice]; ++Y3windice;}}}} 2832 }/*M2_RGRADT*/ 2833 void Yrazgrad_solsor_dynspg_flt() 2834 { 2835 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2836 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2837 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2838 for (int Yws=0; Yws<YNBS_solsor_dynspg_flt; ++Yws){ 2839 Ysolsor_dynspg_flt(Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}} 2840 }/*M2_SETAT*/ 2841 void Ysetstate_solsor_dynspg_flt(double val) 2842 { 2843 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2844 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2845 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2846 for (int Yws=0; Yws<YNBS_solsor_dynspg_flt; ++Yws){ 2847 Ysolsor_dynspg_flt(Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}} 2848 }/*M2_YIOUT*/ 2849 void Yio_solsor_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2850 { Yiorwf ("solsor_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_solsor_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2851 }/*M2_CREU*/ 2852 void Ycreate_solsor_dynspg_flt() 2853 { 2854 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2855 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2856 if ((Ysolsor_dynspg_flt(Yw1, Yw2)= new solsor_dynspg_flt ())==NULL) Ycreate_errnew();}} 2688 if ((Ygcx_dynspg_flt = new gcx_dynspg_flt ())==NULL) 2689 Ycreate_errnew(); 2690 }/*M3_TBTOGT */ 2691 void YtabTOgrad_solsor_gx1_x_r(int frompdt, int topdt, YREAL tab[]) 2692 { 2693 for (int Yw1=0; Yw1<YA1_Ssolsor; ++Yw1){ 2694 for (int Yw2=0; Yw2<YA2_Ssolsor; ++Yw2){ 2695 for (int Yw3=0; Yw3<YA3_Ssolsor; ++Yw3){ 2696 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 2697 for (int Yws=0; Yws<YNBS_solsor_gx1_x_r; ++Yws){ 2698 YG_solsor_gx1_x_r(Yws, Yw1, Yw2, Yw3, Ywt) = tab[Y3windice]; ++Y3windice;}}}}} 2699 }/*M3_RGRADT*/ 2700 void Yrazgrad_solsor_gx1_x_r() 2701 { 2702 for (int Yw1=0; Yw1<YA1_Ssolsor; ++Yw1){ 2703 for (int Yw2=0; Yw2<YA2_Ssolsor; ++Yw2){ 2704 for (int Yw3=0; Yw3<YA3_Ssolsor; ++Yw3){ 2705 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2706 for (int Yws=0; Yws<YNBS_solsor_gx1_x_r; ++Yws){ 2707 Ysolsor_gx1_x_r->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2708 }/*M3_SETAT*/ 2709 void Ysetstate_solsor_gx1_x_r(double val) 2710 { 2711 for (int Yw1=0; Yw1<YA1_Ssolsor; ++Yw1){ 2712 for (int Yw2=0; Yw2<YA2_Ssolsor; ++Yw2){ 2713 for (int Yw3=0; Yw3<YA3_Ssolsor; ++Yw3){ 2714 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2715 for (int Yws=0; Yws<YNBS_solsor_gx1_x_r; ++Yws){ 2716 Ysolsor_gx1_x_r->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2717 }/*M3_YIOUT*/ 2718 void Yio_solsor_gx1_x_r(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2719 { Yiorwf ("solsor_gx1_x_r", Yws, Yw1, Yw2, Yw3, Ywt, &YS_solsor_gx1_x_r(Yws, Yw1, Yw2, Yw3, Ywt), val); 2720 }/*M0_CREU*/ 2721 void Ycreate_solsor_gx1_x_r() 2722 { 2723 if ((Ysolsor_gx1_x_r = new solsor_gx1_x_r ())==NULL) 2724 Ycreate_errnew(); 2725 }/*M3_TBTOGT */ 2726 void YtabTOgrad_solsor_gx2_x_r(int frompdt, int topdt, YREAL tab[]) 2727 { 2728 for (int Yw1=0; Yw1<YA1_Ssolsor; ++Yw1){ 2729 for (int Yw2=0; Yw2<YA2_Ssolsor; ++Yw2){ 2730 for (int Yw3=0; Yw3<YA3_Ssolsor; ++Yw3){ 2731 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 2732 for (int Yws=0; Yws<YNBS_solsor_gx2_x_r; ++Yws){ 2733 YG_solsor_gx2_x_r(Yws, Yw1, Yw2, Yw3, Ywt) = tab[Y3windice]; ++Y3windice;}}}}} 2734 }/*M3_RGRADT*/ 2735 void Yrazgrad_solsor_gx2_x_r() 2736 { 2737 for (int Yw1=0; Yw1<YA1_Ssolsor; ++Yw1){ 2738 for (int Yw2=0; Yw2<YA2_Ssolsor; ++Yw2){ 2739 for (int Yw3=0; Yw3<YA3_Ssolsor; ++Yw3){ 2740 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2741 for (int Yws=0; Yws<YNBS_solsor_gx2_x_r; ++Yws){ 2742 Ysolsor_gx2_x_r->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2743 }/*M3_SETAT*/ 2744 void Ysetstate_solsor_gx2_x_r(double val) 2745 { 2746 for (int Yw1=0; Yw1<YA1_Ssolsor; ++Yw1){ 2747 for (int Yw2=0; Yw2<YA2_Ssolsor; ++Yw2){ 2748 for (int Yw3=0; Yw3<YA3_Ssolsor; ++Yw3){ 2749 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2750 for (int Yws=0; Yws<YNBS_solsor_gx2_x_r; ++Yws){ 2751 Ysolsor_gx2_x_r->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2752 }/*M3_YIOUT*/ 2753 void Yio_solsor_gx2_x_r(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2754 { Yiorwf ("solsor_gx2_x_r", Yws, Yw1, Yw2, Yw3, Ywt, &YS_solsor_gx2_x_r(Yws, Yw1, Yw2, Yw3, Ywt), val); 2755 }/*M0_CREU*/ 2756 void Ycreate_solsor_gx2_x_r() 2757 { 2758 if ((Ysolsor_gx2_x_r = new solsor_gx2_x_r ())==NULL) 2759 Ycreate_errnew(); 2760 }/*M3_TBTOGT */ 2761 void YtabTOgrad_solsor_flag(int frompdt, int topdt, YREAL tab[]) 2762 { 2763 for (int Yw1=0; Yw1<YA1_Ssolsor; ++Yw1){ 2764 for (int Yw2=0; Yw2<YA2_Ssolsor; ++Yw2){ 2765 for (int Yw3=0; Yw3<YA3_Ssolsor; ++Yw3){ 2766 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 2767 for (int Yws=0; Yws<YNBS_solsor_flag; ++Yws){ 2768 YG_solsor_flag(Yws, Yw1, Yw2, Yw3, Ywt) = tab[Y3windice]; ++Y3windice;}}}}} 2769 }/*M3_RGRADT*/ 2770 void Yrazgrad_solsor_flag() 2771 { 2772 for (int Yw1=0; Yw1<YA1_Ssolsor; ++Yw1){ 2773 for (int Yw2=0; Yw2<YA2_Ssolsor; ++Yw2){ 2774 for (int Yw3=0; Yw3<YA3_Ssolsor; ++Yw3){ 2775 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2776 for (int Yws=0; Yws<YNBS_solsor_flag; ++Yws){ 2777 Ysolsor_flag->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2778 }/*M3_SETAT*/ 2779 void Ysetstate_solsor_flag(double val) 2780 { 2781 for (int Yw1=0; Yw1<YA1_Ssolsor; ++Yw1){ 2782 for (int Yw2=0; Yw2<YA2_Ssolsor; ++Yw2){ 2783 for (int Yw3=0; Yw3<YA3_Ssolsor; ++Yw3){ 2784 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2785 for (int Yws=0; Yws<YNBS_solsor_flag; ++Yws){ 2786 Ysolsor_flag->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2787 }/*M3_YIOUT*/ 2788 void Yio_solsor_flag(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2789 { Yiorwf ("solsor_flag", Yws, Yw1, Yw2, Yw3, Ywt, &YS_solsor_flag(Yws, Yw1, Yw2, Yw3, Ywt), val); 2790 }/*M0_CREU*/ 2791 void Ycreate_solsor_flag() 2792 { 2793 if ((Ysolsor_flag = new solsor_flag ())==NULL) 2794 Ycreate_errnew(); 2857 2795 }/*M2_TBTOGT */ 2858 2796 void YtabTOgrad_gcx2(int frompdt, int topdt, YREAL tab[]) 2859 2797 { 2860 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){2861 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2798 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2799 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 2862 2800 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 2863 2801 for (int Yws=0; Yws<YNBS_gcx2; ++Yws){ … … 2866 2804 void Yrazgrad_gcx2() 2867 2805 { 2868 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){2869 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2806 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2807 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 2870 2808 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2871 2809 for (int Yws=0; Yws<YNBS_gcx2; ++Yws){ 2872 Ygcx2 (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2810 Ygcx2->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 2873 2811 }/*M2_SETAT*/ 2874 2812 void Ysetstate_gcx2(double val) 2875 2813 { 2876 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){2877 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2814 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2815 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 2878 2816 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2879 2817 for (int Yws=0; Yws<YNBS_gcx2; ++Yws){ 2880 Ygcx2 (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2818 Ygcx2->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 2881 2819 }/*M2_YIOUT*/ 2882 2820 void Yio_gcx2(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2883 2821 { Yiorwf ("gcx2", Yws, Yw1, Yw2, Yw3, Ywt, &YS_gcx2(Yws, Yw1, Yw2, Ywt), val); 2884 }/*M 2_CREU*/2822 }/*M0_CREU*/ 2885 2823 void Ycreate_gcx2() 2886 2824 { 2887 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2888 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2889 if ((Ygcx2(Yw1, Yw2)= new gcx2 ())==NULL) Ycreate_errnew();}} 2825 if ((Ygcx2 = new gcx2 ())==NULL) 2826 Ycreate_errnew(); 2890 2827 }/*M2_TBTOGT */ 2891 2828 void YtabTOgrad_spguv_dynspg_flt(int frompdt, int topdt, YREAL tab[]) 2892 2829 { 2893 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){2894 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2830 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2831 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 2895 2832 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 2896 2833 for (int Yws=0; Yws<YNBS_spguv_dynspg_flt; ++Yws){ … … 2899 2836 void Yrazgrad_spguv_dynspg_flt() 2900 2837 { 2901 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){2902 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2838 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2839 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 2903 2840 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2904 2841 for (int Yws=0; Yws<YNBS_spguv_dynspg_flt; ++Yws){ 2905 Yspguv_dynspg_flt (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2842 Yspguv_dynspg_flt->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 2906 2843 }/*M2_SETAT*/ 2907 2844 void Ysetstate_spguv_dynspg_flt(double val) 2908 2845 { 2909 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){2910 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2846 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2847 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 2911 2848 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2912 2849 for (int Yws=0; Yws<YNBS_spguv_dynspg_flt; ++Yws){ 2913 Yspguv_dynspg_flt (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2850 Yspguv_dynspg_flt->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 2914 2851 }/*M2_YIOUT*/ 2915 2852 void Yio_spguv_dynspg_flt(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2916 2853 { Yiorwf ("spguv_dynspg_flt", Yws, Yw1, Yw2, Yw3, Ywt, &YS_spguv_dynspg_flt(Yws, Yw1, Yw2, Ywt), val); 2917 }/*M 2_CREU*/2854 }/*M0_CREU*/ 2918 2855 void Ycreate_spguv_dynspg_flt() 2919 2856 { 2920 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2921 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2922 if ((Yspguv_dynspg_flt(Yw1, Yw2)= new spguv_dynspg_flt ())==NULL) Ycreate_errnew();}} 2857 if ((Yspguv_dynspg_flt = new spguv_dynspg_flt ())==NULL) 2858 Ycreate_errnew(); 2923 2859 }/*M3_TBTOGT */ 2924 2860 void YtabTOgrad_ua(int frompdt, int topdt, YREAL tab[]) 2925 2861 { 2926 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){2927 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2928 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){2862 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2863 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 2864 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 2929 2865 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 2930 2866 for (int Yws=0; Yws<YNBS_ua; ++Yws){ … … 2933 2869 void Yrazgrad_ua() 2934 2870 { 2935 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){2936 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2937 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){2871 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2872 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 2873 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 2938 2874 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2939 2875 for (int Yws=0; Yws<YNBS_ua; ++Yws){ 2940 Yua (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2876 Yua->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2941 2877 }/*M3_SETAT*/ 2942 2878 void Ysetstate_ua(double val) 2943 2879 { 2944 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){2945 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2946 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){2880 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2881 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 2882 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 2947 2883 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2948 2884 for (int Yws=0; Yws<YNBS_ua; ++Yws){ 2949 Yua (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2885 Yua->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2950 2886 }/*M3_YIOUT*/ 2951 2887 void Yio_ua(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2952 2888 { Yiorwf ("ua", Yws, Yw1, Yw2, Yw3, Ywt, &YS_ua(Yws, Yw1, Yw2, Yw3, Ywt), val); 2953 }/*M 3_CREU*/2889 }/*M0_CREU*/ 2954 2890 void Ycreate_ua() 2955 2891 { 2956 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2957 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2958 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2959 if ((Yua(Yw1, Yw2, Yw3) = new ua ())==NULL) Ycreate_errnew();}}} 2892 if ((Yua = new ua ())==NULL) 2893 Ycreate_errnew(); 2960 2894 }/*M3_TBTOGT */ 2961 2895 void YtabTOgrad_va(int frompdt, int topdt, YREAL tab[]) 2962 2896 { 2963 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){2964 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2965 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){2897 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2898 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 2899 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 2966 2900 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 2967 2901 for (int Yws=0; Yws<YNBS_va; ++Yws){ … … 2970 2904 void Yrazgrad_va() 2971 2905 { 2972 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){2973 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2974 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){2906 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2907 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 2908 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 2975 2909 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2976 2910 for (int Yws=0; Yws<YNBS_va; ++Yws){ 2977 Yva (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}2911 Yva->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 2978 2912 }/*M3_SETAT*/ 2979 2913 void Ysetstate_va(double val) 2980 2914 { 2981 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){2982 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2983 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){2915 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2916 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 2917 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 2984 2918 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 2985 2919 for (int Yws=0; Yws<YNBS_va; ++Yws){ 2986 Yva (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}2920 Yva->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 2987 2921 }/*M3_YIOUT*/ 2988 2922 void Yio_va(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 2989 2923 { Yiorwf ("va", Yws, Yw1, Yw2, Yw3, Ywt, &YS_va(Yws, Yw1, Yw2, Yw3, Ywt), val); 2990 }/*M 3_CREU*/2924 }/*M0_CREU*/ 2991 2925 void Ycreate_va() 2992 2926 { 2993 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 2994 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 2995 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 2996 if ((Yva(Yw1, Yw2, Yw3) = new va ())==NULL) Ycreate_errnew();}}} 2927 if ((Yva = new va ())==NULL) 2928 Ycreate_errnew(); 2997 2929 }/*M2_TBTOGT */ 2998 2930 void YtabTOgrad_sshn(int frompdt, int topdt, YREAL tab[]) 2999 2931 { 3000 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3001 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2932 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2933 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3002 2934 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 3003 2935 for (int Yws=0; Yws<YNBS_sshn; ++Yws){ … … 3006 2938 void Yrazgrad_sshn() 3007 2939 { 3008 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3009 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2940 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2941 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3010 2942 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3011 2943 for (int Yws=0; Yws<YNBS_sshn; ++Yws){ 3012 Ysshn (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2944 Ysshn->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 3013 2945 }/*M2_SETAT*/ 3014 2946 void Ysetstate_sshn(double val) 3015 2947 { 3016 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3017 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2948 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2949 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3018 2950 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3019 2951 for (int Yws=0; Yws<YNBS_sshn; ++Yws){ 3020 Ysshn (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2952 Ysshn->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 3021 2953 }/*M2_YIOUT*/ 3022 2954 void Yio_sshn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 3023 2955 { Yiorwf ("sshn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_sshn(Yws, Yw1, Yw2, Ywt), val); 3024 }/*M 2_CREU*/2956 }/*M0_CREU*/ 3025 2957 void Ycreate_sshn() 3026 2958 { 3027 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 3028 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 3029 if ((Ysshn(Yw1, Yw2)= new sshn ())==NULL) Ycreate_errnew();}} 2959 if ((Ysshn = new sshn ())==NULL) 2960 Ycreate_errnew(); 3030 2961 }/*M2_TBTOGT */ 3031 2962 void YtabTOgrad_sshb(int frompdt, int topdt, YREAL tab[]) 3032 2963 { 3033 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3034 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2964 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2965 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3035 2966 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 3036 2967 for (int Yws=0; Yws<YNBS_sshb; ++Yws){ … … 3039 2970 void Yrazgrad_sshb() 3040 2971 { 3041 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3042 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2972 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2973 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3043 2974 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3044 2975 for (int Yws=0; Yws<YNBS_sshb; ++Yws){ 3045 Ysshb (Yw1, Yw2)->Ygrad[Ywt][Yws] = 0.0;}}}}2976 Ysshb->Ygrad[Ywt][Yw1][Yw2][Yws] = 0.0;}}}} 3046 2977 }/*M2_SETAT*/ 3047 2978 void Ysetstate_sshb(double val) 3048 2979 { 3049 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3050 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){2980 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 2981 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3051 2982 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3052 2983 for (int Yws=0; Yws<YNBS_sshb; ++Yws){ 3053 Ysshb (Yw1, Yw2)->Ystate[Ywt][Yws] = val;}}}}2984 Ysshb->Ystate[Ywt][Yw1][Yw2][Yws] = val;}}}} 3054 2985 }/*M2_YIOUT*/ 3055 2986 void Yio_sshb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 3061 2992 Yaobs.imod = Yimod("sshb"); 3062 2993 Yaobs.smod = Yws;/*M2_OUTOBT*/ 3063 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1)3064 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2)2994 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1) 2995 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2) 3065 2996 { if(select_io(yiokind, "sshb", Yws, Yw1, Yw2, -1, Ywt, &Ystate_sshb(Yws, Yw1, Yw2, Ywt))) 3066 2997 { Yaobs.iaxe = Yw1; Yaobs.jaxe = Yw2; Yaobs.kaxe = -1; … … 3070 3001 }/*M9_OUTOB*/ 3071 3002 return(1); 3072 }/*M 2_CREU*/3003 }/*M0_CREU*/ 3073 3004 void Ycreate_sshb() 3074 3005 { 3075 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 3076 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 3077 if ((Ysshb(Yw1, Yw2)= new sshb ())==NULL) Ycreate_errnew();}} 3006 if ((Ysshb = new sshb ())==NULL) 3007 Ycreate_errnew(); 3078 3008 }/*M2_SWISH*/ 3079 3009 void Ysetwish_sshb(double val) 3080 3010 { 3081 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3082 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3011 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3012 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3083 3013 for (int Yws=0; Yws<YNBS_sshb; ++Yws){ 3084 3014 Ywish_sshb(Yws, Yw1, Yw2) = val;}}} … … 3086 3016 void YtabTOgrad_ub(int frompdt, int topdt, YREAL tab[]) 3087 3017 { 3088 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3089 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3090 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3018 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3019 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3020 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3091 3021 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 3092 3022 for (int Yws=0; Yws<YNBS_ub; ++Yws){ … … 3095 3025 void Yrazgrad_ub() 3096 3026 { 3097 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3098 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3099 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3027 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3028 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3029 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3100 3030 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3101 3031 for (int Yws=0; Yws<YNBS_ub; ++Yws){ 3102 Yub (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}3032 Yub->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 3103 3033 }/*M3_SETAT*/ 3104 3034 void Ysetstate_ub(double val) 3105 3035 { 3106 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3107 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3108 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3036 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3037 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3038 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3109 3039 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3110 3040 for (int Yws=0; Yws<YNBS_ub; ++Yws){ 3111 Yub (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}3041 Yub->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 3112 3042 }/*M3_YIOUT*/ 3113 3043 void Yio_ub(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 3119 3049 Yaobs.imod = Yimod("ub"); 3120 3050 Yaobs.smod = Yws;/*M3_OUTOBT*/ 3121 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1)3122 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2)3123 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3)3051 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1) 3052 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2) 3053 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3) 3124 3054 { if(select_io(yiokind, "ub", Yws, Yw1, Yw2, Yw3, Ywt, &Ystate_ub(Yws, Yw1, Yw2, Yw3, Ywt))) 3125 3055 { Yaobs.iaxe = Yw1; Yaobs.jaxe = Yw2; Yaobs.kaxe = Yw3; … … 3129 3059 }/*M9_OUTOB*/ 3130 3060 return(1); 3131 }/*M 3_CREU*/3061 }/*M0_CREU*/ 3132 3062 void Ycreate_ub() 3133 3063 { 3134 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 3135 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 3136 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 3137 if ((Yub(Yw1, Yw2, Yw3) = new ub ())==NULL) Ycreate_errnew();}}} 3064 if ((Yub = new ub ())==NULL) 3065 Ycreate_errnew(); 3138 3066 }/*M3_SWISH*/ 3139 3067 void Ysetwish_ub(double val) 3140 3068 { 3141 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3142 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3143 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3069 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3070 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3071 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3144 3072 for (int Yws=0; Yws<YNBS_ub; ++Yws){ 3145 3073 Ywish_ub(Yws, Yw1, Yw2, Yw3) = val;}}}} … … 3147 3075 void YtabTOgrad_vb(int frompdt, int topdt, YREAL tab[]) 3148 3076 { 3149 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3150 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3151 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3077 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3078 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3079 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3152 3080 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 3153 3081 for (int Yws=0; Yws<YNBS_vb; ++Yws){ … … 3156 3084 void Yrazgrad_vb() 3157 3085 { 3158 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3159 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3160 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3086 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3087 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3088 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3161 3089 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3162 3090 for (int Yws=0; Yws<YNBS_vb; ++Yws){ 3163 Yvb (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}3091 Yvb->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 3164 3092 }/*M3_SETAT*/ 3165 3093 void Ysetstate_vb(double val) 3166 3094 { 3167 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3168 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3169 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3095 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3096 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3097 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3170 3098 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3171 3099 for (int Yws=0; Yws<YNBS_vb; ++Yws){ 3172 Yvb (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}3100 Yvb->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 3173 3101 }/*M3_YIOUT*/ 3174 3102 void Yio_vb(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 3180 3108 Yaobs.imod = Yimod("vb"); 3181 3109 Yaobs.smod = Yws;/*M3_OUTOBT*/ 3182 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1)3183 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2)3184 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3)3110 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1) 3111 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2) 3112 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3) 3185 3113 { if(select_io(yiokind, "vb", Yws, Yw1, Yw2, Yw3, Ywt, &Ystate_vb(Yws, Yw1, Yw2, Yw3, Ywt))) 3186 3114 { Yaobs.iaxe = Yw1; Yaobs.jaxe = Yw2; Yaobs.kaxe = Yw3; … … 3190 3118 }/*M9_OUTOB*/ 3191 3119 return(1); 3192 }/*M 3_CREU*/3120 }/*M0_CREU*/ 3193 3121 void Ycreate_vb() 3194 3122 { 3195 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 3196 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 3197 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 3198 if ((Yvb(Yw1, Yw2, Yw3) = new vb ())==NULL) Ycreate_errnew();}}} 3123 if ((Yvb = new vb ())==NULL) 3124 Ycreate_errnew(); 3199 3125 }/*M3_SWISH*/ 3200 3126 void Ysetwish_vb(double val) 3201 3127 { 3202 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3203 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3204 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3128 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3129 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3130 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3205 3131 for (int Yws=0; Yws<YNBS_vb; ++Yws){ 3206 3132 Ywish_vb(Yws, Yw1, Yw2, Yw3) = val;}}}} … … 3208 3134 void YtabTOgrad_hdivn(int frompdt, int topdt, YREAL tab[]) 3209 3135 { 3210 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3211 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3212 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3136 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3137 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3138 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3213 3139 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 3214 3140 for (int Yws=0; Yws<YNBS_hdivn; ++Yws){ … … 3217 3143 void Yrazgrad_hdivn() 3218 3144 { 3219 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3220 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3221 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3145 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3146 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3147 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3222 3148 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3223 3149 for (int Yws=0; Yws<YNBS_hdivn; ++Yws){ 3224 Yhdivn (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}3150 Yhdivn->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 3225 3151 }/*M3_SETAT*/ 3226 3152 void Ysetstate_hdivn(double val) 3227 3153 { 3228 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3229 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3230 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3154 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3155 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3156 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3231 3157 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3232 3158 for (int Yws=0; Yws<YNBS_hdivn; ++Yws){ 3233 Yhdivn (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}3159 Yhdivn->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 3234 3160 }/*M3_YIOUT*/ 3235 3161 void Yio_hdivn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 3236 3162 { Yiorwf ("hdivn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_hdivn(Yws, Yw1, Yw2, Yw3, Ywt), val); 3237 }/*M 3_CREU*/3163 }/*M0_CREU*/ 3238 3164 void Ycreate_hdivn() 3239 3165 { 3240 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 3241 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 3242 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 3243 if ((Yhdivn(Yw1, Yw2, Yw3) = new hdivn ())==NULL) Ycreate_errnew();}}} 3166 if ((Yhdivn = new hdivn ())==NULL) 3167 Ycreate_errnew(); 3244 3168 }/*M3_TBTOGT */ 3245 3169 void YtabTOgrad_rotn(int frompdt, int topdt, YREAL tab[]) 3246 3170 { 3247 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3248 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3249 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3171 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3172 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3173 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3250 3174 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 3251 3175 for (int Yws=0; Yws<YNBS_rotn; ++Yws){ … … 3254 3178 void Yrazgrad_rotn() 3255 3179 { 3256 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3257 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3258 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3180 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3181 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3182 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3259 3183 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3260 3184 for (int Yws=0; Yws<YNBS_rotn; ++Yws){ 3261 Yrotn (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}3185 Yrotn->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 3262 3186 }/*M3_SETAT*/ 3263 3187 void Ysetstate_rotn(double val) 3264 3188 { 3265 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3266 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3267 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3189 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3190 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3191 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3268 3192 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3269 3193 for (int Yws=0; Yws<YNBS_rotn; ++Yws){ 3270 Yrotn (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}3194 Yrotn->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 3271 3195 }/*M3_YIOUT*/ 3272 3196 void Yio_rotn(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 3273 3197 { Yiorwf ("rotn", Yws, Yw1, Yw2, Yw3, Ywt, &YS_rotn(Yws, Yw1, Yw2, Yw3, Ywt), val); 3274 }/*M 3_CREU*/3198 }/*M0_CREU*/ 3275 3199 void Ycreate_rotn() 3276 3200 { 3277 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 3278 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 3279 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 3280 if ((Yrotn(Yw1, Yw2, Yw3) = new rotn ())==NULL) Ycreate_errnew();}}} 3201 if ((Yrotn = new rotn ())==NULL) 3202 Ycreate_errnew(); 3281 3203 }/*M3_TBTOGT */ 3282 3204 void YtabTOgrad_wa(int frompdt, int topdt, YREAL tab[]) 3283 3205 { 3284 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3285 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3286 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3206 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3207 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3208 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3287 3209 for (int Ywt=frompdt; Ywt<topdt; ++Ywt){ 3288 3210 for (int Yws=0; Yws<YNBS_wa; ++Yws){ … … 3291 3213 void Yrazgrad_wa() 3292 3214 { 3293 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3294 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3295 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3215 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3216 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3217 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3296 3218 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3297 3219 for (int Yws=0; Yws<YNBS_wa; ++Yws){ 3298 Ywa (Yw1, Yw2, Yw3)->Ygrad[Ywt][Yws] = 0.0;}}}}}3220 Ywa->Ygrad[Ywt][Yw1][Yw2][Yw3][Yws] = 0.0;}}}}} 3299 3221 }/*M3_SETAT*/ 3300 3222 void Ysetstate_wa(double val) 3301 3223 { 3302 for (int Yw1=0; Yw1<YA1_S3dt ; ++Yw1){3303 for (int Yw2=0; Yw2<YA2_S3dt ; ++Yw2){3304 for (int Yw3=0; Yw3<YA3_S3dt ; ++Yw3){3224 for (int Yw1=0; Yw1<YA1_S3dt_b; ++Yw1){ 3225 for (int Yw2=0; Yw2<YA2_S3dt_b; ++Yw2){ 3226 for (int Yw3=0; Yw3<YA3_S3dt_b; ++Yw3){ 3305 3227 for (int Ywt=0; Ywt<YNBALLTIME_Tsbd; ++Ywt){ 3306 3228 for (int Yws=0; Yws<YNBS_wa; ++Yws){ 3307 Ywa (Yw1, Yw2, Yw3)->Ystate[Ywt][Yws] = val;}}}}}3229 Ywa->Ystate[Ywt][Yw1][Yw2][Yw3][Yws] = val;}}}}} 3308 3230 }/*M3_YIOUT*/ 3309 3231 void Yio_wa(int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) 3310 3232 { Yiorwf ("wa", Yws, Yw1, Yw2, Yw3, Ywt, &YS_wa(Yws, Yw1, Yw2, Yw3, Ywt), val); 3311 }/*M 3_CREU*/3233 }/*M0_CREU*/ 3312 3234 void Ycreate_wa() 3313 3235 { 3314 for (int Yw1=0; Yw1<YA1_S3dt; ++Yw1){ 3315 for (int Yw2=0; Yw2<YA2_S3dt; ++Yw2){ 3316 for (int Yw3=0; Yw3<YA3_S3dt; ++Yw3){ 3317 if ((Ywa(Yw1, Yw2, Yw3) = new wa ())==NULL) Ycreate_errnew();}}} 3236 if ((Ywa = new wa ())==NULL) 3237 Ycreate_errnew(); 3318 3238 } 3319 3239 void Ycreate_all () … … 3394 3314 Ycreate_gcb_dynspg_flt (); 3395 3315 Ycreate_gcx_dynspg_flt (); 3396 Ycreate_solsor_dynspg_flt (); 3316 Ycreate_solsor_gx1_x_r (); 3317 Ycreate_solsor_gx2_x_r (); 3318 Ycreate_solsor_flag (); 3397 3319 Ycreate_gcx2 (); 3398 3320 Ycreate_spguv_dynspg_flt (); … … 3530 3452 Yrazgrad_gcb_dynspg_flt (); 3531 3453 Yrazgrad_gcx_dynspg_flt (); 3532 Yrazgrad_solsor_dynspg_flt (); 3454 Yrazgrad_solsor_gx1_x_r (); 3455 Yrazgrad_solsor_gx2_x_r (); 3456 Yrazgrad_solsor_flag (); 3533 3457 Yrazgrad_gcx2 (); 3534 3458 Yrazgrad_spguv_dynspg_flt (); … … 3703 3627 if (!strcmp(nmmod, "gcx_dynspg_flt") || all) 3704 3628 { Ysetstate_gcx_dynspg_flt(val);codret=1;} 3705 if (!strcmp(nmmod, "solsor_dynspg_flt") || all) 3706 { Ysetstate_solsor_dynspg_flt(val);codret=1;} 3629 if (!strcmp(nmmod, "solsor_gx1_x_r") || all) 3630 { Ysetstate_solsor_gx1_x_r(val);codret=1;} 3631 if (!strcmp(nmmod, "solsor_gx2_x_r") || all) 3632 { Ysetstate_solsor_gx2_x_r(val);codret=1;} 3633 if (!strcmp(nmmod, "solsor_flag") || all) 3634 { Ysetstate_solsor_flag(val);codret=1;} 3707 3635 if (!strcmp(nmmod, "gcx2") || all) 3708 3636 { Ysetstate_gcx2(val);codret=1;} … … 3734 3662 else if (imod==38) Ysetwish_tb(val); 3735 3663 else if (imod==39) Ysetwish_sb(val); 3736 else if (imod==8 1) Ysetwish_sshb(val);3737 else if (imod==8 2) Ysetwish_ub(val);3738 else if (imod==8 3) Ysetwish_vb(val);3664 else if (imod==83) Ysetwish_sshb(val); 3665 else if (imod==84) Ysetwish_ub(val); 3666 else if (imod==85) Ysetwish_vb(val); 3739 3667 } 3740 3668 void Yio_mod (char *nmmod, int Yws, int Yw1, int Yw2, int Yw3, int Ywt, double val) … … 3816 3744 else if (strcmp(nmmod, "gcb_dynspg_flt") == 0) Yio_gcb_dynspg_flt(Yws, Yw1, Yw2, Yw3, Ywt, val); 3817 3745 else if (strcmp(nmmod, "gcx_dynspg_flt") == 0) Yio_gcx_dynspg_flt(Yws, Yw1, Yw2, Yw3, Ywt, val); 3818 else if (strcmp(nmmod, "solsor_dynspg_flt") == 0) Yio_solsor_dynspg_flt(Yws, Yw1, Yw2, Yw3, Ywt, val); 3746 else if (strcmp(nmmod, "solsor_gx1_x_r") == 0) Yio_solsor_gx1_x_r(Yws, Yw1, Yw2, Yw3, Ywt, val); 3747 else if (strcmp(nmmod, "solsor_gx2_x_r") == 0) Yio_solsor_gx2_x_r(Yws, Yw1, Yw2, Yw3, Ywt, val); 3748 else if (strcmp(nmmod, "solsor_flag") == 0) Yio_solsor_flag(Yws, Yw1, Yw2, Yw3, Ywt, val); 3819 3749 else if (strcmp(nmmod, "gcx2") == 0) Yio_gcx2(Yws, Yw1, Yw2, Yw3, Ywt, val); 3820 3750 else if (strcmp(nmmod, "spguv_dynspg_flt") == 0) Yio_spguv_dynspg_flt(Yws, Yw1, Yw2, Yw3, Ywt, val); … … 3872 3802 { 3873 3803 Yting[0]=YS1_tb( Yi, Yj, 0, YTemps-1); 3874 Ysbcgyre_qsr_qns (Yi, Yj)->forward( Yting[0] );3875 Ysbcgyre_emp1 (Yi, Yj)->forward();3804 Ysbcgyre_qsr_qns->forward( Yting[0] ); 3805 Ysbcgyre_emp1->forward(); 3876 3806 if (1==0 || Yi-1<0) 3877 3807 Yting[0]=0; … … 3891 3821 Yting[3]=YS2_sbcgyre_zsumemp_zsurf( 31, Yj-1, YTemps); 3892 3822 Yting[4]=YS1_sbcgyre_emp1( Yi, Yj, YTemps); 3893 Ysbcgyre_zsumemp_zsurf (Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );3823 Ysbcgyre_zsumemp_zsurf->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 3894 3824 3895 3825 } … … 3900 3830 Yting[1]=YS1_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 3901 3831 Yting[2]=YS2_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 3902 Ysbcgyre_emp (Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] );3832 Ysbcgyre_emp->forward( Yting[0], Yting[1], Yting[2] ); 3903 3833 Yting[0]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 3904 Ysbcgyre_emps (Yi, Yj)->forward( Yting[0] );3905 Ysbcgyre_utau_vtau (Yi, Yj)->forward();3834 Ysbcgyre_emps->forward( Yting[0] ); 3835 Ysbcgyre_utau_vtau->forward(); 3906 3836 if (1==0 || Yi-1<0) 3907 3837 Yting[0]=0; … … 3914 3844 Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 3915 3845 Yting[3]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 3916 Ysbcgyre_wndm(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 3917 3918 } 3919 #pragma omp parallel for num_threads(16) 3920 for(YY=0; YY<YA3_S3dt; ++YY){ 3921 Yk=YY; 3846 Ysbcgyre_wndm->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 3847 3848 } 3849 for(Yk=0; Yk<YA3_S3dt; ++Yk) 3922 3850 for(Yj=0; Yj<YA2_S3dt; ++Yj) 3923 3851 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 3933 3861 else 3934 3862 Yting[3]=YS1_sb( Yi, Yj, Yk-1, YTemps-1); 3935 Ybn2_rn2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 3936 3937 } 3938 } 3939 #pragma omp parallel for num_threads(16) 3940 for(YY=0; YY<YA3_S3dt; ++YY){ 3941 Yk=YY; 3863 Ybn2_rn2->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 3864 3865 } 3866 for(Yk=0; Yk<YA3_S3dt; ++Yk) 3942 3867 for(Yj=0; Yj<YA2_S3dt; ++Yj) 3943 3868 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4004 3929 else 4005 3930 Yting[18]=YS1_va( Yi+1, Yj, 1, YTemps-1); 4006 Yzdf_avt_avmu_avmv(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8], Yting[9], Yting[10], Yting[11], Yting[12], Yting[13], Yting[14], Yting[15], Yting[16], Yting[17], Yting[18] ); 4007 4008 } 4009 } 4010 #pragma omp parallel for num_threads(16) 4011 for(YY=0; YY<YA2_S3dt; ++YY){ 4012 Yj=YY; 3931 Yzdf_avt_avmu_avmv->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8], Yting[9], Yting[10], Yting[11], Yting[12], Yting[13], Yting[14], Yting[15], Yting[16], Yting[17], Yting[18] ); 3932 3933 } 3934 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4013 3935 for(Yi=0; Yi<YA1_S3dt; ++Yi) 4014 3936 { … … 4044 3966 Yting[29]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 29, YTemps); 4045 3967 Yting[30]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 30, YTemps); 4046 Yzdfmxl_hmld (Yi, Yj)->forward();3968 Yzdfmxl_hmld->forward(); 4047 3969 Yting[0]=YS1_rhop( Yi, Yj, 0, YTemps-1); 4048 3970 Yting[1]=YS1_rhop( Yi, Yj, 1, YTemps-1); … … 4076 3998 Yting[29]=YS1_rhop( Yi, Yj, 29, YTemps-1); 4077 3999 Yting[30]=YS1_rhop( Yi, Yj, 30, YTemps-1); 4078 Yzdfmxl_nmln_hmlp_hmlpt(Yi, Yj)->forward(); 4079 4080 } 4081 } 4082 #pragma omp parallel for num_threads(16) 4083 for(YY=0; YY<YA2_S3dt; ++YY){ 4084 Yj=YY; 4000 Yzdfmxl_nmln_hmlp_hmlpt->forward(); 4001 4002 } 4003 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4085 4004 for(Yi=0; Yi<YA1_S3dt; ++Yi) 4086 4005 { … … 4088 4007 Yting[1]=YS1_sbcgyre_emps( Yi, Yj, YTemps); 4089 4008 Yting[2]=YS1_sa( Yi, Yj, 0, YTemps-1); 4090 Yta_sa_trasbc(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 4091 4092 } 4093 } 4094 #pragma omp parallel for num_threads(16) 4095 for(YY=0; YY<YA3_S3dt; ++YY){ 4096 Yk=YY; 4009 Yta_sa_trasbc->forward( Yting[0], Yting[1], Yting[2] ); 4010 4011 } 4012 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4097 4013 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4098 4014 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4100 4016 Yting[0]=YS1_sbcgyre_qsr_qns( Yi, Yj, YTemps); 4101 4017 Yting[1]=YS1_ta_sa_trasbc( Yi, Yj, YTemps); 4102 Yta_traqsr(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4103 4104 } 4105 } 4106 #pragma omp parallel for num_threads(16) 4107 for(YY=0; YY<YA3_S3dt; ++YY){ 4108 Yk=YY; 4018 Yta_traqsr->forward( Yting[0], Yting[1] ); 4019 4020 } 4021 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4109 4022 { 4110 4023 for(Yj=0; Yj<YA2_S3dt; ++Yj) … … 4122 4035 else 4123 4036 Yting[4]=YS1_ta( Yi+1, Yj, Yk, YTemps-1); 4124 Yzcent_hor_traadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4037 Yzcent_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4125 4038 Yting[0]=YS1_ua( Yi, Yj, Yk, YTemps-1); 4126 4039 Yting[1]=YS1_va( Yi, Yj, Yk, YTemps-1); … … 4134 4047 else 4135 4048 Yting[4]=YS1_sa( Yi+1, Yj, Yk, YTemps-1); 4136 Yzcens_hor_traadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4049 Yzcens_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4137 4050 4138 4051 } … … 4151 4064 Yting[3]=YS2_zcent_hor_traadv_cen2( Yi, Yj-1, Yk, YTemps); 4152 4065 Yting[4]=YS2_zcent_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 4153 Yta_hor_traadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4066 Yta_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4154 4067 Yting[0]=YS2_ta_sa_trasbc( Yi, Yj, YTemps); 4155 4068 if (1==0 || Yi-1<0) … … 4163 4076 Yting[3]=YS2_zcens_hor_traadv_cen2( Yi, Yj-1, Yk, YTemps); 4164 4077 Yting[4]=YS2_zcens_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 4165 Ysa_hor_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4166 4167 } 4168 4169 } 4170 } 4171 #pragma omp parallel for num_threads(16) 4172 for(YY=0; YY<YA3_S3dt; ++YY){ 4173 Yk=YY; 4078 Ysa_hor_traadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4079 4080 } 4081 4082 } 4083 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4174 4084 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4175 4085 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4181 4091 else 4182 4092 Yting[2]=YS1_ta( Yi, Yj, Yk-1, YTemps-1); 4183 Yzcent_ver_traadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );4093 Yzcent_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 4184 4094 Yting[0]=YS1_wa( Yi, Yj, Yk, YTemps-1); 4185 4095 Yting[1]=YS1_sa( Yi, Yj, Yk, YTemps-1); … … 4188 4098 else 4189 4099 Yting[2]=YS1_sa( Yi, Yj, Yk-1, YTemps-1); 4190 Yzcens_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4191 4192 } 4193 } 4194 #pragma omp parallel for num_threads(16) 4195 for(YY=0; YY<YA3_S3dt; ++YY){ 4196 Yk=YY; 4100 Yzcens_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 4101 4102 } 4103 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4197 4104 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4198 4105 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4204 4111 else 4205 4112 Yting[2]=YS1_zcent_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 4206 Yta_ver_traadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );4113 Yta_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 4207 4114 Yting[0]=YS1_sa_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 4208 4115 Yting[1]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk, YTemps); … … 4211 4118 else 4212 4119 Yting[2]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 4213 Ysa_ver_traadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4214 4215 } 4216 } 4217 #pragma omp parallel for num_threads(16) 4218 for(YY=0; YY<YA3_S3dt; ++YY){ 4219 Yk=YY; 4120 Ysa_ver_traadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 4121 4122 } 4123 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4220 4124 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4221 4125 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4230 4134 else 4231 4135 Yting[2]=YS1_tb( Yi, Yj+1, Yk, YTemps-1); 4232 Yztuv_traldf_lap (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );4136 Yztuv_traldf_lap->forward( Yting[0], Yting[1], Yting[2] ); 4233 4137 Yting[0]=YS1_sb( Yi, Yj, Yk, YTemps-1); 4234 4138 if (1==0 || Yi+1>YA1_S3dt-1) … … 4240 4144 else 4241 4145 Yting[2]=YS1_sb( Yi, Yj+1, Yk, YTemps-1); 4242 Yzsuv_traldf_lap (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );4146 Yzsuv_traldf_lap->forward( Yting[0], Yting[1], Yting[2] ); 4243 4147 Yting[0]=YS1_ta_ver_traadv_cen2( Yi, Yj, Yk, YTemps); 4244 4148 Yting[1]=YS1_ztuv_traldf_lap( Yi, Yj, Yk, YTemps); … … 4252 4156 else 4253 4157 Yting[4]=YS2_ztuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 4254 Yta_traldf_lap (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4158 Yta_traldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4255 4159 Yting[0]=YS1_sa_ver_traadv_cen2( Yi, Yj, Yk, YTemps); 4256 4160 Yting[1]=YS1_zsuv_traldf_lap( Yi, Yj, Yk, YTemps); … … 4264 4168 else 4265 4169 Yting[4]=YS2_zsuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 4266 Ysa_traldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4267 4268 } 4269 } 4270 #pragma omp parallel for num_threads(16) 4271 for(YY=0; YY<YA3_S3dt; ++YY){ 4272 Yk=YY; 4170 Ysa_traldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4171 4172 } 4173 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4273 4174 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4274 4175 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4279 4180 else 4280 4181 Yting[1]=YS1_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 4281 Yzwisd_trazdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );4182 Yzwisd_trazdf_imp->forward( Yting[0], Yting[1] ); 4282 4183 Yting[0]=YS1_ta_traldf_lap( Yi, Yj, Yk, YTemps); 4283 4184 Yting[1]=YS1_tb( Yi, Yj, Yk, YTemps-1); 4284 Yzrhs_trazdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );4185 Yzrhs_trazdf_imp->forward( Yting[0], Yting[1] ); 4285 4186 Yting[0]=YS1_sa_traldf_lap( Yi, Yj, Yk, YTemps); 4286 4187 Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps-1); 4287 Yzrhs_sa_trazdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4288 4289 } 4188 Yzrhs_sa_trazdf_imp->forward( Yting[0], Yting[1] ); 4189 4290 4190 } 4291 4191 for(Yk=0; Yk<YA3_S3dt; ++Yk) … … 4303 4203 else 4304 4204 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 4305 Yzwt_trazdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4205 Yzwt_trazdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4306 4206 Yting[0]=YS1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 4307 4207 if (1==0 || Yk-1<0) … … 4314 4214 else 4315 4215 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 4316 Yta_de_trazdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4216 Yta_de_trazdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4317 4217 Yting[0]=YS1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 4318 4218 if (1==0 || Yk-1<0) … … 4325 4225 else 4326 4226 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 4327 Ysa_de_trazdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4227 Ysa_de_trazdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4328 4228 4329 4229 } … … 4340 4240 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk, YTemps); 4341 4241 Yting[4]=YS1_ta_c( Yi, Yj, Yk); 4342 Yta (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4242 Yta->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4343 4243 Yting[0]=YS2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps); 4344 4244 if (1==0 || Yk+1>YA3_S3dt-1) … … 4349 4249 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk, YTemps); 4350 4250 Yting[4]=YS1_sa_c( Yi, Yj, Yk); 4351 Ysa(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4352 4353 } 4354 #pragma omp parallel for num_threads(16) 4355 for(YY=0; YY<YA3_S3dt; ++YY){ 4356 Yk=YY; 4251 Ysa->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4252 4253 } 4254 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4357 4255 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4358 4256 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4362 4260 Yting[2]=YS1_ta( Yi, Yj, Yk, YTemps); 4363 4261 Yting[3]=YS1_ta_c( Yi, Yj, Yk); 4364 Ytb (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4262 Ytb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4365 4263 Yting[0]=YS1_sb( Yi, Yj, Yk, YTemps-1); 4366 4264 Yting[1]=YS1_sa( Yi, Yj, Yk, YTemps-1); 4367 4265 Yting[2]=YS1_sa( Yi, Yj, Yk, YTemps); 4368 4266 Yting[3]=YS1_sa_c( Yi, Yj, Yk); 4369 Ysb(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4370 4371 } 4372 } 4373 #pragma omp parallel for num_threads(16) 4374 for(YY=0; YY<YA3_S3dt; ++YY){ 4375 Yk=YY; 4267 Ysb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4268 4269 } 4270 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4376 4271 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4377 4272 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4379 4274 Yting[0]=YS1_tb( Yi, Yj, Yk, YTemps); 4380 4275 Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps); 4381 Yrhd (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );4276 Yrhd->forward( Yting[0], Yting[1] ); 4382 4277 Yting[0]=YS1_rhd( Yi, Yj, Yk, YTemps); 4383 Yrhop(Yi, Yj, Yk)->forward( Yting[0] ); 4384 4385 } 4386 } 4387 #pragma omp parallel for num_threads(16) 4388 for(YY=0; YY<YA3_S3dt; ++YY){ 4389 Yk=YY; 4278 Yrhop->forward( Yting[0] ); 4279 4280 } 4281 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4390 4282 { 4391 4283 for(Yj=0; Yj<YA2_S3dt; ++Yj) … … 4410 4302 else 4411 4303 Yting[5]=YS1_va( Yi, Yj+1, Yk, YTemps-1); 4412 Yhmf_TF_dynadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] );4304 Yhmf_TF_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] ); 4413 4305 4414 4306 } … … 4426 4318 else 4427 4319 Yting[3]=YS2_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 4428 Yzua_dhmf_dynadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4320 Yzua_dhmf_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4429 4321 Yting[0]=YS3_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps); 4430 4322 if (1==0 || Yi-1<0) … … 4437 4329 else 4438 4330 Yting[3]=YS4_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 4439 Yzva_dhmf_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4440 4441 } 4442 4443 } 4444 } 4445 #pragma omp parallel for num_threads(16) 4446 for(YY=0; YY<YA3_S3dt; ++YY){ 4447 Yk=YY; 4331 Yzva_dhmf_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4332 4333 } 4334 4335 } 4336 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4448 4337 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4449 4338 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4468 4357 else 4469 4358 Yting[6]=YS1_va( Yi, Yj, Yk-1, YTemps-1); 4470 Yzfuv_UW_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 4471 4472 } 4473 } 4474 #pragma omp parallel for num_threads(16) 4475 for(YY=0; YY<YA3_S3dt; ++YY){ 4476 Yk=YY; 4359 Yzfuv_UW_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 4360 4361 } 4362 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4477 4363 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4478 4364 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4484 4370 Yting[1]=YS1_zfuv_UW_dynadv_cen2( Yi, Yj, Yk+1, YTemps); 4485 4371 Yting[2]=YS1_zua_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 4486 Yua_dynadv_cen2 (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );4372 Yua_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 4487 4373 Yting[0]=YS2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk, YTemps); 4488 4374 if (1==0 || Yk+1>YA3_S3dt-1) … … 4491 4377 Yting[1]=YS2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk+1, YTemps); 4492 4378 Yting[2]=YS1_zva_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 4493 Yva_dynadv_cen2(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4494 4495 } 4496 } 4497 #pragma omp parallel for num_threads(16) 4498 for(YY=0; YY<YA3_S3dt; ++YY){ 4499 Yk=YY; 4379 Yva_dynadv_cen2->forward( Yting[0], Yting[1], Yting[2] ); 4380 4381 } 4382 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4500 4383 { 4501 4384 for(Yj=0; Yj<YA2_S3dt; ++Yj) … … 4512 4395 else 4513 4396 Yting[3]=YS1_va( Yi+1, Yj, Yk, YTemps-1); 4514 Yzwxyz_vor_ene (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4397 Yzwxyz_vor_ene->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4515 4398 4516 4399 } … … 4537 4420 else 4538 4421 Yting[6]=YS2_zwxyz_vor_ene( Yi+1, Yj, Yk, YTemps); 4539 Yua_vor_ene (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );4422 Yua_vor_ene->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 4540 4423 Yting[0]=YS1_va_dynadv_cen2( Yi, Yj, Yk, YTemps); 4541 4424 if (1==0 || Yi-1<0) … … 4557 4440 else 4558 4441 Yting[6]=YS1_zwxyz_vor_ene( Yi, Yj+1, Yk, YTemps); 4559 Yva_vor_ene (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );4442 Yva_vor_ene->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 4560 4443 Yting[0]=YS1_ua_vor_ene( Yi, Yj, Yk, YTemps); 4561 4444 if (1==0 || Yj-1<0) … … 4569 4452 else 4570 4453 Yting[4]=YS1_hdivn( Yi+1, Yj, Yk, YTemps-2); 4571 Yua_dyn_ldf_lap (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );4454 Yua_dyn_ldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4572 4455 Yting[0]=YS1_va_vor_ene( Yi, Yj, Yk, YTemps); 4573 4456 if (1==0 || Yi-1<0) … … 4581 4464 else 4582 4465 Yting[4]=YS1_hdivn( Yi, Yj+1, Yk, YTemps-2); 4583 Yva_dyn_ldf_lap(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4584 4585 } 4586 4587 } 4466 Yva_dyn_ldf_lap->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 4467 4468 } 4469 4588 4470 } 4589 4471 for(Yk=0; Yk<YA3_S3dt; ++Yk) … … 4620 4502 else 4621 4503 Yting[7]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk-1, YTemps); 4622 Yzhpij_dyn_hpg_zco (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] );4504 Yzhpij_dyn_hpg_zco->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 4623 4505 Yting[0]=YS1_ua_dyn_ldf_lap( Yi, Yj, Yk, YTemps); 4624 4506 Yting[1]=YS1_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 4625 Yua_dyn_hpg_zco (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );4507 Yua_dyn_hpg_zco->forward( Yting[0], Yting[1] ); 4626 4508 Yting[0]=YS1_va_dyn_ldf_lap( Yi, Yj, Yk, YTemps); 4627 4509 Yting[1]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 4628 Yva_dyn_hpg_zco(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4629 4630 } 4631 #pragma omp parallel for num_threads(16) 4632 for(YY=0; YY<YA3_S3dt; ++YY){ 4633 Yk=YY; 4510 Yva_dyn_hpg_zco->forward( Yting[0], Yting[1] ); 4511 4512 } 4513 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4634 4514 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4635 4515 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4640 4520 else 4641 4521 Yting[1]=YS2_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 4642 Yzwisd_ua_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );4522 Yzwisd_ua_dynzdf_imp->forward( Yting[0], Yting[1] ); 4643 4523 Yting[0]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps); 4644 4524 if (1==0 || Yk+1>YA3_S3dt-1) … … 4646 4526 else 4647 4527 Yting[1]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 4648 Yzwisd_va_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );4528 Yzwisd_va_dynzdf_imp->forward( Yting[0], Yting[1] ); 4649 4529 Yting[0]=YS1_ua_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 4650 4530 Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 4651 4531 Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 4652 Yzrhs_ua_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );4532 Yzrhs_ua_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2] ); 4653 4533 Yting[0]=YS1_va_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 4654 4534 Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 4655 4535 Yting[2]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 4656 Yzrhs_va_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4657 4658 } 4536 Yzrhs_va_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2] ); 4537 4659 4538 } 4660 4539 for(Yk=0; Yk<YA3_S3dt; ++Yk) … … 4672 4551 else 4673 4552 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 4674 Yzwt_ua_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4553 Yzwt_ua_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4675 4554 Yting[0]=YS1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 4676 4555 if (1==0 || Yk-1<0) … … 4683 4562 else 4684 4563 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 4685 Yua_de_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4564 Yua_de_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4686 4565 Yting[0]=YS1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4687 4566 if (1==0 || Yk-1<0) … … 4694 4573 else 4695 4574 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 4696 Yzwt_va_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4575 Yzwt_va_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4697 4576 Yting[0]=YS1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4698 4577 if (1==0 || Yk-1<0) … … 4705 4584 else 4706 4585 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 4707 Yva_de_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4586 Yva_de_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4708 4587 4709 4588 } … … 4719 4598 Yting[2]=YS1_ua_de_dynzdf_imp( Yi, Yj, Yk, YTemps); 4720 4599 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 4721 Yua_dynzdf_imp (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4600 Yua_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4722 4601 Yting[0]=YS2_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4723 4602 if (1==0 || Yk+1>YA3_S3dt-1) … … 4727 4606 Yting[2]=YS1_va_de_dynzdf_imp( Yi, Yj, Yk, YTemps); 4728 4607 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4729 Yva_dynzdf_imp(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4730 4731 } 4732 #pragma omp parallel for num_threads(16) 4733 for(YY=0; YY<YA3_S3dt; ++YY){ 4734 Yk=YY; 4608 Yva_dynzdf_imp->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4609 4610 } 4611 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4735 4612 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4736 4613 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4738 4615 Yting[0]=YS1_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 4739 4616 Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 4740 Yua_norm_dynzdf (Yi, Yj, Yk)->forward( Yting[0], Yting[1] );4617 Yua_norm_dynzdf->forward( Yting[0], Yting[1] ); 4741 4618 Yting[0]=YS1_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 4742 4619 Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 4743 Yva_norm_dynzdf(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4744 4745 } 4746 } 4747 #pragma omp parallel for num_threads(16) 4748 for(YY=0; YY<YA2_S3dt; ++YY){ 4749 Yj=YY; 4620 Yva_norm_dynzdf->forward( Yting[0], Yting[1] ); 4621 4622 } 4623 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4750 4624 for(Yi=0; Yi<YA1_S3dt; ++Yi) 4751 4625 { … … 4759 4633 else 4760 4634 Yting[2]=YS1_sshn( Yi+1, Yj, YTemps-1); 4761 Yspguv_now_dynspg(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 4762 4763 } 4764 } 4765 #pragma omp parallel for num_threads(16) 4766 for(YY=0; YY<YA3_S3dt; ++YY){ 4767 Yk=YY; 4635 Yspguv_now_dynspg->forward( Yting[0], Yting[1], Yting[2] ); 4636 4637 } 4638 for(Yk=0; Yk<YA3_S3dt; ++Yk) 4768 4639 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4769 4640 for(Yi=0; Yi<YA1_S3dt; ++Yi) … … 4772 4643 Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 4773 4644 Yting[2]=YS1_spguv_now_dynspg( Yi, Yj, YTemps); 4774 Yua_1_dynspg_flt (Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] );4645 Yua_1_dynspg_flt->forward( Yting[0], Yting[1], Yting[2] ); 4775 4646 Yting[0]=YS1_va_norm_dynzdf( Yi, Yj, Yk, YTemps); 4776 4647 Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 4777 4648 Yting[2]=YS2_spguv_now_dynspg( Yi, Yj, YTemps); 4778 Yva_1_dynspg_flt(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4779 4780 } 4781 } 4782 #pragma omp parallel for num_threads(16) 4783 for(YY=0; YY<YA2_S3dt; ++YY){ 4784 Yj=YY; 4649 Yva_1_dynspg_flt->forward( Yting[0], Yting[1], Yting[2] ); 4650 4651 } 4652 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4785 4653 for(Yi=0; Yi<YA1_S3dt; ++Yi) 4786 4654 { … … 4816 4684 Yting[29]=YS1_ua_1_dynspg_flt( Yi, Yj, 29, YTemps); 4817 4685 Yting[30]=YS1_ua_1_dynspg_flt( Yi, Yj, 30, YTemps); 4818 Ysum_spgu_dynspg_flt (Yi, Yj)->forward();4686 Ysum_spgu_dynspg_flt->forward(); 4819 4687 Yting[0]=YS1_va_1_dynspg_flt( Yi, Yj, 0, YTemps); 4820 4688 Yting[1]=YS1_va_1_dynspg_flt( Yi, Yj, 1, YTemps); … … 4848 4716 Yting[29]=YS1_va_1_dynspg_flt( Yi, Yj, 29, YTemps); 4849 4717 Yting[30]=YS1_va_1_dynspg_flt( Yi, Yj, 30, YTemps); 4850 Ysum_spgv_dynspg_flt(Yi, Yj)->forward(); 4851 4852 } 4853 } 4854 #pragma omp parallel for num_threads(16) 4855 for(YY=0; YY<YA2_S3dt; ++YY){ 4856 Yj=YY; 4718 Ysum_spgv_dynspg_flt->forward(); 4719 4720 } 4721 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4857 4722 for(Yi=0; Yi<YA1_S3dt; ++Yi) 4858 4723 { … … 4867 4732 else 4868 4733 Yting[3]=YS1_sum_spgv_dynspg_flt( Yi, Yj-1, YTemps); 4869 Ygcb_dynspg_flt (Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] );4734 Ygcb_dynspg_flt->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 4870 4735 Yting[0]=YS1_gcx2( Yi, Yj, YTemps-1); 4871 4736 Yting[1]=YS1_gcx2( Yi, Yj, YTemps-2); 4872 Ygcx_dynspg_flt(Yi, Yj)->forward( Yting[0], Yting[1] ); 4873 4874 } 4875 } 4876 for(Yi=0; Yi<YA1_S3dt; ++Yi) 4877 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4878 { 4879 if (1==0 || Yi-1<0 || Yj-1<0) 4880 Yting[0]=0; 4881 else 4882 Yting[0]=YS1_gcx_dynspg_flt( Yi-1, Yj-1, YTemps); 4883 if (1==0 || Yi-1<0) 4884 Yting[1]=0; 4885 else 4886 Yting[1]=YS1_gcx_dynspg_flt( Yi-1, Yj, YTemps); 4887 if (1==0 || Yi-1<0 || Yj+1>YA2_S3dt-1) 4888 Yting[2]=0; 4889 else 4890 Yting[2]=YS1_gcx_dynspg_flt( Yi-1, Yj+1, YTemps); 4891 if (1==0 || Yj-1<0) 4892 Yting[3]=0; 4893 else 4894 Yting[3]=YS1_gcx_dynspg_flt( Yi, Yj-1, YTemps); 4895 Yting[4]=YS1_gcx_dynspg_flt( Yi, Yj, YTemps); 4896 if (1==0 || Yj+1>YA2_S3dt-1) 4897 Yting[5]=0; 4898 else 4899 Yting[5]=YS1_gcx_dynspg_flt( Yi, Yj+1, YTemps); 4900 if (1==0 || Yi+1>YA1_S3dt-1 || Yj-1<0) 4901 Yting[6]=0; 4902 else 4903 Yting[6]=YS1_gcx_dynspg_flt( Yi+1, Yj-1, YTemps); 4904 if (1==0 || Yi+1>YA1_S3dt-1) 4905 Yting[7]=0; 4906 else 4907 Yting[7]=YS1_gcx_dynspg_flt( Yi+1, Yj, YTemps); 4908 if (1==0 || Yi+1>YA1_S3dt-1 || Yj+1>YA2_S3dt-1) 4909 Yting[8]=0; 4910 else 4911 Yting[8]=YS1_gcx_dynspg_flt( Yi+1, Yj+1, YTemps); 4912 if (1==0 || Yi-1<0 || Yj-1<0) 4913 Yting[9]=0; 4914 else 4915 Yting[9]=YS1_gcb_dynspg_flt( Yi-1, Yj-1, YTemps); 4916 if (1==0 || Yi-1<0) 4917 Yting[10]=0; 4918 else 4919 Yting[10]=YS1_gcb_dynspg_flt( Yi-1, Yj, YTemps); 4920 if (1==0 || Yi-1<0 || Yj+1>YA2_S3dt-1) 4921 Yting[11]=0; 4922 else 4923 Yting[11]=YS1_gcb_dynspg_flt( Yi-1, Yj+1, YTemps); 4924 if (1==0 || Yj-1<0) 4925 Yting[12]=0; 4926 else 4927 Yting[12]=YS1_gcb_dynspg_flt( Yi, Yj-1, YTemps); 4928 Yting[13]=YS1_gcb_dynspg_flt( Yi, Yj, YTemps); 4929 if (1==0 || Yj+1>YA2_S3dt-1) 4930 Yting[14]=0; 4931 else 4932 Yting[14]=YS1_gcb_dynspg_flt( Yi, Yj+1, YTemps); 4933 if (1==0 || Yi+1>YA1_S3dt-1 || Yj-1<0) 4934 Yting[15]=0; 4935 else 4936 Yting[15]=YS1_gcb_dynspg_flt( Yi+1, Yj-1, YTemps); 4937 if (1==0 || Yi+1>YA1_S3dt-1) 4938 Yting[16]=0; 4939 else 4940 Yting[16]=YS1_gcb_dynspg_flt( Yi+1, Yj, YTemps); 4941 if (1==0 || Yi+1>YA1_S3dt-1 || Yj+1>YA2_S3dt-1) 4942 Yting[17]=0; 4943 else 4944 Yting[17]=YS1_gcb_dynspg_flt( Yi+1, Yj+1, YTemps); 4945 if (1==0 || Yi-1<0 || Yj-1<0) 4946 Yting[18]=0; 4947 else 4948 Yting[18]=YS1_solsor_dynspg_flt( Yi-1, Yj-1, YTemps); 4949 Ysolsor_dynspg_flt(Yi, Yj)->forward(); 4950 4951 } 4952 #pragma omp parallel for num_threads(16) 4953 for(YY=0; YY<YA2_S3dt; ++YY){ 4954 Yj=YY; 4955 for(Yi=0; Yi<YA1_S3dt; ++Yi) 4956 { 4957 Yting[0]=YS1_solsor_dynspg_flt( Yi, Yj, YTemps); 4958 Ygcx2(Yi, Yj)->forward(); 4959 4960 } 4961 } 4962 #pragma omp parallel for num_threads(16) 4963 for(YY=0; YY<YA2_S3dt; ++YY){ 4964 Yj=YY; 4965 for(Yi=0; Yi<YA1_S3dt; ++Yi) 4966 { 4967 if (1==0 || Yi+1>YA1_S3dt-1) 4968 Yting[0]=0; 4969 else 4970 Yting[0]=YS1_gcx2( Yi+1, Yj, YTemps); 4971 Yting[1]=YS1_gcx2( Yi, Yj, YTemps); 4972 if (1==0 || Yj+1>YA2_S3dt-1) 4973 Yting[2]=0; 4974 else 4975 Yting[2]=YS1_gcx2( Yi, Yj+1, YTemps); 4976 Yspguv_dynspg_flt(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2] ); 4977 4978 } 4979 } 4980 #pragma omp parallel for num_threads(16) 4981 for(YY=0; YY<YA3_S3dt; ++YY){ 4982 Yk=YY; 4983 for(Yj=0; Yj<YA2_S3dt; ++Yj) 4984 for(Yi=0; Yi<YA1_S3dt; ++Yi) 4985 { 4986 Yting[0]=YS1_ua_1_dynspg_flt( Yi, Yj, Yk, YTemps); 4987 Yting[1]=YS1_spguv_dynspg_flt( Yi, Yj, YTemps); 4988 Yting[2]=YS1_ua_c( Yi, Yj, Yk); 4989 Yua(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4990 Yting[0]=YS1_va_1_dynspg_flt( Yi, Yj, Yk, YTemps); 4991 Yting[1]=YS2_spguv_dynspg_flt( Yi, Yj, YTemps); 4992 Yting[2]=YS1_va_c( Yi, Yj, Yk); 4993 Yva(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2] ); 4994 4995 } 4996 } 4997 #pragma omp parallel for num_threads(16) 4998 for(YY=0; YY<YA2_S3dt; ++YY){ 4999 Yj=YY; 5000 for(Yi=0; Yi<YA1_S3dt; ++Yi) 5001 { 5002 Yting[0]=YS1_sshb( Yi, Yj, YTemps-1); 5003 Yting[1]=YS1_wa( Yi, Yj, 0, YTemps-1); 5004 Yting[2]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 5005 Yting[3]=YS1_sshn_c( Yi, Yj); 5006 Ysshn(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5007 Yting[0]=YS1_sshb( Yi, Yj, YTemps-1); 5008 Yting[1]=YS1_sshn( Yi, Yj, YTemps-1); 5009 Yting[2]=YS1_sshn( Yi, Yj, YTemps); 5010 Yting[3]=YS1_sshn_c( Yi, Yj); 5011 Ysshb(Yi, Yj)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5012 5013 } 5014 } 5015 #pragma omp parallel for num_threads(16) 5016 for(YY=0; YY<YA3_S3dt; ++YY){ 5017 Yk=YY; 5018 for(Yj=0; Yj<YA2_S3dt; ++Yj) 5019 for(Yi=0; Yi<YA1_S3dt; ++Yi) 5020 { 5021 Yting[0]=YS1_ub( Yi, Yj, Yk, YTemps-1); 5022 Yting[1]=YS1_ua( Yi, Yj, Yk, YTemps-1); 5023 Yting[2]=YS1_ua( Yi, Yj, Yk, YTemps); 5024 Yting[3]=YS1_ua_c( Yi, Yj, Yk); 5025 Yub(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5026 Yting[0]=YS1_vb( Yi, Yj, Yk, YTemps-1); 5027 Yting[1]=YS1_va( Yi, Yj, Yk, YTemps-1); 5028 Yting[2]=YS1_va( Yi, Yj, Yk, YTemps); 5029 Yting[3]=YS1_va_c( Yi, Yj, Yk); 5030 Yvb(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5031 5032 } 5033 } 5034 #pragma omp parallel for num_threads(16) 5035 for(YY=0; YY<YA3_S3dt; ++YY){ 5036 Yk=YY; 5037 for(Yj=0; Yj<YA2_S3dt; ++Yj) 5038 for(Yi=0; Yi<YA1_S3dt; ++Yi) 5039 { 5040 Yting[0]=YS1_ua( Yi, Yj, Yk, YTemps); 5041 if (1==0 || Yi-1<0) 5042 Yting[1]=0; 5043 else 5044 Yting[1]=YS1_ua( Yi-1, Yj, Yk, YTemps); 5045 Yting[2]=YS1_va( Yi, Yj, Yk, YTemps); 5046 if (1==0 || Yj-1<0) 5047 Yting[3]=0; 5048 else 5049 Yting[3]=YS1_va( Yi, Yj-1, Yk, YTemps); 5050 Yhdivn(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5051 if (1==0 || Yi+1>YA1_S3dt-1) 5052 Yting[0]=0; 5053 else 5054 Yting[0]=YS1_va( Yi+1, Yj, Yk, YTemps); 5055 Yting[1]=YS1_va( Yi, Yj, Yk, YTemps); 5056 if (1==0 || Yj+1>YA2_S3dt-1) 5057 Yting[2]=0; 5058 else 5059 Yting[2]=YS1_ua( Yi, Yj+1, Yk, YTemps); 5060 Yting[3]=YS1_ua( Yi, Yj, Yk, YTemps); 5061 Yrotn(Yi, Yj, Yk)->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5062 5063 } 5064 } 5065 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5066 for(Yj=0; Yj<YA2_S3dt; ++Yj) 5067 for(Yi=0; Yi<YA1_S3dt; ++Yi) 5068 { 5069 if (1==0 || Yk+1>YA3_S3dt-1) 5070 Yting[0]=0; 5071 else 5072 Yting[0]=YS1_wa( Yi, Yj, Yk+1, YTemps); 5073 Yting[1]=YS1_hdivn( Yi, Yj, Yk, YTemps); 5074 Ywa(Yi, Yj, Yk)->forward( Yting[0], Yting[1] ); 4737 Ygcx_dynspg_flt->forward( Yting[0], Yting[1] ); 5075 4738 5076 4739 } … … 5083 4746 YA1=32; YA2=22; YA3=31; 5084 4747 Yi=-1; Yj=-1; Yk=-1; /* init des indices de maille: maj par la boucle si valide*/ 5085 for(Yk=0; Yk<YA3_S3dt; ++Yk)5086 4748 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5087 for(Yi=YA1_S3dt-1; Yi>=0; --Yi)5088 {5089 if (1==0 || Yk+1>YA3_S3dt-1)5090 Yting[0]=0;5091 else5092 Yting[0]=YS1_wa( Yi, Yj, Yk+1, YTemps);5093 Yting[1]=YS1_hdivn( Yi, Yj, Yk, YTemps);5094 memset(Yjac, 0, 31*sizeof(double));5095 Ywa(Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5096 Yvsmatt (YNBS_wa, YNBI_wa, YMAX_JAC_NBI, &YG1Y_wa, Yjac[0], Ytbeta);5097 if (1==0 || Yk+1>YA3_S3dt-1){}5098 else5099 YG1_wa( Yi, Yj, Yk+1, YTemps) += Ytbeta[0];5100 YG1_hdivn( Yi, Yj, Yk, YTemps) += Ytbeta[1];5101 5102 }5103 #pragma omp parallel for num_threads(16)5104 for(YY=YA3_S3dt-1; YY>=0; --YY){5105 Yk=YY;5106 for(Yj=YA2_S3dt-1; Yj>=0; --Yj)5107 for(Yi=YA1_S3dt-1; Yi>=0; --Yi)5108 {5109 if (1==0 || Yi+1>YA1_S3dt-1)5110 Yting[0]=0;5111 else5112 Yting[0]=YS1_va( Yi+1, Yj, Yk, YTemps);5113 Yting[1]=YS1_va( Yi, Yj, Yk, YTemps);5114 if (1==0 || Yj+1>YA2_S3dt-1)5115 Yting[2]=0;5116 else5117 Yting[2]=YS1_ua( Yi, Yj+1, Yk, YTemps);5118 Yting[3]=YS1_ua( Yi, Yj, Yk, YTemps);5119 memset(Yjac, 0, 31*sizeof(double));5120 Yrotn(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5121 Yvsmatt (YNBS_rotn, YNBI_rotn, YMAX_JAC_NBI, &YG1Y_rotn, Yjac[0], Ytbeta);5122 if (1==0 || Yi+1>YA1_S3dt-1){}5123 else5124 YG1_va( Yi+1, Yj, Yk, YTemps) += Ytbeta[0];5125 YG1_va( Yi, Yj, Yk, YTemps) += Ytbeta[1];5126 if (1==0 || Yj+1>YA2_S3dt-1){}5127 else5128 YG1_ua( Yi, Yj+1, Yk, YTemps) += Ytbeta[2];5129 YG1_ua( Yi, Yj, Yk, YTemps) += Ytbeta[3];5130 Yting[0]=YS1_ua( Yi, Yj, Yk, YTemps);5131 if (1==0 || Yi-1<0)5132 Yting[1]=0;5133 else5134 Yting[1]=YS1_ua( Yi-1, Yj, Yk, YTemps);5135 Yting[2]=YS1_va( Yi, Yj, Yk, YTemps);5136 if (1==0 || Yj-1<0)5137 Yting[3]=0;5138 else5139 Yting[3]=YS1_va( Yi, Yj-1, Yk, YTemps);5140 memset(Yjac, 0, 31*sizeof(double));5141 Yhdivn(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5142 Yvsmatt (YNBS_hdivn, YNBI_hdivn, YMAX_JAC_NBI, &YG1Y_hdivn, Yjac[0], Ytbeta);5143 YG1_ua( Yi, Yj, Yk, YTemps) += Ytbeta[0];5144 if (1==0 || Yi-1<0){}5145 else5146 YG1_ua( Yi-1, Yj, Yk, YTemps) += Ytbeta[1];5147 YG1_va( Yi, Yj, Yk, YTemps) += Ytbeta[2];5148 if (1==0 || Yj-1<0){}5149 else5150 YG1_va( Yi, Yj-1, Yk, YTemps) += Ytbeta[3];5151 5152 }5153 }5154 #pragma omp parallel for num_threads(16)5155 for(YY=YA3_S3dt-1; YY>=0; --YY){5156 Yk=YY;5157 for(Yj=YA2_S3dt-1; Yj>=0; --Yj)5158 for(Yi=YA1_S3dt-1; Yi>=0; --Yi)5159 {5160 Yting[0]=YS1_vb( Yi, Yj, Yk, YTemps-1);5161 Yting[1]=YS1_va( Yi, Yj, Yk, YTemps-1);5162 Yting[2]=YS1_va( Yi, Yj, Yk, YTemps);5163 Yting[3]=YS1_va_c( Yi, Yj, Yk);5164 memset(Yjac, 0, 31*sizeof(double));5165 Yvb(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5166 Yvsmatt (YNBS_vb, YNBI_vb, YMAX_JAC_NBI, &YG1Y_vb, Yjac[0], Ytbeta);5167 YG1_vb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0];5168 YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[1];5169 YG1_va( Yi, Yj, Yk, YTemps) += Ytbeta[2];5170 YG1_va_c( Yi, Yj, Yk) += Ytbeta[3];5171 Yting[0]=YS1_ub( Yi, Yj, Yk, YTemps-1);5172 Yting[1]=YS1_ua( Yi, Yj, Yk, YTemps-1);5173 Yting[2]=YS1_ua( Yi, Yj, Yk, YTemps);5174 Yting[3]=YS1_ua_c( Yi, Yj, Yk);5175 memset(Yjac, 0, 31*sizeof(double));5176 Yub(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5177 Yvsmatt (YNBS_ub, YNBI_ub, YMAX_JAC_NBI, &YG1Y_ub, Yjac[0], Ytbeta);5178 YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[0];5179 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[1];5180 YG1_ua( Yi, Yj, Yk, YTemps) += Ytbeta[2];5181 YG1_ua_c( Yi, Yj, Yk) += Ytbeta[3];5182 5183 }5184 }5185 #pragma omp parallel for num_threads(16)5186 for(YY=YA2_S3dt-1; YY>=0; --YY){5187 Yj=YY;5188 for(Yi=YA1_S3dt-1; Yi>=0; --Yi)5189 {5190 Yting[0]=YS1_sshb( Yi, Yj, YTemps-1);5191 Yting[1]=YS1_sshn( Yi, Yj, YTemps-1);5192 Yting[2]=YS1_sshn( Yi, Yj, YTemps);5193 Yting[3]=YS1_sshn_c( Yi, Yj);5194 memset(Yjac, 0, 31*sizeof(double));5195 Ysshb(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5196 Yvsmatt (YNBS_sshb, YNBI_sshb, YMAX_JAC_NBI, &YG1Y_sshb, Yjac[0], Ytbeta);5197 YG1_sshb( Yi, Yj, YTemps-1) += Ytbeta[0];5198 YG1_sshn( Yi, Yj, YTemps-1) += Ytbeta[1];5199 YG1_sshn( Yi, Yj, YTemps) += Ytbeta[2];5200 YG1_sshn_c( Yi, Yj) += Ytbeta[3];5201 Yting[0]=YS1_sshb( Yi, Yj, YTemps-1);5202 Yting[1]=YS1_wa( Yi, Yj, 0, YTemps-1);5203 Yting[2]=YS1_sbcgyre_emp( Yi, Yj, YTemps);5204 Yting[3]=YS1_sshn_c( Yi, Yj);5205 memset(Yjac, 0, 31*sizeof(double));5206 Ysshn(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5207 Yvsmatt (YNBS_sshn, YNBI_sshn, YMAX_JAC_NBI, &YG1Y_sshn, Yjac[0], Ytbeta);5208 YG1_sshb( Yi, Yj, YTemps-1) += Ytbeta[0];5209 YG1_wa( Yi, Yj, 0, YTemps-1) += Ytbeta[1];5210 YG1_sbcgyre_emp( Yi, Yj, YTemps) += Ytbeta[2];5211 YG1_sshn_c( Yi, Yj) += Ytbeta[3];5212 5213 }5214 }5215 #pragma omp parallel for num_threads(16)5216 for(YY=YA3_S3dt-1; YY>=0; --YY){5217 Yk=YY;5218 for(Yj=YA2_S3dt-1; Yj>=0; --Yj)5219 for(Yi=YA1_S3dt-1; Yi>=0; --Yi)5220 {5221 Yting[0]=YS1_va_1_dynspg_flt( Yi, Yj, Yk, YTemps);5222 Yting[1]=YS2_spguv_dynspg_flt( Yi, Yj, YTemps);5223 Yting[2]=YS1_va_c( Yi, Yj, Yk);5224 memset(Yjac, 0, 31*sizeof(double));5225 Yva(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5226 Yvsmatt (YNBS_va, YNBI_va, YMAX_JAC_NBI, &YG1Y_va, Yjac[0], Ytbeta);5227 YG1_va_1_dynspg_flt( Yi, Yj, Yk, YTemps) += Ytbeta[0];5228 YG2_spguv_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[1];5229 YG1_va_c( Yi, Yj, Yk) += Ytbeta[2];5230 Yting[0]=YS1_ua_1_dynspg_flt( Yi, Yj, Yk, YTemps);5231 Yting[1]=YS1_spguv_dynspg_flt( Yi, Yj, YTemps);5232 Yting[2]=YS1_ua_c( Yi, Yj, Yk);5233 memset(Yjac, 0, 31*sizeof(double));5234 Yua(Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5235 Yvsmatt (YNBS_ua, YNBI_ua, YMAX_JAC_NBI, &YG1Y_ua, Yjac[0], Ytbeta);5236 YG1_ua_1_dynspg_flt( Yi, Yj, Yk, YTemps) += Ytbeta[0];5237 YG1_spguv_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[1];5238 YG1_ua_c( Yi, Yj, Yk) += Ytbeta[2];5239 5240 }5241 }5242 #pragma omp parallel for num_threads(16)5243 for(YY=YA2_S3dt-1; YY>=0; --YY){5244 Yj=YY;5245 for(Yi=YA1_S3dt-1; Yi>=0; --Yi)5246 {5247 if (1==0 || Yi+1>YA1_S3dt-1)5248 Yting[0]=0;5249 else5250 Yting[0]=YS1_gcx2( Yi+1, Yj, YTemps);5251 Yting[1]=YS1_gcx2( Yi, Yj, YTemps);5252 if (1==0 || Yj+1>YA2_S3dt-1)5253 Yting[2]=0;5254 else5255 Yting[2]=YS1_gcx2( Yi, Yj+1, YTemps);5256 memset(Yjac, 0, 62*sizeof(double));5257 Yspguv_dynspg_flt(Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] );5258 Yvsmatt (YNBS_spguv_dynspg_flt, YNBI_spguv_dynspg_flt, YMAX_JAC_NBI, &YG1Y_spguv_dynspg_flt, Yjac[0], Ytbeta);5259 if (1==0 || Yi+1>YA1_S3dt-1){}5260 else5261 YG1_gcx2( Yi+1, Yj, YTemps) += Ytbeta[0];5262 YG1_gcx2( Yi, Yj, YTemps) += Ytbeta[1];5263 if (1==0 || Yj+1>YA2_S3dt-1){}5264 else5265 #pragma omp atomic5266 YG1_gcx2( Yi, Yj+1, YTemps) += Ytbeta[2];5267 5268 }5269 }5270 #pragma omp parallel for num_threads(16)5271 for(YY=YA2_S3dt-1; YY>=0; --YY){5272 Yj=YY;5273 for(Yi=YA1_S3dt-1; Yi>=0; --Yi)5274 {5275 Yting[0]=YS1_solsor_dynspg_flt( Yi, Yj, YTemps);5276 memset(Yjac, 0, 31*sizeof(double));5277 Ygcx2(Yi, Yj)->backward();5278 Yvsmatt (YNBS_gcx2, YNBI_gcx2, YMAX_JAC_NBI, &YG1Y_gcx2, Yjac[0], Ytbeta);5279 YG1_solsor_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[0];5280 5281 }5282 }5283 for(Yi=YA1_S3dt-1; Yi>=0; --Yi)5284 for(Yj=YA2_S3dt-1; Yj>=0; --Yj)5285 {5286 if (1==0 || Yi-1<0 || Yj-1<0)5287 Yting[0]=0;5288 else5289 Yting[0]=YS1_gcx_dynspg_flt( Yi-1, Yj-1, YTemps);5290 if (1==0 || Yi-1<0)5291 Yting[1]=0;5292 else5293 Yting[1]=YS1_gcx_dynspg_flt( Yi-1, Yj, YTemps);5294 if (1==0 || Yi-1<0 || Yj+1>YA2_S3dt-1)5295 Yting[2]=0;5296 else5297 Yting[2]=YS1_gcx_dynspg_flt( Yi-1, Yj+1, YTemps);5298 if (1==0 || Yj-1<0)5299 Yting[3]=0;5300 else5301 Yting[3]=YS1_gcx_dynspg_flt( Yi, Yj-1, YTemps);5302 Yting[4]=YS1_gcx_dynspg_flt( Yi, Yj, YTemps);5303 if (1==0 || Yj+1>YA2_S3dt-1)5304 Yting[5]=0;5305 else5306 Yting[5]=YS1_gcx_dynspg_flt( Yi, Yj+1, YTemps);5307 if (1==0 || Yi+1>YA1_S3dt-1 || Yj-1<0)5308 Yting[6]=0;5309 else5310 Yting[6]=YS1_gcx_dynspg_flt( Yi+1, Yj-1, YTemps);5311 if (1==0 || Yi+1>YA1_S3dt-1)5312 Yting[7]=0;5313 else5314 Yting[7]=YS1_gcx_dynspg_flt( Yi+1, Yj, YTemps);5315 if (1==0 || Yi+1>YA1_S3dt-1 || Yj+1>YA2_S3dt-1)5316 Yting[8]=0;5317 else5318 Yting[8]=YS1_gcx_dynspg_flt( Yi+1, Yj+1, YTemps);5319 if (1==0 || Yi-1<0 || Yj-1<0)5320 Yting[9]=0;5321 else5322 Yting[9]=YS1_gcb_dynspg_flt( Yi-1, Yj-1, YTemps);5323 if (1==0 || Yi-1<0)5324 Yting[10]=0;5325 else5326 Yting[10]=YS1_gcb_dynspg_flt( Yi-1, Yj, YTemps);5327 if (1==0 || Yi-1<0 || Yj+1>YA2_S3dt-1)5328 Yting[11]=0;5329 else5330 Yting[11]=YS1_gcb_dynspg_flt( Yi-1, Yj+1, YTemps);5331 if (1==0 || Yj-1<0)5332 Yting[12]=0;5333 else5334 Yting[12]=YS1_gcb_dynspg_flt( Yi, Yj-1, YTemps);5335 Yting[13]=YS1_gcb_dynspg_flt( Yi, Yj, YTemps);5336 if (1==0 || Yj+1>YA2_S3dt-1)5337 Yting[14]=0;5338 else5339 Yting[14]=YS1_gcb_dynspg_flt( Yi, Yj+1, YTemps);5340 if (1==0 || Yi+1>YA1_S3dt-1 || Yj-1<0)5341 Yting[15]=0;5342 else5343 Yting[15]=YS1_gcb_dynspg_flt( Yi+1, Yj-1, YTemps);5344 if (1==0 || Yi+1>YA1_S3dt-1)5345 Yting[16]=0;5346 else5347 Yting[16]=YS1_gcb_dynspg_flt( Yi+1, Yj, YTemps);5348 if (1==0 || Yi+1>YA1_S3dt-1 || Yj+1>YA2_S3dt-1)5349 Yting[17]=0;5350 else5351 Yting[17]=YS1_gcb_dynspg_flt( Yi+1, Yj+1, YTemps);5352 if (1==0 || Yi-1<0 || Yj-1<0)5353 Yting[18]=0;5354 else5355 Yting[18]=YS1_solsor_dynspg_flt( Yi-1, Yj-1, YTemps);5356 memset(Yjac, 0, 31*sizeof(double));5357 Ysolsor_dynspg_flt(Yi, Yj)->backward();5358 Yvsmatt (YNBS_solsor_dynspg_flt, YNBI_solsor_dynspg_flt, YMAX_JAC_NBI, &YG1Y_solsor_dynspg_flt, Yjac[0], Ytbeta);5359 if (1==0 || Yi-1<0 || Yj-1<0){}5360 else5361 YG1_gcx_dynspg_flt( Yi-1, Yj-1, YTemps) += Ytbeta[0];5362 if (1==0 || Yi-1<0){}5363 else5364 YG1_gcx_dynspg_flt( Yi-1, Yj, YTemps) += Ytbeta[1];5365 if (1==0 || Yi-1<0 || Yj+1>YA2_S3dt-1){}5366 else5367 YG1_gcx_dynspg_flt( Yi-1, Yj+1, YTemps) += Ytbeta[2];5368 if (1==0 || Yj-1<0){}5369 else5370 YG1_gcx_dynspg_flt( Yi, Yj-1, YTemps) += Ytbeta[3];5371 YG1_gcx_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[4];5372 if (1==0 || Yj+1>YA2_S3dt-1){}5373 else5374 YG1_gcx_dynspg_flt( Yi, Yj+1, YTemps) += Ytbeta[5];5375 if (1==0 || Yi+1>YA1_S3dt-1 || Yj-1<0){}5376 else5377 YG1_gcx_dynspg_flt( Yi+1, Yj-1, YTemps) += Ytbeta[6];5378 if (1==0 || Yi+1>YA1_S3dt-1){}5379 else5380 YG1_gcx_dynspg_flt( Yi+1, Yj, YTemps) += Ytbeta[7];5381 if (1==0 || Yi+1>YA1_S3dt-1 || Yj+1>YA2_S3dt-1){}5382 else5383 YG1_gcx_dynspg_flt( Yi+1, Yj+1, YTemps) += Ytbeta[8];5384 if (1==0 || Yi-1<0 || Yj-1<0){}5385 else5386 YG1_gcb_dynspg_flt( Yi-1, Yj-1, YTemps) += Ytbeta[9];5387 if (1==0 || Yi-1<0){}5388 else5389 YG1_gcb_dynspg_flt( Yi-1, Yj, YTemps) += Ytbeta[10];5390 if (1==0 || Yi-1<0 || Yj+1>YA2_S3dt-1){}5391 else5392 YG1_gcb_dynspg_flt( Yi-1, Yj+1, YTemps) += Ytbeta[11];5393 if (1==0 || Yj-1<0){}5394 else5395 YG1_gcb_dynspg_flt( Yi, Yj-1, YTemps) += Ytbeta[12];5396 YG1_gcb_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[13];5397 if (1==0 || Yj+1>YA2_S3dt-1){}5398 else5399 YG1_gcb_dynspg_flt( Yi, Yj+1, YTemps) += Ytbeta[14];5400 if (1==0 || Yi+1>YA1_S3dt-1 || Yj-1<0){}5401 else5402 YG1_gcb_dynspg_flt( Yi+1, Yj-1, YTemps) += Ytbeta[15];5403 if (1==0 || Yi+1>YA1_S3dt-1){}5404 else5405 YG1_gcb_dynspg_flt( Yi+1, Yj, YTemps) += Ytbeta[16];5406 if (1==0 || Yi+1>YA1_S3dt-1 || Yj+1>YA2_S3dt-1){}5407 else5408 YG1_gcb_dynspg_flt( Yi+1, Yj+1, YTemps) += Ytbeta[17];5409 if (1==0 || Yi-1<0 || Yj-1<0){}5410 else5411 YG1_solsor_dynspg_flt( Yi-1, Yj-1, YTemps) += Ytbeta[18];5412 5413 }5414 #pragma omp parallel for num_threads(16)5415 for(YY=YA2_S3dt-1; YY>=0; --YY){5416 Yj=YY;5417 4749 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) 5418 4750 { … … 5420 4752 Yting[1]=YS1_gcx2( Yi, Yj, YTemps-2); 5421 4753 memset(Yjac, 0, 31*sizeof(double)); 5422 Ygcx_dynspg_flt (Yi, Yj)->backward( Yting[0], Yting[1] );4754 Ygcx_dynspg_flt->backward( Yting[0], Yting[1] ); 5423 4755 Yvsmatt (YNBS_gcx_dynspg_flt, YNBI_gcx_dynspg_flt, YMAX_JAC_NBI, &YG1Y_gcx_dynspg_flt, Yjac[0], Ytbeta); 5424 4756 YG1_gcx2( Yi, Yj, YTemps-1) += Ytbeta[0]; … … 5435 4767 Yting[3]=YS1_sum_spgv_dynspg_flt( Yi, Yj-1, YTemps); 5436 4768 memset(Yjac, 0, 31*sizeof(double)); 5437 Ygcb_dynspg_flt (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );4769 Ygcb_dynspg_flt->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5438 4770 Yvsmatt (YNBS_gcb_dynspg_flt, YNBI_gcb_dynspg_flt, YMAX_JAC_NBI, &YG1Y_gcb_dynspg_flt, Yjac[0], Ytbeta); 5439 4771 YG1_sum_spgu_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[0]; … … 5444 4776 if (1==0 || Yj-1<0){} 5445 4777 else 5446 #pragma omp atomic5447 4778 YG1_sum_spgv_dynspg_flt( Yi, Yj-1, YTemps) += Ytbeta[3]; 5448 4779 5449 4780 } 5450 } 5451 #pragma omp parallel for num_threads(16) 5452 for(YY=YA2_S3dt-1; YY>=0; --YY){ 5453 Yj=YY; 4781 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5454 4782 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) 5455 4783 { … … 5486 4814 Yting[30]=YS1_va_1_dynspg_flt( Yi, Yj, 30, YTemps); 5487 4815 memset(Yjac, 0, 31*sizeof(double)); 5488 Ysum_spgv_dynspg_flt (Yi, Yj)->backward();4816 Ysum_spgv_dynspg_flt->backward(); 5489 4817 Yvsmatt (YNBS_sum_spgv_dynspg_flt, YNBI_sum_spgv_dynspg_flt, YMAX_JAC_NBI, &YG1Y_sum_spgv_dynspg_flt, Yjac[0], Ytbeta); 5490 4818 YG1_va_1_dynspg_flt( Yi, Yj, 0, YTemps) += Ytbeta[0]; … … 5551 4879 Yting[30]=YS1_ua_1_dynspg_flt( Yi, Yj, 30, YTemps); 5552 4880 memset(Yjac, 0, 31*sizeof(double)); 5553 Ysum_spgu_dynspg_flt (Yi, Yj)->backward();4881 Ysum_spgu_dynspg_flt->backward(); 5554 4882 Yvsmatt (YNBS_sum_spgu_dynspg_flt, YNBI_sum_spgu_dynspg_flt, YMAX_JAC_NBI, &YG1Y_sum_spgu_dynspg_flt, Yjac[0], Ytbeta); 5555 4883 YG1_ua_1_dynspg_flt( Yi, Yj, 0, YTemps) += Ytbeta[0]; … … 5586 4914 5587 4915 } 5588 } 5589 #pragma omp parallel for num_threads(16) 5590 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5591 Yk=YY; 4916 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5592 4917 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5593 4918 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 5597 4922 Yting[2]=YS2_spguv_now_dynspg( Yi, Yj, YTemps); 5598 4923 memset(Yjac, 0, 31*sizeof(double)); 5599 Yva_1_dynspg_flt (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );4924 Yva_1_dynspg_flt->backward( Yting[0], Yting[1], Yting[2] ); 5600 4925 Yvsmatt (YNBS_va_1_dynspg_flt, YNBI_va_1_dynspg_flt, YMAX_JAC_NBI, &YG1Y_va_1_dynspg_flt, Yjac[0], Ytbeta); 5601 4926 YG1_va_norm_dynzdf( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5606 4931 Yting[2]=YS1_spguv_now_dynspg( Yi, Yj, YTemps); 5607 4932 memset(Yjac, 0, 31*sizeof(double)); 5608 Yua_1_dynspg_flt (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );4933 Yua_1_dynspg_flt->backward( Yting[0], Yting[1], Yting[2] ); 5609 4934 Yvsmatt (YNBS_ua_1_dynspg_flt, YNBI_ua_1_dynspg_flt, YMAX_JAC_NBI, &YG1Y_ua_1_dynspg_flt, Yjac[0], Ytbeta); 5610 4935 YG1_ua_norm_dynzdf( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5613 4938 5614 4939 } 5615 } 5616 #pragma omp parallel for num_threads(16) 5617 for(YY=YA2_S3dt-1; YY>=0; --YY){ 5618 Yj=YY; 4940 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5619 4941 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) 5620 4942 { … … 5629 4951 Yting[2]=YS1_sshn( Yi+1, Yj, YTemps-1); 5630 4952 memset(Yjac, 0, 62*sizeof(double)); 5631 Yspguv_now_dynspg (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] );4953 Yspguv_now_dynspg->backward( Yting[0], Yting[1], Yting[2] ); 5632 4954 Yvsmatt (YNBS_spguv_now_dynspg, YNBI_spguv_now_dynspg, YMAX_JAC_NBI, &YG1Y_spguv_now_dynspg, Yjac[0], Ytbeta); 5633 4955 YG1_sshn( Yi, Yj, YTemps-1) += Ytbeta[0]; 5634 4956 if (1==0 || Yj+1>YA2_S3dt-1){} 5635 4957 else 5636 #pragma omp atomic5637 4958 YG1_sshn( Yi, Yj+1, YTemps-1) += Ytbeta[1]; 5638 4959 if (1==0 || Yi+1>YA1_S3dt-1){} … … 5641 4962 5642 4963 } 5643 } 5644 #pragma omp parallel for num_threads(16) 5645 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5646 Yk=YY; 4964 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5647 4965 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5648 4966 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 5651 4969 Yting[1]=YS1_vb( Yi, Yj, Yk, YTemps-1); 5652 4970 memset(Yjac, 0, 31*sizeof(double)); 5653 Yva_norm_dynzdf (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );4971 Yva_norm_dynzdf->backward( Yting[0], Yting[1] ); 5654 4972 Yvsmatt (YNBS_va_norm_dynzdf, YNBI_va_norm_dynzdf, YMAX_JAC_NBI, &YG1Y_va_norm_dynzdf, Yjac[0], Ytbeta); 5655 4973 YG1_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5658 4976 Yting[1]=YS1_ub( Yi, Yj, Yk, YTemps-1); 5659 4977 memset(Yjac, 0, 31*sizeof(double)); 5660 Yua_norm_dynzdf (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );4978 Yua_norm_dynzdf->backward( Yting[0], Yting[1] ); 5661 4979 Yvsmatt (YNBS_ua_norm_dynzdf, YNBI_ua_norm_dynzdf, YMAX_JAC_NBI, &YG1Y_ua_norm_dynzdf, Yjac[0], Ytbeta); 5662 4980 YG1_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5663 4981 YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 5664 4982 5665 }5666 4983 } 5667 4984 for(Yk=0; Yk<YA3_S3dt; ++Yk) … … 5677 4994 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk, YTemps); 5678 4995 memset(Yjac, 0, 31*sizeof(double)); 5679 Yva_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );4996 Yva_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5680 4997 Yvsmatt (YNBS_va_dynzdf_imp, YNBI_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_va_dynzdf_imp, Yjac[0], Ytbeta); 5681 4998 YG2_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5693 5010 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk, YTemps); 5694 5011 memset(Yjac, 0, 31*sizeof(double)); 5695 Yua_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5012 Yua_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5696 5013 Yvsmatt (YNBS_ua_dynzdf_imp, YNBI_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_ua_dynzdf_imp, Yjac[0], Ytbeta); 5697 5014 YG2_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5718 5035 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 5719 5036 memset(Yjac, 0, 31*sizeof(double)); 5720 Yva_de_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5037 Yva_de_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5721 5038 Yvsmatt (YNBS_va_de_dynzdf_imp, YNBI_va_de_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_va_de_dynzdf_imp, Yjac[0], Ytbeta); 5722 5039 YG1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5739 5056 Yting[3]=YS1_zwt_va_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 5740 5057 memset(Yjac, 0, 31*sizeof(double)); 5741 Yzwt_va_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5058 Yzwt_va_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5742 5059 Yvsmatt (YNBS_zwt_va_dynzdf_imp, YNBI_zwt_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_va_dynzdf_imp, Yjac[0], Ytbeta); 5743 5060 YG1_zwisd_va_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5760 5077 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 5761 5078 memset(Yjac, 0, 31*sizeof(double)); 5762 Yua_de_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5079 Yua_de_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5763 5080 Yvsmatt (YNBS_ua_de_dynzdf_imp, YNBI_ua_de_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_ua_de_dynzdf_imp, Yjac[0], Ytbeta); 5764 5081 YG1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5781 5098 Yting[3]=YS1_zwt_ua_dynzdf_imp( Yi, Yj, Yk-1, YTemps); 5782 5099 memset(Yjac, 0, 31*sizeof(double)); 5783 Yzwt_ua_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5100 Yzwt_ua_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 5784 5101 Yvsmatt (YNBS_zwt_ua_dynzdf_imp, YNBI_zwt_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_ua_dynzdf_imp, Yjac[0], Ytbeta); 5785 5102 YG1_zwisd_ua_dynzdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5793 5110 5794 5111 } 5795 #pragma omp parallel for num_threads(16) 5796 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5797 Yk=YY; 5112 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5798 5113 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 5799 5114 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 5803 5118 Yting[2]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 5804 5119 memset(Yjac, 0, 31*sizeof(double)); 5805 Yzrhs_va_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5120 Yzrhs_va_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2] ); 5806 5121 Yvsmatt (YNBS_zrhs_va_dynzdf_imp, YNBI_zrhs_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_va_dynzdf_imp, Yjac[0], Ytbeta); 5807 5122 YG1_va_dyn_hpg_zco( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5812 5127 Yting[2]=YS1_sbcgyre_utau_vtau( Yi, Yj, YTemps); 5813 5128 memset(Yjac, 0, 31*sizeof(double)); 5814 Yzrhs_ua_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5129 Yzrhs_ua_dynzdf_imp->backward( Yting[0], Yting[1], Yting[2] ); 5815 5130 Yvsmatt (YNBS_zrhs_ua_dynzdf_imp, YNBI_zrhs_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_ua_dynzdf_imp, Yjac[0], Ytbeta); 5816 5131 YG1_ua_dyn_hpg_zco( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5823 5138 Yting[1]=YS3_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 5824 5139 memset(Yjac, 0, 93*sizeof(double)); 5825 Yzwisd_va_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5140 Yzwisd_va_dynzdf_imp->backward( Yting[0], Yting[1] ); 5826 5141 Yvsmatt (YNBS_zwisd_va_dynzdf_imp, YNBI_zwisd_va_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_va_dynzdf_imp, Yjac[0], Ytbeta); 5827 5142 YG3_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5828 5143 if (1==0 || Yk+1>YA3_S3dt-1){} 5829 5144 else 5830 #pragma omp atomic5831 5145 YG3_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps) += Ytbeta[1]; 5832 5146 Yting[0]=YS2_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps); … … 5836 5150 Yting[1]=YS2_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 5837 5151 memset(Yjac, 0, 93*sizeof(double)); 5838 Yzwisd_ua_dynzdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5152 Yzwisd_ua_dynzdf_imp->backward( Yting[0], Yting[1] ); 5839 5153 Yvsmatt (YNBS_zwisd_ua_dynzdf_imp, YNBI_zwisd_ua_dynzdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_ua_dynzdf_imp, Yjac[0], Ytbeta); 5840 5154 YG2_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 5841 5155 if (1==0 || Yk+1>YA3_S3dt-1){} 5842 5156 else 5843 #pragma omp atomic5844 5157 YG2_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps) += Ytbeta[1]; 5845 5158 5846 }5847 5159 } 5848 5160 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) … … 5853 5165 Yting[1]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 5854 5166 memset(Yjac, 0, 31*sizeof(double)); 5855 Yva_dyn_hpg_zco (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5167 Yva_dyn_hpg_zco->backward( Yting[0], Yting[1] ); 5856 5168 Yvsmatt (YNBS_va_dyn_hpg_zco, YNBI_va_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_va_dyn_hpg_zco, Yjac[0], Ytbeta); 5857 5169 YG1_va_dyn_ldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5860 5172 Yting[1]=YS1_zhpij_dyn_hpg_zco( Yi, Yj, Yk, YTemps); 5861 5173 memset(Yjac, 0, 31*sizeof(double)); 5862 Yua_dyn_hpg_zco (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5174 Yua_dyn_hpg_zco->backward( Yting[0], Yting[1] ); 5863 5175 Yvsmatt (YNBS_ua_dyn_hpg_zco, YNBI_ua_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_ua_dyn_hpg_zco, Yjac[0], Ytbeta); 5864 5176 YG1_ua_dyn_ldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5894 5206 Yting[7]=YS2_zhpij_dyn_hpg_zco( Yi, Yj, Yk-1, YTemps); 5895 5207 memset(Yjac, 0, 62*sizeof(double)); 5896 Yzhpij_dyn_hpg_zco (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] );5208 Yzhpij_dyn_hpg_zco->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 5897 5209 Yvsmatt (YNBS_zhpij_dyn_hpg_zco, YNBI_zhpij_dyn_hpg_zco, YMAX_JAC_NBI, &YG1Y_zhpij_dyn_hpg_zco, Yjac[0], Ytbeta); 5898 5210 if (1==0 || Yi+1>YA1_S3dt-1){} … … 5920 5232 5921 5233 } 5922 #pragma omp parallel for num_threads(16) 5923 for(YY=YA3_S3dt-1; YY>=0; --YY){ 5924 Yk=YY; 5234 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 5925 5235 { 5926 5236 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) … … 5939 5249 Yting[4]=YS1_hdivn( Yi, Yj+1, Yk, YTemps-2); 5940 5250 memset(Yjac, 0, 31*sizeof(double)); 5941 Yva_dyn_ldf_lap (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5251 Yva_dyn_ldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5942 5252 Yvsmatt (YNBS_va_dyn_ldf_lap, YNBI_va_dyn_ldf_lap, YMAX_JAC_NBI, &YG1Y_va_dyn_ldf_lap, Yjac[0], Ytbeta); 5943 5253 YG1_va_vor_ene( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5962 5272 Yting[4]=YS1_hdivn( Yi+1, Yj, Yk, YTemps-2); 5963 5273 memset(Yjac, 0, 31*sizeof(double)); 5964 Yua_dyn_ldf_lap (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5274 Yua_dyn_ldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 5965 5275 Yvsmatt (YNBS_ua_dyn_ldf_lap, YNBI_ua_dyn_ldf_lap, YMAX_JAC_NBI, &YG1Y_ua_dyn_ldf_lap, Yjac[0], Ytbeta); 5966 5276 YG1_ua_vor_ene( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 5993 5303 Yting[6]=YS1_zwxyz_vor_ene( Yi, Yj+1, Yk, YTemps); 5994 5304 memset(Yjac, 0, 31*sizeof(double)); 5995 Yva_vor_ene (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );5305 Yva_vor_ene->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 5996 5306 Yvsmatt (YNBS_va_vor_ene, YNBI_va_vor_ene, YMAX_JAC_NBI, &YG1Y_va_vor_ene, Yjac[0], Ytbeta); 5997 5307 YG1_va_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6030 5340 Yting[6]=YS2_zwxyz_vor_ene( Yi+1, Yj, Yk, YTemps); 6031 5341 memset(Yjac, 0, 31*sizeof(double)); 6032 Yua_vor_ene (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );5342 Yua_vor_ene->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 6033 5343 Yvsmatt (YNBS_ua_vor_ene, YNBI_ua_vor_ene, YMAX_JAC_NBI, &YG1Y_ua_vor_ene, Yjac[0], Ytbeta); 6034 5344 YG1_ua_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6063 5373 Yting[3]=YS1_va( Yi+1, Yj, Yk, YTemps-1); 6064 5374 memset(Yjac, 0, 93*sizeof(double)); 6065 Yzwxyz_vor_ene (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5375 Yzwxyz_vor_ene->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6066 5376 Yvsmatt (YNBS_zwxyz_vor_ene, YNBI_zwxyz_vor_ene, YMAX_JAC_NBI, &YG1Y_zwxyz_vor_ene, Yjac[0], Ytbeta); 6067 5377 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6077 5387 6078 5388 } 6079 } 6080 #pragma omp parallel for num_threads(16) 6081 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6082 Yk=YY; 5389 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6083 5390 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6084 5391 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6091 5398 Yting[2]=YS1_zva_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 6092 5399 memset(Yjac, 0, 31*sizeof(double)); 6093 Yva_dynadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5400 Yva_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 6094 5401 Yvsmatt (YNBS_va_dynadv_cen2, YNBI_va_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_va_dynadv_cen2, Yjac[0], Ytbeta); 6095 5402 YG2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 6096 5403 if (1==0 || Yk+1>YA3_S3dt-1){} 6097 5404 else 6098 #pragma omp atomic6099 5405 YG2_zfuv_UW_dynadv_cen2( Yi, Yj, Yk+1, YTemps) += Ytbeta[1]; 6100 5406 YG1_zva_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[2]; … … 6106 5412 Yting[2]=YS1_zua_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps); 6107 5413 memset(Yjac, 0, 31*sizeof(double)); 6108 Yua_dynadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5414 Yua_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 6109 5415 Yvsmatt (YNBS_ua_dynadv_cen2, YNBI_ua_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_ua_dynadv_cen2, Yjac[0], Ytbeta); 6110 5416 YG1_zfuv_UW_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 6111 5417 if (1==0 || Yk+1>YA3_S3dt-1){} 6112 5418 else 6113 #pragma omp atomic6114 5419 YG1_zfuv_UW_dynadv_cen2( Yi, Yj, Yk+1, YTemps) += Ytbeta[1]; 6115 5420 YG1_zua_dhmf_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[2]; 6116 5421 6117 5422 } 6118 } 6119 #pragma omp parallel for num_threads(16) 6120 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6121 Yk=YY; 5423 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6122 5424 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6123 5425 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6143 5445 Yting[6]=YS1_va( Yi, Yj, Yk-1, YTemps-1); 6144 5446 memset(Yjac, 0, 62*sizeof(double)); 6145 Yzfuv_UW_dynadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] );5447 Yzfuv_UW_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6] ); 6146 5448 Yvsmatt (YNBS_zfuv_UW_dynadv_cen2, YNBI_zfuv_UW_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zfuv_UW_dynadv_cen2, Yjac[0], Ytbeta); 6147 5449 YG1_wa( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6155 5457 if (1==0 || Yk-1<0){} 6156 5458 else 6157 #pragma omp atomic6158 5459 YG1_ua( Yi, Yj, Yk-1, YTemps-1) += Ytbeta[4]; 6159 5460 YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[5]; 6160 5461 if (1==0 || Yk-1<0){} 6161 5462 else 6162 #pragma omp atomic6163 5463 YG1_va( Yi, Yj, Yk-1, YTemps-1) += Ytbeta[6]; 6164 5464 6165 5465 } 6166 } 6167 #pragma omp parallel for num_threads(16) 6168 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6169 Yk=YY; 5466 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6170 5467 { 6171 5468 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) … … 6183 5480 Yting[3]=YS4_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 6184 5481 memset(Yjac, 0, 31*sizeof(double)); 6185 Yzva_dhmf_dynadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5482 Yzva_dhmf_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6186 5483 Yvsmatt (YNBS_zva_dhmf_dynadv_cen2, YNBI_zva_dhmf_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zva_dhmf_dynadv_cen2, Yjac[0], Ytbeta); 6187 5484 YG3_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6204 5501 Yting[3]=YS2_hmf_TF_dynadv_cen2( Yi, Yj-1, Yk, YTemps); 6205 5502 memset(Yjac, 0, 31*sizeof(double)); 6206 Yzua_dhmf_dynadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5503 Yzua_dhmf_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6207 5504 Yvsmatt (YNBS_zua_dhmf_dynadv_cen2, YNBI_zua_dhmf_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_zua_dhmf_dynadv_cen2, Yjac[0], Ytbeta); 6208 5505 YG1_hmf_TF_dynadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6238 5535 Yting[5]=YS1_va( Yi, Yj+1, Yk, YTemps-1); 6239 5536 memset(Yjac, 0, 124*sizeof(double)); 6240 Yhmf_TF_dynadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] );5537 Yhmf_TF_dynadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5] ); 6241 5538 Yvsmatt (YNBS_hmf_TF_dynadv_cen2, YNBI_hmf_TF_dynadv_cen2, YMAX_JAC_NBI, &YG1Y_hmf_TF_dynadv_cen2, Yjac[0], Ytbeta); 6242 5539 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6258 5555 6259 5556 } 6260 } 6261 #pragma omp parallel for num_threads(16) 6262 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6263 Yk=YY; 5557 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6264 5558 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6265 5559 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6267 5561 Yting[0]=YS1_rhd( Yi, Yj, Yk, YTemps); 6268 5562 memset(Yjac, 0, 31*sizeof(double)); 6269 Yrhop (Yi, Yj, Yk)->backward( Yting[0] );5563 Yrhop->backward( Yting[0] ); 6270 5564 Yvsmatt (YNBS_rhop, YNBI_rhop, YMAX_JAC_NBI, &YG1Y_rhop, Yjac[0], Ytbeta); 6271 5565 YG1_rhd( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6273 5567 Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps); 6274 5568 memset(Yjac, 0, 31*sizeof(double)); 6275 Yrhd (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5569 Yrhd->backward( Yting[0], Yting[1] ); 6276 5570 Yvsmatt (YNBS_rhd, YNBI_rhd, YMAX_JAC_NBI, &YG1Y_rhd, Yjac[0], Ytbeta); 6277 5571 YG1_tb( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6279 5573 6280 5574 } 6281 } 6282 #pragma omp parallel for num_threads(16) 6283 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6284 Yk=YY; 5575 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6285 5576 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6286 5577 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6291 5582 Yting[3]=YS1_sa_c( Yi, Yj, Yk); 6292 5583 memset(Yjac, 0, 31*sizeof(double)); 6293 Ysb (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5584 Ysb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6294 5585 Yvsmatt (YNBS_sb, YNBI_sb, YMAX_JAC_NBI, &YG1Y_sb, Yjac[0], Ytbeta); 6295 5586 YG1_sb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6302 5593 Yting[3]=YS1_ta_c( Yi, Yj, Yk); 6303 5594 memset(Yjac, 0, 31*sizeof(double)); 6304 Ytb (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5595 Ytb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6305 5596 Yvsmatt (YNBS_tb, YNBI_tb, YMAX_JAC_NBI, &YG1Y_tb, Yjac[0], Ytbeta); 6306 5597 YG1_tb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6310 5601 6311 5602 } 6312 }6313 5603 for(Yk=0; Yk<YA3_S3dt; ++Yk) 6314 5604 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) … … 6324 5614 Yting[4]=YS1_sa_c( Yi, Yj, Yk); 6325 5615 memset(Yjac, 0, 31*sizeof(double)); 6326 Ysa (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5616 Ysa->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 6327 5617 Yvsmatt (YNBS_sa, YNBI_sa, YMAX_JAC_NBI, &YG1Y_sa, Yjac[0], Ytbeta); 6328 5618 YG2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6342 5632 Yting[4]=YS1_ta_c( Yi, Yj, Yk); 6343 5633 memset(Yjac, 0, 31*sizeof(double)); 6344 Yta (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5634 Yta->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 6345 5635 Yvsmatt (YNBS_ta, YNBI_ta, YMAX_JAC_NBI, &YG1Y_ta, Yjac[0], Ytbeta); 6346 5636 YG2_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6368 5658 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 6369 5659 memset(Yjac, 0, 31*sizeof(double)); 6370 Ysa_de_trazdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5660 Ysa_de_trazdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6371 5661 Yvsmatt (YNBS_sa_de_trazdf_imp, YNBI_sa_de_trazdf_imp, YMAX_JAC_NBI, &YG1Y_sa_de_trazdf_imp, Yjac[0], Ytbeta); 6372 5662 YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6389 5679 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 6390 5680 memset(Yjac, 0, 31*sizeof(double)); 6391 Yta_de_trazdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5681 Yta_de_trazdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6392 5682 Yvsmatt (YNBS_ta_de_trazdf_imp, YNBI_ta_de_trazdf_imp, YMAX_JAC_NBI, &YG1Y_ta_de_trazdf_imp, Yjac[0], Ytbeta); 6393 5683 YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6410 5700 Yting[3]=YS1_zwt_trazdf_imp( Yi, Yj, Yk-1, YTemps); 6411 5701 memset(Yjac, 0, 31*sizeof(double)); 6412 Yzwt_trazdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );5702 Yzwt_trazdf_imp->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6413 5703 Yvsmatt (YNBS_zwt_trazdf_imp, YNBI_zwt_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zwt_trazdf_imp, Yjac[0], Ytbeta); 6414 5704 YG1_zwisd_trazdf_imp( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6422 5712 6423 5713 } 6424 #pragma omp parallel for num_threads(16) 6425 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6426 Yk=YY; 5714 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6427 5715 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6428 5716 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6431 5719 Yting[1]=YS1_sb( Yi, Yj, Yk, YTemps-1); 6432 5720 memset(Yjac, 0, 31*sizeof(double)); 6433 Yzrhs_sa_trazdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5721 Yzrhs_sa_trazdf_imp->backward( Yting[0], Yting[1] ); 6434 5722 Yvsmatt (YNBS_zrhs_sa_trazdf_imp, YNBI_zrhs_sa_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_sa_trazdf_imp, Yjac[0], Ytbeta); 6435 5723 YG1_sa_traldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6438 5726 Yting[1]=YS1_tb( Yi, Yj, Yk, YTemps-1); 6439 5727 memset(Yjac, 0, 31*sizeof(double)); 6440 Yzrhs_trazdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5728 Yzrhs_trazdf_imp->backward( Yting[0], Yting[1] ); 6441 5729 Yvsmatt (YNBS_zrhs_trazdf_imp, YNBI_zrhs_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zrhs_trazdf_imp, Yjac[0], Ytbeta); 6442 5730 YG1_ta_traldf_lap( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6448 5736 Yting[1]=YS1_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps); 6449 5737 memset(Yjac, 0, 93*sizeof(double)); 6450 Yzwisd_trazdf_imp (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );5738 Yzwisd_trazdf_imp->backward( Yting[0], Yting[1] ); 6451 5739 Yvsmatt (YNBS_zwisd_trazdf_imp, YNBI_zwisd_trazdf_imp, YMAX_JAC_NBI, &YG1Y_zwisd_trazdf_imp, Yjac[0], Ytbeta); 6452 5740 YG1_zdf_avt_avmu_avmv( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 6453 5741 if (1==0 || Yk+1>YA3_S3dt-1){} 6454 5742 else 6455 #pragma omp atomic6456 5743 YG1_zdf_avt_avmu_avmv( Yi, Yj, Yk+1, YTemps) += Ytbeta[1]; 6457 5744 6458 5745 } 6459 } 6460 #pragma omp parallel for num_threads(16) 6461 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6462 Yk=YY; 5746 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6463 5747 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6464 5748 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6476 5760 Yting[4]=YS2_zsuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 6477 5761 memset(Yjac, 0, 31*sizeof(double)); 6478 Ysa_traldf_lap (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5762 Ysa_traldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 6479 5763 Yvsmatt (YNBS_sa_traldf_lap, YNBI_sa_traldf_lap, YMAX_JAC_NBI, &YG1Y_sa_traldf_lap, Yjac[0], Ytbeta); 6480 5764 YG1_sa_ver_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6499 5783 Yting[4]=YS2_ztuv_traldf_lap( Yi, Yj-1, Yk, YTemps); 6500 5784 memset(Yjac, 0, 31*sizeof(double)); 6501 Yta_traldf_lap (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5785 Yta_traldf_lap->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 6502 5786 Yvsmatt (YNBS_ta_traldf_lap, YNBI_ta_traldf_lap, YMAX_JAC_NBI, &YG1Y_ta_traldf_lap, Yjac[0], Ytbeta); 6503 5787 YG1_ta_ver_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6520 5804 Yting[2]=YS1_sb( Yi, Yj+1, Yk, YTemps-1); 6521 5805 memset(Yjac, 0, 62*sizeof(double)); 6522 Yzsuv_traldf_lap (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5806 Yzsuv_traldf_lap->backward( Yting[0], Yting[1], Yting[2] ); 6523 5807 Yvsmatt (YNBS_zsuv_traldf_lap, YNBI_zsuv_traldf_lap, YMAX_JAC_NBI, &YG1Y_zsuv_traldf_lap, Yjac[0], Ytbeta); 6524 5808 YG1_sb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6539 5823 Yting[2]=YS1_tb( Yi, Yj+1, Yk, YTemps-1); 6540 5824 memset(Yjac, 0, 62*sizeof(double)); 6541 Yztuv_traldf_lap (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5825 Yztuv_traldf_lap->backward( Yting[0], Yting[1], Yting[2] ); 6542 5826 Yvsmatt (YNBS_ztuv_traldf_lap, YNBI_ztuv_traldf_lap, YMAX_JAC_NBI, &YG1Y_ztuv_traldf_lap, Yjac[0], Ytbeta); 6543 5827 YG1_tb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6550 5834 6551 5835 } 6552 } 6553 #pragma omp parallel for num_threads(16) 6554 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6555 Yk=YY; 5836 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6556 5837 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6557 5838 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6564 5845 Yting[2]=YS1_zcens_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 6565 5846 memset(Yjac, 0, 31*sizeof(double)); 6566 Ysa_ver_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5847 Ysa_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 6567 5848 Yvsmatt (YNBS_sa_ver_traadv_cen2, YNBI_sa_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_sa_ver_traadv_cen2, Yjac[0], Ytbeta); 6568 5849 YG1_sa_hor_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6570 5851 if (1==0 || Yk+1>YA3_S3dt-1){} 6571 5852 else 6572 #pragma omp atomic6573 5853 YG1_zcens_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps) += Ytbeta[2]; 6574 5854 Yting[0]=YS1_ta_hor_traadv_cen2( Yi, Yj, Yk, YTemps); … … 6579 5859 Yting[2]=YS1_zcent_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps); 6580 5860 memset(Yjac, 0, 31*sizeof(double)); 6581 Yta_ver_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5861 Yta_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 6582 5862 Yvsmatt (YNBS_ta_ver_traadv_cen2, YNBI_ta_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_ta_ver_traadv_cen2, Yjac[0], Ytbeta); 6583 5863 YG1_ta_hor_traadv_cen2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6585 5865 if (1==0 || Yk+1>YA3_S3dt-1){} 6586 5866 else 6587 #pragma omp atomic6588 5867 YG1_zcent_ver_traadv_cen2( Yi, Yj, Yk+1, YTemps) += Ytbeta[2]; 6589 5868 6590 5869 } 6591 } 6592 #pragma omp parallel for num_threads(16) 6593 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6594 Yk=YY; 5870 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6595 5871 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6596 5872 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6603 5879 Yting[2]=YS1_sa( Yi, Yj, Yk-1, YTemps-1); 6604 5880 memset(Yjac, 0, 31*sizeof(double)); 6605 Yzcens_ver_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5881 Yzcens_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 6606 5882 Yvsmatt (YNBS_zcens_ver_traadv_cen2, YNBI_zcens_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcens_ver_traadv_cen2, Yjac[0], Ytbeta); 6607 5883 YG1_wa( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6609 5885 if (1==0 || Yk-1<0){} 6610 5886 else 6611 #pragma omp atomic6612 5887 YG1_sa( Yi, Yj, Yk-1, YTemps-1) += Ytbeta[2]; 6613 5888 Yting[0]=YS1_wa( Yi, Yj, Yk, YTemps-1); … … 6618 5893 Yting[2]=YS1_ta( Yi, Yj, Yk-1, YTemps-1); 6619 5894 memset(Yjac, 0, 31*sizeof(double)); 6620 Yzcent_ver_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2] );5895 Yzcent_ver_traadv_cen2->backward( Yting[0], Yting[1], Yting[2] ); 6621 5896 Yvsmatt (YNBS_zcent_ver_traadv_cen2, YNBI_zcent_ver_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcent_ver_traadv_cen2, Yjac[0], Ytbeta); 6622 5897 YG1_wa( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6624 5899 if (1==0 || Yk-1<0){} 6625 5900 else 6626 #pragma omp atomic6627 5901 YG1_ta( Yi, Yj, Yk-1, YTemps-1) += Ytbeta[2]; 6628 5902 6629 5903 } 6630 } 6631 #pragma omp parallel for num_threads(16) 6632 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6633 Yk=YY; 5904 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6634 5905 { 6635 5906 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) … … 6648 5919 Yting[4]=YS2_zcens_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 6649 5920 memset(Yjac, 0, 31*sizeof(double)); 6650 Ysa_hor_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5921 Ysa_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 6651 5922 Yvsmatt (YNBS_sa_hor_traadv_cen2, YNBI_sa_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_sa_hor_traadv_cen2, Yjac[0], Ytbeta); 6652 5923 YG2_ta_sa_trasbc( Yi, Yj, YTemps) += Ytbeta[0]; … … 6671 5942 Yting[4]=YS2_zcent_hor_traadv_cen2( Yi, Yj, Yk, YTemps); 6672 5943 memset(Yjac, 0, 31*sizeof(double)); 6673 Yta_hor_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5944 Yta_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 6674 5945 Yvsmatt (YNBS_ta_hor_traadv_cen2, YNBI_ta_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_ta_hor_traadv_cen2, Yjac[0], Ytbeta); 6675 5946 YG1_ta_traqsr( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6699 5970 Yting[4]=YS1_sa( Yi+1, Yj, Yk, YTemps-1); 6700 5971 memset(Yjac, 0, 62*sizeof(double)); 6701 Yzcens_hor_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5972 Yzcens_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 6702 5973 Yvsmatt (YNBS_zcens_hor_traadv_cen2, YNBI_zcens_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcens_hor_traadv_cen2, Yjac[0], Ytbeta); 6703 5974 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6722 5993 Yting[4]=YS1_ta( Yi+1, Yj, Yk, YTemps-1); 6723 5994 memset(Yjac, 0, 62*sizeof(double)); 6724 Yzcent_hor_traadv_cen2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );5995 Yzcent_hor_traadv_cen2->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 6725 5996 Yvsmatt (YNBS_zcent_hor_traadv_cen2, YNBI_zcent_hor_traadv_cen2, YMAX_JAC_NBI, &YG1Y_zcent_hor_traadv_cen2, Yjac[0], Ytbeta); 6726 5997 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; … … 6737 6008 6738 6009 } 6739 } 6740 #pragma omp parallel for num_threads(16) 6741 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6742 Yk=YY; 6010 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6743 6011 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6744 6012 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6747 6015 Yting[1]=YS1_ta_sa_trasbc( Yi, Yj, YTemps); 6748 6016 memset(Yjac, 0, 31*sizeof(double)); 6749 Yta_traqsr (Yi, Yj, Yk)->backward( Yting[0], Yting[1] );6017 Yta_traqsr->backward( Yting[0], Yting[1] ); 6750 6018 Yvsmatt (YNBS_ta_traqsr, YNBI_ta_traqsr, YMAX_JAC_NBI, &YG1Y_ta_traqsr, Yjac[0], Ytbeta); 6751 6019 YG1_sbcgyre_qsr_qns( Yi, Yj, YTemps) += Ytbeta[0]; … … 6753 6021 6754 6022 } 6755 } 6756 #pragma omp parallel for num_threads(16) 6757 for(YY=YA2_S3dt-1; YY>=0; --YY){ 6758 Yj=YY; 6023 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6759 6024 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) 6760 6025 { … … 6763 6028 Yting[2]=YS1_sa( Yi, Yj, 0, YTemps-1); 6764 6029 memset(Yjac, 0, 62*sizeof(double)); 6765 Yta_sa_trasbc (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] );6030 Yta_sa_trasbc->backward( Yting[0], Yting[1], Yting[2] ); 6766 6031 Yvsmatt (YNBS_ta_sa_trasbc, YNBI_ta_sa_trasbc, YMAX_JAC_NBI, &YG1Y_ta_sa_trasbc, Yjac[0], Ytbeta); 6767 6032 YG2_sbcgyre_qsr_qns( Yi, Yj, YTemps) += Ytbeta[0]; … … 6770 6035 6771 6036 } 6772 } 6773 #pragma omp parallel for num_threads(16) 6774 for(YY=YA2_S3dt-1; YY>=0; --YY){ 6775 Yj=YY; 6037 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6776 6038 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) 6777 6039 { … … 6808 6070 Yting[30]=YS1_rhop( Yi, Yj, 30, YTemps-1); 6809 6071 memset(Yjac, 0, 93*sizeof(double)); 6810 Yzdfmxl_nmln_hmlp_hmlpt (Yi, Yj)->backward();6072 Yzdfmxl_nmln_hmlp_hmlpt->backward(); 6811 6073 Yvsmatt (YNBS_zdfmxl_nmln_hmlp_hmlpt, YNBI_zdfmxl_nmln_hmlp_hmlpt, YMAX_JAC_NBI, &YG1Y_zdfmxl_nmln_hmlp_hmlpt, Yjac[0], Ytbeta); 6812 6074 YG1_rhop( Yi, Yj, 0, YTemps-1) += Ytbeta[0]; … … 6873 6135 Yting[30]=YS1_zdf_avt_avmu_avmv( Yi, Yj, 30, YTemps); 6874 6136 memset(Yjac, 0, 31*sizeof(double)); 6875 Yzdfmxl_hmld (Yi, Yj)->backward();6137 Yzdfmxl_hmld->backward(); 6876 6138 Yvsmatt (YNBS_zdfmxl_hmld, YNBI_zdfmxl_hmld, YMAX_JAC_NBI, &YG1Y_zdfmxl_hmld, Yjac[0], Ytbeta); 6877 6139 YG1_zdf_avt_avmu_avmv( Yi, Yj, 0, YTemps) += Ytbeta[0]; … … 6908 6170 6909 6171 } 6910 } 6911 #pragma omp parallel for num_threads(16) 6912 for(YY=YA3_S3dt-1; YY>=0; --YY){ 6913 Yk=YY; 6172 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 6914 6173 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 6915 6174 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 6977 6236 Yting[18]=YS1_va( Yi+1, Yj, 1, YTemps-1); 6978 6237 memset(Yjac, 0, 93*sizeof(double)); 6979 Yzdf_avt_avmu_avmv (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8], Yting[9], Yting[10], Yting[11], Yting[12], Yting[13], Yting[14], Yting[15], Yting[16], Yting[17], Yting[18] );6238 Yzdf_avt_avmu_avmv->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8], Yting[9], Yting[10], Yting[11], Yting[12], Yting[13], Yting[14], Yting[15], Yting[16], Yting[17], Yting[18] ); 6980 6239 Yvsmatt (YNBS_zdf_avt_avmu_avmv, YNBI_zdf_avt_avmu_avmv, YMAX_JAC_NBI, &YG1Y_zdf_avt_avmu_avmv, Yjac[0], Ytbeta); 6981 6240 YG1_bn2_rn2( Yi, Yj, Yk, YTemps) += Ytbeta[0]; … … 6988 6247 if (1==0 || Yi-1<0){} 6989 6248 else 6990 #pragma omp atomic6991 6249 YG1_ua( Yi-1, Yj, 29, YTemps-1) += Ytbeta[3]; 6992 6250 if (1==0 || Yi-1<0 || Yj+1>YA2_S3dt-1){} 6993 6251 else 6994 #pragma omp atomic6995 6252 YG1_ua( Yi-1, Yj+1, 29, YTemps-1) += Ytbeta[4]; 6996 #pragma omp atomic6997 6253 YG1_ua( Yi, Yj, 29, YTemps-1) += Ytbeta[5]; 6998 6254 if (1==0 || Yj+1>YA2_S3dt-1){} 6999 6255 else 7000 #pragma omp atomic7001 6256 YG1_ua( Yi, Yj+1, 29, YTemps-1) += Ytbeta[6]; 7002 6257 if (1==0 || Yi-1<0){} 7003 6258 else 7004 #pragma omp atomic7005 6259 YG1_ua( Yi-1, Yj, 1, YTemps-1) += Ytbeta[7]; 7006 6260 if (1==0 || Yi-1<0 || Yj+1>YA2_S3dt-1){} 7007 6261 else 7008 #pragma omp atomic7009 6262 YG1_ua( Yi-1, Yj+1, 1, YTemps-1) += Ytbeta[8]; 7010 #pragma omp atomic7011 6263 YG1_ua( Yi, Yj, 1, YTemps-1) += Ytbeta[9]; 7012 6264 if (1==0 || Yj+1>YA2_S3dt-1){} 7013 6265 else 7014 #pragma omp atomic7015 6266 YG1_ua( Yi, Yj+1, 1, YTemps-1) += Ytbeta[10]; 7016 6267 if (1==0 || Yj-1<0){} 7017 6268 else 7018 #pragma omp atomic7019 6269 YG1_va( Yi, Yj-1, 29, YTemps-1) += Ytbeta[11]; 7020 #pragma omp atomic7021 6270 YG1_va( Yi, Yj, 29, YTemps-1) += Ytbeta[12]; 7022 6271 if (1==0 || Yi+1>YA1_S3dt-1 || Yj-1<0){} 7023 6272 else 7024 #pragma omp atomic7025 6273 YG1_va( Yi+1, Yj-1, 29, YTemps-1) += Ytbeta[13]; 7026 6274 if (1==0 || Yi+1>YA1_S3dt-1){} 7027 6275 else 7028 #pragma omp atomic7029 6276 YG1_va( Yi+1, Yj, 29, YTemps-1) += Ytbeta[14]; 7030 6277 if (1==0 || Yj-1<0){} 7031 6278 else 7032 #pragma omp atomic7033 6279 YG1_va( Yi, Yj-1, 1, YTemps-1) += Ytbeta[15]; 7034 #pragma omp atomic7035 6280 YG1_va( Yi, Yj, 1, YTemps-1) += Ytbeta[16]; 7036 6281 if (1==0 || Yi+1>YA1_S3dt-1 || Yj-1<0){} 7037 6282 else 7038 #pragma omp atomic7039 6283 YG1_va( Yi+1, Yj-1, 1, YTemps-1) += Ytbeta[17]; 7040 6284 if (1==0 || Yi+1>YA1_S3dt-1){} 7041 6285 else 7042 #pragma omp atomic7043 6286 YG1_va( Yi+1, Yj, 1, YTemps-1) += Ytbeta[18]; 7044 6287 7045 6288 } 7046 } 7047 #pragma omp parallel for num_threads(16) 7048 for(YY=YA3_S3dt-1; YY>=0; --YY){ 7049 Yk=YY; 6289 for(Yk=YA3_S3dt-1; Yk>=0; --Yk) 7050 6290 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) 7051 6291 for(Yi=YA1_S3dt-1; Yi>=0; --Yi) … … 7062 6302 Yting[3]=YS1_sb( Yi, Yj, Yk-1, YTemps-1); 7063 6303 memset(Yjac, 0, 31*sizeof(double)); 7064 Ybn2_rn2 (Yi, Yj, Yk)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );6304 Ybn2_rn2->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 7065 6305 Yvsmatt (YNBS_bn2_rn2, YNBI_bn2_rn2, YMAX_JAC_NBI, &YG1Y_bn2_rn2, Yjac[0], Ytbeta); 7066 6306 YG1_tb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 7067 6307 if (1==0 || Yk-1<0){} 7068 6308 else 7069 #pragma omp atomic7070 6309 YG1_tb( Yi, Yj, Yk-1, YTemps-1) += Ytbeta[1]; 7071 6310 YG1_sb( Yi, Yj, Yk, YTemps-1) += Ytbeta[2]; 7072 6311 if (1==0 || Yk-1<0){} 7073 6312 else 7074 #pragma omp atomic7075 6313 YG1_sb( Yi, Yj, Yk-1, YTemps-1) += Ytbeta[3]; 7076 6314 7077 }7078 6315 } 7079 6316 for(Yj=YA2_S3dt-1; Yj>=0; --Yj) … … 7091 6328 Yting[3]=YS2_sbcgyre_utau_vtau( Yi, Yj, YTemps); 7092 6329 memset(Yjac, 0, 31*sizeof(double)); 7093 Ysbcgyre_wndm (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3] );6330 Ysbcgyre_wndm->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 7094 6331 Yvsmatt (YNBS_sbcgyre_wndm, YNBI_sbcgyre_wndm, YMAX_JAC_NBI, &YG1Y_sbcgyre_wndm, Yjac[0], Ytbeta); 7095 6332 if (1==0 || Yi-1<0){} … … 7101 6338 YG1_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[2]; 7102 6339 YG2_sbcgyre_utau_vtau( Yi, Yj, YTemps) += Ytbeta[3]; 7103 Ysbcgyre_utau_vtau (Yi, Yj)->backward();6340 Ysbcgyre_utau_vtau->backward(); 7104 6341 Yting[0]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 7105 6342 memset(Yjac, 0, 31*sizeof(double)); 7106 Ysbcgyre_emps (Yi, Yj)->backward( Yting[0] );6343 Ysbcgyre_emps->backward( Yting[0] ); 7107 6344 Yvsmatt (YNBS_sbcgyre_emps, YNBI_sbcgyre_emps, YMAX_JAC_NBI, &YG1Y_sbcgyre_emps, Yjac[0], Ytbeta); 7108 6345 YG1_sbcgyre_emp( Yi, Yj, YTemps) += Ytbeta[0]; … … 7111 6348 Yting[2]=YS2_sbcgyre_zsumemp_zsurf( 31, 21, YTemps); 7112 6349 memset(Yjac, 0, 31*sizeof(double)); 7113 Ysbcgyre_emp (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2] );6350 Ysbcgyre_emp->backward( Yting[0], Yting[1], Yting[2] ); 7114 6351 Yvsmatt (YNBS_sbcgyre_emp, YNBI_sbcgyre_emp, YMAX_JAC_NBI, &YG1Y_sbcgyre_emp, Yjac[0], Ytbeta); 7115 6352 YG1_sbcgyre_emp1( Yi, Yj, YTemps) += Ytbeta[0]; … … 7139 6376 Yting[4]=YS1_sbcgyre_emp1( Yi, Yj, YTemps); 7140 6377 memset(Yjac, 0, 62*sizeof(double)); 7141 Ysbcgyre_zsumemp_zsurf (Yi, Yj)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] );6378 Ysbcgyre_zsumemp_zsurf->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4] ); 7142 6379 Yvsmatt (YNBS_sbcgyre_zsumemp_zsurf, YNBI_sbcgyre_zsumemp_zsurf, YMAX_JAC_NBI, &YG1Y_sbcgyre_zsumemp_zsurf, Yjac[0], Ytbeta); 7143 6380 if (1==0 || Yi-1<0){} … … 7154 6391 YG2_sbcgyre_zsumemp_zsurf( 31, Yj-1, YTemps) += Ytbeta[3]; 7155 6392 YG1_sbcgyre_emp1( Yi, Yj, YTemps) += Ytbeta[4]; 7156 Ysbcgyre_emp1 (Yi, Yj)->backward();6393 Ysbcgyre_emp1->backward(); 7157 6394 Yting[0]=YS1_tb( Yi, Yj, 0, YTemps-1); 7158 6395 memset(Yjac, 0, 62*sizeof(double)); 7159 Ysbcgyre_qsr_qns (Yi, Yj)->backward( Yting[0] );6396 Ysbcgyre_qsr_qns->backward( Yting[0] ); 7160 6397 Yvsmatt (YNBS_sbcgyre_qsr_qns, YNBI_sbcgyre_qsr_qns, YMAX_JAC_NBI, &YG1Y_sbcgyre_qsr_qns, Yjac[0], Ytbeta); 7161 6398 YG1_tb( Yi, Yj, 0, YTemps-1) += Ytbeta[0]; … … 7166 6403 } 7167 6404 6405 int Yforward_space_Ssolsor() 6406 { 6407 YA1=32; YA2=22; YA3=800; 6408 Yi=-1; Yj=-1; Yk=-1; /* init des indices de maille: maj par la boucle si valide*/ 6409 for(Yk=0; Yk<YA3_Ssolsor; ++Yk) 6410 { 6411 for(Yj=0; Yj<YA2_Ssolsor; ++Yj) 6412 for(Yi=0; Yi<YA1_Ssolsor; ++Yi) 6413 { 6414 Yting[0]=YS1_gcx_dynspg_flt( Yi, Yj, YTemps); 6415 Yting[1]=YS1_gcb_dynspg_flt( Yi, Yj, YTemps); 6416 if (1==0 || Yj-1<0 || Yk-1<0) 6417 Yting[2]=0; 6418 else 6419 Yting[2]=YS1_solsor_gx2_x_r( Yi, Yj-1, Yk-1, YTemps); 6420 if (1==0 || Yi-1<0 || Yk-1<0) 6421 Yting[3]=0; 6422 else 6423 Yting[3]=YS1_solsor_gx2_x_r( Yi-1, Yj, Yk-1, YTemps); 6424 if (1==0 || Yi+1>YA1_Ssolsor-1 || Yk-1<0) 6425 Yting[4]=0; 6426 else 6427 Yting[4]=YS1_solsor_gx2_x_r( Yi+1, Yj, Yk-1, YTemps); 6428 if (1==0 || Yj+1>YA2_Ssolsor-1 || Yk-1<0) 6429 Yting[5]=0; 6430 else 6431 Yting[5]=YS1_solsor_gx2_x_r( Yi, Yj+1, Yk-1, YTemps); 6432 if (1==0 || Yk-1<0) 6433 Yting[6]=0; 6434 else 6435 Yting[6]=YS1_solsor_gx2_x_r( Yi, Yj, Yk-1, YTemps); 6436 if (1==0 || Yk-1<0) 6437 Yting[7]=0; 6438 else 6439 Yting[7]=YS2_solsor_flag( 31, 21, Yk-1, YTemps); 6440 Ysolsor_gx1_x_r->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 6441 6442 } 6443 for(Yj=0; Yj<YA2_Ssolsor; ++Yj) 6444 for(Yi=0; Yi<YA1_Ssolsor; ++Yi) 6445 { 6446 Yting[0]=YS1_gcx_dynspg_flt( Yi, Yj, YTemps); 6447 Yting[1]=YS1_gcb_dynspg_flt( Yi, Yj, YTemps); 6448 if (1==0 || Yj-1<0) 6449 Yting[2]=0; 6450 else 6451 Yting[2]=YS1_solsor_gx1_x_r( Yi, Yj-1, Yk, YTemps); 6452 if (1==0 || Yi-1<0) 6453 Yting[3]=0; 6454 else 6455 Yting[3]=YS1_solsor_gx1_x_r( Yi-1, Yj, Yk, YTemps); 6456 if (1==0 || Yi+1>YA1_Ssolsor-1) 6457 Yting[4]=0; 6458 else 6459 Yting[4]=YS1_solsor_gx1_x_r( Yi+1, Yj, Yk, YTemps); 6460 if (1==0 || Yj+1>YA2_Ssolsor-1) 6461 Yting[5]=0; 6462 else 6463 Yting[5]=YS1_solsor_gx1_x_r( Yi, Yj+1, Yk, YTemps); 6464 Yting[6]=YS1_solsor_gx1_x_r( Yi, Yj, Yk, YTemps); 6465 if (1==0 || Yk-1<0) 6466 Yting[7]=0; 6467 else 6468 Yting[7]=YS2_solsor_flag( 31, 21, Yk-1, YTemps); 6469 Yting[8]=YS2_solsor_gx1_x_r( Yi, Yj, Yk, YTemps); 6470 Ysolsor_gx2_x_r->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8] ); 6471 6472 } 6473 for(Yi=0; Yi<YA1_Ssolsor; ++Yi) 6474 for(Yj=0; Yj<YA2_Ssolsor; ++Yj) 6475 { 6476 Yting[0]=YS2_solsor_gx2_x_r( Yi, Yj, Yk, YTemps); 6477 if (1==0 || Yk-1<0) 6478 Yting[1]=0; 6479 else 6480 Yting[1]=YS2_solsor_flag( 31, 21, Yk-1, YTemps); 6481 if (1==0 || Yi-1<0) 6482 Yting[2]=0; 6483 else 6484 Yting[2]=YS1_solsor_flag( Yi-1, 21, Yk, YTemps); 6485 if (1==0 || Yj-1<0 || Yk-1<0) 6486 Yting[3]=0; 6487 else 6488 Yting[3]=YS1_solsor_flag( Yi, Yj-1, Yk-1, YTemps); 6489 Ysolsor_flag->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6490 6491 } 6492 6493 } 6494 6495 return(0); 6496 } 6497 6498 int Ybackward_space_Ssolsor() 6499 { 6500 YA1=32; YA2=22; YA3=800; 6501 Yi=-1; Yj=-1; Yk=-1; /* init des indices de maille: maj par la boucle si valide*/ 6502 for(Yk=YA3_Ssolsor-1; Yk>=0; --Yk) 6503 { 6504 for(Yi=YA1_Ssolsor-1; Yi>=0; --Yi) 6505 for(Yj=YA2_Ssolsor-1; Yj>=0; --Yj) 6506 { 6507 Yting[0]=YS2_solsor_gx2_x_r( Yi, Yj, Yk, YTemps); 6508 if (1==0 || Yk-1<0) 6509 Yting[1]=0; 6510 else 6511 Yting[1]=YS2_solsor_flag( 31, 21, Yk-1, YTemps); 6512 if (1==0 || Yi-1<0) 6513 Yting[2]=0; 6514 else 6515 Yting[2]=YS1_solsor_flag( Yi-1, 21, Yk, YTemps); 6516 if (1==0 || Yj-1<0 || Yk-1<0) 6517 Yting[3]=0; 6518 else 6519 Yting[3]=YS1_solsor_flag( Yi, Yj-1, Yk-1, YTemps); 6520 memset(Yjac, 0, 62*sizeof(double)); 6521 Ysolsor_flag->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6522 Yvsmatt (YNBS_solsor_flag, YNBI_solsor_flag, YMAX_JAC_NBI, &YG1Y_solsor_flag, Yjac[0], Ytbeta); 6523 YG2_solsor_gx2_x_r( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 6524 if (1==0 || Yk-1<0){} 6525 else 6526 YG2_solsor_flag( 31, 21, Yk-1, YTemps) += Ytbeta[1]; 6527 if (1==0 || Yi-1<0){} 6528 else 6529 YG1_solsor_flag( Yi-1, 21, Yk, YTemps) += Ytbeta[2]; 6530 if (1==0 || Yj-1<0 || Yk-1<0){} 6531 else 6532 YG1_solsor_flag( Yi, Yj-1, Yk-1, YTemps) += Ytbeta[3]; 6533 6534 } 6535 for(Yj=YA2_Ssolsor-1; Yj>=0; --Yj) 6536 for(Yi=YA1_Ssolsor-1; Yi>=0; --Yi) 6537 { 6538 Yting[0]=YS1_gcx_dynspg_flt( Yi, Yj, YTemps); 6539 Yting[1]=YS1_gcb_dynspg_flt( Yi, Yj, YTemps); 6540 if (1==0 || Yj-1<0) 6541 Yting[2]=0; 6542 else 6543 Yting[2]=YS1_solsor_gx1_x_r( Yi, Yj-1, Yk, YTemps); 6544 if (1==0 || Yi-1<0) 6545 Yting[3]=0; 6546 else 6547 Yting[3]=YS1_solsor_gx1_x_r( Yi-1, Yj, Yk, YTemps); 6548 if (1==0 || Yi+1>YA1_Ssolsor-1) 6549 Yting[4]=0; 6550 else 6551 Yting[4]=YS1_solsor_gx1_x_r( Yi+1, Yj, Yk, YTemps); 6552 if (1==0 || Yj+1>YA2_Ssolsor-1) 6553 Yting[5]=0; 6554 else 6555 Yting[5]=YS1_solsor_gx1_x_r( Yi, Yj+1, Yk, YTemps); 6556 Yting[6]=YS1_solsor_gx1_x_r( Yi, Yj, Yk, YTemps); 6557 if (1==0 || Yk-1<0) 6558 Yting[7]=0; 6559 else 6560 Yting[7]=YS2_solsor_flag( 31, 21, Yk-1, YTemps); 6561 Yting[8]=YS2_solsor_gx1_x_r( Yi, Yj, Yk, YTemps); 6562 memset(Yjac, 0, 62*sizeof(double)); 6563 Ysolsor_gx2_x_r->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8] ); 6564 Yvsmatt (YNBS_solsor_gx2_x_r, YNBI_solsor_gx2_x_r, YMAX_JAC_NBI, &YG1Y_solsor_gx2_x_r, Yjac[0], Ytbeta); 6565 YG1_gcx_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[0]; 6566 YG1_gcb_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[1]; 6567 if (1==0 || Yj-1<0){} 6568 else 6569 YG1_solsor_gx1_x_r( Yi, Yj-1, Yk, YTemps) += Ytbeta[2]; 6570 if (1==0 || Yi-1<0){} 6571 else 6572 YG1_solsor_gx1_x_r( Yi-1, Yj, Yk, YTemps) += Ytbeta[3]; 6573 if (1==0 || Yi+1>YA1_Ssolsor-1){} 6574 else 6575 YG1_solsor_gx1_x_r( Yi+1, Yj, Yk, YTemps) += Ytbeta[4]; 6576 if (1==0 || Yj+1>YA2_Ssolsor-1){} 6577 else 6578 YG1_solsor_gx1_x_r( Yi, Yj+1, Yk, YTemps) += Ytbeta[5]; 6579 YG1_solsor_gx1_x_r( Yi, Yj, Yk, YTemps) += Ytbeta[6]; 6580 if (1==0 || Yk-1<0){} 6581 else 6582 YG2_solsor_flag( 31, 21, Yk-1, YTemps) += Ytbeta[7]; 6583 YG2_solsor_gx1_x_r( Yi, Yj, Yk, YTemps) += Ytbeta[8]; 6584 6585 } 6586 for(Yj=YA2_Ssolsor-1; Yj>=0; --Yj) 6587 for(Yi=YA1_Ssolsor-1; Yi>=0; --Yi) 6588 { 6589 Yting[0]=YS1_gcx_dynspg_flt( Yi, Yj, YTemps); 6590 Yting[1]=YS1_gcb_dynspg_flt( Yi, Yj, YTemps); 6591 if (1==0 || Yj-1<0 || Yk-1<0) 6592 Yting[2]=0; 6593 else 6594 Yting[2]=YS1_solsor_gx2_x_r( Yi, Yj-1, Yk-1, YTemps); 6595 if (1==0 || Yi-1<0 || Yk-1<0) 6596 Yting[3]=0; 6597 else 6598 Yting[3]=YS1_solsor_gx2_x_r( Yi-1, Yj, Yk-1, YTemps); 6599 if (1==0 || Yi+1>YA1_Ssolsor-1 || Yk-1<0) 6600 Yting[4]=0; 6601 else 6602 Yting[4]=YS1_solsor_gx2_x_r( Yi+1, Yj, Yk-1, YTemps); 6603 if (1==0 || Yj+1>YA2_Ssolsor-1 || Yk-1<0) 6604 Yting[5]=0; 6605 else 6606 Yting[5]=YS1_solsor_gx2_x_r( Yi, Yj+1, Yk-1, YTemps); 6607 if (1==0 || Yk-1<0) 6608 Yting[6]=0; 6609 else 6610 Yting[6]=YS1_solsor_gx2_x_r( Yi, Yj, Yk-1, YTemps); 6611 if (1==0 || Yk-1<0) 6612 Yting[7]=0; 6613 else 6614 Yting[7]=YS2_solsor_flag( 31, 21, Yk-1, YTemps); 6615 memset(Yjac, 0, 62*sizeof(double)); 6616 Ysolsor_gx1_x_r->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7] ); 6617 Yvsmatt (YNBS_solsor_gx1_x_r, YNBI_solsor_gx1_x_r, YMAX_JAC_NBI, &YG1Y_solsor_gx1_x_r, Yjac[0], Ytbeta); 6618 YG1_gcx_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[0]; 6619 YG1_gcb_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[1]; 6620 if (1==0 || Yj-1<0 || Yk-1<0){} 6621 else 6622 YG1_solsor_gx2_x_r( Yi, Yj-1, Yk-1, YTemps) += Ytbeta[2]; 6623 if (1==0 || Yi-1<0 || Yk-1<0){} 6624 else 6625 YG1_solsor_gx2_x_r( Yi-1, Yj, Yk-1, YTemps) += Ytbeta[3]; 6626 if (1==0 || Yi+1>YA1_Ssolsor-1 || Yk-1<0){} 6627 else 6628 YG1_solsor_gx2_x_r( Yi+1, Yj, Yk-1, YTemps) += Ytbeta[4]; 6629 if (1==0 || Yj+1>YA2_Ssolsor-1 || Yk-1<0){} 6630 else 6631 YG1_solsor_gx2_x_r( Yi, Yj+1, Yk-1, YTemps) += Ytbeta[5]; 6632 if (1==0 || Yk-1<0){} 6633 else 6634 YG1_solsor_gx2_x_r( Yi, Yj, Yk-1, YTemps) += Ytbeta[6]; 6635 if (1==0 || Yk-1<0){} 6636 else 6637 YG2_solsor_flag( 31, 21, Yk-1, YTemps) += Ytbeta[7]; 6638 6639 } 6640 6641 } 6642 6643 return(0); 6644 } 6645 6646 int Yforward_space_S3dt_b() 6647 { 6648 YA1=32; YA2=22; YA3=31; 6649 Yi=-1; Yj=-1; Yk=-1; /* init des indices de maille: maj par la boucle si valide*/ 6650 for(Yj=0; Yj<YA2_S3dt_b; ++Yj) 6651 for(Yi=0; Yi<YA1_S3dt_b; ++Yi) 6652 { 6653 Yting[0]=YS1_solsor_gx2_x_r( Yi, Yj, 30, YTemps); 6654 Ygcx2->forward( Yting[0] ); 6655 6656 } 6657 for(Yj=0; Yj<YA2_S3dt_b; ++Yj) 6658 for(Yi=0; Yi<YA1_S3dt_b; ++Yi) 6659 { 6660 if (1==0 || Yi+1>YA1_S3dt_b-1) 6661 Yting[0]=0; 6662 else 6663 Yting[0]=YS1_gcx2( Yi+1, Yj, YTemps); 6664 Yting[1]=YS1_gcx2( Yi, Yj, YTemps); 6665 if (1==0 || Yj+1>YA2_S3dt_b-1) 6666 Yting[2]=0; 6667 else 6668 Yting[2]=YS1_gcx2( Yi, Yj+1, YTemps); 6669 Yspguv_dynspg_flt->forward( Yting[0], Yting[1], Yting[2] ); 6670 6671 } 6672 for(Yk=0; Yk<YA3_S3dt_b; ++Yk) 6673 for(Yj=0; Yj<YA2_S3dt_b; ++Yj) 6674 for(Yi=0; Yi<YA1_S3dt_b; ++Yi) 6675 { 6676 Yting[0]=YS1_ua_1_dynspg_flt( Yi, Yj, Yk, YTemps); 6677 Yting[1]=YS1_spguv_dynspg_flt( Yi, Yj, YTemps); 6678 Yting[2]=YS1_ua_c( Yi, Yj, Yk); 6679 Yua->forward( Yting[0], Yting[1], Yting[2] ); 6680 Yting[0]=YS1_va_1_dynspg_flt( Yi, Yj, Yk, YTemps); 6681 Yting[1]=YS2_spguv_dynspg_flt( Yi, Yj, YTemps); 6682 Yting[2]=YS1_va_c( Yi, Yj, Yk); 6683 Yva->forward( Yting[0], Yting[1], Yting[2] ); 6684 6685 } 6686 for(Yj=0; Yj<YA2_S3dt_b; ++Yj) 6687 for(Yi=0; Yi<YA1_S3dt_b; ++Yi) 6688 { 6689 Yting[0]=YS1_sshb( Yi, Yj, YTemps-1); 6690 Yting[1]=YS1_wa( Yi, Yj, 0, YTemps-1); 6691 Yting[2]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 6692 Yting[3]=YS1_sshn_c( Yi, Yj); 6693 Ysshn->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6694 Yting[0]=YS1_sshb( Yi, Yj, YTemps-1); 6695 Yting[1]=YS1_sshn( Yi, Yj, YTemps-1); 6696 Yting[2]=YS1_sshn( Yi, Yj, YTemps); 6697 Yting[3]=YS1_sshn_c( Yi, Yj); 6698 Ysshb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6699 6700 } 6701 for(Yk=0; Yk<YA3_S3dt_b; ++Yk) 6702 for(Yj=0; Yj<YA2_S3dt_b; ++Yj) 6703 for(Yi=0; Yi<YA1_S3dt_b; ++Yi) 6704 { 6705 Yting[0]=YS1_ub( Yi, Yj, Yk, YTemps-1); 6706 Yting[1]=YS1_ua( Yi, Yj, Yk, YTemps-1); 6707 Yting[2]=YS1_ua( Yi, Yj, Yk, YTemps); 6708 Yting[3]=YS1_ua_c( Yi, Yj, Yk); 6709 Yub->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6710 Yting[0]=YS1_vb( Yi, Yj, Yk, YTemps-1); 6711 Yting[1]=YS1_va( Yi, Yj, Yk, YTemps-1); 6712 Yting[2]=YS1_va( Yi, Yj, Yk, YTemps); 6713 Yting[3]=YS1_va_c( Yi, Yj, Yk); 6714 Yvb->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6715 6716 } 6717 for(Yk=0; Yk<YA3_S3dt_b; ++Yk) 6718 for(Yj=0; Yj<YA2_S3dt_b; ++Yj) 6719 for(Yi=0; Yi<YA1_S3dt_b; ++Yi) 6720 { 6721 Yting[0]=YS1_ua( Yi, Yj, Yk, YTemps); 6722 if (1==0 || Yi-1<0) 6723 Yting[1]=0; 6724 else 6725 Yting[1]=YS1_ua( Yi-1, Yj, Yk, YTemps); 6726 Yting[2]=YS1_va( Yi, Yj, Yk, YTemps); 6727 if (1==0 || Yj-1<0) 6728 Yting[3]=0; 6729 else 6730 Yting[3]=YS1_va( Yi, Yj-1, Yk, YTemps); 6731 Yhdivn->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6732 if (1==0 || Yi+1>YA1_S3dt_b-1) 6733 Yting[0]=0; 6734 else 6735 Yting[0]=YS1_va( Yi+1, Yj, Yk, YTemps); 6736 Yting[1]=YS1_va( Yi, Yj, Yk, YTemps); 6737 if (1==0 || Yj+1>YA2_S3dt_b-1) 6738 Yting[2]=0; 6739 else 6740 Yting[2]=YS1_ua( Yi, Yj+1, Yk, YTemps); 6741 Yting[3]=YS1_ua( Yi, Yj, Yk, YTemps); 6742 Yrotn->forward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6743 6744 } 6745 for(Yk=YA3_S3dt_b-1; Yk>=0; --Yk) 6746 for(Yj=0; Yj<YA2_S3dt_b; ++Yj) 6747 for(Yi=0; Yi<YA1_S3dt_b; ++Yi) 6748 { 6749 if (1==0 || Yk+1>YA3_S3dt_b-1) 6750 Yting[0]=0; 6751 else 6752 Yting[0]=YS1_wa( Yi, Yj, Yk+1, YTemps); 6753 Yting[1]=YS1_hdivn( Yi, Yj, Yk, YTemps); 6754 Ywa->forward( Yting[0], Yting[1] ); 6755 6756 } 6757 6758 return(0); 6759 } 6760 6761 int Ybackward_space_S3dt_b() 6762 { 6763 YA1=32; YA2=22; YA3=31; 6764 Yi=-1; Yj=-1; Yk=-1; /* init des indices de maille: maj par la boucle si valide*/ 6765 for(Yk=0; Yk<YA3_S3dt_b; ++Yk) 6766 for(Yj=YA2_S3dt_b-1; Yj>=0; --Yj) 6767 for(Yi=YA1_S3dt_b-1; Yi>=0; --Yi) 6768 { 6769 if (1==0 || Yk+1>YA3_S3dt_b-1) 6770 Yting[0]=0; 6771 else 6772 Yting[0]=YS1_wa( Yi, Yj, Yk+1, YTemps); 6773 Yting[1]=YS1_hdivn( Yi, Yj, Yk, YTemps); 6774 memset(Yjac, 0, 31*sizeof(double)); 6775 Ywa->backward( Yting[0], Yting[1] ); 6776 Yvsmatt (YNBS_wa, YNBI_wa, YMAX_JAC_NBI, &YG1Y_wa, Yjac[0], Ytbeta); 6777 if (1==0 || Yk+1>YA3_S3dt_b-1){} 6778 else 6779 YG1_wa( Yi, Yj, Yk+1, YTemps) += Ytbeta[0]; 6780 YG1_hdivn( Yi, Yj, Yk, YTemps) += Ytbeta[1]; 6781 6782 } 6783 for(Yk=YA3_S3dt_b-1; Yk>=0; --Yk) 6784 for(Yj=YA2_S3dt_b-1; Yj>=0; --Yj) 6785 for(Yi=YA1_S3dt_b-1; Yi>=0; --Yi) 6786 { 6787 if (1==0 || Yi+1>YA1_S3dt_b-1) 6788 Yting[0]=0; 6789 else 6790 Yting[0]=YS1_va( Yi+1, Yj, Yk, YTemps); 6791 Yting[1]=YS1_va( Yi, Yj, Yk, YTemps); 6792 if (1==0 || Yj+1>YA2_S3dt_b-1) 6793 Yting[2]=0; 6794 else 6795 Yting[2]=YS1_ua( Yi, Yj+1, Yk, YTemps); 6796 Yting[3]=YS1_ua( Yi, Yj, Yk, YTemps); 6797 memset(Yjac, 0, 31*sizeof(double)); 6798 Yrotn->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6799 Yvsmatt (YNBS_rotn, YNBI_rotn, YMAX_JAC_NBI, &YG1Y_rotn, Yjac[0], Ytbeta); 6800 if (1==0 || Yi+1>YA1_S3dt_b-1){} 6801 else 6802 YG1_va( Yi+1, Yj, Yk, YTemps) += Ytbeta[0]; 6803 YG1_va( Yi, Yj, Yk, YTemps) += Ytbeta[1]; 6804 if (1==0 || Yj+1>YA2_S3dt_b-1){} 6805 else 6806 YG1_ua( Yi, Yj+1, Yk, YTemps) += Ytbeta[2]; 6807 YG1_ua( Yi, Yj, Yk, YTemps) += Ytbeta[3]; 6808 Yting[0]=YS1_ua( Yi, Yj, Yk, YTemps); 6809 if (1==0 || Yi-1<0) 6810 Yting[1]=0; 6811 else 6812 Yting[1]=YS1_ua( Yi-1, Yj, Yk, YTemps); 6813 Yting[2]=YS1_va( Yi, Yj, Yk, YTemps); 6814 if (1==0 || Yj-1<0) 6815 Yting[3]=0; 6816 else 6817 Yting[3]=YS1_va( Yi, Yj-1, Yk, YTemps); 6818 memset(Yjac, 0, 31*sizeof(double)); 6819 Yhdivn->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6820 Yvsmatt (YNBS_hdivn, YNBI_hdivn, YMAX_JAC_NBI, &YG1Y_hdivn, Yjac[0], Ytbeta); 6821 YG1_ua( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 6822 if (1==0 || Yi-1<0){} 6823 else 6824 YG1_ua( Yi-1, Yj, Yk, YTemps) += Ytbeta[1]; 6825 YG1_va( Yi, Yj, Yk, YTemps) += Ytbeta[2]; 6826 if (1==0 || Yj-1<0){} 6827 else 6828 YG1_va( Yi, Yj-1, Yk, YTemps) += Ytbeta[3]; 6829 6830 } 6831 for(Yk=YA3_S3dt_b-1; Yk>=0; --Yk) 6832 for(Yj=YA2_S3dt_b-1; Yj>=0; --Yj) 6833 for(Yi=YA1_S3dt_b-1; Yi>=0; --Yi) 6834 { 6835 Yting[0]=YS1_vb( Yi, Yj, Yk, YTemps-1); 6836 Yting[1]=YS1_va( Yi, Yj, Yk, YTemps-1); 6837 Yting[2]=YS1_va( Yi, Yj, Yk, YTemps); 6838 Yting[3]=YS1_va_c( Yi, Yj, Yk); 6839 memset(Yjac, 0, 31*sizeof(double)); 6840 Yvb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6841 Yvsmatt (YNBS_vb, YNBI_vb, YMAX_JAC_NBI, &YG1Y_vb, Yjac[0], Ytbeta); 6842 YG1_vb( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 6843 YG1_va( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 6844 YG1_va( Yi, Yj, Yk, YTemps) += Ytbeta[2]; 6845 YG1_va_c( Yi, Yj, Yk) += Ytbeta[3]; 6846 Yting[0]=YS1_ub( Yi, Yj, Yk, YTemps-1); 6847 Yting[1]=YS1_ua( Yi, Yj, Yk, YTemps-1); 6848 Yting[2]=YS1_ua( Yi, Yj, Yk, YTemps); 6849 Yting[3]=YS1_ua_c( Yi, Yj, Yk); 6850 memset(Yjac, 0, 31*sizeof(double)); 6851 Yub->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6852 Yvsmatt (YNBS_ub, YNBI_ub, YMAX_JAC_NBI, &YG1Y_ub, Yjac[0], Ytbeta); 6853 YG1_ub( Yi, Yj, Yk, YTemps-1) += Ytbeta[0]; 6854 YG1_ua( Yi, Yj, Yk, YTemps-1) += Ytbeta[1]; 6855 YG1_ua( Yi, Yj, Yk, YTemps) += Ytbeta[2]; 6856 YG1_ua_c( Yi, Yj, Yk) += Ytbeta[3]; 6857 6858 } 6859 for(Yj=YA2_S3dt_b-1; Yj>=0; --Yj) 6860 for(Yi=YA1_S3dt_b-1; Yi>=0; --Yi) 6861 { 6862 Yting[0]=YS1_sshb( Yi, Yj, YTemps-1); 6863 Yting[1]=YS1_sshn( Yi, Yj, YTemps-1); 6864 Yting[2]=YS1_sshn( Yi, Yj, YTemps); 6865 Yting[3]=YS1_sshn_c( Yi, Yj); 6866 memset(Yjac, 0, 31*sizeof(double)); 6867 Ysshb->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6868 Yvsmatt (YNBS_sshb, YNBI_sshb, YMAX_JAC_NBI, &YG1Y_sshb, Yjac[0], Ytbeta); 6869 YG1_sshb( Yi, Yj, YTemps-1) += Ytbeta[0]; 6870 YG1_sshn( Yi, Yj, YTemps-1) += Ytbeta[1]; 6871 YG1_sshn( Yi, Yj, YTemps) += Ytbeta[2]; 6872 YG1_sshn_c( Yi, Yj) += Ytbeta[3]; 6873 Yting[0]=YS1_sshb( Yi, Yj, YTemps-1); 6874 Yting[1]=YS1_wa( Yi, Yj, 0, YTemps-1); 6875 Yting[2]=YS1_sbcgyre_emp( Yi, Yj, YTemps); 6876 Yting[3]=YS1_sshn_c( Yi, Yj); 6877 memset(Yjac, 0, 31*sizeof(double)); 6878 Ysshn->backward( Yting[0], Yting[1], Yting[2], Yting[3] ); 6879 Yvsmatt (YNBS_sshn, YNBI_sshn, YMAX_JAC_NBI, &YG1Y_sshn, Yjac[0], Ytbeta); 6880 YG1_sshb( Yi, Yj, YTemps-1) += Ytbeta[0]; 6881 YG1_wa( Yi, Yj, 0, YTemps-1) += Ytbeta[1]; 6882 YG1_sbcgyre_emp( Yi, Yj, YTemps) += Ytbeta[2]; 6883 YG1_sshn_c( Yi, Yj) += Ytbeta[3]; 6884 6885 } 6886 for(Yk=YA3_S3dt_b-1; Yk>=0; --Yk) 6887 for(Yj=YA2_S3dt_b-1; Yj>=0; --Yj) 6888 for(Yi=YA1_S3dt_b-1; Yi>=0; --Yi) 6889 { 6890 Yting[0]=YS1_va_1_dynspg_flt( Yi, Yj, Yk, YTemps); 6891 Yting[1]=YS2_spguv_dynspg_flt( Yi, Yj, YTemps); 6892 Yting[2]=YS1_va_c( Yi, Yj, Yk); 6893 memset(Yjac, 0, 31*sizeof(double)); 6894 Yva->backward( Yting[0], Yting[1], Yting[2] ); 6895 Yvsmatt (YNBS_va, YNBI_va, YMAX_JAC_NBI, &YG1Y_va, Yjac[0], Ytbeta); 6896 YG1_va_1_dynspg_flt( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 6897 YG2_spguv_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[1]; 6898 YG1_va_c( Yi, Yj, Yk) += Ytbeta[2]; 6899 Yting[0]=YS1_ua_1_dynspg_flt( Yi, Yj, Yk, YTemps); 6900 Yting[1]=YS1_spguv_dynspg_flt( Yi, Yj, YTemps); 6901 Yting[2]=YS1_ua_c( Yi, Yj, Yk); 6902 memset(Yjac, 0, 31*sizeof(double)); 6903 Yua->backward( Yting[0], Yting[1], Yting[2] ); 6904 Yvsmatt (YNBS_ua, YNBI_ua, YMAX_JAC_NBI, &YG1Y_ua, Yjac[0], Ytbeta); 6905 YG1_ua_1_dynspg_flt( Yi, Yj, Yk, YTemps) += Ytbeta[0]; 6906 YG1_spguv_dynspg_flt( Yi, Yj, YTemps) += Ytbeta[1]; 6907 YG1_ua_c( Yi, Yj, Yk) += Ytbeta[2]; 6908 6909 } 6910 for(Yj=YA2_S3dt_b-1; Yj>=0; --Yj) 6911 for(Yi=YA1_S3dt_b-1; Yi>=0; --Yi) 6912 { 6913 if (1==0 || Yi+1>YA1_S3dt_b-1) 6914 Yting[0]=0; 6915 else 6916 Yting[0]=YS1_gcx2( Yi+1, Yj, YTemps); 6917 Yting[1]=YS1_gcx2( Yi, Yj, YTemps); 6918 if (1==0 || Yj+1>YA2_S3dt_b-1) 6919 Yting[2]=0; 6920 else 6921 Yting[2]=YS1_gcx2( Yi, Yj+1, YTemps); 6922 memset(Yjac, 0, 62*sizeof(double)); 6923 Yspguv_dynspg_flt->backward( Yting[0], Yting[1], Yting[2] ); 6924 Yvsmatt (YNBS_spguv_dynspg_flt, YNBI_spguv_dynspg_flt, YMAX_JAC_NBI, &YG1Y_spguv_dynspg_flt, Yjac[0], Ytbeta); 6925 if (1==0 || Yi+1>YA1_S3dt_b-1){} 6926 else 6927 YG1_gcx2( Yi+1, Yj, YTemps) += Ytbeta[0]; 6928 YG1_gcx2( Yi, Yj, YTemps) += Ytbeta[1]; 6929 if (1==0 || Yj+1>YA2_S3dt_b-1){} 6930 else 6931 YG1_gcx2( Yi, Yj+1, YTemps) += Ytbeta[2]; 6932 6933 } 6934 for(Yj=YA2_S3dt_b-1; Yj>=0; --Yj) 6935 for(Yi=YA1_S3dt_b-1; Yi>=0; --Yi) 6936 { 6937 Yting[0]=YS1_solsor_gx2_x_r( Yi, Yj, 30, YTemps); 6938 memset(Yjac, 0, 31*sizeof(double)); 6939 Ygcx2->backward( Yting[0] ); 6940 Yvsmatt (YNBS_gcx2, YNBI_gcx2, YMAX_JAC_NBI, &YG1Y_gcx2, Yjac[0], Ytbeta); 6941 YG1_solsor_gx2_x_r( Yi, Yj, 30, YTemps) += Ytbeta[0]; 6942 6943 } 6944 6945 return(0); 6946 } 6947 7168 6948 int Yforward_traj_Tsbd(int nbp) 7169 6949 { 7170 6950 Ycurward=FORWARD; 7171 6951 Yforward_space_S3dt(); 6952 Yforward_space_Ssolsor(); 6953 Yforward_space_S3dt_b(); 7172 6954 return(0); 7173 6955 } … … 7176 6958 { 7177 6959 Ycurward=BACKWARD; 6960 Ybackward_space_S3dt_b(); 6961 Ybackward_space_Ssolsor(); 7178 6962 Ybackward_space_S3dt(); 7179 6963 return(0); … … 7199 6983 } 7200 6984 7201 // € € € € € € € €LES FONCTIONS UTILISATEUR ... :6985 // ￜ ￜ ￜ ￜ ￜ ￜ ￜ ￜ LES FONCTIONS UTILISATEUR ... : 7202 6986 int Yuser_call (int argc, char *argv[]) 7203 6987 { -
trunk/src/Yworkdir/Yaoext_sinobad
r44 r45 1 2 #---------------------------------------------------- 3 # project: sinobad header generated by YAO version v.9 4 #---------------------------------------------------- 5 1 6 #!/bin/sh 2 7 LDYEXTOBJ=" ../object/ncutil.o " -
trunk/src/Yworkdir/Ysinobad.cpp
r37 r45 561 561 #include "Y2sinobad.h" 562 562 #define PRJNAME "sinobad" 563 #define VERREF "YaoI V.9 01.11.2008 (release 01.11.2008) -O3"563 #define VERREF "YaoI V.9 01.11.2008 (release 01.11.2008) " 564 564 565 565 //============================================================================= -
trunk/src/gcx2.h
r1 r45 7 7 //=========================================================================== 8 8 // methode forward 9 forward ( )9 forward (YREAL x1) 10 10 { 11 11 /* YS1 */ … … 17 17 } 18 18 else 19 YS1=gcx(Yi,Yj); 19 // YS1=gcx(Yi,Yj); 20 YS1= x1; 20 21 // 21 22 } … … 24 25 // methode backward 25 26 26 backward ( )27 backward (YREAL x) 27 28 { 28 29 if(Yt==TU){ 30 YJ1I1=0; 31 // YS1=0.; 32 } 33 else 34 // YS1=gcx(Yi,Yj); 35 YJ1I1=1; 36 // 29 37 } 38 30 39 31 40 //=========================================================================== -
trunk/src/sinobad.d
r44 r45 9 9 defval NY 22 10 10 defval NZ 31 11 defval NMAX 800 // ! maximum of iterations for the SOR solver 11 12 defval TA 10 |50 | number of time steps 12 13 defval TU 2 | start time step … … 25 26 option O_EXTOBJ "../object/ncutil.o" 26 27 option O_REAL double 27 option o_parallel 1628 #option o_parallel 16 28 29 29 30 #TRAJECTOIRES (DIM) -----------------------------------TRAJ … … 37 38 space S3d M NX NY NZ Tcst 38 39 space S3dt M NX NY NZ Tsbd 40 space S3dt_b M NX NY NZ Tsbd 41 space Ssolsor M NX NY NMAX Tsbd 39 42 40 43 exec disp_space … … 191 194 modul gcb_dynspg_flt space S3dt inter YA1 YA2 input 4 output 1 tempo 192 195 modul gcx_dynspg_flt space S3dt inter YA1 YA2 input 2 output 1 tempo 193 modul solsor_dynspg_flt space S3dt inter YA1 YA2 input array 19 output 1 tempo 194 modul gcx2 space S3dt inter YA1 YA2 input array 1 output 1 tempo 195 modul spguv_dynspg_flt space S3dt inter YA1 YA2 input 3 output 2 tempo 196 modul ua space S3dt input 3 output 1 tempo 197 modul va space S3dt input 3 output 1 tempo 198 modul sshn space S3dt inter YA1 YA2 input 4 output 1 tempo 199 modul sshb space S3dt inter YA1 YA2 input 4 output 1 tempo cout 196 //modul solsor_dynspg_flt space S3dt inter YA1 YA2 input array 19 output 1 tempo 197 modul solsor_gx1_x_r space Ssolsor input 8 output 2 tempo 198 modul solsor_gx2_x_r space Ssolsor input 9 output 2 tempo 199 modul solsor_flag space Ssolsor input 4 output 2 tempo 200 modul gcx2 space S3dt_b inter YA1 YA2 input 1 output 1 tempo 201 modul spguv_dynspg_flt space S3dt_b inter YA1 YA2 input 3 output 2 tempo 202 modul ua space S3dt_b input 3 output 1 tempo 203 modul va space S3dt_b input 3 output 1 tempo 204 modul sshn space S3dt_b inter YA1 YA2 input 4 output 1 tempo 205 modul sshb space S3dt_b inter YA1 YA2 input 4 output 1 tempo cout 200 206 ##END_dyn_spg 201 207 202 208 ##START_dyn_nxt 203 209 #nxt : filtre d'asselin 204 modul ub space S3dt input 4 output 1 tempo cout205 modul vb space S3dt input 4 output 1 tempo cout210 modul ub space S3dt_b input 4 output 1 tempo cout 211 modul vb space S3dt_b input 4 output 1 tempo cout 206 212 ##END_dyn_nxt 207 213 208 214 ##START_divcur 209 215 #calcul de div et de rotationnel 210 modul hdivn space S3dt input 4 output 1 tempo211 modul rotn space S3dt input 4 output 1 tempo216 modul hdivn space S3dt_b input 4 output 1 tempo 217 modul rotn space S3dt_b input 4 output 1 tempo 212 218 ##END_divcur 213 219 214 220 ##START_wzv 215 221 #vitesse vertical 216 modul wa space S3dt input 2 output 1 tempo222 modul wa space S3dt_b input 2 output 1 tempo 217 223 ##END_wzv 218 224 … … 583 589 ctin sshb 4 from sshn_c 1 i j 584 590 ############## Ajout de ctin "virtuels" ############## 585 ctin solsor_dynspg_flt 1..9 from gcx_dynspg_flt 1 i%~1 j%~1 t 586 ctin solsor_dynspg_flt 10..18 from gcb_dynspg_flt 1 i%~1 j%~1 t 587 ctin solsor_dynspg_flt 19 from solsor_dynspg_flt 1 i-1 j-1 t 588 ctin gcx2 1 from solsor_dynspg_flt 1 i j t 589 591 #ctin solsor_dynspg_flt 1..9 from gcx_dynspg_flt 1 i%~1 j%~1 t 592 #ctin solsor_dynspg_flt 10..18 from gcb_dynspg_flt 1 i%~1 j%~1 t 593 #ctin solsor_dynspg_flt 19 from solsor_dynspg_flt 1 i-1 j-1 t 594 #ctin gcx2 1 from solsor_dynspg_flt 1 i j t 595 596 ctin solsor_flag 1 from solsor_gx2_x_r 2 i j k t 597 ctin solsor_flag 2 from solsor_flag 2 NX NY k-1 t 598 ctin solsor_flag 3 from solsor_flag 1 i-1 NY k t 599 ctin solsor_flag 4 from solsor_flag 1 i j-1 k-1 t 600 601 ctin solsor_gx1_x_r 1 from gcx_dynspg_flt 1 i j t 602 ctin solsor_gx1_x_r 2 from gcb_dynspg_flt 1 i j t 603 ctin solsor_gx1_x_r 3 from solsor_gx2_x_r 1 i j-1 k-1 t 604 ctin solsor_gx1_x_r 4 from solsor_gx2_x_r 1 i-1 j k-1 t 605 ctin solsor_gx1_x_r 5 from solsor_gx2_x_r 1 i+1 j k-1 t 606 ctin solsor_gx1_x_r 6 from solsor_gx2_x_r 1 i j+1 k-1 t 607 ctin solsor_gx1_x_r 7 from solsor_gx2_x_r 1 i j k-1 t 608 ctin solsor_gx1_x_r 8 from solsor_flag 2 NX NY k-1 t 609 610 ctin solsor_gx2_x_r 1 from gcx_dynspg_flt 1 i j t 611 ctin solsor_gx2_x_r 2 from gcb_dynspg_flt 1 i j t 612 ctin solsor_gx2_x_r 3 from solsor_gx1_x_r 1 i j-1 k t 613 ctin solsor_gx2_x_r 4 from solsor_gx1_x_r 1 i-1 j k t 614 ctin solsor_gx2_x_r 5 from solsor_gx1_x_r 1 i+1 j k t 615 ctin solsor_gx2_x_r 6 from solsor_gx1_x_r 1 i j+1 k t 616 ctin solsor_gx2_x_r 7 from solsor_gx1_x_r 1 i j k t 617 ctin solsor_gx2_x_r 8 from solsor_flag 2 NX NY k-1 t 618 ctin solsor_gx2_x_r 9 from solsor_gx1_x_r 2 i j k t 619 620 ctin gcx2 1 from solsor_gx2_x_r 1 i j NZ t 590 621 #---------->dyn_nxt 591 622 ctin ub 1 from ub 1 i j k t-1 … … 753 784 gcb_dynspg_flt gcx_dynspg_flt 754 785 forder 755 order YA1 YA2 756 solsor_dynspg_flt 757 forder 786 forder 787 788 order modinspace Ssolsor 789 order YA3 790 order YA2 YA1 791 solsor_gx1_x_r 792 forder 793 794 order YA2 YA1 795 solsor_gx2_x_r 796 forder 797 798 order YA1 YA2 799 solsor_flag 800 forder 801 forder 802 forder 803 804 order modinspace S3dt_b 758 805 order YA2 YA1 759 806 gcx2 … … 787 834 788 835 order spaceintraj Tsbd 789 S3dt 836 S3dt Ssolsor S3dt_b 790 837 forder 791 838 -
trunk/src/solsor_dynspg_flt.h
r44 r45 27 27 // gcxb(ji,jj)=gcx(ji,jj); 28 28 gcx(ji,jj)=YS_gcx_dynspg_flt(0,ji,jj,Yt); 29 30 /*test solsor */ 31 if (Yt==TU+1) { 32 33 fprintf(fid,"%d\t%d\t%d\t%e\t%e\n",0,jj,ji,gcx(ji,jj),gcr(ji,jj)); 34 } 35 36 29 37 } 30 38 //if(Yt==6) printf("------------------gcx(ji,jj,0,t) =%lf\n",gcx(28,2) ); -
trunk/src/solsor_flag.h
r44 r45 8 8 forward (YREAL x1, YREAL x2, YREAL x3, YREAL x4) 9 9 { 10 /* 1 from solsor_gcx_gcr 2 i j k t10 /* 1 from solsor_gx2_x_r 2 i j k t 11 11 2 from solsor_flag 2 NX NY k-1 t 12 12 3 from solsor_flag 1 i-1 NY k t 13 13 4 from solsor_flag 1 i j-1 k t 14 }15 output 1 : resmax16 oupput 2 : flag (0 -> continue; 1 -> stop)17 18 */19 20 //jn (current iteration) = Yk+1 21 22 if (Yk<=nmin)23 {24 YS1=0;25 YS2=0;26 }27 else {28 if (x2 == 1) {29 YS1=0; //plus besoin d'avoir la valeur du max30 YS2=1;31 }32 else {33 34 if ( (Yi==0) & (Yj==0) ) {35 36 }37 else {38 39 40 41 42 } // Yi>0 || Yj>043 } //x2==044 } //Yk>kmin45 14 } 15 output 1 : resmax 16 oupput 2 : flag (0 -> continue; 1 -> stop) 17 18 */ 19 20 //jn (current iteration) = Yk 21 22 if (Yk<=nmin) 23 { 24 YS1=0; 25 YS2=0; 26 } 27 else { 28 if (x2 == 1) { 29 YS1=0; //plus besoin d'avoir la valeur du max 30 YS2=1; 31 } 32 else { 33 34 if ( (Yi==0) & (Yj==0) ) { 35 YS1=x1; 36 } 37 else { 38 if (Yj==0) YS1= ((x3<x1) ? x1 : x3) ; //max(x1,x3) 39 else YS1 = ((x4<x1) ? x1 : x4) ; // max(x1,x4) 40 if ( ( (Yi==NX-1) & (Yj ==NX-1) ) & (YS1< resmax)) YS2=1; //moment de tester le maximum 41 else YS2=0; 42 } // Yi>0 || Yj>0 43 } //x2==0 44 } //Yk>kmin 45 } 46 46 //=========================================================================== 47 47 // methode backward 48 48 49 backward ( )49 backward (YREAL x1, YREAL x2, YREAL x3, YREAL x4) 50 50 { 51 51 } -
trunk/src/solsor_gx1_x_r.h
r44 r45 21 21 22 22 */ 23 if(Yt==TU)24 {25 YS1=0;26 YS2=0;27 }28 else {29 int t;30 if(Yt==TU+1 && neuler==0)31 t=0;32 else33 t=1;34 35 if (x8==1)36 {37 38 39 }40 else41 {42 43 if ( ( (Yi==0) | (Yj==0) ) | ( (Yi==NX-1) | (Yj==NY-1)) {44 45 46 47 48 49 50 51 52 53 YREAL gcx,gcr,ztmp,zres;54 55 56 57 - gcp(ji,jj,0,t) * x358 - gcp(ji,jj,1,t) * x459 - gcp(ji,jj,2,t) * x560 - gcp(ji,jj,3,t) * x6;61 62 63 YS2 = zres * gcdmat(ji,jj,t) * zres;64 65 66 67 68 69 70 71 72 73 }74 75 76 } // Yk>0 77 } //if x8==078 23 if(Yt==TU) 24 { 25 YS1=0; 26 YS2=0; 27 } 28 else { 29 int t; 30 if(Yt==TU+1 && neuler==0) 31 t=0; 32 else 33 t=1; 34 35 if (x8==1) 36 { 37 YS1=x7; 38 YS2=0; 39 } 40 else 41 { 42 if (Yk==0) { 43 if ( ( (Yi==0) | (Yj==0) ) | ( (Yi==NX-1) | (Yj==NY-1) )) { 44 YS1=0; 45 YS2=0; 46 } 47 else { 48 YS1=x1; 49 YS2=0; 50 } 51 } //Yk=0; 52 else { 53 YREAL ztmp,zres; 54 int ishift=Yj%2; 55 if ((Yi+1)%2==ishift) { //! Guess black update 56 ztmp = x2 57 - gcp(Yi,Yj,0,t) * x3 58 - gcp(Yi,Yj,1,t) * x4 59 - gcp(Yi,Yj,2,t) * x5 60 - gcp(Yi,Yj,3,t) * x6; 61 // ! Estimate of the residual 62 zres = ztmp - x7; 63 YS2 = zres * gcdmat(Yi,Yj,t) * zres; 64 // ! Guess update 65 YS1 = sor * ztmp + (1.-sor) * x7; 66 } 67 else 68 { 69 YS2=0; 70 YS1=x7; 71 } 72 73 74 } // Yk>0 75 } //if x8==0 76 if (Yt==TU+1) 77 printf("%d\t%d\t%d\t%e\t%e\n",Yk,Yj,Yi,YS1,YS2); 78 } //Yt>TU 79 79 } 80 80 … … 82 82 // methode backward 83 83 84 backward ( ) {84 backward (YREAL x1, YREAL x2, YREAL x3, YREAL x4, YREAL x5, YREAL x6, YREAL x7, YREAL x8) { 85 85 } -
trunk/src/solsor_gx2_x_r.h
r44 r45 16 16 7 from solsor_gc1_x_r 1 i j k t 17 17 8 from solsor_flag 2 NX NY k t 18 9 from solsor_gc1_x_r 2 i j k 18 9 from solsor_gc1_x_r 2 i j k-1 t 19 19 } 20 20 output 1 : gcx … … 46 46 } //Yk=0; 47 47 else { 48 YREAL gcx,gcr,ztmp,zres;48 YREAL ztmp,zres; 49 49 int ishift=(Yj-1)%2; 50 50 if ((Yi+1)%2==ishift) { //! Guess black update 51 51 ztmp = x2 52 - gcp( ji,jj,0,t) * x353 - gcp( ji,jj,1,t) * x454 - gcp( ji,jj,2,t) * x555 - gcp( ji,jj,3,t) * x6;52 - gcp(Yi,Yj,0,t) * x3 53 - gcp(Yi,Yj,1,t) * x4 54 - gcp(Yi,Yj,2,t) * x5 55 - gcp(Yi,Yj,3,t) * x6; 56 56 // ! Estimate of the residual 57 57 zres = ztmp - x7; 58 YS2 = zres * gcdmat( ji,jj,t) * zres;58 YS2 = zres * gcdmat(Yi,Yj,t) * zres; 59 59 // ! Guess update 60 60 YS1 = sor * ztmp + (1.-sor) * x7; … … 66 66 } 67 67 68 } 69 68 70 69 71 70 } // Yk>0 … … 77 76 // methode backward 78 77 79 backward ( ) {78 backward (YREAL x1, YREAL x2, YREAL x3, YREAL x4, YREAL x5, YREAL x6, YREAL x7, YREAL x8, YREAL x9) { 80 79 }
Note: See TracChangeset
for help on using the changeset viewer.
