ungrib/src/ngl/w3/w3fi71.f

   1       SUBROUTINE W3FI71 (IGRID, IGDS, IERR)
   2 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   3 C                .      .    .                                       .
   4 C SUBPROGRAM:    W3FI71      MAKE ARRAY USED BY GRIB PACKER FOR GDS
   5 C   PRGMMR: R.E.JONES        ORG: W/NMC42    DATE: 93-03-26
   6 C
   7 C ABSTRACT: W3FI71 MAKES A 18, 37, 55, 64, OR 91 WORD INTEGER ARRAY
   8 C     USED BY W3FI72 GRIB PACKER TO MAKE THE GRID DESCRIPTION SECTION
   9 C     (GDS) - SECTION 2.
  10 C
  11 C PROGRAM HISTORY LOG:
  12 C   92-02-21  R.E.JONES
  13 C   92-07-01  M. FARLEY    ADDED REMARKS FOR 'IGDS' ARRAY ELEMENTS.
  14 C                          ADDED LAMBERT CONFORMAL GRIDS AND ENLARGED
  15 C                          IDGS ARRAY FROM 14 TO 18 WORDS.
  16 C   92-10-03  R.E.JONES    ADDED CORRECTIONS TO AWIPS GRIB TABLES
  17 C   92-10-16  R.E.JONES    ADD GAUSSIAN GRID 126 TO TABLES
  18 C   92-10-18  R.E.JONES    CORRECTIONS TO LAMBERT CONFORMAL TABLES
  19 C                          AND OTHER TABLES
  20 C   92-10-19  R.E.JONES    ADD GAUSSIAN GRID  98 TO TABLES
  21 C   93-01-25  R.E.JONES    ADD ON84 GRIDS 87, 106, 107 TO TABLES
  22 C   93-03-10  R.E.JONES    ADD ON84 GRIDS 1, 55, 56 TO TABLES
  23 C   93-03-26  R.E.JONES    ADD GRIB GRIDS 2, 3 TO TABLES
  24 C   93-03-29  R.E.JONES    ADD SAVE STATEMENT
  25 C   93-06-15  R.E.JONES    ADD GRIB GRIDS 37 TO 44 TO TABLES
  26 C   93-09-29  R.E.JONES    GAUSSIAN GRID DOCUMENT NOT CORRECT,
  27 C                          W3FI74 WILL BE CHANGED TO AGREE WITH
  28 C                          IT. GAUSSIAN GRID 98 TABLE HAS WRONG
  29 C                          VALUE.
  30 C   93-10-12  R.E.JONES    CHANGES FOR ON388 REV. OCT 8,1993 FOR
  31 C                          GRID 204, 208.
  32 C   93-10-13  R.E.JONES    CORRECTION FOR GRIDS 37-44, BYTES 7-8,
  33 C                          24-25 SET TO ALL BITS 1 FOR MISSING.
  34 C   93-11-23  R.E.JONES    ADD GRIDS 90-93 FOR ETA MODEL
  35 C                          ADD GRID 4 FOR 720*361 .5 DEG. GRID
  36 C   94-04-12  R.E.JONES    CORRECTION FOR GRID 28
  37 C   94-06-01  R.E.JONES    ADD GRID 45, 288*145 1.25 DEG. GRID
  38 C   94-06-22  R.E.JONES    ADD GRIDS 94, 95 FOR ETA MODEL
  39 C   95-04-11  R.E.JONES    ADD GRIDS 96, 97 FOR ETA MODEL
  40 C   95-05-19  R.E.JONES    ADD FROM 20 KM ETA MODEL AWIPS GRID 215
  41 C   95-10-19  R.E.JONES    ADD FROM 20 KM ETA MODEL ALASKA GRID 216
  42 C   95-10-31  IREDELL      REMOVED SAVES AND PRINTS
  43 C   96-05-08  IREDELL      CORRECT FIRST LATITUDE FOR GRIDS 27 AND 28
  44 C   96-07-02  R.E.JONES    ADD FROM 10 KM ETA MODEL OLYMPIC GRID 218
  45 C   96-07-02  R.E.JONES    ADD 196 FOR ETA MODEL
  46 C   96-08-15  R.E.JONES    ADD O.N. 84 GRID 8 AND 53 AS GRIB GRID 8
  47 C                          AND 53
  48 C   96-11-29  R.E.JONES    CORRECTION TO TABLES FOR GRID 21-26, 61-64
  49 C   97-01-31  IREDELL      CORRECT FIRST LATITUDE FOR GRID 30
  50 C   97-10-20  IREDELL      CORRECT LAST LONGITUDE FOR GRID 98
  51 C   98-07-07  Gilbert      Add grids 217 and 219 through 235
  52 C   98-09-21  BALDWIN      ADD GRIDS 190, 192 FOR ETA MODEL
  53 C   99-01-20  BALDWIN      ADD GRIDS 236, 237
  54 C   99-08-18  IREDELL      ADD GRID 170
  55 C   01-03-08  ROGERS       CHANGED ETA GRIDS 90-97, ADDED ETA GRIDS
  56 C                          194, 198. ADDED AWIPS GRIDS 241,242,243,
  57 C                          245, 246, 247, 248, AND 250
  58 C   01-03-19  VUONG        ADDED AWIPS GRIDS 238,239,240, AND 244
  59 C   01-04-02  VUONG        CORRECT LAST LONGITUDE FOR GRID 225
  60 C   01-05-03  ROGERS       ADDED GRID 249
  61 C   01-10-10  ROGERS       REDEFINED 218 FOR 12-KM ETA
  62 C                          REDEFINED GRID 192 FOR NEW 32-KM ETA GRID
  63 C   02-03-27  VUONG        ADDED RSAS GRID 88 AND AWIPS GRIDS 251 AND 252
  64 C   02-08-06  ROGERS       REDEFINED GRIDS 90-93,97,194,245-250 FOR THE
  65 C                          8KM HI-RES-WINDOW MODEL AND ADD AWIPS GRID 253
  66 C 2003-06-30  GILBERT      ADDED GRIDS 145 and 146 for CMAQ
  67 C                          and GRID 175 for AWIPS over GUAM.
  68 C 2003-07-08  VUONG        CORRECTED LATITUDE FOR GRID 253 AND 170, ADD GRID
  69 C                          110, 127, 171 AND 172
  70 C 2004-08-05  VUONG        CORRECTED LATITUDE FOR GRID 253
  71 C 2004-09-01  GILBERT      Corrected the orientation and projection center flag
  72 C                          for southern hemisphere grids 28, 172, 220 and 224
  73 C 2004-09-02  VUONG        ADDED GRIDS 147, 148, 173 AND 254
  74 C 2005-01-04  COOKE        Added grids 160, 161 and corrected longitude of orientation for grid 172
  75 C 2005-03-03  VUONG        MOVED GRID 170 TO GRID 174 AND ADD GRID 170
  76 C 2005-03-21  VUONG        ADDED GRIDS 130
  77 C 2005-09-12  VUONG        ADDED GRIDS 163
  78 C 2006-10-27  VUONG        CORRECTED X AND Y-DIRECTION GRID LENGTH FOR GRIDS 252
  79 C 2006-11-16  VUONG        CHANGED THE LONGITUDE FROM NEGATIVE TO POSITIVE DEGREE FOR GRIDS 252
  80 C 2006-12-12  VUONG        CHANGED DATA REPRESENTATION TYPE (OCTET 6) FROM 0 TO 1 FOR GRID 254
  81 C                          ADD GRID 120 (CURVILINEAR ORTHOGONAL GRID)
  82 C 2006-12-27  VUONG        CORRECTED THE LAT/LON DIRECTION INCREMENT FOR GRID 160
  83 C 2007-03-21  VUONG        CORRECTED THE LAT/LON DIRECTION INCREMENT, RESOULUTION,
  84 C                          SCANNING MODE FOR GRID 235 AND GRID TYPE 204 FOR GRID 120
  85 C 2007-04-24  VUONG        CORRECTED THE LAT/LON DIRECTION INCREMENT, RESOULUTION,
  86 C                          FOR GRIDS (219,173,220,171,233,238,239,244,253) AND ADDED
  87 C                          GRID 176.
  88 C 2007-06-11  VUONG        ADDED NEW GRIDS (11,12,13,14,15,16,18,122,123,124,125,138
  89 C                          180, 181, 182, 183) AND CORRECTED THE LAT/LON DIRECTION
  90 C                          INCREMENT FOR GRID 240.
  91 C 2007-11-06  VUONG        CORRECTED THE SCANNING MODE FOR GRIDS (11,12,13,14,15,16,18)
  92 C                          CHANGED GRID 198 FROM ARAKAWA STAGGERED E-GRID TO POLAR
  93 C                          STEREOGRAPHIC GRID ADDED NEW GRID 10, 99, 150, 151, 197
  94 C 2008-01-17  VUONG        ADDED NEW GRID 195 AND CHANGED GRID 196 (ARAKAWA-E TO MERCATOR)
  95 C 2010-02-15  VUONG        MODIFIED TO CORRECT LATITUDE FOR GRID 151 AND ADDED
  96 C 2010-06-01  VUONG        MODIFIED TO CORRECT LATITUDE AND LONGITUDE FOR GRID 196
  97 C 2010-08-05  VUONG        ADDED NEW GRID 184, 199, 83 AND
  98 C                          REDEFINED GRID 90 FOR NEW RTMA CONUS 1.27-KM
  99 C                          REDEFINED GRID 91 FOR NEW RTMA ALASKA 2.976-KM
 100 C                          REDEFINED GRID 92 FOR NEW RTMA ALASKA 1.488-KM
 101 C 2010-09-08  ROGERS       CHANGED GRID 94 TO ALASKA 6KM STAGGERED B-GRID
 102 C                          CHANGED GRID 95 TO PUERTO RICO 3KM STAGGERED B-GRID
 103 C                          CHANGED GRID 96 TO HAWAII 3KM STAGGERED B-GRID
 104 C                          CHANGED GRID 96 TO HAWAII 3KM STAGGERED B-GRID
 105 C                          CHANGED GRID 97 TO CONUS 4KM STAGGERED B-GRID
 106 C                          CHANGED GRID 99 TO NAM 12KM STAGGERED B-GRID
 107 C                          ADDED GRID 179 (12 KM POLAR STEREOGRAPHIC OVER NORTH AMERICA)
 108 C                          CHANGED GRID 194 TO 3KM MERCATOR GRID OVER PUERTO RICO
 109 C                          CORRECTED LATITUDE OF SW CORNER POINT OF GRID 151
 110 C 2011-10-12  VUONG        ADDED GRID 129, 187, 188, 189 and 193
 111 C
 112 C USAGE:    CALL W3FI71 (IGRID, IGDS, IERR)
 113 C   INPUT ARGUMENT LIST:
 114 C     IGRID       - GRIB GRID NUMBER, OR OFFICE NOTE 84 GRID NUMBER
 115 C
 116 C   OUTPUT ARGUMENT LIST:
 117 C     IGDS      - 18, 37, 55, 64, OR 91 WORD INTEGER ARRAY WITH
 118 C                 INFORMATION TO MAKE A GRIB GRID DESCRIPTION SECTION.
 119 C     IERR       - 0  CORRECT EXIT
 120 C                  1  GRID TYPE IN IGRID IS NOT IN TABLE
 121 C
 122 C REMARKS:
 123 C    1) OFFICE NOTE GRID TYPE 26 IS 6 IN GRIB, 26 IS AN
 124 C       INTERNATIONAL EXCHANGE GRID.
 125 C
 126 C    2) VALUES RETURNED IN 18, 37, 55, 64, OR 91 WORD INTEGER ARRAY
 127 C        IGDS VARY DEPENDING ON GRID REPRESENTATION TYPE.
 128 C
 129 C       LAT/LON GRID:
 130 C           IGDS( 1) = NUMBER OF VERTICAL COORDINATES
 131 C           IGDS( 2) = PV, PL OR 255
 132 C           IGDS( 3) = DATA REPRESENTATION TYPE (CODE TABLE 6)
 133 C           IGDS( 4) = NO. OF POINTS ALONG A LATITUDE
 134 C           IGDS( 5) = NO. OF POINTS ALONG A LONGITUDE MERIDIAN
 135 C           IGDS( 6) = LATITUDE OF ORIGIN (SOUTH - IVE)
 136 C           IGDS( 7) = LONGITUDE OF ORIGIN (WEST -IVE)
 137 C           IGDS( 8) = RESOLUTION FLAG (CODE TABLE 7)
 138 C           IGDS( 9) = LATITUDE OF EXTREME POINT (SOUTH - IVE)
 139 C           IGDS(10) = LONGITUDE OF EXTREME POINT (WEST - IVE)
 140 C           IGDS(11) = LATITUDE INCREMENT
 141 C           IGDS(12) = LONGITUDE INCREMENT
 142 C           IGDS(13) = SCANNING MODE FLAGS (CODE TABLE 8)
 143 C           IGDS(14) = ... THROUGH ...
 144 C           IGDS(18) =   ... NOT USED FOR THIS GRID
 145 C           IGDS(19) - IGDS(91) FOR GRIDS 37-44, NUMBER OF POINTS
 146 C                      IN EACH OF 73 ROWS.
 147 C
 148 C       GAUSSIAN GRID:
 149 C           IGDS( 1) = ... THROUGH ...
 150 C           IGDS(10) =   ... SAME AS LAT/LON GRID
 151 C           IGDS(11) = NUMBER OF LATITUDE LINES BETWEEN A POLE
 152 C                      AND THE EQUATOR
 153 C           IGDS(12) = LONGITUDE INCREMENT
 154 C           IGDS(13) = SCANNING MODE FLAGS (CODE TABLE 8)
 155 C           IGDS(14) = ... THROUGH ...
 156 C           IGDS(18) =   ... NOT USED FOR THIS GRID
 157 C
 158 C       SPHERICAL HARMONICS:
 159 C           IGDS( 1) = NUMBER OF VERTICAL COORDINATES
 160 C           IGDS( 2) = PV, PL OR 255
 161 C           IGDS( 3) = DATA REPRESENTATION TYPE (CODE TABLE 6)
 162 C           IGDS( 4) = J - PENTAGONAL RESOLUTION PARAMETER
 163 C           IGDS( 5) = K - PENTAGONAL RESOLUTION PARAMETER
 164 C           IGDS( 6) = M - PENTAGONAL RESOLUTION PARAMETER
 165 C           IGDS( 7) = REPRESENTATION TYPE (CODE TABLE 9)
 166 C           IGDS( 8) = REPRESENTATION MODE (CODE TABLE 10)
 167 C           IGDS( 9) = ... THROUGH ...
 168 C           IGDS(18) =   ... NOT USED FOR THIS GRID
 169 C
 170 C       POLAR STEREOGRAPHIC:
 171 C           IGDS( 1) = NUMBER OF VERTICAL COORDINATES
 172 C           IGDS( 2) = PV, PL OR 255
 173 C           IGDS( 3) = DATA REPRESENTATION TYPE (CODE TABLE 6)
 174 C           IGDS( 4) = NO. OF POINTS ALONG X-AXIS
 175 C           IGDS( 5) = NO. OF POINTS ALONG Y-AXIS
 176 C           IGDS( 6) = LATITUDE OF ORIGIN (SOUTH -IVE)
 177 C           IGDS( 7) = LONGITUTE OF ORIGIN (WEST -IVE)
 178 C           IGDS( 8) = RESOLUTION FLAG (CODE TABLE 7)
 179 C           IGDS( 9) = LONGITUDE OF MERIDIAN PARALLEL TO Y-AXIS
 180 C           IGDS(10) = X-DIRECTION GRID LENGTH (INCREMENT)
 181 C           IGDS(11) = Y-DIRECTION GRID LENGTH (INCREMENT)
 182 C           IGDS(12) = PROJECTION CENTER FLAG (0=NORTH POLE ON PLANE,
 183 C                                              1=SOUTH POLE ON PLANE,
 184 C           IGDS(13) = SCANNING MODE FLAGS (CODE TABLE 8)
 185 C           IGDS(14) = ... THROUGH ...
 186 C           IGDS(18) =   .. NOT USED FOR THIS GRID
 187 C
 188 C       MERCATOR:
 189 C           IGDS( 1) = ... THROUGH ...
 190 C           IGDS(12) =   ... SAME AS LAT/LON GRID
 191 C           IGDS(13) = LATITUDE AT WHICH PROJECTION CYLINDER
 192 C                        INTERSECTS EARTH
 193 C           IGDS(14) = SCANNING MODE FLAGS
 194 C           IGDS(15) = ... THROUGH ...
 195 C           IGDS(18) =   .. NOT USED FOR THIS GRID
 196 C
 197 C       LAMBERT CONFORMAL:
 198 C           IGDS( 1) = NUMBER OF VERTICAL COORDINATES
 199 C           IGDS( 2) = PV, PL OR 255
 200 C           IGDS( 3) = DATA REPRESENTATION TYPE (CODE TABLE 6)
 201 C           IGDS( 4) = NO. OF POINTS ALONG X-AXIS
 202 C           IGDS( 5) = NO. OF POINTS ALONG Y-AXIS
 203 C           IGDS( 6) = LATITUDE OF ORIGIN (SOUTH -IVE)
 204 C           IGDS( 7) = LONGITUTE OF ORIGIN (WEST -IVE)
 205 C           IGDS( 8) = RESOLUTION FLAG (CODE TABLE 7)
 206 C           IGDS( 9) = LONGITUDE OF MERIDIAN PARALLEL TO Y-AXIS
 207 C           IGDS(10) = X-DIRECTION GRID LENGTH (INCREMENT)
 208 C           IGDS(11) = Y-DIRECTION GRID LENGTH (INCREMENT)
 209 C           IGDS(12) = PROJECTION CENTER FLAG (0=NORTH POLE ON PLANE,
 210 C                                              1=SOUTH POLE ON PLANE,
 211 C           IGDS(13) = SCANNING MODE FLAGS (CODE TABLE 8)
 212 C           IGDS(14) = NOT USED
 213 C           IGDS(15) = FIRST LATITUDE FROM THE POLE AT WHICH THE
 214 C                      SECANT CONE CUTS THE SPERICAL EARTH
 215 C           IGDS(16) = SECOND LATITUDE ...
 216 C           IGDS(17) = LATITUDE OF SOUTH POLE (MILLIDEGREES)
 217 C           IGDS(18) = LONGITUDE OF SOUTH POLE (MILLIDEGREES)
 218 C
 219 C       ARAKAWA SEMI-STAGGERED E-GRID ON ROTATED LAT/LON GRID
 220 C           IGDS( 1) = NUMBER OF VERTICAL COORDINATES
 221 C           IGDS( 2) = PV, PL OR 255
 222 C           IGDS( 3) = DATA REPRESENTATION TYPE (CODE TABLE 6) [201]
 223 C           IGDS( 4) = NI  - TOTAL NUMBER OF ACTUAL DATA POINTS
 224 C                            INCLUDED ON GRID
 225 C           IGDS( 5) = NJ  - DUMMY SECOND DIMENSION; SET=1
 226 C           IGDS( 6) = LA1 - LATITUDE  OF FIRST GRID POINT
 227 C           IGDS( 7) = LO1 - LONGITUDE OF FIRST GRID POINT
 228 C           IGDS( 8) = RESOLUTION AND COMPONENT FLAG (CODE TABLE 7)
 229 C           IGDS( 9) = LA2 - NUMBER OF MASS POINTS ALONG
 230 C                            SOUTHERNMOST ROW OF GRID
 231 C           IGDS(10) = LO2 - NUMBER OF ROWS IN EACH COLUMN
 232 C           IGDS(11) = DI  - LONGITUDINAL DIRECTION INCREMENT
 233 C           IGDS(12) = DJ  - LATITUDINAL  DIRECTION INCREMENT
 234 C           IGDS(13) = SCANNING MODE FLAGS (CODE TABLE 8)
 235 C           IGDS(14) = ... THROUGH ...
 236 C           IGDS(18) = ... NOT USED FOR THIS GRID (SET TO ZERO)
 237 C
 238 C       ARAKAWA FILLED E-GRID ON ROTATED LAT/LON GRID
 239 C           IGDS( 1) = NUMBER OF VERTICAL COORDINATES
 240 C           IGDS( 2) = PV, PL OR 255
 241 C           IGDS( 3) = DATA REPRESENTATION TYPE (CODE TABLE 6) [202]
 242 C           IGDS( 4) = NI  - TOTAL NUMBER OF ACTUAL DATA POINTS
 243 C                            INCLUDED ON GRID
 244 C           IGDS( 5) = NJ  - DUMMY SECOND DIMENTION; SET=1
 245 C           IGDS( 6) = LA1 - LATITUDE LATITUDE OF FIRST GRID POINT
 246 C           IGDS( 7) = LO1 - LONGITUDE OF FIRST GRID POINT
 247 C           IGDS( 8) = RESOLUTION AND COMPONENT FLAG (CODE TABLE 7)
 248 C           IGDS( 9) = LA2 - NUMBER OF (ZONAL) POINTS IN EACH ROW
 249 C           IGDS(10) = LO2 - NUMBER OF (MERIDIONAL) POINTS IN EACH
 250 C                            COLUMN
 251 C           IGDS(11) = DI  - LONGITUDINAL DIRECTION INCREMENT
 252 C           IGDS(12) = DJ  - LATITUDINAL  DIRECTION INCREMENT
 253 C           IGDS(13) = SCANNING MODE FLAGS (CODE TABLE 8)
 254 C           IGDS(14) = ... THROUGH ...
 255 C           IGDS(18) = ... NOT USED FOR THIS GRID
 256 C
 257 C       ARAKAWA STAGGERED E-GRID ON ROTATED LAT/LON GRID
 258 C           IGDS( 1) = NUMBER OF VERTICAL COORDINATES
 259 C           IGDS( 2) = PV, PL OR 255
 260 C           IGDS( 3) = DATA REPRESENTATION TYPE (CODE TABLE 6) [203]
 261 C           IGDS( 4) = NI  - NUMBER OF DATA POINTS IN EACH ROW
 262 C           IGDS( 5) = NJ  - NUMBER OF ROWS
 263 C           IGDS( 6) = LA1 - LATITUDE OF FIRST GRID POINT
 264 C           IGDS( 7) = LO1 - LONGITUDE OF FIRST GRID POINT
 265 C           IGDS( 8) = RESOLUTION AND COMPONENT FLAG (CODE TABLE 7)
 266 C           IGDS( 9) = LA2 - CENTRAL LATITUDE
 267 C           IGDS(10) = LO2 - CENTRAL LONGTITUDE
 268 C           IGDS(11) = DI  - LONGITUDINAL DIRECTION INCREMENT
 269 C           IGDS(12) = DJ  - LATITUDINAL  DIRECTION INCREMENT
 270 C           IGDS(13) = SCANNING MODE FLAGS (CODE TABLE 8)
 271 C           IGDS(14) = ... THROUGH ...
 272 C           IGDS(18) = ... NOT USED FOR THIS GRID
 273 C
 274 C       CURVILINEAR ORTHOGONAL GRID
 275 C           IGDS( 1) = NUMBER OF VERTICAL COORDINATES
 276 C           IGDS( 2) = PV, PL OR 255
 277 C           IGDS( 3) = DATA REPRESENTATION TYPE (CODE TABLE 6) [204]
 278 C           IGDS( 4) = NI  - NUMBER OF DATA POINTS IN EACH ROW
 279 C           IGDS( 5) = NJ  - NUMBER OF ROWS
 280 C           IGDS( 6) = RESERVED (SET TO 0)
 281 C           IGDS( 7) = RESERVED (SET TO 0)
 282 C           IGDS( 8) = RESOLUTION AND COMPONENT FLAG (CODE TABLE 7)
 283 C           IGDS( 9) = RESERVED (SET TO 0)
 284 C           IGDS(10) = RESERVED (SET TO 0)
 285 C           IGDS(11) = RESERVED (SET TO 0)
 286 C           IGDS(12) = RESERVED (SET TO 0)
 287 C           IGDS(13) = SCANNING MODE FLAGS (CODE TABLE 8)
 288 C           IGDS(14) = ... THROUGH ...
 289 C           IGDS(18) = ... NOT USED FOR THIS GRID
 290 C
 291 C   SUBPROGRAM CAN BE CALLED FROM A MULTIPROCESSING ENVIRONMENT.
 292 C
 293 C ATTRIBUTES:
 294 C   LANGUAGE: FORTRAN 90
 295 C   MACHINE:  IBM SP
 296 C
 297 C$$$
 298 C
 299       INTEGER       IGRID
 300       INTEGER       IGDS  (*)
 301       INTEGER       GRD1  (18)
 302       INTEGER       GRD2  (18)
 303       INTEGER       GRD3  (18)
 304       INTEGER       GRD4  (18)
 305       INTEGER       GRD5  (18)
 306       INTEGER       GRD6  (18)
 307       INTEGER       GRD8  (18)
 308       INTEGER       GRD10 (18)
 309       INTEGER       GRD11 (18)
 310       INTEGER       GRD12 (18)
 311       INTEGER       GRD13 (18)
 312       INTEGER       GRD14 (18)
 313       INTEGER       GRD15 (18)
 314       INTEGER       GRD16 (18)
 315       INTEGER       GRD17 (18)
 316       INTEGER       GRD18 (18)
 317       INTEGER       GRD21 (55)
 318       INTEGER       GRD22 (55)
 319       INTEGER       GRD23 (55)
 320       INTEGER       GRD24 (55)
 321       INTEGER       GRD25 (37)
 322       INTEGER       GRD26 (37)
 323       INTEGER       GRD27 (18)
 324       INTEGER       GRD28 (18)
 325       INTEGER       GRD29 (18)
 326       INTEGER       GRD30 (18)
 327       INTEGER       GRD33 (18)
 328       INTEGER       GRD34 (18)
 329       INTEGER       GRD37 (91)
 330       INTEGER       GRD38 (91)
 331       INTEGER       GRD39 (91)
 332       INTEGER       GRD40 (91)
 333       INTEGER       GRD41 (91)
 334       INTEGER       GRD42 (91)
 335       INTEGER       GRD43 (91)
 336       INTEGER       GRD44 (91)
 337       INTEGER       GRD45 (18)
 338       INTEGER       GRD53 (18)
 339       INTEGER       GRD55 (18)
 340       INTEGER       GRD56 (18)
 341       INTEGER       GRD61 (64)
 342       INTEGER       GRD62 (64)
 343       INTEGER       GRD63 (64)
 344       INTEGER       GRD64 (64)
 345       INTEGER       GRD83 (18)
 346       INTEGER       GRD85 (18)
 347       INTEGER       GRD86 (18)
 348       INTEGER       GRD87 (18)
 349       INTEGER       GRD88 (18)
 350       INTEGER       GRD90 (18)
 351       INTEGER       GRD91 (18)
 352       INTEGER       GRD92 (18)
 353       INTEGER       GRD93 (18)
 354       INTEGER       GRD94 (18)
 355       INTEGER       GRD95 (18)
 356       INTEGER       GRD96 (18)
 357       INTEGER       GRD97 (18)
 358       INTEGER       GRD98 (18)
 359       INTEGER       GRD99 (18)
 360       INTEGER       GRD100(18)
 361       INTEGER       GRD101(18)
 362       INTEGER       GRD103(18)
 363       INTEGER       GRD104(18)
 364       INTEGER       GRD105(18)
 365       INTEGER       GRD106(18)
 366       INTEGER       GRD107(18)
 367       INTEGER       GRD110(18)
 368       INTEGER       GRD120(18)
 369       INTEGER       GRD122(18)
 370       INTEGER       GRD123(18)
 371       INTEGER       GRD124(18)
 372       INTEGER       GRD125(18)
 373       INTEGER       GRD126(18)
 374       INTEGER       GRD127(18)
 375       INTEGER       GRD128(18)
 376       INTEGER       GRD129(18)
 377       INTEGER       GRD130(18)
 378       INTEGER       GRD138(18)
 379       INTEGER       GRD139(18)
 380       INTEGER       GRD140(18)
 381       INTEGER       GRD145(18)
 382       INTEGER       GRD146(18)
 383       INTEGER       GRD147(18)
 384       INTEGER       GRD148(18)
 385       INTEGER       GRD150(18)
 386       INTEGER       GRD151(18)
 387       INTEGER       GRD160(18)
 388       INTEGER       GRD161(18)
 389       INTEGER       GRD163(18)
 390       INTEGER       GRD170(18)
 391       INTEGER       GRD171(18)
 392       INTEGER       GRD172(18)
 393       INTEGER       GRD173(18)
 394       INTEGER       GRD174(18)
 395       INTEGER       GRD175(18)
 396       INTEGER       GRD176(18)
 397       INTEGER       GRD179(18)
 398       INTEGER       GRD180(18)
 399       INTEGER       GRD181(18)
 400       INTEGER       GRD182(18)
 401       INTEGER       GRD183(18)
 402       INTEGER       GRD184(18)
 403       INTEGER       GRD187(18)
 404       INTEGER       GRD188(18)
 405       INTEGER       GRD189(18)
 406       INTEGER       GRD190(18)
 407       INTEGER       GRD192(18)
 408       INTEGER       GRD193(18)
 409       INTEGER       GRD194(18)
 410       INTEGER       GRD195(18)
 411       INTEGER       GRD196(18)
 412       INTEGER       GRD197(18)
 413       INTEGER       GRD198(18)
 414       INTEGER       GRD199(18)
 415       INTEGER       GRD201(18)
 416       INTEGER       GRD202(18)
 417       INTEGER       GRD203(18)
 418       INTEGER       GRD204(18)
 419       INTEGER       GRD205(18)
 420       INTEGER       GRD206(18)
 421       INTEGER       GRD207(18)
 422       INTEGER       GRD208(18)
 423       INTEGER       GRD209(18)
 424       INTEGER       GRD210(18)
 425       INTEGER       GRD211(18)
 426       INTEGER       GRD212(18)
 427       INTEGER       GRD213(18)
 428       INTEGER       GRD214(18)
 429       INTEGER       GRD215(18)
 430       INTEGER       GRD216(18)
 431       INTEGER       GRD217(18)
 432       INTEGER       GRD218(18)
 433       INTEGER       GRD219(18)
 434       INTEGER       GRD220(18)
 435       INTEGER       GRD221(18)
 436       INTEGER       GRD222(18)
 437       INTEGER       GRD223(18)
 438       INTEGER       GRD224(18)
 439       INTEGER       GRD225(18)
 440       INTEGER       GRD226(18)
 441       INTEGER       GRD227(18)
 442       INTEGER       GRD228(18)
 443       INTEGER       GRD229(18)
 444       INTEGER       GRD230(18)
 445       INTEGER       GRD231(18)
 446       INTEGER       GRD232(18)
 447       INTEGER       GRD233(18)
 448       INTEGER       GRD234(18)
 449       INTEGER       GRD235(18)
 450       INTEGER       GRD236(18)
 451       INTEGER       GRD237(18)
 452       INTEGER       GRD238(18)
 453       INTEGER       GRD239(18)
 454       INTEGER       GRD240(18)
 455       INTEGER       GRD241(18)
 456       INTEGER       GRD242(18)
 457       INTEGER       GRD243(18)
 458       INTEGER       GRD244(18)
 459       INTEGER       GRD245(18)
 460       INTEGER       GRD246(18)
 461       INTEGER       GRD247(18)
 462       INTEGER       GRD248(18)
 463       INTEGER       GRD249(18)
 464       INTEGER       GRD250(18)
 465       INTEGER       GRD251(18)
 466       INTEGER       GRD252(18)
 467       INTEGER       GRD253(18)
 468       INTEGER       GRD254(18)
 469 C
 470       DATA  GRD1  / 0, 255, 1,  73, 23, -48090,       0, 128,   48090,
 471      &       0, 513669,513669, 22500, 64, 0, 0, 0, 0/
 472       DATA  GRD2  / 0, 255, 0, 144, 73,  90000,       0, 128,  -90000,
 473      &   -2500,   2500, 2500,  0, 0, 0, 0, 0, 0/
 474       DATA  GRD3  / 0, 255, 0, 360,181,  90000,       0, 128,  -90000,
 475      &   -1000,   1000, 1000,  0, 0, 0, 0, 0, 0/
 476       DATA  GRD4  / 0, 255, 0, 720,361,  90000,       0, 128,  -90000,
 477      &    -500,    500,  500,  0, 0, 0, 0, 0, 0/
 478       DATA  GRD5  / 0, 255, 5,  53, 57,   7647, -133443,   8, -105000,
 479      &  190500, 190500, 0, 64, 0, 0, 0, 0, 0/
 480       DATA  GRD6  / 0, 255, 5,  53, 45,   7647, -133443,   8, -105000,
 481      &  190500, 190500, 0, 64, 0, 0, 0, 0, 0/
 482       DATA  GRD8  / 0, 255, 1, 116, 44, -48670,    3104, 128,   61050,
 483      &       0, 318830, 318830, 22500, 64, 0, 0, 0, 0/
 484       DATA  GRD10 / 0, 255, 0, 180, 139,  64000,   1000, 128,  -74000,
 485      &   359000, 1000, 2000,  0, 0, 0, 0, 0, 0/
 486       DATA  GRD11 / 0, 255, 0, 720, 311,  77500,      0, 128,  -77500,
 487      &   359500, 500,  500,  0, 0, 0, 0, 0, 0/
 488       DATA  GRD12 / 0, 255, 0, 301, 331,  55000, 260000, 128,       0,
 489      &   310000, 166,  166,  0, 0, 0, 0, 0, 0/
 490       DATA  GRD13 / 0, 255, 0, 241, 151,  50000, 210000, 128,   25000,
 491      &   250000, 166,  166,  0, 0, 0, 0, 0, 0/
 492       DATA  GRD14 / 0, 255, 0, 511, 301,  30000, 130000, 128,  -20000,
 493      &   215000, 166,  166,  0, 0, 0, 0, 0, 0/
 494       DATA  GRD15 / 0, 255, 0, 401, 187,  75000, 140000, 128,   44000,
 495      &   240000, 166,  250,  0, 0, 0, 0, 0, 0/
 496       DATA  GRD16 / 0, 255, 0, 548, 391,  74000, 165000, 128,   48000,
 497      &   237933,  66,  133,  0, 0, 0, 0, 0, 0/
 498       DATA  GRD17 / 0, 255, 0, 736, 526,  50000, 195000, 128,   15000,
 499      &   244000,  66,   66,  0, 0, 0, 0, 0, 0/
 500       DATA  GRD18 / 0, 255, 0, 586, 481,  47000, 261000, 128,   15000,
 501      &   300000,  66,   66,  0, 0, 0, 0, 0, 0/
 502       DATA  GRD21 / 0,  33, 0,65535,37,      0,       0, 128,   90000,
 503      &  180000,   2500, 5000, 64, 0, 0, 0, 0, 0,
 504      & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
 505      & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
 506      & 37, 37, 37, 37, 37, 37,  1/
 507       DATA  GRD22 / 0,  33, 0,65535,37,      0, -180000, 128,   90000,
 508      &       0,   2500, 5000, 64, 0, 0, 0, 0, 0,
 509      & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
 510      & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
 511      & 37, 37, 37, 37, 37, 37,  1/
 512       DATA  GRD23 / 0,  33, 0,65535, 37, -90000,       0, 128,       0,
 513      &  180000,   2500, 5000, 64, 0, 0, 0, 0, 0,
 514      &  1, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
 515      & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
 516      & 37, 37, 37, 37, 37, 37, 37/
 517       DATA  GRD24 / 0,  33, 0,65535, 37, -90000, -180000, 128,       0,
 518      &       0,   2500, 5000, 64, 0, 0, 0, 0, 0,
 519      &  1, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
 520      & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
 521      & 37, 37, 37, 37, 37, 37, 37/
 522       DATA  GRD25 / 0,  33, 0,65535, 19,      0,       0, 128,   90000,
 523      &  355000,   5000, 5000, 64, 0, 0, 0, 0, 0,
 524      & 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72,
 525      & 72, 72, 72,  1/
 526       DATA  GRD26 / 0,  33, 0,65535, 19, -90000,       0, 128,       0,
 527      &  355000,   5000, 5000, 64, 0, 0, 0, 0, 0,
 528      &  1, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72,
 529      & 72, 72, 72, 72/
 530       DATA  GRD27 / 0, 255, 5,  65, 65, -20826, -125000,   8,  -80000,
 531      &  381000, 381000, 0, 64, 0, 0, 0, 0, 0/
 532       DATA  GRD28 / 0, 255, 5,  65, 65,  20826,  145000,   8,  -80000,
 533      &  381000, 381000,128, 64, 0, 0, 0, 0, 0/
 534       DATA  GRD29 / 0, 255, 0, 145, 37,      0,       0, 128,   90000,
 535      &  360000,   2500, 2500, 64, 0, 0, 0, 0, 0/
 536       DATA  GRD30 / 0, 255, 0, 145, 37,  -90000,      0, 128,       0,
 537      &  360000,   2500, 2500, 64, 0, 0, 0, 0, 0/
 538       DATA  GRD33 / 0, 255, 0, 181, 46,      0,       0, 128,   90000,
 539      &  360000,   2000, 2000, 64, 0, 0, 0, 0, 0/
 540       DATA  GRD34 / 0, 255, 0, 181, 46, -90000,       0, 128,       0,
 541      &  360000,   2000, 2000, 64, 0, 0, 0, 0, 0/
 542       DATA  GRD37 / 0,  33, 0,65535,73,      0,  -30000, 128,   90000,
 543      &   60000,  1250,65535, 64, 0, 0, 0, 0, 0,
 544      & 73, 73, 73, 73, 73, 73, 73, 73, 72, 72, 72, 71, 71, 71, 70,
 545      & 70, 69, 69, 68, 67, 67, 66, 65, 65, 64, 63, 62, 61, 60, 60,
 546      & 59, 58, 57, 56, 55, 54, 52, 51, 50, 49, 48, 47, 45, 44, 43,
 547      & 42, 40, 39, 38, 36, 35, 33, 32, 30, 29, 28, 26, 25, 23, 22,
 548      & 20, 19, 17, 16, 14, 12, 11,  9,  8,  6,  5,  3,  2/
 549       DATA  GRD38 / 0,  33, 0,65535,73,      0,   60000, 128,   90000,
 550      &  150000,  1250,65535, 64, 0, 0, 0, 0, 0,
 551      & 73, 73, 73, 73, 73, 73, 73, 73, 72, 72, 72, 71, 71, 71, 70,
 552      & 70, 69, 69, 68, 67, 67, 66, 65, 65, 64, 63, 62, 61, 60, 60,
 553      & 59, 58, 57, 56, 55, 54, 52, 51, 50, 49, 48, 47, 45, 44, 43,
 554      & 42, 40, 39, 38, 36, 35, 33, 32, 30, 29, 28, 26, 25, 23, 22,
 555      & 20, 19, 17, 16, 14, 12, 11,  9,  8,  6,  5,  3,  2/
 556       DATA  GRD39 / 0,  33, 0,65535,73,      0,  150000, 128,   90000,
 557      & -120000,  1250,65535, 64, 0, 0, 0, 0, 0,
 558      & 73, 73, 73, 73, 73, 73, 73, 73, 72, 72, 72, 71, 71, 71, 70,
 559      & 70, 69, 69, 68, 67, 67, 66, 65, 65, 64, 63, 62, 61, 60, 60,
 560      & 59, 58, 57, 56, 55, 54, 52, 51, 50, 49, 48, 47, 45, 44, 43,
 561      & 42, 40, 39, 38, 36, 35, 33, 32, 30, 29, 28, 26, 25, 23, 22,
 562      & 20, 19, 17, 16, 14, 12, 11,  9,  8,  6,  5,  3,  2/
 563       DATA  GRD40 / 0,  33, 0,65535,73,       0, -120000, 128,   90000,
 564      &  -30000,  1250,65535, 64, 0, 0, 0, 0, 0,
 565      & 73, 73, 73, 73, 73, 73, 73, 73, 72, 72, 72, 71, 71, 71, 70,
 566      & 70, 69, 69, 68, 67, 67, 66, 65, 65, 64, 63, 62, 61, 60, 60,
 567      & 59, 58, 57, 56, 55, 54, 52, 51, 50, 49, 48, 47, 45, 44, 43,
 568      & 42, 40, 39, 38, 36, 35, 33, 32, 30, 29, 28, 26, 25, 23, 22,
 569      & 20, 19, 17, 16, 14, 12, 11,  9,  8,  6,  5,  3,  2/
 570       DATA  GRD41 / 0,  33, 0,65535,73, -90000,  -30000, 128,       0,
 571      &   60000,  1250,65535, 64, 0, 0, 0, 0, 0,
 572      &  2,  3,  5,  6,  8,  9, 11, 12, 14, 16, 17, 19, 20, 22, 23,
 573      & 25, 26, 28, 29, 30, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44,
 574      & 45, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 60,
 575      & 61, 62, 63, 64, 65, 65, 66, 67, 67, 68, 69, 69, 70, 70, 71,
 576      & 71, 71, 72, 72, 72, 73, 73, 73, 73, 73, 73, 73, 73/
 577       DATA  GRD42 / 0,  33, 0,65535,73, -90000,   60000, 128,       0,
 578      &  150000,  1250,65535, 64, 0, 0, 0, 0, 0,
 579      &  2,  3,  5,  6,  8,  9, 11, 12, 14, 16, 17, 19, 20, 22, 23,
 580      & 25, 26, 28, 29, 30, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44,
 581      & 45, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 60,
 582      & 61, 62, 63, 64, 65, 65, 66, 67, 67, 68, 69, 69, 70, 70, 71,
 583      & 71, 71, 72, 72, 72, 73, 73, 73, 73, 73, 73, 73, 73/
 584       DATA  GRD43 / 0,  33, 0,65535,73, -90000,  150000, 128,       0,
 585      & -120000,  1250,65535, 64, 0, 0, 0, 0, 0,
 586      &  2,  3,  5,  6,  8,  9, 11, 12, 14, 16, 17, 19, 20, 22, 23,
 587      & 25, 26, 28, 29, 30, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44,
 588      & 45, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 60,
 589      & 61, 62, 63, 64, 65, 65, 66, 67, 67, 68, 69, 69, 70, 70, 71,
 590      & 71, 71, 72, 72, 72, 73, 73, 73, 73, 73, 73, 73, 73/
 591       DATA  GRD44 / 0,  33, 0,65535,73, -90000, -120000, 128,       0,
 592      &  -30000,  1250,65535, 64, 0, 0, 0, 0, 0,
 593      &  2,  3,  5,  6,  8,  9, 11, 12, 14, 16, 17, 19, 20, 22, 23,
 594      & 25, 26, 28, 29, 30, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44,
 595      & 45, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 60,
 596      & 61, 62, 63, 64, 65, 65, 66, 67, 67, 68, 69, 69, 70, 70, 71,
 597      & 71, 71, 72, 72, 72, 73, 73, 73, 73, 73, 73, 73, 73/
 598       DATA  GRD45 / 0, 255, 0, 288,145,  90000,       0, 128,  -90000,
 599      &   -1250,   1250, 1250,  0, 0, 0, 0, 0, 0/
 600       DATA  GRD53 / 0, 255, 1, 117, 51, -61050,       0, 128,   61050,
 601      &       0,  318830, 318830, 22500, 64, 0, 0, 0, 0/
 602       DATA  GRD55 / 0, 255, 5,  87, 71, -10947, -154289,   8, -105000,
 603      &  254000, 254000, 0, 64, 0, 0, 0, 0, 0/
 604       DATA  GRD56 / 0, 255, 5,  87, 71,   7647, -133443,   8, -105000,
 605      &  127000, 127000, 0, 64, 0, 0, 0, 0, 0/
 606       DATA  GRD61 / 0,  33, 0,65535, 46,      0,       0, 128,   90000,
 607      &  180000,   2000, 2000, 64, 0, 0, 0, 0, 0,
 608      & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
 609      & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
 610      & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
 611      &  1/
 612       DATA  GRD62 / 0,  33, 0,65535, 46,      0, -180000, 128,   90000,
 613      &       0,   2000, 2000, 64, 0, 0, 0, 0, 0,
 614      & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
 615      & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
 616      & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
 617      &  1/
 618       DATA  GRD63 / 0,  33, 0,65535, 46,      0,  -90000, 128,       0,
 619      &  180000,   2000, 2000, 64, 0, 0, 0, 0, 0,
 620      &  1, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
 621      & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
 622      & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
 623      & 91/
 624       DATA  GRD64 / 0,  33, 0,65535, 46, -90000, -180000, 128,       0,
 625      &       0,   2000, 2000, 64, 0, 0, 0, 0, 0,
 626      &  1, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
 627      & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
 628      & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
 629      & 91/
 630       DATA  GRD83 / 0, 255,205,758,567, 2228,   -140481, 136,   47500,
 631      & -104000,    121,121,64, 53492, -10984, 0, 0, 0/
 632       DATA  GRD85 / 0, 255, 0, 360, 90,    500,     500, 128,   89500,
 633      &  359500,   1000, 1000, 64, 0, 0, 0, 0, 0/
 634       DATA  GRD86 / 0, 255, 0, 360, 90, -89500,     500, 128,    -500,
 635      &  359500,   1000, 1000, 64, 0, 0, 0, 0, 0/
 636       DATA  GRD87 / 0, 255, 5,  81, 62,  22876, -120491,   8, -105000,
 637      &   68153,  68153, 0, 64, 0, 0, 0, 0, 0/
 638       DATA  GRD88 / 0, 255, 5, 580,548,  10000, -128000,   8, -105000,
 639      &   15000,  15000, 0, 64, 0, 0, 0, 0, 0/
 640       DATA  GRD90 / 0, 255, 3,4289,2753,  20192, -121554,   8,  -95000,
 641      &    1270,   1270, 0, 64, 0, 25000, 25000, 0, 0/
 642       DATA  GRD91 / 0, 255, 5,1649,1105, 40530,  -178571,  8,  -150000,
 643      &  2976, 2976,   0, 64, 0, 0, 0, 0, 0/
 644       DATA  GRD92 / 0, 255, 5,3297,2209, 40530,  -178571,  8,  -150000,
 645      &  1488, 1488,   0, 64, 0, 0, 0, 0, 0/
 646       DATA  GRD93 / 0, 255,203,223,501,  44232, -169996, 136,   63000,
 647      & -150000,    67,66,64, 0, 0, 0, 0, 0/
 648       DATA  GRD94 / 0, 255,205,595,625, 34921, -161663, 136,   54000,
 649      & -106000,     63, 54,64, 83771, -151721, 0, 0, 0/
 650       DATA  GRD95 / 0, 255,205,401,325,  17609, -76327, 136,    54000,
 651      & -106000,  31, 27,64, 18840, -61261, 0, 0, 0/
 652       DATA  GRD96 / 0, 255,205,373,561,  11625, -156339, 136,   54000,
 653      & -106000,   31, 27,64, 30429, -157827, 0, 0, 0/
 654       DATA  GRD97 / 0, 255,205,1371,1100, 15947,-125468, 136,   54000,
 655      & -106000,     42, 36,64,45407,-52390, 0, 0, 0/
 656       DATA  GRD98 / 0, 255, 4, 192, 94,  88542,       0, 128,  -88542,
 657      &    -1875, 47,1875, 0, 0, 0, 0, 0, 0/
 658       DATA  GRD99 / 0, 255,203,669,1165, -7450, -144140, 136,   54000,
 659      & -106000,    90, 77, 64, 0, 0, 0, 0, 0/
 660       DATA  GRD100/ 0, 255, 5,  83, 83,  17108, -129296,   8, -105000,
 661      &   91452,  91452, 0, 64, 0, 0, 0, 0, 0/
 662       DATA  GRD101/ 0, 255, 5, 113, 91,  10528, -137146,   8, -105000,
 663      &   91452,  91452, 0, 64, 0, 0, 0, 0, 0/
 664       DATA  GRD103/ 0, 255, 5,  65, 56,  22405, -121352,   8, -105000,
 665      &   91452,  91452, 0, 64, 0, 0, 0, 0, 0/
 666       DATA  GRD104/ 0, 255, 5, 147,110,   -268, -139475,   8, -105000,
 667      &   90755,  90755, 0, 64, 0, 0, 0, 0, 0/
 668       DATA  GRD105/ 0, 255, 5,  83, 83,  17529, -129296,   8, -105000,
 669      &   90755,  90755, 0, 64, 0, 0, 0, 0, 0/
 670       DATA  GRD106/ 0, 255, 5, 165,117,  17533, -129296,   8, -105000,
 671      &   45373,  45373, 0, 64, 0, 0, 0, 0, 0/
 672       DATA  GRD107/ 0, 255, 5, 120, 92,  23438, -120168,   8, -105000,
 673      &   45373,  45373, 0, 64, 0, 0, 0, 0, 0/
 674       DATA  GRD110/ 0, 255, 0, 464,224,  25063, -124938, 128,   52938,
 675      & -67063,    125, 125, 64, 0, 0, 0, 0, 0/
 676       DATA  GRD120/ 0, 255,204,1200,1684,     0,      0,   8,       0,
 677      &      0,      0,   0, 64, 0, 0, 0, 0, 0/
 678       DATA  GRD122/ 0, 255,204, 350, 465,     0,      0,   8,       0,
 679      &      0,      0,   0, 64, 0, 0, 0, 0, 0/
 680       DATA  GRD123/ 0, 255,204, 280, 360,     0,      0,   8,       0,
 681      &      0,      0,   0, 64, 0, 0, 0, 0, 0/
 682       DATA  GRD124/ 0, 255,204, 240, 314,     0,      0,   8,       0,
 683      &      0,      0,   0, 64, 0, 0, 0, 0, 0/
 684       DATA  GRD125/ 0, 255,204, 300, 340,     0,      0,   8,       0,
 685      &      0,      0,   0, 64, 0, 0, 0, 0, 0/
 686       DATA  GRD126/ 0, 255, 4, 384,190,  89277,       0, 128,  -89277,
 687      &    -938,    95, 938, 0, 0, 0, 0, 0, 0/
 688       DATA  GRD127/ 0, 255, 4, 768,384,  89642,       0, 128,  -89642,
 689      &    -469,   192, 469, 0, 0, 0, 0, 0, 0/
 690       DATA  GRD128/ 0, 255, 4,1152,576,  89761,       0, 128,  -89761,
 691      &    -313,   288, 313, 0, 0, 0, 0, 0, 0/
 692       DATA  GRD129/ 0, 255, 4,1760,880,  89844,       0, 128,  -89844,
 693      &    -205,   440, 205, 0, 0, 0, 0, 0, 0/
 694       DATA  GRD130/ 0, 255, 3, 451,337,  16281, -126138,  8,   -95000,
 695      &   13545,  13545, 0, 64, 0, 25000, 25000, 0, 0/
 696       DATA  GRD138/ 0, 255, 3, 468,288,  21017, -123282,   8,  -97000,
 697      &   12000,  12000, 0, 64, 0, 33000, 45000, 0, 0/
 698       DATA  GRD139/ 0, 255, 3,  80,52,  17721, -161973,  8,   -157500,
 699      &   12000,  12000, 0, 64, 0, 19000, 21000, 0, 0/
 700       DATA  GRD140/ 0, 255, 3, 199,163, 53020, -166477,  8,  -148600,
 701      &   12000,  12000, 0, 64, 0, 57000, 63000, 0, 0/
 702       DATA  GRD145/ 0, 255, 3, 169,145,  32174,  -90159,   8,  -79500,
 703      &   12000,  12000, 0, 64, 0, 36000, 46000, 0, 0/
 704       DATA  GRD146/ 0, 255, 3, 166,142,  32353,  -89994,   8,  -79500,
 705      &   12000,  12000, 0, 64, 0, 36000, 46000, 0, 0/
 706       DATA  GRD147/ 0, 255, 3, 268,259,  24595, -100998,   8,  -97000,
 707      &   12000,  12000, 0, 64, 0, 33000, 45000, 0, 0/
 708       DATA  GRD148/ 0, 255, 3, 442,265,  21821, -120628,   8,  -97000,
 709      &   12000,  12000, 0, 64, 0, 33000, 45000, 0, 0/
 710       DATA  GRD150/ 0, 255, 0, 401,201,   5000, -100000, 128,   25000,
 711      &  -60000,   100, 100, 64, 0, 0, 0, 0, 0/
 712       DATA  GRD151/ 0, 255, 5, 478, 429, -7450,  215860,   8,  -110000,
 713      &  33812, 33812,   0, 64, 0, 0, 0, 0, 0/
 714       DATA  GRD160/ 0, 255, 5, 180,156,  19132, -185837,   8, -150000,
 715      &   47625,  47625, 0, 64, 0, 0, 0, 0, 0/
 716       DATA  GRD161/ 0, 255, 0, 137,102,  50750,  271750,  72,    -250,
 717      &  -19750,    500,500, 0, 0, 0, 0, 0, 0/
 718       DATA  GRD163/ 0, 255, 3,1008,722,  20600, -118300,   8,  -95000,
 719      &    5000,   5000, 0, 64, 0, 38000, 38000, 0, 0/
 720       DATA  GRD170/ 0, 255, 4, 512, 256, 89463,       0, 128,  -89463,
 721      &    -703,   128, 703, 0, 0, 0, 0, 0, 0/
 722       DATA  GRD171/ 0, 255, 5, 770,930,  25032, -119560,   0,  -80000,
 723      &   12700,  12700, 0, 64, 0, 0, 0, 0, 0/
 724       DATA  GRD172/ 0, 255, 5, 690,710, -36866, -220194,   0, -260000,
 725      &   12700,  12700, 128, 64, 0, 0, 0, 0, 0/
 726       DATA  GRD173/ 0, 255, 0,4320,2160, 89958,      42, 128,  -89958,
 727      &  359958,    83,  83,  0, 0, 0, 0, 0, 0/
 728       DATA  GRD174/ 0, 255, 4,2880,1440, 89938,      62,  72,  -89938,
 729      &     -62,   125, 125,64, 0, 0, 0, 0, 0/
 730       DATA  GRD175/ 0, 255, 0, 556,334,      0,  130000, 128,   30060,
 731      &  180040,    90,  90, 64, 0, 0, 0, 0, 0/
 732       DATA  GRD176/ 0, 255, 0, 327,235,  49100,  -92200, 128,   40910,
 733      &  -75900,    35,  50, 0, 0, 0, 0, 0, 0/
 734       DATA  GRD179/ 0, 255, 5,1196,817, -2500,  -142500,   8,  -100000,
 735      &  12679, 12679,   0, 64, 0, 0, 0, 0, 0/
 736       DATA  GRD180/ 0, 255, 0, 759,352,  55054, -127000, 128,   17146,
 737      &  -45136,   108, 108, 0, 0, 0, 0, 0, 0/
 738       DATA  GRD181/ 0, 255, 0, 370,278,  30054, -100000, 128,     138,
 739      &  -60148,   108, 108, 0, 0, 0, 0, 0, 0/
 740       DATA  GRD182/ 0, 255, 0, 278,231,  32973, -170000, 128,    8133,
 741      & -140084,   108, 108, 0, 0, 0, 0, 0, 0/
 742       DATA  GRD183/ 0, 255, 0, 648,278,  75054, -200000, 128,   45138,
 743      & -130124,   108, 108, 0, 0, 0, 0, 0, 0/
 744       DATA  GRD184/ 0, 255, 3,2145,1377,  20192, -121554,   8,  -95000,
 745      &    2540,   2540, 0, 64, 0, 25000, 25000, 0, 0/
 746       DATA  GRD187/ 0, 255, 3,2145,1597,  20192, -121554,   8,  -95000,
 747      &    2540,   2540, 0, 64, 0, 25000, 25000, 0, 0/
 748       DATA  GRD188/ 0, 255, 3, 709, 795,  37979, -125958,   8,  -95000,
 749      &    2540,   2540, 0, 64, 0, 25000, 25000, 0, 0/
 750       DATA  GRD189/ 0, 255, 5, 655, 855, 51500,  -142500,   8, -135000,
 751      &  1448, 1448,   0, 64, 0, 0, 0, 0, 0/
 752       DATA  GRD190/ 0, 255,205,954,835,  -7491, -144134, 136,   54000,
 753      & -106000,    126, 108, 64, 44540, 14802, 0, 0, 0/
 754       DATA  GRD192/ 0, 255,203,237,387, -3441, -148799, 136,   50000,
 755      & -111000,    225,207,64, 0, 0, 0, 0, 0/
 756       DATA  GRD193  / 0, 255, 0, 1440, 721,  90000,  0, 128,  -90000,
 757      &   -250,   250, 250,  0, 0, 0, 0, 0, 0/
 758       DATA  GRD194/ 0, 255, 1, 544,310,  15000,  -75500, 128,   22005,
 759      &  -62509, 2500, 2500, 20000, 64, 0, 0, 0, 0/
 760       DATA  GRD195/ 0, 255, 1, 177,129,  16829,  -68196, 128,   19747,
 761      &  -63972,  2500,  2500, 20000, 64, 0, 0, 0, 0/
 762       DATA  GRD196/ 0, 255, 1, 321,225,  18073, -161525, 136,   23088,
 763      & -153869, 2500, 2500, 20000, 64, 0, 0, 0, 0/
 764       DATA  GRD197/ 0, 255, 3,1073,689,  20192, -121550,   8,  -95000,
 765      &    5079,   5079, 0, 64, 0, 25000, 25000, 0, 0/
 766       DATA  GRD198/ 0, 255, 5, 825, 553, 40530,  -178571,  8,  -150000,
 767      &  5953, 5953,   0, 64, 0, 0, 0, 0, 0/
 768       DATA  GRD199/ 0, 255, 1, 193,193,  12350, -216313, 128,   16794,
 769      & -211720,  2500,  2500, 20000, 64, 0, 0, 0, 0/
 770       DATA  GRD201/ 0, 255, 5,  65, 65, -20826, -150000,   8, -105000,
 771      &  381000, 381000, 0, 64, 0, 0, 0, 0, 0/
 772       DATA  GRD202/ 0, 255, 5,  65, 43,   7838, -141028,   8, -105000,
 773      &  190500, 190500, 0, 64, 0, 0, 0, 0, 0/
 774       DATA  GRD203/ 0, 255, 5,  45, 39,  19132, -185837,   8, -150000,
 775      &  190500, 190500, 0, 64, 0, 0, 0, 0, 0/
 776       DATA  GRD204/ 0, 255, 1,  93, 68, -25000,  110000, 128,   60644,
 777      & -109129, 160000, 160000, 20000, 64, 0, 0, 0, 0/
 778       DATA  GRD205/ 0, 255, 5,  45, 39,    616,  -84904,   8,  -60000,
 779      &  190500, 190500, 0, 64, 0, 0, 0, 0, 0/
 780       DATA  GRD206/ 0, 255, 3,  51, 41,  22289, -117991,   8, - 95000,
 781      &   81271,  81271, 0, 64, 0, 25000, 25000, 0, 0/
 782       DATA  GRD207/ 0, 255, 5,  49, 35,  42085, -175641,   8, -150000,
 783      &   95250,  95250, 0, 64, 0, 0, 0, 0, 0/
 784       DATA  GRD208/ 0, 255, 1,  29, 27,   9343, -167315, 128,   28092,
 785      & -145878, 80000, 80000, 20000, 64, 0, 0, 0, 0/
 786       DATA  GRD209/ 0, 255, 3, 275,223,  -4850, -151100,   8, -111000,
 787      &   44000,  44000, 0, 64, 0, 45000, 45000, 0, 0/
 788       DATA  GRD210/ 0, 255, 1,  25, 25,   9000,  -77000, 128,   26422,
 789      &  -58625, 80000, 80000, 20000, 64, 0, 0, 0, 0/
 790       DATA  GRD211/ 0, 255, 3,  93, 65,  12190, -133459,   8,  -95000,
 791      &   81271,  81271, 0, 64, 0, 25000, 25000, 0, 0/
 792       DATA  GRD212/ 0, 255, 3, 185,129,  12190, -133459,   8,  -95000,
 793      &   40635,  40635, 0, 64, 0, 25000, 25000, 0, 0/
 794       DATA  GRD213/ 0, 255, 5, 129, 85,   7838, -141028,   8, -105000,
 795      &   95250,  95250, 0, 64, 0, 0, 0, 0, 0/
 796       DATA  GRD214/ 0, 255, 5,  97, 69,  42085, -175641,   8, -150000,
 797      &   47625,  47625, 0, 64, 0, 0, 0, 0, 0/
 798       DATA  GRD215/ 0, 255, 3, 369,257,  12190, -133459,   8,  -95000,
 799      &   20318,  20318, 0, 64, 0, 25000, 25000, 0, 0/
 800       DATA  GRD216/ 0, 255, 5, 139,107,  30000, -173000,   8, -135000,
 801      &   45000,  45000, 0, 64, 0, 0, 0, 0, 0/
 802       DATA  GRD217/ 0, 255, 5, 277,213,  30000, -173000,   8, -135000,
 803      &   22500,  22500, 0, 64, 0, 0, 0, 0, 0/
 804       DATA  GRD218/ 0, 255, 3, 614,428,  12190, -133459,   8,  -95000,
 805      &   12191,  12191, 0, 64, 0, 25000, 25000, 0, 0/
 806       DATA  GRD219/ 0, 255, 5, 385,465,  25032, -119560,   0,  -80000,
 807      &   25400,  25400, 0, 64, 0, 0, 0, 0, 0/
 808       DATA  GRD220/ 0, 255, 5, 345,355, -36866, -220194,   0, -260000,
 809      &   25400,  25400, 128, 64, 0, 0, 0, 0, 0/
 810       DATA  GRD221/ 0, 255, 3, 349,277,   1000, -145500,   8, -107000,
 811      &   32463,  32463, 0, 64, 0, 50000, 50000, 0, 0/
 812       DATA  GRD222/ 0, 255, 3, 138,112,  -4850, -151100,   8, -111000,
 813      &   88000,  88000, 0, 64, 0, 45000, 45000, 0, 0/
 814       DATA  GRD223/ 0, 255, 5, 129,129, -20826, -150000,   8, -105000,
 815      &  190500, 190500, 0, 64, 0, 0, 0, 0, 0/
 816       DATA  GRD224/ 0, 255, 5,  65, 65,  20826,  120000,   8, -105000,
 817      &  381000, 381000, 128, 64, 0, 0, 0, 0, 0/
 818       DATA  GRD225/ 0, 255, 1, 185,135, -25000, -250000, 128,   60640,
 819      & -109129, 80000, 80000, 20000, 64, 0, 0, 0, 0/
 820       DATA  GRD226/ 0, 255, 3, 737,513,  12190, -133459,   8,  -95000,
 821      &   10159,  10159, 0, 64, 0, 25000, 25000, 0, 0/
 822       DATA  GRD227/ 0, 255, 3,1473,1025,  12190, -133459,   8, -95000,
 823      &    5079,   5079, 0, 64, 0, 25000, 25000, 0, 0/
 824       DATA  GRD228/ 0, 255, 0, 144, 73,  90000,       0, 128,  -90000,
 825      &   -2500,   2500, 2500, 64, 0, 0, 0, 0, 0/
 826       DATA  GRD229/ 0, 255, 0, 360,181,  90000,       0, 128,  -90000,
 827      &   -1000,   1000, 1000, 64, 0, 0, 0, 0, 0/
 828       DATA  GRD230/ 0, 255, 0, 720,361,  90000,       0, 128,  -90000,
 829      &    -500,    500,  500, 64, 0, 0, 0, 0, 0/
 830       DATA  GRD231/ 0, 255, 0, 720,181,      0,       0, 128,   90000,
 831      &    -500,    500,  500, 64, 0, 0, 0, 0, 0/
 832       DATA  GRD232/ 0, 255, 0, 360, 91,      0,       0, 128,   90000,
 833      &   -1000,   1000, 1000, 64, 0, 0, 0, 0, 0/
 834       DATA  GRD233/ 0, 255, 0, 288,157,  78000,       0, 128,  -78000,
 835      &   -1250,   1000, 1250,  0, 0, 0, 0, 0, 0/
 836       DATA  GRD234/ 0, 255, 0, 133,121,  15000,  -98000, 128,  -45000,
 837      &  -65000,    250,  250, 64, 0, 0, 0, 0, 0/
 838       DATA  GRD235/ 0, 255, 0, 720,360,  89750,     250, 128,  -89750,
 839      &    -250,    500,  500,  0, 0, 0, 0, 0, 0/
 840       DATA  GRD236/ 0, 255, 3, 151,113,  16281,  233862,   8,  -95000,
 841      &   40635,  40635, 0, 64, 0, 25000, 25000, 0, 0/
 842       DATA  GRD237/ 0, 255, 3,  54, 47,  16201,  285720,   8, -107000,
 843      &   32463,  32463, 0, 64, 0, 50000, 50000, 0, 0/
 844       DATA  GRD238/ 0, 255, 0, 275, 203,  50250, 261750, 128,    -250,
 845      &   -29750, 250, 250,  0, 0, 0, 0, 0, 0/
 846       DATA  GRD239/ 0, 255, 0, 155, 123, 75250,  159500, 128,   44750,
 847      &  -123500, 250, 500,  0, 0, 0, 0, 0, 0/
 848       DATA  GRD240/ 0, 255, 5, 1121, 881, 23098, -119036,  8, -105000,
 849      &   4763,  4763, 0, 64, 0, 0, 0, 0, 0/
 850       DATA  GRD241/ 0, 255, 3, 549,445,  -4850, -151100,   8, -111000,
 851      &   22000,  22000, 0, 64, 0, 45000, 45000, 0, 0/
 852       DATA  GRD242/ 0, 255, 5, 553,425,  30000, -173000,   8, -135000,
 853      &   11250,  11250, 0, 64, 0, 0, 0, 0, 0/
 854       DATA  GRD243/ 0, 255, 0, 126,101,  10000, -170000, 128,   50000,
 855      &  -120000, 400, 400, 64, 0, 0, 0, 0, 0/
 856       DATA  GRD244/ 0, 255, 0, 275, 203,  50250, 261750, 128,    -250,
 857      &   -29750, 250,  250, 0, 0, 0, 0, 0, 0/
 858       DATA  GRD245/ 0, 255, 3, 336,372,  22980, -92840,   8,   -80000,
 859      &   8000,  8000, 0, 64, 0, 35000, 35000, 0, 0/
 860       DATA  GRD246/ 0, 255, 3, 332,371,  25970, -127973,  8,  -115000,
 861      &   8000,  8000, 0, 64, 0, 40000, 40000, 0, 0/
 862       DATA  GRD247/ 0, 255, 3, 336,372,  22980, -110840,   8,  -98000,
 863      &   8000,  8000, 0, 64, 0, 35000, 35000, 0, 0/
 864       DATA  GRD248/ 0, 255, 0, 135,101,  14500,  -71500, 128,   22000,
 865      &  -61450,    75,  75, 64, 0, 0, 0, 0, 0/
 866       DATA  GRD249/ 0, 255, 5, 367,343,  45400, -171600,   8, -150000,
 867      &   9868,  9868, 0, 64, 0, 0, 0, 0, 0/
 868       DATA  GRD250/ 0, 255, 0, 135,101,  16500, -162000, 128,   24000,
 869      & -151950,    75,  75, 64, 0, 0, 0, 0, 0/
 870       DATA  GRD251/ 0, 255, 0, 332,210,  26350,  -83050, 128,   47250,
 871      &  -49950,    100,  100, 64, 0, 0, 0, 0, 0/
 872       DATA  GRD252/ 0, 255, 3, 301,225,  16281, 233862,  8,   265000,
 873      &   20318,  20318, 0, 64, 0, 25000, 25000, 0, 0/
 874       DATA  GRD253/ 0, 255, 0, 373,224,  60500,  189750, 128,    4750,
 875      &  -77250,   250, 250, 0, 0, 0, 0, 0, 0/
 876       DATA  GRD254/ 0, 255, 1, 369,300, -35000, -250000, 128,   60789,
 877      & -109129, 40000,40000, 20000, 64, 0, 0, 0, 0/
 878 C
 879       IERR = 0
 880 C
 881         DO 1 I = 1,18
 882           IGDS(I) = 0
 883  1      CONTINUE
 884 C
 885       IF (IGRID.GE.37.AND.IGRID.LE.44) THEN
 886         DO 2 I = 19,91
 887           IGDS(I) = 0
 888  2      CONTINUE
 889       END IF
 890 C
 891       IF (IGRID.GE.21.AND.IGRID.LE.24) THEN
 892         DO I = 19,55
 893           IGDS(I) = 0
 894         END DO
 895       END IF
 896 C
 897       IF (IGRID.GE.25.AND.IGRID.LE.26) THEN
 898         DO I = 19,37
 899           IGDS(I) = 0
 900         END DO
 901       END IF
 902 C
 903       IF (IGRID.GE.61.AND.IGRID.LE.64) THEN
 904         DO I = 19,64
 905           IGDS(I) = 0
 906         END DO
 907       END IF
 908 C
 909       IF (IGRID.EQ.1) THEN
 910         DO 3 I = 1,18
 911           IGDS(I) = GRD1(I)
 912   3     CONTINUE
 913 C
 914       ELSE IF (IGRID.EQ.2) THEN
 915         DO 4 I = 1,18
 916           IGDS(I) = GRD2(I)
 917   4     CONTINUE
 918 C
 919       ELSE IF (IGRID.EQ.3) THEN
 920         DO 5 I = 1,18
 921           IGDS(I) = GRD3(I)
 922   5     CONTINUE
 923 C
 924       ELSE IF (IGRID.EQ.4) THEN
 925         DO 6 I = 1,18
 926           IGDS(I) = GRD4(I)
 927   6     CONTINUE
 928 C
 929       ELSE IF (IGRID.EQ.5) THEN
 930         DO 10 I = 1,18
 931           IGDS(I) = GRD5(I)
 932  10     CONTINUE
 933 C
 934       ELSE IF (IGRID.EQ.6) THEN
 935         DO 20 I = 1,18
 936           IGDS(I) = GRD6(I)
 937  20     CONTINUE
 938 C
 939       ELSE IF (IGRID.EQ.8) THEN
 940         DO I = 1,18
 941           IGDS(I) = GRD8(I)
 942         END DO
 943 C
 944       ELSE IF (IGRID.EQ.10) THEN
 945         DO I = 1,18
 946           IGDS(I) = GRD10(I)
 947         END DO
 948 C
 949       ELSE IF (IGRID.EQ.11) THEN
 950         DO I = 1,18
 951           IGDS(I) = GRD11(I)
 952         END DO
 953 C
 954       ELSE IF (IGRID.EQ.12) THEN
 955         DO I = 1,18
 956           IGDS(I) = GRD12(I)
 957         END DO
 958 C
 959       ELSE IF (IGRID.EQ.13) THEN
 960         DO I = 1,18
 961           IGDS(I) = GRD13(I)
 962         END DO
 963 C
 964       ELSE IF (IGRID.EQ.14) THEN
 965         DO I = 1,18
 966           IGDS(I) = GRD14(I)
 967         END DO
 968 C
 969       ELSE IF (IGRID.EQ.15) THEN
 970         DO I = 1,18
 971           IGDS(I) = GRD15(I)
 972         END DO
 973 C
 974       ELSE IF (IGRID.EQ.16) THEN
 975         DO I = 1,18
 976           IGDS(I) = GRD16(I)
 977         END DO
 978 C
 979       ELSE IF (IGRID.EQ.17) THEN
 980         DO I = 1,18
 981           IGDS(I) = GRD17(I)
 982         END DO
 983 C
 984       ELSE IF (IGRID.EQ.18) THEN
 985         DO I = 1,18
 986           IGDS(I) = GRD18(I)
 987         END DO
 988 C
 989       ELSE IF (IGRID.EQ.21) THEN
 990         DO 30 I = 1,55
 991           IGDS(I) = GRD21(I)
 992  30     CONTINUE
 993 C
 994       ELSE IF (IGRID.EQ.22) THEN
 995         DO 40 I = 1,55
 996           IGDS(I) = GRD22(I)
 997  40     CONTINUE
 998 C
 999       ELSE IF (IGRID.EQ.23) THEN
1000         DO 50 I = 1,55
1001           IGDS(I) = GRD23(I)
1002  50     CONTINUE
1003 C
1004       ELSE IF (IGRID.EQ.24) THEN
1005         DO 60 I = 1,55
1006           IGDS(I) = GRD24(I)
1007  60     CONTINUE
1008 C
1009       ELSE IF (IGRID.EQ.25) THEN
1010         DO 70 I = 1,37
1011           IGDS(I) = GRD25(I)
1012  70     CONTINUE
1013 C
1014       ELSE IF (IGRID.EQ.26) THEN
1015         DO 80 I = 1,37
1016           IGDS(I) = GRD26(I)
1017  80     CONTINUE
1018 C
1019       ELSE IF (IGRID.EQ.27) THEN
1020         DO 90 I = 1,18
1021           IGDS(I) = GRD27(I)
1022  90     CONTINUE
1023 C
1024       ELSE IF (IGRID.EQ.28) THEN
1025         DO 100 I = 1,18
1026           IGDS(I) = GRD28(I)
1027  100    CONTINUE
1028 C
1029       ELSE IF (IGRID.EQ.29) THEN
1030         DO 110 I = 1,18
1031           IGDS(I) = GRD29(I)
1032  110    CONTINUE
1033 C
1034       ELSE IF (IGRID.EQ.30) THEN
1035         DO 120 I = 1,18
1036           IGDS(I) = GRD30(I)
1037  120    CONTINUE
1038 C
1039       ELSE IF (IGRID.EQ.33) THEN
1040         DO 130 I = 1,18
1041           IGDS(I) = GRD33(I)
1042  130     CONTINUE
1043 C
1044       ELSE IF (IGRID.EQ.34) THEN
1045         DO 140 I = 1,18
1046           IGDS(I) = GRD34(I)
1047  140    CONTINUE
1048 C
1049       ELSE IF (IGRID.EQ.37) THEN
1050         DO 141 I = 1,91
1051           IGDS(I) = GRD37(I)
1052  141    CONTINUE
1053 C
1054       ELSE IF (IGRID.EQ.38) THEN
1055         DO 142 I = 1,91
1056           IGDS(I) = GRD38(I)
1057  142    CONTINUE
1058 C
1059       ELSE IF (IGRID.EQ.39) THEN
1060         DO 143 I = 1,91
1061           IGDS(I) = GRD39(I)
1062  143    CONTINUE
1063 C
1064       ELSE IF (IGRID.EQ.40) THEN
1065         DO 144 I = 1,91
1066           IGDS(I) = GRD40(I)
1067  144    CONTINUE
1068 C
1069       ELSE IF (IGRID.EQ.41) THEN
1070         DO 145 I = 1,91
1071           IGDS(I) = GRD41(I)
1072  145    CONTINUE
1073 C
1074       ELSE IF (IGRID.EQ.42) THEN
1075         DO 146 I = 1,91
1076           IGDS(I) = GRD42(I)
1077  146    CONTINUE
1078 C
1079       ELSE IF (IGRID.EQ.43) THEN
1080         DO 147 I = 1,91
1081           IGDS(I) = GRD43(I)
1082  147    CONTINUE
1083 C
1084       ELSE IF (IGRID.EQ.44) THEN
1085         DO 148 I = 1,91
1086           IGDS(I) = GRD44(I)
1087  148    CONTINUE
1088 C
1089       ELSE IF (IGRID.EQ.45) THEN
1090         DO 149 I = 1,18
1091           IGDS(I) = GRD45(I)
1092  149    CONTINUE
1093 C
1094       ELSE IF (IGRID.EQ.53) THEN
1095         DO I = 1,18
1096           IGDS(I) = GRD53(I)
1097         END DO
1098 C
1099       ELSE IF (IGRID.EQ.55) THEN
1100         DO 152 I = 1,18
1101           IGDS(I) = GRD55(I)
1102  152    CONTINUE
1103 C
1104       ELSE IF (IGRID.EQ.56) THEN
1105         DO 154 I = 1,18
1106           IGDS(I) = GRD56(I)
1107  154    CONTINUE
1108 C
1109       ELSE IF (IGRID.EQ.61) THEN
1110         DO 160 I = 1,64
1111           IGDS(I) = GRD61(I)
1112  160    CONTINUE
1113 C
1114       ELSE IF (IGRID.EQ.62) THEN
1115         DO 170 I = 1,64
1116           IGDS(I) = GRD62(I)
1117  170    CONTINUE
1118 C
1119       ELSE IF (IGRID.EQ.63) THEN
1120         DO 180 I = 1,64
1121           IGDS(I) = GRD63(I)
1122  180    CONTINUE
1123 C
1124       ELSE IF (IGRID.EQ.64) THEN
1125         DO 190 I = 1,64
1126           IGDS(I) = GRD64(I)
1127  190    CONTINUE
1128 C
1129       ELSE IF (IGRID.EQ.83) THEN
1130         DO I = 1,18
1131           IGDS(I) = GRD83(I)
1132         ENDDO
1133 C
1134       ELSE IF (IGRID.EQ.85) THEN
1135         DO 192 I = 1,18
1136           IGDS(I) = GRD85(I)
1137  192    CONTINUE
1138 C
1139       ELSE IF (IGRID.EQ.86) THEN
1140         DO 194 I = 1,18
1141           IGDS(I) = GRD86(I)
1142  194    CONTINUE
1143 C
1144       ELSE IF (IGRID.EQ.87) THEN
1145         DO 195 I = 1,18
1146           IGDS(I) = GRD87(I)
1147  195    CONTINUE
1148 C
1149       ELSE IF (IGRID.EQ.88) THEN
1150         DO 2195 I = 1,18
1151           IGDS(I) = GRD88(I)
1152 2195    CONTINUE
1153 C
1154       ELSE IF (IGRID.EQ.90) THEN
1155         DO 196 I = 1,18
1156           IGDS(I) = GRD90(I)
1157  196    CONTINUE
1158 C
1159       ELSE IF (IGRID.EQ.91) THEN
1160         DO 197 I = 1,18
1161           IGDS(I) = GRD91(I)
1162  197    CONTINUE
1163 C
1164       ELSE IF (IGRID.EQ.92) THEN
1165         DO 198 I = 1,18
1166           IGDS(I) = GRD92(I)
1167  198    CONTINUE
1168 C
1169       ELSE IF (IGRID.EQ.93) THEN
1170         DO 199 I = 1,18
1171           IGDS(I) = GRD93(I)
1172  199    CONTINUE
1173 C
1174       ELSE IF (IGRID.EQ.94) THEN
1175         DO 200 I = 1,18
1176           IGDS(I) = GRD94(I)
1177  200    CONTINUE
1178 C
1179       ELSE IF (IGRID.EQ.95) THEN
1180         DO 201 I = 1,18
1181           IGDS(I) = GRD95(I)
1182  201    CONTINUE
1183 C
1184       ELSE IF (IGRID.EQ.96) THEN
1185         DO 202 I = 1,18
1186           IGDS(I) = GRD96(I)
1187  202    CONTINUE
1188 C
1189       ELSE IF (IGRID.EQ.97) THEN
1190         DO 203 I = 1,18
1191           IGDS(I) = GRD97(I)
1192  203    CONTINUE
1193 C
1194       ELSE IF (IGRID.EQ.98) THEN
1195         DO 204 I = 1,18
1196           IGDS(I) = GRD98(I)
1197  204    CONTINUE
1198 C
1199       ELSE IF (IGRID.EQ.99) THEN
1200         DO I = 1,18
1201           IGDS(I) = GRD99(I)
1202         ENDDO
1203 C
1204       ELSE IF (IGRID.EQ.100) THEN
1205         DO 205 I = 1,18
1206           IGDS(I) = GRD100(I)
1207  205    CONTINUE
1208 C
1209       ELSE IF (IGRID.EQ.101) THEN
1210         DO 210 I = 1,18
1211           IGDS(I) = GRD101(I)
1212  210    CONTINUE
1213 C
1214       ELSE IF (IGRID.EQ.103) THEN
1215         DO 220 I = 1,18
1216           IGDS(I) = GRD103(I)
1217  220   CONTINUE
1218 C
1219       ELSE IF (IGRID.EQ.104) THEN
1220         DO 230 I = 1,18
1221           IGDS(I) = GRD104(I)
1222  230    CONTINUE
1223 C
1224       ELSE IF (IGRID.EQ.105) THEN
1225         DO 240 I = 1,18
1226           IGDS(I) = GRD105(I)
1227  240    CONTINUE
1228 C
1229       ELSE IF (IGRID.EQ.106) THEN
1230         DO 242 I = 1,18
1231           IGDS(I) = GRD106(I)
1232  242    CONTINUE
1233 C
1234       ELSE IF (IGRID.EQ.107) THEN
1235         DO 244 I = 1,18
1236           IGDS(I) = GRD107(I)
1237  244    CONTINUE
1238 C
1239       ELSE IF (IGRID.EQ.110) THEN
1240         DO I = 1,18
1241           IGDS(I) = GRD110(I)
1242         ENDDO
1243 C
1244       ELSE IF (IGRID.EQ.120) THEN
1245         DO I = 1,18
1246           IGDS(I) = GRD120(I)
1247         ENDDO
1248 C
1249       ELSE IF (IGRID.EQ.122) THEN
1250         DO I = 1,18
1251           IGDS(I) = GRD122(I)
1252         ENDDO
1253 C
1254       ELSE IF (IGRID.EQ.123) THEN
1255         DO I = 1,18
1256           IGDS(I) = GRD123(I)
1257         ENDDO
1258 C
1259       ELSE IF (IGRID.EQ.124) THEN
1260         DO I = 1,18
1261           IGDS(I) = GRD124(I)
1262         ENDDO
1263 C
1264       ELSE IF (IGRID.EQ.125) THEN
1265         DO I = 1,18
1266           IGDS(I) = GRD125(I)
1267         ENDDO
1268 C
1269       ELSE IF (IGRID.EQ.126) THEN
1270         DO 245 I = 1,18
1271           IGDS(I) = GRD126(I)
1272  245    CONTINUE
1273 C
1274       ELSE IF (IGRID.EQ.127) THEN
1275         DO I = 1,18
1276           IGDS(I) = GRD127(I)
1277         ENDDO
1278 C
1279       ELSE IF (IGRID.EQ.128) THEN
1280         DO I = 1,18
1281           IGDS(I) = GRD128(I)
1282         ENDDO
1283 C
1284       ELSE IF (IGRID.EQ.129) THEN
1285         DO I = 1,18
1286           IGDS(I) = GRD129(I)
1287         ENDDO
1288 C
1289       ELSE IF (IGRID.EQ.130) THEN
1290         DO I = 1,18
1291           IGDS(I) = GRD130(I)
1292         ENDDO
1293 C
1294       ELSE IF (IGRID.EQ.138) THEN
1295         DO I = 1,18
1296           IGDS(I) = GRD138(I)
1297         ENDDO
1298 C
1299       ELSE IF (IGRID.EQ.139) THEN
1300         DO I = 1,18
1301           IGDS(I) = GRD139(I)
1302         ENDDO
1303 C
1304       ELSE IF (IGRID.EQ.140) THEN
1305         DO I = 1,18
1306           IGDS(I) = GRD140(I)
1307         ENDDO
1308 C
1309       ELSE IF (IGRID.EQ.145) THEN
1310         DO I = 1,18
1311           IGDS(I) = GRD145(I)
1312         ENDDO
1313 C
1314       ELSE IF (IGRID.EQ.146) THEN
1315         DO I = 1,18
1316           IGDS(I) = GRD146(I)
1317         ENDDO
1318 C
1319       ELSE IF (IGRID.EQ.147) THEN
1320         DO I = 1,18
1321           IGDS(I) = GRD147(I)
1322         ENDDO
1323 C
1324       ELSE IF (IGRID.EQ.148) THEN
1325         DO I = 1,18
1326           IGDS(I) = GRD148(I)
1327         ENDDO
1328 C
1329       ELSE IF (IGRID.EQ.150) THEN
1330         DO I = 1,18
1331           IGDS(I) = GRD150(I)
1332         ENDDO
1333 C
1334       ELSE IF (IGRID.EQ.151) THEN
1335         DO I = 1,18
1336           IGDS(I) = GRD151(I)
1337         ENDDO
1338 C
1339       ELSE IF (IGRID.EQ.160) THEN
1340         DO I = 1,18
1341           IGDS(I) = GRD160(I)
1342         ENDDO
1343 C
1344       ELSE IF (IGRID.EQ.161) THEN
1345         DO I = 1,18
1346           IGDS(I) = GRD161(I)
1347         ENDDO
1348       ELSE IF (IGRID.EQ.163) THEN
1349         DO I = 1,18
1350           IGDS(I) = GRD163(I)
1351         ENDDO
1352 C
1353       ELSE IF (IGRID.EQ.170) THEN
1354         DO I = 1,18
1355           IGDS(I) = GRD170(I)
1356         ENDDO
1357 C
1358       ELSE IF (IGRID.EQ.171) THEN
1359         DO I = 1,18
1360           IGDS(I) = GRD171(I)
1361         ENDDO
1362 C
1363       ELSE IF (IGRID.EQ.172) THEN
1364         DO I = 1,18
1365           IGDS(I) = GRD172(I)
1366         ENDDO
1367 C
1368       ELSE IF (IGRID.EQ.173) THEN
1369         DO I = 1,18
1370           IGDS(I) = GRD173(I)
1371         ENDDO
1372 C
1373       ELSE IF (IGRID.EQ.174) THEN
1374         DO I = 1,18
1375           IGDS(I) = GRD174(I)
1376         ENDDO
1377 C
1378       ELSE IF (IGRID.EQ.175) THEN
1379         DO I = 1,18
1380           IGDS(I) = GRD175(I)
1381         ENDDO
1382 C
1383       ELSE IF (IGRID.EQ.176) THEN
1384         DO I = 1,18
1385           IGDS(I) = GRD176(I)
1386         ENDDO
1387 C
1388       ELSE IF (IGRID.EQ.179) THEN
1389         DO I = 1,18
1390           IGDS(I) = GRD179(I)
1391         ENDDO
1392 C
1393       ELSE IF (IGRID.EQ.180) THEN
1394         DO I = 1,18
1395           IGDS(I) = GRD180(I)
1396         ENDDO
1397 C
1398       ELSE IF (IGRID.EQ.181) THEN
1399         DO I = 1,18
1400           IGDS(I) = GRD181(I)
1401         ENDDO
1402 C
1403       ELSE IF (IGRID.EQ.182) THEN
1404         DO I = 1,18
1405           IGDS(I) = GRD182(I)
1406         ENDDO
1407 C
1408       ELSE IF (IGRID.EQ.183) THEN
1409         DO I = 1,18
1410           IGDS(I) = GRD183(I)
1411         ENDDO
1412 C
1413       ELSE IF (IGRID.EQ.184) THEN
1414         DO I = 1,18
1415           IGDS(I) = GRD184(I)
1416         ENDDO
1417 C
1418       ELSE IF (IGRID.EQ.187) THEN
1419         DO I = 1,18
1420           IGDS(I) = GRD187(I)
1421         ENDDO
1422 C
1423       ELSE IF (IGRID.EQ.188) THEN
1424         DO I = 1,18
1425           IGDS(I) = GRD188(I)
1426         ENDDO
1427 C
1428       ELSE IF (IGRID.EQ.189) THEN
1429         DO I = 1,18
1430           IGDS(I) = GRD189(I)
1431         ENDDO
1432 C
1433       ELSE IF (IGRID.EQ.190) THEN
1434         DO 2190 I = 1,18
1435           IGDS(I) = GRD190(I)
1436  2190   CONTINUE
1437 C
1438       ELSE IF (IGRID.EQ.192) THEN
1439         DO 2191 I = 1,18
1440           IGDS(I) = GRD192(I)
1441  2191   CONTINUE
1442 C
1443       ELSE IF (IGRID.EQ.193) THEN
1444         DO I = 1,18
1445           IGDS(I) = GRD193(I)
1446         END DO
1447 C
1448       ELSE IF (IGRID.EQ.194) THEN
1449         DO 2192 I = 1,18
1450           IGDS(I) = GRD194(I)
1451  2192   CONTINUE
1452 C
1453       ELSE IF (IGRID.EQ.195) THEN
1454         DO I = 1,18
1455           IGDS(I) = GRD195(I)
1456         END DO
1457 C
1458       ELSE IF (IGRID.EQ.196) THEN
1459         DO 249 I = 1,18
1460           IGDS(I) = GRD196(I)
1461  249    CONTINUE
1462 C
1463       ELSE IF (IGRID.EQ.197) THEN
1464         DO I = 1,18
1465           IGDS(I) = GRD197(I)
1466         END DO
1467 C
1468       ELSE IF (IGRID.EQ.198) THEN
1469         DO 2490 I = 1,18
1470           IGDS(I) = GRD198(I)
1471  2490   CONTINUE
1472 C
1473       ELSE IF (IGRID.EQ.199) THEN
1474         DO I = 1,18
1475           IGDS(I) = GRD199(I)
1476         END DO
1477 C
1478       ELSE IF (IGRID.EQ.201) THEN
1479         DO 250 I = 1,18
1480           IGDS(I) = GRD201(I)
1481  250    CONTINUE
1482 C
1483       ELSE IF (IGRID.EQ.202) THEN
1484         DO 260 I = 1,18
1485           IGDS(I) = GRD202(I)
1486  260    CONTINUE
1487 C
1488       ELSE IF (IGRID.EQ.203) THEN
1489         DO 270 I = 1,18
1490           IGDS(I) = GRD203(I)
1491  270    CONTINUE
1492 C
1493       ELSE IF (IGRID.EQ.204) THEN
1494         DO 280 I = 1,18
1495           IGDS(I) = GRD204(I)
1496  280    CONTINUE
1497 C
1498       ELSE IF (IGRID.EQ.205) THEN
1499         DO 290 I = 1,18
1500           IGDS(I) = GRD205(I)
1501  290    CONTINUE
1502 C
1503       ELSE IF (IGRID.EQ.206) THEN
1504         DO 300 I = 1,18
1505           IGDS(I) = GRD206(I)
1506  300    CONTINUE
1507 C
1508       ELSE IF (IGRID.EQ.207) THEN
1509         DO 310 I = 1,18
1510           IGDS(I) = GRD207(I)
1511  310    CONTINUE
1512 C
1513       ELSE IF (IGRID.EQ.208) THEN
1514         DO 320 I = 1,18
1515           IGDS(I) = GRD208(I)
1516  320    CONTINUE
1517 C
1518       ELSE IF (IGRID.EQ.209) THEN
1519         DO 330 I = 1,18
1520           IGDS(I) = GRD209(I)
1521  330    CONTINUE
1522 C
1523       ELSE IF (IGRID.EQ.210) THEN
1524         DO 340 I = 1,18
1525           IGDS(I) = GRD210(I)
1526  340    CONTINUE
1527 C
1528       ELSE IF (IGRID.EQ.211) THEN
1529         DO 350 I = 1,18
1530           IGDS(I) = GRD211(I)
1531  350    CONTINUE
1532 C
1533       ELSE IF (IGRID.EQ.212) THEN
1534         DO 360 I = 1,18
1535           IGDS(I) = GRD212(I)
1536  360    CONTINUE
1537 C
1538       ELSE IF (IGRID.EQ.213) THEN
1539         DO 370 I = 1,18
1540           IGDS(I) = GRD213(I)
1541  370    CONTINUE
1542 C
1543       ELSE IF (IGRID.EQ.214) THEN
1544         DO 380 I = 1,18
1545           IGDS(I) = GRD214(I)
1546  380    CONTINUE
1547 C
1548       ELSE IF (IGRID.EQ.215) THEN
1549         DO 390 I = 1,18
1550           IGDS(I) = GRD215(I)
1551  390    CONTINUE
1552 C
1553       ELSE IF (IGRID.EQ.216) THEN
1554         DO 400 I = 1,18
1555           IGDS(I) = GRD216(I)
1556  400    CONTINUE
1557 C
1558       ELSE IF (IGRID.EQ.217) THEN
1559         DO 401 I = 1,18
1560           IGDS(I) = GRD217(I)
1561  401    CONTINUE
1562 C
1563       ELSE IF (IGRID.EQ.218) THEN
1564         DO 410 I = 1,18
1565           IGDS(I) = GRD218(I)
1566  410    CONTINUE
1567 C
1568       ELSE IF (IGRID.EQ.219) THEN
1569         DO 411 I = 1,18
1570           IGDS(I) = GRD219(I)
1571  411    CONTINUE
1572 C
1573       ELSE IF (IGRID.EQ.220) THEN
1574         DO 412 I = 1,18
1575           IGDS(I) = GRD220(I)
1576  412    CONTINUE
1577 C
1578       ELSE IF (IGRID.EQ.221) THEN
1579         DO 413 I = 1,18
1580           IGDS(I) = GRD221(I)
1581  413    CONTINUE
1582 C
1583       ELSE IF (IGRID.EQ.222) THEN
1584         DO 414 I = 1,18
1585           IGDS(I) = GRD222(I)
1586  414    CONTINUE
1587 C
1588       ELSE IF (IGRID.EQ.223) THEN
1589         DO 415 I = 1,18
1590           IGDS(I) = GRD223(I)
1591  415    CONTINUE
1592 C
1593       ELSE IF (IGRID.EQ.224) THEN
1594         DO 416 I = 1,18
1595           IGDS(I) = GRD224(I)
1596  416    CONTINUE
1597 C
1598       ELSE IF (IGRID.EQ.225) THEN
1599         DO 417 I = 1,18
1600           IGDS(I) = GRD225(I)
1601  417    CONTINUE
1602 C
1603       ELSE IF (IGRID.EQ.226) THEN
1604         DO 418 I = 1,18
1605           IGDS(I) = GRD226(I)
1606  418    CONTINUE
1607 C
1608       ELSE IF (IGRID.EQ.227) THEN
1609         DO 419 I = 1,18
1610           IGDS(I) = GRD227(I)
1611  419    CONTINUE
1612 C
1613       ELSE IF (IGRID.EQ.228) THEN
1614         DO 420 I = 1,18
1615           IGDS(I) = GRD228(I)
1616  420    CONTINUE
1617 C
1618       ELSE IF (IGRID.EQ.229) THEN
1619         DO 421 I = 1,18
1620           IGDS(I) = GRD229(I)
1621  421    CONTINUE
1622 C
1623       ELSE IF (IGRID.EQ.230) THEN
1624         DO 422 I = 1,18
1625           IGDS(I) = GRD230(I)
1626  422    CONTINUE
1627 C
1628       ELSE IF (IGRID.EQ.231) THEN
1629         DO 423 I = 1,18
1630           IGDS(I) = GRD231(I)
1631  423    CONTINUE
1632 C
1633       ELSE IF (IGRID.EQ.232) THEN
1634         DO 424 I = 1,18
1635           IGDS(I) = GRD232(I)
1636  424    CONTINUE
1637 C
1638       ELSE IF (IGRID.EQ.233) THEN
1639         DO 425 I = 1,18
1640           IGDS(I) = GRD233(I)
1641  425    CONTINUE
1642 C
1643       ELSE IF (IGRID.EQ.234) THEN
1644         DO 426 I = 1,18
1645           IGDS(I) = GRD234(I)
1646  426    CONTINUE
1647 C
1648       ELSE IF (IGRID.EQ.235) THEN
1649         DO 427 I = 1,18
1650           IGDS(I) = GRD235(I)
1651  427    CONTINUE
1652 C
1653       ELSE IF (IGRID.EQ.236) THEN
1654         DO 428 I = 1,18
1655           IGDS(I) = GRD236(I)
1656  428    CONTINUE
1657 C
1658       ELSE IF (IGRID.EQ.237) THEN
1659         DO 429 I = 1,18
1660           IGDS(I) = GRD237(I)
1661  429    CONTINUE
1662 C
1663       ELSE IF (IGRID.EQ.238) THEN
1664         DO I = 1,18
1665           IGDS(I) = GRD238(I)
1666         END DO
1667 C
1668       ELSE IF (IGRID.EQ.239) THEN
1669         DO I = 1,18
1670           IGDS(I) = GRD239(I)
1671         END DO
1672 C
1673       ELSE IF (IGRID.EQ.240) THEN
1674         DO I = 1,18
1675           IGDS(I) = GRD240(I)
1676         END DO
1677 C
1678       ELSE IF (IGRID.EQ.241) THEN
1679         DO 430 I = 1,18
1680           IGDS(I) = GRD241(I)
1681  430    CONTINUE
1682 C
1683       ELSE IF (IGRID.EQ.242) THEN
1684         DO 431 I = 1,18
1685           IGDS(I) = GRD242(I)
1686  431    CONTINUE
1687 C
1688       ELSE IF (IGRID.EQ.243) THEN
1689         DO 432 I = 1,18
1690           IGDS(I) = GRD243(I)
1691  432    CONTINUE
1692 C
1693       ELSE IF (IGRID.EQ.244) THEN
1694         DO I = 1,18
1695           IGDS(I) = GRD244(I)
1696         END DO
1697 C
1698       ELSE IF (IGRID.EQ.245) THEN
1699         DO 433 I = 1,18
1700           IGDS(I) = GRD245(I)
1701  433    CONTINUE
1702 C
1703       ELSE IF (IGRID.EQ.246) THEN
1704         DO 434 I = 1,18
1705           IGDS(I) = GRD246(I)
1706  434    CONTINUE
1707 C
1708       ELSE IF (IGRID.EQ.247) THEN
1709         DO 435 I = 1,18
1710           IGDS(I) = GRD247(I)
1711  435    CONTINUE
1712 C
1713       ELSE IF (IGRID.EQ.248) THEN
1714         DO 436 I = 1,18
1715           IGDS(I) = GRD248(I)
1716  436    CONTINUE
1717 C
1718       ELSE IF (IGRID.EQ.249) THEN
1719         DO 437 I = 1,18
1720           IGDS(I) = GRD249(I)
1721  437    CONTINUE
1722 C
1723       ELSE IF (IGRID.EQ.250) THEN
1724         DO 438 I = 1,18
1725           IGDS(I) = GRD250(I)
1726  438    CONTINUE
1727 C
1728       ELSE IF (IGRID.EQ.251) THEN
1729         DO 439 I = 1,18
1730           IGDS(I) = GRD251(I)
1731  439    CONTINUE
1732 C
1733       ELSE IF (IGRID.EQ.252) THEN
1734         DO 440 I = 1,18
1735           IGDS(I) = GRD252(I)
1736  440    CONTINUE
1737       ELSE IF (IGRID.EQ.253) THEN
1738         DO 441 I = 1,18
1739           IGDS(I) = GRD253(I)
1740  441    CONTINUE
1741       ELSE IF (IGRID.EQ.254) THEN
1742         DO 442 I = 1,18
1743           IGDS(I) = GRD254(I)
1744  442    CONTINUE
1745 C
1746       ELSE
1747         IERR = 1
1748       ENDIF
1749 C
1750       RETURN
1751       END