PDF/spdf/strcbp.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.2  1996/10/30 08:30:59  cernlib
   6 * Version 7.04
   7 *
   8 * Revision 1.1.1.1  1996/04/12 15:29:49  plothow
   9 * Version 7.01
  10 *
  11 *
  12 #include "pdf/pilot.h"
  13 C-----------------------------------------------------------------------
  14       SUBROUTINE STRCBP(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.01444 ,0.00899  ,4.02455 ,0.23556 ,0.02527 ,0.00000
  22      +,0.01569 ,0.00972 ,11.08499 ,0.33533 ,0.12492 ,0.00000
  23      +,0.01685 ,0.01040 ,19.11145 ,0.46687 ,0.25633 ,0.00000
  24      +,0.01794 ,0.01104 ,27.77417 ,0.62595 ,0.41527 ,0.00000
  25      +,0.01896 ,0.01164 ,36.61528 ,0.80214 ,0.59625 ,0.01477
  26      +,0.01994 ,0.01221 ,45.69736 ,0.96571 ,0.79693 ,0.12657
  27      +,0.02087 ,0.01276 ,54.92906 ,1.12005 ,1.01480 ,0.31759
  28      +,0.02177 ,0.01328 ,64.24933 ,1.28915 ,1.24751 ,0.50884
  29      +,0.02264 ,0.01378 ,73.60976 ,1.46702 ,1.49282 ,0.71159
  30      +,0.02348 ,0.01427 ,82.95361 ,1.65274 ,1.74845 ,0.92177
  31      +,0.02429 ,0.01474 ,92.14075 ,1.84305 ,2.01020 ,1.13651
  32      +,0.02508 ,0.01520,101.30438 ,2.03925 ,2.27982 ,1.35721
  33      +,0.02584 ,0.01564,110.45287 ,2.24108 ,2.55700 ,1.58363
  34      +,0.02658 ,0.01607,119.38998 ,2.44444 ,2.83612 ,1.81134
  35      +,0.02731 ,0.01649,128.22977 ,2.65080 ,3.11923 ,2.04199
  36      +,0.02801 ,0.01690,137.03922 ,2.86123 ,3.40779 ,2.27678
  37      +,0.02870 ,0.01729,145.55078 ,3.06975 ,3.69366 ,2.50920
  38      +,0.02937 ,0.01768,154.11171 ,3.28332 ,3.98634 ,2.74690
  39      +,0.03003 ,0.01806,162.33972 ,3.49339 ,4.27417 ,2.98054/
  40       DATA ((F(I,2,K),I=1,6),K=1,19)/
  41      + 0.02102 ,0.01294  ,3.79297 ,0.23651 ,0.02301 ,0.00000
  42      +,0.02274 ,0.01394  ,9.38434 ,0.32422 ,0.11070 ,0.00000
  43      +,0.02433 ,0.01486 ,15.39411 ,0.43486 ,0.22131 ,0.00000
  44      +,0.02581 ,0.01572 ,21.65680 ,0.56393 ,0.35034 ,0.00000
  45      +,0.02720 ,0.01652 ,27.88220 ,0.70278 ,0.49300 ,0.01154
  46      +,0.02852 ,0.01728 ,34.13873 ,0.82852 ,0.64730 ,0.09732
  47      +,0.02978 ,0.01800 ,40.37834 ,0.94438 ,0.81129 ,0.24185
  48      +,0.03098 ,0.01869 ,46.57191 ,1.06909 ,0.98324 ,0.38366
  49      +,0.03214 ,0.01936 ,52.69756 ,1.19811 ,1.16155 ,0.53165
  50      +,0.03325 ,0.02000 ,58.72679 ,1.33087 ,1.34467 ,0.68284
  51      +,0.03432 ,0.02061 ,64.57495 ,1.46515 ,1.52974 ,0.83530
  52      +,0.03536 ,0.02120 ,70.33940 ,1.60193 ,1.71810 ,0.99012
  53      +,0.03637 ,0.02177 ,76.03160 ,1.74111 ,1.90961 ,1.14721
  54      +,0.03734 ,0.02233 ,81.52925 ,1.87993 ,2.10052 ,1.30359
  55      +,0.03829 ,0.02287 ,86.91275 ,2.01947 ,2.29234 ,1.46050
  56      +,0.03921 ,0.02339 ,92.23016 ,2.16053 ,2.48615 ,1.61882
  57      +,0.04010 ,0.02390 ,97.31372 ,2.29914 ,2.67654 ,1.77423
  58      +,0.04098 ,0.02439,102.39018 ,2.44004 ,2.86999 ,1.93195
  59      +,0.04182 ,0.02487,107.21939 ,2.57758 ,3.05879 ,2.08580/
  60       DATA ((F(I,3,K),I=1,6),K=1,19)/
  61      + 0.03058 ,0.01863  ,3.57378 ,0.23671 ,0.02069 ,0.00000
  62      +,0.03295 ,0.01999  ,7.94337 ,0.31271 ,0.09680 ,0.00000
  63      +,0.03512 ,0.02123 ,12.39642 ,0.40441 ,0.18861 ,0.00000
  64      +,0.03713 ,0.02238 ,16.87996 ,0.50762 ,0.29194 ,0.00000
  65      +,0.03901 ,0.02345 ,21.22090 ,0.61549 ,0.40288 ,0.00890
  66      +,0.04078 ,0.02445 ,25.48773 ,0.71081 ,0.51997 ,0.07391
  67      +,0.04246 ,0.02540 ,29.66095 ,0.79655 ,0.64184 ,0.18196
  68      +,0.04406 ,0.02631 ,33.73145 ,0.88726 ,0.76729 ,0.28589
  69      +,0.04560 ,0.02717 ,37.69373 ,0.97956 ,0.89529 ,0.39267
  70      +,0.04707 ,0.02800 ,41.53676 ,1.07319 ,1.02485 ,0.50018
  71      +,0.04848 ,0.02880 ,45.21126 ,1.16665 ,1.15410 ,0.60722
  72      +,0.04984 ,0.02956 ,48.78828 ,1.26074 ,1.28408 ,0.71461
  73      +,0.05115 ,0.03030 ,52.28018 ,1.35542 ,1.41478 ,0.82237
  74      +,0.05242 ,0.03101 ,55.61154 ,1.44889 ,1.54375 ,0.92857
  75      +,0.05365 ,0.03170 ,58.83902 ,1.54197 ,1.67211 ,1.03411
  76      +,0.05484 ,0.03236 ,61.99710 ,1.63524 ,1.80066 ,1.13966
  77      +,0.05599 ,0.03300 ,64.98114 ,1.72610 ,1.92587 ,1.24240
  78      +,0.05712 ,0.03363 ,67.93896 ,1.81777 ,2.05212 ,1.34585
  79      +,0.05821 ,0.03424 ,70.72050 ,1.90655 ,2.17438 ,1.44600/
  80       DATA ((F(I,4,K),I=1,6),K=1,19)/
  81      + 0.03808 ,0.02306  ,3.45071 ,0.23635 ,0.01930 ,0.00000
  82      +,0.04092 ,0.02467  ,7.20441 ,0.30566 ,0.08884 ,0.00000
  83      +,0.04352 ,0.02615 ,10.91881 ,0.38711 ,0.17052 ,0.00000
  84      +,0.04593 ,0.02751 ,14.58538 ,0.47692 ,0.26054 ,0.00000
  85      +,0.04816 ,0.02876 ,18.08087 ,0.56922 ,0.35559 ,0.00759
  86      +,0.05025 ,0.02994 ,21.47160 ,0.64962 ,0.45450 ,0.06249
  87      +,0.05224 ,0.03106 ,24.74931 ,0.72093 ,0.55619 ,0.15303
  88      +,0.05413 ,0.03211 ,27.91264 ,0.79561 ,0.65978 ,0.23912
  89      +,0.05593 ,0.03312 ,30.96225 ,0.87089 ,0.76447 ,0.32677
  90      +,0.05765 ,0.03408 ,33.89355 ,0.94661 ,0.86956 ,0.41428
  91      +,0.05930 ,0.03500 ,36.67148 ,1.02162 ,0.97360 ,0.50076
  92      +,0.06089 ,0.03589 ,39.35490 ,1.09661 ,1.07749 ,0.58691
  93      +,0.06242 ,0.03674 ,41.95605 ,1.17158 ,1.18128 ,0.67281
  94      +,0.06390 ,0.03755 ,44.41843 ,1.24516 ,1.28309 ,0.75696
  95      +,0.06532 ,0.03834 ,46.78818 ,1.31801 ,1.38385 ,0.84012
  96      +,0.06670 ,0.03911 ,49.09354 ,1.39063 ,1.48424 ,0.92285
  97      +,0.06803 ,0.03984 ,51.25531 ,1.46102 ,1.58152 ,1.00297
  98      +,0.06933 ,0.04056 ,53.38844 ,1.53173 ,1.67917 ,1.08329
  99      +,0.07058 ,0.04125 ,55.37946 ,1.59987 ,1.77329 ,1.16068/
 100       DATA ((F(I,5,K),I=1,6),K=1,19)/
 101      + 0.04449 ,0.02682  ,3.36545 ,0.23582 ,0.01830 ,0.00000
 102      +,0.04772 ,0.02865  ,6.72159 ,0.30045 ,0.08326 ,0.00000
 103      +,0.05067 ,0.03031  ,9.97691 ,0.37500 ,0.15813 ,0.00000
 104      +,0.05339 ,0.03183 ,13.14601 ,0.45599 ,0.23944 ,0.00000
 105      +,0.05591 ,0.03325 ,16.13414 ,0.53827 ,0.32427 ,0.00676
 106      +,0.05827 ,0.03456 ,19.00514 ,0.60921 ,0.41168 ,0.05528
 107      +,0.06050 ,0.03581 ,21.75699 ,0.67149 ,0.50078 ,0.13487
 108      +,0.06262 ,0.03698 ,24.39233 ,0.73627 ,0.59087 ,0.20993
 109      +,0.06463 ,0.03810 ,26.91505 ,0.80112 ,0.68131 ,0.28587
 110      +,0.06656 ,0.03917 ,29.32381 ,0.86597 ,0.77155 ,0.36124
 111      +,0.06840 ,0.04019 ,31.59154 ,0.92986 ,0.86041 ,0.43532
 112      +,0.07017 ,0.04117 ,33.76962 ,0.99341 ,0.94871 ,0.50876
 113      +,0.07187 ,0.04210 ,35.86992 ,1.05667 ,1.03652 ,0.58165
 114      +,0.07350 ,0.04300 ,37.84656 ,1.11847 ,1.12228 ,0.65275
 115      +,0.07508 ,0.04387 ,39.73930 ,1.17942 ,1.20682 ,0.72273
 116      +,0.07661 ,0.04471 ,41.57269 ,1.23996 ,1.29073 ,0.79209
 117      +,0.07808 ,0.04551 ,43.28194 ,1.29842 ,1.37174 ,0.85904
 118      +,0.07951 ,0.04630 ,44.96307 ,1.35695 ,1.45281 ,0.92591
 119      +,0.08089 ,0.04705 ,46.52278 ,1.41317 ,1.53067 ,0.99014/
 120       DATA ((F(I,6,K),I=1,6),K=1,19)/
 121      + 0.05019 ,0.03015  ,3.30038 ,0.23523 ,0.01752 ,0.00000
 122      +,0.05376 ,0.03216  ,6.36904 ,0.29626 ,0.07898 ,0.00000
 123      +,0.05701 ,0.03398  ,9.30149 ,0.36565 ,0.14878 ,0.00000
 124      +,0.06000 ,0.03565 ,12.12589 ,0.44020 ,0.22371 ,0.00000
 125      +,0.06276 ,0.03719 ,14.76616 ,0.51524 ,0.30119 ,0.00616
 126      +,0.06535 ,0.03863 ,17.28401 ,0.57942 ,0.38041 ,0.05015
 127      +,0.06778 ,0.03998 ,19.68117 ,0.63533 ,0.46064 ,0.12200
 128      +,0.07009 ,0.04126 ,21.96275 ,0.69317 ,0.54128 ,0.18935
 129      +,0.07229 ,0.04247 ,24.13446 ,0.75077 ,0.62183 ,0.25714
 130      +,0.07439 ,0.04363 ,26.19702 ,0.80810 ,0.70182 ,0.32412
 131      +,0.07639 ,0.04473 ,28.12852 ,0.86436 ,0.78027 ,0.38969
 132      +,0.07831 ,0.04578 ,29.97527 ,0.92009 ,0.85792 ,0.45444
 133      +,0.08015 ,0.04679 ,31.74844 ,0.97537 ,0.93485 ,0.51847
 134      +,0.08192 ,0.04776 ,33.40935 ,1.02919 ,1.00975 ,0.58072
 135      +,0.08363 ,0.04869 ,34.99327 ,1.08211 ,1.08334 ,0.64181
 136      +,0.08528 ,0.04959 ,36.52209 ,1.13452 ,1.15617 ,0.70218
 137      +,0.08686 ,0.05045 ,37.94052 ,1.18497 ,1.22629 ,0.76027
 138      +,0.08841 ,0.05129 ,39.33195 ,1.23537 ,1.29628 ,0.81817
 139      +,0.08989 ,0.05209 ,40.61653 ,1.28364 ,1.36332 ,0.87362/
 140       DATA ((F(I,7,K),I=1,6),K=1,19)/
 141      + 0.07294 ,0.04336  ,3.10304 ,0.23209 ,0.01507 ,0.00000
 142      +,0.07778 ,0.04603  ,5.38441 ,0.28221 ,0.06598 ,0.00000
 143      +,0.08214 ,0.04844  ,7.47361 ,0.33664 ,0.12116 ,0.00000
 144      +,0.08612 ,0.05062  ,9.42047 ,0.39312 ,0.17835 ,0.00000
 145      +,0.08977 ,0.05262 ,11.19133 ,0.44841 ,0.23585 ,0.00455
 146      +,0.09316 ,0.05448 ,12.83961 ,0.49452 ,0.29328 ,0.03652
 147      +,0.09635 ,0.05621 ,14.37465 ,0.53369 ,0.35027 ,0.08809
 148      +,0.09935 ,0.05784 ,15.80634 ,0.57354 ,0.40655 ,0.13549
 149      +,0.10219 ,0.05937 ,17.14357 ,0.61260 ,0.46187 ,0.18249
 150      +,0.10489 ,0.06083 ,18.39125 ,0.65091 ,0.51602 ,0.22826
 151      +,0.10745 ,0.06221 ,19.53844 ,0.68801 ,0.56844 ,0.27251
 152      +,0.10989 ,0.06352 ,20.61833 ,0.72432 ,0.61970 ,0.31567
 153      +,0.11223 ,0.06477 ,21.64040 ,0.75993 ,0.66991 ,0.35788
 154      +,0.11447 ,0.06597 ,22.58189 ,0.79423 ,0.71827 ,0.39849
 155      +,0.11661 ,0.06711 ,23.46706 ,0.82761 ,0.76532 ,0.43795
 156      +,0.11868 ,0.06822 ,24.31122 ,0.86036 ,0.81146 ,0.47659
 157      +,0.12066 ,0.06927 ,25.08073 ,0.89160 ,0.85546 ,0.51344
 158      +,0.12258 ,0.07029 ,25.82898 ,0.92255 ,0.89904 ,0.54987
 159      +,0.12442 ,0.07126 ,26.50706 ,0.95192 ,0.94041 ,0.58446/
 160       DATA ((F(I,8,K),I=1,6),K=1,19)/
 161      + 0.10589 ,0.06227  ,2.90973 ,0.22638 ,0.01261 ,0.00000
 162      +,0.11232 ,0.06576  ,4.54494 ,0.26598 ,0.05355 ,0.00000
 163      +,0.11806 ,0.06886  ,5.98824 ,0.30702 ,0.09583 ,0.00000
 164      +,0.12326 ,0.07166  ,7.28878 ,0.34816 ,0.13815 ,0.00000
 165      +,0.12799 ,0.07419  ,8.43743 ,0.38735 ,0.17954 ,0.00327
 166      +,0.13235 ,0.07652  ,9.47828 ,0.41914 ,0.21993 ,0.02588
 167      +,0.13642 ,0.07868 ,10.42376 ,0.44540 ,0.25921 ,0.06192
 168      +,0.14023 ,0.08069 ,11.28520 ,0.47169 ,0.29730 ,0.09441
 169      +,0.14381 ,0.08258 ,12.07229 ,0.49703 ,0.33415 ,0.12612
 170      +,0.14718 ,0.08436 ,12.79120 ,0.52153 ,0.36970 ,0.15658
 171      +,0.15037 ,0.08603 ,13.43755 ,0.54491 ,0.40364 ,0.18562
 172      +,0.15339 ,0.08761 ,14.03450 ,0.56750 ,0.43640 ,0.21361
 173      +,0.15628 ,0.08911 ,14.58967 ,0.58939 ,0.46813 ,0.24066
 174      +,0.15902 ,0.09053 ,15.09001 ,0.61023 ,0.49833 ,0.26641
 175      +,0.16163 ,0.09189 ,15.55197 ,0.63028 ,0.52741 ,0.29116
 176      +,0.16415 ,0.09319 ,15.98585 ,0.64977 ,0.55565 ,0.31517
 177      +,0.16654 ,0.09442 ,16.37167 ,0.66814 ,0.58230 ,0.33784
 178      +,0.16885 ,0.09561 ,16.74289 ,0.68620 ,0.60847 ,0.36006
 179      +,0.17105 ,0.09674 ,17.07021 ,0.70314 ,0.63308 ,0.38097/
 180       DATA ((F(I,9,K),I=1,6),K=1,19)/
 181      + 0.13156 ,0.07687  ,2.79607 ,0.22142 ,0.01119 ,0.00000
 182      +,0.13905 ,0.08088  ,4.11064 ,0.25511 ,0.04665 ,0.00000
 183      +,0.14569 ,0.08442  ,5.24809 ,0.28905 ,0.08222 ,0.00000
 184      +,0.15167 ,0.08758  ,6.25171 ,0.32239 ,0.11709 ,0.00000
 185      +,0.15708 ,0.09043  ,7.12113 ,0.35363 ,0.15065 ,0.00266
 186      +,0.16205 ,0.09303  ,7.89487 ,0.37850 ,0.18293 ,0.02083
 187      +,0.16665 ,0.09543  ,8.58581 ,0.39864 ,0.21395 ,0.04960
 188      +,0.17094 ,0.09766  ,9.20511 ,0.41863 ,0.24371 ,0.07523
 189      +,0.17495 ,0.09973  ,9.76218 ,0.43769 ,0.27221 ,0.10002
 190      +,0.17872 ,0.10167 ,10.26320 ,0.45594 ,0.29945 ,0.12361
 191      +,0.18227 ,0.10349 ,10.70609 ,0.47320 ,0.32524 ,0.14593
 192      +,0.18562 ,0.10520 ,11.10936 ,0.48973 ,0.34994 ,0.16727
 193      +,0.18880 ,0.10682 ,11.47946 ,0.50563 ,0.37368 ,0.18774
 194      +,0.19181 ,0.10835 ,11.80725 ,0.52064 ,0.39611 ,0.20709
 195      +,0.19468 ,0.10980 ,12.10545 ,0.53498 ,0.41756 ,0.22558
 196      +,0.19742 ,0.11118 ,12.38223 ,0.54882 ,0.43826 ,0.24340
 197      +,0.20002 ,0.11249 ,12.62300 ,0.56176 ,0.45766 ,0.26012
 198      +,0.20253 ,0.11374 ,12.85285 ,0.57442 ,0.47661 ,0.27642
 199      +,0.20491 ,0.11493 ,13.05039 ,0.58619 ,0.49430 ,0.29166/
 200       DATA ((F(I,10,K),I=1,6),K=1,19)/
 201      + 0.15335 ,0.08921  ,2.71533 ,0.21718 ,0.01023 ,0.00000
 202      +,0.16160 ,0.09357  ,3.82752 ,0.24691 ,0.04211 ,0.00000
 203      +,0.16888 ,0.09739  ,4.77342 ,0.27626 ,0.07342 ,0.00000
 204      +,0.17539 ,0.10078  ,5.59377 ,0.30465 ,0.10364 ,0.00000
 205      +,0.18126 ,0.10382  ,6.29307 ,0.33089 ,0.13235 ,0.00228
 206      +,0.18661 ,0.10658  ,6.90616 ,0.35146 ,0.15968 ,0.01774
 207      +,0.19156 ,0.10912  ,7.44576 ,0.36784 ,0.18569 ,0.04208
 208      +,0.19615 ,0.11146  ,7.92272 ,0.38396 ,0.21042 ,0.06357
 209      +,0.20043 ,0.11363  ,8.34599 ,0.39920 ,0.23392 ,0.08420
 210      +,0.20443 ,0.11565  ,8.72145 ,0.41368 ,0.25622 ,0.10369
 211      +,0.20818 ,0.11753  ,9.04832 ,0.42726 ,0.27717 ,0.12201
 212      +,0.21171 ,0.11930  ,9.34207 ,0.44019 ,0.29712 ,0.13942
 213      +,0.21505 ,0.12096  ,9.60836 ,0.45253 ,0.31617 ,0.15603
 214      +,0.21820 ,0.12252  ,9.84023 ,0.46410 ,0.33408 ,0.17165
 215      +,0.22119 ,0.12400 ,10.04822 ,0.47508 ,0.35109 ,0.18648
 216      +,0.22404 ,0.12541 ,10.23903 ,0.48563 ,0.36744 ,0.20071
 217      +,0.22674 ,0.12673 ,10.40109 ,0.49541 ,0.38266 ,0.21399
 218      +,0.22933 ,0.12799 ,10.55464 ,0.50493 ,0.39747 ,0.22689
 219      +,0.23178 ,0.12918 ,10.68291 ,0.51372 ,0.41122 ,0.23889/
 220       DATA ((F(I,11,K),I=1,6),K=1,19)/
 221      + 0.17262 ,0.10008  ,2.65192 ,0.21341 ,0.00952 ,0.00000
 222      +,0.18143 ,0.10468  ,3.62053 ,0.24023 ,0.03881 ,0.00000
 223      +,0.18916 ,0.10868  ,4.43046 ,0.26627 ,0.06712 ,0.00000
 224      +,0.19604 ,0.11222  ,5.12214 ,0.29114 ,0.09409 ,0.00000
 225      +,0.20221 ,0.11536  ,5.70328 ,0.31386 ,0.11943 ,0.00201
 226      +,0.20782 ,0.11821  ,6.20594 ,0.33140 ,0.14332 ,0.01559
 227      +,0.21298 ,0.12081  ,6.64253 ,0.34513 ,0.16587 ,0.03687
 228      +,0.21775 ,0.12319  ,7.02347 ,0.35857 ,0.18715 ,0.05551
 229      +,0.22218 ,0.12540  ,7.35721 ,0.37117 ,0.20723 ,0.07329
 230      +,0.22632 ,0.12745  ,7.64940 ,0.38305 ,0.22616 ,0.08998
 231      +,0.23017 ,0.12934  ,7.89990 ,0.39411 ,0.24384 ,0.10558
 232      +,0.23378 ,0.13111  ,8.12212 ,0.40456 ,0.26057 ,0.12033
 233      +,0.23720 ,0.13278  ,8.32110 ,0.41449 ,0.27647 ,0.13433
 234      +,0.24040 ,0.13433  ,8.49126 ,0.42372 ,0.29133 ,0.14743
 235      +,0.24344 ,0.13579  ,8.64157 ,0.43244 ,0.30538 ,0.15982
 236      +,0.24633 ,0.13718  ,8.77773 ,0.44077 ,0.31882 ,0.17165
 237      +,0.24905 ,0.13848  ,8.89028 ,0.44842 ,0.33127 ,0.18264
 238      +,0.25166 ,0.13972  ,8.99608 ,0.45586 ,0.34334 ,0.19328
 239      +,0.25411 ,0.14088  ,9.08132 ,0.46266 ,0.35448 ,0.20313/
 240       DATA ((F(I,12,K),I=1,6),K=1,19)/
 241      + 0.24815 ,0.14220  ,2.42838 ,0.19623 ,0.00732 ,0.00000
 242      +,0.25831 ,0.14718  ,3.00860 ,0.21418 ,0.02898 ,0.00000
 243      +,0.26703 ,0.15139  ,3.46539 ,0.23067 ,0.04879 ,0.00000
 244      +,0.27464 ,0.15501  ,3.83310 ,0.24571 ,0.06685 ,0.00000
 245      +,0.28133 ,0.15815  ,4.12414 ,0.25887 ,0.08321 ,0.00131
 246      +,0.28729 ,0.16093  ,4.36170 ,0.26835 ,0.09815 ,0.00999
 247      +,0.29268 ,0.16340  ,4.55618 ,0.27519 ,0.11185 ,0.02337
 248      +,0.29759 ,0.16563  ,4.71562 ,0.28173 ,0.12444 ,0.03479
 249      +,0.30207 ,0.16764  ,4.84657 ,0.28766 ,0.13603 ,0.04543
 250      +,0.30618 ,0.16946  ,4.95332 ,0.29307 ,0.14670 ,0.05523
 251      +,0.30994 ,0.17110  ,5.03682 ,0.29793 ,0.15646 ,0.06420
 252      +,0.31343 ,0.17261  ,5.10508 ,0.30239 ,0.16551 ,0.07253
 253      +,0.31668 ,0.17400  ,5.16131 ,0.30651 ,0.17394 ,0.08030
 254      +,0.31966 ,0.17527  ,5.20279 ,0.31020 ,0.18166 ,0.08745
 255      +,0.32246 ,0.17643  ,5.23461 ,0.31358 ,0.18883 ,0.09410
 256      +,0.32509 ,0.17752  ,5.26001 ,0.31674 ,0.19558 ,0.10036
 257      +,0.32751 ,0.17850  ,5.27418 ,0.31950 ,0.20170 ,0.10607
 258      +,0.32983 ,0.17943  ,5.28605 ,0.32215 ,0.20756 ,0.11154
 259      +,0.33195 ,0.18027  ,5.28837 ,0.32444 ,0.21286 ,0.11651/
 260       DATA ((F(I,13,K),I=1,6),K=1,19)/
 261      + 0.35195 ,0.19835  ,2.13358 ,0.16733 ,0.00521 ,0.00000
 262      +,0.36159 ,0.20227  ,2.40907 ,0.17709 ,0.01997 ,0.00000
 263      +,0.36950 ,0.20536  ,2.60316 ,0.18538 ,0.03267 ,0.00000
 264      +,0.37611 ,0.20785  ,2.74201 ,0.19246 ,0.04367 ,0.00000
 265      +,0.38168 ,0.20983  ,2.83714 ,0.19817 ,0.05319 ,0.00078
 266      +,0.38644 ,0.21146  ,2.90338 ,0.20160 ,0.06155 ,0.00583
 267      +,0.39057 ,0.21280  ,2.94758 ,0.20345 ,0.06893 ,0.01346
 268      +,0.39417 ,0.21390  ,2.97496 ,0.20513 ,0.07548 ,0.01976
 269      +,0.39733 ,0.21480  ,2.98949 ,0.20647 ,0.08132 ,0.02548
 270      +,0.40010 ,0.21555  ,2.99378 ,0.20756 ,0.08653 ,0.03061
 271      +,0.40250 ,0.21612  ,2.98855 ,0.20837 ,0.09114 ,0.03518
 272      +,0.40463 ,0.21659  ,2.97790 ,0.20899 ,0.09529 ,0.03933
 273      +,0.40653 ,0.21696  ,2.96343 ,0.20948 ,0.09905 ,0.04312
 274      +,0.40818 ,0.21723  ,2.94387 ,0.20977 ,0.10239 ,0.04652
 275      +,0.40964 ,0.21743  ,2.92166 ,0.20993 ,0.10541 ,0.04962
 276      +,0.41096 ,0.21757  ,2.89827 ,0.21002 ,0.10819 ,0.05248
 277      +,0.41207 ,0.21763  ,2.87136 ,0.20994 ,0.11061 ,0.05503
 278      +,0.41311 ,0.21767  ,2.84504 ,0.20985 ,0.11289 ,0.05743
 279      +,0.41396 ,0.21762  ,2.81591 ,0.20960 ,0.11486 ,0.05956/
 280       DATA ((F(I,14,K),I=1,6),K=1,19)/
 281      + 0.42610 ,0.23607  ,1.90412 ,0.14283 ,0.00401 ,0.00000
 282      +,0.43339 ,0.23799  ,2.03907 ,0.14835 ,0.01505 ,0.00000
 283      +,0.43900 ,0.23918  ,2.11914 ,0.15268 ,0.02418 ,0.00000
 284      +,0.44336 ,0.23992  ,2.16425 ,0.15607 ,0.03182 ,0.00000
 285      +,0.44673 ,0.24024  ,2.18333 ,0.15850 ,0.03822 ,0.00053
 286      +,0.44938 ,0.24031  ,2.18641 ,0.15939 ,0.04366 ,0.00395
 287      +,0.45146 ,0.24017  ,2.17803 ,0.15925 ,0.04834 ,0.00904
 288      +,0.45307 ,0.23987  ,2.16153 ,0.15904 ,0.05240 ,0.01316
 289      +,0.45430 ,0.23944  ,2.13938 ,0.15867 ,0.05591 ,0.01683
 290      +,0.45520 ,0.23892  ,2.11315 ,0.15818 ,0.05898 ,0.02005
 291      +,0.45578 ,0.23829  ,2.08317 ,0.15755 ,0.06160 ,0.02287
 292      +,0.45616 ,0.23760  ,2.05187 ,0.15686 ,0.06391 ,0.02539
 293      +,0.45638 ,0.23687  ,2.02005 ,0.15612 ,0.06596 ,0.02764
 294      +,0.45638 ,0.23609  ,1.98678 ,0.15531 ,0.06772 ,0.02964
 295      +,0.45626 ,0.23527  ,1.95347 ,0.15445 ,0.06927 ,0.03142
 296      +,0.45605 ,0.23445  ,1.92084 ,0.15359 ,0.07067 ,0.03304
 297      +,0.45567 ,0.23357  ,1.88745 ,0.15266 ,0.07183 ,0.03446
 298      +,0.45527 ,0.23271  ,1.85559 ,0.15176 ,0.07291 ,0.03578
 299      +,0.45471 ,0.23181  ,1.82319 ,0.15079 ,0.07380 ,0.03692/
 300       DATA ((F(I,15,K),I=1,6),K=1,19)/
 301      + 0.48256 ,0.26222  ,1.70710 ,0.12174 ,0.00318 ,0.00000
 302      +,0.48666 ,0.26175  ,1.76097 ,0.12471 ,0.01178 ,0.00000
 303      +,0.48927 ,0.26081  ,1.77857 ,0.12674 ,0.01867 ,0.00000
 304      +,0.49084 ,0.25959  ,1.77480 ,0.12810 ,0.02426 ,-0.00001
 305      +,0.49158 ,0.25815  ,1.75620 ,0.12877 ,0.02882 ,0.00038
 306      +,0.49176 ,0.25659  ,1.72958 ,0.12838 ,0.03262 ,0.00285
 307      +,0.49151 ,0.25494  ,1.69783 ,0.12729 ,0.03580 ,0.00649
 308      +,0.49090 ,0.25324  ,1.66296 ,0.12621 ,0.03848 ,0.00937
 309      +,0.49003 ,0.25150  ,1.62651 ,0.12508 ,0.04076 ,0.01190
 310      +,0.48895 ,0.24973  ,1.58929 ,0.12391 ,0.04270 ,0.01409
 311      +,0.48763 ,0.24795  ,1.55135 ,0.12269 ,0.04431 ,0.01597
 312      +,0.48620 ,0.24618  ,1.51414 ,0.12147 ,0.04569 ,0.01762
 313      +,0.48470 ,0.24443  ,1.47803 ,0.12025 ,0.04689 ,0.01909
 314      +,0.48305 ,0.24268  ,1.44230 ,0.11902 ,0.04789 ,0.02036
 315      +,0.48134 ,0.24095  ,1.40769 ,0.11781 ,0.04874 ,0.02149
 316      +,0.47962 ,0.23927  ,1.37458 ,0.11662 ,0.04948 ,0.02250
 317      +,0.47778 ,0.23756  ,1.34194 ,0.11541 ,0.05007 ,0.02337
 318      +,0.47599 ,0.23593  ,1.31113 ,0.11425 ,0.05061 ,0.02416
 319      +,0.47409 ,0.23428  ,1.28078 ,0.11307 ,0.05102 ,0.02483/
 320       DATA ((F(I,16,K),I=1,6),K=1,19)/
 321      + 0.52609 ,0.27968  ,1.53244 ,0.10351 ,0.00257 ,0.00000
 322      +,0.52652 ,0.27673  ,1.53529 ,0.10485 ,0.00941 ,0.00000
 323      +,0.52579 ,0.27362  ,1.51554 ,0.10548 ,0.01473 ,0.00000
 324      +,0.52433 ,0.27046  ,1.48407 ,0.10565 ,0.01896 ,-0.00001
 325      +,0.52227 ,0.26730  ,1.44536 ,0.10533 ,0.02232 ,0.00029
 326      +,0.51988 ,0.26418  ,1.40390 ,0.10427 ,0.02505 ,0.00213
 327      +,0.51723 ,0.26111  ,1.36135 ,0.10274 ,0.02729 ,0.00482
 328      +,0.51438 ,0.25810  ,1.31881 ,0.10127 ,0.02914 ,0.00692
 329      +,0.51142 ,0.25517  ,1.27710 ,0.09980 ,0.03067 ,0.00874
 330      +,0.50837 ,0.25230  ,1.23658 ,0.09836 ,0.03195 ,0.01029
 331      +,0.50519 ,0.24949  ,1.19705 ,0.09692 ,0.03297 ,0.01160
 332      +,0.50201 ,0.24676  ,1.15936 ,0.09551 ,0.03383 ,0.01274
 333      +,0.49886 ,0.24412  ,1.12361 ,0.09414 ,0.03455 ,0.01374
 334      +,0.49565 ,0.24154  ,1.08915 ,0.09279 ,0.03513 ,0.01459
 335      +,0.49245 ,0.23903  ,1.05640 ,0.09148 ,0.03560 ,0.01534
 336      +,0.48933 ,0.23662  ,1.02549 ,0.09022 ,0.03600 ,0.01600
 337      +,0.48615 ,0.23423  ,0.99565 ,0.08896 ,0.03629 ,0.01655
 338      +,0.48309 ,0.23194  ,0.96770 ,0.08777 ,0.03655 ,0.01705
 339      +,0.47997 ,0.22968  ,0.94068 ,0.08658 ,0.03671 ,0.01747/
 340       DATA ((F(I,17,K),I=1,6),K=1,19)/
 341      + 0.56617 ,0.29189  ,1.33863 ,0.08415 ,0.00201 ,0.00001
 342      +,0.56168 ,0.28593  ,1.30193 ,0.08424 ,0.00723 ,0.00001
 343      +,0.55660 ,0.28022  ,1.25503 ,0.08387 ,0.01117 ,0.00001
 344      +,0.55125 ,0.27483  ,1.20487 ,0.08320 ,0.01422 ,0.00001
 345      +,0.54568 ,0.26971  ,1.15381 ,0.08225 ,0.01658 ,0.00022
 346      +,0.54010 ,0.26484  ,1.10429 ,0.08081 ,0.01845 ,0.00154
 347      +,0.53453 ,0.26020  ,1.05682 ,0.07910 ,0.01994 ,0.00344
 348      +,0.52899 ,0.25579  ,1.01175 ,0.07748 ,0.02114 ,0.00490
 349      +,0.52352 ,0.25157  ,0.96926 ,0.07591 ,0.02210 ,0.00615
 350      +,0.51815 ,0.24754  ,0.92931 ,0.07440 ,0.02288 ,0.00719
 351      +,0.51283 ,0.24366  ,0.89151 ,0.07293 ,0.02347 ,0.00806
 352      +,0.50765 ,0.23995  ,0.85625 ,0.07152 ,0.02395 ,0.00881
 353      +,0.50261 ,0.23641  ,0.82339 ,0.07017 ,0.02434 ,0.00945
 354      +,0.49764 ,0.23299  ,0.79237 ,0.06886 ,0.02463 ,0.00999
 355      +,0.49278 ,0.22972  ,0.76335 ,0.06760 ,0.02484 ,0.01045
 356      +,0.48810 ,0.22659  ,0.73629 ,0.06640 ,0.02501 ,0.01086
 357      +,0.48344 ,0.22354  ,0.71060 ,0.06522 ,0.02511 ,0.01118
 358      +,0.47899 ,0.22064  ,0.68672 ,0.06411 ,0.02519 ,0.01148
 359      +,0.47455 ,0.21780  ,0.66399 ,0.06302 ,0.02520 ,0.01172/
 360       DATA ((F(I,18,K),I=1,6),K=1,19)/
 361      + 0.59291 ,0.29541  ,1.16734 ,0.06806 ,0.00158 ,0.00001
 362      +,0.58343 ,0.28672  ,1.10746 ,0.06746 ,0.00561 ,0.00001
 363      +,0.57403 ,0.27874  ,1.04619 ,0.06656 ,0.00857 ,0.00001
 364      +,0.56486 ,0.27142  ,0.98740 ,0.06550 ,0.01081 ,0.00001
 365      +,0.55595 ,0.26462  ,0.93181 ,0.06428 ,0.01249 ,0.00016
 366      +,0.54736 ,0.25831  ,0.88041 ,0.06275 ,0.01379 ,0.00112
 367      +,0.53906 ,0.25242  ,0.83292 ,0.06106 ,0.01481 ,0.00250
 368      +,0.53104 ,0.24688  ,0.78913 ,0.05948 ,0.01559 ,0.00354
 369      +,0.52333 ,0.24166  ,0.74886 ,0.05798 ,0.01621 ,0.00441
 370      +,0.51590 ,0.23672  ,0.71178 ,0.05655 ,0.01669 ,0.00513
 371      +,0.50866 ,0.23203  ,0.67742 ,0.05519 ,0.01703 ,0.00572
 372      +,0.50170 ,0.22760  ,0.64582 ,0.05389 ,0.01729 ,0.00622
 373      +,0.49504 ,0.22341  ,0.61676 ,0.05266 ,0.01749 ,0.00665
 374      +,0.48857 ,0.21938  ,0.58971 ,0.05147 ,0.01762 ,0.00700
 375      +,0.48232 ,0.21555  ,0.56470 ,0.05035 ,0.01770 ,0.00730
 376      +,0.47634 ,0.21192  ,0.54161 ,0.04928 ,0.01775 ,0.00755
 377      +,0.47045 ,0.20842  ,0.51994 ,0.04824 ,0.01776 ,0.00775
 378      +,0.46484 ,0.20510  ,0.49994 ,0.04727 ,0.01776 ,0.00793
 379      +,0.45933 ,0.20188  ,0.48111 ,0.04632 ,0.01771 ,0.00807/
 380       DATA ((F(I,19,K),I=1,6),K=1,19)/
 381      + 0.60821 ,0.29194  ,1.01533 ,0.05472 ,0.00125 ,0.00000
 382      +,0.59387 ,0.28093  ,0.94258 ,0.05377 ,0.00437 ,0.00000
 383      +,0.58036 ,0.27105  ,0.87468 ,0.05264 ,0.00661 ,0.00000
 384      +,0.56765 ,0.26218  ,0.81311 ,0.05142 ,0.00827 ,0.00000
 385      +,0.55566 ,0.25406  ,0.75731 ,0.05014 ,0.00948 ,0.00012
 386      +,0.54436 ,0.24663  ,0.70729 ,0.04866 ,0.01040 ,0.00083
 387      +,0.53363 ,0.23977  ,0.66223 ,0.04710 ,0.01109 ,0.00183
 388      +,0.52344 ,0.23339  ,0.62154 ,0.04566 ,0.01162 ,0.00259
 389      +,0.51377 ,0.22744  ,0.58478 ,0.04430 ,0.01201 ,0.00321
 390      +,0.50455 ,0.22187  ,0.55144 ,0.04303 ,0.01229 ,0.00371
 391      +,0.49570 ,0.21662  ,0.52101 ,0.04181 ,0.01250 ,0.00412
 392      +,0.48727 ,0.21170  ,0.49337 ,0.04067 ,0.01263 ,0.00447
 393      +,0.47926 ,0.20707  ,0.46823 ,0.03959 ,0.01273 ,0.00475
 394      +,0.47156 ,0.20266  ,0.44512 ,0.03857 ,0.01277 ,0.00498
 395      +,0.46417 ,0.19849  ,0.42391 ,0.03760 ,0.01278 ,0.00517
 396      +,0.45712 ,0.19455  ,0.40446 ,0.03668 ,0.01278 ,0.00533
 397      +,0.45028 ,0.19078  ,0.38641 ,0.03580 ,0.01274 ,0.00546
 398      +,0.44378 ,0.18721  ,0.36985 ,0.03498 ,0.01270 ,0.00556
 399      +,0.43745 ,0.18378  ,0.35440 ,0.03418 ,0.01262 ,0.00564/
 400       DATA ((F(I,20,K),I=1,6),K=1,19)/
 401      + 0.61360 ,0.28295  ,0.88033 ,0.04371 ,0.00099 ,0.00000
 402      +,0.59473 ,0.27007  ,0.80150 ,0.04262 ,0.00341 ,0.00000
 403      +,0.57744 ,0.25872  ,0.73182 ,0.04142 ,0.00512 ,0.00000
 404      +,0.56153 ,0.24866  ,0.67096 ,0.04021 ,0.00636 ,0.00000
 405      +,0.54680 ,0.23959  ,0.61745 ,0.03897 ,0.00723 ,0.00009
 406      +,0.53313 ,0.23137  ,0.57056 ,0.03762 ,0.00788 ,0.00062
 407      +,0.52031 ,0.22385  ,0.52912 ,0.03624 ,0.00836 ,0.00136
 408      +,0.50829 ,0.21691  ,0.49231 ,0.03497 ,0.00871 ,0.00191
 409      +,0.49698 ,0.21050  ,0.45952 ,0.03379 ,0.00896 ,0.00235
 410      +,0.48629 ,0.20453  ,0.43017 ,0.03269 ,0.00912 ,0.00271
 411      +,0.47613 ,0.19896  ,0.40372 ,0.03164 ,0.00923 ,0.00300
 412      +,0.46653 ,0.19375  ,0.37992 ,0.03067 ,0.00930 ,0.00323
 413      +,0.45745 ,0.18889  ,0.35846 ,0.02976 ,0.00933 ,0.00343
 414      +,0.44879 ,0.18428  ,0.33893 ,0.02889 ,0.00933 ,0.00358
 415      +,0.44053 ,0.17994  ,0.32115 ,0.02808 ,0.00930 ,0.00370
 416      +,0.43269 ,0.17587  ,0.30495 ,0.02732 ,0.00927 ,0.00381
 417      +,0.42512 ,0.17198  ,0.29004 ,0.02659 ,0.00922 ,0.00388
 418      +,0.41797 ,0.16832  ,0.27643 ,0.02590 ,0.00916 ,0.00395
 419      +,0.41104 ,0.16481  ,0.26383 ,0.02525 ,0.00908 ,0.00399/
 420       DATA ((F(I,21,K),I=1,6),K=1,19)/
 421      + 0.61036 ,0.26974  ,0.76051 ,0.03470 ,0.00076 ,0.00000
 422      +,0.58740 ,0.25546  ,0.68016 ,0.03359 ,0.00266 ,0.00000
 423      +,0.56676 ,0.24307  ,0.61182 ,0.03244 ,0.00397 ,0.00000
 424      +,0.54809 ,0.23219  ,0.55375 ,0.03130 ,0.00488 ,0.00000
 425      +,0.53100 ,0.22250  ,0.50393 ,0.03017 ,0.00553 ,0.00006
 426      +,0.51532 ,0.21379  ,0.46104 ,0.02898 ,0.00599 ,0.00046
 427      +,0.50080 ,0.20589  ,0.42374 ,0.02780 ,0.00632 ,0.00101
 428      +,0.48729 ,0.19865  ,0.39104 ,0.02671 ,0.00654 ,0.00141
 429      +,0.47465 ,0.19201  ,0.36229 ,0.02571 ,0.00670 ,0.00173
 430      +,0.46283 ,0.18587  ,0.33684 ,0.02477 ,0.00680 ,0.00199
 431      +,0.45169 ,0.18016  ,0.31414 ,0.02390 ,0.00685 ,0.00219
 432      +,0.44119 ,0.17485  ,0.29391 ,0.02309 ,0.00687 ,0.00235
 433      +,0.43133 ,0.16992  ,0.27579 ,0.02233 ,0.00687 ,0.00248
 434      +,0.42196 ,0.16527  ,0.25942 ,0.02162 ,0.00685 ,0.00259
 435      +,0.41307 ,0.16092  ,0.24464 ,0.02095 ,0.00681 ,0.00267
 436      +,0.40466 ,0.15685  ,0.23127 ,0.02033 ,0.00676 ,0.00273
 437      +,0.39662 ,0.15297  ,0.21905 ,0.01973 ,0.00670 ,0.00278
 438      +,0.38903 ,0.14934  ,0.20793 ,0.01918 ,0.00663 ,0.00282
 439      +,0.38172 ,0.14587  ,0.19771 ,0.01865 ,0.00656 ,0.00284/
 440       DATA ((F(I,22,K),I=1,6),K=1,19)/
 441      + 0.59951 ,0.25324  ,0.65427 ,0.02733 ,0.00061 ,0.00000
 442      +,0.57299 ,0.23805  ,0.57545 ,0.02628 ,0.00208 ,0.00001
 443      +,0.54947 ,0.22503  ,0.51043 ,0.02522 ,0.00307 ,0.00000
 444      +,0.52849 ,0.21371  ,0.45643 ,0.02420 ,0.00376 ,0.00001
 445      +,0.50950 ,0.20372  ,0.41099 ,0.02321 ,0.00422 ,0.00005
 446      +,0.49224 ,0.19480  ,0.37249 ,0.02220 ,0.00455 ,0.00035
 447      +,0.47639 ,0.18677  ,0.33945 ,0.02119 ,0.00477 ,0.00075
 448      +,0.46175 ,0.17947  ,0.31085 ,0.02029 ,0.00492 ,0.00105
 449      +,0.44817 ,0.17279  ,0.28596 ,0.01945 ,0.00501 ,0.00128
 450      +,0.43548 ,0.16667  ,0.26413 ,0.01868 ,0.00507 ,0.00147
 451      +,0.42363 ,0.16099  ,0.24485 ,0.01796 ,0.00509 ,0.00160
 452      +,0.41255 ,0.15574  ,0.22781 ,0.01730 ,0.00508 ,0.00171
 453      +,0.40218 ,0.15088  ,0.21266 ,0.01668 ,0.00506 ,0.00180
 454      +,0.39236 ,0.14634  ,0.19908 ,0.01610 ,0.00502 ,0.00187
 455      +,0.38310 ,0.14209  ,0.18689 ,0.01556 ,0.00498 ,0.00192
 456      +,0.37438 ,0.13811  ,0.17591 ,0.01506 ,0.00494 ,0.00197
 457      +,0.36606 ,0.13436  ,0.16595 ,0.01458 ,0.00488 ,0.00199
 458      +,0.35822 ,0.13085  ,0.15693 ,0.01414 ,0.00482 ,0.00202
 459      +,0.35071 ,0.12752  ,0.14869 ,0.01371 ,0.00475 ,0.00203/
 460       DATA ((F(I,23,K),I=1,6),K=1,19)/
 461      + 0.58216 ,0.23452  ,0.56032 ,0.02136 ,0.00048 ,0.00000
 462      +,0.55264 ,0.21887  ,0.48514 ,0.02042 ,0.00162 ,0.00001
 463      +,0.52681 ,0.20559  ,0.42463 ,0.01949 ,0.00237 ,0.00000
 464      +,0.50401 ,0.19415  ,0.37534 ,0.01860 ,0.00288 ,0.00001
 465      +,0.48356 ,0.18413  ,0.33456 ,0.01776 ,0.00322 ,0.00004
 466      +,0.46513 ,0.17526  ,0.30050 ,0.01690 ,0.00345 ,0.00026
 467      +,0.44833 ,0.16731  ,0.27162 ,0.01608 ,0.00360 ,0.00056
 468      +,0.43291 ,0.16012  ,0.24689 ,0.01533 ,0.00370 ,0.00078
 469      +,0.41870 ,0.15359  ,0.22558 ,0.01464 ,0.00375 ,0.00095
 470      +,0.40550 ,0.14763  ,0.20706 ,0.01402 ,0.00378 ,0.00108
 471      +,0.39323 ,0.14212  ,0.19084 ,0.01344 ,0.00378 ,0.00117
 472      +,0.38180 ,0.13706  ,0.17660 ,0.01290 ,0.00376 ,0.00125
 473      +,0.37116 ,0.13239  ,0.16403 ,0.01240 ,0.00373 ,0.00131
 474      +,0.36113 ,0.12804  ,0.15284 ,0.01194 ,0.00369 ,0.00136
 475      +,0.35170 ,0.12399  ,0.14286 ,0.01151 ,0.00365 ,0.00139
 476      +,0.34287 ,0.12021  ,0.13392 ,0.01111 ,0.00361 ,0.00142
 477      +,0.33446 ,0.11665  ,0.12585 ,0.01073 ,0.00355 ,0.00143
 478      +,0.32657 ,0.11334  ,0.11858 ,0.01039 ,0.00350 ,0.00145
 479      +,0.31903 ,0.11020  ,0.11198 ,0.01005 ,0.00345 ,0.00145/
 480       DATA ((F(I,24,K),I=1,6),K=1,19)/
 481      + 0.55924 ,0.21434  ,0.47743 ,0.01656 ,0.00038 ,0.00001
 482      +,0.52733 ,0.19865  ,0.40722 ,0.01573 ,0.00126 ,0.00001
 483      +,0.49974 ,0.18545  ,0.35192 ,0.01494 ,0.00183 ,0.00001
 484      +,0.47562 ,0.17417  ,0.30762 ,0.01419 ,0.00221 ,0.00001
 485      +,0.45417 ,0.16435  ,0.27154 ,0.01348 ,0.00245 ,0.00003
 486      +,0.43497 ,0.15572  ,0.24175 ,0.01278 ,0.00261 ,0.00020
 487      +,0.41758 ,0.14804  ,0.21678 ,0.01211 ,0.00271 ,0.00042
 488      +,0.40171 ,0.14112  ,0.19563 ,0.01150 ,0.00277 ,0.00058
 489      +,0.38717 ,0.13487  ,0.17756 ,0.01096 ,0.00280 ,0.00070
 490      +,0.37378 ,0.12919  ,0.16201 ,0.01045 ,0.00281 ,0.00079
 491      +,0.36133 ,0.12398  ,0.14848 ,0.00999 ,0.00279 ,0.00086
 492      +,0.34981 ,0.11919  ,0.13669 ,0.00956 ,0.00278 ,0.00092
 493      +,0.33913 ,0.11479  ,0.12635 ,0.00916 ,0.00275 ,0.00096
 494      +,0.32908 ,0.11072  ,0.11720 ,0.00880 ,0.00271 ,0.00098
 495      +,0.31968 ,0.10693  ,0.10908 ,0.00846 ,0.00267 ,0.00101
 496      +,0.31091 ,0.10342  ,0.10185 ,0.00814 ,0.00263 ,0.00102
 497      +,0.30260 ,0.10012  ,0.09536 ,0.00785 ,0.00258 ,0.00103
 498      +,0.29482 ,0.09705  ,0.08953 ,0.00757 ,0.00254 ,0.00104
 499      +,0.28741 ,0.09415  ,0.08427 ,0.00731 ,0.00249 ,0.00104/
 500       DATA ((F(I,25,K),I=1,6),K=1,19)/
 501      + 0.53163 ,0.19347  ,0.40464 ,0.01271 ,0.00029 ,0.00001
 502      +,0.49801 ,0.17808  ,0.34016 ,0.01201 ,0.00097 ,0.00000
 503      +,0.46924 ,0.16524  ,0.29033 ,0.01135 ,0.00140 ,0.00001
 504      +,0.44429 ,0.15435  ,0.25106 ,0.01073 ,0.00168 ,0.00001
 505      +,0.42228 ,0.14495  ,0.21951 ,0.01015 ,0.00185 ,0.00003
 506      +,0.40271 ,0.13673  ,0.19377 ,0.00958 ,0.00197 ,0.00015
 507      +,0.38509 ,0.12944  ,0.17243 ,0.00904 ,0.00203 ,0.00031
 508      +,0.36909 ,0.12293  ,0.15451 ,0.00856 ,0.00207 ,0.00043
 509      +,0.35451 ,0.11706  ,0.13934 ,0.00813 ,0.00208 ,0.00052
 510      +,0.34114 ,0.11175  ,0.12638 ,0.00773 ,0.00208 ,0.00058
 511      +,0.32878 ,0.10690  ,0.11520 ,0.00736 ,0.00206 ,0.00063
 512      +,0.31739 ,0.10247  ,0.10551 ,0.00703 ,0.00204 ,0.00067
 513      +,0.30685 ,0.09841  ,0.09707 ,0.00672 ,0.00202 ,0.00069
 514      +,0.29699 ,0.09466  ,0.08964 ,0.00643 ,0.00198 ,0.00071
 515      +,0.28779 ,0.09119  ,0.08309 ,0.00617 ,0.00195 ,0.00073
 516      +,0.27923 ,0.08797  ,0.07728 ,0.00593 ,0.00191 ,0.00074
 517      +,0.27115 ,0.08497  ,0.07210 ,0.00570 ,0.00187 ,0.00074
 518      +,0.26361 ,0.08217  ,0.06746 ,0.00549 ,0.00184 ,0.00074
 519      +,0.25644 ,0.07954  ,0.06329 ,0.00529 ,0.00180 ,0.00074/
 520       DATA ((F(I,26,K),I=1,6),K=1,19)/
 521      + 0.50029 ,0.17253  ,0.34099 ,0.00968 ,0.00022 ,0.00000
 522      +,0.46562 ,0.15773  ,0.28262 ,0.00910 ,0.00074 ,0.00000
 523      +,0.43621 ,0.14550  ,0.23830 ,0.00856 ,0.00106 ,0.00000
 524      +,0.41092 ,0.13519  ,0.20391 ,0.00805 ,0.00126 ,0.00000
 525      +,0.38875 ,0.12635  ,0.17663 ,0.00758 ,0.00139 ,0.00001
 526      +,0.36919 ,0.11866  ,0.15462 ,0.00713 ,0.00146 ,0.00010
 527      +,0.35167 ,0.11188  ,0.13655 ,0.00670 ,0.00150 ,0.00022
 528      +,0.33583 ,0.10585  ,0.12153 ,0.00633 ,0.00153 ,0.00031
 529      +,0.32147 ,0.10045  ,0.10890 ,0.00598 ,0.00153 ,0.00037
 530      +,0.30835 ,0.09558  ,0.09820 ,0.00567 ,0.00153 ,0.00042
 531      +,0.29631 ,0.09114  ,0.08903 ,0.00539 ,0.00151 ,0.00045
 532      +,0.28522 ,0.08711  ,0.08114 ,0.00513 ,0.00149 ,0.00048
 533      +,0.27499 ,0.08342  ,0.07430 ,0.00489 ,0.00146 ,0.00050
 534      +,0.26548 ,0.08002  ,0.06832 ,0.00467 ,0.00144 ,0.00051
 535      +,0.25664 ,0.07689  ,0.06307 ,0.00447 ,0.00141 ,0.00052
 536      +,0.24842 ,0.07400  ,0.05844 ,0.00428 ,0.00138 ,0.00052
 537      +,0.24068 ,0.07131  ,0.05433 ,0.00411 ,0.00135 ,0.00053
 538      +,0.23347 ,0.06881  ,0.05066 ,0.00395 ,0.00132 ,0.00053
 539      +,0.22665 ,0.06647  ,0.04738 ,0.00380 ,0.00129 ,0.00052/
 540       DATA ((F(I,27,K),I=1,6),K=1,19)/
 541      + 0.46607 ,0.15195  ,0.28547 ,0.00728 ,0.00017 ,0.00000
 542      +,0.43097 ,0.13799  ,0.23335 ,0.00681 ,0.00056 ,0.00000
 543      +,0.40146 ,0.12654  ,0.19442 ,0.00637 ,0.00080 ,0.00000
 544      +,0.37627 ,0.11696  ,0.16464 ,0.00597 ,0.00095 ,0.00000
 545      +,0.35433 ,0.10880  ,0.14131 ,0.00560 ,0.00104 ,0.00001
 546      +,0.33508 ,0.10173  ,0.12268 ,0.00524 ,0.00109 ,0.00007
 547      +,0.31794 ,0.09554  ,0.10754 ,0.00491 ,0.00111 ,0.00016
 548      +,0.30253 ,0.09005  ,0.09506 ,0.00462 ,0.00112 ,0.00022
 549      +,0.28861 ,0.08516  ,0.08465 ,0.00436 ,0.00112 ,0.00027
 550      +,0.27595 ,0.08076  ,0.07589 ,0.00412 ,0.00111 ,0.00030
 551      +,0.26438 ,0.07678  ,0.06844 ,0.00390 ,0.00110 ,0.00032
 552      +,0.25376 ,0.07316  ,0.06207 ,0.00370 ,0.00108 ,0.00034
 553      +,0.24401 ,0.06988  ,0.05658 ,0.00352 ,0.00106 ,0.00035
 554      +,0.23496 ,0.06685  ,0.05180 ,0.00336 ,0.00104 ,0.00036
 555      +,0.22658 ,0.06407  ,0.04763 ,0.00320 ,0.00101 ,0.00037
 556      +,0.21882 ,0.06152  ,0.04397 ,0.00306 ,0.00099 ,0.00037
 557      +,0.21152 ,0.05914  ,0.04073 ,0.00293 ,0.00097 ,0.00037
 558      +,0.20475 ,0.05695  ,0.03786 ,0.00281 ,0.00094 ,0.00037
 559      +,0.19836 ,0.05489  ,0.03530 ,0.00270 ,0.00092 ,0.00037/
 560       DATA ((F(I,28,K),I=1,6),K=1,19)/
 561      + 0.42981 ,0.13220  ,0.23735 ,0.00543 ,0.00012 ,-0.00001
 562      +,0.39492 ,0.11926  ,0.19136 ,0.00505 ,0.00042 ,-0.00001
 563      +,0.36579 ,0.10873  ,0.15758 ,0.00470 ,0.00059 ,-0.00001
 564      +,0.34110 ,0.09998  ,0.13207 ,0.00439 ,0.00070 ,-0.00001
 565      +,0.31976 ,0.09256  ,0.11232 ,0.00410 ,0.00077 ,0.00000
 566      +,0.30111 ,0.08618  ,0.09673 ,0.00383 ,0.00080 ,0.00005
 567      +,0.28458 ,0.08061  ,0.08416 ,0.00357 ,0.00082 ,0.00012
 568      +,0.26981 ,0.07570  ,0.07389 ,0.00335 ,0.00082 ,0.00016
 569      +,0.25654 ,0.07134  ,0.06539 ,0.00315 ,0.00082 ,0.00019
 570      +,0.24452 ,0.06744  ,0.05829 ,0.00296 ,0.00081 ,0.00022
 571      +,0.23354 ,0.06391  ,0.05229 ,0.00280 ,0.00079 ,0.00023
 572      +,0.22353 ,0.06073  ,0.04719 ,0.00265 ,0.00078 ,0.00024
 573      +,0.21436 ,0.05784  ,0.04282 ,0.00251 ,0.00076 ,0.00025
 574      +,0.20589 ,0.05519  ,0.03904 ,0.00239 ,0.00074 ,0.00026
 575      +,0.19806 ,0.05277  ,0.03575 ,0.00228 ,0.00072 ,0.00026
 576      +,0.19083 ,0.05054  ,0.03288 ,0.00217 ,0.00071 ,0.00026
 577      +,0.18406 ,0.04848  ,0.03036 ,0.00207 ,0.00069 ,0.00026
 578      +,0.17779 ,0.04658  ,0.02813 ,0.00199 ,0.00067 ,0.00026
 579      +,0.17189 ,0.04480  ,0.02615 ,0.00190 ,0.00065 ,0.00026/
 580       DATA ((F(I,29,K),I=1,6),K=1,19)/
 581      + 0.39228 ,0.11354  ,0.19583 ,0.00398 ,0.00009 ,-0.00001
 582      +,0.35811 ,0.10175  ,0.15576 ,0.00369 ,0.00031 ,-0.00001
 583      +,0.32981 ,0.09224  ,0.12676 ,0.00342 ,0.00044 ,-0.00001
 584      +,0.30599 ,0.08437  ,0.10516 ,0.00318 ,0.00052 ,-0.00001
 585      +,0.28553 ,0.07775  ,0.08862 ,0.00296 ,0.00056 ,0.00000
 586      +,0.26775 ,0.07208  ,0.07569 ,0.00275 ,0.00058 ,0.00004
 587      +,0.25208 ,0.06716  ,0.06538 ,0.00256 ,0.00059 ,0.00008
 588      +,0.23813 ,0.06284  ,0.05701 ,0.00239 ,0.00059 ,0.00011
 589      +,0.22565 ,0.05901  ,0.05014 ,0.00224 ,0.00059 ,0.00014
 590      +,0.21439 ,0.05560  ,0.04444 ,0.00210 ,0.00058 ,0.00015
 591      +,0.20415 ,0.05253  ,0.03965 ,0.00198 ,0.00057 ,0.00016
 592      +,0.19484 ,0.04977  ,0.03561 ,0.00187 ,0.00055 ,0.00017
 593      +,0.18635 ,0.04728  ,0.03217 ,0.00177 ,0.00054 ,0.00018
 594      +,0.17853 ,0.04499  ,0.02920 ,0.00168 ,0.00052 ,0.00018
 595      +,0.17132 ,0.04291  ,0.02664 ,0.00160 ,0.00051 ,0.00018
 596      +,0.16468 ,0.04100  ,0.02441 ,0.00152 ,0.00050 ,0.00018
 597      +,0.15849 ,0.03924  ,0.02246 ,0.00145 ,0.00048 ,0.00018
 598      +,0.15276 ,0.03761  ,0.02074 ,0.00138 ,0.00047 ,0.00018
 599      +,0.14738 ,0.03610  ,0.01923 ,0.00132 ,0.00045 ,0.00018/
 600       DATA ((F(I,30,K),I=1,6),K=1,19)/
 601      + 0.35427 ,0.09625  ,0.16023 ,0.00289 ,0.00007 ,0.00000
 602      +,0.32132 ,0.08569  ,0.12574 ,0.00267 ,0.00023 ,0.00000
 603      +,0.29427 ,0.07723  ,0.10114 ,0.00246 ,0.00032 ,0.00000
 604      +,0.27157 ,0.07028  ,0.08304 ,0.00228 ,0.00038 ,0.00000
 605      +,0.25225 ,0.06446  ,0.06935 ,0.00211 ,0.00041 ,0.00000
 606      +,0.23555 ,0.05951  ,0.05875 ,0.00196 ,0.00042 ,0.00003
 607      +,0.22089 ,0.05523  ,0.05036 ,0.00182 ,0.00043 ,0.00006
 608      +,0.20791 ,0.05148  ,0.04362 ,0.00169 ,0.00042 ,0.00008
 609      +,0.19635 ,0.04818  ,0.03812 ,0.00158 ,0.00042 ,0.00010
 610      +,0.18596 ,0.04525  ,0.03359 ,0.00148 ,0.00041 ,0.00011
 611      +,0.17656 ,0.04262  ,0.02983 ,0.00139 ,0.00040 ,0.00011
 612      +,0.16803 ,0.04026  ,0.02666 ,0.00131 ,0.00039 ,0.00012
 613      +,0.16026 ,0.03814  ,0.02397 ,0.00123 ,0.00038 ,0.00012
 614      +,0.15314 ,0.03620  ,0.02167 ,0.00117 ,0.00037 ,0.00012
 615      +,0.14659 ,0.03444  ,0.01969 ,0.00111 ,0.00036 ,0.00012
 616      +,0.14058 ,0.03283  ,0.01797 ,0.00105 ,0.00035 ,0.00013
 617      +,0.13498 ,0.03135  ,0.01648 ,0.00100 ,0.00033 ,0.00013
 618      +,0.12981 ,0.02999  ,0.01517 ,0.00095 ,0.00032 ,0.00012
 619      +,0.12499 ,0.02872  ,0.01402 ,0.00091 ,0.00031 ,0.00012/
 620       DATA ((F(I,31,K),I=1,6),K=1,19)/
 621      + 0.31635 ,0.08047  ,0.12992 ,0.00206 ,0.00005 ,0.00000
 622      +,0.28505 ,0.07117  ,0.10057 ,0.00189 ,0.00017 ,0.00000
 623      +,0.25956 ,0.06377  ,0.07995 ,0.00174 ,0.00023 ,0.00000
 624      +,0.23831 ,0.05773  ,0.06496 ,0.00161 ,0.00027 ,0.00000
 625      +,0.22033 ,0.05271  ,0.05375 ,0.00148 ,0.00029 ,0.00000
 626      +,0.20487 ,0.04845  ,0.04516 ,0.00137 ,0.00030 ,0.00002
 627      +,0.19136 ,0.04478  ,0.03842 ,0.00127 ,0.00030 ,0.00004
 628      +,0.17946 ,0.04159  ,0.03305 ,0.00117 ,0.00030 ,0.00006
 629      +,0.16890 ,0.03879  ,0.02871 ,0.00109 ,0.00029 ,0.00007
 630      +,0.15945 ,0.03631  ,0.02515 ,0.00102 ,0.00029 ,0.00007
 631      +,0.15092 ,0.03409  ,0.02221 ,0.00096 ,0.00028 ,0.00008
 632      +,0.14322 ,0.03211  ,0.01975 ,0.00090 ,0.00027 ,0.00008
 633      +,0.13623 ,0.03033  ,0.01768 ,0.00084 ,0.00026 ,0.00008
 634      +,0.12983 ,0.02872  ,0.01592 ,0.00080 ,0.00025 ,0.00008
 635      +,0.12398 ,0.02725  ,0.01441 ,0.00075 ,0.00025 ,0.00009
 636      +,0.11861 ,0.02591  ,0.01310 ,0.00071 ,0.00024 ,0.00009
 637      +,0.11363 ,0.02469  ,0.01197 ,0.00068 ,0.00023 ,0.00009
 638      +,0.10904 ,0.02357  ,0.01098 ,0.00064 ,0.00022 ,0.00009
 639      +,0.10477 ,0.02252  ,0.01012 ,0.00061 ,0.00021 ,0.00008/
 640       DATA ((F(I,32,K),I=1,6),K=1,19)/
 641      + 0.27922 ,0.06629  ,0.10427 ,0.00145 ,0.00004 ,0.00000
 642      +,0.24991 ,0.05825  ,0.07961 ,0.00133 ,0.00012 ,0.00000
 643      +,0.22623 ,0.05189  ,0.06253 ,0.00121 ,0.00017 ,0.00000
 644      +,0.20664 ,0.04673  ,0.05028 ,0.00112 ,0.00020 ,0.00000
 645      +,0.19015 ,0.04245  ,0.04121 ,0.00103 ,0.00021 ,0.00000
 646      +,0.17605 ,0.03885  ,0.03434 ,0.00094 ,0.00021 ,0.00002
 647      +,0.16378 ,0.03577  ,0.02900 ,0.00087 ,0.00021 ,0.00003
 648      +,0.15303 ,0.03309  ,0.02477 ,0.00080 ,0.00021 ,0.00004
 649      +,0.14351 ,0.03076  ,0.02138 ,0.00074 ,0.00021 ,0.00005
 650      +,0.13503 ,0.02870  ,0.01862 ,0.00069 ,0.00020 ,0.00005
 651      +,0.12742 ,0.02686  ,0.01636 ,0.00065 ,0.00020 ,0.00006
 652      +,0.12057 ,0.02523  ,0.01447 ,0.00061 ,0.00019 ,0.00006
 653      +,0.11437 ,0.02377  ,0.01289 ,0.00057 ,0.00018 ,0.00006
 654      +,0.10871 ,0.02244  ,0.01156 ,0.00054 ,0.00018 ,0.00006
 655      +,0.10354 ,0.02124  ,0.01042 ,0.00051 ,0.00017 ,0.00006
 656      +,0.09881 ,0.02016  ,0.00944 ,0.00048 ,0.00017 ,0.00006
 657      +,0.09445 ,0.01915  ,0.00859 ,0.00045 ,0.00016 ,0.00006
 658      +,0.09045 ,0.01823  ,0.00786 ,0.00043 ,0.00015 ,0.00005
 659      +,0.08672 ,0.01739  ,0.00722 ,0.00041 ,0.00015 ,0.00005/
 660       DATA ((F(I,33,K),I=1,6),K=1,19)/
 661      + 0.24336 ,0.05379  ,0.08279 ,0.00100 ,0.00002 ,0.00000
 662      +,0.21638 ,0.04695  ,0.06233 ,0.00091 ,0.00008 ,0.00000
 663      +,0.19471 ,0.04157  ,0.04837 ,0.00083 ,0.00012 ,0.00000
 664      +,0.17693 ,0.03724  ,0.03849 ,0.00076 ,0.00014 ,0.00000
 665      +,0.16203 ,0.03367  ,0.03124 ,0.00070 ,0.00014 ,0.00000
 666      +,0.14934 ,0.03069  ,0.02581 ,0.00064 ,0.00015 ,0.00001
 667      +,0.13839 ,0.02813  ,0.02163 ,0.00059 ,0.00015 ,0.00001
 668      +,0.12881 ,0.02593  ,0.01834 ,0.00054 ,0.00014 ,0.00002
 669      +,0.12038 ,0.02401  ,0.01573 ,0.00050 ,0.00014 ,0.00003
 670      +,0.11290 ,0.02233  ,0.01362 ,0.00047 ,0.00013 ,0.00003
 671      +,0.10620 ,0.02084  ,0.01190 ,0.00043 ,0.00013 ,0.00004
 672      +,0.10019 ,0.01951  ,0.01047 ,0.00040 ,0.00013 ,0.00004
 673      +,0.09478 ,0.01832  ,0.00928 ,0.00038 ,0.00012 ,0.00004
 674      +,0.08984 ,0.01726  ,0.00829 ,0.00035 ,0.00012 ,0.00004
 675      +,0.08536 ,0.01629  ,0.00744 ,0.00033 ,0.00011 ,0.00004
 676      +,0.08127 ,0.01542  ,0.00672 ,0.00032 ,0.00011 ,0.00003
 677      +,0.07750 ,0.01462  ,0.00610 ,0.00030 ,0.00010 ,0.00004
 678      +,0.07404 ,0.01389  ,0.00556 ,0.00028 ,0.00010 ,0.00004
 679      +,0.07084 ,0.01322  ,0.00509 ,0.00027 ,0.00010 ,0.00004/
 680       DATA ((F(I,34,K),I=1,6),K=1,19)/
 681      + 0.20929 ,0.04291  ,0.06492 ,0.00068 ,0.00002 ,0.00000
 682      +,0.18482 ,0.03720  ,0.04818 ,0.00062 ,0.00006 ,0.00000
 683      +,0.16532 ,0.03274  ,0.03693 ,0.00056 ,0.00008 ,0.00000
 684      +,0.14941 ,0.02917  ,0.02907 ,0.00051 ,0.00009 ,0.00000
 685      +,0.13616 ,0.02625  ,0.02337 ,0.00047 ,0.00010 ,0.00000
 686      +,0.12494 ,0.02382  ,0.01914 ,0.00043 ,0.00010 ,0.00000
 687      +,0.11530 ,0.02175  ,0.01591 ,0.00039 ,0.00010 ,0.00001
 688      +,0.10691 ,0.01997  ,0.01340 ,0.00036 ,0.00010 ,0.00001
 689      +,0.09956 ,0.01842  ,0.01141 ,0.00033 ,0.00009 ,0.00002
 690      +,0.09305 ,0.01707  ,0.00982 ,0.00031 ,0.00009 ,0.00002
 691      +,0.08725 ,0.01589  ,0.00853 ,0.00028 ,0.00009 ,0.00002
 692      +,0.08206 ,0.01483  ,0.00747 ,0.00026 ,0.00008 ,0.00002
 693      +,0.07741 ,0.01388  ,0.00659 ,0.00025 ,0.00008 ,0.00003
 694      +,0.07318 ,0.01304  ,0.00586 ,0.00023 ,0.00008 ,0.00002
 695      +,0.06935 ,0.01228  ,0.00524 ,0.00022 ,0.00007 ,0.00002
 696      +,0.06586 ,0.01159  ,0.00471 ,0.00020 ,0.00007 ,0.00002
 697      +,0.06265 ,0.01096  ,0.00426 ,0.00019 ,0.00007 ,0.00002
 698      +,0.05972 ,0.01039  ,0.00387 ,0.00018 ,0.00007 ,0.00002
 699      +,0.05701 ,0.00987  ,0.00353 ,0.00017 ,0.00006 ,0.00002/
 700       DATA ((F(I,35,K),I=1,6),K=1,19)/
 701      + 0.17738 ,0.03362  ,0.05021 ,0.00045 ,0.00001 ,0.00000
 702      +,0.15555 ,0.02894  ,0.03674 ,0.00041 ,0.00004 ,0.00000
 703      +,0.13828 ,0.02531  ,0.02779 ,0.00037 ,0.00006 ,0.00000
 704      +,0.12430 ,0.02243  ,0.02163 ,0.00033 ,0.00006 ,0.00000
 705      +,0.11271 ,0.02008  ,0.01722 ,0.00030 ,0.00006 ,0.00000
 706      +,0.10296 ,0.01813  ,0.01398 ,0.00028 ,0.00006 ,0.00000
 707      +,0.09462 ,0.01649  ,0.01153 ,0.00025 ,0.00006 ,0.00001
 708      +,0.08738 ,0.01508  ,0.00964 ,0.00023 ,0.00006 ,0.00001
 709      +,0.08107 ,0.01386  ,0.00815 ,0.00021 ,0.00006 ,0.00001
 710      +,0.07551 ,0.01281  ,0.00697 ,0.00020 ,0.00006 ,0.00001
 711      +,0.07057 ,0.01187  ,0.00602 ,0.00018 ,0.00006 ,0.00001
 712      +,0.06617 ,0.01105  ,0.00525 ,0.00017 ,0.00006 ,0.00002
 713      +,0.06223 ,0.01032  ,0.00461 ,0.00015 ,0.00005 ,0.00002
 714      +,0.05867 ,0.00966  ,0.00407 ,0.00014 ,0.00005 ,0.00002
 715      +,0.05545 ,0.00907  ,0.00363 ,0.00014 ,0.00005 ,0.00002
 716      +,0.05253 ,0.00854  ,0.00325 ,0.00013 ,0.00004 ,0.00002
 717      +,0.04985 ,0.00806  ,0.00293 ,0.00012 ,0.00004 ,0.00002
 718      +,0.04740 ,0.00763  ,0.00265 ,0.00011 ,0.00004 ,0.00002
 719      +,0.04515 ,0.00722  ,0.00241 ,0.00011 ,0.00004 ,0.00002/
 720       DATA ((F(I,36,K),I=1,6),K=1,19)/
 721      + 0.14797 ,0.02582  ,0.03824 ,0.00029 ,0.00001 ,0.00000
 722      +,0.12883 ,0.02206  ,0.02757 ,0.00026 ,0.00003 ,0.00000
 723      +,0.11381 ,0.01918  ,0.02059 ,0.00024 ,0.00004 ,0.00000
 724      +,0.10173 ,0.01690  ,0.01584 ,0.00021 ,0.00004 ,0.00000
 725      +,0.09177 ,0.01505  ,0.01248 ,0.00019 ,0.00004 ,0.00000
 726      +,0.08344 ,0.01353  ,0.01004 ,0.00018 ,0.00004 ,0.00000
 727      +,0.07634 ,0.01225  ,0.00821 ,0.00016 ,0.00004 ,0.00001
 728      +,0.07023 ,0.01116  ,0.00681 ,0.00015 ,0.00004 ,0.00001
 729      +,0.06490 ,0.01022  ,0.00572 ,0.00013 ,0.00004 ,0.00001
 730      +,0.06024 ,0.00940  ,0.00486 ,0.00012 ,0.00004 ,0.00001
 731      +,0.05611 ,0.00869  ,0.00417 ,0.00011 ,0.00004 ,0.00001
 732      +,0.05245 ,0.00806  ,0.00362 ,0.00010 ,0.00004 ,0.00001
 733      +,0.04918 ,0.00751  ,0.00316 ,0.00010 ,0.00003 ,0.00001
 734      +,0.04623 ,0.00701  ,0.00278 ,0.00009 ,0.00003 ,0.00001
 735      +,0.04357 ,0.00656  ,0.00247 ,0.00008 ,0.00003 ,0.00001
 736      +,0.04117 ,0.00616  ,0.00220 ,0.00008 ,0.00003 ,0.00001
 737      +,0.03897 ,0.00580  ,0.00197 ,0.00007 ,0.00003 ,0.00001
 738      +,0.03697 ,0.00547  ,0.00178 ,0.00007 ,0.00003 ,0.00001
 739      +,0.03513 ,0.00517  ,0.00161 ,0.00007 ,0.00002 ,0.00001/
 740       DATA ((F(I,37,K),I=1,6),K=1,19)/
 741      + 0.09745 ,0.01419  ,0.02101 ,0.00011 ,0.00001 ,0.00000
 742      +,0.08358 ,0.01195  ,0.01466 ,0.00010 ,0.00001 ,0.00000
 743      +,0.07286 ,0.01025  ,0.01065 ,0.00009 ,0.00001 ,0.00000
 744      +,0.06435 ,0.00893  ,0.00800 ,0.00008 ,0.00002 ,0.00000
 745      +,0.05744 ,0.00787  ,0.00617 ,0.00007 ,0.00002 ,0.00000
 746      +,0.05171 ,0.00700  ,0.00486 ,0.00006 ,0.00002 ,0.00000
 747      +,0.04688 ,0.00628  ,0.00391 ,0.00006 ,0.00002 ,0.00000
 748      +,0.04276 ,0.00567  ,0.00319 ,0.00005 ,0.00002 ,0.00000
 749      +,0.03921 ,0.00515  ,0.00264 ,0.00005 ,0.00002 ,0.00000
 750      +,0.03612 ,0.00471  ,0.00221 ,0.00004 ,0.00002 ,0.00000
 751      +,0.03341 ,0.00432  ,0.00187 ,0.00004 ,0.00001 ,0.00000
 752      +,0.03101 ,0.00398  ,0.00161 ,0.00004 ,0.00001 ,0.00000
 753      +,0.02889 ,0.00368  ,0.00139 ,0.00003 ,0.00001 ,0.00000
 754      +,0.02700 ,0.00342  ,0.00121 ,0.00003 ,0.00001 ,0.00000
 755      +,0.02530 ,0.00318  ,0.00106 ,0.00003 ,0.00001 ,0.00000
 756      +,0.02377 ,0.00297  ,0.00094 ,0.00003 ,0.00001 ,0.00000
 757      +,0.02239 ,0.00278  ,0.00084 ,0.00003 ,0.00001 ,0.00000
 758      +,0.02113 ,0.00261  ,0.00075 ,0.00002 ,0.00001 ,0.00000
 759      +,0.01998 ,0.00246  ,0.00068 ,0.00002 ,0.00001 ,0.00000/
 760       DATA ((F(I,38,K),I=1,6),K=1,19)/
 761      + 0.05868 ,0.00697  ,0.01052 ,0.00004 ,0.00000 ,0.00000
 762      +,0.04951 ,0.00577  ,0.00709 ,0.00003 ,0.00000 ,0.00000
 763      +,0.04254 ,0.00488  ,0.00500 ,0.00003 ,0.00000 ,0.00000
 764      +,0.03709 ,0.00419  ,0.00365 ,0.00003 ,0.00001 ,0.00000
 765      +,0.03272 ,0.00365  ,0.00275 ,0.00002 ,0.00000 ,0.00000
 766      +,0.02914 ,0.00322  ,0.00212 ,0.00002 ,0.00000 ,0.00000
 767      +,0.02616 ,0.00286  ,0.00167 ,0.00002 ,0.00000 ,0.00000
 768      +,0.02364 ,0.00256  ,0.00134 ,0.00002 ,0.00000 ,0.00000
 769      +,0.02149 ,0.00230  ,0.00109 ,0.00001 ,0.00000 ,0.00000
 770      +,0.01964 ,0.00209  ,0.00090 ,0.00001 ,0.00000 ,0.00000
 771      +,0.01802 ,0.00190  ,0.00075 ,0.00001 ,0.00000 ,0.00000
 772      +,0.01661 ,0.00174  ,0.00064 ,0.00001 ,0.00000 ,0.00000
 773      +,0.01537 ,0.00160  ,0.00054 ,0.00001 ,0.00000 ,0.00000
 774      +,0.01426 ,0.00147  ,0.00047 ,0.00001 ,0.00000 ,0.00000
 775      +,0.01328 ,0.00136  ,0.00041 ,0.00001 ,0.00000 ,0.00000
 776      +,0.01241 ,0.00126  ,0.00036 ,0.00001 ,0.00000 ,0.00000
 777      +,0.01162 ,0.00118  ,0.00032 ,0.00001 ,0.00000 ,0.00000
 778      +,0.01091 ,0.00110  ,0.00028 ,0.00001 ,0.00000 ,0.00000
 779      +,0.01026 ,0.00103  ,0.00025 ,0.00001 ,0.00000 ,0.00000/
 780       DATA ((F(I,39,K),I=1,6),K=1,19)/
 781      + 0.03135 ,0.00294  ,0.00465 ,0.00001 ,0.00000 ,0.00000
 782      +,0.02598 ,0.00239  ,0.00301 ,0.00001 ,0.00000 ,0.00000
 783      +,0.02196 ,0.00199  ,0.00205 ,0.00001 ,0.00000 ,0.00000
 784      +,0.01887 ,0.00168  ,0.00146 ,0.00001 ,0.00000 ,0.00000
 785      +,0.01643 ,0.00145  ,0.00107 ,0.00001 ,0.00000 ,0.00000
 786      +,0.01446 ,0.00126  ,0.00080 ,0.00001 ,0.00000 ,0.00000
 787      +,0.01284 ,0.00111  ,0.00062 ,0.00000 ,0.00000 ,0.00000
 788      +,0.01148 ,0.00098  ,0.00049 ,0.00000 ,0.00000 ,0.00000
 789      +,0.01034 ,0.00087  ,0.00039 ,0.00000 ,0.00000 ,0.00000
 790      +,0.00936 ,0.00078  ,0.00032 ,0.00000 ,0.00000 ,0.00000
 791      +,0.00852 ,0.00071  ,0.00026 ,0.00000 ,0.00000 ,0.00000
 792      +,0.00779 ,0.00064  ,0.00022 ,0.00000 ,0.00000 ,0.00000
 793      +,0.00715 ,0.00059  ,0.00018 ,0.00000 ,0.00000 ,0.00000
 794      +,0.00659 ,0.00054  ,0.00016 ,0.00000 ,0.00000 ,0.00000
 795      +,0.00609 ,0.00049  ,0.00013 ,0.00000 ,0.00000 ,0.00000
 796      +,0.00565 ,0.00045  ,0.00012 ,0.00000 ,0.00000 ,0.00000
 797      +,0.00525 ,0.00042  ,0.00010 ,0.00000 ,0.00000 ,0.00000
 798      +,0.00490 ,0.00039  ,0.00009 ,0.00000 ,0.00000 ,0.00000
 799      +,0.00458 ,0.00036  ,0.00008 ,0.00000 ,0.00000 ,0.00000/
 800       DATA ((F(I,40,K),I=1,6),K=1,19)/
 801      + 0.01414 ,0.00099  ,0.00171 ,0.00000 ,0.00000 ,0.00000
 802      +,0.01147 ,0.00079  ,0.00106 ,0.00000 ,0.00000 ,0.00000
 803      +,0.00952 ,0.00065  ,0.00069 ,0.00000 ,0.00000 ,0.00000
 804      +,0.00804 ,0.00054  ,0.00047 ,0.00000 ,0.00000 ,0.00000
 805      +,0.00690 ,0.00046  ,0.00034 ,0.00000 ,0.00000 ,0.00000
 806      +,0.00599 ,0.00039  ,0.00025 ,0.00000 ,0.00000 ,0.00000
 807      +,0.00525 ,0.00034  ,0.00018 ,0.00000 ,0.00000 ,0.00000
 808      +,0.00464 ,0.00030  ,0.00014 ,0.00000 ,0.00000 ,0.00000
 809      +,0.00413 ,0.00026  ,0.00011 ,0.00000 ,0.00000 ,0.00000
 810      +,0.00370 ,0.00023  ,0.00009 ,0.00000 ,0.00000 ,0.00000
 811      +,0.00333 ,0.00021  ,0.00007 ,0.00000 ,0.00000 ,0.00000
 812      +,0.00302 ,0.00019  ,0.00006 ,0.00000 ,0.00000 ,0.00000
 813      +,0.00274 ,0.00017  ,0.00005 ,0.00000 ,0.00000 ,0.00000
 814      +,0.00251 ,0.00015  ,0.00004 ,0.00000 ,0.00000 ,0.00000
 815      +,0.00230 ,0.00014  ,0.00003 ,0.00000 ,0.00000 ,0.00000
 816      +,0.00212 ,0.00013  ,0.00003 ,0.00000 ,0.00000 ,0.00000
 817      +,0.00195 ,0.00012  ,0.00003 ,0.00000 ,0.00000 ,0.00000
 818      +,0.00181 ,0.00011  ,0.00002 ,0.00000 ,0.00000 ,0.00000
 819      +,0.00168 ,0.00010  ,0.00002 ,0.00000 ,0.00000 ,0.00000/
 820       DATA ((F(I,41,K),I=1,6),K=1,19)/
 821      + 0.00105 ,0.00003  ,0.00008 ,0.00000 ,0.00000 ,0.00000
 822      +,0.00080 ,0.00002  ,0.00004 ,0.00000 ,0.00000 ,0.00000
 823      +,0.00063 ,0.00002  ,0.00002 ,0.00000 ,0.00000 ,0.00000
 824      +,0.00051 ,0.00001  ,0.00001 ,0.00000 ,0.00000 ,0.00000
 825      +,0.00042 ,0.00001  ,0.00001 ,0.00000 ,0.00000 ,0.00000
 826      +,0.00035 ,0.00001  ,0.00001 ,0.00000 ,0.00000 ,0.00000
 827      +,0.00029 ,0.00001  ,0.00001 ,0.00000 ,0.00000 ,0.00000
 828      +,0.00025 ,0.00001  ,0.00001 ,0.00000 ,0.00000 ,0.00000
 829      +,0.00021 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 830      +,0.00018 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 831      +,0.00016 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 832      +,0.00014 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 833      +,0.00012 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 834      +,0.00011 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 835      +,0.00010 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 836      +,0.00009 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 837      +,0.00008 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 838      +,0.00007 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 839      +,0.00006 ,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(67,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       XSAVE = X
 871       IF(X.LT.XMIN) X=XMIN
 872       IF(X.GT.XMAX) X=XMAX
 873       QSQ=SCALE**2
 874       IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
 875       IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
 876       XXX=X
 877       IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
 878       N=0
 879   70  N=N+1
 880       IF(XXX.GT.XX(N+1)) GOTO 70
 881       A=(XXX-XX(N))/(XX(N+1)-XX(N))
 882       RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
 883       B=RM-AINT(RM)
 884       M=1+  INT(RM)
 885       DO 60 I=1,6
 886       G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
 887      .    + A*(ONED-B)*F(I,N+1,M)  + A*B*F(I,N+1,M+1)
 888       IF(N.GE.16) GOTO 65
 889       IF(I.EQ.6) GOTO 65
 890           FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1)
 891           G(I)=FAC**(G(I)/FAC)
 892   65  CONTINUE
 893       G(I)=G(I)*(ONED-X)**N0(I)
 894   60  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       X = XSAVE
 903       RETURN
 904       END