NCEPLIBS-w3emc  2.9.3
w3fi71.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Make array used by grib packer for gds.
3 C> @author Ralph Jones @date 1992-02-21
4 
5 C> W3FI71 Makes a 18, 37, 55, 64, or 91 word integer array
6 C> used by w3fi72() grib packer to make the grid description section
7 C> (gds) - section 2.
8 C>
9 C> Program history log:
10 C> - Ralph Jones 1992-02-21
11 C> - M. Farley 1992-07-01 Added remarks for 'igds' array elements.
12 C> added lambert conformal grids and enlarged
13 C> idgs array from 14 to 18 words.
14 C> - Ralph Jones 1992-10-03 Added corrections to awips grib tables
15 C> - Ralph Jones 1992-10-16 Add gaussian grid 126 to tables
16 C> - Ralph Jones 1992-10-18 Corrections to lambert conformal tables
17 C> and other tables
18 C> - Ralph Jones 1992-10-19 Add gaussian grid 98 to tables
19 C> - Ralph Jones 1993-01-25 Add on84 grids 87, 106, 107 to tables
20 C> - Ralph Jones 1993-03-10 Add on84 grids 1, 55, 56 to tables
21 C> - Ralph Jones 1993-03-26 Add grib grids 2, 3 to tables
22 C> - Ralph Jones 1993-03-29 Add save statement
23 C> - Ralph Jones 1993-06-15 Add grib grids 37 to 44 to tables
24 C> - Ralph Jones 1993-09-29 Gaussian grid document not correct,
25 C> w3fi74 will be changed to agree with
26 C> it. gaussian grid 98 table has wrong
27 C> value.
28 C> - Ralph Jones 1993-10-12 Changes for on388 rev. oct 8,1993 for
29 C> grid 204, 208.
30 C> - Ralph Jones 1993-10-13 Correction for grids 37-44, bytes 7-8,
31 C> 24-25 set to all bits 1 for missing.
32 C> - Ralph Jones 1993-11-23 Add grids 90-93 for eta model
33 C> add grid 4 for 720*361 .5 deg. grid
34 C> - Ralph Jones 1994-04-12 Correction for grid 28
35 C> - Ralph Jones 1994-06-01 Add grid 45, 288*145 1.25 deg. grid
36 C> - Ralph Jones 1994-06-22 Add grids 94, 95 for eta model
37 C> - Ralph Jones 1995-04-11 Add grids 96, 97 for eta model
38 C> - Ralph Jones 1995-05-19 Add from 20 km eta model awips grid 215
39 C> - Ralph Jones 1995-10-19 Add from 20 km eta model alaska grid 216
40 C> - Mark Iredell 1995-10-31 Removed saves and prints
41 C> - Mark Iredell 1996-05-08 Correct first latitude for grids 27 and 28
42 C> - Ralph Jones 1996-07-02 Add from 10 km eta model olympic grid 218
43 C> - Ralph Jones 1996-07-02 Add 196 for eta model
44 C> - Ralph Jones 1996-08-15 Add o.n. 84 grid 8 and 53 as grib grid 8
45 C> and 53
46 C> - Ralph Jones 1996-11-29 Correction to tables for grid 21-26, 61-64
47 C> - Mark Iredell 1997-01-31 Correct first latitude for grid 30
48 C> - Mark Iredell 1997-10-20 Correct last longitude for grid 98
49 C> - Stephen Gilbert 1998-07-07 Add grids 217 and 219 through 235
50 C> - Baldwin 1998-09-21 Add grids 190, 192 for eta model
51 C> - Bladwin 1999-01-20 Add grids 236, 237
52 C> - Mark Iredell 1999-08-18 Add grid 170
53 C> - Eric Rogers 2001-03-08 Changed eta grids 90-97, added eta grids
54 C> 194, 198. added awips grids 241,242,243,
55 C> 245, 246, 247, 248, and 250
56 C> - Boi Vuong 2001-03-19 Added awips grids 238,239,240, and 244
57 C> - Boi Vuong 2001-04-02 Correct last longitude for grid 225
58 C> - Eric Rogers 2001-05-03 Added grid 249
59 C> - Eric Rogers 2001-10-10 Redefined 218 for 12-km eta
60 C> redefined grid 192 for new 32-km eta grid
61 C> - Boi Vuong 2002-03-27 Added rsas grid 88 and awips grids 251 and 252
62 C> - Eric Rogers 2002-08-06 Redefined grids 90-93,97,194,245-250 for the
63 C> 8km hi-res-window model and add awips grid 253
64 C> - Stephen Gilbert 2003-06-30 Added grids 145 and 146 for cmaq
65 C> and grid 175 for awips over guam.
66 C> - Boi Vuong 2003-07-08 Corrected latitude for grid 253 and 170, add grid
67 C> 110, 127, 171 and 172
68 C> - Boi Vuong 2004-08-05 Corrected latitude for grid 253
69 C> - Stephen Gilbert 2004-09-01 Corrected the orientation and projection center flag
70 C> for southern hemisphere grids 28, 172, 220 and 224
71 C> - Boi Vuong 2004-09-02 Added grids 147, 148, 173 and 254
72 C> - Matt Cooke 2005-01-04 Added grids 160, 161 and corrected longitude of orientation for grid 172
73 C> - Boi Vuong 2005-03-03 Moved grid 170 to grid 174 and add grid 170
74 C> - Boi Vuong 2005-03-21 Added grids 130
75 C> - Boi Vuong 2005-09-12 Added grids 163
76 C> - Boi Vuong 2006-10-27 Corrected x and y-direction grid length for grids 252
77 C> - Boi Vuong 2006-11-16 Changed the longitude from negative to positive degree for grids 252
78 C> - Boi Vuong 2006-12-12 Changed data representation type (octet 6) from 0 to 1 for grid 254
79 C> add grid 120 (curvilinear orthogonal grid)
80 C> - Boi Vuong 2006-12-27 Corrected the lat/lon direction increment for grid 160
81 C> - Boi Vuong 2007-03-21 Corrected the lat/lon direction increment, resoulution,
82 C> scanning mode for grid 235 and grid type 204 for grid 120
83 C> - Boi Vuong 2007-04-24 Corrected the lat/lon direction increment, resoulution,
84 C> for grids (219,173,220,171,233,238,239,244,253) and added
85 C> grid 176.
86 C> - Boi Vuong 2007-06-11 Added new grids (11,12,13,14,15,16,18,122,123,124,125,138
87 C> 180, 181, 182, 183) and corrected the lat/lon direction
88 C> increment for grid 240.
89 C> - Boi Vuong 2007-11-06 Corrected the scanning mode for grids (11,12,13,14,15,16,18)
90 C> changed grid 198 from arakawa staggered e-grid to polar
91 C> stereographic grid added new grid 10, 99, 150, 151, 197
92 C> - Boi Vuong 2008-01-17 Added new grid 195 and changed grid 196 (arakawa-e to mercator)
93 C> - Boi Vuong 2010-02-15 Modified to correct latitude for grid 151 and added
94 C> - Boi Vuong 2010-06-01 Modified to correct latitude and longitude for grid 196
95 C> - Boi Vuong 2010-08-05 Added new grid 184, 199, 83 and
96 C> redefined grid 90 for new rtma conus 1.27-km
97 C> redefined grid 91 for new rtma alaska 2.976-km
98 C> redefined grid 92 for new rtma alaska 1.488-km
99 C> - Eric Rogers 2010-09-08 Changed grid 94 to alaska 6km staggered b-grid
100 C> changed grid 95 to puerto rico 3km staggered b-grid
101 C> changed grid 96 to hawaii 3km staggered b-grid
102 C> changed grid 96 to hawaii 3km staggered b-grid
103 C> changed grid 97 to conus 4km staggered b-grid
104 C> changed grid 99 to nam 12km staggered b-grid
105 C> added grid 179 (12 km polar stereographic over north america)
106 C> changed grid 194 to 3km mercator grid over puerto rico
107 C> corrected latitude of sw corner point of grid 151
108 C> - Boi Vuong 2011-10-12 Added grid 129, 187, 188, 189 and 193
109 C> - Boi Vuong 2012-04-16 Added grid 132, 200
110 C> - Boi Vuong 2012-11-07 Corrected grid 174 for res. and comp. flag set to 128
111 C> - Boi Vuong 2017-07-17 Correct grid 161 number of point nj from 102 to 103
112 C> and map size from 13974 to 14111
113 C> - Boi Vuong 2020-06-15 Corrected grid 200,212,216 and 236 for res. and comp. flag
114 C> set to 136 and south pole to -90.00
115 C>
116 C> @param[in] IGRID GRIB grid number, or office note 84 grid number
117 C> @param[out] IGDS 18, 37, 55, 64, or 91 word integer array with
118 C> information to make a grib grid description section.
119 C> @param[out] IERR:
120 C> - 0 Correct exit
121 C> - 1 Grid type in igrid is not in table
122 C>
123 C> @note
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  SUBROUTINE w3fi71 (IGRID, IGDS, IERR)
293 C
294  INTEGER IGRID
295  INTEGER IGDS (*)
296  INTEGER GRD1 (18)
297  INTEGER GRD2 (18)
298  INTEGER GRD3 (18)
299  INTEGER GRD4 (18)
300  INTEGER GRD5 (18)
301  INTEGER GRD6 (18)
302  INTEGER GRD8 (18)
303  INTEGER GRD10 (18)
304  INTEGER GRD11 (18)
305  INTEGER GRD12 (18)
306  INTEGER GRD13 (18)
307  INTEGER GRD14 (18)
308  INTEGER GRD15 (18)
309  INTEGER GRD16 (18)
310  INTEGER GRD17 (18)
311  INTEGER GRD18 (18)
312  INTEGER GRD21 (55)
313  INTEGER GRD22 (55)
314  INTEGER GRD23 (55)
315  INTEGER GRD24 (55)
316  INTEGER GRD25 (37)
317  INTEGER GRD26 (37)
318  INTEGER GRD27 (18)
319  INTEGER GRD28 (18)
320  INTEGER GRD29 (18)
321  INTEGER GRD30 (18)
322  INTEGER GRD33 (18)
323  INTEGER GRD34 (18)
324  INTEGER GRD37 (91)
325  INTEGER GRD38 (91)
326  INTEGER GRD39 (91)
327  INTEGER GRD40 (91)
328  INTEGER GRD41 (91)
329  INTEGER GRD42 (91)
330  INTEGER GRD43 (91)
331  INTEGER GRD44 (91)
332  INTEGER GRD45 (18)
333  INTEGER GRD53 (18)
334  INTEGER GRD55 (18)
335  INTEGER GRD56 (18)
336  INTEGER GRD61 (64)
337  INTEGER GRD62 (64)
338  INTEGER GRD63 (64)
339  INTEGER GRD64 (64)
340  INTEGER GRD83 (18)
341  INTEGER GRD85 (18)
342  INTEGER GRD86 (18)
343  INTEGER GRD87 (18)
344  INTEGER GRD88 (18)
345  INTEGER GRD90 (18)
346  INTEGER GRD91 (18)
347  INTEGER GRD92 (18)
348  INTEGER GRD93 (18)
349  INTEGER GRD94 (18)
350  INTEGER GRD95 (18)
351  INTEGER GRD96 (18)
352  INTEGER GRD97 (18)
353  INTEGER GRD98 (18)
354  INTEGER GRD99 (18)
355  INTEGER GRD100(18)
356  INTEGER GRD101(18)
357  INTEGER GRD103(18)
358  INTEGER GRD104(18)
359  INTEGER GRD105(18)
360  INTEGER GRD106(18)
361  INTEGER GRD107(18)
362  INTEGER GRD110(18)
363  INTEGER GRD120(18)
364  INTEGER GRD122(18)
365  INTEGER GRD123(18)
366  INTEGER GRD124(18)
367  INTEGER GRD125(18)
368  INTEGER GRD126(18)
369  INTEGER GRD127(18)
370  INTEGER GRD128(18)
371  INTEGER GRD129(18)
372  INTEGER GRD130(18)
373  INTEGER GRD132(18)
374  INTEGER GRD138(18)
375  INTEGER GRD139(18)
376  INTEGER GRD140(18)
377  INTEGER GRD145(18)
378  INTEGER GRD146(18)
379  INTEGER GRD147(18)
380  INTEGER GRD148(18)
381  INTEGER GRD150(18)
382  INTEGER GRD151(18)
383  INTEGER GRD160(18)
384  INTEGER GRD161(18)
385  INTEGER GRD163(18)
386  INTEGER GRD170(18)
387  INTEGER GRD171(18)
388  INTEGER GRD172(18)
389  INTEGER GRD173(18)
390  INTEGER GRD174(18)
391  INTEGER GRD175(18)
392  INTEGER GRD176(18)
393  INTEGER GRD179(18)
394  INTEGER GRD180(18)
395  INTEGER GRD181(18)
396  INTEGER GRD182(18)
397  INTEGER GRD183(18)
398  INTEGER GRD184(18)
399  INTEGER GRD187(18)
400  INTEGER GRD188(18)
401  INTEGER GRD189(18)
402  INTEGER GRD190(18)
403  INTEGER GRD192(18)
404  INTEGER GRD193(18)
405  INTEGER GRD194(18)
406  INTEGER GRD195(18)
407  INTEGER GRD196(18)
408  INTEGER GRD197(18)
409  INTEGER GRD198(18)
410  INTEGER GRD199(18)
411  INTEGER GRD200(18)
412  INTEGER GRD201(18)
413  INTEGER GRD202(18)
414  INTEGER GRD203(18)
415  INTEGER GRD204(18)
416  INTEGER GRD205(18)
417  INTEGER GRD206(18)
418  INTEGER GRD207(18)
419  INTEGER GRD208(18)
420  INTEGER GRD209(18)
421  INTEGER GRD210(18)
422  INTEGER GRD211(18)
423  INTEGER GRD212(18)
424  INTEGER GRD213(18)
425  INTEGER GRD214(18)
426  INTEGER GRD215(18)
427  INTEGER GRD216(18)
428  INTEGER GRD217(18)
429  INTEGER GRD218(18)
430  INTEGER GRD219(18)
431  INTEGER GRD220(18)
432  INTEGER GRD221(18)
433  INTEGER GRD222(18)
434  INTEGER GRD223(18)
435  INTEGER GRD224(18)
436  INTEGER GRD225(18)
437  INTEGER GRD226(18)
438  INTEGER GRD227(18)
439  INTEGER GRD228(18)
440  INTEGER GRD229(18)
441  INTEGER GRD230(18)
442  INTEGER GRD231(18)
443  INTEGER GRD232(18)
444  INTEGER GRD233(18)
445  INTEGER GRD234(18)
446  INTEGER GRD235(18)
447  INTEGER GRD236(18)
448  INTEGER GRD237(18)
449  INTEGER GRD238(18)
450  INTEGER GRD239(18)
451  INTEGER GRD240(18)
452  INTEGER GRD241(18)
453  INTEGER GRD242(18)
454  INTEGER GRD243(18)
455  INTEGER GRD244(18)
456  INTEGER GRD245(18)
457  INTEGER GRD246(18)
458  INTEGER GRD247(18)
459  INTEGER GRD248(18)
460  INTEGER GRD249(18)
461  INTEGER GRD250(18)
462  INTEGER GRD251(18)
463  INTEGER GRD252(18)
464  INTEGER GRD253(18)
465  INTEGER GRD254(18)
466 C
467  DATA grd1 / 0, 255, 1, 73, 23, -48090, 0, 128, 48090,
468  & 0, 513669,513669, 22500, 64, 0, 0, 0, 0/
469  DATA grd2 / 0, 255, 0, 144, 73, 90000, 0, 128, -90000,
470  & -2500, 2500, 2500, 0, 0, 0, 0, 0, 0/
471  DATA grd3 / 0, 255, 0, 360,181, 90000, 0, 128, -90000,
472  & -1000, 1000, 1000, 0, 0, 0, 0, 0, 0/
473  DATA grd4 / 0, 255, 0, 720,361, 90000, 0, 128, -90000,
474  & -500, 500, 500, 0, 0, 0, 0, 0, 0/
475  DATA grd5 / 0, 255, 5, 53, 57, 7647, -133443, 8, -105000,
476  & 190500, 190500, 0, 64, 0, 0, 0, 0, 0/
477  DATA grd6 / 0, 255, 5, 53, 45, 7647, -133443, 8, -105000,
478  & 190500, 190500, 0, 64, 0, 0, 0, 0, 0/
479  DATA grd8 / 0, 255, 1, 116, 44, -48670, 3104, 128, 61050,
480  & 0, 318830, 318830, 22500, 64, 0, 0, 0, 0/
481  DATA grd10 / 0, 255, 0, 180, 139, 64000, 1000, 128, -74000,
482  & 359000, 1000, 2000, 0, 0, 0, 0, 0, 0/
483  DATA grd11 / 0, 255, 0, 720, 311, 77500, 0, 128, -77500,
484  & 359500, 500, 500, 0, 0, 0, 0, 0, 0/
485  DATA grd12 / 0, 255, 0, 301, 331, 55000, 260000, 128, 0,
486  & 310000, 166, 166, 0, 0, 0, 0, 0, 0/
487  DATA grd13 / 0, 255, 0, 241, 151, 50000, 210000, 128, 25000,
488  & 250000, 166, 166, 0, 0, 0, 0, 0, 0/
489  DATA grd14 / 0, 255, 0, 511, 301, 30000, 130000, 128, -20000,
490  & 215000, 166, 166, 0, 0, 0, 0, 0, 0/
491  DATA grd15 / 0, 255, 0, 401, 187, 75000, 140000, 128, 44000,
492  & 240000, 166, 250, 0, 0, 0, 0, 0, 0/
493  DATA grd16 / 0, 255, 0, 548, 391, 74000, 165000, 128, 48000,
494  & 237933, 66, 133, 0, 0, 0, 0, 0, 0/
495  DATA grd17 / 0, 255, 0, 736, 526, 50000, 195000, 128, 15000,
496  & 244000, 66, 66, 0, 0, 0, 0, 0, 0/
497  DATA grd18 / 0, 255, 0, 586, 481, 47000, 261000, 128, 15000,
498  & 300000, 66, 66, 0, 0, 0, 0, 0, 0/
499  DATA grd21 / 0, 33, 0,65535,37, 0, 0, 128, 90000,
500  & 180000, 2500, 5000, 64, 0, 0, 0, 0, 0,
501  & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
502  & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
503  & 37, 37, 37, 37, 37, 37, 1/
504  DATA grd22 / 0, 33, 0,65535,37, 0, -180000, 128, 90000,
505  & 0, 2500, 5000, 64, 0, 0, 0, 0, 0,
506  & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
507  & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
508  & 37, 37, 37, 37, 37, 37, 1/
509  DATA grd23 / 0, 33, 0,65535, 37, -90000, 0, 128, 0,
510  & 180000, 2500, 5000, 64, 0, 0, 0, 0, 0,
511  & 1, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
512  & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
513  & 37, 37, 37, 37, 37, 37, 37/
514  DATA grd24 / 0, 33, 0,65535, 37, -90000, -180000, 128, 0,
515  & 0, 2500, 5000, 64, 0, 0, 0, 0, 0,
516  & 1, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
517  & 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
518  & 37, 37, 37, 37, 37, 37, 37/
519  DATA grd25 / 0, 33, 0,65535, 19, 0, 0, 128, 90000,
520  & 355000, 5000, 5000, 64, 0, 0, 0, 0, 0,
521  & 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72,
522  & 72, 72, 72, 1/
523  DATA grd26 / 0, 33, 0,65535, 19, -90000, 0, 128, 0,
524  & 355000, 5000, 5000, 64, 0, 0, 0, 0, 0,
525  & 1, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72,
526  & 72, 72, 72, 72/
527  DATA grd27 / 0, 255, 5, 65, 65, -20826, -125000, 8, -80000,
528  & 381000, 381000, 0, 64, 0, 0, 0, 0, 0/
529  DATA grd28 / 0, 255, 5, 65, 65, 20826, 145000, 8, -80000,
530  & 381000, 381000,128, 64, 0, 0, 0, 0, 0/
531  DATA grd29 / 0, 255, 0, 145, 37, 0, 0, 128, 90000,
532  & 360000, 2500, 2500, 64, 0, 0, 0, 0, 0/
533  DATA grd30 / 0, 255, 0, 145, 37, -90000, 0, 128, 0,
534  & 360000, 2500, 2500, 64, 0, 0, 0, 0, 0/
535  DATA grd33 / 0, 255, 0, 181, 46, 0, 0, 128, 90000,
536  & 360000, 2000, 2000, 64, 0, 0, 0, 0, 0/
537  DATA grd34 / 0, 255, 0, 181, 46, -90000, 0, 128, 0,
538  & 360000, 2000, 2000, 64, 0, 0, 0, 0, 0/
539  DATA grd37 / 0, 33, 0,65535,73, 0, -30000, 128, 90000,
540  & 60000, 1250,65535, 64, 0, 0, 0, 0, 0,
541  & 73, 73, 73, 73, 73, 73, 73, 73, 72, 72, 72, 71, 71, 71, 70,
542  & 70, 69, 69, 68, 67, 67, 66, 65, 65, 64, 63, 62, 61, 60, 60,
543  & 59, 58, 57, 56, 55, 54, 52, 51, 50, 49, 48, 47, 45, 44, 43,
544  & 42, 40, 39, 38, 36, 35, 33, 32, 30, 29, 28, 26, 25, 23, 22,
545  & 20, 19, 17, 16, 14, 12, 11, 9, 8, 6, 5, 3, 2/
546  DATA grd38 / 0, 33, 0,65535,73, 0, 60000, 128, 90000,
547  & 150000, 1250,65535, 64, 0, 0, 0, 0, 0,
548  & 73, 73, 73, 73, 73, 73, 73, 73, 72, 72, 72, 71, 71, 71, 70,
549  & 70, 69, 69, 68, 67, 67, 66, 65, 65, 64, 63, 62, 61, 60, 60,
550  & 59, 58, 57, 56, 55, 54, 52, 51, 50, 49, 48, 47, 45, 44, 43,
551  & 42, 40, 39, 38, 36, 35, 33, 32, 30, 29, 28, 26, 25, 23, 22,
552  & 20, 19, 17, 16, 14, 12, 11, 9, 8, 6, 5, 3, 2/
553  DATA grd39 / 0, 33, 0,65535,73, 0, 150000, 128, 90000,
554  & -120000, 1250,65535, 64, 0, 0, 0, 0, 0,
555  & 73, 73, 73, 73, 73, 73, 73, 73, 72, 72, 72, 71, 71, 71, 70,
556  & 70, 69, 69, 68, 67, 67, 66, 65, 65, 64, 63, 62, 61, 60, 60,
557  & 59, 58, 57, 56, 55, 54, 52, 51, 50, 49, 48, 47, 45, 44, 43,
558  & 42, 40, 39, 38, 36, 35, 33, 32, 30, 29, 28, 26, 25, 23, 22,
559  & 20, 19, 17, 16, 14, 12, 11, 9, 8, 6, 5, 3, 2/
560  DATA grd40 / 0, 33, 0,65535,73, 0, -120000, 128, 90000,
561  & -30000, 1250,65535, 64, 0, 0, 0, 0, 0,
562  & 73, 73, 73, 73, 73, 73, 73, 73, 72, 72, 72, 71, 71, 71, 70,
563  & 70, 69, 69, 68, 67, 67, 66, 65, 65, 64, 63, 62, 61, 60, 60,
564  & 59, 58, 57, 56, 55, 54, 52, 51, 50, 49, 48, 47, 45, 44, 43,
565  & 42, 40, 39, 38, 36, 35, 33, 32, 30, 29, 28, 26, 25, 23, 22,
566  & 20, 19, 17, 16, 14, 12, 11, 9, 8, 6, 5, 3, 2/
567  DATA grd41 / 0, 33, 0,65535,73, -90000, -30000, 128, 0,
568  & 60000, 1250,65535, 64, 0, 0, 0, 0, 0,
569  & 2, 3, 5, 6, 8, 9, 11, 12, 14, 16, 17, 19, 20, 22, 23,
570  & 25, 26, 28, 29, 30, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44,
571  & 45, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 60,
572  & 61, 62, 63, 64, 65, 65, 66, 67, 67, 68, 69, 69, 70, 70, 71,
573  & 71, 71, 72, 72, 72, 73, 73, 73, 73, 73, 73, 73, 73/
574  DATA grd42 / 0, 33, 0,65535,73, -90000, 60000, 128, 0,
575  & 150000, 1250,65535, 64, 0, 0, 0, 0, 0,
576  & 2, 3, 5, 6, 8, 9, 11, 12, 14, 16, 17, 19, 20, 22, 23,
577  & 25, 26, 28, 29, 30, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44,
578  & 45, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 60,
579  & 61, 62, 63, 64, 65, 65, 66, 67, 67, 68, 69, 69, 70, 70, 71,
580  & 71, 71, 72, 72, 72, 73, 73, 73, 73, 73, 73, 73, 73/
581  DATA grd43 / 0, 33, 0,65535,73, -90000, 150000, 128, 0,
582  & -120000, 1250,65535, 64, 0, 0, 0, 0, 0,
583  & 2, 3, 5, 6, 8, 9, 11, 12, 14, 16, 17, 19, 20, 22, 23,
584  & 25, 26, 28, 29, 30, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44,
585  & 45, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 60,
586  & 61, 62, 63, 64, 65, 65, 66, 67, 67, 68, 69, 69, 70, 70, 71,
587  & 71, 71, 72, 72, 72, 73, 73, 73, 73, 73, 73, 73, 73/
588  DATA grd44 / 0, 33, 0,65535,73, -90000, -120000, 128, 0,
589  & -30000, 1250,65535, 64, 0, 0, 0, 0, 0,
590  & 2, 3, 5, 6, 8, 9, 11, 12, 14, 16, 17, 19, 20, 22, 23,
591  & 25, 26, 28, 29, 30, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44,
592  & 45, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 60,
593  & 61, 62, 63, 64, 65, 65, 66, 67, 67, 68, 69, 69, 70, 70, 71,
594  & 71, 71, 72, 72, 72, 73, 73, 73, 73, 73, 73, 73, 73/
595  DATA grd45 / 0, 255, 0, 288,145, 90000, 0, 128, -90000,
596  & -1250, 1250, 1250, 0, 0, 0, 0, 0, 0/
597  DATA grd53 / 0, 255, 1, 117, 51, -61050, 0, 128, 61050,
598  & 0, 318830, 318830, 22500, 64, 0, 0, 0, 0/
599  DATA grd55 / 0, 255, 5, 87, 71, -10947, -154289, 8, -105000,
600  & 254000, 254000, 0, 64, 0, 0, 0, 0, 0/
601  DATA grd56 / 0, 255, 5, 87, 71, 7647, -133443, 8, -105000,
602  & 127000, 127000, 0, 64, 0, 0, 0, 0, 0/
603  DATA grd61 / 0, 33, 0,65535, 46, 0, 0, 128, 90000,
604  & 180000, 2000, 2000, 64, 0, 0, 0, 0, 0,
605  & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
606  & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
607  & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91,
608  & 1/
609  DATA grd62 / 0, 33, 0,65535, 46, 0, -180000, 128, 90000,
610  & 0, 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 grd63 / 0, 33, 0,65535, 46, 0, -90000, 128, 0,
616  & 180000, 2000, 2000, 64, 0, 0, 0, 0, 0,
617  & 1, 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  & 91/
621  DATA grd64 / 0, 33, 0,65535, 46, -90000, -180000, 128, 0,
622  & 0, 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 grd83 / 0, 255,205,758,567, 2228, -140481, 136, 47500,
628  & -104000, 121,121,64, 53492, -10984, 0, 0, 0/
629  DATA grd85 / 0, 255, 0, 360, 90, 500, 500, 128, 89500,
630  & 359500, 1000, 1000, 64, 0, 0, 0, 0, 0/
631  DATA grd86 / 0, 255, 0, 360, 90, -89500, 500, 128, -500,
632  & 359500, 1000, 1000, 64, 0, 0, 0, 0, 0/
633  DATA grd87 / 0, 255, 5, 81, 62, 22876, -120491, 8, -105000,
634  & 68153, 68153, 0, 64, 0, 0, 0, 0, 0/
635  DATA grd88 / 0, 255, 5, 580,548, 10000, -128000, 8, -105000,
636  & 15000, 15000, 0, 64, 0, 0, 0, 0, 0/
637  DATA grd90 / 0, 255, 3,4289,2753, 20192, -121554, 8, -95000,
638  & 1270, 1270, 0, 64, 0, 25000, 25000, 0, 0/
639  DATA grd91 / 0, 255, 5,1649,1105, 40530, -178571, 8, -150000,
640  & 2976, 2976, 0, 64, 0, 0, 0, 0, 0/
641  DATA grd92 / 0, 255, 5,3297,2209, 40530, -178571, 8, -150000,
642  & 1488, 1488, 0, 64, 0, 0, 0, 0, 0/
643  DATA grd93 / 0, 255,203,223,501, 44232, -169996, 136, 63000,
644  & -150000, 67,66,64, 0, 0, 0, 0, 0/
645  DATA grd94 / 0, 255,205,595,625, 34921, -161663, 136, 54000,
646  & -106000, 63, 54,64, 83771, -151721, 0, 0, 0/
647  DATA grd95 / 0, 255,205,401,325, 17609, -76327, 136, 54000,
648  & -106000, 31, 27,64, 18840, -61261, 0, 0, 0/
649  DATA grd96 / 0, 255,205,373,561, 11625, -156339, 136, 54000,
650  & -106000, 31, 27,64, 30429, -157827, 0, 0, 0/
651  DATA grd97 / 0, 255,205,1371,1100, 15947,-125468, 136, 54000,
652  & -106000, 42, 36,64,45407,-52390, 0, 0, 0/
653  DATA grd98 / 0, 255, 4, 192, 94, 88542, 0, 128, -88542,
654  & -1875, 47,1875, 0, 0, 0, 0, 0, 0/
655  DATA grd99 / 0, 255,203,669,1165, -7450, -144140, 136, 54000,
656  & -106000, 90, 77, 64, 0, 0, 0, 0, 0/
657  DATA grd100/ 0, 255, 5, 83, 83, 17108, -129296, 8, -105000,
658  & 91452, 91452, 0, 64, 0, 0, 0, 0, 0/
659  DATA grd101/ 0, 255, 5, 113, 91, 10528, -137146, 8, -105000,
660  & 91452, 91452, 0, 64, 0, 0, 0, 0, 0/
661  DATA grd103/ 0, 255, 5, 65, 56, 22405, -121352, 8, -105000,
662  & 91452, 91452, 0, 64, 0, 0, 0, 0, 0/
663  DATA grd104/ 0, 255, 5, 147,110, -268, -139475, 8, -105000,
664  & 90755, 90755, 0, 64, 0, 0, 0, 0, 0/
665  DATA grd105/ 0, 255, 5, 83, 83, 17529, -129296, 8, -105000,
666  & 90755, 90755, 0, 64, 0, 0, 0, 0, 0/
667  DATA grd106/ 0, 255, 5, 165,117, 17533, -129296, 8, -105000,
668  & 45373, 45373, 0, 64, 0, 0, 0, 0, 0/
669  DATA grd107/ 0, 255, 5, 120, 92, 23438, -120168, 8, -105000,
670  & 45373, 45373, 0, 64, 0, 0, 0, 0, 0/
671  DATA grd110/ 0, 255, 0, 464,224, 25063, -124938, 128, 52938,
672  & -67063, 125, 125, 64, 0, 0, 0, 0, 0/
673  DATA grd120/ 0, 255,204,1200,1684, 0, 0, 8, 0,
674  & 0, 0, 0, 64, 0, 0, 0, 0, 0/
675  DATA grd122/ 0, 255,204, 350, 465, 0, 0, 8, 0,
676  & 0, 0, 0, 64, 0, 0, 0, 0, 0/
677  DATA grd123/ 0, 255,204, 280, 360, 0, 0, 8, 0,
678  & 0, 0, 0, 64, 0, 0, 0, 0, 0/
679  DATA grd124/ 0, 255,204, 240, 314, 0, 0, 8, 0,
680  & 0, 0, 0, 64, 0, 0, 0, 0, 0/
681  DATA grd125/ 0, 255,204, 300, 340, 0, 0, 8, 0,
682  & 0, 0, 0, 64, 0, 0, 0, 0, 0/
683  DATA grd126/ 0, 255, 4, 384,190, 89277, 0, 128, -89277,
684  & -938, 95, 938, 0, 0, 0, 0, 0, 0/
685  DATA grd127/ 0, 255, 4, 768,384, 89642, 0, 128, -89642,
686  & -469, 192, 469, 0, 0, 0, 0, 0, 0/
687  DATA grd128/ 0, 255, 4,1152,576, 89761, 0, 128, -89761,
688  & -313, 288, 313, 0, 0, 0, 0, 0, 0/
689  DATA grd129/ 0, 255, 4,1760,880, 89844, 0, 128, -89844,
690  & -205, 440, 205, 0, 0, 0, 0, 0, 0/
691  DATA grd130/ 0, 255, 3, 451,337, 16281, -126138, 8, -95000,
692  & 13545, 13545, 0, 64, 0, 25000, 25000, 0, 0/
693  DATA grd132/ 0, 255, 3, 697,553, 1000, -145500, 8, -107000,
694  & 16232, 16232, 0, 64, 0, 50000, 50000, 0, 0/
695  DATA grd138/ 0, 255, 3, 468,288, 21017, -123282, 8, -97000,
696  & 12000, 12000, 0, 64, 0, 33000, 45000, 0, 0/
697  DATA grd139/ 0, 255, 3, 80,52, 17721, -161973, 8, -157500,
698  & 12000, 12000, 0, 64, 0, 19000, 21000, 0, 0/
699  DATA grd140/ 0, 255, 3, 199,163, 53020, -166477, 8, -148600,
700  & 12000, 12000, 0, 64, 0, 57000, 63000, 0, 0/
701  DATA grd145/ 0, 255, 3, 169,145, 32174, -90159, 8, -79500,
702  & 12000, 12000, 0, 64, 0, 36000, 46000, 0, 0/
703  DATA grd146/ 0, 255, 3, 166,142, 32353, -89994, 8, -79500,
704  & 12000, 12000, 0, 64, 0, 36000, 46000, 0, 0/
705  DATA grd147/ 0, 255, 3, 268,259, 24595, -100998, 8, -97000,
706  & 12000, 12000, 0, 64, 0, 33000, 45000, 0, 0/
707  DATA grd148/ 0, 255, 3, 442,265, 21821, -120628, 8, -97000,
708  & 12000, 12000, 0, 64, 0, 33000, 45000, 0, 0/
709  DATA grd150/ 0, 255, 0, 401,201, 5000, -100000, 128, 25000,
710  & -60000, 100, 100, 64, 0, 0, 0, 0, 0/
711  DATA grd151/ 0, 255, 5, 478, 429, -7450, 215860, 8, -110000,
712  & 33812, 33812, 0, 64, 0, 0, 0, 0, 0/
713  DATA grd160/ 0, 255, 5, 180,156, 19132, -185837, 8, -150000,
714  & 47625, 47625, 0, 64, 0, 0, 0, 0, 0/
715  DATA grd161/ 0, 255, 0, 137,103, 50750, 271750, 72, -250,
716  & -19750, 500,500, 0, 0, 0, 0, 0, 0/
717  DATA grd163/ 0, 255, 3,1008,722, 20600, -118300, 8, -95000,
718  & 5000, 5000, 0, 64, 0, 38000, 38000, 0, 0/
719  DATA grd170/ 0, 255, 4, 512, 256, 89463, 0, 128, -89463,
720  & -703, 128, 703, 0, 0, 0, 0, 0, 0/
721  DATA grd171/ 0, 255, 5, 770,930, 25032, -119560, 0, -80000,
722  & 12700, 12700, 0, 64, 0, 0, 0, 0, 0/
723  DATA grd172/ 0, 255, 5, 690,710, -36866, -220194, 0, -260000,
724  & 12700, 12700, 128, 64, 0, 0, 0, 0, 0/
725  DATA grd173/ 0, 255, 0,4320,2160, 89958, 42, 128, -89958,
726  & 359958, 83, 83, 0, 0, 0, 0, 0, 0/
727  DATA grd174/ 0, 255, 0,2880,1440, 89938, 62, 128, -89938,
728  & -62, 125, 125,64, 0, 0, 0, 0, 0/
729  DATA grd175/ 0, 255, 0, 556,334, 0, 130000, 128, 30060,
730  & 180040, 90, 90, 64, 0, 0, 0, 0, 0/
731  DATA grd176/ 0, 255, 0, 327,235, 49100, -92200, 128, 40910,
732  & -75900, 35, 50, 0, 0, 0, 0, 0, 0/
733  DATA grd179/ 0, 255, 5,1196,817, -2500, -142500, 8, -100000,
734  & 12679, 12679, 0, 64, 0, 0, 0, 0, 0/
735  DATA grd180/ 0, 255, 0, 759,352, 55054, -127000, 128, 17146,
736  & -45136, 108, 108, 0, 0, 0, 0, 0, 0/
737  DATA grd181/ 0, 255, 0, 370,278, 30054, -100000, 128, 138,
738  & -60148, 108, 108, 0, 0, 0, 0, 0, 0/
739  DATA grd182/ 0, 255, 0, 278,231, 32973, -170000, 128, 8133,
740  & -140084, 108, 108, 0, 0, 0, 0, 0, 0/
741  DATA grd183/ 0, 255, 0, 648,278, 75054, -200000, 128, 45138,
742  & -130124, 108, 108, 0, 0, 0, 0, 0, 0/
743  DATA grd184/ 0, 255, 3,2145,1377, 20192, -121554, 8, -95000,
744  & 2540, 2540, 0, 64, 0, 25000, 25000, 0, 0/
745  DATA grd187/ 0, 255, 3,2145,1597, 20192, -121554, 8, -95000,
746  & 2540, 2540, 0, 64, 0, 25000, 25000, 0, 0/
747  DATA grd188/ 0, 255, 3, 709, 795, 37979, -125958, 8, -95000,
748  & 2540, 2540, 0, 64, 0, 25000, 25000, 0, 0/
749  DATA grd189/ 0, 255, 5, 655, 855, 51500, -142500, 8, -135000,
750  & 1448, 1448, 0, 64, 0, 0, 0, 0, 0/
751  DATA grd190/ 0, 255,205,954,835, -7491, -144134, 136, 54000,
752  & -106000, 126, 108, 64, 44540, 14802, 0, 0, 0/
753  DATA grd192/ 0, 255,203,237,387, -3441, -148799, 136, 50000,
754  & -111000, 225,207,64, 0, 0, 0, 0, 0/
755  DATA grd193 / 0, 255, 0, 1440, 721, 90000, 0, 128, -90000,
756  & -250, 250, 250, 0, 0, 0, 0, 0, 0/
757  DATA grd194/ 0, 255, 1, 544,310, 15000, -75500, 128, 22005,
758  & -62509, 2500, 2500, 20000, 64, 0, 0, 0, 0/
759  DATA grd195/ 0, 255, 1, 177,129, 16829, -68196, 128, 19747,
760  & -63972, 2500, 2500, 20000, 64, 0, 0, 0, 0/
761  DATA grd196/ 0, 255, 1, 321,225, 18073, -161525, 136, 23088,
762  & -153869, 2500, 2500, 20000, 64, 0, 0, 0, 0/
763  DATA grd197/ 0, 255, 3,1073,689, 20192, -121550, 8, -95000,
764  & 5079, 5079, 0, 64, 0, 25000, 25000, 0, 0/
765  DATA grd198/ 0, 255, 5, 825, 553, 40530, -178571, 8, -150000,
766  & 5953, 5953, 0, 64, 0, 0, 0, 0, 0/
767  DATA grd199/ 0, 255, 1, 193,193, 12350, -216313, 128, 16794,
768  & -211720, 2500, 2500, 20000, 64, 0, 0, 0, 0/
769  DATA grd200/ 0, 255, 3, 108, 94, 16201, 285720, 136, -107000,
770  & 16232, 16232, 0, 64, 0, 50000, 50000, -90000, 0/
771  DATA grd201/ 0, 255, 5, 65, 65, -20826, -150000, 8, -105000,
772  & 381000, 381000, 0, 64, 0, 0, 0, 0, 0/
773  DATA grd202/ 0, 255, 5, 65, 43, 7838, -141028, 8, -105000,
774  & 190500, 190500, 0, 64, 0, 0, 0, 0, 0/
775  DATA grd203/ 0, 255, 5, 45, 39, 19132, -185837, 8, -150000,
776  & 190500, 190500, 0, 64, 0, 0, 0, 0, 0/
777  DATA grd204/ 0, 255, 1, 93, 68, -25000, 110000, 128, 60644,
778  & -109129, 160000, 160000, 20000, 64, 0, 0, 0, 0/
779  DATA grd205/ 0, 255, 5, 45, 39, 616, -84904, 8, -60000,
780  & 190500, 190500, 0, 64, 0, 0, 0, 0, 0/
781  DATA grd206/ 0, 255, 3, 51, 41, 22289, -117991, 8, - 95000,
782  & 81271, 81271, 0, 64, 0, 25000, 25000, 0, 0/
783  DATA grd207/ 0, 255, 5, 49, 35, 42085, -175641, 8, -150000,
784  & 95250, 95250, 0, 64, 0, 0, 0, 0, 0/
785  DATA grd208/ 0, 255, 1, 29, 27, 9343, -167315, 128, 28092,
786  & -145878, 80000, 80000, 20000, 64, 0, 0, 0, 0/
787  DATA grd209/ 0, 255, 3, 275,223, -4850, -151100, 8, -111000,
788  & 44000, 44000, 0, 64, 0, 45000, 45000, 0, 0/
789  DATA grd210/ 0, 255, 1, 25, 25, 9000, -77000, 128, 26422,
790  & -58625, 80000, 80000, 20000, 64, 0, 0, 0, 0/
791  DATA grd211/ 0, 255, 3, 93, 65, 12190, -133459, 8, -95000,
792  & 81271, 81271, 0, 64, 0, 25000, 25000, 0, 0/
793  DATA grd212/ 0, 255, 3, 185,129, 12190, -133459, 136, -95000,
794  & 40635, 40635, 0, 64, 0, 25000, 25000, -90000, 0/
795  DATA grd213/ 0, 255, 5, 129, 85, 7838, -141028, 8, -105000,
796  & 95250, 95250, 0, 64, 0, 0, 0, 0, 0/
797  DATA grd214/ 0, 255, 5, 97, 69, 42085, -175641, 8, -150000,
798  & 47625, 47625, 0, 64, 0, 0, 0, 0, 0/
799  DATA grd215/ 0, 255, 3, 369,257, 12190, -133459, 8, -95000,
800  & 20318, 20318, 0, 64, 0, 25000, 25000, 0, 0/
801  DATA grd216/ 0, 255, 5, 139,107, 30000, -173000, 136, -135000,
802  & 45000, 45000, 0, 64, 0, 0, 0, 0, 0/
803  DATA grd217/ 0, 255, 5, 277,213, 30000, -173000, 8, -135000,
804  & 22500, 22500, 0, 64, 0, 0, 0, 0, 0/
805  DATA grd218/ 0, 255, 3, 614,428, 12190, -133459, 8, -95000,
806  & 12191, 12191, 0, 64, 0, 25000, 25000, 0, 0/
807  DATA grd219/ 0, 255, 5, 385,465, 25032, -119560, 0, -80000,
808  & 25400, 25400, 0, 64, 0, 0, 0, 0, 0/
809  DATA grd220/ 0, 255, 5, 345,355, -36866, -220194, 0, -260000,
810  & 25400, 25400, 128, 64, 0, 0, 0, 0, 0/
811  DATA grd221/ 0, 255, 3, 349,277, 1000, -145500, 8, -107000,
812  & 32463, 32463, 0, 64, 0, 50000, 50000, 0, 0/
813  DATA grd222/ 0, 255, 3, 138,112, -4850, -151100, 8, -111000,
814  & 88000, 88000, 0, 64, 0, 45000, 45000, 0, 0/
815  DATA grd223/ 0, 255, 5, 129,129, -20826, -150000, 8, -105000,
816  & 190500, 190500, 0, 64, 0, 0, 0, 0, 0/
817  DATA grd224/ 0, 255, 5, 65, 65, 20826, 120000, 8, -105000,
818  & 381000, 381000, 128, 64, 0, 0, 0, 0, 0/
819  DATA grd225/ 0, 255, 1, 185,135, -25000, -250000, 128, 60640,
820  & -109129, 80000, 80000, 20000, 64, 0, 0, 0, 0/
821  DATA grd226/ 0, 255, 3, 737,513, 12190, -133459, 8, -95000,
822  & 10159, 10159, 0, 64, 0, 25000, 25000, 0, 0/
823  DATA grd227/ 0, 255, 3,1473,1025, 12190, -133459, 8, -95000,
824  & 5079, 5079, 0, 64, 0, 25000, 25000, 0, 0/
825  DATA grd228/ 0, 255, 0, 144, 73, 90000, 0, 128, -90000,
826  & -2500, 2500, 2500, 64, 0, 0, 0, 0, 0/
827  DATA grd229/ 0, 255, 0, 360,181, 90000, 0, 128, -90000,
828  & -1000, 1000, 1000, 64, 0, 0, 0, 0, 0/
829  DATA grd230/ 0, 255, 0, 720,361, 90000, 0, 128, -90000,
830  & -500, 500, 500, 64, 0, 0, 0, 0, 0/
831  DATA grd231/ 0, 255, 0, 720,181, 0, 0, 128, 90000,
832  & -500, 500, 500, 64, 0, 0, 0, 0, 0/
833  DATA grd232/ 0, 255, 0, 360, 91, 0, 0, 128, 90000,
834  & -1000, 1000, 1000, 64, 0, 0, 0, 0, 0/
835  DATA grd233/ 0, 255, 0, 288,157, 78000, 0, 128, -78000,
836  & -1250, 1000, 1250, 0, 0, 0, 0, 0, 0/
837  DATA grd234/ 0, 255, 0, 133,121, 15000, -98000, 128, -45000,
838  & -65000, 250, 250, 64, 0, 0, 0, 0, 0/
839  DATA grd235/ 0, 255, 0, 720,360, 89750, 250, 128, -89750,
840  & -250, 500, 500, 0, 0, 0, 0, 0, 0/
841  DATA grd236/ 0, 255, 3, 151,113, 16281, 233862, 136, -95000,
842  & 40635, 40635, 0, 64, 0, 25000, 25000, -90000, 0/
843  DATA grd237/ 0, 255, 3, 54, 47, 16201, 285720, 8, -107000,
844  & 32463, 32463, 0, 64, 0, 50000, 50000, 0, 0/
845  DATA grd238/ 0, 255, 0, 275, 203, 50250, 261750, 128, -250,
846  & -29750, 250, 250, 0, 0, 0, 0, 0, 0/
847  DATA grd239/ 0, 255, 0, 155, 123, 75250, 159500, 128, 44750,
848  & -123500, 250, 500, 0, 0, 0, 0, 0, 0/
849  DATA grd240/ 0, 255, 5, 1121, 881, 23098, -119036, 8, -105000,
850  & 4763, 4763, 0, 64, 0, 0, 0, 0, 0/
851  DATA grd241/ 0, 255, 3, 549,445, -4850, -151100, 8, -111000,
852  & 22000, 22000, 0, 64, 0, 45000, 45000, 0, 0/
853  DATA grd242/ 0, 255, 5, 553,425, 30000, -173000, 8, -135000,
854  & 11250, 11250, 0, 64, 0, 0, 0, 0, 0/
855  DATA grd243/ 0, 255, 0, 126,101, 10000, -170000, 128, 50000,
856  & -120000, 400, 400, 64, 0, 0, 0, 0, 0/
857  DATA grd244/ 0, 255, 0, 275, 203, 50250, 261750, 128, -250,
858  & -29750, 250, 250, 0, 0, 0, 0, 0, 0/
859  DATA grd245/ 0, 255, 3, 336,372, 22980, -92840, 8, -80000,
860  & 8000, 8000, 0, 64, 0, 35000, 35000, 0, 0/
861  DATA grd246/ 0, 255, 3, 332,371, 25970, -127973, 8, -115000,
862  & 8000, 8000, 0, 64, 0, 40000, 40000, 0, 0/
863  DATA grd247/ 0, 255, 3, 336,372, 22980, -110840, 8, -98000,
864  & 8000, 8000, 0, 64, 0, 35000, 35000, 0, 0/
865  DATA grd248/ 0, 255, 0, 135,101, 14500, -71500, 128, 22000,
866  & -61450, 75, 75, 64, 0, 0, 0, 0, 0/
867  DATA grd249/ 0, 255, 5, 367,343, 45400, -171600, 8, -150000,
868  & 9868, 9868, 0, 64, 0, 0, 0, 0, 0/
869  DATA grd250/ 0, 255, 0, 135,101, 16500, -162000, 128, 24000,
870  & -151950, 75, 75, 64, 0, 0, 0, 0, 0/
871  DATA grd251/ 0, 255, 0, 332,210, 26350, -83050, 128, 47250,
872  & -49950, 100, 100, 64, 0, 0, 0, 0, 0/
873  DATA grd252/ 0, 255, 3, 301,225, 16281, 233862, 8, 265000,
874  & 20318, 20318, 0, 64, 0, 25000, 25000, 0, 0/
875  DATA grd253/ 0, 255, 0, 373,224, 60500, 189750, 128, 4750,
876  & -77250, 250, 250, 0, 0, 0, 0, 0, 0/
877  DATA grd254/ 0, 255, 1, 369,300, -35000, -250000, 128, 60789,
878  & -109129, 40000,40000, 20000, 64, 0, 0, 0, 0/
879 C
880  ierr = 0
881 C
882  DO 1 i = 1,18
883  igds(i) = 0
884  1 CONTINUE
885 C
886  IF (igrid.GE.37.AND.igrid.LE.44) THEN
887  DO 2 i = 19,91
888  igds(i) = 0
889  2 CONTINUE
890  END IF
891 C
892  IF (igrid.GE.21.AND.igrid.LE.24) THEN
893  DO i = 19,55
894  igds(i) = 0
895  END DO
896  END IF
897 C
898  IF (igrid.GE.25.AND.igrid.LE.26) THEN
899  DO i = 19,37
900  igds(i) = 0
901  END DO
902  END IF
903 C
904  IF (igrid.GE.61.AND.igrid.LE.64) THEN
905  DO i = 19,64
906  igds(i) = 0
907  END DO
908  END IF
909 C
910  IF (igrid.EQ.1) THEN
911  DO 3 i = 1,18
912  igds(i) = grd1(i)
913  3 CONTINUE
914 C
915  ELSE IF (igrid.EQ.2) THEN
916  DO 4 i = 1,18
917  igds(i) = grd2(i)
918  4 CONTINUE
919 C
920  ELSE IF (igrid.EQ.3) THEN
921  DO 5 i = 1,18
922  igds(i) = grd3(i)
923  5 CONTINUE
924 C
925  ELSE IF (igrid.EQ.4) THEN
926  DO 6 i = 1,18
927  igds(i) = grd4(i)
928  6 CONTINUE
929 C
930  ELSE IF (igrid.EQ.5) THEN
931  DO 10 i = 1,18
932  igds(i) = grd5(i)
933  10 CONTINUE
934 C
935  ELSE IF (igrid.EQ.6) THEN
936  DO 20 i = 1,18
937  igds(i) = grd6(i)
938  20 CONTINUE
939 C
940  ELSE IF (igrid.EQ.8) THEN
941  DO i = 1,18
942  igds(i) = grd8(i)
943  END DO
944 C
945  ELSE IF (igrid.EQ.10) THEN
946  DO i = 1,18
947  igds(i) = grd10(i)
948  END DO
949 C
950  ELSE IF (igrid.EQ.11) THEN
951  DO i = 1,18
952  igds(i) = grd11(i)
953  END DO
954 C
955  ELSE IF (igrid.EQ.12) THEN
956  DO i = 1,18
957  igds(i) = grd12(i)
958  END DO
959 C
960  ELSE IF (igrid.EQ.13) THEN
961  DO i = 1,18
962  igds(i) = grd13(i)
963  END DO
964 C
965  ELSE IF (igrid.EQ.14) THEN
966  DO i = 1,18
967  igds(i) = grd14(i)
968  END DO
969 C
970  ELSE IF (igrid.EQ.15) THEN
971  DO i = 1,18
972  igds(i) = grd15(i)
973  END DO
974 C
975  ELSE IF (igrid.EQ.16) THEN
976  DO i = 1,18
977  igds(i) = grd16(i)
978  END DO
979 C
980  ELSE IF (igrid.EQ.17) THEN
981  DO i = 1,18
982  igds(i) = grd17(i)
983  END DO
984 C
985  ELSE IF (igrid.EQ.18) THEN
986  DO i = 1,18
987  igds(i) = grd18(i)
988  END DO
989 C
990  ELSE IF (igrid.EQ.21) THEN
991  DO 30 i = 1,55
992  igds(i) = grd21(i)
993  30 CONTINUE
994 C
995  ELSE IF (igrid.EQ.22) THEN
996  DO 40 i = 1,55
997  igds(i) = grd22(i)
998  40 CONTINUE
999 C
1000  ELSE IF (igrid.EQ.23) THEN
1001  DO 50 i = 1,55
1002  igds(i) = grd23(i)
1003  50 CONTINUE
1004 C
1005  ELSE IF (igrid.EQ.24) THEN
1006  DO 60 i = 1,55
1007  igds(i) = grd24(i)
1008  60 CONTINUE
1009 C
1010  ELSE IF (igrid.EQ.25) THEN
1011  DO 70 i = 1,37
1012  igds(i) = grd25(i)
1013  70 CONTINUE
1014 C
1015  ELSE IF (igrid.EQ.26) THEN
1016  DO 80 i = 1,37
1017  igds(i) = grd26(i)
1018  80 CONTINUE
1019 C
1020  ELSE IF (igrid.EQ.27) THEN
1021  DO 90 i = 1,18
1022  igds(i) = grd27(i)
1023  90 CONTINUE
1024 C
1025  ELSE IF (igrid.EQ.28) THEN
1026  DO 100 i = 1,18
1027  igds(i) = grd28(i)
1028  100 CONTINUE
1029 C
1030  ELSE IF (igrid.EQ.29) THEN
1031  DO 110 i = 1,18
1032  igds(i) = grd29(i)
1033  110 CONTINUE
1034 C
1035  ELSE IF (igrid.EQ.30) THEN
1036  DO 120 i = 1,18
1037  igds(i) = grd30(i)
1038  120 CONTINUE
1039 C
1040  ELSE IF (igrid.EQ.33) THEN
1041  DO 130 i = 1,18
1042  igds(i) = grd33(i)
1043  130 CONTINUE
1044 C
1045  ELSE IF (igrid.EQ.34) THEN
1046  DO 140 i = 1,18
1047  igds(i) = grd34(i)
1048  140 CONTINUE
1049 C
1050  ELSE IF (igrid.EQ.37) THEN
1051  DO 141 i = 1,91
1052  igds(i) = grd37(i)
1053  141 CONTINUE
1054 C
1055  ELSE IF (igrid.EQ.38) THEN
1056  DO 142 i = 1,91
1057  igds(i) = grd38(i)
1058  142 CONTINUE
1059 C
1060  ELSE IF (igrid.EQ.39) THEN
1061  DO 143 i = 1,91
1062  igds(i) = grd39(i)
1063  143 CONTINUE
1064 C
1065  ELSE IF (igrid.EQ.40) THEN
1066  DO 144 i = 1,91
1067  igds(i) = grd40(i)
1068  144 CONTINUE
1069 C
1070  ELSE IF (igrid.EQ.41) THEN
1071  DO 145 i = 1,91
1072  igds(i) = grd41(i)
1073  145 CONTINUE
1074 C
1075  ELSE IF (igrid.EQ.42) THEN
1076  DO 146 i = 1,91
1077  igds(i) = grd42(i)
1078  146 CONTINUE
1079 C
1080  ELSE IF (igrid.EQ.43) THEN
1081  DO 147 i = 1,91
1082  igds(i) = grd43(i)
1083  147 CONTINUE
1084 C
1085  ELSE IF (igrid.EQ.44) THEN
1086  DO 148 i = 1,91
1087  igds(i) = grd44(i)
1088  148 CONTINUE
1089 C
1090  ELSE IF (igrid.EQ.45) THEN
1091  DO 149 i = 1,18
1092  igds(i) = grd45(i)
1093  149 CONTINUE
1094 C
1095  ELSE IF (igrid.EQ.53) THEN
1096  DO i = 1,18
1097  igds(i) = grd53(i)
1098  END DO
1099 C
1100  ELSE IF (igrid.EQ.55) THEN
1101  DO 152 i = 1,18
1102  igds(i) = grd55(i)
1103  152 CONTINUE
1104 C
1105  ELSE IF (igrid.EQ.56) THEN
1106  DO 154 i = 1,18
1107  igds(i) = grd56(i)
1108  154 CONTINUE
1109 C
1110  ELSE IF (igrid.EQ.61) THEN
1111  DO 160 i = 1,64
1112  igds(i) = grd61(i)
1113  160 CONTINUE
1114 C
1115  ELSE IF (igrid.EQ.62) THEN
1116  DO 170 i = 1,64
1117  igds(i) = grd62(i)
1118  170 CONTINUE
1119 C
1120  ELSE IF (igrid.EQ.63) THEN
1121  DO 180 i = 1,64
1122  igds(i) = grd63(i)
1123  180 CONTINUE
1124 C
1125  ELSE IF (igrid.EQ.64) THEN
1126  DO 190 i = 1,64
1127  igds(i) = grd64(i)
1128  190 CONTINUE
1129 C
1130  ELSE IF (igrid.EQ.83) THEN
1131  DO i = 1,18
1132  igds(i) = grd83(i)
1133  ENDDO
1134 C
1135  ELSE IF (igrid.EQ.85) THEN
1136  DO 192 i = 1,18
1137  igds(i) = grd85(i)
1138  192 CONTINUE
1139 C
1140  ELSE IF (igrid.EQ.86) THEN
1141  DO 194 i = 1,18
1142  igds(i) = grd86(i)
1143  194 CONTINUE
1144 C
1145  ELSE IF (igrid.EQ.87) THEN
1146  DO 195 i = 1,18
1147  igds(i) = grd87(i)
1148  195 CONTINUE
1149 C
1150  ELSE IF (igrid.EQ.88) THEN
1151  DO 2195 i = 1,18
1152  igds(i) = grd88(i)
1153 2195 CONTINUE
1154 C
1155  ELSE IF (igrid.EQ.90) THEN
1156  DO 196 i = 1,18
1157  igds(i) = grd90(i)
1158  196 CONTINUE
1159 C
1160  ELSE IF (igrid.EQ.91) THEN
1161  DO 197 i = 1,18
1162  igds(i) = grd91(i)
1163  197 CONTINUE
1164 C
1165  ELSE IF (igrid.EQ.92) THEN
1166  DO 198 i = 1,18
1167  igds(i) = grd92(i)
1168  198 CONTINUE
1169 C
1170  ELSE IF (igrid.EQ.93) THEN
1171  DO 199 i = 1,18
1172  igds(i) = grd93(i)
1173  199 CONTINUE
1174 C
1175  ELSE IF (igrid.EQ.94) THEN
1176  DO 200 i = 1,18
1177  igds(i) = grd94(i)
1178  200 CONTINUE
1179 C
1180  ELSE IF (igrid.EQ.95) THEN
1181  DO 201 i = 1,18
1182  igds(i) = grd95(i)
1183  201 CONTINUE
1184 C
1185  ELSE IF (igrid.EQ.96) THEN
1186  DO 202 i = 1,18
1187  igds(i) = grd96(i)
1188  202 CONTINUE
1189 C
1190  ELSE IF (igrid.EQ.97) THEN
1191  DO 203 i = 1,18
1192  igds(i) = grd97(i)
1193  203 CONTINUE
1194 C
1195  ELSE IF (igrid.EQ.98) THEN
1196  DO 204 i = 1,18
1197  igds(i) = grd98(i)
1198  204 CONTINUE
1199 C
1200  ELSE IF (igrid.EQ.99) THEN
1201  DO i = 1,18
1202  igds(i) = grd99(i)
1203  ENDDO
1204 C
1205  ELSE IF (igrid.EQ.100) THEN
1206  DO 205 i = 1,18
1207  igds(i) = grd100(i)
1208  205 CONTINUE
1209 C
1210  ELSE IF (igrid.EQ.101) THEN
1211  DO 210 i = 1,18
1212  igds(i) = grd101(i)
1213  210 CONTINUE
1214 C
1215  ELSE IF (igrid.EQ.103) THEN
1216  DO 220 i = 1,18
1217  igds(i) = grd103(i)
1218  220 CONTINUE
1219 C
1220  ELSE IF (igrid.EQ.104) THEN
1221  DO 230 i = 1,18
1222  igds(i) = grd104(i)
1223  230 CONTINUE
1224 C
1225  ELSE IF (igrid.EQ.105) THEN
1226  DO 240 i = 1,18
1227  igds(i) = grd105(i)
1228  240 CONTINUE
1229 C
1230  ELSE IF (igrid.EQ.106) THEN
1231  DO 242 i = 1,18
1232  igds(i) = grd106(i)
1233  242 CONTINUE
1234 C
1235  ELSE IF (igrid.EQ.107) THEN
1236  DO 244 i = 1,18
1237  igds(i) = grd107(i)
1238  244 CONTINUE
1239 C
1240  ELSE IF (igrid.EQ.110) THEN
1241  DO i = 1,18
1242  igds(i) = grd110(i)
1243  ENDDO
1244 C
1245  ELSE IF (igrid.EQ.120) THEN
1246  DO i = 1,18
1247  igds(i) = grd120(i)
1248  ENDDO
1249 C
1250  ELSE IF (igrid.EQ.122) THEN
1251  DO i = 1,18
1252  igds(i) = grd122(i)
1253  ENDDO
1254 C
1255  ELSE IF (igrid.EQ.123) THEN
1256  DO i = 1,18
1257  igds(i) = grd123(i)
1258  ENDDO
1259 C
1260  ELSE IF (igrid.EQ.124) THEN
1261  DO i = 1,18
1262  igds(i) = grd124(i)
1263  ENDDO
1264 C
1265  ELSE IF (igrid.EQ.125) THEN
1266  DO i = 1,18
1267  igds(i) = grd125(i)
1268  ENDDO
1269 C
1270  ELSE IF (igrid.EQ.126) THEN
1271  DO 245 i = 1,18
1272  igds(i) = grd126(i)
1273  245 CONTINUE
1274 C
1275  ELSE IF (igrid.EQ.127) THEN
1276  DO i = 1,18
1277  igds(i) = grd127(i)
1278  ENDDO
1279 C
1280  ELSE IF (igrid.EQ.128) THEN
1281  DO i = 1,18
1282  igds(i) = grd128(i)
1283  ENDDO
1284 C
1285  ELSE IF (igrid.EQ.129) THEN
1286  DO i = 1,18
1287  igds(i) = grd129(i)
1288  ENDDO
1289 C
1290  ELSE IF (igrid.EQ.130) THEN
1291  DO i = 1,18
1292  igds(i) = grd130(i)
1293  ENDDO
1294 C
1295  ELSE IF (igrid.EQ.132) THEN
1296  DO i = 1,18
1297  igds(i) = grd132(i)
1298  ENDDO
1299 C
1300  ELSE IF (igrid.EQ.138) THEN
1301  DO i = 1,18
1302  igds(i) = grd138(i)
1303  ENDDO
1304 C
1305  ELSE IF (igrid.EQ.139) THEN
1306  DO i = 1,18
1307  igds(i) = grd139(i)
1308  ENDDO
1309 C
1310  ELSE IF (igrid.EQ.140) THEN
1311  DO i = 1,18
1312  igds(i) = grd140(i)
1313  ENDDO
1314 C
1315  ELSE IF (igrid.EQ.145) THEN
1316  DO i = 1,18
1317  igds(i) = grd145(i)
1318  ENDDO
1319 C
1320  ELSE IF (igrid.EQ.146) THEN
1321  DO i = 1,18
1322  igds(i) = grd146(i)
1323  ENDDO
1324 C
1325  ELSE IF (igrid.EQ.147) THEN
1326  DO i = 1,18
1327  igds(i) = grd147(i)
1328  ENDDO
1329 C
1330  ELSE IF (igrid.EQ.148) THEN
1331  DO i = 1,18
1332  igds(i) = grd148(i)
1333  ENDDO
1334 C
1335  ELSE IF (igrid.EQ.150) THEN
1336  DO i = 1,18
1337  igds(i) = grd150(i)
1338  ENDDO
1339 C
1340  ELSE IF (igrid.EQ.151) THEN
1341  DO i = 1,18
1342  igds(i) = grd151(i)
1343  ENDDO
1344 C
1345  ELSE IF (igrid.EQ.160) THEN
1346  DO i = 1,18
1347  igds(i) = grd160(i)
1348  ENDDO
1349 C
1350  ELSE IF (igrid.EQ.161) THEN
1351  DO i = 1,18
1352  igds(i) = grd161(i)
1353  ENDDO
1354  ELSE IF (igrid.EQ.163) THEN
1355  DO i = 1,18
1356  igds(i) = grd163(i)
1357  ENDDO
1358 C
1359  ELSE IF (igrid.EQ.170) THEN
1360  DO i = 1,18
1361  igds(i) = grd170(i)
1362  ENDDO
1363 C
1364  ELSE IF (igrid.EQ.171) THEN
1365  DO i = 1,18
1366  igds(i) = grd171(i)
1367  ENDDO
1368 C
1369  ELSE IF (igrid.EQ.172) THEN
1370  DO i = 1,18
1371  igds(i) = grd172(i)
1372  ENDDO
1373 C
1374  ELSE IF (igrid.EQ.173) THEN
1375  DO i = 1,18
1376  igds(i) = grd173(i)
1377  ENDDO
1378 C
1379  ELSE IF (igrid.EQ.174) THEN
1380  DO i = 1,18
1381  igds(i) = grd174(i)
1382  ENDDO
1383 C
1384  ELSE IF (igrid.EQ.175) THEN
1385  DO i = 1,18
1386  igds(i) = grd175(i)
1387  ENDDO
1388 C
1389  ELSE IF (igrid.EQ.176) THEN
1390  DO i = 1,18
1391  igds(i) = grd176(i)
1392  ENDDO
1393 C
1394  ELSE IF (igrid.EQ.179) THEN
1395  DO i = 1,18
1396  igds(i) = grd179(i)
1397  ENDDO
1398 C
1399  ELSE IF (igrid.EQ.180) THEN
1400  DO i = 1,18
1401  igds(i) = grd180(i)
1402  ENDDO
1403 C
1404  ELSE IF (igrid.EQ.181) THEN
1405  DO i = 1,18
1406  igds(i) = grd181(i)
1407  ENDDO
1408 C
1409  ELSE IF (igrid.EQ.182) THEN
1410  DO i = 1,18
1411  igds(i) = grd182(i)
1412  ENDDO
1413 C
1414  ELSE IF (igrid.EQ.183) THEN
1415  DO i = 1,18
1416  igds(i) = grd183(i)
1417  ENDDO
1418 C
1419  ELSE IF (igrid.EQ.184) THEN
1420  DO i = 1,18
1421  igds(i) = grd184(i)
1422  ENDDO
1423 C
1424  ELSE IF (igrid.EQ.187) THEN
1425  DO i = 1,18
1426  igds(i) = grd187(i)
1427  ENDDO
1428 C
1429  ELSE IF (igrid.EQ.188) THEN
1430  DO i = 1,18
1431  igds(i) = grd188(i)
1432  ENDDO
1433 C
1434  ELSE IF (igrid.EQ.189) THEN
1435  DO i = 1,18
1436  igds(i) = grd189(i)
1437  ENDDO
1438 C
1439  ELSE IF (igrid.EQ.190) THEN
1440  DO 2190 i = 1,18
1441  igds(i) = grd190(i)
1442  2190 CONTINUE
1443 C
1444  ELSE IF (igrid.EQ.192) THEN
1445  DO 2191 i = 1,18
1446  igds(i) = grd192(i)
1447  2191 CONTINUE
1448 C
1449  ELSE IF (igrid.EQ.193) THEN
1450  DO i = 1,18
1451  igds(i) = grd193(i)
1452  END DO
1453 C
1454  ELSE IF (igrid.EQ.194) THEN
1455  DO 2192 i = 1,18
1456  igds(i) = grd194(i)
1457  2192 CONTINUE
1458 C
1459  ELSE IF (igrid.EQ.195) THEN
1460  DO i = 1,18
1461  igds(i) = grd195(i)
1462  END DO
1463 C
1464  ELSE IF (igrid.EQ.196) THEN
1465  DO 249 i = 1,18
1466  igds(i) = grd196(i)
1467  249 CONTINUE
1468 C
1469  ELSE IF (igrid.EQ.197) THEN
1470  DO i = 1,18
1471  igds(i) = grd197(i)
1472  END DO
1473 C
1474  ELSE IF (igrid.EQ.198) THEN
1475  DO 2490 i = 1,18
1476  igds(i) = grd198(i)
1477  2490 CONTINUE
1478 C
1479  ELSE IF (igrid.EQ.199) THEN
1480  DO i = 1,18
1481  igds(i) = grd199(i)
1482  END DO
1483 C
1484  ELSE IF (igrid.EQ.200) THEN
1485  DO i = 1,18
1486  igds(i) = grd200(i)
1487  END DO
1488 C
1489  ELSE IF (igrid.EQ.201) THEN
1490  DO 250 i = 1,18
1491  igds(i) = grd201(i)
1492  250 CONTINUE
1493 C
1494  ELSE IF (igrid.EQ.202) THEN
1495  DO 260 i = 1,18
1496  igds(i) = grd202(i)
1497  260 CONTINUE
1498 C
1499  ELSE IF (igrid.EQ.203) THEN
1500  DO 270 i = 1,18
1501  igds(i) = grd203(i)
1502  270 CONTINUE
1503 C
1504  ELSE IF (igrid.EQ.204) THEN
1505  DO 280 i = 1,18
1506  igds(i) = grd204(i)
1507  280 CONTINUE
1508 C
1509  ELSE IF (igrid.EQ.205) THEN
1510  DO 290 i = 1,18
1511  igds(i) = grd205(i)
1512  290 CONTINUE
1513 C
1514  ELSE IF (igrid.EQ.206) THEN
1515  DO 300 i = 1,18
1516  igds(i) = grd206(i)
1517  300 CONTINUE
1518 C
1519  ELSE IF (igrid.EQ.207) THEN
1520  DO 310 i = 1,18
1521  igds(i) = grd207(i)
1522  310 CONTINUE
1523 C
1524  ELSE IF (igrid.EQ.208) THEN
1525  DO 320 i = 1,18
1526  igds(i) = grd208(i)
1527  320 CONTINUE
1528 C
1529  ELSE IF (igrid.EQ.209) THEN
1530  DO 330 i = 1,18
1531  igds(i) = grd209(i)
1532  330 CONTINUE
1533 C
1534  ELSE IF (igrid.EQ.210) THEN
1535  DO 340 i = 1,18
1536  igds(i) = grd210(i)
1537  340 CONTINUE
1538 C
1539  ELSE IF (igrid.EQ.211) THEN
1540  DO 350 i = 1,18
1541  igds(i) = grd211(i)
1542  350 CONTINUE
1543 C
1544  ELSE IF (igrid.EQ.212) THEN
1545  DO 360 i = 1,18
1546  igds(i) = grd212(i)
1547  360 CONTINUE
1548 C
1549  ELSE IF (igrid.EQ.213) THEN
1550  DO 370 i = 1,18
1551  igds(i) = grd213(i)
1552  370 CONTINUE
1553 C
1554  ELSE IF (igrid.EQ.214) THEN
1555  DO 380 i = 1,18
1556  igds(i) = grd214(i)
1557  380 CONTINUE
1558 C
1559  ELSE IF (igrid.EQ.215) THEN
1560  DO 390 i = 1,18
1561  igds(i) = grd215(i)
1562  390 CONTINUE
1563 C
1564  ELSE IF (igrid.EQ.216) THEN
1565  DO 400 i = 1,18
1566  igds(i) = grd216(i)
1567  400 CONTINUE
1568 C
1569  ELSE IF (igrid.EQ.217) THEN
1570  DO 401 i = 1,18
1571  igds(i) = grd217(i)
1572  401 CONTINUE
1573 C
1574  ELSE IF (igrid.EQ.218) THEN
1575  DO 410 i = 1,18
1576  igds(i) = grd218(i)
1577  410 CONTINUE
1578 C
1579  ELSE IF (igrid.EQ.219) THEN
1580  DO 411 i = 1,18
1581  igds(i) = grd219(i)
1582  411 CONTINUE
1583 C
1584  ELSE IF (igrid.EQ.220) THEN
1585  DO 412 i = 1,18
1586  igds(i) = grd220(i)
1587  412 CONTINUE
1588 C
1589  ELSE IF (igrid.EQ.221) THEN
1590  DO 413 i = 1,18
1591  igds(i) = grd221(i)
1592  413 CONTINUE
1593 C
1594  ELSE IF (igrid.EQ.222) THEN
1595  DO 414 i = 1,18
1596  igds(i) = grd222(i)
1597  414 CONTINUE
1598 C
1599  ELSE IF (igrid.EQ.223) THEN
1600  DO 415 i = 1,18
1601  igds(i) = grd223(i)
1602  415 CONTINUE
1603 C
1604  ELSE IF (igrid.EQ.224) THEN
1605  DO 416 i = 1,18
1606  igds(i) = grd224(i)
1607  416 CONTINUE
1608 C
1609  ELSE IF (igrid.EQ.225) THEN
1610  DO 417 i = 1,18
1611  igds(i) = grd225(i)
1612  417 CONTINUE
1613 C
1614  ELSE IF (igrid.EQ.226) THEN
1615  DO 418 i = 1,18
1616  igds(i) = grd226(i)
1617  418 CONTINUE
1618 C
1619  ELSE IF (igrid.EQ.227) THEN
1620  DO 419 i = 1,18
1621  igds(i) = grd227(i)
1622  419 CONTINUE
1623 C
1624  ELSE IF (igrid.EQ.228) THEN
1625  DO 420 i = 1,18
1626  igds(i) = grd228(i)
1627  420 CONTINUE
1628 C
1629  ELSE IF (igrid.EQ.229) THEN
1630  DO 421 i = 1,18
1631  igds(i) = grd229(i)
1632  421 CONTINUE
1633 C
1634  ELSE IF (igrid.EQ.230) THEN
1635  DO 422 i = 1,18
1636  igds(i) = grd230(i)
1637  422 CONTINUE
1638 C
1639  ELSE IF (igrid.EQ.231) THEN
1640  DO 423 i = 1,18
1641  igds(i) = grd231(i)
1642  423 CONTINUE
1643 C
1644  ELSE IF (igrid.EQ.232) THEN
1645  DO 424 i = 1,18
1646  igds(i) = grd232(i)
1647  424 CONTINUE
1648 C
1649  ELSE IF (igrid.EQ.233) THEN
1650  DO 425 i = 1,18
1651  igds(i) = grd233(i)
1652  425 CONTINUE
1653 C
1654  ELSE IF (igrid.EQ.234) THEN
1655  DO 426 i = 1,18
1656  igds(i) = grd234(i)
1657  426 CONTINUE
1658 C
1659  ELSE IF (igrid.EQ.235) THEN
1660  DO 427 i = 1,18
1661  igds(i) = grd235(i)
1662  427 CONTINUE
1663 C
1664  ELSE IF (igrid.EQ.236) THEN
1665  DO 428 i = 1,18
1666  igds(i) = grd236(i)
1667  428 CONTINUE
1668 C
1669  ELSE IF (igrid.EQ.237) THEN
1670  DO 429 i = 1,18
1671  igds(i) = grd237(i)
1672  429 CONTINUE
1673 C
1674  ELSE IF (igrid.EQ.238) THEN
1675  DO i = 1,18
1676  igds(i) = grd238(i)
1677  END DO
1678 C
1679  ELSE IF (igrid.EQ.239) THEN
1680  DO i = 1,18
1681  igds(i) = grd239(i)
1682  END DO
1683 C
1684  ELSE IF (igrid.EQ.240) THEN
1685  DO i = 1,18
1686  igds(i) = grd240(i)
1687  END DO
1688 C
1689  ELSE IF (igrid.EQ.241) THEN
1690  DO 430 i = 1,18
1691  igds(i) = grd241(i)
1692  430 CONTINUE
1693 C
1694  ELSE IF (igrid.EQ.242) THEN
1695  DO 431 i = 1,18
1696  igds(i) = grd242(i)
1697  431 CONTINUE
1698 C
1699  ELSE IF (igrid.EQ.243) THEN
1700  DO 432 i = 1,18
1701  igds(i) = grd243(i)
1702  432 CONTINUE
1703 C
1704  ELSE IF (igrid.EQ.244) THEN
1705  DO i = 1,18
1706  igds(i) = grd244(i)
1707  END DO
1708 C
1709  ELSE IF (igrid.EQ.245) THEN
1710  DO 433 i = 1,18
1711  igds(i) = grd245(i)
1712  433 CONTINUE
1713 C
1714  ELSE IF (igrid.EQ.246) THEN
1715  DO 434 i = 1,18
1716  igds(i) = grd246(i)
1717  434 CONTINUE
1718 C
1719  ELSE IF (igrid.EQ.247) THEN
1720  DO 435 i = 1,18
1721  igds(i) = grd247(i)
1722  435 CONTINUE
1723 C
1724  ELSE IF (igrid.EQ.248) THEN
1725  DO 436 i = 1,18
1726  igds(i) = grd248(i)
1727  436 CONTINUE
1728 C
1729  ELSE IF (igrid.EQ.249) THEN
1730  DO 437 i = 1,18
1731  igds(i) = grd249(i)
1732  437 CONTINUE
1733 C
1734  ELSE IF (igrid.EQ.250) THEN
1735  DO 438 i = 1,18
1736  igds(i) = grd250(i)
1737  438 CONTINUE
1738 C
1739  ELSE IF (igrid.EQ.251) THEN
1740  DO 439 i = 1,18
1741  igds(i) = grd251(i)
1742  439 CONTINUE
1743 C
1744  ELSE IF (igrid.EQ.252) THEN
1745  DO 440 i = 1,18
1746  igds(i) = grd252(i)
1747  440 CONTINUE
1748  ELSE IF (igrid.EQ.253) THEN
1749  DO 441 i = 1,18
1750  igds(i) = grd253(i)
1751  441 CONTINUE
1752  ELSE IF (igrid.EQ.254) THEN
1753  DO 442 i = 1,18
1754  igds(i) = grd254(i)
1755  442 CONTINUE
1756 C
1757  ELSE
1758  ierr = 1
1759  ENDIF
1760 C
1761  RETURN
1762  END
w3fi71
subroutine w3fi71(IGRID, IGDS, IERR)
W3FI71 Makes a 18, 37, 55, 64, or 91 word integer array used by w3fi72() grib packer to make the grid...
Definition: w3fi71.f:293