//---------------------------------------------------- // project: floater_delta header generated by YAO version v.9 //---------------------------------------------------- // DEFINE FOR PARALLELISM #define NOT_PARALLEL //¤ ¤ ¤ ¤ LES DECLARATIONS DE CLASS, DEFINE ET ALLOCATION DU PROJET #define jtlag 12 #define nlon 87 #define nlat 58 #define nfloat 1 #define Y3_M 8 #define YO_M1QN3 #define YO_GRADTEST #define YDOUBLE #define YTINY 1.e-15 #define YREAL double #define YNBUPTIME_T_float 1 #define YNBSTEPTIME_T_float 12 #define YNBALLTIME_T_float 13 #define YDt_T_float YTabTraj[0].dtime #define Yid_T_float 0 #define YNBUPTIME_T_euler 0 #define YNBSTEPTIME_T_euler 1 #define YNBALLTIME_T_euler 1 #define YDt_T_euler YTabTraj[1].dtime #define Yid_T_euler 1 #define YNBUPTIME_T_float_d 1 #define YNBSTEPTIME_T_float_d 12 #define YNBALLTIME_T_float_d 13 #define YDt_T_float_d YTabTraj[2].dtime #define Yid_T_float_d 2 #define YNBUPTIME_T_euler_d 0 #define YNBSTEPTIME_T_euler_d 1 #define YNBALLTIME_T_euler_d 1 #define YDt_T_euler_d YTabTraj[3].dtime #define Yid_T_euler_d 3 #define YA1_S_float 1 #define YDIM_S_float 1 #define YNB_S_float 1 #define Yid_S_float 0 #define YA1_S_euler 87 #define YA2_S_euler 58 #define YDIM_S_euler 2 #define YNB_S_euler 5046 #define Yid_S_euler 1 #define YA1_S_eulerlocate 1 #define YA2_S_eulerlocate 87 #define YA3_S_eulerlocate 58 #define YA2A3_S_eulerlocate 5046 #define YDIM_S_eulerlocate 3 #define YNB_S_eulerlocate 5046 #define Yid_S_eulerlocate 2 #define YA1_S_float_d 1 #define YDIM_S_float_d 1 #define YNB_S_float_d 1 #define Yid_S_float_d 3 #define YA1_S_euler_d 87 #define YA2_S_euler_d 58 #define YDIM_S_euler_d 2 #define YNB_S_euler_d 5046 #define Yid_S_euler_d 4 #define YA1_S_eulerlocate_d 1 #define YA2_S_eulerlocate_d 87 #define YA3_S_eulerlocate_d 58 #define YA2A3_S_eulerlocate_d 5046 #define YDIM_S_eulerlocate_d 3 #define YNB_S_eulerlocate_d 5046 #define Yid_S_eulerlocate_d 5 /*----------------- GENERATION OF MODULES... -------------*/ //~~~~~~~~~~~~~~~~~~~~~~~~~ module r_float~~~~~~~~~~~~~~~~~~~~~~~~~ #define Yid_r_float 0 /*M1_VALST */ #define Ydelta_r_float(v, i, t) Yr_float[i]->Ydelta[t][v] /*M1_VALST */ #define YD_r_float(v, i, t) Yr_float[i]->Ydelta[t][v] /*M1_VALSIT */ #define YD1_r_float(i, t) Yr_float[i]->Ydelta[t][0] /*M1_VALSIT */ #define YD2_r_float(i, t) Yr_float[i]->Ydelta[t][1] /*M1_HERESIT*/ #define YD1Y_r_float Yr_float[Yi]->Ydelta[YTemps][0] /*M1_HERESIT*/ #define YD2Y_r_float Yr_float[Yi]->Ydelta[YTemps][1] class Yaor_float; class r_float; /*NBSMOD */ #define YNBS_r_float 2 /*NBIMOD */ #define YNBI_r_float 4 /*M1_IRMOD */ #define Yr_float(i) Yr_float[i] /*M1_NOWMOD */ #define Yr_floatY Yr_float[Yi] /*M1_VALST */ #define Ystate_r_float(v, i, t) Yr_float[i]->Ystate[t][v] /*M1_VALST */ #define YS_r_float(v, i, t) Yr_float[i]->Ystate[t][v] /*M1_VALSIT */ #define YS1_r_float(i, t) Yr_float[i]->Ystate[t][0] /*M1_HERESIT*/ #define YS1Y_r_float Yr_float[Yi]->Ystate[YTemps][0] /*M1_VALSIT */ #define YS2_r_float(i, t) Yr_float[i]->Ystate[t][1] /*M1_HERESIT*/ #define YS2Y_r_float Yr_float[Yi]->Ystate[YTemps][1] /*M1_VALST */ #define Ygrad_r_float(v, i, t) Yr_float[i]->Ygrad[t][v] /*M1_VALST */ #define YG_r_float(v, i, t) Yr_float[i]->Ygrad[t][v] /*M1_VALSIT */ #define YG1_r_float(i, t) Yr_float[i]->Ygrad[t][0] /*M1_HERESIT*/ #define YG1Y_r_float Yr_float[Yi]->Ygrad[YTemps][0] /*M1_VALSIT */ #define YG2_r_float(i, t) Yr_float[i]->Ygrad[t][1] /*M1_HERESIT*/ #define YG2Y_r_float Yr_float[Yi]->Ygrad[YTemps][1] r_float *Yr_float[YA1_S_float]; //~~~~~~~~~~~~~~~~~~~~~~~~~ module ur~~~~~~~~~~~~~~~~~~~~~~~~~ #define Yid_ur 1 /*M1_VALST */ #define Ydelta_ur(v, i, t) Yur[i]->Ydelta[t][v] /*M1_VALST */ #define YD_ur(v, i, t) Yur[i]->Ydelta[t][v] /*M1_VALSIT */ #define YD1_ur(i, t) Yur[i]->Ydelta[t][0] /*M1_VALSIT */ #define YD2_ur(i, t) Yur[i]->Ydelta[t][1] /*M1_HERESIT*/ #define YD1Y_ur Yur[Yi]->Ydelta[YTemps][0] /*M1_HERESIT*/ #define YD2Y_ur Yur[Yi]->Ydelta[YTemps][1] class Yaour; class ur; /*NBSMOD */ #define YNBS_ur 2 /*NBIMOD */ #define YNBI_ur 18 /*M1_IRMOD */ #define Yur(i) Yur[i] /*M1_NOWMOD */ #define YurY Yur[Yi] /*M1_VALST */ #define Ystate_ur(v, i, t) Yur[i]->Ystate[t][v] /*M1_VALST */ #define YS_ur(v, i, t) Yur[i]->Ystate[t][v] /*M1_VALSIT */ #define YS1_ur(i, t) Yur[i]->Ystate[t][0] /*M1_HERESIT*/ #define YS1Y_ur Yur[Yi]->Ystate[YTemps][0] /*M1_VALSIT */ #define YS2_ur(i, t) Yur[i]->Ystate[t][1] /*M1_HERESIT*/ #define YS2Y_ur Yur[Yi]->Ystate[YTemps][1] /*M1_VALST */ #define Ygrad_ur(v, i, t) Yur[i]->Ygrad[t][v] /*M1_VALST */ #define YG_ur(v, i, t) Yur[i]->Ygrad[t][v] /*M1_VALSIT */ #define YG1_ur(i, t) Yur[i]->Ygrad[t][0] /*M1_HERESIT*/ #define YG1Y_ur Yur[Yi]->Ygrad[YTemps][0] /*M1_VALSIT */ #define YG2_ur(i, t) Yur[i]->Ygrad[t][1] /*M1_HERESIT*/ #define YG2Y_ur Yur[Yi]->Ygrad[YTemps][1] ur *Yur[YA1_S_float]; //~~~~~~~~~~~~~~~~~~~~~~~~~ module uinter~~~~~~~~~~~~~~~~~~~~~~~~~ #define Yid_uinter 2 /*M1_VALST */ #define Ydelta_uinter(v, i, t) Yuinter[i]->Ydelta[t][v] /*M1_VALST */ #define YD_uinter(v, i, t) Yuinter[i]->Ydelta[t][v] /*M1_VALSIT */ #define YD1_uinter(i, t) Yuinter[i]->Ydelta[t][0] /*M1_VALSIT */ #define YD2_uinter(i, t) Yuinter[i]->Ydelta[t][1] /*M1_VALSIT */ #define YD3_uinter(i, t) Yuinter[i]->Ydelta[t][2] /*M1_VALSIT */ #define YD4_uinter(i, t) Yuinter[i]->Ydelta[t][3] /*M1_VALSIT */ #define YD5_uinter(i, t) Yuinter[i]->Ydelta[t][4] /*M1_VALSIT */ #define YD6_uinter(i, t) Yuinter[i]->Ydelta[t][5] /*M1_VALSIT */ #define YD7_uinter(i, t) Yuinter[i]->Ydelta[t][6] /*M1_VALSIT */ #define YD8_uinter(i, t) Yuinter[i]->Ydelta[t][7] /*M1_HERESIT*/ #define YD1Y_uinter Yuinter[Yi]->Ydelta[YTemps][0] /*M1_HERESIT*/ #define YD2Y_uinter Yuinter[Yi]->Ydelta[YTemps][1] /*M1_HERESIT*/ #define YD3Y_uinter Yuinter[Yi]->Ydelta[YTemps][2] /*M1_HERESIT*/ #define YD4Y_uinter Yuinter[Yi]->Ydelta[YTemps][3] /*M1_HERESIT*/ #define YD5Y_uinter Yuinter[Yi]->Ydelta[YTemps][4] /*M1_HERESIT*/ #define YD6Y_uinter Yuinter[Yi]->Ydelta[YTemps][5] /*M1_HERESIT*/ #define YD7Y_uinter Yuinter[Yi]->Ydelta[YTemps][6] /*M1_HERESIT*/ #define YD8Y_uinter Yuinter[Yi]->Ydelta[YTemps][7] class Yaouinter; /*NBSMOD */ #define YNBS_uinter 8 /*M1_IRMOD */ #define Yuinter(i) Yuinter[i] /*M1_NOWMOD */ #define YuinterY Yuinter[Yi] /*M1_VALST */ #define Ystate_uinter(v, i, t) Yuinter[i]->Ystate[t][v] /*M1_VALST */ #define YS_uinter(v, i, t) Yuinter[i]->Ystate[t][v] /*M1_VALSIT */ #define YS1_uinter(i, t) Yuinter[i]->Ystate[t][0] /*M1_HERESIT*/ #define YS1Y_uinter Yuinter[Yi]->Ystate[YTemps][0] /*M1_VALSIT */ #define YS2_uinter(i, t) Yuinter[i]->Ystate[t][1] /*M1_HERESIT*/ #define YS2Y_uinter Yuinter[Yi]->Ystate[YTemps][1] /*M1_VALSIT */ #define YS3_uinter(i, t) Yuinter[i]->Ystate[t][2] /*M1_HERESIT*/ #define YS3Y_uinter Yuinter[Yi]->Ystate[YTemps][2] /*M1_VALSIT */ #define YS4_uinter(i, t) Yuinter[i]->Ystate[t][3] /*M1_HERESIT*/ #define YS4Y_uinter Yuinter[Yi]->Ystate[YTemps][3] /*M1_VALSIT */ #define YS5_uinter(i, t) Yuinter[i]->Ystate[t][4] /*M1_HERESIT*/ #define YS5Y_uinter Yuinter[Yi]->Ystate[YTemps][4] /*M1_VALSIT */ #define YS6_uinter(i, t) Yuinter[i]->Ystate[t][5] /*M1_HERESIT*/ #define YS6Y_uinter Yuinter[Yi]->Ystate[YTemps][5] /*M1_VALSIT */ #define YS7_uinter(i, t) Yuinter[i]->Ystate[t][6] /*M1_HERESIT*/ #define YS7Y_uinter Yuinter[Yi]->Ystate[YTemps][6] /*M1_VALSIT */ #define YS8_uinter(i, t) Yuinter[i]->Ystate[t][7] /*M1_HERESIT*/ #define YS8Y_uinter Yuinter[Yi]->Ystate[YTemps][7] /*M1_VALST */ #define Ygrad_uinter(v, i, t) Yuinter[i]->Ygrad[t][v] /*M1_VALST */ #define YG_uinter(v, i, t) Yuinter[i]->Ygrad[t][v] /*M1_VALSIT */ #define YG1_uinter(i, t) Yuinter[i]->Ygrad[t][0] /*M1_HERESIT*/ #define YG1Y_uinter Yuinter[Yi]->Ygrad[YTemps][0] /*M1_VALSIT */ #define YG2_uinter(i, t) Yuinter[i]->Ygrad[t][1] /*M1_HERESIT*/ #define YG2Y_uinter Yuinter[Yi]->Ygrad[YTemps][1] /*M1_VALSIT */ #define YG3_uinter(i, t) Yuinter[i]->Ygrad[t][2] /*M1_HERESIT*/ #define YG3Y_uinter Yuinter[Yi]->Ygrad[YTemps][2] /*M1_VALSIT */ #define YG4_uinter(i, t) Yuinter[i]->Ygrad[t][3] /*M1_HERESIT*/ #define YG4Y_uinter Yuinter[Yi]->Ygrad[YTemps][3] /*M1_VALSIT */ #define YG5_uinter(i, t) Yuinter[i]->Ygrad[t][4] /*M1_HERESIT*/ #define YG5Y_uinter Yuinter[Yi]->Ygrad[YTemps][4] /*M1_VALSIT */ #define YG6_uinter(i, t) Yuinter[i]->Ygrad[t][5] /*M1_HERESIT*/ #define YG6Y_uinter Yuinter[Yi]->Ygrad[YTemps][5] /*M1_VALSIT */ #define YG7_uinter(i, t) Yuinter[i]->Ygrad[t][6] /*M1_HERESIT*/ #define YG7Y_uinter Yuinter[Yi]->Ygrad[YTemps][6] /*M1_VALSIT */ #define YG8_uinter(i, t) Yuinter[i]->Ygrad[t][7] /*M1_HERESIT*/ #define YG8Y_uinter Yuinter[Yi]->Ygrad[YTemps][7] Yaouinter *Yuinter[YA1_S_float]; //~~~~~~~~~~~~~~~~~~~~~~~~~ module xinter~~~~~~~~~~~~~~~~~~~~~~~~~ #define Yid_xinter 3 /*M1_VALST */ #define Ydelta_xinter(v, i, t) Yxinter[i]->Ydelta[t][v] /*M1_VALST */ #define YD_xinter(v, i, t) Yxinter[i]->Ydelta[t][v] /*M1_VALSIT */ #define YD1_xinter(i, t) Yxinter[i]->Ydelta[t][0] /*M1_VALSIT */ #define YD2_xinter(i, t) Yxinter[i]->Ydelta[t][1] /*M1_VALSIT */ #define YD3_xinter(i, t) Yxinter[i]->Ydelta[t][2] /*M1_VALSIT */ #define YD4_xinter(i, t) Yxinter[i]->Ydelta[t][3] /*M1_VALSIT */ #define YD5_xinter(i, t) Yxinter[i]->Ydelta[t][4] /*M1_VALSIT */ #define YD6_xinter(i, t) Yxinter[i]->Ydelta[t][5] /*M1_VALSIT */ #define YD7_xinter(i, t) Yxinter[i]->Ydelta[t][6] /*M1_VALSIT */ #define YD8_xinter(i, t) Yxinter[i]->Ydelta[t][7] /*M1_HERESIT*/ #define YD1Y_xinter Yxinter[Yi]->Ydelta[YTemps][0] /*M1_HERESIT*/ #define YD2Y_xinter Yxinter[Yi]->Ydelta[YTemps][1] /*M1_HERESIT*/ #define YD3Y_xinter Yxinter[Yi]->Ydelta[YTemps][2] /*M1_HERESIT*/ #define YD4Y_xinter Yxinter[Yi]->Ydelta[YTemps][3] /*M1_HERESIT*/ #define YD5Y_xinter Yxinter[Yi]->Ydelta[YTemps][4] /*M1_HERESIT*/ #define YD6Y_xinter Yxinter[Yi]->Ydelta[YTemps][5] /*M1_HERESIT*/ #define YD7Y_xinter Yxinter[Yi]->Ydelta[YTemps][6] /*M1_HERESIT*/ #define YD8Y_xinter Yxinter[Yi]->Ydelta[YTemps][7] class Yaoxinter; /*NBSMOD */ #define YNBS_xinter 8 /*M1_IRMOD */ #define Yxinter(i) Yxinter[i] /*M1_NOWMOD */ #define YxinterY Yxinter[Yi] /*M1_VALST */ #define Ystate_xinter(v, i, t) Yxinter[i]->Ystate[t][v] /*M1_VALST */ #define YS_xinter(v, i, t) Yxinter[i]->Ystate[t][v] /*M1_VALSIT */ #define YS1_xinter(i, t) Yxinter[i]->Ystate[t][0] /*M1_HERESIT*/ #define YS1Y_xinter Yxinter[Yi]->Ystate[YTemps][0] /*M1_VALSIT */ #define YS2_xinter(i, t) Yxinter[i]->Ystate[t][1] /*M1_HERESIT*/ #define YS2Y_xinter Yxinter[Yi]->Ystate[YTemps][1] /*M1_VALSIT */ #define YS3_xinter(i, t) Yxinter[i]->Ystate[t][2] /*M1_HERESIT*/ #define YS3Y_xinter Yxinter[Yi]->Ystate[YTemps][2] /*M1_VALSIT */ #define YS4_xinter(i, t) Yxinter[i]->Ystate[t][3] /*M1_HERESIT*/ #define YS4Y_xinter Yxinter[Yi]->Ystate[YTemps][3] /*M1_VALSIT */ #define YS5_xinter(i, t) Yxinter[i]->Ystate[t][4] /*M1_HERESIT*/ #define YS5Y_xinter Yxinter[Yi]->Ystate[YTemps][4] /*M1_VALSIT */ #define YS6_xinter(i, t) Yxinter[i]->Ystate[t][5] /*M1_HERESIT*/ #define YS6Y_xinter Yxinter[Yi]->Ystate[YTemps][5] /*M1_VALSIT */ #define YS7_xinter(i, t) Yxinter[i]->Ystate[t][6] /*M1_HERESIT*/ #define YS7Y_xinter Yxinter[Yi]->Ystate[YTemps][6] /*M1_VALSIT */ #define YS8_xinter(i, t) Yxinter[i]->Ystate[t][7] /*M1_HERESIT*/ #define YS8Y_xinter Yxinter[Yi]->Ystate[YTemps][7] /*M1_VALST */ #define Ygrad_xinter(v, i, t) Yxinter[i]->Ygrad[t][v] /*M1_VALST */ #define YG_xinter(v, i, t) Yxinter[i]->Ygrad[t][v] /*M1_VALSIT */ #define YG1_xinter(i, t) Yxinter[i]->Ygrad[t][0] /*M1_HERESIT*/ #define YG1Y_xinter Yxinter[Yi]->Ygrad[YTemps][0] /*M1_VALSIT */ #define YG2_xinter(i, t) Yxinter[i]->Ygrad[t][1] /*M1_HERESIT*/ #define YG2Y_xinter Yxinter[Yi]->Ygrad[YTemps][1] /*M1_VALSIT */ #define YG3_xinter(i, t) Yxinter[i]->Ygrad[t][2] /*M1_HERESIT*/ #define YG3Y_xinter Yxinter[Yi]->Ygrad[YTemps][2] /*M1_VALSIT */ #define YG4_xinter(i, t) Yxinter[i]->Ygrad[t][3] /*M1_HERESIT*/ #define YG4Y_xinter Yxinter[Yi]->Ygrad[YTemps][3] /*M1_VALSIT */ #define YG5_xinter(i, t) Yxinter[i]->Ygrad[t][4] /*M1_HERESIT*/ #define YG5Y_xinter Yxinter[Yi]->Ygrad[YTemps][4] /*M1_VALSIT */ #define YG6_xinter(i, t) Yxinter[i]->Ygrad[t][5] /*M1_HERESIT*/ #define YG6Y_xinter Yxinter[Yi]->Ygrad[YTemps][5] /*M1_VALSIT */ #define YG7_xinter(i, t) Yxinter[i]->Ygrad[t][6] /*M1_HERESIT*/ #define YG7Y_xinter Yxinter[Yi]->Ygrad[YTemps][6] /*M1_VALSIT */ #define YG8_xinter(i, t) Yxinter[i]->Ygrad[t][7] /*M1_HERESIT*/ #define YG8Y_xinter Yxinter[Yi]->Ygrad[YTemps][7] Yaoxinter *Yxinter[YA1_S_float]; //~~~~~~~~~~~~~~~~~~~~~~~~~ module u~~~~~~~~~~~~~~~~~~~~~~~~~ #define Yid_u 4 /*M2_VALST */ #define Ydelta_u(v, i, j, t) Yu[i][j]->Ydelta[t][v] /*M2_VALST */ #define YD_u(v, i, j, t) Yu[i][j]->Ydelta[t][v] /*M2_VALSIT */ #define YD1_u(i, j, t) Yu[i][j]->Ydelta[t][0] /*M2_HERESIT*/ #define YD1Y_u Yu[Yi][Yj]->Ydelta[YTemps][0] class Yaou; /*NBSMOD */ #define YNBS_u 1 /*M2_IRMOD */ #define Yu(i, j) Yu[i][j] /*M2_NOWMOD */ #define YuY Yu[Yi][Yj] /*M2_VALSG */ #define Ystate_u(v, i, j) Yu[i][j]->Ystate[v] /*M2_VALSG */ #define YS_u(v, i, j) Yu[i][j]->Ystate[v] /*M2_VALSGI */ #define YS1_u(i, j) Yu[i][j]->Ystate[0] /*M2_HERESGI*/ #define YS1Y_u Yu[Yi][Yj]->Ystate[0] /*M2_VALSG */ #define Ygrad_u(v, i, j) Yu[i][j]->Ygrad[v] /*M2_VALSG */ #define YG_u(v, i, j) Yu[i][j]->Ygrad[v] /*M2_VALSGI */ #define YG1_u(i, j) Yu[i][j]->Ygrad[0] /*M2_HERESGI*/ #define YG1Y_u Yu[Yi][Yj]->Ygrad[0] Yaou *Yu[YA1_S_euler][YA2_S_euler]; //~~~~~~~~~~~~~~~~~~~~~~~~~ module v~~~~~~~~~~~~~~~~~~~~~~~~~ #define Yid_v 5 /*M2_VALST */ #define Ydelta_v(v, i, j, t) Yv[i][j]->Ydelta[t][v] /*M2_VALST */ #define YD_v(v, i, j, t) Yv[i][j]->Ydelta[t][v] /*M2_VALSIT */ #define YD1_v(i, j, t) Yv[i][j]->Ydelta[t][0] /*M2_HERESIT*/ #define YD1Y_v Yv[Yi][Yj]->Ydelta[YTemps][0] class Yaov; /*NBSMOD */ #define YNBS_v 1 /*M2_IRMOD */ #define Yv(i, j) Yv[i][j] /*M2_NOWMOD */ #define YvY Yv[Yi][Yj] /*M2_VALSG */ #define Ystate_v(v, i, j) Yv[i][j]->Ystate[v] /*M2_VALSG */ #define YS_v(v, i, j) Yv[i][j]->Ystate[v] /*M2_VALSGI */ #define YS1_v(i, j) Yv[i][j]->Ystate[0] /*M2_HERESGI*/ #define YS1Y_v Yv[Yi][Yj]->Ystate[0] /*M2_VALSG */ #define Ygrad_v(v, i, j) Yv[i][j]->Ygrad[v] /*M2_VALSG */ #define YG_v(v, i, j) Yv[i][j]->Ygrad[v] /*M2_VALSGI */ #define YG1_v(i, j) Yv[i][j]->Ygrad[0] /*M2_HERESGI*/ #define YG1Y_v Yv[Yi][Yj]->Ygrad[0] Yaov *Yv[YA1_S_euler][YA2_S_euler]; //~~~~~~~~~~~~~~~~~~~~~~~~~ module locate~~~~~~~~~~~~~~~~~~~~~~~~~ #define Yid_locate 6 /*M3_VALST */ #define Ydelta_locate(v, i, j, k, t) Ylocate[i][j][k]->Ydelta[t][v] /*M3_VALST */ #define YD_locate(v, i, j, k, t) Ylocate[i][j][k]->Ydelta[t][v] /*M3_VALSIT */ #define YD1_locate(i, j, k, t) Ylocate[i][j][k]->Ydelta[t][0] /*M3_HERESIT*/ #define YD1Y_locate Ylocate[Yi][Yj][Yk]->Ydelta[YTemps][0] class Yaolocate; class locate; /*NBSMOD */ #define YNBS_locate 1 /*NBIMOD */ #define YNBI_locate 2 /*M3_IRMOD */ #define Ylocate(i, j, k) Ylocate[i][j][k] /*M3_NOWMOD */ #define YlocateY Ylocate[Yi][Yj][Yk] /*M3_VALST */ #define Ystate_locate(v, i, j, k, t) Ylocate[i][j][k]->Ystate[t][v] /*M3_VALST */ #define YS_locate(v, i, j, k, t) Ylocate[i][j][k]->Ystate[t][v] /*M3_VALSIT */ #define YS1_locate(i, j, k, t) Ylocate[i][j][k]->Ystate[t][0] /*M3_HERESIT*/ #define YS1Y_locate Ylocate[Yi][Yj][Yk]->Ystate[YTemps][0] /*M3_VALST */ #define Ygrad_locate(v, i, j, k, t) Ylocate[i][j][k]->Ygrad[t][v] /*M3_VALST */ #define YG_locate(v, i, j, k, t) Ylocate[i][j][k]->Ygrad[t][v] /*M3_VALSIT */ #define YG1_locate(i, j, k, t) Ylocate[i][j][k]->Ygrad[t][0] /*M3_HERESIT*/ #define YG1Y_locate Ylocate[Yi][Yj][Yk]->Ygrad[YTemps][0] locate *Ylocate[YA1_S_eulerlocate][YA2_S_eulerlocate][YA3_S_eulerlocate]; //~~~~~~~~~~~~~~~~~~~~~~~~~ module r_float_d~~~~~~~~~~~~~~~~~~~~~~~~~ #define Yid_r_float_d 7 /*M1_VALST */ #define Ydelta_r_float_d(v, i, t) Yr_float_d[i]->Ydelta[t][v] /*M1_VALST */ #define YD_r_float_d(v, i, t) Yr_float_d[i]->Ydelta[t][v] /*M1_VALSIT */ #define YD1_r_float_d(i, t) Yr_float_d[i]->Ydelta[t][0] /*M1_VALSIT */ #define YD2_r_float_d(i, t) Yr_float_d[i]->Ydelta[t][1] /*M1_HERESIT*/ #define YD1Y_r_float_d Yr_float_d[Yi]->Ydelta[YTemps][0] /*M1_HERESIT*/ #define YD2Y_r_float_d Yr_float_d[Yi]->Ydelta[YTemps][1] class Yaor_float_d; class r_float_d; /*NBSMOD */ #define YNBS_r_float_d 2 /*NBIMOD */ #define YNBI_r_float_d 4 /*M1_IRMOD */ #define Yr_float_d(i) Yr_float_d[i] /*M1_NOWMOD */ #define Yr_float_dY Yr_float_d[Yi] /*M1_VALST */ #define Ystate_r_float_d(v, i, t) Yr_float_d[i]->Ystate[t][v] /*M1_VALST */ #define YS_r_float_d(v, i, t) Yr_float_d[i]->Ystate[t][v] /*M1_VALSIT */ #define YS1_r_float_d(i, t) Yr_float_d[i]->Ystate[t][0] /*M1_HERESIT*/ #define YS1Y_r_float_d Yr_float_d[Yi]->Ystate[YTemps][0] /*M1_VALSIT */ #define YS2_r_float_d(i, t) Yr_float_d[i]->Ystate[t][1] /*M1_HERESIT*/ #define YS2Y_r_float_d Yr_float_d[Yi]->Ystate[YTemps][1] /*M1_VALST */ #define Ygrad_r_float_d(v, i, t) Yr_float_d[i]->Ygrad[t][v] /*M1_VALST */ #define YG_r_float_d(v, i, t) Yr_float_d[i]->Ygrad[t][v] /*M1_VALSIT */ #define YG1_r_float_d(i, t) Yr_float_d[i]->Ygrad[t][0] /*M1_HERESIT*/ #define YG1Y_r_float_d Yr_float_d[Yi]->Ygrad[YTemps][0] /*M1_VALSIT */ #define YG2_r_float_d(i, t) Yr_float_d[i]->Ygrad[t][1] /*M1_HERESIT*/ #define YG2Y_r_float_d Yr_float_d[Yi]->Ygrad[YTemps][1] r_float_d *Yr_float_d[YA1_S_float_d]; //~~~~~~~~~~~~~~~~~~~~~~~~~ module ur_d~~~~~~~~~~~~~~~~~~~~~~~~~ #define Yid_ur_d 8 /*M1_VALST */ #define Ydelta_ur_d(v, i, t) Yur_d[i]->Ydelta[t][v] /*M1_VALST */ #define YD_ur_d(v, i, t) Yur_d[i]->Ydelta[t][v] /*M1_VALSIT */ #define YD1_ur_d(i, t) Yur_d[i]->Ydelta[t][0] /*M1_VALSIT */ #define YD2_ur_d(i, t) Yur_d[i]->Ydelta[t][1] /*M1_HERESIT*/ #define YD1Y_ur_d Yur_d[Yi]->Ydelta[YTemps][0] /*M1_HERESIT*/ #define YD2Y_ur_d Yur_d[Yi]->Ydelta[YTemps][1] class Yaour_d; class ur_d; /*NBSMOD */ #define YNBS_ur_d 2 /*NBIMOD */ #define YNBI_ur_d 18 /*M1_IRMOD */ #define Yur_d(i) Yur_d[i] /*M1_NOWMOD */ #define Yur_dY Yur_d[Yi] /*M1_VALST */ #define Ystate_ur_d(v, i, t) Yur_d[i]->Ystate[t][v] /*M1_VALST */ #define YS_ur_d(v, i, t) Yur_d[i]->Ystate[t][v] /*M1_VALSIT */ #define YS1_ur_d(i, t) Yur_d[i]->Ystate[t][0] /*M1_HERESIT*/ #define YS1Y_ur_d Yur_d[Yi]->Ystate[YTemps][0] /*M1_VALSIT */ #define YS2_ur_d(i, t) Yur_d[i]->Ystate[t][1] /*M1_HERESIT*/ #define YS2Y_ur_d Yur_d[Yi]->Ystate[YTemps][1] /*M1_VALST */ #define Ygrad_ur_d(v, i, t) Yur_d[i]->Ygrad[t][v] /*M1_VALST */ #define YG_ur_d(v, i, t) Yur_d[i]->Ygrad[t][v] /*M1_VALSIT */ #define YG1_ur_d(i, t) Yur_d[i]->Ygrad[t][0] /*M1_HERESIT*/ #define YG1Y_ur_d Yur_d[Yi]->Ygrad[YTemps][0] /*M1_VALSIT */ #define YG2_ur_d(i, t) Yur_d[i]->Ygrad[t][1] /*M1_HERESIT*/ #define YG2Y_ur_d Yur_d[Yi]->Ygrad[YTemps][1] ur_d *Yur_d[YA1_S_float_d]; //~~~~~~~~~~~~~~~~~~~~~~~~~ module uinter_d~~~~~~~~~~~~~~~~~~~~~~~~~ #define Yid_uinter_d 9 /*M1_VALST */ #define Ydelta_uinter_d(v, i, t) Yuinter_d[i]->Ydelta[t][v] /*M1_VALST */ #define YD_uinter_d(v, i, t) Yuinter_d[i]->Ydelta[t][v] /*M1_VALSIT */ #define YD1_uinter_d(i, t) Yuinter_d[i]->Ydelta[t][0] /*M1_VALSIT */ #define YD2_uinter_d(i, t) Yuinter_d[i]->Ydelta[t][1] /*M1_VALSIT */ #define YD3_uinter_d(i, t) Yuinter_d[i]->Ydelta[t][2] /*M1_VALSIT */ #define YD4_uinter_d(i, t) Yuinter_d[i]->Ydelta[t][3] /*M1_VALSIT */ #define YD5_uinter_d(i, t) Yuinter_d[i]->Ydelta[t][4] /*M1_VALSIT */ #define YD6_uinter_d(i, t) Yuinter_d[i]->Ydelta[t][5] /*M1_VALSIT */ #define YD7_uinter_d(i, t) Yuinter_d[i]->Ydelta[t][6] /*M1_VALSIT */ #define YD8_uinter_d(i, t) Yuinter_d[i]->Ydelta[t][7] /*M1_HERESIT*/ #define YD1Y_uinter_d Yuinter_d[Yi]->Ydelta[YTemps][0] /*M1_HERESIT*/ #define YD2Y_uinter_d Yuinter_d[Yi]->Ydelta[YTemps][1] /*M1_HERESIT*/ #define YD3Y_uinter_d Yuinter_d[Yi]->Ydelta[YTemps][2] /*M1_HERESIT*/ #define YD4Y_uinter_d Yuinter_d[Yi]->Ydelta[YTemps][3] /*M1_HERESIT*/ #define YD5Y_uinter_d Yuinter_d[Yi]->Ydelta[YTemps][4] /*M1_HERESIT*/ #define YD6Y_uinter_d Yuinter_d[Yi]->Ydelta[YTemps][5] /*M1_HERESIT*/ #define YD7Y_uinter_d Yuinter_d[Yi]->Ydelta[YTemps][6] /*M1_HERESIT*/ #define YD8Y_uinter_d Yuinter_d[Yi]->Ydelta[YTemps][7] class Yaouinter_d; /*NBSMOD */ #define YNBS_uinter_d 8 /*M1_IRMOD */ #define Yuinter_d(i) Yuinter_d[i] /*M1_NOWMOD */ #define Yuinter_dY Yuinter_d[Yi] /*M1_VALST */ #define Ystate_uinter_d(v, i, t) Yuinter_d[i]->Ystate[t][v] /*M1_VALST */ #define YS_uinter_d(v, i, t) Yuinter_d[i]->Ystate[t][v] /*M1_VALSIT */ #define YS1_uinter_d(i, t) Yuinter_d[i]->Ystate[t][0] /*M1_HERESIT*/ #define YS1Y_uinter_d Yuinter_d[Yi]->Ystate[YTemps][0] /*M1_VALSIT */ #define YS2_uinter_d(i, t) Yuinter_d[i]->Ystate[t][1] /*M1_HERESIT*/ #define YS2Y_uinter_d Yuinter_d[Yi]->Ystate[YTemps][1] /*M1_VALSIT */ #define YS3_uinter_d(i, t) Yuinter_d[i]->Ystate[t][2] /*M1_HERESIT*/ #define YS3Y_uinter_d Yuinter_d[Yi]->Ystate[YTemps][2] /*M1_VALSIT */ #define YS4_uinter_d(i, t) Yuinter_d[i]->Ystate[t][3] /*M1_HERESIT*/ #define YS4Y_uinter_d Yuinter_d[Yi]->Ystate[YTemps][3] /*M1_VALSIT */ #define YS5_uinter_d(i, t) Yuinter_d[i]->Ystate[t][4] /*M1_HERESIT*/ #define YS5Y_uinter_d Yuinter_d[Yi]->Ystate[YTemps][4] /*M1_VALSIT */ #define YS6_uinter_d(i, t) Yuinter_d[i]->Ystate[t][5] /*M1_HERESIT*/ #define YS6Y_uinter_d Yuinter_d[Yi]->Ystate[YTemps][5] /*M1_VALSIT */ #define YS7_uinter_d(i, t) Yuinter_d[i]->Ystate[t][6] /*M1_HERESIT*/ #define YS7Y_uinter_d Yuinter_d[Yi]->Ystate[YTemps][6] /*M1_VALSIT */ #define YS8_uinter_d(i, t) Yuinter_d[i]->Ystate[t][7] /*M1_HERESIT*/ #define YS8Y_uinter_d Yuinter_d[Yi]->Ystate[YTemps][7] /*M1_VALST */ #define Ygrad_uinter_d(v, i, t) Yuinter_d[i]->Ygrad[t][v] /*M1_VALST */ #define YG_uinter_d(v, i, t) Yuinter_d[i]->Ygrad[t][v] /*M1_VALSIT */ #define YG1_uinter_d(i, t) Yuinter_d[i]->Ygrad[t][0] /*M1_HERESIT*/ #define YG1Y_uinter_d Yuinter_d[Yi]->Ygrad[YTemps][0] /*M1_VALSIT */ #define YG2_uinter_d(i, t) Yuinter_d[i]->Ygrad[t][1] /*M1_HERESIT*/ #define YG2Y_uinter_d Yuinter_d[Yi]->Ygrad[YTemps][1] /*M1_VALSIT */ #define YG3_uinter_d(i, t) Yuinter_d[i]->Ygrad[t][2] /*M1_HERESIT*/ #define YG3Y_uinter_d Yuinter_d[Yi]->Ygrad[YTemps][2] /*M1_VALSIT */ #define YG4_uinter_d(i, t) Yuinter_d[i]->Ygrad[t][3] /*M1_HERESIT*/ #define YG4Y_uinter_d Yuinter_d[Yi]->Ygrad[YTemps][3] /*M1_VALSIT */ #define YG5_uinter_d(i, t) Yuinter_d[i]->Ygrad[t][4] /*M1_HERESIT*/ #define YG5Y_uinter_d Yuinter_d[Yi]->Ygrad[YTemps][4] /*M1_VALSIT */ #define YG6_uinter_d(i, t) Yuinter_d[i]->Ygrad[t][5] /*M1_HERESIT*/ #define YG6Y_uinter_d Yuinter_d[Yi]->Ygrad[YTemps][5] /*M1_VALSIT */ #define YG7_uinter_d(i, t) Yuinter_d[i]->Ygrad[t][6] /*M1_HERESIT*/ #define YG7Y_uinter_d Yuinter_d[Yi]->Ygrad[YTemps][6] /*M1_VALSIT */ #define YG8_uinter_d(i, t) Yuinter_d[i]->Ygrad[t][7] /*M1_HERESIT*/ #define YG8Y_uinter_d Yuinter_d[Yi]->Ygrad[YTemps][7] Yaouinter_d *Yuinter_d[YA1_S_float_d]; //~~~~~~~~~~~~~~~~~~~~~~~~~ module u_d~~~~~~~~~~~~~~~~~~~~~~~~~ #define Yid_u_d 10 #define YNBPTARGET_u_d 0 #define YDEBTARGET_u_d 0 #define YENDTARGET_u_d 0 /*M2_VALST */ #define Ydelta_u_d(v, i, j, t) Yu_d[i][j]->Ydelta[t][v] /*M2_VALST */ #define YD_u_d(v, i, j, t) Yu_d[i][j]->Ydelta[t][v] /*M2_VALSIT */ #define YD1_u_d(i, j, t) Yu_d[i][j]->Ydelta[t][0] /*M2_HERESIT*/ #define YD1Y_u_d Yu_d[Yi][Yj]->Ydelta[YTemps][0] class Yaou_d; /*NBSMOD */ #define YNBS_u_d 1 /*M2_IRMOD */ #define Yu_d(i, j) Yu_d[i][j] /*M2_NOWMOD */ #define Yu_dY Yu_d[Yi][Yj] /*M2_VALSG */ #define Ystate_u_d(v, i, j) Yu_d[i][j]->Ystate[v] /*M2_VALSG */ #define YS_u_d(v, i, j) Yu_d[i][j]->Ystate[v] /*M2_VALSGI */ #define YS1_u_d(i, j) Yu_d[i][j]->Ystate[0] /*M2_HERESGI*/ #define YS1Y_u_d Yu_d[Yi][Yj]->Ystate[0] /*M2_VALSG */ #define Ygrad_u_d(v, i, j) Yu_d[i][j]->Ygrad[v] /*M2_VALSG */ #define YG_u_d(v, i, j) Yu_d[i][j]->Ygrad[v] /*M2_VALSGI */ #define YG1_u_d(i, j) Yu_d[i][j]->Ygrad[0] /*M2_HERESGI*/ #define YG1Y_u_d Yu_d[Yi][Yj]->Ygrad[0] /*M2_VALSG */ #define Yepsi_u_d(v, i, j) Yu_d[i][j]->Yepsi[v] /*M2_VALSG */ #define YE_u_d(v, i, j) Yu_d[i][j]->Yepsi[v] /*M2_VALSGI */ #define YE1_u_d(i, j) Yu_d[i][j]->Yepsi[0] Yaou_d *Yu_d[YA1_S_euler_d][YA2_S_euler_d]; /*M2_VALSG */ #define Ywish_u_d(v, i, j) Yu_d[i][j]->Ywish[v] /*M2_VALSG */ #define YW_u_d(v, i, j) Yu_d[i][j]->Ywish[v] /*M2_VALSGI */ #define YW1_u_d(i, j) Yu_d[i][j]->Ywish[0] /*M2_HERESGI*/ #define YW1Y_u_d Yu_d[Yi][Yj]->Ywish[0] //~~~~~~~~~~~~~~~~~~~~~~~~~ module v_d~~~~~~~~~~~~~~~~~~~~~~~~~ #define Yid_v_d 11 #define YNBPTARGET_v_d 0 #define YDEBTARGET_v_d 0 #define YENDTARGET_v_d 0 /*M2_VALST */ #define Ydelta_v_d(v, i, j, t) Yv_d[i][j]->Ydelta[t][v] /*M2_VALST */ #define YD_v_d(v, i, j, t) Yv_d[i][j]->Ydelta[t][v] /*M2_VALSIT */ #define YD1_v_d(i, j, t) Yv_d[i][j]->Ydelta[t][0] /*M2_HERESIT*/ #define YD1Y_v_d Yv_d[Yi][Yj]->Ydelta[YTemps][0] class Yaov_d; /*NBSMOD */ #define YNBS_v_d 1 /*M2_IRMOD */ #define Yv_d(i, j) Yv_d[i][j] /*M2_NOWMOD */ #define Yv_dY Yv_d[Yi][Yj] /*M2_VALSG */ #define Ystate_v_d(v, i, j) Yv_d[i][j]->Ystate[v] /*M2_VALSG */ #define YS_v_d(v, i, j) Yv_d[i][j]->Ystate[v] /*M2_VALSGI */ #define YS1_v_d(i, j) Yv_d[i][j]->Ystate[0] /*M2_HERESGI*/ #define YS1Y_v_d Yv_d[Yi][Yj]->Ystate[0] /*M2_VALSG */ #define Ygrad_v_d(v, i, j) Yv_d[i][j]->Ygrad[v] /*M2_VALSG */ #define YG_v_d(v, i, j) Yv_d[i][j]->Ygrad[v] /*M2_VALSGI */ #define YG1_v_d(i, j) Yv_d[i][j]->Ygrad[0] /*M2_HERESGI*/ #define YG1Y_v_d Yv_d[Yi][Yj]->Ygrad[0] /*M2_VALSG */ #define Yepsi_v_d(v, i, j) Yv_d[i][j]->Yepsi[v] /*M2_VALSG */ #define YE_v_d(v, i, j) Yv_d[i][j]->Yepsi[v] /*M2_VALSGI */ #define YE1_v_d(i, j) Yv_d[i][j]->Yepsi[0] Yaov_d *Yv_d[YA1_S_euler_d][YA2_S_euler_d]; /*M2_VALSG */ #define Ywish_v_d(v, i, j) Yv_d[i][j]->Ywish[v] /*M2_VALSG */ #define YW_v_d(v, i, j) Yv_d[i][j]->Ywish[v] /*M2_VALSGI */ #define YW1_v_d(i, j) Yv_d[i][j]->Ywish[0] /*M2_HERESGI*/ #define YW1Y_v_d Yv_d[Yi][Yj]->Ywish[0] //~~~~~~~~~~~~~~~~~~~~~~~~~ module locate_d~~~~~~~~~~~~~~~~~~~~~~~~~ #define Yid_locate_d 12 /*M3_VALST */ #define Ydelta_locate_d(v, i, j, k, t) Ylocate_d[i][j][k]->Ydelta[t][v] /*M3_VALST */ #define YD_locate_d(v, i, j, k, t) Ylocate_d[i][j][k]->Ydelta[t][v] /*M3_VALSIT */ #define YD1_locate_d(i, j, k, t) Ylocate_d[i][j][k]->Ydelta[t][0] /*M3_HERESIT*/ #define YD1Y_locate_d Ylocate_d[Yi][Yj][Yk]->Ydelta[YTemps][0] class Yaolocate_d; class locate_d; /*NBSMOD */ #define YNBS_locate_d 1 /*NBIMOD */ #define YNBI_locate_d 2 /*M3_IRMOD */ #define Ylocate_d(i, j, k) Ylocate_d[i][j][k] /*M3_NOWMOD */ #define Ylocate_dY Ylocate_d[Yi][Yj][Yk] /*M3_VALST */ #define Ystate_locate_d(v, i, j, k, t) Ylocate_d[i][j][k]->Ystate[t][v] /*M3_VALST */ #define YS_locate_d(v, i, j, k, t) Ylocate_d[i][j][k]->Ystate[t][v] /*M3_VALSIT */ #define YS1_locate_d(i, j, k, t) Ylocate_d[i][j][k]->Ystate[t][0] /*M3_HERESIT*/ #define YS1Y_locate_d Ylocate_d[Yi][Yj][Yk]->Ystate[YTemps][0] /*M3_VALST */ #define Ygrad_locate_d(v, i, j, k, t) Ylocate_d[i][j][k]->Ygrad[t][v] /*M3_VALST */ #define YG_locate_d(v, i, j, k, t) Ylocate_d[i][j][k]->Ygrad[t][v] /*M3_VALSIT */ #define YG1_locate_d(i, j, k, t) Ylocate_d[i][j][k]->Ygrad[t][0] /*M3_HERESIT*/ #define YG1Y_locate_d Ylocate_d[Yi][Yj][Yk]->Ygrad[YTemps][0] locate_d *Ylocate_d[YA1_S_eulerlocate_d][YA2_S_eulerlocate_d][YA3_S_eulerlocate_d]; //~~~~~~~~~~~~~~~~~~~~~~~~~ module r_cout_d~~~~~~~~~~~~~~~~~~~~~~~~~ #define Yid_r_cout_d 13 /*M1_VALST */ #define Ydelta_r_cout_d(v, i, t) Yr_cout_d[i]->Ydelta[t][v] /*M1_VALST */ #define YD_r_cout_d(v, i, t) Yr_cout_d[i]->Ydelta[t][v] /*M1_VALSIT */ #define YD1_r_cout_d(i, t) Yr_cout_d[i]->Ydelta[t][0] /*M1_VALSIT */ #define YD2_r_cout_d(i, t) Yr_cout_d[i]->Ydelta[t][1] /*M1_HERESIT*/ #define YD1Y_r_cout_d Yr_cout_d[Yi]->Ydelta[YTemps][0] /*M1_HERESIT*/ #define YD2Y_r_cout_d Yr_cout_d[Yi]->Ydelta[YTemps][1] class Yaor_cout_d; class r_cout_d; /*NBSMOD */ #define YNBS_r_cout_d 2 /*NBIMOD */ #define YNBI_r_cout_d 2 /*M1_IRMOD */ #define Yr_cout_d(i) Yr_cout_d[i] /*M1_NOWMOD */ #define Yr_cout_dY Yr_cout_d[Yi] /*M1_VALST */ #define Ystate_r_cout_d(v, i, t) Yr_cout_d[i]->Ystate[t][v] /*M1_VALST */ #define YS_r_cout_d(v, i, t) Yr_cout_d[i]->Ystate[t][v] /*M1_VALSIT */ #define YS1_r_cout_d(i, t) Yr_cout_d[i]->Ystate[t][0] /*M1_HERESIT*/ #define YS1Y_r_cout_d Yr_cout_d[Yi]->Ystate[YTemps][0] /*M1_VALSIT */ #define YS2_r_cout_d(i, t) Yr_cout_d[i]->Ystate[t][1] /*M1_HERESIT*/ #define YS2Y_r_cout_d Yr_cout_d[Yi]->Ystate[YTemps][1] /*M1_VALST */ #define Ygrad_r_cout_d(v, i, t) Yr_cout_d[i]->Ygrad[t][v] /*M1_VALST */ #define YG_r_cout_d(v, i, t) Yr_cout_d[i]->Ygrad[t][v] /*M1_VALSIT */ #define YG1_r_cout_d(i, t) Yr_cout_d[i]->Ygrad[t][0] /*M1_HERESIT*/ #define YG1Y_r_cout_d Yr_cout_d[Yi]->Ygrad[YTemps][0] /*M1_VALSIT */ #define YG2_r_cout_d(i, t) Yr_cout_d[i]->Ygrad[t][1] /*M1_HERESIT*/ #define YG2Y_r_cout_d Yr_cout_d[Yi]->Ygrad[YTemps][1] r_cout_d *Yr_cout_d[YA1_S_float_d]; /*M1_VALSG */ #define Ywish_r_cout_d(v, i) Yr_cout_d[i]->Ywish[v] /*M1_VALSG */ #define YW_r_cout_d(v, i) Yr_cout_d[i]->Ywish[v] /*M1_VALSGI */ #define YW1_r_cout_d(i) Yr_cout_d[i]->Ywish[0] /*M1_HERESGI*/ #define YW1Y_r_cout_d Yr_cout_d[Yi]->Ywish[0] /*M1_VALSGI */ #define YW2_r_cout_d(i) Yr_cout_d[i]->Ywish[1] /*M1_HERESGI*/ #define YW2Y_r_cout_d Yr_cout_d[Yi]->Ywish[1] #define YSIZEPB 10092//sum of the number of states (output) of all targets //¤ ¤ ¤ ¤ FOR M1QN3 ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ float Y3x[YSIZEPB]; //table for the states of targets float Y3g[YSIZEPB]; //table for the gradients of targets #define Y3_SZ_RZ 201848 //rz dimension float Y3rz[Y3_SZ_RZ]; #define Y3_SZ_IZ 5 //iz dimension float Y3dxmin[1]; //resolution scalar for the vector to be controlled /*------- GENERATION of global objects ------------------------*/ #define YSIZECO 2 //size of modules cout (atempo)(event if not in order !) #define YMAX_NBI 18 //max input number of a module #define YMAX_NBS 8 //max output number of a module #define YMAX_JAC_NBI 18 //max number of input for the jacobian (Yjac) #define YMAX_JAC_NBS 8 //max number of output for the jacobian (Yjac) double Yting[YMAX_NBI]; //max table for a global and common inputs number double Yjac[YMAX_JAC_NBS][YMAX_JAC_NBI]; //max table for a global and common jacobian #define YJ1I1 Yjac[0][0] #define YJ1I2 Yjac[0][1] #define YJ1I3 Yjac[0][2] #define YJ1I4 Yjac[0][3] #define YJ1I5 Yjac[0][4] #define YJ1I6 Yjac[0][5] #define YJ1I7 Yjac[0][6] #define YJ1I8 Yjac[0][7] #define YJ1I9 Yjac[0][8] #define YJ1I10 Yjac[0][9] #define YJ1I11 Yjac[0][10] #define YJ1I12 Yjac[0][11] #define YJ1I13 Yjac[0][12] #define YJ1I14 Yjac[0][13] #define YJ1I15 Yjac[0][14] #define YJ1I16 Yjac[0][15] #define YJ1I17 Yjac[0][16] #define YJ1I18 Yjac[0][17] #define YJ2I1 Yjac[1][0] #define YJ2I2 Yjac[1][1] #define YJ2I3 Yjac[1][2] #define YJ2I4 Yjac[1][3] #define YJ2I5 Yjac[1][4] #define YJ2I6 Yjac[1][5] #define YJ2I7 Yjac[1][6] #define YJ2I8 Yjac[1][7] #define YJ2I9 Yjac[1][8] #define YJ2I10 Yjac[1][9] #define YJ2I11 Yjac[1][10] #define YJ2I12 Yjac[1][11] #define YJ2I13 Yjac[1][12] #define YJ2I14 Yjac[1][13] #define YJ2I15 Yjac[1][14] #define YJ2I16 Yjac[1][15] #define YJ2I17 Yjac[1][16] #define YJ2I18 Yjac[1][17] #define YJ3I1 Yjac[2][0] #define YJ3I2 Yjac[2][1] #define YJ3I3 Yjac[2][2] #define YJ3I4 Yjac[2][3] #define YJ3I5 Yjac[2][4] #define YJ3I6 Yjac[2][5] #define YJ3I7 Yjac[2][6] #define YJ3I8 Yjac[2][7] #define YJ3I9 Yjac[2][8] #define YJ3I10 Yjac[2][9] #define YJ3I11 Yjac[2][10] #define YJ3I12 Yjac[2][11] #define YJ3I13 Yjac[2][12] #define YJ3I14 Yjac[2][13] #define YJ3I15 Yjac[2][14] #define YJ3I16 Yjac[2][15] #define YJ3I17 Yjac[2][16] #define YJ3I18 Yjac[2][17] #define YJ4I1 Yjac[3][0] #define YJ4I2 Yjac[3][1] #define YJ4I3 Yjac[3][2] #define YJ4I4 Yjac[3][3] #define YJ4I5 Yjac[3][4] #define YJ4I6 Yjac[3][5] #define YJ4I7 Yjac[3][6] #define YJ4I8 Yjac[3][7] #define YJ4I9 Yjac[3][8] #define YJ4I10 Yjac[3][9] #define YJ4I11 Yjac[3][10] #define YJ4I12 Yjac[3][11] #define YJ4I13 Yjac[3][12] #define YJ4I14 Yjac[3][13] #define YJ4I15 Yjac[3][14] #define YJ4I16 Yjac[3][15] #define YJ4I17 Yjac[3][16] #define YJ4I18 Yjac[3][17] #define YJ5I1 Yjac[4][0] #define YJ5I2 Yjac[4][1] #define YJ5I3 Yjac[4][2] #define YJ5I4 Yjac[4][3] #define YJ5I5 Yjac[4][4] #define YJ5I6 Yjac[4][5] #define YJ5I7 Yjac[4][6] #define YJ5I8 Yjac[4][7] #define YJ5I9 Yjac[4][8] #define YJ5I10 Yjac[4][9] #define YJ5I11 Yjac[4][10] #define YJ5I12 Yjac[4][11] #define YJ5I13 Yjac[4][12] #define YJ5I14 Yjac[4][13] #define YJ5I15 Yjac[4][14] #define YJ5I16 Yjac[4][15] #define YJ5I17 Yjac[4][16] #define YJ5I18 Yjac[4][17] #define YJ6I1 Yjac[5][0] #define YJ6I2 Yjac[5][1] #define YJ6I3 Yjac[5][2] #define YJ6I4 Yjac[5][3] #define YJ6I5 Yjac[5][4] #define YJ6I6 Yjac[5][5] #define YJ6I7 Yjac[5][6] #define YJ6I8 Yjac[5][7] #define YJ6I9 Yjac[5][8] #define YJ6I10 Yjac[5][9] #define YJ6I11 Yjac[5][10] #define YJ6I12 Yjac[5][11] #define YJ6I13 Yjac[5][12] #define YJ6I14 Yjac[5][13] #define YJ6I15 Yjac[5][14] #define YJ6I16 Yjac[5][15] #define YJ6I17 Yjac[5][16] #define YJ6I18 Yjac[5][17] #define YJ7I1 Yjac[6][0] #define YJ7I2 Yjac[6][1] #define YJ7I3 Yjac[6][2] #define YJ7I4 Yjac[6][3] #define YJ7I5 Yjac[6][4] #define YJ7I6 Yjac[6][5] #define YJ7I7 Yjac[6][6] #define YJ7I8 Yjac[6][7] #define YJ7I9 Yjac[6][8] #define YJ7I10 Yjac[6][9] #define YJ7I11 Yjac[6][10] #define YJ7I12 Yjac[6][11] #define YJ7I13 Yjac[6][12] #define YJ7I14 Yjac[6][13] #define YJ7I15 Yjac[6][14] #define YJ7I16 Yjac[6][15] #define YJ7I17 Yjac[6][16] #define YJ7I18 Yjac[6][17] #define YJ8I1 Yjac[7][0] #define YJ8I2 Yjac[7][1] #define YJ8I3 Yjac[7][2] #define YJ8I4 Yjac[7][3] #define YJ8I5 Yjac[7][4] #define YJ8I6 Yjac[7][5] #define YJ8I7 Yjac[7][6] #define YJ8I8 Yjac[7][7] #define YJ8I9 Yjac[7][8] #define YJ8I10 Yjac[7][9] #define YJ8I11 Yjac[7][10] #define YJ8I12 Yjac[7][11] #define YJ8I13 Yjac[7][12] #define YJ8I14 Yjac[7][13] #define YJ8I15 Yjac[7][14] #define YJ8I16 Yjac[7][15] #define YJ8I17 Yjac[7][16] #define YJ8I18 Yjac[7][17] double Ytbeta[YMAX_NBI]; //max table of global and common beta /*------- SOME OTHER AUTOMATIC GENERATION ------------------*/ struct Yst_obs { int time; int imod; int smod; int iaxe; int jaxe; int kaxe; YREAL vobs; }; struct Yst_obs Yaobs; int Yobs_insert(struct Yst_obs *aobs); /*------- GENERATION of NECESSARY PROTOTYPES -------------*/ double Ycostdiff(double dinov, double dcov); /*------- AUTOMATIC GENERATION of YaoModul class ----------*/ //////////// Begin of the Yao Class Yaor_float //////////// class Yaor_float { public: double Ystate[YNBALLTIME_T_float][YNBS_r_float]; double Ygrad[YNBALLTIME_T_float][YNBS_r_float]; double Ydelta[YNBALLTIME_T_float][YNBS_r_float]; //:=========> Constructor - Destructor ============ Yaor_float(){} ~Yaor_float(){} }; /*M_PCL */ class r_float:public Yaor_float { public: r_float(){}; ~r_float (){}; void forward (double x0,double x1,double x2,double x3); void backward(double x0,double x1,double x2,double x3); }; //////////// Begin of the Yao Class Yaour //////////// class Yaour { public: double Ystate[YNBALLTIME_T_float][YNBS_ur]; double Ygrad[YNBALLTIME_T_float][YNBS_ur]; double Ydelta[YNBALLTIME_T_float][YNBS_ur]; //:=========> Constructor - Destructor ============ Yaour(){} ~Yaour(){} }; /*M_PCL */ class ur:public Yaour { public: ur(){}; ~ur (){}; void forward (double x0,double x1,double x2,double x3,double x4,double x5,double x6,double x7,double x8,double x9,double x10,double x11,double x12,double x13,double x14,double x15,double x16,double x17); void backward(double x0,double x1,double x2,double x3,double x4,double x5,double x6,double x7,double x8,double x9,double x10,double x11,double x12,double x13,double x14,double x15,double x16,double x17); }; //////////// Begin of the Yao Class Yaouinter //////////// class Yaouinter { public: double Ystate[YNBALLTIME_T_float][YNBS_uinter]; double Ygrad[YNBALLTIME_T_float][YNBS_uinter]; double Ydelta[YNBALLTIME_T_float][YNBS_uinter]; //:=========> Constructor - Destructor ============ Yaouinter(){} ~Yaouinter(){} }; //////////// Begin of the Yao Class Yaoxinter //////////// class Yaoxinter { public: double Ystate[YNBALLTIME_T_float][YNBS_xinter]; double Ygrad[YNBALLTIME_T_float][YNBS_xinter]; double Ydelta[YNBALLTIME_T_float][YNBS_xinter]; //:=========> Constructor - Destructor ============ Yaoxinter(){} ~Yaoxinter(){} }; //////////// Begin of the Yao Class Yaou //////////// class Yaou { public: double Ystate[YNBS_u]; double Ygrad[YNBS_u]; double Ydelta[1][YNBS_u]; //:=========> Constructor - Destructor ============ Yaou(){} ~Yaou(){} }; //////////// Begin of the Yao Class Yaov //////////// class Yaov { public: double Ystate[YNBS_v]; double Ygrad[YNBS_v]; double Ydelta[1][YNBS_v]; //:=========> Constructor - Destructor ============ Yaov(){} ~Yaov(){} }; //////////// Begin of the Yao Class Yaolocate //////////// class Yaolocate { public: double Ystate[YNBALLTIME_T_float][YNBS_locate]; double Ygrad[YNBALLTIME_T_float][YNBS_locate]; double Ydelta[YNBALLTIME_T_float][YNBS_locate]; //:=========> Constructor - Destructor ============ Yaolocate(){} ~Yaolocate(){} }; /*M_PCL */ class locate:public Yaolocate { public: locate(){}; ~locate (){}; void forward (double x0,double x1); void backward(double x0,double x1); }; //////////// Begin of the Yao Class Yaor_float_d //////////// class Yaor_float_d { public: double Ystate[YNBALLTIME_T_float_d][YNBS_r_float_d]; double Ygrad[YNBALLTIME_T_float_d][YNBS_r_float_d]; double Ydelta[YNBALLTIME_T_float_d][YNBS_r_float_d]; //:=========> Constructor - Destructor ============ Yaor_float_d(){} ~Yaor_float_d(){} }; /*M_PCL */ class r_float_d:public Yaor_float_d { public: r_float_d(){}; ~r_float_d (){}; void forward (double x0,double x1,double x2,double x3); void backward(double x0,double x1,double x2,double x3); }; //////////// Begin of the Yao Class Yaour_d //////////// class Yaour_d { public: double Ystate[YNBALLTIME_T_float_d][YNBS_ur_d]; double Ygrad[YNBALLTIME_T_float_d][YNBS_ur_d]; double Ydelta[YNBALLTIME_T_float_d][YNBS_ur_d]; //:=========> Constructor - Destructor ============ Yaour_d(){} ~Yaour_d(){} }; /*M_PCL */ class ur_d:public Yaour_d { public: ur_d(){}; ~ur_d (){}; void forward (double x0,double x1,double x2,double x3,double x4,double x5,double x6,double x7,double x8,double x9,double x10,double x11,double x12,double x13,double x14,double x15,double x16,double x17); void backward(double x0,double x1,double x2,double x3,double x4,double x5,double x6,double x7,double x8,double x9,double x10,double x11,double x12,double x13,double x14,double x15,double x16,double x17); }; //////////// Begin of the Yao Class Yaouinter_d //////////// class Yaouinter_d { public: double Ystate[YNBALLTIME_T_float_d][YNBS_uinter_d]; double Ygrad[YNBALLTIME_T_float_d][YNBS_uinter_d]; double Ydelta[YNBALLTIME_T_float_d][YNBS_uinter_d]; //:=========> Constructor - Destructor ============ Yaouinter_d(){} ~Yaouinter_d(){} }; //////////// Begin of the Yao Class Yaou_d //////////// class Yaou_d { public: double Ystate[YNBS_u_d]; double Ygrad[YNBS_u_d]; double Yepsi[YNBS_u_d]; double Ywish[YNBS_u_d]; double Ydelta[1][YNBS_u_d]; //:=========> Constructor - Destructor ============ Yaou_d(){} ~Yaou_d(){} }; //////////// Begin of the Yao Class Yaov_d //////////// class Yaov_d { public: double Ystate[YNBS_v_d]; double Ygrad[YNBS_v_d]; double Yepsi[YNBS_v_d]; double Ywish[YNBS_v_d]; double Ydelta[1][YNBS_v_d]; //:=========> Constructor - Destructor ============ Yaov_d(){} ~Yaov_d(){} }; //////////// Begin of the Yao Class Yaolocate_d //////////// class Yaolocate_d { public: double Ystate[YNBALLTIME_T_float_d][YNBS_locate_d]; double Ygrad[YNBALLTIME_T_float_d][YNBS_locate_d]; double Ydelta[YNBALLTIME_T_float_d][YNBS_locate_d]; //:=========> Constructor - Destructor ============ Yaolocate_d(){} ~Yaolocate_d(){} }; /*M_PCL */ class locate_d:public Yaolocate_d { public: locate_d(){}; ~locate_d (){}; void forward (double x0,double x1); void backward(double x0,double x1); }; //////////// Begin of the Yao Class Yaor_cout_d //////////// class Yaor_cout_d { public: double Ystate[YNBALLTIME_T_float_d][YNBS_r_cout_d]; double Ygrad[YNBALLTIME_T_float_d][YNBS_r_cout_d]; double Ywish[YNBS_r_cout_d]; double Ydelta[YNBALLTIME_T_float_d][YNBS_r_cout_d]; //:=========> Constructor - Destructor ============ Yaor_cout_d(){} ~Yaor_cout_d(){} }; /*M_PCL */ class r_cout_d:public Yaor_cout_d { public: r_cout_d(){}; ~r_cout_d (){}; void forward (double x0,double x1); void backward(double x0,double x1); }; //¤ ¤ ¤ ¤ PROTOTYPES of AUTO-FUNCTIONS ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ void Yrazgrad_r_float(); void Ysetstate_r_float(); void Yrazgrad_ur(); void Ysetstate_ur(); void Yrazgrad_uinter(); void Ysetstate_uinter(); void Yrazgrad_xinter(); void Ysetstate_xinter(); void Yrazgrad_u(); void Ysetstate_u(); void Yrazgrad_v(); void Ysetstate_v(); void Yrazgrad_locate(); void Ysetstate_locate(); void Yrazgrad_r_float_d(); void Ysetstate_r_float_d(); void Yrazgrad_ur_d(); void Ysetstate_ur_d(); void Yrazgrad_uinter_d(); void Ysetstate_uinter_d(); void Yrazgrad_u_d(); void Ysetstate_u_d(); void Ysetepsi_u_d(); void Yadjust_u_d(); void Y3getstate_u_d(float x[]); void Y3valstate_u_d(); void Y3valgrad_u_d(float g[]); void Yrazgrad_v_d(); void Ysetstate_v_d(); void Ysetepsi_v_d(); void Yadjust_v_d(); void Y3getstate_v_d(float x[]); void Y3valstate_v_d(); void Y3valgrad_v_d(float g[]); void Yrazgrad_locate_d(); void Ysetstate_locate_d(); void Yrazgrad_r_cout_d(); void Ysetstate_r_cout_d(); /*------------- DUE TO MULTI TRAJECTOIRIES --------------*/ #define YNBTRAJ 4 int Yforward_traj_T_float(int nbp); int Ybackward_traj_T_float(int nbp); int Ylinward_traj_T_float(int nbp); int Ydfward_traj_T_float(int modop, char *nmmod, int All, int KeKo, int koleft,float pdx, float ptol, int yi, int yj, int yk); int Yforward_traj_T_float_d(int nbp); int Ybackward_traj_T_float_d(int nbp); int Ylinward_traj_T_float_d(int nbp); int Ydfward_traj_T_float_d(int modop, char *nmmod, int All, int KeKo, int koleft,float pdx, float ptol, int yi, int yj, int yk); int Ydftestijkt(int imod); int Ydftesttt(int itraj); /*------- GENERATION DU TABLEAU DES TRAJECTOIRES --------*/ struct Yst_traj YTabTraj[4] = { {"T_float", 'M', 1, 0.000000, 1.000000, 0.000000, 1, 12, 12.000000, Yforward_traj_T_float, Ybackward_traj_T_float, Ylinward_traj_T_float, Ydfward_traj_T_float, 1}, {"T_euler", 'M', 0, 0.000000, 1.000000, 0.000000, 0, 1, 1.000000, NULL, NULL, NULL, NULL, 0}, {"T_float_d", 'D', 1, 0.000000, 1.000000, 0.000000, 1, 12, 12.000000, Yforward_traj_T_float_d, Ybackward_traj_T_float_d, Ylinward_traj_T_float_d, Ydfward_traj_T_float_d, 1}, {"T_euler_d", 'D', 0, 0.000000, 1.000000, 0.000000, 0, 1, 1.000000, NULL, NULL, NULL, NULL, 0}, }; /*------- GENERATION DU TABLEAU DES ESPACES --------*/ #define YNBSPACE 6 struct Yst_space YTabSpace[6] = { {"S_float", 'M', 1, 0, 0, "T_float"}, {"S_euler", 'M', 87, 58, 0, "T_euler"}, {"S_eulerlocate", 'M', 1, 87, 58, "T_float"}, {"S_float_d", 'M', 1, 0, 0, "T_float_d"}, {"S_euler_d", 'M', 87, 58, 0, "T_euler_d"}, {"S_eulerlocate_d", 'M', 1, 87, 58, "T_float_d"}, }; /*------ GENERATION DU TABLEAU DES OPERATEURS -------*/ #define YNBOPERA 0 struct Yst_opera YTabOpera[0] = { }; /*------- GENERATION D'UN TABLEAU d'ACCES AUX MODULES --------*/ #define YNBMODUL 14 struct Yst_modul YTabMod[14] = { {"r_float", *Yr_float, 1, 1, 0, 0, 4, 2, 13, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S_float"}, {"ur", *Yur, 1, 1, 0, 0, 18, 2, 13, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S_float"}, {"uinter", *Yuinter, 1, 1, 0, 0, 0, 8, 13, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S_float"}, {"xinter", *Yxinter, 1, 1, 0, 0, 0, 8, 13, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S_float"}, {"u", *Yu, 2, 87, 58, 0, 0, 1, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S_euler"}, {"v", *Yv, 2, 87, 58, 0, 0, 1, 0, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S_euler"}, {"locate", *Ylocate, 3, 1, 87, 58, 2, 1, 13, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S_eulerlocate"}, {"r_float_d", *Yr_float_d, 1, 1, 0, 0, 4, 2, 13, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S_float_d"}, {"ur_d", *Yur_d, 1, 1, 0, 0, 18, 2, 13, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S_float_d"}, {"uinter_d", *Yuinter_d, 1, 1, 0, 0, 0, 8, 13, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S_float_d"}, {"u_d", *Yu_d, 2, 87, 58, 0, 0, 1, 0, 0, 1, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S_euler_d"}, {"v_d", *Yv_d, 2, 87, 58, 0, 0, 1, 0, 0, 1, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 0, "S_euler_d"}, {"locate_d", *Ylocate_d, 3, 1, 87, 58, 2, 1, 13, 0, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S_eulerlocate_d"}, {"r_cout_d", *Yr_cout_d, 1, 1, 0, 0, 2, 2, 13, 1, 0, 0, 0, 1.000000e+00, 1.000000e+00, 1.000000e+00, 1, "S_float_d"}, }; /*------- GENERATION TABLEAU COUT_MODULES/OPERA --------*/ short YTabMocop[YNBMODUL][YNBOPERA] = { { }, { }, { }, { }, { }, { }, { }, { }, { }, { }, { }, { }, { }, { }, }; //----- GENERATION d'UN TABLEAU de DEFINITIONS de VALEURS ----- #define YNBDEFVAL 4 struct Yst_defval YTabDefval[4] = { {"jtlag", "12"}, {"nlon", "87"}, {"nlat", "58"}, {"nfloat", "1"}, }; //¤ ¤ ¤ ¤ GENERATION AUTOMATIQUE DES include ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ #include "floater.h" #define forward void r_float::forward #define backward void r_float::backward #define flinward void r_float::flinward #define YS1Y Ystate[YTemps][0] #define YS1 Ystate[YTemps][0] #define YG1 Ygrad[YTemps][0] #define YS2Y Ystate[YTemps][1] #define YS2 Ystate[YTemps][1] #define YG2 Ygrad[YTemps][1] #include "r_float.h" #undef YS1Y #undef YS1 #undef YG1 #undef YS2Y #undef YS2 #undef YG2 #undef forward #undef backward #undef flinward #define forward void ur::forward #define backward void ur::backward #define flinward void ur::flinward #define YS1Y Ystate[YTemps][0] #define YS1 Ystate[YTemps][0] #define YG1 Ygrad[YTemps][0] #define YS2Y Ystate[YTemps][1] #define YS2 Ystate[YTemps][1] #define YG2 Ygrad[YTemps][1] #include "ur.h" #undef YS1Y #undef YS1 #undef YG1 #undef YS2Y #undef YS2 #undef YG2 #undef forward #undef backward #undef flinward #define forward void locate::forward #define backward void locate::backward #define flinward void locate::flinward #define YS1Y Ystate[YTemps][0] #define YS1 Ystate[YTemps][0] #define YG1 Ygrad[YTemps][0] #include "locate.h" #undef YS1Y #undef YS1 #undef YG1 #undef forward #undef backward #undef flinward #define forward void r_float_d::forward #define backward void r_float_d::backward #define flinward void r_float_d::flinward #define YS1Y Ystate[YTemps][0] #define YS1 Ystate[YTemps][0] #define YG1 Ygrad[YTemps][0] #define YS2Y Ystate[YTemps][1] #define YS2 Ystate[YTemps][1] #define YG2 Ygrad[YTemps][1] #include "r_float_d.h" #undef YS1Y #undef YS1 #undef YG1 #undef YS2Y #undef YS2 #undef YG2 #undef forward #undef backward #undef flinward #define forward void ur_d::forward #define backward void ur_d::backward #define flinward void ur_d::flinward #define YS1Y Ystate[YTemps][0] #define YS1 Ystate[YTemps][0] #define YG1 Ygrad[YTemps][0] #define YS2Y Ystate[YTemps][1] #define YS2 Ystate[YTemps][1] #define YG2 Ygrad[YTemps][1] #include "ur_d.h" #undef YS1Y #undef YS1 #undef YG1 #undef YS2Y #undef YS2 #undef YG2 #undef forward #undef backward #undef flinward #define forward void locate_d::forward #define backward void locate_d::backward #define flinward void locate_d::flinward #define YS1Y Ystate[YTemps][0] #define YS1 Ystate[YTemps][0] #define YG1 Ygrad[YTemps][0] #include "locate_d.h" #undef YS1Y #undef YS1 #undef YG1 #undef forward #undef backward #undef flinward #define forward void r_cout_d::forward #define backward void r_cout_d::backward #define flinward void r_cout_d::flinward #define YS1Y Ystate[YTemps][0] #define YS1 Ystate[YTemps][0] #define YG1 Ygrad[YTemps][0] #define YS2Y Ystate[YTemps][1] #define YS2 Ystate[YTemps][1] #define YG2 Ygrad[YTemps][1] #include "r_cout_d.h" #undef YS1Y #undef YS1 #undef YG1 #undef YS2Y #undef YS2 #undef YG2 #undef forward #undef backward #undef flinward //-------------- end Yao generation -----------------