SavinGroup/FracAbun: rrfit.f

File rrfit.f, 62.6 KB (added by bryans@…, 17 years ago)

RR rate coefficients

Line 
1 subroutine rrfit(iz,in,t,r)
2*** Version 4.2 June 29, 1999.
3*** Written by D. A. Verner, verner@pa.uky.edu
4*** Modified Oct 18, 2005 by Warit Mitthumsiri (wm2109@columbia.edu)
5************************************************************************
6**
7*** Modified - 4 Dec 2007
8*** Paul Bryans, Columbia, bryans@astro.columbia.edu
9***
10*** Updated rate coefficients to those on web page of Nigel Badnell
11*** (http://amdpp.phys.strath.ac.uk/tamoc/DATA/RR/) for
12*** H-like through Mg-like for all elements from H to Zn.
13*** Fe M-shell data added - Badnell, 2006, ApJ, 651, 73
14*** Data for remaining ions as below.
15*** All oriinal data remains in data block if the user wishes to
16*** compare data sets.
17***
18*** Subroutine now in double precision.
19***
20************************************************************************
21***
22*** This subroutine calculates rates of radiative recombination for all ions
23*** of all elements from H through Zn by use of the following fits:
24*** H-like through Mg-like for H to Zn - Nigel Badnell, private communication
25*** Other H-like, He-like, Li-like, Na-like - Verner & Ferland, 1996, ApJS,
26*** 103,467
27*** Other ions of C, N, O, Ne - Pequignot et al. 1991, A&A, 251, 680,
28*** refitted by Verner & Ferland formula to ensure correct asymptotes
29*** Fe XVII-XXIII - Arnaud & Raymond, 1992, ApJ, 398, 394
30*** Fe I-XV - refitted by Verner & Ferland formula to ensure correct asymptotes
31*** Other ions of Mg, Si, S, Ar, Ca, Fe, Ni -
32*** - Shull & Van Steenberg, 1982, ApJS, 48, 95
33*** Other ions of Na, Al - Landini & Monsignori Fossi, 1990, A&AS, 82, 229
34*** Other ions of F, P, Cl, K, Ti, Cr, Mn, Co (excluding Ti I-II, Cr I-IV,
35*** Mn I-V, Co I) - Landini & Monsignori Fossi, 1991, A&AS, 91, 183
36*** All other species - interpolations of the power-law fits
37*** Input parameters: iz - atomic number
38*** in - number of electrons from 1 to iz
39*** (this is number of electrons AFTER recombination)
40*** t - temperature, K
41*** Output parameter: r - rate coefficient, cm^3 s^(-1)
42****************************************************************************
43**
44 implicit none
45 real*8 rrec,rnew,fe,t,r,tt,rrb,tt1,tt2
46 integer iz,in
47 common/rrec/rrec(2,30,30)
48 common/rnew/rnew(4,30,30)
49 common/rrb/rrb(6,30,30)
50 common/ferr/fe(3,13)
51 r=0.0d0
52 if(iz.lt.1.or.iz.gt.30)then
53 write(6,'('' rrfit called with insane atomic number, ='',i4
54 & )') iz
55 stop
56 endif
57 if(in.lt.1.or.in.gt.iz)then
58 write(6,'('' rrfit called with insane number elec ='',i4
59 & )') in
60 stop
61 endif
62
63 if((iz.le.30.and.in.le.13).or.(iz.eq.26.and.in.le.19))then
64 tt1=(1d0+(dsqrt(t/rrb(3,iz,in))))**(1d0-rrb(2,iz,in)
65 & -(rrb(5,iz,in)*dexp(-rrb(6,iz,in)/t)))
66 tt2=(1d0+(dsqrt(t/rrb(4,iz,in))))**(1d0+rrb(2,iz,in)
67 & +(rrb(5,iz,in)*dexp(-rrb(6,iz,in)/t)))
68 r=rrb(1,iz,in)*(1d0/((dsqrt(t/rrb(3,iz,in)))*tt1*tt2))
69 else if(in.le.3.or.in.eq.11.or.(iz.gt.5.and.iz.lt.9).or.
70 &iz.eq.10.or.(iz.eq.26.and.in.gt.11))then
71 tt=dsqrt(t/rnew(3,iz,in))
72 r=rnew(1,iz,in)/(tt*(tt+1.0d0)**(1.0d0-rnew(2,iz,in))*
73 & (1.0d0+dsqrt(t/rnew(4,iz,in)))**(1.0d0+rnew(2,iz,in)))
74 else
75 tt=t*1.0d-04
76 if(iz.eq.26.and.in.le.13)then
77 r=fe(1,in)/tt**(fe(2,in)+fe(3,in)*dlog10(tt))
78 else
79 r=rrec(1,iz,in)/tt**rrec(2,iz,in)
80 endif
81 endif
82 return
83 end
84*********************************************
85 block data radrec
86 real*8 rrec, rnew, rrb, fe
87 common/rrec/rrec(2,30,30)
88 common/rnew/rnew(4,30,30)
89 common/rrb/rrb(6,30,30)
90 common/ferr/fe(3,13)
91 data(rrec(i, 4, 4),i=1,2)/4.500d-13,0.6480d0/
92 data(rrec(i, 5, 4),i=1,2)/2.680d-12,0.7250d0/
93 data(rrec(i, 6, 4),i=1,2)/4.900d-12,0.8030d0/
94 data(rrec(i, 7, 4),i=1,2)/9.400d-12,0.7650d0/
95 data(rrec(i, 8, 4),i=1,2)/1.590d-11,0.7590d0/
96 data(rrec(i, 9, 4),i=1,2)/1.919d-11,0.7849d0/
97 data(rrec(i,10, 4),i=1,2)/2.800d-11,0.7710d0/
98 data(rrec(i,11, 4),i=1,2)/4.030d-11,0.7873d0/
99 data(rrec(i,12, 4),i=1,2)/6.830d-11,0.7650d0/
100 data(rrec(i,13, 4),i=1,2)/8.343d-11,0.8291d0/
101 data(rrec(i,14, 4),i=1,2)/1.430d-10,0.8230d0/
102 data(rrec(i,15, 4),i=1,2)/1.460d-10,0.8391d0/
103 data(rrec(i,16, 4),i=1,2)/2.000d-10,0.8060d0/
104 data(rrec(i,17, 4),i=1,2)/2.091d-10,0.8691d0/
105 data(rrec(i,18, 4),i=1,2)/3.070d-10,0.8190d0/
106 data(rrec(i,19, 4),i=1,2)/3.210d-10,0.8934d0/
107 data(rrec(i,20, 4),i=1,2)/4.610d-10,0.8330d0/
108 data(rrec(i,21, 4),i=1,2)/4.870d-10,0.8060d0/
109 data(rrec(i,22, 4),i=1,2)/5.139d-10,0.7781d0/
110 data(rrec(i,23, 4),i=1,2)/5.850d-10,0.7570d0/
111 data(rrec(i,24, 4),i=1,2)/6.556d-10,0.7359d0/
112 data(rrec(i,25, 4),i=1,2)/7.238d-10,0.7242d0/
113 data(rrec(i,27, 4),i=1,2)/8.404d-10,0.7167d0/
114 data(rrec(i,28, 4),i=1,2)/1.360d-09,0.8420d0/
115 data(rrec(i,29, 4),i=1,2)/1.880d-09,0.8420d0/
116 data(rrec(i,30, 4),i=1,2)/2.400d-09,0.8420d0/
117 data(rrec(i, 5, 5),i=1,2)/4.600d-13,0.6360d0/
118 data(rrec(i, 6, 5),i=1,2)/2.300d-12,0.6450d0/
119 data(rrec(i, 7, 5),i=1,2)/5.000d-12,0.6760d0/
120 data(rrec(i, 8, 5),i=1,2)/9.600d-12,0.6700d0/
121 data(rrec(i, 9, 5),i=1,2)/1.558d-11,0.6816d0/
122 data(rrec(i,10, 5),i=1,2)/2.300d-11,0.7040d0/
123 data(rrec(i,11, 5),i=1,2)/3.253d-11,0.7075d0/
124 data(rrec(i,12, 5),i=1,2)/4.600d-11,0.7110d0/
125 data(rrec(i,13, 5),i=1,2)/5.951d-11,0.7125d0/
126 data(rrec(i,14, 5),i=1,2)/7.700d-11,0.7140d0/
127 data(rrec(i,15, 5),i=1,2)/1.042d-10,0.7330d0/
128 data(rrec(i,16, 5),i=1,2)/1.400d-10,0.7550d0/
129 data(rrec(i,17, 5),i=1,2)/1.760d-10,0.7682d0/
130 data(rrec(i,18, 5),i=1,2)/2.140d-10,0.7740d0/
131 data(rrec(i,19, 5),i=1,2)/2.629d-10,0.7772d0/
132 data(rrec(i,20, 5),i=1,2)/3.240d-10,0.7800d0/
133 data(rrec(i,21, 5),i=1,2)/3.970d-10,0.7840d0/
134 data(rrec(i,22, 5),i=1,2)/4.700d-10,0.7873d0/
135 data(rrec(i,23, 5),i=1,2)/5.500d-10,0.7910d0/
136 data(rrec(i,24, 5),i=1,2)/6.301d-10,0.7952d0/
137 data(rrec(i,25, 5),i=1,2)/7.058d-10,0.7982d0/
138 data(rrec(i,27, 5),i=1,2)/8.252d-10,0.8004d0/
139 data(rrec(i,28, 5),i=1,2)/8.710d-10,0.8000d0/
140 data(rrec(i,29, 5),i=1,2)/9.170d-10,0.8000d0/
141 data(rrec(i,30, 5),i=1,2)/9.630d-10,0.7990d0/
142 data(rrec(i, 6, 6),i=1,2)/4.700d-13,0.6240d0/
143 data(rrec(i, 7, 6),i=1,2)/2.200d-12,0.6390d0/
144 data(rrec(i, 8, 6),i=1,2)/5.100d-12,0.6600d0/
145 data(rrec(i, 9, 6),i=1,2)/9.171d-12,0.6757d0/
146 data(rrec(i,10, 6),i=1,2)/1.500d-11,0.6840d0/
147 data(rrec(i,11, 6),i=1,2)/2.191d-11,0.6875d0/
148 data(rrec(i,12, 6),i=1,2)/3.200d-11,0.6910d0/
149 data(rrec(i,13, 6),i=1,2)/4.308d-11,0.6970d0/
150 data(rrec(i,14, 6),i=1,2)/5.800d-11,0.7030d0/
151 data(rrec(i,15, 6),i=1,2)/7.316d-11,0.7027d0/
152 data(rrec(i,16, 6),i=1,2)/9.200d-11,0.7140d0/
153 data(rrec(i,17, 6),i=1,2)/1.198d-10,0.7508d0/
154 data(rrec(i,18, 6),i=1,2)/1.580d-10,0.7900d0/
155 data(rrec(i,19, 6),i=1,2)/2.048d-10,0.8032d0/
156 data(rrec(i,20, 6),i=1,2)/2.600d-10,0.8000d0/
157 data(rrec(i,21, 6),i=1,2)/3.280d-10,0.7990d0/
158 data(rrec(i,22, 6),i=1,2)/3.966d-10,0.7973d0/
159 data(rrec(i,23, 6),i=1,2)/4.760d-10,0.8000d0/
160 data(rrec(i,24, 6),i=1,2)/5.547d-10,0.8027d0/
161 data(rrec(i,25, 6),i=1,2)/6.313d-10,0.8058d0/
162 data(rrec(i,27, 6),i=1,2)/7.503d-10,0.8085d0/
163 data(rrec(i,28, 6),i=1,2)/7.940d-10,0.8080d0/
164 data(rrec(i,29, 6),i=1,2)/8.380d-10,0.8080d0/
165 data(rrec(i,30, 6),i=1,2)/8.810d-10,0.8070d0/
166 data(rrec(i, 7, 7),i=1,2)/4.100d-13,0.6080d0/
167 data(rrec(i, 8, 7),i=1,2)/2.000d-12,0.6460d0/
168 data(rrec(i, 9, 7),i=1,2)/5.231d-12,0.6615d0/
169 data(rrec(i,10, 7),i=1,2)/9.100d-12,0.6680d0/
170 data(rrec(i,11, 7),i=1,2)/1.447d-11,0.6814d0/
171 data(rrec(i,12, 7),i=1,2)/2.300d-11,0.6950d0/
172 data(rrec(i,13, 7),i=1,2)/3.145d-11,0.6915d0/
173 data(rrec(i,14, 7),i=1,2)/4.300d-11,0.6880d0/
174 data(rrec(i,15, 7),i=1,2)/5.659d-11,0.7023d0/
175 data(rrec(i,16, 7),i=1,2)/7.400d-11,0.7160d0/
176 data(rrec(i,17, 7),i=1,2)/9.561d-11,0.7102d0/
177 data(rrec(i,18, 7),i=1,2)/1.230d-10,0.7020d0/
178 data(rrec(i,19, 7),i=1,2)/1.587d-10,0.7105d0/
179 data(rrec(i,20, 7),i=1,2)/2.040d-10,0.7300d0/
180 data(rrec(i,21, 7),i=1,2)/2.630d-10,0.7490d0/
181 data(rrec(i,22, 7),i=1,2)/3.220d-10,0.7683d0/
182 data(rrec(i,23, 7),i=1,2)/3.950d-10,0.7830d0/
183 data(rrec(i,24, 7),i=1,2)/4.671d-10,0.7967d0/
184 data(rrec(i,25, 7),i=1,2)/5.407d-10,0.8058d0/
185 data(rrec(i,27, 7),i=1,2)/6.611d-10,0.8121d0/
186 data(rrec(i,28, 7),i=1,2)/7.080d-10,0.8110d0/
187 data(rrec(i,29, 7),i=1,2)/7.550d-10,0.8100d0/
188 data(rrec(i,30, 7),i=1,2)/8.020d-10,0.8090d0/
189 data(rrec(i, 8, 8),i=1,2)/3.100d-13,0.6780d0/
190 data(rrec(i, 9, 8),i=1,2)/1.344d-12,0.6708d0/
191 data(rrec(i,10, 8),i=1,2)/4.400d-12,0.6750d0/
192 data(rrec(i,11, 8),i=1,2)/7.849d-12,0.6952d0/
193 data(rrec(i,12, 8),i=1,2)/1.400d-11,0.7160d0/
194 data(rrec(i,13, 8),i=1,2)/2.049d-11,0.7090d0/
195 data(rrec(i,14, 8),i=1,2)/3.000d-11,0.7020d0/
196 data(rrec(i,15, 8),i=1,2)/4.125d-11,0.6965d0/
197 data(rrec(i,16, 8),i=1,2)/5.500d-11,0.7110d0/
198 data(rrec(i,17, 8),i=1,2)/7.280d-11,0.7518d0/
199 data(rrec(i,18, 8),i=1,2)/9.550d-11,0.7930d0/
200 data(rrec(i,19, 8),i=1,2)/1.235d-10,0.8052d0/
201 data(rrec(i,20, 8),i=1,2)/1.580d-10,0.8000d0/
202 data(rrec(i,21, 8),i=1,2)/2.060d-10,0.7990d0/
203 data(rrec(i,22, 8),i=1,2)/2.537d-10,0.7977d0/
204 data(rrec(i,23, 8),i=1,2)/3.190d-10,0.8020d0/
205 data(rrec(i,24, 8),i=1,2)/3.844d-10,0.8071d0/
206 data(rrec(i,25, 8),i=1,2)/4.564d-10,0.8124d0/
207 data(rrec(i,27, 8),i=1,2)/5.842d-10,0.8168d0/
208 data(rrec(i,28, 8),i=1,2)/6.380d-10,0.8160d0/
209 data(rrec(i,29, 8),i=1,2)/6.920d-10,0.8150d0/
210 data(rrec(i,30, 8),i=1,2)/7.460d-10,0.8140d0/
211 data(rrec(i, 9, 9),i=1,2)/6.273d-13,0.6798d0/
212 data(rrec(i,10, 9),i=1,2)/1.500d-12,0.6930d0/
213 data(rrec(i,11, 9),i=1,2)/3.399d-12,0.7054d0/
214 data(rrec(i,12, 9),i=1,2)/7.700d-12,0.7180d0/
215 data(rrec(i,13, 9),i=1,2)/1.275d-11,0.7170d0/
216 data(rrec(i,14, 9),i=1,2)/2.110d-11,0.7160d0/
217 data(rrec(i,15, 9),i=1,2)/2.975d-11,0.6945d0/
218 data(rrec(i,16, 9),i=1,2)/4.000d-11,0.6960d0/
219 data(rrec(i,17, 9),i=1,2)/5.281d-11,0.7491d0/
220 data(rrec(i,18, 9),i=1,2)/6.920d-11,0.8110d0/
221 data(rrec(i,19, 9),i=1,2)/9.044d-11,0.8251d0/
222 data(rrec(i,20, 9),i=1,2)/1.180d-10,0.8100d0/
223 data(rrec(i,21, 9),i=1,2)/1.580d-10,0.8040d0/
224 data(rrec(i,22, 9),i=1,2)/1.983d-10,0.7980d0/
225 data(rrec(i,23, 9),i=1,2)/2.570d-10,0.8040d0/
226 data(rrec(i,24, 9),i=1,2)/3.154d-10,0.8101d0/
227 data(rrec(i,25, 9),i=1,2)/3.837d-10,0.8183d0/
228 data(rrec(i,27, 9),i=1,2)/5.147d-10,0.8253d0/
229 data(rrec(i,28, 9),i=1,2)/5.750d-10,0.8240d0/
230 data(rrec(i,29, 9),i=1,2)/6.350d-10,0.8230d0/
231 data(rrec(i,30, 9),i=1,2)/6.960d-10,0.8210d0/
232 data(rrec(i,10,10),i=1,2)/2.200d-13,0.7590d0/
233 data(rrec(i,11,10),i=1,2)/8.775d-13,0.7467d0/
234 data(rrec(i,12,10),i=1,2)/3.500d-12,0.7340d0/
235 data(rrec(i,13,10),i=1,2)/6.481d-12,0.7345d0/
236 data(rrec(i,14,10),i=1,2)/1.200d-11,0.7350d0/
237 data(rrec(i,15,10),i=1,2)/1.834d-11,0.7285d0/
238 data(rrec(i,16,10),i=1,2)/2.700d-11,0.7330d0/
239 data(rrec(i,17,10),i=1,2)/3.711d-11,0.7641d0/
240 data(rrec(i,18,10),i=1,2)/4.900d-11,0.8010d0/
241 data(rrec(i,19,10),i=1,2)/6.444d-11,0.8175d0/
242 data(rrec(i,20,10),i=1,2)/8.510d-11,0.8200d0/
243 data(rrec(i,21,10),i=1,2)/1.170d-10,0.8220d0/
244 data(rrec(i,22,10),i=1,2)/1.494d-10,0.8242d0/
245 data(rrec(i,23,10),i=1,2)/2.010d-10,0.8280d0/
246 data(rrec(i,24,10),i=1,2)/2.525d-10,0.8311d0/
247 data(rrec(i,25,10),i=1,2)/3.177d-10,0.8341d0/
248 data(rrec(i,27,10),i=1,2)/4.552d-10,0.8364d0/
249 data(rrec(i,28,10),i=1,2)/5.250d-10,0.8360d0/
250 data(rrec(i,29,10),i=1,2)/5.950d-10,0.8360d0/
251 data(rrec(i,30,10),i=1,2)/6.650d-10,0.8350d0/
252 data(rrec(i,12,12),i=1,2)/1.400d-13,0.8550d0/
253 data(rrec(i,13,12),i=1,2)/7.197d-13,0.7697d0/
254 data(rrec(i,14,12),i=1,2)/3.700d-12,0.6930d0/
255 data(rrec(i,15,12),i=1,2)/7.980d-12,0.6829d0/
256 data(rrec(i,16,12),i=1,2)/1.200d-11,0.7010d0/
257 data(rrec(i,17,12),i=1,2)/1.800d-11,0.7232d0/
258 data(rrec(i,18,12),i=1,2)/2.690d-11,0.7440d0/
259 data(rrec(i,19,12),i=1,2)/3.748d-11,0.7628d0/
260 data(rrec(i,20,12),i=1,2)/5.040d-11,0.7800d0/
261 data(rrec(i,21,12),i=1,2)/7.240d-11,0.7950d0/
262 data(rrec(i,22,12),i=1,2)/9.440d-11,0.8107d0/
263 data(rrec(i,23,12),i=1,2)/1.350d-10,0.8220d0/
264 data(rrec(i,24,12),i=1,2)/1.751d-10,0.8340d0/
265 data(rrec(i,25,12),i=1,2)/2.298d-10,0.8417d0/
266 data(rrec(i,27,12),i=1,2)/3.461d-10,0.8469d0/
267 data(rrec(i,28,12),i=1,2)/4.030d-10,0.8460d0/
268 data(rrec(i,29,12),i=1,2)/4.600d-10,0.8450d0/
269 data(rrec(i,30,12),i=1,2)/5.170d-10,0.8440d0/
270 data(rrec(i,13,13),i=1,2)/3.980d-13,0.8019d0/
271 data(rrec(i,14,13),i=1,2)/1.000d-12,0.7860d0/
272 data(rrec(i,15,13),i=1,2)/2.558d-12,0.7629d0/
273 data(rrec(i,16,13),i=1,2)/5.700d-12,0.7550d0/
274 data(rrec(i,17,13),i=1,2)/1.011d-11,0.7703d0/
275 data(rrec(i,18,13),i=1,2)/1.580d-11,0.7930d0/
276 data(rrec(i,19,13),i=1,2)/2.448d-11,0.8052d0/
277 data(rrec(i,20,13),i=1,2)/3.760d-11,0.8100d0/
278 data(rrec(i,21,13),i=1,2)/5.870d-11,0.8150d0/
279 data(rrec(i,22,13),i=1,2)/7.972d-11,0.8206d0/
280 data(rrec(i,23,13),i=1,2)/1.130d-10,0.8270d0/
281 data(rrec(i,24,13),i=1,2)/1.470d-10,0.8325d0/
282 data(rrec(i,25,13),i=1,2)/1.908d-10,0.8372d0/
283 data(rrec(i,27,13),i=1,2)/2.976d-10,0.8406d0/
284 data(rrec(i,28,13),i=1,2)/3.630d-10,0.8400d0/
285 data(rrec(i,29,13),i=1,2)/4.280d-10,0.8390d0/
286 data(rrec(i,30,13),i=1,2)/4.940d-10,0.8390d0/
287 data(rrec(i,14,14),i=1,2)/5.900d-13,0.6010d0/
288 data(rrec(i,15,14),i=1,2)/1.294d-12,0.6766d0/
289 data(rrec(i,16,14),i=1,2)/2.700d-12,0.7450d0/
290 data(rrec(i,17,14),i=1,2)/5.165d-12,0.7893d0/
291 data(rrec(i,18,14),i=1,2)/9.120d-12,0.8110d0/
292 data(rrec(i,19,14),i=1,2)/1.513d-11,0.8186d0/
293 data(rrec(i,20,14),i=1,2)/2.400d-11,0.8200d0/
294 data(rrec(i,21,14),i=1,2)/3.960d-11,0.8220d0/
295 data(rrec(i,22,14),i=1,2)/5.518d-11,0.8245d0/
296 data(rrec(i,23,14),i=1,2)/8.370d-11,0.8280d0/
297 data(rrec(i,24,14),i=1,2)/1.123d-10,0.8313d0/
298 data(rrec(i,25,14),i=1,2)/1.525d-10,0.8342d0/
299 data(rrec(i,26,14),i=1,2)/2.000d-10,0.8360d0/
300 data(rrec(i,27,14),i=1,2)/2.537d-10,0.8364d0/
301 data(rrec(i,28,14),i=1,2)/3.160d-10,0.8360d0/
302 data(rrec(i,29,14),i=1,2)/3.780d-10,0.8360d0/
303 data(rrec(i,30,14),i=1,2)/4.410d-10,0.8350d0/
304 data(rrec(i,15,15),i=1,2)/9.761d-13,0.6209d0/
305 data(rrec(i,16,15),i=1,2)/1.800d-12,0.6860d0/
306 data(rrec(i,17,15),i=1,2)/3.320d-12,0.7579d0/
307 data(rrec(i,18,15),i=1,2)/6.030d-12,0.8120d0/
308 data(rrec(i,19,15),i=1,2)/1.063d-11,0.8269d0/
309 data(rrec(i,20,15),i=1,2)/1.800d-11,0.8200d0/
310 data(rrec(i,21,15),i=1,2)/3.130d-11,0.8180d0/
311 data(rrec(i,22,15),i=1,2)/4.451d-11,0.8153d0/
312 data(rrec(i,23,15),i=1,2)/6.830d-11,0.8200d0/
313 data(rrec(i,24,15),i=1,2)/9.206d-11,0.8246d0/
314 data(rrec(i,25,15),i=1,2)/1.250d-10,0.8302d0/
315 data(rrec(i,26,15),i=1,2)/1.640d-10,0.8340d0/
316 data(rrec(i,27,15),i=1,2)/2.093d-10,0.8349d0/
317 data(rrec(i,28,15),i=1,2)/2.630d-10,0.8340d0/
318 data(rrec(i,29,15),i=1,2)/3.170d-10,0.8330d0/
319 data(rrec(i,30,15),i=1,2)/3.700d-10,0.8320d0/
320 data(rrec(i,16,16),i=1,2)/4.100d-13,0.6300d0/
321 data(rrec(i,17,16),i=1,2)/1.248d-12,0.7663d0/
322 data(rrec(i,18,16),i=1,2)/3.230d-12,0.8690d0/
323 data(rrec(i,19,16),i=1,2)/6.384d-12,0.8790d0/
324 data(rrec(i,20,16),i=1,2)/1.070d-11,0.8400d0/
325 data(rrec(i,21,16),i=1,2)/1.920d-11,0.8210d0/
326 data(rrec(i,22,16),i=1,2)/2.765d-11,0.8012d0/
327 data(rrec(i,23,16),i=1,2)/4.650d-11,0.8060d0/
328 data(rrec(i,24,16),i=1,2)/6.539d-11,0.8099d0/
329 data(rrec(i,25,16),i=1,2)/9.539d-11,0.8202d0/
330 data(rrec(i,26,16),i=1,2)/1.330d-10,0.8280d0/
331 data(rrec(i,27,16),i=1,2)/1.769d-10,0.8299d0/
332 data(rrec(i,28,16),i=1,2)/2.290d-10,0.8280d0/
333 data(rrec(i,29,16),i=1,2)/2.810d-10,0.8260d0/
334 data(rrec(i,30,16),i=1,2)/3.330d-10,0.8240d0/
335 data(rrec(i,17,17),i=1,2)/1.010d-12,0.7380d0/
336 data(rrec(i,18,17),i=1,2)/1.950d-12,0.7520d0/
337 data(rrec(i,19,17),i=1,2)/3.766d-12,0.7662d0/
338 data(rrec(i,20,17),i=1,2)/7.080d-12,0.7800d0/
339 data(rrec(i,21,17),i=1,2)/1.430d-11,0.7920d0/
340 data(rrec(i,22,17),i=1,2)/2.152d-11,0.8038d0/
341 data(rrec(i,23,17),i=1,2)/3.740d-11,0.8120d0/
342 data(rrec(i,24,17),i=1,2)/5.335d-11,0.8207d0/
343 data(rrec(i,25,17),i=1,2)/7.807d-11,0.8260d0/
344 data(rrec(i,26,17),i=1,2)/1.090d-10,0.8290d0/
345 data(rrec(i,27,17),i=1,2)/1.459d-10,0.8296d0/
346 data(rrec(i,28,17),i=1,2)/1.910d-10,0.8290d0/
347 data(rrec(i,29,17),i=1,2)/2.360d-10,0.8280d0/
348 data(rrec(i,30,17),i=1,2)/2.810d-10,0.8280d0/
349 data(rrec(i,18,18),i=1,2)/3.770d-13,0.6510d0/
350 data(rrec(i,19,18),i=1,2)/1.304d-12,0.6753d0/
351 data(rrec(i,20,18),i=1,2)/3.960d-12,0.7000d0/
352 data(rrec(i,21,18),i=1,2)/1.130d-11,0.7240d0/
353 data(rrec(i,22,18),i=1,2)/1.857d-11,0.7484d0/
354 data(rrec(i,23,18),i=1,2)/3.170d-11,0.7680d0/
355 data(rrec(i,24,18),i=1,2)/4.479d-11,0.7883d0/
356 data(rrec(i,25,18),i=1,2)/6.106d-11,0.8020d0/
357 data(rrec(i,26,18),i=1,2)/8.130d-11,0.8100d0/
358 data(rrec(i,27,18),i=1,2)/1.098d-10,0.8118d0/
359 data(rrec(i,28,18),i=1,2)/1.500d-10,0.8100d0/
360 data(rrec(i,29,18),i=1,2)/1.900d-10,0.8080d0/
361 data(rrec(i,30,18),i=1,2)/2.300d-10,0.8060d0/
362 data(rrec(i,19,19),i=1,2)/2.762d-13,0.8023d0/
363 data(rrec(i,20,19),i=1,2)/6.780d-13,0.8000d0/
364 data(rrec(i,21,19),i=1,2)/2.330d-12,0.7980d0/
365 data(rrec(i,22,19),i=1,2)/3.983d-12,0.7955d0/
366 data(rrec(i,23,19),i=1,2)/1.150d-11,0.7940d0/
367 data(rrec(i,24,19),i=1,2)/1.906d-11,0.7919d0/
368 data(rrec(i,25,19),i=1,2)/3.620d-11,0.7907d0/
369 data(rrec(i,26,19),i=1,2)/6.050d-11,0.7900d0/
370 data(rrec(i,27,19),i=1,2)/8.818d-11,0.7898d0/
371 data(rrec(i,28,19),i=1,2)/1.190d-10,0.7900d0/
372 data(rrec(i,29,19),i=1,2)/1.500d-10,0.7900d0/
373 data(rrec(i,30,19),i=1,2)/1.810d-10,0.7900d0/
374 data(rrec(i,20,20),i=1,2)/1.120d-13,0.9000d0/
375 data(rrec(i,21,20),i=1,2)/6.540d-13,0.8670d0/
376 data(rrec(i,22,20),i=1,2)/1.196d-12,0.8344d0/
377 data(rrec(i,23,20),i=1,2)/5.330d-12,0.8090d0/
378 data(rrec(i,24,20),i=1,2)/9.471d-12,0.7846d0/
379 data(rrec(i,25,20),i=1,2)/2.169d-11,0.7683d0/
380 data(rrec(i,26,20),i=1,2)/4.120d-11,0.7590d0/
381 data(rrec(i,27,20),i=1,2)/6.409d-11,0.7570d0/
382 data(rrec(i,28,20),i=1,2)/8.910d-11,0.7590d0/
383 data(rrec(i,29,20),i=1,2)/1.140d-10,0.7610d0/
384 data(rrec(i,30,20),i=1,2)/1.390d-10,0.7630d0/
385 data(rrec(i,21,21),i=1,2)/1.170d-13,0.8980d0/
386 data(rrec(i,22,21),i=1,2)/5.330d-12,0.8640d0/
387 data(rrec(i,23,21),i=1,2)/1.060d-11,0.8300d0/
388 data(rrec(i,24,21),i=1,2)/1.580d-11,0.7960d0/
389 data(rrec(i,25,21),i=1,2)/2.100d-11,0.7620d0/
390 data(rrec(i,26,21),i=1,2)/2.620d-11,0.7280d0/
391 data(rrec(i,27,21),i=1,2)/2.822d-11,0.7280d0/
392 data(rrec(i,28,21),i=1,2)/3.040d-11,0.7280d0/
393 data(rrec(i,29,21),i=1,2)/3.260d-11,0.7280d0/
394 data(rrec(i,30,21),i=1,2)/3.480d-11,0.7280d0/
395 data(rrec(i,22,22),i=1,2)/1.220d-13,0.8970d0/
396 data(rrec(i,23,22),i=1,2)/3.870d-12,0.8480d0/
397 data(rrec(i,24,22),i=1,2)/7.610d-12,0.7980d0/
398 data(rrec(i,25,22),i=1,2)/1.140d-11,0.7480d0/
399 data(rrec(i,26,22),i=1,2)/1.510d-11,0.6990d0/
400 data(rrec(i,27,22),i=1,2)/1.626d-11,0.6990d0/
401 data(rrec(i,28,22),i=1,2)/1.750d-11,0.6990d0/
402 data(rrec(i,29,22),i=1,2)/1.870d-11,0.6990d0/
403 data(rrec(i,30,22),i=1,2)/2.000d-11,0.6990d0/
404 data(rrec(i,23,23),i=1,2)/1.270d-13,0.8950d0/
405 data(rrec(i,24,23),i=1,2)/2.680d-12,0.8240d0/
406 data(rrec(i,25,23),i=1,2)/5.240d-12,0.7530d0/
407 data(rrec(i,26,23),i=1,2)/7.800d-12,0.6820d0/
408 data(rrec(i,27,23),i=1,2)/8.402d-12,0.6820d0/
409 data(rrec(i,28,23),i=1,2)/9.050d-12,0.6820d0/
410 data(rrec(i,29,23),i=1,2)/9.700d-12,0.6820d0/
411 data(rrec(i,30,23),i=1,2)/1.030d-11,0.6820d0/
412 data(rrec(i,24,24),i=1,2)/1.320d-13,0.8940d0/
413 data(rrec(i,25,24),i=1,2)/1.730d-12,0.8200d0/
414 data(rrec(i,26,24),i=1,2)/3.320d-12,0.7460d0/
415 data(rrec(i,27,24),i=1,2)/3.575d-12,0.7460d0/
416 data(rrec(i,28,24),i=1,2)/3.580d-12,0.7460d0/
417 data(rrec(i,29,24),i=1,2)/3.580d-12,0.7460d0/
418 data(rrec(i,30,24),i=1,2)/3.590d-12,0.7460d0/
419 data(rrec(i,25,25),i=1,2)/1.370d-13,0.8920d0/
420 data(rrec(i,26,25),i=1,2)/1.020d-12,0.8430d0/
421 data(rrec(i,27,25),i=1,2)/1.278d-12,0.7682d0/
422 data(rrec(i,28,25),i=1,2)/1.600d-12,0.7000d0/
423 data(rrec(i,29,25),i=1,2)/1.920d-12,0.7000d0/
424 data(rrec(i,30,25),i=1,2)/2.240d-12,0.7000d0/
425 data(rrec(i,26,26),i=1,2)/1.420d-13,0.8910d0/
426 data(rrec(i,27,26),i=1,2)/4.459d-13,0.7897d0/
427 data(rrec(i,28,26),i=1,2)/1.400d-12,0.7000d0/
428 data(rrec(i,29,26),i=1,2)/1.500d-12,0.7000d0/
429 data(rrec(i,30,26),i=1,2)/1.600d-12,0.7000d0/
430 data(rrec(i,27,27),i=1,2)/2.510d-13,0.7950d0/
431 data(rrec(i,28,27),i=1,2)/1.000d-12,0.7000d0/
432 data(rrec(i,29,27),i=1,2)/1.000d-12,0.7000d0/
433 data(rrec(i,30,27),i=1,2)/1.100d-12,0.7000d0/
434 data(rrec(i,28,28),i=1,2)/3.600d-13,0.7000d0/
435 data(rrec(i,29,28),i=1,2)/3.600d-13,0.7000d0/
436 data(rrec(i,30,28),i=1,2)/3.600d-13,0.7000d0/
437 data(rrec(i,29,29),i=1,2)/3.600d-13,0.7000d0/
438 data(rrec(i,30,29),i=1,2)/3.600d-13,0.7000d0/
439 data(rrec(i,30,30),i=1,2)/3.600d-13,0.7000d0/
440 data(rnew(i, 1, 1),i=1,4)/7.982d-11,0.7480d0,3.148d+00,7.036d+05/
441 data(rnew(i, 2, 1),i=1,4)/1.891d-10,0.7524d0,9.370d+00,2.774d+06/
442 data(rnew(i, 3, 1),i=1,4)/3.039d-10,0.7539d0,1.871d+01,6.209d+06/
443 data(rnew(i, 4, 1),i=1,4)/4.290d-10,0.7557d0,3.000d+01,1.093d+07/
444 data(rnew(i, 5, 1),i=1,4)/5.437d-10,0.7560d0,4.576d+01,1.706d+07/
445 data(rnew(i, 6, 1),i=1,4)/6.556d-10,0.7567d0,6.523d+01,2.446d+07/
446 data(rnew(i, 7, 1),i=1,4)/7.586d-10,0.7563d0,9.015d+01,3.338d+07/
447 data(rnew(i, 8, 1),i=1,4)/8.616d-10,0.7563d0,1.191d+02,4.352d+07/
448 data(rnew(i, 9, 1),i=1,4)/9.712d-10,0.7566d0,1.499d+02,5.498d+07/
449 data(rnew(i,10, 1),i=1,4)/1.085d-09,0.7570d0,1.834d+02,6.776d+07/
450 data(rnew(i,11, 1),i=1,4)/1.163d-09,0.7558d0,2.328d+02,8.262d+07/
451 data(rnew(i,12, 1),i=1,4)/1.317d-09,0.7574d0,2.585d+02,9.769d+07/
452 data(rnew(i,13, 1),i=1,4)/1.419d-09,0.7578d0,3.057d+02,1.143d+08/
453 data(rnew(i,14, 1),i=1,4)/1.517d-09,0.7574d0,3.601d+02,1.329d+08/
454 data(rnew(i,15, 1),i=1,4)/1.586d-09,0.7560d0,4.327d+02,1.534d+08/
455 data(rnew(i,16, 1),i=1,4)/1.729d-09,0.7568d0,4.725d+02,1.746d+08/
456 data(rnew(i,17, 1),i=1,4)/1.791d-09,0.7565d0,5.591d+02,1.972d+08/
457 data(rnew(i,18, 1),i=1,4)/1.913d-09,0.7567d0,6.175d+02,2.212d+08/
458 data(rnew(i,19, 1),i=1,4)/2.033d-09,0.7569d0,6.797d+02,2.463d+08/
459 data(rnew(i,20, 1),i=1,4)/2.129d-09,0.7570d0,7.591d+02,2.739d+08/
460 data(rnew(i,21, 1),i=1,4)/2.262d-09,0.7578d0,8.186d+02,3.000d+08/
461 data(rnew(i,22, 1),i=1,4)/2.370d-09,0.7574d0,9.002d+02,3.307d+08/
462 data(rnew(i,23, 1),i=1,4)/2.415d-09,0.7565d0,1.032d+03,3.635d+08/
463 data(rnew(i,24, 1),i=1,4)/2.537d-09,0.7571d0,1.108d+03,3.954d+08/
464 data(rnew(i,25, 1),i=1,4)/2.618d-09,0.7565d0,1.225d+03,4.307d+08/
465 data(rnew(i,26, 1),i=1,4)/2.735d-09,0.7568d0,1.314d+03,4.659d+08/
466 data(rnew(i,27, 1),i=1,4)/2.809d-09,0.7565d0,1.444d+03,5.042d+08/
467 data(rnew(i,28, 1),i=1,4)/3.002d-09,0.7581d0,1.467d+03,5.409d+08/
468 data(rnew(i,29, 1),i=1,4)/3.022d-09,0.7564d0,1.666d+03,5.855d+08/
469 data(rnew(i,30, 1),i=1,4)/3.127d-09,0.7567d0,1.779d+03,6.246d+08/
470 data(rnew(i, 2, 2),i=1,4)/9.356d-10,0.7892d0,4.266d-02,4.677d+06/
471 data(rnew(i, 3, 2),i=1,4)/1.112d-10,0.6926d0,2.437d+01,8.323d+06/
472 data(rnew(i, 4, 2),i=1,4)/1.317d-10,0.6691d0,8.473d+01,1.412d+07/
473 data(rnew(i, 5, 2),i=1,4)/1.922d-10,0.6717d0,1.272d+02,1.975d+07/
474 data(rnew(i, 6, 2),i=1,4)/2.765d-10,0.6858d0,1.535d+02,2.556d+07/
475 data(rnew(i, 7, 2),i=1,4)/3.910d-10,0.6988d0,1.611d+02,3.271d+07/
476 data(rnew(i, 8, 2),i=1,4)/4.897d-10,0.7048d0,1.906d+02,4.093d+07/
477 data(rnew(i, 9, 2),i=1,4)/5.602d-10,0.7052d0,2.476d+02,5.077d+07/
478 data(rnew(i,10, 2),i=1,4)/6.161d-10,0.7029d0,3.274d+02,6.243d+07/
479 data(rnew(i,11, 2),i=1,4)/6.833d-10,0.7018d0,4.060d+02,7.491d+07/
480 data(rnew(i,12, 2),i=1,4)/7.510d-10,0.7020d0,4.921d+02,8.643d+07/
481 data(rnew(i,13, 2),i=1,4)/8.182d-10,0.7008d0,5.875d+02,1.007d+08/
482 data(rnew(i,14, 2),i=1,4)/8.722d-10,0.6996d0,7.098d+02,1.155d+08/
483 data(rnew(i,15, 2),i=1,4)/9.142d-10,0.6961d0,8.682d+02,1.335d+08/
484 data(rnew(i,16, 2),i=1,4)/9.692d-10,0.6945d0,1.017d+03,1.517d+08/
485 data(rnew(i,17, 2),i=1,4)/1.021d-09,0.6932d0,1.184d+03,1.695d+08/
486 data(rnew(i,18, 2),i=1,4)/1.087d-09,0.6936d0,1.329d+03,1.880d+08/
487 data(rnew(i,19, 2),i=1,4)/1.145d-09,0.6921d0,1.503d+03,2.098d+08/
488 data(rnew(i,20, 2),i=1,4)/1.179d-09,0.6893d0,1.757d+03,2.344d+08/
489 data(rnew(i,21, 2),i=1,4)/1.265d-09,0.6902d0,1.877d+03,2.555d+08/
490 data(rnew(i,22, 2),i=1,4)/1.322d-09,0.6885d0,2.092d+03,2.829d+08/
491 data(rnew(i,23, 2),i=1,4)/1.375d-09,0.6885d0,2.321d+03,3.056d+08/
492 data(rnew(i,24, 2),i=1,4)/1.422d-09,0.6874d0,2.589d+03,3.336d+08/
493 data(rnew(i,25, 2),i=1,4)/1.488d-09,0.6867d0,2.802d+03,3.623d+08/
494 data(rnew(i,26, 2),i=1,4)/1.542d-09,0.6859d0,3.073d+03,3.926d+08/
495 data(rnew(i,27, 2),i=1,4)/1.589d-09,0.6846d0,3.373d+03,4.267d+08/
496 data(rnew(i,28, 2),i=1,4)/1.676d-09,0.6861d0,3.530d+03,4.538d+08/
497 data(rnew(i,29, 2),i=1,4)/1.686d-09,0.6824d0,4.031d+03,4.948d+08/
498 data(rnew(i,30, 2),i=1,4)/1.758d-09,0.6834d0,4.254d+03,5.258d+08/
499 data(rnew(i, 3, 3),i=1,4)/1.036d-11,0.3880d0,1.077d+02,1.177d+07/
500 data(rnew(i, 4, 3),i=1,4)/2.338d-11,0.4211d0,3.647d+02,1.215d+07/
501 data(rnew(i, 5, 3),i=1,4)/4.487d-11,0.4644d0,5.371d+02,1.465d+07/
502 data(rnew(i, 6, 3),i=1,4)/8.540d-11,0.5247d0,5.014d+02,1.479d+07/
503 data(rnew(i, 7, 3),i=1,4)/1.169d-10,0.5470d0,6.793d+02,1.650d+07/
504 data(rnew(i, 8, 3),i=1,4)/2.053d-10,0.6019d0,4.772d+02,1.711d+07/
505 data(rnew(i, 9, 3),i=1,4)/2.739d-10,0.6188d0,5.033d+02,2.064d+07/
506 data(rnew(i,10, 3),i=1,4)/3.200d-10,0.6198d0,6.329d+02,2.616d+07/
507 data(rnew(i,11, 3),i=1,4)/3.873d-10,0.6295d0,7.000d+02,2.989d+07/
508 data(rnew(i,12, 3),i=1,4)/4.284d-10,0.6287d0,8.748d+02,3.586d+07/
509 data(rnew(i,13, 3),i=1,4)/4.881d-10,0.6326d0,9.941d+02,4.085d+07/
510 data(rnew(i,14, 3),i=1,4)/5.373d-10,0.6337d0,1.164d+03,4.677d+07/
511 data(rnew(i,15, 3),i=1,4)/5.876d-10,0.6354d0,1.341d+03,5.292d+07/
512 data(rnew(i,16, 3),i=1,4)/6.571d-10,0.6400d0,1.452d+03,5.796d+07/
513 data(rnew(i,17, 3),i=1,4)/7.076d-10,0.6397d0,1.653d+03,6.555d+07/
514 data(rnew(i,18, 3),i=1,4)/7.538d-10,0.6388d0,1.889d+03,7.306d+07/
515 data(rnew(i,19, 3),i=1,4)/8.182d-10,0.6411d0,2.044d+03,8.057d+07/
516 data(rnew(i,20, 3),i=1,4)/8.577d-10,0.6403d0,2.334d+03,8.850d+07/
517 data(rnew(i,21, 3),i=1,4)/9.162d-10,0.6413d0,2.543d+03,9.690d+07/
518 data(rnew(i,22, 3),i=1,4)/9.844d-10,0.6440d0,2.708d+03,1.044d+08/
519 data(rnew(i,23, 3),i=1,4)/1.020d-09,0.6427d0,3.057d+03,1.140d+08/
520 data(rnew(i,24, 3),i=1,4)/1.091d-09,0.6445d0,3.225d+03,1.229d+08/
521 data(rnew(i,25, 3),i=1,4)/1.151d-09,0.6451d0,3.461d+03,1.334d+08/
522 data(rnew(i,26, 3),i=1,4)/1.198d-09,0.6443d0,3.789d+03,1.437d+08/
523 data(rnew(i,27, 3),i=1,4)/1.211d-09,0.6406d0,4.357d+03,1.572d+08/
524 data(rnew(i,28, 3),i=1,4)/1.288d-09,0.6440d0,4.506d+03,1.651d+08/
525 data(rnew(i,29, 3),i=1,4)/1.372d-09,0.6472d0,4.627d+03,1.740d+08/
526 data(rnew(i,30, 3),i=1,4)/1.412d-09,0.6454d0,5.053d+03,1.891d+08/
527 data(rnew(i,11,11),i=1,4)/5.641d-12,0.1749d0,3.077d+02,2.617d+06/
528 data(rnew(i,12,11),i=1,4)/1.920d-11,0.3028d0,4.849d+02,5.890d+06/
529 data(rnew(i,13,11),i=1,4)/3.753d-11,0.3585d0,6.848d+02,9.035d+06/
530 data(rnew(i,14,11),i=1,4)/5.942d-11,0.3930d0,8.962d+02,1.213d+07/
531 data(rnew(i,15,11),i=1,4)/1.721d-10,0.5429d0,2.848d+02,3.975d+07/
532 data(rnew(i,16,11),i=1,4)/3.502d-10,0.6266d0,1.532d+02,1.755d+07/
533 data(rnew(i,17,11),i=1,4)/2.502d-10,0.5580d0,5.303d+02,4.558d+07/
534 data(rnew(i,18,11),i=1,4)/2.862d-10,0.5621d0,7.002d+02,4.885d+07/
535 data(rnew(i,19,11),i=1,4)/2.757d-10,0.5364d0,1.204d+03,7.013d+07/
536 data(rnew(i,20,11),i=1,4)/5.273d-10,0.6281d0,5.329d+02,3.188d+07/
537 data(rnew(i,21,11),i=1,4)/3.890d-10,0.5645d0,1.391d+03,6.295d+07/
538 data(rnew(i,22,11),i=1,4)/4.207d-10,0.5646d0,1.688d+03,6.872d+07/
539 data(rnew(i,23,11),i=1,4)/4.605d-10,0.5659d0,1.949d+03,7.419d+07/
540 data(rnew(i,24,11),i=1,4)/4.975d-10,0.5655d0,2.257d+03,8.072d+07/
541 data(rnew(i,25,11),i=1,4)/5.349d-10,0.5658d0,2.577d+03,8.710d+07/
542 data(rnew(i,26,11),i=1,4)/7.688d-10,0.6173d0,1.653d+03,6.161d+07/
543 data(rnew(i,27,11),i=1,4)/5.850d-10,0.5598d0,3.538d+03,1.052d+08/
544 data(rnew(i,28,11),i=1,4)/6.347d-10,0.5631d0,3.780d+03,1.116d+08/
545 data(rnew(i,29,11),i=1,4)/6.619d-10,0.5602d0,4.322d+03,1.210d+08/
546 data(rnew(i,30,11),i=1,4)/7.002d-10,0.5612d0,4.726d+03,1.287d+08/
547 data(rnew(i, 6, 4),i=1,4)/2.020d-09,0.7798d0,6.690d-01,2.425d+06/
548 data(rnew(i, 7, 4),i=1,4)/1.595d-11,0.3529d0,9.870d+03,2.584d+07/
549 data(rnew(i, 8, 4),i=1,4)/2.008d-11,0.3567d0,1.520d+04,3.843d+07/
550 data(rnew(i,10, 4),i=1,4)/2.793d-11,0.3533d0,3.017d+04,7.872d+07/
551 data(rnew(i, 6, 5),i=1,4)/8.577d-10,0.7837d0,7.286d-01,1.140d+07/
552 data(rnew(i, 7, 5),i=1,4)/7.039d-10,0.8607d0,2.203d+00,3.029d+06/
553 data(rnew(i, 8, 5),i=1,4)/1.542d-10,0.6712d0,1.775d+02,1.535d+08/
554 data(rnew(i,10, 5),i=1,4)/2.515d-10,0.7011d0,3.028d+02,8.903d+06/
555 data(rnew(i, 6, 6),i=1,4)/7.651d-09,0.8027d0,1.193d-03,9.334d+12/
556 data(rnew(i, 7, 6),i=1,4)/5.989d-10,0.7560d0,1.377d+00,1.517d+09/
557 data(rnew(i, 8, 6),i=1,4)/3.672d-09,0.7676d0,2.900d-01,8.521d+07/
558 data(rnew(i,10, 6),i=1,4)/9.353d-11,0.6270d0,9.031d+02,2.387d+07/
559 data(rnew(i, 7, 7),i=1,4)/1.243d-08,0.7022d0,1.136d-03,1.015d+13/
560 data(rnew(i, 8, 7),i=1,4)/1.816d-08,0.7170d0,6.717d-03,3.286d+12/
561 data(rnew(i,10, 7),i=1,4)/4.227d-11,0.5395d0,1.687d+03,1.491d+17/
562 data(rnew(i, 8, 8),i=1,4)/1.341d-10,0.6159d0,1.673d+00,6.366d+16/
563 data(rnew(i,10, 8),i=1,4)/9.563d-12,0.3067d0,9.768d+03,4.851d+17/
564 data(rnew(i,10, 9),i=1,4)/5.417d-08,0.6930d0,1.179d-03,1.060d+07/
565 data(rnew(i,10,10),i=1,4)/5.023d-12,0.2420d0,3.181d+02,1.450d+18/
566 data(rnew(i,26,12),i=1,4)/8.110d-10,0.5442d0,1.755d+03,6.799d+07/
567 data(rnew(i,26,13),i=1,4)/6.967d-10,0.5602d0,1.727d+03,5.618d+07/
568 data(rnew(i,26,14),i=1,4)/3.236d-08,0.3247d0,2.338d+01,8.337d+12/
569 data(rnew(i,26,15),i=1,4)/2.664d-08,0.3285d0,2.297d+01,6.672d+12/
570 data(rnew(i,26,16),i=1,4)/2.165d-08,0.3403d0,2.195d+01,6.383d+12/
571 data(rnew(i,26,17),i=1,4)/2.460d-08,0.3387d0,1.487d+01,5.228d+12/
572 data(rnew(i,26,18),i=1,4)/1.907d-08,0.3768d0,1.216d+01,5.431d+12/
573 data(rnew(i,26,19),i=1,4)/1.439d-08,0.4170d0,1.006d+01,4.898d+12/
574 data(rnew(i,26,20),i=1,4)/1.184d-08,0.4798d0,5.883d+00,2.582d+12/
575 data(rnew(i,26,21),i=1,4)/1.036d-08,0.5428d0,2.743d+00,1.014d+12/
576 data(rnew(i,26,22),i=1,4)/8.288d-09,0.6012d0,1.216d+00,1.182d+12/
577 data(rnew(i,26,23),i=1,4)/6.330d-09,0.6355d0,5.457d-01,8.545d+11/
578 data(rnew(i,26,24),i=1,4)/5.422d-09,0.5067d0,4.998d-01,8.079d+11/
579 data(rnew(i,26,25),i=1,4)/6.076d-09,0.3112d0,3.401d-01,1.960d+12/
580 data(rnew(i,26,26),i=1,4)/8.945d-09,0.2156d0,4.184d-02,5.353d+13/
581 data(fe(1,i),i=4,13)/4.33d-10,3.91d-10,3.49d-10,3.16d-10,
582 &2.96d-10,2.59d-10,2.24d-10,1.91d-10,1.68d-10,1.46d-10/
583 data(fe(2,i),i=4,13)/0.531,0.523,0.521,0.534,
584 &0.557,0.567,0.579,0.601,0.602,0.597/
585 data(fe(3,i),i=4,13)/5.77d-02,6.15d-02,6.22d-02,6.02d-02,
586 &5.79d-02,5.65d-02,5.49d-02,5.10d-02,5.07d-02,5.22d-02/
587
588 data(rrb(i, 1, 1),i=1,6)/8.318d-11,7.472d-01,2.965d+00,
589 &7.001d+05,0.000d+00,0.000d+00/
590 data(rrb(i, 2, 1),i=1,6)/1.818d-10,7.492d-01,1.017d+01,
591 &2.786d+06,0.000d+00,0.000d+00/
592 data(rrb(i, 3, 1),i=1,6)/2.867d-10,7.493d-01,2.108d+01,
593 &6.268d+06,0.000d+00,0.000d+00/
594 data(rrb(i, 4, 1),i=1,6)/3.375d-10,7.475d-01,4.628d+01,
595 &1.121d+07,0.000d+00,0.000d+00/
596 data(rrb(i, 5, 1),i=1,6)/4.647d-10,7.484d-01,6.142d+01,
597 &1.753d+07,0.000d+00,0.000d+00/
598 data(rrb(i, 6, 1),i=1,6)/5.337d-10,7.485d-01,9.502d+01,
599 &2.517d+07,0.000d+00,0.000d+00/
600 data(rrb(i, 7, 1),i=1,6)/6.170d-10,7.481d-01,1.316d+02,
601 &3.427d+07,0.000d+00,0.000d+00/
602 data(rrb(i, 8, 1),i=1,6)/6.552d-10,7.470d-01,1.951d+02,
603 &4.483d+07,0.000d+00,0.000d+00/
604 data(rrb(i, 9, 1),i=1,6)/8.218d-10,7.491d-01,2.046d+02,
605 &5.638d+07,0.000d+00,0.000d+00/
606 data(rrb(i,10, 1),i=1,6)/8.278d-10,7.470d-01,2.991d+02,
607 &7.006d+07,0.000d+00,0.000d+00/
608 data(rrb(i,11, 1),i=1,6)/9.743d-10,7.488d-01,3.217d+02,
609 &8.428d+07,0.000d+00,0.000d+00/
610 data(rrb(i,12, 1),i=1,6)/1.022d-09,7.476d-01,4.098d+02,
611 &1.011d+08,0.000d+00,0.000d+00/
612 data(rrb(i,13, 1),i=1,6)/1.134d-09,7.482d-01,4.619d+02,
613 &1.179d+08,0.000d+00,0.000d+00/
614 data(rrb(i,14, 1),i=1,6)/1.261d-09,7.488d-01,5.068d+02,
615 &1.365d+08,0.000d+00,0.000d+00/
616 data(rrb(i,15, 1),i=1,6)/1.269d-09,7.472d-01,6.495d+02,
617 &1.581d+08,0.000d+00,0.000d+00/
618 data(rrb(i,16, 1),i=1,6)/1.432d-09,7.485d-01,6.688d+02,
619 &1.793d+08,0.000d+00,0.000d+00/
620 data(rrb(i,17, 1),i=1,6)/1.487d-09,7.489d-01,7.847d+02,
621 &2.012d+08,0.000d+00,0.000d+00/
622 data(rrb(i,18, 1),i=1,6)/1.615d-09,7.483d-01,8.433d+02,
623 &2.266d+08,0.000d+00,0.000d+00/
624 data(rrb(i,19, 1),i=1,6)/1.623d-09,7.473d-01,1.024d+03,
625 &2.543d+08,0.000d+00,0.000d+00/
626 data(rrb(i,20, 1),i=1,6)/1.809d-09,7.490d-01,1.025d+03,
627 &2.788d+08,0.000d+00,0.000d+00/
628 data(rrb(i,21, 1),i=1,6)/1.752d-09,7.470d-01,1.303d+03,
629 &3.095d+08,0.000d+00,0.000d+00/
630 data(rrb(i,22, 1),i=1,6)/1.899d-09,7.476d-01,1.348d+03,
631 &3.393d+08,0.000d+00,0.000d+00/
632 data(rrb(i,23, 1),i=1,6)/2.051d-09,7.490d-01,1.389d+03,
633 &3.691d+08,0.000d+00,0.000d+00/
634 data(rrb(i,24, 1),i=1,6)/2.046d-09,7.476d-01,1.638d+03,
635 &4.027d+08,0.000d+00,0.000d+00/
636 data(rrb(i,25, 1),i=1,6)/2.306d-09,7.499d-01,1.546d+03,
637 &4.333d+08,0.000d+00,0.000d+00/
638 data(rrb(i,26, 1),i=1,6)/2.275d-09,7.481d-01,1.836d+03,
639 &4.736d+08,0.000d+00,0.000d+00/
640 data(rrb(i,27, 1),i=1,6)/2.234d-09,7.461d-01,2.190d+03,
641 &5.152d+08,0.000d+00,0.000d+00/
642 data(rrb(i,28, 1),i=1,6)/2.577d-09,7.497d-01,1.949d+03,
643 &5.434d+08,0.000d+00,0.000d+00/
644 data(rrb(i,29, 1),i=1,6)/2.456d-09,7.477d-01,2.414d+03,
645 &5.896d+08,0.000d+00,0.000d+00/
646 data(rrb(i,30, 1),i=1,6)/2.854d-09,7.491d-01,2.125d+03,
647 &6.271d+08,0.000d+00,0.000d+00/
648 data(rrb(i, 2, 2),i=1,6)/5.235d-11,6.988d-01,7.301d+00,
649 &4.475d+06,8.290d-02,1.682d+05/
650 data(rrb(i, 3, 2),i=1,6)/9.349d-11,6.916d-01,3.470d+01,
651 &7.329d+06,3.510d-02,6.293d+05/
652 data(rrb(i, 4, 2),i=1,6)/1.324d-10,6.806d-01,8.525d+01,
653 &1.510d+07,0.000d+00,0.000d+00/
654 data(rrb(i, 5, 2),i=1,6)/1.729d-10,6.776d-01,1.552d+02,
655 &2.065d+07,0.000d+00,0.000d+00/
656 data(rrb(i, 6, 2),i=1,6)/2.044d-10,6.742d-01,2.647d+02,
657 &2.773d+07,0.000d+00,0.000d+00/
658 data(rrb(i, 7, 2),i=1,6)/2.388d-10,6.732d-01,3.960d+02,
659 &3.583d+07,0.000d+00,0.000d+00/
660 data(rrb(i, 8, 2),i=1,6)/2.652d-10,6.705d-01,5.842d+02,
661 &4.559d+07,0.000d+00,0.000d+00/
662 data(rrb(i, 9, 2),i=1,6)/3.128d-10,6.712d-01,7.227d+02,
663 &5.587d+07,0.000d+00,0.000d+00/
664 data(rrb(i,10, 2),i=1,6)/3.415d-10,6.706d-01,9.552d+02,
665 &6.778d+07,0.000d+00,0.000d+00/
666 data(rrb(i,11, 2),i=1,6)/3.879d-10,6.718d-01,1.133d+03,
667 &8.008d+07,0.000d+00,0.000d+00/
668 data(rrb(i,12, 2),i=1,6)/4.214d-10,6.713d-01,1.396d+03,
669 &9.433d+07,0.000d+00,0.000d+00/
670 data(rrb(i,13, 2),i=1,6)/4.578d-10,6.707d-01,1.673d+03,
671 &1.096d+08,0.000d+00,0.000d+00/
672 data(rrb(i,14, 2),i=1,6)/4.870d-10,6.697d-01,2.026d+03,
673 &1.265d+08,0.000d+00,0.000d+00/
674 data(rrb(i,15, 2),i=1,6)/5.520d-10,6.724d-01,2.146d+03,
675 &1.423d+08,0.000d+00,0.000d+00/
676 data(rrb(i,16, 2),i=1,6)/5.546d-10,6.692d-01,2.754d+03,
677 &1.633d+08,0.000d+00,0.000d+00/
678 data(rrb(i,17, 2),i=1,6)/6.110d-10,6.712d-01,2.956d+03,
679 &1.810d+08,0.000d+00,0.000d+00/
680 data(rrb(i,18, 2),i=1,6)/6.405d-10,6.698d-01,3.425d+03,
681 &2.037d+08,0.000d+00,0.000d+00/
682 data(rrb(i,19, 2),i=1,6)/7.022d-10,6.721d-01,3.602d+03,
683 &2.234d+08,0.000d+00,0.000d+00/
684 data(rrb(i,20, 2),i=1,6)/7.045d-10,6.693d-01,4.391d+03,
685 &2.500d+08,0.000d+00,0.000d+00/
686 data(rrb(i,21, 2),i=1,6)/8.052d-10,6.750d-01,4.198d+03,
687 &2.669d+08,0.000d+00,0.000d+00/
688 data(rrb(i,22, 2),i=1,6)/8.152d-10,6.728d-01,4.937d+03,
689 &2.950d+08,0.000d+00,0.000d+00/
690 data(rrb(i,23, 2),i=1,6)/8.373d-10,6.711d-01,5.622d+03,
691 &3.232d+08,0.000d+00,0.000d+00/
692 data(rrb(i,24, 2),i=1,6)/8.771d-10,6.722d-01,6.118d+03,
693 &3.478d+08,0.000d+00,0.000d+00/
694 data(rrb(i,25, 2),i=1,6)/9.127d-10,6.717d-01,6.691d+03,
695 &3.775d+08,0.000d+00,0.000d+00/
696 data(rrb(i,26, 2),i=1,6)/9.983d-10,6.754d-01,6.651d+03,
697 &4.017d+08,0.000d+00,0.000d+00/
698 data(rrb(i,27, 2),i=1,6)/1.017d-09,6.738d-01,7.469d+03,
699 &4.347d+08,0.000d+00,0.000d+00/
700 data(rrb(i,28, 2),i=1,6)/1.063d-09,6.744d-01,7.979d+03,
701 &4.653d+08,0.000d+00,0.000d+00/
702 data(rrb(i,29, 2),i=1,6)/1.078d-09,6.736d-01,8.924d+03,
703 &4.988d+08,0.000d+00,0.000d+00/
704 data(rrb(i,30, 2),i=1,6)/1.142d-09,6.750d-01,9.193d+03,
705 &5.308d+08,0.000d+00,0.000d+00/
706 data(rrb(i, 3, 3),i=1,6)/8.700d-12,3.640d-01,1.470d+02,
707 &7.153d+06,1.508d-01,7.154d+05/
708 data(rrb(i, 4, 3),i=1,6)/1.861d-11,4.052d-01,5.365d+02,
709 &2.254d+07,0.000d+00,0.000d+00/
710 data(rrb(i, 5, 3),i=1,6)/3.251d-11,4.558d-01,9.164d+02,
711 &1.749d+07,0.000d+00,0.000d+00/
712 data(rrb(i, 6, 3),i=1,6)/4.798d-11,4.834d-01,1.355d+03,
713 &1.872d+07,0.000d+00,0.000d+00/
714 data(rrb(i, 7, 3),i=1,6)/6.245d-11,4.985d-01,1.957d+03,
715 &2.177d+07,0.000d+00,0.000d+00/
716 data(rrb(i, 8, 3),i=1,6)/8.193d-11,5.165d-01,2.392d+03,
717 &2.487d+07,0.000d+00,0.000d+00/
718 data(rrb(i, 9, 3),i=1,6)/9.958d-11,5.274d-01,3.012d+03,
719 &2.896d+07,0.000d+00,0.000d+00/
720 data(rrb(i,10, 3),i=1,6)/1.186d-10,5.354d-01,3.647d+03,
721 &3.365d+07,0.000d+00,0.000d+00/
722 data(rrb(i,11, 3),i=1,6)/1.393d-10,5.433d-01,4.258d+03,
723 &3.872d+07,0.000d+00,0.000d+00/
724 data(rrb(i,12, 3),i=1,6)/1.602d-10,5.492d-01,4.944d+03,
725 &4.434d+07,0.000d+00,0.000d+00/
726 data(rrb(i,13, 3),i=1,6)/1.761d-10,5.514d-01,5.962d+03,
727 &5.081d+07,0.000d+00,0.000d+00/
728 data(rrb(i,14, 3),i=1,6)/2.017d-10,5.588d-01,6.494d+03,
729 &5.693d+07,0.000d+00,0.000d+00/
730 data(rrb(i,15, 3),i=1,6)/2.190d-10,5.607d-01,7.591d+03,
731 &6.396d+07,0.000d+00,0.000d+00/
732 data(rrb(i,16, 3),i=1,6)/2.362d-10,5.615d-01,8.776d+03,
733 &7.208d+07,0.000d+00,0.000d+00/
734 data(rrb(i,17, 3),i=1,6)/2.594d-10,5.663d-01,9.623d+03,
735 &7.952d+07,0.000d+00,0.000d+00/
736 data(rrb(i,18, 3),i=1,6)/2.812d-10,5.686d-01,1.063d+04,
737 &8.779d+07,0.000d+00,0.000d+00/
738 data(rrb(i,19, 3),i=1,6)/3.046d-10,5.712d-01,1.160d+04,
739 &9.639d+07,0.000d+00,0.000d+00/
740 data(rrb(i,20, 3),i=1,6)/3.250d-10,5.743d-01,1.276d+04,
741 &1.051d+08,0.000d+00,0.000d+00/
742 data(rrb(i,21, 3),i=1,6)/3.366d-10,5.721d-01,1.473d+04,
743 &1.163d+08,0.000d+00,0.000d+00/
744 data(rrb(i,22, 3),i=1,6)/3.658d-10,5.767d-01,1.540d+04,
745 &1.250d+08,0.000d+00,0.000d+00/
746 data(rrb(i,23, 3),i=1,6)/3.815d-10,5.761d-01,1.718d+04,
747 &1.368d+08,0.000d+00,0.000d+00/
748 data(rrb(i,24, 3),i=1,6)/3.963d-10,5.760d-01,1.914d+04,
749 &1.479d+08,0.000d+00,0.000d+00/
750 data(rrb(i,25, 3),i=1,6)/4.386d-10,5.838d-01,1.888d+04,
751 &1.556d+08,0.000d+00,0.000d+00/
752 data(rrb(i,26, 3),i=1,6)/4.458d-10,5.802d-01,2.155d+04,
753 &1.701d+08,0.000d+00,0.000d+00/
754 data(rrb(i,27, 3),i=1,6)/4.629d-10,5.805d-01,2.352d+04,
755 &1.831d+08,0.000d+00,0.000d+00/
756 data(rrb(i,28, 3),i=1,6)/4.901d-10,5.836d-01,2.460d+04,
757 &1.937d+08,0.000d+00,0.000d+00/
758 data(rrb(i,29, 3),i=1,6)/5.041d-10,5.828d-01,2.701d+04,
759 &2.082d+08,0.000d+00,0.000d+00/
760 data(rrb(i,30, 3),i=1,6)/5.258d-10,5.832d-01,2.882d+04,
761 &2.221d+08,0.000d+00,0.000d+00/
762 data(rrb(i, 4, 4),i=1,6)/1.793d-10,7.669d-01,8.938d-01,
763 &2.138d+06,3.100d-02,1.382d+04/
764 data(rrb(i, 5, 4),i=1,6)/3.417d-10,7.512d-01,3.604d+00,
765 &2.821d+06,3.510d-02,1.295d+07/
766 data(rrb(i, 6, 4),i=1,6)/1.120d-10,6.737d-01,1.115d+02,
767 &5.938d+06,0.000d+00,0.000d+00/
768 data(rrb(i, 7, 4),i=1,6)/1.533d-10,6.682d-01,1.823d+02,
769 &7.751d+06,0.000d+00,0.000d+00/
770 data(rrb(i, 8, 4),i=1,6)/1.724d-10,6.556d-01,3.372d+02,
771 &1.030d+07,0.000d+00,0.000d+00/
772 data(rrb(i, 9, 4),i=1,6)/2.244d-10,6.574d-01,4.147d+02,
773 &1.268d+07,0.000d+00,0.000d+00/
774 data(rrb(i,10, 4),i=1,6)/2.755d-10,6.586d-01,5.102d+02,
775 &1.535d+07,0.000d+00,0.000d+00/
776 data(rrb(i,11, 4),i=1,6)/3.171d-10,6.576d-01,6.526d+02,
777 &1.848d+07,0.000d+00,0.000d+00/
778 data(rrb(i,12, 4),i=1,6)/3.445d-10,6.553d-01,8.693d+02,
779 &2.196d+07,0.000d+00,0.000d+00/
780 data(rrb(i,13, 4),i=1,6)/3.916d-10,6.565d-01,1.025d+03,
781 &2.544d+07,0.000d+00,0.000d+00/
782 data(rrb(i,14, 4),i=1,6)/4.633d-10,6.602d-01,1.088d+03,
783 &2.896d+07,0.000d+00,0.000d+00/
784 data(rrb(i,15, 4),i=1,6)/4.972d-10,6.581d-01,1.329d+03,
785 &3.346d+07,0.000d+00,0.000d+00/
786 data(rrb(i,16, 4),i=1,6)/5.511d-10,6.598d-01,1.492d+03,
787 &3.755d+07,0.000d+00,0.000d+00/
788 data(rrb(i,17, 4),i=1,6)/6.038d-10,6.611d-01,1.670d+03,
789 &4.213d+07,0.000d+00,0.000d+00/
790 data(rrb(i,18, 4),i=1,6)/6.557d-10,6.624d-01,1.868d+03,
791 &4.693d+07,0.000d+00,0.000d+00/
792 data(rrb(i,19, 4),i=1,6)/7.052d-10,6.613d-01,2.094d+03,
793 &5.246d+07,0.000d+00,0.000d+00/
794 data(rrb(i,20, 4),i=1,6)/7.848d-10,6.644d-01,2.173d+03,
795 &5.749d+07,0.000d+00,0.000d+00/
796 data(rrb(i,21, 4),i=1,6)/8.463d-10,6.653d-01,2.355d+03,
797 &6.304d+07,0.000d+00,0.000d+00/
798 data(rrb(i,22, 4),i=1,6)/9.040d-10,6.666d-01,2.565d+03,
799 &6.864d+07,0.000d+00,0.000d+00/
800 data(rrb(i,23, 4),i=1,6)/9.483d-10,6.655d-01,2.859d+03,
801 &7.531d+07,0.000d+00,0.000d+00/
802 data(rrb(i,24, 4),i=1,6)/9.718d-10,6.643d-01,3.285d+03,
803 &8.221d+07,0.000d+00,0.000d+00/
804 data(rrb(i,25, 4),i=1,6)/1.065d-09,6.668d-01,3.327d+03,
805 &8.827d+07,0.000d+00,0.000d+00/
806 data(rrb(i,26, 4),i=1,6)/1.186d-09,6.713d-01,3.253d+03,
807 &9.392d+07,0.000d+00,0.000d+00/
808 data(rrb(i,27, 4),i=1,6)/1.181d-09,6.681d-01,3.839d+03,
809 &1.023d+08,0.000d+00,0.000d+00/
810 data(rrb(i,28, 4),i=1,6)/1.259d-09,6.699d-01,3.991d+03,
811 &1.094d+08,0.000d+00,0.000d+00/
812 data(rrb(i,29, 4),i=1,6)/1.249d-09,6.668d-01,4.697d+03,
813 &1.181d+08,0.000d+00,0.000d+00/
814 data(rrb(i,30, 4),i=1,6)/1.381d-09,6.705d-01,4.543d+03,
815 &1.249d+08,0.000d+00,0.000d+00/
816 data(rrb(i, 5, 5),i=1,6)/1.998d-09,8.277d-01,1.269d-02,
817 &1.016d+06,9.010d-02,3.058d+04/
818 data(rrb(i, 6, 5),i=1,6)/2.067d-09,8.012d-01,1.643d-01,
819 &2.172d+06,4.270d-02,6.341d+04/
820 data(rrb(i, 7, 5),i=1,6)/7.923d-10,7.768d-01,3.750d+00,
821 &3.468d+06,2.230d-02,7.206d+04/
822 data(rrb(i, 8, 5),i=1,6)/3.955d-09,7.813d-01,6.821d-01,
823 &5.076d+06,0.000d+00,0.000d+00/
824 data(rrb(i, 9, 5),i=1,6)/3.298d-09,7.702d-01,2.103d+00,
825 &6.441d+06,0.000d+00,0.000d+00/
826 data(rrb(i,10, 5),i=1,6)/2.557d-09,7.601d-01,6.293d+00,
827 &8.091d+06,0.000d+00,0.000d+00/
828 data(rrb(i,11, 5),i=1,6)/1.654d-09,7.508d-01,2.276d+01,
829 &9.950d+06,0.000d+00,0.000d+00/
830 data(rrb(i,12, 5),i=1,6)/1.634d-09,7.435d-01,3.806d+01,
831 &1.205d+07,0.000d+00,0.000d+00/
832 data(rrb(i,13, 5),i=1,6)/1.578d-09,7.394d-01,6.157d+01,
833 &1.427d+07,0.000d+00,0.000d+00/
834 data(rrb(i,14, 5),i=1,6)/1.851d-09,7.384d-01,6.906d+01,
835 &1.644d+07,0.000d+00,0.000d+00/
836 data(rrb(i,15, 5),i=1,6)/1.543d-09,7.315d-01,1.330d+02,
837 &1.926d+07,0.000d+00,0.000d+00/
838 data(rrb(i,16, 5),i=1,6)/1.740d-09,7.303d-01,1.494d+02,
839 &2.193d+07,0.000d+00,0.000d+00/
840 data(rrb(i,17, 5),i=1,6)/2.027d-09,7.307d-01,1.541d+02,
841 &2.470d+07,0.000d+00,0.000d+00/
842 data(rrb(i,18, 5),i=1,6)/2.165d-09,7.307d-01,1.801d+02,
843 &2.753d+07,0.000d+00,0.000d+00/
844 data(rrb(i,19, 5),i=1,6)/2.224d-09,7.299d-01,2.212d+02,
845 &3.069d+07,0.000d+00,0.000d+00/
846 data(rrb(i,20, 5),i=1,6)/2.421d-09,7.278d-01,2.438d+02,
847 &3.424d+07,0.000d+00,0.000d+00/
848 data(rrb(i,21, 5),i=1,6)/2.253d-09,7.253d-01,3.425d+02,
849 &3.802d+07,0.000d+00,0.000d+00/
850 data(rrb(i,22, 5),i=1,6)/2.463d-09,7.249d-01,3.638d+02,
851 &4.164d+07,0.000d+00,0.000d+00/
852 data(rrb(i,23, 5),i=1,6)/2.660d-09,7.253d-01,3.897d+02,
853 &4.538d+07,0.000d+00,0.000d+00/
854 data(rrb(i,24, 5),i=1,6)/2.747d-09,7.251d-01,4.436d+02,
855 &4.921d+07,0.000d+00,0.000d+00/
856 data(rrb(i,25, 5),i=1,6)/2.589d-09,7.216d-01,5.887d+02,
857 &5.400d+07,0.000d+00,0.000d+00/
858 data(rrb(i,26, 5),i=1,6)/3.322d-09,7.264d-01,4.563d+02,
859 &5.746d+07,0.000d+00,0.000d+00/
860 data(rrb(i,27, 5),i=1,6)/3.885d-09,7.301d-01,4.100d+02,
861 &6.101d+07,0.000d+00,0.000d+00/
862 data(rrb(i,28, 5),i=1,6)/3.531d-09,7.260d-01,5.650d+02,
863 &6.627d+07,0.000d+00,0.000d+00/
864 data(rrb(i,29, 5),i=1,6)/3.862d-09,7.272d-01,5.631d+02,
865 &7.100d+07,0.000d+00,0.000d+00/
866 data(rrb(i,30, 5),i=1,6)/4.233d-09,7.283d-01,5.568d+02,
867 &7.545d+07,0.000d+00,0.000d+00/
868 data(rrb(i, 6, 6),i=1,6)/2.995d-09,7.849d-01,6.670d-03,
869 &1.943d+06,1.597d-01,4.955d+04/
870 data(rrb(i, 7, 6),i=1,6)/2.410d-09,7.948d-01,1.231d-01,
871 &3.016d+06,7.740d-02,1.016d+05/
872 data(rrb(i, 8, 6),i=1,6)/2.501d-09,7.844d-01,5.235d-01,
873 &4.470d+06,4.470d-02,1.642d+05/
874 data(rrb(i, 9, 6),i=1,6)/2.236d-09,7.725d-01,1.828d+00,
875 &5.982d+06,3.190d-02,2.529d+05/
876 data(rrb(i,10, 6),i=1,6)/1.127d-09,7.556d-01,1.311d+01,
877 &8.047d+06,2.500d-02,2.771d+05/
878 data(rrb(i,11, 6),i=1,6)/4.040d-09,7.665d-01,2.908d+00,
879 &1.043d+07,0.000d+00,0.000d+00/
880 data(rrb(i,12, 6),i=1,6)/3.859d-09,7.579d-01,5.587d+00,
881 &1.235d+07,0.000d+00,0.000d+00/
882 data(rrb(i,13, 6),i=1,6)/2.284d-09,7.480d-01,2.178d+01,
883 &1.460d+07,0.000d+00,0.000d+00/
884 data(rrb(i,14, 6),i=1,6)/1.688d-09,7.390d-01,5.549d+01,
885 &1.716d+07,0.000d+00,0.000d+00/
886 data(rrb(i,15, 6),i=1,6)/1.948d-09,7.375d-01,6.372d+01,
887 &1.947d+07,0.000d+00,0.000d+00/
888 data(rrb(i,16, 6),i=1,6)/1.702d-09,7.301d-01,1.138d+02,
889 &2.253d+07,0.000d+00,0.000d+00/
890 data(rrb(i,17, 6),i=1,6)/1.655d-09,7.262d-01,1.636d+02,
891 &2.543d+07,0.000d+00,0.000d+00/
892 data(rrb(i,18, 6),i=1,6)/1.780d-09,7.252d-01,1.933d+02,
893 &2.837d+07,0.000d+00,0.000d+00/
894 data(rrb(i,19, 6),i=1,6)/2.079d-09,7.245d-01,1.954d+02,
895 &3.156d+07,0.000d+00,0.000d+00/
896 data(rrb(i,20, 6),i=1,6)/2.019d-09,7.215d-01,2.644d+02,
897 &3.506d+07,0.000d+00,0.000d+00/
898 data(rrb(i,21, 6),i=1,6)/2.055d-09,7.200d-01,3.236d+02,
899 &3.860d+07,0.000d+00,0.000d+00/
900 data(rrb(i,22, 6),i=1,6)/1.959d-09,7.169d-01,4.381d+02,
901 &4.258d+07,0.000d+00,0.000d+00/
902 data(rrb(i,23, 6),i=1,6)/2.131d-09,7.166d-01,4.679d+02,
903 &4.637d+07,0.000d+00,0.000d+00/
904 data(rrb(i,24, 6),i=1,6)/2.302d-09,7.167d-01,5.002d+02,
905 &5.030d+07,0.000d+00,0.000d+00/
906 data(rrb(i,25, 6),i=1,6)/2.450d-09,7.160d-01,5.442d+02,
907 &5.456d+07,0.000d+00,0.000d+00/
908 data(rrb(i,26, 6),i=1,6)/2.199d-09,7.118d-01,7.810d+02,
909 &5.946d+07,0.000d+00,0.000d+00/
910 data(rrb(i,27, 6),i=1,6)/2.654d-09,7.148d-01,6.726d+02,
911 &6.351d+07,0.000d+00,0.000d+00/
912 data(rrb(i,28, 6),i=1,6)/2.660d-09,7.150d-01,7.865d+02,
913 &6.761d+07,0.000d+00,0.000d+00/
914 data(rrb(i,29, 6),i=1,6)/2.679d-09,7.128d-01,9.094d+02,
915 &7.300d+07,0.000d+00,0.000d+00/
916 data(rrb(i,30, 6),i=1,6)/2.916d-09,7.150d-01,9.113d+02,
917 &7.726d+07,0.000d+00,0.000d+00/
918 data(rrb(i, 7, 7),i=1,6)/6.387d-10,7.308d-01,9.467d-02,
919 &2.954d+06,2.440d-01,6.739d+04/
920 data(rrb(i, 8, 7),i=1,6)/2.096d-09,7.668d-01,1.602d-01,
921 &4.377d+06,1.070d-01,1.392d+05/
922 data(rrb(i, 9, 7),i=1,6)/1.468d-09,7.652d-01,1.284d+00,
923 &6.039d+06,6.640d-02,2.235d+05/
924 data(rrb(i,10, 7),i=1,6)/1.861d-09,7.593d-01,2.504d+00,
925 &8.037d+06,4.060d-02,3.255d+05/
926 data(rrb(i,11, 7),i=1,6)/1.077d-09,7.469d-01,1.430d+01,
927 &1.018d+07,2.890d-02,3.593d+05/
928 data(rrb(i,12, 7),i=1,6)/9.133d-10,7.353d-01,3.674d+01,
929 &1.263d+07,2.110d-02,4.049d+05/
930 data(rrb(i,13, 7),i=1,6)/4.100d-09,7.507d-01,5.134d+00,
931 &1.603d+07,0.000d+00,0.000d+00/
932 data(rrb(i,14, 7),i=1,6)/2.100d-09,7.401d-01,2.523d+01,
933 &1.842d+07,0.000d+00,0.000d+00/
934 data(rrb(i,15, 7),i=1,6)/1.763d-09,7.310d-01,5.234d+01,
935 &2.117d+07,0.000d+00,0.000d+00/
936 data(rrb(i,16, 7),i=1,6)/1.518d-09,7.246d-01,9.845d+01,
937 &2.390d+07,0.000d+00,0.000d+00/
938 data(rrb(i,17, 7),i=1,6)/1.440d-09,7.187d-01,1.522d+02,
939 &2.712d+07,0.000d+00,0.000d+00/
940 data(rrb(i,18, 7),i=1,6)/1.464d-09,7.144d-01,2.040d+02,
941 &3.025d+07,0.000d+00,0.000d+00/
942 data(rrb(i,19, 7),i=1,6)/1.461d-09,7.108d-01,2.734d+02,
943 &3.371d+07,0.000d+00,0.000d+00/
944 data(rrb(i,20, 7),i=1,6)/1.532d-09,7.089d-01,3.305d+02,
945 &3.713d+07,0.000d+00,0.000d+00/
946 data(rrb(i,21, 7),i=1,6)/1.432d-09,7.048d-01,4.761d+02,
947 &4.102d+07,0.000d+00,0.000d+00/
948 data(rrb(i,22, 7),i=1,6)/1.458d-09,7.005d-01,5.875d+02,
949 &4.526d+07,0.000d+00,0.000d+00/
950 data(rrb(i,23, 7),i=1,6)/1.532d-09,7.008d-01,6.698d+02,
951 &4.908d+07,0.000d+00,0.000d+00/
952 data(rrb(i,24, 7),i=1,6)/1.567d-09,6.986d-01,7.957d+02,
953 &5.340d+07,0.000d+00,0.000d+00/
954 data(rrb(i,25, 7),i=1,6)/1.642d-09,6.982d-01,8.948d+02,
955 &5.767d+07,0.000d+00,0.000d+00/
956 data(rrb(i,26, 7),i=1,6)/1.659d-09,6.958d-01,1.061d+03,
957 &6.253d+07,0.000d+00,0.000d+00/
958 data(rrb(i,27, 7),i=1,6)/1.672d-09,6.935d-01,1.254d+03,
959 &6.763d+07,0.000d+00,0.000d+00/
960 data(rrb(i,28, 7),i=1,6)/1.744d-09,6.928d-01,1.385d+03,
961 &7.245d+07,0.000d+00,0.000d+00/
962 data(rrb(i,29, 7),i=1,6)/2.128d-09,6.988d-01,1.157d+03,
963 &7.589d+07,0.000d+00,0.000d+00/
964 data(rrb(i,30, 7),i=1,6)/1.805d-09,6.906d-01,1.794d+03,
965 &8.293d+07,0.000d+00,0.000d+00/
966 data(rrb(i, 8, 8),i=1,6)/6.622d-11,6.109d-01,4.136d+00,
967 &4.214d+06,4.093d-01,8.770d+04/
968 data(rrb(i, 9, 8),i=1,6)/5.595d-10,7.083d-01,1.462d+00,
969 &6.258d+06,1.645d-01,1.880d+05/
970 data(rrb(i,10, 8),i=1,6)/8.321d-10,7.254d-01,3.332d+00,
971 &8.696d+06,9.210d-02,3.044d+05/
972 data(rrb(i,11, 8),i=1,6)/1.087d-09,7.284d-01,6.132d+00,
973 &1.088d+07,6.290d-02,4.559d+05/
974 data(rrb(i,12, 8),i=1,6)/7.515d-10,7.203d-01,2.582d+01,
975 &1.355d+07,4.360d-02,5.691d+05/
976 data(rrb(i,13, 8),i=1,6)/7.728d-10,7.152d-01,4.818d+01,
977 &1.672d+07,2.710d-02,7.209d+05/
978 data(rrb(i,14, 8),i=1,6)/7.532d-10,7.072d-01,8.860d+01,
979 &1.997d+07,1.850d-02,6.949d+05/
980 data(rrb(i,15, 8),i=1,6)/1.570d-09,7.190d-01,4.177d+01,
981 &2.438d+07,0.000d+00,0.000d+00/
982 data(rrb(i,16, 8),i=1,6)/1.137d-09,7.080d-01,1.099d+02,
983 &2.745d+07,0.000d+00,0.000d+00/
984 data(rrb(i,17, 8),i=1,6)/1.146d-09,7.033d-01,1.593d+02,
985 &3.034d+07,0.000d+00,0.000d+00/
986 data(rrb(i,18, 8),i=1,6)/1.022d-09,6.948d-01,2.747d+02,
987 &3.391d+07,0.000d+00,0.000d+00/
988 data(rrb(i,19, 8),i=1,6)/9.722d-10,6.898d-01,4.087d+02,
989 &3.753d+07,0.000d+00,0.000d+00/
990 data(rrb(i,20, 8),i=1,6)/9.575d-10,6.843d-01,5.634d+02,
991 &4.150d+07,0.000d+00,0.000d+00/
992 data(rrb(i,21, 8),i=1,6)/1.011d-09,6.827d-01,6.726d+02,
993 &4.518d+07,0.000d+00,0.000d+00/
994 data(rrb(i,22, 8),i=1,6)/1.043d-09,6.798d-01,8.226d+02,
995 &4.947d+07,0.000d+00,0.000d+00/
996 data(rrb(i,23, 8),i=1,6)/1.049d-09,6.763d-01,1.032d+03,
997 &5.381d+07,0.000d+00,0.000d+00/
998 data(rrb(i,24, 8),i=1,6)/1.053d-09,6.736d-01,1.278d+03,
999 &5.857d+07,0.000d+00,0.000d+00/
1000 data(rrb(i,25, 8),i=1,6)/1.089d-09,6.713d-01,1.488d+03,
1001 &6.327d+07,0.000d+00,0.000d+00/
1002 data(rrb(i,26, 8),i=1,6)/1.135d-09,6.705d-01,1.691d+03,
1003 &6.809d+07,0.000d+00,0.000d+00/
1004 data(rrb(i,27, 8),i=1,6)/1.177d-09,6.687d-01,1.921d+03,
1005 &7.331d+07,0.000d+00,0.000d+00/
1006 data(rrb(i,28, 8),i=1,6)/1.172d-09,6.652d-01,2.320d+03,
1007 &7.926d+07,0.000d+00,0.000d+00/
1008 data(rrb(i,29, 8),i=1,6)/1.295d-09,6.672d-01,2.319d+03,
1009 &8.388d+07,0.000d+00,0.000d+00/
1010 data(rrb(i,30, 8),i=1,6)/1.250d-09,6.640d-01,2.899d+03,
1011 &8.992d+07,0.000d+00,0.000d+00/
1012 data(rrb(i, 9, 9),i=1,6)/3.769d-11,5.559d-01,1.091d+01,
1013 &6.413d+06,4.534d-01,1.095d+05/
1014 data(rrb(i,10, 9),i=1,6)/1.773d-10,6.434d-01,9.924d+00,
1015 &8.878d+06,2.205d-01,2.292d+05/
1016 data(rrb(i,11, 9),i=1,6)/3.192d-10,6.726d-01,1.640d+01,
1017 &1.263d+07,1.232d-01,3.725d+05/
1018 data(rrb(i,12, 9),i=1,6)/4.031d-10,6.803d-01,3.205d+01,
1019 &1.626d+07,7.640d-02,5.399d+05/
1020 data(rrb(i,13, 9),i=1,6)/4.438d-10,6.789d-01,6.204d+01,
1021 &1.940d+07,5.710d-02,7.410d+05/
1022 data(rrb(i,14, 9),i=1,6)/4.615d-10,6.753d-01,1.143d+02,
1023 &2.377d+07,3.560d-02,8.595d+05/
1024 data(rrb(i,15, 9),i=1,6)/5.508d-10,6.748d-01,1.501d+02,
1025 &2.772d+07,2.130d-02,1.109d+06/
1026 data(rrb(i,16, 9),i=1,6)/8.773d-10,6.853d-01,1.115d+02,
1027 &3.386d+07,0.000d+00,0.000d+00/
1028 data(rrb(i,17, 9),i=1,6)/7.522d-10,6.767d-01,2.213d+02,
1029 &3.678d+07,0.000d+00,0.000d+00/
1030 data(rrb(i,18, 9),i=1,6)/6.805d-10,6.667d-01,3.866d+02,
1031 &4.062d+07,0.000d+00,0.000d+00/
1032 data(rrb(i,19, 9),i=1,6)/6.633d-10,6.599d-01,5.735d+02,
1033 &4.447d+07,0.000d+00,0.000d+00/
1034 data(rrb(i,20, 9),i=1,6)/6.699d-10,6.546d-01,7.761d+02,
1035 &4.861d+07,0.000d+00,0.000d+00/
1036 data(rrb(i,21, 9),i=1,6)/6.581d-10,6.494d-01,1.072d+03,
1037 &5.292d+07,0.000d+00,0.000d+00/
1038 data(rrb(i,22, 9),i=1,6)/6.854d-10,6.464d-01,1.313d+03,
1039 &5.733d+07,0.000d+00,0.000d+00/
1040 data(rrb(i,23, 9),i=1,6)/7.140d-10,6.441d-01,1.579d+03,
1041 &6.195d+07,0.000d+00,0.000d+00/
1042 data(rrb(i,24, 9),i=1,6)/6.832d-10,6.367d-01,2.162d+03,
1043 &6.770d+07,0.000d+00,0.000d+00/
1044 data(rrb(i,25, 9),i=1,6)/7.236d-10,6.359d-01,2.448d+03,
1045 &7.264d+07,0.000d+00,0.000d+00/
1046 data(rrb(i,26, 9),i=1,6)/7.556d-10,6.351d-01,2.800d+03,
1047 &7.742d+07,0.000d+00,0.000d+00/
1048 data(rrb(i,27, 9),i=1,6)/7.582d-10,6.307d-01,3.402d+03,
1049 &8.406d+07,0.000d+00,0.000d+00/
1050 data(rrb(i,28, 9),i=1,6)/7.889d-10,6.292d-01,3.842d+03,
1051 &8.956d+07,0.000d+00,0.000d+00/
1052 data(rrb(i,29, 9),i=1,6)/8.107d-10,6.290d-01,4.369d+03,
1053 &9.503d+07,0.000d+00,0.000d+00/
1054 data(rrb(i,30, 9),i=1,6)/8.533d-10,6.278d-01,4.759d+03,
1055 &1.011d+08,0.000d+00,0.000d+00/
1056 data(rrb(i,10,10),i=1,6)/1.295d-11,3.556d-01,6.739d+01,
1057 &7.563d+06,6.472d-01,1.598d+05/
1058 data(rrb(i,11,10),i=1,6)/5.176d-11,4.811d-01,7.751d+01,
1059 &1.351d+07,3.467d-01,3.140d+05/
1060 data(rrb(i,12,10),i=1,6)/1.249d-10,5.600d-01,7.748d+01,
1061 &2.015d+07,1.917d-01,5.139d+05/
1062 data(rrb(i,13,10),i=1,6)/2.011d-10,5.984d-01,1.013d+02,
1063 &2.635d+07,1.072d-01,7.591d+05/
1064 data(rrb(i,14,10),i=1,6)/2.468d-10,6.113d-01,1.649d+02,
1065 &3.231d+07,6.360d-02,9.837d+05/
1066 data(rrb(i,15,10),i=1,6)/2.981d-10,6.173d-01,2.372d+02,
1067 &3.807d+07,3.610d-02,1.306d+06/
1068 data(rrb(i,16,10),i=1,6)/3.384d-10,6.175d-01,3.380d+02,
1069 &4.347d+07,2.250d-02,1.672d+06/
1070 data(rrb(i,17,10),i=1,6)/4.354d-10,6.262d-01,3.604d+02,
1071 &5.251d+07,0.000d+00,0.000d+00/
1072 data(rrb(i,18,10),i=1,6)/4.228d-10,6.181d-01,5.880d+02,
1073 &5.535d+07,0.000d+00,0.000d+00/
1074 data(rrb(i,19,10),i=1,6)/4.044d-10,6.099d-01,9.347d+02,
1075 &5.922d+07,0.000d+00,0.000d+00/
1076 data(rrb(i,20,10),i=1,6)/3.992d-10,6.025d-01,1.362d+03,
1077 &6.373d+07,0.000d+00,0.000d+00/
1078 data(rrb(i,21,10),i=1,6)/4.070d-10,5.968d-01,1.819d+03,
1079 &6.864d+07,0.000d+00,0.000d+00/
1080 data(rrb(i,22,10),i=1,6)/4.281d-10,5.954d-01,2.234d+03,
1081 &7.270d+07,0.000d+00,0.000d+00/
1082 data(rrb(i,23,10),i=1,6)/4.227d-10,5.885d-01,3.007d+03,
1083 &7.863d+07,0.000d+00,0.000d+00/
1084 data(rrb(i,24,10),i=1,6)/4.341d-10,5.846d-01,3.714d+03,
1085 &8.452d+07,0.000d+00,0.000d+00/
1086 data(rrb(i,25,10),i=1,6)/4.710d-10,5.863d-01,4.081d+03,
1087 &8.874d+07,0.000d+00,0.000d+00/
1088 data(rrb(i,26,10),i=1,6)/4.791d-10,5.823d-01,4.967d+03,
1089 &9.535d+07,0.000d+00,0.000d+00/
1090 data(rrb(i,27,10),i=1,6)/5.045d-10,5.808d-01,5.617d+03,
1091 &1.015d+08,0.000d+00,0.000d+00/
1092 data(rrb(i,28,10),i=1,6)/5.081d-10,5.766d-01,6.786d+03,
1093 &1.088d+08,0.000d+00,0.000d+00/
1094 data(rrb(i,29,10),i=1,6)/5.402d-10,5.769d-01,7.375d+03,
1095 &1.150d+08,0.000d+00,0.000d+00/
1096 data(rrb(i,30,10),i=1,6)/5.284d-10,5.705d-01,9.182d+03,
1097 &1.239d+08,0.000d+00,0.000d+00/
1098 data(rrb(i,11,11),i=1,6)/5.095d-12,0.000d+00,3.546d+02,
1099 &2.310d+06,9.395d-01,4.297d+05/
1100 data(rrb(i,12,11),i=1,6)/1.345d-11,1.074d-01,7.877d+02,
1101 &7.925d+07,4.631d-01,5.027d+05/
1102 data(rrb(i,13,11),i=1,6)/3.107d-11,2.854d-01,8.207d+02,
1103 &8.117d+07,2.631d-01,7.693d+05/
1104 data(rrb(i,14,11),i=1,6)/5.134d-11,3.678d-01,1.009d+03,
1105 &8.514d+07,1.646d-01,1.084d+06/
1106 data(rrb(i,15,11),i=1,6)/7.550d-11,4.244d-01,1.206d+03,
1107 &8.603d+07,1.008d-01,1.498d+06/
1108 data(rrb(i,16,11),i=1,6)/9.565d-11,4.517d-01,1.599d+03,
1109 &9.252d+07,6.120d-02,1.986d+06/
1110 data(rrb(i,17,11),i=1,6)/1.144d-10,4.665d-01,2.108d+03,
1111 &9.895d+07,3.620d-02,2.397d+06/
1112 data(rrb(i,18,11),i=1,6)/1.313d-10,4.722d-01,2.767d+03,
1113 &1.066d+08,2.080d-02,2.725d+06/
1114 data(rrb(i,19,11),i=1,6)/1.590d-10,4.867d-01,3.096d+03,
1115 &1.192d+08,0.000d+00,0.000d+00/
1116 data(rrb(i,20,11),i=1,6)/1.622d-10,4.804d-01,4.449d+03,
1117 &1.204d+08,0.000d+00,0.000d+00/
1118 data(rrb(i,21,11),i=1,6)/1.647d-10,4.734d-01,6.182d+03,
1119 &1.253d+08,0.000d+00,0.000d+00/
1120 data(rrb(i,22,11),i=1,6)/1.730d-10,4.687d-01,7.898d+03,
1121 &1.302d+08,0.000d+00,0.000d+00/
1122 data(rrb(i,23,11),i=1,6)/1.800d-10,4.650d-01,9.950d+03,
1123 &1.357d+08,0.000d+00,0.000d+00/
1124 data(rrb(i,24,11),i=1,6)/1.868d-10,4.603d-01,1.233d+04,
1125 &1.432d+08,0.000d+00,0.000d+00/
1126 data(rrb(i,25,11),i=1,6)/1.924d-10,4.562d-01,1.514d+04,
1127 &1.509d+08,0.000d+00,0.000d+00/
1128 data(rrb(i,26,11),i=1,6)/2.034d-10,4.548d-01,1.751d+04,
1129 &1.579d+08,0.000d+00,0.000d+00/
1130 data(rrb(i,27,11),i=1,6)/2.125d-10,4.518d-01,2.042d+04,
1131 &1.667d+08,0.000d+00,0.000d+00/
1132 data(rrb(i,28,11),i=1,6)/2.208d-10,4.504d-01,2.355d+04,
1133 &1.749d+08,0.000d+00,0.000d+00/
1134 data(rrb(i,29,11),i=1,6)/2.271d-10,4.464d-01,2.753d+04,
1135 &1.853d+08,0.000d+00,0.000d+00/
1136 data(rrb(i,30,11),i=1,6)/2.397d-10,4.458d-01,3.040d+04,
1137 &1.941d+08,0.000d+00,0.000d+00/
1138 data(rrb(i,12,12),i=1,6)/5.452d-11,6.845d-01,5.637d+00,
1139 &1.551d+06,3.945d-01,8.360d+05/
1140 data(rrb(i,13,12),i=1,6)/3.171d-11,4.493d-01,1.821d+02,
1141 &3.529d+07,2.642d-01,7.190d+05/
1142 data(rrb(i,14,12),i=1,6)/6.739d-11,4.931d-01,2.166d+02,
1143 &4.491d+07,1.667d-01,9.046d+05/
1144 data(rrb(i,15,12),i=1,6)/1.128d-10,5.330d-01,2.618d+02,
1145 &4.963d+07,9.940d-02,1.244d+06/
1146 data(rrb(i,16,12),i=1,6)/1.588d-10,5.584d-01,3.350d+02,
1147 &5.188d+07,5.910d-02,1.656d+06/
1148 data(rrb(i,17,12),i=1,6)/1.790d-10,5.641d-01,5.390d+02,
1149 &5.733d+07,3.400d-02,2.038d+06/
1150 data(rrb(i,18,12),i=1,6)/2.156d-10,5.708d-01,7.027d+02,
1151 &6.146d+07,1.690d-02,2.845d+06/
1152 data(rrb(i,19,12),i=1,6)/2.516d-10,5.771d-01,8.854d+02,
1153 &6.829d+07,0.000d+00,0.000d+00/
1154 data(rrb(i,20,12),i=1,6)/2.527d-10,5.711d-01,1.364d+03,
1155 &6.926d+07,0.000d+00,0.000d+00/
1156 data(rrb(i,21,12),i=1,6)/2.578d-10,5.655d-01,1.955d+03,
1157 &7.157d+07,0.000d+00,0.000d+00/
1158 data(rrb(i,22,12),i=1,6)/2.711d-10,5.628d-01,2.552d+03,
1159 &7.416d+07,0.000d+00,0.000d+00/
1160 data(rrb(i,23,12),i=1,6)/2.792d-10,5.588d-01,3.360d+03,
1161 &7.736d+07,0.000d+00,0.000d+00/
1162 data(rrb(i,24,12),i=1,6)/3.003d-10,5.585d-01,3.987d+03,
1163 &8.062d+07,0.000d+00,0.000d+00/
1164 data(rrb(i,25,12),i=1,6)/3.197d-10,5.582d-01,4.712d+03,
1165 &8.394d+07,0.000d+00,0.000d+00/
1166 data(rrb(i,26,12),i=1,6)/3.133d-10,5.507d-01,6.295d+03,
1167 &9.035d+07,0.000d+00,0.000d+00/
1168 data(rrb(i,27,12),i=1,6)/3.340d-10,5.516d-01,7.145d+03,
1169 &9.384d+07,0.000d+00,0.000d+00/
1170 data(rrb(i,28,12),i=1,6)/3.626d-10,5.536d-01,7.769d+03,
1171 &9.785d+07,0.000d+00,0.000d+00/
1172 data(rrb(i,29,12),i=1,6)/3.761d-10,5.509d-01,9.021d+03,
1173 &1.036d+08,0.000d+00,0.000d+00/
1174 data(rrb(i,30,12),i=1,6)/3.885d-10,5.492d-01,1.041d+04,
1175 &1.095d+08,0.000d+00,0.000d+00/
1176 data(rrb(i,13,13),i=1,6)/1.035d-09,6.535d-01,4.623d-02,
1177 &1.564d+09,1.261d-01,1.533d+05/
1178 data(rrb(i,14,13),i=1,6)/1.964d-10,6.287d-01,7.712d+00,
1179 &2.951d+07,1.523d-01,4.804d+05/
1180 data(rrb(i,15,13),i=1,6)/1.933d-10,6.235d-01,3.527d+01,
1181 &2.694d+07,1.168d-01,7.395d+05/
1182 data(rrb(i,16,13),i=1,6)/2.615d-10,6.343d-01,6.238d+01,
1183 &2.803d+07,7.730d-02,1.059d+06/
1184 data(rrb(i,17,13),i=1,6)/2.841d-10,6.367d-01,1.244d+02,
1185 &3.039d+07,5.200d-02,1.363d+06/
1186 data(rrb(i,18,13),i=1,6)/3.370d-10,6.409d-01,1.836d+02,
1187 &3.323d+07,3.200d-02,1.717d+06/
1188 data(rrb(i,19,13),i=1,6)/3.856d-10,6.423d-01,2.598d+02,
1189 &3.572d+07,1.960d-02,2.208d+06/
1190 data(rrb(i,20,13),i=1,6)/4.641d-10,6.469d-01,3.097d+02,
1191 &4.220d+07,0.000d+00,0.000d+00/
1192 data(rrb(i,21,13),i=1,6)/4.471d-10,6.410d-01,5.095d+02,
1193 &4.349d+07,0.000d+00,0.000d+00/
1194 data(rrb(i,22,13),i=1,6)/4.441d-10,6.360d-01,7.614d+02,
1195 &4.514d+07,0.000d+00,0.000d+00/
1196 data(rrb(i,23,13),i=1,6)/4.627d-10,6.343d-01,1.006d+03,
1197 &4.695d+07,0.000d+00,0.000d+00/
1198 data(rrb(i,24,13),i=1,6)/5.026d-10,6.344d-01,1.204d+03,
1199 &4.866d+07,0.000d+00,0.000d+00/
1200 data(rrb(i,25,13),i=1,6)/5.037d-10,6.283d-01,1.619d+03,
1201 &5.222d+07,0.000d+00,0.000d+00/
1202 data(rrb(i,26,13),i=1,6)/5.398d-10,6.295d-01,1.881d+03,
1203 &5.429d+07,0.000d+00,0.000d+00/
1204 data(rrb(i,27,13),i=1,6)/5.382d-10,6.247d-01,2.441d+03,
1205 &5.812d+07,0.000d+00,0.000d+00/
1206 data(rrb(i,28,13),i=1,6)/5.718d-10,6.246d-01,2.783d+03,
1207 &6.091d+07,0.000d+00,0.000d+00/
1208 data(rrb(i,29,13),i=1,6)/6.038d-10,6.244d-01,3.166d+03,
1209 &6.420d+07,0.000d+00,0.000d+00/
1210 data(rrb(i,30,13),i=1,6)/6.192d-10,6.223d-01,3.743d+03,
1211 &6.775d+07,0.000d+00,0.000d+00/
1212
1213c data(rrb(i,26,13),i=1,6)/1.179d-09,7.096d-01,4.508d+02,
1214c &3.393d+07,1.540d-02,3.977d+06/
1215 data(rrb(i,26,14),i=1,6)/1.050d-09,6.939d-01,4.568d+02,
1216 &3.987d+07,6.600d-03,5.451d+05/
1217 data(rrb(i,26,15),i=1,6)/9.832d-10,7.146d-01,3.597d+02,
1218 &3.808d+07,4.500d-03,3.952d+05/
1219 data(rrb(i,26,16),i=1,6)/8.303d-10,7.156d-01,3.531d+02,
1220 &3.554d+07,1.320d-02,2.951d+05/
1221 data(rrb(i,26,17),i=1,6)/1.052d-09,7.370d-01,1.639d+02,
1222 &2.924d+07,2.240d-02,4.291d+05/
1223 data(rrb(i,26,18),i=1,6)/1.338d-09,7.495d-01,7.242d+01,
1224 &2.453d+07,4.040d-02,4.199d+05/
1225 data(rrb(i,26,19),i=1,6)/1.263d-09,7.532d-01,5.209d+01,
1226 &2.169d+07,4.210d-02,2.917d+05/
1227
1228
1229 end
1230