w3fi71.f

Go to the documentation of this file.

C> @file
C> @brief Make array used by GRIB packer for GDS.
C> @author Ralph Jones @date 1992-02-21
 
C> Makes a 18, 37, 55, 64, or 91 word integer array
C> used by w3fi72() GRIB packer to make the grid description section
C> (GDS) - section 2.
C>
C> @note
C> - 1) Office note grid type 26 is 6 in grib, 26 is an
C> international exchange grid.
C>
C> - 2) Values returned in 18, 37, 55, 64, or 91 word integer array
C> igds vary depending on grid representation type.
C>
C> - LAT/LON GRID:
C>  - IGDS( 1) = number of vertical coordinates
C>  - IGDS( 2) = pv, pl or 255
C>  - IGDS( 3) = data representation type (code table 6)
C>  - IGDS( 4) = no. of points along a latitude
C>  - IGDS( 5) = no. of points along a longitude meridian
C>  - IGDS( 6) = latitude of origin (south - ive)
C>  - IGDS( 7) = longitude of origin (west -ive)
C>  - IGDS( 8) = resolution flag (code table 7)
C>  - IGDS( 9) = latitude of extreme point (south - ive)
C>  - IGDS(10) = longitude of extreme point (west - ive)
C>  - IGDS(11) = latitude increment
C>  - IGDS(12) = longitude increment
C>  - IGDS(13) = scanning mode flags (code table 8)
C>  - IGDS(14) = ... through ...
C>  - IGDS(18) =   ... not used for this grid
C>  - IGDS(19) - igds(91) for grids 37-44, number of points
C>  -            in each of 73 rows.
C>
C> - GAUSSIAN GRID:
C>  - IGDS( 1) = ... through ...
C>  - IGDS(10) =   ... same as lat/lon grid
C>  - IGDS(11) = number of latitude lines between a pole
C>  -            and the equator
C>  - IGDS(12) = longitude increment
C>  - IGDS(13) = scanning mode flags (code table 8)
C>  - IGDS(14) = ... through ...
C>  - IGDS(18) =   ... not used for this grid
C>
C> - SPHERICAL HARMONICS:
C>  - IGDS( 1) = number of vertical coordinates
C>  - IGDS( 2) = pv, pl or 255
C>  - IGDS( 3) = data representation type (code table 6)
C>  - IGDS( 4) = j - pentagonal resolution parameter
C>  - IGDS( 5) = k - pentagonal resolution parameter
C>  - IGDS( 6) = m - pentagonal resolution parameter
C>  - IGDS( 7) = representation type (code table 9)
C>  - IGDS( 8) = representation mode (code table 10)
C>  - IGDS( 9) = ... through ...
C>  - IGDS(18) =   ... not used for this grid
C>
C> - POLAR STEREOGRAPHIC:
C>  - IGDS( 1) = number of vertical coordinates
C>  - IGDS( 2) = pv, pl or 255
C>  - IGDS( 3) = data representation type (code table 6)
C>  - IGDS( 4) = no. of points along x-axis
C>  - IGDS( 5) = no. of points along y-axis
C>  - IGDS( 6) = latitude of origin (south -ive)
C>  - IGDS( 7) = longitute of origin (west -ive)
C>  - IGDS( 8) = resolution flag (code table 7)
C>  - IGDS( 9) = longitude of meridian parallel to y-axis
C>  - IGDS(10) = x-direction grid length (increment)
C>  - IGDS(11) = y-direction grid length (increment)
C>  - IGDS(12) = projection center flag (0=north pole on plane,
C>  -                                    1=south pole on plane,
C>  - IGDS(13) = scanning mode flags (code table 8)
C>  - IGDS(14) = ... through ...
C>  - IGDS(18) =   .. not used for this grid
C>
C> - MERCATOR:
C>  - IGDS( 1) = ... through ...
C>  - IGDS(12) =   ... same as lat/lon grid
C>  - IGDS(13) = latitude at which projection cylinder
C>  -              intersects earth
C>  - IGDS(14) = scanning mode flags
C>  - IGDS(15) = ... through ...
C>  - IGDS(18) =   .. not used for this grid
C>
C> - LAMBERT CONFORMAL:
C>  - IGDS( 1) = number of vertical coordinates
C>  - IGDS( 2) = pv, pl or 255
C>  - IGDS( 3) = data representation type (code table 6)
C>  - IGDS( 4) = no. of points along x-axis
C>  - IGDS( 5) = no. of points along y-axis
C>  - IGDS( 6) = latitude of origin (south -ive)
C>  - IGDS( 7) = longitute of origin (west -ive)
C>  - IGDS( 8) = resolution flag (code table 7)
C>  - IGDS( 9) = longitude of meridian parallel to y-axis
C>  - IGDS(10) = x-direction grid length (increment)
C>  - IGDS(11) = y-direction grid length (increment)
C>  - IGDS(12) = projection center flag (0=north pole on plane,
C>  -                                    1=south pole on plane,
C>  - IGDS(13) = scanning mode flags (code table 8)
C>  - IGDS(14) = not used
C>  - IGDS(15) = first latitude from the pole at which the
C>  -            secant cone cuts the sperical earth
C>  - IGDS(16) = second latitude ...
C>  - IGDS(17) = latitude of south pole (millidegrees)
C>  - IGDS(18) = longitude of south pole (millidegrees)
C>
C> - ARAKAWA SEMI-STAGGERED E-GRID ON ROTATED LAT/LON GRID
C>  - IGDS( 1) = number of vertical coordinates
C>  - IGDS( 2) = pv, pl or 255
C>  - IGDS( 3) = data representation type (code table 6) [201]
C>  - IGDS( 4) = ni  - total number of actual data points
C>  -                  included on grid
C>  - IGDS( 5) = nj  - dummy second dimension; set=1
C>  - IGDS( 6) = la1 - latitude  of first grid point
C>  - IGDS( 7) = lo1 - longitude of first grid point
C>  - IGDS( 8) = resolution and component flag (code table 7)
C>  - IGDS( 9) = la2 - number of mass points along
C>  -                  southernmost row of grid
C>  - IGDS(10) = lo2 - number of rows in each column
C>  - IGDS(11) = di  - longitudinal direction increment
C>  - IGDS(12) = dj  - latitudinal  direction increment
C>  - IGDS(13) = scanning mode flags (code table 8)
C>  - IGDS(14) = ... through ...
C>  - IGDS(18) = ... not used for this grid (set to zero)
C>
C> - ARAKAWA FILLED E-GRID ON ROTATED LAT/LON GRID
C>  - IGDS( 1) = number of vertical coordinates
C>  - IGDS( 2) = pv, pl or 255
C>  - IGDS( 3) = data representation type (code table 6) [202]
C>  - IGDS( 4) = ni  - total number of actual data points
C>  -                  included on grid
C>  - IGDS( 5) = nj  - dummy second dimention; set=1
C>  - IGDS( 6) = la1 - latitude latitude of first grid point
C>  - IGDS( 7) = lo1 - longitude of first grid point
C>  - IGDS( 8) = resolution and component flag (code table 7)
C>  - IGDS( 9) = la2 - number of (zonal) points in each row
C>  - IGDS(10) = lo2 - number of (meridional) points in each
C>  -                  column
C>  - IGDS(11) = di  - longitudinal direction increment
C>  - IGDS(12) = dj  - latitudinal  direction increment
C>  - IGDS(13) = scanning mode flags (code table 8)
C>  - IGDS(14) = ... through ...
C>  - IGDS(18) = ... not used for this grid
C>
C> - ARAKAWA STAGGERED E-GRID ON ROTATED LAT/LON GRID
C>  - IGDS( 1) = number of vertical coordinates
C>  - IGDS( 2) = pv, pl or 255
C>  - IGDS( 3) = data representation type (code table 6) [203]
C>  - IGDS( 4) = ni  - number of data points in each row
C>  - IGDS( 5) = nj  - number of rows
C>  - IGDS( 6) = la1 - latitude of first grid point
C>  - IGDS( 7) = lo1 - longitude of first grid point
C>  - IGDS( 8) = resolution and component flag (code table 7)
C>  - IGDS( 9) = la2 - central latitude
C>  - IGDS(10) = lo2 - central longtitude
C>  - IGDS(11) = di  - longitudinal direction increment
C>  - IGDS(12) = dj  - latitudinal  direction increment
C>  - IGDS(13) = scanning mode flags (code table 8)
C>  - IGDS(14) = ... through ...
C>  - IGDS(18) = ... not used for this grid
C>
C> - CURVILINEAR ORTHOGONAL GRID
C>  - IGDS( 1) = number of vertical coordinates
C>  - IGDS( 2) = pv, pl or 255
C>  - IGDS( 3) = data representation type (code table 6) [204]
C>  - IGDS( 4) = ni  - number of data points in each row
C>  - IGDS( 5) = nj  - number of rows
C>  - IGDS( 6) = reserved (set to 0)
C>  - IGDS( 7) = reserved (set to 0)
C>  - IGDS( 8) = resolution and component flag (code table 7)
C>  - IGDS( 9) = reserved (set to 0)
C>  - IGDS(10) = reserved (set to 0)
C>  - IGDS(11) = reserved (set to 0)
C>  - IGDS(12) = reserved (set to 0)
C>  - IGDS(13) = scanning mode flags (code table 8)
C>  - IGDS(14) = ... through ...
C>  - IGDS(18) = ... not used for this grid
C>
C> @param[in] IGRID GRIB grid number, or office note 84 grid number
C> @param[out] IGDS 18, 37, 55, 64, or 91 word integer array with
C> information to make a grib grid description section.
C> @param[out] IERR:
C> - 0  Correct exit
C> - 1  Grid type in igrid is not in table
C>
C> @author Ralph Jones @date 1992-02-21
      SUBROUTINE w3fi71 (IGRID, IGDS, IERR)
C
      INTEGER       IGRID
      INTEGER       IGDS  (*)
      INTEGER       GRD1  (18)
      INTEGER       GRD2  (18)
      INTEGER       GRD3  (18)
      INTEGER       GRD4  (18)
      INTEGER       GRD5  (18)
      INTEGER       GRD6  (18)
      INTEGER       GRD8  (18)
      INTEGER       GRD10 (18)
      INTEGER       GRD11 (18)
      INTEGER       GRD12 (18)
      INTEGER       GRD13 (18)
      INTEGER       GRD14 (18)
      INTEGER       GRD15 (18)
      INTEGER       GRD16 (18)
      INTEGER       GRD17 (18)
      INTEGER       GRD18 (18)
      INTEGER       GRD21 (55)
      INTEGER       GRD22 (55)
      INTEGER       GRD23 (55)
      INTEGER       GRD24 (55)
      INTEGER       GRD25 (37)
      INTEGER       GRD26 (37)
      INTEGER       GRD27 (18)
      INTEGER       GRD28 (18)
      INTEGER       GRD29 (18)
      INTEGER       GRD30 (18)
      INTEGER       GRD33 (18)
      INTEGER       GRD34 (18)
      INTEGER       GRD37 (91)
      INTEGER       GRD38 (91)
      INTEGER       GRD39 (91)
      INTEGER       GRD40 (91)
      INTEGER       GRD41 (91)
      INTEGER       GRD42 (91)
      INTEGER       GRD43 (91)
      INTEGER       GRD44 (91)
      INTEGER       GRD45 (18)
      INTEGER       GRD53 (18)
      INTEGER       GRD55 (18)
      INTEGER       GRD56 (18)
      INTEGER       GRD61 (64)
      INTEGER       GRD62 (64)
      INTEGER       GRD63 (64)
      INTEGER       GRD64 (64)
      INTEGER       GRD83 (18)
      INTEGER       GRD85 (18)
      INTEGER       GRD86 (18)
      INTEGER       GRD87 (18)
      INTEGER       GRD88 (18)
      INTEGER       GRD90 (18)
      INTEGER       GRD91 (18)
      INTEGER       GRD92 (18)
      INTEGER       GRD93 (18)
      INTEGER       GRD94 (18)
      INTEGER       GRD95 (18)
      INTEGER       GRD96 (18)
      INTEGER       GRD97 (18)
      INTEGER       GRD98 (18)
      INTEGER       GRD99 (18)
      INTEGER       GRD100(18)
      INTEGER       GRD101(18)
      INTEGER       GRD103(18)
      INTEGER       GRD104(18)
      INTEGER       GRD105(18)
      INTEGER       GRD106(18)
      INTEGER       GRD107(18)
      INTEGER       GRD110(18)
      INTEGER       GRD120(18)
      INTEGER       GRD122(18)
      INTEGER       GRD123(18)
      INTEGER       GRD124(18)
      INTEGER       GRD125(18)
      INTEGER       GRD126(18)
      INTEGER       GRD127(18)
      INTEGER       GRD128(18)
      INTEGER       GRD129(18)
      INTEGER       GRD130(18)
      INTEGER       GRD132(18)
      INTEGER       GRD138(18)
      INTEGER       GRD139(18)
      INTEGER       GRD140(18)
      INTEGER       GRD145(18)
      INTEGER       GRD146(18)
      INTEGER       GRD147(18)
      INTEGER       GRD148(18)
      INTEGER       GRD150(18)
      INTEGER       GRD151(18)
      INTEGER       GRD160(18)
      INTEGER       GRD161(18)
      INTEGER       GRD163(18)
      INTEGER       GRD170(18)
      INTEGER       GRD171(18)
      INTEGER       GRD172(18)
      INTEGER       GRD173(18)
      INTEGER       GRD174(18)
      INTEGER       GRD175(18)
      INTEGER       GRD176(18)
      INTEGER       GRD179(18)
      INTEGER       GRD180(18)
      INTEGER       GRD181(18)
      INTEGER       GRD182(18)
      INTEGER       GRD183(18)
      INTEGER       GRD184(18)
      INTEGER       GRD187(18)
      INTEGER       GRD188(18)
      INTEGER       GRD189(18)
      INTEGER       GRD190(18)
      INTEGER       GRD192(18)
      INTEGER       GRD193(18)
      INTEGER       GRD194(18)
      INTEGER       GRD195(18)
      INTEGER       GRD196(18)
      INTEGER       GRD197(18)
      INTEGER       GRD198(18)
      INTEGER       GRD199(18)
      INTEGER       GRD200(18)
      INTEGER       GRD201(18)
      INTEGER       GRD202(18)
      INTEGER       GRD203(18)
      INTEGER       GRD204(18)
      INTEGER       GRD205(18)
      INTEGER       GRD206(18)
      INTEGER       GRD207(18)
      INTEGER       GRD208(18)
      INTEGER       GRD209(18)
      INTEGER       GRD210(18)
      INTEGER       GRD211(18)
      INTEGER       GRD212(18)
      INTEGER       GRD213(18)
      INTEGER       GRD214(18)
      INTEGER       GRD215(18)
      INTEGER       GRD216(18)
      INTEGER       GRD217(18)
      INTEGER       GRD218(18)
      INTEGER       GRD219(18)
      INTEGER       GRD220(18)
      INTEGER       GRD221(18)
      INTEGER       GRD222(18)
      INTEGER       GRD223(18)
      INTEGER       GRD224(18)
      INTEGER       GRD225(18)
      INTEGER       GRD226(18)
      INTEGER       GRD227(18)
      INTEGER       GRD228(18)
      INTEGER       GRD229(18)
      INTEGER       GRD230(18)
      INTEGER       GRD231(18)
      INTEGER       GRD232(18)
      INTEGER       GRD233(18)
      INTEGER       GRD234(18)
      INTEGER       GRD235(18)
      INTEGER       GRD236(18)
      INTEGER       GRD237(18)
      INTEGER       GRD238(18)
      INTEGER       GRD239(18)
      INTEGER       GRD240(18)
      INTEGER       GRD241(18)
      INTEGER       GRD242(18)
      INTEGER       GRD243(18)
      INTEGER       GRD244(18)
      INTEGER       GRD245(18)
      INTEGER       GRD246(18)
      INTEGER       GRD247(18)
      INTEGER       GRD248(18)
      INTEGER       GRD249(18)
      INTEGER       GRD250(18)
      INTEGER       GRD251(18)
      INTEGER       GRD252(18)
      INTEGER       GRD253(18)
      INTEGER       GRD254(18)
C
      DATA  grd1  / 0, 255, 1,  73, 23, -48090,       0, 128,   48090,
     &       0, 513669,513669, 22500, 64, 0, 0, 0, 0/
      DATA  grd2  / 0, 255, 0, 144, 73,  90000,       0, 128,  -90000,
     &   -2500,   2500, 2500,  0, 0, 0, 0, 0, 0/
      DATA  grd3  / 0, 255, 0, 360,181,  90000,       0, 128,  -90000,
     &   -1000,   1000, 1000,  0, 0, 0, 0, 0, 0/
      DATA  grd4  / 0, 255, 0, 720,361,  90000,       0, 128,  -90000,
     &    -500,    500,  500,  0, 0, 0, 0, 0, 0/
      DATA  grd5  / 0, 255, 5,  53, 57,   7647, -133443,   8, -105000,
     &  190500, 190500, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd6  / 0, 255, 5,  53, 45,   7647, -133443,   8, -105000,
     &  190500, 190500, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd8  / 0, 255, 1, 116, 44, -48670,    3104, 128,   61050,
     &       0, 318830, 318830, 22500, 64, 0, 0, 0, 0/
      DATA  grd10 / 0, 255, 0, 180, 139,  64000,   1000, 128,  -74000,
     &   359000, 1000, 2000,  0, 0, 0, 0, 0, 0/
      DATA  grd11 / 0, 255, 0, 720, 311,  77500,      0, 128,  -77500,
     &   359500, 500,  500,  0, 0, 0, 0, 0, 0/
      DATA  grd12 / 0, 255, 0, 301, 331,  55000, 260000, 128,       0,
     &   310000, 166,  166,  0, 0, 0, 0, 0, 0/
      DATA  grd13 / 0, 255, 0, 241, 151,  50000, 210000, 128,   25000,
     &   250000, 166,  166,  0, 0, 0, 0, 0, 0/
      DATA  grd14 / 0, 255, 0, 511, 301,  30000, 130000, 128,  -20000,
     &   215000, 166,  166,  0, 0, 0, 0, 0, 0/
      DATA  grd15 / 0, 255, 0, 401, 187,  75000, 140000, 128,   44000,
     &   240000, 166,  250,  0, 0, 0, 0, 0, 0/
      DATA  grd16 / 0, 255, 0, 548, 391,  74000, 165000, 128,   48000,
     &   237933,  66,  133,  0, 0, 0, 0, 0, 0/
      DATA  grd17 / 0, 255, 0, 736, 526,  50000, 195000, 128,   15000,
     &   244000,  66,   66,  0, 0, 0, 0, 0, 0/
      DATA  grd18 / 0, 255, 0, 586, 481,  47000, 261000, 128,   15000,
     &   300000,  66,   66,  0, 0, 0, 0, 0, 0/
      DATA  grd21 / 0,  33, 0,65535,37,      0,       0, 128,   90000,
     &  180000,   2500, 5000, 64, 0, 0, 0, 0, 0,
     & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
     & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
     & 37, 37, 37, 37, 37, 37,  1/
      DATA  grd22 / 0,  33, 0,65535,37,      0, -180000, 128,   90000,
     &       0,   2500, 5000, 64, 0, 0, 0, 0, 0,
     & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
     & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
     & 37, 37, 37, 37, 37, 37,  1/
      DATA  grd23 / 0,  33, 0,65535, 37, -90000,       0, 128,       0,
     &  180000,   2500, 5000, 64, 0, 0, 0, 0, 0,
     &  1, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
     & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
     & 37, 37, 37, 37, 37, 37, 37/
      DATA  grd24 / 0,  33, 0,65535, 37, -90000, -180000, 128,       0,
     &       0,   2500, 5000, 64, 0, 0, 0, 0, 0,
     &  1, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
     & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
     & 37, 37, 37, 37, 37, 37, 37/
      DATA  grd25 / 0,  33, 0,65535, 19,      0,       0, 128,   90000,
     &  355000,   5000, 5000, 64, 0, 0, 0, 0, 0,
     & 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72,
     & 72, 72, 72,  1/
      DATA  grd26 / 0,  33, 0,65535, 19, -90000,       0, 128,       0,
     &  355000,   5000, 5000, 64, 0, 0, 0, 0, 0,
     &  1, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72,
     & 72, 72, 72, 72/
      DATA  grd27 / 0, 255, 5,  65, 65, -20826, -125000,   8,  -80000,
     &  381000, 381000, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd28 / 0, 255, 5,  65, 65,  20826,  145000,   8,  -80000,
     &  381000, 381000,128, 64, 0, 0, 0, 0, 0/
      DATA  grd29 / 0, 255, 0, 145, 37,      0,       0, 128,   90000,
     &  360000,   2500, 2500, 64, 0, 0, 0, 0, 0/
      DATA  grd30 / 0, 255, 0, 145, 37,  -90000,      0, 128,       0,
     &  360000,   2500, 2500, 64, 0, 0, 0, 0, 0/
      DATA  grd33 / 0, 255, 0, 181, 46,      0,       0, 128,   90000,
     &  360000,   2000, 2000, 64, 0, 0, 0, 0, 0/
      DATA  grd34 / 0, 255, 0, 181, 46, -90000,       0, 128,       0,
     &  360000,   2000, 2000, 64, 0, 0, 0, 0, 0/
      DATA  grd37 / 0,  33, 0,65535,73,      0,  -30000, 128,   90000,
     &   60000,  1250,65535, 64, 0, 0, 0, 0, 0,
     & 73, 73, 73, 73, 73, 73, 73, 73, 72, 72, 72, 71, 71, 71, 70,
     & 70, 69, 69, 68, 67, 67, 66, 65, 65, 64, 63, 62, 61, 60, 60,
     & 59, 58, 57, 56, 55, 54, 52, 51, 50, 49, 48, 47, 45, 44, 43,
     & 42, 40, 39, 38, 36, 35, 33, 32, 30, 29, 28, 26, 25, 23, 22,
     & 20, 19, 17, 16, 14, 12, 11,  9,  8,  6,  5,  3,  2/
      DATA  grd38 / 0,  33, 0,65535,73,      0,   60000, 128,   90000,
     &  150000,  1250,65535, 64, 0, 0, 0, 0, 0,
     & 73, 73, 73, 73, 73, 73, 73, 73, 72, 72, 72, 71, 71, 71, 70,
     & 70, 69, 69, 68, 67, 67, 66, 65, 65, 64, 63, 62, 61, 60, 60,
     & 59, 58, 57, 56, 55, 54, 52, 51, 50, 49, 48, 47, 45, 44, 43,
     & 42, 40, 39, 38, 36, 35, 33, 32, 30, 29, 28, 26, 25, 23, 22,
     & 20, 19, 17, 16, 14, 12, 11,  9,  8,  6,  5,  3,  2/
      DATA  grd39 / 0,  33, 0,65535,73,      0,  150000, 128,   90000,
     & -120000,  1250,65535, 64, 0, 0, 0, 0, 0,
     & 73, 73, 73, 73, 73, 73, 73, 73, 72, 72, 72, 71, 71, 71, 70,
     & 70, 69, 69, 68, 67, 67, 66, 65, 65, 64, 63, 62, 61, 60, 60,
     & 59, 58, 57, 56, 55, 54, 52, 51, 50, 49, 48, 47, 45, 44, 43,
     & 42, 40, 39, 38, 36, 35, 33, 32, 30, 29, 28, 26, 25, 23, 22,
     & 20, 19, 17, 16, 14, 12, 11,  9,  8,  6,  5,  3,  2/
      DATA  grd40 / 0,  33, 0,65535,73,       0, -120000, 128,   90000,
     &  -30000,  1250,65535, 64, 0, 0, 0, 0, 0,
     & 73, 73, 73, 73, 73, 73, 73, 73, 72, 72, 72, 71, 71, 71, 70,
     & 70, 69, 69, 68, 67, 67, 66, 65, 65, 64, 63, 62, 61, 60, 60,
     & 59, 58, 57, 56, 55, 54, 52, 51, 50, 49, 48, 47, 45, 44, 43,
     & 42, 40, 39, 38, 36, 35, 33, 32, 30, 29, 28, 26, 25, 23, 22,
     & 20, 19, 17, 16, 14, 12, 11,  9,  8,  6,  5,  3,  2/
      DATA  grd41 / 0,  33, 0,65535,73, -90000,  -30000, 128,       0,
     &   60000,  1250,65535, 64, 0, 0, 0, 0, 0,
     &  2,  3,  5,  6,  8,  9, 11, 12, 14, 16, 17, 19, 20, 22, 23,
     & 25, 26, 28, 29, 30, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44,
     & 45, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 60,
     & 61, 62, 63, 64, 65, 65, 66, 67, 67, 68, 69, 69, 70, 70, 71,
     & 71, 71, 72, 72, 72, 73, 73, 73, 73, 73, 73, 73, 73/
      DATA  grd42 / 0,  33, 0,65535,73, -90000,   60000, 128,       0,
     &  150000,  1250,65535, 64, 0, 0, 0, 0, 0,
     &  2,  3,  5,  6,  8,  9, 11, 12, 14, 16, 17, 19, 20, 22, 23,
     & 25, 26, 28, 29, 30, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44,
     & 45, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 60,
     & 61, 62, 63, 64, 65, 65, 66, 67, 67, 68, 69, 69, 70, 70, 71,
     & 71, 71, 72, 72, 72, 73, 73, 73, 73, 73, 73, 73, 73/
      DATA  grd43 / 0,  33, 0,65535,73, -90000,  150000, 128,       0,
     & -120000,  1250,65535, 64, 0, 0, 0, 0, 0,
     &  2,  3,  5,  6,  8,  9, 11, 12, 14, 16, 17, 19, 20, 22, 23,
     & 25, 26, 28, 29, 30, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44,
     & 45, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 60,
     & 61, 62, 63, 64, 65, 65, 66, 67, 67, 68, 69, 69, 70, 70, 71,
     & 71, 71, 72, 72, 72, 73, 73, 73, 73, 73, 73, 73, 73/
      DATA  grd44 / 0,  33, 0,65535,73, -90000, -120000, 128,       0,
     &  -30000,  1250,65535, 64, 0, 0, 0, 0, 0,
     &  2,  3,  5,  6,  8,  9, 11, 12, 14, 16, 17, 19, 20, 22, 23,
     & 25, 26, 28, 29, 30, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44,
     & 45, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 60,
     & 61, 62, 63, 64, 65, 65, 66, 67, 67, 68, 69, 69, 70, 70, 71,
     & 71, 71, 72, 72, 72, 73, 73, 73, 73, 73, 73, 73, 73/
      DATA  grd45 / 0, 255, 0, 288,145,  90000,       0, 128,  -90000,
     &   -1250,   1250, 1250,  0, 0, 0, 0, 0, 0/
      DATA  grd53 / 0, 255, 1, 117, 51, -61050,       0, 128,   61050,
     &       0,  318830, 318830, 22500, 64, 0, 0, 0, 0/
      DATA  grd55 / 0, 255, 5,  87, 71, -10947, -154289,   8, -105000,
     &  254000, 254000, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd56 / 0, 255, 5,  87, 71,   7647, -133443,   8, -105000,
     &  127000, 127000, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd61 / 0,  33, 0,65535, 46,      0,       0, 128,   90000,
     &  180000,   2000, 2000, 64, 0, 0, 0, 0, 0,
     & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
     & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
     & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
     &  1/
      DATA  grd62 / 0,  33, 0,65535, 46,      0, -180000, 128,   90000,
     &       0,   2000, 2000, 64, 0, 0, 0, 0, 0,
     & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
     & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
     & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
     &  1/
      DATA  grd63 / 0,  33, 0,65535, 46,      0,  -90000, 128,       0,
     &  180000,   2000, 2000, 64, 0, 0, 0, 0, 0,
     &  1, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
     & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
     & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
     & 91/
      DATA  grd64 / 0,  33, 0,65535, 46, -90000, -180000, 128,       0,
     &       0,   2000, 2000, 64, 0, 0, 0, 0, 0,
     &  1, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
     & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
     & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
     & 91/
      DATA  grd83 / 0, 255,205,758,567, 2228,   -140481, 136,   47500,
     & -104000,    121,121,64, 53492, -10984, 0, 0, 0/
      DATA  grd85 / 0, 255, 0, 360, 90,    500,     500, 128,   89500,
     &  359500,   1000, 1000, 64, 0, 0, 0, 0, 0/
      DATA  grd86 / 0, 255, 0, 360, 90, -89500,     500, 128,    -500,
     &  359500,   1000, 1000, 64, 0, 0, 0, 0, 0/
      DATA  grd87 / 0, 255, 5,  81, 62,  22876, -120491,   8, -105000,
     &   68153,  68153, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd88 / 0, 255, 5, 580,548,  10000, -128000,   8, -105000,
     &   15000,  15000, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd90 / 0, 255, 3,4289,2753,  20192, -121554,   8,  -95000,
     &    1270,   1270, 0, 64, 0, 25000, 25000, 0, 0/
      DATA  grd91 / 0, 255, 5,1649,1105, 40530,  -178571,  8,  -150000,
     &  2976, 2976,   0, 64, 0, 0, 0, 0, 0/
      DATA  grd92 / 0, 255, 5,3297,2209, 40530,  -178571,  8,  -150000,
     &  1488, 1488,   0, 64, 0, 0, 0, 0, 0/
      DATA  grd93 / 0, 255,203,223,501,  44232, -169996, 136,   63000,
     & -150000,    67,66,64, 0, 0, 0, 0, 0/
      DATA  grd94 / 0, 255,205,595,625, 34921, -161663, 136,   54000,
     & -106000,     63, 54,64, 83771, -151721, 0, 0, 0/
      DATA  grd95 / 0, 255,205,401,325,  17609, -76327, 136,    54000,
     & -106000,  31, 27,64, 18840, -61261, 0, 0, 0/
      DATA  grd96 / 0, 255,205,373,561,  11625, -156339, 136,   54000,
     & -106000,   31, 27,64, 30429, -157827, 0, 0, 0/
      DATA  grd97 / 0, 255,205,1371,1100, 15947,-125468, 136,   54000,
     & -106000,     42, 36,64,45407,-52390, 0, 0, 0/
      DATA  grd98 / 0, 255, 4, 192, 94,  88542,       0, 128,  -88542,
     &    -1875, 47,1875, 0, 0, 0, 0, 0, 0/
      DATA  grd99 / 0, 255,203,669,1165, -7450, -144140, 136,   54000,
     & -106000,    90, 77, 64, 0, 0, 0, 0, 0/
      DATA  grd100/ 0, 255, 5,  83, 83,  17108, -129296,   8, -105000,
     &   91452,  91452, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd101/ 0, 255, 5, 113, 91,  10528, -137146,   8, -105000,
     &   91452,  91452, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd103/ 0, 255, 5,  65, 56,  22405, -121352,   8, -105000,
     &   91452,  91452, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd104/ 0, 255, 5, 147,110,   -268, -139475,   8, -105000,
     &   90755,  90755, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd105/ 0, 255, 5,  83, 83,  17529, -129296,   8, -105000,
     &   90755,  90755, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd106/ 0, 255, 5, 165,117,  17533, -129296,   8, -105000,
     &   45373,  45373, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd107/ 0, 255, 5, 120, 92,  23438, -120168,   8, -105000,
     &   45373,  45373, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd110/ 0, 255, 0, 464,224,  25063, -124938, 128,   52938,
     & -67063,    125, 125, 64, 0, 0, 0, 0, 0/
      DATA  grd120/ 0, 255,204,1200,1684,     0,      0,   8,       0,
     &      0,      0,   0, 64, 0, 0, 0, 0, 0/
      DATA  grd122/ 0, 255,204, 350, 465,     0,      0,   8,       0,
     &      0,      0,   0, 64, 0, 0, 0, 0, 0/
      DATA  grd123/ 0, 255,204, 280, 360,     0,      0,   8,       0,
     &      0,      0,   0, 64, 0, 0, 0, 0, 0/
      DATA  grd124/ 0, 255,204, 240, 314,     0,      0,   8,       0,
     &      0,      0,   0, 64, 0, 0, 0, 0, 0/
      DATA  grd125/ 0, 255,204, 300, 340,     0,      0,   8,       0,
     &      0,      0,   0, 64, 0, 0, 0, 0, 0/
      DATA  grd126/ 0, 255, 4, 384,190,  89277,       0, 128,  -89277,
     &    -938,    95, 938, 0, 0, 0, 0, 0, 0/
      DATA  grd127/ 0, 255, 4, 768,384,  89642,       0, 128,  -89642,
     &    -469,   192, 469, 0, 0, 0, 0, 0, 0/
      DATA  grd128/ 0, 255, 4,1152,576,  89761,       0, 128,  -89761,
     &    -313,   288, 313, 0, 0, 0, 0, 0, 0/
      DATA  grd129/ 0, 255, 4,1760,880,  89844,       0, 128,  -89844,
     &    -205,   440, 205, 0, 0, 0, 0, 0, 0/
      DATA  grd130/ 0, 255, 3, 451,337,  16281, -126138,  8,   -95000,
     &   13545,  13545, 0, 64, 0, 25000, 25000, 0, 0/
      DATA  grd132/ 0, 255, 3, 697,553,   1000, -145500,   8, -107000,
     &   16232,  16232, 0, 64, 0, 50000, 50000, 0, 0/
      DATA  grd138/ 0, 255, 3, 468,288,  21017, -123282,   8,  -97000,
     &   12000,  12000, 0, 64, 0, 33000, 45000, 0, 0/
      DATA  grd139/ 0, 255, 3,  80,52,  17721, -161973,  8,   -157500,
     &   12000,  12000, 0, 64, 0, 19000, 21000, 0, 0/
      DATA  grd140/ 0, 255, 3, 199,163, 53020, -166477,  8,  -148600,
     &   12000,  12000, 0, 64, 0, 57000, 63000, 0, 0/
      DATA  grd145/ 0, 255, 3, 169,145,  32174,  -90159,   8,  -79500,
     &   12000,  12000, 0, 64, 0, 36000, 46000, 0, 0/
      DATA  grd146/ 0, 255, 3, 166,142,  32353,  -89994,   8,  -79500,
     &   12000,  12000, 0, 64, 0, 36000, 46000, 0, 0/
      DATA  grd147/ 0, 255, 3, 268,259,  24595, -100998,   8,  -97000,
     &   12000,  12000, 0, 64, 0, 33000, 45000, 0, 0/
      DATA  grd148/ 0, 255, 3, 442,265,  21821, -120628,   8,  -97000,
     &   12000,  12000, 0, 64, 0, 33000, 45000, 0, 0/
      DATA  grd150/ 0, 255, 0, 401,201,   5000, -100000, 128,   25000,
     &  -60000,   100, 100, 64, 0, 0, 0, 0, 0/
      DATA  grd151/ 0, 255, 5, 478, 429, -7450,  215860,   8,  -110000,
     &  33812, 33812,   0, 64, 0, 0, 0, 0, 0/
      DATA  grd160/ 0, 255, 5, 180,156,  19132, -185837,   8, -150000,
     &   47625,  47625, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd161/ 0, 255, 0, 137,103,  50750,  271750,  72,    -250,
     &  -19750,    500,500, 0, 0, 0, 0, 0, 0/
      DATA  grd163/ 0, 255, 3,1008,722,  20600, -118300,   8,  -95000,
     &    5000,   5000, 0, 64, 0, 38000, 38000, 0, 0/
      DATA  grd170/ 0, 255, 4, 512, 256, 89463,       0, 128,  -89463,
     &    -703,   128, 703, 0, 0, 0, 0, 0, 0/
      DATA  grd171/ 0, 255, 5, 770,930,  25032, -119560,   0,  -80000,
     &   12700,  12700, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd172/ 0, 255, 5, 690,710, -36899, -220194,   0,  -80000,
     &   12700,  12700, 128, 64, 0, 0, 0, 0, 0/
      DATA  grd173/ 0, 255, 0,4320,2160, 89958,      42, 128,  -89958,
     &  359958,    83,  83,  0, 0, 0, 0, 0, 0/
      DATA  grd174/ 0, 255, 0,2880,1440, 89938,      62, 128,  -89938,
     &     -62,   125, 125,64, 0, 0, 0, 0, 0/
      DATA  grd175/ 0, 255, 0, 556,334,      0,  130000, 128,   30060,
     &  180040,    90,  90, 64, 0, 0, 0, 0, 0/
      DATA  grd176/ 0, 255, 0, 327,235,  49100,  -92200, 128,   40910,
     &  -75900,    35,  50, 0, 0, 0, 0, 0, 0/
      DATA  grd179/ 0, 255, 5,1196,817, -2500,  -142500,   8,  -100000,
     &  12679, 12679,   0, 64, 0, 0, 0, 0, 0/
      DATA  grd180/ 0, 255, 0, 759,352,  55054, -127000, 128,   17146,
     &  -45136,   108, 108, 0, 0, 0, 0, 0, 0/
      DATA  grd181/ 0, 255, 0, 370,278,  30054, -100000, 128,     138,
     &  -60148,   108, 108, 0, 0, 0, 0, 0, 0/
      DATA  grd182/ 0, 255, 0, 278,231,  32973, -170000, 128,    8133,
     & -140084,   108, 108, 0, 0, 0, 0, 0, 0/
      DATA  grd183/ 0, 255, 0, 648,278,  75054, -200000, 128,   45138,
     & -130124,   108, 108, 0, 0, 0, 0, 0, 0/
      DATA  grd184/ 0, 255, 3,2145,1377,  20192, -121554,   8,  -95000,
     &    2540,   2540, 0, 64, 0, 25000, 25000, 0, 0/
      DATA  grd187/ 0, 255, 3,2145,1597,  20192, -121554,   8,  -95000,
     &    2540,   2540, 0, 64, 0, 25000, 25000, 0, 0/
      DATA  grd188/ 0, 255, 3, 709, 795,  37979, -125958,   8,  -95000,
     &    2540,   2540, 0, 64, 0, 25000, 25000, 0, 0/
      DATA  grd189/ 0, 255, 5, 655, 855, 51500,  -142500,   8, -135000,
     &  1448, 1448,   0, 64, 0, 0, 0, 0, 0/
      DATA  grd190/ 0, 255,205,954,835,  -7491, -144134, 136,   54000,
     & -106000,    126, 108, 64, 44540, 14802, 0, 0, 0/
      DATA  grd192/ 0, 255,203,237,387, -3441, -148799, 136,   50000,
     & -111000,    225,207,64, 0, 0, 0, 0, 0/
      DATA  grd193  / 0, 255, 0, 1440, 721,  90000,  0, 128,  -90000,
     &   -250,   250, 250,  0, 0, 0, 0, 0, 0/
      DATA  grd194/ 0, 255, 1, 544,310,  15000,  -75500, 128,   22005,
     &  -62509, 2500, 2500, 20000, 64, 0, 0, 0, 0/
      DATA  grd195/ 0, 255, 1, 177,129,  16829,  -68196, 128,   19747,
     &  -63972,  2500,  2500, 20000, 64, 0, 0, 0, 0/
      DATA  grd196/ 0, 255, 1, 321,225,  18073, -161525, 136,   23088,
     & -153869, 2500, 2500, 20000, 64, 0, 0, 0, 0/
      DATA  grd197/ 0, 255, 3,1073,689,  20192, -121550,   8,  -95000,
     &    5079,   5079, 0, 64, 0, 25000, 25000, 0, 0/
      DATA  grd198/ 0, 255, 5, 825, 553, 40530,  -178571,  8,  -150000,
     &  5953, 5953,   0, 64, 0, 0, 0, 0, 0/
      DATA  grd199/ 0, 255, 1, 193,193,  12350, -216313, 128,   16794,
     & -211720,  2500,  2500, 20000, 64, 0, 0, 0, 0/
      DATA  grd200/ 0, 255, 3, 108, 94,  16201,  285720, 136, -107000,
     &   16232,  16232, 0, 64, 0, 50000, 50000, -90000, 0/
      DATA  grd201/ 0, 255, 5,  65, 65, -20826, -150000,   8, -105000,
     &  381000, 381000, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd202/ 0, 255, 5,  65, 43,   7838, -141028,   8, -105000,
     &  190500, 190500, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd203/ 0, 255, 5,  45, 39,  19132, -185837,   8, -150000,
     &  190500, 190500, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd204/ 0, 255, 1,  93, 68, -25000,  110000, 128,   60644,
     & -109129, 160000, 160000, 20000, 64, 0, 0, 0, 0/
      DATA  grd205/ 0, 255, 5,  45, 39,    616,  -84904,   8,  -60000,
     &  190500, 190500, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd206/ 0, 255, 3,  51, 41,  22289, -117991,   8, - 95000,
     &   81271,  81271, 0, 64, 0, 25000, 25000, 0, 0/
      DATA  grd207/ 0, 255, 5,  49, 35,  42085, -175641,   8, -150000,
     &   95250,  95250, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd208/ 0, 255, 1,  29, 27,   9343, -167315, 128,   28092,
     & -145878, 80000, 80000, 20000, 64, 0, 0, 0, 0/
      DATA  grd209/ 0, 255, 3, 275,223,  -4850, -151100,   8, -111000,
     &   44000,  44000, 0, 64, 0, 45000, 45000, 0, 0/
      DATA  grd210/ 0, 255, 1,  25, 25,   9000,  -77000, 128,   26422,
     &  -58625, 80000, 80000, 20000, 64, 0, 0, 0, 0/
      DATA  grd211/ 0, 255, 3,  93, 65,  12190, -133459,   8,  -95000,
     &   81271,  81271, 0, 64, 0, 25000, 25000, 0, 0/
      DATA  grd212/ 0, 255, 3, 185,129,  12190, -133459, 136,  -95000,
     &   40635,  40635, 0, 64, 0, 25000, 25000, -90000, 0/
      DATA  grd213/ 0, 255, 5, 129, 85,   7838, -141028,   8, -105000,
     &   95250,  95250, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd214/ 0, 255, 5,  97, 69,  42085, -175641,   8, -150000,
     &   47625,  47625, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd215/ 0, 255, 3, 369,257,  12190, -133459,   8,  -95000,
     &   20318,  20318, 0, 64, 0, 25000, 25000, 0, 0/
      DATA  grd216/ 0, 255, 5, 139,107,  30000, -173000, 136, -135000,
     &   45000,  45000, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd217/ 0, 255, 5, 277,213,  30000, -173000,   8, -135000,
     &   22500,  22500, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd218/ 0, 255, 3, 614,428,  12190, -133459,   8,  -95000,
     &   12191,  12191, 0, 64, 0, 25000, 25000, 0, 0/
      DATA  grd219/ 0, 255, 5, 385,465,  25032, -119560,   0,  -80000,
     &   25400,  25400, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd220/ 0, 255, 5, 345,355, -36899, -220194,   0,  -80000,
     &   25400,  25400, 128, 64, 0, 0, 0, 0, 0/
      DATA  grd221/ 0, 255, 3, 349,277,   1000, -145500,   8, -107000,
     &   32463,  32463, 0, 64, 0, 50000, 50000, 0, 0/
      DATA  grd222/ 0, 255, 3, 138,112,  -4850, -151100,   8, -111000,
     &   88000,  88000, 0, 64, 0, 45000, 45000, 0, 0/
      DATA  grd223/ 0, 255, 5, 129,129, -20826, -150000,   8, -105000,
     &  190500, 190500, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd224/ 0, 255, 5,  65, 65,  20826,  120000,   8, -105000,
     &  381000, 381000, 128, 64, 0, 0, 0, 0, 0/
      DATA  grd225/ 0, 255, 1, 185,135, -25000, -250000, 128,   60640,
     & -109129, 80000, 80000, 20000, 64, 0, 0, 0, 0/
      DATA  grd226/ 0, 255, 3, 737,513,  12190, -133459,   8,  -95000,
     &   10159,  10159, 0, 64, 0, 25000, 25000, 0, 0/
      DATA  grd227/ 0, 255, 3,1473,1025,  12190, -133459,   8, -95000,
     &    5079,   5079, 0, 64, 0, 25000, 25000, 0, 0/
      DATA  grd228/ 0, 255, 0, 144, 73,  90000,       0, 128,  -90000,
     &   -2500,   2500, 2500, 64, 0, 0, 0, 0, 0/
      DATA  grd229/ 0, 255, 0, 360,181,  90000,       0, 128,  -90000,
     &   -1000,   1000, 1000, 64, 0, 0, 0, 0, 0/
      DATA  grd230/ 0, 255, 0, 720,361,  90000,       0, 128,  -90000,
     &    -500,    500,  500, 64, 0, 0, 0, 0, 0/
      DATA  grd231/ 0, 255, 0, 720,181,      0,       0, 128,   90000,
     &    -500,    500,  500, 64, 0, 0, 0, 0, 0/
      DATA  grd232/ 0, 255, 0, 360, 91,      0,       0, 128,   90000,
     &   -1000,   1000, 1000, 64, 0, 0, 0, 0, 0/
      DATA  grd233/ 0, 255, 0, 288,157,  78000,       0, 128,  -78000,
     &   -1250,   1000, 1250,  0, 0, 0, 0, 0, 0/
      DATA  grd234/ 0, 255, 0, 133,121,  15000,  -98000, 128,  -45000,
     &  -65000,    250,  250, 64, 0, 0, 0, 0, 0/
      DATA  grd235/ 0, 255, 0, 720,360,  89750,     250, 128,  -89750,
     &    -250,    500,  500,  0, 0, 0, 0, 0, 0/
      DATA  grd236/ 0, 255, 3, 151,113,  16281,  233862, 136,  -95000,
     &   40635,  40635, 0, 64, 0, 25000, 25000, -90000, 0/
      DATA  grd237/ 0, 255, 3,  54, 47,  16201,  285720,   8, -107000,
     &   32463,  32463, 0, 64, 0, 50000, 50000, 0, 0/
      DATA  grd238/ 0, 255, 0, 275, 203,  50250, 261750, 128,    -250,
     &   -29750, 250, 250,  0, 0, 0, 0, 0, 0/
      DATA  grd239/ 0, 255, 0, 155, 123, 75250,  159500, 128,   44750,
     &  -123500, 250, 500,  0, 0, 0, 0, 0, 0/
      DATA  grd240/ 0, 255, 5, 1121, 881, 23098, -119036,  8, -105000,
     &   4763,  4763, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd241/ 0, 255, 3, 549,445,  -4850, -151100,   8, -111000,
     &   22000,  22000, 0, 64, 0, 45000, 45000, 0, 0/
      DATA  grd242/ 0, 255, 5, 553,425,  30000, -173000,   8, -135000,
     &   11250,  11250, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd243/ 0, 255, 0, 126,101,  10000, -170000, 128,   50000,
     &  -120000, 400, 400, 64, 0, 0, 0, 0, 0/
      DATA  grd244/ 0, 255, 0, 275, 203,  50250, 261750, 128,    -250,
     &   -29750, 250,  250, 0, 0, 0, 0, 0, 0/
      DATA  grd245/ 0, 255, 3, 336,372,  22980, -92840,   8,   -80000,
     &   8000,  8000, 0, 64, 0, 35000, 35000, 0, 0/
      DATA  grd246/ 0, 255, 3, 332,371,  25970, -127973,  8,  -115000,
     &   8000,  8000, 0, 64, 0, 40000, 40000, 0, 0/
      DATA  grd247/ 0, 255, 3, 336,372,  22980, -110840,   8,  -98000,
     &   8000,  8000, 0, 64, 0, 35000, 35000, 0, 0/
      DATA  grd248/ 0, 255, 0, 135,101,  14500,  -71500, 128,   22000,
     &  -61450,    75,  75, 64, 0, 0, 0, 0, 0/
      DATA  grd249/ 0, 255, 5, 367,343,  45400, -171600,   8, -150000,
     &   9868,  9868, 0, 64, 0, 0, 0, 0, 0/
      DATA  grd250/ 0, 255, 0, 135,101,  16500, -162000, 128,   24000,
     & -151950,    75,  75, 64, 0, 0, 0, 0, 0/
      DATA  grd251/ 0, 255, 0, 332,210,  26350,  -83050, 128,   47250,
     &  -49950,    100,  100, 64, 0, 0, 0, 0, 0/
      DATA  grd252/ 0, 255, 3, 301,225,  16281, 233862,  8,   265000,
     &   20318,  20318, 0, 64, 0, 25000, 25000, 0, 0/
      DATA  grd253/ 0, 255, 0, 373,224,  60500,  189750, 128,    4750,
     &  -77250,   250, 250, 0, 0, 0, 0, 0, 0/
      DATA  grd254/ 0, 255, 1, 369,300, -35000, -250000, 128,   60789,
     & -109129, 40000,40000, 20000, 64, 0, 0, 0, 0/
C
      ierr = 0
C
        DO 1 i = 1,18
          igds(i) = 0
 1      CONTINUE
C
      IF (igrid.GE.37.AND.igrid.LE.44) THEN
        DO 2 i = 19,91
          igds(i) = 0
 2      CONTINUE
      END IF
C
      IF (igrid.GE.21.AND.igrid.LE.24) THEN
        DO i = 19,55
          igds(i) = 0
        END DO
      END IF
C
      IF (igrid.GE.25.AND.igrid.LE.26) THEN
        DO i = 19,37
          igds(i) = 0
        END DO
      END IF
C
      IF (igrid.GE.61.AND.igrid.LE.64) THEN
        DO i = 19,64
          igds(i) = 0
        END DO
      END IF
C
      IF (igrid.EQ.1) THEN
        DO 3 i = 1,18
          igds(i) = grd1(i)
  3     CONTINUE
C
      ELSE IF (igrid.EQ.2) THEN
        DO 4 i = 1,18
          igds(i) = grd2(i)
  4     CONTINUE
C
      ELSE IF (igrid.EQ.3) THEN
        DO 5 i = 1,18
          igds(i) = grd3(i)
  5     CONTINUE
C
      ELSE IF (igrid.EQ.4) THEN
        DO 6 i = 1,18
          igds(i) = grd4(i)
  6     CONTINUE
C
      ELSE IF (igrid.EQ.5) THEN
        DO 10 i = 1,18
          igds(i) = grd5(i)
 10     CONTINUE
C
      ELSE IF (igrid.EQ.6) THEN
        DO 20 i = 1,18
          igds(i) = grd6(i)
 20     CONTINUE
C
      ELSE IF (igrid.EQ.8) THEN
        DO i = 1,18
          igds(i) = grd8(i)
        END DO
C
      ELSE IF (igrid.EQ.10) THEN
        DO i = 1,18
          igds(i) = grd10(i)
        END DO
C
      ELSE IF (igrid.EQ.11) THEN
        DO i = 1,18
          igds(i) = grd11(i)
        END DO
C
      ELSE IF (igrid.EQ.12) THEN
        DO i = 1,18
          igds(i) = grd12(i)
        END DO
C
      ELSE IF (igrid.EQ.13) THEN
        DO i = 1,18
          igds(i) = grd13(i)
        END DO
C
      ELSE IF (igrid.EQ.14) THEN
        DO i = 1,18
          igds(i) = grd14(i)
        END DO
C
      ELSE IF (igrid.EQ.15) THEN
        DO i = 1,18
          igds(i) = grd15(i)
        END DO
C
      ELSE IF (igrid.EQ.16) THEN
        DO i = 1,18
          igds(i) = grd16(i)
        END DO
C
      ELSE IF (igrid.EQ.17) THEN
        DO i = 1,18
          igds(i) = grd17(i)
        END DO
C
      ELSE IF (igrid.EQ.18) THEN
        DO i = 1,18
          igds(i) = grd18(i)
        END DO
C
      ELSE IF (igrid.EQ.21) THEN
        DO 30 i = 1,55
          igds(i) = grd21(i)
 30     CONTINUE
C
      ELSE IF (igrid.EQ.22) THEN
        DO 40 i = 1,55
          igds(i) = grd22(i)
 40     CONTINUE
C
      ELSE IF (igrid.EQ.23) THEN
        DO 50 i = 1,55
          igds(i) = grd23(i)
 50     CONTINUE
C
      ELSE IF (igrid.EQ.24) THEN
        DO 60 i = 1,55
          igds(i) = grd24(i)
 60     CONTINUE
C
      ELSE IF (igrid.EQ.25) THEN
        DO 70 i = 1,37
          igds(i) = grd25(i)
 70     CONTINUE
C
      ELSE IF (igrid.EQ.26) THEN
        DO 80 i = 1,37
          igds(i) = grd26(i)
 80     CONTINUE
C
      ELSE IF (igrid.EQ.27) THEN
        DO 90 i = 1,18
          igds(i) = grd27(i)
 90     CONTINUE
C
      ELSE IF (igrid.EQ.28) THEN
        DO 100 i = 1,18
          igds(i) = grd28(i)
 100    CONTINUE
C
      ELSE IF (igrid.EQ.29) THEN
        DO 110 i = 1,18
          igds(i) = grd29(i)
 110    CONTINUE
C
      ELSE IF (igrid.EQ.30) THEN
        DO 120 i = 1,18
          igds(i) = grd30(i)
 120    CONTINUE
C
      ELSE IF (igrid.EQ.33) THEN
        DO 130 i = 1,18
          igds(i) = grd33(i)
 130     CONTINUE
C
      ELSE IF (igrid.EQ.34) THEN
        DO 140 i = 1,18
          igds(i) = grd34(i)
 140    CONTINUE
C
      ELSE IF (igrid.EQ.37) THEN
        DO 141 i = 1,91
          igds(i) = grd37(i)
 141    CONTINUE
C
      ELSE IF (igrid.EQ.38) THEN
        DO 142 i = 1,91
          igds(i) = grd38(i)
 142    CONTINUE
C
      ELSE IF (igrid.EQ.39) THEN
        DO 143 i = 1,91
          igds(i) = grd39(i)
 143    CONTINUE
C
      ELSE IF (igrid.EQ.40) THEN
        DO 144 i = 1,91
          igds(i) = grd40(i)
 144    CONTINUE
C
      ELSE IF (igrid.EQ.41) THEN
        DO 145 i = 1,91
          igds(i) = grd41(i)
 145    CONTINUE
C
      ELSE IF (igrid.EQ.42) THEN
        DO 146 i = 1,91
          igds(i) = grd42(i)
 146    CONTINUE
C
      ELSE IF (igrid.EQ.43) THEN
        DO 147 i = 1,91
          igds(i) = grd43(i)
 147    CONTINUE
C
      ELSE IF (igrid.EQ.44) THEN
        DO 148 i = 1,91
          igds(i) = grd44(i)
 148    CONTINUE
C
      ELSE IF (igrid.EQ.45) THEN
        DO 149 i = 1,18
          igds(i) = grd45(i)
 149    CONTINUE
C
      ELSE IF (igrid.EQ.53) THEN
        DO i = 1,18
          igds(i) = grd53(i)
        END DO
C
      ELSE IF (igrid.EQ.55) THEN
        DO 152 i = 1,18
          igds(i) = grd55(i)
 152    CONTINUE
C
      ELSE IF (igrid.EQ.56) THEN
        DO 154 i = 1,18
          igds(i) = grd56(i)
 154    CONTINUE
C
      ELSE IF (igrid.EQ.61) THEN
        DO 160 i = 1,64
          igds(i) = grd61(i)
 160    CONTINUE
C
      ELSE IF (igrid.EQ.62) THEN
        DO 170 i = 1,64
          igds(i) = grd62(i)
 170    CONTINUE
C
      ELSE IF (igrid.EQ.63) THEN
        DO 180 i = 1,64
          igds(i) = grd63(i)
 180    CONTINUE
C
      ELSE IF (igrid.EQ.64) THEN
        DO 190 i = 1,64
          igds(i) = grd64(i)
 190    CONTINUE
C
      ELSE IF (igrid.EQ.83) THEN
        DO i = 1,18
          igds(i) = grd83(i)
        ENDDO
C
      ELSE IF (igrid.EQ.85) THEN
        DO 192 i = 1,18
          igds(i) = grd85(i)
 192    CONTINUE
C
      ELSE IF (igrid.EQ.86) THEN
        DO 194 i = 1,18
          igds(i) = grd86(i)
 194    CONTINUE
C
      ELSE IF (igrid.EQ.87) THEN
        DO 195 i = 1,18
          igds(i) = grd87(i)
 195    CONTINUE
C
      ELSE IF (igrid.EQ.88) THEN
        DO 2195 i = 1,18
          igds(i) = grd88(i)
2195    CONTINUE
C
      ELSE IF (igrid.EQ.90) THEN
        DO 196 i = 1,18
          igds(i) = grd90(i)
 196    CONTINUE
C
      ELSE IF (igrid.EQ.91) THEN
        DO 197 i = 1,18
          igds(i) = grd91(i)
 197    CONTINUE
C
      ELSE IF (igrid.EQ.92) THEN
        DO 198 i = 1,18
          igds(i) = grd92(i)
 198    CONTINUE
C
      ELSE IF (igrid.EQ.93) THEN
        DO 199 i = 1,18
          igds(i) = grd93(i)
 199    CONTINUE
C
      ELSE IF (igrid.EQ.94) THEN
        DO 200 i = 1,18
          igds(i) = grd94(i)
 200    CONTINUE
C
      ELSE IF (igrid.EQ.95) THEN
        DO 201 i = 1,18
          igds(i) = grd95(i)
 201    CONTINUE
C
      ELSE IF (igrid.EQ.96) THEN
        DO 202 i = 1,18
          igds(i) = grd96(i)
 202    CONTINUE
C
      ELSE IF (igrid.EQ.97) THEN
        DO 203 i = 1,18
          igds(i) = grd97(i)
 203    CONTINUE
C
      ELSE IF (igrid.EQ.98) THEN
        DO 204 i = 1,18
          igds(i) = grd98(i)
 204    CONTINUE
C
      ELSE IF (igrid.EQ.99) THEN
        DO i = 1,18
          igds(i) = grd99(i)
        ENDDO
C
      ELSE IF (igrid.EQ.100) THEN
        DO 205 i = 1,18
          igds(i) = grd100(i)
 205    CONTINUE
C
      ELSE IF (igrid.EQ.101) THEN
        DO 210 i = 1,18
          igds(i) = grd101(i)
 210    CONTINUE
C
      ELSE IF (igrid.EQ.103) THEN
        DO 220 i = 1,18
          igds(i) = grd103(i)
 220   CONTINUE
C
      ELSE IF (igrid.EQ.104) THEN
        DO 230 i = 1,18
          igds(i) = grd104(i)
 230    CONTINUE
C
      ELSE IF (igrid.EQ.105) THEN
        DO 240 i = 1,18
          igds(i) = grd105(i)
 240    CONTINUE
C
      ELSE IF (igrid.EQ.106) THEN
        DO 242 i = 1,18
          igds(i) = grd106(i)
 242    CONTINUE
C
      ELSE IF (igrid.EQ.107) THEN
        DO 244 i = 1,18
          igds(i) = grd107(i)
 244    CONTINUE
C
      ELSE IF (igrid.EQ.110) THEN
        DO i = 1,18
          igds(i) = grd110(i)
        ENDDO
C
      ELSE IF (igrid.EQ.120) THEN
        DO i = 1,18
          igds(i) = grd120(i)
        ENDDO
C
      ELSE IF (igrid.EQ.122) THEN
        DO i = 1,18
          igds(i) = grd122(i)
        ENDDO
C
      ELSE IF (igrid.EQ.123) THEN
        DO i = 1,18
          igds(i) = grd123(i)
        ENDDO
C
      ELSE IF (igrid.EQ.124) THEN
        DO i = 1,18
          igds(i) = grd124(i)
        ENDDO
C
      ELSE IF (igrid.EQ.125) THEN
        DO i = 1,18
          igds(i) = grd125(i)
        ENDDO
C
      ELSE IF (igrid.EQ.126) THEN
        DO 245 i = 1,18
          igds(i) = grd126(i)
 245    CONTINUE
C
      ELSE IF (igrid.EQ.127) THEN
        DO i = 1,18
          igds(i) = grd127(i)
        ENDDO
C
      ELSE IF (igrid.EQ.128) THEN
        DO i = 1,18
          igds(i) = grd128(i)
        ENDDO
C
      ELSE IF (igrid.EQ.129) THEN
        DO i = 1,18
          igds(i) = grd129(i)
        ENDDO
C
      ELSE IF (igrid.EQ.130) THEN
        DO i = 1,18
          igds(i) = grd130(i)
        ENDDO
C
      ELSE IF (igrid.EQ.132) THEN
        DO i = 1,18
          igds(i) = grd132(i)
        ENDDO
C
      ELSE IF (igrid.EQ.138) THEN
        DO i = 1,18
          igds(i) = grd138(i)
        ENDDO
C
      ELSE IF (igrid.EQ.139) THEN
        DO i = 1,18
          igds(i) = grd139(i)
        ENDDO
C
      ELSE IF (igrid.EQ.140) THEN
        DO i = 1,18
          igds(i) = grd140(i)
        ENDDO
C
      ELSE IF (igrid.EQ.145) THEN
        DO i = 1,18
          igds(i) = grd145(i)
        ENDDO
C
      ELSE IF (igrid.EQ.146) THEN
        DO i = 1,18
          igds(i) = grd146(i)
        ENDDO
C
      ELSE IF (igrid.EQ.147) THEN
        DO i = 1,18
          igds(i) = grd147(i)
        ENDDO
C
      ELSE IF (igrid.EQ.148) THEN
        DO i = 1,18
          igds(i) = grd148(i)
        ENDDO
C
      ELSE IF (igrid.EQ.150) THEN
        DO i = 1,18
          igds(i) = grd150(i)
        ENDDO
C
      ELSE IF (igrid.EQ.151) THEN
        DO i = 1,18
          igds(i) = grd151(i)
        ENDDO
C
      ELSE IF (igrid.EQ.160) THEN
        DO i = 1,18
          igds(i) = grd160(i)
        ENDDO
C
      ELSE IF (igrid.EQ.161) THEN
        DO i = 1,18
          igds(i) = grd161(i)
        ENDDO
      ELSE IF (igrid.EQ.163) THEN
        DO i = 1,18
          igds(i) = grd163(i)
        ENDDO
C
      ELSE IF (igrid.EQ.170) THEN
        DO i = 1,18
          igds(i) = grd170(i)
        ENDDO
C
      ELSE IF (igrid.EQ.171) THEN
        DO i = 1,18
          igds(i) = grd171(i)
        ENDDO
C
      ELSE IF (igrid.EQ.172) THEN
        DO i = 1,18
          igds(i) = grd172(i)
        ENDDO
C
      ELSE IF (igrid.EQ.173) THEN
        DO i = 1,18
          igds(i) = grd173(i)
        ENDDO
C
      ELSE IF (igrid.EQ.174) THEN
        DO i = 1,18
          igds(i) = grd174(i)
        ENDDO
C
      ELSE IF (igrid.EQ.175) THEN
        DO i = 1,18
          igds(i) = grd175(i)
        ENDDO
C
      ELSE IF (igrid.EQ.176) THEN
        DO i = 1,18
          igds(i) = grd176(i)
        ENDDO
C
      ELSE IF (igrid.EQ.179) THEN
        DO i = 1,18
          igds(i) = grd179(i)
        ENDDO
C
      ELSE IF (igrid.EQ.180) THEN
        DO i = 1,18
          igds(i) = grd180(i)
        ENDDO
C
      ELSE IF (igrid.EQ.181) THEN
        DO i = 1,18
          igds(i) = grd181(i)
        ENDDO
C
      ELSE IF (igrid.EQ.182) THEN
        DO i = 1,18
          igds(i) = grd182(i)
        ENDDO
C
      ELSE IF (igrid.EQ.183) THEN
        DO i = 1,18
          igds(i) = grd183(i)
        ENDDO
C
      ELSE IF (igrid.EQ.184) THEN
        DO i = 1,18
          igds(i) = grd184(i)
        ENDDO
C
      ELSE IF (igrid.EQ.187) THEN
        DO i = 1,18
          igds(i) = grd187(i)
        ENDDO
C
      ELSE IF (igrid.EQ.188) THEN
        DO i = 1,18
          igds(i) = grd188(i)
        ENDDO
C
      ELSE IF (igrid.EQ.189) THEN
        DO i = 1,18
          igds(i) = grd189(i)
        ENDDO
C
      ELSE IF (igrid.EQ.190) THEN
        DO 2190 i = 1,18
          igds(i) = grd190(i)
 2190   CONTINUE
C
      ELSE IF (igrid.EQ.192) THEN
        DO 2191 i = 1,18
          igds(i) = grd192(i)
 2191   CONTINUE
C
      ELSE IF (igrid.EQ.193) THEN
        DO i = 1,18
          igds(i) = grd193(i)
        END DO
C
      ELSE IF (igrid.EQ.194) THEN
        DO 2192 i = 1,18
          igds(i) = grd194(i)
 2192   CONTINUE
C
      ELSE IF (igrid.EQ.195) THEN
        DO i = 1,18
          igds(i) = grd195(i)
        END DO
C
      ELSE IF (igrid.EQ.196) THEN
        DO 249 i = 1,18
          igds(i) = grd196(i)
 249    CONTINUE
C
      ELSE IF (igrid.EQ.197) THEN
        DO i = 1,18
          igds(i) = grd197(i)
        END DO
C
      ELSE IF (igrid.EQ.198) THEN
        DO 2490 i = 1,18
          igds(i) = grd198(i)
 2490   CONTINUE
C
      ELSE IF (igrid.EQ.199) THEN
        DO i = 1,18
          igds(i) = grd199(i)
        END DO
C
      ELSE IF (igrid.EQ.200) THEN
        DO i = 1,18
          igds(i) = grd200(i)
        END DO
C
      ELSE IF (igrid.EQ.201) THEN
        DO 250 i = 1,18
          igds(i) = grd201(i)
 250    CONTINUE
C
      ELSE IF (igrid.EQ.202) THEN
        DO 260 i = 1,18
          igds(i) = grd202(i)
 260    CONTINUE
C
      ELSE IF (igrid.EQ.203) THEN
        DO 270 i = 1,18
          igds(i) = grd203(i)
 270    CONTINUE
C
      ELSE IF (igrid.EQ.204) THEN
        DO 280 i = 1,18
          igds(i) = grd204(i)
 280    CONTINUE
C
      ELSE IF (igrid.EQ.205) THEN
        DO 290 i = 1,18
          igds(i) = grd205(i)
 290    CONTINUE
C
      ELSE IF (igrid.EQ.206) THEN
        DO 300 i = 1,18
          igds(i) = grd206(i)
 300    CONTINUE
C
      ELSE IF (igrid.EQ.207) THEN
        DO 310 i = 1,18
          igds(i) = grd207(i)
 310    CONTINUE
C
      ELSE IF (igrid.EQ.208) THEN
        DO 320 i = 1,18
          igds(i) = grd208(i)
 320    CONTINUE
C
      ELSE IF (igrid.EQ.209) THEN
        DO 330 i = 1,18
          igds(i) = grd209(i)
 330    CONTINUE
C
      ELSE IF (igrid.EQ.210) THEN
        DO 340 i = 1,18
          igds(i) = grd210(i)
 340    CONTINUE
C
      ELSE IF (igrid.EQ.211) THEN
        DO 350 i = 1,18
          igds(i) = grd211(i)
 350    CONTINUE
C
      ELSE IF (igrid.EQ.212) THEN
        DO 360 i = 1,18
          igds(i) = grd212(i)
 360    CONTINUE
C
      ELSE IF (igrid.EQ.213) THEN
        DO 370 i = 1,18
          igds(i) = grd213(i)
 370    CONTINUE
C
      ELSE IF (igrid.EQ.214) THEN
        DO 380 i = 1,18
          igds(i) = grd214(i)
 380    CONTINUE
C
      ELSE IF (igrid.EQ.215) THEN
        DO 390 i = 1,18
          igds(i) = grd215(i)
 390    CONTINUE
C
      ELSE IF (igrid.EQ.216) THEN
        DO 400 i = 1,18
          igds(i) = grd216(i)
 400    CONTINUE
C
      ELSE IF (igrid.EQ.217) THEN
        DO 401 i = 1,18
          igds(i) = grd217(i)
 401    CONTINUE
C
      ELSE IF (igrid.EQ.218) THEN
        DO 410 i = 1,18
          igds(i) = grd218(i)
 410    CONTINUE
C
      ELSE IF (igrid.EQ.219) THEN
        DO 411 i = 1,18
          igds(i) = grd219(i)
 411    CONTINUE
C
      ELSE IF (igrid.EQ.220) THEN
        DO 412 i = 1,18
          igds(i) = grd220(i)
 412    CONTINUE
C
      ELSE IF (igrid.EQ.221) THEN
        DO 413 i = 1,18
          igds(i) = grd221(i)
 413    CONTINUE
C
      ELSE IF (igrid.EQ.222) THEN
        DO 414 i = 1,18
          igds(i) = grd222(i)
 414    CONTINUE
C
      ELSE IF (igrid.EQ.223) THEN
        DO 415 i = 1,18
          igds(i) = grd223(i)
 415    CONTINUE
C
      ELSE IF (igrid.EQ.224) THEN
        DO 416 i = 1,18
          igds(i) = grd224(i)
 416    CONTINUE
C
      ELSE IF (igrid.EQ.225) THEN
        DO 417 i = 1,18
          igds(i) = grd225(i)
 417    CONTINUE
C
      ELSE IF (igrid.EQ.226) THEN
        DO 418 i = 1,18
          igds(i) = grd226(i)
 418    CONTINUE
C
      ELSE IF (igrid.EQ.227) THEN
        DO 419 i = 1,18
          igds(i) = grd227(i)
 419    CONTINUE
C
      ELSE IF (igrid.EQ.228) THEN
        DO 420 i = 1,18
          igds(i) = grd228(i)
 420    CONTINUE
C
      ELSE IF (igrid.EQ.229) THEN
        DO 421 i = 1,18
          igds(i) = grd229(i)
 421    CONTINUE
C
      ELSE IF (igrid.EQ.230) THEN
        DO 422 i = 1,18
          igds(i) = grd230(i)
 422    CONTINUE
C
      ELSE IF (igrid.EQ.231) THEN
        DO 423 i = 1,18
          igds(i) = grd231(i)
 423    CONTINUE
C
      ELSE IF (igrid.EQ.232) THEN
        DO 424 i = 1,18
          igds(i) = grd232(i)
 424    CONTINUE
C
      ELSE IF (igrid.EQ.233) THEN
        DO 425 i = 1,18
          igds(i) = grd233(i)
 425    CONTINUE
C
      ELSE IF (igrid.EQ.234) THEN
        DO 426 i = 1,18
          igds(i) = grd234(i)
 426    CONTINUE
C
      ELSE IF (igrid.EQ.235) THEN
        DO 427 i = 1,18
          igds(i) = grd235(i)
 427    CONTINUE
C
      ELSE IF (igrid.EQ.236) THEN
        DO 428 i = 1,18
          igds(i) = grd236(i)
 428    CONTINUE
C
      ELSE IF (igrid.EQ.237) THEN
        DO 429 i = 1,18
          igds(i) = grd237(i)
 429    CONTINUE
C
      ELSE IF (igrid.EQ.238) THEN
        DO i = 1,18
          igds(i) = grd238(i)
        END DO
C
      ELSE IF (igrid.EQ.239) THEN
        DO i = 1,18
          igds(i) = grd239(i)
        END DO
C
      ELSE IF (igrid.EQ.240) THEN
        DO i = 1,18
          igds(i) = grd240(i)
        END DO
C
      ELSE IF (igrid.EQ.241) THEN
        DO 430 i = 1,18
          igds(i) = grd241(i)
 430    CONTINUE
C
      ELSE IF (igrid.EQ.242) THEN
        DO 431 i = 1,18
          igds(i) = grd242(i)
 431    CONTINUE
C
      ELSE IF (igrid.EQ.243) THEN
        DO 432 i = 1,18
          igds(i) = grd243(i)
 432    CONTINUE
C
      ELSE IF (igrid.EQ.244) THEN
        DO i = 1,18
          igds(i) = grd244(i)
        END DO
C
      ELSE IF (igrid.EQ.245) THEN
        DO 433 i = 1,18
          igds(i) = grd245(i)
 433    CONTINUE
C
      ELSE IF (igrid.EQ.246) THEN
        DO 434 i = 1,18
          igds(i) = grd246(i)
 434    CONTINUE
C
      ELSE IF (igrid.EQ.247) THEN
        DO 435 i = 1,18
          igds(i) = grd247(i)
 435    CONTINUE
C
      ELSE IF (igrid.EQ.248) THEN
        DO 436 i = 1,18
          igds(i) = grd248(i)
 436    CONTINUE
C
      ELSE IF (igrid.EQ.249) THEN
        DO 437 i = 1,18
          igds(i) = grd249(i)
 437    CONTINUE
C
      ELSE IF (igrid.EQ.250) THEN
        DO 438 i = 1,18
          igds(i) = grd250(i)
 438    CONTINUE
C
      ELSE IF (igrid.EQ.251) THEN
        DO 439 i = 1,18
          igds(i) = grd251(i)
 439    CONTINUE
C
      ELSE IF (igrid.EQ.252) THEN
        DO 440 i = 1,18
          igds(i) = grd252(i)
 440    CONTINUE
      ELSE IF (igrid.EQ.253) THEN
        DO 441 i = 1,18
          igds(i) = grd253(i)
 441    CONTINUE
      ELSE IF (igrid.EQ.254) THEN
        DO 442 i = 1,18
          igds(i) = grd254(i)
 442    CONTINUE
C
      ELSE
        ierr = 1
      ENDIF
C
      RETURN
      END