geo_init.c

Go to the documentation of this file.
00001 #include "geo.h"
00002 #include "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[AEQD][LON0].ask = 1;
00255         TABLE[AEQD][LON0].def_exists = 1;
00256         TABLE[AEQD][LON0].deflt = 20.0;
00257 
00258         TABLE[AEQD][LAT0].ask = 1;
00259         TABLE[AEQD][LAT0].def_exists = 1;
00260         TABLE[AEQD][LAT0].deflt = 0.0;
00261 
00262         TABLE[AIRY][LON0].ask = 1;
00263         TABLE[AIRY][LON0].def_exists = 1;
00264         TABLE[AIRY][LON0].deflt = 20.0;
00265 
00266         TABLE[AIRY][LAT0].ask = 1;
00267         TABLE[AIRY][LAT0].def_exists = 1;
00268         TABLE[AIRY][LAT0].deflt = 0.0;
00269 
00270         TABLE[AIRY][LATB].ask = 1;
00271         TABLE[AIRY][LATB].def_exists = 1;
00272         TABLE[AIRY][LATB].deflt = 90.0;
00273 
00274         TABLE[AIRY][NOCUT].ask = 1;
00275 
00276         TABLE[AITOFF][LON0].ask = 1;
00277         TABLE[AITOFF][LON0].def_exists = 1;
00278         TABLE[AITOFF][LON0].deflt = 20.0;
00279 
00280         TABLE[AITOFF][LAT0].ask = 1;
00281         TABLE[AITOFF][LAT0].def_exists = 1;
00282         TABLE[AITOFF][LAT0].deflt = 0.0;
00283 
00284         TABLE[ALSK][LON0].def_exists = 1;
00285         TABLE[ALSK][LON0].deflt = -152.0;
00286 
00287         TABLE[ALSK][LAT0].def_exists = 1;
00288         TABLE[ALSK][LAT0].deflt = 64.0;
00289 
00290         TABLE[APIAN][LON0].ask = 1;
00291         TABLE[APIAN][LON0].def_exists = 1;
00292         TABLE[APIAN][LON0].deflt = 20.0;
00293 
00294         TABLE[APIAN][LAT0].ask = 1;
00295         TABLE[APIAN][LAT0].def_exists = 1;
00296         TABLE[APIAN][LAT0].deflt = 0.0;
00297 
00298         TABLE[AUGUST][LON0].ask = 1;
00299         TABLE[AUGUST][LON0].def_exists = 1;
00300         TABLE[AUGUST][LON0].deflt = 20.0;
00301 
00302         TABLE[AUGUST][LAT0].ask = 1;
00303         TABLE[AUGUST][LAT0].def_exists = 1;
00304         TABLE[AUGUST][LAT0].deflt = 0.0;
00305 
00306         TABLE[BACON][LON0].ask = 1;
00307         TABLE[BACON][LON0].def_exists = 1;
00308         TABLE[BACON][LON0].deflt = 20.0;
00309 
00310         TABLE[BACON][LAT0].ask = 1;
00311         TABLE[BACON][LAT0].def_exists = 1;
00312         TABLE[BACON][LAT0].deflt = 0.0;
00313 
00314         TABLE[BIPC][LON0].ask = 1;
00315         TABLE[BIPC][LON0].def_exists = 1;
00316         TABLE[BIPC][LON0].deflt = -90.0;
00317 
00318         TABLE[BIPC][LAT0].ask = 1;
00319         TABLE[BIPC][LAT0].def_exists = 1;
00320         TABLE[BIPC][LAT0].deflt = 0.0;
00321 
00322         TABLE[BIPC][NOSKEW].ask = 1;
00323 
00324         TABLE[BOGGS][LON0].ask = 1;
00325         TABLE[BOGGS][LON0].def_exists = 1;
00326         TABLE[BOGGS][LON0].deflt = 20.0;
00327 
00328         TABLE[BOGGS][LAT0].ask = 1;
00329         TABLE[BOGGS][LAT0].def_exists = 1;
00330         TABLE[BOGGS][LAT0].deflt = 0.0;
00331 
00332         TABLE[BONNE][LON0].ask = 1;
00333         TABLE[BONNE][LON0].def_exists = 1;
00334         TABLE[BONNE][LON0].deflt = 20.0;
00335 
00336         TABLE[BONNE][LAT1].ask = 1;
00337         TABLE[BONNE][LAT1].def_exists = 1;
00338         TABLE[BONNE][LAT1].deflt = 40.0;
00339 
00340         TABLE[CASS][LON0].ask = 1;
00341         TABLE[CASS][LON0].def_exists = 1;
00342         TABLE[CASS][LON0].deflt = 20.0;
00343 
00344         TABLE[CASS][LAT0].ask = 1;
00345         TABLE[CASS][LAT0].def_exists = 1;
00346         TABLE[CASS][LAT0].deflt = 0.0;
00347 
00348         TABLE[CC][LON0].ask = 1;
00349         TABLE[CC][LON0].def_exists = 1;
00350         TABLE[CC][LON0].deflt = 20.0;
00351 
00352         TABLE[CC][LAT0].ask = 1;
00353         TABLE[CC][LAT0].def_exists = 1;
00354         TABLE[CC][LAT0].deflt = 0.0;
00355 
00356         TABLE[CEA][LON0].ask = 1;
00357         TABLE[CEA][LON0].def_exists = 1;
00358         TABLE[CEA][LON0].deflt = 20.0;
00359 
00360         TABLE[CEA][LAT0].ask = 1;
00361         TABLE[CEA][LAT0].def_exists = 1;
00362         TABLE[CEA][LAT0].deflt = 0.0;
00363 
00364         TABLE[CEA][LATTS].ask = 1;
00365         TABLE[CEA][LATTS].def_exists = 1;
00366         TABLE[CEA][LATTS].deflt = 0.0;
00367 
00368         TABLE[CHAMB][LON0].ask = 1;
00369         TABLE[CHAMB][LON0].def_exists = 1;
00370         TABLE[CHAMB][LON0].deflt = 20.0;
00371 
00372         TABLE[CHAMB][LAT0].ask = 1;
00373         TABLE[CHAMB][LAT0].def_exists = 1;
00374         TABLE[CHAMB][LAT0].deflt = 55.0;
00375 
00376         TABLE[CHAMB][LON1].ask = 1;
00377         TABLE[CHAMB][LON1].def_exists = 1;
00378         TABLE[CHAMB][LON1].deflt = 5.0;
00379 
00380         TABLE[CHAMB][LAT1].ask = 1;
00381         TABLE[CHAMB][LAT1].def_exists = 1;
00382         TABLE[CHAMB][LAT1].deflt = 40.0;
00383 
00384         TABLE[CHAMB][LON2].ask = 1;
00385         TABLE[CHAMB][LON2].def_exists = 1;
00386         TABLE[CHAMB][LON2].deflt = 55.0;
00387 
00388         TABLE[CHAMB][LAT2].ask = 1;
00389         TABLE[CHAMB][LAT2].def_exists = 1;
00390         TABLE[CHAMB][LAT2].deflt = 20.0;
00391 
00392         TABLE[CHAMB][LON3].ask = 1;
00393         TABLE[CHAMB][LON3].def_exists = 1;
00394         TABLE[CHAMB][LON3].deflt = 65.0;
00395 
00396         TABLE[CHAMB][LAT3].ask = 1;
00397         TABLE[CHAMB][LAT3].def_exists = 1;
00398         TABLE[CHAMB][LAT3].deflt = 35.0;
00399 
00400         TABLE[COLLG][LON0].ask = 1;
00401         TABLE[COLLG][LON0].def_exists = 1;
00402         TABLE[COLLG][LON0].deflt = 20.0;
00403 
00404         TABLE[COLLG][LAT0].ask = 1;
00405         TABLE[COLLG][LAT0].def_exists = 1;
00406         TABLE[COLLG][LAT0].deflt = 0.0;
00407 
00408         TABLE[CRAST][LON0].ask = 1;
00409         TABLE[CRAST][LON0].def_exists = 1;
00410         TABLE[CRAST][LON0].deflt = 20.0;
00411 
00412         TABLE[CRAST][LAT0].ask = 1;
00413         TABLE[CRAST][LAT0].def_exists = 1;
00414         TABLE[CRAST][LAT0].deflt = 0.0;
00415 
00416         TABLE[DENOY][LON0].ask = 1;
00417         TABLE[DENOY][LON0].def_exists = 1;
00418         TABLE[DENOY][LON0].deflt = 20.0;
00419 
00420         TABLE[DENOY][LAT0].ask = 1;
00421         TABLE[DENOY][LAT0].def_exists = 1;
00422         TABLE[DENOY][LAT0].deflt = 0.0;
00423 
00424         TABLE[ECK1][LON0].ask = 1;
00425         TABLE[ECK1][LON0].def_exists = 1;
00426         TABLE[ECK1][LON0].deflt = 20.0;
00427 
00428         TABLE[ECK1][LAT0].ask = 1;
00429         TABLE[ECK1][LAT0].def_exists = 1;
00430         TABLE[ECK1][LAT0].deflt = 0.0;
00431 
00432         TABLE[ECK2][LON0].ask = 1;
00433         TABLE[ECK2][LON0].def_exists = 1;
00434         TABLE[ECK2][LON0].deflt = 20.0;
00435 
00436         TABLE[ECK2][LAT0].ask = 1;
00437         TABLE[ECK2][LAT0].def_exists = 1;
00438         TABLE[ECK2][LAT0].deflt = 0.0;
00439 
00440         TABLE[ECK3][LON0].ask = 1;
00441         TABLE[ECK3][LON0].def_exists = 1;
00442         TABLE[ECK3][LON0].deflt = 20.0;
00443 
00444         TABLE[ECK3][LAT0].ask = 1;
00445         TABLE[ECK3][LAT0].def_exists = 1;
00446         TABLE[ECK3][LAT0].deflt = 0.0;
00447 
00448         TABLE[ECK4][LON0].ask = 1;
00449         TABLE[ECK4][LON0].def_exists = 1;
00450         TABLE[ECK4][LON0].deflt = 20.0;
00451 
00452         TABLE[ECK4][LAT0].ask = 1;
00453         TABLE[ECK4][LAT0].def_exists = 1;
00454         TABLE[ECK4][LAT0].deflt = 0.0;
00455 
00456         TABLE[ECK5][LON0].ask = 1;
00457         TABLE[ECK5][LON0].def_exists = 1;
00458         TABLE[ECK5][LON0].deflt = 20.0;
00459 
00460         TABLE[ECK5][LAT0].ask = 1;
00461         TABLE[ECK5][LAT0].def_exists = 1;
00462         TABLE[ECK5][LAT0].deflt = 0.0;
00463 
00464         TABLE[ECK6][LON0].ask = 1;
00465         TABLE[ECK6][LON0].def_exists = 1;
00466         TABLE[ECK6][LON0].deflt = 20.0;
00467 
00468         TABLE[ECK6][LAT0].ask = 1;
00469         TABLE[ECK6][LAT0].def_exists = 1;
00470         TABLE[ECK6][LAT0].deflt = 0.0;
00471 
00472         TABLE[EQC][LON0].ask = 1;
00473         TABLE[EQC][LON0].def_exists = 1;
00474         TABLE[EQC][LON0].deflt = 0.0;
00475 
00476         TABLE[EQC][LAT0].ask = 1;
00477         TABLE[EQC][LAT0].def_exists = 1;
00478         TABLE[EQC][LAT0].deflt = 0.0;
00479 
00480         TABLE[EQC][LATTS].ask = 1;
00481         TABLE[EQC][LATTS].def_exists = 1;
00482         TABLE[EQC][LATTS].deflt = 0.0;
00483 
00484         TABLE[EQDC][LON0].ask = 1;
00485         TABLE[EQDC][LON0].def_exists = 1;
00486         TABLE[EQDC][LON0].deflt = 20.0;
00487 
00488         TABLE[EQDC][LAT0].ask = 1;
00489         TABLE[EQDC][LAT0].def_exists = 1;
00490         TABLE[EQDC][LAT0].deflt = 40.0;
00491 
00492         TABLE[EQDC][LAT1].ask = 1;
00493         TABLE[EQDC][LAT1].def_exists = 1;
00494         TABLE[EQDC][LAT1].deflt = 20.0;
00495 
00496         TABLE[EQDC][LAT2].ask = 1;
00497         TABLE[EQDC][LAT2].def_exists = 1;
00498         TABLE[EQDC][LAT2].deflt = 60.0;
00499 
00500         TABLE[EULER][LON0].ask = 1;
00501         TABLE[EULER][LON0].def_exists = 1;
00502         TABLE[EULER][LON0].deflt = 20.0;
00503 
00504         TABLE[EULER][LAT0].ask = 1;
00505         TABLE[EULER][LAT0].def_exists = 1;
00506         TABLE[EULER][LAT0].deflt = 55.0;
00507 
00508         TABLE[EULER][LAT1].ask = 1;
00509         TABLE[EULER][LAT1].def_exists = 1;
00510         TABLE[EULER][LAT1].deflt = 45.0;
00511 
00512         TABLE[EULER][LAT2].ask = 1;
00513         TABLE[EULER][LAT2].def_exists = 1;
00514         TABLE[EULER][LAT2].deflt = 65.0;
00515 
00516         TABLE[FAHEY][LON0].ask = 1;
00517         TABLE[FAHEY][LON0].def_exists = 1;
00518         TABLE[FAHEY][LON0].deflt = 20.0;
00519 
00520         TABLE[FAHEY][LAT0].ask = 1;
00521         TABLE[FAHEY][LAT0].def_exists = 1;
00522         TABLE[FAHEY][LAT0].deflt = 0.0;
00523 
00524         TABLE[FOUC][LON0].ask = 1;
00525         TABLE[FOUC][LON0].def_exists = 1;
00526         TABLE[FOUC][LON0].deflt = 20.0;
00527 
00528         TABLE[FOUC][LAT0].ask = 1;
00529         TABLE[FOUC][LAT0].def_exists = 1;
00530         TABLE[FOUC][LAT0].deflt = 0.0;
00531 
00532         TABLE[FOUC_S][LON0].ask = 1;
00533         TABLE[FOUC_S][LON0].def_exists = 1;
00534         TABLE[FOUC_S][LON0].deflt = 20.0;
00535 
00536         TABLE[FOUC_S][LAT0].ask = 1;
00537         TABLE[FOUC_S][LAT0].def_exists = 1;
00538         TABLE[FOUC_S][LAT0].deflt = 0.0;
00539 
00540         TABLE[GALL][LON0].ask = 1;
00541         TABLE[GALL][LON0].def_exists = 1;
00542         TABLE[GALL][LON0].deflt = 20.0;
00543 
00544         TABLE[GALL][LAT0].ask = 1;
00545         TABLE[GALL][LAT0].def_exists = 1;
00546         TABLE[GALL][LAT0].deflt = 0.0;
00547 
00548         TABLE[GINS8][LON0].ask = 1;
00549         TABLE[GINS8][LON0].def_exists = 1;
00550         TABLE[GINS8][LON0].deflt = 20.0;
00551 
00552         TABLE[GINS8][LAT0].ask = 1;
00553         TABLE[GINS8][LAT0].def_exists = 1;
00554         TABLE[GINS8][LAT0].deflt = 0.0;
00555 
00556         TABLE[GN_SINU][LON0].ask = 1;
00557         TABLE[GN_SINU][LON0].def_exists = 1;
00558         TABLE[GN_SINU][LON0].deflt = 20.0;
00559 
00560         TABLE[GN_SINU][LAT0].ask = 1;
00561         TABLE[GN_SINU][LAT0].def_exists = 1;
00562         TABLE[GN_SINU][LAT0].deflt = 0.0;
00563 
00564         TABLE[GN_SINU][MFACT].ask = 1;
00565         TABLE[GN_SINU][MFACT].def_exists = 1;
00566         TABLE[GN_SINU][MFACT].deflt = 1.0;
00567 
00568         TABLE[GN_SINU][NFACT].ask = 1;
00569         TABLE[GN_SINU][NFACT].def_exists = 1;
00570         TABLE[GN_SINU][NFACT].deflt = 1.0;
00571 
00572         TABLE[GNOM][LON0].ask = 1;
00573         TABLE[GNOM][LON0].def_exists = 1;
00574         TABLE[GNOM][LON0].deflt = 20.0;
00575 
00576         TABLE[GNOM][LAT0].ask = 1;
00577         TABLE[GNOM][LAT0].def_exists = 1;
00578         TABLE[GNOM][LAT0].deflt = 0.0;
00579 
00580         TABLE[GOODE][LON0].ask = 1;
00581         TABLE[GOODE][LON0].def_exists = 1;
00582         TABLE[GOODE][LON0].deflt = 20.0;
00583 
00584         TABLE[GOODE][LAT0].ask = 1;
00585         TABLE[GOODE][LAT0].def_exists = 1;
00586         TABLE[GOODE][LAT0].deflt = 0.0;
00587 
00588         TABLE[GS48][LON0].def_exists = 1;
00589         TABLE[GS48][LON0].deflt = -120.0;
00590 
00591         TABLE[GS48][LAT0].def_exists = 1;
00592         TABLE[GS48][LAT0].deflt = 45.0;
00593 
00594         TABLE[GS50][LON0].def_exists = 1;
00595         TABLE[GS50][LON0].deflt = -120.0;
00596 
00597         TABLE[GS50][LAT0].def_exists = 1;
00598         TABLE[GS50][LAT0].deflt = 45.0;
00599 
00600         TABLE[HAMMER][LON0].ask = 1;
00601         TABLE[HAMMER][LON0].def_exists = 1;
00602         TABLE[HAMMER][LON0].deflt = 20.0;
00603 
00604         TABLE[HAMMER][LAT0].ask = 1;
00605         TABLE[HAMMER][LAT0].def_exists = 1;
00606         TABLE[HAMMER][LAT0].deflt = 0.0;
00607 
00608         TABLE[HAMMER][WFACT].ask = 1;
00609         TABLE[HAMMER][WFACT].def_exists = 1;
00610         TABLE[HAMMER][WFACT].deflt = 0.5;
00611 
00612         TABLE[HAMMER][MSFACT].ask = 1;
00613         TABLE[HAMMER][MSFACT].def_exists = 1;
00614         TABLE[HAMMER][MSFACT].deflt = 1.0;
00615 
00616         TABLE[HATANO][LON0].ask = 1;
00617         TABLE[HATANO][LON0].def_exists = 1;
00618         TABLE[HATANO][LON0].deflt = 20.0;
00619 
00620         TABLE[HATANO][LAT0].ask = 1;
00621         TABLE[HATANO][LAT0].def_exists = 1;
00622         TABLE[HATANO][LAT0].deflt = 0.0;
00623 
00624         TABLE[IMW_P][LON0].ask = 1;
00625         TABLE[IMW_P][LON0].def_exists = 1;
00626         TABLE[IMW_P][LON0].deflt = 20.0;
00627 
00628         TABLE[IMW_P][LON1].ask = 1;
00629         TABLE[IMW_P][LON1].def_exists = 1;
00630         TABLE[IMW_P][LON1].deflt = 20.0;
00631 
00632         TABLE[IMW_P][LAT0].ask = 1;
00633         TABLE[IMW_P][LAT0].def_exists = 1;
00634         TABLE[IMW_P][LAT0].deflt = 0.0;
00635 
00636         TABLE[IMW_P][LAT1].ask = 1;
00637         TABLE[IMW_P][LAT1].def_exists = 1;
00638         TABLE[IMW_P][LAT1].deflt = 20.0;
00639 
00640         TABLE[IMW_P][LAT2].ask = 1;
00641         TABLE[IMW_P][LAT2].def_exists = 1;
00642         TABLE[IMW_P][LAT2].deflt = 60.0;
00643 
00644         TABLE[KAV5][LON0].ask = 1;
00645         TABLE[KAV5][LON0].def_exists = 1;
00646         TABLE[KAV5][LON0].deflt = 20.0;
00647 
00648         TABLE[KAV5][LAT0].ask = 1;
00649         TABLE[KAV5][LAT0].def_exists = 1;
00650         TABLE[KAV5][LAT0].deflt = 0.0;
00651 
00652         TABLE[KAV7][LON0].ask = 1;
00653         TABLE[KAV7][LON0].def_exists = 1;
00654         TABLE[KAV7][LON0].deflt = 20.0;
00655 
00656         TABLE[KAV7][LAT0].ask = 1;
00657         TABLE[KAV7][LAT0].def_exists = 1;
00658         TABLE[KAV7][LAT0].deflt = 0.0;
00659 
00660         TABLE[LABRD][LON0].def_exists = 1;
00661         TABLE[LABRD][LON0].deflt = 46.437208333;
00662 
00663         TABLE[LABRD][LAT0].def_exists = 1;
00664         TABLE[LABRD][LAT0].deflt = 18.9;
00665 
00666         TABLE[LABRD][AZIM].def_exists = 1;
00667         TABLE[LABRD][AZIM].deflt = 18.9;
00668 
00669         TABLE[LABRD][KFACT].def_exists = 1;
00670         TABLE[LABRD][KFACT].deflt = 0.9995;
00671 
00672         TABLE[LABRD][X0].def_exists = 1;
00673         TABLE[LABRD][X0].deflt = 400000.0;
00674 
00675         TABLE[LABRD][Y0].def_exists = 1;
00676         TABLE[LABRD][Y0].deflt = 800000.0;
00677 
00678         TABLE[LAGRNG][LON0].ask = 1;
00679         TABLE[LAGRNG][LON0].def_exists = 1;
00680         TABLE[LAGRNG][LON0].deflt = 20.0;
00681 
00682         TABLE[LAGRNG][LAT0].ask = 1;
00683         TABLE[LAGRNG][LAT0].def_exists = 1;
00684         TABLE[LAGRNG][LAT0].deflt = 0.0;
00685 
00686         TABLE[LAGRNG][LAT1].ask = 1;
00687         TABLE[LAGRNG][LAT1].def_exists = 1;
00688         TABLE[LAGRNG][LAT1].deflt = 0.0;
00689 
00690         TABLE[LAGRNG][WFACT].ask = 1;
00691         TABLE[LAGRNG][WFACT].def_exists = 1;
00692         TABLE[LAGRNG][WFACT].deflt = 2.0;
00693 
00694         TABLE[LARR][LON0].ask = 1;
00695         TABLE[LARR][LON0].def_exists = 1;
00696         TABLE[LARR][LON0].deflt = 20.0;
00697 
00698         TABLE[LARR][LAT0].ask = 1;
00699         TABLE[LARR][LAT0].def_exists = 1;
00700         TABLE[LARR][LAT0].deflt = 0.0;
00701 
00702         TABLE[LASK][LON0].ask = 1;
00703         TABLE[LASK][LON0].def_exists = 1;
00704         TABLE[LASK][LON0].deflt = 20.0;
00705 
00706         TABLE[LASK][LAT0].ask = 1;
00707         TABLE[LASK][LAT0].def_exists = 1;
00708         TABLE[LASK][LAT0].deflt = 0.0;
00709 
00710         TABLE[LEE_OS][LON0].def_exists = 1;
00711         TABLE[LEE_OS][LON0].deflt = -165.0;
00712 
00713         TABLE[LEE_OS][LAT0].def_exists = 1;
00714         TABLE[LEE_OS][LAT0].deflt = -10.0;
00715 
00716         TABLE[LOXIM][LON0].ask = 1;
00717         TABLE[LOXIM][LON0].def_exists = 1;
00718         TABLE[LOXIM][LON0].deflt = 20.0;
00719 
00720         TABLE[LOXIM][LAT0].ask = 1;
00721         TABLE[LOXIM][LAT0].def_exists = 1;
00722         TABLE[LOXIM][LAT0].deflt = 0.0;
00723 
00724         TABLE[LOXIM][LAT1].ask = 1;
00725         TABLE[LOXIM][LAT1].def_exists = 1;
00726         TABLE[LOXIM][LAT1].deflt = 45.0;
00727 
00728         TABLE[LSAT][LON0].ask = 1;
00729         TABLE[LSAT][LON0].def_exists = 1;
00730         TABLE[LSAT][LON0].deflt = 20.0;
00731 
00732         TABLE[LSAT][LAT0].ask = 1;
00733         TABLE[LSAT][LAT0].def_exists = 1;
00734         TABLE[LSAT][LAT0].deflt = 0.0;
00735 
00736         TABLE[LSAT][SNUM].ask = 1;
00737         TABLE[LSAT][SNUM].def_exists = 1;
00738         TABLE[LSAT][SNUM].deflt = 1;
00739 
00740         TABLE[LSAT][SPATH].ask = 1;
00741         TABLE[LSAT][SPATH].def_exists = 1;
00742         TABLE[LSAT][SPATH].deflt = 1;
00743 
00744         TABLE[MBT_S][LON0].ask = 1;
00745         TABLE[MBT_S][LON0].def_exists = 1;
00746         TABLE[MBT_S][LON0].deflt = 20.0;
00747 
00748         TABLE[MBT_S][LAT0].ask = 1;
00749         TABLE[MBT_S][LAT0].def_exists = 1;
00750         TABLE[MBT_S][LAT0].deflt = 0.0;
00751 
00752         TABLE[MBT_FPS][LON0].ask = 1;
00753         TABLE[MBT_FPS][LON0].def_exists = 1;
00754         TABLE[MBT_FPS][LON0].deflt = 20.0;
00755 
00756         TABLE[MBT_FPS][LAT0].ask = 1;
00757         TABLE[MBT_FPS][LAT0].def_exists = 1;
00758         TABLE[MBT_FPS][LAT0].deflt = 0.0;
00759 
00760         TABLE[MBTFPP][LON0].ask = 1;
00761         TABLE[MBTFPP][LON0].def_exists = 1;
00762         TABLE[MBTFPP][LON0].deflt = 20.0;
00763 
00764         TABLE[MBTFPP][LAT0].ask = 1;
00765         TABLE[MBTFPP][LAT0].def_exists = 1;
00766         TABLE[MBTFPP][LAT0].deflt = 0.0;
00767 
00768         TABLE[MBTFPQ][LON0].ask = 1;
00769         TABLE[MBTFPQ][LON0].def_exists = 1;
00770         TABLE[MBTFPQ][LON0].deflt = 20.0;
00771 
00772         TABLE[MBTFPQ][LAT0].ask = 1;
00773         TABLE[MBTFPQ][LAT0].def_exists = 1;
00774         TABLE[MBTFPQ][LAT0].deflt = 0.0;
00775 
00776         TABLE[MBTFPS][LON0].ask = 1;
00777         TABLE[MBTFPS][LON0].def_exists = 1;
00778         TABLE[MBTFPS][LON0].deflt = 20.0;
00779 
00780         TABLE[MBTFPS][LAT0].ask = 1;
00781         TABLE[MBTFPS][LAT0].def_exists = 1;
00782         TABLE[MBTFPS][LAT0].deflt = 0.0;
00783 
00784         TABLE[MIL_OS][LON0].def_exists = 1;
00785         TABLE[MIL_OS][LON0].deflt = 20.0;
00786 
00787         TABLE[MIL_OS][LAT0].def_exists = 1;
00788         TABLE[MIL_OS][LAT0].deflt = 18.0;
00789 
00790         TABLE[MILL][LON0].ask = 1;
00791         TABLE[MILL][LON0].def_exists = 1;
00792         TABLE[MILL][LON0].deflt = 20.0;
00793 
00794         TABLE[MILL][LAT0].ask = 1;
00795         TABLE[MILL][LAT0].def_exists = 1;
00796         TABLE[MILL][LAT0].deflt = 0.0;
00797 
00798         TABLE[MOLL][LON0].ask = 1;
00799         TABLE[MOLL][LON0].def_exists = 1;
00800         TABLE[MOLL][LON0].deflt = 20.0;
00801 
00802         TABLE[MOLL][LAT0].ask = 1;
00803         TABLE[MOLL][LAT0].def_exists = 1;
00804         TABLE[MOLL][LAT0].deflt = 0.0;
00805 
00806         TABLE[MPOLY][LON0].ask = 1;
00807         TABLE[MPOLY][LON0].def_exists = 1;
00808         TABLE[MPOLY][LON0].deflt = 20.0;
00809 
00810         TABLE[MPOLY][LAT0].ask = 1;
00811         TABLE[MPOLY][LAT0].def_exists = 1;
00812         TABLE[MPOLY][LAT0].deflt = 0.0;
00813 
00814         TABLE[MPOLY][LAT1].ask = 1;
00815         TABLE[MPOLY][LAT1].def_exists = 1;
00816         TABLE[MPOLY][LAT1].deflt = -20.0;
00817 
00818         TABLE[MPOLY][LAT2].ask = 1;
00819         TABLE[MPOLY][LAT2].def_exists = 1;
00820         TABLE[MPOLY][LAT2].deflt = 20.0;
00821 
00822         TABLE[MPOLY][LOTSA].ask = 1;
00823 
00824         TABLE[MURD1][LON0].ask = 1;
00825         TABLE[MURD1][LON0].def_exists = 1;
00826         TABLE[MURD1][LON0].deflt = 20.0;
00827 
00828         TABLE[MURD1][LAT0].ask = 1;
00829         TABLE[MURD1][LAT0].def_exists = 1;
00830         TABLE[MURD1][LAT0].deflt = 0.0;
00831 
00832         TABLE[MURD1][LAT1].ask = 1;
00833         TABLE[MURD1][LAT1].def_exists = 1;
00834         TABLE[MURD1][LAT1].deflt = -20.0;
00835 
00836         TABLE[MURD1][LAT2].ask = 1;
00837         TABLE[MURD1][LAT2].def_exists = 1;
00838         TABLE[MURD1][LAT2].deflt = 20.0;
00839 
00840         TABLE[MURD2][LON0].ask = 1;
00841         TABLE[MURD2][LON0].def_exists = 1;
00842         TABLE[MURD2][LON0].deflt = 20.0;
00843 
00844         TABLE[MURD2][LAT0].ask = 1;
00845         TABLE[MURD2][LAT0].def_exists = 1;
00846         TABLE[MURD2][LAT0].deflt = 0.0;
00847 
00848         TABLE[MURD2][LAT1].ask = 1;
00849         TABLE[MURD2][LAT1].def_exists = 1;
00850         TABLE[MURD2][LAT1].deflt = -20.0;
00851 
00852         TABLE[MURD2][LAT2].ask = 1;
00853         TABLE[MURD2][LAT2].def_exists = 1;
00854         TABLE[MURD2][LAT2].deflt = 20.0;
00855 
00856         TABLE[MURD3][LON0].ask = 1;
00857         TABLE[MURD3][LON0].def_exists = 1;
00858         TABLE[MURD3][LON0].deflt = 20.0;
00859 
00860         TABLE[MURD3][LAT0].ask = 1;
00861         TABLE[MURD3][LAT0].def_exists = 1;
00862         TABLE[MURD3][LAT0].deflt = 0.0;
00863 
00864         TABLE[MURD3][LAT1].ask = 1;
00865         TABLE[MURD3][LAT1].def_exists = 1;
00866         TABLE[MURD3][LAT1].deflt = -20.0;
00867 
00868         TABLE[MURD3][LAT2].ask = 1;
00869         TABLE[MURD3][LAT2].def_exists = 1;
00870         TABLE[MURD3][LAT2].deflt = 20.0;
00871 
00872         TABLE[NELL][LON0].ask = 1;
00873         TABLE[NELL][LON0].def_exists = 1;
00874         TABLE[NELL][LON0].deflt = 20.0;
00875 
00876         TABLE[NELL][LAT0].ask = 1;
00877         TABLE[NELL][LAT0].def_exists = 1;
00878         TABLE[NELL][LAT0].deflt = 0.0;
00879 
00880         TABLE[NELL_H][LON0].ask = 1;
00881         TABLE[NELL_H][LON0].def_exists = 1;
00882         TABLE[NELL_H][LON0].deflt = 20.0;
00883 
00884         TABLE[NELL_H][LAT0].ask = 1;
00885         TABLE[NELL_H][LAT0].def_exists = 1;
00886         TABLE[NELL_H][LAT0].deflt = 0.0;
00887 
00888         TABLE[NICOL][LON0].ask = 1;
00889         TABLE[NICOL][LON0].def_exists = 1;
00890         TABLE[NICOL][LON0].deflt = 20.0;
00891 
00892         TABLE[NICOL][LAT0].ask = 1;
00893         TABLE[NICOL][LAT0].def_exists = 1;
00894         TABLE[NICOL][LAT0].deflt = 0.0;
00895 
00896         TABLE[NSPER][LON0].ask = 1;
00897         TABLE[NSPER][LON0].def_exists = 1;
00898         TABLE[NSPER][LON0].deflt = 20.0;
00899 
00900         TABLE[NSPER][LAT0].ask = 1;
00901         TABLE[NSPER][LAT0].def_exists = 1;
00902         TABLE[NSPER][LAT0].deflt = 55.0;
00903 
00904         TABLE[NSPER][HEIGH].ask = 1;
00905         TABLE[NSPER][HEIGH].def_exists = 1;
00906         TABLE[NSPER][HEIGH].deflt = 50000000.0;
00907 
00908         TABLE[NZMG][LON0].def_exists = 1;
00909         TABLE[NZMG][LON0].deflt = 173.0;
00910 
00911         TABLE[NZMG][LAT0].def_exists = 1;
00912         TABLE[NZMG][LAT0].deflt = -41.0;
00913 
00914         TABLE[NZMG][X0].def_exists = 1;
00915         TABLE[NZMG][X0].deflt = 2510000.0;
00916 
00917         TABLE[NZMG][Y0].def_exists = 1;
00918         TABLE[NZMG][Y0].deflt = 6023150.0;
00919 
00920         TABLE[OB_TRAN][LON0].ask = 1;
00921         TABLE[OB_TRAN][LON0].def_exists = 1;
00922         TABLE[OB_TRAN][LON0].deflt = 0.0;
00923 
00924         TABLE[OB_TRAN][LAT0].ask = 1;
00925         TABLE[OB_TRAN][LAT0].def_exists = 1;
00926         TABLE[OB_TRAN][LAT0].deflt = 0.0;
00927 
00928 /* For now, this is hard-coded in main.c
00929    TABLE[OB_TRAN][OPROJ].def_exists = 1;
00930    TABLE[OB_TRAN][OPROJ].deflt = "eqc";
00931  */
00932         TABLE[OB_TRAN][OLONP].ask = 1;
00933         TABLE[OB_TRAN][OLONP].def_exists = 1;
00934         TABLE[OB_TRAN][OLONP].deflt = 0.0;
00935 
00936         TABLE[OB_TRAN][OLATP].ask = 1;
00937         TABLE[OB_TRAN][OLATP].def_exists = 1;
00938         TABLE[OB_TRAN][OLATP].deflt = 90.0;
00939 
00940         TABLE[OCEA][LON0].ask = 1;
00941         TABLE[OCEA][LON0].def_exists = 1;
00942         TABLE[OCEA][LON0].deflt = 20.0;
00943 
00944         TABLE[OCEA][LAT0].ask = 1;
00945         TABLE[OCEA][LAT0].def_exists = 1;
00946         TABLE[OCEA][LAT0].deflt = 0.0;
00947 
00948         TABLE[OCEA][LON1].ask = 1;
00949         TABLE[OCEA][LON1].def_exists = 1;
00950         TABLE[OCEA][LON1].deflt = -20.0;
00951 
00952         TABLE[OCEA][LAT1].ask = 1;
00953         TABLE[OCEA][LAT1].def_exists = 1;
00954         TABLE[OCEA][LAT1].deflt = -45.0;
00955 
00956         TABLE[OCEA][LON2].ask = 1;
00957         TABLE[OCEA][LON2].def_exists = 1;
00958         TABLE[OCEA][LON2].deflt = 60.0;
00959 
00960         TABLE[OCEA][LAT2].ask = 1;
00961         TABLE[OCEA][LAT2].def_exists = 1;
00962         TABLE[OCEA][LAT2].deflt = 45.0;
00963 
00964         TABLE[OEA][LON0].ask = 1;
00965         TABLE[OEA][LON0].def_exists = 1;
00966         TABLE[OEA][LON0].deflt = 20.0;
00967 
00968         TABLE[OEA][LAT0].ask = 1;
00969         TABLE[OEA][LAT0].def_exists = 1;
00970         TABLE[OEA][LAT0].deflt = 0.0;
00971 
00972         TABLE[OEA][MFACT].ask = 1;
00973         TABLE[OEA][MFACT].def_exists = 1;
00974         TABLE[OEA][MFACT].deflt = 1.0;
00975 
00976         TABLE[OEA][NFACT].ask = 1;
00977         TABLE[OEA][NFACT].def_exists = 1;
00978         TABLE[OEA][NFACT].deflt = 1.0;
00979 
00980         TABLE[OEA][THETA].ask = 1;
00981         TABLE[OEA][THETA].def_exists = 1;
00982         TABLE[OEA][THETA].deflt = 0.0;
00983 
00984         TABLE[OMERC][LON0].ask = 1;
00985         TABLE[OMERC][LON0].def_exists = 1;
00986         TABLE[OMERC][LON0].deflt = 20.0;
00987 
00988         TABLE[OMERC][LAT0].ask = 1;
00989         TABLE[OMERC][LAT0].def_exists = 1;
00990         TABLE[OMERC][LAT0].deflt = 0.0;
00991 
00992         TABLE[OMERC][KFACT].ask = 1;
00993         TABLE[OMERC][KFACT].def_exists = 1;
00994         TABLE[OMERC][KFACT].deflt = 1.0;
00995 
00996         TABLE[OMERC][NOROT].ask = 1;
00997         TABLE[OMERC][NOUOFF].ask = 1;
00998         TABLE[OMERC][ROTCONV].ask = 1;
00999 
01000 /* Not implemented yet in main.c 
01001    TABLE[OMERC][ALPHA].ask = 1;
01002    TABLE[OMERC][ALPHA].def_exists = 1;
01003    TABLE[OMERC][ALPHA].deflt = 90.0;
01004 
01005    TABLE[OMERC][LONC].ask = 1;
01006    TABLE[OMERC][LONC].def_exists = 1;
01007    TABLE[OMERC][LONC].deflt = 0.0;
01008  */
01009         TABLE[OMERC][LON1].ask = 1;
01010         TABLE[OMERC][LON1].def_exists = 1;
01011         TABLE[OMERC][LON1].deflt = -40.0;
01012 
01013         TABLE[OMERC][LAT1].ask = 1;
01014         TABLE[OMERC][LAT1].def_exists = 1;
01015         TABLE[OMERC][LAT1].deflt = -45.0;
01016 
01017         TABLE[OMERC][LON2].ask = 1;
01018         TABLE[OMERC][LON2].def_exists = 1;
01019         TABLE[OMERC][LON2].deflt = 40.0;
01020 
01021         TABLE[OMERC][LAT2].ask = 1;
01022         TABLE[OMERC][LAT2].def_exists = 1;
01023         TABLE[OMERC][LAT2].deflt = 45.0;
01024 
01025         TABLE[ORTEL][LON0].ask = 1;
01026         TABLE[ORTEL][LON0].def_exists = 1;
01027         TABLE[ORTEL][LON0].deflt = 20.0;
01028 
01029         TABLE[ORTEL][LAT0].ask = 1;
01030         TABLE[ORTEL][LAT0].def_exists = 1;
01031         TABLE[ORTEL][LAT0].deflt = 0.0;
01032 
01033         TABLE[ORTHO][LON0].ask = 1;
01034         TABLE[ORTHO][LON0].def_exists = 1;
01035         TABLE[ORTHO][LON0].deflt = 20.0;
01036 
01037         TABLE[ORTHO][LAT0].ask = 1;
01038         TABLE[ORTHO][LAT0].def_exists = 1;
01039         TABLE[ORTHO][LAT0].deflt = 0.0;
01040 
01041         TABLE[PCONIC][LON0].ask = 1;
01042         TABLE[PCONIC][LON0].def_exists = 1;
01043         TABLE[PCONIC][LON0].deflt = 20.0;
01044 
01045         TABLE[PCONIC][LAT0].ask = 1;
01046         TABLE[PCONIC][LAT0].def_exists = 1;
01047         TABLE[PCONIC][LAT0].deflt = 0.0;
01048 
01049         TABLE[PCONIC][LAT1].ask = 1;
01050         TABLE[PCONIC][LAT1].def_exists = 1;
01051         TABLE[PCONIC][LAT1].deflt = 33.0;
01052 
01053         TABLE[PCONIC][LAT2].ask = 1;
01054         TABLE[PCONIC][LAT2].def_exists = 1;
01055         TABLE[PCONIC][LAT2].deflt = 45.0;
01056 
01057         TABLE[POLY][LON0].ask = 1;
01058         TABLE[POLY][LON0].def_exists = 1;
01059         TABLE[POLY][LON0].deflt = -90.0;
01060 
01061         TABLE[POLY][LAT0].ask = 1;
01062         TABLE[POLY][LAT0].def_exists = 1;
01063         TABLE[POLY][LAT0].deflt = 0.0;
01064 
01065         TABLE[PUTP1][LON0].ask = 1;
01066         TABLE[PUTP1][LON0].def_exists = 1;
01067         TABLE[PUTP1][LON0].deflt = 20.0;
01068 
01069         TABLE[PUTP1][LAT0].ask = 1;
01070         TABLE[PUTP1][LAT0].def_exists = 1;
01071         TABLE[PUTP1][LAT0].deflt = 0.0;
01072 
01073         TABLE[PUTP2][LON0].ask = 1;
01074         TABLE[PUTP2][LON0].def_exists = 1;
01075         TABLE[PUTP2][LON0].deflt = 20.0;
01076 
01077         TABLE[PUTP2][LAT0].ask = 1;
01078         TABLE[PUTP2][LAT0].def_exists = 1;
01079         TABLE[PUTP2][LAT0].deflt = 0.0;
01080 
01081         TABLE[PUTP3][LON0].ask = 1;
01082         TABLE[PUTP3][LON0].def_exists = 1;
01083         TABLE[PUTP3][LON0].deflt = 20.0;
01084 
01085         TABLE[PUTP3][LAT0].ask = 1;
01086         TABLE[PUTP3][LAT0].def_exists = 1;
01087         TABLE[PUTP3][LAT0].deflt = 0.0;
01088 
01089         TABLE[PUTP3P][LON0].ask = 1;
01090         TABLE[PUTP3P][LON0].def_exists = 1;
01091         TABLE[PUTP3P][LON0].deflt = 20.0;
01092 
01093         TABLE[PUTP3P][LAT0].ask = 1;
01094         TABLE[PUTP3P][LAT0].def_exists = 1;
01095         TABLE[PUTP3P][LAT0].deflt = 0.0;
01096 
01097         TABLE[PUTP4P][LON0].ask = 1;
01098         TABLE[PUTP4P][LON0].def_exists = 1;
01099         TABLE[PUTP4P][LON0].deflt = 20.0;
01100 
01101         TABLE[PUTP4P][LAT0].ask = 1;
01102         TABLE[PUTP4P][LAT0].def_exists = 1;
01103         TABLE[PUTP4P][LAT0].deflt = 0.0;
01104 
01105         TABLE[PUTP5][LON0].ask = 1;
01106         TABLE[PUTP5][LON0].def_exists = 1;
01107         TABLE[PUTP5][LON0].deflt = 20.0;
01108 
01109         TABLE[PUTP5][LAT0].ask = 1;
01110         TABLE[PUTP5][LAT0].def_exists = 1;
01111         TABLE[PUTP5][LAT0].deflt = 0.0;
01112 
01113         TABLE[PUTP5P][LON0].ask = 1;
01114         TABLE[PUTP5P][LON0].def_exists = 1;
01115         TABLE[PUTP5P][LON0].deflt = 20.0;
01116 
01117         TABLE[PUTP5P][LAT0].ask = 1;
01118         TABLE[PUTP5P][LAT0].def_exists = 1;
01119         TABLE[PUTP5P][LAT0].deflt = 0.0;
01120 
01121         TABLE[PUTP6][LON0].ask = 1;
01122         TABLE[PUTP6][LON0].def_exists = 1;
01123         TABLE[PUTP6][LON0].deflt = 20.0;
01124 
01125         TABLE[PUTP6][LAT0].ask = 1;
01126         TABLE[PUTP6][LAT0].def_exists = 1;
01127         TABLE[PUTP6][LAT0].deflt = 0.0;
01128 
01129         TABLE[PUTP6P][LON0].ask = 1;
01130         TABLE[PUTP6P][LON0].def_exists = 1;
01131         TABLE[PUTP6P][LON0].deflt = 20.0;
01132 
01133         TABLE[PUTP6P][LAT0].ask = 1;
01134         TABLE[PUTP6P][LAT0].def_exists = 1;
01135         TABLE[PUTP6P][LAT0].deflt = 0.0;
01136 
01137         TABLE[QUA_AUT][LON0].ask = 1;
01138         TABLE[QUA_AUT][LON0].def_exists = 1;
01139         TABLE[QUA_AUT][LON0].deflt = 20.0;
01140 
01141         TABLE[QUA_AUT][LAT0].ask = 1;
01142         TABLE[QUA_AUT][LAT0].def_exists = 1;
01143         TABLE[QUA_AUT][LAT0].deflt = 0.0;
01144 
01145         TABLE[ROBIN][LON0].ask = 1;
01146         TABLE[ROBIN][LON0].def_exists = 1;
01147         TABLE[ROBIN][LON0].deflt = 20.0;
01148 
01149         TABLE[ROBIN][LAT0].ask = 1;
01150         TABLE[ROBIN][LAT0].def_exists = 1;
01151         TABLE[ROBIN][LAT0].deflt = 0.0;
01152 
01153         TABLE[RPOLY][LON0].ask = 1;
01154         TABLE[RPOLY][LON0].def_exists = 1;
01155         TABLE[RPOLY][LON0].deflt = 20.0;
01156 
01157         TABLE[RPOLY][LAT0].ask = 1;
01158         TABLE[RPOLY][LAT0].def_exists = 1;
01159         TABLE[RPOLY][LAT0].deflt = 0.0;
01160 
01161         TABLE[RPOLY][LATTS].ask = 1;
01162         TABLE[RPOLY][LATTS].def_exists = 1;
01163         TABLE[RPOLY][LATTS].deflt = 0.0;
01164 
01165         TABLE[SINU][LON0].ask = 1;
01166         TABLE[SINU][LON0].def_exists = 1;
01167         TABLE[SINU][LON0].deflt = 20.0;
01168 
01169         TABLE[SINU][LAT0].ask = 1;
01170         TABLE[SINU][LAT0].def_exists = 1;
01171         TABLE[SINU][LAT0].deflt = 0.0;
01172 
01173         TABLE[SOMERC][LON0].def_exists = 1;
01174         TABLE[SOMERC][LON0].deflt = 7.4395833333;
01175 
01176         TABLE[SOMERC][LAT0].def_exists = 1;
01177         TABLE[SOMERC][LAT0].deflt = 46.952405556;
01178 
01179         TABLE[SOMERC][KFACT].def_exists = 1;
01180         TABLE[SOMERC][KFACT].deflt = 1.0;
01181 
01182         TABLE[SOMERC][X0].def_exists = 1;
01183         TABLE[SOMERC][X0].deflt = 600000.0;
01184 
01185         TABLE[SOMERC][Y0].def_exists = 1;
01186         TABLE[SOMERC][Y0].deflt = 200000.0;
01187 
01188         TABLE[STERE][LON0].ask = 1;
01189         TABLE[STERE][LON0].def_exists = 1;
01190         TABLE[STERE][LON0].deflt = 20.0;
01191 
01192         TABLE[STERE][LAT0].ask = 1;
01193         TABLE[STERE][LAT0].def_exists = 1;
01194         TABLE[STERE][LAT0].deflt = 0.0;
01195 
01196         TABLE[STERE][LATTS].ask = 1;
01197         TABLE[STERE][LATTS].def_exists = 1;
01198         TABLE[STERE][LATTS].deflt = 0.0;
01199 
01200         TABLE[STERE][KFACT].ask = 1;
01201         TABLE[STERE][KFACT].def_exists = 1;
01202         TABLE[STERE][KFACT].deflt = 1.0;
01203 
01204         TABLE[TCC][LON0].ask = 1;
01205         TABLE[TCC][LON0].def_exists = 1;
01206         TABLE[TCC][LON0].deflt = 20.0;
01207 
01208         TABLE[TCC][LAT0].ask = 1;
01209         TABLE[TCC][LAT0].def_exists = 1;
01210         TABLE[TCC][LAT0].deflt = 0.0;
01211 
01212         TABLE[TCEA][LON0].ask = 1;
01213         TABLE[TCEA][LON0].def_exists = 1;
01214         TABLE[TCEA][LON0].deflt = 20.0;
01215 
01216         TABLE[TCEA][LAT0].ask = 1;
01217         TABLE[TCEA][LAT0].def_exists = 1;
01218         TABLE[TCEA][LAT0].deflt = 0.0;
01219 
01220         TABLE[TCEA][KFACT].ask = 1;
01221         TABLE[TCEA][KFACT].def_exists = 1;
01222         TABLE[TCEA][KFACT].deflt = 1.0;
01223 
01224         TABLE[TISSOT][LON0].ask = 1;
01225         TABLE[TISSOT][LON0].def_exists = 1;
01226         TABLE[TISSOT][LON0].deflt = 20.0;
01227 
01228         TABLE[TISSOT][LAT0].ask = 1;
01229         TABLE[TISSOT][LAT0].def_exists = 1;
01230         TABLE[TISSOT][LAT0].deflt = 0.0;
01231 
01232         TABLE[TISSOT][LAT1].ask = 1;
01233         TABLE[TISSOT][LAT1].def_exists = 1;
01234         TABLE[TISSOT][LAT1].deflt = -30.0;
01235 
01236         TABLE[TISSOT][LAT2].ask = 1;
01237         TABLE[TISSOT][LAT2].def_exists = 1;
01238         TABLE[TISSOT][LAT2].deflt = 45.0;
01239 
01240         TABLE[TPEQD][LON0].ask = 1;
01241         TABLE[TPEQD][LON0].def_exists = 1;
01242         TABLE[TPEQD][LON0].deflt = 20.0;
01243 
01244         TABLE[TPEQD][LAT0].ask = 1;
01245         TABLE[TPEQD][LAT0].def_exists = 1;
01246         TABLE[TPEQD][LAT0].deflt = 0.0;
01247 
01248         TABLE[TPEQD][LON1].ask = 1;
01249         TABLE[TPEQD][LON1].def_exists = 1;
01250         TABLE[TPEQD][LON1].deflt = -20.0;
01251 
01252         TABLE[TPEQD][LAT1].ask = 1;
01253         TABLE[TPEQD][LAT1].def_exists = 1;
01254         TABLE[TPEQD][LAT1].deflt = -45.0;
01255 
01256         TABLE[TPEQD][LON2].ask = 1;
01257         TABLE[TPEQD][LON2].def_exists = 1;
01258         TABLE[TPEQD][LON2].deflt = 60.0;
01259 
01260         TABLE[TPEQD][LAT2].ask = 1;
01261         TABLE[TPEQD][LAT2].def_exists = 1;
01262         TABLE[TPEQD][LAT2].deflt = 45.0;
01263 
01264         TABLE[TPERS][LON0].ask = 1;
01265         TABLE[TPERS][LON0].def_exists = 1;
01266         TABLE[TPERS][LON0].deflt = 20.0;
01267 
01268         TABLE[TPERS][LAT0].ask = 1;
01269         TABLE[TPERS][LAT0].def_exists = 1;
01270         TABLE[TPERS][LAT0].deflt = 0.0;
01271 
01272         TABLE[TPERS][TILT].ask = 1;
01273         TABLE[TPERS][TILT].def_exists = 1;
01274         TABLE[TPERS][TILT].deflt = 0.0;
01275 
01276         TABLE[TPERS][AZIM].ask = 1;
01277         TABLE[TPERS][AZIM].def_exists = 1;
01278         TABLE[TPERS][AZIM].deflt = 0.0;
01279 
01280         TABLE[TPERS][HEIGH].ask = 1;
01281         TABLE[TPERS][HEIGH].def_exists = 1;
01282         TABLE[TPERS][HEIGH].deflt = 10000.0;
01283 
01284         TABLE[UPS][SOUTH].ask = 1;
01285 
01286         TABLE[URM5][LON0].ask = 1;
01287         TABLE[URM5][LON0].def_exists = 1;
01288         TABLE[URM5][LON0].deflt = 20.0;
01289 
01290         TABLE[URM5][LAT0].ask = 1;
01291         TABLE[URM5][LAT0].def_exists = 1;
01292         TABLE[URM5][LAT0].deflt = 0.0;
01293 
01294         TABLE[URM5][ALPHA].ask = 1;
01295         TABLE[URM5][ALPHA].def_exists = 1;
01296         TABLE[URM5][ALPHA].deflt = 0.0;
01297 
01298         TABLE[URM5][NFACT].ask = 1;
01299         TABLE[URM5][NFACT].def_exists = 1;
01300         TABLE[URM5][NFACT].deflt = 1.0;
01301 
01302         TABLE[URM5][QFACT].ask = 1;
01303         TABLE[URM5][QFACT].def_exists = 1;
01304         TABLE[URM5][QFACT].deflt = 1.0;
01305 
01306         TABLE[URMFPS][LON0].ask = 1;
01307         TABLE[URMFPS][LON0].def_exists = 1;
01308         TABLE[URMFPS][LON0].deflt = 20.0;
01309 
01310         TABLE[URMFPS][LAT0].ask = 1;
01311         TABLE[URMFPS][LAT0].def_exists = 1;
01312         TABLE[URMFPS][LAT0].deflt = 0.0;
01313 
01314         TABLE[URMFPS][NFACT].ask = 1;
01315         TABLE[URMFPS][NFACT].def_exists = 1;
01316         TABLE[URMFPS][NFACT].deflt = 1.0;
01317 
01318         TABLE[VANDG][LON0].ask = 1;
01319         TABLE[VANDG][LON0].def_exists = 1;
01320         TABLE[VANDG][LON0].deflt = 20.0;
01321 
01322         TABLE[VANDG][LAT0].ask = 1;
01323         TABLE[VANDG][LAT0].def_exists = 1;
01324         TABLE[VANDG][LAT0].deflt = 0.0;
01325 
01326         TABLE[VANDG2][LON0].ask = 1;
01327         TABLE[VANDG2][LON0].def_exists = 1;
01328         TABLE[VANDG2][LON0].deflt = 20.0;
01329 
01330         TABLE[VANDG2][LAT0].ask = 1;
01331         TABLE[VANDG2][LAT0].def_exists = 1;
01332         TABLE[VANDG2][LAT0].deflt = 0.0;
01333 
01334         TABLE[VANDG3][LON0].ask = 1;
01335         TABLE[VANDG3][LON0].def_exists = 1;
01336         TABLE[VANDG3][LON0].deflt = 20.0;
01337 
01338         TABLE[VANDG3][LAT0].ask = 1;
01339         TABLE[VANDG3][LAT0].def_exists = 1;
01340         TABLE[VANDG3][LAT0].deflt = 0.0;
01341 
01342         TABLE[VANDG4][LON0].ask = 1;
01343         TABLE[VANDG4][LON0].def_exists = 1;
01344         TABLE[VANDG4][LON0].deflt = 20.0;
01345 
01346         TABLE[VANDG4][LAT0].ask = 1;
01347         TABLE[VANDG4][LAT0].def_exists = 1;
01348         TABLE[VANDG4][LAT0].deflt = 0.0;
01349 
01350         TABLE[WAG1][LON0].ask = 1;
01351         TABLE[WAG1][LON0].def_exists = 1;
01352         TABLE[WAG1][LON0].deflt = 20.0;
01353 
01354         TABLE[WAG1][LAT0].ask = 1;
01355         TABLE[WAG1][LAT0].def_exists = 1;
01356         TABLE[WAG1][LAT0].deflt = 0.0;
01357 
01358         TABLE[WAG2][LON0].ask = 1;
01359         TABLE[WAG2][LON0].def_exists = 1;
01360         TABLE[WAG2][LON0].deflt = 20.0;
01361 
01362         TABLE[WAG2][LAT0].ask = 1;
01363         TABLE[WAG2][LAT0].def_exists = 1;
01364         TABLE[WAG2][LAT0].deflt = 0.0;
01365 
01366         TABLE[WAG3][LON0].ask = 1;
01367         TABLE[WAG3][LON0].def_exists = 1;
01368         TABLE[WAG3][LON0].deflt = 20.0;
01369 
01370         TABLE[WAG3][LAT0].ask = 1;
01371         TABLE[WAG3][LAT0].def_exists = 1;
01372         TABLE[WAG3][LAT0].deflt = 0.0;
01373 
01374         TABLE[WAG4][LON0].ask = 1;
01375         TABLE[WAG4][LON0].def_exists = 1;
01376         TABLE[WAG4][LON0].deflt = 20.0;
01377 
01378         TABLE[WAG4][LAT0].ask = 1;
01379         TABLE[WAG4][LAT0].def_exists = 1;
01380         TABLE[WAG4][LAT0].deflt = 0.0;
01381 
01382         TABLE[WAG5][LON0].ask = 1;
01383         TABLE[WAG5][LON0].def_exists = 1;
01384         TABLE[WAG5][LON0].deflt = 20.0;
01385 
01386         TABLE[WAG5][LAT0].ask = 1;
01387         TABLE[WAG5][LAT0].def_exists = 1;
01388         TABLE[WAG5][LAT0].deflt = 0.0;
01389 
01390         TABLE[WAG6][LON0].ask = 1;
01391         TABLE[WAG6][LON0].def_exists = 1;
01392         TABLE[WAG6][LON0].deflt = 20.0;
01393 
01394         TABLE[WAG6][LAT0].ask = 1;
01395         TABLE[WAG6][LAT0].def_exists = 1;
01396         TABLE[WAG6][LAT0].deflt = 0.0;
01397 
01398         TABLE[WAG7][LON0].ask = 1;
01399         TABLE[WAG7][LON0].def_exists = 1;
01400         TABLE[WAG7][LON0].deflt = 20.0;
01401 
01402         TABLE[WAG7][LAT0].ask = 1;
01403         TABLE[WAG7][LAT0].def_exists = 1;
01404         TABLE[WAG7][LAT0].deflt = 0.0;
01405 
01406         TABLE[WEREN][LON0].ask = 1;
01407         TABLE[WEREN][LON0].def_exists = 1;
01408         TABLE[WEREN][LON0].deflt = 20.0;
01409 
01410         TABLE[WEREN][LAT0].ask = 1;
01411         TABLE[WEREN][LAT0].def_exists = 1;
01412         TABLE[WEREN][LAT0].deflt = 0.0;
01413 
01414         TABLE[WINK1][LON0].ask = 1;
01415         TABLE[WINK1][LON0].def_exists = 1;
01416         TABLE[WINK1][LON0].deflt = 20.0;
01417 
01418         TABLE[WINK1][LAT0].ask = 1;
01419         TABLE[WINK1][LAT0].def_exists = 1;
01420         TABLE[WINK1][LAT0].deflt = 0.0;
01421 
01422         TABLE[WINK1][LATTS].ask = 1;
01423         TABLE[WINK1][LATTS].def_exists = 1;
01424         TABLE[WINK1][LATTS].deflt = 0.0;
01425 
01426         TABLE[WINK2][LON0].ask = 1;
01427         TABLE[WINK2][LON0].def_exists = 1;
01428         TABLE[WINK2][LON0].deflt = 20.0;
01429 
01430         TABLE[WINK2][LAT0].ask = 1;
01431         TABLE[WINK2][LAT0].def_exists = 1;
01432         TABLE[WINK2][LAT0].deflt = 0.0;
01433 
01434         TABLE[WINK2][LAT1].ask = 1;
01435         TABLE[WINK2][LAT1].def_exists = 1;
01436         TABLE[WINK2][LAT1].deflt = 0.0;
01437 
01438         TABLE[WINTRI][LON0].ask = 1;
01439         TABLE[WINTRI][LON0].def_exists = 1;
01440         TABLE[WINTRI][LON0].deflt = 20.0;
01441 
01442         TABLE[WINTRI][LAT0].ask = 1;
01443         TABLE[WINTRI][LAT0].def_exists = 1;
01444         TABLE[WINTRI][LAT0].deflt = 0.0;
01445 
01446         TABLE[WINTRI][LAT1].ask = 1;
01447         TABLE[WINTRI][LAT1].def_exists = 1;
01448         TABLE[WINTRI][LAT1].deflt = 0.0;
01449 
01450         return 1;
01451 }
01452 
01453 int G_geo_get_proj_index(char *str)
01454 {
01455         if (G_strcasecmp(str, "LL") == 0)
01456                 return LL;
01457         if (G_strcasecmp(str, "UTM") == 0)
01458                 return UTM;
01459         if (G_strcasecmp(str, "STP") == 0)
01460                 return STP;
01461         if (G_strcasecmp(str, "AEA") == 0)
01462                 return AEA;
01463         if (G_strcasecmp(str, "LCC") == 0)
01464                 return LCC;
01465         if (G_strcasecmp(str, "MERC") == 0)
01466                 return MERC;
01467         if (G_strcasecmp(str, "TMERC") == 0)
01468                 return TMERC;
01469         if (G_strcasecmp(str, "LEAC") == 0)
01470                 return LEAC;
01471         if (G_strcasecmp(str, "LAEA") == 0)
01472                 return LAEA;
01473 
01474         if (G_strcasecmp(str, "AEQD") == 0)
01475                 return AEQD;
01476         if (G_strcasecmp(str, "AIRY") == 0)
01477                 return AIRY;
01478         if (G_strcasecmp(str, "AITOFF") == 0)
01479                 return AITOFF;
01480         if (G_strcasecmp(str, "ALSK") == 0)
01481                 return ALSK;
01482         if (G_strcasecmp(str, "APIAN") == 0)
01483                 return APIAN;
01484         if (G_strcasecmp(str, "AUGUST") == 0)
01485                 return AUGUST;
01486         if (G_strcasecmp(str, "BACON") == 0)
01487                 return BACON;
01488         if (G_strcasecmp(str, "BIPC") == 0)
01489                 return BIPC;
01490         if (G_strcasecmp(str, "BOGGS") == 0)
01491                 return BOGGS;
01492         if (G_strcasecmp(str, "BONNE") == 0)
01493                 return BONNE;
01494         if (G_strcasecmp(str, "CASS") == 0)
01495                 return CASS;
01496         if (G_strcasecmp(str, "CC") == 0)
01497                 return CC;
01498         if (G_strcasecmp(str, "CEA") == 0)
01499                 return CEA;
01500         if (G_strcasecmp(str, "CHAMB") == 0)
01501                 return CHAMB;
01502         if (G_strcasecmp(str, "COLLG") == 0)
01503                 return COLLG;
01504         if (G_strcasecmp(str, "CRAST") == 0)
01505                 return CRAST;
01506         if (G_strcasecmp(str, "DENOY") == 0)
01507                 return DENOY;
01508         if (G_strcasecmp(str, "ECK1") == 0)
01509                 return ECK1;
01510         if (G_strcasecmp(str, "ECK2") == 0)
01511                 return ECK2;
01512         if (G_strcasecmp(str, "ECK3") == 0)
01513                 return ECK3;
01514         if (G_strcasecmp(str, "ECK4") == 0)
01515                 return ECK4;
01516         if (G_strcasecmp(str, "ECK5") == 0)
01517                 return ECK5;
01518         if (G_strcasecmp(str, "ECK6") == 0)
01519                 return ECK6;
01520         if (G_strcasecmp(str, "EQC") == 0)
01521                 return EQC;
01522         if (G_strcasecmp(str, "EQDC") == 0)
01523                 return EQDC;
01524         if (G_strcasecmp(str, "EULER") == 0)
01525                 return EULER;
01526         if (G_strcasecmp(str, "FAHEY") == 0)
01527                 return FAHEY;
01528         if (G_strcasecmp(str, "FOUC") == 0)
01529                 return FOUC;
01530         if (G_strcasecmp(str, "FOUC_S") == 0)
01531                 return FOUC_S;
01532         if (G_strcasecmp(str, "GALL") == 0)
01533                 return GALL;
01534         if (G_strcasecmp(str, "GINS8") == 0)
01535                 return GINS8;
01536         if (G_strcasecmp(str, "GN_SINU") == 0)
01537                 return GN_SINU;
01538         if (G_strcasecmp(str, "GNOM") == 0)
01539                 return GNOM;
01540         if (G_strcasecmp(str, "GOODE") == 0)
01541                 return GOODE;
01542         if (G_strcasecmp(str, "GS48") == 0)
01543                 return GS48;
01544         if (G_strcasecmp(str, "GS50") == 0)
01545                 return GS50;
01546         if (G_strcasecmp(str, "HAMMER") == 0)
01547                 return HAMMER;
01548         if (G_strcasecmp(str, "HATANO") == 0)
01549                 return HATANO;
01550         if (G_strcasecmp(str, "IMW_P") == 0)
01551                 return IMW_P;
01552         if (G_strcasecmp(str, "KAV5") == 0)
01553                 return KAV5;
01554         if (G_strcasecmp(str, "KAV7") == 0)
01555                 return KAV7;
01556         if (G_strcasecmp(str, "LABRD") == 0)
01557                 return LABRD;
01558         if (G_strcasecmp(str, "LAGRNG") == 0)
01559                 return LAGRNG;
01560         if (G_strcasecmp(str, "LARR") == 0)
01561                 return LARR;
01562         if (G_strcasecmp(str, "LASK") == 0)
01563                 return LASK;
01564         if (G_strcasecmp(str, "LEE_OS") == 0)
01565                 return LEE_OS;
01566         if (G_strcasecmp(str, "LOXIM") == 0)
01567                 return LOXIM;
01568         if (G_strcasecmp(str, "LSAT") == 0)
01569                 return LSAT;
01570         if (G_strcasecmp(str, "MBT_S") == 0)
01571                 return MBT_S;
01572         if (G_strcasecmp(str, "MBT_FPS") == 0)
01573                 return MBT_FPS;
01574         if (G_strcasecmp(str, "MBTFPP") == 0)
01575                 return MBTFPP;
01576         if (G_strcasecmp(str, "MBTFPQ") == 0)
01577                 return MBTFPQ;
01578         if (G_strcasecmp(str, "MBTFPS") == 0)
01579                 return MBTFPS;
01580         if (G_strcasecmp(str, "MIL_OS") == 0)
01581                 return MIL_OS;
01582         if (G_strcasecmp(str, "MILL") == 0)
01583                 return MILL;
01584         if (G_strcasecmp(str, "MPOLY") == 0)
01585                 return MPOLY;
01586         if (G_strcasecmp(str, "MOLL") == 0)
01587                 return MOLL;
01588         if (G_strcasecmp(str, "MURD1") == 0)
01589                 return MURD1;
01590         if (G_strcasecmp(str, "MURD2") == 0)
01591                 return MURD2;
01592         if (G_strcasecmp(str, "MURD3") == 0)
01593                 return MURD3;
01594         if (G_strcasecmp(str, "NELL") == 0)
01595                 return NELL;
01596         if (G_strcasecmp(str, "NELL_H") == 0)
01597                 return NELL_H;
01598         if (G_strcasecmp(str, "NICOL") == 0)
01599                 return NICOL;
01600         if (G_strcasecmp(str, "NSPER") == 0)
01601                 return NSPER;
01602         if (G_strcasecmp(str, "NZMG") == 0)
01603                 return NZMG;
01604         if (G_strcasecmp(str, "OB_TRAN") == 0)
01605                 return OB_TRAN;
01606         if (G_strcasecmp(str, "OCEA") == 0)
01607                 return OCEA;
01608         if (G_strcasecmp(str, "OEA") == 0)
01609                 return OEA;
01610         if (G_strcasecmp(str, "OMERC") == 0)
01611                 return OMERC;
01612         if (G_strcasecmp(str, "ORTEL") == 0)
01613                 return ORTEL;
01614         if (G_strcasecmp(str, "ORTHO") == 0)
01615                 return ORTHO;
01616         if (G_strcasecmp(str, "PCONIC") == 0)
01617                 return PCONIC;
01618         if (G_strcasecmp(str, "POLY") == 0)
01619                 return POLY;
01620         if (G_strcasecmp(str, "PUTP1") == 0)
01621                 return PUTP1;
01622         if (G_strcasecmp(str, "PUTP2") == 0)
01623                 return PUTP2;
01624         if (G_strcasecmp(str, "PUTP3") == 0)
01625                 return PUTP3;
01626         if (G_strcasecmp(str, "PUTP3P") == 0)
01627                 return PUTP3P;
01628         if (G_strcasecmp(str, "PUTP4P") == 0)
01629                 return PUTP4P;
01630         if (G_strcasecmp(str, "PUTP5") == 0)
01631                 return PUTP5;
01632         if (G_strcasecmp(str, "PUTP5P") == 0)
01633                 return PUTP5P;
01634         if (G_strcasecmp(str, "PUTP6") == 0)
01635                 return PUTP6;
01636         if (G_strcasecmp(str, "PUTP6P") == 0)
01637                 return PUTP6P;
01638         if (G_strcasecmp(str, "QUA_AUT") == 0)
01639                 return QUA_AUT;
01640         if (G_strcasecmp(str, "ROBIN") == 0)
01641                 return ROBIN;
01642         if (G_strcasecmp(str, "RPOLY") == 0)
01643                 return RPOLY;
01644         if (G_strcasecmp(str, "SINU") == 0)
01645                 return SINU;
01646         if (G_strcasecmp(str, "SOMERC") == 0)
01647                 return SOMERC;
01648         if (G_strcasecmp(str, "STERE") == 0)
01649                 return STERE;
01650         if (G_strcasecmp(str, "TCC") == 0)
01651                 return TCC;
01652         if (G_strcasecmp(str, "TCEA") == 0)
01653                 return TCEA;
01654         if (G_strcasecmp(str, "TISSOT") == 0)
01655                 return TISSOT;
01656         if (G_strcasecmp(str, "TPEQD") == 0)
01657                 return TPEQD;
01658         if (G_strcasecmp(str, "TPERS") == 0)
01659                 return TPERS;
01660         if (G_strcasecmp(str, "UPS") == 0)
01661                 return UPS;
01662         if (G_strcasecmp(str, "URM5") == 0)
01663                 return URM5;
01664         if (G_strcasecmp(str, "URMFPS") == 0)
01665                 return URMFPS;
01666         if (G_strcasecmp(str, "VANDG") == 0)
01667                 return VANDG;
01668         if (G_strcasecmp(str, "VANDG2") == 0)
01669                 return VANDG2;
01670         if (G_strcasecmp(str, "VANDG3") == 0)
01671                 return VANDG3;
01672         if (G_strcasecmp(str, "VANDG4") == 0)
01673                 return VANDG4;
01674         if (G_strcasecmp(str, "VITK1") == 0)
01675                 return VITK1;
01676         if (G_strcasecmp(str, "WAG1") == 0)
01677                 return WAG1;
01678         if (G_strcasecmp(str, "WAG2") == 0)
01679                 return WAG2;
01680         if (G_strcasecmp(str, "WAG3") == 0)
01681                 return WAG3;
01682         if (G_strcasecmp(str, "WAG4") == 0)
01683                 return WAG4;
01684         if (G_strcasecmp(str, "WAG5") == 0)
01685                 return WAG5;
01686         if (G_strcasecmp(str, "WAG6") == 0)
01687                 return WAG6;
01688         if (G_strcasecmp(str, "WAG7") == 0)
01689                 return WAG7;
01690         if (G_strcasecmp(str, "WEREN") == 0)
01691                 return WEREN;
01692         if (G_strcasecmp(str, "WINK1") == 0)
01693                 return WINK1;
01694         if (G_strcasecmp(str, "WINK2") == 0)
01695                 return WINK2;
01696         if (G_strcasecmp(str, "WINTRI") == 0)
01697                 return WINTRI;
01698         if (G_strcasecmp(str, "KROVAK") == 0)
01699                 return KROVAK;
01700         if (G_strcasecmp(str, "KROVAKGIS") == 0) /* KROVAK with -y,-x for GIS data */
01701                 return KROVAKGIS;
01702         return -1;      /* added by M. Shapiro: 22Jan93 */
01703 }
01704 
01705 #if 0
01706 /* remove this when all external references are cleaned up */
01707 int init_used_table(void)
01708 {
01709         int i;
01710         for (i = 0; i < NOPTIONS; i++) {
01711                 USED_in[i].was = 0;
01712                 USED_out[i].was = 0;
01713         }
01714 
01715         return 0;
01716 }
01717 
01718 int init_unit_table()
01719 {
01720     /* just dummy til we clean up the callers */
01721     return 1;
01722 }
01723 #endif
01724 

Generated on Wed Aug 23 17:49:22 2006 for GRASS by  doxygen 1.4.7