5 * Revision 1.1.1.2 1996/10/30 08:32:30 cernlib
8 * Revision 1.2 1996/10/28 15:05:02 pdflib
9 * PDFLIB new version 7.04
11 * Revision 1.1.1.1 1996/04/12 15:29:30 plothow
15 #include "pdf/pilot.h"
16 SUBROUTINE SFAFG1(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DGL)
18 C**************************************************************************
19 C ( 1st of February 1994)
20 C This is an interpolation program which reads the files GRPOL and
21 C GRVDM and gives the quark and gluon distributions in real photon
22 C as functions of x and Q**2.
24 C The Q**2 evolution is a BLL evolution (MSbar scheme) with Nf=4
25 C and LAMBDA(MSbar)=.200 Gev.
27 C A massless charm distribution is generated for Q**2 > 2 Gev**2.
29 C The distributions are the sum of a pointlike part (PL) and of a
32 C KA is a factor which can be adjusted ( the default value is KA=1.0).
33 C The file GRPOL contains the pointlike part of the distributions.
34 C The file GRVDM contains the vdm part (A precise definition of this
35 C latter is given in the paper "PARTON DISTRIBUTIONS IN THE PHOTON",
36 C Preprint LPTHE Orsay 93-37, by P.Aurenche,M.Fontannaz and J.Ph.Guillet).
38 C The output of the program is written in the file GETOUT with the
39 C following conventions
44 C SING =UPLUS+DPLUS+SPLUS+CPLUS
47 C The interpolation is valid for 2. < Q**2 < 5.5E+5 Gev**2,
48 C and for .0015< x < .99
50 C The program also gives the structure function F2:
51 C F2 = q*Cq + g*Cg + Cgam
52 C Cq and Cg are the Wilson coeficients and Cgam is the direct term.
54 C Although the charm quark evolution is massless, the direct term
55 C Cgam includes the effects due to the charm quark mass. The charm
56 C quark threshold is therefore correctly described at the lowest
57 C ordre in alphastrong (Details are given in the preprint).
60 C**************************************************************************
62 #include "pdf/expdp.inc"
63 + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL
64 REAL X, Q, UV, DV, UB, DB, SB, CB, BB, GL
67 DIMENSION PAR(30), CALC(8,20,32),CALCO(8,20,32)
68 DIMENSION PAR2(30),CELC(8,20,32),CELCO(8,20,32)
73 C----------------------------------------------------------------------
74 DATA (PAR(I),I=1,30) /
75 + .2000E+00, .4800E+00, .8500E+00, .1000E+01,
76 + .1000E+01, .1000E+01, .1200E+01, .7500E+01,
77 + .1987E+01, .1900E+01, .0000E+00, .0000E+00,
78 + .0000E+00, .0000E+00, .0000E+00, .1000E+01,
79 + .0000E+00, .1000E+01, .0000E+00, .0000E+00,
80 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
81 + .4000E+01, .0000E+00, .2000E+01, .1000E+01,
82 + .8000E-01, .2000E+01/
83 DATA ((CALC(I,K,1 ),I=1,8), K=1,9) /
84 + .0000E+00, .0000E+00, .7046E-04, -.1941E-04,
85 + .3163E-04, -.1941E-04, .2818E-03, .1587E-02,
86 + .0000E+00, .0000E+00, .6989E-04, -.1815E-04,
87 + .3360E-04, -.1815E-04, .4710E-03, .2351E-02,
88 + .0000E+00, .0000E+00, .6919E-04, -.1670E-04,
89 + .3579E-04, -.1670E-04, .7175E-03, .3348E-02,
90 + .0000E+00, .0000E+00, .6833E-04, -.1507E-04,
91 + .3820E-04, -.1507E-04, .1033E-02, .4635E-02,
92 + .0000E+00, .0000E+00, .6730E-04, -.1322E-04,
93 + .4085E-04, -.1322E-04, .1429E-02, .6264E-02,
94 + .0000E+00, .0000E+00, .6607E-04, -.1115E-04,
95 + .4378E-04, -.1115E-04, .1920E-02, .8299E-02,
96 + .0000E+00, .0000E+00, .6463E-04, -.8819E-05,
97 + .4699E-04, -.8819E-05, .2521E-02, .1081E-01,
98 + .0000E+00, .0000E+00, .6295E-04, -.6218E-05,
99 + .5052E-04, -.6218E-05, .3249E-02, .1387E-01,
100 + .0000E+00, .0000E+00, .6102E-04, -.3316E-05,
101 + .5439E-04, -.3316E-05, .4126E-02, .1757E-01/
102 DATA ((CALC(I,K,1 ),I=1,8), K=10,18) /
103 + .0000E+00, .0000E+00, .5879E-04, -.8646E-07,
104 + .5862E-04, -.8646E-07, .5172E-02, .2200E-01,
105 + .0000E+00, .0000E+00, .5624E-04, .3500E-05,
106 + .6325E-04, .3500E-05, .6413E-02, .2726E-01,
107 + .0000E+00, .0000E+00, .5335E-04, .7477E-05,
108 + .6830E-04, .7477E-05, .7877E-02, .3346E-01,
109 + .0000E+00, .0000E+00, .5007E-04, .1188E-04,
110 + .7383E-04, .1188E-04, .9594E-02, .4073E-01,
111 + .0000E+00, .0000E+00, .4636E-04, .1675E-04,
112 + .7986E-04, .1675E-04, .1160E-01, .4919E-01,
113 + .0000E+00, .0000E+00, .4220E-04, .2212E-04,
114 + .8643E-04, .2212E-04, .1393E-01, .5898E-01,
115 + .0000E+00, .0000E+00, .3752E-04, .2804E-04,
116 + .9361E-04, .2804E-04, .1663E-01, .7026E-01,
117 + .0000E+00, .0000E+00, .3228E-04, .3457E-04,
118 + .1014E-03, .3457E-04, .1974E-01, .8319E-01,
119 + .0000E+00, .0000E+00, .2644E-04, .4175E-04,
120 + .1099E-03, .4175E-04, .2331E-01, .9795E-01/
121 DATA ((CALC(I,K,1 ),I=1,8), K=19,20) /
122 + .0000E+00, .0000E+00, .1992E-04, .4964E-04,
123 + .1192E-03, .4964E-04, .2740E-01, .1147E+00,
124 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
125 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
126 DATA ((CALC(I,K,2 ),I=1,8), K=1,9) /
127 + .0000E+00, .0000E+00, .8644E-04, -.1332E-04,
128 + .5980E-04, -.1332E-04, .3458E-03, .1536E-02,
129 + .0000E+00, .0000E+00, .8349E-04, -.8330E-05,
130 + .6683E-04, -.8330E-05, .5160E-03, .2121E-02,
131 + .0000E+00, .0000E+00, .7998E-04, -.2714E-05,
132 + .7455E-04, -.2714E-05, .7238E-03, .2849E-02,
133 + .0000E+00, .0000E+00, .7586E-04, .3591E-05,
134 + .8305E-04, .3591E-05, .9745E-03, .3743E-02,
135 + .0000E+00, .0000E+00, .7107E-04, .1064E-04,
136 + .9236E-04, .1064E-04, .1273E-02, .4826E-02,
137 + .0000E+00, .0000E+00, .6553E-04, .1851E-04,
138 + .1026E-03, .1851E-04, .1627E-02, .6122E-02,
139 + .0000E+00, .0000E+00, .5919E-04, .2727E-04,
140 + .1137E-03, .2727E-04, .2041E-02, .7658E-02,
141 + .0000E+00, .0000E+00, .5194E-04, .3699E-04,
142 + .1259E-03, .3699E-04, .2522E-02, .9460E-02,
143 + .0000E+00, .0000E+00, .4373E-04, .4776E-04,
144 + .1393E-03, .4776E-04, .3079E-02, .1156E-01/
145 DATA ((CALC(I,K,2 ),I=1,8), K=10,18) /
146 + .0000E+00, .0000E+00, .3444E-04, .5968E-04,
147 + .1538E-03, .5968E-04, .3719E-02, .1398E-01,
148 + .0000E+00, .0000E+00, .2398E-04, .7284E-04,
149 + .1697E-03, .7284E-04, .4451E-02, .1676E-01,
150 + .0000E+00, .0000E+00, .1224E-04, .8735E-04,
151 + .1869E-03, .8735E-04, .5284E-02, .1993E-01,
152 + .0000E+00, .0000E+00, -.8887E-06, .1033E-03,
153 + .2058E-03, .1033E-03, .6227E-02, .2353E-01,
154 + .0000E+00, .0000E+00, -.1555E-04, .1209E-03,
155 + .2263E-03, .1209E-03, .7292E-02, .2758E-01,
156 + .0000E+00, .0000E+00, -.3187E-04, .1402E-03,
157 + .2486E-03, .1402E-03, .8489E-02, .3213E-01,
158 + .0000E+00, .0000E+00, -.5001E-04, .1614E-03,
159 + .2729E-03, .1614E-03, .9830E-02, .3721E-01,
160 + .0000E+00, .0000E+00, -.7012E-04, .1847E-03,
161 + .2993E-03, .1847E-03, .1133E-01, .4287E-01,
162 + .0000E+00, .0000E+00, -.9240E-04, .2102E-03,
163 + .3280E-03, .2102E-03, .1299E-01, .4915E-01/
164 DATA ((CALC(I,K,2 ),I=1,8), K=19,20) /
165 + .0000E+00, .0000E+00, -.1170E-03, .2381E-03,
166 + .3592E-03, .2381E-03, .1484E-01, .5608E-01,
167 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
168 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
169 DATA ((CALC(I,K,3 ),I=1,8), K=1,9) /
170 + .0000E+00, .0000E+00, .9767E-04, -.1471E-05,
171 + .9472E-04, -.1471E-05, .3907E-03, .1317E-02,
172 + .0000E+00, .0000E+00, .9108E-04, .8666E-05,
173 + .1084E-03, .8666E-05, .5631E-03, .1782E-02,
174 + .0000E+00, .0000E+00, .8336E-04, .2002E-04,
175 + .1234E-03, .2002E-04, .7670E-03, .2352E-02,
176 + .0000E+00, .0000E+00, .7440E-04, .3269E-04,
177 + .1398E-03, .3269E-04, .1006E-02, .3044E-02,
178 + .0000E+00, .0000E+00, .6409E-04, .4681E-04,
179 + .1577E-03, .4681E-04, .1286E-02, .3872E-02,
180 + .0000E+00, .0000E+00, .5230E-04, .6248E-04,
181 + .1773E-03, .6248E-04, .1609E-02, .4853E-02,
182 + .0000E+00, .0000E+00, .3889E-04, .7985E-04,
183 + .1986E-03, .7985E-04, .1982E-02, .6003E-02,
184 + .0000E+00, .0000E+00, .2372E-04, .9906E-04,
185 + .2218E-03, .9906E-04, .2410E-02, .7340E-02,
186 + .0000E+00, .0000E+00, .6630E-05, .1203E-03,
187 + .2472E-03, .1203E-03, .2898E-02, .8883E-02/
188 DATA ((CALC(I,K,3 ),I=1,8), K=10,18) /
189 + .0000E+00, .0000E+00, -.1255E-04, .1436E-03,
190 + .2747E-03, .1436E-03, .3453E-02, .1065E-01,
191 + .0000E+00, .0000E+00, -.3400E-04, .1694E-03,
192 + .3047E-03, .1694E-03, .4082E-02, .1267E-01,
193 + .0000E+00, .0000E+00, -.5792E-04, .1976E-03,
194 + .3373E-03, .1976E-03, .4793E-02, .1496E-01,
195 + .0000E+00, .0000E+00, -.8455E-04, .2286E-03,
196 + .3728E-03, .2286E-03, .5593E-02, .1754E-01,
197 + .0000E+00, .0000E+00, -.1141E-03, .2627E-03,
198 + .4113E-03, .2627E-03, .6491E-02, .2044E-01,
199 + .0000E+00, .0000E+00, -.1468E-03, .3000E-03,
200 + .4531E-03, .3000E-03, .7497E-02, .2369E-01,
201 + .0000E+00, .0000E+00, -.1831E-03, .3408E-03,
202 + .4985E-03, .3408E-03, .8621E-02, .2732E-01,
203 + .0000E+00, .0000E+00, -.2230E-03, .3854E-03,
204 + .5479E-03, .3854E-03, .9874E-02, .3134E-01,
205 + .0000E+00, .0000E+00, -.2671E-03, .4342E-03,
206 + .6014E-03, .4342E-03, .1127E-01, .3581E-01/
207 DATA ((CALC(I,K,3 ),I=1,8), K=19,20) /
208 + .0000E+00, .0000E+00, -.3156E-03, .4876E-03,
209 + .6595E-03, .4876E-03, .1281E-01, .4075E-01,
210 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
211 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
212 DATA ((CALC(I,K,4 ),I=1,8), K=1,9) /
213 + .0000E+00, .0000E+00, .1161E-03, .1080E-04,
214 + .1377E-03, .1080E-04, .4642E-03, .1155E-02,
215 + .0000E+00, .0000E+00, .1047E-03, .2719E-04,
216 + .1591E-03, .2719E-04, .6584E-03, .1543E-02,
217 + .0000E+00, .0000E+00, .9152E-04, .4545E-04,
218 + .1824E-03, .4545E-04, .8823E-03, .2014E-02,
219 + .0000E+00, .0000E+00, .7636E-04, .6577E-04,
220 + .2079E-03, .6577E-04, .1140E-02, .2580E-02,
221 + .0000E+00, .0000E+00, .5906E-04, .8831E-04,
222 + .2357E-03, .8831E-04, .1434E-02, .3252E-02,
223 + .0000E+00, .0000E+00, .3943E-04, .1132E-03,
224 + .2659E-03, .1132E-03, .1769E-02, .4039E-02,
225 + .0000E+00, .0000E+00, .1725E-04, .1408E-03,
226 + .2989E-03, .1408E-03, .2149E-02, .4953E-02,
227 + .0000E+00, .0000E+00, -.7685E-05, .1712E-03,
228 + .3346E-03, .1712E-03, .2578E-02, .6007E-02,
229 + .0000E+00, .0000E+00, -.3561E-04, .2046E-03,
230 + .3736E-03, .2046E-03, .3061E-02, .7212E-02/
231 DATA ((CALC(I,K,4 ),I=1,8), K=10,18) /
232 + .0000E+00, .0000E+00, -.6680E-04, .2413E-03,
233 + .4158E-03, .2413E-03, .3603E-02, .8581E-02,
234 + .0000E+00, .0000E+00, -.1015E-03, .2816E-03,
235 + .4618E-03, .2816E-03, .4210E-02, .1013E-01,
236 + .0000E+00, .0000E+00, -.1401E-03, .3258E-03,
237 + .5116E-03, .3258E-03, .4889E-02, .1187E-01,
238 + .0000E+00, .0000E+00, -.1828E-03, .3742E-03,
239 + .5657E-03, .3742E-03, .5644E-02, .1382E-01,
240 + .0000E+00, .0000E+00, -.2300E-03, .4272E-03,
241 + .6244E-03, .4272E-03, .6483E-02, .1599E-01,
242 + .0000E+00, .0000E+00, -.2821E-03, .4851E-03,
243 + .6881E-03, .4851E-03, .7415E-02, .1840E-01,
244 + .0000E+00, .0000E+00, -.3395E-03, .5484E-03,
245 + .7572E-03, .5484E-03, .8446E-02, .2108E-01,
246 + .0000E+00, .0000E+00, -.4028E-03, .6174E-03,
247 + .8321E-03, .6174E-03, .9585E-02, .2403E-01,
248 + .0000E+00, .0000E+00, -.4722E-03, .6927E-03,
249 + .9133E-03, .6927E-03, .1084E-01, .2728E-01/
250 DATA ((CALC(I,K,4 ),I=1,8), K=19,20) /
251 + .0000E+00, .0000E+00, -.5485E-03, .7749E-03,
252 + .1001E-02, .7749E-03, .1223E-01, .3085E-01,
253 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
254 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
255 DATA ((CALC(I,K,5 ),I=1,8), K=1,9) /
256 + .0000E+00, .0000E+00, .1386E-03, .2317E-04,
257 + .1850E-03, .2317E-04, .5544E-03, .1024E-02,
258 + .0000E+00, .0000E+00, .1214E-03, .4659E-04,
259 + .2146E-03, .4659E-04, .7810E-03, .1353E-02,
260 + .0000E+00, .0000E+00, .1017E-03, .7259E-04,
261 + .2469E-03, .7259E-04, .1038E-02, .1751E-02,
262 + .0000E+00, .0000E+00, .7926E-04, .1014E-03,
263 + .2821E-03, .1014E-03, .1328E-02, .2226E-02,
264 + .0000E+00, .0000E+00, .5382E-04, .1332E-03,
265 + .3203E-03, .1332E-03, .1656E-02, .2786E-02,
266 + .0000E+00, .0000E+00, .2514E-04, .1684E-03,
267 + .3619E-03, .1684E-03, .2023E-02, .3437E-02,
268 + .0000E+00, .0000E+00, -.7055E-05, .2071E-03,
269 + .4071E-03, .2071E-03, .2435E-02, .4188E-02,
270 + .0000E+00, .0000E+00, -.4305E-04, .2496E-03,
271 + .4561E-03, .2496E-03, .2894E-02, .5047E-02,
272 + .0000E+00, .0000E+00, -.8316E-04, .2962E-03,
273 + .5093E-03, .2962E-03, .3407E-02, .6023E-02/
274 DATA ((CALC(I,K,5 ),I=1,8), K=10,18) /
275 + .0000E+00, .0000E+00, -.1277E-03, .3474E-03,
276 + .5671E-03, .3474E-03, .3977E-02, .7125E-02,
277 + .0000E+00, .0000E+00, -.1772E-03, .4034E-03,
278 + .6297E-03, .4034E-03, .4609E-02, .8363E-02,
279 + .0000E+00, .0000E+00, -.2318E-03, .4647E-03,
280 + .6976E-03, .4647E-03, .5308E-02, .9746E-02,
281 + .0000E+00, .0000E+00, -.2922E-03, .5317E-03,
282 + .7712E-03, .5317E-03, .6082E-02, .1129E-01,
283 + .0000E+00, .0000E+00, -.3586E-03, .6048E-03,
284 + .8510E-03, .6048E-03, .6935E-02, .1299E-01,
285 + .0000E+00, .0000E+00, -.4318E-03, .6846E-03,
286 + .9375E-03, .6846E-03, .7875E-02, .1488E-01,
287 + .0000E+00, .0000E+00, -.5122E-03, .7717E-03,
288 + .1031E-02, .7717E-03, .8909E-02, .1696E-01,
289 + .0000E+00, .0000E+00, -.6004E-03, .8665E-03,
290 + .1133E-02, .8665E-03, .1005E-01, .1924E-01,
291 + .0000E+00, .0000E+00, -.6971E-03, .9698E-03,
292 + .1243E-02, .9698E-03, .1129E-01, .2174E-01/
293 DATA ((CALC(I,K,5 ),I=1,8), K=19,20) /
294 + .0000E+00, .0000E+00, -.8030E-03, .1082E-02,
295 + .1362E-02, .1082E-02, .1266E-01, .2448E-01,
296 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
297 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
298 DATA ((CALC(I,K,6 ),I=1,8), K=1,9) /
299 + .0000E+00, .0000E+00, .1628E-03, .3519E-04,
300 + .2333E-03, .3519E-04, .6514E-03, .9133E-03,
301 + .0000E+00, .0000E+00, .1392E-03, .6607E-04,
302 + .2714E-03, .6607E-04, .9167E-03, .1195E-02,
303 + .0000E+00, .0000E+00, .1123E-03, .1002E-03,
304 + .3128E-03, .1002E-03, .1214E-02, .1535E-02,
305 + .0000E+00, .0000E+00, .8187E-04, .1379E-03,
306 + .3578E-03, .1379E-03, .1546E-02, .1939E-02,
307 + .0000E+00, .0000E+00, .4764E-04, .1795E-03,
308 + .4067E-03, .1795E-03, .1916E-02, .2412E-02,
309 + .0000E+00, .0000E+00, .9280E-05, .2252E-03,
310 + .4597E-03, .2252E-03, .2328E-02, .2960E-02,
311 + .0000E+00, .0000E+00, -.3354E-04, .2754E-03,
312 + .5172E-03, .2754E-03, .2785E-02, .3588E-02,
313 + .0000E+00, .0000E+00, -.8119E-04, .3304E-03,
314 + .5796E-03, .3304E-03, .3291E-02, .4303E-02,
315 + .0000E+00, .0000E+00, -.1341E-03, .3906E-03,
316 + .6472E-03, .3906E-03, .3851E-02, .5111E-02/
317 DATA ((CALC(I,K,6 ),I=1,8), K=10,18) /
318 + .0000E+00, .0000E+00, -.1926E-03, .4565E-03,
319 + .7205E-03, .4565E-03, .4469E-02, .6018E-02,
320 + .0000E+00, .0000E+00, -.2573E-03, .5286E-03,
321 + .7999E-03, .5286E-03, .5151E-02, .7031E-02,
322 + .0000E+00, .0000E+00, -.3286E-03, .6072E-03,
323 + .8859E-03, .6072E-03, .5901E-02, .8158E-02,
324 + .0000E+00, .0000E+00, -.4070E-03, .6930E-03,
325 + .9790E-03, .6930E-03, .6725E-02, .9406E-02,
326 + .0000E+00, .0000E+00, -.4933E-03, .7865E-03,
327 + .1080E-02, .7865E-03, .7629E-02, .1078E-01,
328 + .0000E+00, .0000E+00, -.5879E-03, .8884E-03,
329 + .1189E-02, .8884E-03, .8620E-02, .1230E-01,
330 + .0000E+00, .0000E+00, -.6917E-03, .9994E-03,
331 + .1307E-02, .9994E-03, .9705E-02, .1396E-01,
332 + .0000E+00, .0000E+00, -.8053E-03, .1120E-02,
333 + .1435E-02, .1120E-02, .1089E-01, .1578E-01,
334 + .0000E+00, .0000E+00, -.9295E-03, .1252E-02,
335 + .1574E-02, .1252E-02, .1219E-01, .1777E-01/
336 DATA ((CALC(I,K,6 ),I=1,8), K=19,20) /
337 + .0000E+00, .0000E+00, -.1065E-02, .1394E-02,
338 + .1723E-02, .1394E-02, .1360E-01, .1994E-01,
339 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
340 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
341 DATA ((CALC(I,K,7 ),I=1,8), K=1,9) /
342 + .0000E+00, .0000E+00, .1866E-03, .4643E-04,
343 + .2795E-03, .4643E-04, .7463E-03, .8158E-03,
344 + .0000E+00, .0000E+00, .1562E-03, .8485E-04,
345 + .3260E-03, .8485E-04, .1053E-02, .1058E-02,
346 + .0000E+00, .0000E+00, .1220E-03, .1272E-03,
347 + .3764E-03, .1272E-03, .1394E-02, .1350E-02,
348 + .0000E+00, .0000E+00, .8344E-04, .1738E-03,
349 + .4311E-03, .1738E-03, .1771E-02, .1696E-02,
350 + .0000E+00, .0000E+00, .4033E-04, .2250E-03,
351 + .4904E-03, .2250E-03, .2189E-02, .2099E-02,
352 + .0000E+00, .0000E+00, -.7743E-05, .2812E-03,
353 + .5547E-03, .2812E-03, .2651E-02, .2564E-02,
354 + .0000E+00, .0000E+00, -.6118E-04, .3428E-03,
355 + .6244E-03, .3428E-03, .3160E-02, .3095E-02,
356 + .0000E+00, .0000E+00, -.1204E-03, .4101E-03,
357 + .6998E-03, .4101E-03, .3721E-02, .3697E-02,
358 + .0000E+00, .0000E+00, -.1859E-03, .4837E-03,
359 + .7815E-03, .4837E-03, .4338E-02, .4373E-02/
360 DATA ((CALC(I,K,7 ),I=1,8), K=10,18) /
361 + .0000E+00, .0000E+00, -.2582E-03, .5641E-03,
362 + .8699E-03, .5641E-03, .5015E-02, .5130E-02,
363 + .0000E+00, .0000E+00, -.3379E-03, .6517E-03,
364 + .9656E-03, .6517E-03, .5758E-02, .5972E-02,
365 + .0000E+00, .0000E+00, -.4255E-03, .7473E-03,
366 + .1069E-02, .7473E-03, .6572E-02, .6904E-02,
367 + .0000E+00, .0000E+00, -.5217E-03, .8514E-03,
368 + .1181E-02, .8514E-03, .7463E-02, .7933E-02,
369 + .0000E+00, .0000E+00, -.6272E-03, .9647E-03,
370 + .1302E-02, .9647E-03, .8436E-02, .9064E-02,
371 + .0000E+00, .0000E+00, -.7428E-03, .1088E-02,
372 + .1433E-02, .1088E-02, .9500E-02, .1030E-01,
373 + .0000E+00, .0000E+00, -.8692E-03, .1222E-02,
374 + .1575E-02, .1222E-02, .1066E-01, .1166E-01,
375 + .0000E+00, .0000E+00, -.1007E-02, .1368E-02,
376 + .1728E-02, .1368E-02, .1193E-01, .1314E-01,
377 + .0000E+00, .0000E+00, -.1158E-02, .1526E-02,
378 + .1894E-02, .1526E-02, .1331E-01, .1475E-01/
379 DATA ((CALC(I,K,7 ),I=1,8), K=19,20) /
380 + .0000E+00, .0000E+00, -.1323E-02, .1698E-02,
381 + .2074E-02, .1698E-02, .1481E-01, .1651E-01,
382 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
383 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
384 DATA ((CALC(I,K,8 ),I=1,8), K=1,9) /
385 + .0000E+00, .0000E+00, .2084E-03, .5650E-04,
386 + .3213E-03, .5650E-04, .8334E-03, .7299E-03,
387 + .0000E+00, .0000E+00, .1715E-03, .1022E-03,
388 + .3760E-03, .1022E-03, .1182E-02, .9382E-03,
389 + .0000E+00, .0000E+00, .1301E-03, .1525E-03,
390 + .4352E-03, .1525E-03, .1567E-02, .1189E-02,
391 + .0000E+00, .0000E+00, .8388E-04, .2077E-03,
392 + .4993E-03, .2077E-03, .1991E-02, .1485E-02,
393 + .0000E+00, .0000E+00, .3231E-04, .2682E-03,
394 + .5687E-03, .2682E-03, .2458E-02, .1830E-02,
395 + .0000E+00, .0000E+00, -.2499E-04, .3344E-03,
396 + .6438E-03, .3344E-03, .2971E-02, .2227E-02,
397 + .0000E+00, .0000E+00, -.8849E-04, .4068E-03,
398 + .7251E-03, .4068E-03, .3534E-02, .2679E-02,
399 + .0000E+00, .0000E+00, -.1587E-03, .4858E-03,
400 + .8130E-03, .4858E-03, .4152E-02, .3189E-02,
401 + .0000E+00, .0000E+00, -.2361E-03, .5721E-03,
402 + .9081E-03, .5721E-03, .4829E-02, .3760E-02/
403 DATA ((CALC(I,K,8 ),I=1,8), K=10,18) /
404 + .0000E+00, .0000E+00, -.3214E-03, .6662E-03,
405 + .1011E-02, .6662E-03, .5569E-02, .4397E-02,
406 + .0000E+00, .0000E+00, -.4152E-03, .7686E-03,
407 + .1122E-02, .7686E-03, .6378E-02, .5103E-02,
408 + .0000E+00, .0000E+00, -.5181E-03, .8801E-03,
409 + .1242E-02, .8801E-03, .7262E-02, .5882E-02,
410 + .0000E+00, .0000E+00, -.6310E-03, .1001E-02,
411 + .1372E-02, .1001E-02, .8226E-02, .6738E-02,
412 + .0000E+00, .0000E+00, -.7545E-03, .1133E-02,
413 + .1512E-02, .1133E-02, .9278E-02, .7677E-02,
414 + .0000E+00, .0000E+00, -.8897E-03, .1277E-02,
415 + .1664E-02, .1277E-02, .1042E-01, .8703E-02,
416 + .0000E+00, .0000E+00, -.1037E-02, .1433E-02,
417 + .1828E-02, .1433E-02, .1167E-01, .9823E-02,
418 + .0000E+00, .0000E+00, -.1199E-02, .1602E-02,
419 + .2005E-02, .1602E-02, .1303E-01, .1104E-01,
420 + .0000E+00, .0000E+00, -.1375E-02, .1786E-02,
421 + .2197E-02, .1786E-02, .1450E-01, .1236E-01/
422 DATA ((CALC(I,K,8 ),I=1,8), K=19,20) /
423 + .0000E+00, .0000E+00, -.1567E-02, .1985E-02,
424 + .2404E-02, .1985E-02, .1610E-01, .1380E-01,
425 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
426 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
427 DATA ((CALC(I,K,9 ),I=1,8), K=1,9) /
428 + .0000E+00, .0000E+00, .2271E-03, .6509E-04,
429 + .3574E-03, .6509E-04, .9085E-03, .6523E-03,
430 + .0000E+00, .0000E+00, .1845E-03, .1177E-03,
431 + .4200E-03, .1177E-03, .1298E-02, .8308E-03,
432 + .0000E+00, .0000E+00, .1368E-03, .1754E-03,
433 + .4876E-03, .1754E-03, .1726E-02, .1046E-02,
434 + .0000E+00, .0000E+00, .8354E-04, .2386E-03,
435 + .5608E-03, .2386E-03, .2195E-02, .1300E-02,
436 + .0000E+00, .0000E+00, .2438E-04, .3077E-03,
437 + .6399E-03, .3077E-03, .2710E-02, .1596E-02,
438 + .0000E+00, .0000E+00, -.4122E-04, .3832E-03,
439 + .7254E-03, .3832E-03, .3274E-02, .1935E-02,
440 + .0000E+00, .0000E+00, -.1138E-03, .4657E-03,
441 + .8177E-03, .4657E-03, .3890E-02, .2321E-02,
442 + .0000E+00, .0000E+00, -.1938E-03, .5556E-03,
443 + .9175E-03, .5556E-03, .4564E-02, .2755E-02,
444 + .0000E+00, .0000E+00, -.2821E-03, .6536E-03,
445 + .1025E-02, .6536E-03, .5301E-02, .3239E-02/
446 DATA ((CALC(I,K,9 ),I=1,8), K=10,18) /
447 + .0000E+00, .0000E+00, -.3791E-03, .7603E-03,
448 + .1142E-02, .7603E-03, .6104E-02, .3778E-02,
449 + .0000E+00, .0000E+00, -.4857E-03, .8765E-03,
450 + .1267E-02, .8765E-03, .6980E-02, .4373E-02,
451 + .0000E+00, .0000E+00, -.6025E-03, .1003E-02,
452 + .1403E-02, .1003E-02, .7934E-02, .5028E-02,
453 + .0000E+00, .0000E+00, -.7305E-03, .1140E-02,
454 + .1550E-02, .1140E-02, .8973E-02, .5746E-02,
455 + .0000E+00, .0000E+00, -.8706E-03, .1289E-02,
456 + .1708E-02, .1289E-02, .1010E-01, .6531E-02,
457 + .0000E+00, .0000E+00, -.1024E-02, .1451E-02,
458 + .1879E-02, .1451E-02, .1133E-01, .7387E-02,
459 + .0000E+00, .0000E+00, -.1191E-02, .1627E-02,
460 + .2063E-02, .1627E-02, .1267E-01, .8318E-02,
461 + .0000E+00, .0000E+00, -.1373E-02, .1818E-02,
462 + .2262E-02, .1818E-02, .1412E-01, .9330E-02,
463 + .0000E+00, .0000E+00, -.1572E-02, .2025E-02,
464 + .2477E-02, .2025E-02, .1569E-01, .1043E-01/
465 DATA ((CALC(I,K,9 ),I=1,8), K=19,20) /
466 + .0000E+00, .0000E+00, -.1789E-02, .2249E-02,
467 + .2710E-02, .2249E-02, .1740E-01, .1161E-01,
468 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
469 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
470 DATA ((CALC(I,K,10),I=1,8), K=1,9) /
471 + .0000E+00, .0000E+00, .2428E-03, .7234E-04,
472 + .3876E-03, .7234E-04, .9714E-03, .5822E-03,
473 + .0000E+00, .0000E+00, .1954E-03, .1312E-03,
474 + .4580E-03, .1312E-03, .1399E-02, .7344E-03,
475 + .0000E+00, .0000E+00, .1425E-03, .1957E-03,
476 + .5339E-03, .1957E-03, .1868E-02, .9186E-03,
477 + .0000E+00, .0000E+00, .8346E-04, .2661E-03,
478 + .6158E-03, .2661E-03, .2380E-02, .1137E-02,
479 + .0000E+00, .0000E+00, .1789E-04, .3432E-03,
480 + .7043E-03, .3432E-03, .2941E-02, .1390E-02,
481 + .0000E+00, .0000E+00, -.5477E-04, .4272E-03,
482 + .7997E-03, .4272E-03, .3553E-02, .1680E-02,
483 + .0000E+00, .0000E+00, -.1351E-03, .5189E-03,
484 + .9027E-03, .5189E-03, .4221E-02, .2010E-02,
485 + .0000E+00, .0000E+00, -.2238E-03, .6187E-03,
486 + .1014E-02, .6187E-03, .4949E-02, .2380E-02,
487 + .0000E+00, .0000E+00, -.3214E-03, .7274E-03,
488 + .1134E-02, .7274E-03, .5743E-02, .2792E-02/
489 DATA ((CALC(I,K,10),I=1,8), K=10,18) /
490 + .0000E+00, .0000E+00, -.4288E-03, .8457E-03,
491 + .1263E-02, .8457E-03, .6607E-02, .3249E-02,
492 + .0000E+00, .0000E+00, -.5467E-03, .9743E-03,
493 + .1402E-02, .9743E-03, .7548E-02, .3753E-02,
494 + .0000E+00, .0000E+00, -.6759E-03, .1114E-02,
495 + .1552E-02, .1114E-02, .8571E-02, .4306E-02,
496 + .0000E+00, .0000E+00, -.8175E-03, .1266E-02,
497 + .1714E-02, .1266E-02, .9682E-02, .4911E-02,
498 + .0000E+00, .0000E+00, -.9724E-03, .1431E-02,
499 + .1889E-02, .1431E-02, .1089E-01, .5570E-02,
500 + .0000E+00, .0000E+00, -.1142E-02, .1610E-02,
501 + .2077E-02, .1610E-02, .1220E-01, .6288E-02,
502 + .0000E+00, .0000E+00, -.1327E-02, .1804E-02,
503 + .2281E-02, .1804E-02, .1363E-01, .7067E-02,
504 + .0000E+00, .0000E+00, -.1528E-02, .2014E-02,
505 + .2500E-02, .2014E-02, .1517E-01, .7911E-02,
506 + .0000E+00, .0000E+00, -.1748E-02, .2242E-02,
507 + .2737E-02, .2242E-02, .1684E-01, .8824E-02/
508 DATA ((CALC(I,K,10),I=1,8), K=19,20) /
509 + .0000E+00, .0000E+00, -.1987E-02, .2490E-02,
510 + .2992E-02, .2490E-02, .1866E-01, .9812E-02,
511 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
512 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
513 DATA ((CALC(I,K,11),I=1,8), K=1,9) /
514 + .0000E+00, .0000E+00, .2563E-03, .7857E-04,
515 + .4134E-03, .7857E-04, .1025E-02, .5194E-03,
516 + .0000E+00, .0000E+00, .2055E-03, .1431E-03,
517 + .4916E-03, .1431E-03, .1490E-02, .6484E-03,
518 + .0000E+00, .0000E+00, .1486E-03, .2136E-03,
519 + .5758E-03, .2136E-03, .1997E-02, .8056E-03,
520 + .0000E+00, .0000E+00, .8512E-04, .2907E-03,
521 + .6665E-03, .2907E-03, .2550E-02, .9920E-03,
522 + .0000E+00, .0000E+00, .1446E-04, .3749E-03,
523 + .7642E-03, .3749E-03, .3154E-02, .1209E-02,
524 + .0000E+00, .0000E+00, -.6396E-04, .4667E-03,
525 + .8693E-03, .4667E-03, .3812E-02, .1457E-02,
526 + .0000E+00, .0000E+00, -.1508E-03, .5667E-03,
527 + .9826E-03, .5667E-03, .4529E-02, .1739E-02,
528 + .0000E+00, .0000E+00, -.2467E-03, .6756E-03,
529 + .1105E-02, .6756E-03, .5309E-02, .2055E-02,
530 + .0000E+00, .0000E+00, -.3524E-03, .7942E-03,
531 + .1236E-02, .7942E-03, .6158E-02, .2406E-02/
532 DATA ((CALC(I,K,11),I=1,8), K=10,18) /
533 + .0000E+00, .0000E+00, -.4688E-03, .9230E-03,
534 + .1377E-02, .9230E-03, .7081E-02, .2794E-02,
535 + .0000E+00, .0000E+00, -.5967E-03, .1063E-02,
536 + .1529E-02, .1063E-02, .8085E-02, .3222E-02,
537 + .0000E+00, .0000E+00, -.7371E-03, .1215E-02,
538 + .1693E-02, .1215E-02, .9174E-02, .3690E-02,
539 + .0000E+00, .0000E+00, -.8909E-03, .1380E-02,
540 + .1870E-02, .1380E-02, .1036E-01, .4200E-02,
541 + .0000E+00, .0000E+00, -.1059E-02, .1560E-02,
542 + .2060E-02, .1560E-02, .1164E-01, .4756E-02,
543 + .0000E+00, .0000E+00, -.1243E-02, .1754E-02,
544 + .2265E-02, .1754E-02, .1303E-01, .5360E-02,
545 + .0000E+00, .0000E+00, -.1444E-02, .1965E-02,
546 + .2486E-02, .1965E-02, .1454E-01, .6013E-02,
547 + .0000E+00, .0000E+00, -.1663E-02, .2193E-02,
548 + .2723E-02, .2193E-02, .1618E-01, .6721E-02,
549 + .0000E+00, .0000E+00, -.1902E-02, .2441E-02,
550 + .2980E-02, .2441E-02, .1795E-01, .7484E-02/
551 DATA ((CALC(I,K,11),I=1,8), K=19,20) /
552 + .0000E+00, .0000E+00, -.2163E-02, .2710E-02,
553 + .3256E-02, .2710E-02, .1987E-01, .8309E-02,
554 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
555 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
556 DATA ((CALC(I,K,12),I=1,8), K=1,9) /
557 + .0000E+00, .0000E+00, .2693E-03, .8426E-04,
558 + .4380E-03, .8426E-04, .1077E-02, .4633E-03,
559 + .0000E+00, .0000E+00, .2165E-03, .1539E-03,
560 + .5243E-03, .1539E-03, .1576E-02, .5719E-03,
561 + .0000E+00, .0000E+00, .1571E-03, .2300E-03,
562 + .6171E-03, .2300E-03, .2120E-02, .7054E-03,
563 + .0000E+00, .0000E+00, .9040E-04, .3131E-03,
564 + .7167E-03, .3131E-03, .2713E-02, .8644E-03,
565 + .0000E+00, .0000E+00, .1590E-04, .4039E-03,
566 + .8238E-03, .4039E-03, .3359E-02, .1050E-02,
567 + .0000E+00, .0000E+00, -.6708E-04, .5029E-03,
568 + .9387E-03, .5029E-03, .4062E-02, .1262E-02,
569 + .0000E+00, .0000E+00, -.1592E-03, .6107E-03,
570 + .1062E-02, .6107E-03, .4827E-02, .1503E-02,
571 + .0000E+00, .0000E+00, -.2614E-03, .7281E-03,
572 + .1195E-02, .7281E-03, .5658E-02, .1772E-02,
573 + .0000E+00, .0000E+00, -.3742E-03, .8558E-03,
574 + .1337E-02, .8558E-03, .6561E-02, .2071E-02/
575 DATA ((CALC(I,K,12),I=1,8), K=10,18) /
576 + .0000E+00, .0000E+00, -.4986E-03, .9946E-03,
577 + .1491E-02, .9946E-03, .7542E-02, .2402E-02,
578 + .0000E+00, .0000E+00, -.6356E-03, .1145E-02,
579 + .1655E-02, .1145E-02, .8607E-02, .2765E-02,
580 + .0000E+00, .0000E+00, -.7862E-03, .1309E-02,
581 + .1832E-02, .1309E-02, .9762E-02, .3161E-02,
582 + .0000E+00, .0000E+00, -.9513E-03, .1487E-02,
583 + .2022E-02, .1487E-02, .1101E-01, .3593E-02,
584 + .0000E+00, .0000E+00, -.1132E-02, .1680E-02,
585 + .2227E-02, .1680E-02, .1237E-01, .4062E-02,
586 + .0000E+00, .0000E+00, -.1330E-02, .1889E-02,
587 + .2447E-02, .1889E-02, .1384E-01, .4571E-02,
588 + .0000E+00, .0000E+00, -.1546E-02, .2115E-02,
589 + .2684E-02, .2115E-02, .1544E-01, .5120E-02,
590 + .0000E+00, .0000E+00, -.1782E-02, .2361E-02,
591 + .2939E-02, .2361E-02, .1716E-01, .5714E-02,
592 + .0000E+00, .0000E+00, -.2039E-02, .2627E-02,
593 + .3214E-02, .2627E-02, .1903E-01, .6354E-02/
594 DATA ((CALC(I,K,12),I=1,8), K=19,20) /
595 + .0000E+00, .0000E+00, -.2320E-02, .2915E-02,
596 + .3510E-02, .2915E-02, .2106E-01, .7044E-02,
597 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
598 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
599 DATA ((CALC(I,K,13),I=1,8), K=1,9) /
600 + .0000E+00, .0000E+00, .2847E-03, .9072E-04,
601 + .4660E-03, .9072E-04, .1139E-02, .4132E-03,
602 + .0000E+00, .0000E+00, .2312E-03, .1651E-03,
603 + .5612E-03, .1651E-03, .1672E-02, .5041E-03,
604 + .0000E+00, .0000E+00, .1705E-03, .2464E-03,
605 + .6631E-03, .2464E-03, .2253E-02, .6168E-03,
606 + .0000E+00, .0000E+00, .1017E-03, .3353E-03,
607 + .7722E-03, .3353E-03, .2885E-02, .7519E-03,
608 + .0000E+00, .0000E+00, .2433E-04, .4324E-03,
609 + .8890E-03, .4324E-03, .3574E-02, .9099E-03,
610 + .0000E+00, .0000E+00, -.6240E-04, .5383E-03,
611 + .1014E-02, .5383E-03, .4322E-02, .1091E-02,
612 + .0000E+00, .0000E+00, -.1592E-03, .6537E-03,
613 + .1148E-02, .6537E-03, .5135E-02, .1296E-02,
614 + .0000E+00, .0000E+00, -.2669E-03, .7793E-03,
615 + .1292E-02, .7793E-03, .6018E-02, .1526E-02,
616 + .0000E+00, .0000E+00, -.3864E-03, .9159E-03,
617 + .1445E-02, .9159E-03, .6977E-02, .1781E-02/
618 DATA ((CALC(I,K,13),I=1,8), K=10,18) /
619 + .0000E+00, .0000E+00, -.5186E-03, .1064E-02,
620 + .1610E-02, .1064E-02, .8017E-02, .2062E-02,
621 + .0000E+00, .0000E+00, -.6644E-03, .1226E-02,
622 + .1787E-02, .1226E-02, .9144E-02, .2370E-02,
623 + .0000E+00, .0000E+00, -.8250E-03, .1401E-02,
624 + .1977E-02, .1401E-02, .1037E-01, .2707E-02,
625 + .0000E+00, .0000E+00, -.1001E-02, .1591E-02,
626 + .2180E-02, .1591E-02, .1169E-01, .3072E-02,
627 + .0000E+00, .0000E+00, -.1195E-02, .1797E-02,
628 + .2399E-02, .1797E-02, .1312E-01, .3468E-02,
629 + .0000E+00, .0000E+00, -.1407E-02, .2020E-02,
630 + .2634E-02, .2020E-02, .1468E-01, .3897E-02,
631 + .0000E+00, .0000E+00, -.1638E-02, .2262E-02,
632 + .2886E-02, .2262E-02, .1636E-01, .4359E-02,
633 + .0000E+00, .0000E+00, -.1891E-02, .2524E-02,
634 + .3157E-02, .2524E-02, .1817E-01, .4858E-02,
635 + .0000E+00, .0000E+00, -.2166E-02, .2808E-02,
636 + .3449E-02, .2808E-02, .2014E-01, .5394E-02/
637 DATA ((CALC(I,K,13),I=1,8), K=19,20) /
638 + .0000E+00, .0000E+00, -.2466E-02, .3115E-02,
639 + .3764E-02, .3115E-02, .2227E-01, .5972E-02,
640 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
641 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
642 DATA ((CALC(I,K,14),I=1,8), K=1,9) /
643 + .0000E+00, .0000E+00, .3067E-03, .9883E-04,
644 + .5044E-03, .9883E-04, .1227E-02, .3693E-03,
645 + .0000E+00, .0000E+00, .2536E-03, .1779E-03,
646 + .6094E-03, .1779E-03, .1796E-02, .4446E-03,
647 + .0000E+00, .0000E+00, .1922E-03, .2645E-03,
648 + .7213E-03, .2645E-03, .2416E-02, .5393E-03,
649 + .0000E+00, .0000E+00, .1219E-03, .3593E-03,
650 + .8405E-03, .3593E-03, .3090E-02, .6537E-03,
651 + .0000E+00, .0000E+00, .4200E-04, .4629E-03,
652 + .9677E-03, .4629E-03, .3823E-02, .7880E-03,
653 + .0000E+00, .0000E+00, -.4833E-04, .5759E-03,
654 + .1103E-02, .5759E-03, .4619E-02, .9425E-03,
655 + .0000E+00, .0000E+00, -.1499E-03, .6991E-03,
656 + .1248E-02, .6991E-03, .5484E-02, .1117E-02,
657 + .0000E+00, .0000E+00, -.2634E-03, .8332E-03,
658 + .1403E-02, .8332E-03, .6422E-02, .1313E-02,
659 + .0000E+00, .0000E+00, -.3900E-03, .9790E-03,
660 + .1568E-02, .9790E-03, .7439E-02, .1530E-02/
661 DATA ((CALC(I,K,14),I=1,8), K=10,18) /
662 + .0000E+00, .0000E+00, -.5304E-03, .1138E-02,
663 + .1745E-02, .1138E-02, .8541E-02, .1769E-02,
664 + .0000E+00, .0000E+00, -.6857E-03, .1310E-02,
665 + .1934E-02, .1310E-02, .9735E-02, .2030E-02,
666 + .0000E+00, .0000E+00, -.8570E-03, .1496E-02,
667 + .2136E-02, .1496E-02, .1103E-01, .2315E-02,
668 + .0000E+00, .0000E+00, -.1046E-02, .1699E-02,
669 + .2352E-02, .1699E-02, .1243E-01, .2624E-02,
670 + .0000E+00, .0000E+00, -.1252E-02, .1919E-02,
671 + .2585E-02, .1919E-02, .1394E-01, .2958E-02,
672 + .0000E+00, .0000E+00, -.1479E-02, .2156E-02,
673 + .2834E-02, .2156E-02, .1558E-01, .3319E-02,
674 + .0000E+00, .0000E+00, -.1727E-02, .2414E-02,
675 + .3101E-02, .2414E-02, .1735E-01, .3707E-02,
676 + .0000E+00, .0000E+00, -.1998E-02, .2693E-02,
677 + .3388E-02, .2693E-02, .1926E-01, .4126E-02,
678 + .0000E+00, .0000E+00, -.2293E-02, .2995E-02,
679 + .3697E-02, .2995E-02, .2133E-01, .4576E-02/
680 DATA ((CALC(I,K,14),I=1,8), K=19,20) /
681 + .0000E+00, .0000E+00, -.2614E-02, .3321E-02,
682 + .4029E-02, .3321E-02, .2357E-01, .5059E-02,
683 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
684 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
685 DATA ((CALC(I,K,15),I=1,8), K=1,9) /
686 + .0000E+00, .0000E+00, .3396E-03, .1106E-03,
687 + .5609E-03, .1106E-03, .1359E-02, .3308E-03,
688 + .0000E+00, .0000E+00, .2872E-03, .1948E-03,
689 + .6768E-03, .1948E-03, .1968E-02, .3925E-03,
690 + .0000E+00, .0000E+00, .2254E-03, .2871E-03,
691 + .7996E-03, .2871E-03, .2631E-02, .4717E-03,
692 + .0000E+00, .0000E+00, .1533E-03, .3883E-03,
693 + .9299E-03, .3883E-03, .3351E-02, .5682E-03,
694 + .0000E+00, .0000E+00, .7039E-04, .4989E-03,
695 + .1068E-02, .4989E-03, .4134E-02, .6820E-03,
696 + .0000E+00, .0000E+00, -.2425E-04, .6197E-03,
697 + .1215E-02, .6197E-03, .4983E-02, .8132E-03,
698 + .0000E+00, .0000E+00, -.1314E-03, .7513E-03,
699 + .1371E-02, .7513E-03, .5905E-02, .9619E-03,
700 + .0000E+00, .0000E+00, -.2520E-03, .8947E-03,
701 + .1537E-02, .8947E-03, .6903E-02, .1128E-02,
702 + .0000E+00, .0000E+00, -.3868E-03, .1051E-02,
703 + .1714E-02, .1051E-02, .7984E-02, .1313E-02/
704 DATA ((CALC(I,K,15),I=1,8), K=10,18) /
705 + .0000E+00, .0000E+00, -.5370E-03, .1220E-02,
706 + .1903E-02, .1220E-02, .9155E-02, .1515E-02,
707 + .0000E+00, .0000E+00, -.7034E-03, .1404E-02,
708 + .2104E-02, .1404E-02, .1042E-01, .1736E-02,
709 + .0000E+00, .0000E+00, -.8874E-03, .1603E-02,
710 + .2319E-02, .1603E-02, .1179E-01, .1977E-02,
711 + .0000E+00, .0000E+00, -.1090E-02, .1819E-02,
712 + .2548E-02, .1819E-02, .1327E-01, .2237E-02,
713 + .0000E+00, .0000E+00, -.1312E-02, .2053E-02,
714 + .2794E-02, .2053E-02, .1487E-01, .2518E-02,
715 + .0000E+00, .0000E+00, -.1556E-02, .2307E-02,
716 + .3057E-02, .2307E-02, .1660E-01, .2822E-02,
717 + .0000E+00, .0000E+00, -.1822E-02, .2581E-02,
718 + .3339E-02, .2581E-02, .1847E-01, .3148E-02,
719 + .0000E+00, .0000E+00, -.2113E-02, .2878E-02,
720 + .3642E-02, .2878E-02, .2049E-01, .3498E-02,
721 + .0000E+00, .0000E+00, -.2430E-02, .3198E-02,
722 + .3967E-02, .3198E-02, .2267E-01, .3874E-02/
723 DATA ((CALC(I,K,15),I=1,8), K=19,20) /
724 + .0000E+00, .0000E+00, -.2774E-02, .3545E-02,
725 + .4316E-02, .3545E-02, .2503E-01, .4278E-02,
726 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
727 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
728 DATA ((CALC(I,K,16),I=1,8), K=1,9) /
729 + .0000E+00, .0000E+00, .3890E-03, .1278E-03,
730 + .6446E-03, .1278E-03, .1556E-02, .2970E-03,
731 + .0000E+00, .0000E+00, .3368E-03, .2178E-03,
732 + .7725E-03, .2178E-03, .2212E-02, .3471E-03,
733 + .0000E+00, .0000E+00, .2736E-03, .3168E-03,
734 + .9072E-03, .3168E-03, .2924E-02, .4127E-03,
735 + .0000E+00, .0000E+00, .1986E-03, .4253E-03,
736 + .1049E-02, .4253E-03, .3698E-02, .4937E-03,
737 + .0000E+00, .0000E+00, .1112E-03, .5441E-03,
738 + .1199E-02, .5441E-03, .4537E-02, .5898E-03,
739 + .0000E+00, .0000E+00, .1045E-04, .6737E-03,
740 + .1358E-02, .6737E-03, .5447E-02, .7009E-03,
741 + .0000E+00, .0000E+00, -.1044E-03, .8150E-03,
742 + .1526E-02, .8150E-03, .6433E-02, .8269E-03,
743 + .0000E+00, .0000E+00, -.2341E-03, .9689E-03,
744 + .1704E-02, .9689E-03, .7500E-02, .9678E-03,
745 + .0000E+00, .0000E+00, -.3798E-03, .1136E-02,
746 + .1892E-02, .1136E-02, .8654E-02, .1124E-02/
747 DATA ((CALC(I,K,16),I=1,8), K=10,18) /
748 + .0000E+00, .0000E+00, -.5422E-03, .1318E-02,
749 + .2093E-02, .1318E-02, .9902E-02, .1295E-02,
750 + .0000E+00, .0000E+00, -.7226E-03, .1514E-02,
751 + .2306E-02, .1514E-02, .1125E-01, .1482E-02,
752 + .0000E+00, .0000E+00, -.9219E-03, .1728E-02,
753 + .2534E-02, .1728E-02, .1271E-01, .1684E-02,
754 + .0000E+00, .0000E+00, -.1141E-02, .1959E-02,
755 + .2776E-02, .1959E-02, .1428E-01, .1903E-02,
756 + .0000E+00, .0000E+00, -.1382E-02, .2209E-02,
757 + .3035E-02, .2209E-02, .1598E-01, .2139E-02,
758 + .0000E+00, .0000E+00, -.1646E-02, .2479E-02,
759 + .3313E-02, .2479E-02, .1781E-01, .2393E-02,
760 + .0000E+00, .0000E+00, -.1934E-02, .2772E-02,
761 + .3609E-02, .2772E-02, .1979E-01, .2665E-02,
762 + .0000E+00, .0000E+00, -.2248E-02, .3088E-02,
763 + .3928E-02, .3088E-02, .2192E-01, .2957E-02,
764 + .0000E+00, .0000E+00, -.2589E-02, .3429E-02,
765 + .4269E-02, .3429E-02, .2422E-01, .3271E-02/
766 DATA ((CALC(I,K,16),I=1,8), K=19,20) /
767 + .0000E+00, .0000E+00, -.2960E-02, .3798E-02,
768 + .4636E-02, .3798E-02, .2671E-01, .3607E-02,
769 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
770 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
771 DATA ((CALC(I,K,17),I=1,8), K=1,9) /
772 + .0000E+00, .0000E+00, .4607E-03, .1520E-03,
773 + .7648E-03, .1520E-03, .1843E-02, .2671E-03,
774 + .0000E+00, .0000E+00, .4070E-03, .2493E-03,
775 + .9056E-03, .2493E-03, .2553E-02, .3071E-03,
776 + .0000E+00, .0000E+00, .3403E-03, .3563E-03,
777 + .1053E-02, .3563E-03, .3323E-02, .3611E-03,
778 + .0000E+00, .0000E+00, .2600E-03, .4736E-03,
779 + .1207E-02, .4736E-03, .4159E-02, .4286E-03,
780 + .0000E+00, .0000E+00, .1653E-03, .6020E-03,
781 + .1369E-02, .6020E-03, .5064E-02, .5093E-03,
782 + .0000E+00, .0000E+00, .5554E-04, .7421E-03,
783 + .1540E-02, .7421E-03, .6043E-02, .6029E-03,
784 + .0000E+00, .0000E+00, -.7012E-04, .8947E-03,
785 + .1719E-02, .8947E-03, .7103E-02, .7092E-03,
786 + .0000E+00, .0000E+00, -.2125E-03, .1061E-02,
787 + .1909E-02, .1061E-02, .8248E-02, .8281E-03,
788 + .0000E+00, .0000E+00, -.3724E-03, .1241E-02,
789 + .2109E-02, .1241E-02, .9484E-02, .9595E-03/
790 DATA ((CALC(I,K,17),I=1,8), K=10,18) /
791 + .0000E+00, .0000E+00, -.5509E-03, .1436E-02,
792 + .2322E-02, .1436E-02, .1082E-01, .1103E-02,
793 + .0000E+00, .0000E+00, -.7488E-03, .1648E-02,
794 + .2547E-02, .1648E-02, .1226E-01, .1260E-02,
795 + .0000E+00, .0000E+00, -.9673E-03, .1877E-02,
796 + .2787E-02, .1877E-02, .1381E-01, .1430E-02,
797 + .0000E+00, .0000E+00, -.1208E-02, .2125E-02,
798 + .3042E-02, .2125E-02, .1548E-01, .1613E-02,
799 + .0000E+00, .0000E+00, -.1471E-02, .2393E-02,
800 + .3314E-02, .2393E-02, .1729E-01, .1810E-02,
801 + .0000E+00, .0000E+00, -.1758E-02, .2682E-02,
802 + .3605E-02, .2682E-02, .1924E-01, .2021E-02,
803 + .0000E+00, .0000E+00, -.2072E-02, .2994E-02,
804 + .3917E-02, .2994E-02, .2133E-01, .2247E-02,
805 + .0000E+00, .0000E+00, -.2412E-02, .3331E-02,
806 + .4250E-02, .3331E-02, .2360E-01, .2490E-02,
807 + .0000E+00, .0000E+00, -.2782E-02, .3695E-02,
808 + .4608E-02, .3695E-02, .2603E-01, .2750E-02/
809 DATA ((CALC(I,K,17),I=1,8), K=19,20) /
810 + .0000E+00, .0000E+00, -.3183E-02, .4088E-02,
811 + .4993E-02, .4088E-02, .2866E-01, .3028E-02,
812 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
813 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
814 DATA ((CALC(I,K,18),I=1,8), K=1,9) /
815 + .0000E+00, .0000E+00, .5599E-03, .1856E-03,
816 + .9310E-03, .1856E-03, .2240E-02, .2405E-03,
817 + .0000E+00, .0000E+00, .5015E-03, .2917E-03,
818 + .1085E-02, .2917E-03, .3014E-02, .2720E-03,
819 + .0000E+00, .0000E+00, .4279E-03, .4085E-03,
820 + .1245E-02, .4085E-03, .3852E-02, .3160E-03,
821 + .0000E+00, .0000E+00, .3385E-03, .5364E-03,
822 + .1411E-02, .5364E-03, .4760E-02, .3719E-03,
823 + .0000E+00, .0000E+00, .2325E-03, .6763E-03,
824 + .1585E-02, .6763E-03, .5741E-02, .4393E-03,
825 + .0000E+00, .0000E+00, .1094E-03, .8288E-03,
826 + .1767E-02, .8288E-03, .6800E-02, .5177E-03,
827 + .0000E+00, .0000E+00, -.3146E-04, .9946E-03,
828 + .1958E-02, .9946E-03, .7943E-02, .6069E-03,
829 + .0000E+00, .0000E+00, -.1909E-03, .1175E-02,
830 + .2158E-02, .1175E-02, .9176E-02, .7066E-03,
831 + .0000E+00, .0000E+00, -.3697E-03, .1370E-02,
832 + .2370E-02, .1370E-02, .1050E-01, .8166E-03/
833 DATA ((CALC(I,K,18),I=1,8), K=10,18) /
834 + .0000E+00, .0000E+00, -.5687E-03, .1581E-02,
835 + .2593E-02, .1581E-02, .1194E-01, .9369E-03,
836 + .0000E+00, .0000E+00, -.7888E-03, .1809E-02,
837 + .2830E-02, .1809E-02, .1348E-01, .1068E-02,
838 + .0000E+00, .0000E+00, -.1031E-02, .2056E-02,
839 + .3081E-02, .2056E-02, .1514E-01, .1209E-02,
840 + .0000E+00, .0000E+00, -.1296E-02, .2323E-02,
841 + .3349E-02, .2323E-02, .1692E-01, .1361E-02,
842 + .0000E+00, .0000E+00, -.1586E-02, .2610E-02,
843 + .3634E-02, .2610E-02, .1885E-01, .1524E-02,
844 + .0000E+00, .0000E+00, -.1902E-02, .2920E-02,
845 + .3938E-02, .2920E-02, .2092E-01, .1698E-02,
846 + .0000E+00, .0000E+00, -.2245E-02, .3254E-02,
847 + .4264E-02, .3254E-02, .2314E-01, .1885E-02,
848 + .0000E+00, .0000E+00, -.2616E-02, .3615E-02,
849 + .4613E-02, .3615E-02, .2554E-01, .2085E-02,
850 + .0000E+00, .0000E+00, -.3018E-02, .4003E-02,
851 + .4987E-02, .4003E-02, .2813E-01, .2299E-02/
852 DATA ((CALC(I,K,18),I=1,8), K=19,20) /
853 + .0000E+00, .0000E+00, -.3453E-02, .4421E-02,
854 + .5390E-02, .4421E-02, .3091E-01, .2527E-02,
855 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
856 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
857 DATA ((CALC(I,K,19),I=1,8), K=1,9) /
858 + .0000E+00, .0000E+00, .6921E-03, .2299E-03,
859 + .1152E-02, .2299E-03, .2768E-02, .2166E-03,
860 + .0000E+00, .0000E+00, .6242E-03, .3471E-03,
861 + .1318E-02, .3471E-03, .3617E-02, .2409E-03,
862 + .0000E+00, .0000E+00, .5385E-03, .4757E-03,
863 + .1490E-02, .4757E-03, .4534E-02, .2764E-03,
864 + .0000E+00, .0000E+00, .4345E-03, .6165E-03,
865 + .1668E-02, .6165E-03, .5524E-02, .3223E-03,
866 + .0000E+00, .0000E+00, .3119E-03, .7700E-03,
867 + .1852E-02, .7700E-03, .6591E-02, .3781E-03,
868 + .0000E+00, .0000E+00, .1699E-03, .9370E-03,
869 + .2044E-02, .9370E-03, .7740E-02, .4434E-03,
870 + .0000E+00, .0000E+00, .8262E-05, .1118E-02,
871 + .2244E-02, .1118E-02, .8976E-02, .5176E-03,
872 + .0000E+00, .0000E+00, -.1738E-03, .1314E-02,
873 + .2455E-02, .1314E-02, .1031E-01, .6005E-03,
874 + .0000E+00, .0000E+00, -.3768E-03, .1526E-02,
875 + .2676E-02, .1526E-02, .1174E-01, .6918E-03/
876 DATA ((CALC(I,K,19),I=1,8), K=10,18) /
877 + .0000E+00, .0000E+00, -.6016E-03, .1755E-02,
878 + .2909E-02, .1755E-02, .1327E-01, .7915E-03,
879 + .0000E+00, .0000E+00, -.8489E-03, .2002E-02,
880 + .3156E-02, .2002E-02, .1492E-01, .8995E-03,
881 + .0000E+00, .0000E+00, -.1120E-02, .2269E-02,
882 + .3417E-02, .2269E-02, .1670E-01, .1016E-02,
883 + .0000E+00, .0000E+00, -.1415E-02, .2555E-02,
884 + .3696E-02, .2555E-02, .1861E-01, .1141E-02,
885 + .0000E+00, .0000E+00, -.1736E-02, .2864E-02,
886 + .3992E-02, .2864E-02, .2066E-01, .1274E-02,
887 + .0000E+00, .0000E+00, -.2084E-02, .3197E-02,
888 + .4309E-02, .3197E-02, .2286E-01, .1417E-02,
889 + .0000E+00, .0000E+00, -.2460E-02, .3554E-02,
890 + .4649E-02, .3554E-02, .2523E-01, .1570E-02,
891 + .0000E+00, .0000E+00, -.2866E-02, .3939E-02,
892 + .5013E-02, .3939E-02, .2778E-01, .1733E-02,
893 + .0000E+00, .0000E+00, -.3303E-02, .4353E-02,
894 + .5403E-02, .4353E-02, .3052E-01, .1907E-02/
895 DATA ((CALC(I,K,19),I=1,8), K=19,20) /
896 + .0000E+00, .0000E+00, -.3775E-02, .4799E-02,
897 + .5823E-02, .4799E-02, .3346E-01, .2093E-02,
898 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
899 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
900 DATA ((CALC(I,K,20),I=1,8), K=1,9) /
901 + .0000E+00, .0000E+00, .8612E-03, .2864E-03,
902 + .1434E-02, .2864E-03, .3445E-02, .1949E-03,
903 + .0000E+00, .0000E+00, .7771E-03, .4171E-03,
904 + .1611E-02, .4171E-03, .4379E-02, .2130E-03,
905 + .0000E+00, .0000E+00, .6725E-03, .5601E-03,
906 + .1792E-02, .5601E-03, .5385E-02, .2412E-03,
907 + .0000E+00, .0000E+00, .5472E-03, .7160E-03,
908 + .1979E-02, .7160E-03, .6467E-02, .2785E-03,
909 + .0000E+00, .0000E+00, .4010E-03, .8854E-03,
910 + .2172E-02, .8854E-03, .7628E-02, .3243E-03,
911 + .0000E+00, .0000E+00, .2335E-03, .1069E-02,
912 + .2371E-02, .1069E-02, .8876E-02, .3780E-03,
913 + .0000E+00, .0000E+00, .4458E-04, .1267E-02,
914 + .2579E-02, .1267E-02, .1021E-01, .4392E-03,
915 + .0000E+00, .0000E+00, -.1663E-03, .1482E-02,
916 + .2797E-02, .1482E-02, .1165E-01, .5074E-03,
917 + .0000E+00, .0000E+00, -.3995E-03, .1712E-02,
918 + .3025E-02, .1712E-02, .1319E-01, .5825E-03/
919 DATA ((CALC(I,K,20),I=1,8), K=10,18) /
920 + .0000E+00, .0000E+00, -.6557E-03, .1961E-02,
921 + .3266E-02, .1961E-02, .1484E-01, .6641E-03,
922 + .0000E+00, .0000E+00, -.9356E-03, .2228E-02,
923 + .3520E-02, .2228E-02, .1660E-01, .7523E-03,
924 + .0000E+00, .0000E+00, -.1240E-02, .2515E-02,
925 + .3791E-02, .2515E-02, .1850E-01, .8470E-03,
926 + .0000E+00, .0000E+00, -.1569E-02, .2824E-02,
927 + .4078E-02, .2824E-02, .2053E-01, .9485E-03,
928 + .0000E+00, .0000E+00, -.1925E-02, .3155E-02,
929 + .4385E-02, .3155E-02, .2271E-01, .1057E-02,
930 + .0000E+00, .0000E+00, -.2309E-02, .3511E-02,
931 + .4713E-02, .3511E-02, .2505E-01, .1172E-02,
932 + .0000E+00, .0000E+00, -.2722E-02, .3893E-02,
933 + .5065E-02, .3893E-02, .2757E-01, .1296E-02,
934 + .0000E+00, .0000E+00, -.3165E-02, .4304E-02,
935 + .5442E-02, .4304E-02, .3027E-01, .1427E-02,
936 + .0000E+00, .0000E+00, -.3641E-02, .4745E-02,
937 + .5848E-02, .4745E-02, .3317E-01, .1567E-02/
938 DATA ((CALC(I,K,20),I=1,8), K=19,20) /
939 + .0000E+00, .0000E+00, -.4152E-02, .5219E-02,
940 + .6285E-02, .5219E-02, .3629E-01, .1716E-02,
941 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
942 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
943 DATA ((CALC(I,K,21),I=1,8), K=1,9) /
944 + .0000E+00, .0000E+00, .1070E-02, .3563E-03,
945 + .1782E-02, .3563E-03, .4279E-02, .1745E-03,
946 + .0000E+00, .0000E+00, .9609E-03, .5031E-03,
947 + .1967E-02, .5031E-03, .5309E-02, .1877E-03,
948 + .0000E+00, .0000E+00, .8288E-03, .6629E-03,
949 + .2154E-02, .6629E-03, .6413E-02, .2097E-03,
950 + .0000E+00, .0000E+00, .6737E-03, .8362E-03,
951 + .2346E-02, .8362E-03, .7594E-02, .2396E-03,
952 + .0000E+00, .0000E+00, .4959E-03, .1024E-02,
953 + .2543E-02, .1024E-02, .8857E-02, .2767E-03,
954 + .0000E+00, .0000E+00, .2953E-03, .1226E-02,
955 + .2747E-02, .1226E-02, .1021E-01, .3204E-03,
956 + .0000E+00, .0000E+00, .7187E-04, .1443E-02,
957 + .2959E-02, .1443E-02, .1165E-01, .3702E-03,
958 + .0000E+00, .0000E+00, -.1745E-03, .1677E-02,
959 + .3180E-02, .1677E-02, .1320E-01, .4256E-03,
960 + .0000E+00, .0000E+00, -.4441E-03, .1928E-02,
961 + .3412E-02, .1928E-02, .1485E-01, .4864E-03/
962 DATA ((CALC(I,K,21),I=1,8), K=10,18) /
963 + .0000E+00, .0000E+00, -.7373E-03, .2197E-02,
964 + .3657E-02, .2197E-02, .1661E-01, .5523E-03,
965 + .0000E+00, .0000E+00, -.1055E-02, .2486E-02,
966 + .3917E-02, .2486E-02, .1850E-01, .6233E-03,
967 + .0000E+00, .0000E+00, -.1397E-02, .2795E-02,
968 + .4192E-02, .2795E-02, .2051E-01, .6993E-03,
969 + .0000E+00, .0000E+00, -.1764E-02, .3126E-02,
970 + .4486E-02, .3126E-02, .2267E-01, .7804E-03,
971 + .0000E+00, .0000E+00, -.2159E-02, .3480E-02,
972 + .4801E-02, .3480E-02, .2499E-01, .8669E-03,
973 + .0000E+00, .0000E+00, -.2581E-02, .3860E-02,
974 + .5138E-02, .3860E-02, .2747E-01, .9589E-03,
975 + .0000E+00, .0000E+00, -.3032E-02, .4266E-02,
976 + .5500E-02, .4266E-02, .3012E-01, .1057E-02,
977 + .0000E+00, .0000E+00, -.3515E-02, .4702E-02,
978 + .5890E-02, .4702E-02, .3297E-01, .1161E-02,
979 + .0000E+00, .0000E+00, -.4030E-02, .5170E-02,
980 + .6310E-02, .5170E-02, .3603E-01, .1272E-02/
981 DATA ((CALC(I,K,21),I=1,8), K=19,20) /
982 + .0000E+00, .0000E+00, -.4580E-02, .5672E-02,
983 + .6764E-02, .5672E-02, .3932E-01, .1390E-02,
984 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
985 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
986 DATA ((CALC(I,K,22),I=1,8), K=1,9) /
987 + .0000E+00, .0000E+00, .1320E-02, .4396E-03,
988 + .2199E-02, .4396E-03, .5278E-02, .1552E-03,
989 + .0000E+00, .0000E+00, .1175E-02, .6052E-03,
990 + .2385E-02, .6052E-03, .6411E-02, .1643E-03,
991 + .0000E+00, .0000E+00, .1005E-02, .7844E-03,
992 + .2573E-02, .7844E-03, .7618E-02, .1812E-03,
993 + .0000E+00, .0000E+00, .8101E-03, .9775E-03,
994 + .2765E-02, .9775E-03, .8903E-02, .2048E-03,
995 + .0000E+00, .0000E+00, .5915E-03, .1185E-02,
996 + .2961E-02, .1185E-02, .1027E-01, .2344E-03,
997 + .0000E+00, .0000E+00, .3494E-03, .1407E-02,
998 + .3164E-02, .1407E-02, .1173E-01, .2694E-03,
999 + .0000E+00, .0000E+00, .8390E-04, .1645E-02,
1000 + .3375E-02, .1645E-02, .1328E-01, .3092E-03,
1001 + .0000E+00, .0000E+00, -.2047E-03, .1900E-02,
1002 + .3595E-02, .1900E-02, .1493E-01, .3535E-03,
1003 + .0000E+00, .0000E+00, -.5165E-03, .2172E-02,
1004 + .3827E-02, .2172E-02, .1669E-01, .4018E-03/
1005 DATA ((CALC(I,K,22),I=1,8), K=10,18) /
1006 + .0000E+00, .0000E+00, -.8517E-03, .2462E-02,
1007 + .4072E-02, .2462E-02, .1857E-01, .4541E-03,
1008 + .0000E+00, .0000E+00, -.1211E-02, .2772E-02,
1009 + .4333E-02, .2772E-02, .2057E-01, .5102E-03,
1010 + .0000E+00, .0000E+00, -.1594E-02, .3102E-02,
1011 + .4611E-02, .3102E-02, .2271E-01, .5701E-03,
1012 + .0000E+00, .0000E+00, -.2002E-02, .3455E-02,
1013 + .4908E-02, .3455E-02, .2499E-01, .6337E-03,
1014 + .0000E+00, .0000E+00, -.2437E-02, .3832E-02,
1015 + .5227E-02, .3832E-02, .2742E-01, .7014E-03,
1016 + .0000E+00, .0000E+00, -.2898E-02, .4235E-02,
1017 + .5571E-02, .4235E-02, .3003E-01, .7732E-03,
1018 + .0000E+00, .0000E+00, -.3389E-02, .4665E-02,
1019 + .5941E-02, .4665E-02, .3282E-01, .8494E-03,
1020 + .0000E+00, .0000E+00, -.3910E-02, .5125E-02,
1021 + .6341E-02, .5125E-02, .3581E-01, .9304E-03,
1022 + .0000E+00, .0000E+00, -.4463E-02, .5618E-02,
1023 + .6773E-02, .5618E-02, .3902E-01, .1017E-02/
1024 DATA ((CALC(I,K,22),I=1,8), K=19,20) /
1025 + .0000E+00, .0000E+00, -.5051E-02, .6146E-02,
1026 + .7240E-02, .6146E-02, .4246E-01, .1108E-02,
1027 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1028 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1029 DATA ((CALC(I,K,23),I=1,8), K=1,9) /
1030 + .0000E+00, .0000E+00, .1609E-02, .5367E-03,
1031 + .2681E-02, .5367E-03, .6436E-02, .1366E-03,
1032 + .0000E+00, .0000E+00, .1415E-02, .7238E-03,
1033 + .2862E-02, .7238E-03, .7676E-02, .1424E-03,
1034 + .0000E+00, .0000E+00, .1195E-02, .9246E-03,
1035 + .3043E-02, .9246E-03, .8989E-02, .1550E-03,
1036 + .0000E+00, .0000E+00, .9500E-03, .1139E-02,
1037 + .3228E-02, .1139E-02, .1038E-01, .1732E-03,
1038 + .0000E+00, .0000E+00, .6808E-03, .1368E-02,
1039 + .3416E-02, .1368E-02, .1185E-01, .1964E-03,
1040 + .0000E+00, .0000E+00, .3884E-03, .1612E-02,
1041 + .3612E-02, .1612E-02, .1341E-01, .2239E-03,
1042 + .0000E+00, .0000E+00, .7339E-04, .1871E-02,
1043 + .3815E-02, .1871E-02, .1507E-01, .2552E-03,
1044 + .0000E+00, .0000E+00, -.2637E-03, .2147E-02,
1045 + .4029E-02, .2147E-02, .1682E-01, .2898E-03,
1046 + .0000E+00, .0000E+00, -.6228E-03, .2439E-02,
1047 + .4255E-02, .2439E-02, .1869E-01, .3275E-03/
1048 DATA ((CALC(I,K,23),I=1,8), K=10,18) /
1049 + .0000E+00, .0000E+00, -.1004E-02, .2750E-02,
1050 + .4496E-02, .2750E-02, .2067E-01, .3680E-03,
1051 + .0000E+00, .0000E+00, -.1407E-02, .3080E-02,
1052 + .4753E-02, .3080E-02, .2277E-01, .4113E-03,
1053 + .0000E+00, .0000E+00, -.1833E-02, .3431E-02,
1054 + .5029E-02, .3431E-02, .2501E-01, .4573E-03,
1055 + .0000E+00, .0000E+00, -.2283E-02, .3805E-02,
1056 + .5326E-02, .3805E-02, .2740E-01, .5061E-03,
1057 + .0000E+00, .0000E+00, -.2757E-02, .4202E-02,
1058 + .5647E-02, .4202E-02, .2995E-01, .5578E-03,
1059 + .0000E+00, .0000E+00, -.3258E-02, .4626E-02,
1060 + .5993E-02, .4626E-02, .3267E-01, .6125E-03,
1061 + .0000E+00, .0000E+00, -.3785E-02, .5077E-02,
1062 + .6369E-02, .5077E-02, .3558E-01, .6705E-03,
1063 + .0000E+00, .0000E+00, -.4342E-02, .5559E-02,
1064 + .6776E-02, .5559E-02, .3870E-01, .7319E-03,
1065 + .0000E+00, .0000E+00, -.4931E-02, .6074E-02,
1066 + .7217E-02, .6074E-02, .4203E-01, .7972E-03/
1067 DATA ((CALC(I,K,23),I=1,8), K=19,20) /
1068 + .0000E+00, .0000E+00, -.5553E-02, .6625E-02,
1069 + .7696E-02, .6625E-02, .4561E-01, .8667E-03,
1070 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1071 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1072 DATA ((CALC(I,K,24),I=1,8), K=1,9) /
1073 + .0000E+00, .0000E+00, .1935E-02, .6449E-03,
1074 + .3226E-02, .6449E-03, .7742E-02, .1184E-03,
1075 + .0000E+00, .0000E+00, .1677E-02, .8565E-03,
1076 + .3390E-02, .8565E-03, .9090E-02, .1217E-03,
1077 + .0000E+00, .0000E+00, .1393E-02, .1081E-02,
1078 + .3555E-02, .1081E-02, .1051E-01, .1308E-03,
1079 + .0000E+00, .0000E+00, .1085E-02, .1319E-02,
1080 + .3723E-02, .1319E-02, .1200E-01, .1446E-03,
1081 + .0000E+00, .0000E+00, .7550E-03, .1571E-02,
1082 + .3896E-02, .1571E-02, .1357E-01, .1623E-03,
1083 + .0000E+00, .0000E+00, .4038E-03, .1836E-02,
1084 + .4076E-02, .1836E-02, .1523E-01, .1834E-03,
1085 + .0000E+00, .0000E+00, .3232E-04, .2117E-02,
1086 + .4265E-02, .2117E-02, .1698E-01, .2073E-03,
1087 + .0000E+00, .0000E+00, -.3586E-03, .2412E-02,
1088 + .4466E-02, .2412E-02, .1882E-01, .2337E-03,
1089 + .0000E+00, .0000E+00, -.7687E-03, .2725E-02,
1090 + .4681E-02, .2725E-02, .2078E-01, .2622E-03/
1091 DATA ((CALC(I,K,24),I=1,8), K=10,18) /
1092 + .0000E+00, .0000E+00, -.1198E-02, .3055E-02,
1093 + .4911E-02, .3055E-02, .2284E-01, .2928E-03,
1094 + .0000E+00, .0000E+00, -.1647E-02, .3404E-02,
1095 + .5160E-02, .3404E-02, .2504E-01, .3253E-03,
1096 + .0000E+00, .0000E+00, -.2115E-02, .3773E-02,
1097 + .5430E-02, .3773E-02, .2737E-01, .3597E-03,
1098 + .0000E+00, .0000E+00, -.2605E-02, .4164E-02,
1099 + .5722E-02, .4164E-02, .2984E-01, .3959E-03,
1100 + .0000E+00, .0000E+00, -.3117E-02, .4579E-02,
1101 + .6041E-02, .4579E-02, .3248E-01, .4342E-03,
1102 + .0000E+00, .0000E+00, -.3652E-02, .5019E-02,
1103 + .6387E-02, .5019E-02, .3529E-01, .4747E-03,
1104 + .0000E+00, .0000E+00, -.4212E-02, .5488E-02,
1105 + .6764E-02, .5488E-02, .3830E-01, .5174E-03,
1106 + .0000E+00, .0000E+00, -.4800E-02, .5987E-02,
1107 + .7174E-02, .5987E-02, .4151E-01, .5627E-03,
1108 + .0000E+00, .0000E+00, -.5417E-02, .6519E-02,
1109 + .7622E-02, .6519E-02, .4494E-01, .6108E-03/
1110 DATA ((CALC(I,K,24),I=1,8), K=19,20) /
1111 + .0000E+00, .0000E+00, -.6067E-02, .7088E-02,
1112 + .8109E-02, .7088E-02, .4863E-01, .6619E-03,
1113 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1114 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1115 DATA ((CALC(I,K,25),I=1,8), K=1,9) /
1116 + .0000E+00, .0000E+00, .2294E-02, .7649E-03,
1117 + .3823E-02, .7649E-03, .9174E-02, .1007E-03,
1118 + .0000E+00, .0000E+00, .1953E-02, .1003E-02,
1119 + .3959E-02, .1003E-02, .1063E-01, .1021E-03,
1120 + .0000E+00, .0000E+00, .1589E-02, .1254E-02,
1121 + .4096E-02, .1254E-02, .1215E-01, .1084E-03,
1122 + .0000E+00, .0000E+00, .1206E-02, .1516E-02,
1123 + .4237E-02, .1516E-02, .1373E-01, .1185E-03,
1124 + .0000E+00, .0000E+00, .8039E-03, .1790E-02,
1125 + .4384E-02, .1790E-02, .1539E-01, .1317E-03,
1126 + .0000E+00, .0000E+00, .3856E-03, .2077E-02,
1127 + .4540E-02, .2077E-02, .1713E-01, .1473E-03,
1128 + .0000E+00, .0000E+00, -.4818E-04, .2378E-02,
1129 + .4707E-02, .2378E-02, .1896E-01, .1650E-03,
1130 + .0000E+00, .0000E+00, -.4968E-03, .2692E-02,
1131 + .4888E-02, .2692E-02, .2088E-01, .1845E-03,
1132 + .0000E+00, .0000E+00, -.9598E-03, .3022E-02,
1133 + .5085E-02, .3022E-02, .2290E-01, .2054E-03/
1134 DATA ((CALC(I,K,25),I=1,8), K=10,18) /
1135 + .0000E+00, .0000E+00, -.1437E-02, .3369E-02,
1136 + .5300E-02, .3369E-02, .2503E-01, .2276E-03,
1137 + .0000E+00, .0000E+00, -.1930E-02, .3733E-02,
1138 + .5535E-02, .3733E-02, .2729E-01, .2511E-03,
1139 + .0000E+00, .0000E+00, -.2438E-02, .4116E-02,
1140 + .5794E-02, .4116E-02, .2968E-01, .2759E-03,
1141 + .0000E+00, .0000E+00, -.2963E-02, .4521E-02,
1142 + .6078E-02, .4521E-02, .3222E-01, .3018E-03,
1143 + .0000E+00, .0000E+00, -.3507E-02, .4948E-02,
1144 + .6389E-02, .4948E-02, .3491E-01, .3292E-03,
1145 + .0000E+00, .0000E+00, -.4070E-02, .5401E-02,
1146 + .6731E-02, .5401E-02, .3778E-01, .3580E-03,
1147 + .0000E+00, .0000E+00, -.4656E-02, .5881E-02,
1148 + .7106E-02, .5881E-02, .4085E-01, .3883E-03,
1149 + .0000E+00, .0000E+00, -.5267E-02, .6392E-02,
1150 + .7517E-02, .6392E-02, .4412E-01, .4205E-03,
1151 + .0000E+00, .0000E+00, -.5904E-02, .6935E-02,
1152 + .7966E-02, .6935E-02, .4762E-01, .4545E-03/
1153 DATA ((CALC(I,K,25),I=1,8), K=19,20) /
1154 + .0000E+00, .0000E+00, -.6573E-02, .7515E-02,
1155 + .8457E-02, .7515E-02, .5136E-01, .4907E-03,
1156 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1157 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1158 DATA ((CALC(I,K,26),I=1,8), K=1,9) /
1159 + .0000E+00, .0000E+00, .2676E-02, .8925E-03,
1160 + .4461E-02, .8925E-03, .1071E-01, .8338E-04,
1161 + .0000E+00, .0000E+00, .2232E-02, .1161E-02,
1162 + .4553E-02, .1161E-02, .1226E-01, .8346E-04,
1163 + .0000E+00, .0000E+00, .1772E-02, .1438E-02,
1164 + .4648E-02, .1438E-02, .1387E-01, .8758E-04,
1165 + .0000E+00, .0000E+00, .1299E-02, .1726E-02,
1166 + .4749E-02, .1726E-02, .1554E-01, .9470E-04,
1167 + .0000E+00, .0000E+00, .8150E-03, .2023E-02,
1168 + .4860E-02, .2023E-02, .1727E-01, .1041E-03,
1169 + .0000E+00, .0000E+00, .3226E-03, .2330E-02,
1170 + .4983E-02, .2330E-02, .1907E-01, .1153E-03,
1171 + .0000E+00, .0000E+00, -.1779E-03, .2649E-02,
1172 + .5120E-02, .2649E-02, .2096E-01, .1280E-03,
1173 + .0000E+00, .0000E+00, -.6858E-03, .2980E-02,
1174 + .5274E-02, .2980E-02, .2293E-01, .1417E-03,
1175 + .0000E+00, .0000E+00, -.1201E-02, .3324E-02,
1176 + .5447E-02, .3324E-02, .2499E-01, .1563E-03/
1177 DATA ((CALC(I,K,26),I=1,8), K=10,18) /
1178 + .0000E+00, .0000E+00, -.1724E-02, .3683E-02,
1179 + .5641E-02, .3683E-02, .2716E-01, .1718E-03,
1180 + .0000E+00, .0000E+00, -.2256E-02, .4058E-02,
1181 + .5858E-02, .4058E-02, .2945E-01, .1880E-03,
1182 + .0000E+00, .0000E+00, -.2798E-02, .4450E-02,
1183 + .6102E-02, .4450E-02, .3187E-01, .2050E-03,
1184 + .0000E+00, .0000E+00, -.3352E-02, .4863E-02,
1185 + .6373E-02, .4863E-02, .3443E-01, .2227E-03,
1186 + .0000E+00, .0000E+00, -.3919E-02, .5297E-02,
1187 + .6674E-02, .5297E-02, .3715E-01, .2413E-03,
1188 + .0000E+00, .0000E+00, -.4502E-02, .5755E-02,
1189 + .7008E-02, .5755E-02, .4004E-01, .2608E-03,
1190 + .0000E+00, .0000E+00, -.5103E-02, .6240E-02,
1191 + .7377E-02, .6240E-02, .4312E-01, .2814E-03,
1192 + .0000E+00, .0000E+00, -.5725E-02, .6755E-02,
1193 + .7784E-02, .6755E-02, .4641E-01, .3031E-03,
1194 + .0000E+00, .0000E+00, -.6372E-02, .7302E-02,
1195 + .8231E-02, .7302E-02, .4992E-01, .3261E-03/
1196 DATA ((CALC(I,K,26),I=1,8), K=19,20) /
1197 + .0000E+00, .0000E+00, -.7046E-02, .7884E-02,
1198 + .8722E-02, .7884E-02, .5368E-01, .3505E-03,
1199 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1200 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1201 DATA ((CALC(I,K,27),I=1,8), K=1,9) /
1202 + .0000E+00, .0000E+00, .3076E-02, .1026E-02,
1203 + .5127E-02, .1026E-02, .1230E-01, .6658E-04,
1204 + .0000E+00, .0000E+00, .2503E-02, .1327E-02,
1205 + .5156E-02, .1327E-02, .1395E-01, .6586E-04,
1206 + .0000E+00, .0000E+00, .1926E-02, .1634E-02,
1207 + .5193E-02, .1634E-02, .1564E-01, .6839E-04,
1208 + .0000E+00, .0000E+00, .1349E-02, .1947E-02,
1209 + .5242E-02, .1947E-02, .1737E-01, .7318E-04,
1210 + .0000E+00, .0000E+00, .7736E-03, .2266E-02,
1211 + .5305E-02, .2266E-02, .1916E-01, .7961E-04,
1212 + .0000E+00, .0000E+00, .2012E-03, .2592E-02,
1213 + .5385E-02, .2592E-02, .2100E-01, .8725E-04,
1214 + .0000E+00, .0000E+00, -.3680E-03, .2926E-02,
1215 + .5484E-02, .2926E-02, .2292E-01, .9577E-04,
1216 + .0000E+00, .0000E+00, -.9343E-03, .3270E-02,
1217 + .5605E-02, .3270E-02, .2491E-01, .1049E-03,
1218 + .0000E+00, .0000E+00, -.1498E-02, .3623E-02,
1219 + .5748E-02, .3623E-02, .2699E-01, .1146E-03/
1220 DATA ((CALC(I,K,27),I=1,8), K=10,18) /
1221 + .0000E+00, .0000E+00, -.2061E-02, .3989E-02,
1222 + .5917E-02, .3989E-02, .2917E-01, .1247E-03,
1223 + .0000E+00, .0000E+00, -.2625E-02, .4369E-02,
1224 + .6113E-02, .4369E-02, .3145E-01, .1353E-03,
1225 + .0000E+00, .0000E+00, -.3192E-02, .4765E-02,
1226 + .6338E-02, .4765E-02, .3386E-01, .1462E-03,
1227 + .0000E+00, .0000E+00, -.3763E-02, .5178E-02,
1228 + .6593E-02, .5178E-02, .3641E-01, .1575E-03,
1229 + .0000E+00, .0000E+00, -.4342E-02, .5611E-02,
1230 + .6881E-02, .5611E-02, .3910E-01, .1694E-03,
1231 + .0000E+00, .0000E+00, -.4931E-02, .6067E-02,
1232 + .7204E-02, .6067E-02, .4197E-01, .1818E-03,
1233 + .0000E+00, .0000E+00, -.5535E-02, .6549E-02,
1234 + .7563E-02, .6549E-02, .4501E-01, .1948E-03,
1235 + .0000E+00, .0000E+00, -.6156E-02, .7059E-02,
1236 + .7962E-02, .7059E-02, .4826E-01, .2086E-03,
1237 + .0000E+00, .0000E+00, -.6797E-02, .7600E-02,
1238 + .8402E-02, .7600E-02, .5173E-01, .2231E-03/
1239 DATA ((CALC(I,K,27),I=1,8), K=19,20) /
1240 + .0000E+00, .0000E+00, -.7464E-02, .8175E-02,
1241 + .8886E-02, .8175E-02, .5545E-01, .2386E-03,
1242 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1243 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1244 DATA ((CALC(I,K,28),I=1,8), K=1,9) /
1245 + .0000E+00, .0000E+00, .3485E-02, .1161E-02,
1246 + .5807E-02, .1161E-02, .1394E-01, .5057E-04,
1247 + .0000E+00, .0000E+00, .2750E-02, .1500E-02,
1248 + .5751E-02, .1500E-02, .1567E-01, .4947E-04,
1249 + .0000E+00, .0000E+00, .2034E-02, .1839E-02,
1250 + .5712E-02, .1839E-02, .1743E-01, .5088E-04,
1251 + .0000E+00, .0000E+00, .1337E-02, .2178E-02,
1252 + .5693E-02, .2178E-02, .1921E-01, .5392E-04,
1253 + .0000E+00, .0000E+00, .6608E-03, .2518E-02,
1254 + .5697E-02, .2518E-02, .2103E-01, .5805E-04,
1255 + .0000E+00, .0000E+00, .4482E-05, .2861E-02,
1256 + .5726E-02, .2861E-02, .2289E-01, .6291E-04,
1257 + .0000E+00, .0000E+00, -.6330E-03, .3207E-02,
1258 + .5780E-02, .3207E-02, .2481E-01, .6827E-04,
1259 + .0000E+00, .0000E+00, -.1253E-02, .3558E-02,
1260 + .5862E-02, .3558E-02, .2679E-01, .7394E-04,
1261 + .0000E+00, .0000E+00, -.1859E-02, .3916E-02,
1262 + .5973E-02, .3916E-02, .2885E-01, .7985E-04/
1263 DATA ((CALC(I,K,28),I=1,8), K=10,18) /
1264 + .0000E+00, .0000E+00, -.2452E-02, .4283E-02,
1265 + .6114E-02, .4283E-02, .3099E-01, .8593E-04,
1266 + .0000E+00, .0000E+00, -.3035E-02, .4660E-02,
1267 + .6285E-02, .4660E-02, .3324E-01, .9218E-04,
1268 + .0000E+00, .0000E+00, -.3613E-02, .5051E-02,
1269 + .6489E-02, .5051E-02, .3559E-01, .9862E-04,
1270 + .0000E+00, .0000E+00, -.4188E-02, .5457E-02,
1271 + .6726E-02, .5457E-02, .3807E-01, .1053E-03,
1272 + .0000E+00, .0000E+00, -.4764E-02, .5881E-02,
1273 + .6999E-02, .5881E-02, .4070E-01, .1122E-03,
1274 + .0000E+00, .0000E+00, -.5345E-02, .6326E-02,
1275 + .7307E-02, .6326E-02, .4348E-01, .1194E-03,
1276 + .0000E+00, .0000E+00, -.5935E-02, .6795E-02,
1277 + .7654E-02, .6795E-02, .4644E-01, .1269E-03,
1278 + .0000E+00, .0000E+00, -.6539E-02, .7289E-02,
1279 + .8040E-02, .7289E-02, .4960E-01, .1349E-03,
1280 + .0000E+00, .0000E+00, -.7160E-02, .7814E-02,
1281 + .8468E-02, .7814E-02, .5296E-01, .1433E-03/
1282 DATA ((CALC(I,K,28),I=1,8), K=19,20) /
1283 + .0000E+00, .0000E+00, -.7803E-02, .8371E-02,
1284 + .8940E-02, .8371E-02, .5657E-01, .1523E-03,
1285 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1286 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1287 DATA ((CALC(I,K,29),I=1,8), K=1,9) /
1288 + .0000E+00, .0000E+00, .3891E-02, .1298E-02,
1289 + .6486E-02, .1298E-02, .1557E-01, .3566E-04,
1290 + .0000E+00, .0000E+00, .2953E-02, .1682E-02,
1291 + .6317E-02, .1682E-02, .1739E-01, .3452E-04,
1292 + .0000E+00, .0000E+00, .2068E-02, .2057E-02,
1293 + .6182E-02, .2057E-02, .1921E-01, .3523E-04,
1294 + .0000E+00, .0000E+00, .1235E-02, .2424E-02,
1295 + .6082E-02, .2424E-02, .2103E-01, .3703E-04,
1296 + .0000E+00, .0000E+00, .4491E-03, .2784E-02,
1297 + .6017E-02, .2784E-02, .2287E-01, .3946E-04,
1298 + .0000E+00, .0000E+00, -.2920E-03, .3140E-02,
1299 + .5987E-02, .3140E-02, .2473E-01, .4228E-04,
1300 + .0000E+00, .0000E+00, -.9929E-03, .3493E-02,
1301 + .5993E-02, .3493E-02, .2662E-01, .4531E-04,
1302 + .0000E+00, .0000E+00, -.1658E-02, .3846E-02,
1303 + .6034E-02, .3846E-02, .2856E-01, .4845E-04,
1304 + .0000E+00, .0000E+00, -.2292E-02, .4202E-02,
1305 + .6111E-02, .4202E-02, .3056E-01, .5164E-04/
1306 DATA ((CALC(I,K,29),I=1,8), K=10,18) /
1307 + .0000E+00, .0000E+00, -.2901E-02, .4562E-02,
1308 + .6222E-02, .4562E-02, .3263E-01, .5487E-04,
1309 + .0000E+00, .0000E+00, -.3488E-02, .4929E-02,
1310 + .6370E-02, .4929E-02, .3478E-01, .5813E-04,
1311 + .0000E+00, .0000E+00, -.4060E-02, .5306E-02,
1312 + .6552E-02, .5306E-02, .3704E-01, .6145E-04,
1313 + .0000E+00, .0000E+00, -.4621E-02, .5696E-02,
1314 + .6771E-02, .5696E-02, .3941E-01, .6485E-04,
1315 + .0000E+00, .0000E+00, -.5176E-02, .6101E-02,
1316 + .7026E-02, .6101E-02, .4191E-01, .6835E-04,
1317 + .0000E+00, .0000E+00, -.5731E-02, .6524E-02,
1318 + .7318E-02, .6524E-02, .4455E-01, .7200E-04,
1319 + .0000E+00, .0000E+00, -.6290E-02, .6969E-02,
1320 + .7648E-02, .6969E-02, .4737E-01, .7583E-04,
1321 + .0000E+00, .0000E+00, -.6858E-02, .7438E-02,
1322 + .8018E-02, .7438E-02, .5036E-01, .7988E-04,
1323 + .0000E+00, .0000E+00, -.7441E-02, .7935E-02,
1324 + .8428E-02, .7935E-02, .5356E-01, .8417E-04/
1325 DATA ((CALC(I,K,29),I=1,8), K=19,20) /
1326 + .0000E+00, .0000E+00, -.8043E-02, .8462E-02,
1327 + .8881E-02, .8462E-02, .5697E-01, .8876E-04,
1328 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1329 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1330 DATA ((CALC(I,K,30),I=1,8), K=1,9) /
1331 + .0000E+00, .0000E+00, .4302E-02, .1433E-02,
1332 + .7170E-02, .1433E-02, .1721E-01, .2230E-04,
1333 + .0000E+00, .0000E+00, .3094E-02, .1879E-02,
1334 + .6853E-02, .1879E-02, .1916E-01, .2138E-04,
1335 + .0000E+00, .0000E+00, .1999E-02, .2299E-02,
1336 + .6598E-02, .2299E-02, .2106E-01, .2171E-04,
1337 + .0000E+00, .0000E+00, .1004E-02, .2697E-02,
1338 + .6400E-02, .2697E-02, .2292E-01, .2268E-04,
1339 + .0000E+00, .0000E+00, .9942E-04, .3078E-02,
1340 + .6256E-02, .3078E-02, .2476E-01, .2394E-04,
1341 + .0000E+00, .0000E+00, -.7262E-03, .3445E-02,
1342 + .6163E-02, .3445E-02, .2659E-01, .2536E-04,
1343 + .0000E+00, .0000E+00, -.1483E-02, .3801E-02,
1344 + .6119E-02, .3801E-02, .2843E-01, .2681E-04,
1345 + .0000E+00, .0000E+00, -.2179E-02, .4149E-02,
1346 + .6120E-02, .4149E-02, .3029E-01, .2826E-04,
1347 + .0000E+00, .0000E+00, -.2825E-02, .4495E-02,
1348 + .6164E-02, .4495E-02, .3219E-01, .2967E-04/
1349 DATA ((CALC(I,K,30),I=1,8), K=10,18) /
1350 + .0000E+00, .0000E+00, -.3429E-02, .4839E-02,
1351 + .6249E-02, .4839E-02, .3414E-01, .3105E-04,
1352 + .0000E+00, .0000E+00, -.4000E-02, .5187E-02,
1353 + .6374E-02, .5187E-02, .3616E-01, .3241E-04,
1354 + .0000E+00, .0000E+00, -.4543E-02, .5540E-02,
1355 + .6537E-02, .5540E-02, .3827E-01, .3377E-04,
1356 + .0000E+00, .0000E+00, -.5068E-02, .5903E-02,
1357 + .6738E-02, .5903E-02, .4047E-01, .3514E-04,
1358 + .0000E+00, .0000E+00, -.5581E-02, .6278E-02,
1359 + .6975E-02, .6278E-02, .4278E-01, .3655E-04,
1360 + .0000E+00, .0000E+00, -.6088E-02, .6669E-02,
1361 + .7249E-02, .6669E-02, .4523E-01, .3802E-04,
1362 + .0000E+00, .0000E+00, -.6596E-02, .7077E-02,
1363 + .7559E-02, .7077E-02, .4783E-01, .3956E-04,
1364 + .0000E+00, .0000E+00, -.7109E-02, .7508E-02,
1365 + .7907E-02, .7508E-02, .5059E-01, .4120E-04,
1366 + .0000E+00, .0000E+00, -.7634E-02, .7964E-02,
1367 + .8294E-02, .7964E-02, .5353E-01, .4295E-04/
1368 DATA ((CALC(I,K,30),I=1,8), K=19,20) /
1369 + .0000E+00, .0000E+00, -.8176E-02, .8448E-02,
1370 + .8719E-02, .8448E-02, .5668E-01, .4483E-04,
1371 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1372 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1373 DATA ((CALC(I,K,31),I=1,8), K=1,9) /
1374 + .0000E+00, .0000E+00, .4756E-02, .1585E-02,
1375 + .7925E-02, .1585E-02, .1902E-01, .1098E-04,
1376 + .0000E+00, .0000E+00, .3138E-02, .2130E-02,
1377 + .7397E-02, .2130E-02, .2122E-01, .1045E-04,
1378 + .0000E+00, .0000E+00, .1739E-02, .2621E-02,
1379 + .6980E-02, .2621E-02, .2329E-01, .1064E-04,
1380 + .0000E+00, .0000E+00, .5274E-03, .3067E-02,
1381 + .6660E-02, .3067E-02, .2524E-01, .1112E-04,
1382 + .0000E+00, .0000E+00, -.5225E-03, .3475E-02,
1383 + .6427E-02, .3475E-02, .2710E-01, .1164E-04,
1384 + .0000E+00, .0000E+00, -.1436E-02, .3852E-02,
1385 + .6269E-02, .3852E-02, .2891E-01, .1217E-04,
1386 + .0000E+00, .0000E+00, -.2234E-02, .4206E-02,
1387 + .6178E-02, .4206E-02, .3067E-01, .1268E-04,
1388 + .0000E+00, .0000E+00, -.2938E-02, .4542E-02,
1389 + .6146E-02, .4542E-02, .3242E-01, .1313E-04,
1390 + .0000E+00, .0000E+00, -.3565E-02, .4866E-02,
1391 + .6167E-02, .4866E-02, .3417E-01, .1354E-04/
1392 DATA ((CALC(I,K,31),I=1,8), K=10,18) /
1393 + .0000E+00, .0000E+00, -.4130E-02, .5182E-02,
1394 + .6234E-02, .5182E-02, .3595E-01, .1391E-04,
1395 + .0000E+00, .0000E+00, -.4648E-02, .5496E-02,
1396 + .6344E-02, .5496E-02, .3777E-01, .1426E-04,
1397 + .0000E+00, .0000E+00, -.5129E-02, .5811E-02,
1398 + .6493E-02, .5811E-02, .3965E-01, .1459E-04,
1399 + .0000E+00, .0000E+00, -.5584E-02, .6132E-02,
1400 + .6679E-02, .6132E-02, .4161E-01, .1492E-04,
1401 + .0000E+00, .0000E+00, -.6023E-02, .6461E-02,
1402 + .6898E-02, .6461E-02, .4366E-01, .1526E-04,
1403 + .0000E+00, .0000E+00, -.6453E-02, .6802E-02,
1404 + .7152E-02, .6802E-02, .4582E-01, .1562E-04,
1405 + .0000E+00, .0000E+00, -.6881E-02, .7159E-02,
1406 + .7437E-02, .7159E-02, .4810E-01, .1600E-04,
1407 + .0000E+00, .0000E+00, -.7314E-02, .7535E-02,
1408 + .7756E-02, .7535E-02, .5053E-01, .1641E-04,
1409 + .0000E+00, .0000E+00, -.7758E-02, .7933E-02,
1410 + .8108E-02, .7933E-02, .5312E-01, .1686E-04/
1411 DATA ((CALC(I,K,31),I=1,8), K=19,20) /
1412 + .0000E+00, .0000E+00, -.8217E-02, .8355E-02,
1413 + .8493E-02, .8355E-02, .5588E-01, .1736E-04,
1414 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1415 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1416 DATA ((CALC(I,K,32),I=1,8), K=1,9) /
1417 + .0000E+00, .0000E+00, .5261E-02, .1754E-02,
1418 + .8769E-02, .1754E-02, .2104E-01, .2781E-05,
1419 + .0000E+00, .0000E+00, .2862E-02, .2523E-02,
1420 + .7907E-02, .2523E-02, .2400E-01, .2638E-05,
1421 + .0000E+00, .0000E+00, .9884E-03, .3148E-02,
1422 + .7284E-02, .3148E-02, .2650E-01, .2723E-05,
1423 + .0000E+00, .0000E+00, -.4935E-03, .3666E-02,
1424 + .6839E-02, .3666E-02, .2867E-01, .2872E-05,
1425 + .0000E+00, .0000E+00, -.1678E-02, .4106E-02,
1426 + .6534E-02, .4106E-02, .3061E-01, .2974E-05,
1427 + .0000E+00, .0000E+00, -.2630E-02, .4485E-02,
1428 + .6340E-02, .4485E-02, .3237E-01, .3051E-05,
1429 + .0000E+00, .0000E+00, -.3405E-02, .4819E-02,
1430 + .6234E-02, .4819E-02, .3402E-01, .3123E-05,
1431 + .0000E+00, .0000E+00, -.4046E-02, .5122E-02,
1432 + .6198E-02, .5122E-02, .3558E-01, .3170E-05,
1433 + .0000E+00, .0000E+00, -.4586E-02, .5403E-02,
1434 + .6220E-02, .5403E-02, .3711E-01, .3193E-05/
1435 DATA ((CALC(I,K,32),I=1,8), K=10,18) /
1436 + .0000E+00, .0000E+00, -.5052E-02, .5671E-02,
1437 + .6290E-02, .5671E-02, .3863E-01, .3206E-05,
1438 + .0000E+00, .0000E+00, -.5463E-02, .5931E-02,
1439 + .6399E-02, .5931E-02, .4016E-01, .3214E-05,
1440 + .0000E+00, .0000E+00, -.5836E-02, .6189E-02,
1441 + .6542E-02, .6189E-02, .4173E-01, .3217E-05,
1442 + .0000E+00, .0000E+00, -.6184E-02, .6450E-02,
1443 + .6715E-02, .6450E-02, .4335E-01, .3218E-05,
1444 + .0000E+00, .0000E+00, -.6517E-02, .6717E-02,
1445 + .6916E-02, .6717E-02, .4504E-01, .3221E-05,
1446 + .0000E+00, .0000E+00, -.6844E-02, .6993E-02,
1447 + .7142E-02, .6993E-02, .4682E-01, .3228E-05,
1448 + .0000E+00, .0000E+00, -.7171E-02, .7282E-02,
1449 + .7394E-02, .7282E-02, .4870E-01, .3238E-05,
1450 + .0000E+00, .0000E+00, -.7504E-02, .7587E-02,
1451 + .7670E-02, .7587E-02, .5069E-01, .3255E-05,
1452 + .0000E+00, .0000E+00, -.7848E-02, .7909E-02,
1453 + .7971E-02, .7909E-02, .5281E-01, .3279E-05/
1454 DATA ((CALC(I,K,32),I=1,8), K=19,20) /
1455 + .0000E+00, .0000E+00, -.8207E-02, .8253E-02,
1456 + .8298E-02, .8253E-02, .5508E-01, .3309E-05,
1457 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1458 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1459 DATA (PAR2(I),I=1,30) /
1460 + .2000E+00, .4800E+00, .8500E+00, .1000E+01,
1461 + .1000E+01, .1000E+01, .1200E+01, .7500E+01,
1462 + .1987E+01, .1900E+01, .0000E+00, .0000E+00,
1463 + .0000E+00, .0000E+00, .0000E+00, .1000E+01,
1464 + .0000E+00, .1000E+01, .0000E+00, .0000E+00,
1465 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1466 + .4000E+01, .0000E+00, .1000E+01, .1000E+01,
1467 + .8000E-01, .2000E+01/
1468 DATA ((CELC(I,K,1 ),I=1,8), K=1,9) /
1469 + .0000E+00, .0000E+00, .1515E-02, -.4584E-03,
1470 + .5980E-03, -.4584E-03, .6059E-02, .6289E-02,
1471 + .0000E+00, .0000E+00, .1514E-02, -.4567E-03,
1472 + .6009E-03, -.4567E-03, .6839E-02, .9576E-02,
1473 + .0000E+00, .0000E+00, .1514E-02, -.4550E-03,
1474 + .6038E-03, -.4550E-03, .7744E-02, .1330E-01,
1475 + .0000E+00, .0000E+00, .1513E-02, -.4533E-03,
1476 + .6068E-03, -.4533E-03, .8782E-02, .1746E-01,
1477 + .0000E+00, .0000E+00, .1513E-02, -.4515E-03,
1478 + .6098E-03, -.4515E-03, .9957E-02, .2207E-01,
1479 + .0000E+00, .0000E+00, .1512E-02, -.4497E-03,
1480 + .6128E-03, -.4497E-03, .1128E-01, .2712E-01,
1481 + .0000E+00, .0000E+00, .1511E-02, -.4478E-03,
1482 + .6158E-03, -.4478E-03, .1275E-01, .3260E-01,
1483 + .0000E+00, .0000E+00, .1511E-02, -.4458E-03,
1484 + .6189E-03, -.4458E-03, .1437E-01, .3852E-01,
1485 + .0000E+00, .0000E+00, .1510E-02, -.4439E-03,
1486 + .6220E-03, -.4439E-03, .1616E-01, .4485E-01/
1487 DATA ((CELC(I,K,1 ),I=1,8), K=10,18) /
1488 + .0000E+00, .0000E+00, .1509E-02, -.4418E-03,
1489 + .6252E-03, -.4418E-03, .1811E-01, .5157E-01,
1490 + .0000E+00, .0000E+00, .1508E-02, -.4397E-03,
1491 + .6283E-03, -.4397E-03, .2023E-01, .5866E-01,
1492 + .0000E+00, .0000E+00, .1507E-02, -.4376E-03,
1493 + .6315E-03, -.4376E-03, .2251E-01, .6609E-01,
1494 + .0000E+00, .0000E+00, .1505E-02, -.4353E-03,
1495 + .6348E-03, -.4353E-03, .2497E-01, .7384E-01,
1496 + .0000E+00, .0000E+00, .1504E-02, -.4331E-03,
1497 + .6380E-03, -.4331E-03, .2761E-01, .8187E-01,
1498 + .0000E+00, .0000E+00, .1503E-02, -.4307E-03,
1499 + .6413E-03, -.4307E-03, .3041E-01, .9013E-01,
1500 + .0000E+00, .0000E+00, .1501E-02, -.4283E-03,
1501 + .6446E-03, -.4283E-03, .3338E-01, .9860E-01,
1502 + .0000E+00, .0000E+00, .1500E-02, -.4259E-03,
1503 + .6479E-03, -.4259E-03, .3652E-01, .1072E+00,
1504 + .0000E+00, .0000E+00, .1498E-02, -.4234E-03,
1505 + .6512E-03, -.4234E-03, .3982E-01, .1160E+00/
1506 DATA ((CELC(I,K,1 ),I=1,8), K=19,20) /
1507 + .0000E+00, .0000E+00, .1496E-02, -.4208E-03,
1508 + .6546E-03, -.4208E-03, .4328E-01, .1248E+00,
1509 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1510 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1511 DATA ((CELC(I,K,2 ),I=1,8), K=1,9) /
1512 + .0000E+00, .0000E+00, .1537E-02, -.4096E-03,
1513 + .7179E-03, -.4096E-03, .6148E-02, .6219E-02,
1514 + .0000E+00, .0000E+00, .1534E-02, -.4053E-03,
1515 + .7231E-03, -.4053E-03, .6640E-02, .8229E-02,
1516 + .0000E+00, .0000E+00, .1530E-02, -.4009E-03,
1517 + .7283E-03, -.4009E-03, .7175E-02, .1032E-01,
1518 + .0000E+00, .0000E+00, .1526E-02, -.3964E-03,
1519 + .7335E-03, -.3964E-03, .7748E-02, .1247E-01,
1520 + .0000E+00, .0000E+00, .1522E-02, -.3918E-03,
1521 + .7387E-03, -.3918E-03, .8358E-02, .1466E-01,
1522 + .0000E+00, .0000E+00, .1518E-02, -.3872E-03,
1523 + .7438E-03, -.3872E-03, .9000E-02, .1686E-01,
1524 + .0000E+00, .0000E+00, .1514E-02, -.3825E-03,
1525 + .7488E-03, -.3825E-03, .9670E-02, .1906E-01,
1526 + .0000E+00, .0000E+00, .1509E-02, -.3777E-03,
1527 + .7539E-03, -.3777E-03, .1036E-01, .2123E-01,
1528 + .0000E+00, .0000E+00, .1504E-02, -.3728E-03,
1529 + .7589E-03, -.3728E-03, .1108E-01, .2335E-01/
1530 DATA ((CELC(I,K,2 ),I=1,8), K=10,18) /
1531 + .0000E+00, .0000E+00, .1500E-02, -.3679E-03,
1532 + .7638E-03, -.3679E-03, .1180E-01, .2540E-01,
1533 + .0000E+00, .0000E+00, .1494E-02, -.3628E-03,
1534 + .7687E-03, -.3628E-03, .1253E-01, .2734E-01,
1535 + .0000E+00, .0000E+00, .1489E-02, -.3577E-03,
1536 + .7736E-03, -.3577E-03, .1326E-01, .2917E-01,
1537 + .0000E+00, .0000E+00, .1483E-02, -.3525E-03,
1538 + .7784E-03, -.3525E-03, .1399E-01, .3086E-01,
1539 + .0000E+00, .0000E+00, .1478E-02, -.3473E-03,
1540 + .7831E-03, -.3473E-03, .1470E-01, .3239E-01,
1541 + .0000E+00, .0000E+00, .1472E-02, -.3420E-03,
1542 + .7877E-03, -.3420E-03, .1540E-01, .3374E-01,
1543 + .0000E+00, .0000E+00, .1465E-02, -.3366E-03,
1544 + .7923E-03, -.3366E-03, .1606E-01, .3490E-01,
1545 + .0000E+00, .0000E+00, .1459E-02, -.3311E-03,
1546 + .7968E-03, -.3311E-03, .1669E-01, .3584E-01,
1547 + .0000E+00, .0000E+00, .1452E-02, -.3256E-03,
1548 + .8013E-03, -.3256E-03, .1728E-01, .3656E-01/
1549 DATA ((CELC(I,K,2 ),I=1,8), K=19,20) /
1550 + .0000E+00, .0000E+00, .1445E-02, -.3199E-03,
1551 + .8056E-03, -.3199E-03, .1781E-01, .3705E-01,
1552 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1553 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1554 DATA ((CELC(I,K,3 ),I=1,8), K=1,9) /
1555 + .0000E+00, .0000E+00, .1512E-02, -.3476E-03,
1556 + .8173E-03, -.3476E-03, .6050E-02, .6096E-02,
1557 + .0000E+00, .0000E+00, .1504E-02, -.3410E-03,
1558 + .8225E-03, -.3410E-03, .6398E-02, .7474E-02,
1559 + .0000E+00, .0000E+00, .1496E-02, -.3343E-03,
1560 + .8276E-03, -.3343E-03, .6766E-02, .8854E-02,
1561 + .0000E+00, .0000E+00, .1488E-02, -.3275E-03,
1562 + .8326E-03, -.3275E-03, .7151E-02, .1022E-01,
1563 + .0000E+00, .0000E+00, .1479E-02, -.3208E-03,
1564 + .8374E-03, -.3208E-03, .7552E-02, .1157E-01,
1565 + .0000E+00, .0000E+00, .1470E-02, -.3140E-03,
1566 + .8421E-03, -.3140E-03, .7966E-02, .1289E-01,
1567 + .0000E+00, .0000E+00, .1461E-02, -.3071E-03,
1568 + .8467E-03, -.3071E-03, .8391E-02, .1417E-01,
1569 + .0000E+00, .0000E+00, .1452E-02, -.3003E-03,
1570 + .8511E-03, -.3003E-03, .8826E-02, .1541E-01,
1571 + .0000E+00, .0000E+00, .1442E-02, -.2934E-03,
1572 + .8553E-03, -.2934E-03, .9268E-02, .1660E-01/
1573 DATA ((CELC(I,K,3 ),I=1,8), K=10,18) /
1574 + .0000E+00, .0000E+00, .1432E-02, -.2865E-03,
1575 + .8594E-03, -.2865E-03, .9715E-02, .1772E-01,
1576 + .0000E+00, .0000E+00, .1422E-02, -.2795E-03,
1577 + .8633E-03, -.2795E-03, .1016E-01, .1879E-01,
1578 + .0000E+00, .0000E+00, .1412E-02, -.2725E-03,
1579 + .8671E-03, -.2725E-03, .1062E-01, .1978E-01,
1580 + .0000E+00, .0000E+00, .1402E-02, -.2656E-03,
1581 + .8707E-03, -.2656E-03, .1106E-01, .2071E-01,
1582 + .0000E+00, .0000E+00, .1391E-02, -.2586E-03,
1583 + .8741E-03, -.2586E-03, .1151E-01, .2156E-01,
1584 + .0000E+00, .0000E+00, .1380E-02, -.2516E-03,
1585 + .8773E-03, -.2516E-03, .1195E-01, .2235E-01,
1586 + .0000E+00, .0000E+00, .1369E-02, -.2445E-03,
1587 + .8803E-03, -.2445E-03, .1239E-01, .2305E-01,
1588 + .0000E+00, .0000E+00, .1358E-02, -.2375E-03,
1589 + .8832E-03, -.2375E-03, .1282E-01, .2368E-01,
1590 + .0000E+00, .0000E+00, .1347E-02, -.2305E-03,
1591 + .8858E-03, -.2305E-03, .1324E-01, .2424E-01/
1592 DATA ((CELC(I,K,3 ),I=1,8), K=19,20) /
1593 + .0000E+00, .0000E+00, .1335E-02, -.2235E-03,
1594 + .8882E-03, -.2235E-03, .1365E-01, .2474E-01,
1595 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1596 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1597 DATA ((CELC(I,K,4 ),I=1,8), K=1,9) /
1598 + .0000E+00, .0000E+00, .1450E-02, -.2759E-03,
1599 + .8984E-03, -.2759E-03, .5801E-02, .5921E-02,
1600 + .0000E+00, .0000E+00, .1438E-02, -.2676E-03,
1601 + .9028E-03, -.2676E-03, .6052E-02, .6886E-02,
1602 + .0000E+00, .0000E+00, .1425E-02, -.2592E-03,
1603 + .9070E-03, -.2592E-03, .6310E-02, .7817E-02,
1604 + .0000E+00, .0000E+00, .1413E-02, -.2509E-03,
1605 + .9110E-03, -.2509E-03, .6574E-02, .8708E-02,
1606 + .0000E+00, .0000E+00, .1400E-02, -.2426E-03,
1607 + .9148E-03, -.2426E-03, .6841E-02, .9554E-02,
1608 + .0000E+00, .0000E+00, .1387E-02, -.2344E-03,
1609 + .9183E-03, -.2344E-03, .7111E-02, .1035E-01,
1610 + .0000E+00, .0000E+00, .1374E-02, -.2262E-03,
1611 + .9216E-03, -.2262E-03, .7381E-02, .1109E-01,
1612 + .0000E+00, .0000E+00, .1361E-02, -.2181E-03,
1613 + .9246E-03, -.2181E-03, .7649E-02, .1178E-01,
1614 + .0000E+00, .0000E+00, .1347E-02, -.2100E-03,
1615 + .9275E-03, -.2100E-03, .7915E-02, .1241E-01/
1616 DATA ((CELC(I,K,4 ),I=1,8), K=10,18) /
1617 + .0000E+00, .0000E+00, .1334E-02, -.2020E-03,
1618 + .9300E-03, -.2020E-03, .8177E-02, .1297E-01,
1619 + .0000E+00, .0000E+00, .1320E-02, -.1940E-03,
1620 + .9323E-03, -.1940E-03, .8433E-02, .1348E-01,
1621 + .0000E+00, .0000E+00, .1307E-02, -.1861E-03,
1622 + .9343E-03, -.1861E-03, .8682E-02, .1392E-01,
1623 + .0000E+00, .0000E+00, .1293E-02, -.1782E-03,
1624 + .9361E-03, -.1782E-03, .8923E-02, .1430E-01,
1625 + .0000E+00, .0000E+00, .1279E-02, -.1705E-03,
1626 + .9376E-03, -.1705E-03, .9154E-02, .1462E-01,
1627 + .0000E+00, .0000E+00, .1264E-02, -.1628E-03,
1628 + .9389E-03, -.1628E-03, .9374E-02, .1487E-01,
1629 + .0000E+00, .0000E+00, .1250E-02, -.1552E-03,
1630 + .9398E-03, -.1552E-03, .9582E-02, .1507E-01,
1631 + .0000E+00, .0000E+00, .1236E-02, -.1476E-03,
1632 + .9405E-03, -.1476E-03, .9778E-02, .1521E-01,
1633 + .0000E+00, .0000E+00, .1221E-02, -.1402E-03,
1634 + .9408E-03, -.1402E-03, .9960E-02, .1529E-01/
1635 DATA ((CELC(I,K,4 ),I=1,8), K=19,20) /
1636 + .0000E+00, .0000E+00, .1207E-02, -.1328E-03,
1637 + .9409E-03, -.1328E-03, .1013E-01, .1532E-01,
1638 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1639 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1640 DATA ((CELC(I,K,5 ),I=1,8), K=1,9) /
1641 + .0000E+00, .0000E+00, .1362E-02, -.1989E-03,
1642 + .9640E-03, -.1989E-03, .5447E-02, .5699E-02,
1643 + .0000E+00, .0000E+00, .1346E-02, -.1896E-03,
1644 + .9671E-03, -.1896E-03, .5628E-02, .6368E-02,
1645 + .0000E+00, .0000E+00, .1331E-02, -.1805E-03,
1646 + .9698E-03, -.1805E-03, .5809E-02, .6992E-02,
1647 + .0000E+00, .0000E+00, .1315E-02, -.1715E-03,
1648 + .9723E-03, -.1715E-03, .5989E-02, .7567E-02,
1649 + .0000E+00, .0000E+00, .1300E-02, -.1626E-03,
1650 + .9745E-03, -.1626E-03, .6167E-02, .8090E-02,
1651 + .0000E+00, .0000E+00, .1284E-02, -.1538E-03,
1652 + .9763E-03, -.1538E-03, .6342E-02, .8563E-02,
1653 + .0000E+00, .0000E+00, .1268E-02, -.1451E-03,
1654 + .9778E-03, -.1451E-03, .6512E-02, .8982E-02,
1655 + .0000E+00, .0000E+00, .1252E-02, -.1367E-03,
1656 + .9790E-03, -.1367E-03, .6677E-02, .9349E-02,
1657 + .0000E+00, .0000E+00, .1236E-02, -.1283E-03,
1658 + .9798E-03, -.1283E-03, .6835E-02, .9664E-02/
1659 DATA ((CELC(I,K,5 ),I=1,8), K=10,18) /
1660 + .0000E+00, .0000E+00, .1221E-02, -.1201E-03,
1661 + .9804E-03, -.1201E-03, .6986E-02, .9927E-02,
1662 + .0000E+00, .0000E+00, .1205E-02, -.1120E-03,
1663 + .9805E-03, -.1120E-03, .7129E-02, .1014E-01,
1664 + .0000E+00, .0000E+00, .1189E-02, -.1041E-03,
1665 + .9804E-03, -.1041E-03, .7263E-02, .1030E-01,
1666 + .0000E+00, .0000E+00, .1173E-02, -.9636E-04,
1667 + .9799E-03, -.9636E-04, .7387E-02, .1042E-01,
1668 + .0000E+00, .0000E+00, .1157E-02, -.8876E-04,
1669 + .9790E-03, -.8876E-04, .7501E-02, .1049E-01,
1670 + .0000E+00, .0000E+00, .1140E-02, -.8132E-04,
1671 + .9778E-03, -.8132E-04, .7605E-02, .1052E-01,
1672 + .0000E+00, .0000E+00, .1124E-02, -.7404E-04,
1673 + .9762E-03, -.7404E-04, .7698E-02, .1051E-01,
1674 + .0000E+00, .0000E+00, .1108E-02, -.6693E-04,
1675 + .9743E-03, -.6693E-04, .7780E-02, .1047E-01,
1676 + .0000E+00, .0000E+00, .1092E-02, -.6000E-04,
1677 + .9720E-03, -.6000E-04, .7850E-02, .1039E-01/
1678 DATA ((CELC(I,K,5 ),I=1,8), K=19,20) /
1679 + .0000E+00, .0000E+00, .1076E-02, -.5324E-04,
1680 + .9694E-03, -.5324E-04, .7908E-02, .1028E-01,
1681 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1682 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1683 DATA ((CELC(I,K,6 ),I=1,8), K=1,9) /
1684 + .0000E+00, .0000E+00, .1259E-02, -.1212E-03,
1685 + .1017E-02, -.1212E-03, .5038E-02, .5434E-02,
1686 + .0000E+00, .0000E+00, .1242E-02, -.1118E-03,
1687 + .1018E-02, -.1118E-03, .5166E-02, .5883E-02,
1688 + .0000E+00, .0000E+00, .1225E-02, -.1027E-03,
1689 + .1019E-02, -.1027E-03, .5291E-02, .6285E-02,
1690 + .0000E+00, .0000E+00, .1208E-02, -.9380E-04,
1691 + .1020E-02, -.9380E-04, .5412E-02, .6638E-02,
1692 + .0000E+00, .0000E+00, .1190E-02, -.8512E-04,
1693 + .1020E-02, -.8512E-04, .5528E-02, .6944E-02,
1694 + .0000E+00, .0000E+00, .1173E-02, -.7666E-04,
1695 + .1020E-02, -.7666E-04, .5638E-02, .7202E-02,
1696 + .0000E+00, .0000E+00, .1156E-02, -.6842E-04,
1697 + .1019E-02, -.6842E-04, .5742E-02, .7414E-02,
1698 + .0000E+00, .0000E+00, .1139E-02, -.6041E-04,
1699 + .1018E-02, -.6041E-04, .5838E-02, .7582E-02,
1700 + .0000E+00, .0000E+00, .1122E-02, -.5262E-04,
1701 + .1017E-02, -.5262E-04, .5927E-02, .7708E-02/
1702 DATA ((CELC(I,K,6 ),I=1,8), K=10,18) /
1703 + .0000E+00, .0000E+00, .1105E-02, -.4505E-04,
1704 + .1015E-02, -.4505E-04, .6008E-02, .7793E-02,
1705 + .0000E+00, .0000E+00, .1088E-02, -.3771E-04,
1706 + .1013E-02, -.3771E-04, .6080E-02, .7839E-02,
1707 + .0000E+00, .0000E+00, .1071E-02, -.3059E-04,
1708 + .1010E-02, -.3059E-04, .6144E-02, .7851E-02,
1709 + .0000E+00, .0000E+00, .1054E-02, -.2369E-04,
1710 + .1007E-02, -.2369E-04, .6198E-02, .7829E-02,
1711 + .0000E+00, .0000E+00, .1037E-02, -.1703E-04,
1712 + .1003E-02, -.1703E-04, .6244E-02, .7776E-02,
1713 + .0000E+00, .0000E+00, .1021E-02, -.1059E-04,
1714 + .9995E-03, -.1059E-04, .6280E-02, .7696E-02,
1715 + .0000E+00, .0000E+00, .1004E-02, -.4384E-05,
1716 + .9952E-03, -.4384E-05, .6307E-02, .7591E-02,
1717 + .0000E+00, .0000E+00, .9872E-03, .1594E-05,
1718 + .9904E-03, .1594E-05, .6325E-02, .7464E-02,
1719 + .0000E+00, .0000E+00, .9706E-03, .7342E-05,
1720 + .9853E-03, .7342E-05, .6333E-02, .7316E-02/
1721 DATA ((CELC(I,K,6 ),I=1,8), K=19,20) /
1722 + .0000E+00, .0000E+00, .9540E-03, .1286E-04,
1723 + .9797E-03, .1286E-04, .6333E-02, .7152E-02,
1724 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1725 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1726 DATA ((CELC(I,K,7 ),I=1,8), K=1,9) /
1727 + .0000E+00, .0000E+00, .1154E-02, -.4682E-04,
1728 + .1061E-02, -.4682E-04, .4617E-02, .5131E-02,
1729 + .0000E+00, .0000E+00, .1136E-02, -.3821E-04,
1730 + .1060E-02, -.3821E-04, .4707E-02, .5414E-02,
1731 + .0000E+00, .0000E+00, .1118E-02, -.2990E-04,
1732 + .1059E-02, -.2990E-04, .4791E-02, .5651E-02,
1733 + .0000E+00, .0000E+00, .1101E-02, -.2189E-04,
1734 + .1057E-02, -.2189E-04, .4870E-02, .5845E-02,
1735 + .0000E+00, .0000E+00, .1083E-02, -.1416E-04,
1736 + .1055E-02, -.1416E-04, .4942E-02, .5997E-02,
1737 + .0000E+00, .0000E+00, .1066E-02, -.6730E-05,
1738 + .1052E-02, -.6730E-05, .5008E-02, .6110E-02,
1739 + .0000E+00, .0000E+00, .1048E-02, .4163E-06,
1740 + .1049E-02, .4163E-06, .5066E-02, .6185E-02,
1741 + .0000E+00, .0000E+00, .1031E-02, .7279E-05,
1742 + .1046E-02, .7279E-05, .5117E-02, .6225E-02,
1743 + .0000E+00, .0000E+00, .1014E-02, .1386E-04,
1744 + .1041E-02, .1386E-04, .5160E-02, .6233E-02/
1745 DATA ((CELC(I,K,7 ),I=1,8), K=10,18) /
1746 + .0000E+00, .0000E+00, .9967E-03, .2016E-04,
1747 + .1037E-02, .2016E-04, .5196E-02, .6211E-02,
1748 + .0000E+00, .0000E+00, .9796E-03, .2619E-04,
1749 + .1032E-02, .2619E-04, .5223E-02, .6162E-02,
1750 + .0000E+00, .0000E+00, .9627E-03, .3193E-04,
1751 + .1027E-02, .3193E-04, .5243E-02, .6088E-02,
1752 + .0000E+00, .0000E+00, .9459E-03, .3741E-04,
1753 + .1021E-02, .3741E-04, .5255E-02, .5992E-02,
1754 + .0000E+00, .0000E+00, .9291E-03, .4261E-04,
1755 + .1014E-02, .4261E-04, .5259E-02, .5877E-02,
1756 + .0000E+00, .0000E+00, .9124E-03, .4755E-04,
1757 + .1008E-02, .4755E-04, .5255E-02, .5746E-02,
1758 + .0000E+00, .0000E+00, .8958E-03, .5222E-04,
1759 + .1000E-02, .5222E-04, .5244E-02, .5600E-02,
1760 + .0000E+00, .0000E+00, .8793E-03, .5663E-04,
1761 + .9926E-03, .5663E-04, .5226E-02, .5442E-02,
1762 + .0000E+00, .0000E+00, .8629E-03, .6078E-04,
1763 + .9844E-03, .6078E-04, .5201E-02, .5274E-02/
1764 DATA ((CELC(I,K,7 ),I=1,8), K=19,20) /
1765 + .0000E+00, .0000E+00, .8465E-03, .6467E-04,
1766 + .9759E-03, .6467E-04, .5169E-02, .5098E-02,
1767 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1768 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1769 DATA ((CELC(I,K,8 ),I=1,8), K=1,9) /
1770 + .0000E+00, .0000E+00, .1055E-02, .2064E-04,
1771 + .1096E-02, .2064E-04, .4221E-02, .4798E-02,
1772 + .0000E+00, .0000E+00, .1038E-02, .2789E-04,
1773 + .1093E-02, .2789E-04, .4282E-02, .4952E-02,
1774 + .0000E+00, .0000E+00, .1020E-02, .3480E-04,
1775 + .1090E-02, .3480E-04, .4337E-02, .5066E-02,
1776 + .0000E+00, .0000E+00, .1003E-02, .4136E-04,
1777 + .1085E-02, .4136E-04, .4385E-02, .5144E-02,
1778 + .0000E+00, .0000E+00, .9854E-03, .4758E-04,
1779 + .1081E-02, .4758E-04, .4426E-02, .5188E-02,
1780 + .0000E+00, .0000E+00, .9683E-03, .5348E-04,
1781 + .1075E-02, .5348E-04, .4460E-02, .5201E-02,
1782 + .0000E+00, .0000E+00, .9513E-03, .5904E-04,
1783 + .1069E-02, .5904E-04, .4487E-02, .5185E-02,
1784 + .0000E+00, .0000E+00, .9344E-03, .6430E-04,
1785 + .1063E-02, .6430E-04, .4507E-02, .5143E-02,
1786 + .0000E+00, .0000E+00, .9176E-03, .6923E-04,
1787 + .1056E-02, .6923E-04, .4520E-02, .5077E-02/
1788 DATA ((CELC(I,K,8 ),I=1,8), K=10,18) /
1789 + .0000E+00, .0000E+00, .9009E-03, .7386E-04,
1790 + .1049E-02, .7386E-04, .4526E-02, .4991E-02,
1791 + .0000E+00, .0000E+00, .8844E-03, .7819E-04,
1792 + .1041E-02, .7819E-04, .4525E-02, .4888E-02,
1793 + .0000E+00, .0000E+00, .8679E-03, .8222E-04,
1794 + .1032E-02, .8222E-04, .4517E-02, .4768E-02,
1795 + .0000E+00, .0000E+00, .8515E-03, .8597E-04,
1796 + .1023E-02, .8597E-04, .4502E-02, .4636E-02,
1797 + .0000E+00, .0000E+00, .8352E-03, .8942E-04,
1798 + .1014E-02, .8942E-04, .4481E-02, .4493E-02,
1799 + .0000E+00, .0000E+00, .8190E-03, .9260E-04,
1800 + .1004E-02, .9260E-04, .4454E-02, .4342E-02,
1801 + .0000E+00, .0000E+00, .8028E-03, .9550E-04,
1802 + .9938E-03, .9550E-04, .4421E-02, .4184E-02,
1803 + .0000E+00, .0000E+00, .7868E-03, .9814E-04,
1804 + .9831E-03, .9814E-04, .4382E-02, .4021E-02,
1805 + .0000E+00, .0000E+00, .7708E-03, .1005E-03,
1806 + .9719E-03, .1005E-03, .4339E-02, .3855E-02/
1807 DATA ((CELC(I,K,8 ),I=1,8), K=19,20) /
1808 + .0000E+00, .0000E+00, .7550E-03, .1026E-03,
1809 + .9603E-03, .1026E-03, .4290E-02, .3687E-02,
1810 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1811 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1812 DATA ((CELC(I,K,9 ),I=1,8), K=1,9) /
1813 + .0000E+00, .0000E+00, .9683E-03, .7884E-04,
1814 + .1126E-02, .7884E-04, .3873E-02, .4441E-02,
1815 + .0000E+00, .0000E+00, .9514E-03, .8432E-04,
1816 + .1120E-02, .8432E-04, .3912E-02, .4496E-02,
1817 + .0000E+00, .0000E+00, .9346E-03, .8942E-04,
1818 + .1113E-02, .8942E-04, .3945E-02, .4519E-02,
1819 + .0000E+00, .0000E+00, .9179E-03, .9417E-04,
1820 + .1106E-02, .9417E-04, .3970E-02, .4513E-02,
1821 + .0000E+00, .0000E+00, .9013E-03, .9856E-04,
1822 + .1098E-02, .9856E-04, .3988E-02, .4480E-02,
1823 + .0000E+00, .0000E+00, .8849E-03, .1026E-03,
1824 + .1090E-02, .1026E-03, .4000E-02, .4425E-02,
1825 + .0000E+00, .0000E+00, .8685E-03, .1063E-03,
1826 + .1081E-02, .1063E-03, .4005E-02, .4348E-02,
1827 + .0000E+00, .0000E+00, .8522E-03, .1097E-03,
1828 + .1072E-02, .1097E-03, .4003E-02, .4254E-02,
1829 + .0000E+00, .0000E+00, .8360E-03, .1128E-03,
1830 + .1062E-02, .1128E-03, .3995E-02, .4145E-02/
1831 DATA ((CELC(I,K,9 ),I=1,8), K=10,18) /
1832 + .0000E+00, .0000E+00, .8199E-03, .1156E-03,
1833 + .1051E-02, .1156E-03, .3981E-02, .4024E-02,
1834 + .0000E+00, .0000E+00, .8039E-03, .1180E-03,
1835 + .1040E-02, .1180E-03, .3960E-02, .3891E-02,
1836 + .0000E+00, .0000E+00, .7879E-03, .1202E-03,
1837 + .1028E-02, .1202E-03, .3934E-02, .3751E-02,
1838 + .0000E+00, .0000E+00, .7720E-03, .1221E-03,
1839 + .1016E-02, .1221E-03, .3903E-02, .3604E-02,
1840 + .0000E+00, .0000E+00, .7562E-03, .1237E-03,
1841 + .1004E-02, .1237E-03, .3866E-02, .3453E-02,
1842 + .0000E+00, .0000E+00, .7405E-03, .1251E-03,
1843 + .9906E-03, .1251E-03, .3825E-02, .3300E-02,
1844 + .0000E+00, .0000E+00, .7248E-03, .1262E-03,
1845 + .9772E-03, .1262E-03, .3779E-02, .3145E-02,
1846 + .0000E+00, .0000E+00, .7092E-03, .1271E-03,
1847 + .9633E-03, .1271E-03, .3728E-02, .2991E-02,
1848 + .0000E+00, .0000E+00, .6936E-03, .1277E-03,
1849 + .9490E-03, .1277E-03, .3674E-02, .2838E-02/
1850 DATA ((CELC(I,K,9 ),I=1,8), K=19,20) /
1851 + .0000E+00, .0000E+00, .6782E-03, .1281E-03,
1852 + .9344E-03, .1281E-03, .3617E-02, .2687E-02,
1853 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1854 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1855 DATA ((CELC(I,K,10),I=1,8), K=1,9) /
1856 + .0000E+00, .0000E+00, .8965E-03, .1265E-03,
1857 + .1150E-02, .1265E-03, .3586E-02, .4066E-02,
1858 + .0000E+00, .0000E+00, .8803E-03, .1300E-03,
1859 + .1140E-02, .1300E-03, .3607E-02, .4047E-02,
1860 + .0000E+00, .0000E+00, .8642E-03, .1331E-03,
1861 + .1130E-02, .1331E-03, .3621E-02, .4002E-02,
1862 + .0000E+00, .0000E+00, .8482E-03, .1359E-03,
1863 + .1120E-02, .1359E-03, .3628E-02, .3936E-02,
1864 + .0000E+00, .0000E+00, .8322E-03, .1383E-03,
1865 + .1109E-02, .1383E-03, .3629E-02, .3851E-02,
1866 + .0000E+00, .0000E+00, .8163E-03, .1404E-03,
1867 + .1097E-02, .1404E-03, .3623E-02, .3751E-02,
1868 + .0000E+00, .0000E+00, .8004E-03, .1422E-03,
1869 + .1085E-02, .1422E-03, .3611E-02, .3637E-02,
1870 + .0000E+00, .0000E+00, .7846E-03, .1436E-03,
1871 + .1072E-02, .1436E-03, .3593E-02, .3512E-02,
1872 + .0000E+00, .0000E+00, .7688E-03, .1448E-03,
1873 + .1058E-02, .1448E-03, .3570E-02, .3379E-02/
1874 DATA ((CELC(I,K,10),I=1,8), K=10,18) /
1875 + .0000E+00, .0000E+00, .7530E-03, .1457E-03,
1876 + .1044E-02, .1457E-03, .3541E-02, .3240E-02,
1877 + .0000E+00, .0000E+00, .7374E-03, .1463E-03,
1878 + .1030E-02, .1463E-03, .3507E-02, .3097E-02,
1879 + .0000E+00, .0000E+00, .7217E-03, .1467E-03,
1880 + .1015E-02, .1467E-03, .3469E-02, .2950E-02,
1881 + .0000E+00, .0000E+00, .7061E-03, .1468E-03,
1882 + .9997E-03, .1468E-03, .3426E-02, .2803E-02,
1883 + .0000E+00, .0000E+00, .6905E-03, .1467E-03,
1884 + .9839E-03, .1467E-03, .3379E-02, .2656E-02,
1885 + .0000E+00, .0000E+00, .6750E-03, .1463E-03,
1886 + .9676E-03, .1463E-03, .3328E-02, .2511E-02,
1887 + .0000E+00, .0000E+00, .6596E-03, .1457E-03,
1888 + .9510E-03, .1457E-03, .3274E-02, .2368E-02,
1889 + .0000E+00, .0000E+00, .6442E-03, .1449E-03,
1890 + .9341E-03, .1449E-03, .3217E-02, .2228E-02,
1891 + .0000E+00, .0000E+00, .6288E-03, .1440E-03,
1892 + .9168E-03, .1440E-03, .3156E-02, .2093E-02/
1893 DATA ((CELC(I,K,10),I=1,8), K=19,20) /
1894 + .0000E+00, .0000E+00, .6136E-03, .1428E-03,
1895 + .8992E-03, .1428E-03, .3094E-02, .1962E-02,
1896 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1897 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1898 DATA ((CELC(I,K,11),I=1,8), K=1,9) /
1899 + .0000E+00, .0000E+00, .8398E-03, .1635E-03,
1900 + .1167E-02, .1635E-03, .3359E-02, .3682E-02,
1901 + .0000E+00, .0000E+00, .8240E-03, .1649E-03,
1902 + .1154E-02, .1649E-03, .3364E-02, .3607E-02,
1903 + .0000E+00, .0000E+00, .8082E-03, .1660E-03,
1904 + .1140E-02, .1660E-03, .3362E-02, .3515E-02,
1905 + .0000E+00, .0000E+00, .7925E-03, .1668E-03,
1906 + .1126E-02, .1668E-03, .3354E-02, .3407E-02,
1907 + .0000E+00, .0000E+00, .7767E-03, .1672E-03,
1908 + .1111E-02, .1672E-03, .3340E-02, .3289E-02,
1909 + .0000E+00, .0000E+00, .7610E-03, .1674E-03,
1910 + .1096E-02, .1674E-03, .3319E-02, .3160E-02,
1911 + .0000E+00, .0000E+00, .7452E-03, .1673E-03,
1912 + .1080E-02, .1673E-03, .3294E-02, .3025E-02,
1913 + .0000E+00, .0000E+00, .7295E-03, .1669E-03,
1914 + .1063E-02, .1669E-03, .3263E-02, .2885E-02,
1915 + .0000E+00, .0000E+00, .7137E-03, .1663E-03,
1916 + .1046E-02, .1663E-03, .3227E-02, .2742E-02/
1917 DATA ((CELC(I,K,11),I=1,8), K=10,18) /
1918 + .0000E+00, .0000E+00, .6980E-03, .1654E-03,
1919 + .1029E-02, .1654E-03, .3187E-02, .2598E-02,
1920 + .0000E+00, .0000E+00, .6823E-03, .1643E-03,
1921 + .1011E-02, .1643E-03, .3143E-02, .2454E-02,
1922 + .0000E+00, .0000E+00, .6666E-03, .1630E-03,
1923 + .9926E-03, .1630E-03, .3095E-02, .2312E-02,
1924 + .0000E+00, .0000E+00, .6509E-03, .1615E-03,
1925 + .9739E-03, .1615E-03, .3043E-02, .2172E-02,
1926 + .0000E+00, .0000E+00, .6353E-03, .1598E-03,
1927 + .9549E-03, .1598E-03, .2988E-02, .2036E-02,
1928 + .0000E+00, .0000E+00, .6197E-03, .1579E-03,
1929 + .9355E-03, .1579E-03, .2931E-02, .1904E-02,
1930 + .0000E+00, .0000E+00, .6041E-03, .1559E-03,
1931 + .9158E-03, .1559E-03, .2871E-02, .1777E-02,
1932 + .0000E+00, .0000E+00, .5886E-03, .1536E-03,
1933 + .8959E-03, .1536E-03, .2809E-02, .1655E-02,
1934 + .0000E+00, .0000E+00, .5732E-03, .1513E-03,
1935 + .8758E-03, .1513E-03, .2745E-02, .1539E-02/
1936 DATA ((CELC(I,K,11),I=1,8), K=19,20) /
1937 + .0000E+00, .0000E+00, .5579E-03, .1488E-03,
1938 + .8555E-03, .1488E-03, .2680E-02, .1429E-02,
1939 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1940 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1941 DATA ((CELC(I,K,12),I=1,8), K=1,9) /
1942 + .0000E+00, .0000E+00, .7960E-03, .1902E-03,
1943 + .1176E-02, .1902E-03, .3184E-02, .3295E-02,
1944 + .0000E+00, .0000E+00, .7801E-03, .1897E-03,
1945 + .1160E-02, .1897E-03, .3174E-02, .3181E-02,
1946 + .0000E+00, .0000E+00, .7642E-03, .1889E-03,
1947 + .1142E-02, .1889E-03, .3157E-02, .3056E-02,
1948 + .0000E+00, .0000E+00, .7482E-03, .1878E-03,
1949 + .1124E-02, .1878E-03, .3134E-02, .2923E-02,
1950 + .0000E+00, .0000E+00, .7321E-03, .1864E-03,
1951 + .1105E-02, .1864E-03, .3106E-02, .2783E-02,
1952 + .0000E+00, .0000E+00, .7161E-03, .1848E-03,
1953 + .1086E-02, .1848E-03, .3073E-02, .2641E-02,
1954 + .0000E+00, .0000E+00, .7000E-03, .1830E-03,
1955 + .1066E-02, .1830E-03, .3035E-02, .2496E-02,
1956 + .0000E+00, .0000E+00, .6838E-03, .1809E-03,
1957 + .1046E-02, .1809E-03, .2993E-02, .2352E-02,
1958 + .0000E+00, .0000E+00, .6677E-03, .1787E-03,
1959 + .1025E-02, .1787E-03, .2947E-02, .2209E-02/
1960 DATA ((CELC(I,K,12),I=1,8), K=10,18) /
1961 + .0000E+00, .0000E+00, .6515E-03, .1762E-03,
1962 + .1004E-02, .1762E-03, .2897E-02, .2068E-02,
1963 + .0000E+00, .0000E+00, .6354E-03, .1736E-03,
1964 + .9827E-03, .1736E-03, .2844E-02, .1932E-02,
1965 + .0000E+00, .0000E+00, .6193E-03, .1709E-03,
1966 + .9610E-03, .1709E-03, .2788E-02, .1799E-02,
1967 + .0000E+00, .0000E+00, .6032E-03, .1679E-03,
1968 + .9391E-03, .1679E-03, .2729E-02, .1672E-02,
1969 + .0000E+00, .0000E+00, .5871E-03, .1649E-03,
1970 + .9169E-03, .1649E-03, .2669E-02, .1550E-02,
1971 + .0000E+00, .0000E+00, .5712E-03, .1617E-03,
1972 + .8946E-03, .1617E-03, .2606E-02, .1435E-02,
1973 + .0000E+00, .0000E+00, .5552E-03, .1584E-03,
1974 + .8721E-03, .1584E-03, .2542E-02, .1325E-02,
1975 + .0000E+00, .0000E+00, .5394E-03, .1550E-03,
1976 + .8495E-03, .1550E-03, .2476E-02, .1222E-02,
1977 + .0000E+00, .0000E+00, .5237E-03, .1516E-03,
1978 + .8268E-03, .1516E-03, .2409E-02, .1125E-02/
1979 DATA ((CELC(I,K,12),I=1,8), K=19,20) /
1980 + .0000E+00, .0000E+00, .5081E-03, .1480E-03,
1981 + .8041E-03, .1480E-03, .2342E-02, .1035E-02,
1982 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
1983 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
1984 DATA ((CELC(I,K,13),I=1,8), K=1,9) /
1985 + .0000E+00, .0000E+00, .7620E-03, .2079E-03,
1986 + .1178E-02, .2079E-03, .3048E-02, .2912E-02,
1987 + .0000E+00, .0000E+00, .7454E-03, .2055E-03,
1988 + .1156E-02, .2055E-03, .3022E-02, .2772E-02,
1989 + .0000E+00, .0000E+00, .7286E-03, .2030E-03,
1990 + .1135E-02, .2030E-03, .2991E-02, .2627E-02,
1991 + .0000E+00, .0000E+00, .7118E-03, .2002E-03,
1992 + .1112E-02, .2002E-03, .2955E-02, .2479E-02,
1993 + .0000E+00, .0000E+00, .6950E-03, .1972E-03,
1994 + .1089E-02, .1972E-03, .2913E-02, .2331E-02,
1995 + .0000E+00, .0000E+00, .6781E-03, .1940E-03,
1996 + .1066E-02, .1940E-03, .2868E-02, .2184E-02,
1997 + .0000E+00, .0000E+00, .6611E-03, .1906E-03,
1998 + .1042E-02, .1906E-03, .2819E-02, .2039E-02,
1999 + .0000E+00, .0000E+00, .6442E-03, .1871E-03,
2000 + .1018E-02, .1871E-03, .2766E-02, .1898E-02,
2001 + .0000E+00, .0000E+00, .6272E-03, .1835E-03,
2002 + .9942E-03, .1835E-03, .2710E-02, .1762E-02/
2003 DATA ((CELC(I,K,13),I=1,8), K=10,18) /
2004 + .0000E+00, .0000E+00, .6103E-03, .1797E-03,
2005 + .9698E-03, .1797E-03, .2652E-02, .1631E-02,
2006 + .0000E+00, .0000E+00, .5934E-03, .1759E-03,
2007 + .9451E-03, .1759E-03, .2591E-02, .1506E-02,
2008 + .0000E+00, .0000E+00, .5766E-03, .1719E-03,
2009 + .9203E-03, .1719E-03, .2528E-02, .1387E-02,
2010 + .0000E+00, .0000E+00, .5598E-03, .1678E-03,
2011 + .8954E-03, .1678E-03, .2464E-02, .1275E-02,
2012 + .0000E+00, .0000E+00, .5431E-03, .1637E-03,
2013 + .8705E-03, .1637E-03, .2398E-02, .1169E-02,
2014 + .0000E+00, .0000E+00, .5266E-03, .1595E-03,
2015 + .8455E-03, .1595E-03, .2331E-02, .1071E-02,
2016 + .0000E+00, .0000E+00, .5101E-03, .1552E-03,
2017 + .8205E-03, .1552E-03, .2263E-02, .9791E-03,
2018 + .0000E+00, .0000E+00, .4938E-03, .1509E-03,
2019 + .7957E-03, .1509E-03, .2195E-02, .8939E-03,
2020 + .0000E+00, .0000E+00, .4777E-03, .1466E-03,
2021 + .7709E-03, .1466E-03, .2126E-02, .8151E-03/
2022 DATA ((CELC(I,K,13),I=1,8), K=19,20) /
2023 + .0000E+00, .0000E+00, .4617E-03, .1423E-03,
2024 + .7462E-03, .1423E-03, .2057E-02, .7425E-03,
2025 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2026 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2027 DATA ((CELC(I,K,14),I=1,8), K=1,9) /
2028 + .0000E+00, .0000E+00, .7339E-03, .2177E-03,
2029 + .1169E-02, .2177E-03, .2935E-02, .2540E-02,
2030 + .0000E+00, .0000E+00, .7159E-03, .2138E-03,
2031 + .1143E-02, .2138E-03, .2894E-02, .2385E-02,
2032 + .0000E+00, .0000E+00, .6979E-03, .2097E-03,
2033 + .1117E-02, .2097E-03, .2849E-02, .2230E-02,
2034 + .0000E+00, .0000E+00, .6798E-03, .2054E-03,
2035 + .1091E-02, .2054E-03, .2799E-02, .2078E-02,
2036 + .0000E+00, .0000E+00, .6617E-03, .2010E-03,
2037 + .1064E-02, .2010E-03, .2745E-02, .1929E-02,
2038 + .0000E+00, .0000E+00, .6435E-03, .1965E-03,
2039 + .1036E-02, .1965E-03, .2688E-02, .1784E-02,
2040 + .0000E+00, .0000E+00, .6254E-03, .1918E-03,
2041 + .1009E-02, .1918E-03, .2628E-02, .1646E-02,
2042 + .0000E+00, .0000E+00, .6074E-03, .1871E-03,
2043 + .9816E-03, .1871E-03, .2566E-02, .1514E-02,
2044 + .0000E+00, .0000E+00, .5894E-03, .1823E-03,
2045 + .9540E-03, .1823E-03, .2501E-02, .1388E-02/
2046 DATA ((CELC(I,K,14),I=1,8), K=10,18) /
2047 + .0000E+00, .0000E+00, .5714E-03, .1775E-03,
2048 + .9263E-03, .1775E-03, .2435E-02, .1270E-02,
2049 + .0000E+00, .0000E+00, .5536E-03, .1726E-03,
2050 + .8987E-03, .1726E-03, .2367E-02, .1159E-02,
2051 + .0000E+00, .0000E+00, .5359E-03, .1676E-03,
2052 + .8711E-03, .1676E-03, .2299E-02, .1056E-02,
2053 + .0000E+00, .0000E+00, .5183E-03, .1627E-03,
2054 + .8436E-03, .1627E-03, .2229E-02, .9600E-03,
2055 + .0000E+00, .0000E+00, .5009E-03, .1577E-03,
2056 + .8162E-03, .1577E-03, .2159E-02, .8712E-03,
2057 + .0000E+00, .0000E+00, .4837E-03, .1527E-03,
2058 + .7891E-03, .1527E-03, .2088E-02, .7894E-03,
2059 + .0000E+00, .0000E+00, .4666E-03, .1477E-03,
2060 + .7621E-03, .1477E-03, .2018E-02, .7144E-03,
2061 + .0000E+00, .0000E+00, .4498E-03, .1428E-03,
2062 + .7354E-03, .1428E-03, .1947E-02, .6457E-03,
2063 + .0000E+00, .0000E+00, .4333E-03, .1379E-03,
2064 + .7090E-03, .1379E-03, .1877E-02, .5831E-03/
2065 DATA ((CELC(I,K,14),I=1,8), K=19,20) /
2066 + .0000E+00, .0000E+00, .4170E-03, .1330E-03,
2067 + .6830E-03, .1330E-03, .1808E-02, .5261E-03,
2068 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2069 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2070 DATA ((CELC(I,K,15),I=1,8), K=1,9) /
2071 + .0000E+00, .0000E+00, .7080E-03, .2212E-03,
2072 + .1150E-02, .2212E-03, .2832E-02, .2183E-02,
2073 + .0000E+00, .0000E+00, .6883E-03, .2158E-03,
2074 + .1120E-02, .2158E-03, .2776E-02, .2023E-02,
2075 + .0000E+00, .0000E+00, .6686E-03, .2104E-03,
2076 + .1089E-02, .2104E-03, .2716E-02, .1867E-02,
2077 + .0000E+00, .0000E+00, .6489E-03, .2049E-03,
2078 + .1059E-02, .2049E-03, .2653E-02, .1717E-02,
2079 + .0000E+00, .0000E+00, .6292E-03, .1993E-03,
2080 + .1028E-02, .1993E-03, .2588E-02, .1573E-02,
2081 + .0000E+00, .0000E+00, .6097E-03, .1936E-03,
2082 + .9969E-03, .1936E-03, .2520E-02, .1437E-02,
2083 + .0000E+00, .0000E+00, .5902E-03, .1879E-03,
2084 + .9660E-03, .1879E-03, .2450E-02, .1310E-02,
2085 + .0000E+00, .0000E+00, .5708E-03, .1822E-03,
2086 + .9353E-03, .1822E-03, .2379E-02, .1190E-02,
2087 + .0000E+00, .0000E+00, .5516E-03, .1765E-03,
2088 + .9047E-03, .1765E-03, .2307E-02, .1078E-02/
2089 DATA ((CELC(I,K,15),I=1,8), K=10,18) /
2090 + .0000E+00, .0000E+00, .5326E-03, .1708E-03,
2091 + .8742E-03, .1708E-03, .2234E-02, .9749E-03,
2092 + .0000E+00, .0000E+00, .5138E-03, .1651E-03,
2093 + .8440E-03, .1651E-03, .2161E-02, .8796E-03,
2094 + .0000E+00, .0000E+00, .4952E-03, .1594E-03,
2095 + .8141E-03, .1594E-03, .2087E-02, .7921E-03,
2096 + .0000E+00, .0000E+00, .4769E-03, .1538E-03,
2097 + .7845E-03, .1538E-03, .2013E-02, .7121E-03,
2098 + .0000E+00, .0000E+00, .4588E-03, .1482E-03,
2099 + .7553E-03, .1482E-03, .1939E-02, .6393E-03,
2100 + .0000E+00, .0000E+00, .4410E-03, .1427E-03,
2101 + .7264E-03, .1427E-03, .1866E-02, .5731E-03,
2102 + .0000E+00, .0000E+00, .4235E-03, .1373E-03,
2103 + .6981E-03, .1373E-03, .1794E-02, .5133E-03,
2104 + .0000E+00, .0000E+00, .4063E-03, .1319E-03,
2105 + .6702E-03, .1319E-03, .1723E-02, .4593E-03,
2106 + .0000E+00, .0000E+00, .3895E-03, .1266E-03,
2107 + .6428E-03, .1266E-03, .1652E-02, .4107E-03/
2108 DATA ((CELC(I,K,15),I=1,8), K=19,20) /
2109 + .0000E+00, .0000E+00, .3731E-03, .1214E-03,
2110 + .6159E-03, .1214E-03, .1583E-02, .3671E-03,
2111 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2112 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2113 DATA ((CELC(I,K,16),I=1,8), K=1,9) /
2114 + .0000E+00, .0000E+00, .6814E-03, .2195E-03,
2115 + .1120E-02, .2195E-03, .2725E-02, .1848E-02,
2116 + .0000E+00, .0000E+00, .6597E-03, .2129E-03,
2117 + .1085E-02, .2129E-03, .2655E-02, .1689E-02,
2118 + .0000E+00, .0000E+00, .6381E-03, .2063E-03,
2119 + .1051E-02, .2063E-03, .2582E-02, .1538E-02,
2120 + .0000E+00, .0000E+00, .6167E-03, .1998E-03,
2121 + .1016E-02, .1998E-03, .2508E-02, .1396E-02,
2122 + .0000E+00, .0000E+00, .5954E-03, .1932E-03,
2123 + .9818E-03, .1932E-03, .2431E-02, .1263E-02,
2124 + .0000E+00, .0000E+00, .5743E-03, .1866E-03,
2125 + .9476E-03, .1866E-03, .2354E-02, .1139E-02,
2126 + .0000E+00, .0000E+00, .5535E-03, .1801E-03,
2127 + .9137E-03, .1801E-03, .2276E-02, .1025E-02,
2128 + .0000E+00, .0000E+00, .5329E-03, .1737E-03,
2129 + .8802E-03, .1737E-03, .2197E-02, .9197E-03,
2130 + .0000E+00, .0000E+00, .5126E-03, .1672E-03,
2131 + .8470E-03, .1672E-03, .2119E-02, .8234E-03/
2132 DATA ((CELC(I,K,16),I=1,8), K=10,18) /
2133 + .0000E+00, .0000E+00, .4925E-03, .1609E-03,
2134 + .8144E-03, .1609E-03, .2040E-02, .7356E-03,
2135 + .0000E+00, .0000E+00, .4729E-03, .1546E-03,
2136 + .7822E-03, .1546E-03, .1962E-02, .6559E-03,
2137 + .0000E+00, .0000E+00, .4535E-03, .1485E-03,
2138 + .7505E-03, .1485E-03, .1884E-02, .5839E-03,
2139 + .0000E+00, .0000E+00, .4346E-03, .1424E-03,
2140 + .7194E-03, .1424E-03, .1808E-02, .5190E-03,
2141 + .0000E+00, .0000E+00, .4160E-03, .1365E-03,
2142 + .6889E-03, .1365E-03, .1732E-02, .4608E-03,
2143 + .0000E+00, .0000E+00, .3979E-03, .1306E-03,
2144 + .6591E-03, .1306E-03, .1658E-02, .4086E-03,
2145 + .0000E+00, .0000E+00, .3801E-03, .1249E-03,
2146 + .6299E-03, .1249E-03, .1585E-02, .3622E-03,
2147 + .0000E+00, .0000E+00, .3628E-03, .1193E-03,
2148 + .6015E-03, .1193E-03, .1514E-02, .3208E-03,
2149 + .0000E+00, .0000E+00, .3460E-03, .1139E-03,
2150 + .5737E-03, .1139E-03, .1444E-02, .2840E-03/
2151 DATA ((CELC(I,K,16),I=1,8), K=19,20) /
2152 + .0000E+00, .0000E+00, .3296E-03, .1085E-03,
2153 + .5467E-03, .1085E-03, .1376E-02, .2515E-03,
2154 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2155 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2156 DATA ((CELC(I,K,17),I=1,8), K=1,9) /
2157 + .0000E+00, .0000E+00, .6519E-03, .2136E-03,
2158 + .1079E-02, .2136E-03, .2608E-02, .1538E-02,
2159 + .0000E+00, .0000E+00, .6282E-03, .2060E-03,
2160 + .1040E-02, .2060E-03, .2524E-02, .1386E-02,
2161 + .0000E+00, .0000E+00, .6047E-03, .1985E-03,
2162 + .1002E-02, .1985E-03, .2440E-02, .1246E-02,
2163 + .0000E+00, .0000E+00, .5816E-03, .1911E-03,
2164 + .9638E-03, .1911E-03, .2354E-02, .1115E-02,
2165 + .0000E+00, .0000E+00, .5588E-03, .1838E-03,
2166 + .9263E-03, .1838E-03, .2269E-02, .9958E-03,
2167 + .0000E+00, .0000E+00, .5363E-03, .1765E-03,
2168 + .8894E-03, .1765E-03, .2184E-02, .8866E-03,
2169 + .0000E+00, .0000E+00, .5143E-03, .1694E-03,
2170 + .8530E-03, .1694E-03, .2098E-02, .7874E-03,
2171 + .0000E+00, .0000E+00, .4926E-03, .1624E-03,
2172 + .8173E-03, .1624E-03, .2014E-02, .6976E-03,
2173 + .0000E+00, .0000E+00, .4714E-03, .1555E-03,
2174 + .7823E-03, .1555E-03, .1930E-02, .6167E-03/
2175 DATA ((CELC(I,K,17),I=1,8), K=10,18) /
2176 + .0000E+00, .0000E+00, .4506E-03, .1487E-03,
2177 + .7480E-03, .1487E-03, .1848E-02, .5442E-03,
2178 + .0000E+00, .0000E+00, .4303E-03, .1421E-03,
2179 + .7145E-03, .1421E-03, .1767E-02, .4794E-03,
2180 + .0000E+00, .0000E+00, .4105E-03, .1356E-03,
2181 + .6817E-03, .1356E-03, .1687E-02, .4217E-03,
2182 + .0000E+00, .0000E+00, .3912E-03, .1293E-03,
2183 + .6498E-03, .1293E-03, .1609E-02, .3705E-03,
2184 + .0000E+00, .0000E+00, .3724E-03, .1232E-03,
2185 + .6188E-03, .1232E-03, .1533E-02, .3252E-03,
2186 + .0000E+00, .0000E+00, .3542E-03, .1172E-03,
2187 + .5886E-03, .1172E-03, .1459E-02, .2853E-03,
2188 + .0000E+00, .0000E+00, .3366E-03, .1114E-03,
2189 + .5594E-03, .1114E-03, .1386E-02, .2502E-03,
2190 + .0000E+00, .0000E+00, .3194E-03, .1058E-03,
2191 + .5310E-03, .1058E-03, .1316E-02, .2193E-03,
2192 + .0000E+00, .0000E+00, .3029E-03, .1003E-03,
2193 + .5036E-03, .1003E-03, .1248E-02, .1923E-03/
2194 DATA ((CELC(I,K,17),I=1,8), K=19,20) /
2195 + .0000E+00, .0000E+00, .2869E-03, .9507E-04,
2196 + .4771E-03, .9507E-04, .1182E-02, .1686E-03,
2197 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2198 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2199 DATA ((CELC(I,K,18),I=1,8), K=1,9) /
2200 + .0000E+00, .0000E+00, .6183E-03, .2044E-03,
2201 + .1027E-02, .2044E-03, .2473E-02, .1256E-02,
2202 + .0000E+00, .0000E+00, .5927E-03, .1961E-03,
2203 + .9848E-03, .1961E-03, .2378E-02, .1116E-02,
2204 + .0000E+00, .0000E+00, .5676E-03, .1878E-03,
2205 + .9432E-03, .1878E-03, .2284E-02, .9891E-03,
2206 + .0000E+00, .0000E+00, .5429E-03, .1798E-03,
2207 + .9024E-03, .1798E-03, .2190E-02, .8736E-03,
2208 + .0000E+00, .0000E+00, .5188E-03, .1718E-03,
2209 + .8625E-03, .1718E-03, .2097E-02, .7693E-03,
2210 + .0000E+00, .0000E+00, .4952E-03, .1641E-03,
2211 + .8234E-03, .1641E-03, .2006E-02, .6757E-03,
2212 + .0000E+00, .0000E+00, .4722E-03, .1565E-03,
2213 + .7853E-03, .1565E-03, .1916E-02, .5921E-03,
2214 + .0000E+00, .0000E+00, .4498E-03, .1491E-03,
2215 + .7481E-03, .1491E-03, .1827E-02, .5177E-03,
2216 + .0000E+00, .0000E+00, .4280E-03, .1420E-03,
2217 + .7119E-03, .1420E-03, .1740E-02, .4518E-03/
2218 DATA ((CELC(I,K,18),I=1,8), K=10,18) /
2219 + .0000E+00, .0000E+00, .4068E-03, .1350E-03,
2220 + .6767E-03, .1350E-03, .1656E-02, .3936E-03,
2221 + .0000E+00, .0000E+00, .3862E-03, .1282E-03,
2222 + .6426E-03, .1282E-03, .1573E-02, .3424E-03,
2223 + .0000E+00, .0000E+00, .3663E-03, .1216E-03,
2224 + .6095E-03, .1216E-03, .1493E-02, .2975E-03,
2225 + .0000E+00, .0000E+00, .3470E-03, .1152E-03,
2226 + .5775E-03, .1152E-03, .1415E-02, .2583E-03,
2227 + .0000E+00, .0000E+00, .3284E-03, .1091E-03,
2228 + .5466E-03, .1091E-03, .1340E-02, .2241E-03,
2229 + .0000E+00, .0000E+00, .3105E-03, .1031E-03,
2230 + .5168E-03, .1031E-03, .1267E-02, .1944E-03,
2231 + .0000E+00, .0000E+00, .2932E-03, .9743E-04,
2232 + .4881E-03, .9743E-04, .1197E-02, .1686E-03,
2233 + .0000E+00, .0000E+00, .2766E-03, .9193E-04,
2234 + .4605E-03, .9193E-04, .1129E-02, .1463E-03,
2235 + .0000E+00, .0000E+00, .2607E-03, .8665E-04,
2236 + .4340E-03, .8665E-04, .1064E-02, .1270E-03/
2237 DATA ((CELC(I,K,18),I=1,8), K=19,20) /
2238 + .0000E+00, .0000E+00, .2454E-03, .8159E-04,
2239 + .4086E-03, .8159E-04, .1002E-02, .1103E-03,
2240 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2241 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2242 DATA ((CELC(I,K,19),I=1,8), K=1,9) /
2243 + .0000E+00, .0000E+00, .5800E-03, .1926E-03,
2244 + .9653E-03, .1926E-03, .2320E-02, .1005E-02,
2245 + .0000E+00, .0000E+00, .5528E-03, .1837E-03,
2246 + .9201E-03, .1837E-03, .2216E-02, .8800E-03,
2247 + .0000E+00, .0000E+00, .5263E-03, .1749E-03,
2248 + .8761E-03, .1749E-03, .2114E-02, .7684E-03,
2249 + .0000E+00, .0000E+00, .5005E-03, .1663E-03,
2250 + .8332E-03, .1663E-03, .2014E-02, .6689E-03,
2251 + .0000E+00, .0000E+00, .4754E-03, .1580E-03,
2252 + .7915E-03, .1580E-03, .1916E-02, .5807E-03,
2253 + .0000E+00, .0000E+00, .4511E-03, .1500E-03,
2254 + .7511E-03, .1500E-03, .1820E-02, .5029E-03,
2255 + .0000E+00, .0000E+00, .4276E-03, .1422E-03,
2256 + .7119E-03, .1422E-03, .1727E-02, .4345E-03,
2257 + .0000E+00, .0000E+00, .4048E-03, .1346E-03,
2258 + .6740E-03, .1346E-03, .1636E-02, .3747E-03,
2259 + .0000E+00, .0000E+00, .3828E-03, .1273E-03,
2260 + .6374E-03, .1273E-03, .1549E-02, .3226E-03/
2261 DATA ((CELC(I,K,19),I=1,8), K=10,18) /
2262 + .0000E+00, .0000E+00, .3616E-03, .1203E-03,
2263 + .6022E-03, .1203E-03, .1464E-02, .2773E-03,
2264 + .0000E+00, .0000E+00, .3412E-03, .1135E-03,
2265 + .5682E-03, .1135E-03, .1382E-02, .2382E-03,
2266 + .0000E+00, .0000E+00, .3215E-03, .1070E-03,
2267 + .5355E-03, .1070E-03, .1303E-02, .2043E-03,
2268 + .0000E+00, .0000E+00, .3027E-03, .1007E-03,
2269 + .5042E-03, .1007E-03, .1227E-02, .1752E-03,
2270 + .0000E+00, .0000E+00, .2846E-03, .9473E-04,
2271 + .4741E-03, .9473E-04, .1154E-02, .1502E-03,
2272 + .0000E+00, .0000E+00, .2674E-03, .8899E-04,
2273 + .4454E-03, .8899E-04, .1084E-02, .1288E-03,
2274 + .0000E+00, .0000E+00, .2509E-03, .8351E-04,
2275 + .4179E-03, .8351E-04, .1017E-02, .1105E-03,
2276 + .0000E+00, .0000E+00, .2351E-03, .7827E-04,
2277 + .3917E-03, .7827E-04, .9535E-03, .9488E-04,
2278 + .0000E+00, .0000E+00, .2201E-03, .7328E-04,
2279 + .3667E-03, .7328E-04, .8927E-03, .8153E-04/
2280 DATA ((CELC(I,K,19),I=1,8), K=19,20) /
2281 + .0000E+00, .0000E+00, .2058E-03, .6853E-04,
2282 + .3429E-03, .6853E-04, .8348E-03, .7015E-04,
2283 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2284 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2285 DATA ((CELC(I,K,20),I=1,8), K=1,9) /
2286 + .0000E+00, .0000E+00, .5371E-03, .1788E-03,
2287 + .8947E-03, .1788E-03, .2149E-02, .7852E-03,
2288 + .0000E+00, .0000E+00, .5087E-03, .1694E-03,
2289 + .8474E-03, .1694E-03, .2038E-02, .6771E-03,
2290 + .0000E+00, .0000E+00, .4813E-03, .1602E-03,
2291 + .8017E-03, .1602E-03, .1930E-02, .5822E-03,
2292 + .0000E+00, .0000E+00, .4548E-03, .1514E-03,
2293 + .7576E-03, .1514E-03, .1826E-02, .4992E-03,
2294 + .0000E+00, .0000E+00, .4292E-03, .1429E-03,
2295 + .7151E-03, .1429E-03, .1725E-02, .4269E-03,
2296 + .0000E+00, .0000E+00, .4046E-03, .1347E-03,
2297 + .6741E-03, .1347E-03, .1628E-02, .3642E-03,
2298 + .0000E+00, .0000E+00, .3810E-03, .1269E-03,
2299 + .6347E-03, .1269E-03, .1534E-02, .3101E-03,
2300 + .0000E+00, .0000E+00, .3583E-03, .1193E-03,
2301 + .5970E-03, .1193E-03, .1443E-02, .2636E-03,
2302 + .0000E+00, .0000E+00, .3366E-03, .1121E-03,
2303 + .5608E-03, .1121E-03, .1356E-02, .2237E-03/
2304 DATA ((CELC(I,K,20),I=1,8), K=10,18) /
2305 + .0000E+00, .0000E+00, .3158E-03, .1052E-03,
2306 + .5262E-03, .1052E-03, .1273E-02, .1897E-03,
2307 + .0000E+00, .0000E+00, .2960E-03, .9858E-04,
2308 + .4931E-03, .9858E-04, .1194E-02, .1607E-03,
2309 + .0000E+00, .0000E+00, .2770E-03, .9228E-04,
2310 + .4616E-03, .9228E-04, .1118E-02, .1361E-03,
2311 + .0000E+00, .0000E+00, .2590E-03, .8628E-04,
2312 + .4316E-03, .8628E-04, .1045E-02, .1152E-03,
2313 + .0000E+00, .0000E+00, .2419E-03, .8058E-04,
2314 + .4031E-03, .8058E-04, .9761E-03, .9756E-04,
2315 + .0000E+00, .0000E+00, .2256E-03, .7517E-04,
2316 + .3760E-03, .7517E-04, .9105E-03, .8267E-04,
2317 + .0000E+00, .0000E+00, .2102E-03, .7003E-04,
2318 + .3503E-03, .7003E-04, .8484E-03, .7012E-04,
2319 + .0000E+00, .0000E+00, .1956E-03, .6518E-04,
2320 + .3260E-03, .6518E-04, .7896E-03, .5955E-04,
2321 + .0000E+00, .0000E+00, .1819E-03, .6059E-04,
2322 + .3030E-03, .6059E-04, .7339E-03, .5066E-04/
2323 DATA ((CELC(I,K,20),I=1,8), K=19,20) /
2324 + .0000E+00, .0000E+00, .1688E-03, .5626E-04,
2325 + .2814E-03, .5626E-04, .6814E-03, .4317E-04,
2326 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2327 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2328 DATA ((CELC(I,K,21),I=1,8), K=1,9) /
2329 + .0000E+00, .0000E+00, .4902E-03, .1633E-03,
2330 + .8168E-03, .1633E-03, .1961E-02, .5975E-03,
2331 + .0000E+00, .0000E+00, .4611E-03, .1536E-03,
2332 + .7683E-03, .1536E-03, .1846E-02, .5068E-03,
2333 + .0000E+00, .0000E+00, .4332E-03, .1443E-03,
2334 + .7219E-03, .1443E-03, .1736E-02, .4287E-03,
2335 + .0000E+00, .0000E+00, .4065E-03, .1354E-03,
2336 + .6774E-03, .1354E-03, .1630E-02, .3617E-03,
2337 + .0000E+00, .0000E+00, .3810E-03, .1269E-03,
2338 + .6348E-03, .1269E-03, .1529E-02, .3044E-03,
2339 + .0000E+00, .0000E+00, .3566E-03, .1188E-03,
2340 + .5942E-03, .1188E-03, .1432E-02, .2556E-03,
2341 + .0000E+00, .0000E+00, .3334E-03, .1111E-03,
2342 + .5556E-03, .1111E-03, .1339E-02, .2143E-03,
2343 + .0000E+00, .0000E+00, .3113E-03, .1037E-03,
2344 + .5187E-03, .1037E-03, .1251E-02, .1794E-03,
2345 + .0000E+00, .0000E+00, .2903E-03, .9674E-04,
2346 + .4838E-03, .9674E-04, .1167E-02, .1500E-03/
2347 DATA ((CELC(I,K,21),I=1,8), K=10,18) /
2348 + .0000E+00, .0000E+00, .2704E-03, .9011E-04,
2349 + .4506E-03, .9011E-04, .1087E-02, .1253E-03,
2350 + .0000E+00, .0000E+00, .2515E-03, .8383E-04,
2351 + .4192E-03, .8383E-04, .1011E-02, .1046E-03,
2352 + .0000E+00, .0000E+00, .2337E-03, .7789E-04,
2353 + .3895E-03, .7789E-04, .9398E-03, .8739E-04,
2354 + .0000E+00, .0000E+00, .2169E-03, .7228E-04,
2355 + .3615E-03, .7228E-04, .8722E-03, .7301E-04,
2356 + .0000E+00, .0000E+00, .2010E-03, .6700E-04,
2357 + .3350E-03, .6700E-04, .8085E-03, .6105E-04,
2358 + .0000E+00, .0000E+00, .1861E-03, .6202E-04,
2359 + .3102E-03, .6202E-04, .7485E-03, .5111E-04,
2360 + .0000E+00, .0000E+00, .1721E-03, .5735E-04,
2361 + .2868E-03, .5735E-04, .6921E-03, .4285E-04,
2362 + .0000E+00, .0000E+00, .1589E-03, .5296E-04,
2363 + .2648E-03, .5296E-04, .6392E-03, .3600E-04,
2364 + .0000E+00, .0000E+00, .1466E-03, .4885E-04,
2365 + .2443E-03, .4885E-04, .5896E-03, .3031E-04/
2366 DATA ((CELC(I,K,21),I=1,8), K=19,20) /
2367 + .0000E+00, .0000E+00, .1351E-03, .4501E-04,
2368 + .2251E-03, .4501E-04, .5432E-03, .2558E-04,
2369 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2370 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2371 DATA ((CELC(I,K,22),I=1,8), K=1,9) /
2372 + .0000E+00, .0000E+00, .4400E-03, .1466E-03,
2373 + .7332E-03, .1466E-03, .1760E-02, .4409E-03,
2374 + .0000E+00, .0000E+00, .4107E-03, .1369E-03,
2375 + .6845E-03, .1369E-03, .1644E-02, .3674E-03,
2376 + .0000E+00, .0000E+00, .3830E-03, .1276E-03,
2377 + .6382E-03, .1276E-03, .1533E-02, .3054E-03,
2378 + .0000E+00, .0000E+00, .3566E-03, .1189E-03,
2379 + .5943E-03, .1189E-03, .1429E-02, .2532E-03,
2380 + .0000E+00, .0000E+00, .3317E-03, .1105E-03,
2381 + .5527E-03, .1105E-03, .1329E-02, .2095E-03,
2382 + .0000E+00, .0000E+00, .3080E-03, .1027E-03,
2383 + .5134E-03, .1027E-03, .1235E-02, .1729E-03,
2384 + .0000E+00, .0000E+00, .2857E-03, .9524E-04,
2385 + .4762E-03, .9524E-04, .1146E-02, .1426E-03,
2386 + .0000E+00, .0000E+00, .2647E-03, .8823E-04,
2387 + .4412E-03, .8823E-04, .1062E-02, .1174E-03,
2388 + .0000E+00, .0000E+00, .2449E-03, .8163E-04,
2389 + .4082E-03, .8163E-04, .9824E-03, .9661E-04/
2390 DATA ((CELC(I,K,22),I=1,8), K=10,18) /
2391 + .0000E+00, .0000E+00, .2263E-03, .7543E-04,
2392 + .3772E-03, .7543E-04, .9079E-03, .7947E-04,
2393 + .0000E+00, .0000E+00, .2088E-03, .6961E-04,
2394 + .3481E-03, .6961E-04, .8379E-03, .6538E-04,
2395 + .0000E+00, .0000E+00, .1925E-03, .6416E-04,
2396 + .3208E-03, .6416E-04, .7723E-03, .5382E-04,
2397 + .0000E+00, .0000E+00, .1772E-03, .5905E-04,
2398 + .2953E-03, .5905E-04, .7110E-03, .4434E-04,
2399 + .0000E+00, .0000E+00, .1629E-03, .5429E-04,
2400 + .2715E-03, .5429E-04, .6536E-03, .3659E-04,
2401 + .0000E+00, .0000E+00, .1495E-03, .4985E-04,
2402 + .2492E-03, .4985E-04, .6001E-03, .3025E-04,
2403 + .0000E+00, .0000E+00, .1371E-03, .4571E-04,
2404 + .2286E-03, .4571E-04, .5503E-03, .2507E-04,
2405 + .0000E+00, .0000E+00, .1256E-03, .4186E-04,
2406 + .2093E-03, .4186E-04, .5040E-03, .2083E-04,
2407 + .0000E+00, .0000E+00, .1149E-03, .3829E-04,
2408 + .1915E-03, .3829E-04, .4610E-03, .1736E-04/
2409 DATA ((CELC(I,K,22),I=1,8), K=19,20) /
2410 + .0000E+00, .0000E+00, .1050E-03, .3498E-04,
2411 + .1749E-03, .3498E-04, .4212E-03, .1451E-04,
2412 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2413 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2414 DATA ((CELC(I,K,23),I=1,8), K=1,9) /
2415 + .0000E+00, .0000E+00, .3874E-03, .1291E-03,
2416 + .6457E-03, .1291E-03, .1550E-02, .3138E-03,
2417 + .0000E+00, .0000E+00, .3587E-03, .1196E-03,
2418 + .5978E-03, .1196E-03, .1435E-02, .2564E-03,
2419 + .0000E+00, .0000E+00, .3317E-03, .1105E-03,
2420 + .5527E-03, .1105E-03, .1327E-02, .2092E-03,
2421 + .0000E+00, .0000E+00, .3062E-03, .1021E-03,
2422 + .5104E-03, .1021E-03, .1226E-02, .1702E-03,
2423 + .0000E+00, .0000E+00, .2824E-03, .9413E-04,
2424 + .4706E-03, .9413E-04, .1131E-02, .1382E-03,
2425 + .0000E+00, .0000E+00, .2600E-03, .8668E-04,
2426 + .4334E-03, .8668E-04, .1041E-02, .1120E-03,
2427 + .0000E+00, .0000E+00, .2391E-03, .7971E-04,
2428 + .3986E-03, .7971E-04, .9578E-03, .9072E-04,
2429 + .0000E+00, .0000E+00, .2196E-03, .7321E-04,
2430 + .3661E-03, .7321E-04, .8798E-03, .7340E-04,
2431 + .0000E+00, .0000E+00, .2014E-03, .6714E-04,
2432 + .3357E-03, .6714E-04, .8070E-03, .5938E-04/
2433 DATA ((CELC(I,K,23),I=1,8), K=10,18) /
2434 + .0000E+00, .0000E+00, .1845E-03, .6150E-04,
2435 + .3075E-03, .6150E-04, .7392E-03, .4804E-04,
2436 + .0000E+00, .0000E+00, .1688E-03, .5625E-04,
2437 + .2813E-03, .5625E-04, .6762E-03, .3890E-04,
2438 + .0000E+00, .0000E+00, .1542E-03, .5139E-04,
2439 + .2569E-03, .5139E-04, .6177E-03, .3154E-04,
2440 + .0000E+00, .0000E+00, .1406E-03, .4688E-04,
2441 + .2344E-03, .4688E-04, .5635E-03, .2561E-04,
2442 + .0000E+00, .0000E+00, .1281E-03, .4271E-04,
2443 + .2136E-03, .4271E-04, .5134E-03, .2085E-04,
2444 + .0000E+00, .0000E+00, .1166E-03, .3886E-04,
2445 + .1943E-03, .3886E-04, .4672E-03, .1702E-04,
2446 + .0000E+00, .0000E+00, .1059E-03, .3531E-04,
2447 + .1766E-03, .3531E-04, .4245E-03, .1393E-04,
2448 + .0000E+00, .0000E+00, .9614E-04, .3205E-04,
2449 + .1602E-03, .3205E-04, .3852E-03, .1145E-04,
2450 + .0000E+00, .0000E+00, .8713E-04, .2904E-04,
2451 + .1452E-03, .2904E-04, .3492E-03, .9440E-05/
2452 DATA ((CELC(I,K,23),I=1,8), K=19,20) /
2453 + .0000E+00, .0000E+00, .7887E-04, .2629E-04,
2454 + .1314E-03, .2629E-04, .3160E-03, .7816E-05,
2455 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2456 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2457 DATA ((CELC(I,K,24),I=1,8), K=1,9) /
2458 + .0000E+00, .0000E+00, .3337E-03, .1112E-03,
2459 + .5562E-03, .1112E-03, .1335E-02, .2139E-03,
2460 + .0000E+00, .0000E+00, .3061E-03, .1020E-03,
2461 + .5102E-03, .1020E-03, .1225E-02, .1711E-03,
2462 + .0000E+00, .0000E+00, .2804E-03, .9346E-04,
2463 + .4673E-03, .9346E-04, .1122E-02, .1367E-03,
2464 + .0000E+00, .0000E+00, .2565E-03, .8549E-04,
2465 + .4274E-03, .8549E-04, .1026E-02, .1089E-03,
2466 + .0000E+00, .0000E+00, .2343E-03, .7809E-04,
2467 + .3904E-03, .7809E-04, .9375E-03, .8668E-04,
2468 + .0000E+00, .0000E+00, .2137E-03, .7122E-04,
2469 + .3561E-03, .7122E-04, .8552E-03, .6888E-04,
2470 + .0000E+00, .0000E+00, .1946E-03, .6488E-04,
2471 + .3244E-03, .6488E-04, .7790E-03, .5470E-04,
2472 + .0000E+00, .0000E+00, .1770E-03, .5901E-04,
2473 + .2950E-03, .5901E-04, .7086E-03, .4343E-04,
2474 + .0000E+00, .0000E+00, .1608E-03, .5360E-04,
2475 + .2680E-03, .5360E-04, .6436E-03, .3449E-04/
2476 DATA ((CELC(I,K,24),I=1,8), K=10,18) /
2477 + .0000E+00, .0000E+00, .1458E-03, .4861E-04,
2478 + .2431E-03, .4861E-04, .5838E-03, .2741E-04,
2479 + .0000E+00, .0000E+00, .1321E-03, .4403E-04,
2480 + .2202E-03, .4403E-04, .5288E-03, .2183E-04,
2481 + .0000E+00, .0000E+00, .1195E-03, .3983E-04,
2482 + .1991E-03, .3983E-04, .4783E-03, .1741E-04,
2483 + .0000E+00, .0000E+00, .1079E-03, .3597E-04,
2484 + .1799E-03, .3597E-04, .4320E-03, .1393E-04,
2485 + .0000E+00, .0000E+00, .9734E-04, .3245E-04,
2486 + .1622E-03, .3245E-04, .3897E-03, .1118E-04,
2487 + .0000E+00, .0000E+00, .8768E-04, .2923E-04,
2488 + .1461E-03, .2923E-04, .3510E-03, .9003E-05,
2489 + .0000E+00, .0000E+00, .7888E-04, .2629E-04,
2490 + .1315E-03, .2629E-04, .3158E-03, .7282E-05,
2491 + .0000E+00, .0000E+00, .7086E-04, .2362E-04,
2492 + .1181E-03, .2362E-04, .2837E-03, .5915E-05,
2493 + .0000E+00, .0000E+00, .6357E-04, .2119E-04,
2494 + .1059E-03, .2119E-04, .2545E-03, .4828E-05/
2495 DATA ((CELC(I,K,24),I=1,8), K=19,20) /
2496 + .0000E+00, .0000E+00, .5695E-04, .1898E-04,
2497 + .9492E-04, .1898E-04, .2280E-03, .3959E-05,
2498 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2499 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2500 DATA ((CELC(I,K,25),I=1,8), K=1,9) /
2501 + .0000E+00, .0000E+00, .2800E-03, .9332E-04,
2502 + .4666E-03, .9332E-04, .1120E-02, .1382E-03,
2503 + .0000E+00, .0000E+00, .2541E-03, .8470E-04,
2504 + .4235E-03, .8470E-04, .1016E-02, .1080E-03,
2505 + .0000E+00, .0000E+00, .2303E-03, .7677E-04,
2506 + .3838E-03, .7677E-04, .9213E-03, .8428E-04,
2507 + .0000E+00, .0000E+00, .2084E-03, .6948E-04,
2508 + .3474E-03, .6948E-04, .8338E-03, .6567E-04,
2509 + .0000E+00, .0000E+00, .1884E-03, .6279E-04,
2510 + .3139E-03, .6279E-04, .7536E-03, .5109E-04,
2511 + .0000E+00, .0000E+00, .1700E-03, .5666E-04,
2512 + .2833E-03, .5666E-04, .6800E-03, .3972E-04,
2513 + .0000E+00, .0000E+00, .1532E-03, .5105E-04,
2514 + .2553E-03, .5105E-04, .6127E-03, .3087E-04,
2515 + .0000E+00, .0000E+00, .1378E-03, .4593E-04,
2516 + .2297E-03, .4593E-04, .5513E-03, .2401E-04,
2517 + .0000E+00, .0000E+00, .1238E-03, .4127E-04,
2518 + .2063E-03, .4127E-04, .4953E-03, .1869E-04/
2519 DATA ((CELC(I,K,25),I=1,8), K=10,18) /
2520 + .0000E+00, .0000E+00, .1111E-03, .3702E-04,
2521 + .1851E-03, .3702E-04, .4444E-03, .1458E-04,
2522 + .0000E+00, .0000E+00, .9948E-04, .3316E-04,
2523 + .1658E-03, .3316E-04, .3981E-03, .1140E-04,
2524 + .0000E+00, .0000E+00, .8899E-04, .2966E-04,
2525 + .1483E-03, .2966E-04, .3561E-03, .8939E-05,
2526 + .0000E+00, .0000E+00, .7948E-04, .2649E-04,
2527 + .1325E-03, .2649E-04, .3180E-03, .7038E-05,
2528 + .0000E+00, .0000E+00, .7089E-04, .2363E-04,
2529 + .1182E-03, .2363E-04, .2837E-03, .5566E-05,
2530 + .0000E+00, .0000E+00, .6314E-04, .2105E-04,
2531 + .1052E-03, .2105E-04, .2527E-03, .4423E-05,
2532 + .0000E+00, .0000E+00, .5616E-04, .1872E-04,
2533 + .9360E-04, .1872E-04, .2247E-03, .3533E-05,
2534 + .0000E+00, .0000E+00, .4988E-04, .1663E-04,
2535 + .8313E-04, .1663E-04, .1996E-03, .2837E-05,
2536 + .0000E+00, .0000E+00, .4424E-04, .1475E-04,
2537 + .7373E-04, .1475E-04, .1770E-03, .2291E-05/
2538 DATA ((CELC(I,K,25),I=1,8), K=19,20) /
2539 + .0000E+00, .0000E+00, .3918E-04, .1306E-04,
2540 + .6530E-04, .1306E-04, .1568E-03, .1861E-05,
2541 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2542 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2543 DATA ((CELC(I,K,26),I=1,8), K=1,9) /
2544 + .0000E+00, .0000E+00, .2274E-03, .7579E-04,
2545 + .3789E-03, .7579E-04, .9094E-03, .8359E-04,
2546 + .0000E+00, .0000E+00, .2039E-03, .6796E-04,
2547 + .3398E-03, .6796E-04, .8155E-03, .6354E-04,
2548 + .0000E+00, .0000E+00, .1826E-03, .6085E-04,
2549 + .3043E-03, .6085E-04, .7302E-03, .4831E-04,
2550 + .0000E+00, .0000E+00, .1632E-03, .5441E-04,
2551 + .2720E-03, .5441E-04, .6529E-03, .3670E-04,
2552 + .0000E+00, .0000E+00, .1457E-03, .4857E-04,
2553 + .2428E-03, .4857E-04, .5828E-03, .2784E-04,
2554 + .0000E+00, .0000E+00, .1299E-03, .4329E-04,
2555 + .2165E-03, .4329E-04, .5195E-03, .2112E-04,
2556 + .0000E+00, .0000E+00, .1156E-03, .3853E-04,
2557 + .1926E-03, .3853E-04, .4624E-03, .1603E-04,
2558 + .0000E+00, .0000E+00, .1027E-03, .3424E-04,
2559 + .1712E-03, .3424E-04, .4109E-03, .1218E-04,
2560 + .0000E+00, .0000E+00, .9113E-04, .3038E-04,
2561 + .1519E-03, .3038E-04, .3645E-03, .9282E-05/
2562 DATA ((CELC(I,K,26),I=1,8), K=10,18) /
2563 + .0000E+00, .0000E+00, .8073E-04, .2691E-04,
2564 + .1346E-03, .2691E-04, .3230E-03, .7092E-05,
2565 + .0000E+00, .0000E+00, .7141E-04, .2380E-04,
2566 + .1190E-03, .2380E-04, .2857E-03, .5439E-05,
2567 + .0000E+00, .0000E+00, .6307E-04, .2102E-04,
2568 + .1051E-03, .2102E-04, .2523E-03, .4190E-05,
2569 + .0000E+00, .0000E+00, .5562E-04, .1854E-04,
2570 + .9271E-04, .1854E-04, .2225E-03, .3245E-05,
2571 + .0000E+00, .0000E+00, .4898E-04, .1633E-04,
2572 + .8163E-04, .1633E-04, .1959E-03, .2527E-05,
2573 + .0000E+00, .0000E+00, .4307E-04, .1436E-04,
2574 + .7178E-04, .1436E-04, .1723E-03, .1981E-05,
2575 + .0000E+00, .0000E+00, .3781E-04, .1260E-04,
2576 + .6302E-04, .1260E-04, .1513E-03, .1562E-05,
2577 + .0000E+00, .0000E+00, .3315E-04, .1105E-04,
2578 + .5525E-04, .1105E-04, .1326E-03, .1240E-05,
2579 + .0000E+00, .0000E+00, .2902E-04, .9673E-05,
2580 + .4837E-04, .9673E-05, .1161E-03, .9909E-06/
2581 DATA ((CELC(I,K,26),I=1,8), K=19,20) /
2582 + .0000E+00, .0000E+00, .2537E-04, .8456E-05,
2583 + .4228E-04, .8456E-05, .1015E-03, .7967E-06,
2584 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2585 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2586 DATA ((CELC(I,K,27),I=1,8), K=1,9) /
2587 + .0000E+00, .0000E+00, .1771E-03, .5904E-04,
2588 + .2952E-03, .5904E-04, .7085E-03, .4632E-04,
2589 + .0000E+00, .0000E+00, .1566E-03, .5220E-04,
2590 + .2610E-03, .5220E-04, .6264E-03, .3411E-04,
2591 + .0000E+00, .0000E+00, .1383E-03, .4609E-04,
2592 + .2304E-03, .4609E-04, .5530E-03, .2517E-04,
2593 + .0000E+00, .0000E+00, .1219E-03, .4062E-04,
2594 + .2031E-03, .4062E-04, .4875E-03, .1857E-04,
2595 + .0000E+00, .0000E+00, .1073E-03, .3575E-04,
2596 + .1788E-03, .3575E-04, .4290E-03, .1369E-04,
2597 + .0000E+00, .0000E+00, .9423E-04, .3141E-04,
2598 + .1571E-03, .3141E-04, .3769E-03, .1010E-04,
2599 + .0000E+00, .0000E+00, .8266E-04, .2755E-04,
2600 + .1378E-03, .2755E-04, .3306E-03, .7468E-05,
2601 + .0000E+00, .0000E+00, .7240E-04, .2413E-04,
2602 + .1207E-03, .2413E-04, .2896E-03, .5534E-05,
2603 + .0000E+00, .0000E+00, .6331E-04, .2110E-04,
2604 + .1055E-03, .2110E-04, .2532E-03, .4116E-05/
2605 DATA ((CELC(I,K,27),I=1,8), K=10,18) /
2606 + .0000E+00, .0000E+00, .5527E-04, .1842E-04,
2607 + .9212E-04, .1842E-04, .2211E-03, .3075E-05,
2608 + .0000E+00, .0000E+00, .4818E-04, .1606E-04,
2609 + .8030E-04, .1606E-04, .1927E-03, .2310E-05,
2610 + .0000E+00, .0000E+00, .4193E-04, .1398E-04,
2611 + .6988E-04, .1398E-04, .1677E-03, .1746E-05,
2612 + .0000E+00, .0000E+00, .3643E-04, .1214E-04,
2613 + .6072E-04, .1214E-04, .1457E-03, .1329E-05,
2614 + .0000E+00, .0000E+00, .3161E-04, .1054E-04,
2615 + .5268E-04, .1054E-04, .1264E-03, .1019E-05,
2616 + .0000E+00, .0000E+00, .2738E-04, .9126E-05,
2617 + .4563E-04, .9126E-05, .1095E-03, .7875E-06,
2618 + .0000E+00, .0000E+00, .2368E-04, .7893E-05,
2619 + .3947E-04, .7893E-05, .9472E-04, .6131E-06,
2620 + .0000E+00, .0000E+00, .2045E-04, .6816E-05,
2621 + .3408E-04, .6816E-05, .8180E-04, .4810E-06,
2622 + .0000E+00, .0000E+00, .1763E-04, .5878E-05,
2623 + .2939E-04, .5878E-05, .7053E-04, .3800E-06/
2624 DATA ((CELC(I,K,27),I=1,8), K=19,20) /
2625 + .0000E+00, .0000E+00, .1518E-04, .5061E-05,
2626 + .2530E-04, .5061E-05, .6073E-04, .3022E-06,
2627 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2628 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2629 DATA ((CELC(I,K,28),I=1,8), K=1,9) /
2630 + .0000E+00, .0000E+00, .1305E-03, .4350E-04,
2631 + .2175E-03, .4350E-04, .5220E-03, .2278E-04,
2632 + .0000E+00, .0000E+00, .1134E-03, .3781E-04,
2633 + .1891E-03, .3781E-04, .4538E-03, .1615E-04,
2634 + .0000E+00, .0000E+00, .9847E-04, .3282E-04,
2635 + .1641E-03, .3282E-04, .3939E-03, .1150E-04,
2636 + .0000E+00, .0000E+00, .8533E-04, .2844E-04,
2637 + .1422E-03, .2844E-04, .3413E-03, .8211E-05,
2638 + .0000E+00, .0000E+00, .7382E-04, .2461E-04,
2639 + .1230E-03, .2461E-04, .2953E-03, .5854E-05,
2640 + .0000E+00, .0000E+00, .6375E-04, .2125E-04,
2641 + .1063E-03, .2125E-04, .2550E-03, .4183E-05,
2642 + .0000E+00, .0000E+00, .5497E-04, .1832E-04,
2643 + .9162E-04, .1832E-04, .2199E-03, .3001E-05,
2644 + .0000E+00, .0000E+00, .4732E-04, .1577E-04,
2645 + .7886E-04, .1577E-04, .1893E-03, .2162E-05,
2646 + .0000E+00, .0000E+00, .4066E-04, .1355E-04,
2647 + .6777E-04, .1355E-04, .1626E-03, .1566E-05/
2648 DATA ((CELC(I,K,28),I=1,8), K=10,18) /
2649 + .0000E+00, .0000E+00, .3488E-04, .1163E-04,
2650 + .5814E-04, .1163E-04, .1395E-03, .1142E-05,
2651 + .0000E+00, .0000E+00, .2988E-04, .9959E-05,
2652 + .4980E-04, .9959E-05, .1195E-03, .8389E-06,
2653 + .0000E+00, .0000E+00, .2555E-04, .8516E-05,
2654 + .4258E-04, .8516E-05, .1022E-03, .6216E-06,
2655 + .0000E+00, .0000E+00, .2181E-04, .7270E-05,
2656 + .3635E-04, .7270E-05, .8723E-04, .4647E-06,
2657 + .0000E+00, .0000E+00, .1859E-04, .6196E-05,
2658 + .3098E-04, .6196E-05, .7435E-04, .3506E-06,
2659 + .0000E+00, .0000E+00, .1582E-04, .5272E-05,
2660 + .2636E-04, .5272E-05, .6326E-04, .2669E-06,
2661 + .0000E+00, .0000E+00, .1344E-04, .4479E-05,
2662 + .2239E-04, .4479E-05, .5374E-04, .2050E-06,
2663 + .0000E+00, .0000E+00, .1140E-04, .3799E-05,
2664 + .1899E-04, .3799E-05, .4558E-04, .1587E-06,
2665 + .0000E+00, .0000E+00, .9651E-05, .3217E-05,
2666 + .1609E-04, .3217E-05, .3860E-04, .1238E-06/
2667 DATA ((CELC(I,K,28),I=1,8), K=19,20) /
2668 + .0000E+00, .0000E+00, .8160E-05, .2720E-05,
2669 + .1360E-04, .2720E-05, .3264E-04, .9727E-07,
2670 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2671 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2672 DATA ((CELC(I,K,29),I=1,8), K=1,9) /
2673 + .0000E+00, .0000E+00, .8872E-04, .2957E-04,
2674 + .1479E-03, .2957E-04, .3549E-03, .9408E-05,
2675 + .0000E+00, .0000E+00, .7550E-04, .2517E-04,
2676 + .1258E-03, .2517E-04, .3020E-03, .6361E-05,
2677 + .0000E+00, .0000E+00, .6417E-04, .2139E-04,
2678 + .1069E-03, .2139E-04, .2567E-03, .4341E-05,
2679 + .0000E+00, .0000E+00, .5444E-04, .1815E-04,
2680 + .9073E-04, .1815E-04, .2178E-03, .2981E-05,
2681 + .0000E+00, .0000E+00, .4611E-04, .1537E-04,
2682 + .7684E-04, .1537E-04, .1844E-03, .2042E-05,
2683 + .0000E+00, .0000E+00, .3898E-04, .1299E-04,
2684 + .6496E-04, .1299E-04, .1559E-03, .1405E-05,
2685 + .0000E+00, .0000E+00, .3290E-04, .1097E-04,
2686 + .5483E-04, .1097E-04, .1316E-03, .9737E-06,
2687 + .0000E+00, .0000E+00, .2771E-04, .9238E-05,
2688 + .4619E-04, .9238E-05, .1108E-03, .6792E-06,
2689 + .0000E+00, .0000E+00, .2331E-04, .7768E-05,
2690 + .3884E-04, .7768E-05, .9322E-04, .4776E-06/
2691 DATA ((CELC(I,K,29),I=1,8), K=10,18) /
2692 + .0000E+00, .0000E+00, .1956E-04, .6522E-05,
2693 + .3261E-04, .6522E-05, .7826E-04, .3392E-06,
2694 + .0000E+00, .0000E+00, .1640E-04, .5465E-05,
2695 + .2733E-04, .5465E-05, .6558E-04, .2433E-06,
2696 + .0000E+00, .0000E+00, .1372E-04, .4572E-05,
2697 + .2286E-04, .4572E-05, .5486E-04, .1765E-06,
2698 + .0000E+00, .0000E+00, .1145E-04, .3818E-05,
2699 + .1909E-04, .3818E-05, .4582E-04, .1295E-06,
2700 + .0000E+00, .0000E+00, .9550E-05, .3183E-05,
2701 + .1592E-04, .3183E-05, .3820E-04, .9600E-07,
2702 + .0000E+00, .0000E+00, .7948E-05, .2649E-05,
2703 + .1325E-04, .2649E-05, .3179E-04, .7192E-07,
2704 + .0000E+00, .0000E+00, .6604E-05, .2201E-05,
2705 + .1101E-04, .2201E-05, .2642E-04, .5440E-07,
2706 + .0000E+00, .0000E+00, .5478E-05, .1826E-05,
2707 + .9130E-05, .1826E-05, .2191E-04, .4149E-07,
2708 + .0000E+00, .0000E+00, .4537E-05, .1512E-05,
2709 + .7561E-05, .1512E-05, .1815E-04, .3188E-07/
2710 DATA ((CELC(I,K,29),I=1,8), K=19,20) /
2711 + .0000E+00, .0000E+00, .3751E-05, .1250E-05,
2712 + .6251E-05, .1250E-05, .1500E-04, .2465E-07,
2713 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2714 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2715 DATA ((CELC(I,K,30),I=1,8), K=1,9) /
2716 + .0000E+00, .0000E+00, .5304E-04, .1768E-04,
2717 + .8841E-04, .1768E-04, .2122E-03, .2931E-05,
2718 + .0000E+00, .0000E+00, .4390E-04, .1463E-04,
2719 + .7317E-04, .1463E-04, .1756E-03, .1861E-05,
2720 + .0000E+00, .0000E+00, .3629E-04, .1210E-04,
2721 + .6048E-04, .1210E-04, .1452E-03, .1202E-05,
2722 + .0000E+00, .0000E+00, .2994E-04, .9981E-05,
2723 + .4990E-04, .9981E-05, .1198E-03, .7899E-06,
2724 + .0000E+00, .0000E+00, .2466E-04, .8219E-05,
2725 + .4110E-04, .8219E-05, .9863E-04, .5147E-06,
2726 + .0000E+00, .0000E+00, .2027E-04, .6756E-05,
2727 + .3378E-04, .6756E-05, .8107E-04, .3371E-06,
2728 + .0000E+00, .0000E+00, .1663E-04, .5543E-05,
2729 + .2771E-04, .5543E-05, .6651E-04, .2249E-06,
2730 + .0000E+00, .0000E+00, .1362E-04, .4539E-05,
2731 + .2269E-04, .4539E-05, .5447E-04, .1513E-06,
2732 + .0000E+00, .0000E+00, .1113E-04, .3710E-05,
2733 + .1855E-04, .3710E-05, .4452E-04, .1027E-06/
2734 DATA ((CELC(I,K,30),I=1,8), K=10,18) /
2735 + .0000E+00, .0000E+00, .9081E-05, .3027E-05,
2736 + .1513E-04, .3027E-05, .3632E-04, .7089E-07,
2737 + .0000E+00, .0000E+00, .7395E-05, .2465E-05,
2738 + .1233E-04, .2465E-05, .2958E-04, .4961E-07,
2739 + .0000E+00, .0000E+00, .6011E-05, .2004E-05,
2740 + .1002E-04, .2004E-05, .2405E-04, .3514E-07,
2741 + .0000E+00, .0000E+00, .4878E-05, .1626E-05,
2742 + .8130E-05, .1626E-05, .1951E-04, .2525E-07,
2743 + .0000E+00, .0000E+00, .3951E-05, .1317E-05,
2744 + .6585E-05, .1317E-05, .1580E-04, .1837E-07,
2745 + .0000E+00, .0000E+00, .3194E-05, .1065E-05,
2746 + .5324E-05, .1065E-05, .1278E-04, .1349E-07,
2747 + .0000E+00, .0000E+00, .2578E-05, .8594E-06,
2748 + .4297E-05, .8594E-06, .1031E-04, .1001E-07,
2749 + .0000E+00, .0000E+00, .2077E-05, .6924E-06,
2750 + .3462E-05, .6924E-06, .8309E-05, .7482E-08,
2751 + .0000E+00, .0000E+00, .1671E-05, .5569E-06,
2752 + .2785E-05, .5569E-06, .6683E-05, .5625E-08/
2753 DATA ((CELC(I,K,30),I=1,8), K=19,20) /
2754 + .0000E+00, .0000E+00, .1342E-05, .4472E-06,
2755 + .2236E-05, .4472E-06, .5366E-05, .4252E-08,
2756 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2757 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2758 DATA ((CELC(I,K,31),I=1,8), K=1,9) /
2759 + .0000E+00, .0000E+00, .2490E-04, .8300E-05,
2760 + .4150E-04, .8300E-05, .9960E-04, .5345E-06,
2761 + .0000E+00, .0000E+00, .1976E-04, .6588E-05,
2762 + .3294E-04, .6588E-05, .7906E-04, .3091E-06,
2763 + .0000E+00, .0000E+00, .1568E-04, .5228E-05,
2764 + .2614E-04, .5228E-05, .6273E-04, .1851E-06,
2765 + .0000E+00, .0000E+00, .1243E-04, .4142E-05,
2766 + .2071E-04, .4142E-05, .4970E-04, .1160E-06,
2767 + .0000E+00, .0000E+00, .9825E-05, .3275E-05,
2768 + .1638E-04, .3275E-05, .3930E-04, .7050E-07,
2769 + .0000E+00, .0000E+00, .7755E-05, .2585E-05,
2770 + .1293E-04, .2585E-05, .3102E-04, .4259E-07,
2771 + .0000E+00, .0000E+00, .6110E-05, .2037E-05,
2772 + .1018E-04, .2037E-05, .2444E-04, .2736E-07,
2773 + .0000E+00, .0000E+00, .4805E-05, .1602E-05,
2774 + .8009E-05, .1602E-05, .1922E-04, .1788E-07,
2775 + .0000E+00, .0000E+00, .3772E-05, .1257E-05,
2776 + .6287E-05, .1257E-05, .1509E-04, .1149E-07/
2777 DATA ((CELC(I,K,31),I=1,8), K=10,18) /
2778 + .0000E+00, .0000E+00, .2955E-05, .9851E-06,
2779 + .4925E-05, .9851E-06, .1182E-04, .7633E-08,
2780 + .0000E+00, .0000E+00, .2311E-05, .7703E-06,
2781 + .3852E-05, .7703E-06, .9244E-05, .5271E-08,
2782 + .0000E+00, .0000E+00, .1804E-05, .6012E-06,
2783 + .3006E-05, .6012E-06, .7215E-05, .3627E-08,
2784 + .0000E+00, .0000E+00, .1405E-05, .4683E-06,
2785 + .2342E-05, .4683E-06, .5620E-05, .2519E-08,
2786 + .0000E+00, .0000E+00, .1092E-05, .3641E-06,
2787 + .1821E-05, .3641E-06, .4369E-05, .1796E-08,
2788 + .0000E+00, .0000E+00, .8476E-06, .2825E-06,
2789 + .1413E-05, .2825E-06, .3390E-05, .1284E-08,
2790 + .0000E+00, .0000E+00, .6564E-06, .2188E-06,
2791 + .1094E-05, .2188E-06, .2625E-05, .9189E-09,
2792 + .0000E+00, .0000E+00, .5073E-06, .1691E-06,
2793 + .8455E-06, .1691E-06, .2029E-05, .6668E-09,
2794 + .0000E+00, .0000E+00, .3913E-06, .1304E-06,
2795 + .6522E-06, .1304E-06, .1565E-05, .4847E-09/
2796 DATA ((CELC(I,K,31),I=1,8), K=19,20) /
2797 + .0000E+00, .0000E+00, .3013E-06, .1004E-06,
2798 + .5021E-06, .1004E-06, .1205E-05, .3507E-09,
2799 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2800 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2801 DATA ((CELC(I,K,32),I=1,8), K=1,9) /
2802 + .0000E+00, .0000E+00, .6091E-05, .2030E-05,
2803 + .1015E-04, .2030E-05, .2436E-04, .2282E-07,
2804 + .0000E+00, .0000E+00, .4497E-05, .1499E-05,
2805 + .7496E-05, .1499E-05, .1799E-04, .1070E-07,
2806 + .0000E+00, .0000E+00, .3322E-05, .1107E-05,
2807 + .5537E-05, .1107E-05, .1329E-04, .5779E-08,
2808 + .0000E+00, .0000E+00, .2448E-05, .8160E-06,
2809 + .4080E-05, .8160E-06, .9792E-05, .4083E-08,
2810 + .0000E+00, .0000E+00, .1795E-05, .5984E-06,
2811 + .2992E-05, .5984E-06, .7181E-05, .2368E-08,
2812 + .0000E+00, .0000E+00, .1312E-05, .4372E-06,
2813 + .2186E-05, .4372E-06, .5247E-05, .1090E-08,
2814 + .0000E+00, .0000E+00, .9547E-06, .3182E-06,
2815 + .1591E-05, .3182E-06, .3819E-05, .8345E-09,
2816 + .0000E+00, .0000E+00, .6917E-06, .2306E-06,
2817 + .1153E-05, .2306E-06, .2767E-05, .7180E-09,
2818 + .0000E+00, .0000E+00, .4989E-06, .1663E-06,
2819 + .8314E-06, .1663E-06, .1995E-05, .3660E-09/
2820 DATA ((CELC(I,K,32),I=1,8), K=10,18) /
2821 + .0000E+00, .0000E+00, .3580E-06, .1193E-06,
2822 + .5966E-06, .1193E-06, .1432E-05, .1734E-09,
2823 + .0000E+00, .0000E+00, .2555E-06, .8516E-07,
2824 + .4258E-06, .8516E-07, .1022E-05, .1700E-09,
2825 + .0000E+00, .0000E+00, .1813E-06, .6042E-07,
2826 + .3021E-06, .6042E-07, .7251E-06, .1219E-09,
2827 + .0000E+00, .0000E+00, .1278E-06, .4261E-07,
2828 + .2130E-06, .4261E-07, .5113E-06, .4408E-10,
2829 + .0000E+00, .0000E+00, .8952E-07, .2984E-07,
2830 + .1492E-06, .2984E-07, .3581E-06, .2505E-10,
2831 + .0000E+00, .0000E+00, .6223E-07, .2074E-07,
2832 + .1037E-06, .2074E-07, .2489E-06, .2685E-10,
2833 + .0000E+00, .0000E+00, .4291E-07, .1430E-07,
2834 + .7152E-07, .1430E-07, .1717E-06, .1174E-10,
2835 + .0000E+00, .0000E+00, .2933E-07, .9777E-08,
2836 + .4889E-07, .9777E-08, .1173E-06, .6037E-12,
2837 + .0000E+00, .0000E+00, .1985E-07, .6618E-08,
2838 + .3309E-07, .6618E-08, .7941E-07, .1474E-11/
2839 DATA ((CELC(I,K,32),I=1,8), K=19,20) /
2840 + .0000E+00, .0000E+00, .1329E-07, .4430E-08,
2841 + .2215E-07, .4430E-08, .5316E-07, .1234E-11,
2842 + .0000E+00, .0000E+00, .0000E+00, .0000E+00,
2843 + .0000E+00, .0000E+00, .0000E+00, .0000E+00/
2844 C----------------------------------------------------------------------
2846 SAVE ISTART,OWLAM2,Q02,FLAV,KA, /W5051IA/, /W5051IB/
2848 IF (ISTART.EQ.0) THEN
2853 CALCO(M,I,K) = CALC(M,I,K)
2854 10 CELCO(M,I,K) = CELC(M,I,K)
2871 3 SB= LOG( LOG( MAX(Q02,Q2)/OWLAM2)/ LOG(Q02/OWLAM2))
2873 CALL AFGINT(8,0,X,SB,XPDF(7))
2874 CALL AFGINT(7,0,X,SB,SING)
2875 CALL AFGINT(4,0,X,SB,DPLUSNS)
2876 CALL AFGINT(3,0,X,SB,CPLUSNS)
2877 CALL AFGINT(5,0,X,SB,UPLUSNS)
2878 CALL AFGINT(6,0,X,SB,SPLUSNS)
2894 CALL AFGIN2(8,0,X,SB,XPDF(7))
2895 CALL AFGIN2(7,0,X,SB,SING)
2896 CALL AFGIN2(4,0,X,SB,DPLUSNS)
2897 CALL AFGIN2(3,0,X,SB,CPLUSNS)
2898 CALL AFGIN2(5,0,X,SB,UPLUSNS)
2899 CALL AFGIN2(6,0,X,SB,SPLUSNS)
git://git.uio.no / u / mrichter / AliRoot.git / blob