35 int ncsx = csx.size();
36 int ncsy = csy.size();
37 int neta =
eta.size();
38 int nalpha = alpha.size();
54 int ncsx2 = csx2.size()-1;
55 int ncsy2 = csy2.size()-1;
56 int neta2 = eta2.size()-1;
57 int nalpha2 = alpha2.size()-1;
65 int n3a = ncsx*nalpha;
66 int n3b = ncsx*ncsy*neta;
67 int n3c = ncsx_ibl*nalphaibl;
68 int n3d = ncsy_ibl*netaibl;
69 int n4 = 6*ncsx2*nalpha2;
70 int n5 = 6*ncsy2*neta2;
71 int n6 = ncsx2_ibl*nalphaibl2;
72 int n7 = ncsy2_ibl*netaibl2;
75 +ncsx+ncsy+neta+nalpha
77 +ncsx2+1+ncsy2+1+neta2+1+nalpha2+1
81 if(v1<-1||v2<-1||v3<-1) {
83 datasize +=2*n1 + netaibl+1 + nalphaibl+1 + n3c +n3d + netaibl2+1 + nalphaibl2+1 + n6 + n7;
113 for(
int i=0; i<ncsx; i++){
constants.push_back(csx[i]); }
114 for(
int i=0; i<ncsy; i++){
constants.push_back(csy[i]); }
116 for(
int i=0; i<netaibl+1; i++){
constants.push_back(etaibl[i]); }
119 for(
int i=0; i<nalphaibl+1; i++){
constants.push_back(alphaibl[i]); }
121 for(
int i=0; i<neta; i++){
constants.push_back(
eta[i]); }
122 for(
int i=0; i<nalpha; i++){
constants.push_back(alpha[i]); }
124 for(
int i=0; i<ncsx2+1; i++){
constants.push_back(csx2[i]); }
125 for(
int i=0; i<ncsy2+1; i++){
constants.push_back(csy2[i]); }
127 for(
int i=0; i<netaibl2+1; i++){
constants.push_back(etaibl2[i]); }
130 for(
int i=0; i<nalphaibl2+1; i++){
constants.push_back(alphaibl2[i]); }
132 for(
int i=0; i<neta2+1; i++){
constants.push_back(eta2[i]); }
133 for(
int i=0; i<nalpha2+1; i++){
constants.push_back(alpha2[i]); }
182 offset += ncsx+ncsy+neta+nalpha;
183 for(
int i=0; i<n1; i++){
188 for(
int i=0; i<n2; i++){
193 int n3a = ncsx*nalpha;
194 int n3b = ncsx*ncsy*neta;
195 for(
int i=0; i<n3a; i++){
199 for(
int i=0; i<n3b; i++){
203 for(
int i=0; i<n4; i++){
207 for(
int i=0; i<n5; i++){
211 if(ierr == 0) std::cout <<
"something went wrong!" << std::endl;
233 const int nalpha2 = int(
constants.at(12));
236 if(v1<-1||v2<-1||v3<-1)offset +=8;
237 const int ncsx_ibl = offset>13 ? int(
constants.at(13)) : 0;
238 const int ncsy_ibl = offset>13 ? int(
constants.at(14)) : 0;
239 const int netaibl = offset>13 ? int(
constants.at(15)) : 0;
240 const int nalphaibl = offset>13 ? int(
constants.at(16)) : 0;
241 const int ncsx2_ibl = offset>13 ? int(
constants.at(17)) : 0;
242 const int ncsy2_ibl = offset>13 ? int(
constants.at(18)) : 0;
243 const int netaibl2 = offset>13 ? int(
constants.at(19)) : 0;
244 const int nalphaibl2 = offset>13 ? int(
constants.at(20)) : 0;
252 offset += ncsx+ncsy+neta+nalpha;
253 if(v2<-1) offset +=netaibl+1+nalphaibl+1;
262 offset += (ncsx2+1)+(ncsy2+1)+(neta2+1)+(nalpha2+1);
263 if(v3<-1) offset += (netaibl2+1) + (nalphaibl2+1);
264 for(
int i=0; i<n1; i++){
269 for(
int i=0; i<n2; i++){
275 for(
int i=0; i<n1; i++){
281 int n3a = ncsx*nalpha;
282 int n3b = ncsx*ncsy*neta;
283 int n3c = ncsx_ibl*nalphaibl;
284 int n3d = ncsy_ibl*netaibl;
286 for(
int i=0; i<n3c; i++){
291 for(
int i=0; i<n3a; i++){
297 for(
int i=0; i<n3d; i++){
303 for(
int i=0; i<n3b; i++){
307 const int n4 = 6*ncsx2*nalpha2;
308 const int n5 = 6*ncsy2*neta2;
309 const int n6 = ncsx2_ibl*nalphaibl2;
310 const int n7 = ncsy2_ibl*netaibl2;
312 for(
int i=0; i<n6+n4; i++){
316 for(
int i=0; i<n7+n5; i++){
321 if(ierr == 0) std::cout <<
"something went wrong!" << std::endl;