]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfabfow.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Extracting PHOS and EMCAL trackers from the correspondig reconstructors (Yu.Belikov)
[u/mrichter/AliRoot.git] / PDF / spdf / sfabfow.F
CommitLineData
21886bb6 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.2 1996/10/30 08:29:21 cernlib
6* Version 7.04
7*
8* Revision 1.1.1.1 1996/04/12 15:29:29 plothow
9* Version 7.01
10*
11*
12#include "pdf/pilot.h"
13 SUBROUTINE SFABFOW(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL)
14#include "pdf/expdp.inc"
15 + PAR(40),CALC(8,20,25),CALCO(8,20,25),ZEROD,
16 + DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL
17 REAL X, Q, UPV, DNV, USEA, DSEA, STR, CHM, GL
18 COMMON/W5051I3/CALCO
19 REAL XPDF(7)
20 DATA ZEROD/0.D0/
21C ---------------------------------------------------------------------
22 DATA (PAR(I),I=1,40) /
23 + 0.23000000D+00, 0.87291000D+00, 0.30563000D+01,-0.81541000D+00,
24 + 0.00000000D+00, 0.10280000D+01, 0.53963000D+01, 0.00000000D+00,
25 + 0.11002000D+01, 0.87514000D+01, 0.21308913D+01, 0.00000000D+00,
26 + 0.40000000D+01, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
27 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
28 + 0.10000000D+01, 0.10000000D+01, 0.92300000D+00, 0.11240000D+01,
29 + 0.10000000D+01, 0.10000000D+01, 0.10000000D+01, 0.10520000D+01,
30 + 0.18200000D+01, 0.16496000D+03, 0.00000000D+00, 0.00000000D+00,
31 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
32 + 0.10000000D+01, 0.20000000D-07, 0.20000000D+01, 0.10000000D+09/
33 DATA ((CALC(I,K,1 ),I=1,8), K=1,9) /
34 + 0.20194028D+00, 0.18738953D+00, 0.18176816D+00, 0.18176816D+00,
35 + 0.18176816D+00, 0.18176816D+00, 0.21223805D+01,-0.17347235D-17,
36 + 0.24423567D+00, 0.22842866D+00, 0.22167093D+00, 0.22163287D+00,
37 + 0.22164650D+00, 0.22167093D+00, 0.33355957D+01, 0.40286953D-01,
38 + 0.29313746D+00, 0.27603823D+00, 0.26809481D+00, 0.26802280D+00,
39 + 0.26804826D+00, 0.26809481D+00, 0.47295147D+01, 0.87113536D-01,
40 + 0.34896078D+00, 0.33053340D+00, 0.32135373D+00, 0.32125188D+00,
41 + 0.32128744D+00, 0.32135373D+00, 0.63030943D+01, 0.14079460D+00,
42 + 0.41196816D+00, 0.39217673D+00, 0.38170912D+00, 0.38158152D+00,
43 + 0.38162550D+00, 0.38170912D+00, 0.80526510D+01, 0.20159242D+00,
44 + 0.48239147D+00, 0.46120006D+00, 0.44939173D+00, 0.44924244D+00,
45 + 0.44929323D+00, 0.44939173D+00, 0.99718541D+01, 0.26973861D+00,
46 + 0.56042446D+00, 0.53779719D+00, 0.52459425D+00, 0.52442730D+00,
47 + 0.52448335D+00, 0.52459425D+00, 0.12052181D+02, 0.34542675D+00,
48 + 0.64621175D+00, 0.62211276D+00, 0.60746034D+00, 0.60727971D+00,
49 + 0.60733952D+00, 0.60746034D+00, 0.14282793D+02, 0.42880139D+00,
50 + 0.73984307D+00, 0.71423660D+00, 0.69807888D+00, 0.69788851D+00,
51 + 0.69795065D+00, 0.69807888D+00, 0.16650759D+02, 0.51995229D+00/
52 DATA ((CALC(I,K,1 ),I=1,8), K=10,18) /
53 + 0.84134569D+00, 0.81419609D+00, 0.79647647D+00, 0.79628021D+00,
54 + 0.79634332D+00, 0.79647647D+00, 0.19141215D+02, 0.61890693D+00,
55 + 0.95067917D+00, 0.92195096D+00, 0.90261215D+00, 0.90241381D+00,
56 + 0.90247660D+00, 0.90261215D+00, 0.21737598D+02, 0.72562522D+00,
57 + 0.10677309D+01, 0.10373889D+01, 0.10163730D+01, 0.10161763D+01,
58 + 0.10162376D+01, 0.10163730D+01, 0.24421896D+02, 0.83999511D+00,
59 + 0.11923132D+01, 0.11603224D+01, 0.11375714D+01, 0.11373799D+01,
60 + 0.11374385D+01, 0.11375714D+01, 0.27174942D+02, 0.96182969D+00,
61 + 0.13241617D+01, 0.12904878D+01, 0.12659430D+01, 0.12657604D+01,
62 + 0.12658152D+01, 0.12659430D+01, 0.29976710D+02, 0.10908656D+01,
63 + 0.14629355D+01, 0.14275444D+01, 0.14011475D+01, 0.14009772D+01,
64 + 0.14010272D+01, 0.14011475D+01, 0.32806631D+02, 0.12267633D+01,
65 + 0.16082186D+01, 0.15710768D+01, 0.15427697D+01, 0.15426149D+01,
66 + 0.15426593D+01, 0.15427697D+01, 0.35643910D+02, 0.13691081D+01,
67 + 0.17595228D+01, 0.17205977D+01, 0.16903224D+01, 0.16901864D+01,
68 + 0.16902243D+01, 0.16903224D+01, 0.38467840D+02, 0.15174136D+01,
69 + 0.19162923D+01, 0.18755519D+01, 0.18432512D+01, 0.18431371D+01,
70 + 0.18431678D+01, 0.18432512D+01, 0.41258096D+02, 0.16711262D+01/
71 DATA ((CALC(I,K,1 ),I=1,8), K=19,20) /
72 + 0.20779090D+01, 0.20353224D+01, 0.20009399D+01, 0.20008506D+01,
73 + 0.20008735D+01, 0.20009399D+01, 0.43995019D+02, 0.18296301D+01,
74 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
75 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
76 DATA ((CALC(I,K,2 ),I=1,8), K=1,9) /
77 + 0.21583491D+00, 0.19158330D+00, 0.18018200D+00, 0.18018200D+00,
78 + 0.18018200D+00, 0.18018200D+00, 0.21138952D+01,-0.52041704D-17,
79 + 0.25255607D+00, 0.22649496D+00, 0.21327094D+00, 0.21323316D+00,
80 + 0.21324695D+00, 0.21327094D+00, 0.31115744D+01, 0.33702174D-01,
81 + 0.29378966D+00, 0.26588969D+00, 0.25077892D+00, 0.25070944D+00,
82 + 0.25073454D+00, 0.25077892D+00, 0.42176629D+01, 0.71850099D-01,
83 + 0.33964459D+00, 0.30987604D+00, 0.29281357D+00, 0.29271828D+00,
84 + 0.29275242D+00, 0.29281357D+00, 0.54262314D+01, 0.11455242D+00,
85 + 0.39018756D+00, 0.35852046D+00, 0.33944066D+00, 0.33932526D+00,
86 + 0.33936635D+00, 0.33944066D+00, 0.67303079D+01, 0.16187578D+00,
87 + 0.44544250D+00, 0.41184667D+00, 0.39068345D+00, 0.39055345D+00,
88 + 0.39059953D+00, 0.39068345D+00, 0.81210348D+01, 0.21384434D+00,
89 + 0.50539764D+00, 0.46984285D+00, 0.44652981D+00, 0.44639052D+00,
90 + 0.44643980D+00, 0.44652981D+00, 0.95883720D+01, 0.27044684D+00,
91 + 0.56999702D+00, 0.53245303D+00, 0.50692372D+00, 0.50678027D+00,
92 + 0.50683109D+00, 0.50692372D+00, 0.11121064D+02, 0.33162813D+00,
93 + 0.63914062D+00, 0.59957732D+00, 0.57176547D+00, 0.57162277D+00,
94 + 0.57167363D+00, 0.57176547D+00, 0.12706903D+02, 0.39728933D+00/
95 DATA ((CALC(I,K,2 ),I=1,8), K=10,18) /
96 + 0.71268211D+00, 0.67106968D+00, 0.64090944D+00, 0.64077222D+00,
97 + 0.64082174D+00, 0.64090944D+00, 0.14332935D+02, 0.46728562D+00,
98 + 0.79042864D+00, 0.74673766D+00, 0.71416390D+00, 0.71403665D+00,
99 + 0.71408358D+00, 0.71416390D+00, 0.15985692D+02, 0.54142599D+00,
100 + 0.87214117D+00, 0.82634277D+00, 0.79129132D+00, 0.79117834D+00,
101 + 0.79122157D+00, 0.79129132D+00, 0.17651425D+02, 0.61947365D+00,
102 + 0.95753582D+00, 0.90960182D+00, 0.87200980D+00, 0.87191517D+00,
103 + 0.87195370D+00, 0.87200980D+00, 0.19316334D+02, 0.70114732D+00,
104 + 0.10462861D+01, 0.99618915D+00, 0.95599526D+00, 0.95592283D+00,
105 + 0.95595580D+00, 0.95599526D+00, 0.20966798D+02, 0.78612350D+00,
106 + 0.11380258D+01, 0.10857397D+01, 0.10428845D+01, 0.10428379D+01,
107 + 0.10428646D+01, 0.10428845D+01, 0.22589582D+02, 0.87403953D+00,
108 + 0.12323534D+01, 0.11778530D+01, 0.11322792D+01, 0.11322618D+01,
109 + 0.11322815D+01, 0.11322792D+01, 0.24172034D+02, 0.96449744D+00,
110 + 0.13288358D+01, 0.12720973D+01, 0.12237501D+01, 0.12237652D+01,
111 + 0.12237774D+01, 0.12237501D+01, 0.25702254D+02, 0.10570685D+01,
112 + 0.14270141D+01, 0.13680153D+01, 0.13168427D+01, 0.13168932D+01,
113 + 0.13168974D+01, 0.13168427D+01, 0.27169250D+02, 0.11512983D+01/
114 DATA ((CALC(I,K,2 ),I=1,8), K=19,20) /
115 + 0.15264089D+01, 0.14651291D+01, 0.14110822D+01, 0.14111709D+01,
116 + 0.14111667D+01, 0.14110822D+01, 0.28563054D+02, 0.12467124D+01,
117 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
118 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
119 DATA ((CALC(I,K,3 ),I=1,8), K=1,9) /
120 + 0.23955354D+00, 0.20004558D+00, 0.17704643D+00, 0.17704643D+00,
121 + 0.17704643D+00, 0.17704643D+00, 0.20970011D+01, 0.52041704D-17,
122 + 0.27130160D+00, 0.22936997D+00, 0.20347723D+00, 0.20345215D+00,
123 + 0.20346114D+00, 0.20347723D+00, 0.28837840D+01, 0.27406605D-01,
124 + 0.30603895D+00, 0.26166466D+00, 0.23280614D+00, 0.23276307D+00,
125 + 0.23277886D+00, 0.23280614D+00, 0.37286621D+01, 0.57746771D-01,
126 + 0.34371025D+00, 0.29687360D+00, 0.26497877D+00, 0.26492438D+00,
127 + 0.26494503D+00, 0.26497877D+00, 0.46232124D+01, 0.90966868D-01,
128 + 0.38424325D+00, 0.33492418D+00, 0.29992417D+00, 0.29986475D+00,
129 + 0.29988858D+00, 0.29992417D+00, 0.55592695D+01, 0.12699659D+00,
130 + 0.42752842D+00, 0.37570676D+00, 0.33753472D+00, 0.33747622D+00,
131 + 0.33750172D+00, 0.33753472D+00, 0.65277378D+01, 0.16572895D+00,
132 + 0.47343421D+00, 0.41908995D+00, 0.37768129D+00, 0.37762929D+00,
133 + 0.37765516D+00, 0.37768129D+00, 0.75192617D+01, 0.20703539D+00,
134 + 0.52180091D+00, 0.46491448D+00, 0.42020721D+00, 0.42016694D+00,
135 + 0.42019206D+00, 0.42020721D+00, 0.85242535D+01, 0.25075977D+00,
136 + 0.57244319D+00, 0.51299568D+00, 0.46493073D+00, 0.46490708D+00,
137 + 0.46493048D+00, 0.46493073D+00, 0.95330873D+01, 0.29672077D+00/
138 DATA ((CALC(I,K,3 ),I=1,8), K=10,18) /
139 + 0.62515070D+00, 0.56312415D+00, 0.51164567D+00, 0.51164319D+00,
140 + 0.51166406D+00, 0.51164567D+00, 0.10536268D+02, 0.34471262D+00,
141 + 0.67968980D+00, 0.61506741D+00, 0.56012316D+00, 0.56014606D+00,
142 + 0.56016373D+00, 0.56012316D+00, 0.11524580D+02, 0.39450672D+00,
143 + 0.73580569D+00, 0.66857209D+00, 0.61011374D+00, 0.61016592D+00,
144 + 0.61017983D+00, 0.61011374D+00, 0.12489237D+02, 0.44585384D+00,
145 + 0.79322499D+00, 0.72336646D+00, 0.66134996D+00, 0.66143497D+00,
146 + 0.66144468D+00, 0.66134996D+00, 0.13421999D+02, 0.49848661D+00,
147 + 0.85165870D+00, 0.77916341D+00, 0.71354930D+00, 0.71367041D+00,
148 + 0.71367557D+00, 0.71354930D+00, 0.14315288D+02, 0.55212255D+00,
149 + 0.91080557D+00, 0.83566379D+00, 0.76641753D+00, 0.76657768D+00,
150 + 0.76657805D+00, 0.76641753D+00, 0.15162271D+02, 0.60646732D+00,
151 + 0.97035560D+00, 0.89255991D+00, 0.81965219D+00, 0.81985402D+00,
152 + 0.81984942D+00, 0.81965219D+00, 0.15956931D+02, 0.66121826D+00,
153 + 0.10299938D+01, 0.94953929D+00, 0.87294633D+00, 0.87319219D+00,
154 + 0.87318251D+00, 0.87294633D+00, 0.16694112D+02, 0.71606809D+00,
155 + 0.10894039D+01, 0.10062884D+01, 0.92599221D+00, 0.92628417D+00,
156 + 0.92626936D+00, 0.92599221D+00, 0.17369551D+02, 0.77070866D+00/
157 DATA ((CALC(I,K,3 ),I=1,8), K=19,20) /
158 + 0.11482723D+01, 0.10624964D+01, 0.97848509D+00, 0.97882493D+00,
159 + 0.97880498D+00, 0.97848509D+00, 0.17979883D+02, 0.82483467D+00,
160 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
161 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
162 DATA ((CALC(I,K,4 ),I=1,8), K=1,9) /
163 + 0.27919948D+00, 0.21681220D+00, 0.17091990D+00, 0.17091990D+00,
164 + 0.17091990D+00, 0.17091990D+00, 0.20635167D+01,-0.86736174D-17,
165 + 0.30719611D+00, 0.24175123D+00, 0.19141648D+00, 0.19141170D+00,
166 + 0.19141779D+00, 0.19141648D+00, 0.26646269D+01, 0.22020703D-01,
167 + 0.33688109D+00, 0.26837614D+00, 0.21356081D+00, 0.21355815D+00,
168 + 0.21356933D+00, 0.21356081D+00, 0.32852034D+01, 0.45728609D-01,
169 + 0.36811194D+00, 0.29654497D+00, 0.23721569D+00, 0.23722139D+00,
170 + 0.23723688D+00, 0.23721569D+00, 0.39172171D+01, 0.70986696D-01,
171 + 0.40075271D+00, 0.32612258D+00, 0.26225048D+00, 0.26227027D+00,
172 + 0.26228943D+00, 0.26225048D+00, 0.45537009D+01, 0.97664462D-01,
173 + 0.43464550D+00, 0.35695222D+00, 0.28851342D+00, 0.28855254D+00,
174 + 0.28857485D+00, 0.28851342D+00, 0.51876525D+01, 0.12561019D+00,
175 + 0.46962465D+00, 0.38886971D+00, 0.31584569D+00, 0.31590887D+00,
176 + 0.31593392D+00, 0.31584569D+00, 0.58124017D+01, 0.15466500D+00,
177 + 0.50551327D+00, 0.42169989D+00, 0.34407789D+00, 0.34416942D+00,
178 + 0.34419687D+00, 0.34407789D+00, 0.64216588D+01, 0.18465932D+00,
179 + 0.54212547D+00, 0.45525893D+00, 0.37303230D+00, 0.37315602D+00,
180 + 0.37318560D+00, 0.37303230D+00, 0.70095902D+01, 0.21541516D+00/
181 DATA ((CALC(I,K,4 ),I=1,8), K=10,18) /
182 + 0.57926783D+00, 0.48935570D+00, 0.40252430D+00, 0.40268365D+00,
183 + 0.40271512D+00, 0.40252430D+00, 0.75708958D+01, 0.24674751D+00,
184 + 0.61674122D+00, 0.52379364D+00, 0.43236416D+00, 0.43256218D+00,
185 + 0.43259533D+00, 0.43236416D+00, 0.81008614D+01, 0.27846612D+00,
186 + 0.65434284D+00, 0.55837275D+00, 0.46235905D+00, 0.46259841D+00,
187 + 0.46263305D+00, 0.46235905D+00, 0.85954001D+01, 0.31037751D+00,
188 + 0.69186835D+00, 0.59289174D+00, 0.49231516D+00, 0.49259814D+00,
189 + 0.49263410D+00, 0.49231516D+00, 0.90510786D+01, 0.34228709D+00,
190 + 0.72911419D+00, 0.62715029D+00, 0.52203989D+00, 0.52236843D+00,
191 + 0.52240554D+00, 0.52203989D+00, 0.94651297D+01, 0.37400133D+00,
192 + 0.76587978D+00, 0.66095125D+00, 0.55134404D+00, 0.55171978D+00,
193 + 0.55175786D+00, 0.55134404D+00, 0.98354508D+01, 0.40533002D+00,
194 + 0.80196976D+00, 0.69410291D+00, 0.58004405D+00, 0.58046828D+00,
195 + 0.58050714D+00, 0.58004405D+00, 0.10160591D+02, 0.43608839D+00,
196 + 0.83719619D+00, 0.72642107D+00, 0.60796400D+00, 0.60843772D+00,
197 + 0.60847716D+00, 0.60796400D+00, 0.10439724D+02, 0.46609923D+00,
198 + 0.87138042D+00, 0.75773103D+00, 0.63493754D+00, 0.63546150D+00,
199 + 0.63550128D+00, 0.63493754D+00, 0.10672617D+02, 0.49519478D+00/
200 DATA ((CALC(I,K,4 ),I=1,8), K=19,20) /
201 + 0.90435501D+00, 0.78786935D+00, 0.66080966D+00, 0.66138430D+00,
202 + 0.66142418D+00, 0.66080966D+00, 0.10859586D+02, 0.52321845D+00,
203 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
204 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
205 DATA ((CALC(I,K,5 ),I=1,8), K=1,9) /
206 + 0.34327808D+00, 0.24880963D+00, 0.15922736D+00, 0.15922736D+00,
207 + 0.15922736D+00, 0.15922736D+00, 0.19977525D+01, 0.00000000D+00,
208 + 0.36786460D+00, 0.26977928D+00, 0.17402038D+00, 0.17403996D+00,
209 + 0.17405794D+00, 0.17402038D+00, 0.24242245D+01, 0.17061951D-01,
210 + 0.39300678D+00, 0.29134137D+00, 0.18947912D+00, 0.18952311D+00,
211 + 0.18955798D+00, 0.18947912D+00, 0.28433784D+01, 0.34819499D-01,
212 + 0.41855640D+00, 0.31334873D+00, 0.20546319D+00, 0.20553578D+00,
213 + 0.20558647D+00, 0.20546319D+00, 0.32499600D+01, 0.53131698D-01,
214 + 0.44438149D+00, 0.33567084D+00, 0.22184868D+00, 0.22195352D+00,
215 + 0.22201896D+00, 0.22184868D+00, 0.36398535D+01, 0.71874004D-01,
216 + 0.47034243D+00, 0.35816994D+00, 0.23850495D+00, 0.23864521D+00,
217 + 0.23872434D+00, 0.23850495D+00, 0.40093587D+01, 0.90915002D-01,
218 + 0.49630067D+00, 0.38070976D+00, 0.25530329D+00, 0.25548169D+00,
219 + 0.25557342D+00, 0.25530329D+00, 0.43552632D+01, 0.11012505D+00,
220 + 0.52211769D+00, 0.40315441D+00, 0.27211578D+00, 0.27233459D+00,
221 + 0.27243782D+00, 0.27211578D+00, 0.46748810D+01, 0.12937513D+00,
222 + 0.54765633D+00, 0.42536971D+00, 0.28881646D+00, 0.28907758D+00,
223 + 0.28919119D+00, 0.28881646D+00, 0.49660412D+01, 0.14853807D+00/
224 DATA ((CALC(I,K,5 ),I=1,8), K=10,18) /
225 + 0.57278214D+00, 0.44722448D+00, 0.30528267D+00, 0.30558761D+00,
226 + 0.30571046D+00, 0.30528267D+00, 0.52270916D+01, 0.16748981D+00,
227 + 0.59736451D+00, 0.46859171D+00, 0.32139606D+00, 0.32174599D+00,
228 + 0.32187692D+00, 0.32139606D+00, 0.54568849D+01, 0.18611047D+00,
229 + 0.62127804D+00, 0.48934981D+00, 0.33704382D+00, 0.33743958D+00,
230 + 0.33757743D+00, 0.33704382D+00, 0.56547590D+01, 0.20428558D+00,
231 + 0.64440369D+00, 0.50938381D+00, 0.35211979D+00, 0.35256193D+00,
232 + 0.35270551D+00, 0.35211979D+00, 0.58205086D+01, 0.22190716D+00,
233 + 0.66662991D+00, 0.52858643D+00, 0.36652544D+00, 0.36701423D+00,
234 + 0.36716235D+00, 0.36652544D+00, 0.59543523D+01, 0.23887477D+00,
235 + 0.68785373D+00, 0.54685908D+00, 0.38017085D+00, 0.38070628D+00,
236 + 0.38085774D+00, 0.38017085D+00, 0.60568930D+01, 0.25509642D+00,
237 + 0.70798155D+00, 0.56411274D+00, 0.39297543D+00, 0.39355726D+00,
238 + 0.39371088D+00, 0.39297543D+00, 0.61290758D+01, 0.27048936D+00,
239 + 0.72692995D+00, 0.58026859D+00, 0.40486854D+00, 0.40549631D+00,
240 + 0.40565090D+00, 0.40486854D+00, 0.61721427D+01, 0.28498071D+00,
241 + 0.74462615D+00, 0.59525856D+00, 0.41578998D+00, 0.41646301D+00,
242 + 0.41661740D+00, 0.41578998D+00, 0.61875858D+01, 0.29850793D+00/
243 DATA ((CALC(I,K,5 ),I=1,8), K=19,20) /
244 + 0.76100847D+00, 0.60902567D+00, 0.42569018D+00, 0.42640762D+00,
245 + 0.42656065D+00, 0.42569018D+00, 0.61771012D+01, 0.31101904D+00,
246 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
247 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
248 DATA ((CALC(I,K,6 ),I=1,8), K=1,9) /
249 + 0.44106537D+00, 0.30515567D+00, 0.13794628D+00, 0.13794628D+00,
250 + 0.13794628D+00, 0.13794628D+00, 0.18709523D+01,-0.17347235D-17,
251 + 0.46119251D+00, 0.32136177D+00, 0.14716767D+00, 0.14720135D+00,
252 + 0.14723645D+00, 0.14716767D+00, 0.21299443D+01, 0.12306566D-01,
253 + 0.48095509D+00, 0.33729624D+00, 0.15641371D+00, 0.15648271D+00,
254 + 0.15654848D+00, 0.15641371D+00, 0.23687832D+01, 0.24632075D-01,
255 + 0.50024830D+00, 0.35285650D+00, 0.16558478D+00, 0.16569038D+00,
256 + 0.16578272D+00, 0.16558478D+00, 0.25855725D+01, 0.36876049D-01,
257 + 0.51898317D+00, 0.36795632D+00, 0.17459826D+00, 0.17474146D+00,
258 + 0.17485651D+00, 0.17459826D+00, 0.27791414D+01, 0.48954867D-01,
259 + 0.53707332D+00, 0.38251257D+00, 0.18337484D+00, 0.18355637D+00,
260 + 0.18369053D+00, 0.18337484D+00, 0.29487906D+01, 0.60788045D-01,
261 + 0.55443725D+00, 0.39644746D+00, 0.19184096D+00, 0.19206130D+00,
262 + 0.19221117D+00, 0.19184096D+00, 0.30941757D+01, 0.72300639D-01,
263 + 0.57099901D+00, 0.40968919D+00, 0.19992912D+00, 0.20018850D+00,
264 + 0.20035090D+00, 0.19992912D+00, 0.32153306D+01, 0.83423599D-01,
265 + 0.58668840D+00, 0.42217206D+00, 0.20757792D+00, 0.20787635D+00,
266 + 0.20804828D+00, 0.20757792D+00, 0.33126163D+01, 0.94093852D-01/
267 DATA ((CALC(I,K,6 ),I=1,8), K=10,18) /
268 + 0.60144177D+00, 0.43383715D+00, 0.21473262D+00, 0.21506991D+00,
269 + 0.21524858D+00, 0.21473262D+00, 0.33866886D+01, 0.10425484D+00,
270 + 0.61520235D+00, 0.44463269D+00, 0.22134538D+00, 0.22172112D+00,
271 + 0.22190390D+00, 0.22134538D+00, 0.34384597D+01, 0.11385675D+00,
272 + 0.62792073D+00, 0.45451441D+00, 0.22737543D+00, 0.22778906D+00,
273 + 0.22797350D+00, 0.22737543D+00, 0.34690589D+01, 0.12285682D+00,
274 + 0.63955514D+00, 0.46344576D+00, 0.23278927D+00, 0.23324005D+00,
275 + 0.23342389D+00, 0.23278927D+00, 0.34797928D+01, 0.13121941D+00,
276 + 0.65007163D+00, 0.47139806D+00, 0.23756070D+00, 0.23804772D+00,
277 + 0.23822885D+00, 0.23756070D+00, 0.34721068D+01, 0.13891615D+00,
278 + 0.65944422D+00, 0.47835053D+00, 0.24167075D+00, 0.24219297D+00,
279 + 0.24236945D+00, 0.24167075D+00, 0.34475470D+01, 0.14592585D+00,
280 + 0.66765484D+00, 0.48429022D+00, 0.24510753D+00, 0.24566378D+00,
281 + 0.24583383D+00, 0.24510753D+00, 0.34077251D+01, 0.15223439D+00,
282 + 0.67469321D+00, 0.48921180D+00, 0.24786598D+00, 0.24845499D+00,
283 + 0.24861699D+00, 0.24786598D+00, 0.33542852D+01, 0.15783446D+00,
284 + 0.68055661D+00, 0.49311730D+00, 0.24994757D+00, 0.25056793D+00,
285 + 0.25072043D+00, 0.24994757D+00, 0.32888738D+01, 0.16272529D+00/
286 DATA ((CALC(I,K,6 ),I=1,8), K=19,20) /
287 + 0.68524957D+00, 0.49601572D+00, 0.25135982D+00, 0.25201006D+00,
288 + 0.25215174D+00, 0.25135982D+00, 0.32131134D+01, 0.16691222D+00,
289 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
290 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
291 DATA ((CALC(I,K,7 ),I=1,8), K=1,9) /
292 + 0.57479616D+00, 0.38719266D+00, 0.10278833D+00, 0.10278833D+00,
293 + 0.10278833D+00, 0.10278833D+00, 0.16355532D+01,-0.34694470D-17,
294 + 0.58720174D+00, 0.39563566D+00, 0.10712829D+00, 0.10715295D+00,
295 + 0.10717037D+00, 0.10712829D+00, 0.17455238D+01, 0.78757968D-02,
296 + 0.59856678D+00, 0.40324505D+00, 0.11119185D+00, 0.11124212D+00,
297 + 0.11127289D+00, 0.11119185D+00, 0.18349430D+01, 0.15405101D-01,
298 + 0.60886221D+00, 0.40999594D+00, 0.11493931D+00, 0.11501585D+00,
299 + 0.11505634D+00, 0.11493931D+00, 0.19046215D+01, 0.22549219D-01,
300 + 0.61806541D+00, 0.41587010D+00, 0.11834085D+00, 0.11844404D+00,
301 + 0.11849098D+00, 0.11834085D+00, 0.19554890D+01, 0.29278758D-01,
302 + 0.62616072D+00, 0.42085649D+00, 0.12137335D+00, 0.12150333D+00,
303 + 0.12155379D+00, 0.12137335D+00, 0.19887275D+01, 0.35570892D-01,
304 + 0.63313652D+00, 0.42494831D+00, 0.12401823D+00, 0.12417493D+00,
305 + 0.12422629D+00, 0.12401823D+00, 0.20056144D+01, 0.41407112D-01,
306 + 0.63898674D+00, 0.42814438D+00, 0.12626237D+00, 0.12644549D+00,
307 + 0.12649543D+00, 0.12626237D+00, 0.20075283D+01, 0.46774184D-01,
308 + 0.64371052D+00, 0.43044863D+00, 0.12809747D+00, 0.12830656D+00,
309 + 0.12835302D+00, 0.12809747D+00, 0.19959097D+01, 0.51663585D-01/
310 DATA ((CALC(I,K,7 ),I=1,8), K=10,18) /
311 + 0.64731232D+00, 0.43187014D+00, 0.12951997D+00, 0.12975440D+00,
312 + 0.12979560D+00, 0.12951997D+00, 0.19722294D+01, 0.56071426D-01,
313 + 0.64980187D+00, 0.43242299D+00, 0.13053075D+00, 0.13078975D+00,
314 + 0.13082413D+00, 0.13053075D+00, 0.19379614D+01, 0.59998201D-01,
315 + 0.65119406D+00, 0.43212600D+00, 0.13113485D+00, 0.13141751D+00,
316 + 0.13144375D+00, 0.13113485D+00, 0.18945582D+01, 0.63448515D-01,
317 + 0.65150876D+00, 0.43100251D+00, 0.13134112D+00, 0.13164643D+00,
318 + 0.13166342D+00, 0.13134112D+00, 0.18434285D+01, 0.66430783D-01,
319 + 0.65077057D+00, 0.42908000D+00, 0.13116188D+00, 0.13148871D+00,
320 + 0.13149555D+00, 0.13116188D+00, 0.17859194D+01, 0.68956888D-01,
321 + 0.64900852D+00, 0.42638974D+00, 0.13061250D+00, 0.13095966D+00,
322 + 0.13095562D+00, 0.13061250D+00, 0.17233014D+01, 0.71041811D-01,
323 + 0.64625572D+00, 0.42296638D+00, 0.12971104D+00, 0.13007724D+00,
324 + 0.13006177D+00, 0.12971104D+00, 0.16567571D+01, 0.72703245D-01,
325 + 0.64254896D+00, 0.41884749D+00, 0.12847776D+00, 0.12886168D+00,
326 + 0.12883440D+00, 0.12847776D+00, 0.15873722D+01, 0.73961188D-01,
327 + 0.63792833D+00, 0.41407310D+00, 0.12693476D+00, 0.12733502D+00,
328 + 0.12729569D+00, 0.12693476D+00, 0.15161309D+01, 0.74837535D-01/
329 DATA ((CALC(I,K,7 ),I=1,8), K=19,20) /
330 + 0.63243672D+00, 0.40868521D+00, 0.12510555D+00, 0.12552074D+00,
331 + 0.12546924D+00, 0.12510555D+00, 0.14439130D+01, 0.75355673D-01,
332 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
333 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
334 DATA ((CALC(I,K,8 ),I=1,8), K=1,9) /
335 + 0.66868210D+00, 0.43706345D+00, 0.72925294D-01, 0.72925294D-01,
336 + 0.72925294D-01, 0.72925294D-01, 0.13980776D+01, 0.17347235D-17,
337 + 0.67274888D+00, 0.43768741D+00, 0.74937012D-01, 0.74969093D-01,
338 + 0.74969402D-01, 0.74937012D-01, 0.14300181D+01, 0.52887558D-02,
339 + 0.67556992D+00, 0.43742644D+00, 0.76645438D-01, 0.76708235D-01,
340 + 0.76706403D-01, 0.76645438D-01, 0.14465159D+01, 0.10164601D-01,
341 + 0.67717298D+00, 0.43630833D+00, 0.78045072D-01, 0.78137148D-01,
342 + 0.78131171D-01, 0.78045072D-01, 0.14492734D+01, 0.14625694D-01,
343 + 0.67758301D+00, 0.43435862D+00, 0.79133832D-01, 0.79253695D-01,
344 + 0.79241904D-01, 0.79133832D-01, 0.14397941D+01, 0.18672619D-01,
345 + 0.67683131D+00, 0.43160862D+00, 0.79914994D-01, 0.80061106D-01,
346 + 0.80042142D-01, 0.79914994D-01, 0.14196350D+01, 0.22311181D-01,
347 + 0.67495101D+00, 0.42809125D+00, 0.80394014D-01, 0.80564798D-01,
348 + 0.80537583D-01, 0.80394014D-01, 0.13902979D+01, 0.25549084D-01,
349 + 0.67197853D+00, 0.42384224D+00, 0.80579342D-01, 0.80773192D-01,
350 + 0.80736896D-01, 0.80579342D-01, 0.13532281D+01, 0.28396835D-01,
351 + 0.66795328D+00, 0.41889965D+00, 0.80481868D-01, 0.80697156D-01,
352 + 0.80651177D-01, 0.80481868D-01, 0.13097992D+01, 0.30867233D-01/
353 DATA ((CALC(I,K,8 ),I=1,8), K=10,18) /
354 + 0.66291757D+00, 0.41330371D+00, 0.80114657D-01, 0.80349743D-01,
355 + 0.80293679D-01, 0.80114657D-01, 0.12612964D+01, 0.32975137D-01,
356 + 0.65691643D+00, 0.40709650D+00, 0.79492644D-01, 0.79745886D-01,
357 + 0.79679516D-01, 0.79492644D-01, 0.12089080D+01, 0.34737194D-01,
358 + 0.64999738D+00, 0.40032171D+00, 0.78632316D-01, 0.78902073D-01,
359 + 0.78825336D-01, 0.78632316D-01, 0.11537173D+01, 0.36171551D-01,
360 + 0.64221020D+00, 0.39302424D+00, 0.77551397D-01, 0.77836042D-01,
361 + 0.77749018D-01, 0.77551397D-01, 0.10966991D+01, 0.37297558D-01,
362 + 0.63360659D+00, 0.38524991D+00, 0.76268533D-01, 0.76566460D-01,
363 + 0.76469352D-01, 0.76268533D-01, 0.10387177D+01, 0.38135485D-01,
364 + 0.62423984D+00, 0.37704505D+00, 0.74802994D-01, 0.75112622D-01,
365 + 0.75005743D-01, 0.74802994D-01, 0.98052794D+00, 0.38706224D-01,
366 + 0.61416450D+00, 0.36845616D+00, 0.73174378D-01, 0.73494162D-01,
367 + 0.73377914D-01, 0.73174378D-01, 0.92277789D+00, 0.39031021D-01,
368 + 0.60343597D+00, 0.35952958D+00, 0.71402341D-01, 0.71730776D-01,
369 + 0.71605639D-01, 0.71402341D-01, 0.86601365D+00, 0.39131206D-01,
370 + 0.59211017D+00, 0.35031110D+00, 0.69506346D-01, 0.69841971D-01,
371 + 0.69708492D-01, 0.69506346D-01, 0.81068532D+00, 0.39027956D-01/
372 DATA ((CALC(I,K,8 ),I=1,8), K=19,20) /
373 + 0.58024319D+00, 0.34084568D+00, 0.67505436D-01, 0.67846845D-01,
374 + 0.67705621D-01, 0.67505436D-01, 0.75715400D+00, 0.38742071D-01,
375 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
376 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
377 DATA ((CALC(I,K,9 ),I=1,8), K=1,9) /
378 + 0.73575945D+00, 0.45004095D+00, 0.44221888D-01, 0.44221888D-01,
379 + 0.44221888D-01, 0.44221888D-01, 0.11123387D+01, 0.17347235D-17,
380 + 0.72905091D+00, 0.44200376D+00, 0.44938216D-01, 0.44962187D-01,
381 + 0.44951773D-01, 0.44938216D-01, 0.10927997D+01, 0.32370744D-02,
382 + 0.72122873D+00, 0.43339858D+00, 0.45406888D-01, 0.45452988D-01,
383 + 0.45432116D-01, 0.45406888D-01, 0.10647140D+01, 0.61056719D-02,
384 + 0.71236648D+00, 0.42428172D+00, 0.45642314D-01, 0.45708755D-01,
385 + 0.45677543D-01, 0.45642314D-01, 0.10298317D+01, 0.86263445D-02,
386 + 0.70252667D+00, 0.41470109D+00, 0.45657349D-01, 0.45742385D-01,
387 + 0.45701072D-01, 0.45657349D-01, 0.98955628D+00, 0.10816695D-01,
388 + 0.69177531D+00, 0.40470676D+00, 0.45467489D-01, 0.45569428D-01,
389 + 0.45518350D-01, 0.45467489D-01, 0.94519155D+00, 0.12696783D-01,
390 + 0.68017772D+00, 0.39434784D+00, 0.45088271D-01, 0.45205471D-01,
391 + 0.45145049D-01, 0.45088271D-01, 0.89791119D+00, 0.14286361D-01,
392 + 0.66779950D+00, 0.38367297D+00, 0.44535809D-01, 0.44666684D-01,
393 + 0.44597411D-01, 0.44535809D-01, 0.84875360D+00, 0.15605498D-01,
394 + 0.65470640D+00, 0.37273021D+00, 0.43826532D-01, 0.43969552D-01,
395 + 0.43891975D-01, 0.43826532D-01, 0.79862959D+00, 0.16674360D-01/
396 DATA ((CALC(I,K,9 ),I=1,8), K=10,18) /
397 + 0.64096417D+00, 0.36156675D+00, 0.42976966D-01, 0.43130659D-01,
398 + 0.43045371D-01, 0.42976966D-01, 0.74832328D+00, 0.17513024D-01,
399 + 0.62663835D+00, 0.35022874D+00, 0.42003571D-01, 0.42166530D-01,
400 + 0.42074155D-01, 0.42003571D-01, 0.69849820D+00, 0.18141352D-01,
401 + 0.61179409D+00, 0.33876109D+00, 0.40922567D-01, 0.41093446D-01,
402 + 0.40994632D-01, 0.40922567D-01, 0.64970429D+00, 0.18578832D-01,
403 + 0.59649591D+00, 0.32720723D+00, 0.39749769D-01, 0.39927289D-01,
404 + 0.39822699D-01, 0.39749769D-01, 0.60238607D+00, 0.18844445D-01,
405 + 0.58080739D+00, 0.31560889D+00, 0.38500446D-01, 0.38683394D-01,
406 + 0.38573695D-01, 0.38500446D-01, 0.55689160D+00, 0.18956529D-01,
407 + 0.56479094D+00, 0.30400594D+00, 0.37189188D-01, 0.37376419D-01,
408 + 0.37262280D-01, 0.37189188D-01, 0.51348211D+00, 0.18932666D-01,
409 + 0.54850750D+00, 0.29243618D+00, 0.35829802D-01, 0.36020242D-01,
410 + 0.35902321D-01, 0.35829802D-01, 0.47234183D+00, 0.18789586D-01,
411 + 0.53201633D+00, 0.28093522D+00, 0.34435222D-01, 0.34627863D-01,
412 + 0.34506807D-01, 0.34435222D-01, 0.43358779D+00, 0.18543082D-01,
413 + 0.51537470D+00, 0.26953633D+00, 0.33017438D-01, 0.33211345D-01,
414 + 0.33087782D-01, 0.33017438D-01, 0.39727941D+00, 0.18207948D-01/
415 DATA ((CALC(I,K,9 ),I=1,8), K=19,20) /
416 + 0.49863771D+00, 0.25827032D+00, 0.31587457D-01, 0.31781763D-01,
417 + 0.31656298D-01, 0.31587457D-01, 0.36342766D+00, 0.17797939D-01,
418 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
419 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
420 DATA ((CALC(I,K,10),I=1,8), K=1,9) /
421 + 0.75033233D+00, 0.41928473D+00, 0.26014900D-01, 0.26014900D-01,
422 + 0.26014900D-01, 0.26014900D-01, 0.87281313D+00,-0.16696713D-16,
423 + 0.73440392D+00, 0.40568081D+00, 0.26292098D-01, 0.26309965D-01,
424 + 0.26298466D-01, 0.26292098D-01, 0.83163604D+00, 0.20306844D-02,
425 + 0.71775563D+00, 0.39196078D+00, 0.26384089D-01, 0.26417954D-01,
426 + 0.26395831D-01, 0.26384089D-01, 0.78707432D+00, 0.37712302D-02,
427 + 0.70047819D+00, 0.37817567D+00, 0.26310868D-01, 0.26358988D-01,
428 + 0.26327118D-01, 0.26310868D-01, 0.74047548D+00, 0.52484018D-02,
429 + 0.68264767D+00, 0.36436792D+00, 0.26088831D-01, 0.26149562D-01,
430 + 0.26108817D-01, 0.26088831D-01, 0.69284970D+00, 0.64838907D-02,
431 + 0.66434041D+00, 0.35057926D+00, 0.25735001D-01, 0.25806801D-01,
432 + 0.25758039D-01, 0.25735001D-01, 0.64505024D+00, 0.74997675D-02,
433 + 0.64563037D+00, 0.33684942D+00, 0.25265452D-01, 0.25346873D-01,
434 + 0.25290936D-01, 0.25265452D-01, 0.59779857D+00, 0.83167852D-02,
435 + 0.62658942D+00, 0.32321607D+00, 0.24695598D-01, 0.24785288D-01,
436 + 0.24722992D-01, 0.24695598D-01, 0.55167852D+00, 0.89547331D-02,
437 + 0.60728743D+00, 0.30971488D+00, 0.24040168D-01, 0.24136866D-01,
438 + 0.24069001D-01, 0.24040168D-01, 0.50715463D+00, 0.94324539D-02/
439 DATA ((CALC(I,K,10),I=1,8), K=10,18) /
440 + 0.58779207D+00, 0.29637937D+00, 0.23313100D-01, 0.23415631D-01,
441 + 0.23342957D-01, 0.23313100D-01, 0.46458231D+00, 0.97677659D-02,
442 + 0.56816868D+00, 0.28324079D+00, 0.22527502D-01, 0.22634777D-01,
443 + 0.22558022D-01, 0.22527502D-01, 0.42422017D+00, 0.99774566D-02,
444 + 0.54848012D+00, 0.27032807D+00, 0.21695605D-01, 0.21806618D-01,
445 + 0.21726472D-01, 0.21695605D-01, 0.38624235D+00, 0.10077255D-01,
446 + 0.52878659D+00, 0.25766771D+00, 0.20828727D-01, 0.20942551D-01,
447 + 0.20859669D-01, 0.20828727D-01, 0.35075014D+00, 0.10081812D-01,
448 + 0.50914547D+00, 0.24528374D+00, 0.19937246D-01, 0.20053032D-01,
449 + 0.19968028D-01, 0.19937246D-01, 0.31778344D+00, 0.10004694D-01,
450 + 0.48961113D+00, 0.23319766D+00, 0.19030589D-01, 0.19147561D-01,
451 + 0.19061011D-01, 0.19030589D-01, 0.28733133D+00, 0.98583776D-02,
452 + 0.47023480D+00, 0.22142843D+00, 0.18117230D-01, 0.18234685D-01,
453 + 0.18147123D-01, 0.18117230D-01, 0.25934185D+00, 0.96542623D-02,
454 + 0.45106446D+00, 0.20999249D+00, 0.17204704D-01, 0.17322007D-01,
455 + 0.17233927D-01, 0.17204704D-01, 0.23373099D+00, 0.94026882D-02,
456 + 0.43214467D+00, 0.19890378D+00, 0.16299628D-01, 0.16416209D-01,
457 + 0.16328067D-01, 0.16299628D-01, 0.21039060D+00, 0.91129667D-02/
458 DATA ((CALC(I,K,10),I=1,8), K=19,20) /
459 + 0.41351656D+00, 0.18817378D+00, 0.15407739D-01, 0.15523092D-01,
460 + 0.15435299D-01, 0.15407739D-01, 0.18919538D+00, 0.87934189D-02,
461 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
462 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
463 DATA ((CALC(I,K,11),I=1,8), K=1,9) /
464 + 0.72612470D+00, 0.36397949D+00, 0.14788752D-01, 0.14788752D-01,
465 + 0.14788752D-01, 0.14788752D-01, 0.67422733D+00,-0.34694470D-17,
466 + 0.70301699D+00, 0.34773427D+00, 0.14929544D-01, 0.14942274D-01,
467 + 0.14932700D-01, 0.14929544D-01, 0.62610341D+00, 0.12768068D-02,
468 + 0.67971451D+00, 0.33178907D+00, 0.14935458D-01, 0.14959291D-01,
469 + 0.14941229D-01, 0.14935458D-01, 0.57809221D+00, 0.23388262D-02,
470 + 0.65630177D+00, 0.31617176D+00, 0.14826093D-01, 0.14859555D-01,
471 + 0.14834012D-01, 0.14826093D-01, 0.53104444D+00, 0.32117599D-02,
472 + 0.63284895D+00, 0.30090515D+00, 0.14616981D-01, 0.14658717D-01,
473 + 0.14626640D-01, 0.14616981D-01, 0.48554748D+00, 0.39159194D-02,
474 + 0.60942378D+00, 0.28600989D+00, 0.14323061D-01, 0.14371833D-01,
475 + 0.14334102D-01, 0.14323061D-01, 0.44202991D+00, 0.44707510D-02,
476 + 0.58609074D+00, 0.27150488D+00, 0.13958017D-01, 0.14012694D-01,
477 + 0.13970128D-01, 0.13958017D-01, 0.40081736D+00, 0.48941032D-02,
478 + 0.56291077D+00, 0.25740685D+00, 0.13534380D-01, 0.13593930D-01,
479 + 0.13547291D-01, 0.13534380D-01, 0.36212733D+00, 0.52023720D-02,
480 + 0.53994148D+00, 0.24373049D+00, 0.13063647D-01, 0.13127130D-01,
481 + 0.13077122D-01, 0.13063647D-01, 0.32608954D+00, 0.54106573D-02/
482 DATA ((CALC(I,K,11),I=1,8), K=10,18) /
483 + 0.51723696D+00, 0.23048836D+00, 0.12556258D-01, 0.12622825D-01,
484 + 0.12570094D-01, 0.12556258D-01, 0.29275945D+00, 0.55327699D-02,
485 + 0.49484775D+00, 0.21769088D+00, 0.12021642D-01, 0.12090523D-01,
486 + 0.12035665D-01, 0.12021642D-01, 0.26213118D+00, 0.55812975D-02,
487 + 0.47282077D+00, 0.20534634D+00, 0.11468242D-01, 0.11538746D-01,
488 + 0.11482305D-01, 0.11468242D-01, 0.23414975D+00, 0.55676557D-02,
489 + 0.45119921D+00, 0.19346088D+00, 0.10903556D-01, 0.10975062D-01,
490 + 0.10917533D-01, 0.10903556D-01, 0.20872192D+00, 0.55021381D-02,
491 + 0.43002249D+00, 0.18203854D+00, 0.10334171D-01, 0.10406127D-01,
492 + 0.10347957D-01, 0.10334171D-01, 0.18572580D+00, 0.53939699D-02,
493 + 0.40932621D+00, 0.17108134D+00, 0.97658089D-02, 0.98377266D-02,
494 + 0.97793177D-02, 0.97658089D-02, 0.16501926D+00, 0.52513640D-02,
495 + 0.38914211D+00, 0.16058928D+00, 0.92033789D-02, 0.92748267D-02,
496 + 0.92165392D-02, 0.92033789D-02, 0.14644725D+00, 0.50815808D-02,
497 + 0.36949815D+00, 0.15056052D+00, 0.86510266D-02, 0.87216286D-02,
498 + 0.86637817D-02, 0.86510266D-02, 0.12984774D+00, 0.48909896D-02,
499 + 0.35041843D+00, 0.14099142D+00, 0.81121930D-02, 0.81816238D-02,
500 + 0.81244986D-02, 0.81121930D-02, 0.11505677D+00, 0.46851323D-02/
501 DATA ((CALC(I,K,11),I=1,8), K=19,20) /
502 + 0.33192335D+00, 0.13187666D+00, 0.75896736D-02, 0.76576547D-02,
503 + 0.76014961D-02, 0.75896736D-02, 0.10191238D+00, 0.44687892D-02,
504 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
505 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
506 DATA ((CALC(I,K,12),I=1,8), K=1,9) /
507 + 0.67334252D+00, 0.29833441D+00, 0.80855825D-02, 0.80855825D-02,
508 + 0.80855825D-02, 0.80855825D-02, 0.51162697D+00,-0.11817804D-16,
509 + 0.64536318D+00, 0.28180015D+00, 0.81879384D-02, 0.81964326D-02,
510 + 0.81895119D-02, 0.81879384D-02, 0.46430924D+00, 0.79455875D-03,
511 + 0.61774910D+00, 0.26586805D+00, 0.81936895D-02, 0.82094634D-02,
512 + 0.81965473D-02, 0.81936895D-02, 0.41926385D+00, 0.14371427D-02,
513 + 0.59056001D+00, 0.25053723D+00, 0.81196347D-02, 0.81416057D-02,
514 + 0.81235309D-02, 0.81196347D-02, 0.37688432D+00, 0.19493803D-02,
515 + 0.56384502D+00, 0.23580681D+00, 0.79788388D-02, 0.80060248D-02,
516 + 0.79835596D-02, 0.79788388D-02, 0.33739524D+00, 0.23481052D-02,
517 + 0.53764896D+00, 0.22167368D+00, 0.77831646D-02, 0.78146805D-02,
518 + 0.77885249D-02, 0.77831646D-02, 0.30089054D+00, 0.26486947D-02,
519 + 0.51201355D+00, 0.20813409D+00, 0.75432692D-02, 0.75783182D-02,
520 + 0.75491096D-02, 0.75432692D-02, 0.26739948D+00, 0.28650364D-02,
521 + 0.48697655D+00, 0.19518293D+00, 0.72685826D-02, 0.73064492D-02,
522 + 0.72747660D-02, 0.72685826D-02, 0.23688280D+00, 0.30095327D-02,
523 + 0.46257205D+00, 0.18281391D+00, 0.69674848D-02, 0.70075288D-02,
524 + 0.69738943D-02, 0.69674848D-02, 0.20924982D+00, 0.30933111D-02/
525 DATA ((CALC(I,K,12),I=1,8), K=10,18) /
526 + 0.43883036D+00, 0.17101948D+00, 0.66473444D-02, 0.66889947D-02,
527 + 0.66538804D-02, 0.66473444D-02, 0.18437152D+00, 0.31262846D-02,
528 + 0.41577800D+00, 0.15979084D+00, 0.63145934D-02, 0.63573430D-02,
529 + 0.63211718D-02, 0.63145934D-02, 0.16209093D+00, 0.31172474D-02,
530 + 0.39343772D+00, 0.14911797D+00, 0.59747963D-02, 0.60181973D-02,
531 + 0.59813468D-02, 0.59747963D-02, 0.14223264D+00, 0.30739602D-02,
532 + 0.37182850D+00, 0.13898967D+00, 0.56327140D-02, 0.56763733D-02,
533 + 0.56391785D-02, 0.56327140D-02, 0.12461070D+00, 0.30032288D-02,
534 + 0.35096559D+00, 0.12939361D+00, 0.52923700D-02, 0.53359442D-02,
535 + 0.52987006D-02, 0.52923700D-02, 0.10903509D+00, 0.29109819D-02,
536 + 0.33086057D+00, 0.12031641D+00, 0.49571134D-02, 0.50003055D-02,
537 + 0.49632718D-02, 0.49571134D-02, 0.95316920D-01, 0.28023456D-02,
538 + 0.31152147D+00, 0.11174375D+00, 0.46296827D-02, 0.46722381D-02,
539 + 0.46356387D-02, 0.46296827D-02, 0.83272498D-01, 0.26817158D-02,
540 + 0.29295284D+00, 0.10366045D+00, 0.43122686D-02, 0.43539711D-02,
541 + 0.43179989D-02, 0.43122686D-02, 0.72726380D-01, 0.25528291D-02,
542 + 0.27515593D+00, 0.96050577D-01, 0.40065739D-02, 0.40472427D-02,
543 + 0.40120614D-02, 0.40065739D-02, 0.63513533D-01, 0.24188299D-02/
544 DATA ((CALC(I,K,12),I=1,8), K=19,20) /
545 + 0.25812880D+00, 0.88897572D-01, 0.37138719D-02, 0.37533580D-02,
546 + 0.37191047D-02, 0.37138719D-02, 0.55480708D-01, 0.22823356D-02,
547 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
548 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
549 DATA ((CALC(I,K,13),I=1,8), K=1,9) /
550 + 0.60077312D+00, 0.23221598D+00, 0.42271747D-02, 0.42271747D-02,
551 + 0.42271747D-02, 0.42271747D-02, 0.38037736D+00, 0.86736174D-18,
552 + 0.57027955D+00, 0.21703986D+00, 0.43144662D-02, 0.43201956D-02,
553 + 0.43152794D-02, 0.43144662D-02, 0.33787940D+00, 0.48472802D-03,
554 + 0.54066854D+00, 0.20263136D+00, 0.43340412D-02, 0.43446000D-02,
555 + 0.43355085D-02, 0.43340412D-02, 0.29879859D+00, 0.86632144D-03,
556 + 0.51196237D+00, 0.18896360D+00, 0.42991523D-02, 0.43137484D-02,
557 + 0.43011396D-02, 0.42991523D-02, 0.26316287D+00, 0.11614835D-02,
558 + 0.48417903D+00, 0.17601483D+00, 0.42200012D-02, 0.42379246D-02,
559 + 0.42223933D-02, 0.42200012D-02, 0.23092273D+00, 0.13830959D-02,
560 + 0.45733163D+00, 0.16376189D+00, 0.41053988D-02, 0.41260179D-02,
561 + 0.41080969D-02, 0.41053988D-02, 0.20193947D+00, 0.15424386D-02,
562 + 0.43143123D+00, 0.15218235D+00, 0.39631584D-02, 0.39859122D-02,
563 + 0.39660784D-02, 0.39631584D-02, 0.17604658D+00, 0.16495813D-02,
564 + 0.40648558D+00, 0.14125372D+00, 0.38000062D-02, 0.38243982D-02,
565 + 0.38030767D-02, 0.38000062D-02, 0.15304734D+00, 0.17133078D-02,
566 + 0.38249945D+00, 0.13095353D+00, 0.36217606D-02, 0.36473530D-02,
567 + 0.36249215D-02, 0.36217606D-02, 0.13272620D+00, 0.17413214D-02/
568 DATA ((CALC(I,K,13),I=1,8), K=10,18) /
569 + 0.35947453D+00, 0.12125927D+00, 0.34333998D-02, 0.34598086D-02,
570 + 0.34366006D-02, 0.34333998D-02, 0.11485913D+00, 0.17403296D-02,
571 + 0.33740948D+00, 0.11214834D+00, 0.32391427D-02, 0.32660329D-02,
572 + 0.32423417D-02, 0.32391427D-02, 0.99220244D-01, 0.17161406D-02,
573 + 0.31629996D+00, 0.10359808D+00, 0.30425279D-02, 0.30696090D-02,
574 + 0.30456907D-02, 0.30425279D-02, 0.85587700D-01, 0.16737553D-02,
575 + 0.29613873D+00, 0.95585734D-01, 0.28464824D-02, 0.28735045D-02,
576 + 0.28495812D-02, 0.28464824D-02, 0.73748068D-01, 0.16174479D-02,
577 + 0.27691572D+00, 0.88088565D-01, 0.26533892D-02, 0.26801392D-02,
578 + 0.26564018D-02, 0.26533892D-02, 0.63499475D-01, 0.15508429D-02,
579 + 0.25861818D+00, 0.81083843D-01, 0.24651504D-02, 0.24914485D-02,
580 + 0.24680595D-02, 0.24651504D-02, 0.54653783D-01, 0.14769869D-02,
581 + 0.24123083D+00, 0.74548927D-01, 0.22832461D-02, 0.23089427D-02,
582 + 0.22860388D-02, 0.22832461D-02, 0.47037889D-01, 0.13984152D-02,
583 + 0.22473600D+00, 0.68461330D-01, 0.21087905D-02, 0.21337628D-02,
584 + 0.21114573D-02, 0.21087905D-02, 0.40494306D-01, 0.13172148D-02,
585 + 0.20911389D+00, 0.62798787D-01, 0.19425826D-02, 0.19667322D-02,
586 + 0.19451171D-02, 0.19425826D-02, 0.34881210D-01, 0.12350809D-02/
587 DATA ((CALC(I,K,13),I=1,8), K=19,20) /
588 + 0.19434270D+00, 0.57539325D-01, 0.17851541D-02, 0.18084041D-02,
589 + 0.17875526D-02, 0.17851541D-02, 0.30072058D-01, 0.11533708D-02,
590 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
591 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
592 DATA ((CALC(I,K,14),I=1,8), K=1,9) /
593 + 0.51632537D+00, 0.17190006D+00, 0.20981348D-02, 0.20981348D-02,
594 + 0.20981348D-02, 0.20981348D-02, 0.27616356D+00, 0.11926224D-17,
595 + 0.48552628D+00, 0.15904827D+00, 0.21710311D-02, 0.21749231D-02,
596 + 0.21714614D-02, 0.21710311D-02, 0.24030554D+00, 0.28736293D-03,
597 + 0.45602587D+00, 0.14700374D+00, 0.21979326D-02, 0.22050439D-02,
598 + 0.21987031D-02, 0.21979326D-02, 0.20827361D+00, 0.50772576D-03,
599 + 0.42780301D+00, 0.13572121D+00, 0.21886054D-02, 0.21983531D-02,
600 + 0.21896412D-02, 0.21886054D-02, 0.17983633D+00, 0.67310759D-03,
601 + 0.40084025D+00, 0.12516450D+00, 0.21505429D-02, 0.21624119D-02,
602 + 0.21517801D-02, 0.21505429D-02, 0.15476148D+00, 0.79274167D-03,
603 + 0.37511595D+00, 0.11529731D+00, 0.20899179D-02, 0.21034569D-02,
604 + 0.20913030D-02, 0.20899179D-02, 0.13277141D+00, 0.87438403D-03,
605 + 0.35060822D+00, 0.10608530D+00, 0.20121614D-02, 0.20269756D-02,
606 + 0.20136489D-02, 0.20121614D-02, 0.11359060D+00, 0.92490325D-03,
607 + 0.32729347D+00, 0.97495376D-01, 0.19218442D-02, 0.19375899D-02,
608 + 0.19233964D-02, 0.19218442D-02, 0.96944662D-01, 0.95016958D-03,
609 + 0.30514661D+00, 0.89495614D-01, 0.18228262D-02, 0.18392058D-02,
610 + 0.18244118D-02, 0.18228262D-02, 0.82565447D-01, 0.95522237D-03/
611 DATA ((CALC(I,K,14),I=1,8), K=10,18) /
612 + 0.28414102D+00, 0.82055168D-01, 0.17183336D-02, 0.17350908D-02,
613 + 0.17199267D-02, 0.17183336D-02, 0.70197637D-01, 0.94435964D-03,
614 + 0.26424851D+00, 0.75144175D-01, 0.16110292D-02, 0.16279447D-02,
615 + 0.16126089D-02, 0.16110292D-02, 0.59601612D-01, 0.92121971D-03,
616 + 0.24543941D+00, 0.68733711D-01, 0.15030839D-02, 0.15199719D-02,
617 + 0.15046335D-02, 0.15030839D-02, 0.50555726D-01, 0.88886214D-03,
618 + 0.22768264D+00, 0.62795758D-01, 0.13962381D-02, 0.14129425D-02,
619 + 0.13977442D-02, 0.13962381D-02, 0.42857567D-01, 0.84983733D-03,
620 + 0.21094579D+00, 0.57303184D-01, 0.12918587D-02, 0.13082502D-02,
621 + 0.12933112D-02, 0.12918587D-02, 0.36324336D-01, 0.80625106D-03,
622 + 0.19519530D+00, 0.52229746D-01, 0.11909920D-02, 0.12069649D-02,
623 + 0.11923834D-02, 0.11909920D-02, 0.30792628D-01, 0.75982316D-03,
624 + 0.18039655D+00, 0.47550088D-01, 0.10944108D-02, 0.11098805D-02,
625 + 0.10957358D-02, 0.10944108D-02, 0.26117732D-01, 0.71194080D-03,
626 + 0.16651410D+00, 0.43239757D-01, 0.10026578D-02, 0.10175579D-02,
627 + 0.10039127D-02, 0.10026578D-02, 0.22172590D-01, 0.66370657D-03,
628 + 0.15351180D+00, 0.39275213D-01, 0.91608379D-03, 0.93036438D-03,
629 + 0.91726670D-03, 0.91608379D-03, 0.18846509D-01, 0.61598147D-03/
630 DATA ((CALC(I,K,14),I=1,8), K=19,20) /
631 + 0.14135303D+00, 0.35633841D-01, 0.83488202D-03, 0.84850733D-03,
632 + 0.83599225D-03, 0.83488202D-03, 0.16043733D-01, 0.56942327D-03,
633 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
634 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
635 DATA ((CALC(I,K,15),I=1,8), K=1,9) /
636 + 0.42705580D+00, 0.12082176D+00, 0.97978438D-03, 0.97978438D-03,
637 + 0.97978438D-03, 0.97978438D-03, 0.19498989D+00,-0.25072175D-18,
638 + 0.39784903D+00, 0.11068616D+00, 0.10356646D-02, 0.10382274D-02,
639 + 0.10358873D-02, 0.10356646D-02, 0.16625863D+00, 0.16399453D-03,
640 + 0.37021828D+00, 0.10130049D+00, 0.10616397D-02, 0.10662818D-02,
641 + 0.10620353D-02, 0.10616397D-02, 0.14125776D+00, 0.28655433D-03,
642 + 0.34409999D+00, 0.92610460D-01, 0.10644378D-02, 0.10707467D-02,
643 + 0.10649653D-02, 0.10644378D-02, 0.11959872D+00, 0.37575575D-03,
644 + 0.31944260D+00, 0.84573060D-01, 0.10492410D-02, 0.10568576D-02,
645 + 0.10498663D-02, 0.10492410D-02, 0.10094846D+00, 0.43781550D-03,
646 + 0.29619219D+00, 0.77146471D-01, 0.10201214D-02, 0.10287351D-02,
647 + 0.10208158D-02, 0.10201214D-02, 0.84967494D-01, 0.47773454D-03,
648 + 0.27429679D+00, 0.70291650D-01, 0.98064902D-03, 0.98999276D-03,
649 + 0.98138896D-03, 0.98064902D-03, 0.71339424D-01, 0.49992158D-03,
650 + 0.25370497D+00, 0.63971782D-01, 0.93377413D-03, 0.94361922D-03,
651 + 0.93454012D-03, 0.93377413D-03, 0.59770974D-01, 0.50807768D-03,
652 + 0.23436584D+00, 0.58152064D-01, 0.88193337D-03, 0.89208528D-03,
653 + 0.88270955D-03, 0.88193337D-03, 0.49991630D-01, 0.50531460D-03/
654 DATA ((CALC(I,K,15),I=1,8), K=10,18) /
655 + 0.21622892D+00, 0.52799564D-01, 0.82712198D-03, 0.83741647D-03,
656 + 0.82789559D-03, 0.82712198D-03, 0.41756407D-01, 0.49423547D-03,
657 + 0.19924413D+00, 0.47883066D-01, 0.77094786D-03, 0.78124752D-03,
658 + 0.77170876D-03, 0.77094786D-03, 0.34845585D-01, 0.47699601D-03,
659 + 0.18336173D+00, 0.43372975D-01, 0.71468791D-03, 0.72487906D-03,
660 + 0.71542819D-03, 0.71468791D-03, 0.29064050D-01, 0.45536721D-03,
661 + 0.16853240D+00, 0.39241220D-01, 0.65933595D-03, 0.66932576D-03,
662 + 0.66004960D-03, 0.65933595D-03, 0.24240208D-01, 0.43078871D-03,
663 + 0.15470724D+00, 0.35461188D-01, 0.60564592D-03, 0.61535992D-03,
664 + 0.60632853D-03, 0.60564592D-03, 0.20224430D-01, 0.40441676D-03,
665 + 0.14183788D+00, 0.32007664D-01, 0.55417086D-03, 0.56355056D-03,
666 + 0.55481932D-03, 0.55417086D-03, 0.16887306D-01, 0.37716744D-03,
667 + 0.12987657D+00, 0.28856782D-01, 0.50529713D-03, 0.51429798D-03,
668 + 0.50590946D-03, 0.50529713D-03, 0.14117757D-01, 0.34975466D-03,
669 + 0.11877628D+00, 0.25985981D-01, 0.45927458D-03, 0.46786404D-03,
670 + 0.45984969D-03, 0.45927458D-03, 0.11821079D-01, 0.32272356D-03,
671 + 0.10849081D+00, 0.23373964D-01, 0.41624290D-03, 0.42439878D-03,
672 + 0.41678046D-03, 0.41624290D-03, 0.99170713D-02, 0.29647999D-03/
673 DATA ((CALC(I,K,15),I=1,8), K=19,20) /
674 + 0.98974901D-01, 0.21000664D-01, 0.37625434D-03, 0.38396327D-03,
675 + 0.37675462D-03, 0.37625434D-03, 0.83382513D-02, 0.27131583D-03,
676 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
677 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
678 DATA ((CALC(I,K,16),I=1,8), K=1,9) /
679 + 0.33903118D+00, 0.80276474D-01, 0.42548719D-03, 0.42548719D-03,
680 + 0.42548719D-03, 0.42548719D-03, 0.13318071D+00,-0.17618285D-18,
681 + 0.31288724D+00, 0.72817098D-01, 0.46413041D-03, 0.46575439D-03,
682 + 0.46424142D-03, 0.46413041D-03, 0.11125492D+00, 0.89075813D-04,
683 + 0.28844204D+00, 0.65988931D-01, 0.48442470D-03, 0.48733857D-03,
684 + 0.48462021D-03, 0.48442470D-03, 0.92647001D-01, 0.15398437D-03,
685 + 0.26559663D+00, 0.59737298D-01, 0.49067020D-03, 0.49459379D-03,
686 + 0.49092880D-03, 0.49067020D-03, 0.76899569D-01, 0.19976257D-03,
687 + 0.24427155D+00, 0.54019328D-01, 0.48622142D-03, 0.49091428D-03,
688 + 0.48652541D-03, 0.48622142D-03, 0.63645454D-01, 0.23032621D-03,
689 + 0.22438755D+00, 0.48794267D-01, 0.47358551D-03, 0.47884331D-03,
690 + 0.47392034D-03, 0.47358551D-03, 0.52541413D-01, 0.24867979D-03,
691 + 0.20586960D+00, 0.44024481D-01, 0.45496396D-03, 0.46061397D-03,
692 + 0.45531776D-03, 0.45496396D-03, 0.43278927D-01, 0.25747077D-03,
693 + 0.18864559D+00, 0.39675068D-01, 0.43215079D-03, 0.43804785D-03,
694 + 0.43251400D-03, 0.43215079D-03, 0.35585185D-01, 0.25888872D-03,
695 + 0.17264613D+00, 0.35713543D-01, 0.40659624D-03, 0.41261939D-03,
696 + 0.40696119D-03, 0.40659624D-03, 0.29218655D-01, 0.25473615D-03/
697 DATA ((CALC(I,K,16),I=1,8), K=10,18) /
698 + 0.15780432D+00, 0.32109654D-01, 0.37946663D-03, 0.38551605D-03,
699 + 0.37982732D-03, 0.37946663D-03, 0.23968575D-01, 0.24649356D-03,
700 + 0.14405560D+00, 0.28835199D-01, 0.35168151D-03, 0.35767579D-03,
701 + 0.35203327D-03, 0.35168151D-03, 0.19652525D-01, 0.23536084D-03,
702 + 0.13133761D+00, 0.25863873D-01, 0.32395319D-03, 0.32982692D-03,
703 + 0.32429252D-03, 0.32395319D-03, 0.16113788D-01, 0.22230062D-03,
704 + 0.11959016D+00, 0.23171139D-01, 0.29682056D-03, 0.30252215D-03,
705 + 0.29714489D-03, 0.29682056D-03, 0.13218820D-01, 0.20807534D-03,
706 + 0.10875513D+00, 0.20734118D-01, 0.27067861D-03, 0.27616838D-03,
707 + 0.27098617D-03, 0.27067861D-03, 0.10854644D-01, 0.19327964D-03,
708 + 0.98776501D-01, 0.18531488D-01, 0.24580455D-03, 0.25105304D-03,
709 + 0.24609422D-03, 0.24580455D-03, 0.89263130D-02, 0.17836902D-03,
710 + 0.89600324D-01, 0.16543398D-01, 0.22238049D-03, 0.22736690D-03,
711 + 0.22265165D-03, 0.22238049D-03, 0.73545566D-02, 0.16368469D-03,
712 + 0.81174729D-01, 0.14751386D-01, 0.20051276D-03, 0.20522362D-03,
713 + 0.20076523D-03, 0.20051276D-03, 0.60736319D-02, 0.14947494D-03,
714 + 0.73449942D-01, 0.13138306D-01, 0.18024833D-03, 0.18467630D-03,
715 + 0.18048226D-03, 0.18024833D-03, 0.50292731D-02, 0.13591328D-03/
716 DATA ((CALC(I,K,16),I=1,8), K=19,20) /
717 + 0.66378294D-01, 0.11688258D-01, 0.16158863D-03, 0.16573145D-03,
718 + 0.16180444D-03, 0.16158863D-03, 0.41768921D-02, 0.12311380D-03,
719 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
720 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
721 DATA ((CALC(I,K,17),I=1,8), K=1,9) /
722 + 0.25716544D+00, 0.50047417D-01, 0.16921711D-03, 0.16921711D-03,
723 + 0.16921711D-03, 0.16921711D-03, 0.87379852D-01, 0.20803129D-17,
724 + 0.23506196D+00, 0.44940973D-01, 0.19311456D-03, 0.19408476D-03,
725 + 0.19316694D-03, 0.19311456D-03, 0.71473141D-01, 0.45371071D-04,
726 + 0.21463003D+00, 0.40319879D-01, 0.20657405D-03, 0.20829675D-03,
727 + 0.20666547D-03, 0.20657405D-03, 0.58303762D-01, 0.77635734D-04,
728 + 0.19574688D+00, 0.36135696D-01, 0.21210461D-03, 0.21440070D-03,
729 + 0.21222447D-03, 0.21210461D-03, 0.47414988D-01, 0.99667201D-04,
730 + 0.17831486D+00, 0.32350818D-01, 0.21171439D-03, 0.21443283D-03,
731 + 0.21185408D-03, 0.21171439D-03, 0.38455136D-01, 0.11374899D-03,
732 + 0.16223931D+00, 0.28930202D-01, 0.20682295D-03, 0.20983764D-03,
733 + 0.20697547D-03, 0.20682295D-03, 0.31116267D-01, 0.12154118D-03,
734 + 0.14743170D+00, 0.25841808D-01, 0.19868652D-03, 0.20189297D-03,
735 + 0.19884629D-03, 0.19868652D-03, 0.25128836D-01, 0.12451427D-03,
736 + 0.13380862D+00, 0.23056348D-01, 0.18831994D-03, 0.19163212D-03,
737 + 0.18848253D-03, 0.18831994D-03, 0.20263181D-01, 0.12387123D-03,
738 + 0.12129123D+00, 0.20546938D-01, 0.17652595D-03, 0.17987386D-03,
739 + 0.17668791D-03, 0.17652595D-03, 0.16322892D-01, 0.12058072D-03/
740 DATA ((CALC(I,K,17),I=1,8), K=10,18) /
741 + 0.10980498D+00, 0.18288894D-01, 0.16394017D-03, 0.16726752D-03,
742 + 0.16409884D-03, 0.16394017D-03, 0.13141904D-01, 0.11542487D-03,
743 + 0.99279307D-01, 0.16259533D-01, 0.15105373D-03, 0.15431597D-03,
744 + 0.15120712D-03, 0.15105373D-03, 0.10580912D-01, 0.10902423D-03,
745 + 0.89647348D-01, 0.14438001D-01, 0.13823793D-03, 0.14140052D-03,
746 + 0.13838460D-03, 0.13823793D-03, 0.85237466D-02, 0.10186447D-03,
747 + 0.80845790D-01, 0.12805132D-01, 0.12576592D-03, 0.12880284D-03,
748 + 0.12590488D-03, 0.12576592D-03, 0.68742070D-02, 0.94319829D-04,
749 + 0.72814689D-01, 0.11343312D-01, 0.11383101D-03, 0.11672337D-03,
750 + 0.11396162D-03, 0.11383101D-03, 0.55531346D-02, 0.86672930D-04,
751 + 0.65497339D-01, 0.10036368D-01, 0.10256263D-03, 0.10529755D-03,
752 + 0.10268455D-03, 0.10256263D-03, 0.44958340D-02, 0.79132120D-04,
753 + 0.58840152D-01, 0.88694607D-02, 0.92039859D-04, 0.94609435D-04,
754 + 0.92152981D-04, 0.92039859D-04, 0.36496885D-02, 0.71846147D-04,
755 + 0.52792555D-01, 0.78289913D-02, 0.82302735D-04, 0.84703144D-04,
756 + 0.82407123D-04, 0.82302735D-04, 0.29720846D-02, 0.64916525D-04,
757 + 0.47306895D-01, 0.69025121D-02, 0.73361805D-04, 0.75592543D-04,
758 + 0.73457663D-04, 0.73361805D-04, 0.24287797D-02, 0.58407999D-04/
759 DATA ((CALC(I,K,17),I=1,8), K=19,20) /
760 + 0.42338349D-01, 0.60786459D-02, 0.65205807D-04, 0.67269026D-04,
761 + 0.65293443D-04, 0.65205807D-04, 0.19923875D-02, 0.52357046D-04,
762 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
763 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
764 DATA ((CALC(I,K,18),I=1,8), K=1,9) /
765 + 0.18509435D+00, 0.28948732D-01, 0.60365385D-04, 0.60365385D-04,
766 + 0.60365385D-04, 0.60365385D-04, 0.54550804D-01,-0.99102855D-19,
767 + 0.16750202D+00, 0.25723871D-01, 0.73400658D-04, 0.73935524D-04,
768 + 0.73423603D-04, 0.73400658D-04, 0.43645194D-01, 0.21221013D-04,
769 + 0.15142629D+00, 0.22839415D-01, 0.81065112D-04, 0.82004390D-04,
770 + 0.81104814D-04, 0.81065112D-04, 0.34842363D-01, 0.35978415D-04,
771 + 0.13673471D+00, 0.20257027D-01, 0.84656333D-04, 0.85894569D-04,
772 + 0.84707952D-04, 0.84656333D-04, 0.27735150D-01, 0.45730076D-04,
773 + 0.12332287D+00, 0.17947249D-01, 0.85264971D-04, 0.86714700D-04,
774 + 0.85324626D-04, 0.85264971D-04, 0.22019925D-01, 0.51686866D-04,
775 + 0.11109181D+00, 0.15883149D-01, 0.83612150D-04, 0.85201675D-04,
776 + 0.83676741D-04, 0.83612150D-04, 0.17446055D-01, 0.54673316D-04,
777 + 0.99949989D-01, 0.14040339D-01, 0.80347140D-04, 0.82018279D-04,
778 + 0.80414230D-04, 0.80347140D-04, 0.13798816D-01, 0.55430154D-04,
779 + 0.89812509D-01, 0.12396828D-01, 0.75994424D-04, 0.77700363D-04,
780 + 0.76062118D-04, 0.75994424D-04, 0.10901131D-01, 0.54561355D-04,
781 + 0.80600357D-01, 0.10932696D-01, 0.70959398D-04, 0.72663041D-04,
782 + 0.71026248D-04, 0.70959398D-04, 0.86064001D-02, 0.52541686D-04/
783 DATA ((CALC(I,K,18),I=1,8), K=10,18) /
784 + 0.72239983D-01, 0.96298964D-02, 0.65558694D-04, 0.67231142D-04,
785 + 0.65623620D-04, 0.65558694D-04, 0.67942217D-02, 0.49748407D-04,
786 + 0.64662859D-01, 0.84720691D-02, 0.60032677D-04, 0.61651919D-04,
787 + 0.60094895D-04, 0.60032677D-04, 0.53665277D-02, 0.46474873D-04,
788 + 0.57805120D-01, 0.74443801D-02, 0.54558688D-04, 0.56108474D-04,
789 + 0.54617657D-04, 0.54558688D-04, 0.42438055D-02, 0.42944754D-04,
790 + 0.51607257D-01, 0.65333812D-02, 0.49263551D-04, 0.50732414D-04,
791 + 0.49318922D-04, 0.49263551D-04, 0.33620652D-02, 0.39325376D-04,
792 + 0.46013841D-01, 0.57268858D-02, 0.44233750D-04, 0.45614158D-04,
793 + 0.44285328D-04, 0.44233750D-04, 0.26700731D-02, 0.35738622D-04,
794 + 0.40973286D-01, 0.50138581D-02, 0.39524115D-04, 0.40811745D-04,
795 + 0.39571827D-04, 0.39524115D-04, 0.21269517D-02, 0.32270251D-04,
796 + 0.36437630D-01, 0.43843135D-02, 0.35165232D-04, 0.36358345D-04,
797 + 0.35209098D-04, 0.35165232D-04, 0.17003738D-02, 0.28977854D-04,
798 + 0.32362334D-01, 0.38292285D-02, 0.31169503D-04, 0.32268408D-04,
799 + 0.31209611D-04, 0.31169503D-04, 0.13649232D-02, 0.25897389D-04,
800 + 0.28706102D-01, 0.33404582D-02, 0.27535873D-04, 0.28542471D-04,
801 + 0.27572364D-04, 0.27535873D-04, 0.11005374D-02, 0.23048338D-04/
802 DATA ((CALC(I,K,18),I=1,8), K=19,20) /
803 + 0.25430700D-01, 0.29106608D-02, 0.24253781D-04, 0.25171186D-04,
804 + 0.24286832D-04, 0.24253781D-04, 0.89149947D-03, 0.20438022D-04,
805 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
806 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
807 DATA ((CALC(I,K,19),I=1,8), K=1,9) /
808 + 0.12511596D+00, 0.15277434D-01, 0.18761940D-04, 0.18761940D-04,
809 + 0.18761940D-04, 0.18761940D-04, 0.31976696D-01, 0.11244362D-17,
810 + 0.11203183D+00, 0.13425405D-01, 0.24867409D-04, 0.25139448D-04,
811 + 0.24876929D-04, 0.24867409D-04, 0.24985115D-01, 0.88225515D-05,
812 + 0.10021714D+00, 0.11789005D-01, 0.28571124D-04, 0.29040474D-04,
813 + 0.28587419D-04, 0.28571124D-04, 0.19490648D-01, 0.14854089D-04,
814 + 0.89543890D-01, 0.10341160D-01, 0.30433528D-04, 0.31041543D-04,
815 + 0.30454492D-04, 0.30433528D-04, 0.15164455D-01, 0.18716337D-04,
816 + 0.79912217D-01, 0.90612886D-02, 0.30974160D-04, 0.31673538D-04,
817 + 0.30998138D-04, 0.30974160D-04, 0.11767860D-01, 0.20974399D-04,
818 + 0.71229380D-01, 0.79309402D-02, 0.30508076D-04, 0.31261180D-04,
819 + 0.30533769D-04, 0.30508076D-04, 0.91152641D-02, 0.21981861D-04,
820 + 0.63410450D-01, 0.69335629D-02, 0.29328990D-04, 0.30106333D-04,
821 + 0.29355400D-04, 0.29328990D-04, 0.70505733D-02, 0.22066269D-04,
822 + 0.56377807D-01, 0.60544377D-02, 0.27677772D-04, 0.28456519D-04,
823 + 0.27704142D-04, 0.27677772D-04, 0.54488746D-02, 0.21497573D-04,
824 + 0.50060242D-01, 0.52804060D-02, 0.25735893D-04, 0.26498771D-04,
825 + 0.25761661D-04, 0.25735893D-04, 0.42101156D-02, 0.20482340D-04/
826 DATA ((CALC(I,K,19),I=1,8), K=10,18) /
827 + 0.44392424D-01, 0.45997051D-02, 0.23643606D-04, 0.24377904D-04,
828 + 0.23668370D-04, 0.23643606D-04, 0.32543735D-02, 0.19182514D-04,
829 + 0.39314381D-01, 0.40018155D-02, 0.21505942D-04, 0.22202662D-04,
830 + 0.21529422D-04, 0.21505942D-04, 0.25184902D-02, 0.17721871D-04,
831 + 0.34771051D-01, 0.34773286D-02, 0.19398514D-04, 0.20051671D-04,
832 + 0.19420532D-04, 0.19398514D-04, 0.19527211D-02, 0.16192231D-04,
833 + 0.30711899D-01, 0.30178307D-02, 0.17373779D-04, 0.17979794D-04,
834 + 0.17394234D-04, 0.17373779D-04, 0.15180062D-02, 0.14660054D-04,
835 + 0.27090563D-01, 0.26158026D-02, 0.15466106D-04, 0.16023302D-04,
836 + 0.15484957D-04, 0.15466106D-04, 0.11839900D-02, 0.13171807D-04,
837 + 0.23864549D-01, 0.22645289D-02, 0.13696033D-04, 0.14204210D-04,
838 + 0.13713284D-04, 0.13696033D-04, 0.92724223D-03, 0.11758474D-04,
839 + 0.20994946D-01, 0.19580180D-02, 0.12073599D-04, 0.12533683D-04,
840 + 0.12089289D-04, 0.12073599D-04, 0.72955528D-03, 0.10439109D-04,
841 + 0.18446167D-01, 0.16909298D-02, 0.10601234D-04, 0.11014980D-04,
842 + 0.10615424D-04, 0.10601234D-04, 0.57689779D-03, 0.92239109D-05,
843 + 0.16185714D-01, 0.14585109D-02, 0.92761477D-05, 0.96459052D-05,
844 + 0.92889183D-05, 0.92761477D-05, 0.45869843D-03, 0.81167844D-05/
845 DATA ((CALC(I,K,19),I=1,8), K=19,20) /
846 + 0.14183953D-01, 0.12565363D-02, 0.80919019D-05, 0.84204158D-05,
847 + 0.81033428D-05, 0.80919019D-05, 0.36686556D-03, 0.71170484D-05,
848 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
849 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
850 DATA ((CALC(I,K,20),I=1,8), K=1,9) /
851 + 0.78207939D-01, 0.71718715D-02, 0.48685484D-05, 0.48685484D-05,
852 + 0.48685484D-05, 0.48685484D-05, 0.17260222D-01, 0.65899163D-18,
853 + 0.69231380D-01, 0.62267774D-02, 0.72000531D-05, 0.73038093D-05,
854 + 0.72035216D-05, 0.72000531D-05, 0.13139860D-01, 0.30850984D-05,
855 + 0.61227629D-01, 0.54026433D-02, 0.86663244D-05, 0.88395579D-05,
856 + 0.86721878D-05, 0.86663244D-05, 0.99947918D-02, 0.51890455D-05,
857 + 0.54085345D-01, 0.46826456D-02, 0.94402700D-05, 0.96573590D-05,
858 + 0.94477236D-05, 0.94402700D-05, 0.75850886D-02, 0.65043408D-05,
859 + 0.47718551D-01, 0.40541438D-02, 0.97259942D-05, 0.99672413D-05,
860 + 0.97344198D-05, 0.97259942D-05, 0.57407678D-02, 0.72495189D-05,
861 + 0.42049033D-01, 0.35060412D-02, 0.96322988D-05, 0.98828263D-05,
862 + 0.96412218D-05, 0.96322988D-05, 0.43380534D-02, 0.75453521D-05,
863 + 0.37005885D-01, 0.30284797D-02, 0.92685924D-05, 0.95174911D-05,
864 + 0.92776571D-05, 0.92685924D-05, 0.32745391D-02, 0.75116772D-05,
865 + 0.32525236D-01, 0.26128175D-02, 0.87291103D-05, 0.89685648D-05,
866 + 0.87380555D-05, 0.87291103D-05, 0.24704846D-02, 0.72515884D-05,
867 + 0.28549325D-01, 0.22514364D-02, 0.80827884D-05, 0.83074776D-05,
868 + 0.80914274D-05, 0.80827884D-05, 0.18643596D-02, 0.68415702D-05/
869 DATA ((CALC(I,K,20),I=1,8), K=10,18) /
870 + 0.25025915D-01, 0.19376193D-02, 0.73826785D-05, 0.75892343D-05,
871 + 0.73908832D-05, 0.73826785D-05, 0.14084418D-02, 0.63411222D-05,
872 + 0.21907749D-01, 0.16654436D-02, 0.66682955D-05, 0.68548566D-05,
873 + 0.66759835D-05, 0.66682955D-05, 0.10659816D-02, 0.57952644D-05,
874 + 0.19152084D-01, 0.14296863D-02, 0.59674032D-05, 0.61332583D-05,
875 + 0.59745275D-05, 0.59674032D-05, 0.80895634D-03, 0.52364600D-05,
876 + 0.16720268D-01, 0.12257434D-02, 0.52988039D-05, 0.54440952D-05,
877 + 0.53053441D-05, 0.52988039D-05, 0.61617187D-03, 0.46875223D-05,
878 + 0.14577375D-01, 0.10495583D-02, 0.46742455D-05, 0.47997302D-05,
879 + 0.46802014D-05, 0.46742455D-05, 0.47144499D-03, 0.41636212D-05,
880 + 0.12691871D-01, 0.89756029D-03, 0.41001724D-05, 0.42070311D-05,
881 + 0.41055580D-05, 0.41001724D-05, 0.36251748D-03, 0.36741181D-05,
882 + 0.11035317D-01, 0.76660894D-03, 0.35793348D-05, 0.36690201D-05,
883 + 0.35841745D-05, 0.35793348D-05, 0.28039012D-03, 0.32242487D-05,
884 + 0.95820983D-02, 0.65394572D-03, 0.31117463D-05, 0.31858637D-05,
885 + 0.31160713D-05, 0.31117463D-05, 0.21831921D-03, 0.28161414D-05,
886 + 0.83091737D-02, 0.55715039D-03, 0.26954812D-05, 0.27556979D-05,
887 + 0.26993268D-05, 0.26954812D-05, 0.17110569D-03, 0.24496689D-05/
888 DATA ((CALC(I,K,20),I=1,8), K=19,20) /
889 + 0.71958512D-02, 0.47410266D-03, 0.23275372D-05, 0.23755137D-05,
890 + 0.23309410D-05, 0.23275372D-05, 0.13497267D-03, 0.21233560D-05,
891 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
892 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
893 DATA ((CALC(I,K,21),I=1,8), K=1,9) /
894 + 0.44126198D-01, 0.28774181D-02, 0.98730783D-06, 0.98730783D-06,
895 + 0.98730783D-06, 0.98730783D-06, 0.83237942D-02, 0.16570082D-19,
896 + 0.38566452D-01, 0.24647091D-02, 0.16316902D-05, 0.16407939D-05,
897 + 0.16327293D-05, 0.16316902D-05, 0.61526696D-02, 0.80814262D-06,
898 + 0.33677597D-01, 0.21100556D-02, 0.20721243D-05, 0.20823724D-05,
899 + 0.20738572D-05, 0.20721243D-05, 0.45490572D-02, 0.13852264D-05,
900 + 0.29373200D-01, 0.18045320D-02, 0.23203461D-05, 0.23267903D-05,
901 + 0.23225203D-05, 0.23203461D-05, 0.33575991D-02, 0.17479170D-05,
902 + 0.25587283D-01, 0.15415184D-02, 0.24333717D-05, 0.24329421D-05,
903 + 0.24357984D-05, 0.24333717D-05, 0.24706562D-02, 0.19568236D-05,
904 + 0.22261127D-01, 0.13153392D-02, 0.24344018D-05, 0.24255218D-05,
905 + 0.24369394D-05, 0.24344018D-05, 0.18156650D-02, 0.20380617D-05,
906 + 0.19342057D-01, 0.11210040D-02, 0.23525948D-05, 0.23348337D-05,
907 + 0.23551400D-05, 0.23525948D-05, 0.13335055D-02, 0.20233070D-05,
908 + 0.16783341D-01, 0.95420544D-03, 0.22171962D-05, 0.21908372D-05,
909 + 0.22196760D-05, 0.22171962D-05, 0.97931452D-03, 0.19439162D-05,
910 + 0.14543347D-01, 0.81120410D-03, 0.20488639D-05, 0.20147058D-05,
911 + 0.20512283D-05, 0.20488639D-05, 0.71978424D-03, 0.18223200D-05/
912 DATA ((CALC(I,K,21),I=1,8), K=10,18) /
913 + 0.12584987D-01, 0.68875151D-03, 0.18635568D-05, 0.18227219D-05,
914 + 0.18657735D-05, 0.18635568D-05, 0.52992811D-03, 0.16759719D-05,
915 + 0.10875222D-01, 0.58402703D-03, 0.16735644D-05, 0.16273312D-05,
916 + 0.16756148D-05, 0.16735644D-05, 0.39128689D-03, 0.15184202D-05,
917 + 0.93846245D-02, 0.49458096D-03, 0.14873320D-05, 0.14370258D-05,
918 + 0.14892073D-05, 0.14873320D-05, 0.29005601D-03, 0.13591698D-05,
919 + 0.80869988D-02, 0.41828666D-03, 0.13103514D-05, 0.12572654D-05,
920 + 0.13120505D-05, 0.13103514D-05, 0.21597406D-03, 0.12046045D-05,
921 + 0.69590429D-02, 0.35329943D-03, 0.11460860D-05, 0.10914244D-05,
922 + 0.11476129D-05, 0.11460860D-05, 0.16173656D-03, 0.10589379D-05,
923 + 0.59800496D-02, 0.29802041D-03, 0.99635391D-06, 0.94119654D-06,
924 + 0.99771627D-06, 0.99635391D-06, 0.12200019D-03, 0.92461894D-06,
925 + 0.51316381D-02, 0.25106512D-03, 0.86169801D-06, 0.80698098D-06,
926 + 0.86290587D-06, 0.86169801D-06, 0.92683828D-04, 0.80272005D-06,
927 + 0.43975147D-02, 0.21123630D-03, 0.74193773D-06, 0.68844610D-06,
928 + 0.74300255D-06, 0.74193773D-06, 0.70911410D-04, 0.69350509D-06,
929 + 0.37632565D-02, 0.17749999D-03, 0.63643257D-06, 0.58480153D-06,
930 + 0.63736646D-06, 0.63643257D-06, 0.54725864D-04, 0.59670595D-06/
931 DATA ((CALC(I,K,21),I=1,8), K=19,20) /
932 + 0.32161163D-02, 0.14896435D-03, 0.54415857D-06, 0.49488097D-06,
933 + 0.54497380D-06, 0.54415857D-06, 0.42606524D-04, 0.51161037D-06,
934 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
935 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
936 DATA ((CALC(I,K,22),I=1,8), K=1,9) /
937 + 0.21580972D-01, 0.92209954D-03, 0.14007288D-06, 0.14007288D-06,
938 + 0.14007288D-06, 0.14007288D-06, 0.34094253D-02, 0.22811987D-19,
939 + 0.18585618D-01, 0.77752973D-03, 0.22352135D-06, 0.19058807D-06,
940 + 0.22376004D-06, 0.22352135D-06, 0.24340210D-02, 0.10846867D-06,
941 + 0.15993270D-01, 0.65539026D-03, 0.30802777D-06, 0.24852177D-06,
942 + 0.30841980D-06, 0.30802777D-06, 0.17410110D-02, 0.21351491D-06,
943 + 0.13745610D-01, 0.55186052D-03, 0.36621607D-06, 0.28633073D-06,
944 + 0.36670050D-06, 0.36621607D-06, 0.12444936D-02, 0.28864325D-06,
945 + 0.11798701D-01, 0.46414836D-03, 0.40311511D-06, 0.30870323D-06,
946 + 0.40364752D-06, 0.40311511D-06, 0.88612427D-03, 0.33951680D-06,
947 + 0.10114392D-01, 0.38992726D-03, 0.41758062D-06, 0.31368737D-06,
948 + 0.41812855D-06, 0.41758062D-06, 0.63037536D-03, 0.36549185D-06,
949 + 0.86588490D-02, 0.32717401D-03, 0.41277224D-06, 0.30369141D-06,
950 + 0.41331294D-06, 0.41277224D-06, 0.44853047D-03, 0.37015640D-06,
951 + 0.74025551D-02, 0.27417276D-03, 0.39489841D-06, 0.28417881D-06,
952 + 0.39541648D-06, 0.39489841D-06, 0.31919521D-03, 0.36007271D-06,
953 + 0.63196564D-02, 0.22946005D-03, 0.36836096D-06, 0.25883661D-06,
954 + 0.36884652D-06, 0.36836096D-06, 0.22754880D-03, 0.33993476D-06/
955 DATA ((CALC(I,K,22),I=1,8), K=10,18) /
956 + 0.53874971D-02, 0.19178564D-03, 0.33665343D-06, 0.23050806D-06,
957 + 0.33710077D-06, 0.33665343D-06, 0.16272555D-03, 0.31347867D-06,
958 + 0.45862357D-02, 0.16008248D-03, 0.30269325D-06, 0.20153905D-06,
959 + 0.30309968D-06, 0.30269325D-06, 0.11675915D-03, 0.28382289D-06,
960 + 0.38985004D-02, 0.13343992D-03, 0.26863798D-06, 0.17359831D-06,
961 + 0.26900300D-06, 0.26863798D-06, 0.84194380D-04, 0.25329154D-06,
962 + 0.33090918D-02, 0.11108101D-03, 0.23591169D-06, 0.14769895D-06,
963 + 0.23623631D-06, 0.23591169D-06, 0.61171621D-04, 0.22344662D-06,
964 + 0.28047231D-02, 0.92343339D-04, 0.20533311D-06, 0.12432414D-06,
965 + 0.20561935D-06, 0.20533311D-06, 0.44770743D-04, 0.19522106D-06,
966 + 0.23737922D-02, 0.76662798D-04, 0.17739050D-06, 0.10369546D-06,
967 + 0.17764102D-06, 0.17739050D-06, 0.32997468D-04, 0.16919749D-06,
968 + 0.20061808D-02, 0.63559531D-04, 0.15232747D-06, 0.85849969D-07,
969 + 0.15254527D-06, 0.15232747D-06, 0.24567206D-04, 0.14569754D-06,
970 + 0.16930761D-02, 0.52625754D-04, 0.13013297D-06, 0.70622292D-07,
971 + 0.13032119D-06, 0.13013297D-06, 0.18493395D-04, 0.12477449D-06,
972 + 0.14268147D-02, 0.43515450D-04, 0.11066644D-06, 0.57761959D-07,
973 + 0.11082822D-06, 0.11066644D-06, 0.14033552D-04, 0.10634084D-06/
974 DATA ((CALC(I,K,22),I=1,8), K=19,20) /
975 + 0.12007428D-02, 0.35935474D-04, 0.93752153D-07, 0.47019945D-07,
976 + 0.93890517D-07, 0.93752153D-07, 0.10740693D-04, 0.90264520D-07,
977 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
978 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
979 DATA ((CALC(I,K,23),I=1,8), K=1,9) /
980 + 0.84858156D-02, 0.20777556D-03, 0.11297044D-07, 0.11297044D-07,
981 + 0.11297044D-07, 0.11297044D-07, 0.10787630D-02, 0.81852830D-19,
982 + 0.71772078D-02, 0.17184644D-03,-0.66395807D-08,-0.41478760D-07,
983 + -0.66053772D-08,-0.66395807D-08, 0.73734465D-03,-0.15743793D-07,
984 + 0.60664390D-02, 0.14211945D-03,-0.20154037D-08,-0.57171527D-07,
985 + -0.19618372D-08,-0.20154037D-08, 0.50633255D-03,-0.93555012D-08,
986 + 0.51211524D-02, 0.11741519D-03, 0.68791051D-08,-0.58842106D-07,
987 + 0.69423207D-08, 0.68791051D-08, 0.34830947D-03, 0.96628812D-09,
988 + 0.43173411D-02, 0.96886760D-04, 0.16322381D-07,-0.53462304D-07,
989 + 0.16388920D-07, 0.16322381D-07, 0.23817074D-03, 0.11565259D-07,
990 + 0.36348173D-02, 0.79853924D-04, 0.23685523D-07,-0.45664853D-07,
991 + 0.23751105D-07, 0.23685523D-07, 0.16267318D-03, 0.19862202D-07,
992 + 0.30559156D-02, 0.65732582D-04, 0.27959697D-07,-0.38052035D-07,
993 + 0.28021657D-07, 0.27959697D-07, 0.11140415D-03, 0.24890346D-07,
994 + 0.25655227D-02, 0.54037278D-04, 0.29830311D-07,-0.31147471D-07,
995 + 0.29887152D-07, 0.29830311D-07, 0.76410313D-04, 0.27369238D-07,
996 + 0.21506722D-02, 0.44362930D-04, 0.29807241D-07,-0.25259246D-07,
997 + 0.29858244D-07, 0.29807241D-07, 0.52448899D-04, 0.27836343D-07/
998 DATA ((CALC(I,K,23),I=1,8), K=10,18) /
999 + 0.18002247D-02, 0.36370383D-04, 0.28397781D-07,-0.20440888D-07,
1000 + 0.28442756D-07, 0.28397781D-07, 0.36149121D-04, 0.26821429D-07,
1001 + 0.15046181D-02, 0.29776112D-04, 0.26176173D-07,-0.16505236D-07,
1002 + 0.26215275D-07, 0.26176173D-07, 0.25121414D-04, 0.24917013D-07,
1003 + 0.12556495D-02, 0.24343044D-04, 0.23524267D-07,-0.13316204D-07,
1004 + 0.23557864D-07, 0.23524267D-07, 0.17574399D-04, 0.22519787D-07,
1005 + 0.10462870D-02, 0.19873096D-04, 0.20716252D-07,-0.10742717D-07,
1006 + 0.20744828D-07, 0.20716252D-07, 0.12362798D-04, 0.19915994D-07,
1007 + 0.87050901D-03, 0.16200928D-04, 0.17966909D-07,-0.86435474D-08,
1008 + 0.17991001D-07, 0.17966909D-07, 0.87997065D-05, 0.17330192D-07,
1009 + 0.72316490D-03, 0.13188630D-04, 0.15391385D-07,-0.69279941D-08,
1010 + 0.15411538D-07, 0.15391385D-07, 0.63519415D-05, 0.14885453D-07,
1011 + 0.59985502D-03, 0.10721318D-04, 0.13045821D-07,-0.55309984D-08,
1012 + 0.13062561D-07, 0.13045821D-07, 0.46234869D-05, 0.12644335D-07,
1013 + 0.49682666D-03, 0.87034365D-05, 0.10964387D-07,-0.43885536D-08,
1014 + 0.10978202D-07, 0.10964387D-07, 0.33981657D-05, 0.10646197D-07,
1015 + 0.41088397D-03, 0.70556024D-05, 0.91516560D-08,-0.34539907D-08,
1016 + 0.91629915D-08, 0.91516560D-08, 0.25366900D-05, 0.88998043D-08/
1017 DATA ((CALC(I,K,23),I=1,8), K=19,20) /
1018 + 0.33930984D-03, 0.57119689D-05, 0.75919874D-08,-0.26946949D-08,
1019 + 0.76012374D-08, 0.75919874D-08, 0.19154362D-05, 0.73928945D-08,
1020 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
1021 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
1022 DATA ((CALC(I,K,24),I=1,8), K=1,9) /
1023 + 0.22702571D-02, 0.24708982D-04, 0.32502839D-09, 0.32502839D-09,
1024 + 0.32502839D-09, 0.32502839D-09, 0.21308933D-03,-0.18486130D-20,
1025 + 0.18744090D-02, 0.19903444D-04,-0.14246691D-07,-0.42350326D-08,
1026 + -0.14249211D-07,-0.14246691D-07, 0.13714357D-03,-0.14501962D-07,
1027 + 0.15469124D-02, 0.16040142D-04,-0.18652171D-07,-0.27630390D-08,
1028 + -0.18656122D-07,-0.18652171D-07, 0.89146620D-04,-0.18852845D-07,
1029 + 0.12749615D-02, 0.12914882D-04,-0.19042325D-07,-0.74608701D-10,
1030 + -0.19046993D-07,-0.19042325D-07, 0.58368090D-04,-0.19199960D-07,
1031 + 0.10492560D-02, 0.10384592D-04,-0.17684678D-07, 0.24683636D-08,
1032 + -0.17689594D-07,-0.17684678D-07, 0.37797614D-04,-0.17808318D-07,
1033 + 0.86227886D-03, 0.83402949D-05,-0.15549653D-07, 0.44773317D-08,
1034 + -0.15554502D-07,-0.15549653D-07, 0.24455882D-04,-0.15646524D-07,
1035 + 0.70756042D-03, 0.66897909D-05,-0.13333272D-07, 0.57206659D-08,
1036 + -0.13337857D-07,-0.13333272D-07, 0.15933279D-04,-0.13409081D-07,
1037 + 0.57970642D-03, 0.53585136D-05,-0.11252145D-07, 0.63275839D-08,
1038 + -0.11256354D-07,-0.11252145D-07, 0.10386156D-04,-0.11311394D-07,
1039 + 0.47420896D-03, 0.42861267D-05,-0.93772561D-08, 0.64667477D-08,
1040 + -0.93810351D-08,-0.93772561D-08, 0.67963855D-05,-0.94235001D-08/
1041 DATA ((CALC(I,K,24),I=1,8), K=10,18) /
1042 + 0.38729093D-03, 0.34233910D-05,-0.77688585D-08, 0.62450390D-08,
1043 + -0.77721932D-08,-0.77688585D-08, 0.44870343D-05,-0.78049036D-08,
1044 + 0.31579344D-03, 0.27302787D-05,-0.64116419D-08, 0.57920215D-08,
1045 + -0.64145433D-08,-0.64116419D-08, 0.29804498D-05,-0.64396984D-08,
1046 + 0.25707652D-03, 0.21742626D-05,-0.52650150D-08, 0.52214625D-08,
1047 + -0.52675098D-08,-0.52650150D-08, 0.19997594D-05,-0.52868229D-08,
1048 + 0.20893582D-03, 0.17288911D-05,-0.43056522D-08, 0.46000381D-08,
1049 + -0.43077759D-08,-0.43056522D-08, 0.13632810D-05,-0.43225792D-08,
1050 + 0.16953312D-03, 0.13726894D-05,-0.35096481D-08, 0.39740039D-08,
1051 + -0.35114402D-08,-0.35096481D-08, 0.94021476D-06,-0.35227681D-08,
1052 + 0.13733760D-03, 0.10882495D-05,-0.28493808D-08, 0.33785446D-08,
1053 + -0.28508814D-08,-0.28493808D-08, 0.65571517D-06,-0.28595357D-08,
1054 + 0.11107635D-03, 0.86147086D-06,-0.23030700D-08, 0.28329892D-08,
1055 + -0.23043179D-08,-0.23030700D-08, 0.46575548D-06,-0.23109189D-08,
1056 + 0.89692587D-04, 0.68094803D-06,-0.18535793D-08, 0.23456287D-08,
1057 + -0.18546104D-08,-0.18535793D-08, 0.33609604D-06,-0.18596374D-08,
1058 + 0.72310507D-04, 0.53747241D-06,-0.14850461D-08, 0.19196948D-08,
1059 + -0.14858934D-08,-0.14850461D-08, 0.24478891D-06,-0.14897156D-08/
1060 DATA ((CALC(I,K,24),I=1,8), K=19,20) /
1061 + 0.58205571D-04, 0.42361984D-06,-0.11839162D-08, 0.15541943D-08,
1062 + -0.11846086D-08,-0.11839162D-08, 0.18047922D-06,-0.11875105D-08,
1063 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
1064 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
1065 DATA ((CALC(I,K,25),I=1,8), K=1,9) /
1066 + 0.24429591D-03, 0.62021186D-06, 0.75420150D-12, 0.75420150D-12,
1067 + 0.75420150D-12, 0.75420150D-12, 0.13318083D-04, 0.95227098D-22,
1068 + 0.19366150D-03, 0.47939321D-06, 0.21511713D-09,-0.40057740D-08,
1069 + 0.21523678D-09, 0.21511713D-09, 0.77271079D-05, 0.21454950D-09,
1070 + 0.15355328D-03, 0.37131637D-06, 0.67681623D-09,-0.60145920D-08,
1071 + 0.67699959D-09, 0.67681623D-09, 0.45920150D-05, 0.67638808D-09,
1072 + 0.12159520D-03, 0.28752233D-06, 0.10810370D-08,-0.69046506D-08,
1073 + 0.10812489D-08, 0.10810370D-08, 0.28193096D-05, 0.10807142D-08,
1074 + 0.96111689D-04, 0.22228227D-06, 0.13333946D-08,-0.71542527D-08,
1075 + 0.13336133D-08, 0.13333946D-08, 0.16691017D-05, 0.13331517D-08,
1076 + 0.75852785D-04, 0.17167953D-06, 0.14702839D-08,-0.69732754D-08,
1077 + 0.14704954D-08, 0.14702839D-08, 0.97059807D-06, 0.14701014D-08,
1078 + 0.59767344D-04, 0.13245573D-06, 0.15134131D-08,-0.65356568D-08,
1079 + 0.15136090D-08, 0.15134131D-08, 0.59145851D-06, 0.15132761D-08,
1080 + 0.47011851D-04, 0.10205625D-06, 0.14805928D-08,-0.59668029D-08,
1081 + 0.14807691D-08, 0.14805928D-08, 0.36409669D-06, 0.14804901D-08,
1082 + 0.36914306D-04, 0.78527064D-07, 0.13973951D-08,-0.53401944D-08,
1083 + 0.13975503D-08, 0.13973951D-08, 0.21651983D-06, 0.13973183D-08/
1084 DATA ((CALC(I,K,25),I=1,8), K=10,18) /
1085 + 0.28934434D-04, 0.60339449D-07, 0.12841196D-08,-0.47044321D-08,
1086 + 0.12842538D-08, 0.12841196D-08, 0.13171744D-06, 0.12840622D-08,
1087 + 0.22638993D-04, 0.46297848D-07, 0.11551000D-08,-0.40916924D-08,
1088 + 0.11552145D-08, 0.11551000D-08, 0.84441910D-07, 0.11550572D-08,
1089 + 0.17681367D-04, 0.35472543D-07, 0.10216026D-08,-0.35203358D-08,
1090 + 0.10216991D-08, 0.10216026D-08, 0.53712308D-07, 0.10215707D-08,
1091 + 0.13784433D-04, 0.27139041D-07, 0.89105708D-09,-0.30004447D-08,
1092 + 0.89113766D-09, 0.89105708D-09, 0.33895730D-07, 0.89103334D-09,
1093 + 0.10726952D-04, 0.20732993D-07, 0.76790480D-09,-0.25365403D-08,
1094 + 0.76797148D-09, 0.76790480D-09, 0.22507340D-07, 0.76788717D-09,
1095 + 0.83326046D-05, 0.15816051D-07, 0.65502489D-09,-0.21287637D-08,
1096 + 0.65507965D-09, 0.65502489D-09, 0.15432815D-07, 0.65501182D-09,
1097 + 0.64611100D-05, 0.12047888D-07, 0.55385358D-09,-0.17747234D-08,
1098 + 0.55389824D-09, 0.55385358D-09, 0.10449599D-07, 0.55384390D-09,
1099 + 0.50010620D-05, 0.91644363D-08, 0.46463511D-09,-0.14706962D-08,
1100 + 0.46467131D-09, 0.46463511D-09, 0.71931193D-08, 0.46462796D-09,
1101 + 0.38641562D-05, 0.69612878D-08, 0.38702015D-09,-0.12120739D-08,
1102 + 0.38704934D-09, 0.38702015D-09, 0.51519281D-08, 0.38701488D-09/
1103 DATA ((CALC(I,K,25),I=1,8), K=19,20) /
1104 + 0.29805372D-05, 0.52805026D-08, 0.32033222D-09,-0.99383802D-09,
1105 + 0.32035562D-09, 0.32033222D-09, 0.37055056D-08, 0.32032833D-09,
1106 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00,
1107 + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/
1108C ---------------------------------------------------------------------
1109 DATA ISTART/0/
1110 SAVE ISTART,OWLAM2,Q02PR
1111C
1112 IF(ISTART.EQ.0) THEN
1113 ISTART=1
1114 DO 11 K=1,25
1115 DO 11 I=1,20
1116 DO 11 M=1,8
1117 11 CALCO(M,I,K) = CALC(M,I,K)
1118 OWLAM=PAR(1)
1119 OWLAM2=OWLAM**2
1120 Q02PR=PAR(39)
1121 Q2MAX=PAR(40)
1122 ENDIF
1123C
1124C the conventions are : q(1)=x*u, q(2)=x*d, q(3)=x*str, q(4)=x*usea,
1125C q(5)=x*dsea, q(6)=x*charm, q(7)=x*gluon
1126C
1127 X = DX
1128 Q = DQ
1129 Q2 = Q*Q
1130 IDQ2=2
1131 SB=0.
1132 IF(Q2-Q02PR) 1,1,2
1133 2 IF(IDQ2-1) 1,1,3
1134 3 SB= LOG( LOG(Q2/OWLAM2)/ LOG(Q02PR/OWLAM2))
1135 1 CONTINUE
1136 CALL AURPR(1,0,X,SB,XPDF(1))
1137 CALL AURPR(2,0,X,SB,XPDF(2))
1138 CALL AURPR(3,0,X,SB,XPDF(3))
1139 CALL AURPR(4,0,X,SB,XPDF(4))
1140 CALL AURPR(5,0,X,SB,XPDF(5))
1141 CALL AURPR(8,0,X,SB,XPDF(6))
1142 CALL AURPR(7,0,X,SB,XPDF(7))
1143C
1144 DUPV=XPDF(1) - XPDF(4)
1145 DDNV=XPDF(2) - XPDF(5)
1146 DUSEA=XPDF(4)
1147 DDSEA=XPDF(5)
1148 DSTR=XPDF(3)
1149 DCHM=XPDF(6)
1150 DGL =XPDF(7)
1151C
1152 RETURN
1153 END