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