geo_init.c

Go to the documentation of this file.
00001 #include <grass/geo.h>
00002 #include <grass/gis.h>
00003 
00004 /* Copied from geo.h - remove when all uses are cleaned up */
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 /* ------- # Linear Unit(s) to Meters Conversions # ----------- */
00019 const struct conv_fact UNITS[NUNITS] = {
00020     /* If you add to this, add to NUNITS in geo.h */
00021     /* units, unit, fact */
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.34080060960121920243},
00035     {"USinches", "USinch", .02540005080010160020},
00036     {"USyards", "USyard", .91440182880365760731},
00037     {"USmiles", "USmile", 1609.34721869443738887477}
00038 
00039 /*** other factors ***
00040    british              1200|3937 m/ft
00041    nmile                1852m
00042    arpentlin            191.835 ft
00043    barleycorn           1|3 in
00044    bolt                 40 yd
00045    bottommeasure        1|40 in
00046    cable                720 ft
00047    caliber              1-2 in
00048    chain                66 ft
00049    cordfoot             cord
00050    cubit                18 in
00051    ell                  45 in
00052    engineerschain       100 ft
00053    engineerslink        100|100 ft
00054    fathom               6 ft
00055    fermi                1-15 m
00056    finger               7|8 in
00057    furlong              220 yd
00058    geodeticfoot         british-ft
00059    geographicalmile     1852 m
00060    gunterschain         22 yd
00061    hand                 4 in
00062    league               3 mi
00063    line                 1|12 in
00064    link                 66|100 ft
00065    marineleague         3 nmile
00066    mil                  1-3 in
00067    nauticalmile         nmile
00068    pace                 36 in
00069    palm                 3 in
00070    parasang             3.5 mi
00071    pica                 1|6 in
00072    point                1|72 in
00073    quarter              9 in
00074    rope                 20 ft
00075    skein                120 yd
00076    span                 9 in
00077    spindle              14400 yd
00078    surveyfoot           british-ft
00079    surveyorschain       66 ft
00080    surveyorslink        66|100 ft
00081  */
00082 }; /* const struct conv_fact UNITS[NUNITS] = ... */
00083 
00084 
00085 /* --------- # Descriptions of Projection Options # --------------------- */
00086 const char DESC[NOPTIONS][63] = {
00087 /* MAX LEN = 62    "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" */
00088 /*  0 - LAT0    */ "Central Parallel [lat_0]",
00089 /*  1 - LAT1    */ "First Standard Parallel [lat_1]",
00090 /*  2?- OLAT1   */ "",
00091 /*  3 - LAT2    */ "Second Standard Parallel [lat_2]",
00092 /*  4?- OLAT2   */ "",
00093 /*  5 - LAT3    */ "Third Standard Parallel [lat_3]",
00094 /*  6 - LATTS   */ "Latitude of True Scale [lat_ts]",
00095 /*  7 - LATB    */ "Angular Distance from Tangency Point [lat_b]",
00096 /*  8 - OLATP   */ "Latitude of New Pole [o_lat_p]",
00097 /*  9 - LON0    */ "Central Meridian [lon_0]",
00098 /* 10 - LON1    */ "First Standard Meridian [lon_1]",
00099 /* 11?- OLON1   */ "",
00100 /* 12 - LON2    */ "Second Standard Meridian [lon_2]",
00101 /* 13?- OLON2   */ "",
00102 /* 14 - LON3    */ "Third Standard Meridian [lon_3]",
00103 /* 15 - LONC    */ "Longitude of Cartesian Origin [lon_c]",
00104 /* 16?- OLONC   */ "",
00105 /* 17 - OLONP   */ "Longitude of New Pole [o_lon_p]",
00106 /* 18 - ALPHA   */ "Azimuth angle at Cartesian Origin [alpha]",
00107 /* 19?- OALPHA  */ "",
00108 /* 20 - THETA   */ "Theta Angle [theta]",
00109 /* 21 - AZIM    */ "Azimuth Angle of Tilt in Decimal degrees [azi]",
00110 /* 22 - TILT    */ "Tilt Angle in Decimal Degrees [tilt]",
00111 /* 23 - HEIGH   */ "Height of Viewing Point in Meters [h]",
00112 /* 24 - KFACT   */ "Scale Factor at the Central Meridian [k_0]",
00113 /* 25 - MFACT   */ "m factor [m]",
00114 /* 26 - MSFACT  */ "M factor [M]",
00115 /* 27 - NFACT   */ "n factor [n]",
00116 /* 28 - QFACT   */ "q factor [q]",
00117 /* 29 - WFACT   */ "W factor [W]",
00118 /* 30 - X0      */ "False Easting [x_0]",
00119 /* 31 - Y0      */ "False Northing [y_0]",
00120 /* 32 - ZONE    */ "Projection Zone [zone]",
00121 /* 33 - SNUM    */ "Satellite Number [lsat]",
00122 /* 34 - SPATH   */ "Satellite Path Number [path]",
00123 /* 35?- INTHIGH */ "",
00124 /* 36 - LOTSA   */ "LOTSA [lotsa]",
00125 /* 37 - NOCUT   */ "Both Hemispheres [no_cut]",
00126 /* 38?- NODEFS  */ "",
00127 /* 39 - NOROT   */ "Suppress Rotation [no_rot]",
00128 /* 40 - NOSKEW  */ "Suppress Skew [ns]",
00129 /* 41 - NOUOFF  */ "Suppress Offset from Pre-Rotated Axis [no_uoff]",
00130 /* 42 - ROTCONV */ "Origin Convergence Angle [rot_conv]",
00131 /* 43 - SOUTH   */ "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 /* For now, this is hard-coded in main.c
00937    TABLE[OB_TRAN][OPROJ].def_exists = 1;
00938    TABLE[OB_TRAN][OPROJ].deflt = "eqc";
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 /* Not implemented yet in main.c 
01009    TABLE[OMERC][ALPHA].ask = 1;
01010    TABLE[OMERC][ALPHA].def_exists = 1;
01011    TABLE[OMERC][ALPHA].deflt = 90.0;
01012 
01013    TABLE[OMERC][LONC].ask = 1;
01014    TABLE[OMERC][LONC].def_exists = 1;
01015    TABLE[OMERC][LONC].deflt = 0.0;
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) /* KROVAK with -y,-x for GIS data */
01709                 return KROVAKGIS;
01710         return -1;      /* added by M. Shapiro: 22Jan93 */
01711 }
01712 
01713 #if 0
01714 /* remove this when all external references are cleaned up */
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     /* just dummy til we clean up the callers */
01729     return 1;
01730 }
01731 #endif
01732 

Generated on Wed Dec 19 14:59:05 2007 for GRASS by  doxygen 1.5.4