| 59 |
|
#define G_MINIMIZER 38 |
| 60 |
|
#define G_MIN_MAXITER 39 |
| 61 |
|
#define G_MIN_WRITEFRQ 40 |
| 62 |
< |
#define G_MIN_RESETFRQ 41 |
| 62 |
> |
#define G_MIN_STEPSIZE 41 |
| 63 |
|
#define G_MIN_FTOL 42 |
| 64 |
|
#define G_MIN_GTOL 43 |
| 65 |
|
#define G_MIN_LSTOL 44 |
| 66 |
|
#define G_MIN_LSMAXITER 45 |
| 67 |
+ |
#define G_ZCONSGAP 46 |
| 68 |
+ |
#define G_ZCONSFIXTIME 47 |
| 69 |
|
|
| 68 |
– |
|
| 70 |
|
Globals::Globals(){ |
| 71 |
|
|
| 72 |
|
int i; |
| 121 |
|
addHash( "minimizer", G_MINIMIZER); |
| 122 |
|
addHash( "minMaxIter", G_MIN_MAXITER); |
| 123 |
|
addHash( "minWriteFrq", G_MIN_WRITEFRQ); |
| 124 |
< |
addHash( "minResetFrq", G_MIN_RESETFRQ); |
| 124 |
> |
addHash( "minStepSize", G_MIN_STEPSIZE); |
| 125 |
|
addHash( "minFTol", G_MIN_FTOL); |
| 126 |
|
addHash( "minGTol", G_MIN_GTOL); |
| 127 |
|
addHash( "minLSTol", G_MIN_LSTOL); |
| 128 |
|
addHash( "minLSMaxIter", G_MIN_LSMAXITER); |
| 129 |
< |
|
| 129 |
> |
addHash( "zconsGap", G_ZCONSGAP); |
| 130 |
> |
addHash( "zconsFixtime", G_ZCONSFIXTIME); |
| 131 |
|
|
| 132 |
|
strcpy( mixingRule,"standard"); //default mixing rules to standard. |
| 133 |
|
usePBC = 1; //default periodic boundry conditions to on |
| 1233 |
|
strdup( "Global error. zconsForcePolicy unrecognized.\n" ); |
| 1234 |
|
return 0; |
| 1235 |
|
break; |
| 1236 |
+ |
} |
| 1237 |
+ |
break; |
| 1238 |
+ |
|
| 1239 |
+ |
case G_ZCONSGAP: |
| 1240 |
+ |
switch( the_type ){ |
| 1241 |
+ |
|
| 1242 |
+ |
case STRING: |
| 1243 |
+ |
the_event->err_msg = |
| 1244 |
+ |
strdup( "Global error. zcons_gap is not a double or int.\n" ); |
| 1245 |
+ |
return 0; |
| 1246 |
+ |
break; |
| 1247 |
+ |
|
| 1248 |
+ |
case DOUBLE: |
| 1249 |
+ |
zcons_gap = the_event->evt.asmt.rhs.dval; |
| 1250 |
+ |
have_zcons_gap= 1; |
| 1251 |
+ |
return 1; |
| 1252 |
+ |
break; |
| 1253 |
+ |
|
| 1254 |
+ |
case INT: |
| 1255 |
+ |
zcons_gap= (double)the_event->evt.asmt.rhs.ival; |
| 1256 |
+ |
have_zcons_gap= 1; |
| 1257 |
+ |
return 1; |
| 1258 |
+ |
break; |
| 1259 |
+ |
|
| 1260 |
+ |
default: |
| 1261 |
+ |
the_event->err_msg = |
| 1262 |
+ |
strdup( "Global error. zcons_gap unrecognized.\n" ); |
| 1263 |
+ |
return 0; |
| 1264 |
+ |
break; |
| 1265 |
|
} |
| 1266 |
|
break; |
| 1267 |
|
|
| 1268 |
+ |
case G_ZCONSFIXTIME: |
| 1269 |
+ |
switch( the_type ){ |
| 1270 |
+ |
|
| 1271 |
+ |
case STRING: |
| 1272 |
+ |
the_event->err_msg = |
| 1273 |
+ |
strdup( "Global error. zcons_fixtime is not a double or int.\n" ); |
| 1274 |
+ |
return 0; |
| 1275 |
+ |
break; |
| 1276 |
+ |
|
| 1277 |
+ |
case DOUBLE: |
| 1278 |
+ |
zcons_fixtime= the_event->evt.asmt.rhs.dval; |
| 1279 |
+ |
have_zcons_fixtime= 1; |
| 1280 |
+ |
return 1; |
| 1281 |
+ |
break; |
| 1282 |
+ |
|
| 1283 |
+ |
case INT: |
| 1284 |
+ |
zcons_fixtime= (double)the_event->evt.asmt.rhs.ival; |
| 1285 |
+ |
have_zcons_fixtime= 1; |
| 1286 |
+ |
return 1; |
| 1287 |
+ |
break; |
| 1288 |
+ |
|
| 1289 |
+ |
default: |
| 1290 |
+ |
the_event->err_msg = |
| 1291 |
+ |
strdup( "Global error. zcons_fixtime unrecognized.\n" ); |
| 1292 |
+ |
return 0; |
| 1293 |
+ |
break; |
| 1294 |
+ |
} |
| 1295 |
+ |
break; |
| 1296 |
+ |
|
| 1297 |
|
case G_MINIMIZER: |
| 1298 |
|
switch( the_type ){ |
| 1299 |
|
|
| 1385 |
|
} |
| 1386 |
|
break; |
| 1387 |
|
|
| 1388 |
< |
case G_MIN_RESETFRQ: |
| 1388 |
> |
case G_MIN_STEPSIZE: |
| 1389 |
|
switch( the_type ){ |
| 1390 |
|
|
| 1391 |
|
case STRING: |
| 1395 |
|
break; |
| 1396 |
|
|
| 1397 |
|
case DOUBLE: |
| 1398 |
< |
minimizer_resetfrq= the_event->evt.asmt.rhs.dval; |
| 1399 |
< |
have_minimizer_resetfrq = 1; |
| 1398 |
> |
minimizer_stepsize= the_event->evt.asmt.rhs.dval; |
| 1399 |
> |
have_minimizer_stepsize = 1; |
| 1400 |
|
return 1; |
| 1401 |
|
break; |
| 1402 |
|
|
| 1403 |
|
case INT: |
| 1404 |
< |
minimizer_resetfrq= the_event->evt.asmt.rhs.ival; |
| 1405 |
< |
have_minimizer_resetfrq = 1; |
| 1404 |
> |
minimizer_stepsize= the_event->evt.asmt.rhs.ival; |
| 1405 |
> |
have_minimizer_stepsize = 1; |
| 1406 |
|
return 1; |
| 1407 |
|
break; |
| 1408 |
|
|
