]> git.uio.no Git - u/mrichter/AliRoot.git/blob - PDF/spdf/strucb.F
This commit was generated by cvs2svn to compensate for changes in r1018,
[u/mrichter/AliRoot.git] / PDF / spdf / strucb.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.2  1996/10/30 08:31:49  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 STRUCB(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL)
15 C :::::::::::: MARTIN ROBERTS STIRLING :::::SOFT GLUE::::228 MEV:::
16 #include "pdf/impdp.inc"
17       PARAMETER(NX=42)
18       PARAMETER(NTENTH=21)
19       DIMENSION F(6,NX,19),G(6),XX(NX),N0(6)
20       DATA ((F(I,1,K),I=1,6),K=1,19)/
21      + 0.00961 ,0.00603  ,4.74673 ,0.20606 ,0.03441 ,0.00000
22      +,0.01096 ,0.00683 ,13.79210 ,0.40476 ,0.18365 ,0.00000
23      +,0.01221 ,0.00756 ,23.93182 ,0.67022 ,0.38290 ,0.00000
24      +,0.01339 ,0.00825 ,34.69507 ,0.98901 ,0.62211 ,-0.00001
25      +,0.01450 ,0.00890 ,45.48036 ,1.33340 ,0.88709 ,0.02645
26      +,0.01556 ,0.00951 ,56.38562 ,1.65006 ,1.17500 ,0.22791
27      +,0.01657 ,0.01010 ,67.30421 ,1.94477 ,1.48094 ,0.56738
28      +,0.01754 ,0.01067 ,78.17290 ,2.26090 ,1.80110 ,0.89956
29      +,0.01848 ,0.01121 ,88.94685 ,2.58742 ,2.13237 ,1.24500
30      +,0.01939 ,0.01174 ,99.56996 ,2.92240 ,2.47151 ,1.59662
31      +,0.02027 ,0.01224,109.88562 ,3.25939 ,2.81239 ,1.94915
32      +,0.02112 ,0.01273,120.07144 ,3.60233 ,3.15892 ,2.30653
33      +,0.02195 ,0.01321,130.14627 ,3.95093 ,3.51088 ,2.66862
34      +,0.02275 ,0.01367,139.88661 ,4.29705 ,3.86013 ,3.02737
35      +,0.02354 ,0.01412,149.43730 ,4.64451 ,4.21053 ,3.38670
36      +,0.02430 ,0.01456,158.88370 ,4.99554 ,4.56434 ,3.74894
37      +,0.02505 ,0.01499,167.92317 ,5.33897 ,4.91038 ,4.10295
38      +,0.02578 ,0.01541,176.96330 ,5.68844 ,5.26233 ,4.46246
39      +,0.02649 ,0.01581,185.57343 ,6.02818 ,5.60442 ,4.81174/
40       DATA ((F(I,2,K),I=1,6),K=1,19)/
41      + 0.01488 ,0.00923  ,4.44429 ,0.20538 ,0.03121 ,0.00000
42      +,0.01682 ,0.01035 ,11.49449 ,0.37597 ,0.15932 ,0.00000
43      +,0.01861 ,0.01139 ,18.93008 ,0.59102 ,0.32074 ,0.00000
44      +,0.02027 ,0.01235 ,26.53142 ,0.83889 ,0.50674 ,0.00000
45      +,0.02183 ,0.01324 ,33.93573 ,1.09861 ,0.70655 ,0.01977
46      +,0.02330 ,0.01409 ,41.24933 ,1.33160 ,0.91836 ,0.16777
47      +,0.02470 ,0.01489 ,48.42468 ,1.54346 ,1.13884 ,0.41390
48      +,0.02604 ,0.01565 ,55.43896 ,1.76689 ,1.36552 ,0.65015
49      +,0.02733 ,0.01639 ,62.27953 ,1.99406 ,1.59645 ,0.89221
50      +,0.02857 ,0.01709 ,68.92375 ,2.22392 ,1.82962 ,1.13521
51      +,0.02976 ,0.01777 ,75.28267 ,2.45226 ,2.06106 ,1.37583
52      +,0.03091 ,0.01842 ,81.48285 ,2.68202 ,2.29370 ,1.61702
53      +,0.03202 ,0.01906 ,87.54489 ,2.91318 ,2.52755 ,1.85886
54      +,0.03310 ,0.01967 ,93.33434 ,3.14044 ,2.75733 ,2.09613
55      +,0.03415 ,0.02026 ,98.95088 ,3.36655 ,2.98580 ,2.33165
56      +,0.03517 ,0.02084,104.45407 ,3.59311 ,3.21461 ,2.56712
57      +,0.03616 ,0.02139,109.66013 ,3.81290 ,3.43650 ,2.79532
58      +,0.03712 ,0.02194,114.82828 ,4.03502 ,3.66064 ,3.02544
59      +,0.03806 ,0.02246,119.69576 ,4.24929 ,3.87681 ,3.24729/
60       DATA ((F(I,3,K),I=1,6),K=1,19)/
61      + 0.02304 ,0.01411  ,4.15990 ,0.20405 ,0.02795 ,0.00000
62      +,0.02581 ,0.01570  ,9.57815 ,0.34867 ,0.13657 ,0.00000
63      +,0.02834 ,0.01714 ,14.96934 ,0.52085 ,0.26585 ,0.00000
64      +,0.03067 ,0.01847 ,20.27985 ,0.71142 ,0.40890 ,0.00000
65      +,0.03284 ,0.01969 ,25.30734 ,0.90518 ,0.55798 ,0.01463
66      +,0.03487 ,0.02084 ,30.15602 ,1.07476 ,0.71220 ,0.12235
67      +,0.03679 ,0.02193 ,34.81412 ,1.22538 ,0.86947 ,0.29918
68      +,0.03863 ,0.02296 ,39.28276 ,1.38157 ,1.02833 ,0.46569
69      +,0.04038 ,0.02394 ,43.56674 ,1.53787 ,1.18766 ,0.63377
70      +,0.04205 ,0.02488 ,47.66211 ,1.69383 ,1.34631 ,0.80017
71      +,0.04365 ,0.02578 ,51.52116 ,1.84680 ,1.50179 ,0.96290
72      +,0.04519 ,0.02664 ,55.23373 ,1.99896 ,1.65630 ,1.12415
73      +,0.04668 ,0.02747 ,58.81915 ,2.15046 ,1.81000 ,1.28416
74      +,0.04812 ,0.02827 ,62.19774 ,2.29789 ,1.95950 ,1.43958
75      +,0.04950 ,0.02904 ,65.43773 ,2.44322 ,2.10678 ,1.59243
76      +,0.05085 ,0.02978 ,68.58063 ,2.58765 ,2.25305 ,1.74398
77      +,0.05214 ,0.03050 ,71.51546 ,2.72652 ,2.39367 ,1.88959
78      +,0.05341 ,0.03120 ,74.40666 ,2.86590 ,2.53472 ,2.03538
79      +,0.05463 ,0.03188 ,77.09471 ,2.99924 ,2.66964 ,2.17480/
80       DATA ((F(I,4,K),I=1,6),K=1,19)/
81      + 0.02974 ,0.01809  ,4.00109 ,0.20284 ,0.02601 ,0.00000
82      +,0.03314 ,0.02002  ,8.60778 ,0.33320 ,0.12396 ,0.00000
83      +,0.03623 ,0.02176 ,13.04550 ,0.48338 ,0.23676 ,0.00000
84      +,0.03906 ,0.02336 ,17.32387 ,0.64576 ,0.35870 ,0.00000
85      +,0.04168 ,0.02483 ,21.30655 ,0.80800 ,0.48358 ,0.01221
86      +,0.04413 ,0.02620 ,25.09286 ,0.94795 ,0.61093 ,0.10120
87      +,0.04643 ,0.02749 ,28.68440 ,1.07053 ,0.73925 ,0.24620
88      +,0.04862 ,0.02871 ,32.09038 ,1.19640 ,0.86754 ,0.38121
89      +,0.05070 ,0.02987 ,35.32127 ,1.32119 ,0.99503 ,0.51630
90      +,0.05269 ,0.03097 ,38.37978 ,1.44468 ,1.12094 ,0.64897
91      +,0.05459 ,0.03202 ,41.23372 ,1.56488 ,1.24340 ,0.77774
92      +,0.05641 ,0.03302 ,43.95631 ,1.68364 ,1.36427 ,0.90449
93      +,0.05816 ,0.03399 ,46.56557 ,1.80114 ,1.48376 ,1.02948
94      +,0.05984 ,0.03492 ,49.00311 ,1.91478 ,1.59927 ,1.15016
95      +,0.06146 ,0.03581 ,51.32353 ,2.02619 ,1.71245 ,1.26821
96      +,0.06304 ,0.03668 ,53.56015 ,2.13636 ,1.82430 ,1.38466
97      +,0.06455 ,0.03750 ,55.63080 ,2.24172 ,1.93125 ,1.49596
98      +,0.06602 ,0.03831 ,57.66109 ,2.34703 ,2.03807 ,1.60693
99      +,0.06744 ,0.03909 ,59.53226 ,2.44726 ,2.13975 ,1.71254/
100       DATA ((F(I,5,K),I=1,6),K=1,19)/
101      + 0.03564 ,0.02157  ,3.89144 ,0.20174 ,0.02462 ,0.00000
102      +,0.03957 ,0.02378  ,7.97880 ,0.32239 ,0.11532 ,0.00000
103      +,0.04311 ,0.02577 ,11.83041 ,0.45820 ,0.21738 ,0.00000
104      +,0.04636 ,0.02759 ,15.48785 ,0.60265 ,0.32591 ,0.00000
105      +,0.04934 ,0.02925 ,18.85153 ,0.74522 ,0.43570 ,0.01071
106      +,0.05213 ,0.03080 ,22.01633 ,0.86694 ,0.54654 ,0.08821
107      +,0.05475 ,0.03225 ,24.99049 ,0.97249 ,0.65729 ,0.21384
108      +,0.05722 ,0.03362 ,27.78709 ,1.08010 ,0.76717 ,0.32988
109      +,0.05957 ,0.03492 ,30.41948 ,1.18609 ,0.87568 ,0.44527
110      +,0.06181 ,0.03616 ,32.89311 ,1.29036 ,0.98220 ,0.55793
111      +,0.06394 ,0.03733 ,35.18434 ,1.39129 ,1.08525 ,0.66671
112      +,0.06598 ,0.03845 ,37.35651 ,1.49051 ,1.18646 ,0.77326
113      +,0.06794 ,0.03952 ,39.42613 ,1.58825 ,1.28606 ,0.87786
114      +,0.06982 ,0.04055 ,41.34689 ,1.68236 ,1.38193 ,0.97842
115      +,0.07163 ,0.04153 ,43.16516 ,1.77425 ,1.47549 ,1.07639
116      +,0.07338 ,0.04249 ,44.90941 ,1.86479 ,1.56761 ,1.17269
117      +,0.07506 ,0.04340 ,46.51332 ,1.95102 ,1.65534 ,1.26439
118      +,0.07670 ,0.04429 ,48.08047 ,2.03697 ,1.74272 ,1.35553
119      +,0.07826 ,0.04514 ,49.51465 ,2.11845 ,1.82558 ,1.44196/
120       DATA ((F(I,6,K),I=1,6),K=1,19)/
121      + 0.04100 ,0.02472  ,3.80797 ,0.20072 ,0.02353 ,0.00000
122      +,0.04539 ,0.02718  ,7.52221 ,0.31405 ,0.10878 ,0.00000
123      +,0.04933 ,0.02938 ,10.96498 ,0.43938 ,0.20302 ,0.00000
124      +,0.05294 ,0.03138 ,14.19605 ,0.57102 ,0.30198 ,0.00000
125      +,0.05624 ,0.03322 ,17.13951 ,0.69972 ,0.40114 ,0.00965
126      +,0.05931 ,0.03491 ,19.88622 ,0.80871 ,0.50047 ,0.07916
127      +,0.06219 ,0.03650 ,22.44836 ,0.90248 ,0.59906 ,0.19138
128      +,0.06491 ,0.03800 ,24.84126 ,0.99756 ,0.69633 ,0.29439
129      +,0.06749 ,0.03941 ,27.07948 ,1.09072 ,0.79188 ,0.39632
130      +,0.06994 ,0.04076 ,29.17035 ,1.18194 ,0.88526 ,0.49540
131      +,0.07226 ,0.04203 ,31.09544 ,1.26986 ,0.97520 ,0.59066
132      +,0.07449 ,0.04324 ,32.91112 ,1.35596 ,1.06320 ,0.68361
133      +,0.07663 ,0.04440 ,34.63298 ,1.44046 ,1.14949 ,0.77455
134      +,0.07867 ,0.04551 ,36.22231 ,1.52155 ,1.23227 ,0.86168
135      +,0.08063 ,0.04658 ,37.71980 ,1.60047 ,1.31279 ,0.94630
136      +,0.08253 ,0.04761 ,39.15071 ,1.67801 ,1.39185 ,1.02925
137      +,0.08435 ,0.04859 ,40.45906 ,1.75163 ,1.46691 ,1.10798
138      +,0.08612 ,0.04954 ,41.73373 ,1.82482 ,1.54149 ,1.18606
139      +,0.08781 ,0.05046 ,42.89342 ,1.89400 ,1.61199 ,1.25989/
140       DATA ((F(I,7,K),I=1,6),K=1,19)/
141      + 0.06331 ,0.03770  ,3.55598 ,0.19639 ,0.02014 ,0.00000
142      +,0.06943 ,0.04107  ,6.26031 ,0.28823 ,0.08946 ,0.00000
143      +,0.07486 ,0.04405  ,8.65059 ,0.38443 ,0.16203 ,0.00000
144      +,0.07977 ,0.04674 ,10.81334 ,0.48166 ,0.23535 ,0.00000
145      +,0.08424 ,0.04917 ,12.72425 ,0.57397 ,0.30669 ,0.00692
146      +,0.08835 ,0.05140 ,14.45992 ,0.65015 ,0.37645 ,0.05595
147      +,0.09219 ,0.05347 ,16.03955 ,0.71403 ,0.44427 ,0.13412
148      +,0.09578 ,0.05541 ,17.48148 ,0.77772 ,0.50997 ,0.20449
149      +,0.09916 ,0.05723 ,18.80179 ,0.83909 ,0.57348 ,0.27306
150      +,0.10236 ,0.05894 ,20.01035 ,0.89830 ,0.63463 ,0.33875
151      +,0.10537 ,0.06056 ,21.09975 ,0.95456 ,0.69274 ,0.40109
152      +,0.10824 ,0.06209 ,22.10910 ,1.00898 ,0.74889 ,0.46118
153      +,0.11099 ,0.06355 ,23.05072 ,1.06178 ,0.80332 ,0.51932
154      +,0.11359 ,0.06493 ,23.90268 ,1.11186 ,0.85495 ,0.57442
155      +,0.11608 ,0.06625 ,24.69220 ,1.16009 ,0.90466 ,0.62740
156      +,0.11848 ,0.06752 ,25.43613 ,1.20704 ,0.95302 ,0.67885
157      +,0.12077 ,0.06873 ,26.10156 ,1.25114 ,0.99845 ,0.72722
158      +,0.12299 ,0.06990 ,26.74364 ,1.29465 ,1.04326 ,0.77481
159      +,0.12510 ,0.07101 ,27.31422 ,1.33535 ,1.08519 ,0.81939/
160       DATA ((F(I,8,K),I=1,6),K=1,19)/
161      + 0.09748 ,0.05732  ,3.31097 ,0.18985 ,0.01676 ,0.00000
162      +,0.10580 ,0.06181  ,5.20195 ,0.26198 ,0.07164 ,0.00000
163      +,0.11311 ,0.06574  ,6.80476 ,0.33369 ,0.12614 ,0.00000
164      +,0.11964 ,0.06922  ,8.20082 ,0.40345 ,0.17914 ,0.00000
165      +,0.12550 ,0.07234  ,9.39323 ,0.46776 ,0.22923 ,0.00486
166      +,0.13086 ,0.07518 ,10.44347 ,0.51936 ,0.27700 ,0.03871
167      +,0.13581 ,0.07779 ,11.37206 ,0.56142 ,0.32245 ,0.09204
168      +,0.14041 ,0.08021 ,12.19679 ,0.60261 ,0.36566 ,0.13906
169      +,0.14471 ,0.08247 ,12.93254 ,0.64159 ,0.40671 ,0.18416
170      +,0.14874 ,0.08457 ,13.58909 ,0.67860 ,0.44562 ,0.22672
171      +,0.15251 ,0.08653 ,14.16474 ,0.71323 ,0.48204 ,0.26653
172      +,0.15608 ,0.08838 ,14.68590 ,0.74625 ,0.51677 ,0.30442
173      +,0.15947 ,0.09014 ,15.16173 ,0.77790 ,0.55002 ,0.34064
174      +,0.16267 ,0.09179 ,15.58031 ,0.80750 ,0.58116 ,0.37456
175      +,0.16571 ,0.09335 ,15.95924 ,0.83568 ,0.61080 ,0.40682
176      +,0.16863 ,0.09485 ,16.30945 ,0.86284 ,0.63934 ,0.43784
177      +,0.17138 ,0.09626 ,16.61215 ,0.88800 ,0.66584 ,0.46668
178      +,0.17405 ,0.09762 ,16.90060 ,0.91263 ,0.69175 ,0.49483
179      +,0.17657 ,0.09891 ,17.14687 ,0.93537 ,0.71572 ,0.52092/
180       DATA ((F(I,9,K),I=1,6),K=1,19)/
181      + 0.12517 ,0.07304  ,3.16782 ,0.18474 ,0.01482 ,0.00000
182      +,0.13496 ,0.07825  ,4.66178 ,0.24621 ,0.06197 ,0.00000
183      +,0.14348 ,0.08275  ,5.89905 ,0.30548 ,0.10740 ,0.00000
184      +,0.15103 ,0.08672  ,6.95063 ,0.36186 ,0.15059 ,0.00000
185      +,0.15776 ,0.09023  ,7.82827 ,0.41290 ,0.19069 ,0.00390
186      +,0.16387 ,0.09341  ,8.58482 ,0.45310 ,0.22836 ,0.03080
187      +,0.16948 ,0.09632  ,9.24002 ,0.48523 ,0.26372 ,0.07285
188      +,0.17467 ,0.09899  ,9.81034 ,0.51634 ,0.29693 ,0.10948
189      +,0.17948 ,0.10146 ,10.30921 ,0.54545 ,0.32813 ,0.14424
190      +,0.18398 ,0.10376 ,10.74565 ,0.57278 ,0.35741 ,0.17673
191      +,0.18816 ,0.10589 ,11.11981 ,0.59808 ,0.38455 ,0.20686
192      +,0.19210 ,0.10789 ,11.45221 ,0.62199 ,0.41020 ,0.23529
193      +,0.19582 ,0.10977 ,11.75034 ,0.64471 ,0.43457 ,0.26227
194      +,0.19932 ,0.11153 ,12.00604 ,0.66576 ,0.45718 ,0.28733
195      +,0.20263 ,0.11320 ,12.23267 ,0.68563 ,0.47855 ,0.31100
196      +,0.20580 ,0.11478 ,12.43855 ,0.70464 ,0.49899 ,0.33363
197      +,0.20877 ,0.11627 ,12.61033 ,0.72208 ,0.51781 ,0.35450
198      +,0.21164 ,0.11770 ,12.77227 ,0.73908 ,0.53611 ,0.37476
199      +,0.21434 ,0.11904 ,12.90444 ,0.75459 ,0.55289 ,0.39341/
200       DATA ((F(I,10,K),I=1,6),K=1,19)/
201      + 0.14920 ,0.08657  ,3.06677 ,0.18082 ,0.01351 ,0.00000
202      +,0.16002 ,0.09225  ,4.31332 ,0.23524 ,0.05562 ,0.00000
203      +,0.16936 ,0.09712  ,5.32473 ,0.28656 ,0.09529 ,0.00000
204      +,0.17759 ,0.10138  ,6.16670 ,0.33454 ,0.13237 ,0.00000
205      +,0.18488 ,0.10513  ,6.85556 ,0.37734 ,0.16632 ,0.00331
206      +,0.19146 ,0.10849  ,7.43841 ,0.41053 ,0.19782 ,0.02597
207      +,0.19747 ,0.11155  ,7.93402 ,0.43662 ,0.22709 ,0.06119
208      +,0.20300 ,0.11435  ,8.35765 ,0.46165 ,0.25430 ,0.09156
209      +,0.20810 ,0.11692  ,8.72154 ,0.48484 ,0.27966 ,0.12015
210      +,0.21285 ,0.11930  ,9.03396 ,0.50643 ,0.30325 ,0.14668
211      +,0.21724 ,0.12149  ,9.29576 ,0.52622 ,0.32494 ,0.17110
212      +,0.22136 ,0.12353  ,9.52407 ,0.54479 ,0.34530 ,0.19399
213      +,0.22524 ,0.12545  ,9.72514 ,0.56230 ,0.36451 ,0.21558
214      +,0.22886 ,0.12724  ,9.89275 ,0.57839 ,0.38222 ,0.23552
215      +,0.23229 ,0.12892 ,10.03788 ,0.59347 ,0.39884 ,0.25424
216      +,0.23555 ,0.13052 ,10.16718 ,0.60781 ,0.41466 ,0.27204
217      +,0.23860 ,0.13200 ,10.27027 ,0.62085 ,0.42911 ,0.28837
218      +,0.24154 ,0.13343 ,10.36623 ,0.63350 ,0.44311 ,0.30416
219      +,0.24429 ,0.13476 ,10.43972 ,0.64494 ,0.45586 ,0.31860/
220       DATA ((F(I,11,K),I=1,6),K=1,19)/
221      + 0.17075 ,0.09863  ,2.98778 ,0.17764 ,0.01253 ,0.00000
222      +,0.18230 ,0.10462  ,4.06061 ,0.22691 ,0.05099 ,0.00000
223      +,0.19221 ,0.10971  ,4.91322 ,0.27250 ,0.08656 ,0.00000
224      +,0.20088 ,0.11413  ,5.60962 ,0.31451 ,0.11932 ,0.00000
225      +,0.20852 ,0.11800  ,6.16891 ,0.35152 ,0.14896 ,0.00290
226      +,0.21538 ,0.12145  ,6.63392 ,0.37980 ,0.17618 ,0.02261
227      +,0.22161 ,0.12457  ,7.02242 ,0.40169 ,0.20124 ,0.05309
228      +,0.22732 ,0.12740  ,7.34859 ,0.42253 ,0.22435 ,0.07915
229      +,0.23257 ,0.13000  ,7.62366 ,0.44167 ,0.24571 ,0.10352
230      +,0.23742 ,0.13238  ,7.85527 ,0.45934 ,0.26545 ,0.12599
231      +,0.24190 ,0.13457  ,8.04465 ,0.47540 ,0.28347 ,0.14654
232      +,0.24607 ,0.13660  ,8.20636 ,0.49036 ,0.30028 ,0.16571
233      +,0.25000 ,0.13850  ,8.34583 ,0.50438 ,0.31605 ,0.18368
234      +,0.25365 ,0.14026  ,8.45816 ,0.51715 ,0.33048 ,0.20019
235      +,0.25709 ,0.14191  ,8.55251 ,0.52905 ,0.34396 ,0.21562
236      +,0.26036 ,0.14346  ,8.63445 ,0.54029 ,0.35673 ,0.23023
237      +,0.26339 ,0.14490  ,8.69555 ,0.55043 ,0.36832 ,0.24355
238      +,0.26631 ,0.14628  ,8.75144 ,0.56022 ,0.37951 ,0.25640
239      +,0.26903 ,0.14756  ,8.78970 ,0.56899 ,0.38962 ,0.26807/
240       DATA ((F(I,12,K),I=1,6),K=1,19)/
241      + 0.25682 ,0.14604  ,2.70961 ,0.16371 ,0.00951 ,0.00000
242      +,0.26992 ,0.15242  ,3.31845 ,0.19769 ,0.03730 ,0.00000
243      +,0.28083 ,0.15765  ,3.76570 ,0.22726 ,0.06152 ,0.00000
244      +,0.29015 ,0.16206  ,4.10327 ,0.25315 ,0.08279 ,0.00000
245      +,0.29815 ,0.16580  ,4.35222 ,0.27493 ,0.10126 ,0.00184
246      +,0.30518 ,0.16904  ,4.54225 ,0.29062 ,0.11763 ,0.01406
247      +,0.31142 ,0.17188  ,4.68676 ,0.30196 ,0.13222 ,0.03264
248      +,0.31702 ,0.17440  ,4.79590 ,0.31244 ,0.14528 ,0.04809
249      +,0.32207 ,0.17664  ,4.87748 ,0.32171 ,0.15703 ,0.06219
250      +,0.32664 ,0.17865  ,4.93666 ,0.32998 ,0.16760 ,0.07490
251      +,0.33077 ,0.18043  ,4.97491 ,0.33721 ,0.17700 ,0.08628
252      +,0.33455 ,0.18205  ,5.00032 ,0.34374 ,0.18556 ,0.09669
253      +,0.33805 ,0.18353  ,5.01604 ,0.34967 ,0.19343 ,0.10627
254      +,0.34123 ,0.18486  ,5.01981 ,0.35486 ,0.20044 ,0.11490
255      +,0.34417 ,0.18607  ,5.01640 ,0.35953 ,0.20686 ,0.12282
256      +,0.34693 ,0.18719  ,5.00867 ,0.36384 ,0.21283 ,0.13021
257      +,0.34942 ,0.18819  ,4.99251 ,0.36752 ,0.21809 ,0.13682
258      +,0.35180 ,0.18913  ,4.97562 ,0.37102 ,0.22310 ,0.14310
259      +,0.35395 ,0.18996  ,4.95183 ,0.37396 ,0.22750 ,0.14871/
260       DATA ((F(I,13,K),I=1,6),K=1,19)/
261      + 0.37532 ,0.20892  ,2.34398 ,0.14200 ,0.00661 ,0.00000
262      +,0.38685 ,0.21359  ,2.59826 ,0.16215 ,0.02494 ,0.00000
263      +,0.39591 ,0.21710  ,2.75444 ,0.17832 ,0.03986 ,0.00000
264      +,0.40323 ,0.21980  ,2.84958 ,0.19151 ,0.05223 ,0.00000
265      +,0.40914 ,0.22186  ,2.90002 ,0.20182 ,0.06244 ,0.00105
266      +,0.41405 ,0.22347  ,2.92327 ,0.20839 ,0.07109 ,0.00787
267      +,0.41817 ,0.22472  ,2.92715 ,0.21239 ,0.07847 ,0.01802
268      +,0.42165 ,0.22570  ,2.91733 ,0.21586 ,0.08481 ,0.02617
269      +,0.42460 ,0.22645  ,2.89795 ,0.21867 ,0.09030 ,0.03339
270      +,0.42710 ,0.22702  ,2.87154 ,0.22093 ,0.09505 ,0.03972
271      +,0.42918 ,0.22739  ,2.83885 ,0.22266 ,0.09911 ,0.04523
272      +,0.43096 ,0.22766  ,2.80351 ,0.22405 ,0.10268 ,0.05014
273      +,0.43250 ,0.22783  ,2.76679 ,0.22517 ,0.10585 ,0.05455
274      +,0.43375 ,0.22789  ,2.72761 ,0.22594 ,0.10856 ,0.05843
275      +,0.43481 ,0.22787  ,2.68786 ,0.22650 ,0.11095 ,0.06190
276      +,0.43572 ,0.22781  ,2.64861 ,0.22692 ,0.11310 ,0.06507
277      +,0.43641 ,0.22765  ,2.60799 ,0.22707 ,0.11489 ,0.06782
278      +,0.43704 ,0.22748  ,2.56909 ,0.22718 ,0.11657 ,0.07041
279      +,0.43746 ,0.22723  ,2.52925 ,0.22705 ,0.11794 ,0.07263/
280       DATA ((F(I,14,K),I=1,6),K=1,19)/
281      + 0.45722 ,0.24978  ,2.06168 ,0.12388 ,0.00497 ,0.00000
282      +,0.46489 ,0.25162  ,2.15793 ,0.13678 ,0.01832 ,0.00000
283      +,0.47029 ,0.25255  ,2.19391 ,0.14643 ,0.02870 ,0.00000
284      +,0.47416 ,0.25289  ,2.19600 ,0.15379 ,0.03697 ,0.00000
285      +,0.47683 ,0.25279  ,2.17555 ,0.15908 ,0.04354 ,0.00070
286      +,0.47868 ,0.25240  ,2.14331 ,0.16185 ,0.04892 ,0.00516
287      +,0.47989 ,0.25179  ,2.10379 ,0.16294 ,0.05335 ,0.01172
288      +,0.48060 ,0.25103  ,2.06008 ,0.16373 ,0.05705 ,0.01686
289      +,0.48093 ,0.25014  ,2.01427 ,0.16413 ,0.06014 ,0.02131
290      +,0.48094 ,0.24917  ,1.96762 ,0.16424 ,0.06273 ,0.02514
291      +,0.48063 ,0.24809  ,1.92021 ,0.16407 ,0.06486 ,0.02840
292      +,0.48013 ,0.24698  ,1.87387 ,0.16373 ,0.06667 ,0.03125
293      +,0.47949 ,0.24585  ,1.82907 ,0.16328 ,0.06823 ,0.03377
294      +,0.47866 ,0.24468  ,1.78496 ,0.16266 ,0.06950 ,0.03593
295      +,0.47772 ,0.24348  ,1.74238 ,0.16196 ,0.07057 ,0.03784
296      +,0.47674 ,0.24230  ,1.70174 ,0.16121 ,0.07150 ,0.03955
297      +,0.47558 ,0.24108  ,1.66189 ,0.16034 ,0.07221 ,0.04100
298      +,0.47444 ,0.23990  ,1.62431 ,0.15949 ,0.07286 ,0.04233
299      +,0.47316 ,0.23868  ,1.58749 ,0.15854 ,0.07333 ,0.04346/
300       DATA ((F(I,15,K),I=1,6),K=1,19)/
301      + 0.51661 ,0.27685  ,1.82201 ,0.10815 ,0.00387 ,0.00000
302      +,0.51951 ,0.27556  ,1.83065 ,0.11650 ,0.01399 ,-0.00001
303      +,0.52064 ,0.27375  ,1.80458 ,0.12227 ,0.02158 ,0.00000
304      +,0.52063 ,0.27166  ,1.76194 ,0.12631 ,0.02744 ,0.00000
305      +,0.51977 ,0.26938  ,1.71001 ,0.12885 ,0.03195 ,0.00049
306      +,0.51837 ,0.26702  ,1.65522 ,0.12963 ,0.03553 ,0.00362
307      +,0.51657 ,0.26462  ,1.59980 ,0.12928 ,0.03839 ,0.00816
308      +,0.51448 ,0.26221  ,1.54520 ,0.12879 ,0.04071 ,0.01165
309      +,0.51218 ,0.25982  ,1.49234 ,0.12809 ,0.04259 ,0.01462
310      +,0.50973 ,0.25744  ,1.44158 ,0.12724 ,0.04411 ,0.01713
311      +,0.50713 ,0.25506  ,1.39269 ,0.12624 ,0.04530 ,0.01923
312      +,0.50446 ,0.25273  ,1.34649 ,0.12519 ,0.04629 ,0.02104
313      +,0.50178 ,0.25048  ,1.30300 ,0.12411 ,0.04710 ,0.02262
314      +,0.49901 ,0.24824  ,1.26150 ,0.12296 ,0.04771 ,0.02395
315      +,0.49624 ,0.24606  ,1.22233 ,0.12179 ,0.04820 ,0.02509
316      +,0.49351 ,0.24394  ,1.18553 ,0.12063 ,0.04860 ,0.02611
317      +,0.49071 ,0.24184  ,1.15034 ,0.11942 ,0.04887 ,0.02695
318      +,0.48800 ,0.23983  ,1.11745 ,0.11826 ,0.04910 ,0.02771
319      +,0.48522 ,0.23781  ,1.08592 ,0.11707 ,0.04921 ,0.02834/
320       DATA ((F(I,16,K),I=1,6),K=1,19)/
321      + 0.55971 ,0.29391  ,1.61216 ,0.09432 ,0.00306 ,0.00000
322      +,0.55754 ,0.28950  ,1.56854 ,0.09962 ,0.01091 ,-0.00001
323      +,0.55423 ,0.28502  ,1.50820 ,0.10289 ,0.01661 ,0.00000
324      +,0.55030 ,0.28063  ,1.44298 ,0.10487 ,0.02089 ,0.00000
325      +,0.54592 ,0.27634  ,1.37692 ,0.10578 ,0.02409 ,0.00036
326      +,0.54136 ,0.27219  ,1.31346 ,0.10545 ,0.02656 ,0.00263
327      +,0.53667 ,0.26819  ,1.25327 ,0.10435 ,0.02849 ,0.00590
328      +,0.53192 ,0.26434  ,1.19672 ,0.10321 ,0.03000 ,0.00837
329      +,0.52718 ,0.26063  ,1.14394 ,0.10198 ,0.03117 ,0.01043
330      +,0.52248 ,0.25705  ,1.09476 ,0.10069 ,0.03210 ,0.01216
331      +,0.51777 ,0.25358  ,1.04871 ,0.09934 ,0.03279 ,0.01358
332      +,0.51315 ,0.25025  ,1.00605 ,0.09800 ,0.03333 ,0.01479
333      +,0.50864 ,0.24706  ,0.96654 ,0.09668 ,0.03375 ,0.01582
334      +,0.50416 ,0.24396  ,0.92955 ,0.09535 ,0.03404 ,0.01667
335      +,0.49979 ,0.24098  ,0.89512 ,0.09403 ,0.03424 ,0.01740
336      +,0.49555 ,0.23811  ,0.86314 ,0.09276 ,0.03438 ,0.01804
337      +,0.49133 ,0.23532  ,0.83302 ,0.09147 ,0.03444 ,0.01855
338      +,0.48728 ,0.23265  ,0.80507 ,0.09025 ,0.03448 ,0.01901
339      +,0.48323 ,0.23003  ,0.77864 ,0.08903 ,0.03444 ,0.01938/
340       DATA ((F(I,17,K),I=1,6),K=1,19)/
341      + 0.59603 ,0.30454  ,1.38278 ,0.07932 ,0.00233 ,0.00001
342      +,0.58753 ,0.29648  ,1.30184 ,0.08207 ,0.00815 ,0.00001
343      +,0.57880 ,0.28899  ,1.21971 ,0.08336 ,0.01224 ,0.00001
344      +,0.57017 ,0.28205  ,1.14229 ,0.08379 ,0.01520 ,0.00001
345      +,0.56166 ,0.27559  ,1.07057 ,0.08351 ,0.01734 ,0.00026
346      +,0.55343 ,0.26954  ,1.00542 ,0.08245 ,0.01895 ,0.00183
347      +,0.54545 ,0.26387  ,0.94625 ,0.08092 ,0.02016 ,0.00407
348      +,0.53773 ,0.25853  ,0.89253 ,0.07943 ,0.02106 ,0.00573
349      +,0.53027 ,0.25348  ,0.84378 ,0.07793 ,0.02174 ,0.00710
350      +,0.52309 ,0.24871  ,0.79944 ,0.07646 ,0.02224 ,0.00822
351      +,0.51610 ,0.24417  ,0.75886 ,0.07499 ,0.02258 ,0.00913
352      +,0.50939 ,0.23986  ,0.72192 ,0.07356 ,0.02283 ,0.00988
353      +,0.50294 ,0.23578  ,0.68822 ,0.07219 ,0.02299 ,0.01052
354      +,0.49668 ,0.23187  ,0.65717 ,0.07085 ,0.02308 ,0.01104
355      +,0.49063 ,0.22814  ,0.62864 ,0.06955 ,0.02311 ,0.01146
356      +,0.48484 ,0.22460  ,0.60241 ,0.06831 ,0.02311 ,0.01183
357      +,0.47916 ,0.22118  ,0.57803 ,0.06708 ,0.02305 ,0.01212
358      +,0.47374 ,0.21794  ,0.55557 ,0.06593 ,0.02298 ,0.01238
359      +,0.46841 ,0.21479  ,0.53462 ,0.06479 ,0.02288 ,0.01257/
360       DATA ((F(I,18,K),I=1,6),K=1,19)/
361      + 0.61690 ,0.30599  ,1.18362 ,0.06646 ,0.00178 ,0.00001
362      +,0.60235 ,0.29478  ,1.08386 ,0.06757 ,0.00614 ,0.00001
363      +,0.58859 ,0.28473  ,0.99322 ,0.06767 ,0.00910 ,0.00001
364      +,0.57567 ,0.27568  ,0.91319 ,0.06720 ,0.01120 ,0.00000
365      +,0.56346 ,0.26746  ,0.84262 ,0.06630 ,0.01267 ,0.00019
366      +,0.55200 ,0.25991  ,0.78069 ,0.06490 ,0.01373 ,0.00130
367      +,0.54116 ,0.25296  ,0.72600 ,0.06324 ,0.01450 ,0.00286
368      +,0.53090 ,0.24650  ,0.67749 ,0.06166 ,0.01505 ,0.00401
369      +,0.52116 ,0.24048  ,0.63431 ,0.06013 ,0.01544 ,0.00494
370      +,0.51190 ,0.23485  ,0.59571 ,0.05866 ,0.01570 ,0.00569
371      +,0.50304 ,0.22954  ,0.56100 ,0.05723 ,0.01587 ,0.00628
372      +,0.49462 ,0.22455  ,0.52979 ,0.05587 ,0.01596 ,0.00676
373      +,0.48663 ,0.21987  ,0.50164 ,0.05458 ,0.01600 ,0.00717
374      +,0.47894 ,0.21542  ,0.47603 ,0.05334 ,0.01599 ,0.00749
375      +,0.47159 ,0.21120  ,0.45272 ,0.05215 ,0.01595 ,0.00776
376      +,0.46460 ,0.20722  ,0.43147 ,0.05102 ,0.01589 ,0.00797
377      +,0.45781 ,0.20341  ,0.41194 ,0.04993 ,0.01579 ,0.00814
378      +,0.45137 ,0.19981  ,0.39404 ,0.04889 ,0.01569 ,0.00828
379      +,0.44510 ,0.19633  ,0.37750 ,0.04789 ,0.01557 ,0.00839/
380       DATA ((F(I,19,K),I=1,6),K=1,19)/
381      + 0.62534 ,0.30038  ,1.01012 ,0.05544 ,0.00136 ,0.00001
382      +,0.60525 ,0.28657  ,0.90277 ,0.05550 ,0.00465 ,0.00000
383      +,0.58695 ,0.27449  ,0.81125 ,0.05487 ,0.00683 ,0.00000
384      +,0.57026 ,0.26381  ,0.73375 ,0.05392 ,0.00831 ,0.00000
385      +,0.55486 ,0.25426  ,0.66767 ,0.05271 ,0.00933 ,0.00013
386      +,0.54063 ,0.24563  ,0.61111 ,0.05121 ,0.01004 ,0.00093
387      +,0.52742 ,0.23774  ,0.56221 ,0.04958 ,0.01053 ,0.00204
388      +,0.51505 ,0.23050  ,0.51960 ,0.04805 ,0.01086 ,0.00284
389      +,0.50346 ,0.22382  ,0.48229 ,0.04661 ,0.01108 ,0.00348
390      +,0.49256 ,0.21763  ,0.44941 ,0.04523 ,0.01122 ,0.00399
391      +,0.48223 ,0.21184  ,0.42019 ,0.04392 ,0.01128 ,0.00438
392      +,0.47250 ,0.20643  ,0.39421 ,0.04269 ,0.01130 ,0.00470
393      +,0.46332 ,0.20138  ,0.37100 ,0.04153 ,0.01128 ,0.00496
394      +,0.45457 ,0.19663  ,0.35011 ,0.04043 ,0.01123 ,0.00517
395      +,0.44625 ,0.19215  ,0.33124 ,0.03938 ,0.01116 ,0.00533
396      +,0.43837 ,0.18794  ,0.31415 ,0.03840 ,0.01107 ,0.00546
397      +,0.43078 ,0.18392  ,0.29859 ,0.03745 ,0.01097 ,0.00556
398      +,0.42360 ,0.18015  ,0.28441 ,0.03657 ,0.01087 ,0.00564
399      +,0.41665 ,0.17653  ,0.27141 ,0.03571 ,0.01075 ,0.00569/
400       DATA ((F(I,20,K),I=1,6),K=1,19)/
401      + 0.62363 ,0.28940  ,0.85892 ,0.04602 ,0.00105 ,0.00001
402      +,0.59860 ,0.27357  ,0.75105 ,0.04543 ,0.00353 ,0.00000
403      +,0.57637 ,0.25997  ,0.66302 ,0.04440 ,0.00513 ,0.00000
404      +,0.55645 ,0.24813  ,0.59081 ,0.04321 ,0.00620 ,0.00000
405      +,0.53838 ,0.23766  ,0.53080 ,0.04190 ,0.00690 ,0.00010
406      +,0.52191 ,0.22831  ,0.48047 ,0.04042 ,0.00737 ,0.00067
407      +,0.50677 ,0.21985  ,0.43769 ,0.03890 ,0.00769 ,0.00147
408      +,0.49275 ,0.21214  ,0.40097 ,0.03750 ,0.00789 ,0.00203
409      +,0.47972 ,0.20508  ,0.36923 ,0.03618 ,0.00801 ,0.00248
410      +,0.46757 ,0.19859  ,0.34158 ,0.03495 ,0.00807 ,0.00283
411      +,0.45615 ,0.19255  ,0.31729 ,0.03379 ,0.00808 ,0.00309
412      +,0.44545 ,0.18696  ,0.29589 ,0.03271 ,0.00806 ,0.00330
413      +,0.43542 ,0.18176  ,0.27692 ,0.03170 ,0.00802 ,0.00347
414      +,0.42592 ,0.17688  ,0.26000 ,0.03075 ,0.00795 ,0.00360
415      +,0.41693 ,0.17232  ,0.24483 ,0.02985 ,0.00787 ,0.00371
416      +,0.40846 ,0.16804  ,0.23117 ,0.02902 ,0.00779 ,0.00379
417      +,0.40035 ,0.16399  ,0.21883 ,0.02822 ,0.00769 ,0.00384
418      +,0.39270 ,0.16019  ,0.20763 ,0.02747 ,0.00760 ,0.00389
419      +,0.38534 ,0.15657  ,0.19743 ,0.02675 ,0.00750 ,0.00391/
420       DATA ((F(I,21,K),I=1,6),K=1,19)/
421      + 0.61354 ,0.27443  ,0.72732 ,0.03801 ,0.00080 ,-0.00001
422      +,0.58427 ,0.25716  ,0.62335 ,0.03704 ,0.00268 ,0.00000
423      +,0.55870 ,0.24256  ,0.54130 ,0.03583 ,0.00386 ,0.00000
424      +,0.53615 ,0.22999  ,0.47573 ,0.03455 ,0.00462 ,0.00000
425      +,0.51595 ,0.21898  ,0.42240 ,0.03325 ,0.00511 ,0.00007
426      +,0.49772 ,0.20923  ,0.37842 ,0.03188 ,0.00543 ,0.00048
427      +,0.48111 ,0.20049  ,0.34160 ,0.03051 ,0.00563 ,0.00106
428      +,0.46587 ,0.19258  ,0.31038 ,0.02925 ,0.00575 ,0.00146
429      +,0.45180 ,0.18539  ,0.28371 ,0.02809 ,0.00581 ,0.00177
430      +,0.43877 ,0.17881  ,0.26071 ,0.02702 ,0.00583 ,0.00201
431      +,0.42658 ,0.17274  ,0.24072 ,0.02602 ,0.00581 ,0.00219
432      +,0.41523 ,0.16714  ,0.22324 ,0.02510 ,0.00577 ,0.00233
433      +,0.40464 ,0.16196  ,0.20785 ,0.02424 ,0.00572 ,0.00245
434      +,0.39467 ,0.15712  ,0.19423 ,0.02343 ,0.00565 ,0.00253
435      +,0.38529 ,0.15261  ,0.18211 ,0.02268 ,0.00558 ,0.00259
436      +,0.37648 ,0.14841  ,0.17125 ,0.02197 ,0.00551 ,0.00264
437      +,0.36809 ,0.14444  ,0.16150 ,0.02130 ,0.00542 ,0.00267
438      +,0.36020 ,0.14073  ,0.15269 ,0.02068 ,0.00534 ,0.00269
439      +,0.35266 ,0.13720  ,0.14472 ,0.02009 ,0.00526 ,0.00271/
440       DATA ((F(I,22,K),I=1,6),K=1,19)/
441      + 0.59651 ,0.25654  ,0.61299 ,0.03120 ,0.00062 ,0.00000
442      +,0.56373 ,0.23839  ,0.51562 ,0.03004 ,0.00203 ,0.00000
443      +,0.53548 ,0.22324  ,0.44095 ,0.02877 ,0.00290 ,0.00000
444      +,0.51087 ,0.21032  ,0.38253 ,0.02751 ,0.00345 ,0.00001
445      +,0.48905 ,0.19912  ,0.33590 ,0.02628 ,0.00378 ,0.00005
446      +,0.46955 ,0.18928  ,0.29802 ,0.02505 ,0.00399 ,0.00036
447      +,0.45190 ,0.18052  ,0.26671 ,0.02384 ,0.00412 ,0.00077
448      +,0.43582 ,0.17264  ,0.24048 ,0.02276 ,0.00419 ,0.00105
449      +,0.42107 ,0.16552  ,0.21829 ,0.02176 ,0.00421 ,0.00127
450      +,0.40748 ,0.15905  ,0.19934 ,0.02084 ,0.00421 ,0.00143
451      +,0.39487 ,0.15310  ,0.18301 ,0.01999 ,0.00418 ,0.00156
452      +,0.38319 ,0.14764  ,0.16883 ,0.01921 ,0.00414 ,0.00165
453      +,0.37232 ,0.14261  ,0.15644 ,0.01849 ,0.00409 ,0.00173
454      +,0.36212 ,0.13794  ,0.14555 ,0.01782 ,0.00403 ,0.00178
455      +,0.35258 ,0.13360  ,0.13591 ,0.01719 ,0.00396 ,0.00182
456      +,0.34366 ,0.12956  ,0.12732 ,0.01661 ,0.00389 ,0.00185
457      +,0.33520 ,0.12576  ,0.11966 ,0.01606 ,0.00382 ,0.00186
458      +,0.32726 ,0.12222  ,0.11276 ,0.01555 ,0.00376 ,0.00188
459      +,0.31969 ,0.11888  ,0.10655 ,0.01507 ,0.00369 ,0.00188/
460       DATA ((F(I,23,K),I=1,6),K=1,19)/
461      + 0.57383 ,0.23675  ,0.51397 ,0.02546 ,0.00047 ,0.00000
462      +,0.53826 ,0.21823  ,0.42477 ,0.02423 ,0.00153 ,0.00000
463      +,0.50799 ,0.20293  ,0.35801 ,0.02300 ,0.00217 ,0.00000
464      +,0.48189 ,0.19001  ,0.30678 ,0.02181 ,0.00256 ,0.00001
465      +,0.45896 ,0.17890  ,0.26655 ,0.02070 ,0.00279 ,0.00004
466      +,0.43862 ,0.16921  ,0.23432 ,0.01961 ,0.00293 ,0.00026
467      +,0.42034 ,0.16065  ,0.20799 ,0.01858 ,0.00301 ,0.00055
468      +,0.40379 ,0.15298  ,0.18618 ,0.01765 ,0.00305 ,0.00076
469      +,0.38870 ,0.14610  ,0.16788 ,0.01680 ,0.00305 ,0.00091
470      +,0.37487 ,0.13987  ,0.15240 ,0.01603 ,0.00303 ,0.00102
471      +,0.36211 ,0.13417  ,0.13916 ,0.01532 ,0.00300 ,0.00111
472      +,0.35032 ,0.12897  ,0.12775 ,0.01467 ,0.00297 ,0.00117
473      +,0.33941 ,0.12419  ,0.11784 ,0.01408 ,0.00292 ,0.00122
474      +,0.32922 ,0.11977  ,0.10918 ,0.01352 ,0.00287 ,0.00126
475      +,0.31971 ,0.11568  ,0.10156 ,0.01301 ,0.00281 ,0.00128
476      +,0.31085 ,0.11189  ,0.09480 ,0.01253 ,0.00276 ,0.00130
477      +,0.30248 ,0.10834  ,0.08881 ,0.01209 ,0.00270 ,0.00130
478      +,0.29466 ,0.10503  ,0.08343 ,0.01167 ,0.00265 ,0.00131
479      +,0.28721 ,0.10192  ,0.07861 ,0.01129 ,0.00259 ,0.00131/
480       DATA ((F(I,24,K),I=1,6),K=1,19)/
481      + 0.54656 ,0.21581  ,0.42847 ,0.02063 ,0.00037 ,0.00001
482      +,0.50891 ,0.19737  ,0.34822 ,0.01943 ,0.00116 ,0.00001
483      +,0.47730 ,0.18227  ,0.28942 ,0.01827 ,0.00162 ,0.00001
484      +,0.45023 ,0.16964  ,0.24511 ,0.01720 ,0.00190 ,0.00001
485      +,0.42665 ,0.15887  ,0.21082 ,0.01621 ,0.00206 ,0.00003
486      +,0.40589 ,0.14954  ,0.18369 ,0.01527 ,0.00215 ,0.00019
487      +,0.38736 ,0.14133  ,0.16178 ,0.01440 ,0.00220 ,0.00041
488      +,0.37068 ,0.13404  ,0.14380 ,0.01361 ,0.00221 ,0.00055
489      +,0.35553 ,0.12751  ,0.12886 ,0.01291 ,0.00220 ,0.00065
490      +,0.34175 ,0.12163  ,0.11630 ,0.01227 ,0.00219 ,0.00073
491      +,0.32906 ,0.11629  ,0.10566 ,0.01169 ,0.00215 ,0.00079
492      +,0.31739 ,0.11142  ,0.09655 ,0.01116 ,0.00212 ,0.00083
493      +,0.30664 ,0.10697  ,0.08867 ,0.01067 ,0.00208 ,0.00086
494      +,0.29667 ,0.10287  ,0.08183 ,0.01021 ,0.00204 ,0.00088
495      +,0.28737 ,0.09909  ,0.07584 ,0.00980 ,0.00200 ,0.00090
496      +,0.27872 ,0.09559  ,0.07055 ,0.00942 ,0.00195 ,0.00091
497      +,0.27057 ,0.09233  ,0.06589 ,0.00906 ,0.00191 ,0.00092
498      +,0.26298 ,0.08931  ,0.06171 ,0.00873 ,0.00187 ,0.00092
499      +,0.25579 ,0.08646  ,0.05799 ,0.00842 ,0.00183 ,0.00091/
500       DATA ((F(I,25,K),I=1,6),K=1,19)/
501      + 0.51569 ,0.19443  ,0.35504 ,0.01659 ,0.00028 ,0.00001
502      +,0.47670 ,0.17644  ,0.28389 ,0.01546 ,0.00087 ,0.00001
503      +,0.44430 ,0.16186  ,0.23281 ,0.01441 ,0.00120 ,0.00001
504      +,0.41679 ,0.14976  ,0.19493 ,0.01347 ,0.00140 ,0.00001
505      +,0.39302 ,0.13951  ,0.16603 ,0.01262 ,0.00151 ,0.00002
506      +,0.37222 ,0.13069  ,0.14344 ,0.01183 ,0.00157 ,0.00014
507      +,0.35377 ,0.12298  ,0.12538 ,0.01109 ,0.00159 ,0.00029
508      +,0.33724 ,0.11615  ,0.11070 ,0.01044 ,0.00160 ,0.00039
509      +,0.32231 ,0.11008  ,0.09860 ,0.00986 ,0.00159 ,0.00047
510      +,0.30879 ,0.10463  ,0.08851 ,0.00934 ,0.00157 ,0.00052
511      +,0.29639 ,0.09971  ,0.08001 ,0.00887 ,0.00154 ,0.00056
512      +,0.28504 ,0.09524  ,0.07278 ,0.00844 ,0.00151 ,0.00059
513      +,0.27462 ,0.09116  ,0.06657 ,0.00804 ,0.00148 ,0.00061
514      +,0.26499 ,0.08742  ,0.06120 ,0.00768 ,0.00144 ,0.00062
515      +,0.25604 ,0.08399  ,0.05653 ,0.00735 ,0.00141 ,0.00063
516      +,0.24773 ,0.08082  ,0.05242 ,0.00704 ,0.00138 ,0.00064
517      +,0.23994 ,0.07787  ,0.04880 ,0.00676 ,0.00134 ,0.00064
518      +,0.23270 ,0.07515  ,0.04558 ,0.00650 ,0.00131 ,0.00064
519      +,0.22586 ,0.07259  ,0.04273 ,0.00625 ,0.00128 ,0.00063/
520       DATA ((F(I,26,K),I=1,6),K=1,19)/
521      + 0.48211 ,0.17317  ,0.29228 ,0.01325 ,0.00020 ,0.00000
522      +,0.44249 ,0.15597  ,0.23005 ,0.01222 ,0.00063 ,0.00000
523      +,0.40984 ,0.14214  ,0.18623 ,0.01130 ,0.00088 ,-0.00001
524      +,0.38237 ,0.13075  ,0.15420 ,0.01049 ,0.00102 ,0.00000
525      +,0.35881 ,0.12117  ,0.13011 ,0.00976 ,0.00109 ,0.00001
526      +,0.33831 ,0.11297  ,0.11147 ,0.00910 ,0.00113 ,0.00009
527      +,0.32023 ,0.10585  ,0.09673 ,0.00850 ,0.00114 ,0.00020
528      +,0.30410 ,0.09958  ,0.08484 ,0.00797 ,0.00114 ,0.00027
529      +,0.28963 ,0.09403  ,0.07513 ,0.00749 ,0.00113 ,0.00033
530      +,0.27656 ,0.08906  ,0.06709 ,0.00707 ,0.00111 ,0.00036
531      +,0.26465 ,0.08459  ,0.06036 ,0.00669 ,0.00109 ,0.00039
532      +,0.25378 ,0.08055  ,0.05467 ,0.00634 ,0.00107 ,0.00041
533      +,0.24383 ,0.07688  ,0.04980 ,0.00603 ,0.00104 ,0.00042
534      +,0.23463 ,0.07352  ,0.04562 ,0.00574 ,0.00101 ,0.00043
535      +,0.22614 ,0.07045  ,0.04200 ,0.00548 ,0.00099 ,0.00044
536      +,0.21828 ,0.06762  ,0.03883 ,0.00524 ,0.00096 ,0.00044
537      +,0.21094 ,0.06500  ,0.03606 ,0.00502 ,0.00094 ,0.00044
538      +,0.20412 ,0.06258  ,0.03360 ,0.00481 ,0.00091 ,0.00044
539      +,0.19772 ,0.06032  ,0.03141 ,0.00462 ,0.00088 ,0.00044/
540       DATA ((F(I,27,K),I=1,6),K=1,19)/
541      + 0.44659 ,0.15244  ,0.23884 ,0.01048 ,0.00015 ,0.00000
542      +,0.40698 ,0.13627  ,0.18512 ,0.00957 ,0.00046 ,0.00000
543      +,0.37463 ,0.12338  ,0.14796 ,0.00878 ,0.00064 ,-0.00001
544      +,0.34761 ,0.11284  ,0.12120 ,0.00809 ,0.00074 ,0.00000
545      +,0.32460 ,0.10404  ,0.10132 ,0.00748 ,0.00079 ,0.00001
546      +,0.30470 ,0.09655  ,0.08611 ,0.00694 ,0.00081 ,0.00007
547      +,0.28724 ,0.09007  ,0.07419 ,0.00645 ,0.00082 ,0.00014
548      +,0.27175 ,0.08440  ,0.06466 ,0.00602 ,0.00081 ,0.00019
549      +,0.25791 ,0.07940  ,0.05693 ,0.00564 ,0.00080 ,0.00023
550      +,0.24546 ,0.07495  ,0.05058 ,0.00530 ,0.00079 ,0.00026
551      +,0.23416 ,0.07096  ,0.04530 ,0.00500 ,0.00077 ,0.00028
552      +,0.22390 ,0.06736  ,0.04086 ,0.00473 ,0.00075 ,0.00029
553      +,0.21452 ,0.06411  ,0.03708 ,0.00448 ,0.00073 ,0.00029
554      +,0.20589 ,0.06114  ,0.03385 ,0.00426 ,0.00071 ,0.00030
555      +,0.19795 ,0.05843  ,0.03106 ,0.00405 ,0.00069 ,0.00030
556      +,0.19062 ,0.05595  ,0.02863 ,0.00387 ,0.00067 ,0.00030
557      +,0.18379 ,0.05365  ,0.02652 ,0.00369 ,0.00065 ,0.00030
558      +,0.17746 ,0.05154  ,0.02464 ,0.00353 ,0.00063 ,0.00030
559      +,0.17154 ,0.04957  ,0.02299 ,0.00339 ,0.00061 ,0.00030/
560       DATA ((F(I,28,K),I=1,6),K=1,19)/
561      + 0.40990 ,0.13265  ,0.19364 ,0.00822 ,0.00010 ,0.00000
562      +,0.37089 ,0.11769  ,0.14784 ,0.00743 ,0.00033 ,-0.00001
563      +,0.33932 ,0.10587  ,0.11669 ,0.00676 ,0.00046 ,-0.00001
564      +,0.31310 ,0.09628  ,0.09458 ,0.00619 ,0.00053 ,-0.00001
565      +,0.29097 ,0.08831  ,0.07835 ,0.00570 ,0.00056 ,0.00000
566      +,0.27194 ,0.08158  ,0.06606 ,0.00525 ,0.00058 ,0.00005
567      +,0.25529 ,0.07578  ,0.05652 ,0.00487 ,0.00058 ,0.00010
568      +,0.24061 ,0.07074  ,0.04896 ,0.00452 ,0.00057 ,0.00013
569      +,0.22757 ,0.06630  ,0.04286 ,0.00422 ,0.00056 ,0.00016
570      +,0.21587 ,0.06237  ,0.03789 ,0.00395 ,0.00055 ,0.00018
571      +,0.20530 ,0.05886  ,0.03380 ,0.00371 ,0.00054 ,0.00019
572      +,0.19573 ,0.05571  ,0.03036 ,0.00350 ,0.00052 ,0.00020
573      +,0.18701 ,0.05286  ,0.02744 ,0.00331 ,0.00051 ,0.00020
574      +,0.17902 ,0.05028  ,0.02497 ,0.00314 ,0.00049 ,0.00021
575      +,0.17169 ,0.04793  ,0.02284 ,0.00298 ,0.00047 ,0.00021
576      +,0.16494 ,0.04578  ,0.02099 ,0.00283 ,0.00046 ,0.00021
577      +,0.15867 ,0.04379  ,0.01939 ,0.00270 ,0.00044 ,0.00021
578      +,0.15288 ,0.04197  ,0.01797 ,0.00258 ,0.00043 ,0.00020
579      +,0.14746 ,0.04028  ,0.01673 ,0.00246 ,0.00042 ,0.00020/
580       DATA ((F(I,29,K),I=1,6),K=1,19)/
581      + 0.37267 ,0.11403  ,0.15564 ,0.00637 ,0.00007 ,0.00000
582      +,0.33480 ,0.10042  ,0.11707 ,0.00571 ,0.00024 ,-0.00001
583      +,0.30440 ,0.08975  ,0.09127 ,0.00515 ,0.00033 ,-0.00001
584      +,0.27935 ,0.08116  ,0.07320 ,0.00469 ,0.00037 ,0.00000
585      +,0.25834 ,0.07407  ,0.06010 ,0.00429 ,0.00039 ,0.00000
586      +,0.24036 ,0.06810  ,0.05028 ,0.00393 ,0.00040 ,0.00003
587      +,0.22473 ,0.06300  ,0.04272 ,0.00363 ,0.00040 ,0.00007
588      +,0.21101 ,0.05857  ,0.03678 ,0.00336 ,0.00040 ,0.00009
589      +,0.19886 ,0.05470  ,0.03203 ,0.00312 ,0.00039 ,0.00011
590      +,0.18802 ,0.05128  ,0.02818 ,0.00291 ,0.00038 ,0.00012
591      +,0.17826 ,0.04823  ,0.02502 ,0.00273 ,0.00037 ,0.00013
592      +,0.16945 ,0.04551  ,0.02239 ,0.00256 ,0.00036 ,0.00014
593      +,0.16146 ,0.04307  ,0.02017 ,0.00242 ,0.00035 ,0.00014
594      +,0.15416 ,0.04085  ,0.01829 ,0.00228 ,0.00033 ,0.00014
595      +,0.14747 ,0.03884  ,0.01668 ,0.00216 ,0.00032 ,0.00014
596      +,0.14134 ,0.03700  ,0.01529 ,0.00205 ,0.00031 ,0.00014
597      +,0.13566 ,0.03532  ,0.01409 ,0.00195 ,0.00030 ,0.00014
598      +,0.13042 ,0.03377  ,0.01303 ,0.00186 ,0.00029 ,0.00014
599      +,0.12554 ,0.03234  ,0.01210 ,0.00177 ,0.00028 ,0.00014/
600       DATA ((F(I,30,K),I=1,6),K=1,19)/
601      + 0.33554 ,0.09682  ,0.12392 ,0.00490 ,0.00005 ,0.00000
602      +,0.29929 ,0.08463  ,0.09185 ,0.00435 ,0.00017 ,0.00000
603      +,0.27043 ,0.07515  ,0.07073 ,0.00389 ,0.00023 ,0.00000
604      +,0.24682 ,0.06757  ,0.05615 ,0.00351 ,0.00026 ,0.00000
605      +,0.22710 ,0.06135  ,0.04568 ,0.00319 ,0.00028 ,0.00000
606      +,0.21034 ,0.05615  ,0.03793 ,0.00292 ,0.00028 ,0.00002
607      +,0.19586 ,0.05172  ,0.03201 ,0.00268 ,0.00028 ,0.00005
608      +,0.18321 ,0.04790  ,0.02740 ,0.00247 ,0.00027 ,0.00006
609      +,0.17205 ,0.04456  ,0.02373 ,0.00229 ,0.00027 ,0.00007
610      +,0.16212 ,0.04163  ,0.02077 ,0.00213 ,0.00026 ,0.00008
611      +,0.15323 ,0.03904  ,0.01836 ,0.00199 ,0.00025 ,0.00009
612      +,0.14523 ,0.03672  ,0.01637 ,0.00186 ,0.00024 ,0.00009
613      +,0.13800 ,0.03465  ,0.01469 ,0.00175 ,0.00023 ,0.00009
614      +,0.13142 ,0.03278  ,0.01329 ,0.00165 ,0.00023 ,0.00009
615      +,0.12540 ,0.03108  ,0.01208 ,0.00155 ,0.00022 ,0.00009
616      +,0.11989 ,0.02954  ,0.01104 ,0.00147 ,0.00021 ,0.00010
617      +,0.11480 ,0.02813  ,0.01015 ,0.00140 ,0.00020 ,0.00009
618      +,0.11012 ,0.02684  ,0.00937 ,0.00133 ,0.00019 ,0.00009
619      +,0.10578 ,0.02565  ,0.00868 ,0.00127 ,0.00019 ,0.00009/
620       DATA ((F(I,31,K),I=1,6),K=1,19)/
621      + 0.29901 ,0.08112  ,0.09765 ,0.00371 ,0.00004 ,0.00000
622      +,0.26477 ,0.07038  ,0.07131 ,0.00326 ,0.00012 ,0.00000
623      +,0.23773 ,0.06210  ,0.05425 ,0.00290 ,0.00016 ,0.00000
624      +,0.21577 ,0.05551  ,0.04262 ,0.00260 ,0.00018 ,0.00000
625      +,0.19755 ,0.05014  ,0.03437 ,0.00235 ,0.00019 ,0.00000
626      +,0.18214 ,0.04568  ,0.02832 ,0.00214 ,0.00019 ,0.00001
627      +,0.16890 ,0.04189  ,0.02374 ,0.00195 ,0.00019 ,0.00003
628      +,0.15738 ,0.03864  ,0.02020 ,0.00179 ,0.00019 ,0.00004
629      +,0.14726 ,0.03582  ,0.01740 ,0.00165 ,0.00018 ,0.00005
630      +,0.13830 ,0.03335  ,0.01516 ,0.00153 ,0.00017 ,0.00005
631      +,0.13030 ,0.03117  ,0.01335 ,0.00142 ,0.00017 ,0.00006
632      +,0.12313 ,0.02923  ,0.01185 ,0.00133 ,0.00016 ,0.00006
633      +,0.11667 ,0.02750  ,0.01061 ,0.00125 ,0.00016 ,0.00006
634      +,0.11081 ,0.02594  ,0.00956 ,0.00117 ,0.00015 ,0.00006
635      +,0.10546 ,0.02454  ,0.00867 ,0.00110 ,0.00015 ,0.00006
636      +,0.10058 ,0.02327  ,0.00790 ,0.00104 ,0.00014 ,0.00006
637      +,0.09609 ,0.02210  ,0.00725 ,0.00099 ,0.00013 ,0.00006
638      +,0.09198 ,0.02104  ,0.00667 ,0.00094 ,0.00013 ,0.00006
639      +,0.08816 ,0.02006  ,0.00617 ,0.00089 ,0.00012 ,0.00006/
640       DATA ((F(I,32,K),I=1,6),K=1,19)/
641      + 0.26359 ,0.06703  ,0.07607 ,0.00277 ,0.00003 ,0.00000
642      +,0.23168 ,0.05771  ,0.05473 ,0.00242 ,0.00008 ,0.00000
643      +,0.20668 ,0.05058  ,0.04112 ,0.00213 ,0.00011 ,0.00000
644      +,0.18653 ,0.04496  ,0.03198 ,0.00190 ,0.00012 ,0.00000
645      +,0.16991 ,0.04040  ,0.02556 ,0.00171 ,0.00013 ,0.00000
646      +,0.15594 ,0.03663  ,0.02090 ,0.00154 ,0.00013 ,0.00001
647      +,0.14400 ,0.03344  ,0.01740 ,0.00140 ,0.00013 ,0.00002
648      +,0.13364 ,0.03073  ,0.01472 ,0.00128 ,0.00013 ,0.00003
649      +,0.12459 ,0.02838  ,0.01262 ,0.00118 ,0.00012 ,0.00004
650      +,0.11661 ,0.02633  ,0.01094 ,0.00109 ,0.00012 ,0.00004
651      +,0.10951 ,0.02452  ,0.00959 ,0.00101 ,0.00011 ,0.00004
652      +,0.10317 ,0.02293  ,0.00849 ,0.00094 ,0.00011 ,0.00004
653      +,0.09748 ,0.02151  ,0.00757 ,0.00088 ,0.00010 ,0.00004
654      +,0.09233 ,0.02024  ,0.00680 ,0.00082 ,0.00010 ,0.00004
655      +,0.08765 ,0.01909  ,0.00615 ,0.00077 ,0.00009 ,0.00004
656      +,0.08340 ,0.01805  ,0.00559 ,0.00073 ,0.00009 ,0.00004
657      +,0.07949 ,0.01710  ,0.00511 ,0.00069 ,0.00009 ,0.00004
658      +,0.07591 ,0.01625  ,0.00470 ,0.00065 ,0.00008 ,0.00004
659      +,0.07260 ,0.01546  ,0.00434 ,0.00062 ,0.00008 ,0.00004/
660       DATA ((F(I,33,K),I=1,6),K=1,19)/
661      + 0.22968 ,0.05458  ,0.05854 ,0.00205 ,0.00002 ,0.00000
662      +,0.20038 ,0.04663  ,0.04150 ,0.00176 ,0.00005 ,0.00000
663      +,0.17759 ,0.04060  ,0.03080 ,0.00154 ,0.00007 ,0.00000
664      +,0.15934 ,0.03589  ,0.02369 ,0.00137 ,0.00008 ,0.00000
665      +,0.14441 ,0.03207  ,0.01877 ,0.00122 ,0.00008 ,0.00000
666      +,0.13191 ,0.02894  ,0.01524 ,0.00110 ,0.00009 ,0.00000
667      +,0.12129 ,0.02631  ,0.01260 ,0.00099 ,0.00008 ,0.00001
668      +,0.11212 ,0.02407  ,0.01059 ,0.00091 ,0.00008 ,0.00001
669      +,0.10414 ,0.02215  ,0.00903 ,0.00083 ,0.00008 ,0.00002
670      +,0.09714 ,0.02047  ,0.00780 ,0.00076 ,0.00007 ,0.00002
671      +,0.09092 ,0.01901  ,0.00681 ,0.00070 ,0.00007 ,0.00003
672      +,0.08540 ,0.01772  ,0.00600 ,0.00065 ,0.00007 ,0.00003
673      +,0.08046 ,0.01657  ,0.00534 ,0.00061 ,0.00007 ,0.00003
674      +,0.07599 ,0.01554  ,0.00478 ,0.00057 ,0.00006 ,0.00002
675      +,0.07195 ,0.01462  ,0.00431 ,0.00053 ,0.00006 ,0.00002
676      +,0.06828 ,0.01380  ,0.00391 ,0.00050 ,0.00006 ,0.00003
677      +,0.06493 ,0.01304  ,0.00357 ,0.00047 ,0.00006 ,0.00003
678      +,0.06186 ,0.01236  ,0.00327 ,0.00044 ,0.00006 ,0.00003
679      +,0.05904 ,0.01173  ,0.00301 ,0.00042 ,0.00005 ,0.00003/
680       DATA ((F(I,34,K),I=1,6),K=1,19)/
681      + 0.19765 ,0.04372  ,0.04441 ,0.00148 ,0.00001 ,0.00000
682      +,0.17111 ,0.03707  ,0.03101 ,0.00127 ,0.00004 ,0.00000
683      +,0.15065 ,0.03206  ,0.02273 ,0.00110 ,0.00005 ,0.00000
684      +,0.13437 ,0.02817  ,0.01731 ,0.00097 ,0.00005 ,0.00000
685      +,0.12114 ,0.02504  ,0.01359 ,0.00086 ,0.00006 ,0.00000
686      +,0.11013 ,0.02249  ,0.01095 ,0.00077 ,0.00006 ,0.00000
687      +,0.10081 ,0.02035  ,0.00899 ,0.00069 ,0.00005 ,0.00001
688      +,0.09282 ,0.01854  ,0.00752 ,0.00063 ,0.00005 ,0.00001
689      +,0.08588 ,0.01700  ,0.00638 ,0.00058 ,0.00005 ,0.00001
690      +,0.07982 ,0.01565  ,0.00548 ,0.00053 ,0.00005 ,0.00001
691      +,0.07447 ,0.01449  ,0.00477 ,0.00048 ,0.00005 ,0.00002
692      +,0.06972 ,0.01346  ,0.00419 ,0.00045 ,0.00005 ,0.00002
693      +,0.06549 ,0.01255  ,0.00371 ,0.00042 ,0.00004 ,0.00002
694      +,0.06168 ,0.01174  ,0.00331 ,0.00039 ,0.00004 ,0.00002
695      +,0.05825 ,0.01101  ,0.00298 ,0.00036 ,0.00004 ,0.00001
696      +,0.05514 ,0.01036  ,0.00269 ,0.00034 ,0.00004 ,0.00002
697      +,0.05230 ,0.00977  ,0.00245 ,0.00032 ,0.00004 ,0.00002
698      +,0.04971 ,0.00924  ,0.00225 ,0.00030 ,0.00003 ,0.00002
699      +,0.04734 ,0.00875  ,0.00207 ,0.00028 ,0.00003 ,0.00002/
700       DATA ((F(I,35,K),I=1,6),K=1,19)/
701      + 0.16776 ,0.03442  ,0.03318 ,0.00106 ,0.00001 ,0.00000
702      +,0.14409 ,0.02895  ,0.02281 ,0.00089 ,0.00002 ,0.00000
703      +,0.12600 ,0.02486  ,0.01651 ,0.00077 ,0.00003 ,0.00000
704      +,0.11171 ,0.02171  ,0.01243 ,0.00067 ,0.00003 ,0.00000
705      +,0.10017 ,0.01919  ,0.00968 ,0.00059 ,0.00003 ,0.00000
706      +,0.09063 ,0.01714  ,0.00773 ,0.00053 ,0.00003 ,0.00000
707      +,0.08259 ,0.01545  ,0.00631 ,0.00047 ,0.00003 ,0.00001
708      +,0.07572 ,0.01402  ,0.00525 ,0.00043 ,0.00003 ,0.00001
709      +,0.06979 ,0.01280  ,0.00443 ,0.00039 ,0.00003 ,0.00001
710      +,0.06462 ,0.01175  ,0.00379 ,0.00035 ,0.00003 ,0.00001
711      +,0.06009 ,0.01083  ,0.00328 ,0.00033 ,0.00003 ,0.00001
712      +,0.05608 ,0.01003  ,0.00287 ,0.00030 ,0.00003 ,0.00001
713      +,0.05251 ,0.00932  ,0.00254 ,0.00028 ,0.00003 ,0.00001
714      +,0.04931 ,0.00870  ,0.00226 ,0.00026 ,0.00003 ,0.00001
715      +,0.04644 ,0.00814  ,0.00202 ,0.00024 ,0.00002 ,0.00001
716      +,0.04385 ,0.00763  ,0.00183 ,0.00022 ,0.00002 ,0.00001
717      +,0.04148 ,0.00718  ,0.00166 ,0.00021 ,0.00002 ,0.00001
718      +,0.03934 ,0.00677  ,0.00152 ,0.00020 ,0.00002 ,0.00001
719      +,0.03737 ,0.00640  ,0.00139 ,0.00019 ,0.00002 ,0.00001/
720       DATA ((F(I,36,K),I=1,6),K=1,19)/
721      + 0.14028 ,0.02658  ,0.02436 ,0.00074 ,0.00001 ,0.00000
722      +,0.11952 ,0.02217  ,0.01648 ,0.00062 ,0.00001 ,0.00000
723      +,0.10378 ,0.01891  ,0.01178 ,0.00053 ,0.00002 ,0.00000
724      +,0.09145 ,0.01641  ,0.00878 ,0.00046 ,0.00002 ,0.00000
725      +,0.08154 ,0.01442  ,0.00677 ,0.00040 ,0.00002 ,0.00000
726      +,0.07340 ,0.01282  ,0.00537 ,0.00036 ,0.00002 ,0.00000
727      +,0.06658 ,0.01150  ,0.00435 ,0.00032 ,0.00002 ,0.00000
728      +,0.06078 ,0.01039  ,0.00359 ,0.00028 ,0.00002 ,0.00000
729      +,0.05580 ,0.00944  ,0.00302 ,0.00026 ,0.00002 ,0.00000
730      +,0.05148 ,0.00864  ,0.00257 ,0.00023 ,0.00002 ,0.00000
731      +,0.04769 ,0.00793  ,0.00222 ,0.00021 ,0.00002 ,0.00000
732      +,0.04436 ,0.00732  ,0.00193 ,0.00020 ,0.00002 ,0.00001
733      +,0.04141 ,0.00679  ,0.00170 ,0.00018 ,0.00001 ,0.00001
734      +,0.03877 ,0.00631  ,0.00151 ,0.00017 ,0.00001 ,0.00001
735      +,0.03641 ,0.00589  ,0.00135 ,0.00016 ,0.00001 ,0.00001
736      +,0.03429 ,0.00551  ,0.00122 ,0.00015 ,0.00001 ,0.00001
737      +,0.03235 ,0.00517  ,0.00110 ,0.00014 ,0.00001 ,0.00001
738      +,0.03060 ,0.00486  ,0.00101 ,0.00013 ,0.00001 ,0.00001
739      +,0.02900 ,0.00458  ,0.00092 ,0.00012 ,0.00001 ,0.00001/
740       DATA ((F(I,37,K),I=1,6),K=1,19)/
741      + 0.09310 ,0.01482  ,0.01233 ,0.00033 ,0.00000 ,0.00000
742      +,0.07799 ,0.01215  ,0.00808 ,0.00027 ,0.00000 ,0.00000
743      +,0.06672 ,0.01021  ,0.00562 ,0.00023 ,0.00001 ,0.00000
744      +,0.05803 ,0.00874  ,0.00409 ,0.00020 ,0.00001 ,0.00000
745      +,0.05114 ,0.00759  ,0.00310 ,0.00017 ,0.00001 ,0.00000
746      +,0.04554 ,0.00668  ,0.00242 ,0.00015 ,0.00001 ,0.00000
747      +,0.04091 ,0.00593  ,0.00193 ,0.00013 ,0.00001 ,0.00000
748      +,0.03701 ,0.00531  ,0.00158 ,0.00012 ,0.00001 ,0.00000
749      +,0.03369 ,0.00478  ,0.00131 ,0.00010 ,0.00001 ,0.00000
750      +,0.03083 ,0.00434  ,0.00111 ,0.00009 ,0.00001 ,0.00000
751      +,0.02835 ,0.00396  ,0.00095 ,0.00009 ,0.00001 ,0.00000
752      +,0.02619 ,0.00363  ,0.00082 ,0.00008 ,0.00001 ,0.00000
753      +,0.02428 ,0.00334  ,0.00072 ,0.00007 ,0.00001 ,0.00000
754      +,0.02259 ,0.00309  ,0.00063 ,0.00007 ,0.00001 ,0.00000
755      +,0.02109 ,0.00286  ,0.00056 ,0.00006 ,0.00000 ,0.00000
756      +,0.01974 ,0.00266  ,0.00050 ,0.00006 ,0.00001 ,0.00000
757      +,0.01853 ,0.00248  ,0.00046 ,0.00005 ,0.00001 ,0.00000
758      +,0.01744 ,0.00232  ,0.00041 ,0.00005 ,0.00001 ,0.00000
759      +,0.01644 ,0.00218  ,0.00038 ,0.00005 ,0.00000 ,0.00000/
760       DATA ((F(I,38,K),I=1,6),K=1,19)/
761      + 0.05675 ,0.00740  ,0.00563 ,0.00013 ,0.00000 ,0.00000
762      +,0.04666 ,0.00596  ,0.00356 ,0.00011 ,0.00000 ,0.00000
763      +,0.03928 ,0.00492  ,0.00241 ,0.00009 ,0.00000 ,0.00000
764      +,0.03367 ,0.00415  ,0.00171 ,0.00008 ,0.00000 ,0.00000
765      +,0.02930 ,0.00356  ,0.00127 ,0.00006 ,0.00000 ,0.00000
766      +,0.02579 ,0.00310  ,0.00097 ,0.00006 ,0.00000 ,0.00000
767      +,0.02292 ,0.00272  ,0.00077 ,0.00005 ,0.00000 ,0.00000
768      +,0.02053 ,0.00241  ,0.00062 ,0.00004 ,0.00000 ,0.00000
769      +,0.01852 ,0.00215  ,0.00051 ,0.00004 ,0.00000 ,0.00000
770      +,0.01680 ,0.00194  ,0.00043 ,0.00003 ,0.00000 ,0.00000
771      +,0.01532 ,0.00175  ,0.00036 ,0.00003 ,0.00000 ,0.00000
772      +,0.01404 ,0.00159  ,0.00031 ,0.00003 ,0.00000 ,0.00000
773      +,0.01293 ,0.00146  ,0.00027 ,0.00003 ,0.00000 ,0.00000
774      +,0.01195 ,0.00134  ,0.00024 ,0.00002 ,0.00000 ,0.00000
775      +,0.01108 ,0.00123  ,0.00021 ,0.00002 ,0.00000 ,0.00000
776      +,0.01031 ,0.00114  ,0.00019 ,0.00002 ,0.00000 ,0.00000
777      +,0.00962 ,0.00105  ,0.00017 ,0.00002 ,0.00000 ,0.00000
778      +,0.00900 ,0.00098  ,0.00015 ,0.00002 ,0.00000 ,0.00000
779      +,0.00844 ,0.00092  ,0.00014 ,0.00002 ,0.00000 ,0.00000/
780       DATA ((F(I,39,K),I=1,6),K=1,19)/
781      + 0.03085 ,0.00319  ,0.00223 ,0.00005 ,0.00000 ,0.00000
782      +,0.02484 ,0.00251  ,0.00135 ,0.00004 ,0.00000 ,0.00000
783      +,0.02054 ,0.00204  ,0.00089 ,0.00003 ,0.00000 ,0.00000
784      +,0.01733 ,0.00169  ,0.00062 ,0.00002 ,0.00000 ,0.00000
785      +,0.01486 ,0.00143  ,0.00045 ,0.00002 ,0.00000 ,0.00000
786      +,0.01291 ,0.00123  ,0.00034 ,0.00002 ,0.00000 ,0.00000
787      +,0.01134 ,0.00107  ,0.00026 ,0.00001 ,0.00000 ,0.00000
788      +,0.01004 ,0.00093  ,0.00021 ,0.00001 ,0.00000 ,0.00000
789      +,0.00896 ,0.00083  ,0.00017 ,0.00001 ,0.00000 ,0.00000
790      +,0.00805 ,0.00074  ,0.00014 ,0.00001 ,0.00000 ,0.00000
791      +,0.00728 ,0.00066  ,0.00012 ,0.00001 ,0.00000 ,0.00000
792      +,0.00661 ,0.00059  ,0.00010 ,0.00001 ,0.00000 ,0.00000
793      +,0.00604 ,0.00054  ,0.00009 ,0.00001 ,0.00000 ,0.00000
794      +,0.00554 ,0.00049  ,0.00008 ,0.00001 ,0.00000 ,0.00000
795      +,0.00510 ,0.00045  ,0.00007 ,0.00001 ,0.00000 ,0.00000
796      +,0.00471 ,0.00041  ,0.00006 ,0.00001 ,0.00000 ,0.00000
797      +,0.00436 ,0.00038  ,0.00005 ,0.00001 ,0.00000 ,0.00000
798      +,0.00405 ,0.00035  ,0.00005 ,0.00000 ,0.00000 ,0.00000
799      +,0.00378 ,0.00032  ,0.00004 ,0.00000 ,0.00000 ,0.00000/
800       DATA ((F(I,40,K),I=1,6),K=1,19)/
801      + 0.01426 ,0.00111  ,0.00072 ,0.00001 ,0.00000 ,0.00000
802      +,0.01121 ,0.00085  ,0.00042 ,0.00001 ,0.00000 ,0.00000
803      +,0.00907 ,0.00068  ,0.00026 ,0.00001 ,0.00000 ,0.00000
804      +,0.00751 ,0.00055  ,0.00018 ,0.00001 ,0.00000 ,0.00000
805      +,0.00633 ,0.00046  ,0.00013 ,0.00000 ,0.00000 ,0.00000
806      +,0.00542 ,0.00039  ,0.00009 ,0.00000 ,0.00000 ,0.00000
807      +,0.00469 ,0.00033  ,0.00007 ,0.00000 ,0.00000 ,0.00000
808      +,0.00410 ,0.00029  ,0.00006 ,0.00000 ,0.00000 ,0.00000
809      +,0.00362 ,0.00025  ,0.00004 ,0.00000 ,0.00000 ,0.00000
810      +,0.00321 ,0.00022  ,0.00004 ,0.00000 ,0.00000 ,0.00000
811      +,0.00287 ,0.00020  ,0.00003 ,0.00000 ,0.00000 ,0.00000
812      +,0.00259 ,0.00018  ,0.00003 ,0.00000 ,0.00000 ,0.00000
813      +,0.00234 ,0.00016  ,0.00002 ,0.00000 ,0.00000 ,0.00000
814      +,0.00213 ,0.00014  ,0.00002 ,0.00000 ,0.00000 ,0.00000
815      +,0.00194 ,0.00013  ,0.00002 ,0.00000 ,0.00000 ,0.00000
816      +,0.00178 ,0.00012  ,0.00002 ,0.00000 ,0.00000 ,0.00000
817      +,0.00163 ,0.00011  ,0.00001 ,0.00000 ,0.00000 ,0.00000
818      +,0.00151 ,0.00010  ,0.00001 ,0.00000 ,0.00000 ,0.00000
819      +,0.00139 ,0.00009  ,0.00001 ,0.00000 ,0.00000 ,0.00000/
820       DATA ((F(I,41,K),I=1,6),K=1,19)/
821      + 0.00115 ,0.00004  ,0.00002 ,0.00000 ,0.00000 ,0.00000
822      +,0.00085 ,0.00003  ,0.00001 ,0.00000 ,0.00000 ,0.00000
823      +,0.00064 ,0.00002  ,0.00001 ,0.00000 ,0.00000 ,0.00000
824      +,0.00051 ,0.00002  ,0.00001 ,0.00000 ,0.00000 ,0.00000
825      +,0.00041 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
826      +,0.00033 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
827      +,0.00028 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
828      +,0.00023 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
829      +,0.00020 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
830      +,0.00017 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
831      +,0.00014 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
832      +,0.00013 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
833      +,0.00011 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
834      +,0.00010 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
835      +,0.00009 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
836      +,0.00008 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
837      +,0.00007 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
838      +,0.00006 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
839      +,0.00005 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000/
840       DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
841      .       1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
842      .       1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
843      .     .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
844      .     .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
845      .     .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
846      .     .8D0,.9D0,1.D0/
847       DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/
848       DATA N0/2,5,4,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 10
853       INIT=1
854       DO 20 N=1,41
855       DO 20 M=1,19
856 C     READ(65,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(6,N,M)
857          DO 25 I=1,6
858   25     F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
859   20  CONTINUE
860       DO 30 J=1,15
861       XX(J)= LOG10(XX(J))+ONEDO
862       DO 30 I=1,5
863       DO 30 K=1,19
864   30  F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K))
865   50  FORMAT(6F10.5)
866       DO 40 I=1,6
867       DO 40 M=1,19
868   40  F(I,42,M)=ZEROD
869   10  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   70  N=N+1
879       IF(XXX.GT.XX(N+1)) GOTO 70
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 60 I=1,6
885       G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
886      .    + A*(ONED-B)*F(I,N+1,M)  + A*B*F(I,N+1,M+1)
887       IF(N.GE.16) GOTO 65
888       IF(I.EQ.6) GOTO 65
889           FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1)
890           G(I)=FAC**(G(I)/FAC)
891   65  CONTINUE
892       G(I)=G(I)*(ONED-X)**N0(I)
893   60  CONTINUE
894       UPV=G(1)
895       DNV=G(2)
896       SEA=G(4)
897       STR=G(4)
898       CHM=G(5)
899       GL =G(3)
900       BOT=G(6)
901       RETURN
902       END