OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
bndprms.f
Go to the documentation of this file.
1 ********************************************************************************
2 * *
3 * Name: BNDPRMS (O3CF_INIT) *
4 * Purpose: Initializes O3 absorption coefficients used in calculating *
5 * transmission spectra. *
6 * Parameters: none *
7 * Globals used: none *
8 * Global output: O3CF - One dimensional array containing values for the O3 *
9 * absorption coefficients in the 0.3-0.8 um region. *
10 * The coefficients were derived from LOWTRAN7 O3 *
11 * transmittance spectra calculated with the *
12 * US76 atmospheric model. The wavelength spacing *
13 * between any two adjacent points is 0.0001 micron *
14 * References: *
15 * Return Codes: none *
16 * Special Considerations: None *
17 * *
18 ********************************************************************************
19  BLOCK DATA o3cf_init
20 
21  REAL O3CF(5001)
22 
23  COMMON /o3cf_init1/ o3cf
24 
25  DATA (o3cf(i),i=1,100) /
26  $ 9.5670e+00, 9.4597e+00, 9.3546e+00, 9.2502e+00, 9.1526e+00,
27  $ 9.0553e+00, 8.9593e+00, 8.8348e+00, 8.6655e+00, 8.4848e+00,
28  $ 8.2956e+00, 8.1301e+00, 7.9717e+00, 7.8588e+00, 7.7497e+00,
29  $ 7.6491e+00, 7.5670e+00, 7.5242e+00, 7.4749e+00, 7.4189e+00,
30  $ 7.3577e+00, 7.2942e+00, 7.2039e+00, 7.1079e+00, 6.9794e+00,
31  $ 6.8512e+00, 6.7244e+00, 6.5944e+00, 6.4591e+00, 6.3227e+00,
32  $ 6.1854e+00, 6.0950e+00, 6.0247e+00, 5.9579e+00, 5.8920e+00,
33  $ 5.8354e+00, 5.7779e+00, 5.7158e+00, 5.6742e+00, 5.6742e+00,
34  $ 5.6533e+00, 5.6108e+00, 5.5313e+00, 5.4312e+00, 5.3505e+00,
35  $ 5.2750e+00, 5.1502e+00, 5.0247e+00, 4.9322e+00, 4.8341e+00,
36  $ 4.7164e+00, 4.6081e+00, 4.5167e+00, 4.4496e+00, 4.4068e+00,
37  $ 4.3737e+00, 4.3464e+00, 4.3195e+00, 4.2927e+00, 4.2593e+00,
38  $ 4.2255e+00, 4.2037e+00, 4.1829e+00, 4.1680e+00, 4.1337e+00,
39  $ 4.0472e+00, 3.9640e+00, 3.8860e+00, 3.8066e+00, 3.7261e+00,
40  $ 3.6380e+00, 3.5454e+00, 3.4575e+00, 3.3711e+00, 3.2982e+00,
41  $ 3.2276e+00, 3.1968e+00, 3.1703e+00, 3.1785e+00, 3.1863e+00,
42  $ 3.1923e+00, 3.1851e+00, 3.1456e+00, 3.0928e+00, 3.0189e+00,
43  $ 2.9815e+00, 2.9836e+00, 2.9720e+00, 2.9505e+00, 2.9258e+00,
44  $ 2.8995e+00, 2.8449e+00, 2.7819e+00, 2.6991e+00, 2.6127e+00,
45  $ 2.5087e+00, 2.4051e+00, 2.3693e+00, 2.3350e+00, 2.3125e+00/
46 
47  DATA (o3cf(i),i=101,200) /
48  $ 2.2971e+00, 2.3121e+00, 2.3243e+00, 2.3287e+00, 2.3080e+00,
49  $ 2.2388e+00, 2.1910e+00, 2.1741e+00, 2.1504e+00, 2.1193e+00,
50  $ 2.1000e+00, 2.0905e+00, 2.0978e+00, 2.1158e+00, 2.1075e+00,
51  $ 2.0868e+00, 2.0277e+00, 1.9550e+00, 1.8987e+00, 1.8468e+00,
52  $ 1.8023e+00, 1.7592e+00, 1.7267e+00, 1.6954e+00, 1.6558e+00,
53  $ 1.6158e+00, 1.5964e+00, 1.5767e+00, 1.5501e+00, 1.5257e+00,
54  $ 1.5227e+00, 1.5215e+00, 1.5328e+00, 1.5493e+00, 1.5913e+00,
55  $ 1.6226e+00, 1.6113e+00, 1.5884e+00, 1.5295e+00, 1.4755e+00,
56  $ 1.4349e+00, 1.3879e+00, 1.3259e+00, 1.2662e+00, 1.2112e+00,
57  $ 1.1680e+00, 1.1466e+00, 1.1350e+00, 1.1400e+00, 1.1354e+00,
58  $ 1.1158e+00, 1.1048e+00, 1.1068e+00, 1.1364e+00, 1.2060e+00,
59  $ 1.2507e+00, 1.2626e+00, 1.2422e+00, 1.1792e+00, 1.1146e+00,
60  $ 1.0481e+00, 1.0053e+00, 9.9280e-01, 9.7379e-01, 9.4650e-01,
61  $ 9.1358e-01, 8.7349e-01, 8.4224e-01, 8.2223e-01, 8.3581e-01,
62  $ 8.9392e-01, 9.2164e-01, 9.0738e-01, 8.8999e-01, 8.6809e-01,
63  $ 8.8927e-01, 9.7499e-01, 1.0023e+00, 9.3448e-01, 8.7854e-01,
64  $ 8.4377e-01, 8.0795e-01, 7.7009e-01, 7.2974e-01, 6.8381e-01,
65  $ 6.4641e-01, 6.2985e-01, 6.1235e-01, 5.9223e-01, 5.7003e-01,
66  $ 5.4048e-01, 5.2079e-01, 5.4309e-01, 5.7505e-01, 6.6186e-01,
67  $ 7.3526e-01, 7.0040e-01, 6.6732e-01, 6.5772e-01, 6.4899e-01/
68 
69  DATA (o3cf(i),i=201,300) /
70  $ 6.8325e-01, 7.1749e-01, 6.5860e-01, 5.9784e-01, 5.6038e-01,
71  $ 5.2466e-01, 4.9519e-01, 4.6664e-01, 4.3298e-01, 3.9818e-01,
72  $ 3.7982e-01, 3.6666e-01, 3.6404e-01, 3.6595e-01, 3.6505e-01,
73  $ 3.6249e-01, 3.6602e-01, 3.7416e-01, 4.1149e-01, 4.7797e-01,
74  $ 5.2359e-01, 5.4156e-01, 5.4253e-01, 5.1192e-01, 4.9219e-01,
75  $ 5.0182e-01, 5.0977e-01, 5.1060e-01, 5.0589e-01, 4.5629e-01,
76  $ 4.0696e-01, 3.6674e-01, 3.2651e-01, 2.9719e-01, 2.6856e-01,
77  $ 2.4827e-01, 2.2945e-01, 2.1621e-01, 2.0484e-01, 2.0786e-01,
78  $ 2.1828e-01, 2.3103e-01, 2.4560e-01, 2.5340e-01, 2.5325e-01,
79  $ 2.6260e-01, 2.8960e-01, 3.2436e-01, 3.8243e-01, 4.2791e-01,
80  $ 3.9614e-01, 3.6456e-01, 3.4209e-01, 3.1963e-01, 3.2263e-01,
81  $ 3.2815e-01, 3.0935e-01, 2.8409e-01, 2.5726e-01, 2.2964e-01,
82  $ 2.0622e-01, 1.8621e-01, 1.7055e-01, 1.6088e-01, 1.5126e-01,
83  $ 1.4180e-01, 1.3323e-01, 1.2938e-01, 1.2610e-01, 1.4121e-01,
84  $ 1.5634e-01, 1.7419e-01, 1.9238e-01, 1.9247e-01, 1.8652e-01,
85  $ 1.8693e-01, 1.9140e-01, 2.1307e-01, 2.5490e-01, 2.8515e-01,
86  $ 2.8963e-01, 2.8832e-01, 2.5669e-01, 2.2513e-01, 2.0120e-01,
87  $ 1.7728e-01, 1.5741e-01, 1.3826e-01, 1.2285e-01, 1.0912e-01,
88  $ 9.8777e-02, 9.1440e-02, 8.5110e-02, 8.0562e-02, 7.6906e-02,
89  $ 7.7044e-02, 7.7170e-02, 7.6757e-02, 7.6345e-02, 7.9897e-02/
90 
91  DATA (o3cf(i),i=301,400) /
92  $ 8.4147e-02, 1.0020e-01, 1.2208e-01, 1.3729e-01, 1.4555e-01,
93  $ 1.4943e-01, 1.4357e-01, 1.3880e-01, 1.4201e-01, 1.4522e-01,
94  $ 1.6309e-01, 1.8206e-01, 1.7688e-01, 1.6322e-01, 1.4641e-01,
95  $ 1.2702e-01, 1.1017e-01, 9.7990e-02, 8.6361e-02, 7.7810e-02,
96  $ 6.9257e-02, 6.1814e-02, 5.4426e-02, 5.0130e-02, 4.6919e-02,
97  $ 4.5482e-02, 4.5616e-02, 4.6734e-02, 4.9945e-02, 5.2861e-02,
98  $ 5.3395e-02, 5.3928e-02, 5.8389e-02, 6.3333e-02, 7.4125e-02,
99  $ 8.7796e-02, 1.0161e-01, 1.1562e-01, 1.2461e-01, 1.1579e-01,
100  $ 1.0697e-01, 9.5338e-02, 8.3675e-02, 7.4649e-02, 6.6500e-02,
101  $ 5.9972e-02, 5.4944e-02, 4.9956e-02, 4.5078e-02, 4.0206e-02,
102  $ 3.5499e-02, 3.0793e-02, 2.7941e-02, 2.5583e-02, 2.4307e-02,
103  $ 2.3916e-02, 2.3370e-02, 2.2463e-02, 2.1576e-02, 2.1187e-02,
104  $ 2.0799e-02, 2.5190e-02, 3.0927e-02, 3.7067e-02, 4.3560e-02,
105  $ 4.7787e-02, 4.5566e-02, 4.3345e-02, 4.4515e-02, 4.5685e-02,
106  $ 5.6606e-02, 7.1127e-02, 8.0056e-02, 8.2416e-02, 8.2701e-02,
107  $ 7.3548e-02, 6.4393e-02, 5.6579e-02, 4.8912e-02, 4.3035e-02,
108  $ 3.8252e-02, 3.3394e-02, 2.8394e-02, 2.3495e-02, 2.0555e-02,
109  $ 1.7615e-02, 1.6619e-02, 1.6236e-02, 1.5674e-02, 1.4912e-02,
110  $ 1.4279e-02, 1.4279e-02, 1.4279e-02, 1.5163e-02, 1.6180e-02,
111  $ 1.6834e-02, 1.7213e-02, 1.8220e-02, 2.1008e-02, 2.3797e-02/
112 
113  DATA (o3cf(i),i=401,500) /
114  $ 3.2647e-02, 4.1818e-02, 4.3488e-02, 4.0945e-02, 3.8035e-02,
115  $ 3.4341e-02, 3.0654e-02, 2.7632e-02, 2.4609e-02, 2.1840e-02,
116  $ 1.9190e-02, 1.6817e-02, 1.4935e-02, 1.3069e-02, 1.1691e-02,
117  $ 1.0314e-02, 9.5501e-03, 9.0494e-03, 8.6880e-03, 8.5633e-03,
118  $ 8.4312e-03, 8.0575e-03, 7.6838e-03, 7.3114e-03, 6.9393e-03,
119  $ 6.7361e-03, 6.8606e-03, 6.9851e-03, 8.3442e-03, 9.7030e-03,
120  $ 1.1066e-02, 1.2433e-02, 1.3152e-02, 1.2286e-02, 1.1420e-02,
121  $ 1.2165e-02, 1.3031e-02, 1.6514e-02, 2.1970e-02, 2.6541e-02,
122  $ 2.7780e-02, 2.9018e-02, 2.7656e-02, 2.5799e-02, 2.3420e-02,
123  $ 2.0456e-02, 1.7553e-02, 1.5221e-02, 1.2888e-02, 1.1440e-02,
124  $ 1.0337e-02, 9.3589e-03, 8.6240e-03, 7.8887e-03, 7.6243e-03,
125  $ 7.3794e-03, 7.0644e-03, 6.6986e-03, 6.2870e-03, 5.6803e-03,
126  $ 5.0733e-03, 4.2725e-03, 3.4198e-03, 2.9569e-03, 3.0782e-03,
127  $ 3.1994e-03, 3.0787e-03, 2.9579e-03, 3.0515e-03, 3.2941e-03,
128  $ 3.7892e-03, 5.3604e-03, 6.9310e-03, 7.6524e-03, 8.1342e-03,
129  $ 8.0939e-03, 7.1267e-03, 6.1595e-03, 5.3107e-03, 4.4685e-03,
130  $ 3.8175e-03, 3.3365e-03, 2.8688e-03, 2.5097e-03, 2.1506e-03,
131  $ 1.9542e-03, 1.8345e-03, 1.6848e-03, 1.4455e-03, 1.2061e-03,
132  $ 1.0653e-03, 9.4608e-04, 9.6279e-04, 1.2013e-03, 1.4396e-03,
133  $ 1.5659e-03, 1.6851e-03, 1.6853e-03, 1.5666e-03, 1.4539e-03/
134 
135  DATA (o3cf(i),i=501,600) /
136  $ 1.4539e-03, 1.4539e-03, 1.3827e-03, 1.2640e-03, 1.1630e-03,
137  $ 1.1630e-03, 1.1630e-03, 1.1630e-03, 1.1630e-03, 1.2172e-03,
138  $ 1.4527e-03, 1.6882e-03, 2.9140e-03, 4.4518e-03, 5.7409e-03,
139  $ 6.4485e-03, 7.1563e-03, 6.5940e-03, 5.7715e-03, 5.0317e-03,
140  $ 4.4448e-03, 3.8577e-03, 3.2711e-03, 2.6843e-03, 2.2808e-03,
141  $ 2.1635e-03, 2.0461e-03, 1.8230e-03, 1.5894e-03, 1.4049e-03,
142  $ 1.2880e-03, 1.1712e-03, 9.4662e-04, 7.1396e-04, 5.8138e-04,
143  $ 5.8138e-04, 5.8138e-04, 5.8138e-04, 5.8138e-04, 5.8138e-04,
144  $ 5.8138e-04, 5.8138e-04, 5.8138e-04, 5.8138e-04, 5.8138e-04,
145  $ 5.8138e-04, 5.8138e-04, 5.8138e-04, 5.8138e-04, 6.2523e-04,
146  $ 7.4065e-04, 8.5603e-04, 8.7219e-04, 8.7219e-04, 8.7219e-04,
147  $ 8.7219e-04, 8.7219e-04, 8.7219e-04, 8.7219e-04, 8.7219e-04,
148  $ 8.7219e-04, 8.7219e-04, 7.8631e-04, 6.7183e-04, 6.2949e-04,
149  $ 8.5846e-04, 1.0875e-03, 1.3158e-03, 1.5440e-03, 1.7310e-03,
150  $ 1.6169e-03, 1.5029e-03, 1.3889e-03, 1.2748e-03, 1.1630e-03,
151  $ 1.1630e-03, 1.1630e-03, 1.1630e-03, 1.1630e-03, 1.1630e-03,
152  $ 1.0608e-03, 9.4719e-04, 8.7219e-04, 8.7219e-04, 8.7219e-04,
153  $ 7.8506e-04, 6.7189e-04, 5.8138e-04, 5.8138e-04, 5.8138e-04,
154  $ 5.8138e-04, 5.8138e-04, 5.9262e-04, 8.1723e-04, 1.0418e-03,
155  $ 1.1630e-03, 1.1630e-03, 1.1630e-03, 1.1630e-03, 1.1630e-03/
156 
157  DATA (o3cf(i),i=601,655) /
158  $ 1.1306e-03, 1.0187e-03, 9.0686e-04, 8.7219e-04, 8.7219e-04,
159  $ 8.7219e-04, 8.7219e-04, 8.7219e-04, 8.7219e-04, 8.7219e-04,
160  $ 8.7219e-04, 7.7301e-04, 6.6160e-04, 5.8138e-04, 5.8138e-04,
161  $ 5.8138e-04, 5.8138e-04, 5.8138e-04, 5.8138e-04, 5.8138e-04,
162  $ 5.8138e-04, 5.8138e-04, 5.8138e-04, 5.8138e-04, 4.9187e-04,
163  $ 3.8135e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04,
164  $ 2.9076e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04,
165  $ 2.9076e-04, 2.9076e-04, 2.2052e-04, 1.1078e-04, 1.0791e-06,
166  $ 1.0866e-04, 2.1836e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04,
167  $ 3.6534e-04, 4.7499e-04, 5.7810e-04, 4.6927e-04, 3.6044e-04,
168  $ 2.9076e-04, 2.9076e-04, 2.9076e-04, 2.1452e-04, 1.0561e-04/
169 
170  DATA (o3cf(i),i=656,1255) /600*0.0/
171 
172  DATA (o3cf(i),i=1256,1300) /
173  $ 0.0000e+00, 5.4604e-05, 1.3494e-04, 2.1528e-04, 2.9076e-04,
174  $ 2.9076e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04,
175  $ 2.9076e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04,
176  $ 2.9076e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04,
177  $ 2.9076e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04,
178  $ 2.9076e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04, 2.9076e-04,
179  $ 3.3114e-04, 4.1034e-04, 4.8955e-04, 5.6870e-04, 5.8138e-04,
180  $ 5.8138e-04, 5.8138e-04, 5.8138e-04, 5.8138e-04, 5.8138e-04,
181  $ 5.8138e-04, 5.8138e-04, 5.8138e-04, 5.8138e-04, 5.8138e-04/
182 
183  DATA (o3cf(i),i=1301,1400) /
184  $ 5.8138e-04, 5.8138e-04, 5.8138e-04, 5.8688e-04, 6.6549e-04,
185  $ 7.4411e-04, 8.2268e-04, 8.7219e-04, 8.7219e-04, 8.7219e-04,
186  $ 8.7219e-04, 8.7219e-04, 8.7219e-04, 8.7219e-04, 8.7219e-04,
187  $ 8.7219e-04, 8.7219e-04, 8.7219e-04, 8.7219e-04, 8.7219e-04,
188  $ 8.7219e-04, 8.7219e-04, 9.0953e-04, 9.8729e-04, 1.0651e-03,
189  $ 1.1428e-03, 1.1630e-03, 1.1630e-03, 1.1630e-03, 1.1630e-03,
190  $ 1.1630e-03, 1.1630e-03, 1.1630e-03, 1.1630e-03, 1.1630e-03,
191  $ 1.1630e-03, 1.1630e-03, 1.1630e-03, 1.1630e-03, 1.1630e-03,
192  $ 1.1630e-03, 1.2186e-03, 1.2957e-03, 1.3729e-03, 1.4501e-03,
193  $ 1.4539e-03, 1.4539e-03, 1.4539e-03, 1.4539e-03, 1.4539e-03,
194  $ 1.4539e-03, 1.4539e-03, 1.4539e-03, 1.4539e-03, 1.4539e-03,
195  $ 1.4539e-03, 1.4539e-03, 1.4539e-03, 1.4539e-03, 1.4539e-03,
196  $ 1.5151e-03, 1.5916e-03, 1.6681e-03, 1.7446e-03, 1.7446e-03,
197  $ 1.7446e-03, 1.7446e-03, 1.7446e-03, 1.7446e-03, 1.7446e-03,
198  $ 1.7446e-03, 1.7446e-03, 1.7446e-03, 1.7446e-03, 1.7446e-03,
199  $ 1.7446e-03, 1.7446e-03, 1.7446e-03, 1.7446e-03, 1.7992e-03,
200  $ 1.8750e-03, 1.9507e-03, 2.0265e-03, 2.0356e-03, 2.0356e-03,
201  $ 2.0356e-03, 2.0356e-03, 2.0356e-03, 2.0356e-03, 2.0356e-03,
202  $ 2.0356e-03, 2.0356e-03, 2.0356e-03, 2.0356e-03, 2.0356e-03,
203  $ 2.0356e-03, 2.0356e-03, 2.0356e-03, 2.0702e-03, 2.1454e-03/
204 
205  DATA (o3cf(i),i=1401,1500) /
206  $ 2.2205e-03, 2.2957e-03, 2.3265e-03, 2.3265e-03, 2.3265e-03,
207  $ 2.3265e-03, 2.3265e-03, 2.3265e-03, 2.3265e-03, 2.3265e-03,
208  $ 2.3265e-03, 2.3265e-03, 2.3265e-03, 2.3265e-03, 2.3265e-03,
209  $ 2.3265e-03, 2.3265e-03, 2.3295e-03, 2.4039e-03, 2.4783e-03,
210  $ 2.5527e-03, 2.6174e-03, 2.6174e-03, 2.6174e-03, 2.6174e-03,
211  $ 2.6174e-03, 2.6174e-03, 2.6174e-03, 2.6174e-03, 2.6174e-03,
212  $ 2.6174e-03, 2.6174e-03, 2.6174e-03, 2.6174e-03, 2.6174e-03,
213  $ 2.6174e-03, 2.6174e-03, 2.6499e-03, 2.7237e-03, 2.7976e-03,
214  $ 2.8715e-03, 2.9084e-03, 2.9084e-03, 2.9084e-03, 2.9084e-03,
215  $ 2.9084e-03, 2.9084e-03, 2.9084e-03, 2.9084e-03, 2.9084e-03,
216  $ 2.9084e-03, 2.9084e-03, 2.9084e-03, 2.9084e-03, 2.9084e-03,
217  $ 2.9084e-03, 2.9084e-03, 2.9084e-03, 2.9084e-03, 2.9084e-03,
218  $ 2.9084e-03, 2.9595e-03, 3.0324e-03, 3.1054e-03, 3.1783e-03,
219  $ 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03,
220  $ 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03,
221  $ 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03,
222  $ 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03,
223  $ 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03,
224  $ 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03,
225  $ 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03/
226 
227  DATA (o3cf(i),i=1501,1600) /
228  $ 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03,
229  $ 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03,
230  $ 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03, 3.1994e-03,
231  $ 3.1994e-03, 3.1994e-03, 3.2201e-03, 3.2912e-03, 3.3624e-03,
232  $ 3.4336e-03, 3.4905e-03, 3.4905e-03, 3.4905e-03, 3.4905e-03,
233  $ 3.4905e-03, 3.4905e-03, 3.4905e-03, 3.4905e-03, 3.4905e-03,
234  $ 3.4905e-03, 3.4905e-03, 3.4905e-03, 3.4905e-03, 3.4905e-03,
235  $ 3.4905e-03, 3.4905e-03, 3.4905e-03, 3.5463e-03, 3.6169e-03,
236  $ 3.6875e-03, 3.7582e-03, 3.7815e-03, 3.7815e-03, 3.7815e-03,
237  $ 3.7815e-03, 3.8201e-03, 3.8905e-03, 3.9608e-03, 4.0311e-03,
238  $ 4.0726e-03, 4.0726e-03, 4.0726e-03, 4.0726e-03, 4.0915e-03,
239  $ 4.1615e-03, 4.2315e-03, 4.3015e-03, 4.3715e-03, 4.4417e-03,
240  $ 4.5118e-03, 4.5820e-03, 4.6522e-03, 4.7220e-03, 4.7918e-03,
241  $ 4.8616e-03, 4.9314e-03, 5.0012e-03, 5.0711e-03, 5.1409e-03,
242  $ 5.2107e-03, 5.2373e-03, 5.2373e-03, 5.2373e-03, 5.2373e-03,
243  $ 5.2672e-03, 5.3369e-03, 5.4066e-03, 5.4763e-03, 5.5459e-03,
244  $ 5.6152e-03, 5.6845e-03, 5.7539e-03, 5.8232e-03, 5.8924e-03,
245  $ 5.9616e-03, 6.0308e-03, 6.1000e-03, 6.1692e-03, 6.2384e-03,
246  $ 6.3076e-03, 6.3768e-03, 6.4459e-03, 6.5150e-03, 6.5840e-03,
247  $ 6.6531e-03, 6.6938e-03, 6.6938e-03, 6.6938e-03, 6.6938e-03/
248 
249  DATA (o3cf(i),i=1601,1700) /
250  $ 6.7062e-03, 6.7751e-03, 6.8439e-03, 6.9128e-03, 6.9816e-03,
251  $ 7.0504e-03, 7.1191e-03, 7.1879e-03, 7.2566e-03, 7.3251e-03,
252  $ 7.3936e-03, 7.4620e-03, 7.5304e-03, 7.5988e-03, 7.6672e-03,
253  $ 7.7356e-03, 7.8040e-03, 7.8724e-03, 7.9408e-03, 8.0092e-03,
254  $ 8.0777e-03, 8.1462e-03, 8.1509e-03, 8.1509e-03, 8.1509e-03,
255  $ 8.1509e-03, 8.1952e-03, 8.2633e-03, 8.3315e-03, 8.3996e-03,
256  $ 8.4174e-03, 8.3494e-03, 8.2814e-03, 8.2135e-03, 8.1509e-03,
257  $ 8.1509e-03, 8.1509e-03, 8.1509e-03, 8.1509e-03, 8.0981e-03,
258  $ 8.0305e-03, 7.9629e-03, 7.8952e-03, 7.8276e-03, 7.7600e-03,
259  $ 7.6924e-03, 7.6248e-03, 7.5572e-03, 7.4898e-03, 7.4223e-03,
260  $ 7.3548e-03, 7.2873e-03, 7.2200e-03, 7.1527e-03, 7.0853e-03,
261  $ 7.0181e-03, 6.9508e-03, 6.8837e-03, 6.8166e-03, 6.7495e-03,
262  $ 6.6938e-03, 6.6938e-03, 6.6938e-03, 6.6938e-03, 6.6938e-03,
263  $ 6.6389e-03, 6.5719e-03, 6.5049e-03, 6.4379e-03, 6.3711e-03,
264  $ 6.3044e-03, 6.2377e-03, 6.1711e-03, 6.1110e-03, 6.1110e-03,
265  $ 6.1110e-03, 6.1110e-03, 6.1110e-03, 6.1596e-03, 6.2261e-03,
266  $ 6.2926e-03, 6.3592e-03, 6.4257e-03, 6.4920e-03, 6.5584e-03,
267  $ 6.6248e-03, 6.6912e-03, 6.6938e-03, 6.6938e-03, 6.6938e-03,
268  $ 6.6938e-03, 6.7315e-03, 6.7975e-03, 6.8636e-03, 6.9296e-03,
269  $ 6.9851e-03, 6.9851e-03, 6.9851e-03, 6.9851e-03, 6.9851e-03/
270 
271  DATA (o3cf(i),i=1701,1800) /
272  $ 7.0345e-03, 7.1005e-03, 7.1664e-03, 7.2323e-03, 7.2765e-03,
273  $ 7.2765e-03, 7.2765e-03, 7.2765e-03, 7.2765e-03, 7.3356e-03,
274  $ 7.4013e-03, 7.4669e-03, 7.5326e-03, 7.5680e-03, 7.5680e-03,
275  $ 7.5680e-03, 7.5680e-03, 7.5707e-03, 7.7014e-03, 7.8320e-03,
276  $ 7.9627e-03, 8.0934e-03, 8.1875e-03, 8.2529e-03, 8.3183e-03,
277  $ 8.3837e-03, 8.4556e-03, 8.5860e-03, 8.7164e-03, 8.8469e-03,
278  $ 8.9773e-03, 9.0666e-03, 9.1317e-03, 9.1968e-03, 9.2619e-03,
279  $ 9.3270e-03, 9.3919e-03, 9.4569e-03, 9.5219e-03, 9.5869e-03,
280  $ 9.6947e-03, 9.8246e-03, 9.9545e-03, 1.0084e-02, 1.0203e-02,
281  $ 1.0268e-02, 1.0333e-02, 1.0397e-02, 1.0462e-02, 1.0527e-02,
282  $ 1.0591e-02, 1.0656e-02, 1.0721e-02, 1.0795e-02, 1.0924e-02,
283  $ 1.1053e-02, 1.1182e-02, 1.1312e-02, 1.1400e-02, 1.1464e-02,
284  $ 1.1529e-02, 1.1593e-02, 1.1664e-02, 1.1793e-02, 1.1921e-02,
285  $ 1.2050e-02, 1.2178e-02, 1.2271e-02, 1.2335e-02, 1.2399e-02,
286  $ 1.2463e-02, 1.2528e-02, 1.2656e-02, 1.2784e-02, 1.2912e-02,
287  $ 1.3040e-02, 1.3168e-02, 1.3296e-02, 1.3425e-02, 1.3553e-02,
288  $ 1.3681e-02, 1.3752e-02, 1.3815e-02, 1.3879e-02, 1.3943e-02,
289  $ 1.4027e-02, 1.4154e-02, 1.4282e-02, 1.4409e-02, 1.4537e-02,
290  $ 1.4664e-02, 1.4792e-02, 1.4919e-02, 1.5046e-02, 1.5174e-02,
291  $ 1.5301e-02, 1.5428e-02, 1.5555e-02, 1.5682e-02, 1.5774e-02/
292 
293  DATA (o3cf(i),i=1801,1900) /
294  $ 1.5838e-02, 1.5901e-02, 1.5965e-02, 1.6028e-02, 1.6150e-02,
295  $ 1.6277e-02, 1.6403e-02, 1.6530e-02, 1.6637e-02, 1.6700e-02,
296  $ 1.6763e-02, 1.6826e-02, 1.6889e-02, 1.6952e-02, 1.7015e-02,
297  $ 1.7079e-02, 1.7142e-02, 1.7202e-02, 1.7202e-02, 1.7202e-02,
298  $ 1.7202e-02, 1.7202e-02, 1.7227e-02, 1.7290e-02, 1.7353e-02,
299  $ 1.7416e-02, 1.7479e-02, 1.7541e-02, 1.7604e-02, 1.7667e-02,
300  $ 1.7729e-02, 1.7792e-02, 1.7855e-02, 1.7917e-02, 1.7980e-02,
301  $ 1.8042e-02, 1.8105e-02, 1.8167e-02, 1.8230e-02, 1.8292e-02,
302  $ 1.8355e-02, 1.8417e-02, 1.8480e-02, 1.8542e-02, 1.8605e-02,
303  $ 1.8667e-02, 1.8729e-02, 1.8791e-02, 1.8854e-02, 1.8916e-02,
304  $ 1.8957e-02, 1.8957e-02, 1.8957e-02, 1.8957e-02, 1.8957e-02,
305  $ 1.8957e-02, 1.8957e-02, 1.8957e-02, 1.8957e-02, 1.8957e-02,
306  $ 1.8957e-02, 1.8957e-02, 1.8957e-02, 1.8957e-02, 1.8945e-02,
307  $ 1.8884e-02, 1.8822e-02, 1.8760e-02, 1.8698e-02, 1.8664e-02,
308  $ 1.8664e-02, 1.8664e-02, 1.8664e-02, 1.8664e-02, 1.8664e-02,
309  $ 1.8664e-02, 1.8664e-02, 1.8664e-02, 1.8664e-02, 1.8606e-02,
310  $ 1.8545e-02, 1.8483e-02, 1.8422e-02, 1.8372e-02, 1.8372e-02,
311  $ 1.8372e-02, 1.8372e-02, 1.8372e-02, 1.8347e-02, 1.8286e-02,
312  $ 1.8224e-02, 1.8163e-02, 1.8102e-02, 1.8079e-02, 1.8079e-02,
313  $ 1.8079e-02, 1.8079e-02, 1.8079e-02, 1.8079e-02, 1.8079e-02/
314 
315  DATA (o3cf(i),i=1901,2000) /
316  $ 1.8079e-02, 1.8079e-02, 1.8082e-02, 1.8143e-02, 1.8203e-02,
317  $ 1.8264e-02, 1.8325e-02, 1.8386e-02, 1.8446e-02, 1.8507e-02,
318  $ 1.8568e-02, 1.8629e-02, 1.8689e-02, 1.8750e-02, 1.8810e-02,
319  $ 1.8871e-02, 1.8932e-02, 1.8992e-02, 1.9053e-02, 1.9113e-02,
320  $ 1.9173e-02, 1.9234e-02, 1.9294e-02, 1.9355e-02, 1.9415e-02,
321  $ 1.9475e-02, 1.9536e-02, 1.9596e-02, 1.9656e-02, 1.9716e-02,
322  $ 1.9777e-02, 1.9837e-02, 1.9897e-02, 1.9957e-02, 2.0017e-02,
323  $ 2.0078e-02, 2.0138e-02, 2.0198e-02, 2.0258e-02, 2.0318e-02,
324  $ 2.0378e-02, 2.0438e-02, 2.0498e-02, 2.0558e-02, 2.0617e-02,
325  $ 2.0677e-02, 2.0737e-02, 2.0797e-02, 2.0857e-02, 2.0916e-02,
326  $ 2.0976e-02, 2.1066e-02, 2.1185e-02, 2.1305e-02, 2.1424e-02,
327  $ 2.1544e-02, 2.1699e-02, 2.1877e-02, 2.2056e-02, 2.2235e-02,
328  $ 2.2413e-02, 2.2592e-02, 2.2771e-02, 2.2949e-02, 2.3128e-02,
329  $ 2.3307e-02, 2.3485e-02, 2.3663e-02, 2.3841e-02, 2.4019e-02,
330  $ 2.4197e-02, 2.4375e-02, 2.4553e-02, 2.4731e-02, 2.4909e-02,
331  $ 2.5087e-02, 2.5264e-02, 2.5442e-02, 2.5619e-02, 2.5796e-02,
332  $ 2.5974e-02, 2.6151e-02, 2.6329e-02, 2.6506e-02, 2.6683e-02,
333  $ 2.6861e-02, 2.7038e-02, 2.7214e-02, 2.7391e-02, 2.7568e-02,
334  $ 2.7745e-02, 2.7921e-02, 2.8098e-02, 2.8274e-02, 2.8451e-02,
335  $ 2.8627e-02, 2.8745e-02, 2.8863e-02, 2.8981e-02, 2.9098e-02/
336 
337  DATA (o3cf(i),i=2001,2100) /
338  $ 2.9216e-02, 2.9392e-02, 2.9568e-02, 2.9744e-02, 2.9919e-02,
339  $ 3.0095e-02, 3.0271e-02, 3.0447e-02, 3.0623e-02, 3.0799e-02,
340  $ 3.0975e-02, 3.1150e-02, 3.1325e-02, 3.1501e-02, 3.1676e-02,
341  $ 3.1851e-02, 3.2027e-02, 3.2202e-02, 3.2377e-02, 3.2553e-02,
342  $ 3.2728e-02, 3.2903e-02, 3.3077e-02, 3.3252e-02, 3.3427e-02,
343  $ 3.3601e-02, 3.3776e-02, 3.3951e-02, 3.4125e-02, 3.4300e-02,
344  $ 3.4475e-02, 3.4649e-02, 3.4823e-02, 3.4997e-02, 3.5171e-02,
345  $ 3.5345e-02, 3.5519e-02, 3.5694e-02, 3.5868e-02, 3.6042e-02,
346  $ 3.6216e-02, 3.6390e-02, 3.6563e-02, 3.6737e-02, 3.6911e-02,
347  $ 3.7084e-02, 3.7257e-02, 3.7431e-02, 3.7605e-02, 3.7778e-02,
348  $ 3.7952e-02, 3.8067e-02, 3.8125e-02, 3.8183e-02, 3.8240e-02,
349  $ 3.8298e-02, 3.8333e-02, 3.8333e-02, 3.8333e-02, 3.8333e-02,
350  $ 3.8333e-02, 3.8333e-02, 3.8333e-02, 3.8333e-02, 3.8333e-02,
351  $ 3.8333e-02, 3.8333e-02, 3.8333e-02, 3.8333e-02, 3.8333e-02,
352  $ 3.8333e-02, 3.8333e-02, 3.8333e-02, 3.8333e-02, 3.8333e-02,
353  $ 3.8333e-02, 3.8333e-02, 3.8333e-02, 3.8333e-02, 3.8333e-02,
354  $ 3.8333e-02, 3.8333e-02, 3.8373e-02, 3.8430e-02, 3.8487e-02,
355  $ 3.8544e-02, 3.8601e-02, 3.8628e-02, 3.8628e-02, 3.8628e-02,
356  $ 3.8628e-02, 3.8628e-02, 3.8628e-02, 3.8628e-02, 3.8628e-02,
357  $ 3.8628e-02, 3.8628e-02, 3.8628e-02, 3.8628e-02, 3.8628e-02/
358 
359  DATA (o3cf(i),i=2101,2200) /
360  $ 3.8628e-02, 3.8628e-02, 3.8628e-02, 3.8682e-02, 3.8738e-02,
361  $ 3.8795e-02, 3.8851e-02, 3.8908e-02, 3.8922e-02, 3.8922e-02,
362  $ 3.8922e-02, 3.8922e-02, 3.8922e-02, 3.8952e-02, 3.9008e-02,
363  $ 3.9065e-02, 3.9121e-02, 3.9177e-02, 3.9233e-02, 3.9289e-02,
364  $ 3.9346e-02, 3.9402e-02, 3.9458e-02, 3.9511e-02, 3.9511e-02,
365  $ 3.9511e-02, 3.9511e-02, 3.9511e-02, 3.9511e-02, 3.9556e-02,
366  $ 3.9612e-02, 3.9668e-02, 3.9724e-02, 3.9780e-02, 3.9836e-02,
367  $ 3.9892e-02, 3.9947e-02, 4.0003e-02, 4.0059e-02, 4.0101e-02,
368  $ 4.0101e-02, 4.0101e-02, 4.0101e-02, 4.0101e-02, 4.0101e-02,
369  $ 4.0155e-02, 4.0211e-02, 4.0266e-02, 4.0322e-02, 4.0377e-02,
370  $ 4.0396e-02, 4.0396e-02, 4.0396e-02, 4.0396e-02, 4.0396e-02,
371  $ 4.0456e-02, 4.0622e-02, 4.0788e-02, 4.0954e-02, 4.1121e-02,
372  $ 4.1285e-02, 4.1395e-02, 4.1506e-02, 4.1616e-02, 4.1727e-02,
373  $ 4.1838e-02, 4.1987e-02, 4.2153e-02, 4.2319e-02, 4.2485e-02,
374  $ 4.2650e-02, 4.2796e-02, 4.2906e-02, 4.3016e-02, 4.3126e-02,
375  $ 4.3237e-02, 4.3347e-02, 4.3457e-02, 4.3567e-02, 4.3677e-02,
376  $ 4.3787e-02, 4.3897e-02, 4.4042e-02, 4.4207e-02, 4.4372e-02,
377  $ 4.4537e-02, 4.4702e-02, 4.4851e-02, 4.4961e-02, 4.5070e-02,
378  $ 4.5180e-02, 4.5289e-02, 4.5399e-02, 4.5557e-02, 4.5721e-02,
379  $ 4.5885e-02, 4.6049e-02, 4.6213e-02, 4.6351e-02, 4.6460e-02/
380 
381  DATA (o3cf(i),i=2201,2300) /
382  $ 4.6569e-02, 4.6679e-02, 4.6788e-02, 4.6898e-02, 4.7007e-02,
383  $ 4.7116e-02, 4.7225e-02, 4.7334e-02, 4.7443e-02, 4.7588e-02,
384  $ 4.7751e-02, 4.7915e-02, 4.8078e-02, 4.8241e-02, 4.8404e-02,
385  $ 4.8567e-02, 4.8730e-02, 4.8893e-02, 4.9055e-02, 4.9218e-02,
386  $ 4.9381e-02, 4.9543e-02, 4.9706e-02, 4.9869e-02, 5.0032e-02,
387  $ 5.0176e-02, 5.0284e-02, 5.0392e-02, 5.0501e-02, 5.0609e-02,
388  $ 5.0717e-02, 5.0872e-02, 5.1034e-02, 5.1197e-02, 5.1359e-02,
389  $ 5.1521e-02, 5.1683e-02, 5.1845e-02, 5.2007e-02, 5.2168e-02,
390  $ 5.2330e-02, 5.2492e-02, 5.2604e-02, 5.2712e-02, 5.2820e-02,
391  $ 5.2927e-02, 5.3035e-02, 5.3164e-02, 5.3326e-02, 5.3487e-02,
392  $ 5.3648e-02, 5.3809e-02, 5.3971e-02, 5.4083e-02, 5.4191e-02,
393  $ 5.4298e-02, 5.4405e-02, 5.4512e-02, 5.4640e-02, 5.4800e-02,
394  $ 5.4961e-02, 5.5121e-02, 5.5282e-02, 5.5442e-02, 5.5647e-02,
395  $ 5.5861e-02, 5.6075e-02, 5.6289e-02, 5.6503e-02, 5.6701e-02,
396  $ 5.6861e-02, 5.7021e-02, 5.7181e-02, 5.7341e-02, 5.7501e-02,
397  $ 5.7661e-02, 5.7820e-02, 5.7980e-02, 5.8140e-02, 5.8300e-02,
398  $ 5.8468e-02, 5.8681e-02, 5.8894e-02, 5.9106e-02, 5.9319e-02,
399  $ 5.9531e-02, 5.9712e-02, 5.9871e-02, 6.0031e-02, 6.0190e-02,
400  $ 6.0348e-02, 6.0508e-02, 6.0719e-02, 6.0931e-02, 6.1143e-02,
401  $ 6.1355e-02, 6.1567e-02, 6.1759e-02, 6.1917e-02, 6.2076e-02/
402 
403  DATA (o3cf(i),i=2301,2400) /
404  $ 6.2234e-02, 6.2393e-02, 6.2551e-02, 6.2750e-02, 6.2961e-02,
405  $ 6.3172e-02, 6.3383e-02, 6.3595e-02, 6.3798e-02, 6.3956e-02,
406  $ 6.4114e-02, 6.4272e-02, 6.4430e-02, 6.4589e-02, 6.4746e-02,
407  $ 6.4904e-02, 6.5062e-02, 6.5220e-02, 6.5378e-02, 6.5536e-02,
408  $ 6.5649e-02, 6.5754e-02, 6.5859e-02, 6.5964e-02, 6.6069e-02,
409  $ 6.6174e-02, 6.6279e-02, 6.6383e-02, 6.6488e-02, 6.6593e-02,
410  $ 6.6698e-02, 6.6776e-02, 6.6828e-02, 6.6880e-02, 6.6932e-02,
411  $ 6.6985e-02, 6.7037e-02, 6.7132e-02, 6.7236e-02, 6.7341e-02,
412  $ 6.7445e-02, 6.7550e-02, 6.7654e-02, 6.7758e-02, 6.7862e-02,
413  $ 6.7966e-02, 6.8071e-02, 6.8175e-02, 6.8258e-02, 6.8310e-02,
414  $ 6.8362e-02, 6.8414e-02, 6.8466e-02, 6.8517e-02, 6.8605e-02,
415  $ 6.8708e-02, 6.8812e-02, 6.8916e-02, 6.9019e-02, 6.9123e-02,
416  $ 6.9227e-02, 6.9330e-02, 6.9434e-02, 6.9537e-02, 6.9641e-02,
417  $ 6.9735e-02, 6.9786e-02, 6.9838e-02, 6.9890e-02, 6.9941e-02,
418  $ 6.9993e-02, 7.0067e-02, 7.0170e-02, 7.0274e-02, 7.0377e-02,
419  $ 7.0480e-02, 7.0583e-02, 7.0686e-02, 7.0789e-02, 7.0892e-02,
420  $ 7.0995e-02, 7.1098e-02, 7.1201e-02, 7.1259e-02, 7.1310e-02,
421  $ 7.1361e-02, 7.1413e-02, 7.1464e-02, 7.1519e-02, 7.1622e-02,
422  $ 7.1724e-02, 7.1827e-02, 7.1929e-02, 7.2032e-02, 7.2135e-02,
423  $ 7.2237e-02, 7.2339e-02, 7.2441e-02, 7.2543e-02, 7.2646e-02/
424 
425  DATA (o3cf(i),i=2401,2500) /
426  $ 7.2726e-02, 7.2777e-02, 7.2828e-02, 7.2879e-02, 7.2930e-02,
427  $ 7.2981e-02, 7.3062e-02, 7.3164e-02, 7.3266e-02, 7.3368e-02,
428  $ 7.3470e-02, 7.3572e-02, 7.3674e-02, 7.3775e-02, 7.3877e-02,
429  $ 7.3979e-02, 7.4081e-02, 7.4183e-02, 7.4239e-02, 7.4290e-02,
430  $ 7.4341e-02, 7.4392e-02, 7.4443e-02, 7.4494e-02, 7.4595e-02,
431  $ 7.4697e-02, 7.4798e-02, 7.4899e-02, 7.5000e-02, 7.5102e-02,
432  $ 7.5203e-02, 7.5304e-02, 7.5405e-02, 7.5506e-02, 7.5607e-02,
433  $ 7.5708e-02, 7.5809e-02, 7.5910e-02, 7.6011e-02, 7.6112e-02,
434  $ 7.6212e-02, 7.6313e-02, 7.6414e-02, 7.6515e-02, 7.6616e-02,
435  $ 7.6716e-02, 7.6817e-02, 7.6937e-02, 7.7088e-02, 7.7239e-02,
436  $ 7.7389e-02, 7.7540e-02, 7.7691e-02, 7.7820e-02, 7.7920e-02,
437  $ 7.8020e-02, 7.8120e-02, 7.8220e-02, 7.8321e-02, 7.8445e-02,
438  $ 7.8595e-02, 7.8745e-02, 7.8896e-02, 7.9046e-02, 7.9197e-02,
439  $ 7.9321e-02, 7.9421e-02, 7.9521e-02, 7.9621e-02, 7.9720e-02,
440  $ 7.9820e-02, 7.9920e-02, 8.0020e-02, 8.0120e-02, 8.0219e-02,
441  $ 8.0319e-02, 8.0419e-02, 8.0546e-02, 8.0695e-02, 8.0844e-02,
442  $ 8.0994e-02, 8.1143e-02, 8.1292e-02, 8.1414e-02, 8.1514e-02,
443  $ 8.1613e-02, 8.1713e-02, 8.1812e-02, 8.1912e-02, 8.2011e-02,
444  $ 8.2110e-02, 8.2209e-02, 8.2308e-02, 8.2407e-02, 8.2506e-02,
445  $ 8.2654e-02, 8.2852e-02, 8.3050e-02, 8.3248e-02, 8.3446e-02/
446 
447  DATA (o3cf(i),i=2501,2600) /
448  $ 8.3644e-02, 8.3820e-02, 8.3968e-02, 8.4116e-02, 8.4264e-02,
449  $ 8.4412e-02, 8.4560e-02, 8.4708e-02, 8.4856e-02, 8.5004e-02,
450  $ 8.5152e-02, 8.5300e-02, 8.5448e-02, 8.5596e-02, 8.5744e-02,
451  $ 8.5892e-02, 8.6039e-02, 8.6187e-02, 8.6335e-02, 8.6483e-02,
452  $ 8.6630e-02, 8.6777e-02, 8.6925e-02, 8.7072e-02, 8.7219e-02,
453  $ 8.7373e-02, 8.7569e-02, 8.7766e-02, 8.7962e-02, 8.8158e-02,
454  $ 8.8354e-02, 8.8548e-02, 8.8695e-02, 8.8842e-02, 8.8989e-02,
455  $ 8.9135e-02, 8.9282e-02, 8.9429e-02, 8.9575e-02, 8.9722e-02,
456  $ 8.9868e-02, 9.0015e-02, 9.0161e-02, 9.0308e-02, 9.0454e-02,
457  $ 9.0600e-02, 9.0747e-02, 9.0893e-02, 9.1039e-02, 9.1186e-02,
458  $ 9.1332e-02, 9.1477e-02, 9.1623e-02, 9.1769e-02, 9.1915e-02,
459  $ 9.2061e-02, 9.2228e-02, 9.2422e-02, 9.2617e-02, 9.2811e-02,
460  $ 9.3005e-02, 9.3199e-02, 9.3381e-02, 9.3527e-02, 9.3672e-02,
461  $ 9.3818e-02, 9.3963e-02, 9.4108e-02, 9.4257e-02, 9.4451e-02,
462  $ 9.4644e-02, 9.4838e-02, 9.5031e-02, 9.5225e-02, 9.5418e-02,
463  $ 9.5570e-02, 9.5715e-02, 9.5860e-02, 9.6005e-02, 9.6149e-02,
464  $ 9.6294e-02, 9.6470e-02, 9.6663e-02, 9.6856e-02, 9.7049e-02,
465  $ 9.7242e-02, 9.7435e-02, 9.7628e-02, 9.7820e-02, 9.8013e-02,
466  $ 9.8205e-02, 9.8398e-02, 9.8590e-02, 9.8775e-02, 9.8919e-02,
467  $ 9.9063e-02, 9.9207e-02, 9.9351e-02, 9.9495e-02, 9.9639e-02/
468 
469  DATA (o3cf(i),i=2601,2700) /
470  $ 9.9826e-02, 1.0002e-01, 1.0021e-01, 1.0040e-01, 1.0059e-01,
471  $ 1.0078e-01, 1.0095e-01, 1.0109e-01, 1.0123e-01, 1.0138e-01,
472  $ 1.0152e-01, 1.0166e-01, 1.0182e-01, 1.0201e-01, 1.0221e-01,
473  $ 1.0240e-01, 1.0259e-01, 1.0278e-01, 1.0297e-01, 1.0311e-01,
474  $ 1.0325e-01, 1.0340e-01, 1.0354e-01, 1.0368e-01, 1.0383e-01,
475  $ 1.0397e-01, 1.0411e-01, 1.0425e-01, 1.0440e-01, 1.0454e-01,
476  $ 1.0468e-01, 1.0484e-01, 1.0503e-01, 1.0522e-01, 1.0541e-01,
477  $ 1.0560e-01, 1.0579e-01, 1.0598e-01, 1.0612e-01, 1.0627e-01,
478  $ 1.0641e-01, 1.0655e-01, 1.0669e-01, 1.0684e-01, 1.0698e-01,
479  $ 1.0712e-01, 1.0726e-01, 1.0740e-01, 1.0754e-01, 1.0769e-01,
480  $ 1.0783e-01, 1.0797e-01, 1.0811e-01, 1.0825e-01, 1.0839e-01,
481  $ 1.0854e-01, 1.0868e-01, 1.0886e-01, 1.0905e-01, 1.0924e-01,
482  $ 1.0943e-01, 1.0961e-01, 1.0980e-01, 1.0997e-01, 1.1011e-01,
483  $ 1.1025e-01, 1.1039e-01, 1.1053e-01, 1.1067e-01, 1.1082e-01,
484  $ 1.1096e-01, 1.1110e-01, 1.1124e-01, 1.1138e-01, 1.1152e-01,
485  $ 1.1166e-01, 1.1183e-01, 1.1202e-01, 1.1220e-01, 1.1239e-01,
486  $ 1.1258e-01, 1.1277e-01, 1.1294e-01, 1.1303e-01, 1.1312e-01,
487  $ 1.1322e-01, 1.1331e-01, 1.1340e-01, 1.1350e-01, 1.1359e-01,
488  $ 1.1369e-01, 1.1378e-01, 1.1387e-01, 1.1397e-01, 1.1406e-01,
489  $ 1.1415e-01, 1.1425e-01, 1.1434e-01, 1.1443e-01, 1.1452e-01/
490 
491  DATA (o3cf(i),i=2701,2800) /
492  $ 1.1462e-01, 1.1471e-01, 1.1480e-01, 1.1490e-01, 1.1499e-01,
493  $ 1.1508e-01, 1.1518e-01, 1.1527e-01, 1.1536e-01, 1.1546e-01,
494  $ 1.1555e-01, 1.1564e-01, 1.1573e-01, 1.1582e-01, 1.1592e-01,
495  $ 1.1601e-01, 1.1610e-01, 1.1620e-01, 1.1629e-01, 1.1638e-01,
496  $ 1.1647e-01, 1.1657e-01, 1.1666e-01, 1.1675e-01, 1.1684e-01,
497  $ 1.1694e-01, 1.1703e-01, 1.1712e-01, 1.1721e-01, 1.1730e-01,
498  $ 1.1740e-01, 1.1749e-01, 1.1758e-01, 1.1767e-01, 1.1777e-01,
499  $ 1.1786e-01, 1.1795e-01, 1.1804e-01, 1.1813e-01, 1.1823e-01,
500  $ 1.1832e-01, 1.1839e-01, 1.1843e-01, 1.1848e-01, 1.1852e-01,
501  $ 1.1857e-01, 1.1862e-01, 1.1866e-01, 1.1863e-01, 1.1858e-01,
502  $ 1.1854e-01, 1.1849e-01, 1.1845e-01, 1.1840e-01, 1.1837e-01,
503  $ 1.1837e-01, 1.1837e-01, 1.1837e-01, 1.1837e-01, 1.1837e-01,
504  $ 1.1837e-01, 1.1834e-01, 1.1829e-01, 1.1825e-01, 1.1820e-01,
505  $ 1.1816e-01, 1.1811e-01, 1.1806e-01, 1.1802e-01, 1.1797e-01,
506  $ 1.1793e-01, 1.1788e-01, 1.1784e-01, 1.1779e-01, 1.1774e-01,
507  $ 1.1770e-01, 1.1766e-01, 1.1761e-01, 1.1756e-01, 1.1752e-01,
508  $ 1.1747e-01, 1.1743e-01, 1.1738e-01, 1.1734e-01, 1.1729e-01,
509  $ 1.1725e-01, 1.1720e-01, 1.1716e-01, 1.1711e-01, 1.1707e-01,
510  $ 1.1702e-01, 1.1698e-01, 1.1693e-01, 1.1688e-01, 1.1684e-01,
511  $ 1.1680e-01, 1.1675e-01, 1.1671e-01, 1.1666e-01, 1.1662e-01/
512 
513  DATA (o3cf(i),i=2801,2900) /
514  $ 1.1657e-01, 1.1653e-01, 1.1648e-01, 1.1644e-01, 1.1639e-01,
515  $ 1.1635e-01, 1.1630e-01, 1.1626e-01, 1.1621e-01, 1.1617e-01,
516  $ 1.1612e-01, 1.1608e-01, 1.1603e-01, 1.1599e-01, 1.1594e-01,
517  $ 1.1585e-01, 1.1576e-01, 1.1567e-01, 1.1558e-01, 1.1549e-01,
518  $ 1.1540e-01, 1.1531e-01, 1.1523e-01, 1.1514e-01, 1.1505e-01,
519  $ 1.1496e-01, 1.1487e-01, 1.1478e-01, 1.1471e-01, 1.1467e-01,
520  $ 1.1462e-01, 1.1458e-01, 1.1453e-01, 1.1449e-01, 1.1445e-01,
521  $ 1.1437e-01, 1.1428e-01, 1.1419e-01, 1.1411e-01, 1.1402e-01,
522  $ 1.1393e-01, 1.1384e-01, 1.1375e-01, 1.1366e-01, 1.1357e-01,
523  $ 1.1348e-01, 1.1340e-01, 1.1331e-01, 1.1322e-01, 1.1318e-01,
524  $ 1.1313e-01, 1.1309e-01, 1.1304e-01, 1.1300e-01, 1.1296e-01,
525  $ 1.1290e-01, 1.1282e-01, 1.1273e-01, 1.1264e-01, 1.1255e-01,
526  $ 1.1246e-01, 1.1237e-01, 1.1229e-01, 1.1220e-01, 1.1211e-01,
527  $ 1.1202e-01, 1.1193e-01, 1.1185e-01, 1.1176e-01, 1.1169e-01,
528  $ 1.1165e-01, 1.1160e-01, 1.1156e-01, 1.1152e-01, 1.1147e-01,
529  $ 1.1143e-01, 1.1136e-01, 1.1127e-01, 1.1119e-01, 1.1110e-01,
530  $ 1.1101e-01, 1.1092e-01, 1.1084e-01, 1.1081e-01, 1.1081e-01,
531  $ 1.1081e-01, 1.1081e-01, 1.1081e-01, 1.1081e-01, 1.1081e-01,
532  $ 1.1084e-01, 1.1088e-01, 1.1092e-01, 1.1097e-01, 1.1101e-01,
533  $ 1.1106e-01, 1.1110e-01, 1.1111e-01, 1.1111e-01, 1.1111e-01/
534 
535  DATA (o3cf(i),i=2901,3000) /
536  $ 1.1111e-01, 1.1111e-01, 1.1111e-01, 1.1111e-01, 1.1111e-01,
537  $ 1.1111e-01, 1.1111e-01, 1.1111e-01, 1.1111e-01, 1.1111e-01,
538  $ 1.1111e-01, 1.1114e-01, 1.1119e-01, 1.1123e-01, 1.1127e-01,
539  $ 1.1132e-01, 1.1136e-01, 1.1140e-01, 1.1141e-01, 1.1141e-01,
540  $ 1.1141e-01, 1.1141e-01, 1.1141e-01, 1.1141e-01, 1.1141e-01,
541  $ 1.1141e-01, 1.1141e-01, 1.1141e-01, 1.1141e-01, 1.1141e-01,
542  $ 1.1141e-01, 1.1141e-01, 1.1144e-01, 1.1149e-01, 1.1153e-01,
543  $ 1.1157e-01, 1.1162e-01, 1.1166e-01, 1.1170e-01, 1.1171e-01,
544  $ 1.1171e-01, 1.1171e-01, 1.1171e-01, 1.1171e-01, 1.1171e-01,
545  $ 1.1171e-01, 1.1171e-01, 1.1171e-01, 1.1171e-01, 1.1171e-01,
546  $ 1.1171e-01, 1.1171e-01, 1.1171e-01, 1.1187e-01, 1.1213e-01,
547  $ 1.1238e-01, 1.1264e-01, 1.1289e-01, 1.1315e-01, 1.1340e-01,
548  $ 1.1364e-01, 1.1385e-01, 1.1406e-01, 1.1427e-01, 1.1449e-01,
549  $ 1.1470e-01, 1.1491e-01, 1.1512e-01, 1.1534e-01, 1.1555e-01,
550  $ 1.1576e-01, 1.1597e-01, 1.1619e-01, 1.1640e-01, 1.1662e-01,
551  $ 1.1688e-01, 1.1713e-01, 1.1738e-01, 1.1764e-01, 1.1789e-01,
552  $ 1.1815e-01, 1.1840e-01, 1.1861e-01, 1.1882e-01, 1.1903e-01,
553  $ 1.1924e-01, 1.1945e-01, 1.1966e-01, 1.1988e-01, 1.2009e-01,
554  $ 1.2030e-01, 1.2051e-01, 1.2072e-01, 1.2093e-01, 1.2114e-01,
555  $ 1.2135e-01, 1.2156e-01, 1.2177e-01, 1.2199e-01, 1.2219e-01/
556 
557  DATA (o3cf(i),i=3001,3100) /
558  $ 1.2241e-01, 1.2262e-01, 1.2283e-01, 1.2306e-01, 1.2331e-01,
559  $ 1.2357e-01, 1.2382e-01, 1.2407e-01, 1.2432e-01, 1.2457e-01,
560  $ 1.2481e-01, 1.2502e-01, 1.2523e-01, 1.2544e-01, 1.2565e-01,
561  $ 1.2586e-01, 1.2607e-01, 1.2628e-01, 1.2649e-01, 1.2670e-01,
562  $ 1.2691e-01, 1.2712e-01, 1.2733e-01, 1.2754e-01, 1.2775e-01,
563  $ 1.2765e-01, 1.2753e-01, 1.2740e-01, 1.2728e-01, 1.2715e-01,
564  $ 1.2703e-01, 1.2690e-01, 1.2680e-01, 1.2672e-01, 1.2664e-01,
565  $ 1.2655e-01, 1.2647e-01, 1.2639e-01, 1.2630e-01, 1.2620e-01,
566  $ 1.2608e-01, 1.2596e-01, 1.2583e-01, 1.2571e-01, 1.2558e-01,
567  $ 1.2546e-01, 1.2533e-01, 1.2525e-01, 1.2517e-01, 1.2508e-01,
568  $ 1.2500e-01, 1.2492e-01, 1.2484e-01, 1.2475e-01, 1.2464e-01,
569  $ 1.2452e-01, 1.2439e-01, 1.2427e-01, 1.2415e-01, 1.2402e-01,
570  $ 1.2390e-01, 1.2377e-01, 1.2365e-01, 1.2353e-01, 1.2340e-01,
571  $ 1.2328e-01, 1.2315e-01, 1.2303e-01, 1.2291e-01, 1.2283e-01,
572  $ 1.2274e-01, 1.2266e-01, 1.2258e-01, 1.2250e-01, 1.2241e-01,
573  $ 1.2233e-01, 1.2222e-01, 1.2210e-01, 1.2198e-01, 1.2185e-01,
574  $ 1.2173e-01, 1.2161e-01, 1.2148e-01, 1.2136e-01, 1.2124e-01,
575  $ 1.2111e-01, 1.2099e-01, 1.2087e-01, 1.2075e-01, 1.2062e-01,
576  $ 1.2050e-01, 1.2042e-01, 1.2033e-01, 1.2025e-01, 1.2017e-01,
577  $ 1.2009e-01, 1.2001e-01, 1.1993e-01, 1.1981e-01, 1.1965e-01/
578 
579  DATA (o3cf(i),i=3101,3200) /
580  $ 1.1948e-01, 1.1932e-01, 1.1916e-01, 1.1900e-01, 1.1883e-01,
581  $ 1.1867e-01, 1.1855e-01, 1.1843e-01, 1.1830e-01, 1.1818e-01,
582  $ 1.1806e-01, 1.1794e-01, 1.1782e-01, 1.1767e-01, 1.1751e-01,
583  $ 1.1735e-01, 1.1719e-01, 1.1703e-01, 1.1687e-01, 1.1670e-01,
584  $ 1.1654e-01, 1.1638e-01, 1.1622e-01, 1.1606e-01, 1.1590e-01,
585  $ 1.1574e-01, 1.1557e-01, 1.1541e-01, 1.1527e-01, 1.1515e-01,
586  $ 1.1503e-01, 1.1491e-01, 1.1479e-01, 1.1467e-01, 1.1455e-01,
587  $ 1.1443e-01, 1.1427e-01, 1.1411e-01, 1.1395e-01, 1.1379e-01,
588  $ 1.1363e-01, 1.1347e-01, 1.1331e-01, 1.1315e-01, 1.1298e-01,
589  $ 1.1282e-01, 1.1266e-01, 1.1250e-01, 1.1234e-01, 1.1218e-01,
590  $ 1.1202e-01, 1.1190e-01, 1.1178e-01, 1.1166e-01, 1.1154e-01,
591  $ 1.1142e-01, 1.1130e-01, 1.1118e-01, 1.1105e-01, 1.1089e-01,
592  $ 1.1073e-01, 1.1057e-01, 1.1041e-01, 1.1026e-01, 1.1010e-01,
593  $ 1.0994e-01, 1.0978e-01, 1.0962e-01, 1.0946e-01, 1.0930e-01,
594  $ 1.0914e-01, 1.0898e-01, 1.0883e-01, 1.0867e-01, 1.0855e-01,
595  $ 1.0844e-01, 1.0832e-01, 1.0820e-01, 1.0808e-01, 1.0796e-01,
596  $ 1.0784e-01, 1.0773e-01, 1.0761e-01, 1.0749e-01, 1.0737e-01,
597  $ 1.0725e-01, 1.0713e-01, 1.0701e-01, 1.0690e-01, 1.0681e-01,
598  $ 1.0673e-01, 1.0666e-01, 1.0658e-01, 1.0650e-01, 1.0642e-01,
599  $ 1.0634e-01, 1.0626e-01, 1.0614e-01, 1.0602e-01, 1.0590e-01/
600 
601  DATA (o3cf(i),i=3201,3300) /
602  $ 1.0578e-01, 1.0567e-01, 1.0555e-01, 1.0543e-01, 1.0531e-01,
603  $ 1.0520e-01, 1.0508e-01, 1.0496e-01, 1.0484e-01, 1.0473e-01,
604  $ 1.0461e-01, 1.0449e-01, 1.0437e-01, 1.0426e-01, 1.0414e-01,
605  $ 1.0402e-01, 1.0391e-01, 1.0379e-01, 1.0367e-01, 1.0356e-01,
606  $ 1.0344e-01, 1.0332e-01, 1.0321e-01, 1.0309e-01, 1.0297e-01,
607  $ 1.0286e-01, 1.0274e-01, 1.0262e-01, 1.0251e-01, 1.0239e-01,
608  $ 1.0227e-01, 1.0216e-01, 1.0204e-01, 1.0192e-01, 1.0181e-01,
609  $ 1.0169e-01, 1.0158e-01, 1.0146e-01, 1.0134e-01, 1.0123e-01,
610  $ 1.0111e-01, 1.0100e-01, 1.0088e-01, 1.0076e-01, 1.0065e-01,
611  $ 1.0053e-01, 1.0042e-01, 1.0030e-01, 1.0019e-01, 1.0007e-01,
612  $ 9.9955e-02, 9.9839e-02, 9.9724e-02, 9.9609e-02, 9.9493e-02,
613  $ 9.9378e-02, 9.9262e-02, 9.9147e-02, 9.9032e-02, 9.8917e-02,
614  $ 9.8801e-02, 9.8686e-02, 9.8571e-02, 9.8456e-02, 9.8341e-02,
615  $ 9.8226e-02, 9.8111e-02, 9.7997e-02, 9.7882e-02, 9.7767e-02,
616  $ 9.7653e-02, 9.7538e-02, 9.7424e-02, 9.7309e-02, 9.7194e-02,
617  $ 9.7080e-02, 9.6965e-02, 9.6851e-02, 9.6737e-02, 9.6622e-02,
618  $ 9.6508e-02, 9.6393e-02, 9.6302e-02, 9.6226e-02, 9.6149e-02,
619  $ 9.6074e-02, 9.5997e-02, 9.5921e-02, 9.5845e-02, 9.5769e-02,
620  $ 9.5667e-02, 9.5553e-02, 9.5440e-02, 9.5326e-02, 9.5212e-02,
621  $ 9.5098e-02, 9.4984e-02, 9.4871e-02, 9.4757e-02, 9.4644e-02/
622 
623  DATA (o3cf(i),i=3301,3400) /
624  $ 9.4530e-02, 9.4417e-02, 9.4303e-02, 9.4190e-02, 9.4076e-02,
625  $ 9.3963e-02, 9.3850e-02, 9.3736e-02, 9.3623e-02, 9.3510e-02,
626  $ 9.3397e-02, 9.3284e-02, 9.3171e-02, 9.3058e-02, 9.2945e-02,
627  $ 9.2832e-02, 9.2719e-02, 9.2606e-02, 9.2494e-02, 9.2381e-02,
628  $ 9.2268e-02, 9.2155e-02, 9.2043e-02, 9.1930e-02, 9.1818e-02,
629  $ 9.1705e-02, 9.1593e-02, 9.1480e-02, 9.1368e-02, 9.1255e-02,
630  $ 9.1077e-02, 9.0890e-02, 9.0703e-02, 9.0516e-02, 9.0330e-02,
631  $ 9.0143e-02, 8.9956e-02, 8.9769e-02, 8.9583e-02, 8.9396e-02,
632  $ 8.9210e-02, 8.9024e-02, 8.8837e-02, 8.8651e-02, 8.8465e-02,
633  $ 8.8278e-02, 8.8092e-02, 8.7906e-02, 8.7720e-02, 8.7535e-02,
634  $ 8.7349e-02, 8.7163e-02, 8.6977e-02, 8.6791e-02, 8.6606e-02,
635  $ 8.6420e-02, 8.6235e-02, 8.6050e-02, 8.5865e-02, 8.5679e-02,
636  $ 8.5494e-02, 8.5309e-02, 8.5124e-02, 8.4940e-02, 8.4755e-02,
637  $ 8.4571e-02, 8.4386e-02, 8.4201e-02, 8.4017e-02, 8.3833e-02,
638  $ 8.3648e-02, 8.3464e-02, 8.3280e-02, 8.3095e-02, 8.2911e-02,
639  $ 8.2727e-02, 8.2543e-02, 8.2359e-02, 8.2175e-02, 8.1992e-02,
640  $ 8.1808e-02, 8.1625e-02, 8.1441e-02, 8.1258e-02, 8.1075e-02,
641  $ 8.0891e-02, 8.0708e-02, 8.0525e-02, 8.0342e-02, 8.0159e-02,
642  $ 7.9976e-02, 7.9792e-02, 7.9609e-02, 7.9426e-02, 7.9238e-02,
643  $ 7.9019e-02, 7.8800e-02, 7.8582e-02, 7.8363e-02, 7.8144e-02/
644 
645  DATA (o3cf(i),i=3401,3500) /
646  $ 7.7926e-02, 7.7707e-02, 7.7488e-02, 7.7304e-02, 7.7123e-02,
647  $ 7.6941e-02, 7.6759e-02, 7.6577e-02, 7.6395e-02, 7.6214e-02,
648  $ 7.6032e-02, 7.5904e-02, 7.5795e-02, 7.5686e-02, 7.5578e-02,
649  $ 7.5469e-02, 7.5360e-02, 7.5251e-02, 7.5143e-02, 7.5016e-02,
650  $ 7.4871e-02, 7.4726e-02, 7.4581e-02, 7.4436e-02, 7.4292e-02,
651  $ 7.4147e-02, 7.4002e-02, 7.3858e-02, 7.3713e-02, 7.3569e-02,
652  $ 7.3425e-02, 7.3281e-02, 7.3137e-02, 7.2993e-02, 7.2849e-02,
653  $ 7.2705e-02, 7.2597e-02, 7.2489e-02, 7.2381e-02, 7.2274e-02,
654  $ 7.2166e-02, 7.2058e-02, 7.1950e-02, 7.1842e-02, 7.1710e-02,
655  $ 7.1566e-02, 7.1423e-02, 7.1279e-02, 7.1136e-02, 7.0993e-02,
656  $ 7.0849e-02, 7.0706e-02, 7.0576e-02, 7.0469e-02, 7.0362e-02,
657  $ 7.0255e-02, 7.0148e-02, 7.0041e-02, 6.9934e-02, 6.9827e-02,
658  $ 6.9718e-02, 6.9575e-02, 6.9433e-02, 6.9290e-02, 6.9148e-02,
659  $ 6.9006e-02, 6.8863e-02, 6.8721e-02, 6.8578e-02, 6.8436e-02,
660  $ 6.8294e-02, 6.8152e-02, 6.8009e-02, 6.7867e-02, 6.7725e-02,
661  $ 6.7583e-02, 6.7441e-02, 6.7310e-02, 6.7204e-02, 6.7097e-02,
662  $ 6.6991e-02, 6.6885e-02, 6.6779e-02, 6.6672e-02, 6.6566e-02,
663  $ 6.6460e-02, 6.6322e-02, 6.6180e-02, 6.6039e-02, 6.5898e-02,
664  $ 6.5757e-02, 6.5616e-02, 6.5475e-02, 6.5334e-02, 6.5210e-02,
665  $ 6.5104e-02, 6.4999e-02, 6.4893e-02, 6.4788e-02, 6.4682e-02/
666 
667  DATA (o3cf(i),i=3501,3600) /
668  $ 6.4576e-02, 6.4471e-02, 6.4365e-02, 6.4260e-02, 6.4154e-02,
669  $ 6.4049e-02, 6.3944e-02, 6.3839e-02, 6.3734e-02, 6.3628e-02,
670  $ 6.3523e-02, 6.3418e-02, 6.3313e-02, 6.3208e-02, 6.3103e-02,
671  $ 6.2997e-02, 6.2892e-02, 6.2787e-02, 6.2682e-02, 6.2577e-02,
672  $ 6.2472e-02, 6.2368e-02, 6.2263e-02, 6.2158e-02, 6.2054e-02,
673  $ 6.1949e-02, 6.1844e-02, 6.1740e-02, 6.1656e-02, 6.1586e-02,
674  $ 6.1517e-02, 6.1447e-02, 6.1377e-02, 6.1308e-02, 6.1238e-02,
675  $ 6.1169e-02, 6.1098e-02, 6.0993e-02, 6.0889e-02, 6.0785e-02,
676  $ 6.0681e-02, 6.0577e-02, 6.0473e-02, 6.0369e-02, 6.0264e-02,
677  $ 6.0160e-02, 6.0057e-02, 5.9953e-02, 5.9849e-02, 5.9746e-02,
678  $ 5.9642e-02, 5.9538e-02, 5.9434e-02, 5.9331e-02, 5.9227e-02,
679  $ 5.9124e-02, 5.9020e-02, 5.8917e-02, 5.8813e-02, 5.8710e-02,
680  $ 5.8606e-02, 5.8503e-02, 5.8399e-02, 5.8296e-02, 5.8193e-02,
681  $ 5.8090e-02, 5.7986e-02, 5.7883e-02, 5.7780e-02, 5.7677e-02,
682  $ 5.7573e-02, 5.7471e-02, 5.7368e-02, 5.7265e-02, 5.7162e-02,
683  $ 5.7059e-02, 5.6956e-02, 5.6854e-02, 5.6751e-02, 5.6648e-02,
684  $ 5.6545e-02, 5.6443e-02, 5.6340e-02, 5.6238e-02, 5.6135e-02,
685  $ 5.6033e-02, 5.5930e-02, 5.5828e-02, 5.5725e-02, 5.5623e-02,
686  $ 5.5521e-02, 5.5418e-02, 5.5316e-02, 5.5214e-02, 5.5112e-02,
687  $ 5.5009e-02, 5.4907e-02, 5.4805e-02, 5.4703e-02, 5.4601e-02/
688 
689  DATA (o3cf(i),i=3601,3700) /
690  $ 5.4499e-02, 5.4397e-02, 5.4295e-02, 5.4193e-02, 5.4091e-02,
691  $ 5.3989e-02, 5.3887e-02, 5.3785e-02, 5.3684e-02, 5.3582e-02,
692  $ 5.3480e-02, 5.3379e-02, 5.3277e-02, 5.3176e-02, 5.3074e-02,
693  $ 5.2973e-02, 5.2871e-02, 5.2770e-02, 5.2668e-02, 5.2567e-02,
694  $ 5.2466e-02, 5.2364e-02, 5.2263e-02, 5.2162e-02, 5.2060e-02,
695  $ 5.1959e-02, 5.1858e-02, 5.1757e-02, 5.1656e-02, 5.1555e-02,
696  $ 5.1454e-02, 5.1353e-02, 5.1252e-02, 5.1151e-02, 5.1050e-02,
697  $ 5.0950e-02, 5.0849e-02, 5.0748e-02, 5.0648e-02, 5.0547e-02,
698  $ 5.0446e-02, 5.0346e-02, 5.0245e-02, 5.0145e-02, 5.0044e-02,
699  $ 4.9944e-02, 4.9843e-02, 4.9743e-02, 4.9642e-02, 4.9542e-02,
700  $ 4.9442e-02, 4.9341e-02, 4.9241e-02, 4.9141e-02, 4.9041e-02,
701  $ 4.8940e-02, 4.8840e-02, 4.8740e-02, 4.8640e-02, 4.8540e-02,
702  $ 4.8440e-02, 4.8340e-02, 4.8241e-02, 4.8141e-02, 4.8041e-02,
703  $ 4.7941e-02, 4.7841e-02, 4.7741e-02, 4.7642e-02, 4.7542e-02,
704  $ 4.7442e-02, 4.7343e-02, 4.7243e-02, 4.7144e-02, 4.7044e-02,
705  $ 4.6944e-02, 4.6831e-02, 4.6698e-02, 4.6566e-02, 4.6434e-02,
706  $ 4.6301e-02, 4.6169e-02, 4.6036e-02, 4.5904e-02, 4.5771e-02,
707  $ 4.5656e-02, 4.5557e-02, 4.5458e-02, 4.5359e-02, 4.5260e-02,
708  $ 4.5161e-02, 4.5062e-02, 4.4963e-02, 4.4864e-02, 4.4765e-02,
709  $ 4.4666e-02, 4.4568e-02, 4.4469e-02, 4.4370e-02, 4.4271e-02/
710 
711  DATA (o3cf(i),i=3701,3800) /
712  $ 4.4173e-02, 4.4074e-02, 4.3975e-02, 4.3877e-02, 4.3779e-02,
713  $ 4.3680e-02, 4.3582e-02, 4.3483e-02, 4.3385e-02, 4.3287e-02,
714  $ 4.3188e-02, 4.3090e-02, 4.2992e-02, 4.2894e-02, 4.2796e-02,
715  $ 4.2698e-02, 4.2599e-02, 4.2501e-02, 4.2403e-02, 4.2305e-02,
716  $ 4.2207e-02, 4.2109e-02, 4.2011e-02, 4.1914e-02, 4.1816e-02,
717  $ 4.1718e-02, 4.1620e-02, 4.1523e-02, 4.1425e-02, 4.1327e-02,
718  $ 4.1212e-02, 4.1082e-02, 4.0952e-02, 4.0822e-02, 4.0692e-02,
719  $ 4.0562e-02, 4.0431e-02, 4.0301e-02, 4.0171e-02, 4.0056e-02,
720  $ 3.9959e-02, 3.9862e-02, 3.9765e-02, 3.9668e-02, 3.9570e-02,
721  $ 3.9473e-02, 3.9376e-02, 3.9279e-02, 3.9182e-02, 3.9085e-02,
722  $ 3.8988e-02, 3.8891e-02, 3.8794e-02, 3.8697e-02, 3.8601e-02,
723  $ 3.8504e-02, 3.8407e-02, 3.8310e-02, 3.8213e-02, 3.8116e-02,
724  $ 3.8020e-02, 3.7923e-02, 3.7826e-02, 3.7730e-02, 3.7633e-02,
725  $ 3.7536e-02, 3.7443e-02, 3.7379e-02, 3.7315e-02, 3.7250e-02,
726  $ 3.7186e-02, 3.7122e-02, 3.7058e-02, 3.6993e-02, 3.6929e-02,
727  $ 3.6865e-02, 3.6771e-02, 3.6675e-02, 3.6579e-02, 3.6483e-02,
728  $ 3.6387e-02, 3.6291e-02, 3.6195e-02, 3.6099e-02, 3.6003e-02,
729  $ 3.5930e-02, 3.5866e-02, 3.5803e-02, 3.5739e-02, 3.5675e-02,
730  $ 3.5611e-02, 3.5547e-02, 3.5483e-02, 3.5420e-02, 3.5339e-02,
731  $ 3.5244e-02, 3.5148e-02, 3.5053e-02, 3.4957e-02, 3.4862e-02/
732 
733  DATA (o3cf(i),i=3801,3900) /
734  $ 3.4766e-02, 3.4671e-02, 3.4575e-02, 3.4480e-02, 3.4384e-02,
735  $ 3.4289e-02, 3.4194e-02, 3.4099e-02, 3.4004e-02, 3.3909e-02,
736  $ 3.3813e-02, 3.3718e-02, 3.3623e-02, 3.3560e-02, 3.3497e-02,
737  $ 3.3433e-02, 3.3370e-02, 3.3307e-02, 3.3243e-02, 3.3180e-02,
738  $ 3.3117e-02, 3.3054e-02, 3.2968e-02, 3.2873e-02, 3.2779e-02,
739  $ 3.2684e-02, 3.2589e-02, 3.2495e-02, 3.2400e-02, 3.2305e-02,
740  $ 3.2211e-02, 3.2129e-02, 3.2066e-02, 3.2003e-02, 3.1940e-02,
741  $ 3.1877e-02, 3.1814e-02, 3.1751e-02, 3.1689e-02, 3.1626e-02,
742  $ 3.1561e-02, 3.1467e-02, 3.1373e-02, 3.1279e-02, 3.1185e-02,
743  $ 3.1091e-02, 3.0997e-02, 3.0903e-02, 3.0809e-02, 3.0715e-02,
744  $ 3.0642e-02, 3.0580e-02, 3.0517e-02, 3.0454e-02, 3.0392e-02,
745  $ 3.0329e-02, 3.0267e-02, 3.0204e-02, 3.0142e-02, 3.0079e-02,
746  $ 3.0017e-02, 2.9954e-02, 2.9892e-02, 2.9830e-02, 2.9767e-02,
747  $ 2.9705e-02, 2.9643e-02, 2.9580e-02, 2.9518e-02, 2.9456e-02,
748  $ 2.9393e-02, 2.9331e-02, 2.9269e-02, 2.9207e-02, 2.9145e-02,
749  $ 2.9083e-02, 2.9021e-02, 2.8958e-02, 2.8883e-02, 2.8790e-02,
750  $ 2.8697e-02, 2.8604e-02, 2.8511e-02, 2.8418e-02, 2.8325e-02,
751  $ 2.8232e-02, 2.8139e-02, 2.8046e-02, 2.7983e-02, 2.7921e-02,
752  $ 2.7859e-02, 2.7798e-02, 2.7736e-02, 2.7674e-02, 2.7612e-02,
753  $ 2.7551e-02, 2.7489e-02, 2.7427e-02, 2.7366e-02, 2.7304e-02/
754 
755  DATA (o3cf(i),i=3901,4000) /
756  $ 2.7242e-02, 2.7181e-02, 2.7119e-02, 2.7058e-02, 2.6996e-02,
757  $ 2.6934e-02, 2.6873e-02, 2.6811e-02, 2.6750e-02, 2.6688e-02,
758  $ 2.6627e-02, 2.6566e-02, 2.6504e-02, 2.6443e-02, 2.6381e-02,
759  $ 2.6320e-02, 2.6259e-02, 2.6197e-02, 2.6136e-02, 2.6075e-02,
760  $ 2.6014e-02, 2.5952e-02, 2.5891e-02, 2.5830e-02, 2.5769e-02,
761  $ 2.5708e-02, 2.5646e-02, 2.5585e-02, 2.5524e-02, 2.5463e-02,
762  $ 2.5402e-02, 2.5341e-02, 2.5280e-02, 2.5219e-02, 2.5158e-02,
763  $ 2.5097e-02, 2.5036e-02, 2.4975e-02, 2.4914e-02, 2.4853e-02,
764  $ 2.4792e-02, 2.4731e-02, 2.4670e-02, 2.4610e-02, 2.4549e-02,
765  $ 2.4488e-02, 2.4427e-02, 2.4366e-02, 2.4306e-02, 2.4245e-02,
766  $ 2.4184e-02, 2.4124e-02, 2.4063e-02, 2.4002e-02, 2.3942e-02,
767  $ 2.3908e-02, 2.3878e-02, 2.3848e-02, 2.3818e-02, 2.3787e-02,
768  $ 2.3757e-02, 2.3727e-02, 2.3697e-02, 2.3666e-02, 2.3630e-02,
769  $ 2.3569e-02, 2.3509e-02, 2.3449e-02, 2.3388e-02, 2.3328e-02,
770  $ 2.3268e-02, 2.3207e-02, 2.3147e-02, 2.3086e-02, 2.3041e-02,
771  $ 2.3011e-02, 2.2981e-02, 2.2951e-02, 2.2921e-02, 2.2891e-02,
772  $ 2.2861e-02, 2.2831e-02, 2.2801e-02, 2.2770e-02, 2.2718e-02,
773  $ 2.2658e-02, 2.2598e-02, 2.2538e-02, 2.2478e-02, 2.2418e-02,
774  $ 2.2358e-02, 2.2298e-02, 2.2238e-02, 2.2178e-02, 2.2148e-02,
775  $ 2.2118e-02, 2.2088e-02, 2.2058e-02, 2.2028e-02, 2.1998e-02/
776 
777  DATA (o3cf(i),i=4001,4100) /
778  $ 2.1968e-02, 2.1938e-02, 2.1908e-02, 2.1873e-02, 2.1813e-02,
779  $ 2.1753e-02, 2.1694e-02, 2.1634e-02, 2.1574e-02, 2.1515e-02,
780  $ 2.1455e-02, 2.1395e-02, 2.1336e-02, 2.1288e-02, 2.1258e-02,
781  $ 2.1228e-02, 2.1198e-02, 2.1169e-02, 2.1139e-02, 2.1109e-02,
782  $ 2.1079e-02, 2.1050e-02, 2.1020e-02, 2.0975e-02, 2.0915e-02,
783  $ 2.0856e-02, 2.0797e-02, 2.0738e-02, 2.0678e-02, 2.0619e-02,
784  $ 2.0560e-02, 2.0500e-02, 2.0441e-02, 2.0382e-02, 2.0323e-02,
785  $ 2.0264e-02, 2.0205e-02, 2.0145e-02, 2.0086e-02, 2.0027e-02,
786  $ 1.9968e-02, 1.9909e-02, 1.9850e-02, 1.9813e-02, 1.9783e-02,
787  $ 1.9754e-02, 1.9724e-02, 1.9695e-02, 1.9666e-02, 1.9636e-02,
788  $ 1.9607e-02, 1.9577e-02, 1.9548e-02, 1.9518e-02, 1.9489e-02,
789  $ 1.9460e-02, 1.9430e-02, 1.9401e-02, 1.9372e-02, 1.9342e-02,
790  $ 1.9313e-02, 1.9283e-02, 1.9254e-02, 1.9225e-02, 1.9196e-02,
791  $ 1.9166e-02, 1.9137e-02, 1.9108e-02, 1.9078e-02, 1.9049e-02,
792  $ 1.9020e-02, 1.8990e-02, 1.8961e-02, 1.8932e-02, 1.8903e-02,
793  $ 1.8873e-02, 1.8844e-02, 1.8815e-02, 1.8786e-02, 1.8756e-02,
794  $ 1.8727e-02, 1.8698e-02, 1.8669e-02, 1.8664e-02, 1.8664e-02,
795  $ 1.8664e-02, 1.8664e-02, 1.8664e-02, 1.8664e-02, 1.8664e-02,
796  $ 1.8664e-02, 1.8664e-02, 1.8664e-02, 1.8641e-02, 1.8612e-02,
797  $ 1.8583e-02, 1.8554e-02, 1.8525e-02, 1.8496e-02, 1.8467e-02/
798 
799  DATA (o3cf(i),i=4101,4200) /
800  $ 1.8438e-02, 1.8409e-02, 1.8380e-02, 1.8351e-02, 1.8322e-02,
801  $ 1.8293e-02, 1.8264e-02, 1.8235e-02, 1.8206e-02, 1.8177e-02,
802  $ 1.8148e-02, 1.8119e-02, 1.8090e-02, 1.8062e-02, 1.8033e-02,
803  $ 1.8004e-02, 1.7975e-02, 1.7946e-02, 1.7917e-02, 1.7888e-02,
804  $ 1.7859e-02, 1.7831e-02, 1.7802e-02, 1.7773e-02, 1.7744e-02,
805  $ 1.7715e-02, 1.7686e-02, 1.7658e-02, 1.7629e-02, 1.7600e-02,
806  $ 1.7571e-02, 1.7542e-02, 1.7514e-02, 1.7485e-02, 1.7456e-02,
807  $ 1.7428e-02, 1.7399e-02, 1.7370e-02, 1.7341e-02, 1.7313e-02,
808  $ 1.7284e-02, 1.7255e-02, 1.7227e-02, 1.7194e-02, 1.7137e-02,
809  $ 1.7080e-02, 1.7022e-02, 1.6965e-02, 1.6908e-02, 1.6851e-02,
810  $ 1.6793e-02, 1.6736e-02, 1.6679e-02, 1.6622e-02, 1.6591e-02,
811  $ 1.6562e-02, 1.6534e-02, 1.6505e-02, 1.6477e-02, 1.6448e-02,
812  $ 1.6420e-02, 1.6391e-02, 1.6362e-02, 1.6334e-02, 1.6286e-02,
813  $ 1.6229e-02, 1.6172e-02, 1.6115e-02, 1.6059e-02, 1.6002e-02,
814  $ 1.5945e-02, 1.5888e-02, 1.5831e-02, 1.5774e-02, 1.5729e-02,
815  $ 1.5701e-02, 1.5672e-02, 1.5644e-02, 1.5615e-02, 1.5587e-02,
816  $ 1.5559e-02, 1.5530e-02, 1.5502e-02, 1.5474e-02, 1.5443e-02,
817  $ 1.5386e-02, 1.5330e-02, 1.5273e-02, 1.5216e-02, 1.5160e-02,
818  $ 1.5103e-02, 1.5047e-02, 1.4990e-02, 1.4934e-02, 1.4877e-02,
819  $ 1.4842e-02, 1.4814e-02, 1.4786e-02, 1.4758e-02, 1.4729e-02/
820 
821  DATA (o3cf(i),i=4201,4300) /
822  $ 1.4701e-02, 1.4673e-02, 1.4645e-02, 1.4617e-02, 1.4589e-02,
823  $ 1.4549e-02, 1.4493e-02, 1.4437e-02, 1.4381e-02, 1.4325e-02,
824  $ 1.4268e-02, 1.4212e-02, 1.4156e-02, 1.4100e-02, 1.4044e-02,
825  $ 1.3988e-02, 1.3959e-02, 1.3931e-02, 1.3903e-02, 1.3875e-02,
826  $ 1.3847e-02, 1.3819e-02, 1.3791e-02, 1.3763e-02, 1.3735e-02,
827  $ 1.3707e-02, 1.3663e-02, 1.3607e-02, 1.3551e-02, 1.3496e-02,
828  $ 1.3440e-02, 1.3384e-02, 1.3328e-02, 1.3272e-02, 1.3216e-02,
829  $ 1.3160e-02, 1.3108e-02, 1.3080e-02, 1.3052e-02, 1.3024e-02,
830  $ 1.2997e-02, 1.2969e-02, 1.2941e-02, 1.2913e-02, 1.2885e-02,
831  $ 1.2857e-02, 1.2830e-02, 1.2802e-02, 1.2774e-02, 1.2746e-02,
832  $ 1.2718e-02, 1.2691e-02, 1.2663e-02, 1.2635e-02, 1.2607e-02,
833  $ 1.2579e-02, 1.2552e-02, 1.2524e-02, 1.2496e-02, 1.2469e-02,
834  $ 1.2441e-02, 1.2413e-02, 1.2385e-02, 1.2358e-02, 1.2330e-02,
835  $ 1.2303e-02, 1.2275e-02, 1.2247e-02, 1.2235e-02, 1.2235e-02,
836  $ 1.2235e-02, 1.2235e-02, 1.2235e-02, 1.2235e-02, 1.2235e-02,
837  $ 1.2235e-02, 1.2235e-02, 1.2235e-02, 1.2235e-02, 1.2208e-02,
838  $ 1.2180e-02, 1.2153e-02, 1.2125e-02, 1.2098e-02, 1.2071e-02,
839  $ 1.2043e-02, 1.2016e-02, 1.1988e-02, 1.1960e-02, 1.1943e-02,
840  $ 1.1943e-02, 1.1943e-02, 1.1943e-02, 1.1943e-02, 1.1943e-02,
841  $ 1.1943e-02, 1.1943e-02, 1.1943e-02, 1.1943e-02, 1.1943e-02/
842 
843  DATA (o3cf(i),i=4301,4400) /
844  $ 1.1923e-02, 1.1896e-02, 1.1869e-02, 1.1841e-02, 1.1814e-02,
845  $ 1.1786e-02, 1.1759e-02, 1.1732e-02, 1.1704e-02, 1.1677e-02,
846  $ 1.1650e-02, 1.1622e-02, 1.1595e-02, 1.1568e-02, 1.1540e-02,
847  $ 1.1513e-02, 1.1486e-02, 1.1459e-02, 1.1431e-02, 1.1404e-02,
848  $ 1.1377e-02, 1.1359e-02, 1.1359e-02, 1.1359e-02, 1.1359e-02,
849  $ 1.1359e-02, 1.1359e-02, 1.1359e-02, 1.1359e-02, 1.1359e-02,
850  $ 1.1359e-02, 1.1359e-02, 1.1343e-02, 1.1315e-02, 1.1288e-02,
851  $ 1.1261e-02, 1.1234e-02, 1.1207e-02, 1.1180e-02, 1.1153e-02,
852  $ 1.1126e-02, 1.1098e-02, 1.1071e-02, 1.1068e-02, 1.1068e-02,
853  $ 1.1068e-02, 1.1068e-02, 1.1068e-02, 1.1068e-02, 1.1068e-02,
854  $ 1.1068e-02, 1.1068e-02, 1.1068e-02, 1.1068e-02, 1.1068e-02,
855  $ 1.1068e-02, 1.1068e-02, 1.1068e-02, 1.1068e-02, 1.1068e-02,
856  $ 1.1068e-02, 1.1068e-02, 1.1068e-02, 1.1068e-02, 1.1068e-02,
857  $ 1.1068e-02, 1.1068e-02, 1.1068e-02, 1.1068e-02, 1.1068e-02,
858  $ 1.1068e-02, 1.1068e-02, 1.1068e-02, 1.1068e-02, 1.1068e-02,
859  $ 1.1058e-02, 1.1031e-02, 1.1004e-02, 1.0977e-02, 1.0950e-02,
860  $ 1.0924e-02, 1.0897e-02, 1.0870e-02, 1.0843e-02, 1.0816e-02,
861  $ 1.0790e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02,
862  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02,
863  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02/
864 
865  DATA (o3cf(i),i=4401,4500) /
866  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02,
867  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02,
868  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02,
869  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02,
870  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02,
871  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02,
872  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02,
873  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02,
874  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02,
875  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02,
876  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02,
877  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0776e-02,
878  $ 1.0776e-02, 1.0776e-02, 1.0776e-02, 1.0768e-02, 1.0742e-02,
879  $ 1.0715e-02, 1.0689e-02, 1.0663e-02, 1.0637e-02, 1.0611e-02,
880  $ 1.0584e-02, 1.0558e-02, 1.0532e-02, 1.0506e-02, 1.0480e-02,
881  $ 1.0454e-02, 1.0428e-02, 1.0402e-02, 1.0375e-02, 1.0349e-02,
882  $ 1.0323e-02, 1.0297e-02, 1.0271e-02, 1.0245e-02, 1.0219e-02,
883  $ 1.0193e-02, 1.0167e-02, 1.0141e-02, 1.0115e-02, 1.0089e-02,
884  $ 1.0063e-02, 1.0037e-02, 1.0011e-02, 9.9851e-03, 9.9591e-03,
885  $ 9.9331e-03, 9.9071e-03, 9.8812e-03, 9.8553e-03, 9.8294e-03/
886 
887  DATA (o3cf(i),i=4501,4600) /
888  $ 9.8035e-03, 9.7776e-03, 9.7517e-03, 9.7258e-03, 9.6999e-03,
889  $ 9.6740e-03, 9.6481e-03, 9.6221e-03, 9.5963e-03, 9.5704e-03,
890  $ 9.5446e-03, 9.5188e-03, 9.4929e-03, 9.4671e-03, 9.4412e-03,
891  $ 9.4154e-03, 9.3896e-03, 9.3637e-03, 9.3379e-03, 9.3121e-03,
892  $ 9.2863e-03, 9.2605e-03, 9.2348e-03, 9.2090e-03, 9.1832e-03,
893  $ 9.1575e-03, 9.1317e-03, 9.1059e-03, 9.0802e-03, 9.0544e-03,
894  $ 9.0286e-03, 9.0030e-03, 8.9773e-03, 8.9517e-03, 8.9260e-03,
895  $ 8.9004e-03, 8.8747e-03, 8.8490e-03, 8.8234e-03, 8.7977e-03,
896  $ 8.7721e-03, 8.7464e-03, 8.7208e-03, 8.6952e-03, 8.6696e-03,
897  $ 8.6440e-03, 8.6184e-03, 8.5928e-03, 8.5672e-03, 8.5416e-03,
898  $ 8.5160e-03, 8.4904e-03, 8.4648e-03, 8.4392e-03, 8.4137e-03,
899  $ 8.3882e-03, 8.3626e-03, 8.3371e-03, 8.3116e-03, 8.2861e-03,
900  $ 8.2606e-03, 8.2351e-03, 8.2096e-03, 8.1841e-03, 8.1586e-03,
901  $ 8.1331e-03, 8.1077e-03, 8.0822e-03, 8.0568e-03, 8.0313e-03,
902  $ 8.0059e-03, 7.9805e-03, 7.9550e-03, 7.9296e-03, 7.9041e-03,
903  $ 7.8787e-03, 7.8533e-03, 7.8279e-03, 7.8026e-03, 7.7772e-03,
904  $ 7.7518e-03, 7.7265e-03, 7.7011e-03, 7.6758e-03, 7.6504e-03,
905  $ 7.6251e-03, 7.5997e-03, 7.5744e-03, 7.5490e-03, 7.5238e-03,
906  $ 7.4985e-03, 7.4732e-03, 7.4479e-03, 7.4226e-03, 7.3974e-03,
907  $ 7.3721e-03, 7.3468e-03, 7.3215e-03, 7.2963e-03, 7.2710e-03/
908 
909  DATA (o3cf(i),i=4601,4700) /
910  $ 7.2458e-03, 7.2206e-03, 7.1954e-03, 7.1702e-03, 7.1450e-03,
911  $ 7.1198e-03, 7.0947e-03, 7.0695e-03, 7.0443e-03, 7.0191e-03,
912  $ 6.9939e-03, 6.9688e-03, 6.9436e-03, 6.9186e-03, 6.8934e-03,
913  $ 6.8683e-03, 6.8432e-03, 6.8181e-03, 6.7930e-03, 6.7679e-03,
914  $ 6.7428e-03, 6.7177e-03, 6.6913e-03, 6.6412e-03, 6.5912e-03,
915  $ 6.5411e-03, 6.4911e-03, 6.4410e-03, 6.3909e-03, 6.3409e-03,
916  $ 6.2908e-03, 6.2407e-03, 6.1906e-03, 6.1406e-03, 6.1008e-03,
917  $ 6.0759e-03, 6.0509e-03, 6.0259e-03, 6.0009e-03, 5.9760e-03,
918  $ 5.9510e-03, 5.9261e-03, 5.9011e-03, 5.8761e-03, 5.8512e-03,
919  $ 5.8262e-03, 5.8013e-03, 5.7764e-03, 5.7516e-03, 5.7267e-03,
920  $ 5.7019e-03, 5.6770e-03, 5.6521e-03, 5.6273e-03, 5.6024e-03,
921  $ 5.5775e-03, 5.5527e-03, 5.5278e-03, 5.5030e-03, 5.4782e-03,
922  $ 5.4534e-03, 5.4286e-03, 5.4038e-03, 5.3789e-03, 5.3541e-03,
923  $ 5.3293e-03, 5.3045e-03, 5.2797e-03, 5.2549e-03, 5.2301e-03,
924  $ 5.2054e-03, 5.1806e-03, 5.1559e-03, 5.1312e-03, 5.1065e-03,
925  $ 5.0817e-03, 5.0570e-03, 5.0323e-03, 5.0076e-03, 4.9829e-03,
926  $ 4.9581e-03, 4.9209e-03, 4.8716e-03, 4.8224e-03, 4.7731e-03,
927  $ 4.7239e-03, 4.6746e-03, 4.6253e-03, 4.5761e-03, 4.5268e-03,
928  $ 4.4776e-03, 4.4283e-03, 4.3791e-03, 4.1098e-03, 3.7415e-03,
929  $ 3.3732e-03, 3.0049e-03, 2.6368e-03, 2.2685e-03, 1.9004e-03/
930 
931  DATA (o3cf(i),i=4701,4705) /
932  $ 1.5321e-03, 1.1638e-03, 7.9545e-04, 4.2714e-04, 5.9044e-05/
933 
934  DATA (o3cf(i),i=4706,5001) /296*0.0/
935 
936  END
937 
938 ********************************************************************************
939 * *
940 * Name: BNDPRMS (NO2CF_INIT) *
941 * Purpose: Initializes NO2 cross section in calculating transmission *
942 * spectra. *
943 * Parameters: none *
944 * Globals used: none *
945 * Global output: NO2CF - One dimensional array containing values for the NO2 *
946 * cross sections in the 0.3-0.8 um region. The *
947 * cross sections correspond to the curve in the top *
948 * plot of Fig. 1 of Solomon et al. (1999) - On the *
949 * role of nitrogen dioxide in the absorption of solar *
950 * radiation, Journal of Geophycal Research, V.104, *
951 * 12047-12058. *
952 * References: *
953 * Return Codes: none *
954 * Special Considerations: None *
955 * *
956 ********************************************************************************
957 
958  BLOCK DATA no2cf_init
959 
960  REAL RNO2CF(5001)
961 
962  COMMON /no2cf_init1/ rno2cf
963 
964  DATA (rno2cf(i),i=1,100) /
965  $ 1.2776e-19, 1.2824e-19, 1.2872e-19, 1.2920e-19, 1.2966e-19,
966  $ 1.3012e-19, 1.3058e-19, 1.3104e-19, 1.3150e-19, 1.3272e-19,
967  $ 1.3394e-19, 1.3516e-19, 1.3638e-19, 1.3760e-19, 1.3832e-19,
968  $ 1.3904e-19, 1.3976e-19, 1.4048e-19, 1.4120e-19, 1.4224e-19,
969  $ 1.4328e-19, 1.4432e-19, 1.4536e-19, 1.4640e-19, 1.4685e-19,
970  $ 1.4730e-19, 1.4775e-19, 1.4820e-19, 1.4865e-19, 1.4910e-19,
971  $ 1.4974e-19, 1.5038e-19, 1.5102e-19, 1.5166e-19, 1.5230e-19,
972  $ 1.5244e-19, 1.5258e-19, 1.5272e-19, 1.5286e-19, 1.5300e-19,
973  $ 1.5350e-19, 1.5400e-19, 1.5450e-19, 1.5500e-19, 1.5550e-19,
974  $ 1.5566e-19, 1.5582e-19, 1.5598e-19, 1.5614e-19, 1.5630e-19,
975  $ 1.5688e-19, 1.5746e-19, 1.5804e-19, 1.5862e-19, 1.5920e-19,
976  $ 1.5940e-19, 1.5960e-19, 1.5980e-19, 1.6000e-19, 1.6020e-19,
977  $ 1.6090e-19, 1.6160e-19, 1.6230e-19, 1.6300e-19, 1.6370e-19,
978  $ 1.6440e-19, 1.6472e-19, 1.6504e-19, 1.6536e-19, 1.6568e-19,
979  $ 1.6600e-19, 1.6672e-19, 1.6744e-19, 1.6816e-19, 1.6888e-19,
980  $ 1.6960e-19, 1.7010e-19, 1.7060e-19, 1.7110e-19, 1.7160e-19,
981  $ 1.7210e-19, 1.7326e-19, 1.7442e-19, 1.7558e-19, 1.7674e-19,
982  $ 1.7790e-19, 1.7854e-19, 1.7918e-19, 1.7982e-19, 1.8046e-19,
983  $ 1.8110e-19, 1.8182e-19, 1.8254e-19, 1.8326e-19, 1.8398e-19,
984  $ 1.8470e-19, 1.8492e-19, 1.8513e-19, 1.8535e-19, 1.8557e-19/
985 
986  DATA (rno2cf(i),i=101,200) /
987  $ 1.8578e-19, 1.8600e-19, 1.8688e-19, 1.8776e-19, 1.8864e-19,
988  $ 1.8952e-19, 1.9040e-19, 1.9110e-19, 1.9180e-19, 1.9250e-19,
989  $ 1.9320e-19, 1.9390e-19, 1.9494e-19, 1.9598e-19, 1.9702e-19,
990  $ 1.9806e-19, 1.9910e-19, 1.9924e-19, 1.9938e-19, 1.9952e-19,
991  $ 1.9966e-19, 1.9980e-19, 2.0006e-19, 2.0032e-19, 2.0058e-19,
992  $ 2.0084e-19, 2.0110e-19, 2.0120e-19, 2.0130e-19, 2.0140e-19,
993  $ 2.0150e-19, 2.0160e-19, 2.0258e-19, 2.0356e-19, 2.0454e-19,
994  $ 2.0552e-19, 2.0650e-19, 2.0700e-19, 2.0750e-19, 2.0800e-19,
995  $ 2.0850e-19, 2.0900e-19, 2.0950e-19, 2.1044e-19, 2.1138e-19,
996  $ 2.1232e-19, 2.1326e-19, 2.1420e-19, 2.1438e-19, 2.1456e-19,
997  $ 2.1474e-19, 2.1492e-19, 2.1510e-19, 2.1574e-19, 2.1638e-19,
998  $ 2.1702e-19, 2.1766e-19, 2.1830e-19, 2.1908e-19, 2.1986e-19,
999  $ 2.2064e-19, 2.2142e-19, 2.2220e-19, 2.2358e-19, 2.2496e-19,
1000  $ 2.2634e-19, 2.2772e-19, 2.2910e-19, 2.2996e-19, 2.3082e-19,
1001  $ 2.3168e-19, 2.3254e-19, 2.3340e-19, 2.3403e-19, 2.3467e-19,
1002  $ 2.3530e-19, 2.3593e-19, 2.3657e-19, 2.3720e-19, 2.3710e-19,
1003  $ 2.3700e-19, 2.3690e-19, 2.3680e-19, 2.3670e-19, 2.3750e-19,
1004  $ 2.3830e-19, 2.3910e-19, 2.3990e-19, 2.4070e-19, 2.4132e-19,
1005  $ 2.4194e-19, 2.4256e-19, 2.4318e-19, 2.4380e-19, 2.4490e-19,
1006  $ 2.4600e-19, 2.4710e-19, 2.4820e-19, 2.4930e-19, 2.4936e-19/
1007 
1008  DATA (rno2cf(i),i=201,300) /
1009  $ 2.4942e-19, 2.4948e-19, 2.4954e-19, 2.4960e-19, 2.4998e-19,
1010  $ 2.5036e-19, 2.5074e-19, 2.5112e-19, 2.5150e-19, 2.5202e-19,
1011  $ 2.5253e-19, 2.5305e-19, 2.5357e-19, 2.5408e-19, 2.5460e-19,
1012  $ 2.5592e-19, 2.5724e-19, 2.5856e-19, 2.5988e-19, 2.6120e-19,
1013  $ 2.6154e-19, 2.6188e-19, 2.6222e-19, 2.6256e-19, 2.6290e-19,
1014  $ 2.6362e-19, 2.6434e-19, 2.6506e-19, 2.6578e-19, 2.6650e-19,
1015  $ 2.6658e-19, 2.6666e-19, 2.6674e-19, 2.6682e-19, 2.6690e-19,
1016  $ 2.6804e-19, 2.6918e-19, 2.7032e-19, 2.7146e-19, 2.7260e-19,
1017  $ 2.7344e-19, 2.7428e-19, 2.7512e-19, 2.7596e-19, 2.7680e-19,
1018  $ 2.7778e-19, 2.7877e-19, 2.7975e-19, 2.8073e-19, 2.8172e-19,
1019  $ 2.8270e-19, 2.8322e-19, 2.8374e-19, 2.8426e-19, 2.8478e-19,
1020  $ 2.8530e-19, 2.8612e-19, 2.8694e-19, 2.8776e-19, 2.8858e-19,
1021  $ 2.8940e-19, 2.8952e-19, 2.8964e-19, 2.8976e-19, 2.8988e-19,
1022  $ 2.9000e-19, 2.9098e-19, 2.9196e-19, 2.9294e-19, 2.9392e-19,
1023  $ 2.9490e-19, 2.9488e-19, 2.9486e-19, 2.9484e-19, 2.9482e-19,
1024  $ 2.9480e-19, 2.9590e-19, 2.9700e-19, 2.9810e-19, 2.9920e-19,
1025  $ 3.0030e-19, 3.0073e-19, 3.0117e-19, 3.0160e-19, 3.0203e-19,
1026  $ 3.0247e-19, 3.0290e-19, 3.0404e-19, 3.0518e-19, 3.0632e-19,
1027  $ 3.0746e-19, 3.0860e-19, 3.0864e-19, 3.0868e-19, 3.0872e-19,
1028  $ 3.0876e-19, 3.0880e-19, 3.0936e-19, 3.0992e-19, 3.1048e-19/
1029 
1030  DATA (rno2cf(i),i=301,400) /
1031  $ 3.1104e-19, 3.1160e-19, 3.1166e-19, 3.1172e-19, 3.1178e-19,
1032  $ 3.1184e-19, 3.1190e-19, 3.1328e-19, 3.1466e-19, 3.1604e-19,
1033  $ 3.1742e-19, 3.1880e-19, 3.2030e-19, 3.2180e-19, 3.2330e-19,
1034  $ 3.2480e-19, 3.2630e-19, 3.2825e-19, 3.3020e-19, 3.3215e-19,
1035  $ 3.3410e-19, 3.3605e-19, 3.3800e-19, 3.3806e-19, 3.3812e-19,
1036  $ 3.3818e-19, 3.3824e-19, 3.3830e-19, 3.3796e-19, 3.3762e-19,
1037  $ 3.3728e-19, 3.3694e-19, 3.3660e-19, 3.3590e-19, 3.3520e-19,
1038  $ 3.3450e-19, 3.3380e-19, 3.3310e-19, 3.3416e-19, 3.3522e-19,
1039  $ 3.3628e-19, 3.3734e-19, 3.3840e-19, 3.3872e-19, 3.3904e-19,
1040  $ 3.3936e-19, 3.3968e-19, 3.4000e-19, 3.4102e-19, 3.4204e-19,
1041  $ 3.4306e-19, 3.4408e-19, 3.4510e-19, 3.4528e-19, 3.4546e-19,
1042  $ 3.4564e-19, 3.4582e-19, 3.4600e-19, 3.4662e-19, 3.4723e-19,
1043  $ 3.4785e-19, 3.4847e-19, 3.4908e-19, 3.4970e-19, 3.4928e-19,
1044  $ 3.4886e-19, 3.4844e-19, 3.4802e-19, 3.4760e-19, 3.4920e-19,
1045  $ 3.5080e-19, 3.5240e-19, 3.5400e-19, 3.5560e-19, 3.5758e-19,
1046  $ 3.5956e-19, 3.6154e-19, 3.6352e-19, 3.6550e-19, 3.6780e-19,
1047  $ 3.7010e-19, 3.7240e-19, 3.7470e-19, 3.7700e-19, 3.7694e-19,
1048  $ 3.7688e-19, 3.7682e-19, 3.7676e-19, 3.7670e-19, 3.7744e-19,
1049  $ 3.7818e-19, 3.7892e-19, 3.7966e-19, 3.8040e-19, 3.8080e-19,
1050  $ 3.8120e-19, 3.8160e-19, 3.8200e-19, 3.8240e-19, 3.8280e-19/
1051 
1052  DATA (rno2cf(i),i=401,500) /
1053  $ 3.8462e-19, 3.8644e-19, 3.8826e-19, 3.9008e-19, 3.9190e-19,
1054  $ 3.9160e-19, 3.9130e-19, 3.9100e-19, 3.9070e-19, 3.9040e-19,
1055  $ 3.8954e-19, 3.8868e-19, 3.8782e-19, 3.8696e-19, 3.8610e-19,
1056  $ 3.8434e-19, 3.8258e-19, 3.8082e-19, 3.7906e-19, 3.7730e-19,
1057  $ 3.7768e-19, 3.7806e-19, 3.7844e-19, 3.7882e-19, 3.7920e-19,
1058  $ 3.7942e-19, 3.7964e-19, 3.7986e-19, 3.8008e-19, 3.8030e-19,
1059  $ 3.8155e-19, 3.8280e-19, 3.8405e-19, 3.8530e-19, 3.8655e-19,
1060  $ 3.8780e-19, 3.8872e-19, 3.8964e-19, 3.9056e-19, 3.9148e-19,
1061  $ 3.9240e-19, 3.9408e-19, 3.9576e-19, 3.9744e-19, 3.9912e-19,
1062  $ 4.0080e-19, 4.0164e-19, 4.0248e-19, 4.0332e-19, 4.0416e-19,
1063  $ 4.0500e-19, 4.0706e-19, 4.0912e-19, 4.1118e-19, 4.1324e-19,
1064  $ 4.1530e-19, 4.1600e-19, 4.1670e-19, 4.1740e-19, 4.1810e-19,
1065  $ 4.1880e-19, 4.2020e-19, 4.2160e-19, 4.2300e-19, 4.2440e-19,
1066  $ 4.2580e-19, 4.2650e-19, 4.2720e-19, 4.2790e-19, 4.2860e-19,
1067  $ 4.2930e-19, 4.3000e-19, 4.3268e-19, 4.3536e-19, 4.3804e-19,
1068  $ 4.4072e-19, 4.4340e-19, 4.4290e-19, 4.4240e-19, 4.4190e-19,
1069  $ 4.4140e-19, 4.4090e-19, 4.3934e-19, 4.3778e-19, 4.3622e-19,
1070  $ 4.3466e-19, 4.3310e-19, 4.3088e-19, 4.2866e-19, 4.2644e-19,
1071  $ 4.2422e-19, 4.2200e-19, 4.2256e-19, 4.2312e-19, 4.2368e-19,
1072  $ 4.2424e-19, 4.2480e-19, 4.2540e-19, 4.2600e-19, 4.2660e-19/
1073 
1074  DATA (rno2cf(i),i=501,600) /
1075  $ 4.2720e-19, 4.2780e-19, 4.2910e-19, 4.3040e-19, 4.3170e-19,
1076  $ 4.3300e-19, 4.3430e-19, 4.3560e-19, 4.3500e-19, 4.3440e-19,
1077  $ 4.3380e-19, 4.3320e-19, 4.3260e-19, 4.3254e-19, 4.3248e-19,
1078  $ 4.3242e-19, 4.3236e-19, 4.3230e-19, 4.3142e-19, 4.3054e-19,
1079  $ 4.2966e-19, 4.2878e-19, 4.2790e-19, 4.2994e-19, 4.3198e-19,
1080  $ 4.3402e-19, 4.3606e-19, 4.3810e-19, 4.4108e-19, 4.4406e-19,
1081  $ 4.4704e-19, 4.5002e-19, 4.5300e-19, 4.5674e-19, 4.6048e-19,
1082  $ 4.6422e-19, 4.6796e-19, 4.7170e-19, 4.7205e-19, 4.7240e-19,
1083  $ 4.7275e-19, 4.7310e-19, 4.7345e-19, 4.7380e-19, 4.7314e-19,
1084  $ 4.7248e-19, 4.7182e-19, 4.7116e-19, 4.7050e-19, 4.6938e-19,
1085  $ 4.6826e-19, 4.6714e-19, 4.6602e-19, 4.6490e-19, 4.6692e-19,
1086  $ 4.6894e-19, 4.7096e-19, 4.7298e-19, 4.7500e-19, 4.7690e-19,
1087  $ 4.7880e-19, 4.8070e-19, 4.8260e-19, 4.8450e-19, 4.8626e-19,
1088  $ 4.8802e-19, 4.8978e-19, 4.9154e-19, 4.9330e-19, 4.9202e-19,
1089  $ 4.9074e-19, 4.8946e-19, 4.8818e-19, 4.8690e-19, 4.8550e-19,
1090  $ 4.8410e-19, 4.8270e-19, 4.8130e-19, 4.7990e-19, 4.7800e-19,
1091  $ 4.7610e-19, 4.7420e-19, 4.7230e-19, 4.7040e-19, 4.6850e-19,
1092  $ 4.6868e-19, 4.6886e-19, 4.6904e-19, 4.6922e-19, 4.6940e-19,
1093  $ 4.6956e-19, 4.6972e-19, 4.6988e-19, 4.7004e-19, 4.7020e-19,
1094  $ 4.7252e-19, 4.7484e-19, 4.7716e-19, 4.7948e-19, 4.8180e-19/
1095 
1096  DATA (rno2cf(i),i=601,700) /
1097  $ 4.8296e-19, 4.8412e-19, 4.8528e-19, 4.8644e-19, 4.8760e-19,
1098  $ 4.8916e-19, 4.9072e-19, 4.9228e-19, 4.9384e-19, 4.9540e-19,
1099  $ 4.9478e-19, 4.9416e-19, 4.9354e-19, 4.9292e-19, 4.9230e-19,
1100  $ 4.9295e-19, 4.9360e-19, 4.9425e-19, 4.9490e-19, 4.9555e-19,
1101  $ 4.9620e-19, 4.9564e-19, 4.9508e-19, 4.9452e-19, 4.9396e-19,
1102  $ 4.9340e-19, 4.9450e-19, 4.9560e-19, 4.9670e-19, 4.9780e-19,
1103  $ 4.9890e-19, 4.9940e-19, 4.9990e-19, 5.0040e-19, 5.0090e-19,
1104  $ 5.0140e-19, 5.0438e-19, 5.0736e-19, 5.1034e-19, 5.1332e-19,
1105  $ 5.1630e-19, 5.1834e-19, 5.2038e-19, 5.2242e-19, 5.2446e-19,
1106  $ 5.2650e-19, 5.2752e-19, 5.2854e-19, 5.2956e-19, 5.3058e-19,
1107  $ 5.3160e-19, 5.2957e-19, 5.2753e-19, 5.2550e-19, 5.2347e-19,
1108  $ 5.2143e-19, 5.1940e-19, 5.1892e-19, 5.1844e-19, 5.1796e-19,
1109  $ 5.1748e-19, 5.1700e-19, 5.1676e-19, 5.1652e-19, 5.1628e-19,
1110  $ 5.1604e-19, 5.1580e-19, 5.1734e-19, 5.1888e-19, 5.2042e-19,
1111  $ 5.2196e-19, 5.2350e-19, 5.2290e-19, 5.2230e-19, 5.2170e-19,
1112  $ 5.2110e-19, 5.2050e-19, 5.2080e-19, 5.2110e-19, 5.2140e-19,
1113  $ 5.2170e-19, 5.2200e-19, 5.2158e-19, 5.2116e-19, 5.2074e-19,
1114  $ 5.2032e-19, 5.1990e-19, 5.2033e-19, 5.2077e-19, 5.2120e-19,
1115  $ 5.2163e-19, 5.2207e-19, 5.2250e-19, 5.2150e-19, 5.2050e-19,
1116  $ 5.1950e-19, 5.1850e-19, 5.1750e-19, 5.1862e-19, 5.1974e-19/
1117 
1118  DATA (rno2cf(i),i=701,800) /
1119  $ 5.2086e-19, 5.2198e-19, 5.2310e-19, 5.2458e-19, 5.2606e-19,
1120  $ 5.2754e-19, 5.2902e-19, 5.3050e-19, 5.3360e-19, 5.3670e-19,
1121  $ 5.3980e-19, 5.4290e-19, 5.4600e-19, 5.4676e-19, 5.4752e-19,
1122  $ 5.4828e-19, 5.4904e-19, 5.4980e-19, 5.4984e-19, 5.4988e-19,
1123  $ 5.4992e-19, 5.4996e-19, 5.5000e-19, 5.4828e-19, 5.4657e-19,
1124  $ 5.4485e-19, 5.4313e-19, 5.4142e-19, 5.3970e-19, 5.3930e-19,
1125  $ 5.3890e-19, 5.3850e-19, 5.3810e-19, 5.3770e-19, 5.3664e-19,
1126  $ 5.3558e-19, 5.3452e-19, 5.3346e-19, 5.3240e-19, 5.3414e-19,
1127  $ 5.3588e-19, 5.3762e-19, 5.3936e-19, 5.4110e-19, 5.4320e-19,
1128  $ 5.4530e-19, 5.4740e-19, 5.4950e-19, 5.5160e-19, 5.5534e-19,
1129  $ 5.5908e-19, 5.6282e-19, 5.6656e-19, 5.7030e-19, 5.7018e-19,
1130  $ 5.7006e-19, 5.6994e-19, 5.6982e-19, 5.6970e-19, 5.6840e-19,
1131  $ 5.6710e-19, 5.6580e-19, 5.6450e-19, 5.6320e-19, 5.6190e-19,
1132  $ 5.5850e-19, 5.5510e-19, 5.5170e-19, 5.4830e-19, 5.4490e-19,
1133  $ 5.4414e-19, 5.4338e-19, 5.4262e-19, 5.4186e-19, 5.4110e-19,
1134  $ 5.4058e-19, 5.4006e-19, 5.3954e-19, 5.3902e-19, 5.3850e-19,
1135  $ 5.4134e-19, 5.4418e-19, 5.4702e-19, 5.4986e-19, 5.5270e-19,
1136  $ 5.5526e-19, 5.5782e-19, 5.6038e-19, 5.6294e-19, 5.6550e-19,
1137  $ 5.6830e-19, 5.7110e-19, 5.7390e-19, 5.7670e-19, 5.7950e-19,
1138  $ 5.7883e-19, 5.7817e-19, 5.7750e-19, 5.7683e-19, 5.7617e-19/
1139 
1140  DATA (rno2cf(i),i=801,900) /
1141  $ 5.7550e-19, 5.7534e-19, 5.7518e-19, 5.7502e-19, 5.7486e-19,
1142  $ 5.7470e-19, 5.7288e-19, 5.7106e-19, 5.6924e-19, 5.6742e-19,
1143  $ 5.6560e-19, 5.6494e-19, 5.6428e-19, 5.6362e-19, 5.6296e-19,
1144  $ 5.6230e-19, 5.6084e-19, 5.5938e-19, 5.5792e-19, 5.5646e-19,
1145  $ 5.5500e-19, 5.5582e-19, 5.5664e-19, 5.5746e-19, 5.5828e-19,
1146  $ 5.5910e-19, 5.6006e-19, 5.6102e-19, 5.6198e-19, 5.6294e-19,
1147  $ 5.6390e-19, 5.6632e-19, 5.6874e-19, 5.7116e-19, 5.7358e-19,
1148  $ 5.7600e-19, 5.7628e-19, 5.7657e-19, 5.7685e-19, 5.7713e-19,
1149  $ 5.7742e-19, 5.7770e-19, 5.7822e-19, 5.7874e-19, 5.7926e-19,
1150  $ 5.7978e-19, 5.8030e-19, 5.7884e-19, 5.7738e-19, 5.7592e-19,
1151  $ 5.7446e-19, 5.7300e-19, 5.7276e-19, 5.7252e-19, 5.7228e-19,
1152  $ 5.7204e-19, 5.7180e-19, 5.7112e-19, 5.7044e-19, 5.6976e-19,
1153  $ 5.6908e-19, 5.6840e-19, 5.7010e-19, 5.7180e-19, 5.7350e-19,
1154  $ 5.7520e-19, 5.7690e-19, 5.7734e-19, 5.7778e-19, 5.7822e-19,
1155  $ 5.7866e-19, 5.7910e-19, 5.7997e-19, 5.8083e-19, 5.8170e-19,
1156  $ 5.8257e-19, 5.8343e-19, 5.8430e-19, 5.8442e-19, 5.8454e-19,
1157  $ 5.8466e-19, 5.8478e-19, 5.8490e-19, 5.8624e-19, 5.8758e-19,
1158  $ 5.8892e-19, 5.9026e-19, 5.9160e-19, 5.9102e-19, 5.9044e-19,
1159  $ 5.8986e-19, 5.8928e-19, 5.8870e-19, 5.8934e-19, 5.8998e-19,
1160  $ 5.9062e-19, 5.9126e-19, 5.9190e-19, 5.9140e-19, 5.9090e-19/
1161 
1162  DATA (rno2cf(i),i=901,1000) /
1163  $ 5.9040e-19, 5.8990e-19, 5.8940e-19, 5.9118e-19, 5.9296e-19,
1164  $ 5.9474e-19, 5.9652e-19, 5.9830e-19, 5.9840e-19, 5.9850e-19,
1165  $ 5.9860e-19, 5.9870e-19, 5.9880e-19, 5.9890e-19, 5.9818e-19,
1166  $ 5.9746e-19, 5.9674e-19, 5.9602e-19, 5.9530e-19, 5.9230e-19,
1167  $ 5.8930e-19, 5.8630e-19, 5.8330e-19, 5.8030e-19, 5.7886e-19,
1168  $ 5.7742e-19, 5.7598e-19, 5.7454e-19, 5.7310e-19, 5.7166e-19,
1169  $ 5.7022e-19, 5.6878e-19, 5.6734e-19, 5.6590e-19, 5.6710e-19,
1170  $ 5.6830e-19, 5.6950e-19, 5.7070e-19, 5.7190e-19, 5.7344e-19,
1171  $ 5.7498e-19, 5.7652e-19, 5.7806e-19, 5.7960e-19, 5.8172e-19,
1172  $ 5.8383e-19, 5.8595e-19, 5.8807e-19, 5.9018e-19, 5.9230e-19,
1173  $ 5.9202e-19, 5.9174e-19, 5.9146e-19, 5.9118e-19, 5.9090e-19,
1174  $ 5.8990e-19, 5.8890e-19, 5.8790e-19, 5.8690e-19, 5.8590e-19,
1175  $ 5.8436e-19, 5.8282e-19, 5.8128e-19, 5.7974e-19, 5.7820e-19,
1176  $ 5.8042e-19, 5.8264e-19, 5.8486e-19, 5.8708e-19, 5.8930e-19,
1177  $ 5.9194e-19, 5.9458e-19, 5.9722e-19, 5.9986e-19, 6.0250e-19,
1178  $ 6.0342e-19, 6.0434e-19, 6.0526e-19, 6.0618e-19, 6.0710e-19,
1179  $ 6.0572e-19, 6.0433e-19, 6.0295e-19, 6.0157e-19, 6.0018e-19,
1180  $ 5.9880e-19, 6.0048e-19, 6.0216e-19, 6.0384e-19, 6.0552e-19,
1181  $ 6.0720e-19, 6.0886e-19, 6.1052e-19, 6.1218e-19, 6.1384e-19,
1182  $ 6.1550e-19, 6.1662e-19, 6.1774e-19, 6.1886e-19, 6.1998e-19/
1183 
1184  DATA (rno2cf(i),i=1001,1100) /
1185  $ 6.2110e-19, 6.1946e-19, 6.1782e-19, 6.1618e-19, 6.1454e-19,
1186  $ 6.1290e-19, 6.1060e-19, 6.0830e-19, 6.0600e-19, 6.0370e-19,
1187  $ 6.0140e-19, 5.9744e-19, 5.9348e-19, 5.8952e-19, 5.8556e-19,
1188  $ 5.8160e-19, 5.7992e-19, 5.7823e-19, 5.7655e-19, 5.7487e-19,
1189  $ 5.7318e-19, 5.7150e-19, 5.7058e-19, 5.6966e-19, 5.6874e-19,
1190  $ 5.6782e-19, 5.6690e-19, 5.6902e-19, 5.7114e-19, 5.7326e-19,
1191  $ 5.7538e-19, 5.7750e-19, 5.7908e-19, 5.8066e-19, 5.8224e-19,
1192  $ 5.8382e-19, 5.8540e-19, 5.8770e-19, 5.9000e-19, 5.9230e-19,
1193  $ 5.9460e-19, 5.9690e-19, 5.9624e-19, 5.9558e-19, 5.9492e-19,
1194  $ 5.9426e-19, 5.9360e-19, 5.9134e-19, 5.8908e-19, 5.8682e-19,
1195  $ 5.8456e-19, 5.8230e-19, 5.7840e-19, 5.7450e-19, 5.7060e-19,
1196  $ 5.6670e-19, 5.6280e-19, 5.6122e-19, 5.5963e-19, 5.5805e-19,
1197  $ 5.5647e-19, 5.5488e-19, 5.5330e-19, 5.5378e-19, 5.5426e-19,
1198  $ 5.5474e-19, 5.5522e-19, 5.5570e-19, 5.6094e-19, 5.6618e-19,
1199  $ 5.7142e-19, 5.7666e-19, 5.8190e-19, 5.8604e-19, 5.9018e-19,
1200  $ 5.9432e-19, 5.9846e-19, 6.0260e-19, 6.0462e-19, 6.0664e-19,
1201  $ 6.0866e-19, 6.1068e-19, 6.1270e-19, 6.1172e-19, 6.1074e-19,
1202  $ 6.0976e-19, 6.0878e-19, 6.0780e-19, 6.0816e-19, 6.0852e-19,
1203  $ 6.0888e-19, 6.0924e-19, 6.0960e-19, 6.0912e-19, 6.0863e-19,
1204  $ 6.0815e-19, 6.0767e-19, 6.0718e-19, 6.0670e-19, 6.0470e-19/
1205 
1206  DATA (rno2cf(i),i=1101,1200) /
1207  $ 6.0270e-19, 6.0070e-19, 5.9870e-19, 5.9670e-19, 5.9284e-19,
1208  $ 5.8898e-19, 5.8512e-19, 5.8126e-19, 5.7740e-19, 5.7650e-19,
1209  $ 5.7560e-19, 5.7470e-19, 5.7380e-19, 5.7290e-19, 5.7488e-19,
1210  $ 5.7686e-19, 5.7884e-19, 5.8082e-19, 5.8280e-19, 5.8776e-19,
1211  $ 5.9272e-19, 5.9768e-19, 6.0264e-19, 6.0760e-19, 6.0888e-19,
1212  $ 6.1016e-19, 6.1144e-19, 6.1272e-19, 6.1400e-19, 6.1198e-19,
1213  $ 6.0997e-19, 6.0795e-19, 6.0593e-19, 6.0392e-19, 6.0190e-19,
1214  $ 5.9780e-19, 5.9370e-19, 5.8960e-19, 5.8550e-19, 5.8140e-19,
1215  $ 5.7822e-19, 5.7504e-19, 5.7186e-19, 5.6868e-19, 5.6550e-19,
1216  $ 5.6134e-19, 5.5718e-19, 5.5302e-19, 5.4886e-19, 5.4470e-19,
1217  $ 5.4268e-19, 5.4066e-19, 5.3864e-19, 5.3662e-19, 5.3460e-19,
1218  $ 5.3412e-19, 5.3364e-19, 5.3316e-19, 5.3268e-19, 5.3220e-19,
1219  $ 5.3424e-19, 5.3628e-19, 5.3832e-19, 5.4036e-19, 5.4240e-19,
1220  $ 5.4367e-19, 5.4493e-19, 5.4620e-19, 5.4747e-19, 5.4873e-19,
1221  $ 5.5000e-19, 5.5194e-19, 5.5388e-19, 5.5582e-19, 5.5776e-19,
1222  $ 5.5970e-19, 5.6016e-19, 5.6062e-19, 5.6108e-19, 5.6154e-19,
1223  $ 5.6200e-19, 5.6406e-19, 5.6612e-19, 5.6818e-19, 5.7024e-19,
1224  $ 5.7230e-19, 5.7362e-19, 5.7494e-19, 5.7626e-19, 5.7758e-19,
1225  $ 5.7890e-19, 5.8010e-19, 5.8130e-19, 5.8250e-19, 5.8370e-19,
1226  $ 5.8490e-19, 5.8466e-19, 5.8442e-19, 5.8418e-19, 5.8394e-19/
1227 
1228  DATA (rno2cf(i),i=1201,1300) /
1229  $ 5.8370e-19, 5.8385e-19, 5.8400e-19, 5.8415e-19, 5.8430e-19,
1230  $ 5.8445e-19, 5.8460e-19, 5.8450e-19, 5.8440e-19, 5.8430e-19,
1231  $ 5.8420e-19, 5.8410e-19, 5.8452e-19, 5.8494e-19, 5.8536e-19,
1232  $ 5.8578e-19, 5.8620e-19, 5.8538e-19, 5.8456e-19, 5.8374e-19,
1233  $ 5.8292e-19, 5.8210e-19, 5.8290e-19, 5.8370e-19, 5.8450e-19,
1234  $ 5.8530e-19, 5.8610e-19, 5.8650e-19, 5.8690e-19, 5.8730e-19,
1235  $ 5.8770e-19, 5.8810e-19, 5.8812e-19, 5.8814e-19, 5.8816e-19,
1236  $ 5.8818e-19, 5.8820e-19, 5.8540e-19, 5.8260e-19, 5.7980e-19,
1237  $ 5.7700e-19, 5.7420e-19, 5.7140e-19, 5.6654e-19, 5.6168e-19,
1238  $ 5.5682e-19, 5.5196e-19, 5.4710e-19, 5.4148e-19, 5.3586e-19,
1239  $ 5.3024e-19, 5.2462e-19, 5.1900e-19, 5.1702e-19, 5.1504e-19,
1240  $ 5.1306e-19, 5.1108e-19, 5.0910e-19, 5.1084e-19, 5.1258e-19,
1241  $ 5.1432e-19, 5.1606e-19, 5.1780e-19, 5.2248e-19, 5.2716e-19,
1242  $ 5.3184e-19, 5.3652e-19, 5.4120e-19, 5.4300e-19, 5.4480e-19,
1243  $ 5.4660e-19, 5.4840e-19, 5.5020e-19, 5.4888e-19, 5.4756e-19,
1244  $ 5.4624e-19, 5.4492e-19, 5.4360e-19, 5.3972e-19, 5.3583e-19,
1245  $ 5.3195e-19, 5.2807e-19, 5.2418e-19, 5.2030e-19, 5.1724e-19,
1246  $ 5.1418e-19, 5.1112e-19, 5.0806e-19, 5.0500e-19, 5.0576e-19,
1247  $ 5.0652e-19, 5.0728e-19, 5.0804e-19, 5.0880e-19, 5.1320e-19,
1248  $ 5.1760e-19, 5.2200e-19, 5.2640e-19, 5.3080e-19, 5.3312e-19/
1249 
1250  DATA (rno2cf(i),i=1301,1400) /
1251  $ 5.3544e-19, 5.3776e-19, 5.4008e-19, 5.4240e-19, 5.4132e-19,
1252  $ 5.4024e-19, 5.3916e-19, 5.3808e-19, 5.3700e-19, 5.3274e-19,
1253  $ 5.2848e-19, 5.2422e-19, 5.1996e-19, 5.1570e-19, 5.1395e-19,
1254  $ 5.1220e-19, 5.1045e-19, 5.0870e-19, 5.0695e-19, 5.0520e-19,
1255  $ 5.0634e-19, 5.0748e-19, 5.0862e-19, 5.0976e-19, 5.1090e-19,
1256  $ 5.1468e-19, 5.1846e-19, 5.2224e-19, 5.2602e-19, 5.2980e-19,
1257  $ 5.3256e-19, 5.3532e-19, 5.3808e-19, 5.4084e-19, 5.4360e-19,
1258  $ 5.4746e-19, 5.5132e-19, 5.5518e-19, 5.5904e-19, 5.6290e-19,
1259  $ 5.6474e-19, 5.6658e-19, 5.6842e-19, 5.7026e-19, 5.7210e-19,
1260  $ 5.7070e-19, 5.6930e-19, 5.6790e-19, 5.6650e-19, 5.6510e-19,
1261  $ 5.6097e-19, 5.5683e-19, 5.5270e-19, 5.4857e-19, 5.4443e-19,
1262  $ 5.4030e-19, 5.3468e-19, 5.2906e-19, 5.2344e-19, 5.1782e-19,
1263  $ 5.1220e-19, 5.0586e-19, 4.9952e-19, 4.9318e-19, 4.8684e-19,
1264  $ 4.8050e-19, 4.7758e-19, 4.7466e-19, 4.7174e-19, 4.6882e-19,
1265  $ 4.6590e-19, 4.6782e-19, 4.6974e-19, 4.7166e-19, 4.7358e-19,
1266  $ 4.7550e-19, 4.8300e-19, 4.9050e-19, 4.9800e-19, 5.0550e-19,
1267  $ 5.1300e-19, 5.1818e-19, 5.2336e-19, 5.2854e-19, 5.3372e-19,
1268  $ 5.3890e-19, 5.3842e-19, 5.3793e-19, 5.3745e-19, 5.3697e-19,
1269  $ 5.3648e-19, 5.3600e-19, 5.2954e-19, 5.2308e-19, 5.1662e-19,
1270  $ 5.1016e-19, 5.0370e-19, 4.9698e-19, 4.9026e-19, 4.8354e-19/
1271 
1272  DATA (rno2cf(i),i=1401,1500) /
1273  $ 4.7682e-19, 4.7010e-19, 4.6432e-19, 4.5854e-19, 4.5276e-19,
1274  $ 4.4698e-19, 4.4120e-19, 4.3846e-19, 4.3572e-19, 4.3298e-19,
1275  $ 4.3024e-19, 4.2750e-19, 4.2716e-19, 4.2682e-19, 4.2648e-19,
1276  $ 4.2614e-19, 4.2580e-19, 4.2780e-19, 4.2980e-19, 4.3180e-19,
1277  $ 4.3380e-19, 4.3580e-19, 4.3785e-19, 4.3990e-19, 4.4195e-19,
1278  $ 4.4400e-19, 4.4605e-19, 4.4810e-19, 4.5276e-19, 4.5742e-19,
1279  $ 4.6208e-19, 4.6674e-19, 4.7140e-19, 4.7666e-19, 4.8192e-19,
1280  $ 4.8718e-19, 4.9244e-19, 4.9770e-19, 5.0108e-19, 5.0446e-19,
1281  $ 5.0784e-19, 5.1122e-19, 5.1460e-19, 5.1274e-19, 5.1088e-19,
1282  $ 5.0902e-19, 5.0716e-19, 5.0530e-19, 5.0140e-19, 4.9750e-19,
1283  $ 4.9360e-19, 4.8970e-19, 4.8580e-19, 4.8148e-19, 4.7716e-19,
1284  $ 4.7284e-19, 4.6852e-19, 4.6420e-19, 4.6472e-19, 4.6523e-19,
1285  $ 4.6575e-19, 4.6627e-19, 4.6678e-19, 4.6730e-19, 4.7254e-19,
1286  $ 4.7778e-19, 4.8302e-19, 4.8826e-19, 4.9350e-19, 4.9926e-19,
1287  $ 5.0502e-19, 5.1078e-19, 5.1654e-19, 5.2230e-19, 5.2098e-19,
1288  $ 5.1966e-19, 5.1834e-19, 5.1702e-19, 5.1570e-19, 5.1014e-19,
1289  $ 5.0458e-19, 4.9902e-19, 4.9346e-19, 4.8790e-19, 4.8184e-19,
1290  $ 4.7578e-19, 4.6972e-19, 4.6366e-19, 4.5760e-19, 4.5516e-19,
1291  $ 4.5272e-19, 4.5028e-19, 4.4784e-19, 4.4540e-19, 4.4475e-19,
1292  $ 4.4410e-19, 4.4345e-19, 4.4280e-19, 4.4215e-19, 4.4150e-19/
1293 
1294  DATA (rno2cf(i),i=1501,1600) /
1295  $ 4.4138e-19, 4.4126e-19, 4.4114e-19, 4.4102e-19, 4.4090e-19,
1296  $ 4.4048e-19, 4.4006e-19, 4.3964e-19, 4.3922e-19, 4.3880e-19,
1297  $ 4.3988e-19, 4.4096e-19, 4.4204e-19, 4.4312e-19, 4.4420e-19,
1298  $ 4.4404e-19, 4.4388e-19, 4.4372e-19, 4.4356e-19, 4.4340e-19,
1299  $ 4.4238e-19, 4.4136e-19, 4.4034e-19, 4.3932e-19, 4.3830e-19,
1300  $ 4.3558e-19, 4.3286e-19, 4.3014e-19, 4.2742e-19, 4.2470e-19,
1301  $ 4.2348e-19, 4.2226e-19, 4.2104e-19, 4.1982e-19, 4.1860e-19,
1302  $ 4.1873e-19, 4.1887e-19, 4.1900e-19, 4.1913e-19, 4.1927e-19,
1303  $ 4.1940e-19, 4.1954e-19, 4.1968e-19, 4.1982e-19, 4.1996e-19,
1304  $ 4.2010e-19, 4.1878e-19, 4.1746e-19, 4.1614e-19, 4.1482e-19,
1305  $ 4.1350e-19, 4.1188e-19, 4.1026e-19, 4.0864e-19, 4.0702e-19,
1306  $ 4.0540e-19, 4.0426e-19, 4.0312e-19, 4.0198e-19, 4.0084e-19,
1307  $ 3.9970e-19, 4.0238e-19, 4.0506e-19, 4.0774e-19, 4.1042e-19,
1308  $ 4.1310e-19, 4.1658e-19, 4.2006e-19, 4.2354e-19, 4.2702e-19,
1309  $ 4.3050e-19, 4.3172e-19, 4.3293e-19, 4.3415e-19, 4.3537e-19,
1310  $ 4.3658e-19, 4.3780e-19, 4.3580e-19, 4.3380e-19, 4.3180e-19,
1311  $ 4.2980e-19, 4.2780e-19, 4.2648e-19, 4.2516e-19, 4.2384e-19,
1312  $ 4.2252e-19, 4.2120e-19, 4.2142e-19, 4.2164e-19, 4.2186e-19,
1313  $ 4.2208e-19, 4.2230e-19, 4.2382e-19, 4.2534e-19, 4.2686e-19,
1314  $ 4.2838e-19, 4.2990e-19, 4.2902e-19, 4.2814e-19, 4.2726e-19/
1315 
1316  DATA (rno2cf(i),i=1601,1700) /
1317  $ 4.2638e-19, 4.2550e-19, 4.2326e-19, 4.2102e-19, 4.1878e-19,
1318  $ 4.1654e-19, 4.1430e-19, 4.1243e-19, 4.1057e-19, 4.0870e-19,
1319  $ 4.0683e-19, 4.0497e-19, 4.0310e-19, 4.0486e-19, 4.0662e-19,
1320  $ 4.0838e-19, 4.1014e-19, 4.1190e-19, 4.1594e-19, 4.1998e-19,
1321  $ 4.2402e-19, 4.2806e-19, 4.3210e-19, 4.3454e-19, 4.3698e-19,
1322  $ 4.3942e-19, 4.4186e-19, 4.4430e-19, 4.4190e-19, 4.3950e-19,
1323  $ 4.3710e-19, 4.3470e-19, 4.3230e-19, 4.2844e-19, 4.2458e-19,
1324  $ 4.2072e-19, 4.1686e-19, 4.1300e-19, 4.0726e-19, 4.0152e-19,
1325  $ 3.9578e-19, 3.9004e-19, 3.8430e-19, 3.8008e-19, 3.7587e-19,
1326  $ 3.7165e-19, 3.6743e-19, 3.6322e-19, 3.5900e-19, 3.5662e-19,
1327  $ 3.5424e-19, 3.5186e-19, 3.4948e-19, 3.4710e-19, 3.4972e-19,
1328  $ 3.5234e-19, 3.5496e-19, 3.5758e-19, 3.6020e-19, 3.6330e-19,
1329  $ 3.6640e-19, 3.6950e-19, 3.7260e-19, 3.7570e-19, 3.7702e-19,
1330  $ 3.7834e-19, 3.7966e-19, 3.8098e-19, 3.8230e-19, 3.8052e-19,
1331  $ 3.7874e-19, 3.7696e-19, 3.7518e-19, 3.7340e-19, 3.7058e-19,
1332  $ 3.6776e-19, 3.6494e-19, 3.6212e-19, 3.5930e-19, 3.5657e-19,
1333  $ 3.5383e-19, 3.5110e-19, 3.4837e-19, 3.4563e-19, 3.4290e-19,
1334  $ 3.4116e-19, 3.3942e-19, 3.3768e-19, 3.3594e-19, 3.3420e-19,
1335  $ 3.3324e-19, 3.3228e-19, 3.3132e-19, 3.3036e-19, 3.2940e-19,
1336  $ 3.2954e-19, 3.2968e-19, 3.2982e-19, 3.2996e-19, 3.3010e-19/
1337 
1338  DATA (rno2cf(i),i=1701,1800) /
1339  $ 3.2958e-19, 3.2906e-19, 3.2854e-19, 3.2802e-19, 3.2750e-19,
1340  $ 3.2834e-19, 3.2918e-19, 3.3002e-19, 3.3086e-19, 3.3170e-19,
1341  $ 3.3226e-19, 3.3282e-19, 3.3338e-19, 3.3394e-19, 3.3450e-19,
1342  $ 3.3580e-19, 3.3710e-19, 3.3840e-19, 3.3970e-19, 3.4100e-19,
1343  $ 3.4230e-19, 3.4540e-19, 3.4850e-19, 3.5160e-19, 3.5470e-19,
1344  $ 3.5780e-19, 3.6314e-19, 3.6848e-19, 3.7382e-19, 3.7916e-19,
1345  $ 3.8450e-19, 3.8754e-19, 3.9058e-19, 3.9362e-19, 3.9666e-19,
1346  $ 3.9970e-19, 4.0046e-19, 4.0122e-19, 4.0198e-19, 4.0274e-19,
1347  $ 4.0350e-19, 4.0092e-19, 3.9834e-19, 3.9576e-19, 3.9318e-19,
1348  $ 3.9060e-19, 3.8688e-19, 3.8316e-19, 3.7944e-19, 3.7572e-19,
1349  $ 3.7200e-19, 3.6784e-19, 3.6368e-19, 3.5952e-19, 3.5536e-19,
1350  $ 3.5120e-19, 3.4892e-19, 3.4663e-19, 3.4435e-19, 3.4207e-19,
1351  $ 3.3978e-19, 3.3750e-19, 3.3542e-19, 3.3334e-19, 3.3126e-19,
1352  $ 3.2918e-19, 3.2710e-19, 3.2620e-19, 3.2530e-19, 3.2440e-19,
1353  $ 3.2350e-19, 3.2260e-19, 3.2196e-19, 3.2132e-19, 3.2068e-19,
1354  $ 3.2004e-19, 3.1940e-19, 3.2064e-19, 3.2188e-19, 3.2312e-19,
1355  $ 3.2436e-19, 3.2560e-19, 3.2778e-19, 3.2996e-19, 3.3214e-19,
1356  $ 3.3432e-19, 3.3650e-19, 3.3798e-19, 3.3946e-19, 3.4094e-19,
1357  $ 3.4242e-19, 3.4390e-19, 3.4290e-19, 3.4190e-19, 3.4090e-19,
1358  $ 3.3990e-19, 3.3890e-19, 3.3790e-19, 3.3660e-19, 3.3530e-19/
1359 
1360  DATA (rno2cf(i),i=1801,1900) /
1361  $ 3.3400e-19, 3.3270e-19, 3.3140e-19, 3.2964e-19, 3.2788e-19,
1362  $ 3.2612e-19, 3.2436e-19, 3.2260e-19, 3.1992e-19, 3.1724e-19,
1363  $ 3.1456e-19, 3.1188e-19, 3.0920e-19, 3.0536e-19, 3.0152e-19,
1364  $ 2.9768e-19, 2.9384e-19, 2.9000e-19, 2.8672e-19, 2.8344e-19,
1365  $ 2.8016e-19, 2.7688e-19, 2.7360e-19, 2.7110e-19, 2.6860e-19,
1366  $ 2.6610e-19, 2.6360e-19, 2.6110e-19, 2.6080e-19, 2.6050e-19,
1367  $ 2.6020e-19, 2.5990e-19, 2.5960e-19, 2.5930e-19, 2.5980e-19,
1368  $ 2.6030e-19, 2.6080e-19, 2.6130e-19, 2.6180e-19, 2.6292e-19,
1369  $ 2.6404e-19, 2.6516e-19, 2.6628e-19, 2.6740e-19, 2.6776e-19,
1370  $ 2.6812e-19, 2.6848e-19, 2.6884e-19, 2.6920e-19, 2.6938e-19,
1371  $ 2.6956e-19, 2.6974e-19, 2.6992e-19, 2.7010e-19, 2.6936e-19,
1372  $ 2.6862e-19, 2.6788e-19, 2.6714e-19, 2.6640e-19, 2.6642e-19,
1373  $ 2.6644e-19, 2.6646e-19, 2.6648e-19, 2.6650e-19, 2.6780e-19,
1374  $ 2.6910e-19, 2.7040e-19, 2.7170e-19, 2.7300e-19, 2.7430e-19,
1375  $ 2.7870e-19, 2.8310e-19, 2.8750e-19, 2.9190e-19, 2.9630e-19,
1376  $ 3.0128e-19, 3.0626e-19, 3.1124e-19, 3.1622e-19, 3.2120e-19,
1377  $ 3.2352e-19, 3.2584e-19, 3.2816e-19, 3.3048e-19, 3.3280e-19,
1378  $ 3.3090e-19, 3.2900e-19, 3.2710e-19, 3.2520e-19, 3.2330e-19,
1379  $ 3.1954e-19, 3.1578e-19, 3.1202e-19, 3.0826e-19, 3.0450e-19,
1380  $ 2.9970e-19, 2.9490e-19, 2.9010e-19, 2.8530e-19, 2.8050e-19/
1381 
1382  DATA (rno2cf(i),i=1901,2000) /
1383  $ 2.7745e-19, 2.7440e-19, 2.7135e-19, 2.6830e-19, 2.6525e-19,
1384  $ 2.6220e-19, 2.6030e-19, 2.5840e-19, 2.5650e-19, 2.5460e-19,
1385  $ 2.5270e-19, 2.5250e-19, 2.5230e-19, 2.5210e-19, 2.5190e-19,
1386  $ 2.5170e-19, 2.5196e-19, 2.5222e-19, 2.5248e-19, 2.5274e-19,
1387  $ 2.5300e-19, 2.5472e-19, 2.5644e-19, 2.5816e-19, 2.5988e-19,
1388  $ 2.6160e-19, 2.6364e-19, 2.6568e-19, 2.6772e-19, 2.6976e-19,
1389  $ 2.7180e-19, 2.7408e-19, 2.7636e-19, 2.7864e-19, 2.8092e-19,
1390  $ 2.8320e-19, 2.8393e-19, 2.8467e-19, 2.8540e-19, 2.8613e-19,
1391  $ 2.8687e-19, 2.8760e-19, 2.8760e-19, 2.8760e-19, 2.8760e-19,
1392  $ 2.8760e-19, 2.8760e-19, 2.8692e-19, 2.8624e-19, 2.8556e-19,
1393  $ 2.8488e-19, 2.8420e-19, 2.8324e-19, 2.8228e-19, 2.8132e-19,
1394  $ 2.8036e-19, 2.7940e-19, 2.7670e-19, 2.7400e-19, 2.7130e-19,
1395  $ 2.6860e-19, 2.6590e-19, 2.6226e-19, 2.5862e-19, 2.5498e-19,
1396  $ 2.5134e-19, 2.4770e-19, 2.4366e-19, 2.3962e-19, 2.3558e-19,
1397  $ 2.3154e-19, 2.2750e-19, 2.2428e-19, 2.2106e-19, 2.1784e-19,
1398  $ 2.1462e-19, 2.1140e-19, 2.0905e-19, 2.0670e-19, 2.0435e-19,
1399  $ 2.0200e-19, 1.9965e-19, 1.9730e-19, 1.9536e-19, 1.9342e-19,
1400  $ 1.9148e-19, 1.8954e-19, 1.8760e-19, 1.8640e-19, 1.8520e-19,
1401  $ 1.8400e-19, 1.8280e-19, 1.8160e-19, 1.8166e-19, 1.8172e-19,
1402  $ 1.8178e-19, 1.8184e-19, 1.8190e-19, 1.8264e-19, 1.8338e-19/
1403 
1404  DATA (rno2cf(i),i=2001,2100) /
1405  $ 1.8412e-19, 1.8486e-19, 1.8560e-19, 1.8710e-19, 1.8860e-19,
1406  $ 1.9010e-19, 1.9160e-19, 1.9310e-19, 1.9528e-19, 1.9746e-19,
1407  $ 1.9964e-19, 2.0182e-19, 2.0400e-19, 2.0643e-19, 2.0887e-19,
1408  $ 2.1130e-19, 2.1373e-19, 2.1617e-19, 2.1860e-19, 2.2002e-19,
1409  $ 2.2144e-19, 2.2286e-19, 2.2428e-19, 2.2570e-19, 2.2582e-19,
1410  $ 2.2594e-19, 2.2606e-19, 2.2618e-19, 2.2630e-19, 2.2716e-19,
1411  $ 2.2802e-19, 2.2888e-19, 2.2974e-19, 2.3060e-19, 2.3302e-19,
1412  $ 2.3544e-19, 2.3786e-19, 2.4028e-19, 2.4270e-19, 2.4348e-19,
1413  $ 2.4426e-19, 2.4504e-19, 2.4582e-19, 2.4660e-19, 2.4510e-19,
1414  $ 2.4360e-19, 2.4210e-19, 2.4060e-19, 2.3910e-19, 2.3710e-19,
1415  $ 2.3510e-19, 2.3310e-19, 2.3110e-19, 2.2910e-19, 2.2710e-19,
1416  $ 2.2514e-19, 2.2318e-19, 2.2122e-19, 2.1926e-19, 2.1730e-19,
1417  $ 2.1532e-19, 2.1334e-19, 2.1136e-19, 2.0938e-19, 2.0740e-19,
1418  $ 2.0640e-19, 2.0540e-19, 2.0440e-19, 2.0340e-19, 2.0240e-19,
1419  $ 2.0244e-19, 2.0248e-19, 2.0252e-19, 2.0256e-19, 2.0260e-19,
1420  $ 2.0404e-19, 2.0548e-19, 2.0692e-19, 2.0836e-19, 2.0980e-19,
1421  $ 2.1146e-19, 2.1312e-19, 2.1478e-19, 2.1644e-19, 2.1810e-19,
1422  $ 2.1933e-19, 2.2057e-19, 2.2180e-19, 2.2303e-19, 2.2427e-19,
1423  $ 2.2550e-19, 2.2564e-19, 2.2578e-19, 2.2592e-19, 2.2606e-19,
1424  $ 2.2620e-19, 2.2578e-19, 2.2536e-19, 2.2494e-19, 2.2452e-19/
1425 
1426  DATA (rno2cf(i),i=2101,2200) /
1427  $ 2.2410e-19, 2.2312e-19, 2.2214e-19, 2.2116e-19, 2.2018e-19,
1428  $ 2.1920e-19, 2.1846e-19, 2.1772e-19, 2.1698e-19, 2.1624e-19,
1429  $ 2.1550e-19, 2.1474e-19, 2.1398e-19, 2.1322e-19, 2.1246e-19,
1430  $ 2.1170e-19, 2.1048e-19, 2.0926e-19, 2.0804e-19, 2.0682e-19,
1431  $ 2.0560e-19, 2.0355e-19, 2.0150e-19, 1.9945e-19, 1.9740e-19,
1432  $ 1.9535e-19, 1.9330e-19, 1.9116e-19, 1.8902e-19, 1.8688e-19,
1433  $ 1.8474e-19, 1.8260e-19, 1.8070e-19, 1.7880e-19, 1.7690e-19,
1434  $ 1.7500e-19, 1.7310e-19, 1.7156e-19, 1.7002e-19, 1.6848e-19,
1435  $ 1.6694e-19, 1.6540e-19, 1.6398e-19, 1.6256e-19, 1.6114e-19,
1436  $ 1.5972e-19, 1.5830e-19, 1.5746e-19, 1.5662e-19, 1.5578e-19,
1437  $ 1.5494e-19, 1.5410e-19, 1.5316e-19, 1.5222e-19, 1.5128e-19,
1438  $ 1.5034e-19, 1.4940e-19, 1.4877e-19, 1.4813e-19, 1.4750e-19,
1439  $ 1.4687e-19, 1.4623e-19, 1.4560e-19, 1.4526e-19, 1.4492e-19,
1440  $ 1.4458e-19, 1.4424e-19, 1.4390e-19, 1.4496e-19, 1.4602e-19,
1441  $ 1.4708e-19, 1.4814e-19, 1.4920e-19, 1.5096e-19, 1.5272e-19,
1442  $ 1.5448e-19, 1.5624e-19, 1.5800e-19, 1.5926e-19, 1.6052e-19,
1443  $ 1.6178e-19, 1.6304e-19, 1.6430e-19, 1.6468e-19, 1.6506e-19,
1444  $ 1.6544e-19, 1.6582e-19, 1.6620e-19, 1.6624e-19, 1.6628e-19,
1445  $ 1.6632e-19, 1.6636e-19, 1.6640e-19, 1.6572e-19, 1.6503e-19,
1446  $ 1.6435e-19, 1.6367e-19, 1.6298e-19, 1.6230e-19, 1.6112e-19/
1447 
1448  DATA (rno2cf(i),i=2201,2300) /
1449  $ 1.5994e-19, 1.5876e-19, 1.5758e-19, 1.5640e-19, 1.5508e-19,
1450  $ 1.5376e-19, 1.5244e-19, 1.5112e-19, 1.4980e-19, 1.4918e-19,
1451  $ 1.4856e-19, 1.4794e-19, 1.4732e-19, 1.4670e-19, 1.4644e-19,
1452  $ 1.4618e-19, 1.4592e-19, 1.4566e-19, 1.4540e-19, 1.4556e-19,
1453  $ 1.4572e-19, 1.4588e-19, 1.4604e-19, 1.4620e-19, 1.4622e-19,
1454  $ 1.4624e-19, 1.4626e-19, 1.4628e-19, 1.4630e-19, 1.4716e-19,
1455  $ 1.4802e-19, 1.4888e-19, 1.4974e-19, 1.5060e-19, 1.5227e-19,
1456  $ 1.5393e-19, 1.5560e-19, 1.5727e-19, 1.5893e-19, 1.6060e-19,
1457  $ 1.6314e-19, 1.6568e-19, 1.6822e-19, 1.7076e-19, 1.7330e-19,
1458  $ 1.7468e-19, 1.7606e-19, 1.7744e-19, 1.7882e-19, 1.8020e-19,
1459  $ 1.8058e-19, 1.8096e-19, 1.8134e-19, 1.8172e-19, 1.8210e-19,
1460  $ 1.8118e-19, 1.8026e-19, 1.7934e-19, 1.7842e-19, 1.7750e-19,
1461  $ 1.7606e-19, 1.7462e-19, 1.7318e-19, 1.7174e-19, 1.7030e-19,
1462  $ 1.6902e-19, 1.6774e-19, 1.6646e-19, 1.6518e-19, 1.6390e-19,
1463  $ 1.6317e-19, 1.6243e-19, 1.6170e-19, 1.6097e-19, 1.6023e-19,
1464  $ 1.5950e-19, 1.5820e-19, 1.5690e-19, 1.5560e-19, 1.5430e-19,
1465  $ 1.5300e-19, 1.5190e-19, 1.5080e-19, 1.4970e-19, 1.4860e-19,
1466  $ 1.4750e-19, 1.4660e-19, 1.4570e-19, 1.4480e-19, 1.4390e-19,
1467  $ 1.4300e-19, 1.4292e-19, 1.4284e-19, 1.4276e-19, 1.4268e-19,
1468  $ 1.4260e-19, 1.4240e-19, 1.4220e-19, 1.4200e-19, 1.4180e-19/
1469 
1470  DATA (rno2cf(i),i=2301,2400) /
1471  $ 1.4160e-19, 1.4146e-19, 1.4132e-19, 1.4118e-19, 1.4104e-19,
1472  $ 1.4090e-19, 1.4072e-19, 1.4053e-19, 1.4035e-19, 1.4017e-19,
1473  $ 1.3998e-19, 1.3980e-19, 1.3982e-19, 1.3984e-19, 1.3986e-19,
1474  $ 1.3988e-19, 1.3990e-19, 1.3938e-19, 1.3886e-19, 1.3834e-19,
1475  $ 1.3782e-19, 1.3730e-19, 1.3626e-19, 1.3522e-19, 1.3418e-19,
1476  $ 1.3314e-19, 1.3210e-19, 1.3062e-19, 1.2914e-19, 1.2766e-19,
1477  $ 1.2618e-19, 1.2470e-19, 1.2338e-19, 1.2206e-19, 1.2074e-19,
1478  $ 1.1942e-19, 1.1810e-19, 1.1638e-19, 1.1466e-19, 1.1294e-19,
1479  $ 1.1122e-19, 1.0950e-19, 1.0820e-19, 1.0690e-19, 1.0560e-19,
1480  $ 1.0430e-19, 1.0300e-19, 1.0170e-19, 1.0062e-19, 9.9540e-20,
1481  $ 9.8460e-20, 9.7380e-20, 9.6300e-20, 9.5902e-20, 9.5504e-20,
1482  $ 9.5106e-20, 9.4708e-20, 9.4310e-20, 9.4004e-20, 9.3698e-20,
1483  $ 9.3392e-20, 9.3086e-20, 9.2780e-20, 9.2984e-20, 9.3188e-20,
1484  $ 9.3392e-20, 9.3596e-20, 9.3800e-20, 9.4626e-20, 9.5452e-20,
1485  $ 9.6278e-20, 9.7104e-20, 9.7929e-20, 9.9244e-20, 1.0056e-19,
1486  $ 1.0187e-19, 1.0319e-19, 1.0450e-19, 1.0508e-19, 1.0567e-19,
1487  $ 1.0625e-19, 1.0683e-19, 1.0742e-19, 1.0800e-19, 1.0786e-19,
1488  $ 1.0772e-19, 1.0758e-19, 1.0744e-19, 1.0730e-19, 1.0614e-19,
1489  $ 1.0498e-19, 1.0382e-19, 1.0266e-19, 1.0150e-19, 1.0056e-19,
1490  $ 9.9612e-20, 9.8668e-20, 9.7724e-20, 9.6780e-20, 9.6676e-20/
1491 
1492  DATA (rno2cf(i),i=2401,2500) /
1493  $ 9.6572e-20, 9.6468e-20, 9.6364e-20, 9.6260e-20, 9.7488e-20,
1494  $ 9.8716e-20, 9.9944e-20, 1.0117e-19, 1.0240e-19, 1.0404e-19,
1495  $ 1.0568e-19, 1.0732e-19, 1.0896e-19, 1.1060e-19, 1.1185e-19,
1496  $ 1.1310e-19, 1.1435e-19, 1.1560e-19, 1.1685e-19, 1.1810e-19,
1497  $ 1.1884e-19, 1.1958e-19, 1.2032e-19, 1.2106e-19, 1.2180e-19,
1498  $ 1.2186e-19, 1.2192e-19, 1.2198e-19, 1.2204e-19, 1.2210e-19,
1499  $ 1.2154e-19, 1.2098e-19, 1.2042e-19, 1.1986e-19, 1.1930e-19,
1500  $ 1.1924e-19, 1.1918e-19, 1.1912e-19, 1.1906e-19, 1.1900e-19,
1501  $ 1.1922e-19, 1.1944e-19, 1.1966e-19, 1.1988e-19, 1.2010e-19,
1502  $ 1.1986e-19, 1.1962e-19, 1.1938e-19, 1.1914e-19, 1.1890e-19,
1503  $ 1.1778e-19, 1.1666e-19, 1.1554e-19, 1.1442e-19, 1.1330e-19,
1504  $ 1.1265e-19, 1.1200e-19, 1.1135e-19, 1.1070e-19, 1.1005e-19,
1505  $ 1.0940e-19, 1.0940e-19, 1.0940e-19, 1.0940e-19, 1.0940e-19,
1506  $ 1.0940e-19, 1.0998e-19, 1.1056e-19, 1.1114e-19, 1.1172e-19,
1507  $ 1.1230e-19, 1.1244e-19, 1.1258e-19, 1.1272e-19, 1.1286e-19,
1508  $ 1.1300e-19, 1.1312e-19, 1.1324e-19, 1.1336e-19, 1.1348e-19,
1509  $ 1.1360e-19, 1.1332e-19, 1.1304e-19, 1.1276e-19, 1.1248e-19,
1510  $ 1.1220e-19, 1.1140e-19, 1.1060e-19, 1.0980e-19, 1.0900e-19,
1511  $ 1.0820e-19, 1.0713e-19, 1.0607e-19, 1.0500e-19, 1.0393e-19,
1512  $ 1.0287e-19, 1.0180e-19, 1.0077e-19, 9.9743e-20, 9.8716e-20/
1513 
1514  DATA (rno2cf(i),i=2501,2600) /
1515  $ 9.7688e-20, 9.6660e-20, 9.5662e-20, 9.4664e-20, 9.3666e-20,
1516  $ 9.2667e-20, 9.1670e-20, 9.1270e-20, 9.0870e-20, 9.0470e-20,
1517  $ 9.0070e-20, 8.9670e-20, 8.9698e-20, 8.9726e-20, 8.9754e-20,
1518  $ 8.9782e-20, 8.9810e-20, 9.0300e-20, 9.0790e-20, 9.1280e-20,
1519  $ 9.1770e-20, 9.2260e-20, 9.2374e-20, 9.2488e-20, 9.2602e-20,
1520  $ 9.2716e-20, 9.2830e-20, 9.2468e-20, 9.2107e-20, 9.1745e-20,
1521  $ 9.1383e-20, 9.1022e-20, 9.0660e-20, 8.9662e-20, 8.8664e-20,
1522  $ 8.7666e-20, 8.6668e-20, 8.5671e-20, 8.4562e-20, 8.3454e-20,
1523  $ 8.2346e-20, 8.1238e-20, 8.0130e-20, 7.8882e-20, 7.7634e-20,
1524  $ 7.6386e-20, 7.5138e-20, 7.3890e-20, 7.2950e-20, 7.2010e-20,
1525  $ 7.1070e-20, 7.0131e-20, 6.9191e-20, 6.8562e-20, 6.7934e-20,
1526  $ 6.7306e-20, 6.6678e-20, 6.6050e-20, 6.5896e-20, 6.5742e-20,
1527  $ 6.5588e-20, 6.5434e-20, 6.5280e-20, 6.5105e-20, 6.4930e-20,
1528  $ 6.4755e-20, 6.4580e-20, 6.4405e-20, 6.4230e-20, 6.4162e-20,
1529  $ 6.4094e-20, 6.4026e-20, 6.3958e-20, 6.3890e-20, 6.3640e-20,
1530  $ 6.3390e-20, 6.3140e-20, 6.2890e-20, 6.2640e-20, 6.2244e-20,
1531  $ 6.1848e-20, 6.1452e-20, 6.1056e-20, 6.0660e-20, 6.0232e-20,
1532  $ 5.9804e-20, 5.9376e-20, 5.8948e-20, 5.8520e-20, 5.8496e-20,
1533  $ 5.8472e-20, 5.8448e-20, 5.8424e-20, 5.8400e-20, 5.8600e-20,
1534  $ 5.8800e-20, 5.9000e-20, 5.9200e-20, 5.9400e-20, 5.9799e-20/
1535 
1536  DATA (rno2cf(i),i=2601,2700) /
1537  $ 6.0197e-20, 6.0595e-20, 6.0993e-20, 6.1392e-20, 6.1790e-20,
1538  $ 6.2232e-20, 6.2674e-20, 6.3116e-20, 6.3558e-20, 6.4000e-20,
1539  $ 6.4530e-20, 6.5060e-20, 6.5590e-20, 6.6120e-20, 6.6650e-20,
1540  $ 6.7262e-20, 6.7874e-20, 6.8486e-20, 6.9098e-20, 6.9710e-20,
1541  $ 7.0888e-20, 7.2066e-20, 7.3244e-20, 7.4421e-20, 7.5599e-20,
1542  $ 7.6895e-20, 7.8192e-20, 7.9488e-20, 8.0785e-20, 8.2080e-20,
1543  $ 8.3175e-20, 8.4272e-20, 8.5368e-20, 8.6464e-20, 8.7560e-20,
1544  $ 8.7885e-20, 8.8210e-20, 8.8535e-20, 8.8860e-20, 8.9185e-20,
1545  $ 8.9510e-20, 8.9154e-20, 8.8798e-20, 8.8442e-20, 8.8086e-20,
1546  $ 8.7730e-20, 8.6414e-20, 8.5098e-20, 8.3781e-20, 8.2465e-20,
1547  $ 8.1150e-20, 7.9546e-20, 7.7943e-20, 7.6338e-20, 7.4734e-20,
1548  $ 7.3130e-20, 7.1820e-20, 7.0510e-20, 6.9200e-20, 6.7890e-20,
1549  $ 6.6580e-20, 6.6238e-20, 6.5896e-20, 6.5554e-20, 6.5212e-20,
1550  $ 6.4870e-20, 6.5132e-20, 6.5394e-20, 6.5656e-20, 6.5918e-20,
1551  $ 6.6180e-20, 6.6770e-20, 6.7360e-20, 6.7950e-20, 6.8540e-20,
1552  $ 6.9130e-20, 6.9155e-20, 6.9180e-20, 6.9205e-20, 6.9230e-20,
1553  $ 6.9255e-20, 6.9280e-20, 6.9238e-20, 6.9196e-20, 6.9154e-20,
1554  $ 6.9112e-20, 6.9070e-20, 6.9142e-20, 6.9214e-20, 6.9286e-20,
1555  $ 6.9358e-20, 6.9430e-20, 7.0079e-20, 7.0726e-20, 7.1374e-20,
1556  $ 7.2022e-20, 7.2670e-20, 7.3330e-20, 7.3990e-20, 7.4650e-20/
1557 
1558  DATA (rno2cf(i),i=2701,2800) /
1559  $ 7.5310e-20, 7.5970e-20, 7.6456e-20, 7.6942e-20, 7.7428e-20,
1560  $ 7.7914e-20, 7.8400e-20, 7.8310e-20, 7.8220e-20, 7.8130e-20,
1561  $ 7.8040e-20, 7.7950e-20, 7.7610e-20, 7.7270e-20, 7.6930e-20,
1562  $ 7.6590e-20, 7.6250e-20, 7.5910e-20, 7.4858e-20, 7.3806e-20,
1563  $ 7.2754e-20, 7.1702e-20, 7.0650e-20, 6.9624e-20, 6.8598e-20,
1564  $ 6.7572e-20, 6.6546e-20, 6.5520e-20, 6.4352e-20, 6.3184e-20,
1565  $ 6.2016e-20, 6.0848e-20, 5.9680e-20, 5.8724e-20, 5.7768e-20,
1566  $ 5.6812e-20, 5.5856e-20, 5.4900e-20, 5.3970e-20, 5.3040e-20,
1567  $ 5.2110e-20, 5.1180e-20, 5.0250e-20, 4.9586e-20, 4.8922e-20,
1568  $ 4.8258e-20, 4.7594e-20, 4.6930e-20, 4.6283e-20, 4.5636e-20,
1569  $ 4.4990e-20, 4.4343e-20, 4.3697e-20, 4.3050e-20, 4.2510e-20,
1570  $ 4.1970e-20, 4.1430e-20, 4.0890e-20, 4.0350e-20, 3.9934e-20,
1571  $ 3.9518e-20, 3.9102e-20, 3.8686e-20, 3.8270e-20, 3.8256e-20,
1572  $ 3.8242e-20, 3.8228e-20, 3.8214e-20, 3.8200e-20, 3.8416e-20,
1573  $ 3.8632e-20, 3.8848e-20, 3.9064e-20, 3.9280e-20, 3.9894e-20,
1574  $ 4.0508e-20, 4.1122e-20, 4.1736e-20, 4.2350e-20, 4.2898e-20,
1575  $ 4.3446e-20, 4.3994e-20, 4.4542e-20, 4.5090e-20, 4.5427e-20,
1576  $ 4.5763e-20, 4.6100e-20, 4.6437e-20, 4.6773e-20, 4.7110e-20,
1577  $ 4.7104e-20, 4.7098e-20, 4.7092e-20, 4.7086e-20, 4.7080e-20,
1578  $ 4.6858e-20, 4.6636e-20, 4.6414e-20, 4.6192e-20, 4.5970e-20/
1579 
1580  DATA (rno2cf(i),i=2801,2900) /
1581  $ 4.5378e-20, 4.4786e-20, 4.4194e-20, 4.3602e-20, 4.3010e-20,
1582  $ 4.2520e-20, 4.2030e-20, 4.1540e-20, 4.1050e-20, 4.0560e-20,
1583  $ 4.0084e-20, 3.9608e-20, 3.9132e-20, 3.8656e-20, 3.8180e-20,
1584  $ 3.7976e-20, 3.7772e-20, 3.7568e-20, 3.7364e-20, 3.7160e-20,
1585  $ 3.7072e-20, 3.6983e-20, 3.6895e-20, 3.6807e-20, 3.6718e-20,
1586  $ 3.6630e-20, 3.6826e-20, 3.7022e-20, 3.7218e-20, 3.7414e-20,
1587  $ 3.7610e-20, 3.7932e-20, 3.8254e-20, 3.8576e-20, 3.8898e-20,
1588  $ 3.9220e-20, 3.9858e-20, 4.0496e-20, 4.1134e-20, 4.1772e-20,
1589  $ 4.2410e-20, 4.2996e-20, 4.3582e-20, 4.4168e-20, 4.4754e-20,
1590  $ 4.5340e-20, 4.5822e-20, 4.6304e-20, 4.6786e-20, 4.7268e-20,
1591  $ 4.7750e-20, 4.7790e-20, 4.7830e-20, 4.7870e-20, 4.7910e-20,
1592  $ 4.7950e-20, 4.7872e-20, 4.7793e-20, 4.7715e-20, 4.7637e-20,
1593  $ 4.7558e-20, 4.7480e-20, 4.7084e-20, 4.6688e-20, 4.6292e-20,
1594  $ 4.5896e-20, 4.5500e-20, 4.5168e-20, 4.4836e-20, 4.4504e-20,
1595  $ 4.4172e-20, 4.3840e-20, 4.3404e-20, 4.2968e-20, 4.2532e-20,
1596  $ 4.2096e-20, 4.1660e-20, 4.1530e-20, 4.1400e-20, 4.1270e-20,
1597  $ 4.1140e-20, 4.1010e-20, 4.1110e-20, 4.1210e-20, 4.1310e-20,
1598  $ 4.1410e-20, 4.1510e-20, 4.2032e-20, 4.2554e-20, 4.3076e-20,
1599  $ 4.3598e-20, 4.4120e-20, 4.4517e-20, 4.4914e-20, 4.5310e-20,
1600  $ 4.5707e-20, 4.6103e-20, 4.6500e-20, 4.7008e-20, 4.7516e-20/
1601 
1602  DATA (rno2cf(i),i=2901,3000) /
1603  $ 4.8024e-20, 4.8532e-20, 4.9040e-20, 4.9282e-20, 4.9524e-20,
1604  $ 4.9766e-20, 5.0008e-20, 5.0250e-20, 5.0844e-20, 5.1438e-20,
1605  $ 5.2032e-20, 5.2626e-20, 5.3220e-20, 5.3600e-20, 5.3980e-20,
1606  $ 5.4360e-20, 5.4740e-20, 5.5120e-20, 5.5308e-20, 5.5496e-20,
1607  $ 5.5684e-20, 5.5872e-20, 5.6060e-20, 5.5580e-20, 5.5100e-20,
1608  $ 5.4620e-20, 5.4140e-20, 5.3660e-20, 5.2860e-20, 5.2060e-20,
1609  $ 5.1260e-20, 5.0460e-20, 4.9660e-20, 4.8697e-20, 4.7734e-20,
1610  $ 4.6770e-20, 4.5806e-20, 4.4843e-20, 4.3880e-20, 4.3016e-20,
1611  $ 4.2152e-20, 4.1288e-20, 4.0424e-20, 3.9559e-20, 3.8719e-20,
1612  $ 3.7880e-20, 3.7040e-20, 3.6200e-20, 3.5360e-20, 3.4970e-20,
1613  $ 3.4580e-20, 3.4190e-20, 3.3800e-20, 3.3410e-20, 3.3124e-20,
1614  $ 3.2838e-20, 3.2552e-20, 3.2266e-20, 3.1980e-20, 3.1940e-20,
1615  $ 3.1900e-20, 3.1860e-20, 3.1820e-20, 3.1780e-20, 3.1708e-20,
1616  $ 3.1636e-20, 3.1564e-20, 3.1492e-20, 3.1420e-20, 3.1517e-20,
1617  $ 3.1613e-20, 3.1710e-20, 3.1807e-20, 3.1903e-20, 3.2000e-20,
1618  $ 3.2074e-20, 3.2148e-20, 3.2222e-20, 3.2296e-20, 3.2370e-20,
1619  $ 3.2632e-20, 3.2894e-20, 3.3156e-20, 3.3418e-20, 3.3680e-20,
1620  $ 3.3866e-20, 3.4052e-20, 3.4238e-20, 3.4424e-20, 3.4610e-20,
1621  $ 3.4950e-20, 3.5290e-20, 3.5630e-20, 3.5970e-20, 3.6310e-20,
1622  $ 3.6408e-20, 3.6506e-20, 3.6604e-20, 3.6702e-20, 3.6800e-20/
1623 
1624  DATA (rno2cf(i),i=3001,3100) /
1625  $ 3.6876e-20, 3.6952e-20, 3.7028e-20, 3.7104e-20, 3.7180e-20,
1626  $ 3.7007e-20, 3.6833e-20, 3.6660e-20, 3.6487e-20, 3.6313e-20,
1627  $ 3.6140e-20, 3.5880e-20, 3.5620e-20, 3.5360e-20, 3.5100e-20,
1628  $ 3.4840e-20, 3.4286e-20, 3.3732e-20, 3.3178e-20, 3.2624e-20,
1629  $ 3.2070e-20, 3.1472e-20, 3.0874e-20, 3.0276e-20, 2.9678e-20,
1630  $ 2.9080e-20, 2.8344e-20, 2.7608e-20, 2.6872e-20, 2.6136e-20,
1631  $ 2.5400e-20, 2.4988e-20, 2.4576e-20, 2.4164e-20, 2.3752e-20,
1632  $ 2.3340e-20, 2.2980e-20, 2.2620e-20, 2.2260e-20, 2.1900e-20,
1633  $ 2.1540e-20, 2.1467e-20, 2.1393e-20, 2.1320e-20, 2.1247e-20,
1634  $ 2.1173e-20, 2.1100e-20, 2.1004e-20, 2.0908e-20, 2.0812e-20,
1635  $ 2.0716e-20, 2.0620e-20, 2.0656e-20, 2.0692e-20, 2.0728e-20,
1636  $ 2.0764e-20, 2.0800e-20, 2.0736e-20, 2.0672e-20, 2.0608e-20,
1637  $ 2.0544e-20, 2.0480e-20, 2.0562e-20, 2.0644e-20, 2.0726e-20,
1638  $ 2.0808e-20, 2.0890e-20, 2.0886e-20, 2.0882e-20, 2.0878e-20,
1639  $ 2.0874e-20, 2.0870e-20, 2.0992e-20, 2.1114e-20, 2.1236e-20,
1640  $ 2.1358e-20, 2.1480e-20, 2.1475e-20, 2.1470e-20, 2.1465e-20,
1641  $ 2.1460e-20, 2.1455e-20, 2.1450e-20, 2.1512e-20, 2.1574e-20,
1642  $ 2.1636e-20, 2.1698e-20, 2.1760e-20, 2.1704e-20, 2.1648e-20,
1643  $ 2.1592e-20, 2.1536e-20, 2.1480e-20, 2.1674e-20, 2.1868e-20,
1644  $ 2.2062e-20, 2.2256e-20, 2.2450e-20, 2.2724e-20, 2.2998e-20/
1645 
1646  DATA (rno2cf(i),i=3101,3200) /
1647  $ 2.3272e-20, 2.3546e-20, 2.3820e-20, 2.4524e-20, 2.5228e-20,
1648  $ 2.5932e-20, 2.6636e-20, 2.7340e-20, 2.7992e-20, 2.8644e-20,
1649  $ 2.9296e-20, 2.9948e-20, 3.0600e-20, 3.1248e-20, 3.1897e-20,
1650  $ 3.2545e-20, 3.3194e-20, 3.3842e-20, 3.4490e-20, 3.4684e-20,
1651  $ 3.4878e-20, 3.5072e-20, 3.5266e-20, 3.5460e-20, 3.5238e-20,
1652  $ 3.5016e-20, 3.4794e-20, 3.4572e-20, 3.4350e-20, 3.3858e-20,
1653  $ 3.3366e-20, 3.2874e-20, 3.2382e-20, 3.1890e-20, 3.1682e-20,
1654  $ 3.1474e-20, 3.1266e-20, 3.1058e-20, 3.0850e-20, 3.0540e-20,
1655  $ 3.0230e-20, 2.9920e-20, 2.9610e-20, 2.9300e-20, 2.9344e-20,
1656  $ 2.9388e-20, 2.9432e-20, 2.9476e-20, 2.9520e-20, 2.9626e-20,
1657  $ 2.9732e-20, 2.9838e-20, 2.9944e-20, 3.0050e-20, 3.0390e-20,
1658  $ 3.0730e-20, 3.1070e-20, 3.1410e-20, 3.1750e-20, 3.2090e-20,
1659  $ 3.2104e-20, 3.2118e-20, 3.2132e-20, 3.2146e-20, 3.2160e-20,
1660  $ 3.1982e-20, 3.1804e-20, 3.1626e-20, 3.1448e-20, 3.1270e-20,
1661  $ 3.0634e-20, 2.9998e-20, 2.9362e-20, 2.8726e-20, 2.8090e-20,
1662  $ 2.7792e-20, 2.7494e-20, 2.7196e-20, 2.6898e-20, 2.6600e-20,
1663  $ 2.6308e-20, 2.6016e-20, 2.5724e-20, 2.5432e-20, 2.5140e-20,
1664  $ 2.5294e-20, 2.5448e-20, 2.5602e-20, 2.5756e-20, 2.5910e-20,
1665  $ 2.5845e-20, 2.5780e-20, 2.5715e-20, 2.5650e-20, 2.5585e-20,
1666  $ 2.5520e-20, 2.5522e-20, 2.5524e-20, 2.5526e-20, 2.5528e-20/
1667 
1668  DATA (rno2cf(i),i=3201,3300) /
1669  $ 2.5530e-20, 2.5030e-20, 2.4530e-20, 2.4030e-20, 2.3530e-20,
1670  $ 2.3030e-20, 2.3010e-20, 2.2990e-20, 2.2970e-20, 2.2950e-20,
1671  $ 2.2930e-20, 2.2466e-20, 2.2002e-20, 2.1538e-20, 2.1074e-20,
1672  $ 2.0610e-20, 2.0916e-20, 2.1222e-20, 2.1528e-20, 2.1834e-20,
1673  $ 2.2140e-20, 2.1738e-20, 2.1336e-20, 2.0934e-20, 2.0532e-20,
1674  $ 2.0130e-20, 2.0277e-20, 2.0423e-20, 2.0570e-20, 2.0717e-20,
1675  $ 2.0863e-20, 2.1010e-20, 2.0402e-20, 1.9794e-20, 1.9186e-20,
1676  $ 1.8578e-20, 1.7970e-20, 1.8382e-20, 1.8794e-20, 1.9206e-20,
1677  $ 1.9618e-20, 2.0030e-20, 1.9640e-20, 1.9250e-20, 1.8860e-20,
1678  $ 1.8470e-20, 1.8080e-20, 1.8310e-20, 1.8540e-20, 1.8770e-20,
1679  $ 1.9000e-20, 1.9230e-20, 1.8738e-20, 1.8246e-20, 1.7754e-20,
1680  $ 1.7262e-20, 1.6770e-20, 1.7260e-20, 1.7750e-20, 1.8240e-20,
1681  $ 1.8730e-20, 1.9220e-20, 1.8822e-20, 1.8423e-20, 1.8025e-20,
1682  $ 1.7627e-20, 1.7228e-20, 1.6830e-20, 1.7094e-20, 1.7358e-20,
1683  $ 1.7622e-20, 1.7886e-20, 1.8150e-20, 1.7556e-20, 1.6962e-20,
1684  $ 1.6368e-20, 1.5774e-20, 1.5180e-20, 1.5552e-20, 1.5924e-20,
1685  $ 1.6296e-20, 1.6668e-20, 1.7040e-20, 1.6748e-20, 1.6456e-20,
1686  $ 1.6164e-20, 1.5872e-20, 1.5580e-20, 1.6018e-20, 1.6456e-20,
1687  $ 1.6894e-20, 1.7332e-20, 1.7770e-20, 1.7094e-20, 1.6418e-20,
1688  $ 1.5742e-20, 1.5066e-20, 1.4390e-20, 1.4813e-20, 1.5237e-20/
1689 
1690  DATA (rno2cf(i),i=3301,3400) /
1691  $ 1.5660e-20, 1.6083e-20, 1.6507e-20, 1.6930e-20, 1.6466e-20,
1692  $ 1.6002e-20, 1.5538e-20, 1.5074e-20, 1.4610e-20, 1.4978e-20,
1693  $ 1.5346e-20, 1.5714e-20, 1.6082e-20, 1.6450e-20, 1.5794e-20,
1694  $ 1.5138e-20, 1.4482e-20, 1.3826e-20, 1.3170e-20, 1.3774e-20,
1695  $ 1.4378e-20, 1.4982e-20, 1.5586e-20, 1.6190e-20, 1.5648e-20,
1696  $ 1.5106e-20, 1.4564e-20, 1.4022e-20, 1.3480e-20, 1.3998e-20,
1697  $ 1.4516e-20, 1.5034e-20, 1.5552e-20, 1.6070e-20, 1.5529e-20,
1698  $ 1.4987e-20, 1.4445e-20, 1.3903e-20, 1.3362e-20, 1.2820e-20,
1699  $ 1.3410e-20, 1.4000e-20, 1.4590e-20, 1.5180e-20, 1.5770e-20,
1700  $ 1.5118e-20, 1.4466e-20, 1.3814e-20, 1.3162e-20, 1.2510e-20,
1701  $ 1.3140e-20, 1.3770e-20, 1.4400e-20, 1.5030e-20, 1.5660e-20,
1702  $ 1.4868e-20, 1.4076e-20, 1.3284e-20, 1.2492e-20, 1.1700e-20,
1703  $ 1.2390e-20, 1.3080e-20, 1.3770e-20, 1.4460e-20, 1.5150e-20,
1704  $ 1.4616e-20, 1.4082e-20, 1.3548e-20, 1.3014e-20, 1.2480e-20,
1705  $ 1.3032e-20, 1.3584e-20, 1.4136e-20, 1.4688e-20, 1.5240e-20,
1706  $ 1.4630e-20, 1.4020e-20, 1.3410e-20, 1.2800e-20, 1.2190e-20,
1707  $ 1.1580e-20, 1.2288e-20, 1.2996e-20, 1.3704e-20, 1.4412e-20,
1708  $ 1.5120e-20, 1.4494e-20, 1.3868e-20, 1.3242e-20, 1.2616e-20,
1709  $ 1.1990e-20, 1.2614e-20, 1.3238e-20, 1.3862e-20, 1.4486e-20,
1710  $ 1.5110e-20, 1.4352e-20, 1.3594e-20, 1.2836e-20, 1.2078e-20/
1711 
1712  DATA (rno2cf(i),i=3401,3500) /
1713  $ 1.1320e-20, 1.2012e-20, 1.2704e-20, 1.3396e-20, 1.4088e-20,
1714  $ 1.4780e-20, 1.4134e-20, 1.3488e-20, 1.2842e-20, 1.2196e-20,
1715  $ 1.1550e-20, 1.2090e-20, 1.2630e-20, 1.3170e-20, 1.3710e-20,
1716  $ 1.4250e-20, 1.4789e-20, 1.4028e-20, 1.3265e-20, 1.2504e-20,
1717  $ 1.1742e-20, 1.0980e-20, 1.1734e-20, 1.2488e-20, 1.3242e-20,
1718  $ 1.3996e-20, 1.4750e-20, 1.4182e-20, 1.3614e-20, 1.3046e-20,
1719  $ 1.2478e-20, 1.1910e-20, 1.2470e-20, 1.3030e-20, 1.3590e-20,
1720  $ 1.4150e-20, 1.4710e-20, 1.4090e-20, 1.3470e-20, 1.2850e-20,
1721  $ 1.2230e-20, 1.1610e-20, 1.2186e-20, 1.2762e-20, 1.3338e-20,
1722  $ 1.3914e-20, 1.4490e-20, 1.3968e-20, 1.3447e-20, 1.2925e-20,
1723  $ 1.2403e-20, 1.1882e-20, 1.1360e-20, 1.1958e-20, 1.2556e-20,
1724  $ 1.3154e-20, 1.3752e-20, 1.4350e-20, 1.3696e-20, 1.3042e-20,
1725  $ 1.2388e-20, 1.1734e-20, 1.1080e-20, 1.1834e-20, 1.2588e-20,
1726  $ 1.3342e-20, 1.4096e-20, 1.4850e-20, 1.4264e-20, 1.3678e-20,
1727  $ 1.3092e-20, 1.2506e-20, 1.1920e-20, 1.2390e-20, 1.2860e-20,
1728  $ 1.3330e-20, 1.3800e-20, 1.4270e-20, 1.3668e-20, 1.3066e-20,
1729  $ 1.2464e-20, 1.1862e-20, 1.1260e-20, 0.0000e+00, 0.0000e+00,
1730  $ 0.0000e+00, 0.0000e+00, 0.0000e+00, 0.0000e+00, 0.0000e+00,
1731  $ 0.0000e+00, 0.0000e+00, 0.0000e+00, 0.0000e+00, 0.0000e+00,
1732  $ 0.0000e+00, 0.0000e+00, 0.0000e+00, 0.0000e+00, 0.0000e+00/
1733 
1734  DATA (rno2cf(i),i=3501,5001) /1501*0.0/
1735 
1736  END