]> git.uio.no Git - u/mrichter/AliRoot.git/blob - PDF/spdf/strmrs3.F
Moving lib*.pkg
[u/mrichter/AliRoot.git] / PDF / spdf / strmrs3.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.2  1996/10/30 08:31:46  cernlib
6 * Version 7.04
7 *
8 * Revision 1.1.1.1  1996/04/12 15:30:05  plothow
9 * Version 7.01
10 *
11 *
12 #include "pdf/pilot.h"
13 C-----------------------------------------------------------------------
14       SUBROUTINE STRMRS3(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL)
15 C
16 C :::::::::::: MARTIN ROBERTS STIRLING :::::1/RX GLUE::::178 MEV::::
17 C
18 #include "pdf/impdp.inc"
19       DIMENSION F(6,42,19),G(6),XX(42),N0(6)
20       DATA ((F(I,1,K),I=1,6),K=1,19)/
21      + 0.01991 ,0.00301 ,37.61247 ,0.19158 ,0.05991 ,0.00000
22      +,0.02177 ,0.00360 ,48.71432 ,0.60423 ,0.36956 ,0.00000
23      +,0.02346 ,0.00416 ,59.79593 ,1.08401 ,0.72951 ,-0.00001
24      +,0.02503 ,0.00470 ,70.83472 ,1.60739 ,1.12212 ,-0.00001
25      +,0.02649 ,0.00522 ,81.68164 ,2.14246 ,1.52438 ,0.00360
26      +,0.02787 ,0.00572 ,92.27873 ,2.60882 ,1.92748 ,0.21683
27      +,0.02917 ,0.00620,102.70128 ,2.98842 ,2.33507 ,0.70832
28      +,0.03042 ,0.00667,112.91809 ,3.38626 ,2.74336 ,1.14794
29      +,0.03161 ,0.00712,122.87209 ,3.77878 ,3.14760 ,1.58737
30      +,0.03275 ,0.00756,132.60262 ,4.17104 ,3.55046 ,2.02207
31      +,0.03385 ,0.00800,142.12730 ,4.56301 ,3.95216 ,2.45300
32      +,0.03491 ,0.00842,151.46770 ,4.95490 ,4.35306 ,2.88107
33      +,0.03593 ,0.00883,160.47029 ,5.33653 ,4.74308 ,3.29634
34      +,0.03692 ,0.00923,169.28557 ,5.71695 ,5.13133 ,3.70819
35      +,0.03788 ,0.00962,177.93842 ,6.09652 ,5.51824 ,4.11722
36      +,0.03881 ,0.01001,186.24911 ,6.46455 ,5.89314 ,4.51292
37      +,0.03972 ,0.01039,194.47502 ,6.83521 ,6.27029 ,4.90968
38      +,0.04060 ,0.01076,202.36865 ,7.19398 ,6.63519 ,5.29309
39      +,0.04145 ,0.01112,210.17598 ,7.55432 ,7.00132 ,5.67677/
40       DATA ((F(I,2,K),I=1,6),K=1,19)/
41      + 0.02879 ,0.00510 ,26.59572 ,0.18492 ,0.05195 ,0.00000
42      +,0.03125 ,0.00601 ,34.14091 ,0.50486 ,0.29201 ,0.00000
43      +,0.03348 ,0.00686 ,41.50365 ,0.85297 ,0.55317 ,-0.00001
44      +,0.03553 ,0.00767 ,48.70401 ,1.22029 ,0.82872 ,0.00000
45      +,0.03743 ,0.00844 ,55.65976 ,1.58802 ,1.10517 ,0.00246
46      +,0.03921 ,0.00917 ,62.34918 ,1.90370 ,1.37793 ,0.14632
47      +,0.04089 ,0.00987 ,68.83736 ,2.15676 ,1.65010 ,0.47576
48      +,0.04248 ,0.01055 ,75.11456 ,2.41913 ,1.91968 ,0.76692
49      +,0.04400 ,0.01120 ,81.15311 ,2.67527 ,2.18389 ,1.05530
50      +,0.04544 ,0.01183 ,86.98904 ,2.92884 ,2.44476 ,1.33807
51      +,0.04683 ,0.01245 ,92.64166 ,3.18006 ,2.70269 ,1.61611
52      +,0.04817 ,0.01305 ,98.13170 ,3.42925 ,2.95811 ,1.89025
53      +,0.04945 ,0.01362,103.36374 ,3.67003 ,3.20469 ,2.15423
54      +,0.05069 ,0.01418,108.44261 ,3.90839 ,3.44846 ,2.41429
55      +,0.05188 ,0.01473,113.38782 ,4.14471 ,3.68986 ,2.67096
56      +,0.05303 ,0.01526,118.08788 ,4.37225 ,3.92218 ,2.91764
57      +,0.05415 ,0.01579,122.71118 ,4.60021 ,4.15464 ,3.16366
58      +,0.05524 ,0.01629,127.10344 ,4.81942 ,4.37810 ,3.39993
59      +,0.05629 ,0.01679,131.42296 ,5.03854 ,4.60126 ,3.63524/
60       DATA ((F(I,3,K),I=1,6),K=1,19)/
61      + 0.04145 ,0.00864 ,18.81119 ,0.17781 ,0.04405 ,0.00000
62      +,0.04468 ,0.01003 ,23.92880 ,0.42186 ,0.22717 ,0.00000
63      +,0.04758 ,0.01131 ,28.80423 ,0.67172 ,0.41464 ,-0.00001
64      +,0.05024 ,0.01251 ,33.47961 ,0.92732 ,0.60639 ,0.00000
65      +,0.05268 ,0.01363 ,37.91476 ,1.17818 ,0.79501 ,0.00167
66      +,0.05495 ,0.01470 ,42.10831 ,1.39041 ,0.97834 ,0.09814
67      +,0.05708 ,0.01571 ,46.11510 ,1.55797 ,1.15893 ,0.31768
68      +,0.05910 ,0.01668 ,49.93712 ,1.72983 ,1.33580 ,0.50940
69      +,0.06101 ,0.01761 ,53.56311 ,1.89585 ,1.50739 ,0.69757
70      +,0.06282 ,0.01850 ,57.02406 ,2.05864 ,1.67523 ,0.88044
71      +,0.06455 ,0.01936 ,60.33830 ,2.21851 ,1.83976 ,1.05879
72      +,0.06621 ,0.02019 ,63.52327 ,2.37582 ,2.00139 ,1.23329
73      +,0.06780 ,0.02099 ,66.52054 ,2.52660 ,2.15619 ,1.40007
74      +,0.06932 ,0.02177 ,69.40228 ,2.67479 ,2.30817 ,1.56325
75      +,0.07079 ,0.02253 ,72.18347 ,2.82076 ,2.45768 ,1.72328
76      +,0.07221 ,0.02325 ,74.79526 ,2.96028 ,2.60053 ,1.87604
77      +,0.07358 ,0.02397 ,77.34738 ,3.09929 ,2.74269 ,2.02755
78      +,0.07489 ,0.02465 ,79.74368 ,3.23205 ,2.87843 ,2.17213
79      +,0.07617 ,0.02533 ,82.08623 ,3.36411 ,3.01332 ,2.31542/
80       DATA ((F(I,4,K),I=1,6),K=1,19)/
81      + 0.05118 ,0.01176 ,15.36541 ,0.17335 ,0.03948 ,0.00000
82      +,0.05494 ,0.01352 ,19.43808 ,0.37968 ,0.19431 ,0.00000
83      +,0.05831 ,0.01513 ,23.26093 ,0.58428 ,0.34784 ,-0.00001
84      +,0.06138 ,0.01664 ,26.88275 ,0.79006 ,0.50225 ,0.00000
85      +,0.06419 ,0.01804 ,30.27965 ,0.98985 ,0.65250 ,0.00133
86      +,0.06680 ,0.01935 ,33.45757 ,1.15745 ,0.79729 ,0.07745
87      +,0.06924 ,0.02060 ,36.46544 ,1.28859 ,0.93887 ,0.25007
88      +,0.07153 ,0.02179 ,39.30901 ,1.42226 ,1.07661 ,0.39976
89      +,0.07370 ,0.02292 ,41.98308 ,1.55059 ,1.20945 ,0.54589
90      +,0.07576 ,0.02400 ,44.51529 ,1.67571 ,1.33866 ,0.68716
91      +,0.07771 ,0.02505 ,46.92241 ,1.79794 ,1.46467 ,0.82427
92      +,0.07959 ,0.02605 ,49.22020 ,1.91763 ,1.58788 ,0.95782
93      +,0.08137 ,0.02702 ,51.36482 ,2.03179 ,1.70532 ,1.08487
94      +,0.08308 ,0.02795 ,53.41396 ,2.14351 ,1.82012 ,1.20868
95      +,0.08473 ,0.02885 ,55.38057 ,2.25311 ,1.93261 ,1.32964
96      +,0.08631 ,0.02972 ,57.21248 ,2.35740 ,2.03963 ,1.44461
97      +,0.08784 ,0.03057 ,58.99506 ,2.46097 ,2.14578 ,1.55829
98      +,0.08930 ,0.03138 ,60.65567 ,2.55946 ,2.24671 ,1.66634
99      +,0.09073 ,0.03218 ,62.27271 ,2.65714 ,2.34671 ,1.77310/
100       DATA ((F(I,5,K),I=1,6),K=1,19)/
101      + 0.05936 ,0.01462 ,13.31281 ,0.17000 ,0.03626 ,0.00000
102      +,0.06355 ,0.01671 ,16.77345 ,0.35223 ,0.17304 ,0.00000
103      +,0.06728 ,0.01860 ,19.98654 ,0.52925 ,0.30590 ,0.00000
104      +,0.07067 ,0.02036 ,23.00337 ,0.70529 ,0.43802 ,0.00000
105      +,0.07377 ,0.02199 ,25.80914 ,0.87493 ,0.56562 ,0.00113
106      +,0.07663 ,0.02351 ,28.41324 ,1.01640 ,0.68788 ,0.06536
107      +,0.07930 ,0.02495 ,30.86067 ,1.12639 ,0.80678 ,0.21069
108      +,0.08181 ,0.02632 ,33.15881 ,1.23800 ,0.92193 ,0.33609
109      +,0.08418 ,0.02762 ,35.30562 ,1.34467 ,1.03250 ,0.45803
110      +,0.08642 ,0.02886 ,37.32642 ,1.44825 ,1.13963 ,0.57548
111      +,0.08855 ,0.03005 ,39.23676 ,1.54905 ,1.24371 ,0.68907
112      +,0.09058 ,0.03119 ,41.05107 ,1.64742 ,1.34513 ,0.79934
113      +,0.09251 ,0.03229 ,42.73361 ,1.74090 ,1.44146 ,0.90390
114      +,0.09436 ,0.03334 ,44.33371 ,1.83210 ,1.53533 ,1.00550
115      +,0.09614 ,0.03436 ,45.86256 ,1.92130 ,1.62706 ,1.10448
116      +,0.09784 ,0.03534 ,47.27785 ,2.00590 ,1.71403 ,1.19827
117      +,0.09948 ,0.03630 ,48.65067 ,2.08972 ,1.80011 ,1.29080
118      +,0.10106 ,0.03721 ,49.92151 ,2.16916 ,1.88168 ,1.37847
119      +,0.10259 ,0.03811 ,51.15533 ,2.24779 ,1.96234 ,1.46493/
120       DATA ((F(I,6,K),I=1,6),K=1,19)/
121      + 0.06655 ,0.01732 ,11.91305 ,0.16728 ,0.03379 ,0.00000
122      +,0.07108 ,0.01968 ,14.96129 ,0.33224 ,0.15763 ,0.00000
123      +,0.07512 ,0.02182 ,17.76683 ,0.49016 ,0.27618 ,0.00000
124      +,0.07877 ,0.02380 ,20.38208 ,0.64589 ,0.39309 ,0.00000
125      +,0.08211 ,0.02563 ,22.79778 ,0.79511 ,0.50537 ,0.00099
126      +,0.08518 ,0.02733 ,25.02550 ,0.91901 ,0.61247 ,0.05726
127      +,0.08804 ,0.02894 ,27.10724 ,1.01484 ,0.71621 ,0.18430
128      +,0.09072 ,0.03046 ,29.05133 ,1.11175 ,0.81630 ,0.29351
129      +,0.09325 ,0.03190 ,30.85745 ,1.20404 ,0.91209 ,0.39937
130      +,0.09563 ,0.03328 ,32.54926 ,1.29337 ,1.00461 ,0.50104
131      +,0.09790 ,0.03459 ,34.14134 ,1.38004 ,1.09423 ,0.59909
132      +,0.10006 ,0.03585 ,35.64709 ,1.46439 ,1.18133 ,0.69404
133      +,0.10211 ,0.03706 ,37.03598 ,1.54431 ,1.26382 ,0.78384
134      +,0.10407 ,0.03822 ,38.35164 ,1.62208 ,1.34401 ,0.87087
135      +,0.10595 ,0.03934 ,39.60434 ,1.69799 ,1.42219 ,0.95549
136      +,0.10775 ,0.04041 ,40.75761 ,1.76978 ,1.49612 ,1.03548
137      +,0.10949 ,0.04145 ,41.87355 ,1.84077 ,1.56916 ,1.11425
138      +,0.11115 ,0.04245 ,42.90091 ,1.90789 ,1.63820 ,1.18871
139      +,0.11276 ,0.04342 ,43.89609 ,1.97420 ,1.70635 ,1.26201/
140       DATA ((F(I,7,K),I=1,6),K=1,19)/
141      + 0.09441 ,0.02922  ,8.44547 ,0.15807 ,0.02630 ,0.00000
142      +,0.10016 ,0.03267 ,10.49149 ,0.27656 ,0.11540 ,0.00000
143      +,0.10523 ,0.03575 ,12.32047 ,0.38603 ,0.19772 ,0.00000
144      +,0.10978 ,0.03856 ,13.98449 ,0.49146 ,0.27701 ,0.00000
145      +,0.11390 ,0.04114 ,15.48649 ,0.59083 ,0.35192 ,0.00066
146      +,0.11766 ,0.04350 ,16.84148 ,0.67218 ,0.42240 ,0.03772
147      +,0.12115 ,0.04572 ,18.08302 ,0.73404 ,0.48980 ,0.12091
148      +,0.12441 ,0.04780 ,19.22073 ,0.79593 ,0.55407 ,0.19155
149      +,0.12745 ,0.04975 ,20.25763 ,0.85421 ,0.61493 ,0.25936
150      +,0.13031 ,0.05160 ,21.21233 ,0.91002 ,0.67311 ,0.32387
151      +,0.13301 ,0.05335 ,22.09641 ,0.96365 ,0.72893 ,0.38553
152      +,0.13557 ,0.05503 ,22.92018 ,1.01537 ,0.78271 ,0.44474
153      +,0.13799 ,0.05661 ,23.66533 ,1.06391 ,0.83317 ,0.50026
154      +,0.14030 ,0.05813 ,24.36137 ,1.11076 ,0.88183 ,0.55367
155      +,0.14250 ,0.05959 ,25.01550 ,1.15613 ,0.92893 ,0.60523
156      +,0.14459 ,0.06097 ,25.60562 ,1.19866 ,0.97308 ,0.65357
157      +,0.14661 ,0.06232 ,26.17143 ,1.24046 ,1.01643 ,0.70089
158      +,0.14853 ,0.06359 ,26.68146 ,1.27962 ,1.05706 ,0.74528
159      +,0.15038 ,0.06484 ,27.17136 ,1.31810 ,1.09695 ,0.78874/
160       DATA ((F(I,8,K),I=1,6),K=1,19)/
161      + 0.13261 ,0.04902  ,6.00447 ,0.14755 ,0.01928 ,0.00000
162      +,0.13970 ,0.05389  ,7.36176 ,0.22938 ,0.08109 ,0.00000
163      +,0.14589 ,0.05817  ,8.53491 ,0.30368 ,0.13723 ,0.00000
164      +,0.15139 ,0.06202  ,9.57233 ,0.37382 ,0.19023 ,0.00000
165      +,0.15632 ,0.06549 ,10.48337 ,0.43890 ,0.23953 ,0.00044
166      +,0.16080 ,0.06865 ,11.28363 ,0.49136 ,0.28527 ,0.02458
167      +,0.16491 ,0.07158 ,11.99946 ,0.53048 ,0.32843 ,0.07846
168      +,0.16872 ,0.07430 ,12.64001 ,0.56917 ,0.36907 ,0.12361
169      +,0.17225 ,0.07683 ,13.20978 ,0.60514 ,0.40710 ,0.16649
170      +,0.17555 ,0.07920 ,13.72279 ,0.63919 ,0.44304 ,0.20687
171      +,0.17865 ,0.08143 ,14.18802 ,0.67155 ,0.47717 ,0.24508
172      +,0.18157 ,0.08355 ,14.61308 ,0.70244 ,0.50972 ,0.28143
173      +,0.18431 ,0.08553 ,14.98718 ,0.73110 ,0.53995 ,0.31520
174      +,0.18691 ,0.08742 ,15.32987 ,0.75851 ,0.56884 ,0.34741
175      +,0.18938 ,0.08922 ,15.64623 ,0.78482 ,0.59656 ,0.37826
176      +,0.19171 ,0.09092 ,15.92286 ,0.80921 ,0.62229 ,0.40692
177      +,0.19395 ,0.09256 ,16.18489 ,0.83303 ,0.64738 ,0.43480
178      +,0.19606 ,0.09411 ,16.41321 ,0.85509 ,0.67066 ,0.46071
179      +,0.19810 ,0.09560 ,16.62993 ,0.87664 ,0.69338 ,0.48593/
180       DATA ((F(I,9,K),I=1,6),K=1,19)/
181      + 0.16079 ,0.06604  ,4.93007 ,0.14088 ,0.01557 ,0.00000
182      +,0.16866 ,0.07184  ,5.98705 ,0.20540 ,0.06458 ,0.00000
183      +,0.17546 ,0.07688  ,6.87972 ,0.26393 ,0.10905 ,0.00000
184      +,0.18147 ,0.08137  ,7.65352 ,0.31859 ,0.15058 ,0.00000
185      +,0.18682 ,0.08538  ,8.31989 ,0.36883 ,0.18886 ,0.00034
186      +,0.19165 ,0.08901  ,8.89403 ,0.40890 ,0.22406 ,0.01900
187      +,0.19606 ,0.09234  ,9.39852 ,0.43835 ,0.25698 ,0.06047
188      +,0.20013 ,0.09542  ,9.84202 ,0.46727 ,0.28773 ,0.09494
189      +,0.20388 ,0.09825 ,10.22910 ,0.49392 ,0.31627 ,0.12744
190      +,0.20736 ,0.10090 ,10.57159 ,0.51895 ,0.34305 ,0.15784
191      +,0.21062 ,0.10338 ,10.87700 ,0.54255 ,0.36829 ,0.18641
192      +,0.21368 ,0.10571 ,11.15162 ,0.56493 ,0.39221 ,0.21344
193      +,0.21653 ,0.10788 ,11.38761 ,0.58553 ,0.41426 ,0.23838
194      +,0.21922 ,0.10994 ,11.60022 ,0.60510 ,0.43521 ,0.26204
195      +,0.22178 ,0.11190 ,11.79342 ,0.62377 ,0.45520 ,0.28458
196      +,0.22417 ,0.11373 ,11.95740 ,0.64094 ,0.47361 ,0.30539
197      +,0.22647 ,0.11549 ,12.11109 ,0.65763 ,0.49149 ,0.32555
198      +,0.22863 ,0.11714 ,12.24035 ,0.67297 ,0.50797 ,0.34417
199      +,0.23070 ,0.11873 ,12.36171 ,0.68788 ,0.52397 ,0.36222/
200       DATA ((F(I,10,K),I=1,6),K=1,19)/
201      + 0.18372 ,0.08131  ,4.29582 ,0.13664 ,0.01341 ,0.00000
202      +,0.19204 ,0.08775  ,5.17341 ,0.19117 ,0.05509 ,0.00000
203      +,0.19918 ,0.09329  ,5.90037 ,0.24041 ,0.09273 ,0.00000
204      +,0.20545 ,0.09818  ,6.52002 ,0.28595 ,0.12755 ,0.00000
205      +,0.21102 ,0.10252  ,7.04479 ,0.32745 ,0.15937 ,0.00029
206      +,0.21600 ,0.10642  ,7.48919 ,0.36024 ,0.18841 ,0.01574
207      +,0.22054 ,0.10997  ,7.87368 ,0.38403 ,0.21536 ,0.04997
208      +,0.22469 ,0.11323  ,8.20627 ,0.40724 ,0.24037 ,0.07822
209      +,0.22851 ,0.11622  ,8.49135 ,0.42848 ,0.26343 ,0.10471
210      +,0.23204 ,0.11899  ,8.73954 ,0.44829 ,0.28493 ,0.12933
211      +,0.23533 ,0.12157  ,8.95729 ,0.46685 ,0.30508 ,0.15237
212      +,0.23840 ,0.12399  ,9.14998 ,0.48435 ,0.32407 ,0.17405
213      +,0.24126 ,0.12623  ,9.31151 ,0.50033 ,0.34147 ,0.19395
214      +,0.24394 ,0.12834  ,9.45453 ,0.51544 ,0.35791 ,0.21275
215      +,0.24648 ,0.13034  ,9.58233 ,0.52978 ,0.37354 ,0.23058
216      +,0.24885 ,0.13220  ,9.68707 ,0.54287 ,0.38784 ,0.24696
217      +,0.25111 ,0.13398  ,9.78410 ,0.55554 ,0.40167 ,0.26276
218      +,0.25323 ,0.13565  ,9.86214 ,0.56710 ,0.41435 ,0.27729
219      +,0.25527 ,0.13725  ,9.93444 ,0.57831 ,0.42662 ,0.29133/
220       DATA ((F(I,11,K),I=1,6),K=1,19)/
221      + 0.20327 ,0.09531  ,3.86672 ,0.13378 ,0.01208 ,0.00000
222      +,0.21184 ,0.10217  ,4.62110 ,0.18185 ,0.04904 ,0.00000
223      +,0.21915 ,0.10802  ,5.23530 ,0.22479 ,0.08207 ,0.00000
224      +,0.22554 ,0.11315  ,5.75088 ,0.26410 ,0.11233 ,0.00000
225      +,0.23118 ,0.11768  ,6.18079 ,0.29965 ,0.13977 ,0.00025
226      +,0.23620 ,0.12171  ,6.53908 ,0.32748 ,0.16464 ,0.01352
227      +,0.24075 ,0.12536  ,6.84446 ,0.34743 ,0.18757 ,0.04285
228      +,0.24490 ,0.12869  ,7.10446 ,0.36680 ,0.20871 ,0.06690
229      +,0.24869 ,0.13173  ,7.32341 ,0.38439 ,0.22810 ,0.08934
230      +,0.25218 ,0.13453  ,7.51084 ,0.40070 ,0.24607 ,0.11011
231      +,0.25542 ,0.13713  ,7.67248 ,0.41589 ,0.26283 ,0.12944
232      +,0.25844 ,0.13955  ,7.81311 ,0.43013 ,0.27855 ,0.14756
233      +,0.26123 ,0.14178  ,7.92774 ,0.44306 ,0.29288 ,0.16412
234      +,0.26385 ,0.14387  ,8.02718 ,0.45521 ,0.30635 ,0.17969
235      +,0.26631 ,0.14584  ,8.11427 ,0.46669 ,0.31910 ,0.19441
236      +,0.26860 ,0.14766  ,8.18249 ,0.47710 ,0.33072 ,0.20788
237      +,0.27078 ,0.14940  ,8.24475 ,0.48714 ,0.34191 ,0.22083
238      +,0.27281 ,0.15102  ,8.29169 ,0.49623 ,0.35211 ,0.23268
239      +,0.27475 ,0.15257  ,8.33435 ,0.50502 ,0.36195 ,0.24411/
240       DATA ((F(I,12,K),I=1,6),K=1,19)/
241      + 0.27418 ,0.15283  ,2.81054 ,0.12271 ,0.00832 ,0.00000
242      +,0.28286 ,0.16022  ,3.25839 ,0.15355 ,0.03288 ,0.00000
243      +,0.29007 ,0.16629  ,3.59836 ,0.18029 ,0.05421 ,0.00000
244      +,0.29622 ,0.17144  ,3.86588 ,0.20401 ,0.07317 ,0.00000
245      +,0.30151 ,0.17584  ,4.07405 ,0.22486 ,0.08991 ,0.00015
246      +,0.30612 ,0.17964  ,4.23506 ,0.24061 ,0.10472 ,0.00820
247      +,0.31020 ,0.18298  ,4.36225 ,0.25130 ,0.11806 ,0.02578
248      +,0.31384 ,0.18594  ,4.46180 ,0.26146 ,0.13009 ,0.03990
249      +,0.31709 ,0.18856  ,4.53723 ,0.27045 ,0.14088 ,0.05283
250      +,0.32002 ,0.19090  ,4.59492 ,0.27856 ,0.15068 ,0.06460
251      +,0.32268 ,0.19302  ,4.63874 ,0.28594 ,0.15965 ,0.07537
252      +,0.32512 ,0.19495  ,4.67178 ,0.29269 ,0.16791 ,0.08531
253      +,0.32731 ,0.19666  ,4.69139 ,0.29865 ,0.17528 ,0.09425
254      +,0.32932 ,0.19823  ,4.70391 ,0.30412 ,0.18210 ,0.10253
255      +,0.33119 ,0.19968  ,4.71099 ,0.30918 ,0.18845 ,0.11025
256      +,0.33286 ,0.20096  ,4.70915 ,0.31361 ,0.19410 ,0.11721
257      +,0.33445 ,0.20217  ,4.70549 ,0.31783 ,0.19948 ,0.12381
258      +,0.33587 ,0.20324  ,4.69484 ,0.32150 ,0.20428 ,0.12976
259      +,0.33722 ,0.20425  ,4.68323 ,0.32501 ,0.20885 ,0.13544/
260       DATA ((F(I,13,K),I=1,6),K=1,19)/
261      + 0.35908 ,0.23149  ,2.07381 ,0.10802 ,0.00556 ,0.00000
262      +,0.36588 ,0.23648  ,2.29653 ,0.12622 ,0.02126 ,0.00000
263      +,0.37116 ,0.24018  ,2.44428 ,0.14120 ,0.03431 ,0.00000
264      +,0.37540 ,0.24301  ,2.54528 ,0.15386 ,0.04541 ,0.00000
265      +,0.37880 ,0.24516  ,2.61080 ,0.16447 ,0.05486 ,0.00009
266      +,0.38157 ,0.24678  ,2.64999 ,0.17193 ,0.06292 ,0.00462
267      +,0.38385 ,0.24802  ,2.67153 ,0.17640 ,0.06995 ,0.01438
268      +,0.38572 ,0.24896  ,2.67960 ,0.18050 ,0.07608 ,0.02200
269      +,0.38724 ,0.24962  ,2.67658 ,0.18391 ,0.08141 ,0.02881
270      +,0.38849 ,0.25008  ,2.66621 ,0.18682 ,0.08611 ,0.03486
271      +,0.38951 ,0.25038  ,2.65066 ,0.18931 ,0.09028 ,0.04028
272      +,0.39036 ,0.25056  ,2.63157 ,0.19147 ,0.09402 ,0.04517
273      +,0.39099 ,0.25058  ,2.60756 ,0.19321 ,0.09724 ,0.04948
274      +,0.39149 ,0.25052  ,2.58188 ,0.19471 ,0.10015 ,0.05338
275      +,0.39190 ,0.25039  ,2.55527 ,0.19601 ,0.10278 ,0.05696
276      +,0.39214 ,0.25015  ,2.52589 ,0.19700 ,0.10504 ,0.06010
277      +,0.39234 ,0.24989  ,2.49719 ,0.19790 ,0.10714 ,0.06303
278      +,0.39240 ,0.24954  ,2.46664 ,0.19854 ,0.10893 ,0.06562
279      +,0.39243 ,0.24918  ,2.43701 ,0.19913 ,0.11061 ,0.06804/
280       DATA ((F(I,14,K),I=1,6),K=1,19)/
281      + 0.41281 ,0.28110  ,1.73830 ,0.09621 ,0.00423 ,0.00001
282      +,0.41689 ,0.28227  ,1.85630 ,0.10849 ,0.01585 ,0.00001
283      +,0.41962 ,0.28252  ,1.91985 ,0.11811 ,0.02517 ,0.00001
284      +,0.42145 ,0.28223  ,1.95173 ,0.12588 ,0.03285 ,0.00000
285      +,0.42263 ,0.28153  ,1.96121 ,0.13209 ,0.03919 ,0.00007
286      +,0.42326 ,0.28054  ,1.95514 ,0.13609 ,0.04444 ,0.00312
287      +,0.42351 ,0.27938  ,1.93953 ,0.13802 ,0.04890 ,0.00964
288      +,0.42349 ,0.27805  ,1.91724 ,0.13972 ,0.05269 ,0.01463
289      +,0.42318 ,0.27663  ,1.88982 ,0.14097 ,0.05589 ,0.01899
290      +,0.42268 ,0.27513  ,1.85966 ,0.14190 ,0.05863 ,0.02280
291      +,0.42204 ,0.27358  ,1.82805 ,0.14259 ,0.06101 ,0.02615
292      +,0.42131 ,0.27202  ,1.79590 ,0.14308 ,0.06308 ,0.02913
293      +,0.42042 ,0.27041  ,1.76225 ,0.14333 ,0.06482 ,0.03170
294      +,0.41946 ,0.26881  ,1.72896 ,0.14344 ,0.06633 ,0.03400
295      +,0.41846 ,0.26723  ,1.69639 ,0.14346 ,0.06767 ,0.03607
296      +,0.41735 ,0.26560  ,1.66338 ,0.14331 ,0.06877 ,0.03785
297      +,0.41626 ,0.26402  ,1.63187 ,0.14312 ,0.06977 ,0.03950
298      +,0.41507 ,0.26242  ,1.60025 ,0.14280 ,0.07058 ,0.04091
299      +,0.41390 ,0.26087  ,1.57010 ,0.14247 ,0.07132 ,0.04223/
300       DATA ((F(I,15,K),I=1,6),K=1,19)/
301      + 0.45071 ,0.31143  ,1.52456 ,0.08591 ,0.00338 ,0.00000
302      +,0.45176 ,0.30854  ,1.57876 ,0.09457 ,0.01248 ,0.00000
303      +,0.45172 ,0.30529  ,1.59369 ,0.10100 ,0.01956 ,0.00000
304      +,0.45104 ,0.30192  ,1.58769 ,0.10594 ,0.02523 ,0.00000
305      +,0.44988 ,0.29851  ,1.56800 ,0.10968 ,0.02978 ,0.00004
306      +,0.44837 ,0.29508  ,1.53969 ,0.11177 ,0.03347 ,0.00226
307      +,0.44662 ,0.29171  ,1.50695 ,0.11236 ,0.03651 ,0.00695
308      +,0.44469 ,0.28839  ,1.47157 ,0.11281 ,0.03904 ,0.01048
309      +,0.44261 ,0.28512  ,1.43456 ,0.11296 ,0.04112 ,0.01351
310      +,0.44045 ,0.28192  ,1.39740 ,0.11292 ,0.04285 ,0.01612
311      +,0.43824 ,0.27882  ,1.36080 ,0.11273 ,0.04431 ,0.01838
312      +,0.43602 ,0.27582  ,1.32523 ,0.11244 ,0.04556 ,0.02036
313      +,0.43371 ,0.27285  ,1.28990 ,0.11200 ,0.04655 ,0.02204
314      +,0.43142 ,0.26999  ,1.25596 ,0.11149 ,0.04740 ,0.02352
315      +,0.42915 ,0.26724  ,1.22352 ,0.11094 ,0.04812 ,0.02484
316      +,0.42683 ,0.26452  ,1.19172 ,0.11030 ,0.04867 ,0.02595
317      +,0.42458 ,0.26191  ,1.16173 ,0.10966 ,0.04917 ,0.02697
318      +,0.42229 ,0.25934  ,1.13243 ,0.10895 ,0.04953 ,0.02782
319      +,0.42006 ,0.25688  ,1.10476 ,0.10825 ,0.04985 ,0.02860/
320       DATA ((F(I,16,K),I=1,6),K=1,19)/
321      + 0.47843 ,0.32769  ,1.36531 ,0.07671 ,0.00278 ,0.00000
322      +,0.47629 ,0.32101  ,1.37634 ,0.08290 ,0.01012 ,0.00000
323      +,0.47342 ,0.31456  ,1.36006 ,0.08723 ,0.01567 ,0.00000
324      +,0.47019 ,0.30846  ,1.33100 ,0.09035 ,0.02000 ,0.00000
325      +,0.46671 ,0.30269  ,1.29461 ,0.09253 ,0.02340 ,0.00003
326      +,0.46310 ,0.29718  ,1.25443 ,0.09345 ,0.02609 ,0.00171
327      +,0.45940 ,0.29195  ,1.21325 ,0.09327 ,0.02825 ,0.00522
328      +,0.45567 ,0.28698  ,1.17212 ,0.09301 ,0.03000 ,0.00783
329      +,0.45192 ,0.28222  ,1.13157 ,0.09255 ,0.03140 ,0.01003
330      +,0.44820 ,0.27767  ,1.09245 ,0.09198 ,0.03254 ,0.01189
331      +,0.44453 ,0.27334  ,1.05509 ,0.09133 ,0.03346 ,0.01349
332      +,0.44094 ,0.26921  ,1.01965 ,0.09064 ,0.03423 ,0.01488
333      +,0.43735 ,0.26522  ,0.98545 ,0.08985 ,0.03481 ,0.01603
334      +,0.43385 ,0.26142  ,0.95316 ,0.08905 ,0.03529 ,0.01704
335      +,0.43044 ,0.25779  ,0.92274 ,0.08824 ,0.03567 ,0.01792
336      +,0.42704 ,0.25426  ,0.89351 ,0.08738 ,0.03594 ,0.01865
337      +,0.42377 ,0.25091  ,0.86619 ,0.08654 ,0.03617 ,0.01930
338      +,0.42050 ,0.24764  ,0.83995 ,0.08567 ,0.03630 ,0.01984
339      +,0.41735 ,0.24453  ,0.81536 ,0.08483 ,0.03641 ,0.02033/
340       DATA ((F(I,17,K),I=1,6),K=1,19)/
341      + 0.50274 ,0.33350  ,1.20684 ,0.06649 ,0.00223 ,0.00000
342      +,0.49654 ,0.32273  ,1.18097 ,0.07055 ,0.00797 ,0.00000
343      +,0.49010 ,0.31296  ,1.13960 ,0.07311 ,0.01218 ,0.00000
344      +,0.48374 ,0.30406  ,1.09324 ,0.07475 ,0.01537 ,0.00000
345      +,0.47747 ,0.29592  ,1.04535 ,0.07569 ,0.01780 ,0.00002
346      +,0.47131 ,0.28840  ,0.99789 ,0.07573 ,0.01966 ,0.00125
347      +,0.46534 ,0.28140  ,0.95234 ,0.07500 ,0.02111 ,0.00379
348      +,0.45952 ,0.27486  ,0.90905 ,0.07425 ,0.02225 ,0.00563
349      +,0.45383 ,0.26872  ,0.86805 ,0.07340 ,0.02313 ,0.00717
350      +,0.44833 ,0.26296  ,0.82968 ,0.07249 ,0.02381 ,0.00845
351      +,0.44301 ,0.25755  ,0.79392 ,0.07157 ,0.02435 ,0.00953
352      +,0.43789 ,0.25244  ,0.76067 ,0.07064 ,0.02476 ,0.01045
353      +,0.43288 ,0.24758  ,0.72932 ,0.06967 ,0.02505 ,0.01120
354      +,0.42805 ,0.24298  ,0.70018 ,0.06872 ,0.02527 ,0.01184
355      +,0.42339 ,0.23863  ,0.67311 ,0.06779 ,0.02543 ,0.01240
356      +,0.41882 ,0.23445  ,0.64753 ,0.06684 ,0.02550 ,0.01284
357      +,0.41446 ,0.23050  ,0.62384 ,0.06593 ,0.02555 ,0.01324
358      +,0.41016 ,0.22669  ,0.60142 ,0.06502 ,0.02555 ,0.01356
359      +,0.40604 ,0.22308  ,0.58058 ,0.06414 ,0.02552 ,0.01384/
360       DATA ((F(I,18,K),I=1,6),K=1,19)/
361      + 0.51805 ,0.32765  ,1.07429 ,0.05748 ,0.00179 ,0.00000
362      +,0.50781 ,0.31366  ,1.02381 ,0.06005 ,0.00635 ,0.00000
363      +,0.49791 ,0.30136  ,0.96712 ,0.06143 ,0.00959 ,0.00000
364      +,0.48856 ,0.29041  ,0.91126 ,0.06211 ,0.01198 ,0.00000
365      +,0.47966 ,0.28056  ,0.85800 ,0.06229 ,0.01376 ,0.00002
366      +,0.47115 ,0.27163  ,0.80801 ,0.06182 ,0.01507 ,0.00093
367      +,0.46307 ,0.26345  ,0.76185 ,0.06081 ,0.01607 ,0.00281
368      +,0.45535 ,0.25589  ,0.71929 ,0.05982 ,0.01682 ,0.00415
369      +,0.44795 ,0.24887  ,0.68007 ,0.05878 ,0.01737 ,0.00525
370      +,0.44087 ,0.24236  ,0.64409 ,0.05775 ,0.01778 ,0.00614
371      +,0.43412 ,0.23629  ,0.61115 ,0.05672 ,0.01808 ,0.00689
372      +,0.42770 ,0.23062  ,0.58098 ,0.05572 ,0.01830 ,0.00752
373      +,0.42146 ,0.22525  ,0.55302 ,0.05472 ,0.01842 ,0.00802
374      +,0.41550 ,0.22022  ,0.52733 ,0.05374 ,0.01850 ,0.00845
375      +,0.40981 ,0.21549  ,0.50370 ,0.05280 ,0.01854 ,0.00881
376      +,0.40429 ,0.21097  ,0.48168 ,0.05187 ,0.01852 ,0.00909
377      +,0.39903 ,0.20672  ,0.46143 ,0.05098 ,0.01849 ,0.00933
378      +,0.39389 ,0.20267  ,0.44250 ,0.05010 ,0.01842 ,0.00952
379      +,0.38899 ,0.19885  ,0.42501 ,0.04927 ,0.01834 ,0.00969/
380       DATA ((F(I,19,K),I=1,6),K=1,19)/
381      + 0.52592 ,0.31367  ,0.95843 ,0.04950 ,0.00145 ,-0.00001
382      +,0.51175 ,0.29737  ,0.89176 ,0.05102 ,0.00509 ,-0.00001
383      +,0.49858 ,0.28330  ,0.82613 ,0.05161 ,0.00761 ,0.00000
384      +,0.48641 ,0.27097  ,0.76569 ,0.05167 ,0.00942 ,-0.00001
385      +,0.47506 ,0.26007  ,0.71072 ,0.05138 ,0.01072 ,0.00001
386      +,0.46447 ,0.25027  ,0.66101 ,0.05062 ,0.01166 ,0.00069
387      +,0.45451 ,0.24137  ,0.61629 ,0.04949 ,0.01235 ,0.00209
388      +,0.44511 ,0.23327  ,0.57600 ,0.04841 ,0.01285 ,0.00308
389      +,0.43623 ,0.22579  ,0.53957 ,0.04732 ,0.01320 ,0.00389
390      +,0.42782 ,0.21890  ,0.50672 ,0.04625 ,0.01344 ,0.00453
391      +,0.41987 ,0.21252  ,0.47707 ,0.04522 ,0.01360 ,0.00506
392      +,0.41235 ,0.20659  ,0.45024 ,0.04424 ,0.01369 ,0.00549
393      +,0.40511 ,0.20105  ,0.42571 ,0.04327 ,0.01373 ,0.00583
394      +,0.39823 ,0.19586  ,0.40339 ,0.04234 ,0.01373 ,0.00611
395      +,0.39169 ,0.19100  ,0.38304 ,0.04145 ,0.01370 ,0.00635
396      +,0.38538 ,0.18641  ,0.36428 ,0.04058 ,0.01364 ,0.00653
397      +,0.37940 ,0.18211  ,0.34714 ,0.03975 ,0.01357 ,0.00668
398      +,0.37363 ,0.17802  ,0.33128 ,0.03895 ,0.01347 ,0.00680
399      +,0.36814 ,0.17416  ,0.31670 ,0.03819 ,0.01338 ,0.00690/
400       DATA ((F(I,20,K),I=1,6),K=1,19)/
401      + 0.52738 ,0.29417  ,0.85483 ,0.04247 ,0.00118 ,-0.00001
402      +,0.50951 ,0.27637  ,0.77798 ,0.04324 ,0.00410 ,-0.00001
403      +,0.49329 ,0.26124  ,0.70781 ,0.04329 ,0.00607 ,0.00000
404      +,0.47857 ,0.24816  ,0.64601 ,0.04295 ,0.00745 ,-0.00001
405      +,0.46506 ,0.23669  ,0.59170 ,0.04238 ,0.00841 ,0.00001
406      +,0.45260 ,0.22650  ,0.54390 ,0.04148 ,0.00908 ,0.00053
407      +,0.44103 ,0.21733  ,0.50179 ,0.04032 ,0.00955 ,0.00158
408      +,0.43021 ,0.20903  ,0.46453 ,0.03923 ,0.00988 ,0.00232
409      +,0.42008 ,0.20144  ,0.43139 ,0.03816 ,0.01009 ,0.00291
410      +,0.41056 ,0.19449  ,0.40191 ,0.03714 ,0.01022 ,0.00337
411      +,0.40161 ,0.18808  ,0.37561 ,0.03616 ,0.01030 ,0.00375
412      +,0.39320 ,0.18216  ,0.35207 ,0.03523 ,0.01033 ,0.00405
413      +,0.38517 ,0.17667  ,0.33078 ,0.03433 ,0.01031 ,0.00428
414      +,0.37758 ,0.17154  ,0.31159 ,0.03347 ,0.01027 ,0.00447
415      +,0.37040 ,0.16676  ,0.29423 ,0.03266 ,0.01022 ,0.00463
416      +,0.36351 ,0.16227  ,0.27837 ,0.03187 ,0.01013 ,0.00474
417      +,0.35700 ,0.15808  ,0.26397 ,0.03113 ,0.01005 ,0.00484
418      +,0.35075 ,0.15410  ,0.25075 ,0.03042 ,0.00995 ,0.00491
419      +,0.34483 ,0.15037  ,0.23866 ,0.02974 ,0.00984 ,0.00497/
420       DATA ((F(I,21,K),I=1,6),K=1,19)/
421      + 0.52317 ,0.27120  ,0.76104 ,0.03628 ,0.00097 ,0.00000
422      +,0.50189 ,0.25264  ,0.67850 ,0.03652 ,0.00331 ,0.00000
423      +,0.48294 ,0.23703  ,0.60689 ,0.03622 ,0.00484 ,0.00000
424      +,0.46595 ,0.22370  ,0.54591 ,0.03564 ,0.00589 ,0.00000
425      +,0.45059 ,0.21213  ,0.49373 ,0.03491 ,0.00661 ,0.00001
426      +,0.43658 ,0.20192  ,0.44883 ,0.03395 ,0.00709 ,0.00041
427      +,0.42363 ,0.19282  ,0.40995 ,0.03283 ,0.00741 ,0.00121
428      +,0.41167 ,0.18461  ,0.37607 ,0.03178 ,0.00763 ,0.00176
429      +,0.40048 ,0.17716  ,0.34637 ,0.03079 ,0.00775 ,0.00219
430      +,0.39007 ,0.17037  ,0.32027 ,0.02984 ,0.00782 ,0.00253
431      +,0.38036 ,0.16416  ,0.29722 ,0.02893 ,0.00784 ,0.00280
432      +,0.37128 ,0.15845  ,0.27677 ,0.02808 ,0.00783 ,0.00302
433      +,0.36266 ,0.15316  ,0.25846 ,0.02727 ,0.00779 ,0.00318
434      +,0.35455 ,0.14825  ,0.24209 ,0.02650 ,0.00772 ,0.00330
435      +,0.34691 ,0.14370  ,0.22739 ,0.02578 ,0.00765 ,0.00340
436      +,0.33963 ,0.13943  ,0.21409 ,0.02508 ,0.00757 ,0.00348
437      +,0.33277 ,0.13546  ,0.20207 ,0.02443 ,0.00749 ,0.00354
438      +,0.32620 ,0.13172  ,0.19111 ,0.02380 ,0.00739 ,0.00358
439      +,0.31998 ,0.12821  ,0.18114 ,0.02321 ,0.00729 ,0.00361/
440       DATA ((F(I,22,K),I=1,6),K=1,19)/
441      + 0.51391 ,0.24629  ,0.67534 ,0.03084 ,0.00079 ,0.00000
442      +,0.48961 ,0.22759  ,0.59050 ,0.03071 ,0.00267 ,0.00000
443      +,0.46825 ,0.21204  ,0.51975 ,0.03019 ,0.00386 ,0.00000
444      +,0.44934 ,0.19888  ,0.46112 ,0.02948 ,0.00466 ,0.00000
445      +,0.43243 ,0.18755  ,0.41205 ,0.02868 ,0.00519 ,0.00001
446      +,0.41709 ,0.17763  ,0.37060 ,0.02773 ,0.00554 ,0.00031
447      +,0.40310 ,0.16883  ,0.33530 ,0.02667 ,0.00576 ,0.00092
448      +,0.39024 ,0.16095  ,0.30491 ,0.02571 ,0.00589 ,0.00134
449      +,0.37831 ,0.15384  ,0.27861 ,0.02479 ,0.00595 ,0.00165
450      +,0.36726 ,0.14740  ,0.25575 ,0.02392 ,0.00597 ,0.00190
451      +,0.35699 ,0.14152  ,0.23574 ,0.02312 ,0.00596 ,0.00209
452      +,0.34742 ,0.13614  ,0.21814 ,0.02236 ,0.00593 ,0.00224
453      +,0.33843 ,0.13118  ,0.20254 ,0.02164 ,0.00588 ,0.00235
454      +,0.32999 ,0.12661  ,0.18869 ,0.02096 ,0.00582 ,0.00244
455      +,0.32204 ,0.12238  ,0.17634 ,0.02033 ,0.00574 ,0.00250
456      +,0.31452 ,0.11843  ,0.16523 ,0.01973 ,0.00566 ,0.00255
457      +,0.30746 ,0.11475  ,0.15525 ,0.01916 ,0.00558 ,0.00259
458      +,0.30072 ,0.11130  ,0.14621 ,0.01862 ,0.00549 ,0.00261
459      +,0.29437 ,0.10808  ,0.13803 ,0.01811 ,0.00541 ,0.00262/
460       DATA ((F(I,23,K),I=1,6),K=1,19)/
461      + 0.50019 ,0.22067  ,0.59708 ,0.02608 ,0.00064 ,0.00000
462      +,0.47327 ,0.20234  ,0.51250 ,0.02571 ,0.00214 ,0.00000
463      +,0.44992 ,0.18726  ,0.44418 ,0.02506 ,0.00307 ,0.00000
464      +,0.42945 ,0.17459  ,0.38888 ,0.02429 ,0.00368 ,0.00000
465      +,0.41130 ,0.16377  ,0.34349 ,0.02347 ,0.00407 ,0.00001
466      +,0.39498 ,0.15435  ,0.30578 ,0.02257 ,0.00431 ,0.00024
467      +,0.38020 ,0.14605  ,0.27409 ,0.02161 ,0.00446 ,0.00070
468      +,0.36669 ,0.13866  ,0.24716 ,0.02073 ,0.00454 ,0.00101
469      +,0.35424 ,0.13203  ,0.22412 ,0.01991 ,0.00457 ,0.00124
470      +,0.34277 ,0.12604  ,0.20428 ,0.01914 ,0.00456 ,0.00142
471      +,0.33216 ,0.12061  ,0.18707 ,0.01843 ,0.00454 ,0.00156
472      +,0.32232 ,0.11565  ,0.17206 ,0.01776 ,0.00450 ,0.00167
473      +,0.31312 ,0.11110  ,0.15886 ,0.01714 ,0.00444 ,0.00175
474      +,0.30450 ,0.10692  ,0.14723 ,0.01655 ,0.00438 ,0.00180
475      +,0.29643 ,0.10307  ,0.13691 ,0.01601 ,0.00431 ,0.00184
476      +,0.28882 ,0.09948  ,0.12770 ,0.01549 ,0.00424 ,0.00187
477      +,0.28169 ,0.09615  ,0.11946 ,0.01501 ,0.00416 ,0.00190
478      +,0.27491 ,0.09304  ,0.11206 ,0.01455 ,0.00409 ,0.00191
479      +,0.26854 ,0.09014  ,0.10538 ,0.01412 ,0.00401 ,0.00191/
480       DATA ((F(I,24,K),I=1,6),K=1,19)/
481      + 0.48255 ,0.19522  ,0.52547 ,0.02193 ,0.00052 ,0.00001
482      +,0.45346 ,0.17767  ,0.44308 ,0.02141 ,0.00171 ,0.00000
483      +,0.42853 ,0.16336  ,0.37833 ,0.02069 ,0.00244 ,0.00000
484      +,0.40688 ,0.15143  ,0.32700 ,0.01992 ,0.00290 ,0.00001
485      +,0.38784 ,0.14129  ,0.28562 ,0.01912 ,0.00319 ,0.00001
486      +,0.37085 ,0.13254  ,0.25172 ,0.01829 ,0.00335 ,0.00019
487      +,0.35553 ,0.12488  ,0.22360 ,0.01744 ,0.00345 ,0.00054
488      +,0.34163 ,0.11808  ,0.20000 ,0.01665 ,0.00349 ,0.00077
489      +,0.32888 ,0.11201  ,0.17999 ,0.01592 ,0.00350 ,0.00094
490      +,0.31721 ,0.10656  ,0.16292 ,0.01525 ,0.00348 ,0.00107
491      +,0.30645 ,0.10163  ,0.14825 ,0.01463 ,0.00345 ,0.00117
492      +,0.29652 ,0.09716  ,0.13556 ,0.01406 ,0.00340 ,0.00124
493      +,0.28727 ,0.09306  ,0.12447 ,0.01352 ,0.00335 ,0.00130
494      +,0.27865 ,0.08931  ,0.11477 ,0.01302 ,0.00329 ,0.00134
495      +,0.27061 ,0.08586  ,0.10621 ,0.01256 ,0.00323 ,0.00136
496      +,0.26304 ,0.08265  ,0.09863 ,0.01212 ,0.00317 ,0.00138
497      +,0.25597 ,0.07970  ,0.09188 ,0.01171 ,0.00310 ,0.00139
498      +,0.24926 ,0.07694  ,0.08585 ,0.01133 ,0.00304 ,0.00139
499      +,0.24296 ,0.07438  ,0.08043 ,0.01097 ,0.00297 ,0.00139/
500       DATA ((F(I,25,K),I=1,6),K=1,19)/
501      + 0.46153 ,0.17064  ,0.46010 ,0.01833 ,0.00042 ,0.00001
502      +,0.43077 ,0.15416  ,0.38134 ,0.01773 ,0.00136 ,0.00000
503      +,0.40468 ,0.14085  ,0.32094 ,0.01699 ,0.00192 ,0.00000
504      +,0.38221 ,0.12983  ,0.27394 ,0.01625 ,0.00227 ,0.00001
505      +,0.36261 ,0.12053  ,0.23667 ,0.01550 ,0.00248 ,0.00001
506      +,0.34523 ,0.11254  ,0.20655 ,0.01475 ,0.00259 ,0.00014
507      +,0.32966 ,0.10559  ,0.18187 ,0.01400 ,0.00266 ,0.00041
508      +,0.31560 ,0.09945  ,0.16137 ,0.01331 ,0.00267 ,0.00058
509      +,0.30279 ,0.09399  ,0.14417 ,0.01268 ,0.00267 ,0.00071
510      +,0.29110 ,0.08911  ,0.12962 ,0.01210 ,0.00264 ,0.00080
511      +,0.28038 ,0.08472  ,0.11722 ,0.01157 ,0.00261 ,0.00087
512      +,0.27051 ,0.08074  ,0.10656 ,0.01108 ,0.00257 ,0.00092
513      +,0.26136 ,0.07711  ,0.09732 ,0.01062 ,0.00252 ,0.00096
514      +,0.25287 ,0.07380  ,0.08929 ,0.01020 ,0.00247 ,0.00099
515      +,0.24497 ,0.07077  ,0.08224 ,0.00981 ,0.00241 ,0.00100
516      +,0.23757 ,0.06796  ,0.07604 ,0.00945 ,0.00236 ,0.00101
517      +,0.23067 ,0.06537  ,0.07055 ,0.00911 ,0.00230 ,0.00102
518      +,0.22414 ,0.06297  ,0.06566 ,0.00879 ,0.00225 ,0.00102
519      +,0.21803 ,0.06074  ,0.06129 ,0.00849 ,0.00220 ,0.00101/
520       DATA ((F(I,26,K),I=1,6),K=1,19)/
521      + 0.43766 ,0.14743  ,0.40067 ,0.01523 ,0.00032 ,0.00000
522      +,0.40573 ,0.13225  ,0.32657 ,0.01459 ,0.00107 ,0.00000
523      +,0.37893 ,0.12008  ,0.27099 ,0.01388 ,0.00150 ,-0.00001
524      +,0.35601 ,0.11007  ,0.22849 ,0.01318 ,0.00176 ,0.00000
525      +,0.33616 ,0.10168  ,0.19528 ,0.01250 ,0.00191 ,0.00000
526      +,0.31869 ,0.09451  ,0.16882 ,0.01183 ,0.00198 ,0.00010
527      +,0.30314 ,0.08830  ,0.14736 ,0.01117 ,0.00202 ,0.00030
528      +,0.28912 ,0.08285  ,0.12973 ,0.01059 ,0.00203 ,0.00043
529      +,0.27647 ,0.07803  ,0.11507 ,0.01004 ,0.00201 ,0.00052
530      +,0.26495 ,0.07372  ,0.10277 ,0.00955 ,0.00199 ,0.00059
531      +,0.25442 ,0.06987  ,0.09237 ,0.00910 ,0.00196 ,0.00064
532      +,0.24477 ,0.06639  ,0.08350 ,0.00869 ,0.00192 ,0.00068
533      +,0.23583 ,0.06323  ,0.07586 ,0.00831 ,0.00188 ,0.00070
534      +,0.22758 ,0.06035  ,0.06926 ,0.00796 ,0.00183 ,0.00072
535      +,0.21995 ,0.05772  ,0.06350 ,0.00763 ,0.00179 ,0.00073
536      +,0.21279 ,0.05530  ,0.05846 ,0.00733 ,0.00174 ,0.00073
537      +,0.20615 ,0.05307  ,0.05401 ,0.00705 ,0.00170 ,0.00073
538      +,0.19989 ,0.05100  ,0.05008 ,0.00679 ,0.00165 ,0.00073
539      +,0.19405 ,0.04909  ,0.04658 ,0.00654 ,0.00161 ,0.00073/
540       DATA ((F(I,27,K),I=1,6),K=1,19)/
541      + 0.41147 ,0.12586  ,0.34670 ,0.01255 ,0.00026 ,0.00000
542      +,0.37887 ,0.11211  ,0.27799 ,0.01192 ,0.00084 ,0.00000
543      +,0.35177 ,0.10117  ,0.22750 ,0.01125 ,0.00116 ,-0.00001
544      +,0.32876 ,0.09223  ,0.18952 ,0.01061 ,0.00136 ,0.00000
545      +,0.30897 ,0.08478  ,0.16027 ,0.01001 ,0.00146 ,0.00000
546      +,0.29166 ,0.07846  ,0.13725 ,0.00942 ,0.00151 ,0.00008
547      +,0.27633 ,0.07300  ,0.11878 ,0.00886 ,0.00153 ,0.00022
548      +,0.26259 ,0.06824  ,0.10376 ,0.00836 ,0.00153 ,0.00032
549      +,0.25024 ,0.06403  ,0.09138 ,0.00790 ,0.00152 ,0.00039
550      +,0.23904 ,0.06030  ,0.08108 ,0.00749 ,0.00149 ,0.00044
551      +,0.22886 ,0.05697  ,0.07244 ,0.00711 ,0.00146 ,0.00047
552      +,0.21955 ,0.05398  ,0.06511 ,0.00677 ,0.00143 ,0.00050
553      +,0.21096 ,0.05126  ,0.05885 ,0.00645 ,0.00139 ,0.00051
554      +,0.20306 ,0.04880  ,0.05346 ,0.00616 ,0.00135 ,0.00052
555      +,0.19577 ,0.04655  ,0.04880 ,0.00590 ,0.00132 ,0.00053
556      +,0.18897 ,0.04449  ,0.04473 ,0.00565 ,0.00128 ,0.00053
557      +,0.18266 ,0.04260  ,0.04116 ,0.00542 ,0.00124 ,0.00053
558      +,0.17674 ,0.04085  ,0.03802 ,0.00521 ,0.00121 ,0.00053
559      +,0.17122 ,0.03924  ,0.03524 ,0.00501 ,0.00118 ,0.00053/
560       DATA ((F(I,28,K),I=1,6),K=1,19)/
561      + 0.38351 ,0.10617  ,0.29800 ,0.01027 ,0.00020 ,0.00000
562      +,0.35074 ,0.09391  ,0.23513 ,0.00966 ,0.00065 ,-0.00001
563      +,0.32371 ,0.08423  ,0.18981 ,0.00905 ,0.00089 ,0.00000
564      +,0.30099 ,0.07638  ,0.15625 ,0.00848 ,0.00104 ,0.00000
565      +,0.28150 ,0.06987  ,0.13075 ,0.00796 ,0.00111 ,0.00000
566      +,0.26459 ,0.06438  ,0.11092 ,0.00745 ,0.00115 ,0.00006
567      +,0.24968 ,0.05966  ,0.09519 ,0.00698 ,0.00116 ,0.00017
568      +,0.23643 ,0.05555  ,0.08250 ,0.00656 ,0.00115 ,0.00024
569      +,0.22451 ,0.05194  ,0.07215 ,0.00618 ,0.00113 ,0.00029
570      +,0.21379 ,0.04876  ,0.06360 ,0.00583 ,0.00111 ,0.00032
571      +,0.20407 ,0.04592  ,0.05648 ,0.00552 ,0.00108 ,0.00035
572      +,0.19521 ,0.04338  ,0.05048 ,0.00524 ,0.00105 ,0.00036
573      +,0.18707 ,0.04108  ,0.04539 ,0.00498 ,0.00102 ,0.00037
574      +,0.17960 ,0.03901  ,0.04104 ,0.00474 ,0.00099 ,0.00038
575      +,0.17272 ,0.03712  ,0.03728 ,0.00453 ,0.00096 ,0.00038
576      +,0.16633 ,0.03539  ,0.03404 ,0.00433 ,0.00093 ,0.00038
577      +,0.16042 ,0.03381  ,0.03121 ,0.00414 ,0.00090 ,0.00038
578      +,0.15489 ,0.03236  ,0.02872 ,0.00397 ,0.00088 ,0.00038
579      +,0.14975 ,0.03102  ,0.02653 ,0.00381 ,0.00085 ,0.00038/
580       DATA ((F(I,29,K),I=1,6),K=1,19)/
581      + 0.35425 ,0.08848  ,0.25426 ,0.00833 ,0.00015 ,0.00000
582      +,0.32178 ,0.07771  ,0.19743 ,0.00777 ,0.00050 ,-0.00001
583      +,0.29521 ,0.06928  ,0.15723 ,0.00722 ,0.00068 ,0.00000
584      +,0.27305 ,0.06249  ,0.12791 ,0.00672 ,0.00079 ,0.00000
585      +,0.25415 ,0.05689  ,0.10592 ,0.00627 ,0.00084 ,0.00000
586      +,0.23786 ,0.05218  ,0.08902 ,0.00584 ,0.00086 ,0.00004
587      +,0.22356 ,0.04816  ,0.07575 ,0.00545 ,0.00086 ,0.00012
588      +,0.21091 ,0.04468  ,0.06515 ,0.00510 ,0.00086 ,0.00017
589      +,0.19959 ,0.04163  ,0.05657 ,0.00478 ,0.00084 ,0.00021
590      +,0.18945 ,0.03895  ,0.04955 ,0.00450 ,0.00082 ,0.00023
591      +,0.18028 ,0.03657  ,0.04373 ,0.00425 ,0.00079 ,0.00025
592      +,0.17197 ,0.03444  ,0.03887 ,0.00402 ,0.00077 ,0.00026
593      +,0.16435 ,0.03253  ,0.03477 ,0.00381 ,0.00075 ,0.00027
594      +,0.15738 ,0.03080  ,0.03128 ,0.00362 ,0.00072 ,0.00027
595      +,0.15098 ,0.02924  ,0.02829 ,0.00344 ,0.00070 ,0.00027
596      +,0.14506 ,0.02781  ,0.02573 ,0.00328 ,0.00067 ,0.00027
597      +,0.13959 ,0.02651  ,0.02350 ,0.00314 ,0.00065 ,0.00027
598      +,0.13449 ,0.02531  ,0.02155 ,0.00300 ,0.00063 ,0.00027
599      +,0.12976 ,0.02421  ,0.01983 ,0.00287 ,0.00061 ,0.00027/
600       DATA ((F(I,30,K),I=1,6),K=1,19)/
601      + 0.32424 ,0.07279  ,0.21522 ,0.00670 ,0.00012 ,0.00000
602      +,0.29249 ,0.06349  ,0.16449 ,0.00619 ,0.00038 ,0.00000
603      +,0.26673 ,0.05626  ,0.12922 ,0.00571 ,0.00052 ,0.00000
604      +,0.24537 ,0.05047  ,0.10389 ,0.00528 ,0.00059 ,0.00000
605      +,0.22734 ,0.04572  ,0.08513 ,0.00489 ,0.00063 ,0.00000
606      +,0.21182 ,0.04176  ,0.07088 ,0.00454 ,0.00064 ,0.00003
607      +,0.19828 ,0.03838  ,0.05980 ,0.00422 ,0.00064 ,0.00009
608      +,0.18636 ,0.03547  ,0.05104 ,0.00393 ,0.00063 ,0.00013
609      +,0.17576 ,0.03294  ,0.04400 ,0.00367 ,0.00061 ,0.00015
610      +,0.16627 ,0.03071  ,0.03829 ,0.00344 ,0.00060 ,0.00017
611      +,0.15774 ,0.02875  ,0.03359 ,0.00324 ,0.00058 ,0.00018
612      +,0.15003 ,0.02700  ,0.02970 ,0.00305 ,0.00056 ,0.00019
613      +,0.14299 ,0.02543  ,0.02643 ,0.00289 ,0.00054 ,0.00019
614      +,0.13657 ,0.02402  ,0.02366 ,0.00274 ,0.00052 ,0.00019
615      +,0.13070 ,0.02275  ,0.02130 ,0.00260 ,0.00050 ,0.00020
616      +,0.12527 ,0.02158  ,0.01929 ,0.00247 ,0.00048 ,0.00019
617      +,0.12028 ,0.02052  ,0.01754 ,0.00235 ,0.00047 ,0.00019
618      +,0.11564 ,0.01955  ,0.01603 ,0.00225 ,0.00045 ,0.00019
619      +,0.11134 ,0.01866  ,0.01470 ,0.00215 ,0.00043 ,0.00018/
620       DATA ((F(I,31,K),I=1,6),K=1,19)/
621      + 0.29387 ,0.05909  ,0.18059 ,0.00533 ,0.00009 ,0.00000
622      +,0.26326 ,0.05119  ,0.13584 ,0.00488 ,0.00029 ,0.00000
623      +,0.23862 ,0.04508  ,0.10528 ,0.00447 ,0.00039 ,0.00000
624      +,0.21833 ,0.04022  ,0.08364 ,0.00410 ,0.00044 ,0.00000
625      +,0.20130 ,0.03626  ,0.06782 ,0.00378 ,0.00046 ,0.00000
626      +,0.18674 ,0.03297  ,0.05593 ,0.00349 ,0.00047 ,0.00002
627      +,0.17409 ,0.03018  ,0.04679 ,0.00323 ,0.00046 ,0.00007
628      +,0.16301 ,0.02778  ,0.03962 ,0.00299 ,0.00046 ,0.00009
629      +,0.15319 ,0.02571  ,0.03392 ,0.00279 ,0.00044 ,0.00011
630      +,0.14445 ,0.02389  ,0.02932 ,0.00261 ,0.00043 ,0.00012
631      +,0.13661 ,0.02229  ,0.02557 ,0.00244 ,0.00041 ,0.00013
632      +,0.12955 ,0.02088  ,0.02248 ,0.00230 ,0.00040 ,0.00013
633      +,0.12313 ,0.01961  ,0.01990 ,0.00217 ,0.00038 ,0.00013
634      +,0.11730 ,0.01848  ,0.01773 ,0.00205 ,0.00037 ,0.00014
635      +,0.11197 ,0.01745  ,0.01589 ,0.00194 ,0.00036 ,0.00014
636      +,0.10706 ,0.01652  ,0.01433 ,0.00184 ,0.00034 ,0.00014
637      +,0.10256 ,0.01567  ,0.01298 ,0.00175 ,0.00033 ,0.00013
638      +,0.09839 ,0.01489  ,0.01182 ,0.00166 ,0.00032 ,0.00013
639      +,0.09453 ,0.01418  ,0.01081 ,0.00159 ,0.00030 ,0.00013/
640       DATA ((F(I,32,K),I=1,6),K=1,19)/
641      + 0.26365 ,0.04729  ,0.15010 ,0.00420 ,0.00007 ,0.00000
642      +,0.23452 ,0.04067  ,0.11111 ,0.00381 ,0.00021 ,0.00000
643      +,0.21127 ,0.03560  ,0.08494 ,0.00346 ,0.00028 ,0.00000
644      +,0.19224 ,0.03160  ,0.06668 ,0.00316 ,0.00032 ,0.00000
645      +,0.17636 ,0.02835  ,0.05349 ,0.00289 ,0.00034 ,0.00000
646      +,0.16289 ,0.02565  ,0.04370 ,0.00265 ,0.00034 ,0.00002
647      +,0.15123 ,0.02339  ,0.03624 ,0.00244 ,0.00034 ,0.00005
648      +,0.14105 ,0.02146  ,0.03045 ,0.00226 ,0.00033 ,0.00007
649      +,0.13208 ,0.01978  ,0.02588 ,0.00210 ,0.00032 ,0.00008
650      +,0.12413 ,0.01832  ,0.02223 ,0.00195 ,0.00030 ,0.00009
651      +,0.11703 ,0.01704  ,0.01927 ,0.00183 ,0.00029 ,0.00009
652      +,0.11065 ,0.01591  ,0.01684 ,0.00171 ,0.00028 ,0.00009
653      +,0.10488 ,0.01490  ,0.01483 ,0.00161 ,0.00027 ,0.00009
654      +,0.09964 ,0.01400  ,0.01315 ,0.00151 ,0.00026 ,0.00009
655      +,0.09488 ,0.01319  ,0.01173 ,0.00143 ,0.00025 ,0.00010
656      +,0.09049 ,0.01245  ,0.01053 ,0.00135 ,0.00024 ,0.00009
657      +,0.08648 ,0.01179  ,0.00950 ,0.00129 ,0.00023 ,0.00009
658      +,0.08278 ,0.01118  ,0.00862 ,0.00122 ,0.00022 ,0.00009
659      +,0.07937 ,0.01062  ,0.00785 ,0.00116 ,0.00021 ,0.00009/
660       DATA ((F(I,33,K),I=1,6),K=1,19)/
661      + 0.23396 ,0.03729  ,0.12345 ,0.00326 ,0.00005 ,0.00000
662      +,0.20661 ,0.03184  ,0.08992 ,0.00293 ,0.00015 ,0.00000
663      +,0.18496 ,0.02770  ,0.06780 ,0.00264 ,0.00021 ,0.00000
664      +,0.16738 ,0.02444  ,0.05258 ,0.00239 ,0.00023 ,0.00000
665      +,0.15277 ,0.02182  ,0.04173 ,0.00218 ,0.00024 ,0.00000
666      +,0.14045 ,0.01965  ,0.03377 ,0.00200 ,0.00023 ,0.00001
667      +,0.12986 ,0.01785  ,0.02777 ,0.00183 ,0.00023 ,0.00003
668      +,0.12066 ,0.01630  ,0.02313 ,0.00168 ,0.00023 ,0.00004
669      +,0.11257 ,0.01498  ,0.01951 ,0.00156 ,0.00022 ,0.00005
670      +,0.10543 ,0.01382  ,0.01665 ,0.00144 ,0.00021 ,0.00005
671      +,0.09908 ,0.01281  ,0.01434 ,0.00134 ,0.00020 ,0.00006
672      +,0.09339 ,0.01193  ,0.01246 ,0.00126 ,0.00019 ,0.00006
673      +,0.08827 ,0.01114  ,0.01092 ,0.00118 ,0.00019 ,0.00006
674      +,0.08363 ,0.01044  ,0.00963 ,0.00110 ,0.00018 ,0.00006
675      +,0.07942 ,0.00981  ,0.00856 ,0.00104 ,0.00017 ,0.00006
676      +,0.07556 ,0.00924  ,0.00765 ,0.00098 ,0.00016 ,0.00006
677      +,0.07205 ,0.00873  ,0.00688 ,0.00093 ,0.00016 ,0.00006
678      +,0.06880 ,0.00826  ,0.00622 ,0.00088 ,0.00015 ,0.00006
679      +,0.06582 ,0.00783  ,0.00564 ,0.00084 ,0.00014 ,0.00006/
680       DATA ((F(I,34,K),I=1,6),K=1,19)/
681      + 0.20521 ,0.02891  ,0.10036 ,0.00250 ,0.00004 ,0.00000
682      +,0.17989 ,0.02451  ,0.07192 ,0.00223 ,0.00011 ,0.00000
683      +,0.16001 ,0.02119  ,0.05347 ,0.00199 ,0.00015 ,0.00000
684      +,0.14397 ,0.01859  ,0.04095 ,0.00179 ,0.00016 ,0.00000
685      +,0.13073 ,0.01651  ,0.03215 ,0.00162 ,0.00017 ,0.00000
686      +,0.11963 ,0.01480  ,0.02576 ,0.00148 ,0.00016 ,0.00001
687      +,0.11013 ,0.01339  ,0.02099 ,0.00135 ,0.00016 ,0.00002
688      +,0.10191 ,0.01218  ,0.01735 ,0.00124 ,0.00016 ,0.00003
689      +,0.09473 ,0.01115  ,0.01453 ,0.00114 ,0.00015 ,0.00003
690      +,0.08841 ,0.01025  ,0.01231 ,0.00105 ,0.00015 ,0.00004
691      +,0.08281 ,0.00948  ,0.01054 ,0.00098 ,0.00014 ,0.00004
692      +,0.07782 ,0.00879  ,0.00910 ,0.00091 ,0.00013 ,0.00004
693      +,0.07333 ,0.00819  ,0.00793 ,0.00085 ,0.00013 ,0.00004
694      +,0.06928 ,0.00765  ,0.00696 ,0.00079 ,0.00012 ,0.00004
695      +,0.06562 ,0.00717  ,0.00616 ,0.00075 ,0.00011 ,0.00004
696      +,0.06228 ,0.00674  ,0.00548 ,0.00070 ,0.00011 ,0.00004
697      +,0.05923 ,0.00635  ,0.00491 ,0.00066 ,0.00011 ,0.00004
698      +,0.05644 ,0.00599  ,0.00442 ,0.00063 ,0.00010 ,0.00004
699      +,0.05387 ,0.00567  ,0.00400 ,0.00060 ,0.00010 ,0.00004/
700       DATA ((F(I,35,K),I=1,6),K=1,19)/
701      + 0.17769 ,0.02200  ,0.08054 ,0.00189 ,0.00003 ,0.00000
702      +,0.15458 ,0.01852  ,0.05676 ,0.00167 ,0.00008 ,0.00000
703      +,0.13659 ,0.01590  ,0.04159 ,0.00148 ,0.00010 ,0.00000
704      +,0.12217 ,0.01387  ,0.03147 ,0.00132 ,0.00011 ,0.00000
705      +,0.11036 ,0.01226  ,0.02442 ,0.00119 ,0.00011 ,-0.00001
706      +,0.10049 ,0.01094  ,0.01937 ,0.00108 ,0.00011 ,0.00001
707      +,0.09210 ,0.00985  ,0.01564 ,0.00098 ,0.00011 ,0.00002
708      +,0.08487 ,0.00893  ,0.01282 ,0.00089 ,0.00011 ,0.00002
709      +,0.07859 ,0.00814  ,0.01065 ,0.00082 ,0.00010 ,0.00002
710      +,0.07308 ,0.00746  ,0.00896 ,0.00075 ,0.00010 ,0.00003
711      +,0.06822 ,0.00687  ,0.00762 ,0.00070 ,0.00009 ,0.00003
712      +,0.06390 ,0.00636  ,0.00654 ,0.00065 ,0.00009 ,0.00003
713      +,0.06004 ,0.00590  ,0.00567 ,0.00060 ,0.00008 ,0.00003
714      +,0.05656 ,0.00550  ,0.00496 ,0.00056 ,0.00008 ,0.00003
715      +,0.05343 ,0.00514  ,0.00436 ,0.00053 ,0.00008 ,0.00003
716      +,0.05057 ,0.00482  ,0.00386 ,0.00049 ,0.00007 ,0.00003
717      +,0.04798 ,0.00453  ,0.00345 ,0.00047 ,0.00007 ,0.00003
718      +,0.04561 ,0.00426  ,0.00309 ,0.00044 ,0.00007 ,0.00003
719      +,0.04344 ,0.00402  ,0.00279 ,0.00042 ,0.00006 ,0.00003/
720       DATA ((F(I,36,K),I=1,6),K=1,19)/
721      + 0.15172 ,0.01642  ,0.06371 ,0.00140 ,0.00002 ,0.00000
722      +,0.13096 ,0.01371  ,0.04413 ,0.00123 ,0.00005 ,0.00000
723      +,0.11492 ,0.01170  ,0.03187 ,0.00108 ,0.00007 ,0.00000
724      +,0.10217 ,0.01015  ,0.02380 ,0.00096 ,0.00007 ,0.00000
725      +,0.09179 ,0.00892  ,0.01825 ,0.00086 ,0.00008 ,0.00000
726      +,0.08317 ,0.00792  ,0.01433 ,0.00077 ,0.00008 ,0.00000
727      +,0.07587 ,0.00710  ,0.01146 ,0.00070 ,0.00007 ,0.00001
728      +,0.06962 ,0.00641  ,0.00932 ,0.00063 ,0.00007 ,0.00001
729      +,0.06421 ,0.00582  ,0.00768 ,0.00058 ,0.00007 ,0.00002
730      +,0.05949 ,0.00531  ,0.00641 ,0.00053 ,0.00006 ,0.00002
731      +,0.05534 ,0.00488  ,0.00542 ,0.00049 ,0.00006 ,0.00002
732      +,0.05167 ,0.00450  ,0.00462 ,0.00045 ,0.00006 ,0.00002
733      +,0.04839 ,0.00416  ,0.00399 ,0.00042 ,0.00005 ,0.00002
734      +,0.04545 ,0.00387  ,0.00346 ,0.00039 ,0.00005 ,0.00002
735      +,0.04281 ,0.00360  ,0.00303 ,0.00036 ,0.00005 ,0.00002
736      +,0.04042 ,0.00337  ,0.00268 ,0.00034 ,0.00005 ,0.00002
737      +,0.03825 ,0.00316  ,0.00238 ,0.00032 ,0.00005 ,0.00002
738      +,0.03627 ,0.00297  ,0.00213 ,0.00030 ,0.00004 ,0.00002
739      +,0.03446 ,0.00279  ,0.00191 ,0.00028 ,0.00004 ,0.00002/
740       DATA ((F(I,37,K),I=1,6),K=1,19)/
741      + 0.10533 ,0.00853  ,0.03790 ,0.00073 ,0.00000 ,0.00000
742      +,0.08942 ,0.00701  ,0.02533 ,0.00062 ,0.00002 ,0.00000
743      +,0.07733 ,0.00590  ,0.01773 ,0.00054 ,0.00003 ,0.00000
744      +,0.06787 ,0.00505  ,0.01288 ,0.00047 ,0.00003 ,0.00000
745      +,0.06027 ,0.00439  ,0.00964 ,0.00042 ,0.00003 ,0.00000
746      +,0.05403 ,0.00386  ,0.00740 ,0.00037 ,0.00003 ,0.00000
747      +,0.04881 ,0.00343  ,0.00581 ,0.00033 ,0.00003 ,0.00000
748      +,0.04439 ,0.00307  ,0.00463 ,0.00030 ,0.00003 ,0.00000
749      +,0.04060 ,0.00276  ,0.00376 ,0.00027 ,0.00003 ,0.00001
750      +,0.03731 ,0.00250  ,0.00309 ,0.00025 ,0.00003 ,0.00001
751      +,0.03445 ,0.00228  ,0.00257 ,0.00022 ,0.00002 ,0.00001
752      +,0.03194 ,0.00209  ,0.00217 ,0.00021 ,0.00002 ,0.00001
753      +,0.02971 ,0.00192  ,0.00185 ,0.00019 ,0.00002 ,0.00001
754      +,0.02774 ,0.00177  ,0.00159 ,0.00018 ,0.00002 ,0.00001
755      +,0.02597 ,0.00164  ,0.00138 ,0.00016 ,0.00002 ,0.00001
756      +,0.02438 ,0.00153  ,0.00121 ,0.00015 ,0.00002 ,0.00001
757      +,0.02295 ,0.00142  ,0.00106 ,0.00014 ,0.00002 ,0.00001
758      +,0.02165 ,0.00133  ,0.00094 ,0.00013 ,0.00002 ,0.00001
759      +,0.02047 ,0.00125  ,0.00084 ,0.00013 ,0.00002 ,0.00001/
760       DATA ((F(I,38,K),I=1,6),K=1,19)/
761      + 0.06740 ,0.00395  ,0.02070 ,0.00034 ,0.00000 ,0.00000
762      +,0.05617 ,0.00319  ,0.01329 ,0.00029 ,0.00001 ,0.00000
763      +,0.04780 ,0.00264  ,0.00900 ,0.00024 ,0.00001 ,0.00000
764      +,0.04135 ,0.00223  ,0.00634 ,0.00021 ,0.00001 ,0.00000
765      +,0.03625 ,0.00192  ,0.00462 ,0.00018 ,0.00001 ,0.00000
766      +,0.03211 ,0.00167  ,0.00347 ,0.00016 ,0.00001 ,0.00000
767      +,0.02870 ,0.00146  ,0.00266 ,0.00014 ,0.00001 ,0.00000
768      +,0.02583 ,0.00130  ,0.00208 ,0.00013 ,0.00001 ,0.00000
769      +,0.02341 ,0.00116  ,0.00166 ,0.00011 ,0.00001 ,0.00000
770      +,0.02133 ,0.00104  ,0.00134 ,0.00010 ,0.00001 ,0.00000
771      +,0.01953 ,0.00094  ,0.00110 ,0.00009 ,0.00001 ,0.00000
772      +,0.01797 ,0.00086  ,0.00091 ,0.00008 ,0.00001 ,0.00000
773      +,0.01660 ,0.00078  ,0.00077 ,0.00008 ,0.00001 ,0.00000
774      +,0.01539 ,0.00072  ,0.00065 ,0.00007 ,0.00001 ,0.00000
775      +,0.01431 ,0.00066  ,0.00056 ,0.00007 ,0.00001 ,0.00000
776      +,0.01336 ,0.00061  ,0.00049 ,0.00006 ,0.00001 ,0.00000
777      +,0.01250 ,0.00056  ,0.00043 ,0.00006 ,0.00001 ,0.00000
778      +,0.01173 ,0.00053  ,0.00038 ,0.00005 ,0.00001 ,0.00000
779      +,0.01103 ,0.00049  ,0.00034 ,0.00005 ,0.00001 ,0.00000/
780       DATA ((F(I,39,K),I=1,6),K=1,19)/
781      + 0.03856 ,0.00157  ,0.01008 ,0.00014 ,0.00000 ,0.00000
782      +,0.03146 ,0.00124  ,0.00619 ,0.00012 ,0.00000 ,0.00000
783      +,0.02628 ,0.00101  ,0.00403 ,0.00010 ,0.00000 ,0.00000
784      +,0.02236 ,0.00084  ,0.00275 ,0.00008 ,0.00000 ,0.00000
785      +,0.01931 ,0.00071  ,0.00194 ,0.00007 ,0.00000 ,0.00000
786      +,0.01689 ,0.00061  ,0.00142 ,0.00006 ,0.00000 ,0.00000
787      +,0.01491 ,0.00053  ,0.00106 ,0.00005 ,0.00000 ,0.00000
788      +,0.01327 ,0.00047  ,0.00081 ,0.00005 ,0.00000 ,0.00000
789      +,0.01190 ,0.00041  ,0.00063 ,0.00004 ,0.00000 ,0.00000
790      +,0.01073 ,0.00037  ,0.00050 ,0.00004 ,0.00000 ,0.00000
791      +,0.00974 ,0.00033  ,0.00041 ,0.00003 ,0.00000 ,0.00000
792      +,0.00889 ,0.00030  ,0.00033 ,0.00003 ,0.00000 ,0.00000
793      +,0.00814 ,0.00027  ,0.00028 ,0.00003 ,0.00000 ,0.00000
794      +,0.00749 ,0.00024  ,0.00023 ,0.00002 ,0.00000 ,0.00000
795      +,0.00692 ,0.00022  ,0.00020 ,0.00002 ,0.00000 ,0.00000
796      +,0.00642 ,0.00020  ,0.00017 ,0.00002 ,0.00000 ,0.00000
797      +,0.00597 ,0.00019  ,0.00015 ,0.00002 ,0.00000 ,0.00000
798      +,0.00557 ,0.00017  ,0.00013 ,0.00002 ,0.00000 ,0.00000
799      +,0.00522 ,0.00016  ,0.00012 ,0.00002 ,0.00000 ,0.00000/
800       DATA ((F(I,40,K),I=1,6),K=1,19)/
801      + 0.01865 ,0.00050  ,0.00414 ,0.00005 ,0.00000 ,0.00000
802      +,0.01484 ,0.00039  ,0.00242 ,0.00004 ,0.00000 ,0.00000
803      +,0.01213 ,0.00031  ,0.00151 ,0.00003 ,0.00000 ,0.00000
804      +,0.01012 ,0.00025  ,0.00099 ,0.00002 ,0.00000 ,0.00000
805      +,0.00859 ,0.00021  ,0.00067 ,0.00002 ,0.00000 ,0.00000
806      +,0.00739 ,0.00018  ,0.00048 ,0.00002 ,0.00000 ,0.00000
807      +,0.00643 ,0.00015  ,0.00035 ,0.00002 ,0.00000 ,0.00000
808      +,0.00565 ,0.00013  ,0.00026 ,0.00001 ,0.00000 ,0.00000
809      +,0.00500 ,0.00012  ,0.00020 ,0.00001 ,0.00000 ,0.00000
810      +,0.00446 ,0.00010  ,0.00015 ,0.00001 ,0.00000 ,0.00000
811      +,0.00400 ,0.00009  ,0.00012 ,0.00001 ,0.00000 ,0.00000
812      +,0.00361 ,0.00008  ,0.00010 ,0.00001 ,0.00000 ,0.00000
813      +,0.00328 ,0.00007  ,0.00008 ,0.00001 ,0.00000 ,0.00000
814      +,0.00299 ,0.00007  ,0.00007 ,0.00001 ,0.00000 ,0.00000
815      +,0.00274 ,0.00006  ,0.00006 ,0.00001 ,0.00000 ,0.00000
816      +,0.00253 ,0.00005  ,0.00005 ,0.00001 ,0.00000 ,0.00000
817      +,0.00234 ,0.00005  ,0.00005 ,0.00001 ,0.00000 ,0.00000
818      +,0.00218 ,0.00004  ,0.00004 ,0.00000 ,0.00000 ,0.00000
819      +,0.00203 ,0.00004  ,0.00004 ,0.00000 ,0.00000 ,0.00000/
820       DATA ((F(I,41,K),I=1,6),K=1,19)/
821      + 0.00092 ,0.00001  ,0.00026 ,0.00000 ,0.00000 ,0.00000
822      +,0.00067 ,0.00001  ,0.00013 ,0.00000 ,0.00000 ,0.00000
823      +,0.00052 ,0.00001  ,0.00007 ,0.00000 ,0.00000 ,0.00000
824      +,0.00043 ,0.00001  ,0.00004 ,0.00000 ,0.00000 ,0.00000
825      +,0.00037 ,0.00000  ,0.00003 ,0.00000 ,0.00000 ,0.00000
826      +,0.00033 ,0.00000  ,0.00002 ,0.00000 ,0.00000 ,0.00000
827      +,0.00030 ,0.00000  ,0.00001 ,0.00000 ,0.00000 ,0.00000
828      +,0.00029 ,0.00000  ,0.00001 ,0.00000 ,0.00000 ,0.00000
829      +,0.00028 ,0.00000  ,0.00001 ,0.00000 ,0.00000 ,0.00000
830      +,0.00028 ,0.00000  ,0.00001 ,0.00000 ,0.00000 ,0.00000
831      +,0.00028 ,0.00000  ,0.00001 ,0.00000 ,0.00000 ,0.00000
832      +,0.00028 ,0.00000  ,0.00001 ,0.00000 ,0.00000 ,0.00000
833      +,0.00029 ,0.00000  ,0.00001 ,0.00000 ,0.00000 ,0.00000
834      +,0.00030 ,0.00000  ,0.00001 ,0.00000 ,0.00000 ,0.00000
835      +,0.00031 ,0.00000  ,0.00001 ,0.00000 ,0.00000 ,0.00000
836      +,0.00033 ,0.00000  ,0.00001 ,0.00000 ,0.00000 ,0.00000
837      +,0.00034 ,0.00000  ,0.00001 ,0.00000 ,0.00000 ,0.00000
838      +,0.00036 ,0.00000  ,0.00001 ,0.00000 ,0.00000 ,0.00000
839      +,0.00037 ,0.00000  ,0.00001 ,0.00000 ,0.00000 ,0.00000/
840       DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, 1.D-3,2.D-3,4.D-3,6.D-3,
841      +8.D-3, 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, .1D0,.125D0,.15D0,.175D0,.
842      +2D0,.225D0,.25D0,.275D0, .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.
843      +45D0,.475D0, .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, .8D0,
844      +.9D0,1.D0/
845 C
846 C
847       DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/
848       DATA N0/3,4,5,5,0,0/
849       DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
850       DATA INIT/0/
851 C
852       IF(INIT.NE.0) GOTO 50
853       INIT=1
854       DO 20 N=1,41
855          DO 20 M=1,19
856 C           READ(63,1001)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F
857 C    +      (6,N,M)
858             DO 10 I=1,6
859    10       F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
860    20 CONTINUE
861       DO 30 J=1,15
862          XX(J)= LOG10(XX(J))+ONEDO
863          DO 30 I=1,5
864             DO 30 K=1,19
865    30 F(I,J,K)= LOG(F(I,J,K))*F(I,16,K)/ LOG(F(I,16,K))
866       DO 40 I=1,6
867          DO 40 M=1,19
868    40 F(I,42,M)=ZEROD
869    50 CONTINUE
870       IF(X.LT.XMIN) X=XMIN
871       IF(X.GT.XMAX) X=XMAX
872       QSQ=SCALE**2
873       IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
874       IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
875       XXX=X
876       IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
877       N=0
878    60 N=N+1
879       IF(XXX.GT.XX(N+1)) GOTO 60
880       A=(XXX-XX(N))/(XX(N+1)-XX(N))
881       RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
882       B=RM-AINT(RM)
883       M=1+  INT(RM)
884       DO 80 I=1,6
885          G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) + A
886      +   *(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
887          IF(N.GE.16) GOTO 70
888          IF(I.EQ.6) GOTO 70
889          FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1)
890 C
891          G(I)=FAC**(G(I)/FAC)
892    70    CONTINUE
893          G(I)=G(I)*(ONED-X)**N0(I)
894    80 CONTINUE
895       UPV=G(1)
896       DNV=G(2)
897       SEA=G(4)
898       STR=G(4)
899       CHM=G(5)
900       GL =G(3)
901       BOT=G(6)
902       RETURN
903  1001 FORMAT(6F10.5)
904       END