Geant4  9.6.p02
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
grv98lo.f
Go to the documentation of this file.
1  SUBROUTINE po_grv98lo (ISET, X, Q2, UV, DV, US, DS, SS, GL)
2 C***********************************************************************
3 C
4 C GRV98 parton densities, leading order set
5 C
6 C For a detailed explanation see
7 C M. Glueck, E. Reya, A. Vogt :
8 C hep-ph/9806404 = DO-TH 98/07 = WUE-ITP-98-019
9 C (To appear in Eur. Phys. J. C)
10 C
11 C interpolation routine based on the original GRV98PA routine,
12 C adapted to define interpolation table as DATA statements
13 C
14 C (R.Engel, 09/98)
15 C
16 C
17 C INPUT: X = Bjorken-x (between 1.E-9 and 1.)
18 C Q2 = scale in GeV**2 (between 0.8 and 1.E6)
19 C
20 C OUTPUT: UV = u - u(bar), DV = d - d(bar), US = u(bar),
21 C DS = d(bar), SS = s = s(bar), GL = gluon.
22 C Always x times the distribution is returned.
23 C
24 C******************************************************i****************
25  IMPLICIT DOUBLE PRECISION (a-h, o-z)
26  SAVE
27 
28  parameter(npart=6, nx=68, nq=27, narg=2)
29  dimension xuvf(nx,nq), xdvf(nx,nq), xdef(nx,nq), xudf(nx,nq),
30  1 xsf(nx,nq), xgf(nx,nq),
31  2 xt(narg), na(narg), arrf(nx+nq)
32 
33  dimension xuvf_l(nx*nq), xdvf_l(nx*nq), xdef_l(nx*nq),
34  & xudf_l(nx*nq), xsf_l(nx*nq), xgf_l(nx*nq)
35 
36  equivalence(xuvf(1,1),xuvf_l(1))
37  equivalence(xdvf(1,1),xdvf_l(1))
38  equivalence(xdef(1,1),xdef_l(1))
39  equivalence(xudf(1,1),xudf_l(1))
40  equivalence(xsf(1,1),xsf_l(1))
41  equivalence(xgf(1,1),xgf_l(1))
42 
43  DATA (arrf(k),k= 1, 95) /
44  & -2.0723e+01,-2.0135e+01,-1.9560e+01,-1.8983e+01,-1.8421e+01,
45  & -1.7833e+01,-1.7258e+01,-1.6680e+01,-1.6118e+01,-1.5530e+01,
46  & -1.4955e+01,-1.4378e+01,-1.3816e+01,-1.3479e+01,-1.3122e+01,
47  & -1.2717e+01,-1.2311e+01,-1.1913e+01,-1.1513e+01,-1.1176e+01,
48  & -1.0820e+01,-1.0414e+01,-1.0009e+01,-9.6108e+00,-9.2103e+00,
49  & -8.8739e+00,-8.5172e+00,-8.1117e+00,-7.7063e+00,-7.3082e+00,
50  & -6.9078e+00,-6.5713e+00,-6.2146e+00,-5.8091e+00,-5.4037e+00,
51  & -5.0056e+00,-4.6052e+00,-4.2687e+00,-3.9120e+00,-3.5066e+00,
52  & -3.1011e+00,-2.8134e+00,-2.5257e+00,-2.3026e+00,-2.0794e+00,
53  & -1.8971e+00,-1.7430e+00,-1.6094e+00,-1.4917e+00,-1.3863e+00,
54  & -1.2910e+00,-1.2040e+00,-1.1239e+00,-1.0498e+00,-9.8083e-01,
55  & -9.1629e-01,-7.9851e-01,-6.9315e-01,-5.9784e-01,-5.1083e-01,
56  & -4.3078e-01,-3.5667e-01,-2.8768e-01,-2.2314e-01,-1.6252e-01,
57  & -1.0536e-01,-5.1293e-02, 0.0000e+00,-2.2314e-01, 0.0000e+00,
58  & 2.6236e-01, 5.8779e-01, 9.9325e-01, 1.3863e+00, 1.8563e+00,
59  & 2.3026e+00, 2.7726e+00, 3.2189e+00, 3.6889e+00, 4.1589e+00,
60  & 4.6052e+00, 5.1930e+00, 5.7683e+00, 6.3456e+00, 6.9078e+00,
61  & 7.4955e+00, 8.0709e+00, 8.6482e+00, 9.2103e+00, 9.9988e+00,
62  & 1.0736e+01, 1.1513e+01, 1.2301e+01, 1.3039e+01, 1.3816e+01/
63  DATA (xuvf_l(k),k= 1, 114) /
64  &2.3186e+00,2.2915e+00,2.2645e+00,2.2385e+00,2.2140e+00,2.1876e+00,
65  &2.1623e+00,2.1366e+00,2.1121e+00,2.0862e+00,2.0612e+00,2.0358e+00,
66  &2.0110e+00,1.9963e+00,1.9806e+00,1.9624e+00,1.9446e+00,1.9263e+00,
67  &1.9072e+00,1.8904e+00,1.8724e+00,1.8515e+00,1.8294e+00,1.8085e+00,
68  &1.7865e+00,1.7680e+00,1.7483e+00,1.7249e+00,1.6993e+00,1.6715e+00,
69  &1.6385e+00,1.6141e+00,1.5884e+00,1.5597e+00,1.5337e+00,1.5121e+00,
70  &1.4985e+00,1.4980e+00,1.5116e+00,1.5555e+00,1.6432e+00,1.7434e+00,
71  &1.8861e+00,2.0327e+00,2.2174e+00,2.4015e+00,2.5849e+00,2.7671e+00,
72  &2.9488e+00,3.1308e+00,3.3142e+00,3.4998e+00,3.6885e+00,3.8826e+00,
73  &4.0815e+00,4.2069e+00,4.5481e+00,4.8830e+00,5.2116e+00,5.5351e+00,
74  &5.8553e+00,6.1665e+00,6.4745e+00,6.7767e+00,7.0735e+00,7.3628e+00,
75  &7.6283e+00,0.0000e+00,2.3948e+00,2.3665e+00,2.3388e+00,2.3126e+00,
76  &2.2860e+00,2.2592e+00,2.2327e+00,2.2065e+00,2.1810e+00,2.1541e+00,
77  &2.1284e+00,2.1020e+00,2.0760e+00,2.0605e+00,2.0443e+00,2.0259e+00,
78  &2.0068e+00,1.9873e+00,1.9676e+00,1.9500e+00,1.9312e+00,1.9081e+00,
79  &1.8860e+00,1.8635e+00,1.8406e+00,1.8221e+00,1.8007e+00,1.7764e+00,
80  &1.7489e+00,1.7195e+00,1.6855e+00,1.6600e+00,1.6332e+00,1.6031e+00,
81  &1.5760e+00,1.5532e+00,1.5397e+00,1.5376e+00,1.5507e+00,1.5929e+00,
82  &1.6784e+00,1.7759e+00,1.9129e+00,2.0531e+00,2.2292e+00,2.4032e+00/
83  DATA (xuvf_l(k),k= 115, 228) /
84  &2.5752e+00,2.7449e+00,2.9135e+00,3.0810e+00,3.2491e+00,3.4183e+00,
85  &3.5898e+00,3.7650e+00,3.9437e+00,4.0443e+00,4.3402e+00,4.6262e+00,
86  &4.9009e+00,5.1640e+00,5.4156e+00,5.6530e+00,5.8759e+00,6.0779e+00,
87  &6.2540e+00,6.3836e+00,6.4062e+00,0.0000e+00,2.4808e+00,2.4513e+00,
88  &2.4236e+00,2.3948e+00,2.3680e+00,2.3397e+00,2.3127e+00,2.2853e+00,
89  &2.2585e+00,2.2307e+00,2.2026e+00,2.1762e+00,2.1490e+00,2.1332e+00,
90  &2.1164e+00,2.0964e+00,2.0766e+00,2.0565e+00,2.0353e+00,2.0171e+00,
91  &1.9969e+00,1.9738e+00,1.9501e+00,1.9258e+00,1.9026e+00,1.8821e+00,
92  &1.8594e+00,1.8330e+00,1.8046e+00,1.7734e+00,1.7378e+00,1.7112e+00,
93  &1.6829e+00,1.6514e+00,1.6228e+00,1.5994e+00,1.5840e+00,1.5808e+00,
94  &1.5927e+00,1.6334e+00,1.7157e+00,1.8093e+00,1.9406e+00,2.0735e+00,
95  &2.2394e+00,2.4019e+00,2.5615e+00,2.7178e+00,2.8718e+00,3.0246e+00,
96  &3.1766e+00,3.3284e+00,3.4820e+00,3.6370e+00,3.7952e+00,3.8716e+00,
97  &4.1225e+00,4.3580e+00,4.5798e+00,4.7847e+00,4.9730e+00,5.1395e+00,
98  &5.2832e+00,5.3945e+00,5.4634e+00,5.4612e+00,5.2940e+00,0.0000e+00,
99  &2.5823e+00,2.5527e+00,2.5226e+00,2.4928e+00,2.4650e+00,2.4358e+00,
100  &2.4071e+00,2.3783e+00,2.3505e+00,2.3212e+00,2.2928e+00,2.2636e+00,
101  &2.2360e+00,2.2185e+00,2.2005e+00,2.1801e+00,2.1591e+00,2.1376e+00,
102  &2.1153e+00,2.0960e+00,2.0747e+00,2.0505e+00,2.0247e+00,1.9991e+00/
103  DATA (xuvf_l(k),k= 229, 342) /
104  &1.9746e+00,1.9523e+00,1.9287e+00,1.9000e+00,1.8693e+00,1.8361e+00,
105  &1.7994e+00,1.7711e+00,1.7409e+00,1.7076e+00,1.6772e+00,1.6517e+00,
106  &1.6345e+00,1.6302e+00,1.6408e+00,1.6789e+00,1.7574e+00,1.8457e+00,
107  &1.9692e+00,2.0939e+00,2.2474e+00,2.3969e+00,2.5419e+00,2.6837e+00,
108  &2.8216e+00,2.9573e+00,3.0915e+00,3.2246e+00,3.3583e+00,3.4917e+00,
109  &3.6273e+00,3.6791e+00,3.8823e+00,4.0673e+00,4.2350e+00,4.3813e+00,
110  &4.5072e+00,4.6083e+00,4.6757e+00,4.7055e+00,4.6825e+00,4.5674e+00,
111  &4.2566e+00,0.0000e+00,2.7025e+00,2.6705e+00,2.6393e+00,2.6093e+00,
112  &2.5790e+00,2.5484e+00,2.5184e+00,2.4880e+00,2.4590e+00,2.4277e+00,
113  &2.3971e+00,2.3669e+00,2.3380e+00,2.3200e+00,2.3002e+00,2.2782e+00,
114  &2.2557e+00,2.2331e+00,2.2092e+00,2.1887e+00,2.1660e+00,2.1400e+00,
115  &2.1126e+00,2.0859e+00,2.0586e+00,2.0351e+00,2.0094e+00,1.9786e+00,
116  &1.9453e+00,1.9096e+00,1.8707e+00,1.8406e+00,1.8084e+00,1.7728e+00,
117  &1.7392e+00,1.7128e+00,1.6933e+00,1.6875e+00,1.6949e+00,1.7295e+00,
118  &1.8023e+00,1.8845e+00,1.9991e+00,2.1134e+00,2.2525e+00,2.3868e+00,
119  &2.5160e+00,2.6405e+00,2.7609e+00,2.8781e+00,2.9929e+00,3.1059e+00,
120  &3.2180e+00,3.3292e+00,3.4407e+00,3.4675e+00,3.6225e+00,3.7573e+00,
121  &3.8710e+00,3.9617e+00,4.0270e+00,4.0642e+00,4.0675e+00,4.0263e+00,
122  &3.9240e+00,3.7262e+00,3.3217e+00,0.0000e+00,2.8135e+00,2.7813e+00/
123  DATA (xuvf_l(k),k= 343, 456) /
124  &2.7489e+00,2.7166e+00,2.6850e+00,2.6527e+00,2.6212e+00,2.5898e+00,
125  &2.5592e+00,2.5267e+00,2.4943e+00,2.4636e+00,2.4320e+00,2.4129e+00,
126  &2.3929e+00,2.3695e+00,2.3453e+00,2.3211e+00,2.2959e+00,2.2740e+00,
127  &2.2496e+00,2.2221e+00,2.1931e+00,2.1653e+00,2.1356e+00,2.1112e+00,
128  &2.0830e+00,2.0503e+00,2.0147e+00,1.9766e+00,1.9361e+00,1.9037e+00,
129  &1.8696e+00,1.8318e+00,1.7966e+00,1.7677e+00,1.7459e+00,1.7378e+00,
130  &1.7430e+00,1.7738e+00,1.8407e+00,1.9169e+00,2.0223e+00,2.1273e+00,
131  &2.2537e+00,2.3742e+00,2.4892e+00,2.5990e+00,2.7043e+00,2.8056e+00,
132  &2.9038e+00,3.0000e+00,3.0936e+00,3.1864e+00,3.2782e+00,3.2867e+00,
133  &3.4021e+00,3.4971e+00,3.5691e+00,3.6188e+00,3.6422e+00,3.6335e+00,
134  &3.5908e+00,3.5036e+00,3.3552e+00,3.1085e+00,2.6634e+00,0.0000e+00,
135  &2.9406e+00,2.9062e+00,2.8726e+00,2.8385e+00,2.8060e+00,2.7720e+00,
136  &2.7392e+00,2.7058e+00,2.6734e+00,2.6399e+00,2.6057e+00,2.5722e+00,
137  &2.5390e+00,2.5194e+00,2.4975e+00,2.4728e+00,2.4471e+00,2.4216e+00,
138  &2.3945e+00,2.3712e+00,2.3458e+00,2.3152e+00,2.2856e+00,2.2545e+00,
139  &2.2237e+00,2.1966e+00,2.1672e+00,2.1312e+00,2.0926e+00,2.0521e+00,
140  &2.0093e+00,1.9748e+00,1.9384e+00,1.8975e+00,1.8601e+00,1.8275e+00,
141  &1.8036e+00,1.7924e+00,1.7948e+00,1.8206e+00,1.8808e+00,1.9499e+00,
142  &2.0450e+00,2.1390e+00,2.2512e+00,2.3570e+00,2.4564e+00,2.5501e+00/
143  DATA (xuvf_l(k),k= 457, 570) /
144  &2.6391e+00,2.7240e+00,2.8053e+00,2.8834e+00,2.9590e+00,3.0326e+00,
145  &3.1042e+00,3.0942e+00,3.1727e+00,3.2289e+00,3.2628e+00,3.2739e+00,
146  &3.2574e+00,3.2103e+00,3.1297e+00,3.0047e+00,2.8211e+00,2.5467e+00,
147  &2.0897e+00,0.0000e+00,3.0557e+00,3.0193e+00,2.9840e+00,2.9497e+00,
148  &2.9150e+00,2.8801e+00,2.8454e+00,2.8109e+00,2.7771e+00,2.7412e+00,
149  &2.7065e+00,2.6716e+00,2.6360e+00,2.6149e+00,2.5923e+00,2.5663e+00,
150  &2.5395e+00,2.5120e+00,2.4834e+00,2.4589e+00,2.4330e+00,2.4011e+00,
151  &2.3676e+00,2.3363e+00,2.3027e+00,2.2736e+00,2.2422e+00,2.2040e+00,
152  &2.1629e+00,2.1194e+00,2.0750e+00,2.0384e+00,1.9996e+00,1.9565e+00,
153  &1.9160e+00,1.8811e+00,1.8541e+00,1.8409e+00,1.8399e+00,1.8611e+00,
154  &1.9143e+00,1.9764e+00,2.0622e+00,2.1459e+00,2.2457e+00,2.3385e+00,
155  &2.4249e+00,2.5051e+00,2.5806e+00,2.6515e+00,2.7182e+00,2.7823e+00,
156  &2.8427e+00,2.9008e+00,2.9564e+00,2.9332e+00,2.9828e+00,3.0094e+00,
157  &3.0142e+00,2.9955e+00,2.9537e+00,2.8796e+00,2.7735e+00,2.6260e+00,
158  &2.4242e+00,2.1388e+00,1.6900e+00,0.0000e+00,3.1718e+00,3.1348e+00,
159  &3.0971e+00,3.0610e+00,3.0260e+00,2.9896e+00,2.9533e+00,2.9173e+00,
160  &2.8818e+00,2.8449e+00,2.8072e+00,2.7709e+00,2.7340e+00,2.7121e+00,
161  &2.6877e+00,2.6605e+00,2.6319e+00,2.6032e+00,2.5732e+00,2.5471e+00,
162  &2.5180e+00,2.4851e+00,2.4511e+00,2.4170e+00,2.3817e+00,2.3505e+00/
163  DATA (xuvf_l(k),k= 571, 684) /
164  &2.3172e+00,2.2762e+00,2.2328e+00,2.1868e+00,2.1400e+00,2.1012e+00,
165  &2.0601e+00,2.0136e+00,1.9704e+00,1.9335e+00,1.9035e+00,1.8868e+00,
166  &1.8827e+00,1.8990e+00,1.9452e+00,2.0005e+00,2.0763e+00,2.1507e+00,
167  &2.2377e+00,2.3179e+00,2.3917e+00,2.4592e+00,2.5218e+00,2.5799e+00,
168  &2.6336e+00,2.6843e+00,2.7314e+00,2.7753e+00,2.8166e+00,2.7824e+00,
169  &2.8054e+00,2.8081e+00,2.7893e+00,2.7474e+00,2.6818e+00,2.5888e+00,
170  &2.4646e+00,2.3032e+00,2.0902e+00,1.8025e+00,1.3740e+00,0.0000e+00,
171  &3.2793e+00,3.2385e+00,3.2014e+00,3.1643e+00,3.1270e+00,3.0888e+00,
172  &3.0517e+00,3.0141e+00,2.9773e+00,2.9392e+00,2.9009e+00,2.8610e+00,
173  &2.8230e+00,2.8000e+00,2.7754e+00,2.7459e+00,2.7163e+00,2.6858e+00,
174  &2.6545e+00,2.6270e+00,2.5962e+00,2.5617e+00,2.5271e+00,2.4903e+00,
175  &2.4527e+00,2.4207e+00,2.3851e+00,2.3421e+00,2.2960e+00,2.2476e+00,
176  &2.1987e+00,2.1578e+00,2.1146e+00,2.0670e+00,2.0202e+00,1.9796e+00,
177  &1.9468e+00,1.9282e+00,1.9203e+00,1.9319e+00,1.9712e+00,2.0197e+00,
178  &2.0872e+00,2.1524e+00,2.2288e+00,2.2981e+00,2.3606e+00,2.4177e+00,
179  &2.4692e+00,2.5159e+00,2.5591e+00,2.5981e+00,2.6339e+00,2.6669e+00,
180  &2.6962e+00,2.6528e+00,2.6566e+00,2.6395e+00,2.6028e+00,2.5437e+00,
181  &2.4622e+00,2.3555e+00,2.2200e+00,2.0488e+00,1.8335e+00,1.5506e+00,
182  &1.1442e+00,0.0000e+00,3.3868e+00,3.3470e+00,3.3075e+00,3.2689e+00/
183  DATA (xuvf_l(k),k= 685, 798) /
184  &3.2300e+00,3.1909e+00,3.1517e+00,3.1129e+00,3.0747e+00,3.0335e+00,
185  &2.9946e+00,2.9537e+00,2.9140e+00,2.8896e+00,2.8638e+00,2.8337e+00,
186  &2.8021e+00,2.7705e+00,2.7373e+00,2.7075e+00,2.6767e+00,2.6403e+00,
187  &2.6031e+00,2.5649e+00,2.5258e+00,2.4917e+00,2.4537e+00,2.4080e+00,
188  &2.3597e+00,2.3091e+00,2.2580e+00,2.2150e+00,2.1692e+00,2.1186e+00,
189  &2.0701e+00,2.0257e+00,1.9901e+00,1.9679e+00,1.9571e+00,1.9629e+00,
190  &1.9955e+00,2.0378e+00,2.0963e+00,2.1529e+00,2.2178e+00,2.2766e+00,
191  &2.3287e+00,2.3749e+00,2.4162e+00,2.4529e+00,2.4850e+00,2.5140e+00,
192  &2.5392e+00,2.5617e+00,2.5798e+00,2.5298e+00,2.5151e+00,2.4811e+00,
193  &2.4282e+00,2.3561e+00,2.2611e+00,2.1439e+00,2.0005e+00,1.8252e+00,
194  &1.6091e+00,1.3345e+00,9.5375e-01,0.0000e+00,3.4912e+00,3.4507e+00,
195  &3.4100e+00,3.3696e+00,3.3310e+00,3.2893e+00,3.2496e+00,3.2088e+00,
196  &3.1686e+00,3.1278e+00,3.0865e+00,3.0438e+00,3.0020e+00,2.9766e+00,
197  &2.9494e+00,2.9180e+00,2.8850e+00,2.8520e+00,2.8174e+00,2.7877e+00,
198  &2.7550e+00,2.7169e+00,2.6762e+00,2.6369e+00,2.5958e+00,2.5594e+00,
199  &2.5195e+00,2.4721e+00,2.4211e+00,2.3680e+00,2.3145e+00,2.2695e+00,
200  &2.2214e+00,2.1684e+00,2.1154e+00,2.0706e+00,2.0303e+00,2.0058e+00,
201  &1.9909e+00,1.9920e+00,2.0177e+00,2.0531e+00,2.1031e+00,2.1511e+00,
202  &2.2060e+00,2.2548e+00,2.2972e+00,2.3339e+00,2.3655e+00,2.3927e+00/
203  DATA (xuvf_l(k),k= 799, 912) /
204  &2.4159e+00,2.4357e+00,2.4520e+00,2.4644e+00,2.4735e+00,2.4171e+00,
205  &2.3878e+00,2.3397e+00,2.2743e+00,2.1907e+00,2.0861e+00,1.9611e+00,
206  &1.8128e+00,1.6351e+00,1.4227e+00,1.1584e+00,8.0371e-01,0.0000e+00,
207  &3.5892e+00,3.5473e+00,3.5055e+00,3.4637e+00,3.4230e+00,3.3809e+00,
208  &3.3396e+00,3.2976e+00,3.2571e+00,3.2126e+00,3.1696e+00,3.1272e+00,
209  &3.0840e+00,3.0569e+00,3.0286e+00,2.9959e+00,2.9619e+00,2.9273e+00,
210  &2.8910e+00,2.8598e+00,2.8266e+00,2.7863e+00,2.7448e+00,2.7029e+00,
211  &2.6598e+00,2.6219e+00,2.5804e+00,2.5305e+00,2.4773e+00,2.4214e+00,
212  &2.3662e+00,2.3191e+00,2.2698e+00,2.2126e+00,2.1577e+00,2.1092e+00,
213  &2.0674e+00,2.0393e+00,2.0210e+00,2.0173e+00,2.0367e+00,2.0654e+00,
214  &2.1076e+00,2.1485e+00,2.1942e+00,2.2338e+00,2.2678e+00,2.2959e+00,
215  &2.3193e+00,2.3386e+00,2.3539e+00,2.3660e+00,2.3738e+00,2.3789e+00,
216  &2.3799e+00,2.3197e+00,2.2776e+00,2.2186e+00,2.1426e+00,2.0495e+00,
217  &1.9397e+00,1.8097e+00,1.6583e+00,1.4814e+00,1.2736e+00,1.0200e+00,
218  &6.8880e-01,0.0000e+00,3.7157e+00,3.6699e+00,3.6275e+00,3.5842e+00,
219  &3.5420e+00,3.4972e+00,3.4542e+00,3.4107e+00,3.3678e+00,3.3234e+00,
220  &3.2774e+00,3.2332e+00,3.1870e+00,3.1600e+00,3.1297e+00,3.0952e+00,
221  &3.0595e+00,3.0231e+00,2.9850e+00,2.9534e+00,2.9160e+00,2.8740e+00,
222  &2.8312e+00,2.7872e+00,2.7408e+00,2.7014e+00,2.6568e+00,2.6045e+00/
223  DATA (xuvf_l(k),k= 913, 1026) /
224  &2.5481e+00,2.4895e+00,2.4315e+00,2.3817e+00,2.3283e+00,2.2697e+00,
225  &2.2106e+00,2.1591e+00,2.1128e+00,2.0807e+00,2.0578e+00,2.0477e+00,
226  &2.0583e+00,2.0796e+00,2.1122e+00,2.1433e+00,2.1777e+00,2.2069e+00,
227  &2.2299e+00,2.2483e+00,2.2618e+00,2.2718e+00,2.2778e+00,2.2803e+00,
228  &2.2797e+00,2.2749e+00,2.2668e+00,2.2019e+00,2.1468e+00,2.0761e+00,
229  &1.9902e+00,1.8883e+00,1.7711e+00,1.6370e+00,1.4847e+00,1.3103e+00,
230  &1.1091e+00,8.7047e-01,5.6856e-01,0.0000e+00,3.8327e+00,3.7877e+00,
231  &3.7424e+00,3.6981e+00,3.6540e+00,3.6083e+00,3.5637e+00,3.5184e+00,
232  &3.4753e+00,3.4271e+00,3.3800e+00,3.3325e+00,3.2860e+00,3.2564e+00,
233  &3.2258e+00,3.1893e+00,3.1519e+00,3.1135e+00,3.0738e+00,3.0389e+00,
234  &3.0010e+00,2.9580e+00,2.9118e+00,2.8654e+00,2.8178e+00,2.7758e+00,
235  &2.7289e+00,2.6738e+00,2.6146e+00,2.5530e+00,2.4924e+00,2.4399e+00,
236  &2.3845e+00,2.3213e+00,2.2605e+00,2.2040e+00,2.1540e+00,2.1186e+00,
237  &2.0908e+00,2.0749e+00,2.0772e+00,2.0914e+00,2.1145e+00,2.1368e+00,
238  &2.1613e+00,2.1804e+00,2.1941e+00,2.2037e+00,2.2088e+00,2.2101e+00,
239  &2.2083e+00,2.2031e+00,2.1942e+00,2.1826e+00,2.1665e+00,2.0987e+00,
240  &2.0321e+00,1.9516e+00,1.8571e+00,1.7497e+00,1.6281e+00,1.4923e+00,
241  &1.3406e+00,1.1697e+00,9.7635e-01,7.5209e-01,4.7638e-01,0.0000e+00,
242  &3.9497e+00,3.9009e+00,3.8555e+00,3.8080e+00,3.7630e+00,3.7163e+00/
243  DATA (xuvf_l(k),k= 1027, 1140) /
244  &3.6699e+00,3.6231e+00,3.5765e+00,3.5285e+00,3.4807e+00,3.4305e+00,
245  &3.3810e+00,3.3511e+00,3.3185e+00,3.2805e+00,3.2414e+00,3.2016e+00,
246  &3.1598e+00,3.1244e+00,3.0837e+00,3.0383e+00,2.9908e+00,2.9424e+00,
247  &2.8919e+00,2.8477e+00,2.7990e+00,2.7403e+00,2.6784e+00,2.6142e+00,
248  &2.5507e+00,2.4960e+00,2.4362e+00,2.3710e+00,2.3058e+00,2.2463e+00,
249  &2.1931e+00,2.1539e+00,2.1216e+00,2.0996e+00,2.0940e+00,2.1012e+00,
250  &2.1154e+00,2.1294e+00,2.1444e+00,2.1543e+00,2.1597e+00,2.1610e+00,
251  &2.1585e+00,2.1523e+00,2.1432e+00,2.1307e+00,2.1155e+00,2.0964e+00,
252  &2.0742e+00,2.0035e+00,1.9273e+00,1.8396e+00,1.7387e+00,1.6273e+00,
253  &1.5032e+00,1.3665e+00,1.2164e+00,1.0501e+00,8.6515e-01,6.5470e-01,
254  &4.0284e-01,0.0000e+00,4.0572e+00,4.0093e+00,3.9616e+00,3.9140e+00,
255  &3.8670e+00,3.8185e+00,3.7706e+00,3.7224e+00,3.6746e+00,3.6251e+00,
256  &3.5744e+00,3.5233e+00,3.4720e+00,3.4406e+00,3.4062e+00,3.3671e+00,
257  &3.3263e+00,3.2847e+00,3.2414e+00,3.2046e+00,3.1620e+00,3.1150e+00,
258  &3.0653e+00,3.0145e+00,2.9619e+00,2.9153e+00,2.8641e+00,2.8032e+00,
259  &2.7388e+00,2.6715e+00,2.6056e+00,2.5481e+00,2.4880e+00,2.4171e+00,
260  &2.3496e+00,2.2862e+00,2.2282e+00,2.1865e+00,2.1502e+00,2.1217e+00,
261  &2.1086e+00,2.1086e+00,2.1149e+00,2.1216e+00,2.1275e+00,2.1295e+00,
262  &2.1273e+00,2.1212e+00,2.1119e+00,2.0992e+00,2.0837e+00,2.0653e+00/
263  DATA (xuvf_l(k),k= 1141, 1254) /
264  &2.0442e+00,2.0194e+00,1.9912e+00,1.9193e+00,1.8359e+00,1.7412e+00,
265  &1.6366e+00,1.5214e+00,1.3956e+00,1.2594e+00,1.1115e+00,9.5033e-01,
266  &7.7356e-01,5.7585e-01,3.4506e-01,0.0000e+00,4.1710e+00,4.1201e+00,
267  &4.0712e+00,4.0213e+00,3.9730e+00,3.9228e+00,3.8734e+00,3.8233e+00,
268  &3.7726e+00,3.7217e+00,3.6699e+00,3.6160e+00,3.5640e+00,3.5311e+00,
269  &3.4960e+00,3.4549e+00,3.4121e+00,3.3689e+00,3.3237e+00,3.2848e+00,
270  &3.2425e+00,3.1917e+00,3.1399e+00,3.0866e+00,3.0319e+00,2.9838e+00,
271  &2.9306e+00,2.8668e+00,2.7992e+00,2.7291e+00,2.6605e+00,2.6007e+00,
272  &2.5375e+00,2.4631e+00,2.3919e+00,2.3261e+00,2.2643e+00,2.2183e+00,
273  &2.1772e+00,2.1426e+00,2.1222e+00,2.1155e+00,2.1135e+00,2.1130e+00,
274  &2.1102e+00,2.1039e+00,2.0941e+00,2.0815e+00,2.0652e+00,2.0466e+00,
275  &2.0251e+00,2.0014e+00,1.9746e+00,1.9450e+00,1.9116e+00,1.8381e+00,
276  &1.7481e+00,1.6484e+00,1.5404e+00,1.4225e+00,1.2963e+00,1.1611e+00,
277  &1.0161e+00,8.6047e-01,6.9193e-01,5.0691e-01,2.9581e-01,0.0000e+00,
278  &4.2754e+00,4.2238e+00,4.1737e+00,4.1233e+00,4.0740e+00,4.0219e+00,
279  &3.9713e+00,3.9196e+00,3.8675e+00,3.8160e+00,3.7618e+00,3.7060e+00,
280  &3.6510e+00,3.6173e+00,3.5808e+00,3.5380e+00,3.4941e+00,3.4493e+00,
281  &3.4027e+00,3.3623e+00,3.3163e+00,3.2647e+00,3.2114e+00,3.1563e+00,
282  &3.0989e+00,3.0489e+00,2.9929e+00,2.9263e+00,2.8563e+00,2.7837e+00/
283  DATA (xuvf_l(k),k= 1255, 1368) /
284  &2.7122e+00,2.6501e+00,2.5825e+00,2.5073e+00,2.4327e+00,2.3623e+00,
285  &2.2962e+00,2.2474e+00,2.2020e+00,2.1616e+00,2.1335e+00,2.1209e+00,
286  &2.1113e+00,2.1034e+00,2.0929e+00,2.0795e+00,2.0634e+00,2.0439e+00,
287  &2.0222e+00,1.9982e+00,1.9716e+00,1.9428e+00,1.9113e+00,1.8773e+00,
288  &1.8394e+00,1.7649e+00,1.6692e+00,1.5658e+00,1.4547e+00,1.3360e+00,
289  &1.2095e+00,1.0761e+00,9.3485e-01,7.8430e-01,6.2380e-01,4.5010e-01,
290  &2.5625e-01,0.0000e+00,4.3798e+00,4.3275e+00,4.2762e+00,4.2239e+00,
291  &4.1730e+00,4.1196e+00,4.0674e+00,4.0143e+00,3.9623e+00,3.9056e+00,
292  &3.8502e+00,3.7935e+00,3.7370e+00,3.7018e+00,3.6642e+00,3.6200e+00,
293  &3.5742e+00,3.5277e+00,3.4786e+00,3.4371e+00,3.3901e+00,3.3359e+00,
294  &3.2800e+00,3.2235e+00,3.1639e+00,3.1115e+00,3.0537e+00,2.9847e+00,
295  &2.9116e+00,2.8364e+00,2.7623e+00,2.6973e+00,2.6275e+00,2.5497e+00,
296  &2.4705e+00,2.3972e+00,2.3281e+00,2.2747e+00,2.2253e+00,2.1793e+00,
297  &2.1444e+00,2.1253e+00,2.1081e+00,2.0939e+00,2.0755e+00,2.0555e+00,
298  &2.0332e+00,2.0081e+00,1.9814e+00,1.9522e+00,1.9205e+00,1.8875e+00,
299  &1.8520e+00,1.8139e+00,1.7725e+00,1.6968e+00,1.5976e+00,1.4911e+00,
300  &1.3772e+00,1.2577e+00,1.1320e+00,1.0005e+00,8.6242e-01,7.1750e-01,
301  &5.6466e-01,4.0150e-01,2.2333e-01,0.0000e+00,4.4809e+00,4.4265e+00,
302  &4.3735e+00,4.3193e+00,4.2670e+00,4.2128e+00,4.1585e+00,4.1039e+00/
303  DATA (xuvf_l(k),k= 1369, 1482) /
304  &4.0509e+00,3.9928e+00,3.9351e+00,3.8769e+00,3.8180e+00,3.7821e+00,
305  &3.7434e+00,3.6974e+00,3.6501e+00,3.6019e+00,3.5513e+00,3.5093e+00,
306  &3.4594e+00,3.4035e+00,3.3456e+00,3.2870e+00,3.2250e+00,3.1715e+00,
307  &3.1110e+00,3.0396e+00,2.9639e+00,2.8863e+00,2.8096e+00,2.7429e+00,
308  &2.6702e+00,2.5884e+00,2.5068e+00,2.4296e+00,2.3560e+00,2.3003e+00,
309  &2.2464e+00,2.1951e+00,2.1530e+00,2.1283e+00,2.1045e+00,2.0843e+00,
310  &2.0591e+00,2.0328e+00,2.0047e+00,1.9749e+00,1.9429e+00,1.9096e+00,
311  &1.8740e+00,1.8369e+00,1.7978e+00,1.7560e+00,1.7116e+00,1.6360e+00,
312  &1.5322e+00,1.4233e+00,1.3084e+00,1.1885e+00,1.0637e+00,9.3449e-01,
313  &7.9961e-01,6.6020e-01,5.1453e-01,3.6103e-01,1.9641e-01,0.0000e+00,
314  &4.6169e+00,4.5608e+00,4.5060e+00,4.4504e+00,4.3960e+00,4.3395e+00,
315  &4.2837e+00,4.2262e+00,4.1710e+00,4.1106e+00,4.0517e+00,3.9908e+00,
316  &3.9300e+00,3.8920e+00,3.8509e+00,3.8030e+00,3.7538e+00,3.7035e+00,
317  &3.6494e+00,3.6055e+00,3.5556e+00,3.4966e+00,3.4351e+00,3.3738e+00,
318  &3.3090e+00,3.2518e+00,3.1888e+00,3.1141e+00,3.0348e+00,2.9533e+00,
319  &2.8730e+00,2.8020e+00,2.7264e+00,2.6400e+00,2.5551e+00,2.4732e+00,
320  &2.3941e+00,2.3329e+00,2.2742e+00,2.2147e+00,2.1644e+00,2.1317e+00,
321  &2.0986e+00,2.0700e+00,2.0363e+00,2.0021e+00,1.9668e+00,1.9299e+00,
322  &1.8922e+00,1.8532e+00,1.8125e+00,1.7704e+00,1.7270e+00,1.6809e+00/
323  DATA (xuvf_l(k),k= 1483, 1596) /
324  &1.6327e+00,1.5570e+00,1.4497e+00,1.3373e+00,1.2215e+00,1.1020e+00,
325  &9.7897e-01,8.5304e-01,7.2349e-01,5.9074e-01,4.5411e-01,3.1307e-01,
326  &1.6547e-01,0.0000e+00,4.7403e+00,4.6834e+00,4.6262e+00,4.5696e+00,
327  &4.5140e+00,4.4557e+00,4.3978e+00,4.3393e+00,4.2817e+00,4.2191e+00,
328  &4.1578e+00,4.0941e+00,4.0310e+00,3.9917e+00,3.9492e+00,3.8995e+00,
329  &3.8481e+00,3.7958e+00,3.7411e+00,3.6937e+00,3.6405e+00,3.5806e+00,
330  &3.5171e+00,3.4520e+00,3.3840e+00,3.3254e+00,3.2596e+00,3.1812e+00,
331  &3.0985e+00,3.0137e+00,2.9301e+00,2.8556e+00,2.7782e+00,2.6879e+00,
332  &2.5974e+00,2.5119e+00,2.4281e+00,2.3629e+00,2.2982e+00,2.2324e+00,
333  &2.1730e+00,2.1332e+00,2.0922e+00,2.0570e+00,2.0152e+00,1.9739e+00,
334  &1.9323e+00,1.8902e+00,1.8474e+00,1.8039e+00,1.7589e+00,1.7129e+00,
335  &1.6654e+00,1.6163e+00,1.5652e+00,1.4896e+00,1.3789e+00,1.2649e+00,
336  &1.1487e+00,1.0300e+00,9.0896e-01,7.8619e-01,6.6149e-01,5.3498e-01,
337  &4.0654e-01,2.7586e-01,1.4208e-01,0.0000e+00,4.8699e+00,4.8107e+00,
338  &4.7518e+00,4.6928e+00,4.6350e+00,4.5750e+00,4.5152e+00,4.4524e+00,
339  &4.3956e+00,4.3299e+00,4.2674e+00,4.2014e+00,4.1350e+00,4.0939e+00,
340  &4.0503e+00,3.9982e+00,3.9448e+00,3.8905e+00,3.8328e+00,3.7846e+00,
341  &3.7300e+00,3.6664e+00,3.5991e+00,3.5326e+00,3.4620e+00,3.3998e+00,
342  &3.3311e+00,3.2494e+00,3.1632e+00,3.0752e+00,2.9881e+00,2.9120e+00/
343  DATA (xuvf_l(k),k= 1597, 1710) /
344  &2.8299e+00,2.7339e+00,2.6398e+00,2.5493e+00,2.4611e+00,2.3911e+00,
345  &2.3215e+00,2.2482e+00,2.1812e+00,2.1342e+00,2.0854e+00,2.0427e+00,
346  &1.9932e+00,1.9453e+00,1.8978e+00,1.8504e+00,1.8030e+00,1.7545e+00,
347  &1.7059e+00,1.6565e+00,1.6056e+00,1.5535e+00,1.4989e+00,1.4245e+00,
348  &1.3108e+00,1.1959e+00,1.0798e+00,9.6219e-01,8.4358e-01,7.2422e-01,
349  &6.0451e-01,4.8425e-01,3.6380e-01,2.4286e-01,1.2189e-01,0.0000e+00,
350  &4.9964e+00,4.9356e+00,4.8755e+00,4.8147e+00,4.7550e+00,4.6935e+00,
351  &4.6315e+00,4.5697e+00,4.5062e+00,4.4406e+00,4.3752e+00,4.3061e+00,
352  &4.2380e+00,4.1962e+00,4.1500e+00,4.0963e+00,4.0405e+00,3.9832e+00,
353  &3.9245e+00,3.8728e+00,3.8172e+00,3.7504e+00,3.6811e+00,3.6108e+00,
354  &3.5381e+00,3.4734e+00,3.4018e+00,3.3164e+00,3.2269e+00,3.1352e+00,
355  &3.0446e+00,2.9657e+00,2.8794e+00,2.7800e+00,2.6821e+00,2.5867e+00,
356  &2.4930e+00,2.4184e+00,2.3433e+00,2.2634e+00,2.1877e+00,2.1342e+00,
357  &2.0772e+00,2.0279e+00,1.9713e+00,1.9172e+00,1.8642e+00,1.8120e+00,
358  &1.7600e+00,1.7076e+00,1.6553e+00,1.6027e+00,1.5491e+00,1.4938e+00,
359  &1.4374e+00,1.3637e+00,1.2481e+00,1.1325e+00,1.0166e+00,9.0047e-01,
360  &7.8428e-01,6.6889e-01,5.5381e-01,4.3953e-01,3.2652e-01,2.1461e-01,
361  &1.0498e-01,0.0000e+00,5.1134e+00,5.0511e+00,4.9886e+00,4.9273e+00,
362  &4.8660e+00,4.8016e+00,4.7382e+00,4.6744e+00,4.6106e+00,4.5420e+00/
363  DATA (xuvf_l(k),k= 1711, 1824) /
364  &4.4742e+00,4.4028e+00,4.3320e+00,4.2892e+00,4.2413e+00,4.1858e+00,
365  &4.1281e+00,4.0682e+00,4.0067e+00,3.9556e+00,3.8955e+00,3.8271e+00,
366  &3.7556e+00,3.6829e+00,3.6071e+00,3.5401e+00,3.4662e+00,3.3777e+00,
367  &3.2849e+00,3.1898e+00,3.0960e+00,3.0140e+00,2.9244e+00,2.8224e+00,
368  &2.7183e+00,2.6191e+00,2.5219e+00,2.4431e+00,2.3628e+00,2.2767e+00,
369  &2.1931e+00,2.1332e+00,2.0695e+00,2.0145e+00,1.9514e+00,1.8920e+00,
370  &1.8340e+00,1.7775e+00,1.7215e+00,1.6664e+00,1.6108e+00,1.5553e+00,
371  &1.4995e+00,1.4421e+00,1.3839e+00,1.3103e+00,1.1944e+00,1.0782e+00,
372  &9.6271e-01,8.4822e-01,7.3481e-01,6.2240e-01,5.1184e-01,4.0291e-01,
373  &2.9618e-01,1.9206e-01,9.1846e-02,0.0000e+00,5.2367e+00,5.1713e+00,
374  &5.1071e+00,5.0425e+00,4.9800e+00,4.9141e+00,4.8489e+00,4.7833e+00,
375  &4.7181e+00,4.6457e+00,4.5768e+00,4.5034e+00,4.4300e+00,4.3847e+00,
376  &4.3353e+00,4.2782e+00,4.2182e+00,4.1570e+00,4.0921e+00,4.0385e+00,
377  &3.9782e+00,3.9074e+00,3.8331e+00,3.7575e+00,3.6781e+00,3.6086e+00,
378  &3.5313e+00,3.4401e+00,3.3439e+00,3.2455e+00,3.1483e+00,3.0623e+00,
379  &2.9694e+00,2.8629e+00,2.7561e+00,2.6527e+00,2.5508e+00,2.4669e+00,
380  &2.3816e+00,2.2887e+00,2.1979e+00,2.1317e+00,2.0613e+00,2.0002e+00,
381  &1.9307e+00,1.8659e+00,1.8033e+00,1.7426e+00,1.6834e+00,1.6247e+00,
382  &1.5668e+00,1.5085e+00,1.4504e+00,1.3916e+00,1.3311e+00,1.2591e+00/
383  DATA (xuvf_l(k),k= 1825, 1836) /
384  &1.1415e+00,1.0256e+00,9.1107e-01,7.9840e-01,6.8736e-01,5.7902e-01,
385  &4.7260e-01,3.6895e-01,2.6838e-01,1.7161e-01,8.0264e-02,0.0000e+00/
386  DATA (xdvf_l(k),k= 1, 114) /
387  &1.4230e+00,1.4064e+00,1.3903e+00,1.3749e+00,1.3590e+00,1.3424e+00,
388  &1.3271e+00,1.3114e+00,1.2962e+00,1.2803e+00,1.2647e+00,1.2492e+00,
389  &1.2340e+00,1.2246e+00,1.2155e+00,1.2044e+00,1.1927e+00,1.1814e+00,
390  &1.1695e+00,1.1589e+00,1.1479e+00,1.1347e+00,1.1214e+00,1.1080e+00,
391  &1.0944e+00,1.0824e+00,1.0700e+00,1.0544e+00,1.0371e+00,1.0188e+00,
392  &9.9884e-01,9.8287e-01,9.6563e-01,9.4645e-01,9.2847e-01,9.1313e-01,
393  &9.0246e-01,8.9955e-01,9.0461e-01,9.2737e-01,9.7648e-01,1.0343e+00,
394  &1.1168e+00,1.2030e+00,1.3129e+00,1.4240e+00,1.5357e+00,1.6492e+00,
395  &1.7643e+00,1.8818e+00,2.0016e+00,2.1253e+00,2.2535e+00,2.3853e+00,
396  &2.5225e+00,2.5620e+00,2.7906e+00,3.0230e+00,3.2574e+00,3.4983e+00,
397  &3.7459e+00,4.0062e+00,4.2803e+00,4.5790e+00,4.9150e+00,5.3263e+00,
398  &5.9228e+00,0.0000e+00,1.4698e+00,1.4526e+00,1.4360e+00,1.4199e+00,
399  &1.4030e+00,1.3864e+00,1.3702e+00,1.3542e+00,1.3386e+00,1.3221e+00,
400  &1.3059e+00,1.2896e+00,1.2740e+00,1.2644e+00,1.2544e+00,1.2425e+00,
401  &1.2309e+00,1.2185e+00,1.2061e+00,1.1953e+00,1.1836e+00,1.1697e+00,
402  &1.1558e+00,1.1417e+00,1.1275e+00,1.1154e+00,1.1011e+00,1.0844e+00,
403  &1.0663e+00,1.0471e+00,1.0261e+00,1.0092e+00,9.9133e-01,9.7103e-01,
404  &9.5184e-01,9.3560e-01,9.2380e-01,9.1922e-01,9.2378e-01,9.4563e-01,
405  &9.9235e-01,1.0474e+00,1.1262e+00,1.2078e+00,1.3110e+00,1.4146e+00/
406  DATA (xdvf_l(k),k= 115, 228) /
407  &1.5192e+00,1.6241e+00,1.7298e+00,1.8375e+00,1.9471e+00,2.0592e+00,
408  &2.1741e+00,2.2925e+00,2.4144e+00,2.4425e+00,2.6407e+00,2.8375e+00,
409  &3.0361e+00,3.2345e+00,3.4343e+00,3.6388e+00,3.8488e+00,4.0682e+00,
410  &4.3043e+00,4.5737e+00,4.9280e+00,0.0000e+00,1.5226e+00,1.5047e+00,
411  &1.4874e+00,1.4702e+00,1.4530e+00,1.4363e+00,1.4193e+00,1.4023e+00,
412  &1.3860e+00,1.3690e+00,1.3520e+00,1.3351e+00,1.3190e+00,1.3083e+00,
413  &1.2983e+00,1.2858e+00,1.2733e+00,1.2606e+00,1.2476e+00,1.2362e+00,
414  &1.2237e+00,1.2092e+00,1.1943e+00,1.1795e+00,1.1645e+00,1.1509e+00,
415  &1.1365e+00,1.1185e+00,1.0994e+00,1.0784e+00,1.0566e+00,1.0388e+00,
416  &1.0195e+00,9.9801e-01,9.7765e-01,9.6019e-01,9.4712e-01,9.4158e-01,
417  &9.4524e-01,9.6454e-01,1.0088e+00,1.0604e+00,1.1346e+00,1.2112e+00,
418  &1.3076e+00,1.4038e+00,1.4995e+00,1.5957e+00,1.6918e+00,1.7888e+00,
419  &1.8877e+00,1.9877e+00,2.0896e+00,2.1940e+00,2.2999e+00,2.3168e+00,
420  &2.4844e+00,2.6497e+00,2.8098e+00,2.9678e+00,3.1219e+00,3.2743e+00,
421  &3.4260e+00,3.5742e+00,3.7237e+00,3.8717e+00,4.0300e+00,0.0000e+00,
422  &1.5849e+00,1.5662e+00,1.5482e+00,1.5298e+00,1.5130e+00,1.4944e+00,
423  &1.4769e+00,1.4593e+00,1.4423e+00,1.4243e+00,1.4066e+00,1.3894e+00,
424  &1.3720e+00,1.3607e+00,1.3499e+00,1.3366e+00,1.3237e+00,1.3101e+00,
425  &1.2963e+00,1.2840e+00,1.2709e+00,1.2553e+00,1.2396e+00,1.2232e+00/
426  DATA (xdvf_l(k),k= 229, 342) /
427  &1.2075e+00,1.1932e+00,1.1776e+00,1.1584e+00,1.1377e+00,1.1152e+00,
428  &1.0922e+00,1.0729e+00,1.0524e+00,1.0294e+00,1.0074e+00,9.8843e-01,
429  &9.7377e-01,9.6751e-01,9.6901e-01,9.8606e-01,1.0264e+00,1.0745e+00,
430  &1.1435e+00,1.2136e+00,1.3018e+00,1.3894e+00,1.4758e+00,1.5619e+00,
431  &1.6474e+00,1.7332e+00,1.8194e+00,1.9063e+00,1.9941e+00,2.0832e+00,
432  &2.1725e+00,2.1789e+00,2.3166e+00,2.4460e+00,2.5708e+00,2.6884e+00,
433  &2.7987e+00,2.9025e+00,2.9974e+00,3.0823e+00,3.1538e+00,3.2013e+00,
434  &3.2043e+00,0.0000e+00,1.6586e+00,1.6391e+00,1.6202e+00,1.6014e+00,
435  &1.5830e+00,1.5638e+00,1.5457e+00,1.5267e+00,1.5087e+00,1.4899e+00,
436  &1.4711e+00,1.4517e+00,1.4340e+00,1.4224e+00,1.4107e+00,1.3972e+00,
437  &1.3827e+00,1.3684e+00,1.3535e+00,1.3404e+00,1.3263e+00,1.3096e+00,
438  &1.2927e+00,1.2758e+00,1.2575e+00,1.2422e+00,1.2250e+00,1.2046e+00,
439  &1.1821e+00,1.1579e+00,1.1331e+00,1.1127e+00,1.0905e+00,1.0655e+00,
440  &1.0415e+00,1.0207e+00,1.0042e+00,9.9612e-01,9.9507e-01,1.0089e+00,
441  &1.0451e+00,1.0887e+00,1.1514e+00,1.2146e+00,1.2936e+00,1.3711e+00,
442  &1.4469e+00,1.5220e+00,1.5960e+00,1.6694e+00,1.7428e+00,1.8159e+00,
443  &1.8894e+00,1.9620e+00,2.0344e+00,2.0313e+00,2.1357e+00,2.2333e+00,
444  &2.3215e+00,2.4009e+00,2.4706e+00,2.5292e+00,2.5750e+00,2.6036e+00,
445  &2.6096e+00,2.5783e+00,2.4673e+00,0.0000e+00,1.7269e+00,1.7065e+00/
446  DATA (xdvf_l(k),k= 343, 456) /
447  &1.6866e+00,1.6676e+00,1.6480e+00,1.6279e+00,1.6089e+00,1.5891e+00,
448  &1.5701e+00,1.5502e+00,1.5307e+00,1.5113e+00,1.4910e+00,1.4799e+00,
449  &1.4673e+00,1.4526e+00,1.4373e+00,1.4221e+00,1.4060e+00,1.3922e+00,
450  &1.3771e+00,1.3596e+00,1.3414e+00,1.3234e+00,1.3045e+00,1.2879e+00,
451  &1.2689e+00,1.2468e+00,1.2227e+00,1.1966e+00,1.1706e+00,1.1487e+00,
452  &1.1248e+00,1.0980e+00,1.0724e+00,1.0495e+00,1.0310e+00,1.0212e+00,
453  &1.0181e+00,1.0291e+00,1.0609e+00,1.1002e+00,1.1563e+00,1.2136e+00,
454  &1.2840e+00,1.3528e+00,1.4201e+00,1.4854e+00,1.5492e+00,1.6125e+00,
455  &1.6751e+00,1.7368e+00,1.7981e+00,1.8579e+00,1.9157e+00,1.9057e+00,
456  &1.9875e+00,2.0577e+00,2.1190e+00,2.1700e+00,2.2094e+00,2.2370e+00,
457  &2.2484e+00,2.2403e+00,2.2047e+00,2.1261e+00,1.9567e+00,0.0000e+00,
458  &1.8047e+00,1.7833e+00,1.7626e+00,1.7418e+00,1.7220e+00,1.7009e+00,
459  &1.6810e+00,1.6603e+00,1.6403e+00,1.6193e+00,1.5986e+00,1.5775e+00,
460  &1.5570e+00,1.5441e+00,1.5309e+00,1.5156e+00,1.4991e+00,1.4828e+00,
461  &1.4658e+00,1.4510e+00,1.4350e+00,1.4160e+00,1.3966e+00,1.3772e+00,
462  &1.3565e+00,1.3386e+00,1.3184e+00,1.2942e+00,1.2680e+00,1.2404e+00,
463  &1.2125e+00,1.1887e+00,1.1631e+00,1.1342e+00,1.1064e+00,1.0813e+00,
464  &1.0608e+00,1.0480e+00,1.0426e+00,1.0500e+00,1.0774e+00,1.1111e+00,
465  &1.1608e+00,1.2107e+00,1.2719e+00,1.3315e+00,1.3886e+00,1.4445e+00/
466  DATA (xdvf_l(k),k= 457, 570) /
467  &1.4984e+00,1.5505e+00,1.6020e+00,1.6524e+00,1.7009e+00,1.7480e+00,
468  &1.7926e+00,1.7763e+00,1.8327e+00,1.8794e+00,1.9154e+00,1.9405e+00,
469  &1.9531e+00,1.9537e+00,1.9362e+00,1.8986e+00,1.8325e+00,1.7203e+00,
470  &1.5163e+00,0.0000e+00,1.8755e+00,1.8533e+00,1.8314e+00,1.8106e+00,
471  &1.7890e+00,1.7672e+00,1.7464e+00,1.7248e+00,1.7038e+00,1.6817e+00,
472  &1.6601e+00,1.6385e+00,1.6160e+00,1.6033e+00,1.5889e+00,1.5721e+00,
473  &1.5552e+00,1.5380e+00,1.5199e+00,1.5042e+00,1.4871e+00,1.4670e+00,
474  &1.4463e+00,1.4249e+00,1.4036e+00,1.3843e+00,1.3630e+00,1.3364e+00,
475  &1.3086e+00,1.2791e+00,1.2500e+00,1.2245e+00,1.1971e+00,1.1662e+00,
476  &1.1361e+00,1.1090e+00,1.0858e+00,1.0721e+00,1.0641e+00,1.0676e+00,
477  &1.0898e+00,1.1195e+00,1.1627e+00,1.2069e+00,1.2603e+00,1.3118e+00,
478  &1.3607e+00,1.4079e+00,1.4534e+00,1.4968e+00,1.5392e+00,1.5794e+00,
479  &1.6181e+00,1.6552e+00,1.6888e+00,1.6690e+00,1.7073e+00,1.7353e+00,
480  &1.7530e+00,1.7595e+00,1.7531e+00,1.7338e+00,1.6988e+00,1.6428e+00,
481  &1.5583e+00,1.4293e+00,1.2136e+00,0.0000e+00,1.9470e+00,1.9238e+00,
482  &1.9021e+00,1.8782e+00,1.8570e+00,1.8343e+00,1.8123e+00,1.7898e+00,
483  &1.7680e+00,1.7449e+00,1.7222e+00,1.6994e+00,1.6760e+00,1.6624e+00,
484  &1.6469e+00,1.6299e+00,1.6118e+00,1.5933e+00,1.5742e+00,1.5574e+00,
485  &1.5392e+00,1.5179e+00,1.4955e+00,1.4738e+00,1.4506e+00,1.4300e+00/
486  DATA (xdvf_l(k),k= 571, 684) /
487  &1.4069e+00,1.3792e+00,1.3492e+00,1.3178e+00,1.2868e+00,1.2597e+00,
488  &1.2307e+00,1.1976e+00,1.1654e+00,1.1363e+00,1.1108e+00,1.0945e+00,
489  &1.0840e+00,1.0845e+00,1.1017e+00,1.1268e+00,1.1637e+00,1.2016e+00,
490  &1.2473e+00,1.2910e+00,1.3324e+00,1.3719e+00,1.4090e+00,1.4450e+00,
491  &1.4784e+00,1.5109e+00,1.5404e+00,1.5681e+00,1.5925e+00,1.5689e+00,
492  &1.5916e+00,1.6043e+00,1.6067e+00,1.5981e+00,1.5779e+00,1.5449e+00,
493  &1.4949e+00,1.4262e+00,1.3303e+00,1.1932e+00,9.7657e-01,0.0000e+00,
494  &2.0122e+00,1.9881e+00,1.9640e+00,1.9418e+00,1.9190e+00,1.8954e+00,
495  &1.8721e+00,1.8492e+00,1.8262e+00,1.8024e+00,1.7784e+00,1.7550e+00,
496  &1.7300e+00,1.7157e+00,1.6999e+00,1.6818e+00,1.6627e+00,1.6435e+00,
497  &1.6233e+00,1.6058e+00,1.5866e+00,1.5643e+00,1.5417e+00,1.5178e+00,
498  &1.4926e+00,1.4705e+00,1.4465e+00,1.4174e+00,1.3856e+00,1.3527e+00,
499  &1.3198e+00,1.2914e+00,1.2605e+00,1.2257e+00,1.1915e+00,1.1601e+00,
500  &1.1326e+00,1.1142e+00,1.1016e+00,1.0982e+00,1.1114e+00,1.1321e+00,
501  &1.1637e+00,1.1958e+00,1.2352e+00,1.2722e+00,1.3071e+00,1.3397e+00,
502  &1.3704e+00,1.3995e+00,1.4267e+00,1.4516e+00,1.4736e+00,1.4942e+00,
503  &1.5100e+00,1.4848e+00,1.4955e+00,1.4964e+00,1.4873e+00,1.4675e+00,
504  &1.4366e+00,1.3933e+00,1.3349e+00,1.2585e+00,1.1565e+00,1.0171e+00,
505  &8.0601e-01,0.0000e+00,2.0789e+00,2.0539e+00,2.0294e+00,2.0053e+00/
506  DATA (xdvf_l(k),k= 685, 798) /
507  &1.9820e+00,1.9581e+00,1.9336e+00,1.9096e+00,1.8860e+00,1.8609e+00,
508  &1.8367e+00,1.8106e+00,1.7860e+00,1.7706e+00,1.7543e+00,1.7350e+00,
509  &1.7150e+00,1.6945e+00,1.6735e+00,1.6550e+00,1.6349e+00,1.6112e+00,
510  &1.5864e+00,1.5617e+00,1.5356e+00,1.5128e+00,1.4868e+00,1.4555e+00,
511  &1.4224e+00,1.3876e+00,1.3532e+00,1.3231e+00,1.2904e+00,1.2536e+00,
512  &1.2173e+00,1.1838e+00,1.1545e+00,1.1338e+00,1.1185e+00,1.1113e+00,
513  &1.1199e+00,1.1362e+00,1.1627e+00,1.1895e+00,1.2222e+00,1.2529e+00,
514  &1.2813e+00,1.3080e+00,1.3324e+00,1.3546e+00,1.3756e+00,1.3938e+00,
515  &1.4103e+00,1.4232e+00,1.4319e+00,1.4055e+00,1.4052e+00,1.3959e+00,
516  &1.3768e+00,1.3480e+00,1.3084e+00,1.2576e+00,1.1928e+00,1.1110e+00,
517  &1.0066e+00,8.6804e-01,6.6615e-01,0.0000e+00,2.1434e+00,2.1178e+00,
518  &2.0930e+00,2.0676e+00,2.0440e+00,2.0184e+00,1.9935e+00,1.9686e+00,
519  &1.9439e+00,1.9179e+00,1.8915e+00,1.8663e+00,1.8400e+00,1.8239e+00,
520  &1.8067e+00,1.7863e+00,1.7654e+00,1.7440e+00,1.7219e+00,1.7025e+00,
521  &1.6814e+00,1.6565e+00,1.6311e+00,1.6045e+00,1.5766e+00,1.5526e+00,
522  &1.5250e+00,1.4925e+00,1.4574e+00,1.4213e+00,1.3849e+00,1.3532e+00,
523  &1.3191e+00,1.2800e+00,1.2418e+00,1.2062e+00,1.1743e+00,1.1517e+00,
524  &1.1338e+00,1.1237e+00,1.1272e+00,1.1399e+00,1.1608e+00,1.1828e+00,
525  &1.2092e+00,1.2341e+00,1.2570e+00,1.2774e+00,1.2962e+00,1.3135e+00/
526  DATA (xdvf_l(k),k= 799, 912) /
527  &1.3280e+00,1.3406e+00,1.3511e+00,1.3588e+00,1.3613e+00,1.3335e+00,
528  &1.3246e+00,1.3067e+00,1.2801e+00,1.2441e+00,1.1985e+00,1.1418e+00,
529  &1.0724e+00,9.8806e-01,8.8293e-01,7.4746e-01,5.5665e-01,0.0000e+00,
530  &2.2035e+00,2.1769e+00,2.1514e+00,2.1259e+00,2.1000e+00,2.0743e+00,
531  &2.0488e+00,2.0226e+00,1.9973e+00,1.9702e+00,1.9428e+00,1.9166e+00,
532  &1.8890e+00,1.8729e+00,1.8548e+00,1.8337e+00,1.8116e+00,1.7895e+00,
533  &1.7662e+00,1.7461e+00,1.7239e+00,1.6980e+00,1.6714e+00,1.6436e+00,
534  &1.6146e+00,1.5889e+00,1.5604e+00,1.5266e+00,1.4895e+00,1.4515e+00,
535  &1.4138e+00,1.3806e+00,1.3448e+00,1.3040e+00,1.2638e+00,1.2261e+00,
536  &1.1920e+00,1.1669e+00,1.1469e+00,1.1341e+00,1.1335e+00,1.1420e+00,
537  &1.1583e+00,1.1760e+00,1.1971e+00,1.2168e+00,1.2343e+00,1.2501e+00,
538  &1.2640e+00,1.2762e+00,1.2866e+00,1.2942e+00,1.2996e+00,1.3020e+00,
539  &1.3003e+00,1.2725e+00,1.2557e+00,1.2312e+00,1.1982e+00,1.1569e+00,
540  &1.1068e+00,1.0465e+00,9.7460e-01,8.8884e-01,7.8459e-01,6.5333e-01,
541  &4.7359e-01,0.0000e+00,2.2800e+00,2.2524e+00,2.2256e+00,2.1987e+00,
542  &2.1730e+00,2.1459e+00,2.1192e+00,2.0922e+00,2.0656e+00,2.0374e+00,
543  &2.0100e+00,1.9802e+00,1.9520e+00,1.9346e+00,1.9156e+00,1.8937e+00,
544  &1.8706e+00,1.8475e+00,1.8228e+00,1.8017e+00,1.7783e+00,1.7509e+00,
545  &1.7221e+00,1.6937e+00,1.6627e+00,1.6354e+00,1.6050e+00,1.5688e+00/
546  DATA (xdvf_l(k),k= 913, 1026) /
547  &1.5301e+00,1.4898e+00,1.4503e+00,1.4150e+00,1.3772e+00,1.3339e+00,
548  &1.2911e+00,1.2510e+00,1.2138e+00,1.1866e+00,1.1637e+00,1.1458e+00,
549  &1.1403e+00,1.1441e+00,1.1548e+00,1.1669e+00,1.1817e+00,1.1950e+00,
550  &1.2065e+00,1.2163e+00,1.2249e+00,1.2313e+00,1.2355e+00,1.2379e+00,
551  &1.2379e+00,1.2348e+00,1.2275e+00,1.1987e+00,1.1744e+00,1.1427e+00,
552  &1.1035e+00,1.0570e+00,1.0018e+00,9.3862e-01,8.6494e-01,7.7913e-01,
553  &6.7747e-01,5.5266e-01,3.8741e-01,0.0000e+00,2.3524e+00,2.3243e+00,
554  &2.2963e+00,2.2689e+00,2.2420e+00,2.2137e+00,2.1858e+00,2.1579e+00,
555  &2.1301e+00,2.1011e+00,2.0718e+00,2.0424e+00,2.0120e+00,1.9937e+00,
556  &1.9743e+00,1.9509e+00,1.9267e+00,1.9020e+00,1.8763e+00,1.8541e+00,
557  &1.8295e+00,1.8006e+00,1.7713e+00,1.7402e+00,1.7077e+00,1.6794e+00,
558  &1.6475e+00,1.6087e+00,1.5679e+00,1.5259e+00,1.4840e+00,1.4470e+00,
559  &1.4072e+00,1.3615e+00,1.3163e+00,1.2738e+00,1.2336e+00,1.2045e+00,
560  &1.1783e+00,1.1563e+00,1.1459e+00,1.1457e+00,1.1504e+00,1.1577e+00,
561  &1.1662e+00,1.1742e+00,1.1807e+00,1.1857e+00,1.1886e+00,1.1902e+00,
562  &1.1899e+00,1.1878e+00,1.1830e+00,1.1751e+00,1.1633e+00,1.1345e+00,
563  &1.1039e+00,1.0667e+00,1.0230e+00,9.7228e-01,9.1417e-01,8.4905e-01,
564  &7.7478e-01,6.9004e-01,5.9155e-01,4.7371e-01,3.2191e-01,0.0000e+00,
565  &2.4233e+00,2.3947e+00,2.3653e+00,2.3365e+00,2.3090e+00,2.2800e+00/
566  DATA (xdvf_l(k),k= 1027, 1140) /
567  &2.2512e+00,2.2220e+00,2.1934e+00,2.1628e+00,2.1319e+00,2.1007e+00,
568  &2.0700e+00,2.0512e+00,2.0301e+00,2.0057e+00,1.9809e+00,1.9549e+00,
569  &1.9281e+00,1.9049e+00,1.8791e+00,1.8497e+00,1.8175e+00,1.7854e+00,
570  &1.7507e+00,1.7209e+00,1.6878e+00,1.6474e+00,1.6047e+00,1.5603e+00,
571  &1.5164e+00,1.4777e+00,1.4358e+00,1.3879e+00,1.3403e+00,1.2952e+00,
572  &1.2523e+00,1.2206e+00,1.1913e+00,1.1661e+00,1.1505e+00,1.1462e+00,
573  &1.1460e+00,1.1481e+00,1.1518e+00,1.1545e+00,1.1559e+00,1.1562e+00,
574  &1.1548e+00,1.1523e+00,1.1478e+00,1.1414e+00,1.1331e+00,1.1212e+00,
575  &1.1055e+00,1.0763e+00,1.0405e+00,9.9877e-01,9.5130e-01,8.9815e-01,
576  &8.3813e-01,7.7188e-01,6.9792e-01,6.1492e-01,5.2020e-01,4.0920e-01,
577  &2.7020e-01,0.0000e+00,2.4906e+00,2.4607e+00,2.4307e+00,2.4014e+00,
578  &2.3730e+00,2.3427e+00,2.3127e+00,2.2828e+00,2.2528e+00,2.2213e+00,
579  &2.1903e+00,2.1577e+00,2.1250e+00,2.1053e+00,2.0839e+00,2.0583e+00,
580  &2.0318e+00,2.0051e+00,1.9771e+00,1.9527e+00,1.9259e+00,1.8935e+00,
581  &1.8607e+00,1.8269e+00,1.7917e+00,1.7606e+00,1.7253e+00,1.6833e+00,
582  &1.6387e+00,1.5925e+00,1.5465e+00,1.5061e+00,1.4624e+00,1.4121e+00,
583  &1.3623e+00,1.3152e+00,1.2700e+00,1.2349e+00,1.2036e+00,1.1745e+00,
584  &1.1544e+00,1.1457e+00,1.1410e+00,1.1389e+00,1.1378e+00,1.1357e+00,
585  &1.1332e+00,1.1290e+00,1.1244e+00,1.1176e+00,1.1099e+00,1.0996e+00/
586  DATA (xdvf_l(k),k= 1141, 1254) /
587  &1.0875e+00,1.0729e+00,1.0538e+00,1.0249e+00,9.8511e-01,9.3994e-01,
588  &8.8948e-01,8.3410e-01,7.7332e-01,7.0681e-01,6.3377e-01,5.5280e-01,
589  &4.6214e-01,3.5755e-01,2.2965e-01,0.0000e+00,2.5589e+00,2.5291e+00,
590  &2.4979e+00,2.4676e+00,2.4370e+00,2.4060e+00,2.3753e+00,2.3443e+00,
591  &2.3135e+00,2.2809e+00,2.2486e+00,2.2146e+00,2.1810e+00,2.1602e+00,
592  &2.1376e+00,2.1114e+00,2.0841e+00,2.0557e+00,2.0265e+00,2.0011e+00,
593  &1.9730e+00,1.9392e+00,1.9055e+00,1.8697e+00,1.8327e+00,1.8003e+00,
594  &1.7635e+00,1.7197e+00,1.6727e+00,1.6246e+00,1.5770e+00,1.5346e+00,
595  &1.4890e+00,1.4363e+00,1.3841e+00,1.3341e+00,1.2867e+00,1.2492e+00,
596  &1.2151e+00,1.1824e+00,1.1578e+00,1.1451e+00,1.1356e+00,1.1298e+00,
597  &1.1233e+00,1.1169e+00,1.1105e+00,1.1027e+00,1.0940e+00,1.0840e+00,
598  &1.0726e+00,1.0592e+00,1.0444e+00,1.0265e+00,1.0045e+00,9.7613e-01,
599  &9.3249e-01,8.8451e-01,8.3193e-01,7.7510e-01,7.1373e-01,6.4749e-01,
600  &5.7554e-01,4.9725e-01,4.1072e-01,3.1254e-01,1.9551e-01,0.0000e+00,
601  &2.6244e+00,2.5927e+00,2.5615e+00,2.5299e+00,2.4990e+00,2.4671e+00,
602  &2.4356e+00,2.4034e+00,2.3717e+00,2.3377e+00,2.3034e+00,2.2689e+00,
603  &2.2340e+00,2.2126e+00,2.1892e+00,2.1616e+00,2.1331e+00,2.1040e+00,
604  &2.0736e+00,2.0471e+00,2.0180e+00,1.9830e+00,1.9472e+00,1.9112e+00,
605  &1.8717e+00,1.8375e+00,1.7996e+00,1.7538e+00,1.7053e+00,1.6548e+00/
606  DATA (xdvf_l(k),k= 1255, 1368) /
607  &1.6053e+00,1.5612e+00,1.5138e+00,1.4590e+00,1.4045e+00,1.3516e+00,
608  &1.3023e+00,1.2626e+00,1.2251e+00,1.1889e+00,1.1601e+00,1.1441e+00,
609  &1.1302e+00,1.1201e+00,1.1098e+00,1.0996e+00,1.0888e+00,1.0782e+00,
610  &1.0659e+00,1.0531e+00,1.0388e+00,1.0228e+00,1.0047e+00,9.8480e-01,
611  &9.6040e-01,9.3234e-01,8.8589e-01,8.3563e-01,7.8162e-01,7.2366e-01,
612  &6.6215e-01,5.9658e-01,5.2617e-01,4.5043e-01,3.6787e-01,2.7575e-01,
613  &1.6826e-01,0.0000e+00,2.6886e+00,2.6564e+00,2.6234e+00,2.5908e+00,
614  &2.5600e+00,2.5268e+00,2.4943e+00,2.4612e+00,2.4283e+00,2.3924e+00,
615  &2.3582e+00,2.3219e+00,2.2860e+00,2.2642e+00,2.2394e+00,2.2113e+00,
616  &2.1817e+00,2.1512e+00,2.1198e+00,2.0920e+00,2.0618e+00,2.0268e+00,
617  &1.9890e+00,1.9503e+00,1.9098e+00,1.8739e+00,1.8343e+00,1.7867e+00,
618  &1.7365e+00,1.6843e+00,1.6329e+00,1.5870e+00,1.5377e+00,1.4807e+00,
619  &1.4239e+00,1.3692e+00,1.3169e+00,1.2751e+00,1.2350e+00,1.1954e+00,
620  &1.1624e+00,1.1425e+00,1.1247e+00,1.1110e+00,1.0963e+00,1.0827e+00,
621  &1.0687e+00,1.0547e+00,1.0396e+00,1.0240e+00,1.0070e+00,9.8853e-01,
622  &9.6834e-01,9.4569e-01,9.1962e-01,8.9220e-01,8.4321e-01,7.9105e-01,
623  &7.3592e-01,6.7777e-01,6.1620e-01,5.5143e-01,4.8272e-01,4.0962e-01,
624  &3.3102e-01,2.4455e-01,1.4574e-01,0.0000e+00,2.7496e+00,2.7153e+00,
625  &2.6835e+00,2.6504e+00,2.6180e+00,2.5834e+00,2.5502e+00,2.5161e+00/
626  DATA (xdvf_l(k),k= 1369, 1482) /
627  &2.4824e+00,2.4466e+00,2.4095e+00,2.3736e+00,2.3360e+00,2.3124e+00,
628  &2.2875e+00,2.2580e+00,2.2274e+00,2.1960e+00,2.1631e+00,2.1347e+00,
629  &2.1032e+00,2.0670e+00,2.0277e+00,1.9882e+00,1.9458e+00,1.9086e+00,
630  &1.8675e+00,1.8179e+00,1.7658e+00,1.7122e+00,1.6586e+00,1.6112e+00,
631  &1.5600e+00,1.5010e+00,1.4420e+00,1.3855e+00,1.3294e+00,1.2858e+00,
632  &1.2435e+00,1.2006e+00,1.1641e+00,1.1410e+00,1.1193e+00,1.1023e+00,
633  &1.0837e+00,1.0664e+00,1.0496e+00,1.0329e+00,1.0157e+00,9.9745e-01,
634  &9.7803e-01,9.5735e-01,9.3539e-01,9.1075e-01,8.8302e-01,8.5608e-01,
635  &8.0509e-01,7.5168e-01,6.9580e-01,6.3743e-01,5.7619e-01,5.1233e-01,
636  &4.4547e-01,3.7496e-01,2.9995e-01,2.1862e-01,1.2745e-01,0.0000e+00,
637  &2.8331e+00,2.7978e+00,2.7648e+00,2.7299e+00,2.6960e+00,2.6609e+00,
638  &2.6263e+00,2.5910e+00,2.5561e+00,2.5197e+00,2.4802e+00,2.4424e+00,
639  &2.4030e+00,2.3791e+00,2.3526e+00,2.3216e+00,2.2897e+00,2.2570e+00,
640  &2.2225e+00,2.1925e+00,2.1595e+00,2.1199e+00,2.0799e+00,2.0383e+00,
641  &1.9938e+00,1.9551e+00,1.9121e+00,1.8601e+00,1.8054e+00,1.7494e+00,
642  &1.6932e+00,1.6435e+00,1.5898e+00,1.5280e+00,1.4659e+00,1.4056e+00,
643  &1.3471e+00,1.3010e+00,1.2550e+00,1.2078e+00,1.1652e+00,1.1383e+00,
644  &1.1114e+00,1.0902e+00,1.0668e+00,1.0451e+00,1.0248e+00,1.0039e+00,
645  &9.8353e-01,9.6205e-01,9.4076e-01,9.1705e-01,8.9229e-01,8.6577e-01/
646  DATA (xdvf_l(k),k= 1483, 1596) /
647  &8.3604e-01,8.0985e-01,7.5687e-01,7.0190e-01,6.4516e-01,5.8700e-01,
648  &5.2660e-01,4.6452e-01,3.9995e-01,3.3310e-01,2.6289e-01,1.8826e-01,
649  &1.0655e-01,0.0000e+00,2.9096e+00,2.8732e+00,2.8390e+00,2.8027e+00,
650  &2.7690e+00,2.7325e+00,2.6961e+00,2.6597e+00,2.6231e+00,2.5833e+00,
651  &2.5456e+00,2.5047e+00,2.4650e+00,2.4391e+00,2.4120e+00,2.3799e+00,
652  &2.3462e+00,2.3123e+00,2.2763e+00,2.2451e+00,2.2108e+00,2.1692e+00,
653  &2.1276e+00,2.0835e+00,2.0378e+00,1.9974e+00,1.9525e+00,1.8983e+00,
654  &1.8413e+00,1.7827e+00,1.7243e+00,1.6725e+00,1.6166e+00,1.5520e+00,
655  &1.4872e+00,1.4244e+00,1.3627e+00,1.3136e+00,1.2649e+00,1.2130e+00,
656  &1.1663e+00,1.1352e+00,1.1040e+00,1.0787e+00,1.0514e+00,1.0264e+00,
657  &1.0021e+00,9.7883e-01,9.5548e-01,9.3171e-01,9.0763e-01,8.8283e-01,
658  &8.5596e-01,8.2732e-01,7.9601e-01,7.7056e-01,7.1598e-01,6.6027e-01,
659  &6.0340e-01,5.4514e-01,4.8601e-01,4.2556e-01,3.6359e-01,2.9984e-01,
660  &2.3396e-01,1.6486e-01,9.0844e-02,0.0000e+00,2.9880e+00,2.9510e+00,
661  &2.9150e+00,2.8782e+00,2.8430e+00,2.8048e+00,2.7677e+00,2.7301e+00,
662  &2.6924e+00,2.6517e+00,2.6110e+00,2.5696e+00,2.5280e+00,2.5017e+00,
663  &2.4728e+00,2.4393e+00,2.4042e+00,2.3687e+00,2.3313e+00,2.2988e+00,
664  &2.2631e+00,2.2204e+00,2.1768e+00,2.1312e+00,2.0828e+00,2.0405e+00,
665  &1.9928e+00,1.9364e+00,1.8772e+00,1.8164e+00,1.7558e+00,1.7018e+00/
666  DATA (xdvf_l(k),k= 1597, 1710) /
667  &1.6434e+00,1.5762e+00,1.5084e+00,1.4432e+00,1.3783e+00,1.3261e+00,
668  &1.2741e+00,1.2182e+00,1.1669e+00,1.1315e+00,1.0961e+00,1.0671e+00,
669  &1.0360e+00,1.0071e+00,9.7992e-01,9.5371e-01,9.2801e-01,9.0200e-01,
670  &8.7588e-01,8.4862e-01,8.2038e-01,7.9020e-01,7.5770e-01,7.3298e-01,
671  &6.7721e-01,6.2090e-01,5.6394e-01,5.0631e-01,4.4841e-01,3.8970e-01,
672  &3.3019e-01,2.6973e-01,2.0791e-01,1.4420e-01,7.7416e-02,0.0000e+00,
673  &3.0661e+00,3.0288e+00,2.9911e+00,2.9537e+00,2.9160e+00,2.8778e+00,
674  &2.8392e+00,2.8000e+00,2.7610e+00,2.7200e+00,2.6782e+00,2.6345e+00,
675  &2.5900e+00,2.5625e+00,2.5329e+00,2.4982e+00,2.4617e+00,2.4247e+00,
676  &2.3857e+00,2.3518e+00,2.3145e+00,2.2697e+00,2.2245e+00,2.1764e+00,
677  &2.1269e+00,2.0819e+00,2.0331e+00,1.9746e+00,1.9126e+00,1.8497e+00,
678  &1.7862e+00,1.7303e+00,1.6696e+00,1.5995e+00,1.5285e+00,1.4608e+00,
679  &1.3929e+00,1.3377e+00,1.2826e+00,1.2228e+00,1.1669e+00,1.1279e+00,
680  &1.0882e+00,1.0555e+00,1.0205e+00,9.8876e-01,9.5876e-01,9.2969e-01,
681  &9.0171e-01,8.7356e-01,8.4551e-01,8.1668e-01,7.8701e-01,7.5564e-01,
682  &7.2196e-01,6.9797e-01,6.4121e-01,5.8469e-01,5.2810e-01,4.7131e-01,
683  &4.1460e-01,3.5783e-01,3.0063e-01,2.4338e-01,1.8544e-01,1.2660e-01,
684  &6.6270e-02,0.0000e+00,3.1379e+00,3.0995e+00,3.0600e+00,3.0213e+00,
685  &2.9840e+00,2.9442e+00,2.9047e+00,2.8641e+00,2.8239e+00,2.7813e+00/
686  DATA (xdvf_l(k),k= 1711, 1824) /
687  &2.7383e+00,2.6928e+00,2.6470e+00,2.6191e+00,2.5880e+00,2.5519e+00,
688  &2.5145e+00,2.4761e+00,2.4357e+00,2.4004e+00,2.3615e+00,2.3153e+00,
689  &2.2678e+00,2.2180e+00,2.1669e+00,2.1208e+00,2.0699e+00,2.0087e+00,
690  &1.9447e+00,1.8795e+00,1.8139e+00,1.7558e+00,1.6930e+00,1.6205e+00,
691  &1.5467e+00,1.4759e+00,1.4054e+00,1.3484e+00,1.2895e+00,1.2267e+00,
692  &1.1663e+00,1.1242e+00,1.0808e+00,1.0449e+00,1.0065e+00,9.7194e-01,
693  &9.3967e-01,9.0840e-01,8.7834e-01,8.4891e-01,8.1928e-01,7.8930e-01,
694  &7.5803e-01,7.2562e-01,6.9124e-01,6.6796e-01,6.1058e-01,5.5392e-01,
695  &4.9752e-01,4.4176e-01,3.8633e-01,3.3127e-01,2.7648e-01,2.2186e-01,
696  &1.6735e-01,1.1268e-01,5.7652e-02,0.0000e+00,3.2129e+00,3.1726e+00,
697  &3.1325e+00,3.0928e+00,3.0540e+00,3.0127e+00,2.9717e+00,2.9303e+00,
698  &2.8887e+00,2.8449e+00,2.8001e+00,2.7537e+00,2.7060e+00,2.6766e+00,
699  &2.6453e+00,2.6073e+00,2.5683e+00,2.5286e+00,2.4866e+00,2.4501e+00,
700  &2.4107e+00,2.3628e+00,2.3125e+00,2.2620e+00,2.2079e+00,2.1597e+00,
701  &2.1067e+00,2.0440e+00,1.9778e+00,1.9097e+00,1.8421e+00,1.7819e+00,
702  &1.7169e+00,1.6416e+00,1.5664e+00,1.4922e+00,1.4189e+00,1.3583e+00,
703  &1.2971e+00,1.2300e+00,1.1652e+00,1.1200e+00,1.0729e+00,1.0343e+00,
704  &9.9254e-01,9.5513e-01,9.2006e-01,8.8711e-01,8.5555e-01,8.2426e-01,
705  &7.9305e-01,7.6193e-01,7.2963e-01,6.9636e-01,6.6128e-01,6.3868e-01/
706  DATA (xdvf_l(k),k= 1825, 1836) /
707  &5.8093e-01,5.2428e-01,4.6858e-01,4.1372e-01,3.5972e-01,3.0648e-01,
708  &2.5392e-01,2.0208e-01,1.5083e-01,1.0018e-01,5.0068e-02,0.0000e+00/
709  DATA (xdef_l(k),k= 1, 114) /
710  &4.3007e-01,4.2474e-01,4.1967e-01,4.1458e-01,4.0970e-01,4.0443e-01,
711  &3.9925e-01,3.9397e-01,3.8864e-01,3.8302e-01,3.7707e-01,3.7100e-01,
712  &3.6470e-01,3.6080e-01,3.5639e-01,3.5109e-01,3.4531e-01,3.3914e-01,
713  &3.3238e-01,3.2609e-01,3.1913e-01,3.1062e-01,3.0152e-01,2.9176e-01,
714  &2.8100e-01,2.7114e-01,2.5952e-01,2.4467e-01,2.2784e-01,2.0937e-01,
715  &1.9117e-01,1.7470e-01,1.5685e-01,1.3678e-01,1.1825e-01,1.0349e-01,
716  &9.4854e-02,9.5054e-02,1.0589e-01,1.3527e-01,1.8584e-01,2.3426e-01,
717  &2.9021e-01,3.3527e-01,3.7670e-01,4.0255e-01,4.1326e-01,4.0880e-01,
718  &3.8831e-01,3.5045e-01,2.9287e-01,2.1298e-01,1.0773e-01,0.0000e+00,
719  &0.0000e+00,2.0644e-01,1.5422e-01,1.0950e-01,7.3614e-02,4.6726e-02,
720  &2.7433e-02,1.4144e-02,6.5080e-03,2.4719e-03,0.0000e+00,0.0000e+00,
721  &0.0000e+00,0.0000e+00,4.4398e-01,4.3864e-01,4.3346e-01,4.2809e-01,
722  &4.2290e-01,4.1747e-01,4.1205e-01,4.0650e-01,4.0098e-01,3.9480e-01,
723  &3.8873e-01,3.8226e-01,3.7560e-01,3.7145e-01,3.6678e-01,3.6108e-01,
724  &3.5488e-01,3.4833e-01,3.4123e-01,3.3464e-01,3.2718e-01,3.1811e-01,
725  &3.0838e-01,2.9811e-01,2.8670e-01,2.7630e-01,2.6412e-01,2.4861e-01,
726  &2.3110e-01,2.1209e-01,1.9355e-01,1.7681e-01,1.5878e-01,1.3870e-01,
727  &1.2044e-01,1.0620e-01,9.8341e-02,9.9345e-02,1.1086e-01,1.4055e-01,
728  &1.9033e-01,2.3696e-01,2.8983e-01,3.3137e-01,3.6834e-01,3.8982e-01/
729  DATA (xdef_l(k),k= 115, 228) /
730  &3.9672e-01,3.8896e-01,3.6609e-01,3.2678e-01,2.6933e-01,1.9181e-01,
731  &9.1683e-02,0.0000e+00,0.0000e+00,1.8955e-01,1.4041e-01,9.8873e-02,
732  &6.5928e-02,4.1462e-02,2.3905e-02,1.2324e-02,5.6113e-03,2.1050e-03,
733  &0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,4.5980e-01,4.5420e-01,
734  &4.4884e-01,4.4319e-01,4.3780e-01,4.3208e-01,4.2642e-01,4.2053e-01,
735  &4.1457e-01,4.0824e-01,4.0181e-01,3.9484e-01,3.8780e-01,3.8328e-01,
736  &3.7831e-01,3.7223e-01,3.6559e-01,3.5853e-01,3.5072e-01,3.4400e-01,
737  &3.3590e-01,3.2633e-01,3.1598e-01,3.0508e-01,2.9301e-01,2.8197e-01,
738  &2.6915e-01,2.5289e-01,2.3470e-01,2.1511e-01,1.9623e-01,1.7918e-01,
739  &1.6098e-01,1.4092e-01,1.2294e-01,1.0928e-01,1.0224e-01,1.0401e-01,
740  &1.1623e-01,1.4620e-01,1.9488e-01,2.3948e-01,2.8894e-01,3.2681e-01,
741  &3.5905e-01,3.7613e-01,3.7908e-01,3.6817e-01,3.4299e-01,3.0266e-01,
742  &2.4596e-01,1.7115e-01,7.6792e-02,0.0000e+00,0.0000e+00,1.7267e-01,
743  &1.2670e-01,8.8446e-02,5.8458e-02,3.6380e-02,2.0551e-02,1.0608e-02,
744  &4.7732e-03,1.7670e-03,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,
745  &4.7845e-01,4.7258e-01,4.6687e-01,4.6107e-01,4.5540e-01,4.4938e-01,
746  &4.4336e-01,4.3728e-01,4.3070e-01,4.2403e-01,4.1702e-01,4.0968e-01,
747  &4.0210e-01,3.9723e-01,3.9181e-01,3.8522e-01,3.7808e-01,3.7047e-01,
748  &3.6211e-01,3.5469e-01,3.4619e-01,3.3582e-01,3.2478e-01,3.1314e-01/
749  DATA (xdef_l(k),k= 229, 342) /
750  &3.0021e-01,2.8848e-01,2.7488e-01,2.5781e-01,2.3886e-01,2.1865e-01,
751  &1.9932e-01,1.8196e-01,1.6359e-01,1.4359e-01,1.2596e-01,1.1295e-01,
752  &1.0678e-01,1.0933e-01,1.2234e-01,1.5242e-01,1.9969e-01,2.4187e-01,
753  &2.8742e-01,3.2112e-01,3.4825e-01,3.6067e-01,3.5959e-01,3.4546e-01,
754  &3.1813e-01,2.7719e-01,2.2151e-01,1.5037e-01,6.2862e-02,0.0000e+00,
755  &0.0000e+00,1.5516e-01,1.1270e-01,7.7856e-02,5.0916e-02,3.1337e-02,
756  &1.7279e-02,8.9355e-03,3.9672e-03,1.4465e-03,0.0000e+00,0.0000e+00,
757  &0.0000e+00,0.0000e+00,5.0059e-01,4.9450e-01,4.8826e-01,4.8213e-01,
758  &4.7610e-01,4.6972e-01,4.6326e-01,4.5655e-01,4.4999e-01,4.4265e-01,
759  &4.3505e-01,4.2703e-01,4.1870e-01,4.1345e-01,4.0758e-01,4.0034e-01,
760  &3.9260e-01,3.8434e-01,3.7539e-01,3.6725e-01,3.5804e-01,3.4696e-01,
761  &3.3492e-01,3.2231e-01,3.0852e-01,2.9601e-01,2.8154e-01,2.6348e-01,
762  &2.4363e-01,2.2272e-01,2.0295e-01,1.8526e-01,1.6669e-01,1.4678e-01,
763  &1.2956e-01,1.1726e-01,1.1212e-01,1.1548e-01,1.2910e-01,1.5906e-01,
764  &2.0458e-01,2.4395e-01,2.8508e-01,3.1418e-01,3.3593e-01,3.4343e-01,
765  &3.3827e-01,3.2104e-01,2.9189e-01,2.5067e-01,1.9688e-01,1.3016e-01,
766  &5.0498e-02,0.0000e+00,0.0000e+00,1.3742e-01,9.8602e-02,6.7357e-02,
767  &4.3555e-02,2.6444e-02,1.4175e-02,7.3561e-03,3.2181e-03,1.1530e-03,
768  &0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,5.2114e-01,5.1454e-01/
769  DATA (xdef_l(k),k= 343, 456) /
770  &5.0806e-01,5.0160e-01,4.9520e-01,4.8843e-01,4.8165e-01,4.7456e-01,
771  &4.6738e-01,4.5962e-01,4.5149e-01,4.4293e-01,4.3400e-01,4.2833e-01,
772  &4.2194e-01,4.1420e-01,4.0580e-01,3.9678e-01,3.8741e-01,3.7848e-01,
773  &3.6878e-01,3.5682e-01,3.4416e-01,3.3062e-01,3.1602e-01,3.0269e-01,
774  &2.8749e-01,2.6857e-01,2.4798e-01,2.2641e-01,2.0626e-01,1.8828e-01,
775  &1.6960e-01,1.4976e-01,1.3293e-01,1.2126e-01,1.1684e-01,1.2099e-01,
776  &1.3505e-01,1.6471e-01,2.0841e-01,2.4521e-01,2.8248e-01,3.0770e-01,
777  &3.2484e-01,3.2845e-01,3.1999e-01,3.0047e-01,2.7030e-01,2.2924e-01,
778  &1.7739e-01,1.1482e-01,4.2174e-02,0.0000e+00,0.0000e+00,1.2330e-01,
779  &8.7586e-02,5.9211e-02,3.7890e-02,2.2733e-02,1.1877e-02,6.1865e-03,
780  &2.6713e-03,9.4247e-04,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,
781  &5.4423e-01,5.3740e-01,5.3068e-01,5.2385e-01,5.1700e-01,5.0982e-01,
782  &5.0256e-01,4.9509e-01,4.8731e-01,4.7895e-01,4.7023e-01,4.6094e-01,
783  &4.5130e-01,4.4506e-01,4.3820e-01,4.2973e-01,4.2069e-01,4.1108e-01,
784  &4.0069e-01,3.9131e-01,3.8063e-01,3.6796e-01,3.5430e-01,3.3991e-01,
785  &3.2433e-01,3.1014e-01,2.9407e-01,2.7418e-01,2.5281e-01,2.3056e-01,
786  &2.0999e-01,1.9171e-01,1.7291e-01,1.5321e-01,1.3677e-01,1.2578e-01,
787  &1.2220e-01,1.2696e-01,1.4132e-01,1.7056e-01,2.1212e-01,2.4603e-01,
788  &2.7912e-01,3.0023e-01,3.1274e-01,3.1234e-01,3.0087e-01,2.7925e-01/
789  DATA (xdef_l(k),k= 457, 570) /
790  &2.4820e-01,2.0782e-01,1.5841e-01,1.0056e-01,3.5470e-02,0.0000e+00,
791  &0.0000e+00,1.0941e-01,7.6864e-02,5.1391e-02,3.2506e-02,1.9250e-02,
792  &9.7741e-03,5.1192e-03,2.1775e-03,0.0000e+00,0.0000e+00,0.0000e+00,
793  &0.0000e+00,0.0000e+00,5.6542e-01,5.5814e-01,5.5101e-01,5.4385e-01,
794  &5.3670e-01,5.2913e-01,5.2140e-01,5.1352e-01,5.0533e-01,4.9639e-01,
795  &4.8702e-01,4.7710e-01,4.6670e-01,4.6011e-01,4.5270e-01,4.4365e-01,
796  &4.3394e-01,4.2383e-01,4.1271e-01,4.0253e-01,3.9137e-01,3.7783e-01,
797  &3.6325e-01,3.4810e-01,3.3163e-01,3.1674e-01,2.9988e-01,2.7922e-01,
798  &2.5706e-01,2.3429e-01,2.1333e-01,1.9484e-01,1.7592e-01,1.5634e-01,
799  &1.4028e-01,1.2985e-01,1.2692e-01,1.3218e-01,1.4678e-01,1.7535e-01,
800  &2.1492e-01,2.4628e-01,2.7582e-01,2.9349e-01,3.0215e-01,2.9865e-01,
801  &2.8479e-01,2.6176e-01,2.3025e-01,1.9073e-01,1.4372e-01,9.0030e-02,
802  &3.1431e-02,0.0000e+00,0.0000e+00,9.8561e-02,6.8571e-02,4.5400e-02,
803  &2.8439e-02,1.6650e-02,8.2414e-03,4.3377e-03,1.8226e-03,0.0000e+00,
804  &0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,5.8660e-01,5.7912e-01,
805  &5.7170e-01,5.6412e-01,5.5660e-01,5.4858e-01,5.4040e-01,5.3194e-01,
806  &5.2336e-01,5.1383e-01,5.0381e-01,4.9326e-01,4.8220e-01,4.7515e-01,
807  &4.6719e-01,4.5756e-01,4.4719e-01,4.3619e-01,4.2441e-01,4.1376e-01,
808  &4.0188e-01,3.8750e-01,3.7220e-01,3.5617e-01,3.3884e-01,3.2317e-01/
809  DATA (xdef_l(k),k= 571, 684) /
810  &3.0561e-01,2.8413e-01,2.6132e-01,2.3801e-01,2.1667e-01,1.9794e-01,
811  &1.7898e-01,1.5951e-01,1.4381e-01,1.3395e-01,1.3154e-01,1.3722e-01,
812  &1.5183e-01,1.7978e-01,2.1726e-01,2.4615e-01,2.7227e-01,2.8668e-01,
813  &2.9185e-01,2.8560e-01,2.6981e-01,2.4566e-01,2.1405e-01,1.7560e-01,
814  &1.3093e-01,8.1317e-02,2.8821e-02,0.0000e+00,0.0000e+00,8.9016e-02,
815  &6.1335e-02,4.0241e-02,2.4960e-02,1.4451e-02,6.9787e-03,3.6912e-03,
816  &1.5320e-03,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,
817  &6.0621e-01,5.9821e-01,5.9043e-01,5.8253e-01,5.7470e-01,5.6625e-01,
818  &5.5768e-01,5.4870e-01,5.3948e-01,5.2962e-01,5.1919e-01,5.0796e-01,
819  &4.9620e-01,4.8867e-01,4.8027e-01,4.7003e-01,4.5907e-01,4.4740e-01,
820  &4.3484e-01,4.2392e-01,4.1127e-01,3.9627e-01,3.8010e-01,3.6326e-01,
821  &3.4524e-01,3.2900e-01,3.1064e-01,2.8853e-01,2.6510e-01,2.4135e-01,
822  &2.1970e-01,2.0080e-01,1.8175e-01,1.6242e-01,1.4701e-01,1.3753e-01,
823  &1.3572e-01,1.4160e-01,1.5623e-01,1.8343e-01,2.1902e-01,2.4571e-01,
824  &2.6885e-01,2.8059e-01,2.8292e-01,2.7441e-01,2.5704e-01,2.3223e-01,
825  &2.0062e-01,1.6317e-01,1.2079e-01,7.4733e-02,2.7461e-02,0.0000e+00,
826  &0.0000e+00,8.1334e-02,5.5577e-02,3.6150e-02,2.2243e-02,1.2749e-02,
827  &6.0264e-03,3.2009e-03,1.3143e-03,0.0000e+00,0.0000e+00,0.0000e+00,
828  &0.0000e+00,0.0000e+00,6.2581e-01,6.1778e-01,6.0953e-01,6.0134e-01/
829  DATA (xdef_l(k),k= 685, 798) /
830  &5.9310e-01,5.8428e-01,5.7523e-01,5.6587e-01,5.5625e-01,5.4565e-01,
831  &5.3457e-01,5.2280e-01,5.1030e-01,5.0236e-01,4.9350e-01,4.8267e-01,
832  &4.7104e-01,4.5899e-01,4.4560e-01,4.3381e-01,4.2066e-01,4.0485e-01,
833  &3.8801e-01,3.7047e-01,3.5165e-01,3.3476e-01,3.1574e-01,2.9293e-01,
834  &2.6889e-01,2.4469e-01,2.2279e-01,2.0369e-01,1.8458e-01,1.6537e-01,
835  &1.5025e-01,1.4125e-01,1.3980e-01,1.4589e-01,1.6046e-01,1.8686e-01,
836  &2.2052e-01,2.4502e-01,2.6530e-01,2.7444e-01,2.7406e-01,2.6361e-01,
837  &2.4491e-01,2.1954e-01,1.8819e-01,1.5193e-01,1.1170e-01,6.9146e-02,
838  &2.6829e-02,0.0000e+00,0.0000e+00,7.4387e-02,5.0398e-02,3.2529e-02,
839  &1.9840e-02,1.1260e-02,5.2109e-03,2.7796e-03,1.1291e-03,0.0000e+00,
840  &0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,6.4510e-01,6.3663e-01,
841  &6.2809e-01,6.1948e-01,6.1090e-01,6.0165e-01,5.9256e-01,5.8263e-01,
842  &5.7237e-01,5.6121e-01,5.4960e-01,5.3710e-01,5.2390e-01,5.1555e-01,
843  &5.0615e-01,4.9474e-01,4.8273e-01,4.6980e-01,4.5603e-01,4.4343e-01,
844  &4.2983e-01,4.1325e-01,3.9561e-01,3.7731e-01,3.5765e-01,3.4017e-01,
845  &3.2063e-01,2.9709e-01,2.7258e-01,2.4795e-01,2.2572e-01,2.0647e-01,
846  &1.8735e-01,1.6824e-01,1.5339e-01,1.4470e-01,1.4366e-01,1.4990e-01,
847  &1.6437e-01,1.8986e-01,2.2169e-01,2.4408e-01,2.6175e-01,2.6863e-01,
848  &2.6585e-01,2.5363e-01,2.3397e-01,2.0813e-01,1.7714e-01,1.4205e-01/
849  DATA (xdef_l(k),k= 799, 912) /
850  &1.0396e-01,6.4602e-02,2.6785e-02,0.0000e+00,0.0000e+00,6.8343e-02,
851  &4.5962e-02,2.9434e-02,1.7812e-02,1.0015e-02,4.5458e-03,2.4331e-03,
852  &9.7866e-04,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,
853  &6.6281e-01,6.5407e-01,6.4523e-01,6.3631e-01,6.2740e-01,6.1775e-01,
854  &6.0821e-01,5.9770e-01,5.8724e-01,5.7535e-01,5.6321e-01,5.5021e-01,
855  &5.3640e-01,5.2763e-01,5.1775e-01,5.0583e-01,4.9310e-01,4.7946e-01,
856  &4.6520e-01,4.5225e-01,4.3811e-01,4.2074e-01,4.0247e-01,3.8355e-01,
857  &3.6315e-01,3.4516e-01,3.2502e-01,3.0091e-01,2.7589e-01,2.5090e-01,
858  &2.2842e-01,2.0903e-01,1.8987e-01,1.7087e-01,1.5631e-01,1.4790e-01,
859  &1.4709e-01,1.5345e-01,1.6771e-01,1.9243e-01,2.2253e-01,2.4307e-01,
860  &2.5846e-01,2.6327e-01,2.5857e-01,2.4493e-01,2.2441e-01,1.9832e-01,
861  &1.6773e-01,1.3380e-01,9.7606e-02,6.1077e-02,2.7123e-02,4.1687e-04,
862  &0.0000e+00,6.3316e-02,4.2290e-02,2.6899e-02,1.6166e-02,9.0143e-03,
863  &4.0214e-03,2.1587e-03,8.6042e-04,0.0000e+00,0.0000e+00,0.0000e+00,
864  &0.0000e+00,0.0000e+00,6.8558e-01,6.7623e-01,6.6716e-01,6.5776e-01,
865  &6.4840e-01,6.3825e-01,6.2778e-01,6.1697e-01,6.0589e-01,5.9350e-01,
866  &5.8071e-01,5.6677e-01,5.5220e-01,5.4293e-01,5.3246e-01,5.1980e-01,
867  &5.0630e-01,4.9221e-01,4.7690e-01,4.6348e-01,4.4839e-01,4.3024e-01,
868  &4.1112e-01,3.9125e-01,3.7016e-01,3.5134e-01,3.3054e-01,3.0571e-01/
869  DATA (xdef_l(k),k= 913, 1026) /
870  &2.8005e-01,2.5463e-01,2.3186e-01,2.1230e-01,1.9311e-01,1.7422e-01,
871  &1.5985e-01,1.5187e-01,1.5138e-01,1.5783e-01,1.7178e-01,1.9543e-01,
872  &2.2331e-01,2.4162e-01,2.5415e-01,2.5666e-01,2.4964e-01,2.3438e-01,
873  &2.1293e-01,1.8681e-01,1.5680e-01,1.2430e-01,9.0488e-02,5.7352e-02,
874  &2.7942e-02,7.0995e-03,2.4780e-03,5.7612e-02,3.8138e-02,2.4057e-02,
875  &1.4329e-02,7.9111e-03,3.4566e-03,1.8603e-03,7.3347e-04,0.0000e+00,
876  &0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,7.0709e-01,6.9744e-01,
877  &6.8784e-01,6.7803e-01,6.6830e-01,6.5763e-01,6.4678e-01,6.3540e-01,
878  &6.2360e-01,6.1071e-01,5.9715e-01,5.8240e-01,5.6710e-01,5.5722e-01,
879  &5.4625e-01,5.3291e-01,5.1856e-01,5.0380e-01,4.8797e-01,4.7363e-01,
880  &4.5801e-01,4.3900e-01,4.1917e-01,3.9846e-01,3.7656e-01,3.5717e-01,
881  &3.3564e-01,3.1017e-01,2.8397e-01,2.5816e-01,2.3508e-01,2.1538e-01,
882  &1.9615e-01,1.7737e-01,1.6324e-01,1.5559e-01,1.5535e-01,1.6175e-01,
883  &1.7537e-01,1.9793e-01,2.2384e-01,2.4005e-01,2.5009e-01,2.5051e-01,
884  &2.4150e-01,2.2495e-01,2.0291e-01,1.7668e-01,1.4739e-01,1.1625e-01,
885  &8.4583e-02,5.4470e-02,2.9013e-02,1.3147e-02,1.4553e-02,5.2777e-02,
886  &3.4672e-02,2.1686e-02,1.2821e-02,7.0105e-03,3.0093e-03,1.6226e-03,
887  &6.3321e-04,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,
888  &7.2796e-01,7.1795e-01,7.0799e-01,6.9776e-01,6.8760e-01,6.7649e-01/
889  DATA (xdef_l(k),k= 1027, 1140) /
890  &6.6523e-01,6.5299e-01,6.4099e-01,6.2720e-01,6.1289e-01,5.9763e-01,
891  &5.8140e-01,5.7108e-01,5.5954e-01,5.4555e-01,5.3082e-01,5.1501e-01,
892  &4.9841e-01,4.8352e-01,4.6718e-01,4.4758e-01,4.2678e-01,4.0543e-01,
893  &3.8267e-01,3.6267e-01,3.4052e-01,3.1445e-01,2.8771e-01,2.6154e-01,
894  &2.3817e-01,2.1835e-01,1.9910e-01,1.8043e-01,1.6662e-01,1.5905e-01,
895  &1.5900e-01,1.6548e-01,1.7871e-01,2.0015e-01,2.2403e-01,2.3835e-01,
896  &2.4610e-01,2.4469e-01,2.3394e-01,2.1634e-01,1.9372e-01,1.6761e-01,
897  &1.3910e-01,1.0920e-01,7.9530e-02,5.2165e-02,3.0250e-02,1.8723e-02,
898  &2.5275e-02,4.8575e-02,3.1676e-02,1.9677e-02,1.1540e-02,6.2533e-03,
899  &2.6411e-03,1.4253e-03,5.5072e-04,0.0000e+00,0.0000e+00,0.0000e+00,
900  &0.0000e+00,0.0000e+00,7.4788e-01,7.3751e-01,7.2708e-01,7.1644e-01,
901  &7.0580e-01,6.9430e-01,6.8256e-01,6.6975e-01,6.5712e-01,6.4276e-01,
902  &6.2791e-01,6.1180e-01,5.9490e-01,5.8409e-01,5.7199e-01,5.5739e-01,
903  &5.4166e-01,5.2544e-01,5.0821e-01,4.9288e-01,4.7590e-01,4.5544e-01,
904  &4.3393e-01,4.1178e-01,3.8837e-01,3.6775e-01,3.4513e-01,3.1844e-01,
905  &2.9125e-01,2.6472e-01,2.4110e-01,2.2115e-01,2.0189e-01,1.8330e-01,
906  &1.6955e-01,1.6237e-01,1.6243e-01,1.6875e-01,1.8164e-01,2.0201e-01,
907  &2.2410e-01,2.3665e-01,2.4236e-01,2.3927e-01,2.2710e-01,2.0852e-01,
908  &1.8563e-01,1.5962e-01,1.3170e-01,1.0314e-01,7.5292e-02,5.0347e-02/
909  DATA (xdef_l(k),k= 1141, 1254) /
910  &3.1513e-02,2.3688e-02,3.4520e-02,4.4988e-02,2.9140e-02,1.7975e-02,
911  &1.0472e-02,5.6268e-03,2.3442e-03,1.2646e-03,4.8432e-04,0.0000e+00,
912  &0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,7.6812e-01,7.5731e-01,
913  &7.4653e-01,7.3551e-01,7.2440e-01,7.1234e-01,6.9989e-01,6.8692e-01,
914  &6.7357e-01,6.5855e-01,6.4312e-01,6.2624e-01,6.0850e-01,5.9719e-01,
915  &5.8457e-01,5.6934e-01,5.5297e-01,5.3626e-01,5.1802e-01,5.0223e-01,
916  &4.8440e-01,4.6329e-01,4.4109e-01,4.1826e-01,3.9408e-01,3.7291e-01,
917  &3.4966e-01,3.2243e-01,2.9475e-01,2.6790e-01,2.4406e-01,2.2399e-01,
918  &2.0470e-01,1.8621e-01,1.7262e-01,1.6558e-01,1.6576e-01,1.7201e-01,
919  &1.8441e-01,2.0372e-01,2.2403e-01,2.3482e-01,2.3856e-01,2.3398e-01,
920  &2.2040e-01,2.0103e-01,1.7782e-01,1.5205e-01,1.2492e-01,9.7540e-02,
921  &7.1452e-02,4.8817e-02,3.2832e-02,2.8412e-02,4.3068e-02,4.1684e-02,
922  &2.6819e-02,1.6431e-02,9.5049e-03,5.0674e-03,2.0840e-03,1.1231e-03,
923  &4.2643e-04,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,
924  &7.8709e-01,7.7617e-01,7.6509e-01,7.5353e-01,7.4210e-01,7.2955e-01,
925  &7.1666e-01,7.0326e-01,6.8906e-01,6.7364e-01,6.5743e-01,6.3988e-01,
926  &6.2140e-01,6.0962e-01,5.9645e-01,5.8083e-01,5.6382e-01,5.4630e-01,
927  &5.2750e-01,5.1079e-01,4.9267e-01,4.7078e-01,4.4780e-01,4.2425e-01,
928  &3.9948e-01,3.7773e-01,3.5398e-01,3.2619e-01,2.9811e-01,2.7093e-01/
929  DATA (xdef_l(k),k= 1255, 1368) /
930  &2.4686e-01,2.2668e-01,2.0735e-01,1.8888e-01,1.7555e-01,1.6865e-01,
931  &1.6887e-01,1.7500e-01,1.8693e-01,2.0522e-01,2.2377e-01,2.3300e-01,
932  &2.3501e-01,2.2902e-01,2.1428e-01,1.9427e-01,1.7084e-01,1.4533e-01,
933  &1.1889e-01,9.2655e-02,6.8174e-02,4.7575e-02,3.4123e-02,3.2605e-02,
934  &5.0454e-02,3.8820e-02,2.4822e-02,1.5113e-02,8.6857e-03,4.5962e-03,
935  &1.8704e-03,1.0050e-03,3.7856e-04,0.0000e+00,0.0000e+00,0.0000e+00,
936  &0.0000e+00,0.0000e+00,8.0606e-01,7.9455e-01,7.8312e-01,7.7128e-01,
937  &7.5940e-01,7.4610e-01,7.3287e-01,7.1917e-01,7.0456e-01,6.8825e-01,
938  &6.7140e-01,6.5313e-01,6.3390e-01,6.2170e-01,6.0798e-01,5.9180e-01,
939  &5.7419e-01,5.5596e-01,5.3636e-01,5.1934e-01,5.0050e-01,4.7790e-01,
940  &4.5436e-01,4.3012e-01,4.0458e-01,3.8238e-01,3.5808e-01,3.2984e-01,
941  &3.0133e-01,2.7388e-01,2.4957e-01,2.2930e-01,2.0996e-01,1.9168e-01,
942  &1.7832e-01,1.7159e-01,1.7177e-01,1.7770e-01,1.8921e-01,2.0651e-01,
943  &2.2344e-01,2.3117e-01,2.3152e-01,2.2426e-01,2.0844e-01,1.8790e-01,
944  &1.6440e-01,1.3914e-01,1.1342e-01,8.8280e-02,6.5276e-02,4.6578e-02,
945  &3.5360e-02,3.6411e-02,5.6986e-02,3.6256e-02,2.3040e-02,1.3948e-02,
946  &7.9676e-03,4.1856e-03,1.6876e-03,9.0394e-04,3.3789e-04,0.0000e+00,
947  &0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,8.2409e-01,8.1223e-01,
948  &8.0027e-01,7.8810e-01,7.7580e-01,7.6250e-01,7.4852e-01,7.3383e-01/
949  DATA (xdef_l(k),k= 1369, 1482) /
950  &7.1879e-01,7.0216e-01,6.8466e-01,6.6571e-01,6.4580e-01,6.3303e-01,
951  &6.1887e-01,6.0161e-01,5.8362e-01,5.6485e-01,5.4490e-01,5.2736e-01,
952  &5.0788e-01,4.8465e-01,4.6048e-01,4.3549e-01,4.0949e-01,3.8678e-01,
953  &3.6198e-01,3.3325e-01,3.0435e-01,2.7667e-01,2.5212e-01,2.3179e-01,
954  &2.1241e-01,1.9410e-01,1.8093e-01,1.7428e-01,1.7445e-01,1.8022e-01,
955  &1.9133e-01,2.0758e-01,2.2299e-01,2.2941e-01,2.2823e-01,2.1990e-01,
956  &2.0319e-01,1.8211e-01,1.5852e-01,1.3371e-01,1.0856e-01,8.4430e-02,
957  &6.2776e-02,4.5758e-02,3.6514e-02,3.9756e-02,6.2597e-02,3.4019e-02,
958  &2.1502e-02,1.2943e-02,7.3506e-03,3.8366e-03,1.5351e-03,8.1923e-04,
959  &3.0383e-04,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,
960  &8.4844e-01,8.3627e-01,8.2378e-01,8.1114e-01,7.9820e-01,7.8411e-01,
961  &7.6977e-01,7.5436e-01,7.3871e-01,7.2101e-01,7.0269e-01,6.8280e-01,
962  &6.6180e-01,6.4849e-01,6.3365e-01,6.1605e-01,5.9682e-01,5.7721e-01,
963  &5.5628e-01,5.3805e-01,5.1772e-01,4.9378e-01,4.6868e-01,4.4295e-01,
964  &4.1599e-01,3.9262e-01,3.6722e-01,3.3788e-01,3.0847e-01,2.8040e-01,
965  &2.5562e-01,2.3513e-01,2.1572e-01,1.9746e-01,1.8447e-01,1.7787e-01,
966  &1.7810e-01,1.8358e-01,1.9394e-01,2.0894e-01,2.2227e-01,2.2689e-01,
967  &2.2385e-01,2.1408e-01,1.9620e-01,1.7461e-01,1.5108e-01,1.2667e-01,
968  &1.0243e-01,7.9635e-02,5.9715e-02,4.4804e-02,3.7997e-02,4.3894e-02/
969  DATA (xdef_l(k),k= 1483, 1596) /
970  &6.9391e-02,3.1240e-02,1.9603e-02,1.1712e-02,6.6036e-03,3.4150e-03,
971  &1.3549e-03,7.1812e-04,2.6373e-04,0.0000e+00,0.0000e+00,0.0000e+00,
972  &0.0000e+00,0.0000e+00,8.7089e-01,8.5819e-01,8.4535e-01,8.3207e-01,
973  &8.1860e-01,8.0424e-01,7.8877e-01,7.7320e-01,7.5642e-01,7.3822e-01,
974  &7.1895e-01,6.9816e-01,6.7640e-01,6.6244e-01,6.4701e-01,6.2817e-01,
975  &6.0860e-01,5.8841e-01,5.6672e-01,5.4767e-01,5.2667e-01,5.0182e-01,
976  &4.7599e-01,4.4955e-01,4.2190e-01,3.9787e-01,3.7196e-01,3.4199e-01,
977  &3.1220e-01,2.8382e-01,2.5874e-01,2.3816e-01,2.1874e-01,2.0063e-01,
978  &1.8770e-01,1.8107e-01,1.8121e-01,1.8638e-01,1.9622e-01,2.0994e-01,
979  &2.2156e-01,2.2456e-01,2.1986e-01,2.0892e-01,1.9015e-01,1.6817e-01,
980  &1.4465e-01,1.2070e-01,9.7309e-02,7.5665e-02,5.7234e-02,4.4095e-02,
981  &3.9289e-02,4.7307e-02,7.4739e-02,2.8958e-02,1.8046e-02,1.0716e-02,
982  &6.0010e-03,3.0801e-03,1.2145e-03,6.3833e-04,2.3251e-04,0.0000e+00,
983  &0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,8.9366e-01,8.8058e-01,
984  &8.6727e-01,8.5353e-01,8.3950e-01,8.2436e-01,8.0890e-01,7.9205e-01,
985  &7.7476e-01,7.5566e-01,7.3557e-01,7.1393e-01,6.9120e-01,6.7672e-01,
986  &6.6059e-01,6.4145e-01,6.2086e-01,5.9962e-01,5.7716e-01,5.5756e-01,
987  &5.3584e-01,5.1022e-01,4.8344e-01,4.5615e-01,4.2780e-01,4.0320e-01,
988  &3.7671e-01,3.4621e-01,3.1594e-01,2.8727e-01,2.6196e-01,2.4126e-01/
989  DATA (xdef_l(k),k= 1597, 1710) /
990  &2.2177e-01,2.0361e-01,1.9078e-01,1.8427e-01,1.8432e-01,1.8918e-01,
991  &1.9834e-01,2.1079e-01,2.2065e-01,2.2210e-01,2.1587e-01,2.0383e-01,
992  &1.8424e-01,1.6197e-01,1.3849e-01,1.1505e-01,9.2463e-02,7.1949e-02,
993  &5.4952e-02,4.3474e-02,4.0525e-02,5.0376e-02,7.9517e-02,2.6835e-02,
994  &1.6616e-02,9.8004e-03,5.4489e-03,2.7768e-03,1.0900e-03,5.6728e-04,
995  &2.0489e-04,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,
996  &9.1643e-01,9.0298e-01,8.8901e-01,8.7472e-01,8.6030e-01,8.4449e-01,
997  &8.2790e-01,8.1090e-01,7.9278e-01,7.7287e-01,7.5201e-01,7.2942e-01,
998  &7.0580e-01,6.9067e-01,6.7395e-01,6.5357e-01,6.3264e-01,6.1082e-01,
999  &5.8728e-01,5.6718e-01,5.4478e-01,5.1825e-01,4.9075e-01,4.6263e-01,
1000  &4.3360e-01,4.0844e-01,3.8138e-01,3.5032e-01,3.1963e-01,2.9065e-01,
1001  &2.6511e-01,2.4428e-01,2.2479e-01,2.0678e-01,1.9385e-01,1.8735e-01,
1002  &1.8722e-01,1.9179e-01,2.0029e-01,2.1158e-01,2.1961e-01,2.1971e-01,
1003  &2.1194e-01,1.9894e-01,1.7862e-01,1.5609e-01,1.3279e-01,1.0972e-01,
1004  &8.8007e-02,6.8578e-02,5.2905e-02,4.2942e-02,4.1624e-02,5.3065e-02,
1005  &8.3506e-02,2.4920e-02,1.5334e-02,8.9876e-03,4.9653e-03,2.5112e-03,
1006  &9.8300e-04,5.0629e-04,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,
1007  &0.0000e+00,0.0000e+00,9.3762e-01,9.2325e-01,9.0916e-01,8.9432e-01,
1008  &8.7930e-01,8.6312e-01,8.4579e-01,8.2807e-01,8.0954e-01,7.8866e-01/
1009  DATA (xdef_l(k),k= 1711, 1824) /
1010  &7.6704e-01,7.4360e-01,7.1911e-01,7.0343e-01,6.8612e-01,6.6512e-01,
1011  &6.4349e-01,6.2048e-01,5.9676e-01,5.7574e-01,5.5261e-01,5.2556e-01,
1012  &4.9731e-01,4.6862e-01,4.3881e-01,4.1318e-01,3.8556e-01,3.5408e-01,
1013  &3.2299e-01,2.9375e-01,2.6794e-01,2.4706e-01,2.2744e-01,2.0939e-01,
1014  &1.9662e-01,1.9016e-01,1.8990e-01,1.9412e-01,2.0192e-01,2.1208e-01,
1015  &2.1863e-01,2.1745e-01,2.0845e-01,1.9458e-01,1.7365e-01,1.5094e-01,
1016  &1.2783e-01,1.0526e-01,8.4228e-02,6.5746e-02,5.1203e-02,4.2521e-02,
1017  &4.2531e-02,5.5238e-02,8.6619e-02,2.3321e-02,1.4266e-02,8.3142e-03,
1018  &4.5684e-03,2.2945e-03,8.9721e-04,4.5700e-04,0.0000e+00,0.0000e+00,
1019  &0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,9.5912e-01,9.4446e-01,
1020  &9.2967e-01,9.1446e-01,8.9890e-01,8.8176e-01,8.6424e-01,8.4567e-01,
1021  &8.2630e-01,8.0492e-01,7.8242e-01,7.5817e-01,7.3271e-01,7.1653e-01,
1022  &6.9849e-01,6.7725e-01,6.5433e-01,6.3091e-01,6.0625e-01,5.8456e-01,
1023  &5.6088e-01,5.3305e-01,5.0402e-01,4.7461e-01,4.4411e-01,4.1800e-01,
1024  &3.8988e-01,3.5790e-01,3.2644e-01,2.9690e-01,2.7087e-01,2.4987e-01,
1025  &2.3039e-01,2.1219e-01,1.9955e-01,1.9298e-01,1.9248e-01,1.9636e-01,
1026  &2.0355e-01,2.1258e-01,2.1752e-01,2.1512e-01,2.0490e-01,1.9021e-01,
1027  &1.6876e-01,1.4586e-01,1.2296e-01,1.0090e-01,8.0587e-02,6.3034e-02,
1028  &4.9591e-02,4.2122e-02,4.3355e-02,5.7203e-02,8.9336e-02,2.1802e-02/
1029  DATA (xdef_l(k),k= 1825, 1836) /
1030  &1.3258e-02,7.6843e-03,4.1967e-03,2.0952e-03,8.1932e-04,4.1202e-04,
1031  &0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00,0.0000e+00/
1032  DATA (xudf_l(k),k= 1, 114) /
1033  &1.8987e-02,1.9947e-02,2.0980e-02,2.2068e-02,2.3225e-02,2.4540e-02,
1034  &2.5957e-02,2.7526e-02,2.9229e-02,3.1232e-02,3.3453e-02,3.6003e-02,
1035  &3.8855e-02,4.0763e-02,4.2980e-02,4.5778e-02,4.8895e-02,5.2320e-02,
1036  &5.6174e-02,5.9765e-02,6.3980e-02,6.9315e-02,7.5299e-02,8.1888e-02,
1037  &8.9292e-02,9.6162e-02,1.0414e-01,1.1410e-01,1.2505e-01,1.3674e-01,
1038  &1.4937e-01,1.6060e-01,1.7296e-01,1.8730e-01,2.0166e-01,2.1531e-01,
1039  &2.2821e-01,2.3833e-01,2.4848e-01,2.6049e-01,2.7586e-01,2.9166e-01,
1040  &3.1456e-01,3.3942e-01,3.7230e-01,4.0597e-01,4.3921e-01,4.7071e-01,
1041  &4.9846e-01,5.2057e-01,5.3433e-01,5.3610e-01,5.2141e-01,4.8433e-01,
1042  &4.1719e-01,6.3794e-01,6.7411e-01,7.2040e-01,7.8812e-01,8.9495e-01,
1043  &1.0702e+00,1.3629e+00,1.8763e+00,2.8399e+00,4.8968e+00,1.0506e+01,
1044  &3.7793e+01,0.0000e+00,3.1111e-02,3.2336e-02,3.3580e-02,3.4906e-02,
1045  &3.6247e-02,3.7773e-02,3.9337e-02,4.1056e-02,4.2876e-02,4.5001e-02,
1046  &4.7299e-02,4.9897e-02,5.2761e-02,5.4666e-02,5.6867e-02,5.9620e-02,
1047  &6.2679e-02,6.6018e-02,6.9775e-02,7.3275e-02,7.7353e-02,8.2522e-02,
1048  &8.8327e-02,9.4694e-02,1.0184e-01,1.0846e-01,1.1615e-01,1.2575e-01,
1049  &1.3628e-01,1.4752e-01,1.5964e-01,1.7036e-01,1.8215e-01,1.9580e-01,
1050  &2.0933e-01,2.2213e-01,2.3411e-01,2.4341e-01,2.5275e-01,2.6387e-01,
1051  &2.7831e-01,2.9333e-01,3.1510e-01,3.3876e-01,3.6995e-01,4.0170e-01/
1052  DATA (xudf_l(k),k= 115, 228) /
1053  &4.3298e-01,4.6172e-01,4.8742e-01,5.0700e-01,5.1856e-01,5.1873e-01,
1054  &5.0352e-01,4.6746e-01,4.0418e-01,6.1801e-01,6.5339e-01,6.9923e-01,
1055  &7.6627e-01,8.7125e-01,1.0408e+00,1.3199e+00,1.8020e+00,2.6920e+00,
1056  &4.5574e+00,9.5310e+00,3.2877e+01,0.0000e+00,5.1176e-02,5.2640e-02,
1057  &5.4100e-02,5.5603e-02,5.7095e-02,5.8737e-02,6.0416e-02,6.2154e-02,
1058  &6.4016e-02,6.6046e-02,6.8273e-02,7.0765e-02,7.3444e-02,7.5182e-02,
1059  &7.7263e-02,7.9781e-02,8.2626e-02,8.5707e-02,8.9176e-02,9.2402e-02,
1060  &9.6182e-02,1.0098e-01,1.0635e-01,1.1227e-01,1.1893e-01,1.2513e-01,
1061  &1.3230e-01,1.4128e-01,1.5115e-01,1.6164e-01,1.7300e-01,1.8301e-01,
1062  &1.9397e-01,2.0660e-01,2.1907e-01,2.3072e-01,2.4154e-01,2.4985e-01,
1063  &2.5817e-01,2.6810e-01,2.8136e-01,2.9535e-01,3.1585e-01,3.3824e-01,
1064  &3.6743e-01,3.9701e-01,4.2565e-01,4.5205e-01,4.7460e-01,4.9184e-01,
1065  &5.0110e-01,4.9954e-01,4.8363e-01,4.4878e-01,3.8940e-01,5.9452e-01,
1066  &6.2820e-01,6.7181e-01,7.3612e-01,8.3598e-01,9.9560e-01,1.2543e+00,
1067  &1.6953e+00,2.4947e+00,4.1415e+00,8.4275e+00,2.7797e+01,0.0000e+00,
1068  &8.6266e-02,8.7847e-02,8.9380e-02,9.0869e-02,9.2337e-02,9.3826e-02,
1069  &9.5315e-02,9.6842e-02,9.8333e-02,1.0003e-01,1.0178e-01,1.0370e-01,
1070  &1.0575e-01,1.0710e-01,1.0872e-01,1.1075e-01,1.1295e-01,1.1538e-01,
1071  &1.1821e-01,1.2088e-01,1.2396e-01,1.2796e-01,1.3252e-01,1.3756e-01/
1072  DATA (xudf_l(k),k= 229, 342) /
1073  &1.4331e-01,1.4870e-01,1.5500e-01,1.6291e-01,1.7166e-01,1.8100e-01,
1074  &1.9111e-01,2.0002e-01,2.0977e-01,2.2095e-01,2.3189e-01,2.4200e-01,
1075  &2.5123e-01,2.5821e-01,2.6512e-01,2.7351e-01,2.8514e-01,2.9789e-01,
1076  &3.1683e-01,3.3731e-01,3.6424e-01,3.9124e-01,4.1697e-01,4.4030e-01,
1077  &4.6002e-01,4.7419e-01,4.8085e-01,4.7740e-01,4.6086e-01,4.2728e-01,
1078  &3.7241e-01,5.6656e-01,5.9684e-01,6.3694e-01,6.9622e-01,7.8804e-01,
1079  &9.3343e-01,1.1653e+00,1.5545e+00,2.2504e+00,3.6537e+00,7.2124e+00,
1080  &2.2653e+01,0.0000e+00,1.4838e-01,1.4960e-01,1.5068e-01,1.5161e-01,
1081  &1.5242e-01,1.5316e-01,1.5373e-01,1.5426e-01,1.5470e-01,1.5511e-01,
1082  &1.5554e-01,1.5602e-01,1.5660e-01,1.5698e-01,1.5750e-01,1.5830e-01,
1083  &1.5923e-01,1.6034e-01,1.6181e-01,1.6324e-01,1.6509e-01,1.6746e-01,
1084  &1.7054e-01,1.7402e-01,1.7811e-01,1.8208e-01,1.8687e-01,1.9296e-01,
1085  &1.9986e-01,2.0734e-01,2.1554e-01,2.2281e-01,2.3075e-01,2.3983e-01,
1086  &2.4863e-01,2.5660e-01,2.6366e-01,2.6883e-01,2.7387e-01,2.8026e-01,
1087  &2.8982e-01,3.0088e-01,3.1780e-01,3.3626e-01,3.6021e-01,3.8399e-01,
1088  &4.0666e-01,4.2682e-01,4.4278e-01,4.5386e-01,4.5774e-01,4.5230e-01,
1089  &4.3509e-01,4.0314e-01,3.5321e-01,5.3325e-01,5.5916e-01,5.9448e-01,
1090  &6.4707e-01,7.2797e-01,8.5557e-01,1.0563e+00,1.3882e+00,1.9717e+00,
1091  &3.1223e+00,5.9601e+00,1.7750e+01,0.0000e+00,2.3139e-01,2.3138e-01/
1092  DATA (xudf_l(k),k= 343, 456) /
1093  &2.3120e-01,2.3076e-01,2.3006e-01,2.2907e-01,2.2788e-01,2.2645e-01,
1094  &2.2489e-01,2.2308e-01,2.2120e-01,2.1929e-01,2.1743e-01,2.1630e-01,
1095  &2.1526e-01,2.1411e-01,2.1311e-01,2.1231e-01,2.1171e-01,2.1148e-01,
1096  &2.1150e-01,2.1182e-01,2.1271e-01,2.1412e-01,2.1601e-01,2.1822e-01,
1097  &2.2096e-01,2.2496e-01,2.2961e-01,2.3481e-01,2.4086e-01,2.4622e-01,
1098  &2.5214e-01,2.5891e-01,2.6537e-01,2.7104e-01,2.7588e-01,2.7922e-01,
1099  &2.8235e-01,2.8664e-01,2.9413e-01,3.0352e-01,3.1845e-01,3.3481e-01,
1100  &3.5617e-01,3.7737e-01,3.9689e-01,4.1403e-01,4.2736e-01,4.3558e-01,
1101  &4.3712e-01,4.3016e-01,4.1245e-01,3.8197e-01,3.3645e-01,5.0322e-01,
1102  &5.2507e-01,5.5559e-01,6.0172e-01,6.7286e-01,7.8413e-01,9.5797e-01,
1103  &1.2422e+00,1.7341e+00,2.6883e+00,4.9868e+00,1.4177e+01,0.0000e+00,
1104  &3.6389e-01,3.6098e-01,3.5780e-01,3.5400e-01,3.5016e-01,3.4553e-01,
1105  &3.4044e-01,3.3521e-01,3.2971e-01,3.2369e-01,3.1755e-01,3.1120e-01,
1106  &3.0494e-01,3.0120e-01,2.9724e-01,2.9287e-01,2.8855e-01,2.8449e-01,
1107  &2.8072e-01,2.7770e-01,2.7469e-01,2.7175e-01,2.6933e-01,2.6740e-01,
1108  &2.6613e-01,2.6556e-01,2.6563e-01,2.6631e-01,2.6763e-01,2.6975e-01,
1109  &2.7268e-01,2.7539e-01,2.7857e-01,2.8224e-01,2.8565e-01,2.8841e-01,
1110  &2.9040e-01,2.9139e-01,2.9220e-01,2.9395e-01,2.9888e-01,3.0633e-01,
1111  &3.1877e-01,3.3296e-01,3.5147e-01,3.6947e-01,3.8604e-01,3.9986e-01/
1112  DATA (xudf_l(k),k= 457, 570) /
1113  &4.1008e-01,4.1548e-01,4.1467e-01,4.0620e-01,3.8830e-01,3.5965e-01,
1114  &3.1902e-01,4.7020e-01,4.8772e-01,5.1303e-01,5.5185e-01,6.1224e-01,
1115  &7.0699e-01,8.5323e-01,1.0903e+00,1.4950e+00,2.2640e+00,4.0723e+00,
1116  &0.0000e+00,0.0000e+00,5.2666e-01,5.1909e-01,5.1100e-01,5.0238e-01,
1117  &4.9333e-01,4.8312e-01,4.7293e-01,4.6180e-01,4.5066e-01,4.3890e-01,
1118  &4.2692e-01,4.1467e-01,4.0262e-01,3.9542e-01,3.8784e-01,3.7925e-01,
1119  &3.7080e-01,3.6267e-01,3.5482e-01,3.4841e-01,3.4190e-01,3.3492e-01,
1120  &3.2852e-01,3.2287e-01,3.1768e-01,3.1409e-01,3.1066e-01,3.0785e-01,
1121  &3.0564e-01,3.0446e-01,3.0380e-01,3.0388e-01,3.0402e-01,3.0458e-01,
1122  &3.0488e-01,3.0475e-01,3.0386e-01,3.0263e-01,3.0116e-01,3.0045e-01,
1123  &3.0296e-01,3.0852e-01,3.1888e-01,3.3085e-01,3.4677e-01,3.6222e-01,
1124  &3.7600e-01,3.8707e-01,3.9488e-01,3.9799e-01,3.9530e-01,3.8568e-01,
1125  &3.6791e-01,3.4080e-01,3.0424e-01,4.4195e-01,4.5570e-01,4.7648e-01,
1126  &5.0935e-01,5.6099e-01,6.4225e-01,7.6680e-01,9.6736e-01,1.3053e+00,
1127  &1.9393e+00,3.3976e+00,0.0000e+00,0.0000e+00,7.4015e-01,7.2498e-01,
1128  &7.0940e-01,6.9297e-01,6.7620e-01,6.5800e-01,6.3935e-01,6.2047e-01,
1129  &6.0114e-01,5.8076e-01,5.6065e-01,5.4030e-01,5.2035e-01,5.0839e-01,
1130  &4.9583e-01,4.8167e-01,4.6773e-01,4.5434e-01,4.4113e-01,4.3035e-01,
1131  &4.1922e-01,4.0719e-01,3.9582e-01,3.8536e-01,3.7557e-01,3.6805e-01/
1132  DATA (xudf_l(k),k= 571, 684) /
1133  &3.6079e-01,3.5336e-01,3.4710e-01,3.4173e-01,3.3719e-01,3.3400e-01,
1134  &3.3124e-01,3.2819e-01,3.2494e-01,3.2158e-01,3.1765e-01,3.1400e-01,
1135  &3.1011e-01,3.0684e-01,3.0682e-01,3.1046e-01,3.1856e-01,3.2861e-01,
1136  &3.4189e-01,3.5475e-01,3.6597e-01,3.7463e-01,3.8003e-01,3.8108e-01,
1137  &3.7681e-01,3.6631e-01,3.4865e-01,3.2327e-01,2.9078e-01,4.1488e-01,
1138  &4.2529e-01,4.4193e-01,4.6945e-01,5.1322e-01,5.8236e-01,6.8846e-01,
1139  &8.5739e-01,1.1394e+00,1.6617e+00,2.8395e+00,0.0000e+00,0.0000e+00,
1140  &9.8501e-01,9.5975e-01,9.3420e-01,9.0757e-01,8.8092e-01,8.5237e-01,
1141  &8.2383e-01,7.9445e-01,7.6556e-01,7.3524e-01,7.0484e-01,6.7495e-01,
1142  &6.4547e-01,6.2798e-01,6.0969e-01,5.8904e-01,5.6882e-01,5.4932e-01,
1143  &5.3014e-01,5.1443e-01,4.9826e-01,4.8058e-01,4.6380e-01,4.4815e-01,
1144  &4.3330e-01,4.2167e-01,4.1020e-01,3.9827e-01,3.8748e-01,3.7784e-01,
1145  &3.6931e-01,3.6303e-01,3.5669e-01,3.4992e-01,3.4358e-01,3.3710e-01,
1146  &3.3025e-01,3.2429e-01,3.1817e-01,3.1242e-01,3.1001e-01,3.1195e-01,
1147  &3.1802e-01,3.2610e-01,3.3719e-01,3.4770e-01,3.5674e-01,3.6357e-01,
1148  &3.6695e-01,3.6631e-01,3.6075e-01,3.4960e-01,3.3214e-01,3.0855e-01,
1149  &2.7931e-01,3.9198e-01,3.9931e-01,4.1263e-01,4.3550e-01,4.7310e-01,
1150  &5.3259e-01,6.2375e-01,7.6876e-01,1.0087e+00,1.4464e+00,2.4185e+00,
1151  &0.0000e+00,0.0000e+00,1.2917e+00,1.2523e+00,1.2128e+00,1.1722e+00/
1152  DATA (xudf_l(k),k= 685, 798) /
1153  &1.1321e+00,1.0894e+00,1.0473e+00,1.0044e+00,9.6262e-01,9.1838e-01,
1154  &8.7565e-01,8.3283e-01,7.9186e-01,7.6734e-01,7.4146e-01,7.1300e-01,
1155  &6.8484e-01,6.5787e-01,6.3134e-01,6.0963e-01,5.8730e-01,5.6294e-01,
1156  &5.3947e-01,5.1767e-01,4.9689e-01,4.8039e-01,4.6398e-01,4.4675e-01,
1157  &4.3087e-01,4.1650e-01,4.0371e-01,3.9342e-01,3.8361e-01,3.7293e-01,
1158  &3.6284e-01,3.5305e-01,3.4307e-01,3.3468e-01,3.2613e-01,3.1788e-01,
1159  &3.1306e-01,3.1309e-01,3.1715e-01,3.2346e-01,3.3232e-01,3.4066e-01,
1160  &3.4779e-01,3.5251e-01,3.5401e-01,3.5184e-01,3.4519e-01,3.3347e-01,
1161  &3.1650e-01,2.9433e-01,2.6872e-01,3.6968e-01,3.7446e-01,3.8477e-01,
1162  &4.0368e-01,4.3551e-01,4.8654e-01,5.6457e-01,6.8832e-01,8.9135e-01,
1163  &1.2583e+00,2.0601e+00,0.0000e+00,0.0000e+00,1.6499e+00,1.5928e+00,
1164  &1.5356e+00,1.4773e+00,1.4202e+00,1.3601e+00,1.3009e+00,1.2413e+00,
1165  &1.1836e+00,1.1235e+00,1.0650e+00,1.0076e+00,9.5212e-01,9.1919e-01,
1166  &8.8569e-01,8.4733e-01,8.1006e-01,7.7436e-01,7.3955e-01,7.1104e-01,
1167  &6.8173e-01,6.4966e-01,6.1893e-01,5.9026e-01,5.6287e-01,5.4114e-01,
1168  &5.1941e-01,4.9621e-01,4.7490e-01,4.5564e-01,4.3786e-01,4.2408e-01,
1169  &4.1024e-01,3.9562e-01,3.8175e-01,3.6853e-01,3.5541e-01,3.4455e-01,
1170  &3.3366e-01,3.2286e-01,3.1565e-01,3.1397e-01,3.1618e-01,3.2069e-01,
1171  &3.2744e-01,3.3383e-01,3.3911e-01,3.4194e-01,3.4194e-01,3.3844e-01/
1172  DATA (xudf_l(k),k= 799, 912) /
1173  &3.3088e-01,3.1887e-01,3.0224e-01,2.8177e-01,2.5901e-01,3.4945e-01,
1174  &3.5200e-01,3.5959e-01,3.7518e-01,4.0212e-01,4.4590e-01,5.1305e-01,
1175  &6.1934e-01,7.9273e-01,1.1025e+00,1.7693e+00,0.0000e+00,0.0000e+00,
1176  &2.0413e+00,1.9626e+00,1.8840e+00,1.8053e+00,1.7284e+00,1.6480e+00,
1177  &1.5697e+00,1.4911e+00,1.4157e+00,1.3375e+00,1.2620e+00,1.1875e+00,
1178  &1.1168e+00,1.0751e+00,1.0321e+00,9.8410e-01,9.3682e-01,8.9196e-01,
1179  &8.4816e-01,8.1245e-01,7.7582e-01,7.3576e-01,6.9745e-01,6.6154e-01,
1180  &6.2742e-01,6.0036e-01,5.7319e-01,5.4409e-01,5.1721e-01,4.9291e-01,
1181  &4.7049e-01,4.5284e-01,4.3541e-01,4.1671e-01,3.9926e-01,3.8274e-01,
1182  &3.6660e-01,3.5348e-01,3.4035e-01,3.2727e-01,3.1788e-01,3.1459e-01,
1183  &3.1499e-01,3.1792e-01,3.2291e-01,3.2764e-01,3.3124e-01,3.3250e-01,
1184  &3.3120e-01,3.2663e-01,3.1834e-01,3.0608e-01,2.8998e-01,2.7085e-01,
1185  &2.5085e-01,3.3191e-01,3.3258e-01,3.3808e-01,3.5072e-01,3.7379e-01,
1186  &4.1182e-01,4.7005e-01,5.6257e-01,7.1233e-01,9.7788e-01,1.5412e+00,
1187  &0.0000e+00,0.0000e+00,2.6325e+00,2.5188e+00,2.4060e+00,2.2942e+00,
1188  &2.1863e+00,2.0740e+00,1.9650e+00,1.8571e+00,1.7537e+00,1.6473e+00,
1189  &1.5453e+00,1.4458e+00,1.3515e+00,1.2965e+00,1.2394e+00,1.1767e+00,
1190  &1.1150e+00,1.0560e+00,9.9927e-01,9.5301e-01,9.0565e-01,8.5400e-01,
1191  &8.0462e-01,7.5858e-01,7.1481e-01,6.7994e-01,6.4502e-01,6.0799e-01/
1192  DATA (xudf_l(k),k= 913, 1026) /
1193  &5.7349e-01,5.4206e-01,5.1299e-01,4.9028e-01,4.6789e-01,4.4387e-01,
1194  &4.2168e-01,4.0096e-01,3.8070e-01,3.6457e-01,3.4857e-01,3.3249e-01,
1195  &3.2026e-01,3.1503e-01,3.1326e-01,3.1423e-01,3.1703e-01,3.1974e-01,
1196  &3.2120e-01,3.2086e-01,3.1799e-01,3.1221e-01,3.0315e-01,2.9072e-01,
1197  &2.7522e-01,2.5796e-01,2.4114e-01,3.1079e-01,3.0956e-01,3.1267e-01,
1198  &3.2223e-01,3.4089e-01,3.7246e-01,4.2134e-01,4.9853e-01,6.2305e-01,
1199  &8.4191e-01,1.2983e+00,0.0000e+00,0.0000e+00,3.2997e+00,3.1427e+00,
1200  &2.9900e+00,2.8374e+00,2.6927e+00,2.5421e+00,2.3973e+00,2.2549e+00,
1201  &2.1191e+00,1.9809e+00,1.8488e+00,1.7209e+00,1.6001e+00,1.5300e+00,
1202  &1.4576e+00,1.3771e+00,1.2999e+00,1.2268e+00,1.1551e+00,1.0975e+00,
1203  &1.0385e+00,9.7437e-01,9.1327e-01,8.5649e-01,8.0236e-01,7.5952e-01,
1204  &7.1667e-01,6.7091e-01,6.2847e-01,5.9005e-01,5.5422e-01,5.2636e-01,
1205  &4.9890e-01,4.6976e-01,4.4269e-01,4.1752e-01,3.9377e-01,3.7477e-01,
1206  &3.5594e-01,3.3710e-01,3.2226e-01,3.1511e-01,3.1131e-01,3.1067e-01,
1207  &3.1132e-01,3.1227e-01,3.1198e-01,3.1021e-01,3.0606e-01,2.9926e-01,
1208  &2.8958e-01,2.7716e-01,2.6233e-01,2.4655e-01,2.3275e-01,2.9229e-01,
1209  &2.8941e-01,2.9061e-01,2.9753e-01,3.1273e-01,3.3909e-01,3.8034e-01,
1210  &4.4548e-01,5.5028e-01,7.3256e-01,1.1074e+00,0.0000e+00,0.0000e+00,
1211  &4.0557e+00,3.8486e+00,3.6460e+00,3.4480e+00,3.2579e+00,3.0626e+00/
1212  DATA (xudf_l(k),k= 1027, 1140) /
1213  &2.8756e+00,2.6929e+00,2.5196e+00,2.3441e+00,2.1778e+00,2.0170e+00,
1214  &1.8670e+00,1.7797e+00,1.6902e+00,1.5909e+00,1.4960e+00,1.4058e+00,
1215  &1.3191e+00,1.2484e+00,1.1764e+00,1.0991e+00,1.0253e+00,9.5689e-01,
1216  &8.9197e-01,8.4046e-01,7.8904e-01,7.3442e-01,6.8367e-01,6.3780e-01,
1217  &5.9520e-01,5.6218e-01,5.2934e-01,4.9500e-01,4.6300e-01,4.3370e-01,
1218  &4.0611e-01,3.8431e-01,3.6284e-01,3.4121e-01,3.2389e-01,3.1494e-01,
1219  &3.0926e-01,3.0697e-01,3.0594e-01,3.0501e-01,3.0330e-01,3.0019e-01,
1220  &2.9492e-01,2.8734e-01,2.7718e-01,2.6476e-01,2.5057e-01,2.3646e-01,
1221  &2.2503e-01,2.7558e-01,2.7132e-01,2.7089e-01,2.7569e-01,2.8794e-01,
1222  &3.1000e-01,3.4491e-01,4.0016e-01,4.8886e-01,6.4191e-01,9.5232e-01,
1223  &0.0000e+00,0.0000e+00,4.8799e+00,4.6116e+00,4.3560e+00,4.1035e+00,
1224  &3.8608e+00,3.6163e+00,3.3822e+00,3.1557e+00,2.9412e+00,2.7247e+00,
1225  &2.5209e+00,2.3248e+00,2.1421e+00,2.0368e+00,1.9287e+00,1.8094e+00,
1226  &1.6955e+00,1.5877e+00,1.4841e+00,1.4003e+00,1.3154e+00,1.2237e+00,
1227  &1.1368e+00,1.0563e+00,9.8015e-01,9.2005e-01,8.5978e-01,7.9615e-01,
1228  &7.3715e-01,6.8369e-01,6.3441e-01,5.9609e-01,5.5830e-01,5.1865e-01,
1229  &4.8192e-01,4.4872e-01,4.1747e-01,3.9300e-01,3.6895e-01,3.4483e-01,
1230  &3.2508e-01,3.1459e-01,3.0709e-01,3.0328e-01,3.0056e-01,2.9840e-01,
1231  &2.9543e-01,2.9107e-01,2.8485e-01,2.7655e-01,2.6610e-01,2.5368e-01/
1232  DATA (xudf_l(k),k= 1141, 1254) /
1233  &2.4019e-01,2.2736e-01,2.1837e-01,2.6080e-01,2.5542e-01,2.5362e-01,
1234  &2.5693e-01,2.6661e-01,2.8505e-01,3.1490e-01,3.6226e-01,4.3798e-01,
1235  &5.6769e-01,8.2836e-01,0.0000e+00,0.0000e+00,5.8340e+00,5.4940e+00,
1236  &5.1700e+00,4.8532e+00,4.5515e+00,4.2463e+00,3.9559e+00,3.6752e+00,
1237  &3.4138e+00,3.1496e+00,2.9022e+00,2.6648e+00,2.4450e+00,2.3189e+00,
1238  &2.1896e+00,2.0476e+00,1.9120e+00,1.7843e+00,1.6621e+00,1.5639e+00,
1239  &1.4648e+00,1.3569e+00,1.2556e+00,1.1618e+00,1.0734e+00,1.0037e+00,
1240  &9.3416e-01,8.6065e-01,7.9257e-01,7.3145e-01,6.7463e-01,6.3082e-01,
1241  &5.8786e-01,5.4262e-01,5.0118e-01,4.6374e-01,4.2883e-01,4.0146e-01,
1242  &3.7490e-01,3.4814e-01,3.2612e-01,3.1397e-01,3.0482e-01,2.9958e-01,
1243  &2.9536e-01,2.9178e-01,2.8756e-01,2.8208e-01,2.7504e-01,2.6611e-01,
1244  &2.5539e-01,2.4319e-01,2.3031e-01,2.1877e-01,2.1195e-01,2.4673e-01,
1245  &2.4036e-01,2.3746e-01,2.3912e-01,2.4677e-01,2.6223e-01,2.8748e-01,
1246  &3.2792e-01,3.9255e-01,5.0271e-01,7.2095e-01,0.0000e+00,0.0000e+00,
1247  &6.8578e+00,6.4388e+00,6.0380e+00,5.6501e+00,5.2825e+00,4.9103e+00,
1248  &4.5613e+00,4.2230e+00,3.9070e+00,3.5911e+00,3.2966e+00,3.0156e+00,
1249  &2.7567e+00,2.6078e+00,2.4563e+00,2.2905e+00,2.1319e+00,1.9837e+00,
1250  &1.8421e+00,1.7287e+00,1.6141e+00,1.4902e+00,1.3730e+00,1.2663e+00,
1251  &1.1652e+00,1.0858e+00,1.0067e+00,9.2337e-01,8.4648e-01,7.7710e-01/
1252  DATA (xudf_l(k),k= 1255, 1368) /
1253  &7.1333e-01,6.6392e-01,6.1566e-01,5.6531e-01,5.1904e-01,4.7761e-01,
1254  &4.3908e-01,4.0927e-01,3.8022e-01,3.5109e-01,3.2686e-01,3.1318e-01,
1255  &3.0244e-01,2.9602e-01,2.9031e-01,2.8538e-01,2.8024e-01,2.7382e-01,
1256  &2.6607e-01,2.5668e-01,2.4571e-01,2.3364e-01,2.2155e-01,2.1116e-01,
1257  &2.0617e-01,2.3421e-01,2.2704e-01,2.2320e-01,2.2366e-01,2.2952e-01,
1258  &2.4241e-01,2.6402e-01,2.9884e-01,3.5437e-01,4.4860e-01,6.3331e-01,
1259  &0.0000e+00,0.0000e+00,7.9784e+00,7.4673e+00,6.9820e+00,6.5121e+00,
1260  &6.0712e+00,5.6250e+00,5.2080e+00,4.8065e+00,4.4309e+00,4.0590e+00,
1261  &3.7131e+00,3.3843e+00,3.0816e+00,2.9094e+00,2.7332e+00,2.5420e+00,
1262  &2.3595e+00,2.1895e+00,2.0271e+00,1.8966e+00,1.7658e+00,1.6248e+00,
1263  &1.4933e+00,1.3718e+00,1.2579e+00,1.1683e+00,1.0795e+00,9.8589e-01,
1264  &8.9996e-01,8.2253e-01,7.5153e-01,6.9648e-01,6.4287e-01,5.8736e-01,
1265  &5.3655e-01,4.9109e-01,4.4891e-01,4.1655e-01,3.8518e-01,3.5367e-01,
1266  &3.2738e-01,3.1221e-01,3.0006e-01,2.9246e-01,2.8544e-01,2.7940e-01,
1267  &2.7319e-01,2.6601e-01,2.5763e-01,2.4782e-01,2.3676e-01,2.2486e-01,
1268  &2.1329e-01,2.0405e-01,2.0083e-01,2.2267e-01,2.1489e-01,2.1027e-01,
1269  &2.0967e-01,2.1409e-01,2.2473e-01,2.4320e-01,2.7316e-01,3.2113e-01,
1270  &4.0209e-01,5.5899e-01,0.0000e+00,0.0000e+00,9.1575e+00,8.5458e+00,
1271  &7.9700e+00,7.4123e+00,6.8876e+00,6.3653e+00,5.8736e+00,5.4042e+00/
1272  DATA (xudf_l(k),k= 1369, 1482) /
1273  &4.9684e+00,4.5359e+00,4.1366e+00,3.7576e+00,3.4110e+00,3.2138e+00,
1274  &3.0122e+00,2.7943e+00,2.5871e+00,2.3944e+00,2.2102e+00,2.0646e+00,
1275  &1.9163e+00,1.7581e+00,1.6109e+00,1.4753e+00,1.3483e+00,1.2486e+00,
1276  &1.1500e+00,1.0462e+00,9.5130e-01,8.6585e-01,7.8770e-01,7.2741e-01,
1277  &6.6891e-01,6.0781e-01,5.5266e-01,5.0342e-01,4.5788e-01,4.2322e-01,
1278  &3.8960e-01,3.5594e-01,3.2768e-01,3.1125e-01,2.9779e-01,2.8890e-01,
1279  &2.8091e-01,2.7385e-01,2.6670e-01,2.5886e-01,2.4989e-01,2.3976e-01,
1280  &2.2861e-01,2.1703e-01,2.0604e-01,1.9777e-01,1.9598e-01,2.1238e-01,
1281  &2.0408e-01,1.9879e-01,1.9735e-01,2.0048e-01,2.0933e-01,2.2523e-01,
1282  &2.5120e-01,2.9296e-01,3.6305e-01,4.9711e-01,0.0000e+00,0.0000e+00,
1283  &1.0956e+01,1.0188e+01,9.4660e+00,8.7704e+00,8.1209e+00,7.4727e+00,
1284  &6.8721e+00,6.2972e+00,5.7646e+00,5.2434e+00,4.7595e+00,4.3051e+00,
1285  &3.8911e+00,3.6559e+00,3.4174e+00,3.1598e+00,2.9153e+00,2.6889e+00,
1286  &2.4732e+00,2.3031e+00,2.1311e+00,1.9475e+00,1.7771e+00,1.6202e+00,
1287  &1.4748e+00,1.3609e+00,1.2481e+00,1.1301e+00,1.0222e+00,9.2549e-01,
1288  &8.3728e-01,7.6947e-01,7.0373e-01,6.3561e-01,5.7438e-01,5.1959e-01,
1289  &4.6984e-01,4.3187e-01,3.9529e-01,3.5864e-01,3.2783e-01,3.0967e-01,
1290  &2.9444e-01,2.8428e-01,2.7469e-01,2.6638e-01,2.5813e-01,2.4942e-01,
1291  &2.3986e-01,2.2937e-01,2.1819e-01,2.0682e-01,1.9665e-01,1.8966e-01/
1292  DATA (xudf_l(k),k= 1483, 1596) /
1293  &1.8971e-01,1.9926e-01,1.9036e-01,1.8442e-01,1.8192e-01,1.8362e-01,
1294  &1.9037e-01,2.0318e-01,2.2459e-01,2.5904e-01,3.1665e-01,4.2407e-01,
1295  &0.0000e+00,0.0000e+00,1.2798e+01,1.1861e+01,1.0986e+01,1.0144e+01,
1296  &9.3643e+00,8.5887e+00,7.8706e+00,7.1866e+00,6.5568e+00,5.9419e+00,
1297  &5.3754e+00,4.8419e+00,4.3593e+00,4.0864e+00,3.8109e+00,3.5127e+00,
1298  &3.2315e+00,2.9714e+00,2.7252e+00,2.5309e+00,2.3356e+00,2.1269e+00,
1299  &1.9338e+00,1.7578e+00,1.5939e+00,1.4656e+00,1.3394e+00,1.2075e+00,
1300  &1.0875e+00,9.8023e-01,8.8256e-01,8.0772e-01,7.3533e-01,6.6054e-01,
1301  &5.9364e-01,5.3423e-01,4.8009e-01,4.3930e-01,4.0003e-01,3.6079e-01,
1302  &3.2768e-01,3.0809e-01,2.9130e-01,2.7993e-01,2.6898e-01,2.5976e-01,
1303  &2.5062e-01,2.4123e-01,2.3116e-01,2.2040e-01,2.0917e-01,1.9814e-01,
1304  &1.8865e-01,1.8272e-01,1.8428e-01,1.8820e-01,1.7883e-01,1.7238e-01,
1305  &1.6914e-01,1.6979e-01,1.7482e-01,1.8534e-01,2.0325e-01,2.3214e-01,
1306  &2.8022e-01,3.6659e-01,0.0000e+00,0.0000e+00,1.4900e+01,1.3767e+01,
1307  &1.2708e+01,1.1700e+01,1.0766e+01,9.8403e+00,8.9832e+00,8.1757e+00,
1308  &7.4366e+00,6.7121e+00,6.0486e+00,5.4300e+00,4.8704e+00,4.5555e+00,
1309  &4.2371e+00,3.8955e+00,3.5734e+00,3.2760e+00,2.9952e+00,2.7738e+00,
1310  &2.5528e+00,2.3175e+00,2.1001e+00,1.9012e+00,1.7176e+00,1.5750e+00,
1311  &1.4344e+00,1.2880e+00,1.1547e+00,1.0364e+00,9.2859e-01,8.4652e-01/
1312  DATA (xudf_l(k),k= 1597, 1710) /
1313  &7.6723e-01,6.8578e-01,6.1255e-01,5.4848e-01,4.9034e-01,4.4649e-01,
1314  &4.0456e-01,3.6275e-01,3.2738e-01,3.0624e-01,2.8805e-01,2.7544e-01,
1315  &2.6343e-01,2.5315e-01,2.4318e-01,2.3314e-01,2.2263e-01,2.1166e-01,
1316  &2.0051e-01,1.8983e-01,1.8102e-01,1.7610e-01,1.7901e-01,1.7764e-01,
1317  &1.6791e-01,1.6102e-01,1.5715e-01,1.5684e-01,1.6056e-01,1.6899e-01,
1318  &1.8376e-01,2.0786e-01,2.4776e-01,3.1470e-01,0.0000e+00,0.0000e+00,
1319  &1.7212e+01,1.5853e+01,1.4590e+01,1.3390e+01,1.2283e+01,1.1191e+01,
1320  &1.0185e+01,9.2395e+00,8.3762e+00,7.5315e+00,6.7670e+00,6.0503e+00,
1321  &5.4086e+00,5.0481e+00,4.6843e+00,4.2940e+00,3.9280e+00,3.5917e+00,
1322  &3.2752e+00,3.0252e+00,2.7768e+00,2.5132e+00,2.2690e+00,2.0490e+00,
1323  &1.8445e+00,1.6857e+00,1.5301e+00,1.3685e+00,1.2219e+00,1.0920e+00,
1324  &9.7438e-01,8.8478e-01,7.9825e-01,7.1007e-01,6.3111e-01,5.6196e-01,
1325  &5.0016e-01,4.5321e-01,4.0867e-01,3.6435e-01,3.2686e-01,3.0431e-01,
1326  &2.8470e-01,2.7109e-01,2.5789e-01,2.4674e-01,2.3605e-01,2.2547e-01,
1327  &2.1459e-01,2.0348e-01,1.9237e-01,1.8201e-01,1.7376e-01,1.6982e-01,
1328  &1.7398e-01,1.6789e-01,1.5795e-01,1.5065e-01,1.4630e-01,1.4521e-01,
1329  &1.4773e-01,1.5443e-01,1.6659e-01,1.8664e-01,2.1966e-01,2.6878e-01,
1330  &0.0000e+00,0.0000e+00,1.9526e+01,1.7951e+01,1.6470e+01,1.5074e+01,
1331  &1.3790e+01,1.2527e+01,1.1370e+01,1.0282e+01,9.2958e+00,8.3330e+00/
1332  DATA (xudf_l(k),k= 1711, 1824) /
1333  &7.4603e+00,6.6536e+00,5.9285e+00,5.5219e+00,5.1141e+00,4.6768e+00,
1334  &4.2681e+00,3.8926e+00,3.5402e+00,3.2626e+00,2.9882e+00,2.6963e+00,
1335  &2.4284e+00,2.1851e+00,1.9619e+00,1.7885e+00,1.6187e+00,1.4429e+00,
1336  &1.2838e+00,1.1431e+00,1.0159e+00,9.1924e-01,8.2663e-01,7.3180e-01,
1337  &6.4793e-01,5.7429e-01,5.0828e-01,4.5904e-01,4.1215e-01,3.6558e-01,
1338  &3.2620e-01,3.0238e-01,2.8167e-01,2.6700e-01,2.5302e-01,2.4098e-01,
1339  &2.2975e-01,2.1873e-01,2.0756e-01,1.9633e-01,1.8532e-01,1.7533e-01,
1340  &1.6763e-01,1.6450e-01,1.6959e-01,1.5953e-01,1.4943e-01,1.4185e-01,
1341  &1.3716e-01,1.3545e-01,1.3705e-01,1.4238e-01,1.5258e-01,1.6945e-01,
1342  &1.9705e-01,2.3049e-01,0.0000e+00,0.0000e+00,2.2141e+01,2.0286e+01,
1343  &1.8570e+01,1.6948e+01,1.5466e+01,1.4010e+01,1.2679e+01,1.1431e+01,
1344  &1.0303e+01,9.2106e+00,8.2239e+00,7.3077e+00,6.4926e+00,6.0348e+00,
1345  &5.5765e+00,5.0879e+00,4.6321e+00,4.2138e+00,3.8233e+00,3.5162e+00,
1346  &3.2122e+00,2.8907e+00,2.5960e+00,2.3300e+00,2.0856e+00,1.8954e+00,
1347  &1.7110e+00,1.5199e+00,1.3476e+00,1.1955e+00,1.0584e+00,9.5478e-01,
1348  &8.5531e-01,7.5417e-01,6.6439e-01,5.8623e-01,5.1682e-01,4.6468e-01,
1349  &4.1541e-01,3.6662e-01,3.2538e-01,3.0035e-01,2.7843e-01,2.6291e-01,
1350  &2.4798e-01,2.3522e-01,2.2346e-01,2.1203e-01,2.0062e-01,1.8935e-01,
1351  &1.7843e-01,1.6874e-01,1.6163e-01,1.5920e-01,1.6520e-01,1.5147e-01/
1352  DATA (xudf_l(k),k= 1825, 1836) /
1353  &1.4120e-01,1.3349e-01,1.2844e-01,1.2620e-01,1.2701e-01,1.3118e-01,
1354  &1.3954e-01,1.5369e-01,1.7631e-01,1.9416e-01,0.0000e+00,0.0000e+00/
1355  DATA (xsf_l(k),k= 1, 114) /
1356  &8.9277e-03,9.2838e-03,9.6380e-03,9.9960e-03,1.0349e-02,1.0719e-02,
1357  &1.1082e-02,1.1442e-02,1.1792e-02,1.2148e-02,1.2489e-02,1.2817e-02,
1358  &1.3124e-02,1.3295e-02,1.3474e-02,1.3661e-02,1.3835e-02,1.3985e-02,
1359  &1.4121e-02,1.4217e-02,1.4303e-02,1.4379e-02,1.4419e-02,1.4434e-02,
1360  &1.4412e-02,1.4366e-02,1.4286e-02,1.4158e-02,1.3991e-02,1.3790e-02,
1361  &1.3553e-02,1.3335e-02,1.3094e-02,1.2821e-02,1.2580e-02,1.2410e-02,
1362  &1.2357e-02,1.2459e-02,1.2790e-02,1.3571e-02,1.5018e-02,1.6665e-02,
1363  &1.9113e-02,2.1832e-02,2.5587e-02,2.9818e-02,3.4535e-02,3.9813e-02,
1364  &4.5737e-02,5.2358e-02,5.9765e-02,6.8021e-02,7.7185e-02,8.7258e-02,
1365  &9.8198e-02,1.1073e-01,1.4216e-01,1.8364e-01,2.3959e-01,3.1758e-01,
1366  &4.3050e-01,6.0203e-01,8.8214e-01,1.3845e+00,2.4294e+00,5.2463e+00,
1367  &1.8903e+01,0.0000e+00,1.4987e-02,1.5468e-02,1.5936e-02,1.6403e-02,
1368  &1.6855e-02,1.7319e-02,1.7760e-02,1.8194e-02,1.8600e-02,1.9008e-02,
1369  &1.9382e-02,1.9730e-02,2.0033e-02,2.0199e-02,2.0359e-02,2.0523e-02,
1370  &2.0654e-02,2.0760e-02,2.0831e-02,2.0870e-02,2.0886e-02,2.0858e-02,
1371  &2.0798e-02,2.0680e-02,2.0523e-02,2.0363e-02,2.0127e-02,1.9825e-02,
1372  &1.9464e-02,1.9060e-02,1.8607e-02,1.8200e-02,1.7750e-02,1.7240e-02,
1373  &1.6759e-02,1.6362e-02,1.6103e-02,1.6050e-02,1.6240e-02,1.6916e-02,
1374  &1.8336e-02,2.0030e-02,2.2586e-02,2.5447e-02,2.9418e-02,3.3874e-02/
1375  DATA (xsf_l(k),k= 115, 228) /
1376  &3.8821e-02,4.4375e-02,5.0509e-02,5.7343e-02,6.4974e-02,7.3385e-02,
1377  &8.2640e-02,9.2732e-02,1.0354e-01,1.1667e-01,1.4809e-01,1.8910e-01,
1378  &2.4387e-01,3.1940e-01,4.2764e-01,5.9054e-01,8.5228e-01,1.3150e+00,
1379  &2.2623e+00,4.7596e+00,1.6445e+01,0.0000e+00,2.5010e-02,2.5616e-02,
1380  &2.6180e-02,2.6758e-02,2.7279e-02,2.7792e-02,2.8274e-02,2.8729e-02,
1381  &2.9134e-02,2.9513e-02,2.9836e-02,3.0110e-02,3.0324e-02,3.0417e-02,
1382  &3.0492e-02,3.0537e-02,3.0551e-02,3.0517e-02,3.0432e-02,3.0326e-02,
1383  &3.0181e-02,2.9954e-02,2.9663e-02,2.9316e-02,2.8913e-02,2.8508e-02,
1384  &2.8021e-02,2.7422e-02,2.6741e-02,2.5997e-02,2.5204e-02,2.4500e-02,
1385  &2.3734e-02,2.2858e-02,2.2019e-02,2.1281e-02,2.0698e-02,2.0402e-02,
1386  &2.0365e-02,2.0844e-02,2.2137e-02,2.3807e-02,2.6404e-02,2.9338e-02,
1387  &3.3433e-02,3.8036e-02,4.3135e-02,4.8799e-02,5.5061e-02,6.1999e-02,
1388  &6.9633e-02,7.8024e-02,8.7156e-02,9.6998e-02,1.0742e-01,1.2099e-01,
1389  &1.5162e-01,1.9121e-01,2.4363e-01,3.1510e-01,4.1638e-01,5.6669e-01,
1390  &8.0557e-01,1.2216e+00,2.0572e+00,4.2084e+00,1.3911e+01,0.0000e+00,
1391  &4.2554e-02,4.3210e-02,4.3820e-02,4.4379e-02,4.4862e-02,4.5317e-02,
1392  &4.5708e-02,4.6037e-02,4.6300e-02,4.6434e-02,4.6540e-02,4.6530e-02,
1393  &4.6426e-02,4.6317e-02,4.6155e-02,4.5919e-02,4.5622e-02,4.5267e-02,
1394  &4.4833e-02,4.4425e-02,4.3932e-02,4.3298e-02,4.2582e-02,4.1785e-02/
1395  DATA (xsf_l(k),k= 229, 342) /
1396  &4.0903e-02,4.0097e-02,3.9179e-02,3.8047e-02,3.6815e-02,3.5547e-02,
1397  &3.4199e-02,3.3020e-02,3.1748e-02,3.0298e-02,2.8905e-02,2.7644e-02,
1398  &2.6563e-02,2.5882e-02,2.5485e-02,2.5614e-02,2.6651e-02,2.8199e-02,
1399  &3.0731e-02,3.3652e-02,3.7768e-02,4.2390e-02,4.7530e-02,5.3188e-02,
1400  &5.9436e-02,6.6257e-02,7.3734e-02,8.1918e-02,9.0696e-02,1.0004e-01,
1401  &1.0978e-01,1.2357e-01,1.5274e-01,1.8999e-01,2.3888e-01,3.0452e-01,
1402  &3.9656e-01,5.3136e-01,7.4246e-01,1.1043e+00,1.8158e+00,3.6023e+00,
1403  &0.0000e+00,0.0000e+00,7.3602e-02,7.4085e-02,7.4460e-02,7.4729e-02,
1404  &7.4904e-02,7.4982e-02,7.4902e-02,7.4713e-02,7.4446e-02,7.3972e-02,
1405  &7.3397e-02,7.2626e-02,7.1803e-02,7.1200e-02,7.0479e-02,6.9610e-02,
1406  &6.8654e-02,6.7624e-02,6.6495e-02,6.5467e-02,6.4313e-02,6.2898e-02,
1407  &6.1380e-02,5.9788e-02,5.8079e-02,5.6557e-02,5.4876e-02,5.2866e-02,
1408  &5.0733e-02,4.8592e-02,4.6341e-02,4.4415e-02,4.2370e-02,4.0073e-02,
1409  &3.7825e-02,3.5778e-02,3.3956e-02,3.2702e-02,3.1749e-02,3.1334e-02,
1410  &3.1922e-02,3.3216e-02,3.5534e-02,3.8322e-02,4.2321e-02,4.6830e-02,
1411  &5.1816e-02,5.7335e-02,6.3369e-02,6.9947e-02,7.7109e-02,8.4752e-02,
1412  &9.2948e-02,1.0153e-01,1.1031e-01,1.2405e-01,1.5100e-01,1.8509e-01,
1413  &2.2905e-01,2.8761e-01,3.6847e-01,4.8537e-01,6.6543e-01,9.6831e-01,
1414  &1.5524e+00,2.9766e+00,0.0000e+00,0.0000e+00,1.1509e-01,1.1500e-01/
1415  DATA (xsf_l(k),k= 343, 456) /
1416  &1.1474e-01,1.1430e-01,1.1371e-01,1.1292e-01,1.1196e-01,1.1079e-01,
1417  &1.0948e-01,1.0791e-01,1.0620e-01,1.0426e-01,1.0215e-01,1.0076e-01,
1418  &9.9224e-02,9.7466e-02,9.5472e-02,9.3507e-02,9.1346e-02,8.9460e-02,
1419  &8.7382e-02,8.4914e-02,8.2326e-02,7.9663e-02,7.6874e-02,7.4459e-02,
1420  &7.1794e-02,6.8694e-02,6.5489e-02,6.2266e-02,5.8964e-02,5.6164e-02,
1421  &5.3226e-02,4.9916e-02,4.6721e-02,4.3794e-02,4.1128e-02,3.9225e-02,
1422  &3.7654e-02,3.6613e-02,3.6666e-02,3.7626e-02,3.9655e-02,4.2227e-02,
1423  &4.6000e-02,5.0288e-02,5.5044e-02,6.0308e-02,6.6020e-02,7.2218e-02,
1424  &7.8943e-02,8.6079e-02,9.3611e-02,1.0141e-01,1.0925e-01,1.2274e-01,
1425  &1.4748e-01,1.7840e-01,2.1791e-01,2.6997e-01,3.4109e-01,4.4280e-01,
1426  &5.9706e-01,8.5325e-01,1.3371e+00,2.4909e+00,0.0000e+00,0.0000e+00,
1427  &1.8131e-01,1.7986e-01,1.7802e-01,1.7597e-01,1.7372e-01,1.7110e-01,
1428  &1.6825e-01,1.6515e-01,1.6187e-01,1.5820e-01,1.5428e-01,1.5016e-01,
1429  &1.4582e-01,1.4314e-01,1.4017e-01,1.3677e-01,1.3315e-01,1.2951e-01,
1430  &1.2571e-01,1.2248e-01,1.1891e-01,1.1472e-01,1.1045e-01,1.0615e-01,
1431  &1.0173e-01,9.7944e-02,9.3854e-02,8.9131e-02,8.4347e-02,7.9597e-02,
1432  &7.4799e-02,7.0788e-02,6.6599e-02,6.1932e-02,5.7438e-02,5.3307e-02,
1433  &4.9546e-02,4.6816e-02,4.4417e-02,4.2536e-02,4.1862e-02,4.2361e-02,
1434  &4.3960e-02,4.6198e-02,4.9612e-02,5.3553e-02,5.7974e-02,6.2830e-02/
1435  DATA (xsf_l(k),k= 457, 570) /
1436  &6.8141e-02,7.3865e-02,7.9970e-02,8.6422e-02,9.3160e-02,1.0006e-01,
1437  &1.0685e-01,1.1989e-01,1.4199e-01,1.6937e-01,2.0407e-01,2.4925e-01,
1438  &3.1029e-01,3.9635e-01,5.2529e-01,7.3579e-01,1.1263e+00,2.0347e+00,
1439  &0.0000e+00,0.0000e+00,2.6278e-01,2.5883e-01,2.5460e-01,2.5007e-01,
1440  &2.4526e-01,2.3995e-01,2.3437e-01,2.2848e-01,2.2242e-01,2.1578e-01,
1441  &2.0894e-01,2.0181e-01,1.9465e-01,1.9018e-01,1.8540e-01,1.7984e-01,
1442  &1.7415e-01,1.6846e-01,1.6261e-01,1.5768e-01,1.5234e-01,1.4615e-01,
1443  &1.3987e-01,1.3368e-01,1.2736e-01,1.2199e-01,1.1628e-01,1.0975e-01,
1444  &1.0321e-01,9.6788e-02,9.0380e-02,8.5059e-02,7.9532e-02,7.3436e-02,
1445  &6.7594e-02,6.2243e-02,5.7363e-02,5.3720e-02,5.0502e-02,4.7772e-02,
1446  &4.6346e-02,4.6358e-02,4.7497e-02,4.9377e-02,5.2401e-02,5.5965e-02,
1447  &6.0009e-02,6.4489e-02,6.9334e-02,7.4546e-02,8.0117e-02,8.5936e-02,
1448  &9.1972e-02,9.8056e-02,1.0398e-01,1.1644e-01,1.3628e-01,1.6068e-01,
1449  &1.9127e-01,2.3085e-01,2.8377e-01,3.5756e-01,4.6698e-01,6.4315e-01,
1450  &9.6485e-01,1.6969e+00,0.0000e+00,0.0000e+00,3.6944e-01,3.6187e-01,
1451  &3.5380e-01,3.4525e-01,3.3659e-01,3.2716e-01,3.1761e-01,3.0767e-01,
1452  &2.9759e-01,2.8675e-01,2.7586e-01,2.6462e-01,2.5339e-01,2.4660e-01,
1453  &2.3933e-01,2.3101e-01,2.2257e-01,2.1415e-01,2.0571e-01,1.9854e-01,
1454  &1.9083e-01,1.8216e-01,1.7338e-01,1.6480e-01,1.5613e-01,1.4885e-01/
1455  DATA (xsf_l(k),k= 571, 684) /
1456  &1.4115e-01,1.3244e-01,1.2380e-01,1.1542e-01,1.0713e-01,1.0031e-01,
1457  &9.3226e-02,8.5515e-02,7.8171e-02,7.1449e-02,6.5307e-02,6.0723e-02,
1458  &5.6523e-02,5.2878e-02,5.0622e-02,5.0109e-02,5.0720e-02,5.2187e-02,
1459  &5.4770e-02,5.7950e-02,6.1582e-02,6.5595e-02,6.9997e-02,7.4716e-02,
1460  &7.9677e-02,8.4886e-02,9.0221e-02,9.5543e-02,1.0065e-01,1.1245e-01,
1461  &1.3012e-01,1.5166e-01,1.7859e-01,2.1305e-01,2.5881e-01,3.2188e-01,
1462  &4.1454e-01,5.6186e-01,8.2718e-01,1.4188e+00,0.0000e+00,0.0000e+00,
1463  &4.9195e-01,4.7916e-01,4.6620e-01,4.5277e-01,4.3908e-01,4.2463e-01,
1464  &4.0985e-01,3.9491e-01,3.7975e-01,3.6377e-01,3.4790e-01,3.3178e-01,
1465  &3.1592e-01,3.0640e-01,2.9622e-01,2.8462e-01,2.7303e-01,2.6160e-01,
1466  &2.5012e-01,2.4047e-01,2.3023e-01,2.1867e-01,2.0717e-01,1.9597e-01,
1467  &1.8477e-01,1.7546e-01,1.6568e-01,1.5468e-01,1.4387e-01,1.3343e-01,
1468  &1.2319e-01,1.1482e-01,1.0622e-01,9.6828e-02,8.7978e-02,7.9884e-02,
1469  &7.2526e-02,6.6973e-02,6.1948e-02,5.7359e-02,5.4304e-02,5.3263e-02,
1470  &5.3381e-02,5.4456e-02,5.6601e-02,5.9380e-02,6.2613e-02,6.6252e-02,
1471  &7.0174e-02,7.4432e-02,7.8943e-02,8.3559e-02,8.8282e-02,9.2963e-02,
1472  &9.7382e-02,1.0858e-01,1.2441e-01,1.4363e-01,1.6745e-01,1.9778e-01,
1473  &2.3771e-01,2.9246e-01,3.7200e-01,4.9738e-01,7.2010e-01,1.2083e+00,
1474  &0.0000e+00,0.0000e+00,6.4521e-01,6.2534e-01,6.0540e-01,5.8499e-01/
1475  DATA (xsf_l(k),k= 685, 798) /
1476  &5.6467e-01,5.4301e-01,5.2143e-01,4.9951e-01,4.7813e-01,4.5538e-01,
1477  &4.3325e-01,4.1083e-01,3.8899e-01,3.7591e-01,3.6210e-01,3.4648e-01,
1478  &3.3091e-01,3.1578e-01,3.0062e-01,2.8797e-01,2.7469e-01,2.5979e-01,
1479  &2.4501e-01,2.3066e-01,2.1649e-01,2.0481e-01,1.9252e-01,1.7884e-01,
1480  &1.6549e-01,1.5274e-01,1.4029e-01,1.3018e-01,1.1985e-01,1.0865e-01,
1481  &9.8135e-02,8.8550e-02,7.9829e-02,7.3318e-02,6.7269e-02,6.1748e-02,
1482  &5.7838e-02,5.6250e-02,5.5826e-02,5.6474e-02,5.8181e-02,6.0533e-02,
1483  &6.3373e-02,6.6563e-02,7.0085e-02,7.3865e-02,7.7842e-02,8.1937e-02,
1484  &8.6092e-02,9.0169e-02,9.3962e-02,1.0448e-01,1.1858e-01,1.3561e-01,
1485  &1.5663e-01,1.8318e-01,2.1803e-01,2.6529e-01,3.3349e-01,4.3985e-01,
1486  &6.2661e-01,1.0291e+00,0.0000e+00,0.0000e+00,8.2462e-01,7.9558e-01,
1487  &7.6680e-01,7.3764e-01,7.0860e-01,6.7834e-01,6.4822e-01,6.1798e-01,
1488  &5.8880e-01,5.5792e-01,5.2800e-01,4.9801e-01,4.6912e-01,4.5197e-01,
1489  &4.3393e-01,4.1360e-01,3.9348e-01,3.7394e-01,3.5462e-01,3.3856e-01,
1490  &3.2180e-01,3.0303e-01,2.8460e-01,2.6681e-01,2.4932e-01,2.3502e-01,
1491  &2.2005e-01,2.0359e-01,1.8747e-01,1.7224e-01,1.5746e-01,1.4551e-01,
1492  &1.3337e-01,1.2028e-01,1.0805e-01,9.6986e-02,8.6877e-02,7.9334e-02,
1493  &7.2326e-02,6.5799e-02,6.1060e-02,5.8911e-02,5.7957e-02,5.8189e-02,
1494  &5.9441e-02,6.1387e-02,6.3834e-02,6.6632e-02,6.9732e-02,7.3070e-02/
1495  DATA (xsf_l(k),k= 799, 912) /
1496  &7.6595e-02,8.0190e-02,8.3816e-02,8.7358e-02,9.0631e-02,1.0046e-01,
1497  &1.1304e-01,1.2815e-01,1.4670e-01,1.7006e-01,2.0049e-01,2.4154e-01,
1498  &3.0039e-01,3.9121e-01,5.4894e-01,8.8378e-01,0.0000e+00,0.0000e+00,
1499  &1.0199e+00,9.8025e-01,9.4100e-01,9.0151e-01,8.6283e-01,8.2243e-01,
1500  &7.8262e-01,7.4321e-01,7.0465e-01,6.6494e-01,6.2647e-01,5.8811e-01,
1501  &5.5152e-01,5.2985e-01,5.0721e-01,4.8183e-01,4.5681e-01,4.3274e-01,
1502  &4.0883e-01,3.8916e-01,3.6878e-01,3.4589e-01,3.2366e-01,3.0238e-01,
1503  &2.8152e-01,2.6437e-01,2.4685e-01,2.2733e-01,2.0858e-01,1.9085e-01,
1504  &1.7375e-01,1.6000e-01,1.4607e-01,1.3115e-01,1.1722e-01,1.0469e-01,
1505  &9.3284e-02,8.4739e-02,7.6803e-02,6.9420e-02,6.3844e-02,6.1178e-02,
1506  &5.9720e-02,5.9561e-02,6.0398e-02,6.1984e-02,6.4051e-02,6.6494e-02,
1507  &6.9202e-02,7.2161e-02,7.5274e-02,7.8453e-02,8.1651e-02,8.4728e-02,
1508  &8.7564e-02,9.6777e-02,1.0806e-01,1.2157e-01,1.3806e-01,1.5882e-01,
1509  &1.8566e-01,2.2170e-01,2.7301e-01,3.5168e-01,4.8696e-01,7.7010e-01,
1510  &0.0000e+00,0.0000e+00,1.3158e+00,1.2585e+00,1.2024e+00,1.1462e+00,
1511  &1.0919e+00,1.0352e+00,9.8042e-01,9.2608e-01,8.7345e-01,8.1987e-01,
1512  &7.6814e-01,7.1724e-01,6.6882e-01,6.4053e-01,6.1093e-01,5.7796e-01,
1513  &5.4572e-01,5.1470e-01,4.8433e-01,4.5934e-01,4.3358e-01,4.0495e-01,
1514  &3.7717e-01,3.5082e-01,3.2513e-01,3.0408e-01,2.8258e-01,2.5918e-01/
1515  DATA (xsf_l(k),k= 913, 1026) /
1516  &2.3648e-01,2.1538e-01,1.9510e-01,1.7888e-01,1.6255e-01,1.4508e-01,
1517  &1.2895e-01,1.1443e-01,1.0131e-01,9.1507e-02,8.2387e-02,7.3778e-02,
1518  &6.7147e-02,6.3813e-02,6.1721e-02,6.1065e-02,6.1373e-02,6.2475e-02,
1519  &6.4105e-02,6.6079e-02,6.8362e-02,7.0856e-02,7.3440e-02,7.6143e-02,
1520  &7.8812e-02,8.1388e-02,8.3726e-02,9.2167e-02,1.0190e-01,1.1355e-01,
1521  &1.2780e-01,1.4554e-01,1.6841e-01,1.9900e-01,2.4223e-01,3.0775e-01,
1522  &4.1920e-01,6.4849e-01,0.0000e+00,0.0000e+00,1.6483e+00,1.5703e+00,
1523  &1.4940e+00,1.4180e+00,1.3449e+00,1.2694e+00,1.1966e+00,1.1250e+00,
1524  &1.0566e+00,9.8644e-01,9.1985e-01,8.5482e-01,7.9312e-01,7.5722e-01,
1525  &7.1986e-01,6.7849e-01,6.3821e-01,5.9972e-01,5.6214e-01,5.3143e-01,
1526  &4.9987e-01,4.6500e-01,4.3136e-01,3.9956e-01,3.6875e-01,3.4379e-01,
1527  &3.1832e-01,2.9044e-01,2.6397e-01,2.3923e-01,2.1580e-01,1.9706e-01,
1528  &1.7829e-01,1.5838e-01,1.3999e-01,1.2356e-01,1.0875e-01,9.7664e-02,
1529  &8.7392e-02,7.7645e-02,7.0035e-02,6.6062e-02,6.3365e-02,6.2239e-02,
1530  &6.2062e-02,6.2731e-02,6.3942e-02,6.5526e-02,6.7390e-02,6.9436e-02,
1531  &7.1635e-02,7.3891e-02,7.6122e-02,7.8246e-02,8.0196e-02,8.7884e-02,
1532  &9.6357e-02,1.0648e-01,1.1880e-01,1.3413e-01,1.5386e-01,1.7993e-01,
1533  &2.1655e-01,2.7189e-01,3.6486e-01,5.5332e-01,0.0000e+00,0.0000e+00,
1534  &2.0271e+00,1.9234e+00,1.8224e+00,1.7226e+00,1.6272e+00,1.5293e+00/
1535  DATA (xsf_l(k),k= 1027, 1140) /
1536  &1.4356e+00,1.3438e+00,1.2568e+00,1.1682e+00,1.0841e+00,1.0026e+00,
1537  &9.2625e-01,8.8207e-01,8.3568e-01,7.8523e-01,7.3607e-01,6.8926e-01,
1538  &6.4385e-01,6.0685e-01,5.6892e-01,5.2730e-01,4.8731e-01,4.4961e-01,
1539  &4.1331e-01,3.8417e-01,3.5441e-01,3.2210e-01,2.9168e-01,2.6323e-01,
1540  &2.3631e-01,2.1500e-01,1.9374e-01,1.7129e-01,1.5067e-01,1.3231e-01,
1541  &1.1579e-01,1.0349e-01,9.2080e-02,8.1205e-02,7.2626e-02,6.8039e-02,
1542  &6.4761e-02,6.3188e-02,6.2549e-02,6.2795e-02,6.3617e-02,6.4835e-02,
1543  &6.6329e-02,6.8017e-02,6.9809e-02,7.1667e-02,7.3520e-02,7.5270e-02,
1544  &7.6864e-02,8.3899e-02,9.1206e-02,1.0002e-01,1.1070e-01,1.2399e-01,
1545  &1.4094e-01,1.6341e-01,1.9474e-01,2.4163e-01,3.1971e-01,4.7587e-01,
1546  &0.0000e+00,0.0000e+00,2.4392e+00,2.3049e+00,2.1760e+00,2.0502e+00,
1547  &1.9296e+00,1.8065e+00,1.6895e+00,1.5750e+00,1.4674e+00,1.3585e+00,
1548  &1.2554e+00,1.1565e+00,1.0638e+00,1.0103e+00,9.5527e-01,8.9449e-01,
1549  &8.3572e-01,7.8018e-01,7.2635e-01,6.8280e-01,6.3819e-01,5.8948e-01,
1550  &5.4299e-01,4.9923e-01,4.5740e-01,4.2371e-01,3.8978e-01,3.5296e-01,
1551  &3.1832e-01,2.8629e-01,2.5599e-01,2.3212e-01,2.0840e-01,1.8346e-01,
1552  &1.6065e-01,1.4043e-01,1.2229e-01,1.0880e-01,9.6294e-02,8.4335e-02,
1553  &7.4905e-02,6.9717e-02,6.5897e-02,6.3914e-02,6.2851e-02,6.2731e-02,
1554  &6.3183e-02,6.4075e-02,6.5225e-02,6.6597e-02,6.8048e-02,6.9577e-02/
1555  DATA (xsf_l(k),k= 1141, 1254) /
1556  &7.1093e-02,7.2525e-02,7.3842e-02,8.0241e-02,8.6615e-02,9.4292e-02,
1557  &1.0360e-01,1.1517e-01,1.2992e-01,1.4936e-01,1.7633e-01,2.1652e-01,
1558  &2.8294e-01,4.1389e-01,0.0000e+00,0.0000e+00,2.9162e+00,2.7470e+00,
1559  &2.5840e+00,2.4244e+00,2.2743e+00,2.1215e+00,1.9764e+00,1.8358e+00,
1560  &1.7035e+00,1.5708e+00,1.4463e+00,1.3268e+00,1.2152e+00,1.1514e+00,
1561  &1.0857e+00,1.0132e+00,9.4449e-01,8.7867e-01,8.1556e-01,7.6453e-01,
1562  &7.1252e-01,6.5602e-01,6.0218e-01,5.5192e-01,5.0387e-01,4.6545e-01,
1563  &4.2679e-01,3.8521e-01,3.4602e-01,3.1005e-01,2.7623e-01,2.4962e-01,
1564  &2.2332e-01,1.9577e-01,1.7070e-01,1.4856e-01,1.2874e-01,1.1402e-01,
1565  &1.0040e-01,8.7343e-02,7.6984e-02,7.1254e-02,6.6892e-02,6.4508e-02,
1566  &6.3019e-02,6.2518e-02,6.2667e-02,6.3211e-02,6.4031e-02,6.5064e-02,
1567  &6.6243e-02,6.7458e-02,6.8679e-02,6.9830e-02,7.0885e-02,7.6672e-02,
1568  &8.2192e-02,8.8844e-02,9.6930e-02,1.0696e-01,1.1972e-01,1.3654e-01,
1569  &1.5978e-01,1.9411e-01,2.5048e-01,3.6023e-01,0.0000e+00,0.0000e+00,
1570  &3.4281e+00,3.2194e+00,3.0180e+00,2.8239e+00,2.6400e+00,2.4537e+00,
1571  &2.2781e+00,2.1087e+00,1.9503e+00,1.7915e+00,1.6433e+00,1.5021e+00,
1572  &1.3711e+00,1.2958e+00,1.2191e+00,1.1350e+00,1.0536e+00,9.7846e-01,
1573  &9.0526e-01,8.4668e-01,7.8697e-01,7.2243e-01,6.6110e-01,6.0402e-01,
1574  &5.4971e-01,5.0652e-01,4.6307e-01,4.1647e-01,3.7287e-01,3.3288e-01/
1575  DATA (xsf_l(k),k= 1255, 1368) /
1576  &2.9545e-01,2.6636e-01,2.3751e-01,2.0740e-01,1.8012e-01,1.5611e-01,
1577  &1.3467e-01,1.1881e-01,1.0414e-01,9.0105e-02,7.8839e-02,7.2563e-02,
1578  &6.7703e-02,6.4930e-02,6.3070e-02,6.2241e-02,6.2071e-02,6.2347e-02,
1579  &6.2882e-02,6.3645e-02,6.4526e-02,6.5473e-02,6.6427e-02,6.7333e-02,
1580  &6.8194e-02,7.3430e-02,7.8217e-02,8.3974e-02,9.1017e-02,9.9745e-02,
1581  &1.1088e-01,1.2552e-01,1.4563e-01,1.7528e-01,2.2351e-01,3.1636e-01,
1582  &0.0000e+00,0.0000e+00,3.9892e+00,3.7328e+00,3.4900e+00,3.2549e+00,
1583  &3.0344e+00,2.8108e+00,2.6014e+00,2.4001e+00,2.2123e+00,2.0253e+00,
1584  &1.8518e+00,1.6860e+00,1.5339e+00,1.4463e+00,1.3575e+00,1.2608e+00,
1585  &1.1678e+00,1.0809e+00,9.9767e-01,9.3087e-01,8.6314e-01,7.8996e-01,
1586  &7.2083e-01,6.5671e-01,5.9602e-01,5.4775e-01,4.9935e-01,4.4773e-01,
1587  &3.9951e-01,3.5571e-01,3.1467e-01,2.8272e-01,2.5135e-01,2.1871e-01,
1588  &1.8923e-01,1.6331e-01,1.4031e-01,1.2332e-01,1.0762e-01,9.2560e-02,
1589  &8.0473e-02,7.3714e-02,6.8385e-02,6.5246e-02,6.3019e-02,6.1878e-02,
1590  &6.1420e-02,6.1413e-02,6.1734e-02,6.2226e-02,6.2861e-02,6.3564e-02,
1591  &6.4288e-02,6.4985e-02,6.5657e-02,7.0367e-02,7.4522e-02,7.9506e-02,
1592  &8.5651e-02,9.3297e-02,1.0298e-01,1.1572e-01,1.3323e-01,1.5884e-01,
1593  &2.0039e-01,2.7925e-01,0.0000e+00,0.0000e+00,4.5788e+00,4.2729e+00,
1594  &3.9840e+00,3.7039e+00,3.4438e+00,3.1812e+00,2.9349e+00,2.6996e+00/
1595  DATA (xsf_l(k),k= 1369, 1482) /
1596  &2.4810e+00,2.2644e+00,2.0633e+00,1.8732e+00,1.6979e+00,1.5988e+00,
1597  &1.4974e+00,1.3865e+00,1.2812e+00,1.1834e+00,1.0891e+00,1.0143e+00,
1598  &9.3839e-01,8.5662e-01,7.7948e-01,7.0838e-01,6.4106e-01,5.8780e-01,
1599  &5.3454e-01,4.7781e-01,4.2528e-01,3.7737e-01,3.3289e-01,2.9818e-01,
1600  &2.6446e-01,2.2932e-01,1.9770e-01,1.7005e-01,1.4552e-01,1.2746e-01,
1601  &1.1078e-01,9.4770e-02,8.1957e-02,7.4689e-02,6.8915e-02,6.5457e-02,
1602  &6.2902e-02,6.1493e-02,6.0768e-02,6.0515e-02,6.0585e-02,6.0863e-02,
1603  &6.1298e-02,6.1789e-02,6.2311e-02,6.2835e-02,6.3340e-02,6.7601e-02,
1604  &7.1162e-02,7.5516e-02,8.0878e-02,8.7566e-02,9.6095e-02,1.0725e-01,
1605  &1.2258e-01,1.4495e-01,1.8090e-01,2.4841e-01,0.0000e+00,0.0000e+00,
1606  &5.4774e+00,5.0929e+00,4.7320e+00,4.3841e+00,4.0592e+00,3.7350e+00,
1607  &3.4329e+00,3.1454e+00,2.8799e+00,2.6172e+00,2.3747e+00,2.1466e+00,
1608  &1.9383e+00,1.8195e+00,1.6996e+00,1.5689e+00,1.4457e+00,1.3301e+00,
1609  &1.2211e+00,1.1339e+00,1.0456e+00,9.5119e-01,8.6259e-01,7.8097e-01,
1610  &7.0419e-01,6.4380e-01,5.8358e-01,5.1955e-01,4.6051e-01,4.0719e-01,
1611  &3.5768e-01,3.1962e-01,2.8220e-01,2.4360e-01,2.0909e-01,1.7895e-01,
1612  &1.5240e-01,1.3282e-01,1.1484e-01,9.7655e-02,8.3739e-02,7.5857e-02,
1613  &6.9509e-02,6.5616e-02,6.2633e-02,6.0853e-02,5.9819e-02,5.9271e-02,
1614  &5.9038e-02,5.9046e-02,5.9192e-02,5.9432e-02,5.9709e-02,6.0008e-02/
1615  DATA (xsf_l(k),k= 1483, 1596) /
1616  &6.0340e-02,6.4032e-02,6.6851e-02,7.0446e-02,7.4870e-02,8.0457e-02,
1617  &8.7554e-02,9.6862e-02,1.0964e-01,1.2821e-01,1.5779e-01,2.1189e-01,
1618  &0.0000e+00,0.0000e+00,6.3982e+00,5.9307e+00,5.4920e+00,5.0710e+00,
1619  &4.6822e+00,4.2915e+00,3.9337e+00,3.5898e+00,3.2756e+00,2.9660e+00,
1620  &2.6817e+00,2.4150e+00,2.1724e+00,2.0348e+00,1.8961e+00,1.7457e+00,
1621  &1.6034e+00,1.4714e+00,1.3471e+00,1.2473e+00,1.1476e+00,1.0408e+00,
1622  &9.4083e-01,8.4932e-01,7.6350e-01,6.9606e-01,6.2897e-01,5.5833e-01,
1623  &4.9315e-01,4.3444e-01,3.8044e-01,3.3861e-01,2.9817e-01,2.5642e-01,
1624  &2.1917e-01,1.8685e-01,1.5838e-01,1.3752e-01,1.1831e-01,9.9987e-02,
1625  &8.5224e-02,7.6762e-02,6.9910e-02,6.5655e-02,6.2297e-02,6.0213e-02,
1626  &5.8897e-02,5.8096e-02,5.7624e-02,5.7400e-02,5.7322e-02,5.7351e-02,
1627  &5.7432e-02,5.7560e-02,5.7758e-02,6.0939e-02,6.3212e-02,6.6167e-02,
1628  &6.9884e-02,7.4560e-02,8.0552e-02,8.8432e-02,9.9242e-02,1.1491e-01,
1629  &1.3966e-01,1.8320e-01,0.0000e+00,0.0000e+00,7.4490e+00,6.8826e+00,
1630  &6.3540e+00,5.8477e+00,5.3805e+00,4.9187e+00,4.4884e+00,4.0843e+00,
1631  &3.7147e+00,3.3516e+00,3.0193e+00,2.7088e+00,2.4279e+00,2.2696e+00,
1632  &2.1091e+00,1.9368e+00,1.7739e+00,1.6237e+00,1.4821e+00,1.3692e+00,
1633  &1.2557e+00,1.1358e+00,1.0238e+00,9.2133e-01,8.2567e-01,7.5070e-01,
1634  &6.7656e-01,5.9850e-01,5.2688e-01,4.6263e-01,4.0371e-01,3.5842e-01/
1635  DATA (xsf_l(k),k= 1597, 1710) /
1636  &3.1427e-01,2.6933e-01,2.2930e-01,1.9466e-01,1.6427e-01,1.4208e-01,
1637  &1.2168e-01,1.0226e-01,8.6560e-02,7.7553e-02,7.0202e-02,6.5576e-02,
1638  &6.1860e-02,5.9487e-02,5.7920e-02,5.6852e-02,5.6166e-02,5.5736e-02,
1639  &5.5458e-02,5.5289e-02,5.5193e-02,5.5163e-02,5.5243e-02,5.7935e-02,
1640  &5.9740e-02,6.2111e-02,6.5158e-02,6.9050e-02,7.4078e-02,8.0683e-02,
1641  &8.9776e-02,1.0288e-01,1.2351e-01,1.5725e-01,0.0000e+00,0.0000e+00,
1642  &8.6044e+00,7.9255e+00,7.2940e+00,6.6940e+00,6.1391e+00,5.5940e+00,
1643  &5.0907e+00,4.6180e+00,4.1841e+00,3.7622e+00,3.3775e+00,3.0195e+00,
1644  &2.6967e+00,2.5153e+00,2.3331e+00,2.1364e+00,1.9521e+00,1.7815e+00,
1645  &1.6211e+00,1.4944e+00,1.3683e+00,1.2334e+00,1.1084e+00,9.9465e-01,
1646  &8.8864e-01,8.0585e-01,7.2432e-01,6.3866e-01,5.6038e-01,4.9058e-01,
1647  &4.2648e-01,3.7768e-01,3.3036e-01,2.8189e-01,2.3907e-01,2.0214e-01,
1648  &1.6987e-01,1.4635e-01,1.2479e-01,1.0428e-01,8.7748e-02,7.8203e-02,
1649  &7.0386e-02,6.5431e-02,6.1373e-02,5.8719e-02,5.6916e-02,5.5642e-02,
1650  &5.4751e-02,5.4118e-02,5.3653e-02,5.3314e-02,5.3067e-02,5.2897e-02,
1651  &5.2861e-02,5.5140e-02,5.6493e-02,5.8378e-02,6.0860e-02,6.4090e-02,
1652  &6.8261e-02,7.3828e-02,8.1439e-02,9.2423e-02,1.0952e-01,1.3424e-01,
1653  &0.0000e+00,0.0000e+00,9.7645e+00,8.9701e+00,8.2340e+00,7.5357e+00,
1654  &6.8926e+00,6.2607e+00,5.6834e+00,5.1374e+00,4.6459e+00,4.1625e+00/
1655  DATA (xsf_l(k),k= 1711, 1824) /
1656  &3.7261e+00,3.3206e+00,2.9567e+00,2.7529e+00,2.5476e+00,2.3274e+00,
1657  &2.1217e+00,1.9320e+00,1.7541e+00,1.6131e+00,1.4740e+00,1.3257e+00,
1658  &1.1879e+00,1.0631e+00,9.4732e-01,8.5726e-01,7.6844e-01,6.7586e-01,
1659  &5.9131e-01,5.1597e-01,4.4748e-01,3.9504e-01,3.4470e-01,2.9317e-01,
1660  &2.4779e-01,2.0880e-01,1.7478e-01,1.5007e-01,1.2748e-01,1.0600e-01,
1661  &8.8713e-02,7.8704e-02,7.0472e-02,6.5220e-02,6.0885e-02,5.7993e-02,
1662  &5.5967e-02,5.4536e-02,5.3470e-02,5.2665e-02,5.2054e-02,5.1577e-02,
1663  &5.1203e-02,5.0930e-02,5.0809e-02,5.2731e-02,5.3716e-02,5.5192e-02,
1664  &5.7203e-02,5.9902e-02,6.3412e-02,6.8123e-02,7.4602e-02,8.3905e-02,
1665  &9.8185e-02,1.1515e-01,0.0000e+00,0.0000e+00,1.1069e+01,1.0141e+01,
1666  &9.2840e+00,8.4741e+00,7.7316e+00,7.0038e+00,6.3364e+00,5.7137e+00,
1667  &5.1475e+00,4.6031e+00,4.1059e+00,3.6477e+00,3.2381e+00,3.0086e+00,
1668  &2.7788e+00,2.5333e+00,2.3033e+00,2.0926e+00,1.8951e+00,1.7404e+00,
1669  &1.5854e+00,1.4229e+00,1.2715e+00,1.1352e+00,1.0089e+00,9.1089e-01,
1670  &8.1457e-01,7.1424e-01,6.2332e-01,5.4229e-01,4.6872e-01,4.1295e-01,
1671  &3.5903e-01,3.0454e-01,2.5654e-01,2.1539e-01,1.7965e-01,1.5373e-01,
1672  &1.3011e-01,1.0766e-01,8.9530e-02,7.9108e-02,7.0483e-02,6.4943e-02,
1673  &6.0331e-02,5.7203e-02,5.4990e-02,5.3395e-02,5.2144e-02,5.1206e-02,
1674  &5.0454e-02,4.9840e-02,4.9351e-02,4.8978e-02,4.8801e-02,5.0351e-02/
1675  DATA (xsf_l(k),k= 1825, 1836) /
1676  &5.1017e-02,5.2127e-02,5.3737e-02,5.5934e-02,5.8835e-02,6.2800e-02,
1677  &6.8260e-02,7.6135e-02,8.7873e-02,0.0000e+00,0.0000e+00,0.0000e+00/
1678  DATA (xgf_l(k),k= 1, 114) /
1679  &1.0646e+00,1.0934e+00,1.1214e+00,1.1484e+00,1.1741e+00,1.1999e+00,
1680  &1.2242e+00,1.2466e+00,1.2676e+00,1.2873e+00,1.3042e+00,1.3194e+00,
1681  &1.3313e+00,1.3376e+00,1.3430e+00,1.3472e+00,1.3502e+00,1.3504e+00,
1682  &1.3501e+00,1.3478e+00,1.3430e+00,1.3356e+00,1.3267e+00,1.3149e+00,
1683  &1.3003e+00,1.2857e+00,1.2680e+00,1.2451e+00,1.2189e+00,1.1899e+00,
1684  &1.1575e+00,1.1282e+00,1.0947e+00,1.0543e+00,1.0121e+00,9.6983e-01,
1685  &9.2809e-01,8.9556e-01,8.6663e-01,8.4606e-01,8.4971e-01,8.7714e-01,
1686  &9.3569e-01,1.0140e+00,1.1325e+00,1.2706e+00,1.4268e+00,1.6005e+00,
1687  &1.7918e+00,2.0014e+00,2.2301e+00,2.4791e+00,2.7490e+00,3.0404e+00,
1688  &3.3541e+00,3.5718e+00,4.2579e+00,5.0478e+00,5.9674e+00,7.0458e+00,
1689  &8.3375e+00,9.9284e+00,1.1949e+01,1.4650e+01,1.8560e+01,2.5096e+01,
1690  &4.0067e+01,0.0000e+00,1.6404e+00,1.6723e+00,1.7014e+00,1.7287e+00,
1691  &1.7533e+00,1.7768e+00,1.7973e+00,1.8152e+00,1.8297e+00,1.8417e+00,
1692  &1.8498e+00,1.8540e+00,1.8544e+00,1.8526e+00,1.8489e+00,1.8424e+00,
1693  &1.8335e+00,1.8221e+00,1.8091e+00,1.7949e+00,1.7784e+00,1.7555e+00,
1694  &1.7310e+00,1.7034e+00,1.6713e+00,1.6428e+00,1.6093e+00,1.5680e+00,
1695  &1.5230e+00,1.4754e+00,1.4241e+00,1.3785e+00,1.3278e+00,1.2681e+00,
1696  &1.2068e+00,1.1462e+00,1.0867e+00,1.0400e+00,9.9665e-01,9.6041e-01,
1697  &9.4923e-01,9.6563e-01,1.0117e+00,1.0781e+00,1.1816e+00,1.3028e+00/
1698  DATA (xgf_l(k),k= 115, 228) /
1699  &1.4397e+00,1.5912e+00,1.7573e+00,1.9376e+00,2.1326e+00,2.3425e+00,
1700  &2.5677e+00,2.8078e+00,3.0611e+00,3.2398e+00,3.7904e+00,4.4126e+00,
1701  &5.1162e+00,5.9322e+00,6.8841e+00,8.0278e+00,9.4403e+00,1.1276e+01,
1702  &1.3844e+01,1.7948e+01,2.6821e+01,0.0000e+00,2.5295e+00,2.5563e+00,
1703  &2.5800e+00,2.5995e+00,2.6174e+00,2.6286e+00,2.6363e+00,2.6395e+00,
1704  &2.6379e+00,2.6306e+00,2.6184e+00,2.6000e+00,2.5768e+00,2.5598e+00,
1705  &2.5397e+00,2.5137e+00,2.4839e+00,2.4516e+00,2.4161e+00,2.3833e+00,
1706  &2.3459e+00,2.3000e+00,2.2499e+00,2.1966e+00,2.1407e+00,2.0900e+00,
1707  &2.0320e+00,1.9647e+00,1.8929e+00,1.8190e+00,1.7411e+00,1.6734e+00,
1708  &1.5997e+00,1.5142e+00,1.4279e+00,1.3438e+00,1.2617e+00,1.1967e+00,
1709  &1.1353e+00,1.0800e+00,1.0501e+00,1.0526e+00,1.0849e+00,1.1369e+00,
1710  &1.2228e+00,1.3250e+00,1.4410e+00,1.5691e+00,1.7085e+00,1.8587e+00,
1711  &2.0200e+00,2.1915e+00,2.3728e+00,2.5633e+00,2.7603e+00,2.9047e+00,
1712  &3.3315e+00,3.8026e+00,4.3243e+00,4.9121e+00,5.5828e+00,6.3648e+00,
1713  &7.3038e+00,8.4817e+00,1.0068e+01,1.2484e+01,1.7398e+01,0.0000e+00,
1714  &3.9781e+00,3.9859e+00,3.9880e+00,3.9845e+00,3.9763e+00,3.9582e+00,
1715  &3.9337e+00,3.9028e+00,3.8636e+00,3.8159e+00,3.7613e+00,3.6984e+00,
1716  &3.6287e+00,3.5836e+00,3.5326e+00,3.4703e+00,3.4046e+00,3.3350e+00,
1717  &3.2612e+00,3.1962e+00,3.1248e+00,3.0388e+00,2.9485e+00,2.8565e+00/
1718  DATA (xgf_l(k),k= 229, 342) /
1719  &2.7591e+00,2.6752e+00,2.5823e+00,2.4756e+00,2.3627e+00,2.2510e+00,
1720  &2.1352e+00,2.0365e+00,1.9308e+00,1.8097e+00,1.6896e+00,1.5737e+00,
1721  &1.4618e+00,1.3735e+00,1.2886e+00,1.2087e+00,1.1551e+00,1.1411e+00,
1722  &1.1545e+00,1.1903e+00,1.2550e+00,1.3356e+00,1.4282e+00,1.5306e+00,
1723  &1.6419e+00,1.7606e+00,1.8869e+00,2.0194e+00,2.1574e+00,2.2992e+00,
1724  &2.4432e+00,2.5568e+00,2.8674e+00,3.2008e+00,3.5626e+00,3.9572e+00,
1725  &4.3932e+00,4.8857e+00,5.4544e+00,6.1386e+00,7.0188e+00,8.2895e+00,
1726  &1.0709e+01,0.0000e+00,6.3697e+00,6.3265e+00,6.2740e+00,6.2091e+00,
1727  &6.1391e+00,6.0517e+00,5.9560e+00,5.8525e+00,5.7367e+00,5.6106e+00,
1728  &5.4709e+00,5.3235e+00,5.1695e+00,5.0724e+00,4.9662e+00,4.8411e+00,
1729  &4.7105e+00,4.5784e+00,4.4412e+00,4.3226e+00,4.1943e+00,4.0442e+00,
1730  &3.8903e+00,3.7360e+00,3.5773e+00,3.4420e+00,3.2967e+00,3.1301e+00,
1731  &2.9593e+00,2.7916e+00,2.6229e+00,2.4802e+00,2.3301e+00,2.1613e+00,
1732  &1.9957e+00,1.8382e+00,1.6875e+00,1.5691e+00,1.4545e+00,1.3433e+00,
1733  &1.2614e+00,1.2264e+00,1.2177e+00,1.2342e+00,1.2749e+00,1.3313e+00,
1734  &1.3987e+00,1.4740e+00,1.5559e+00,1.6431e+00,1.7346e+00,1.8295e+00,
1735  &1.9260e+00,2.0232e+00,2.1174e+00,2.2034e+00,2.4118e+00,2.6289e+00,
1736  &2.8563e+00,3.0948e+00,3.3486e+00,3.6231e+00,3.9250e+00,4.2677e+00,
1737  &4.6847e+00,5.2492e+00,6.2650e+00,0.0000e+00,9.3778e+00,9.2428e+00/
1738  DATA (xgf_l(k),k= 343, 456) /
1739  &9.0960e+00,8.9365e+00,8.7665e+00,8.5746e+00,8.3714e+00,8.1544e+00,
1740  &7.9343e+00,7.6882e+00,7.4352e+00,7.1724e+00,6.9027e+00,6.7360e+00,
1741  &6.5571e+00,6.3494e+00,6.1374e+00,5.9260e+00,5.7093e+00,5.5249e+00,
1742  &5.3270e+00,5.0995e+00,4.8700e+00,4.6419e+00,4.4114e+00,4.2173e+00,
1743  &4.0129e+00,3.7786e+00,3.5451e+00,3.3173e+00,3.0900e+00,2.9004e+00,
1744  &2.7040e+00,2.4853e+00,2.2734e+00,2.0742e+00,1.8851e+00,1.7372e+00,
1745  &1.5941e+00,1.4536e+00,1.3433e+00,1.2893e+00,1.2607e+00,1.2587e+00,
1746  &1.2792e+00,1.3153e+00,1.3616e+00,1.4149e+00,1.4736e+00,1.5361e+00,
1747  &1.6012e+00,1.6677e+00,1.7344e+00,1.7990e+00,1.8589e+00,1.9261e+00,
1748  &2.0646e+00,2.2044e+00,2.3456e+00,2.4882e+00,2.6342e+00,2.7823e+00,
1749  &2.9370e+00,3.1022e+00,3.2902e+00,3.5288e+00,3.9528e+00,0.0000e+00,
1750  &1.3926e+01,1.3617e+01,1.3298e+01,1.2959e+01,1.2612e+01,1.2230e+01,
1751  &1.1845e+01,1.1442e+01,1.1036e+01,1.0599e+01,1.0158e+01,9.7041e+00,
1752  &9.2562e+00,8.9827e+00,8.6974e+00,8.3632e+00,8.0255e+00,7.6946e+00,
1753  &7.3614e+00,7.0802e+00,6.7814e+00,6.4439e+00,6.1064e+00,5.7775e+00,
1754  &5.4468e+00,5.1723e+00,4.8858e+00,4.5617e+00,4.2425e+00,3.9361e+00,
1755  &3.6353e+00,3.3874e+00,3.1301e+00,2.8506e+00,2.5816e+00,2.3318e+00,
1756  &2.0965e+00,1.9136e+00,1.7368e+00,1.5622e+00,1.4211e+00,1.3452e+00,
1757  &1.2937e+00,1.2737e+00,1.2719e+00,1.2868e+00,1.3119e+00,1.3437e+00/
1758  DATA (xgf_l(k),k= 457, 570) /
1759  &1.3799e+00,1.4189e+00,1.4596e+00,1.5003e+00,1.5401e+00,1.5761e+00,
1760  &1.6073e+00,1.6574e+00,1.7377e+00,1.8158e+00,1.8902e+00,1.9601e+00,
1761  &2.0263e+00,2.0884e+00,2.1452e+00,2.1990e+00,2.2512e+00,2.3118e+00,
1762  &2.4354e+00,0.0000e+00,1.9256e+01,1.8699e+01,1.8142e+01,1.7563e+01,
1763  &1.6980e+01,1.6355e+01,1.5725e+01,1.5081e+01,1.4443e+01,1.3769e+01,
1764  &1.3097e+01,1.2422e+01,1.1755e+01,1.1358e+01,1.0937e+01,1.0454e+01,
1765  &9.9818e+00,9.5167e+00,9.0465e+00,8.6570e+00,8.2473e+00,7.7870e+00,
1766  &7.3320e+00,6.8911e+00,6.4569e+00,6.0969e+00,5.7223e+00,5.3051e+00,
1767  &4.8992e+00,4.5131e+00,4.1351e+00,3.8285e+00,3.5148e+00,3.1749e+00,
1768  &2.8517e+00,2.5534e+00,2.2748e+00,2.0598e+00,1.8527e+00,1.6465e+00,
1769  &1.4780e+00,1.3832e+00,1.3129e+00,1.2758e+00,1.2566e+00,1.2544e+00,
1770  &1.2628e+00,1.2778e+00,1.2971e+00,1.3186e+00,1.3412e+00,1.3637e+00,
1771  &1.3845e+00,1.4021e+00,1.4142e+00,1.4518e+00,1.4945e+00,1.5327e+00,
1772  &1.5661e+00,1.5941e+00,1.6160e+00,1.6309e+00,1.6386e+00,1.6381e+00,
1773  &1.6291e+00,1.6176e+00,1.6271e+00,0.0000e+00,2.5945e+01,2.5063e+01,
1774  &2.4160e+01,2.3234e+01,2.2336e+01,2.1370e+01,2.0417e+01,1.9450e+01,
1775  &1.8508e+01,1.7517e+01,1.6548e+01,1.5580e+01,1.4645e+01,1.4085e+01,
1776  &1.3496e+01,1.2836e+01,1.2181e+01,1.1547e+01,1.0921e+01,1.0404e+01,
1777  &9.8614e+00,9.2547e+00,8.6616e+00,8.0926e+00,7.5352e+00,7.0774e+00/
1778  DATA (xgf_l(k),k= 571, 684) /
1779  &6.6043e+00,6.0842e+00,5.5816e+00,5.1040e+00,4.6450e+00,4.2749e+00,
1780  &3.8995e+00,3.4941e+00,3.1134e+00,2.7651e+00,2.4423e+00,2.1941e+00,
1781  &1.9564e+00,1.7198e+00,1.5241e+00,1.4112e+00,1.3220e+00,1.2705e+00,
1782  &1.2348e+00,1.2175e+00,1.2113e+00,1.2119e+00,1.2167e+00,1.2238e+00,
1783  &1.2321e+00,1.2398e+00,1.2460e+00,1.2491e+00,1.2470e+00,1.2752e+00,
1784  &1.2894e+00,1.2998e+00,1.3055e+00,1.3049e+00,1.2991e+00,1.2860e+00,
1785  &1.2655e+00,1.2370e+00,1.1998e+00,1.1564e+00,1.1181e+00,0.0000e+00,
1786  &3.3362e+01,3.2051e+01,3.0740e+01,2.9429e+01,2.8133e+01,2.6758e+01,
1787  &2.5422e+01,2.4082e+01,2.2784e+01,2.1435e+01,2.0130e+01,1.8839e+01,
1788  &1.7597e+01,1.6865e+01,1.6098e+01,1.5241e+01,1.4397e+01,1.3587e+01,
1789  &1.2791e+01,1.2130e+01,1.1444e+01,1.0687e+01,9.9507e+00,9.2501e+00,
1790  &8.5659e+00,8.0104e+00,7.4390e+00,6.8118e+00,6.2125e+00,5.6506e+00,
1791  &5.1096e+00,4.6780e+00,4.2434e+00,3.7769e+00,3.3424e+00,2.9475e+00,
1792  &2.5842e+00,2.3061e+00,2.0409e+00,1.7770e+00,1.5572e+00,1.4290e+00,
1793  &1.3248e+00,1.2609e+00,1.2112e+00,1.1814e+00,1.1636e+00,1.1530e+00,
1794  &1.1469e+00,1.1433e+00,1.1407e+00,1.1378e+00,1.1337e+00,1.1269e+00,
1795  &1.1152e+00,1.1360e+00,1.1320e+00,1.1243e+00,1.1127e+00,1.0960e+00,
1796  &1.0739e+00,1.0461e+00,1.0122e+00,9.7100e-01,9.2292e-01,8.6909e-01,
1797  &8.1432e-01,0.0000e+00,4.2364e+01,4.0483e+01,3.8640e+01,3.6792e+01/
1798  DATA (xgf_l(k),k= 685, 798) /
1799  &3.4991e+01,3.3112e+01,3.1295e+01,2.9487e+01,2.7748e+01,2.5953e+01,
1800  &2.4235e+01,2.2543e+01,2.0935e+01,1.9990e+01,1.9011e+01,1.7921e+01,
1801  &1.6852e+01,1.5830e+01,1.4831e+01,1.4013e+01,1.3165e+01,1.2236e+01,
1802  &1.1337e+01,1.0485e+01,9.6616e+00,8.9943e+00,8.3137e+00,7.5711e+00,
1803  &6.8670e+00,6.2090e+00,5.5842e+00,5.0866e+00,4.5873e+00,4.0564e+00,
1804  &3.5646e+00,3.1234e+00,2.7185e+00,2.4107e+00,2.1172e+00,1.8273e+00,
1805  &1.5836e+00,1.4407e+00,1.3211e+00,1.2459e+00,1.1839e+00,1.1433e+00,
1806  &1.1153e+00,1.0949e+00,1.0794e+00,1.0667e+00,1.0555e+00,1.0443e+00,
1807  &1.0317e+00,1.0172e+00,9.9883e-01,1.0131e+00,9.9503e-01,9.7446e-01,
1808  &9.5064e-01,9.2316e-01,8.9156e-01,8.5528e-01,8.1439e-01,7.6837e-01,
1809  &7.1718e-01,6.6210e-01,6.0243e-01,0.0000e+00,5.2603e+01,5.0038e+01,
1810  &4.7540e+01,4.5053e+01,4.2652e+01,4.0175e+01,3.7784e+01,3.5407e+01,
1811  &3.3154e+01,3.0851e+01,2.8651e+01,2.6507e+01,2.4488e+01,2.3310e+01,
1812  &2.2084e+01,2.0735e+01,1.9418e+01,1.8166e+01,1.6951e+01,1.5960e+01,
1813  &1.4935e+01,1.3817e+01,1.2742e+01,1.1732e+01,1.0759e+01,9.9749e+00,
1814  &9.1794e+00,8.3186e+00,7.5044e+00,6.7510e+00,6.0386e+00,5.4762e+00,
1815  &4.9137e+00,4.3200e+00,3.7728e+00,3.2842e+00,2.8391e+00,2.5026e+00,
1816  &2.1835e+00,1.8677e+00,1.6033e+00,1.4461e+00,1.3138e+00,1.2277e+00,
1817  &1.1557e+00,1.1057e+00,1.0689e+00,1.0407e+00,1.0176e+00,9.9768e-01/
1818  DATA (xgf_l(k),k= 799, 912) /
1819  &9.7951e-01,9.6199e-01,9.4331e-01,9.2359e-01,9.0058e-01,9.0921e-01,
1820  &8.8156e-01,8.5244e-01,8.2081e-01,7.8702e-01,7.5025e-01,7.1005e-01,
1821  &6.6667e-01,6.1984e-01,5.6969e-01,5.1748e-01,4.5895e-01,0.0000e+00,
1822  &6.3459e+01,6.0127e+01,5.6900e+01,5.3695e+01,5.0615e+01,4.7464e+01,
1823  &4.4440e+01,4.1483e+01,3.8684e+01,3.5826e+01,3.3122e+01,3.0500e+01,
1824  &2.8040e+01,2.6617e+01,2.5143e+01,2.3518e+01,2.1950e+01,2.0455e+01,
1825  &1.9011e+01,1.7842e+01,1.6646e+01,1.5337e+01,1.4094e+01,1.2920e+01,
1826  &1.1799e+01,1.0903e+01,9.9940e+00,9.0166e+00,8.0967e+00,7.2512e+00,
1827  &6.4551e+00,5.8279e+00,5.2081e+00,4.5519e+00,3.9568e+00,3.4237e+00,
1828  &2.9425e+00,2.5798e+00,2.2371e+00,1.8995e+00,1.6161e+00,1.4477e+00,
1829  &1.3046e+00,1.2096e+00,1.1285e+00,1.0709e+00,1.0274e+00,9.9290e-01,
1830  &9.6399e-01,9.3860e-01,9.1550e-01,8.9324e-01,8.7036e-01,8.4674e-01,
1831  &8.2129e-01,8.2506e-01,7.9094e-01,7.5633e-01,7.2031e-01,6.8307e-01,
1832  &6.4387e-01,6.0237e-01,5.5907e-01,5.1344e-01,4.6618e-01,4.1810e-01,
1833  &3.6329e-01,0.0000e+00,7.9498e+01,7.4941e+01,7.0580e+01,6.6266e+01,
1834  &6.2169e+01,5.8002e+01,5.4045e+01,5.0164e+01,4.6539e+01,4.2847e+01,
1835  &3.9386e+01,3.6065e+01,3.2968e+01,3.1180e+01,2.9347e+01,2.7330e+01,
1836  &2.5394e+01,2.3566e+01,2.1811e+01,2.0388e+01,1.8944e+01,1.7368e+01,
1837  &1.5877e+01,1.4488e+01,1.3164e+01,1.2111e+01,1.1051e+01,9.9162e+00/
1838  DATA (xgf_l(k),k= 913, 1026) /
1839  &8.8542e+00,7.8839e+00,6.9777e+00,6.2689e+00,5.5695e+00,4.8410e+00,
1840  &4.1789e+00,3.5909e+00,3.0635e+00,2.6689e+00,2.2973e+00,1.9324e+00,
1841  &1.6270e+00,1.4446e+00,1.2882e+00,1.1839e+00,1.0926e+00,1.0266e+00,
1842  &9.7585e-01,9.3473e-01,8.9976e-01,8.6898e-01,8.4068e-01,8.1374e-01,
1843  &7.8714e-01,7.6011e-01,7.3262e-01,7.3148e-01,6.9170e-01,6.5270e-01,
1844  &6.1357e-01,5.7426e-01,5.3417e-01,4.9316e-01,4.5166e-01,4.0914e-01,
1845  &3.6649e-01,3.2429e-01,2.7651e-01,0.0000e+00,9.7091e+01,9.1127e+01,
1846  &8.5440e+01,7.9869e+01,7.4603e+01,6.9275e+01,6.4220e+01,5.9343e+01,
1847  &5.4780e+01,5.0195e+01,4.5912e+01,4.1816e+01,3.8028e+01,3.5857e+01,
1848  &3.3637e+01,3.1205e+01,2.8880e+01,2.6695e+01,2.4601e+01,2.2923e+01,
1849  &2.1219e+01,1.9374e+01,1.7634e+01,1.6009e+01,1.4488e+01,1.3276e+01,
1850  &1.2064e+01,1.0772e+01,9.5709e+00,8.4795e+00,7.4649e+00,6.6775e+00,
1851  &5.9046e+00,5.1015e+00,4.3733e+00,3.7372e+00,3.1677e+00,2.7434e+00,
1852  &2.3459e+00,1.9566e+00,1.6317e+00,1.4368e+00,1.2699e+00,1.1572e+00,
1853  &1.0581e+00,9.8558e-01,9.2913e-01,8.8297e-01,8.4349e-01,8.0862e-01,
1854  &7.7667e-01,7.4686e-01,7.1760e-01,6.8906e-01,6.6005e-01,6.5493e-01,
1855  &6.1209e-01,5.7080e-01,5.3038e-01,4.9085e-01,4.5137e-01,4.1231e-01,
1856  &3.7316e-01,3.3442e-01,2.9613e-01,2.5928e-01,2.1912e-01,0.0000e+00,
1857  &1.1660e+02,1.0899e+02,1.0178e+02,9.4752e+01,8.8142e+01,8.1480e+01/
1858  DATA (xgf_l(k),k= 1027, 1140) /
1859  &7.5219e+01,6.9198e+01,6.3578e+01,5.7986e+01,5.2800e+01,4.7867e+01,
1860  &4.3328e+01,4.0736e+01,3.8088e+01,3.5213e+01,3.2469e+01,2.9907e+01,
1861  &2.7451e+01,2.5501e+01,2.3516e+01,2.1392e+01,1.9391e+01,1.7546e+01,
1862  &1.5800e+01,1.4426e+01,1.3057e+01,1.1607e+01,1.0266e+01,9.0517e+00,
1863  &7.9294e+00,7.0617e+00,6.2165e+00,5.3397e+00,4.5572e+00,3.8687e+00,
1864  &3.2598e+00,2.8078e+00,2.3859e+00,1.9745e+00,1.6317e+00,1.4267e+00,
1865  &1.2497e+00,1.1305e+00,1.0247e+00,9.4657e-01,8.8556e-01,8.3542e-01,
1866  &7.9253e-01,7.5465e-01,7.2037e-01,6.8840e-01,6.5775e-01,6.2793e-01,
1867  &5.9852e-01,5.9015e-01,5.4553e-01,5.0339e-01,4.6306e-01,4.2411e-01,
1868  &3.8622e-01,3.4909e-01,3.1294e-01,2.7773e-01,2.4373e-01,2.1150e-01,
1869  &1.7848e-01,0.0000e+00,1.3738e+02,1.2796e+02,1.1904e+02,1.1042e+02,
1870  &1.0233e+02,9.4222e+01,8.6662e+01,7.9409e+01,7.2655e+01,6.6001e+01,
1871  &5.9833e+01,5.4007e+01,4.8672e+01,4.5642e+01,4.2552e+01,3.9214e+01,
1872  &3.6040e+01,3.3082e+01,3.0272e+01,2.8026e+01,2.5779e+01,2.3361e+01,
1873  &2.1093e+01,1.9009e+01,1.7062e+01,1.5526e+01,1.4003e+01,1.2396e+01,
1874  &1.0916e+01,9.5845e+00,8.3611e+00,7.4188e+00,6.5021e+00,5.5589e+00,
1875  &4.7169e+00,3.9865e+00,3.3389e+00,2.8617e+00,2.4178e+00,1.9872e+00,
1876  &1.6283e+00,1.4143e+00,1.2296e+00,1.1049e+00,9.9315e-01,9.1079e-01,
1877  &8.4623e-01,7.9317e-01,7.4768e-01,7.0802e-01,6.7178e-01,6.3836e-01/
1878  DATA (xgf_l(k),k= 1141, 1254) /
1879  &6.0703e-01,5.7658e-01,5.4733e-01,5.3630e-01,4.9100e-01,4.4879e-01,
1880  &4.0920e-01,3.7138e-01,3.3521e-01,3.0054e-01,2.6721e-01,2.3523e-01,
1881  &2.0485e-01,1.7634e-01,1.4852e-01,0.0000e+00,1.6103e+02,1.4938e+02,
1882  &1.3848e+02,1.2798e+02,1.1818e+02,1.0840e+02,9.9309e+01,9.0651e+01,
1883  &8.2647e+01,7.4733e+01,6.7469e+01,6.0672e+01,5.4433e+01,5.0913e+01,
1884  &4.7343e+01,4.3482e+01,3.9833e+01,3.6452e+01,3.3242e+01,3.0689e+01,
1885  &2.8134e+01,2.5404e+01,2.2863e+01,2.0531e+01,1.8362e+01,1.6652e+01,
1886  &1.4967e+01,1.3197e+01,1.1573e+01,1.0120e+01,8.7877e+00,7.7679e+00,
1887  &6.7819e+00,5.7685e+00,4.8731e+00,4.0967e+00,3.4122e+00,2.9097e+00,
1888  &2.4451e+00,1.9953e+00,1.6222e+00,1.3995e+00,1.2076e+00,1.0771e+00,
1889  &9.6151e-01,8.7563e-01,8.0819e-01,7.5269e-01,7.0548e-01,6.6395e-01,
1890  &6.2666e-01,5.9253e-01,5.6034e-01,5.3005e-01,5.0122e-01,4.8790e-01,
1891  &4.4273e-01,4.0115e-01,3.6251e-01,3.2632e-01,2.9224e-01,2.5988e-01,
1892  &2.2931e-01,2.0039e-01,1.7324e-01,1.4805e-01,1.2201e-01,0.0000e+00,
1893  &1.8591e+02,1.7193e+02,1.5886e+02,1.4632e+02,1.3469e+02,1.2310e+02,
1894  &1.1237e+02,1.0218e+02,9.2839e+01,8.3643e+01,7.5256e+01,6.7382e+01,
1895  &6.0231e+01,5.6204e+01,5.2127e+01,4.7743e+01,4.3601e+01,3.9784e+01,
1896  &3.6172e+01,3.3310e+01,3.0455e+01,2.7410e+01,2.4579e+01,2.2009e+01,
1897  &1.9599e+01,1.7727e+01,1.5886e+01,1.3956e+01,1.2193e+01,1.0620e+01/
1898  DATA (xgf_l(k),k= 1255, 1368) /
1899  &9.1866e+00,8.0925e+00,7.0383e+00,5.9623e+00,5.0119e+00,4.1917e+00,
1900  &3.4750e+00,2.9503e+00,2.4663e+00,1.9999e+00,1.6141e+00,1.3840e+00,
1901  &1.1856e+00,1.0518e+00,9.3192e-01,8.4324e-01,7.7348e-01,7.1642e-01,
1902  &6.6779e-01,6.2531e-01,5.8732e-01,5.5231e-01,5.2039e-01,4.9037e-01,
1903  &4.6218e-01,4.4711e-01,4.0225e-01,3.6159e-01,3.2438e-01,2.8982e-01,
1904  &2.5765e-01,2.2765e-01,1.9954e-01,1.7331e-01,1.4889e-01,1.2621e-01,
1905  &9.6984e-02,0.0000e+00,2.1269e+02,1.9609e+02,1.8060e+02,1.6582e+02,
1906  &1.5214e+02,1.3863e+02,1.2613e+02,1.1431e+02,1.0351e+02,9.2957e+01,
1907  &8.3294e+01,7.4318e+01,6.6188e+01,6.1617e+01,5.7019e+01,5.2073e+01,
1908  &4.7428e+01,4.3153e+01,3.9122e+01,3.5941e+01,3.2764e+01,2.9404e+01,
1909  &2.6282e+01,2.3458e+01,2.0836e+01,1.8796e+01,1.6786e+01,1.4693e+01,
1910  &1.2792e+01,1.1101e+01,9.5678e+00,8.4010e+00,7.2773e+00,6.1402e+00,
1911  &5.1403e+00,4.2791e+00,3.5311e+00,2.9851e+00,2.4835e+00,2.0017e+00,
1912  &1.6039e+00,1.3677e+00,1.1646e+00,1.0265e+00,9.0375e-01,8.1271e-01,
1913  &7.4135e-01,6.8280e-01,6.3328e-01,5.9018e-01,5.5184e-01,5.1677e-01,
1914  &4.8494e-01,4.5537e-01,4.2797e-01,4.1146e-01,3.6736e-01,3.2788e-01,
1915  &2.9207e-01,2.5923e-01,2.2901e-01,2.0110e-01,1.7527e-01,1.5131e-01,
1916  &1.2926e-01,1.0839e-01,6.9776e-02,0.0000e+00,2.4043e+02,2.2104e+02,
1917  &2.0300e+02,1.8582e+02,1.7003e+02,1.5443e+02,1.4007e+02,1.2658e+02/
1918  DATA (xgf_l(k),k= 1369, 1482) /
1919  &1.1426e+02,1.0227e+02,9.1332e+01,8.1197e+01,7.2119e+01,6.6989e+01,
1920  &6.1846e+01,5.6342e+01,5.1188e+01,4.6448e+01,4.2002e+01,3.8498e+01,
1921  &3.5016e+01,3.1335e+01,2.7931e+01,2.4848e+01,2.2009e+01,1.9797e+01,
1922  &1.7637e+01,1.5389e+01,1.3354e+01,1.1550e+01,9.9187e+00,8.6824e+00,
1923  &7.4988e+00,6.3022e+00,5.2549e+00,4.3589e+00,3.5788e+00,3.0139e+00,
1924  &2.4962e+00,2.0005e+00,1.5931e+00,1.3514e+00,1.1435e+00,1.0028e+00,
1925  &8.7751e-01,7.8479e-01,7.1218e-01,6.5272e-01,6.0250e-01,5.5920e-01,
1926  &5.2061e-01,4.8590e-01,4.5422e-01,4.2519e-01,3.9858e-01,3.8094e-01,
1927  &3.3789e-01,2.9975e-01,2.6524e-01,2.3401e-01,2.0560e-01,1.7956e-01,
1928  &1.5565e-01,1.3374e-01,1.1354e-01,9.4096e-02,3.9275e-02,0.0000e+00,
1929  &2.8195e+02,2.5830e+02,2.3640e+02,2.1554e+02,1.9645e+02,1.7774e+02,
1930  &1.6058e+02,1.4448e+02,1.2990e+02,1.1575e+02,1.0299e+02,9.1121e+01,
1931  &8.0574e+01,7.4642e+01,6.8724e+01,6.2402e+01,5.6498e+01,5.1101e+01,
1932  &4.6042e+01,4.2081e+01,3.8152e+01,3.4014e+01,3.0201e+01,2.6780e+01,
1933  &2.3611e+01,2.1171e+01,1.8789e+01,1.6329e+01,1.4107e+01,1.2148e+01,
1934  &1.0386e+01,9.0557e+00,7.7874e+00,6.5118e+00,5.4006e+00,4.4539e+00,
1935  &3.6370e+00,3.0467e+00,2.5088e+00,1.9959e+00,1.5762e+00,1.3274e+00,
1936  &1.1142e+00,9.7065e-01,8.4265e-01,7.4825e-01,6.7451e-01,6.1445e-01,
1937  &5.6374e-01,5.2024e-01,4.8166e-01,4.4741e-01,4.1643e-01,3.8830e-01/
1938  DATA (xgf_l(k),k= 1483, 1596) /
1939  &3.6282e-01,3.4411e-01,3.0249e-01,2.6607e-01,2.3369e-01,2.0474e-01,
1940  &1.7852e-01,1.5489e-01,1.3341e-01,1.1384e-01,9.5862e-02,7.7509e-02,
1941  &0.0000e+00,0.0000e+00,3.2379e+02,2.9556e+02,2.6960e+02,2.4513e+02,
1942  &2.2265e+02,2.0073e+02,1.8071e+02,1.6202e+02,1.4515e+02,1.2887e+02,
1943  &1.1419e+02,1.0071e+02,8.8650e+01,8.1931e+01,7.5233e+01,6.8140e+01,
1944  &6.1510e+01,5.5467e+01,4.9832e+01,4.5419e+01,4.1070e+01,3.6493e+01,
1945  &3.2295e+01,2.8536e+01,2.5086e+01,2.2426e+01,1.9846e+01,1.7175e+01,
1946  &1.4781e+01,1.2681e+01,1.0797e+01,9.3831e+00,8.0380e+00,6.6897e+00,
1947  &5.5221e+00,4.5337e+00,3.6831e+00,3.0714e+00,2.5159e+00,1.9884e+00,
1948  &1.5586e+00,1.3048e+00,1.0886e+00,9.4191e-01,8.1217e-01,7.1679e-01,
1949  &6.4238e-01,5.8194e-01,5.3136e-01,4.8766e-01,4.4965e-01,4.1594e-01,
1950  &3.8570e-01,3.5847e-01,3.3403e-01,3.1456e-01,2.7454e-01,2.3977e-01,
1951  &2.0922e-01,1.8216e-01,1.5795e-01,1.3622e-01,1.1669e-01,9.9012e-02,
1952  &8.2668e-02,6.4604e-02,0.0000e+00,0.0000e+00,3.7071e+02,3.3727e+02,
1953  &3.0660e+02,2.7790e+02,2.5169e+02,2.2608e+02,2.0283e+02,1.8123e+02,
1954  &1.6179e+02,1.4311e+02,1.2635e+02,1.1097e+02,9.7357e+01,8.9759e+01,
1955  &8.2263e+01,7.4239e+01,6.6821e+01,6.0073e+01,5.3813e+01,4.8927e+01,
1956  &4.4114e+01,3.9072e+01,3.4471e+01,3.0351e+01,2.6592e+01,2.3699e+01,
1957  &2.0903e+01,1.8031e+01,1.5459e+01,1.3211e+01,1.1204e+01,9.7024e+00/
1958  DATA (xgf_l(k),k= 1597, 1710) /
1959  &8.2828e+00,6.8644e+00,5.6367e+00,4.6059e+00,3.7241e+00,3.0915e+00,
1960  &2.5189e+00,1.9786e+00,1.5396e+00,1.2816e+00,1.0611e+00,9.1306e-01,
1961  &7.8207e-01,6.8594e-01,6.1118e-01,5.5075e-01,5.0031e-01,4.5732e-01,
1962  &4.1996e-01,3.8671e-01,3.5732e-01,3.3101e-01,3.0775e-01,2.8769e-01,
1963  &2.4931e-01,2.1637e-01,1.8763e-01,1.6241e-01,1.4002e-01,1.2013e-01,
1964  &1.0238e-01,8.6311e-02,7.1348e-02,5.2982e-02,0.0000e+00,0.0000e+00,
1965  &4.2142e+02,3.8237e+02,3.4660e+02,3.1292e+02,2.8259e+02,2.5300e+02,
1966  &2.2626e+02,2.0148e+02,1.7927e+02,1.5797e+02,1.3896e+02,1.2163e+02,
1967  &1.0632e+02,9.7858e+01,8.9366e+01,8.0488e+01,7.2234e+01,6.4771e+01,
1968  &5.7843e+01,5.2468e+01,4.7182e+01,4.1663e+01,3.6633e+01,3.2165e+01,
1969  &2.8082e+01,2.4971e+01,2.1960e+01,1.8866e+01,1.6118e+01,1.3723e+01,
1970  &1.1595e+01,1.0008e+01,8.5101e+00,7.0232e+00,5.7443e+00,4.6705e+00,
1971  &3.7584e+00,3.1066e+00,2.5189e+00,1.9659e+00,1.5193e+00,1.2575e+00,
1972  &1.0346e+00,8.8517e-01,7.5338e-01,6.5695e-01,5.8219e-01,5.2200e-01,
1973  &4.7218e-01,4.2954e-01,3.9258e-01,3.6043e-01,3.3190e-01,3.0663e-01,
1974  &2.8431e-01,2.6413e-01,2.2746e-01,1.9612e-01,1.6912e-01,1.4557e-01,
1975  &1.2488e-01,1.0660e-01,9.0362e-02,7.5731e-02,6.1890e-02,4.2720e-02,
1976  &0.0000e+00,0.0000e+00,4.7166e+02,4.2676e+02,3.8580e+02,3.4749e+02,
1977  &3.1273e+02,2.7927e+02,2.4899e+02,2.2108e+02,1.9611e+02,1.7230e+02/
1978  DATA (xgf_l(k),k= 1711, 1824) /
1979  &1.5107e+02,1.3178e+02,1.1483e+02,1.0548e+02,9.6179e+01,8.6383e+01,
1980  &7.7331e+01,6.9156e+01,6.1613e+01,5.5763e+01,5.0019e+01,4.4056e+01,
1981  &3.8633e+01,3.3819e+01,2.9446e+01,2.6108e+01,2.2889e+01,1.9617e+01,
1982  &1.6706e+01,1.4179e+01,1.1938e+01,1.0276e+01,8.7112e+00,7.1630e+00,
1983  &5.8345e+00,4.7275e+00,3.7856e+00,3.1171e+00,2.5164e+00,1.9532e+00,
1984  &1.4997e+00,1.2350e+00,1.0108e+00,8.6027e-01,7.2804e-01,6.3166e-01,
1985  &5.5726e-01,4.9745e-01,4.4802e-01,4.0623e-01,3.7002e-01,3.3850e-01,
1986  &3.1081e-01,2.8644e-01,2.6509e-01,2.4476e-01,2.0951e-01,1.7979e-01,
1987  &1.5426e-01,1.3217e-01,1.1290e-01,9.5951e-02,8.0975e-02,6.7483e-02,
1988  &5.4483e-02,3.4309e-02,0.0000e+00,0.0000e+00,5.2745e+02,4.7595e+02,
1989  &4.2900e+02,3.8543e+02,3.4589e+02,3.0795e+02,2.7377e+02,2.4235e+02,
1990  &2.1434e+02,1.8771e+02,1.6408e+02,1.4266e+02,1.2392e+02,1.1358e+02,
1991  &1.0335e+02,9.2593e+01,8.2702e+01,7.3780e+01,6.5553e+01,5.9207e+01,
1992  &5.2983e+01,4.6535e+01,4.0700e+01,3.5531e+01,3.0842e+01,2.7278e+01,
1993  &2.3855e+01,2.0386e+01,1.7301e+01,1.4635e+01,1.2282e+01,1.0538e+01,
1994  &8.9065e+00,7.2932e+00,5.9178e+00,4.7769e+00,3.8086e+00,3.1240e+00,
1995  &2.5114e+00,1.9387e+00,1.4794e+00,1.2125e+00,9.8604e-01,8.3538e-01,
1996  &7.0309e-01,6.0683e-01,5.3289e-01,4.7378e-01,4.2493e-01,3.8387e-01,
1997  &3.4846e-01,3.1778e-01,2.9097e-01,2.6744e-01,2.4699e-01,2.2688e-01/
1998  DATA (xgf_l(k),k= 1825, 1836) /
1999  &1.9308e-01,1.6489e-01,1.4079e-01,1.2009e-01,1.0214e-01,8.6447e-02,
2000  &7.2603e-02,6.0131e-02,4.7893e-02,2.6613e-02,0.0000e+00,0.0000e+00/
2001  DATA iniwa1 /0/
2002  DATA iniwa2 /0/
2003 *
2004 *...CHECK OF X AND Q2 VALUES :
2005  IF ( (x.LT.0.99d-9) .OR. (x.GT.1.d0) ) THEN
2006  iniwa1=iniwa1+1
2007  IF(iniwa1.LE.10)WRITE(6,91)
2008  91 FORMAT (2x,'grv98lo PARTON INTERPOLATION: X OUT OF RANGE',
2009  * ' Only 10 warnings')
2010 C j.r.11/98
2011 C STOP
2012  ENDIF
2013  IF ( (q2.LT.0.799) .OR. (q2.GT.1.e6) ) THEN
2014  iniwa2=iniwa2+1
2015  IF(iniwa2.LE.10)WRITE(6,92)
2016  92 FORMAT (2x,'grv98lo PARTON INTERPOLATION: Q2 OUT OF RANGE',
2017  * ' Only 10 warnings')
2018 C j.r.11/98
2019 C STOP
2020  ENDIF
2021 
2022 *
2023 *...INTERPOLATION :
2024  na(1) = nx
2025  na(2) = nq
2026  xt(1) = dlog(x)
2027  xt(2) = dlog(q2)
2028  x1 = 1.- x
2029  xv = x**0.5
2030  xs = x**(-0.2)
2031  uv = po_fint(narg,xt,na,arrf,xuvf) * x1**3 * xv
2032  dv = po_fint(narg,xt,na,arrf,xdvf) * x1**4 * xv
2033  de = po_fint(narg,xt,na,arrf,xdef) * x1**7 * xv
2034  ud = po_fint(narg,xt,na,arrf,xudf) * x1**7 * xs
2035  us = 0.5 * (ud - de)
2036  ds = 0.5 * (ud + de)
2037  ss = po_fint(narg,xt,na,arrf,xsf) * x1**7 * xs
2038  gl = po_fint(narg,xt,na,arrf,xgf) * x1**5 * xs
2039 
2040  END
2041 
2042 
2043  FUNCTION po_fint(NARG,ARG,NENT,ENT,TABLE)
2044 C***********************************************************************
2045 C
2046 C CERN library E104
2047 C
2048 C multi-dimensional interpolation routine, needed for GRV98 PDFs
2049 C
2050 C changed to avoid recursive function calls (R.Engel, 09/98)
2051 C
2052 C***********************************************************************
2053  IMPLICIT DOUBLE PRECISION (a-h, o-z)
2054 
2055  dimension arg(narg),nent(narg),ent(*),table(*)
2056 
2057  dimension d(5),ncomb(5),ient(5)
2058 
2059  kd=1
2060  m=1
2061  ja=1
2062  DO 5 i=1,narg
2063  ncomb(i)=1
2064  jb=ja-1+nent(i)
2065  DO 2 j=ja,jb
2066  IF (arg(i).LE.ent(j)) go to 3
2067  2 CONTINUE
2068  j=jb
2069  3 IF (j.NE.ja) go to 4
2070  j=j+1
2071  4 jr=j-1
2072  d(i)=(ent(j)-arg(i))/(ent(j)-ent(jr))
2073  ient(i)=j-ja
2074  kd=kd+ient(i)*m
2075  m=m*nent(i)
2076  5 ja=jb+1
2077  fint=0.d0
2078  10 fac=1.d0
2079  iadr=kd
2080  ifadr=1
2081  DO 15 i=1,narg
2082  IF (ncomb(i).EQ.0) go to 12
2083  fac=fac*(1.d0-d(i))
2084  go to 15
2085  12 fac=fac*d(i)
2086  iadr=iadr-ifadr
2087  15 ifadr=ifadr*nent(i)
2088  fint=fint+fac*table(iadr)
2089  il=narg
2090  40 IF (ncomb(il).EQ.0) go to 80
2091  ncomb(il)=0
2092  IF (il.EQ.narg) go to 10
2093  il=il+1
2094  DO 50 k=il,narg
2095  50 ncomb(k)=1
2096  go to 10
2097  80 il=il-1
2098  IF(il.NE.0) go to 40
2099  po_fint = fint
2100 
2101  END
Generated on Sat May 25 2013 14:32:39 for Geant4 by   doxygen 1.8.4