00001 #include <grass/geo.h>
00002 #include <grass/gis.h>
00003
00004
00005 #if 0
00006 int ier, proj_index, zone, snum, spath;
00007
00008 double radius, kfact, mfact, msfact, nfact,
00009 qfact, wfact, unit_fact, x_false, y_false, heigh, azim, tilt;
00010
00011 struct used_opt USED_in[NOPTIONS];
00012 struct used_opt USED_out[NOPTIONS];
00013
00014 double LLSTUFF[NLLSTUFF];
00015
00016 #endif
00017
00018
00019 const struct conv_fact UNITS[NUNITS] = {
00020
00021
00022 {"meters", "meter", 1.0},
00023 {"feet", "foot", 0.3048},
00024 {"miles", "mile", 1609.344},
00025 {"inches", "inch", 2.540000e-02},
00026 {"centimeters", "centimeter", 0.01},
00027 {"nanometers", "nanometer", 1.000000e-09},
00028 {"microns", "micron", 1.000000e-06},
00029 {"angstroms", "angstrom", 1.000000e-10},
00030 {"decinanometers", "decinanometer", 1.000000e-10},
00031 {"yards", "yard", 0.9144},
00032 {"rods", "rod", 5.0292},
00033 {"lightyears", "lightyear", 9.460530e+15},
00034 {"USfeet", "USfoot", 0.30480060960121920243},
00035 {"USinches", "USinch", .02540005080010160020},
00036 {"USyards", "USyard", .91440182880365760731},
00037 {"USmiles", "USmile", 1609.34721869443738887477}
00038
00039
00040
00041
00042
00043
00044
00045
00046
00047
00048
00049
00050
00051
00052
00053
00054
00055
00056
00057
00058
00059
00060
00061
00062
00063
00064
00065
00066
00067
00068
00069
00070
00071
00072
00073
00074
00075
00076
00077
00078
00079
00080
00081
00082 };
00083
00084
00085
00086 const char DESC[NOPTIONS][63] = {
00087
00088 "Central Parallel [lat_0]",
00089 "First Standard Parallel [lat_1]",
00090 "",
00091 "Second Standard Parallel [lat_2]",
00092 "",
00093 "Third Standard Parallel [lat_3]",
00094 "Latitude of True Scale [lat_ts]",
00095 "Angular Distance from Tangency Point [lat_b]",
00096 "Latitude of New Pole [o_lat_p]",
00097 "Central Meridian [lon_0]",
00098 "First Standard Meridian [lon_1]",
00099 "",
00100 "Second Standard Meridian [lon_2]",
00101 "",
00102 "Third Standard Meridian [lon_3]",
00103 "Longitude of Cartesian Origin [lon_c]",
00104 "",
00105 "Longitude of New Pole [o_lon_p]",
00106 "Azimuth angle at Cartesian Origin [alpha]",
00107 "",
00108 "Theta Angle [theta]",
00109 "Azimuth Angle of Tilt in Decimal degrees [azi]",
00110 "Tilt Angle in Decimal Degrees [tilt]",
00111 "Height of Viewing Point in Meters [h]",
00112 "Scale Factor at the Central Meridian [k_0]",
00113 "m factor [m]",
00114 "M factor [M]",
00115 "n factor [n]",
00116 "q factor [q]",
00117 "W factor [W]",
00118 "False Easting [x_0]",
00119 "False Northing [y_0]",
00120 "Projection Zone [zone]",
00121 "Satellite Number [lsat]",
00122 "Satellite Path Number [path]",
00123 "",
00124 "LOTSA [lotsa]",
00125 "Both Hemispheres [no_cut]",
00126 "",
00127 "Suppress Rotation [no_rot]",
00128 "Suppress Skew [ns]",
00129 "Suppress Offset from Pre-Rotated Axis [no_uoff]",
00130 "Origin Convergence Angle [rot_conv]",
00131 "South Hemisphere"
00132 };
00133
00134
00135 struct opt_req TABLE[NPROJES][NOPTIONS];
00136
00137 int G_geo_init_table(void)
00138 {
00139 int i, j;
00140
00141 for (j = 0; j < NOPTIONS; j++) {
00142 for (i = 0; i < NPROJES; i++) {
00143
00144 TABLE[i][j].ask = 0;
00145 TABLE[i][j].def_exists = 0;
00146 }
00147 }
00148
00149 TABLE[UTM][ZONE].ask = 1;
00150 TABLE[UTM][SOUTH].ask = 1;
00151
00152 TABLE[AEA][LAT0].ask = 1;
00153 TABLE[AEA][LAT0].def_exists = 1;
00154 TABLE[AEA][LAT0].deflt = 23.0;
00155
00156 TABLE[AEA][LON0].ask = 1;
00157 TABLE[AEA][LON0].def_exists = 1;
00158 TABLE[AEA][LON0].deflt = -96.0;
00159
00160 TABLE[AEA][LAT1].ask = 1;
00161 TABLE[AEA][LAT1].def_exists = 1;
00162 TABLE[AEA][LAT1].deflt = 29.5;
00163
00164 TABLE[AEA][LAT2].ask = 1;
00165 TABLE[AEA][LAT2].def_exists = 1;
00166 TABLE[AEA][LAT2].deflt = 45.5;
00167
00168 TABLE[AEA][X0].ask = 1;
00169 TABLE[AEA][X0].def_exists = 1;
00170 TABLE[AEA][X0].deflt = 0.0;
00171
00172 TABLE[AEA][Y0].ask = 1;
00173 TABLE[AEA][Y0].def_exists = 1;
00174 TABLE[AEA][Y0].deflt = 0.0;
00175
00176 TABLE[LCC][LAT0].ask = 1;
00177 TABLE[LCC][LAT0].def_exists = 1;
00178 TABLE[LCC][LAT0].deflt = 23.0;
00179
00180 TABLE[LCC][LON0].ask = 1;
00181 TABLE[LCC][LON0].def_exists = 1;
00182 TABLE[LCC][LON0].deflt = -96.0;
00183
00184 TABLE[LCC][LAT1].ask = 1;
00185 TABLE[LCC][LAT1].def_exists = 1;
00186 TABLE[LCC][LAT1].deflt = 33.0;
00187
00188 TABLE[LCC][LAT2].ask = 1;
00189 TABLE[LCC][LAT2].def_exists = 1;
00190 TABLE[LCC][LAT2].deflt = 45.0;
00191
00192 TABLE[LCC][X0].ask = 1;
00193 TABLE[LCC][X0].def_exists = 1;
00194 TABLE[LCC][X0].deflt = 0.0;
00195
00196 TABLE[LCC][Y0].ask = 1;
00197 TABLE[LCC][Y0].def_exists = 1;
00198 TABLE[LCC][Y0].deflt = 0.0;
00199
00200 TABLE[MERC][LON0].ask = 1;
00201 TABLE[MERC][LON0].def_exists = 1;
00202 TABLE[MERC][LON0].deflt = -96.0;
00203
00204 TABLE[MERC][LATTS].ask = 1;
00205 TABLE[MERC][LATTS].def_exists = 1;
00206 TABLE[MERC][LATTS].deflt = 0.;
00207
00208 TABLE[MERC][KFACT].ask = 1;
00209 TABLE[MERC][KFACT].def_exists = 1;
00210 TABLE[MERC][KFACT].deflt = 1.0;
00211
00212 TABLE[TMERC][LAT0].ask = 1;
00213 TABLE[TMERC][LAT0].def_exists = 1;
00214 TABLE[TMERC][LAT0].deflt = 23.0;
00215
00216 TABLE[TMERC][LON0].ask = 1;
00217 TABLE[TMERC][LON0].def_exists = 1;
00218 TABLE[TMERC][LON0].deflt = -96.0;
00219
00220 TABLE[TMERC][X0].ask = 1;
00221 TABLE[TMERC][X0].def_exists = 1;
00222 TABLE[TMERC][X0].deflt = 0.0;
00223
00224 TABLE[TMERC][Y0].ask = 1;
00225 TABLE[TMERC][Y0].def_exists = 1;
00226 TABLE[TMERC][Y0].deflt = 0.0;
00227
00228 TABLE[TMERC][KFACT].ask = 1;
00229 TABLE[TMERC][KFACT].def_exists = 1;
00230 TABLE[TMERC][KFACT].deflt = 1.0;
00231
00232 TABLE[LEAC][LAT0].ask = 1;
00233 TABLE[LEAC][LAT0].def_exists = 1;
00234 TABLE[LEAC][LAT0].deflt = 55.0;
00235
00236 TABLE[LEAC][LON0].ask = 1;
00237 TABLE[LEAC][LON0].def_exists = 1;
00238 TABLE[LEAC][LON0].deflt = 20.0;
00239
00240 TABLE[LEAC][LAT1].ask = 1;
00241 TABLE[LEAC][LAT1].def_exists = 1;
00242 TABLE[LEAC][LAT1].deflt = 0.0;
00243
00244 TABLE[LEAC][SOUTH].ask = 1;
00245
00246 TABLE[LAEA][LAT0].ask = 1;
00247 TABLE[LAEA][LAT0].def_exists = 1;
00248 TABLE[LAEA][LAT0].deflt = 55.0;
00249
00250 TABLE[LAEA][LON0].ask = 1;
00251 TABLE[LAEA][LON0].def_exists = 1;
00252 TABLE[LAEA][LON0].deflt = 20.0;
00253
00254 TABLE[LAEA][X0].ask = 1;
00255 TABLE[LAEA][X0].def_exists = 1;
00256 TABLE[LAEA][X0].deflt = 0.0;
00257
00258 TABLE[LAEA][Y0].ask = 1;
00259 TABLE[LAEA][Y0].def_exists = 1;
00260 TABLE[LAEA][Y0].deflt = 0.0;
00261
00262 TABLE[AEQD][LON0].ask = 1;
00263 TABLE[AEQD][LON0].def_exists = 1;
00264 TABLE[AEQD][LON0].deflt = 20.0;
00265
00266 TABLE[AEQD][LAT0].ask = 1;
00267 TABLE[AEQD][LAT0].def_exists = 1;
00268 TABLE[AEQD][LAT0].deflt = 0.0;
00269
00270 TABLE[AIRY][LON0].ask = 1;
00271 TABLE[AIRY][LON0].def_exists = 1;
00272 TABLE[AIRY][LON0].deflt = 20.0;
00273
00274 TABLE[AIRY][LAT0].ask = 1;
00275 TABLE[AIRY][LAT0].def_exists = 1;
00276 TABLE[AIRY][LAT0].deflt = 0.0;
00277
00278 TABLE[AIRY][LATB].ask = 1;
00279 TABLE[AIRY][LATB].def_exists = 1;
00280 TABLE[AIRY][LATB].deflt = 90.0;
00281
00282 TABLE[AIRY][NOCUT].ask = 1;
00283
00284 TABLE[AITOFF][LON0].ask = 1;
00285 TABLE[AITOFF][LON0].def_exists = 1;
00286 TABLE[AITOFF][LON0].deflt = 20.0;
00287
00288 TABLE[AITOFF][LAT0].ask = 1;
00289 TABLE[AITOFF][LAT0].def_exists = 1;
00290 TABLE[AITOFF][LAT0].deflt = 0.0;
00291
00292 TABLE[ALSK][LON0].def_exists = 1;
00293 TABLE[ALSK][LON0].deflt = -152.0;
00294
00295 TABLE[ALSK][LAT0].def_exists = 1;
00296 TABLE[ALSK][LAT0].deflt = 64.0;
00297
00298 TABLE[APIAN][LON0].ask = 1;
00299 TABLE[APIAN][LON0].def_exists = 1;
00300 TABLE[APIAN][LON0].deflt = 20.0;
00301
00302 TABLE[APIAN][LAT0].ask = 1;
00303 TABLE[APIAN][LAT0].def_exists = 1;
00304 TABLE[APIAN][LAT0].deflt = 0.0;
00305
00306 TABLE[AUGUST][LON0].ask = 1;
00307 TABLE[AUGUST][LON0].def_exists = 1;
00308 TABLE[AUGUST][LON0].deflt = 20.0;
00309
00310 TABLE[AUGUST][LAT0].ask = 1;
00311 TABLE[AUGUST][LAT0].def_exists = 1;
00312 TABLE[AUGUST][LAT0].deflt = 0.0;
00313
00314 TABLE[BACON][LON0].ask = 1;
00315 TABLE[BACON][LON0].def_exists = 1;
00316 TABLE[BACON][LON0].deflt = 20.0;
00317
00318 TABLE[BACON][LAT0].ask = 1;
00319 TABLE[BACON][LAT0].def_exists = 1;
00320 TABLE[BACON][LAT0].deflt = 0.0;
00321
00322 TABLE[BIPC][LON0].ask = 1;
00323 TABLE[BIPC][LON0].def_exists = 1;
00324 TABLE[BIPC][LON0].deflt = -90.0;
00325
00326 TABLE[BIPC][LAT0].ask = 1;
00327 TABLE[BIPC][LAT0].def_exists = 1;
00328 TABLE[BIPC][LAT0].deflt = 0.0;
00329
00330 TABLE[BIPC][NOSKEW].ask = 1;
00331
00332 TABLE[BOGGS][LON0].ask = 1;
00333 TABLE[BOGGS][LON0].def_exists = 1;
00334 TABLE[BOGGS][LON0].deflt = 20.0;
00335
00336 TABLE[BOGGS][LAT0].ask = 1;
00337 TABLE[BOGGS][LAT0].def_exists = 1;
00338 TABLE[BOGGS][LAT0].deflt = 0.0;
00339
00340 TABLE[BONNE][LON0].ask = 1;
00341 TABLE[BONNE][LON0].def_exists = 1;
00342 TABLE[BONNE][LON0].deflt = 20.0;
00343
00344 TABLE[BONNE][LAT1].ask = 1;
00345 TABLE[BONNE][LAT1].def_exists = 1;
00346 TABLE[BONNE][LAT1].deflt = 40.0;
00347
00348 TABLE[CASS][LON0].ask = 1;
00349 TABLE[CASS][LON0].def_exists = 1;
00350 TABLE[CASS][LON0].deflt = 20.0;
00351
00352 TABLE[CASS][LAT0].ask = 1;
00353 TABLE[CASS][LAT0].def_exists = 1;
00354 TABLE[CASS][LAT0].deflt = 0.0;
00355
00356 TABLE[CC][LON0].ask = 1;
00357 TABLE[CC][LON0].def_exists = 1;
00358 TABLE[CC][LON0].deflt = 20.0;
00359
00360 TABLE[CC][LAT0].ask = 1;
00361 TABLE[CC][LAT0].def_exists = 1;
00362 TABLE[CC][LAT0].deflt = 0.0;
00363
00364 TABLE[CEA][LON0].ask = 1;
00365 TABLE[CEA][LON0].def_exists = 1;
00366 TABLE[CEA][LON0].deflt = 20.0;
00367
00368 TABLE[CEA][LAT0].ask = 1;
00369 TABLE[CEA][LAT0].def_exists = 1;
00370 TABLE[CEA][LAT0].deflt = 0.0;
00371
00372 TABLE[CEA][LATTS].ask = 1;
00373 TABLE[CEA][LATTS].def_exists = 1;
00374 TABLE[CEA][LATTS].deflt = 0.0;
00375
00376 TABLE[CHAMB][LON0].ask = 1;
00377 TABLE[CHAMB][LON0].def_exists = 1;
00378 TABLE[CHAMB][LON0].deflt = 20.0;
00379
00380 TABLE[CHAMB][LAT0].ask = 1;
00381 TABLE[CHAMB][LAT0].def_exists = 1;
00382 TABLE[CHAMB][LAT0].deflt = 55.0;
00383
00384 TABLE[CHAMB][LON1].ask = 1;
00385 TABLE[CHAMB][LON1].def_exists = 1;
00386 TABLE[CHAMB][LON1].deflt = 5.0;
00387
00388 TABLE[CHAMB][LAT1].ask = 1;
00389 TABLE[CHAMB][LAT1].def_exists = 1;
00390 TABLE[CHAMB][LAT1].deflt = 40.0;
00391
00392 TABLE[CHAMB][LON2].ask = 1;
00393 TABLE[CHAMB][LON2].def_exists = 1;
00394 TABLE[CHAMB][LON2].deflt = 55.0;
00395
00396 TABLE[CHAMB][LAT2].ask = 1;
00397 TABLE[CHAMB][LAT2].def_exists = 1;
00398 TABLE[CHAMB][LAT2].deflt = 20.0;
00399
00400 TABLE[CHAMB][LON3].ask = 1;
00401 TABLE[CHAMB][LON3].def_exists = 1;
00402 TABLE[CHAMB][LON3].deflt = 65.0;
00403
00404 TABLE[CHAMB][LAT3].ask = 1;
00405 TABLE[CHAMB][LAT3].def_exists = 1;
00406 TABLE[CHAMB][LAT3].deflt = 35.0;
00407
00408 TABLE[COLLG][LON0].ask = 1;
00409 TABLE[COLLG][LON0].def_exists = 1;
00410 TABLE[COLLG][LON0].deflt = 20.0;
00411
00412 TABLE[COLLG][LAT0].ask = 1;
00413 TABLE[COLLG][LAT0].def_exists = 1;
00414 TABLE[COLLG][LAT0].deflt = 0.0;
00415
00416 TABLE[CRAST][LON0].ask = 1;
00417 TABLE[CRAST][LON0].def_exists = 1;
00418 TABLE[CRAST][LON0].deflt = 20.0;
00419
00420 TABLE[CRAST][LAT0].ask = 1;
00421 TABLE[CRAST][LAT0].def_exists = 1;
00422 TABLE[CRAST][LAT0].deflt = 0.0;
00423
00424 TABLE[DENOY][LON0].ask = 1;
00425 TABLE[DENOY][LON0].def_exists = 1;
00426 TABLE[DENOY][LON0].deflt = 20.0;
00427
00428 TABLE[DENOY][LAT0].ask = 1;
00429 TABLE[DENOY][LAT0].def_exists = 1;
00430 TABLE[DENOY][LAT0].deflt = 0.0;
00431
00432 TABLE[ECK1][LON0].ask = 1;
00433 TABLE[ECK1][LON0].def_exists = 1;
00434 TABLE[ECK1][LON0].deflt = 20.0;
00435
00436 TABLE[ECK1][LAT0].ask = 1;
00437 TABLE[ECK1][LAT0].def_exists = 1;
00438 TABLE[ECK1][LAT0].deflt = 0.0;
00439
00440 TABLE[ECK2][LON0].ask = 1;
00441 TABLE[ECK2][LON0].def_exists = 1;
00442 TABLE[ECK2][LON0].deflt = 20.0;
00443
00444 TABLE[ECK2][LAT0].ask = 1;
00445 TABLE[ECK2][LAT0].def_exists = 1;
00446 TABLE[ECK2][LAT0].deflt = 0.0;
00447
00448 TABLE[ECK3][LON0].ask = 1;
00449 TABLE[ECK3][LON0].def_exists = 1;
00450 TABLE[ECK3][LON0].deflt = 20.0;
00451
00452 TABLE[ECK3][LAT0].ask = 1;
00453 TABLE[ECK3][LAT0].def_exists = 1;
00454 TABLE[ECK3][LAT0].deflt = 0.0;
00455
00456 TABLE[ECK4][LON0].ask = 1;
00457 TABLE[ECK4][LON0].def_exists = 1;
00458 TABLE[ECK4][LON0].deflt = 20.0;
00459
00460 TABLE[ECK4][LAT0].ask = 1;
00461 TABLE[ECK4][LAT0].def_exists = 1;
00462 TABLE[ECK4][LAT0].deflt = 0.0;
00463
00464 TABLE[ECK5][LON0].ask = 1;
00465 TABLE[ECK5][LON0].def_exists = 1;
00466 TABLE[ECK5][LON0].deflt = 20.0;
00467
00468 TABLE[ECK5][LAT0].ask = 1;
00469 TABLE[ECK5][LAT0].def_exists = 1;
00470 TABLE[ECK5][LAT0].deflt = 0.0;
00471
00472 TABLE[ECK6][LON0].ask = 1;
00473 TABLE[ECK6][LON0].def_exists = 1;
00474 TABLE[ECK6][LON0].deflt = 20.0;
00475
00476 TABLE[ECK6][LAT0].ask = 1;
00477 TABLE[ECK6][LAT0].def_exists = 1;
00478 TABLE[ECK6][LAT0].deflt = 0.0;
00479
00480 TABLE[EQC][LON0].ask = 1;
00481 TABLE[EQC][LON0].def_exists = 1;
00482 TABLE[EQC][LON0].deflt = 0.0;
00483
00484 TABLE[EQC][LAT0].ask = 1;
00485 TABLE[EQC][LAT0].def_exists = 1;
00486 TABLE[EQC][LAT0].deflt = 0.0;
00487
00488 TABLE[EQC][LATTS].ask = 1;
00489 TABLE[EQC][LATTS].def_exists = 1;
00490 TABLE[EQC][LATTS].deflt = 0.0;
00491
00492 TABLE[EQDC][LON0].ask = 1;
00493 TABLE[EQDC][LON0].def_exists = 1;
00494 TABLE[EQDC][LON0].deflt = 20.0;
00495
00496 TABLE[EQDC][LAT0].ask = 1;
00497 TABLE[EQDC][LAT0].def_exists = 1;
00498 TABLE[EQDC][LAT0].deflt = 40.0;
00499
00500 TABLE[EQDC][LAT1].ask = 1;
00501 TABLE[EQDC][LAT1].def_exists = 1;
00502 TABLE[EQDC][LAT1].deflt = 20.0;
00503
00504 TABLE[EQDC][LAT2].ask = 1;
00505 TABLE[EQDC][LAT2].def_exists = 1;
00506 TABLE[EQDC][LAT2].deflt = 60.0;
00507
00508 TABLE[EULER][LON0].ask = 1;
00509 TABLE[EULER][LON0].def_exists = 1;
00510 TABLE[EULER][LON0].deflt = 20.0;
00511
00512 TABLE[EULER][LAT0].ask = 1;
00513 TABLE[EULER][LAT0].def_exists = 1;
00514 TABLE[EULER][LAT0].deflt = 55.0;
00515
00516 TABLE[EULER][LAT1].ask = 1;
00517 TABLE[EULER][LAT1].def_exists = 1;
00518 TABLE[EULER][LAT1].deflt = 45.0;
00519
00520 TABLE[EULER][LAT2].ask = 1;
00521 TABLE[EULER][LAT2].def_exists = 1;
00522 TABLE[EULER][LAT2].deflt = 65.0;
00523
00524 TABLE[FAHEY][LON0].ask = 1;
00525 TABLE[FAHEY][LON0].def_exists = 1;
00526 TABLE[FAHEY][LON0].deflt = 20.0;
00527
00528 TABLE[FAHEY][LAT0].ask = 1;
00529 TABLE[FAHEY][LAT0].def_exists = 1;
00530 TABLE[FAHEY][LAT0].deflt = 0.0;
00531
00532 TABLE[FOUC][LON0].ask = 1;
00533 TABLE[FOUC][LON0].def_exists = 1;
00534 TABLE[FOUC][LON0].deflt = 20.0;
00535
00536 TABLE[FOUC][LAT0].ask = 1;
00537 TABLE[FOUC][LAT0].def_exists = 1;
00538 TABLE[FOUC][LAT0].deflt = 0.0;
00539
00540 TABLE[FOUC_S][LON0].ask = 1;
00541 TABLE[FOUC_S][LON0].def_exists = 1;
00542 TABLE[FOUC_S][LON0].deflt = 20.0;
00543
00544 TABLE[FOUC_S][LAT0].ask = 1;
00545 TABLE[FOUC_S][LAT0].def_exists = 1;
00546 TABLE[FOUC_S][LAT0].deflt = 0.0;
00547
00548 TABLE[GALL][LON0].ask = 1;
00549 TABLE[GALL][LON0].def_exists = 1;
00550 TABLE[GALL][LON0].deflt = 20.0;
00551
00552 TABLE[GALL][LAT0].ask = 1;
00553 TABLE[GALL][LAT0].def_exists = 1;
00554 TABLE[GALL][LAT0].deflt = 0.0;
00555
00556 TABLE[GINS8][LON0].ask = 1;
00557 TABLE[GINS8][LON0].def_exists = 1;
00558 TABLE[GINS8][LON0].deflt = 20.0;
00559
00560 TABLE[GINS8][LAT0].ask = 1;
00561 TABLE[GINS8][LAT0].def_exists = 1;
00562 TABLE[GINS8][LAT0].deflt = 0.0;
00563
00564 TABLE[GN_SINU][LON0].ask = 1;
00565 TABLE[GN_SINU][LON0].def_exists = 1;
00566 TABLE[GN_SINU][LON0].deflt = 20.0;
00567
00568 TABLE[GN_SINU][LAT0].ask = 1;
00569 TABLE[GN_SINU][LAT0].def_exists = 1;
00570 TABLE[GN_SINU][LAT0].deflt = 0.0;
00571
00572 TABLE[GN_SINU][MFACT].ask = 1;
00573 TABLE[GN_SINU][MFACT].def_exists = 1;
00574 TABLE[GN_SINU][MFACT].deflt = 1.0;
00575
00576 TABLE[GN_SINU][NFACT].ask = 1;
00577 TABLE[GN_SINU][NFACT].def_exists = 1;
00578 TABLE[GN_SINU][NFACT].deflt = 1.0;
00579
00580 TABLE[GNOM][LON0].ask = 1;
00581 TABLE[GNOM][LON0].def_exists = 1;
00582 TABLE[GNOM][LON0].deflt = 20.0;
00583
00584 TABLE[GNOM][LAT0].ask = 1;
00585 TABLE[GNOM][LAT0].def_exists = 1;
00586 TABLE[GNOM][LAT0].deflt = 0.0;
00587
00588 TABLE[GOODE][LON0].ask = 1;
00589 TABLE[GOODE][LON0].def_exists = 1;
00590 TABLE[GOODE][LON0].deflt = 20.0;
00591
00592 TABLE[GOODE][LAT0].ask = 1;
00593 TABLE[GOODE][LAT0].def_exists = 1;
00594 TABLE[GOODE][LAT0].deflt = 0.0;
00595
00596 TABLE[GS48][LON0].def_exists = 1;
00597 TABLE[GS48][LON0].deflt = -120.0;
00598
00599 TABLE[GS48][LAT0].def_exists = 1;
00600 TABLE[GS48][LAT0].deflt = 45.0;
00601
00602 TABLE[GS50][LON0].def_exists = 1;
00603 TABLE[GS50][LON0].deflt = -120.0;
00604
00605 TABLE[GS50][LAT0].def_exists = 1;
00606 TABLE[GS50][LAT0].deflt = 45.0;
00607
00608 TABLE[HAMMER][LON0].ask = 1;
00609 TABLE[HAMMER][LON0].def_exists = 1;
00610 TABLE[HAMMER][LON0].deflt = 20.0;
00611
00612 TABLE[HAMMER][LAT0].ask = 1;
00613 TABLE[HAMMER][LAT0].def_exists = 1;
00614 TABLE[HAMMER][LAT0].deflt = 0.0;
00615
00616 TABLE[HAMMER][WFACT].ask = 1;
00617 TABLE[HAMMER][WFACT].def_exists = 1;
00618 TABLE[HAMMER][WFACT].deflt = 0.5;
00619
00620 TABLE[HAMMER][MSFACT].ask = 1;
00621 TABLE[HAMMER][MSFACT].def_exists = 1;
00622 TABLE[HAMMER][MSFACT].deflt = 1.0;
00623
00624 TABLE[HATANO][LON0].ask = 1;
00625 TABLE[HATANO][LON0].def_exists = 1;
00626 TABLE[HATANO][LON0].deflt = 20.0;
00627
00628 TABLE[HATANO][LAT0].ask = 1;
00629 TABLE[HATANO][LAT0].def_exists = 1;
00630 TABLE[HATANO][LAT0].deflt = 0.0;
00631
00632 TABLE[IMW_P][LON0].ask = 1;
00633 TABLE[IMW_P][LON0].def_exists = 1;
00634 TABLE[IMW_P][LON0].deflt = 20.0;
00635
00636 TABLE[IMW_P][LON1].ask = 1;
00637 TABLE[IMW_P][LON1].def_exists = 1;
00638 TABLE[IMW_P][LON1].deflt = 20.0;
00639
00640 TABLE[IMW_P][LAT0].ask = 1;
00641 TABLE[IMW_P][LAT0].def_exists = 1;
00642 TABLE[IMW_P][LAT0].deflt = 0.0;
00643
00644 TABLE[IMW_P][LAT1].ask = 1;
00645 TABLE[IMW_P][LAT1].def_exists = 1;
00646 TABLE[IMW_P][LAT1].deflt = 20.0;
00647
00648 TABLE[IMW_P][LAT2].ask = 1;
00649 TABLE[IMW_P][LAT2].def_exists = 1;
00650 TABLE[IMW_P][LAT2].deflt = 60.0;
00651
00652 TABLE[KAV5][LON0].ask = 1;
00653 TABLE[KAV5][LON0].def_exists = 1;
00654 TABLE[KAV5][LON0].deflt = 20.0;
00655
00656 TABLE[KAV5][LAT0].ask = 1;
00657 TABLE[KAV5][LAT0].def_exists = 1;
00658 TABLE[KAV5][LAT0].deflt = 0.0;
00659
00660 TABLE[KAV7][LON0].ask = 1;
00661 TABLE[KAV7][LON0].def_exists = 1;
00662 TABLE[KAV7][LON0].deflt = 20.0;
00663
00664 TABLE[KAV7][LAT0].ask = 1;
00665 TABLE[KAV7][LAT0].def_exists = 1;
00666 TABLE[KAV7][LAT0].deflt = 0.0;
00667
00668 TABLE[LABRD][LON0].def_exists = 1;
00669 TABLE[LABRD][LON0].deflt = 46.437208333;
00670
00671 TABLE[LABRD][LAT0].def_exists = 1;
00672 TABLE[LABRD][LAT0].deflt = 18.9;
00673
00674 TABLE[LABRD][AZIM].def_exists = 1;
00675 TABLE[LABRD][AZIM].deflt = 18.9;
00676
00677 TABLE[LABRD][KFACT].def_exists = 1;
00678 TABLE[LABRD][KFACT].deflt = 0.9995;
00679
00680 TABLE[LABRD][X0].def_exists = 1;
00681 TABLE[LABRD][X0].deflt = 400000.0;
00682
00683 TABLE[LABRD][Y0].def_exists = 1;
00684 TABLE[LABRD][Y0].deflt = 800000.0;
00685
00686 TABLE[LAGRNG][LON0].ask = 1;
00687 TABLE[LAGRNG][LON0].def_exists = 1;
00688 TABLE[LAGRNG][LON0].deflt = 20.0;
00689
00690 TABLE[LAGRNG][LAT0].ask = 1;
00691 TABLE[LAGRNG][LAT0].def_exists = 1;
00692 TABLE[LAGRNG][LAT0].deflt = 0.0;
00693
00694 TABLE[LAGRNG][LAT1].ask = 1;
00695 TABLE[LAGRNG][LAT1].def_exists = 1;
00696 TABLE[LAGRNG][LAT1].deflt = 0.0;
00697
00698 TABLE[LAGRNG][WFACT].ask = 1;
00699 TABLE[LAGRNG][WFACT].def_exists = 1;
00700 TABLE[LAGRNG][WFACT].deflt = 2.0;
00701
00702 TABLE[LARR][LON0].ask = 1;
00703 TABLE[LARR][LON0].def_exists = 1;
00704 TABLE[LARR][LON0].deflt = 20.0;
00705
00706 TABLE[LARR][LAT0].ask = 1;
00707 TABLE[LARR][LAT0].def_exists = 1;
00708 TABLE[LARR][LAT0].deflt = 0.0;
00709
00710 TABLE[LASK][LON0].ask = 1;
00711 TABLE[LASK][LON0].def_exists = 1;
00712 TABLE[LASK][LON0].deflt = 20.0;
00713
00714 TABLE[LASK][LAT0].ask = 1;
00715 TABLE[LASK][LAT0].def_exists = 1;
00716 TABLE[LASK][LAT0].deflt = 0.0;
00717
00718 TABLE[LEE_OS][LON0].def_exists = 1;
00719 TABLE[LEE_OS][LON0].deflt = -165.0;
00720
00721 TABLE[LEE_OS][LAT0].def_exists = 1;
00722 TABLE[LEE_OS][LAT0].deflt = -10.0;
00723
00724 TABLE[LOXIM][LON0].ask = 1;
00725 TABLE[LOXIM][LON0].def_exists = 1;
00726 TABLE[LOXIM][LON0].deflt = 20.0;
00727
00728 TABLE[LOXIM][LAT0].ask = 1;
00729 TABLE[LOXIM][LAT0].def_exists = 1;
00730 TABLE[LOXIM][LAT0].deflt = 0.0;
00731
00732 TABLE[LOXIM][LAT1].ask = 1;
00733 TABLE[LOXIM][LAT1].def_exists = 1;
00734 TABLE[LOXIM][LAT1].deflt = 45.0;
00735
00736 TABLE[LSAT][LON0].ask = 1;
00737 TABLE[LSAT][LON0].def_exists = 1;
00738 TABLE[LSAT][LON0].deflt = 20.0;
00739
00740 TABLE[LSAT][LAT0].ask = 1;
00741 TABLE[LSAT][LAT0].def_exists = 1;
00742 TABLE[LSAT][LAT0].deflt = 0.0;
00743
00744 TABLE[LSAT][SNUM].ask = 1;
00745 TABLE[LSAT][SNUM].def_exists = 1;
00746 TABLE[LSAT][SNUM].deflt = 1;
00747
00748 TABLE[LSAT][SPATH].ask = 1;
00749 TABLE[LSAT][SPATH].def_exists = 1;
00750 TABLE[LSAT][SPATH].deflt = 1;
00751
00752 TABLE[MBT_S][LON0].ask = 1;
00753 TABLE[MBT_S][LON0].def_exists = 1;
00754 TABLE[MBT_S][LON0].deflt = 20.0;
00755
00756 TABLE[MBT_S][LAT0].ask = 1;
00757 TABLE[MBT_S][LAT0].def_exists = 1;
00758 TABLE[MBT_S][LAT0].deflt = 0.0;
00759
00760 TABLE[MBT_FPS][LON0].ask = 1;
00761 TABLE[MBT_FPS][LON0].def_exists = 1;
00762 TABLE[MBT_FPS][LON0].deflt = 20.0;
00763
00764 TABLE[MBT_FPS][LAT0].ask = 1;
00765 TABLE[MBT_FPS][LAT0].def_exists = 1;
00766 TABLE[MBT_FPS][LAT0].deflt = 0.0;
00767
00768 TABLE[MBTFPP][LON0].ask = 1;
00769 TABLE[MBTFPP][LON0].def_exists = 1;
00770 TABLE[MBTFPP][LON0].deflt = 20.0;
00771
00772 TABLE[MBTFPP][LAT0].ask = 1;
00773 TABLE[MBTFPP][LAT0].def_exists = 1;
00774 TABLE[MBTFPP][LAT0].deflt = 0.0;
00775
00776 TABLE[MBTFPQ][LON0].ask = 1;
00777 TABLE[MBTFPQ][LON0].def_exists = 1;
00778 TABLE[MBTFPQ][LON0].deflt = 20.0;
00779
00780 TABLE[MBTFPQ][LAT0].ask = 1;
00781 TABLE[MBTFPQ][LAT0].def_exists = 1;
00782 TABLE[MBTFPQ][LAT0].deflt = 0.0;
00783
00784 TABLE[MBTFPS][LON0].ask = 1;
00785 TABLE[MBTFPS][LON0].def_exists = 1;
00786 TABLE[MBTFPS][LON0].deflt = 20.0;
00787
00788 TABLE[MBTFPS][LAT0].ask = 1;
00789 TABLE[MBTFPS][LAT0].def_exists = 1;
00790 TABLE[MBTFPS][LAT0].deflt = 0.0;
00791
00792 TABLE[MIL_OS][LON0].def_exists = 1;
00793 TABLE[MIL_OS][LON0].deflt = 20.0;
00794
00795 TABLE[MIL_OS][LAT0].def_exists = 1;
00796 TABLE[MIL_OS][LAT0].deflt = 18.0;
00797
00798 TABLE[MILL][LON0].ask = 1;
00799 TABLE[MILL][LON0].def_exists = 1;
00800 TABLE[MILL][LON0].deflt = 20.0;
00801
00802 TABLE[MILL][LAT0].ask = 1;
00803 TABLE[MILL][LAT0].def_exists = 1;
00804 TABLE[MILL][LAT0].deflt = 0.0;
00805
00806 TABLE[MOLL][LON0].ask = 1;
00807 TABLE[MOLL][LON0].def_exists = 1;
00808 TABLE[MOLL][LON0].deflt = 20.0;
00809
00810 TABLE[MOLL][LAT0].ask = 1;
00811 TABLE[MOLL][LAT0].def_exists = 1;
00812 TABLE[MOLL][LAT0].deflt = 0.0;
00813
00814 TABLE[MPOLY][LON0].ask = 1;
00815 TABLE[MPOLY][LON0].def_exists = 1;
00816 TABLE[MPOLY][LON0].deflt = 20.0;
00817
00818 TABLE[MPOLY][LAT0].ask = 1;
00819 TABLE[MPOLY][LAT0].def_exists = 1;
00820 TABLE[MPOLY][LAT0].deflt = 0.0;
00821
00822 TABLE[MPOLY][LAT1].ask = 1;
00823 TABLE[MPOLY][LAT1].def_exists = 1;
00824 TABLE[MPOLY][LAT1].deflt = -20.0;
00825
00826 TABLE[MPOLY][LAT2].ask = 1;
00827 TABLE[MPOLY][LAT2].def_exists = 1;
00828 TABLE[MPOLY][LAT2].deflt = 20.0;
00829
00830 TABLE[MPOLY][LOTSA].ask = 1;
00831
00832 TABLE[MURD1][LON0].ask = 1;
00833 TABLE[MURD1][LON0].def_exists = 1;
00834 TABLE[MURD1][LON0].deflt = 20.0;
00835
00836 TABLE[MURD1][LAT0].ask = 1;
00837 TABLE[MURD1][LAT0].def_exists = 1;
00838 TABLE[MURD1][LAT0].deflt = 0.0;
00839
00840 TABLE[MURD1][LAT1].ask = 1;
00841 TABLE[MURD1][LAT1].def_exists = 1;
00842 TABLE[MURD1][LAT1].deflt = -20.0;
00843
00844 TABLE[MURD1][LAT2].ask = 1;
00845 TABLE[MURD1][LAT2].def_exists = 1;
00846 TABLE[MURD1][LAT2].deflt = 20.0;
00847
00848 TABLE[MURD2][LON0].ask = 1;
00849 TABLE[MURD2][LON0].def_exists = 1;
00850 TABLE[MURD2][LON0].deflt = 20.0;
00851
00852 TABLE[MURD2][LAT0].ask = 1;
00853 TABLE[MURD2][LAT0].def_exists = 1;
00854 TABLE[MURD2][LAT0].deflt = 0.0;
00855
00856 TABLE[MURD2][LAT1].ask = 1;
00857 TABLE[MURD2][LAT1].def_exists = 1;
00858 TABLE[MURD2][LAT1].deflt = -20.0;
00859
00860 TABLE[MURD2][LAT2].ask = 1;
00861 TABLE[MURD2][LAT2].def_exists = 1;
00862 TABLE[MURD2][LAT2].deflt = 20.0;
00863
00864 TABLE[MURD3][LON0].ask = 1;
00865 TABLE[MURD3][LON0].def_exists = 1;
00866 TABLE[MURD3][LON0].deflt = 20.0;
00867
00868 TABLE[MURD3][LAT0].ask = 1;
00869 TABLE[MURD3][LAT0].def_exists = 1;
00870 TABLE[MURD3][LAT0].deflt = 0.0;
00871
00872 TABLE[MURD3][LAT1].ask = 1;
00873 TABLE[MURD3][LAT1].def_exists = 1;
00874 TABLE[MURD3][LAT1].deflt = -20.0;
00875
00876 TABLE[MURD3][LAT2].ask = 1;
00877 TABLE[MURD3][LAT2].def_exists = 1;
00878 TABLE[MURD3][LAT2].deflt = 20.0;
00879
00880 TABLE[NELL][LON0].ask = 1;
00881 TABLE[NELL][LON0].def_exists = 1;
00882 TABLE[NELL][LON0].deflt = 20.0;
00883
00884 TABLE[NELL][LAT0].ask = 1;
00885 TABLE[NELL][LAT0].def_exists = 1;
00886 TABLE[NELL][LAT0].deflt = 0.0;
00887
00888 TABLE[NELL_H][LON0].ask = 1;
00889 TABLE[NELL_H][LON0].def_exists = 1;
00890 TABLE[NELL_H][LON0].deflt = 20.0;
00891
00892 TABLE[NELL_H][LAT0].ask = 1;
00893 TABLE[NELL_H][LAT0].def_exists = 1;
00894 TABLE[NELL_H][LAT0].deflt = 0.0;
00895
00896 TABLE[NICOL][LON0].ask = 1;
00897 TABLE[NICOL][LON0].def_exists = 1;
00898 TABLE[NICOL][LON0].deflt = 20.0;
00899
00900 TABLE[NICOL][LAT0].ask = 1;
00901 TABLE[NICOL][LAT0].def_exists = 1;
00902 TABLE[NICOL][LAT0].deflt = 0.0;
00903
00904 TABLE[NSPER][LON0].ask = 1;
00905 TABLE[NSPER][LON0].def_exists = 1;
00906 TABLE[NSPER][LON0].deflt = 20.0;
00907
00908 TABLE[NSPER][LAT0].ask = 1;
00909 TABLE[NSPER][LAT0].def_exists = 1;
00910 TABLE[NSPER][LAT0].deflt = 55.0;
00911
00912 TABLE[NSPER][HEIGH].ask = 1;
00913 TABLE[NSPER][HEIGH].def_exists = 1;
00914 TABLE[NSPER][HEIGH].deflt = 50000000.0;
00915
00916 TABLE[NZMG][LON0].def_exists = 1;
00917 TABLE[NZMG][LON0].deflt = 173.0;
00918
00919 TABLE[NZMG][LAT0].def_exists = 1;
00920 TABLE[NZMG][LAT0].deflt = -41.0;
00921
00922 TABLE[NZMG][X0].def_exists = 1;
00923 TABLE[NZMG][X0].deflt = 2510000.0;
00924
00925 TABLE[NZMG][Y0].def_exists = 1;
00926 TABLE[NZMG][Y0].deflt = 6023150.0;
00927
00928 TABLE[OB_TRAN][LON0].ask = 1;
00929 TABLE[OB_TRAN][LON0].def_exists = 1;
00930 TABLE[OB_TRAN][LON0].deflt = 0.0;
00931
00932 TABLE[OB_TRAN][LAT0].ask = 1;
00933 TABLE[OB_TRAN][LAT0].def_exists = 1;
00934 TABLE[OB_TRAN][LAT0].deflt = 0.0;
00935
00936
00937
00938
00939
00940 TABLE[OB_TRAN][OLONP].ask = 1;
00941 TABLE[OB_TRAN][OLONP].def_exists = 1;
00942 TABLE[OB_TRAN][OLONP].deflt = 0.0;
00943
00944 TABLE[OB_TRAN][OLATP].ask = 1;
00945 TABLE[OB_TRAN][OLATP].def_exists = 1;
00946 TABLE[OB_TRAN][OLATP].deflt = 90.0;
00947
00948 TABLE[OCEA][LON0].ask = 1;
00949 TABLE[OCEA][LON0].def_exists = 1;
00950 TABLE[OCEA][LON0].deflt = 20.0;
00951
00952 TABLE[OCEA][LAT0].ask = 1;
00953 TABLE[OCEA][LAT0].def_exists = 1;
00954 TABLE[OCEA][LAT0].deflt = 0.0;
00955
00956 TABLE[OCEA][LON1].ask = 1;
00957 TABLE[OCEA][LON1].def_exists = 1;
00958 TABLE[OCEA][LON1].deflt = -20.0;
00959
00960 TABLE[OCEA][LAT1].ask = 1;
00961 TABLE[OCEA][LAT1].def_exists = 1;
00962 TABLE[OCEA][LAT1].deflt = -45.0;
00963
00964 TABLE[OCEA][LON2].ask = 1;
00965 TABLE[OCEA][LON2].def_exists = 1;
00966 TABLE[OCEA][LON2].deflt = 60.0;
00967
00968 TABLE[OCEA][LAT2].ask = 1;
00969 TABLE[OCEA][LAT2].def_exists = 1;
00970 TABLE[OCEA][LAT2].deflt = 45.0;
00971
00972 TABLE[OEA][LON0].ask = 1;
00973 TABLE[OEA][LON0].def_exists = 1;
00974 TABLE[OEA][LON0].deflt = 20.0;
00975
00976 TABLE[OEA][LAT0].ask = 1;
00977 TABLE[OEA][LAT0].def_exists = 1;
00978 TABLE[OEA][LAT0].deflt = 0.0;
00979
00980 TABLE[OEA][MFACT].ask = 1;
00981 TABLE[OEA][MFACT].def_exists = 1;
00982 TABLE[OEA][MFACT].deflt = 1.0;
00983
00984 TABLE[OEA][NFACT].ask = 1;
00985 TABLE[OEA][NFACT].def_exists = 1;
00986 TABLE[OEA][NFACT].deflt = 1.0;
00987
00988 TABLE[OEA][THETA].ask = 1;
00989 TABLE[OEA][THETA].def_exists = 1;
00990 TABLE[OEA][THETA].deflt = 0.0;
00991
00992 TABLE[OMERC][LON0].ask = 1;
00993 TABLE[OMERC][LON0].def_exists = 1;
00994 TABLE[OMERC][LON0].deflt = 20.0;
00995
00996 TABLE[OMERC][LAT0].ask = 1;
00997 TABLE[OMERC][LAT0].def_exists = 1;
00998 TABLE[OMERC][LAT0].deflt = 0.0;
00999
01000 TABLE[OMERC][KFACT].ask = 1;
01001 TABLE[OMERC][KFACT].def_exists = 1;
01002 TABLE[OMERC][KFACT].deflt = 1.0;
01003
01004 TABLE[OMERC][NOROT].ask = 1;
01005 TABLE[OMERC][NOUOFF].ask = 1;
01006 TABLE[OMERC][ROTCONV].ask = 1;
01007
01008
01009
01010
01011
01012
01013
01014
01015
01016
01017 TABLE[OMERC][LON1].ask = 1;
01018 TABLE[OMERC][LON1].def_exists = 1;
01019 TABLE[OMERC][LON1].deflt = -40.0;
01020
01021 TABLE[OMERC][LAT1].ask = 1;
01022 TABLE[OMERC][LAT1].def_exists = 1;
01023 TABLE[OMERC][LAT1].deflt = -45.0;
01024
01025 TABLE[OMERC][LON2].ask = 1;
01026 TABLE[OMERC][LON2].def_exists = 1;
01027 TABLE[OMERC][LON2].deflt = 40.0;
01028
01029 TABLE[OMERC][LAT2].ask = 1;
01030 TABLE[OMERC][LAT2].def_exists = 1;
01031 TABLE[OMERC][LAT2].deflt = 45.0;
01032
01033 TABLE[ORTEL][LON0].ask = 1;
01034 TABLE[ORTEL][LON0].def_exists = 1;
01035 TABLE[ORTEL][LON0].deflt = 20.0;
01036
01037 TABLE[ORTEL][LAT0].ask = 1;
01038 TABLE[ORTEL][LAT0].def_exists = 1;
01039 TABLE[ORTEL][LAT0].deflt = 0.0;
01040
01041 TABLE[ORTHO][LON0].ask = 1;
01042 TABLE[ORTHO][LON0].def_exists = 1;
01043 TABLE[ORTHO][LON0].deflt = 20.0;
01044
01045 TABLE[ORTHO][LAT0].ask = 1;
01046 TABLE[ORTHO][LAT0].def_exists = 1;
01047 TABLE[ORTHO][LAT0].deflt = 0.0;
01048
01049 TABLE[PCONIC][LON0].ask = 1;
01050 TABLE[PCONIC][LON0].def_exists = 1;
01051 TABLE[PCONIC][LON0].deflt = 20.0;
01052
01053 TABLE[PCONIC][LAT0].ask = 1;
01054 TABLE[PCONIC][LAT0].def_exists = 1;
01055 TABLE[PCONIC][LAT0].deflt = 0.0;
01056
01057 TABLE[PCONIC][LAT1].ask = 1;
01058 TABLE[PCONIC][LAT1].def_exists = 1;
01059 TABLE[PCONIC][LAT1].deflt = 33.0;
01060
01061 TABLE[PCONIC][LAT2].ask = 1;
01062 TABLE[PCONIC][LAT2].def_exists = 1;
01063 TABLE[PCONIC][LAT2].deflt = 45.0;
01064
01065 TABLE[POLY][LON0].ask = 1;
01066 TABLE[POLY][LON0].def_exists = 1;
01067 TABLE[POLY][LON0].deflt = -90.0;
01068
01069 TABLE[POLY][LAT0].ask = 1;
01070 TABLE[POLY][LAT0].def_exists = 1;
01071 TABLE[POLY][LAT0].deflt = 0.0;
01072
01073 TABLE[PUTP1][LON0].ask = 1;
01074 TABLE[PUTP1][LON0].def_exists = 1;
01075 TABLE[PUTP1][LON0].deflt = 20.0;
01076
01077 TABLE[PUTP1][LAT0].ask = 1;
01078 TABLE[PUTP1][LAT0].def_exists = 1;
01079 TABLE[PUTP1][LAT0].deflt = 0.0;
01080
01081 TABLE[PUTP2][LON0].ask = 1;
01082 TABLE[PUTP2][LON0].def_exists = 1;
01083 TABLE[PUTP2][LON0].deflt = 20.0;
01084
01085 TABLE[PUTP2][LAT0].ask = 1;
01086 TABLE[PUTP2][LAT0].def_exists = 1;
01087 TABLE[PUTP2][LAT0].deflt = 0.0;
01088
01089 TABLE[PUTP3][LON0].ask = 1;
01090 TABLE[PUTP3][LON0].def_exists = 1;
01091 TABLE[PUTP3][LON0].deflt = 20.0;
01092
01093 TABLE[PUTP3][LAT0].ask = 1;
01094 TABLE[PUTP3][LAT0].def_exists = 1;
01095 TABLE[PUTP3][LAT0].deflt = 0.0;
01096
01097 TABLE[PUTP3P][LON0].ask = 1;
01098 TABLE[PUTP3P][LON0].def_exists = 1;
01099 TABLE[PUTP3P][LON0].deflt = 20.0;
01100
01101 TABLE[PUTP3P][LAT0].ask = 1;
01102 TABLE[PUTP3P][LAT0].def_exists = 1;
01103 TABLE[PUTP3P][LAT0].deflt = 0.0;
01104
01105 TABLE[PUTP4P][LON0].ask = 1;
01106 TABLE[PUTP4P][LON0].def_exists = 1;
01107 TABLE[PUTP4P][LON0].deflt = 20.0;
01108
01109 TABLE[PUTP4P][LAT0].ask = 1;
01110 TABLE[PUTP4P][LAT0].def_exists = 1;
01111 TABLE[PUTP4P][LAT0].deflt = 0.0;
01112
01113 TABLE[PUTP5][LON0].ask = 1;
01114 TABLE[PUTP5][LON0].def_exists = 1;
01115 TABLE[PUTP5][LON0].deflt = 20.0;
01116
01117 TABLE[PUTP5][LAT0].ask = 1;
01118 TABLE[PUTP5][LAT0].def_exists = 1;
01119 TABLE[PUTP5][LAT0].deflt = 0.0;
01120
01121 TABLE[PUTP5P][LON0].ask = 1;
01122 TABLE[PUTP5P][LON0].def_exists = 1;
01123 TABLE[PUTP5P][LON0].deflt = 20.0;
01124
01125 TABLE[PUTP5P][LAT0].ask = 1;
01126 TABLE[PUTP5P][LAT0].def_exists = 1;
01127 TABLE[PUTP5P][LAT0].deflt = 0.0;
01128
01129 TABLE[PUTP6][LON0].ask = 1;
01130 TABLE[PUTP6][LON0].def_exists = 1;
01131 TABLE[PUTP6][LON0].deflt = 20.0;
01132
01133 TABLE[PUTP6][LAT0].ask = 1;
01134 TABLE[PUTP6][LAT0].def_exists = 1;
01135 TABLE[PUTP6][LAT0].deflt = 0.0;
01136
01137 TABLE[PUTP6P][LON0].ask = 1;
01138 TABLE[PUTP6P][LON0].def_exists = 1;
01139 TABLE[PUTP6P][LON0].deflt = 20.0;
01140
01141 TABLE[PUTP6P][LAT0].ask = 1;
01142 TABLE[PUTP6P][LAT0].def_exists = 1;
01143 TABLE[PUTP6P][LAT0].deflt = 0.0;
01144
01145 TABLE[QUA_AUT][LON0].ask = 1;
01146 TABLE[QUA_AUT][LON0].def_exists = 1;
01147 TABLE[QUA_AUT][LON0].deflt = 20.0;
01148
01149 TABLE[QUA_AUT][LAT0].ask = 1;
01150 TABLE[QUA_AUT][LAT0].def_exists = 1;
01151 TABLE[QUA_AUT][LAT0].deflt = 0.0;
01152
01153 TABLE[ROBIN][LON0].ask = 1;
01154 TABLE[ROBIN][LON0].def_exists = 1;
01155 TABLE[ROBIN][LON0].deflt = 20.0;
01156
01157 TABLE[ROBIN][LAT0].ask = 1;
01158 TABLE[ROBIN][LAT0].def_exists = 1;
01159 TABLE[ROBIN][LAT0].deflt = 0.0;
01160
01161 TABLE[RPOLY][LON0].ask = 1;
01162 TABLE[RPOLY][LON0].def_exists = 1;
01163 TABLE[RPOLY][LON0].deflt = 20.0;
01164
01165 TABLE[RPOLY][LAT0].ask = 1;
01166 TABLE[RPOLY][LAT0].def_exists = 1;
01167 TABLE[RPOLY][LAT0].deflt = 0.0;
01168
01169 TABLE[RPOLY][LATTS].ask = 1;
01170 TABLE[RPOLY][LATTS].def_exists = 1;
01171 TABLE[RPOLY][LATTS].deflt = 0.0;
01172
01173 TABLE[SINU][LON0].ask = 1;
01174 TABLE[SINU][LON0].def_exists = 1;
01175 TABLE[SINU][LON0].deflt = 20.0;
01176
01177 TABLE[SINU][LAT0].ask = 1;
01178 TABLE[SINU][LAT0].def_exists = 1;
01179 TABLE[SINU][LAT0].deflt = 0.0;
01180
01181 TABLE[SOMERC][LON0].def_exists = 1;
01182 TABLE[SOMERC][LON0].deflt = 7.4395833333;
01183
01184 TABLE[SOMERC][LAT0].def_exists = 1;
01185 TABLE[SOMERC][LAT0].deflt = 46.952405556;
01186
01187 TABLE[SOMERC][KFACT].def_exists = 1;
01188 TABLE[SOMERC][KFACT].deflt = 1.0;
01189
01190 TABLE[SOMERC][X0].def_exists = 1;
01191 TABLE[SOMERC][X0].deflt = 600000.0;
01192
01193 TABLE[SOMERC][Y0].def_exists = 1;
01194 TABLE[SOMERC][Y0].deflt = 200000.0;
01195
01196 TABLE[STERE][LON0].ask = 1;
01197 TABLE[STERE][LON0].def_exists = 1;
01198 TABLE[STERE][LON0].deflt = 20.0;
01199
01200 TABLE[STERE][LAT0].ask = 1;
01201 TABLE[STERE][LAT0].def_exists = 1;
01202 TABLE[STERE][LAT0].deflt = 0.0;
01203
01204 TABLE[STERE][LATTS].ask = 1;
01205 TABLE[STERE][LATTS].def_exists = 1;
01206 TABLE[STERE][LATTS].deflt = 0.0;
01207
01208 TABLE[STERE][KFACT].ask = 1;
01209 TABLE[STERE][KFACT].def_exists = 1;
01210 TABLE[STERE][KFACT].deflt = 1.0;
01211
01212 TABLE[TCC][LON0].ask = 1;
01213 TABLE[TCC][LON0].def_exists = 1;
01214 TABLE[TCC][LON0].deflt = 20.0;
01215
01216 TABLE[TCC][LAT0].ask = 1;
01217 TABLE[TCC][LAT0].def_exists = 1;
01218 TABLE[TCC][LAT0].deflt = 0.0;
01219
01220 TABLE[TCEA][LON0].ask = 1;
01221 TABLE[TCEA][LON0].def_exists = 1;
01222 TABLE[TCEA][LON0].deflt = 20.0;
01223
01224 TABLE[TCEA][LAT0].ask = 1;
01225 TABLE[TCEA][LAT0].def_exists = 1;
01226 TABLE[TCEA][LAT0].deflt = 0.0;
01227
01228 TABLE[TCEA][KFACT].ask = 1;
01229 TABLE[TCEA][KFACT].def_exists = 1;
01230 TABLE[TCEA][KFACT].deflt = 1.0;
01231
01232 TABLE[TISSOT][LON0].ask = 1;
01233 TABLE[TISSOT][LON0].def_exists = 1;
01234 TABLE[TISSOT][LON0].deflt = 20.0;
01235
01236 TABLE[TISSOT][LAT0].ask = 1;
01237 TABLE[TISSOT][LAT0].def_exists = 1;
01238 TABLE[TISSOT][LAT0].deflt = 0.0;
01239
01240 TABLE[TISSOT][LAT1].ask = 1;
01241 TABLE[TISSOT][LAT1].def_exists = 1;
01242 TABLE[TISSOT][LAT1].deflt = -30.0;
01243
01244 TABLE[TISSOT][LAT2].ask = 1;
01245 TABLE[TISSOT][LAT2].def_exists = 1;
01246 TABLE[TISSOT][LAT2].deflt = 45.0;
01247
01248 TABLE[TPEQD][LON0].ask = 1;
01249 TABLE[TPEQD][LON0].def_exists = 1;
01250 TABLE[TPEQD][LON0].deflt = 20.0;
01251
01252 TABLE[TPEQD][LAT0].ask = 1;
01253 TABLE[TPEQD][LAT0].def_exists = 1;
01254 TABLE[TPEQD][LAT0].deflt = 0.0;
01255
01256 TABLE[TPEQD][LON1].ask = 1;
01257 TABLE[TPEQD][LON1].def_exists = 1;
01258 TABLE[TPEQD][LON1].deflt = -20.0;
01259
01260 TABLE[TPEQD][LAT1].ask = 1;
01261 TABLE[TPEQD][LAT1].def_exists = 1;
01262 TABLE[TPEQD][LAT1].deflt = -45.0;
01263
01264 TABLE[TPEQD][LON2].ask = 1;
01265 TABLE[TPEQD][LON2].def_exists = 1;
01266 TABLE[TPEQD][LON2].deflt = 60.0;
01267
01268 TABLE[TPEQD][LAT2].ask = 1;
01269 TABLE[TPEQD][LAT2].def_exists = 1;
01270 TABLE[TPEQD][LAT2].deflt = 45.0;
01271
01272 TABLE[TPERS][LON0].ask = 1;
01273 TABLE[TPERS][LON0].def_exists = 1;
01274 TABLE[TPERS][LON0].deflt = 20.0;
01275
01276 TABLE[TPERS][LAT0].ask = 1;
01277 TABLE[TPERS][LAT0].def_exists = 1;
01278 TABLE[TPERS][LAT0].deflt = 0.0;
01279
01280 TABLE[TPERS][TILT].ask = 1;
01281 TABLE[TPERS][TILT].def_exists = 1;
01282 TABLE[TPERS][TILT].deflt = 0.0;
01283
01284 TABLE[TPERS][AZIM].ask = 1;
01285 TABLE[TPERS][AZIM].def_exists = 1;
01286 TABLE[TPERS][AZIM].deflt = 0.0;
01287
01288 TABLE[TPERS][HEIGH].ask = 1;
01289 TABLE[TPERS][HEIGH].def_exists = 1;
01290 TABLE[TPERS][HEIGH].deflt = 10000.0;
01291
01292 TABLE[UPS][SOUTH].ask = 1;
01293
01294 TABLE[URM5][LON0].ask = 1;
01295 TABLE[URM5][LON0].def_exists = 1;
01296 TABLE[URM5][LON0].deflt = 20.0;
01297
01298 TABLE[URM5][LAT0].ask = 1;
01299 TABLE[URM5][LAT0].def_exists = 1;
01300 TABLE[URM5][LAT0].deflt = 0.0;
01301
01302 TABLE[URM5][ALPHA].ask = 1;
01303 TABLE[URM5][ALPHA].def_exists = 1;
01304 TABLE[URM5][ALPHA].deflt = 0.0;
01305
01306 TABLE[URM5][NFACT].ask = 1;
01307 TABLE[URM5][NFACT].def_exists = 1;
01308 TABLE[URM5][NFACT].deflt = 1.0;
01309
01310 TABLE[URM5][QFACT].ask = 1;
01311 TABLE[URM5][QFACT].def_exists = 1;
01312 TABLE[URM5][QFACT].deflt = 1.0;
01313
01314 TABLE[URMFPS][LON0].ask = 1;
01315 TABLE[URMFPS][LON0].def_exists = 1;
01316 TABLE[URMFPS][LON0].deflt = 20.0;
01317
01318 TABLE[URMFPS][LAT0].ask = 1;
01319 TABLE[URMFPS][LAT0].def_exists = 1;
01320 TABLE[URMFPS][LAT0].deflt = 0.0;
01321
01322 TABLE[URMFPS][NFACT].ask = 1;
01323 TABLE[URMFPS][NFACT].def_exists = 1;
01324 TABLE[URMFPS][NFACT].deflt = 1.0;
01325
01326 TABLE[VANDG][LON0].ask = 1;
01327 TABLE[VANDG][LON0].def_exists = 1;
01328 TABLE[VANDG][LON0].deflt = 20.0;
01329
01330 TABLE[VANDG][LAT0].ask = 1;
01331 TABLE[VANDG][LAT0].def_exists = 1;
01332 TABLE[VANDG][LAT0].deflt = 0.0;
01333
01334 TABLE[VANDG2][LON0].ask = 1;
01335 TABLE[VANDG2][LON0].def_exists = 1;
01336 TABLE[VANDG2][LON0].deflt = 20.0;
01337
01338 TABLE[VANDG2][LAT0].ask = 1;
01339 TABLE[VANDG2][LAT0].def_exists = 1;
01340 TABLE[VANDG2][LAT0].deflt = 0.0;
01341
01342 TABLE[VANDG3][LON0].ask = 1;
01343 TABLE[VANDG3][LON0].def_exists = 1;
01344 TABLE[VANDG3][LON0].deflt = 20.0;
01345
01346 TABLE[VANDG3][LAT0].ask = 1;
01347 TABLE[VANDG3][LAT0].def_exists = 1;
01348 TABLE[VANDG3][LAT0].deflt = 0.0;
01349
01350 TABLE[VANDG4][LON0].ask = 1;
01351 TABLE[VANDG4][LON0].def_exists = 1;
01352 TABLE[VANDG4][LON0].deflt = 20.0;
01353
01354 TABLE[VANDG4][LAT0].ask = 1;
01355 TABLE[VANDG4][LAT0].def_exists = 1;
01356 TABLE[VANDG4][LAT0].deflt = 0.0;
01357
01358 TABLE[WAG1][LON0].ask = 1;
01359 TABLE[WAG1][LON0].def_exists = 1;
01360 TABLE[WAG1][LON0].deflt = 20.0;
01361
01362 TABLE[WAG1][LAT0].ask = 1;
01363 TABLE[WAG1][LAT0].def_exists = 1;
01364 TABLE[WAG1][LAT0].deflt = 0.0;
01365
01366 TABLE[WAG2][LON0].ask = 1;
01367 TABLE[WAG2][LON0].def_exists = 1;
01368 TABLE[WAG2][LON0].deflt = 20.0;
01369
01370 TABLE[WAG2][LAT0].ask = 1;
01371 TABLE[WAG2][LAT0].def_exists = 1;
01372 TABLE[WAG2][LAT0].deflt = 0.0;
01373
01374 TABLE[WAG3][LON0].ask = 1;
01375 TABLE[WAG3][LON0].def_exists = 1;
01376 TABLE[WAG3][LON0].deflt = 20.0;
01377
01378 TABLE[WAG3][LAT0].ask = 1;
01379 TABLE[WAG3][LAT0].def_exists = 1;
01380 TABLE[WAG3][LAT0].deflt = 0.0;
01381
01382 TABLE[WAG4][LON0].ask = 1;
01383 TABLE[WAG4][LON0].def_exists = 1;
01384 TABLE[WAG4][LON0].deflt = 20.0;
01385
01386 TABLE[WAG4][LAT0].ask = 1;
01387 TABLE[WAG4][LAT0].def_exists = 1;
01388 TABLE[WAG4][LAT0].deflt = 0.0;
01389
01390 TABLE[WAG5][LON0].ask = 1;
01391 TABLE[WAG5][LON0].def_exists = 1;
01392 TABLE[WAG5][LON0].deflt = 20.0;
01393
01394 TABLE[WAG5][LAT0].ask = 1;
01395 TABLE[WAG5][LAT0].def_exists = 1;
01396 TABLE[WAG5][LAT0].deflt = 0.0;
01397
01398 TABLE[WAG6][LON0].ask = 1;
01399 TABLE[WAG6][LON0].def_exists = 1;
01400 TABLE[WAG6][LON0].deflt = 20.0;
01401
01402 TABLE[WAG6][LAT0].ask = 1;
01403 TABLE[WAG6][LAT0].def_exists = 1;
01404 TABLE[WAG6][LAT0].deflt = 0.0;
01405
01406 TABLE[WAG7][LON0].ask = 1;
01407 TABLE[WAG7][LON0].def_exists = 1;
01408 TABLE[WAG7][LON0].deflt = 20.0;
01409
01410 TABLE[WAG7][LAT0].ask = 1;
01411 TABLE[WAG7][LAT0].def_exists = 1;
01412 TABLE[WAG7][LAT0].deflt = 0.0;
01413
01414 TABLE[WEREN][LON0].ask = 1;
01415 TABLE[WEREN][LON0].def_exists = 1;
01416 TABLE[WEREN][LON0].deflt = 20.0;
01417
01418 TABLE[WEREN][LAT0].ask = 1;
01419 TABLE[WEREN][LAT0].def_exists = 1;
01420 TABLE[WEREN][LAT0].deflt = 0.0;
01421
01422 TABLE[WINK1][LON0].ask = 1;
01423 TABLE[WINK1][LON0].def_exists = 1;
01424 TABLE[WINK1][LON0].deflt = 20.0;
01425
01426 TABLE[WINK1][LAT0].ask = 1;
01427 TABLE[WINK1][LAT0].def_exists = 1;
01428 TABLE[WINK1][LAT0].deflt = 0.0;
01429
01430 TABLE[WINK1][LATTS].ask = 1;
01431 TABLE[WINK1][LATTS].def_exists = 1;
01432 TABLE[WINK1][LATTS].deflt = 0.0;
01433
01434 TABLE[WINK2][LON0].ask = 1;
01435 TABLE[WINK2][LON0].def_exists = 1;
01436 TABLE[WINK2][LON0].deflt = 20.0;
01437
01438 TABLE[WINK2][LAT0].ask = 1;
01439 TABLE[WINK2][LAT0].def_exists = 1;
01440 TABLE[WINK2][LAT0].deflt = 0.0;
01441
01442 TABLE[WINK2][LAT1].ask = 1;
01443 TABLE[WINK2][LAT1].def_exists = 1;
01444 TABLE[WINK2][LAT1].deflt = 0.0;
01445
01446 TABLE[WINTRI][LON0].ask = 1;
01447 TABLE[WINTRI][LON0].def_exists = 1;
01448 TABLE[WINTRI][LON0].deflt = 20.0;
01449
01450 TABLE[WINTRI][LAT0].ask = 1;
01451 TABLE[WINTRI][LAT0].def_exists = 1;
01452 TABLE[WINTRI][LAT0].deflt = 0.0;
01453
01454 TABLE[WINTRI][LAT1].ask = 1;
01455 TABLE[WINTRI][LAT1].def_exists = 1;
01456 TABLE[WINTRI][LAT1].deflt = 0.0;
01457
01458 return 1;
01459 }
01460
01461 int G_geo_get_proj_index(char *str)
01462 {
01463 if (G_strcasecmp(str, "LL") == 0)
01464 return LL;
01465 if (G_strcasecmp(str, "UTM") == 0)
01466 return UTM;
01467 if (G_strcasecmp(str, "STP") == 0)
01468 return STP;
01469 if (G_strcasecmp(str, "AEA") == 0)
01470 return AEA;
01471 if (G_strcasecmp(str, "LCC") == 0)
01472 return LCC;
01473 if (G_strcasecmp(str, "MERC") == 0)
01474 return MERC;
01475 if (G_strcasecmp(str, "TMERC") == 0)
01476 return TMERC;
01477 if (G_strcasecmp(str, "LEAC") == 0)
01478 return LEAC;
01479 if (G_strcasecmp(str, "LAEA") == 0)
01480 return LAEA;
01481
01482 if (G_strcasecmp(str, "AEQD") == 0)
01483 return AEQD;
01484 if (G_strcasecmp(str, "AIRY") == 0)
01485 return AIRY;
01486 if (G_strcasecmp(str, "AITOFF") == 0)
01487 return AITOFF;
01488 if (G_strcasecmp(str, "ALSK") == 0)
01489 return ALSK;
01490 if (G_strcasecmp(str, "APIAN") == 0)
01491 return APIAN;
01492 if (G_strcasecmp(str, "AUGUST") == 0)
01493 return AUGUST;
01494 if (G_strcasecmp(str, "BACON") == 0)
01495 return BACON;
01496 if (G_strcasecmp(str, "BIPC") == 0)
01497 return BIPC;
01498 if (G_strcasecmp(str, "BOGGS") == 0)
01499 return BOGGS;
01500 if (G_strcasecmp(str, "BONNE") == 0)
01501 return BONNE;
01502 if (G_strcasecmp(str, "CASS") == 0)
01503 return CASS;
01504 if (G_strcasecmp(str, "CC") == 0)
01505 return CC;
01506 if (G_strcasecmp(str, "CEA") == 0)
01507 return CEA;
01508 if (G_strcasecmp(str, "CHAMB") == 0)
01509 return CHAMB;
01510 if (G_strcasecmp(str, "COLLG") == 0)
01511 return COLLG;
01512 if (G_strcasecmp(str, "CRAST") == 0)
01513 return CRAST;
01514 if (G_strcasecmp(str, "DENOY") == 0)
01515 return DENOY;
01516 if (G_strcasecmp(str, "ECK1") == 0)
01517 return ECK1;
01518 if (G_strcasecmp(str, "ECK2") == 0)
01519 return ECK2;
01520 if (G_strcasecmp(str, "ECK3") == 0)
01521 return ECK3;
01522 if (G_strcasecmp(str, "ECK4") == 0)
01523 return ECK4;
01524 if (G_strcasecmp(str, "ECK5") == 0)
01525 return ECK5;
01526 if (G_strcasecmp(str, "ECK6") == 0)
01527 return ECK6;
01528 if (G_strcasecmp(str, "EQC") == 0)
01529 return EQC;
01530 if (G_strcasecmp(str, "EQDC") == 0)
01531 return EQDC;
01532 if (G_strcasecmp(str, "EULER") == 0)
01533 return EULER;
01534 if (G_strcasecmp(str, "FAHEY") == 0)
01535 return FAHEY;
01536 if (G_strcasecmp(str, "FOUC") == 0)
01537 return FOUC;
01538 if (G_strcasecmp(str, "FOUC_S") == 0)
01539 return FOUC_S;
01540 if (G_strcasecmp(str, "GALL") == 0)
01541 return GALL;
01542 if (G_strcasecmp(str, "GINS8") == 0)
01543 return GINS8;
01544 if (G_strcasecmp(str, "GN_SINU") == 0)
01545 return GN_SINU;
01546 if (G_strcasecmp(str, "GNOM") == 0)
01547 return GNOM;
01548 if (G_strcasecmp(str, "GOODE") == 0)
01549 return GOODE;
01550 if (G_strcasecmp(str, "GS48") == 0)
01551 return GS48;
01552 if (G_strcasecmp(str, "GS50") == 0)
01553 return GS50;
01554 if (G_strcasecmp(str, "HAMMER") == 0)
01555 return HAMMER;
01556 if (G_strcasecmp(str, "HATANO") == 0)
01557 return HATANO;
01558 if (G_strcasecmp(str, "IMW_P") == 0)
01559 return IMW_P;
01560 if (G_strcasecmp(str, "KAV5") == 0)
01561 return KAV5;
01562 if (G_strcasecmp(str, "KAV7") == 0)
01563 return KAV7;
01564 if (G_strcasecmp(str, "LABRD") == 0)
01565 return LABRD;
01566 if (G_strcasecmp(str, "LAGRNG") == 0)
01567 return LAGRNG;
01568 if (G_strcasecmp(str, "LARR") == 0)
01569 return LARR;
01570 if (G_strcasecmp(str, "LASK") == 0)
01571 return LASK;
01572 if (G_strcasecmp(str, "LEE_OS") == 0)
01573 return LEE_OS;
01574 if (G_strcasecmp(str, "LOXIM") == 0)
01575 return LOXIM;
01576 if (G_strcasecmp(str, "LSAT") == 0)
01577 return LSAT;
01578 if (G_strcasecmp(str, "MBT_S") == 0)
01579 return MBT_S;
01580 if (G_strcasecmp(str, "MBT_FPS") == 0)
01581 return MBT_FPS;
01582 if (G_strcasecmp(str, "MBTFPP") == 0)
01583 return MBTFPP;
01584 if (G_strcasecmp(str, "MBTFPQ") == 0)
01585 return MBTFPQ;
01586 if (G_strcasecmp(str, "MBTFPS") == 0)
01587 return MBTFPS;
01588 if (G_strcasecmp(str, "MIL_OS") == 0)
01589 return MIL_OS;
01590 if (G_strcasecmp(str, "MILL") == 0)
01591 return MILL;
01592 if (G_strcasecmp(str, "MPOLY") == 0)
01593 return MPOLY;
01594 if (G_strcasecmp(str, "MOLL") == 0)
01595 return MOLL;
01596 if (G_strcasecmp(str, "MURD1") == 0)
01597 return MURD1;
01598 if (G_strcasecmp(str, "MURD2") == 0)
01599 return MURD2;
01600 if (G_strcasecmp(str, "MURD3") == 0)
01601 return MURD3;
01602 if (G_strcasecmp(str, "NELL") == 0)
01603 return NELL;
01604 if (G_strcasecmp(str, "NELL_H") == 0)
01605 return NELL_H;
01606 if (G_strcasecmp(str, "NICOL") == 0)
01607 return NICOL;
01608 if (G_strcasecmp(str, "NSPER") == 0)
01609 return NSPER;
01610 if (G_strcasecmp(str, "NZMG") == 0)
01611 return NZMG;
01612 if (G_strcasecmp(str, "OB_TRAN") == 0)
01613 return OB_TRAN;
01614 if (G_strcasecmp(str, "OCEA") == 0)
01615 return OCEA;
01616 if (G_strcasecmp(str, "OEA") == 0)
01617 return OEA;
01618 if (G_strcasecmp(str, "OMERC") == 0)
01619 return OMERC;
01620 if (G_strcasecmp(str, "ORTEL") == 0)
01621 return ORTEL;
01622 if (G_strcasecmp(str, "ORTHO") == 0)
01623 return ORTHO;
01624 if (G_strcasecmp(str, "PCONIC") == 0)
01625 return PCONIC;
01626 if (G_strcasecmp(str, "POLY") == 0)
01627 return POLY;
01628 if (G_strcasecmp(str, "PUTP1") == 0)
01629 return PUTP1;
01630 if (G_strcasecmp(str, "PUTP2") == 0)
01631 return PUTP2;
01632 if (G_strcasecmp(str, "PUTP3") == 0)
01633 return PUTP3;
01634 if (G_strcasecmp(str, "PUTP3P") == 0)
01635 return PUTP3P;
01636 if (G_strcasecmp(str, "PUTP4P") == 0)
01637 return PUTP4P;
01638 if (G_strcasecmp(str, "PUTP5") == 0)
01639 return PUTP5;
01640 if (G_strcasecmp(str, "PUTP5P") == 0)
01641 return PUTP5P;
01642 if (G_strcasecmp(str, "PUTP6") == 0)
01643 return PUTP6;
01644 if (G_strcasecmp(str, "PUTP6P") == 0)
01645 return PUTP6P;
01646 if (G_strcasecmp(str, "QUA_AUT") == 0)
01647 return QUA_AUT;
01648 if (G_strcasecmp(str, "ROBIN") == 0)
01649 return ROBIN;
01650 if (G_strcasecmp(str, "RPOLY") == 0)
01651 return RPOLY;
01652 if (G_strcasecmp(str, "SINU") == 0)
01653 return SINU;
01654 if (G_strcasecmp(str, "SOMERC") == 0)
01655 return SOMERC;
01656 if (G_strcasecmp(str, "STERE") == 0)
01657 return STERE;
01658 if (G_strcasecmp(str, "TCC") == 0)
01659 return TCC;
01660 if (G_strcasecmp(str, "TCEA") == 0)
01661 return TCEA;
01662 if (G_strcasecmp(str, "TISSOT") == 0)
01663 return TISSOT;
01664 if (G_strcasecmp(str, "TPEQD") == 0)
01665 return TPEQD;
01666 if (G_strcasecmp(str, "TPERS") == 0)
01667 return TPERS;
01668 if (G_strcasecmp(str, "UPS") == 0)
01669 return UPS;
01670 if (G_strcasecmp(str, "URM5") == 0)
01671 return URM5;
01672 if (G_strcasecmp(str, "URMFPS") == 0)
01673 return URMFPS;
01674 if (G_strcasecmp(str, "VANDG") == 0)
01675 return VANDG;
01676 if (G_strcasecmp(str, "VANDG2") == 0)
01677 return VANDG2;
01678 if (G_strcasecmp(str, "VANDG3") == 0)
01679 return VANDG3;
01680 if (G_strcasecmp(str, "VANDG4") == 0)
01681 return VANDG4;
01682 if (G_strcasecmp(str, "VITK1") == 0)
01683 return VITK1;
01684 if (G_strcasecmp(str, "WAG1") == 0)
01685 return WAG1;
01686 if (G_strcasecmp(str, "WAG2") == 0)
01687 return WAG2;
01688 if (G_strcasecmp(str, "WAG3") == 0)
01689 return WAG3;
01690 if (G_strcasecmp(str, "WAG4") == 0)
01691 return WAG4;
01692 if (G_strcasecmp(str, "WAG5") == 0)
01693 return WAG5;
01694 if (G_strcasecmp(str, "WAG6") == 0)
01695 return WAG6;
01696 if (G_strcasecmp(str, "WAG7") == 0)
01697 return WAG7;
01698 if (G_strcasecmp(str, "WEREN") == 0)
01699 return WEREN;
01700 if (G_strcasecmp(str, "WINK1") == 0)
01701 return WINK1;
01702 if (G_strcasecmp(str, "WINK2") == 0)
01703 return WINK2;
01704 if (G_strcasecmp(str, "WINTRI") == 0)
01705 return WINTRI;
01706 if (G_strcasecmp(str, "KROVAK") == 0)
01707 return KROVAK;
01708 if (G_strcasecmp(str, "KROVAKGIS") == 0)
01709 return KROVAKGIS;
01710 return -1;
01711 }
01712
01713 #if 0
01714
01715 int init_used_table(void)
01716 {
01717 int i;
01718 for (i = 0; i < NOPTIONS; i++) {
01719 USED_in[i].was = 0;
01720 USED_out[i].was = 0;
01721 }
01722
01723 return 0;
01724 }
01725
01726 int init_unit_table()
01727 {
01728
01729 return 1;
01730 }
01731 #endif
01732