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