]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.2 1996/10/30 08:32:30 cernlib | |
6 | * Version 7.04 | |
7 | * | |
8 | * Revision 1.2 1996/10/28 15:05:02 pdflib | |
9 | * PDFLIB new version 7.04 | |
10 | * | |
11 | * Revision 1.1.1.1 1996/04/12 15:29:30 plothow | |
12 | * Version 7.01 | |
13 | * | |
14 | * | |
15 | #include "pdf/pilot.h" | |
16 | SUBROUTINE SFAFG1(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DGL) | |
17 | C | |
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. | |
23 | C | |
24 | C The Q**2 evolution is a BLL evolution (MSbar scheme) with Nf=4 | |
25 | C and LAMBDA(MSbar)=.200 Gev. | |
26 | C | |
27 | C A massless charm distribution is generated for Q**2 > 2 Gev**2. | |
28 | C | |
29 | C The distributions are the sum of a pointlike part (PL) and of a | |
30 | C Vdm part (VDM): | |
31 | C dist=PL + KA*VDM | |
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). | |
37 | C | |
38 | C The output of the program is written in the file GETOUT with the | |
39 | C following conventions | |
40 | C UPLUS=x(u+ubar) | |
41 | C DPLUS=x(d+dbar) | |
42 | C SPLUS=x(s+sbar) | |
43 | C CPLUS=x(c+cbar) | |
44 | C SING =UPLUS+DPLUS+SPLUS+CPLUS | |
45 | C GLU =x*g | |
46 | C | |
47 | C The interpolation is valid for 2. < Q**2 < 5.5E+5 Gev**2, | |
48 | C and for .0015< x < .99 | |
49 | C | |
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. | |
53 | C | |
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). | |
58 | C | |
59 | C | |
60 | C************************************************************************** | |
61 | 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 | |
65 | REAL Q2 | |
66 | DIMENSION XPDF(7) | |
67 | DIMENSION PAR(30), CALC(8,20,32),CALCO(8,20,32) | |
68 | DIMENSION PAR2(30),CELC(8,20,32),CELCO(8,20,32) | |
69 | COMMON/W5051IA/CALCO | |
70 | COMMON/W5051IB/CELCO | |
71 | EXTERNAL AFCPLU | |
72 | DATA ZERO/0.0/ | |
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---------------------------------------------------------------------- | |
2845 | DATA ISTART/0/ | |
2846 | SAVE ISTART,OWLAM2,Q02,FLAV,KA, /W5051IA/, /W5051IB/ | |
2847 | C | |
2848 | IF (ISTART.EQ.0) THEN | |
2849 | ISTART=1 | |
2850 | DO 10 K=1,32 | |
2851 | DO 10 I=1,20 | |
2852 | DO 10 M=1,8 | |
2853 | CALCO(M,I,K) = CALC(M,I,K) | |
2854 | 10 CELCO(M,I,K) = CELC(M,I,K) | |
2855 | OWLAM=PAR(1) | |
2856 | OWLAM2=OWLAM**2 | |
2857 | Q02=PAR(30) | |
2858 | FLAV=PAR(25) | |
2859 | DELTA=PAR(29) | |
2860 | CALL WATE32 | |
2861 | KA=1.0 | |
2862 | ENDIF | |
2863 | C | |
2864 | X = DX | |
2865 | Q = DQ | |
2866 | Q2 = Q*Q | |
2867 | IDQ2=2 | |
2868 | SB=0. | |
2869 | IF(Q2-Q02) 1,1,2 | |
2870 | 2 IF(IDQ2-1) 1,1,3 | |
2871 | 3 SB= LOG( LOG( MAX(Q02,Q2)/OWLAM2)/ LOG(Q02/OWLAM2)) | |
2872 | 1 CONTINUE | |
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) | |
2879 | XPDF(3) = CPLUSNS | |
2880 | XPDF(4) = DPLUSNS | |
2881 | XPDF(5) = UPLUSNS | |
2882 | XPDF(6) = SPLUSNS | |
2883 | XPDF(1) = SING | |
2884 | C | |
2885 | ADD = XPDF(1)/FLAV | |
2886 | UPLUS= XPDF(5)+ADD | |
2887 | DPLUS=-XPDF(4)+ADD | |
2888 | SPLUS=-XPDF(6)+ADD | |
2889 | CPLUS=-XPDF(3)+ADD | |
2890 | SING=XPDF(1) | |
2891 | GLU=XPDF(7) | |
2892 | GL=GLU | |
2893 | * | |
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) | |
2900 | XPDF(3) = CPLUSNS | |
2901 | XPDF(4) = DPLUSNS | |
2902 | XPDF(5) = UPLUSNS | |
2903 | XPDF(6) = SPLUSNS | |
2904 | XPDF(1) = SING | |
2905 | C | |
2906 | ADD2 = XPDF(1)/FLAV | |
2907 | UPLU2= XPDF(5)+ADD2 | |
2908 | DPLU2=-XPDF(4)+ADD2 | |
2909 | SPLU2=-XPDF(6)+ADD2 | |
2910 | CPLU2=-XPDF(3)+ADD2 | |
2911 | SING2=XPDF(1) | |
2912 | GLU2=XPDF(7) | |
2913 | UB=UPLUS+UPLU2*KA | |
2914 | UV=UB | |
2915 | DB=DPLUS+DPLU2*KA | |
2916 | DV=DB | |
2917 | SB=SPLUS+SPLU2*KA | |
2918 | CB=CPLUS+CPLU2*KA | |
2919 | SING=SING+SING2*KA | |
2920 | GL=GLU+GLU2*KA | |
2921 | * | |
2922 | DUV=MAX(ZERO,UV) | |
2923 | DDV=MAX(ZERO,DV) | |
2924 | DUB=MAX(ZERO,UB) | |
2925 | DDB=MAX(ZERO,DB) | |
2926 | DSB=MAX(ZERO,SB) | |
2927 | DCB=MAX(ZERO,CB) | |
2928 | DGL=MAX(ZERO,GL) | |
2929 | C | |
2930 | RETURN | |
2931 | END |