PDF/spdf/struce.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.2  1996/10/30 08:31:50  cernlib
   6 * Version 7.04
   7 *
   8 * Revision 1.1.1.1  1996/04/12 15:30:06  plothow
   9 * Version 7.01
  10 *
  11 *
  12 #include "pdf/pilot.h"
  13 C-----------------------------------------------------------------------
  14       SUBROUTINE STRUCE(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL)
  15 C :::::::::::: MARTIN ROBERTS STIRLING :::::SOFT GLUE:::: 91 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.03099 ,0.00427  ,4.49202 ,0.17286 ,0.02370 ,0.00000
  22      +,0.03261 ,0.00482 ,10.95195 ,0.30515 ,0.12292 ,0.00000
  23      +,0.03411 ,0.00534 ,18.41515 ,0.47971 ,0.25382 ,0.00000
  24      +,0.03550 ,0.00584 ,26.22818 ,0.68684 ,0.40914 ,0.00000
  25      +,0.03680 ,0.00632 ,34.35387 ,0.92069 ,0.58581 ,0.00528
  26      +,0.03803 ,0.00678 ,42.69341 ,1.15095 ,0.78075 ,0.09440
  27      +,0.03919 ,0.00723 ,51.05495 ,1.34942 ,0.98892 ,0.33188
  28      +,0.04031 ,0.00766 ,59.49849 ,1.56763 ,1.21000 ,0.56180
  29      +,0.04138 ,0.00809 ,68.00484 ,1.79810 ,1.44264 ,0.80109
  30      +,0.04240 ,0.00850 ,76.56488 ,2.03894 ,1.68591 ,1.05189
  31      +,0.04339 ,0.00890 ,84.99364 ,2.28523 ,1.93433 ,1.30694
  32      +,0.04434 ,0.00929 ,93.31850 ,2.53646 ,2.18758 ,1.56646
  33      +,0.04526 ,0.00968,101.70302 ,2.79662 ,2.44965 ,1.83445
  34      +,0.04615 ,0.01005,109.80914 ,3.05548 ,2.71029 ,2.10067
  35      +,0.04701 ,0.01042,117.92491 ,3.32077 ,2.97726 ,2.37293
  36      +,0.04785 ,0.01078,125.87735 ,3.58691 ,3.24500 ,2.64567
  37      +,0.04866 ,0.01113,133.72614 ,3.85523 ,3.51483 ,2.92027
  38      +,0.04945 ,0.01148,141.44716 ,4.12455 ,3.78559 ,3.19558
  39      +,0.05022 ,0.01182,149.05557 ,4.39499 ,4.05740 ,3.47172/
  40       DATA ((F(I,2,K),I=1,6),K=1,19)/
  41      + 0.04192 ,0.00692  ,4.28790 ,0.17391 ,0.02183 ,0.00000
  42      +,0.04396 ,0.00773  ,9.45952 ,0.29042 ,0.10922 ,0.00000
  43      +,0.04583 ,0.00850 ,15.10009 ,0.43655 ,0.21882 ,0.00000
  44      +,0.04756 ,0.00923 ,20.79816 ,0.60357 ,0.34408 ,0.00000
  45      +,0.04918 ,0.00992 ,26.56451 ,0.78669 ,0.48243 ,0.00410
  46      +,0.05069 ,0.01058 ,32.35019 ,0.96281 ,0.63145 ,0.07187
  47      +,0.05213 ,0.01122 ,38.03772 ,1.11115 ,0.78742 ,0.25076
  48      +,0.05350 ,0.01183 ,43.68176 ,1.27152 ,0.95017 ,0.42071
  49      +,0.05481 ,0.01243 ,49.27914 ,1.43832 ,1.11878 ,0.59481
  50      +,0.05606 ,0.01301 ,54.83238 ,1.61020 ,1.29267 ,0.77483
  51      +,0.05726 ,0.01357 ,60.22556 ,1.78375 ,1.46801 ,0.95559
  52      +,0.05841 ,0.01412 ,65.48492 ,1.95877 ,1.64472 ,1.13743
  53      +,0.05952 ,0.01465 ,70.72456 ,2.13813 ,1.82567 ,1.32324
  54      +,0.06060 ,0.01517 ,75.72868 ,2.31480 ,2.00384 ,1.50599
  55      +,0.06163 ,0.01567 ,80.69067 ,2.49426 ,2.18472 ,1.69120
  56      +,0.06263 ,0.01616 ,85.50298 ,2.67274 ,2.36454 ,1.87514
  57      +,0.06361 ,0.01664 ,90.20808 ,2.85123 ,2.54432 ,2.05884
  58      +,0.06455 ,0.01711 ,94.79483 ,3.02905 ,2.72336 ,2.24161
  59      +,0.06546 ,0.01757 ,99.27603 ,3.20632 ,2.90180 ,2.42362/
  60       DATA ((F(I,3,K),I=1,6),K=1,19)/
  61      + 0.05642 ,0.01120  ,4.09155 ,0.17421 ,0.01986 ,0.00000
  62      +,0.05896 ,0.01240  ,8.16877 ,0.27556 ,0.09591 ,0.00000
  63      +,0.06128 ,0.01351 ,12.37832 ,0.39645 ,0.18662 ,0.00000
  64      +,0.06342 ,0.01456 ,16.48587 ,0.52963 ,0.28654 ,0.00000
  65      +,0.06541 ,0.01555 ,20.53108 ,0.67148 ,0.39375 ,0.00315
  66      +,0.06727 ,0.01650 ,24.49818 ,0.80475 ,0.50650 ,0.05418
  67      +,0.06902 ,0.01740 ,28.32004 ,0.91441 ,0.62216 ,0.18771
  68      +,0.07068 ,0.01826 ,32.04518 ,1.03101 ,0.74075 ,0.31217
  69      +,0.07227 ,0.01910 ,35.68001 ,1.15042 ,0.86173 ,0.43768
  70      +,0.07378 ,0.01990 ,39.23312 ,1.27175 ,0.98476 ,0.56571
  71      +,0.07522 ,0.02068 ,42.63412 ,1.39271 ,1.10725 ,0.69265
  72      +,0.07660 ,0.02143 ,45.90637 ,1.51329 ,1.22927 ,0.81887
  73      +,0.07793 ,0.02216 ,49.12941 ,1.63556 ,1.35291 ,0.94649
  74      +,0.07921 ,0.02286 ,52.16718 ,1.75477 ,1.47341 ,1.07076
  75      +,0.08044 ,0.02355 ,55.14877 ,1.87476 ,1.59463 ,1.19554
  76      +,0.08163 ,0.02421 ,58.00841 ,1.99305 ,1.71410 ,1.31839
  77      +,0.08278 ,0.02486 ,60.77634 ,2.11039 ,1.83255 ,1.44006
  78      +,0.08389 ,0.02549 ,63.44807 ,2.22637 ,1.94960 ,1.56019
  79      +,0.08497 ,0.02610 ,66.03423 ,2.34115 ,2.06540 ,1.67892/
  80       DATA ((F(I,4,K),I=1,6),K=1,19)/
  81      + 0.06695 ,0.01484  ,3.97967 ,0.17393 ,0.01866 ,0.00000
  82      +,0.06983 ,0.01633  ,7.49570 ,0.26668 ,0.08831 ,0.00000
  83      +,0.07245 ,0.01772 ,11.01711 ,0.37417 ,0.16900 ,0.00000
  84      +,0.07486 ,0.01901 ,14.38605 ,0.49009 ,0.25601 ,0.00000
  85      +,0.07708 ,0.02023 ,17.65152 ,0.61151 ,0.34782 ,0.00268
  86      +,0.07917 ,0.02138 ,20.81090 ,0.72405 ,0.44304 ,0.04568
  87      +,0.08112 ,0.02248 ,23.81787 ,0.81536 ,0.53959 ,0.15763
  88      +,0.08298 ,0.02352 ,26.71706 ,0.91152 ,0.63758 ,0.26084
  89      +,0.08474 ,0.02453 ,29.51817 ,1.00912 ,0.73663 ,0.36395
  90      +,0.08641 ,0.02550 ,32.23175 ,1.10746 ,0.83654 ,0.46830
  91      +,0.08801 ,0.02643 ,34.80586 ,1.20478 ,0.93527 ,0.57099
  92      +,0.08954 ,0.02733 ,37.26187 ,1.30111 ,1.03294 ,0.67242
  93      +,0.09100 ,0.02820 ,39.66411 ,1.39819 ,1.13129 ,0.77432
  94      +,0.09241 ,0.02904 ,41.90923 ,1.49226 ,1.22657 ,0.87295
  95      +,0.09377 ,0.02985 ,44.09908 ,1.58644 ,1.32190 ,0.97146
  96      +,0.09507 ,0.03064 ,46.18442 ,1.67880 ,1.41535 ,1.06793
  97      +,0.09633 ,0.03140 ,48.19009 ,1.76996 ,1.50756 ,1.16302
  98      +,0.09755 ,0.03215 ,50.11394 ,1.85965 ,1.59825 ,1.25645
  99      +,0.09873 ,0.03287 ,51.96503 ,1.94801 ,1.68757 ,1.34840/
 100       DATA ((F(I,5,K),I=1,6),K=1,19)/
 101      + 0.07548 ,0.01811  ,3.90131 ,0.17347 ,0.01779 ,0.00000
 102      +,0.07862 ,0.01985  ,7.05120 ,0.26025 ,0.08299 ,0.00000
 103      +,0.08147 ,0.02146 ,10.14143 ,0.35880 ,0.15701 ,0.00000
 104      +,0.08408 ,0.02295 ,13.05752 ,0.46350 ,0.23564 ,0.00000
 105      +,0.08649 ,0.02436 ,15.85226 ,0.57188 ,0.31763 ,0.00239
 106      +,0.08874 ,0.02568 ,18.53004 ,0.67137 ,0.40184 ,0.04035
 107      +,0.09085 ,0.02694 ,21.05624 ,0.75129 ,0.48652 ,0.13889
 108      +,0.09285 ,0.02814 ,23.47272 ,0.83488 ,0.57184 ,0.22902
 109      +,0.09474 ,0.02928 ,25.79056 ,0.91917 ,0.65753 ,0.31847
 110      +,0.09654 ,0.03039 ,28.02113 ,1.00361 ,0.74345 ,0.40847
 111      +,0.09825 ,0.03144 ,30.12296 ,1.08672 ,0.82791 ,0.49659
 112      +,0.09989 ,0.03246 ,32.11586 ,1.16857 ,0.91105 ,0.58319
 113      +,0.10146 ,0.03344 ,34.05513 ,1.25070 ,0.99440 ,0.66982
 114      +,0.10296 ,0.03439 ,35.85596 ,1.32993 ,1.07479 ,0.75330
 115      +,0.10440 ,0.03530 ,37.60429 ,1.40895 ,1.15491 ,0.83635
 116      +,0.10579 ,0.03619 ,39.26022 ,1.48613 ,1.23315 ,0.91738
 117      +,0.10713 ,0.03705 ,40.84520 ,1.56205 ,1.31007 ,0.99696
 118      +,0.10843 ,0.03788 ,42.35826 ,1.63648 ,1.38547 ,1.07490
 119      +,0.10968 ,0.03868 ,43.80746 ,1.70958 ,1.45950 ,1.15135/
 120       DATA ((F(I,6,K),I=1,6),K=1,19)/
 121      + 0.08278 ,0.02113  ,3.84096 ,0.17295 ,0.01710 ,0.00000
 122      +,0.08612 ,0.02309  ,6.72403 ,0.25517 ,0.07891 ,0.00000
 123      +,0.08916 ,0.02489  ,9.50925 ,0.34709 ,0.14799 ,0.00000
 124      +,0.09193 ,0.02656 ,12.11003 ,0.44363 ,0.22054 ,0.00000
 125      +,0.09449 ,0.02813 ,14.58070 ,0.54267 ,0.29549 ,0.00218
 126      +,0.09688 ,0.02960 ,16.92995 ,0.63290 ,0.37190 ,0.03659
 127      +,0.09911 ,0.03099 ,19.13084 ,0.70481 ,0.44824 ,0.12569
 128      +,0.10122 ,0.03232 ,21.22282 ,0.77963 ,0.52473 ,0.20668
 129      +,0.10322 ,0.03358 ,23.21786 ,0.85470 ,0.60115 ,0.28666
 130      +,0.10511 ,0.03480 ,25.12762 ,0.92954 ,0.67744 ,0.36678
 131      +,0.10692 ,0.03596 ,26.91740 ,1.00291 ,0.75212 ,0.44489
 132      +,0.10864 ,0.03708 ,28.60596 ,1.07488 ,0.82534 ,0.52137
 133      +,0.11029 ,0.03816 ,30.24222 ,1.14684 ,0.89850 ,0.59760
 134      +,0.11186 ,0.03919 ,31.75365 ,1.21602 ,0.96880 ,0.67081
 135      +,0.11338 ,0.04019 ,33.21550 ,1.28480 ,1.03866 ,0.74342
 136      +,0.11484 ,0.04115 ,34.59399 ,1.35179 ,1.10668 ,0.81406
 137      +,0.11624 ,0.04209 ,35.90814 ,1.41749 ,1.17336 ,0.88324
 138      +,0.11760 ,0.04299 ,37.15768 ,1.48173 ,1.23855 ,0.95082
 139      +,0.11890 ,0.04387 ,38.34999 ,1.54466 ,1.30239 ,1.01694/
 140       DATA ((F(I,7,K),I=1,6),K=1,19)/
 141      + 0.10962 ,0.03407  ,3.65426 ,0.17025 ,0.01491 ,0.00000
 142      +,0.11367 ,0.03684  ,5.79688 ,0.23871 ,0.06653 ,0.00000
 143      +,0.11732 ,0.03937  ,7.77773 ,0.31167 ,0.12152 ,0.00000
 144      +,0.12064 ,0.04170  ,9.56922 ,0.38566 ,0.17728 ,0.00000
 145      +,0.12369 ,0.04385 ,11.22441 ,0.45946 ,0.23329 ,0.00162
 146      +,0.12651 ,0.04586 ,12.75993 ,0.52514 ,0.28907 ,0.02669
 147      +,0.12915 ,0.04775 ,14.16584 ,0.57617 ,0.34370 ,0.09114
 148      +,0.13162 ,0.04953 ,15.47449 ,0.62838 ,0.39747 ,0.14862
 149      +,0.13395 ,0.05123 ,16.69864 ,0.67995 ,0.45034 ,0.20446
 150      +,0.13616 ,0.05284 ,17.84976 ,0.73062 ,0.50236 ,0.25964
 151      +,0.13826 ,0.05438 ,18.90878 ,0.77962 ,0.55261 ,0.31273
 152      +,0.14024 ,0.05584 ,19.89053 ,0.82710 ,0.60128 ,0.36409
 153      +,0.14214 ,0.05725 ,20.82870 ,0.87405 ,0.64936 ,0.41471
 154      +,0.14395 ,0.05859 ,21.67905 ,0.91865 ,0.69505 ,0.46281
 155      +,0.14569 ,0.05988 ,22.49089 ,0.96257 ,0.74001 ,0.51005
 156      +,0.14735 ,0.06112 ,23.24431 ,1.00493 ,0.78335 ,0.55557
 157      +,0.14894 ,0.06231 ,23.95244 ,1.04608 ,0.82546 ,0.59975
 158      +,0.15048 ,0.06346 ,24.61615 ,1.08598 ,0.86628 ,0.64254
 159      +,0.15195 ,0.06458 ,25.24094 ,1.12473 ,0.90592 ,0.68407/
 160       DATA ((F(I,8,K),I=1,6),K=1,19)/
 161      + 0.14373 ,0.05464  ,3.46378 ,0.16556 ,0.01265 ,0.00000
 162      +,0.14853 ,0.05845  ,4.98715 ,0.22091 ,0.05466 ,0.00000
 163      +,0.15283 ,0.06189  ,6.34362 ,0.27721 ,0.09736 ,0.00000
 164      +,0.15671 ,0.06501  ,7.53198 ,0.33238 ,0.13919 ,0.00000
 165      +,0.16026 ,0.06787  ,8.59776 ,0.38588 ,0.18005 ,0.00118
 166      +,0.16353 ,0.07051  ,9.55987 ,0.43234 ,0.21978 ,0.01906
 167      +,0.16655 ,0.07297 ,10.41780 ,0.46742 ,0.25791 ,0.06470
 168      +,0.16939 ,0.07528 ,11.19717 ,0.50271 ,0.29474 ,0.10461
 169      +,0.17204 ,0.07745 ,11.90974 ,0.53700 ,0.33037 ,0.14275
 170      +,0.17455 ,0.07950 ,12.56570 ,0.57016 ,0.36490 ,0.17988
 171      +,0.17691 ,0.08144 ,13.15531 ,0.60177 ,0.39777 ,0.21513
 172      +,0.17914 ,0.08327 ,13.68989 ,0.63198 ,0.42919 ,0.24878
 173      +,0.18126 ,0.08503 ,14.19205 ,0.66150 ,0.45987 ,0.28157
 174      +,0.18328 ,0.08668 ,14.63562 ,0.68918 ,0.48865 ,0.31236
 175      +,0.18520 ,0.08827 ,15.05217 ,0.71615 ,0.51669 ,0.34229
 176      +,0.18703 ,0.08979 ,15.43036 ,0.74187 ,0.54342 ,0.37083
 177      +,0.18879 ,0.09124 ,15.77890 ,0.76661 ,0.56914 ,0.39827
 178      +,0.19047 ,0.09263 ,16.09903 ,0.79034 ,0.59382 ,0.42460
 179      +,0.19208 ,0.09397 ,16.39452 ,0.81318 ,0.61757 ,0.44992/
 180       DATA ((F(I,9,K),I=1,6),K=1,19)/
 181      + 0.16750 ,0.07172  ,3.34665 ,0.16172 ,0.01131 ,0.00000
 182      +,0.17274 ,0.07620  ,4.55906 ,0.20975 ,0.04802 ,0.00000
 183      +,0.17740 ,0.08021  ,5.61746 ,0.25731 ,0.08433 ,0.00000
 184      +,0.18159 ,0.08381  ,6.52647 ,0.30297 ,0.11918 ,0.00000
 185      +,0.18540 ,0.08709  ,7.32584 ,0.34651 ,0.15265 ,0.00097
 186      +,0.18890 ,0.09010  ,8.03421 ,0.38374 ,0.18473 ,0.01544
 187      +,0.19213 ,0.09289  ,8.65420 ,0.41130 ,0.21513 ,0.05224
 188      +,0.19513 ,0.09548  ,9.20768 ,0.43874 ,0.24417 ,0.08405
 189      +,0.19795 ,0.09791  ,9.70536 ,0.46512 ,0.27195 ,0.11411
 190      +,0.20059 ,0.10019 ,10.15638 ,0.49038 ,0.29863 ,0.14312
 191      +,0.20307 ,0.10233 ,10.55454 ,0.51423 ,0.32379 ,0.17042
 192      +,0.20540 ,0.10435 ,10.90926 ,0.53681 ,0.34763 ,0.19628
 193      +,0.20763 ,0.10627 ,11.23815 ,0.55871 ,0.37074 ,0.22129
 194      +,0.20972 ,0.10808 ,11.52231 ,0.57906 ,0.39224 ,0.24459
 195      +,0.21171 ,0.10980 ,11.78563 ,0.59875 ,0.41304 ,0.26709
 196      +,0.21361 ,0.11143 ,12.02012 ,0.61738 ,0.43273 ,0.28841
 197      +,0.21542 ,0.11299 ,12.23255 ,0.63518 ,0.45155 ,0.30877
 198      +,0.21715 ,0.11448 ,12.42404 ,0.65213 ,0.46949 ,0.32819
 199      +,0.21880 ,0.11591 ,12.59756 ,0.66834 ,0.48666 ,0.34676/
 200       DATA ((F(I,10,K),I=1,6),K=1,19)/
 201      + 0.18624 ,0.08673  ,3.26022 ,0.15870 ,0.01040 ,0.00000
 202      +,0.19174 ,0.09165  ,4.27629 ,0.20182 ,0.04357 ,0.00000
 203      +,0.19663 ,0.09602  ,5.14803 ,0.24367 ,0.07574 ,0.00000
 204      +,0.20100 ,0.09992  ,5.88394 ,0.28324 ,0.10615 ,0.00000
 205      +,0.20496 ,0.10344  ,6.52054 ,0.32048 ,0.13499 ,0.00083
 206      +,0.20858 ,0.10667  ,7.07574 ,0.35191 ,0.16231 ,0.01320
 207      +,0.21190 ,0.10963  ,7.55379 ,0.37480 ,0.18795 ,0.04454
 208      +,0.21499 ,0.11237  ,7.97401 ,0.39741 ,0.21221 ,0.07137
 209      +,0.21787 ,0.11492  ,8.34626 ,0.41895 ,0.23524 ,0.09653
 210      +,0.22057 ,0.11732  ,8.67884 ,0.43942 ,0.25717 ,0.12063
 211      +,0.22310 ,0.11955  ,8.96748 ,0.45859 ,0.27772 ,0.14315
 212      +,0.22547 ,0.12164  ,9.22023 ,0.47660 ,0.29705 ,0.16435
 213      +,0.22772 ,0.12363  ,9.45168 ,0.49396 ,0.31566 ,0.18473
 214      +,0.22983 ,0.12548  ,9.64720 ,0.50996 ,0.33287 ,0.20361
 215      +,0.23183 ,0.12724  ,9.82596 ,0.52536 ,0.34943 ,0.22174
 216      +,0.23373 ,0.12891  ,9.98184 ,0.53984 ,0.36501 ,0.23883
 217      +,0.23554 ,0.13050 ,10.12039 ,0.55358 ,0.37982 ,0.25507
 218      +,0.23727 ,0.13200 ,10.24263 ,0.56660 ,0.39387 ,0.27048
 219      +,0.23891 ,0.13344 ,10.35105 ,0.57897 ,0.40724 ,0.28515/
 220       DATA ((F(I,11,K),I=1,6),K=1,19)/
 221      + 0.20191 ,0.10027  ,3.19011 ,0.15621 ,0.00971 ,0.00000
 222      +,0.20759 ,0.10547  ,4.06727 ,0.19568 ,0.04029 ,0.00000
 223      +,0.21261 ,0.11006  ,4.80664 ,0.23338 ,0.06948 ,0.00000
 224      +,0.21707 ,0.11413  ,5.42080 ,0.26855 ,0.09671 ,0.00000
 225      +,0.22111 ,0.11779  ,5.94398 ,0.30129 ,0.12225 ,0.00074
 226      +,0.22479 ,0.12112  ,6.39359 ,0.32862 ,0.14622 ,0.01162
 227      +,0.22816 ,0.12416  ,6.77473 ,0.34822 ,0.16852 ,0.03912
 228      +,0.23127 ,0.12696  ,7.10482 ,0.36743 ,0.18946 ,0.06248
 229      +,0.23417 ,0.12955  ,7.39300 ,0.38561 ,0.20919 ,0.08423
 230      +,0.23688 ,0.13197  ,7.64684 ,0.40276 ,0.22786 ,0.10494
 231      +,0.23940 ,0.13422  ,7.86327 ,0.41870 ,0.24524 ,0.12418
 232      +,0.24176 ,0.13631  ,8.04939 ,0.43358 ,0.26148 ,0.14219
 233      +,0.24400 ,0.13830  ,8.21762 ,0.44784 ,0.27705 ,0.15943
 234      +,0.24609 ,0.14014  ,8.35604 ,0.46089 ,0.29136 ,0.17530
 235      +,0.24807 ,0.14188  ,8.48072 ,0.47338 ,0.30506 ,0.19048
 236      +,0.24994 ,0.14353  ,8.58675 ,0.48505 ,0.31788 ,0.20472
 237      +,0.25172 ,0.14508  ,8.67876 ,0.49607 ,0.33001 ,0.21820
 238      +,0.25341 ,0.14655  ,8.75771 ,0.50645 ,0.34146 ,0.23094
 239      +,0.25501 ,0.14795  ,8.82569 ,0.51626 ,0.35231 ,0.24301/
 240       DATA ((F(I,12,K),I=1,6),K=1,19)/
 241      + 0.25736 ,0.15434  ,2.92960 ,0.14516 ,0.00754 ,0.00000
 242      +,0.26335 ,0.15983  ,3.42882 ,0.17353 ,0.03032 ,0.00000
 243      +,0.26855 ,0.16453  ,3.82286 ,0.19922 ,0.05097 ,0.00000
 244      +,0.27310 ,0.16858  ,4.12889 ,0.22215 ,0.06944 ,0.00000
 245      +,0.27714 ,0.17213  ,4.37265 ,0.24269 ,0.08615 ,0.00049
 246      +,0.28076 ,0.17527  ,4.56829 ,0.25911 ,0.10133 ,0.00750
 247      +,0.28402 ,0.17806  ,4.72134 ,0.27014 ,0.11503 ,0.02503
 248      +,0.28698 ,0.18057  ,4.84358 ,0.28068 ,0.12755 ,0.03954
 249      +,0.28970 ,0.18284  ,4.94159 ,0.29038 ,0.13906 ,0.05273
 250      +,0.29221 ,0.18491  ,5.02053 ,0.29927 ,0.14970 ,0.06503
 251      +,0.29450 ,0.18678  ,5.07948 ,0.30729 ,0.15936 ,0.07623
 252      +,0.29660 ,0.18848  ,5.12295 ,0.31457 ,0.16821 ,0.08651
 253      +,0.29858 ,0.19007  ,5.15789 ,0.32140 ,0.17653 ,0.09619
 254      +,0.30038 ,0.19149  ,5.17823 ,0.32744 ,0.18399 ,0.10493
 255      +,0.30208 ,0.19282  ,5.19267 ,0.33310 ,0.19102 ,0.11317
 256      +,0.30366 ,0.19403  ,5.19882 ,0.33824 ,0.19747 ,0.12076
 257      +,0.30513 ,0.19516  ,5.19915 ,0.34298 ,0.20346 ,0.12784
 258      +,0.30650 ,0.19620  ,5.19427 ,0.34732 ,0.20901 ,0.13442
 259      +,0.30779 ,0.19716  ,5.18522 ,0.35133 ,0.21417 ,0.14058/
 260       DATA ((F(I,13,K),I=1,6),K=1,19)/
 261      + 0.32517 ,0.22561  ,2.56163 ,0.12740 ,0.00536 ,0.00000
 262      +,0.33064 ,0.22927  ,2.76550 ,0.14522 ,0.02088 ,0.00000
 263      +,0.33518 ,0.23215  ,2.90426 ,0.16036 ,0.03417 ,0.00000
 264      +,0.33900 ,0.23441  ,2.99339 ,0.17309 ,0.04548 ,0.00000
 265      +,0.34223 ,0.23622  ,3.04970 ,0.18390 ,0.05525 ,0.00029
 266      +,0.34502 ,0.23767  ,3.08239 ,0.19195 ,0.06380 ,0.00438
 267      +,0.34741 ,0.23880  ,3.09545 ,0.19663 ,0.07122 ,0.01446
 268      +,0.34948 ,0.23970  ,3.09551 ,0.20093 ,0.07776 ,0.02255
 269      +,0.35130 ,0.24041  ,3.08624 ,0.20468 ,0.08358 ,0.02968
 270      +,0.35290 ,0.24098  ,3.07036 ,0.20793 ,0.08879 ,0.03618
 271      +,0.35429 ,0.24138  ,3.04753 ,0.21067 ,0.09336 ,0.04194
 272      +,0.35549 ,0.24166  ,3.02004 ,0.21298 ,0.09742 ,0.04709
 273      +,0.35656 ,0.24187  ,2.99108 ,0.21505 ,0.10114 ,0.05185
 274      +,0.35747 ,0.24194  ,2.95779 ,0.21669 ,0.10435 ,0.05603
 275      +,0.35828 ,0.24197  ,2.92407 ,0.21815 ,0.10730 ,0.05989
 276      +,0.35897 ,0.24192  ,2.88873 ,0.21934 ,0.10992 ,0.06338
 277      +,0.35957 ,0.24182  ,2.85285 ,0.22034 ,0.11228 ,0.06656
 278      +,0.36008 ,0.24167  ,2.81657 ,0.22116 ,0.11440 ,0.06945
 279      +,0.36052 ,0.24148  ,2.78025 ,0.22183 ,0.11631 ,0.07210/
 280       DATA ((F(I,14,K),I=1,6),K=1,19)/
 281      + 0.37218 ,0.26955  ,2.26620 ,0.11228 ,0.00409 ,0.00000
 282      +,0.37635 ,0.27042  ,2.33667 ,0.12435 ,0.01563 ,0.00000
 283      +,0.37962 ,0.27073  ,2.36725 ,0.13408 ,0.02515 ,0.00000
 284      +,0.38213 ,0.27061  ,2.36977 ,0.14186 ,0.03296 ,0.00000
 285      +,0.38408 ,0.27024  ,2.35553 ,0.14814 ,0.03953 ,0.00020
 286      +,0.38562 ,0.26964  ,2.33036 ,0.15244 ,0.04510 ,0.00296
 287      +,0.38676 ,0.26885  ,2.29666 ,0.15441 ,0.04980 ,0.00969
 288      +,0.38763 ,0.26795  ,2.25827 ,0.15613 ,0.05383 ,0.01498
 289      +,0.38825 ,0.26696  ,2.21730 ,0.15749 ,0.05732 ,0.01955
 290      +,0.38869 ,0.26592  ,2.17520 ,0.15854 ,0.06037 ,0.02364
 291      +,0.38895 ,0.26480  ,2.13158 ,0.15927 ,0.06298 ,0.02720
 292      +,0.38904 ,0.26364  ,2.08755 ,0.15974 ,0.06521 ,0.03032
 293      +,0.38904 ,0.26248  ,2.04479 ,0.16009 ,0.06722 ,0.03316
 294      +,0.38889 ,0.26125  ,2.00153 ,0.16019 ,0.06890 ,0.03561
 295      +,0.38868 ,0.26003  ,1.95980 ,0.16019 ,0.07040 ,0.03784
 296      +,0.38838 ,0.25880  ,1.91879 ,0.16006 ,0.07169 ,0.03982
 297      +,0.38801 ,0.25756  ,1.87895 ,0.15984 ,0.07281 ,0.04159
 298      +,0.38757 ,0.25633  ,1.84025 ,0.15952 ,0.07378 ,0.04317
 299      +,0.38709 ,0.25510  ,1.80279 ,0.15914 ,0.07463 ,0.04460/
 300       DATA ((F(I,15,K),I=1,6),K=1,19)/
 301      + 0.40897 ,0.29618  ,2.01072 ,0.09899 ,0.00322 ,0.00000
 302      +,0.41139 ,0.29410  ,2.00692 ,0.10731 ,0.01211 ,0.00000
 303      +,0.41293 ,0.29179  ,1.98061 ,0.11369 ,0.01923 ,-0.00001
 304      +,0.41379 ,0.28934  ,1.94015 ,0.11850 ,0.02493 ,-0.00001
 305      +,0.41417 ,0.28683  ,1.89291 ,0.12217 ,0.02959 ,0.00014
 306      +,0.41420 ,0.28430  ,1.84244 ,0.12437 ,0.03345 ,0.00212
 307      +,0.41388 ,0.28173  ,1.78975 ,0.12491 ,0.03662 ,0.00691
 308      +,0.41334 ,0.27919  ,1.73711 ,0.12529 ,0.03928 ,0.01060
 309      +,0.41263 ,0.27668  ,1.68553 ,0.12544 ,0.04153 ,0.01375
 310      +,0.41179 ,0.27421  ,1.63563 ,0.12541 ,0.04346 ,0.01652
 311      +,0.41081 ,0.27177  ,1.58695 ,0.12517 ,0.04505 ,0.01890
 312      +,0.40971 ,0.26937  ,1.53994 ,0.12479 ,0.04638 ,0.02096
 313      +,0.40858 ,0.26704  ,1.49544 ,0.12435 ,0.04755 ,0.02280
 314      +,0.40732 ,0.26472  ,1.45217 ,0.12376 ,0.04848 ,0.02435
 315      +,0.40604 ,0.26248  ,1.41125 ,0.12315 ,0.04929 ,0.02576
 316      +,0.40471 ,0.26028  ,1.37203 ,0.12246 ,0.04996 ,0.02698
 317      +,0.40335 ,0.25812  ,1.33466 ,0.12173 ,0.05052 ,0.02807
 318      +,0.40198 ,0.25601  ,1.29901 ,0.12097 ,0.05098 ,0.02902
 319      +,0.40057 ,0.25395  ,1.26504 ,0.12018 ,0.05136 ,0.02986/
 320       DATA ((F(I,16,K),I=1,6),K=1,19)/
 321      + 0.43879 ,0.31050  ,1.78462 ,0.08717 ,0.00257 ,0.00000
 322      +,0.43903 ,0.30565  ,1.73644 ,0.09289 ,0.00956 ,0.00000
 323      +,0.43856 ,0.30094  ,1.67820 ,0.09701 ,0.01502 ,-0.00001
 324      +,0.43752 ,0.29637  ,1.61528 ,0.09991 ,0.01929 ,-0.00001
 325      +,0.43613 ,0.29198  ,1.55218 ,0.10192 ,0.02270 ,0.00010
 326      +,0.43449 ,0.28776  ,1.49068 ,0.10286 ,0.02546 ,0.00157
 327      +,0.43260 ,0.28367  ,1.43088 ,0.10258 ,0.02768 ,0.00509
 328      +,0.43057 ,0.27973  ,1.37389 ,0.10221 ,0.02950 ,0.00778
 329      +,0.42844 ,0.27595  ,1.32003 ,0.10171 ,0.03101 ,0.01002
 330      +,0.42626 ,0.27232  ,1.26940 ,0.10110 ,0.03226 ,0.01198
 331      +,0.42401 ,0.26880  ,1.22142 ,0.10037 ,0.03327 ,0.01364
 332      +,0.42170 ,0.26539  ,1.17615 ,0.09957 ,0.03409 ,0.01505
 333      +,0.41942 ,0.26214  ,1.13396 ,0.09875 ,0.03478 ,0.01630
 334      +,0.41705 ,0.25897  ,1.09383 ,0.09785 ,0.03531 ,0.01734
 335      +,0.41473 ,0.25592  ,1.05635 ,0.09696 ,0.03576 ,0.01826
 336      +,0.41239 ,0.25297  ,1.02096 ,0.09604 ,0.03610 ,0.01906
 337      +,0.41007 ,0.25012  ,0.98765 ,0.09511 ,0.03637 ,0.01976
 338      +,0.40777 ,0.24735  ,0.95624 ,0.09417 ,0.03658 ,0.02036
 339      +,0.40549 ,0.24468  ,0.92662 ,0.09324 ,0.03672 ,0.02088/
 340       DATA ((F(I,17,K),I=1,6),K=1,19)/
 341      + 0.46820 ,0.31579  ,1.53547 ,0.07417 ,0.00198 ,0.00001
 342      +,0.46533 ,0.30796  ,1.45571 ,0.07763 ,0.00723 ,0.00001
 343      +,0.46203 ,0.30068  ,1.37675 ,0.07989 ,0.01123 ,0.00001
 344      +,0.45841 ,0.29391  ,1.30100 ,0.08124 ,0.01427 ,0.00001
 345      +,0.45465 ,0.28758  ,1.23030 ,0.08197 ,0.01664 ,0.00009
 346      +,0.45081 ,0.28166  ,1.16488 ,0.08196 ,0.01852 ,0.00112
 347      +,0.44689 ,0.27606  ,1.10406 ,0.08113 ,0.01998 ,0.00359
 348      +,0.44295 ,0.27076  ,1.04795 ,0.08027 ,0.02114 ,0.00545
 349      +,0.43904 ,0.26576  ,0.99631 ,0.07935 ,0.02208 ,0.00698
 350      +,0.43520 ,0.26102  ,0.94885 ,0.07840 ,0.02284 ,0.00829
 351      +,0.43137 ,0.25649  ,0.90487 ,0.07740 ,0.02342 ,0.00938
 352      +,0.42758 ,0.25217  ,0.86417 ,0.07637 ,0.02387 ,0.01030
 353      +,0.42390 ,0.24808  ,0.82674 ,0.07537 ,0.02424 ,0.01110
 354      +,0.42022 ,0.24414  ,0.79180 ,0.07434 ,0.02449 ,0.01175
 355      +,0.41664 ,0.24039  ,0.75953 ,0.07333 ,0.02469 ,0.01232
 356      +,0.41313 ,0.23679  ,0.72946 ,0.07233 ,0.02482 ,0.01281
 357      +,0.40969 ,0.23334  ,0.70146 ,0.07134 ,0.02491 ,0.01322
 358      +,0.40632 ,0.23002  ,0.67534 ,0.07037 ,0.02495 ,0.01357
 359      +,0.40301 ,0.22684  ,0.65094 ,0.06942 ,0.02496 ,0.01387/
 360       DATA ((F(I,18,K),I=1,6),K=1,19)/
 361      + 0.48965 ,0.31104  ,1.31771 ,0.06289 ,0.00152 ,0.00001
 362      +,0.48343 ,0.30078  ,1.22226 ,0.06483 ,0.00551 ,0.00000
 363      +,0.47716 ,0.29150  ,1.13489 ,0.06586 ,0.00848 ,0.00000
 364      +,0.47084 ,0.28303  ,1.05567 ,0.06626 ,0.01068 ,0.00001
 365      +,0.46468 ,0.27526  ,0.98460 ,0.06622 ,0.01236 ,0.00006
 366      +,0.45864 ,0.26810  ,0.92084 ,0.06569 ,0.01365 ,0.00081
 367      +,0.45270 ,0.26141  ,0.86320 ,0.06460 ,0.01463 ,0.00257
 368      +,0.44690 ,0.25516  ,0.81117 ,0.06352 ,0.01539 ,0.00388
 369      +,0.44128 ,0.24932  ,0.76415 ,0.06244 ,0.01598 ,0.00495
 370      +,0.43584 ,0.24383  ,0.72161 ,0.06136 ,0.01644 ,0.00585
 371      +,0.43054 ,0.23865  ,0.68283 ,0.06028 ,0.01678 ,0.00659
 372      +,0.42536 ,0.23374  ,0.64744 ,0.05921 ,0.01702 ,0.00720
 373      +,0.42039 ,0.22912  ,0.61522 ,0.05818 ,0.01721 ,0.00773
 374      +,0.41552 ,0.22471  ,0.58553 ,0.05714 ,0.01732 ,0.00815
 375      +,0.41083 ,0.22053  ,0.55836 ,0.05615 ,0.01740 ,0.00852
 376      +,0.40627 ,0.21655  ,0.53330 ,0.05518 ,0.01742 ,0.00882
 377      +,0.40184 ,0.21276  ,0.51017 ,0.05423 ,0.01742 ,0.00907
 378      +,0.39754 ,0.20913  ,0.48877 ,0.05332 ,0.01739 ,0.00928
 379      +,0.39335 ,0.20566  ,0.46892 ,0.05243 ,0.01734 ,0.00946/
 380       DATA ((F(I,19,K),I=1,6),K=1,19)/
 381      + 0.50365 ,0.29920  ,1.12706 ,0.05309 ,0.00118 ,0.00000
 382      +,0.49400 ,0.28713  ,1.02563 ,0.05400 ,0.00422 ,0.00000
 383      +,0.48471 ,0.27639  ,0.93700 ,0.05425 ,0.00644 ,0.00000
 384      +,0.47579 ,0.26671  ,0.85948 ,0.05405 ,0.00804 ,0.00000
 385      +,0.46725 ,0.25795  ,0.79183 ,0.05357 ,0.00924 ,0.00005
 386      +,0.45911 ,0.24996  ,0.73247 ,0.05276 ,0.01014 ,0.00059
 387      +,0.45128 ,0.24257  ,0.67987 ,0.05157 ,0.01080 ,0.00187
 388      +,0.44376 ,0.23573  ,0.63315 ,0.05044 ,0.01130 ,0.00280
 389      +,0.43655 ,0.22937  ,0.59156 ,0.04933 ,0.01168 ,0.00355
 390      +,0.42967 ,0.22346  ,0.55441 ,0.04825 ,0.01196 ,0.00418
 391      +,0.42305 ,0.21790  ,0.52092 ,0.04718 ,0.01215 ,0.00469
 392      +,0.41666 ,0.21268  ,0.49076 ,0.04615 ,0.01227 ,0.00511
 393      +,0.41057 ,0.20778  ,0.46355 ,0.04517 ,0.01236 ,0.00546
 394      +,0.40466 ,0.20315  ,0.43869 ,0.04420 ,0.01239 ,0.00573
 395      +,0.39899 ,0.19877  ,0.41611 ,0.04328 ,0.01240 ,0.00597
 396      +,0.39351 ,0.19461  ,0.39548 ,0.04239 ,0.01238 ,0.00616
 397      +,0.38823 ,0.19067  ,0.37658 ,0.04154 ,0.01234 ,0.00632
 398      +,0.38314 ,0.18693  ,0.35921 ,0.04072 ,0.01228 ,0.00645
 399      +,0.37823 ,0.18336  ,0.34321 ,0.03992 ,0.01221 ,0.00655/
 400       DATA ((F(I,20,K),I=1,6),K=1,19)/
 401      + 0.51071 ,0.28247  ,0.96027 ,0.04461 ,0.00091 ,0.00000
 402      +,0.49770 ,0.26915  ,0.85896 ,0.04482 ,0.00324 ,0.00000
 403      +,0.48552 ,0.25745  ,0.77331 ,0.04457 ,0.00490 ,0.00000
 404      +,0.47410 ,0.24702  ,0.70038 ,0.04402 ,0.00607 ,0.00000
 405      +,0.46337 ,0.23768  ,0.63806 ,0.04331 ,0.00693 ,0.00004
 406      +,0.45330 ,0.22921  ,0.58435 ,0.04238 ,0.00756 ,0.00043
 407      +,0.44376 ,0.22146  ,0.53752 ,0.04120 ,0.00802 ,0.00137
 408      +,0.43468 ,0.21433  ,0.49649 ,0.04008 ,0.00834 ,0.00204
 409      +,0.42609 ,0.20774  ,0.46039 ,0.03902 ,0.00858 ,0.00257
 410      +,0.41796 ,0.20165  ,0.42849 ,0.03800 ,0.00875 ,0.00301
 411      +,0.41020 ,0.19596  ,0.40004 ,0.03701 ,0.00885 ,0.00337
 412      +,0.40277 ,0.19064  ,0.37465 ,0.03606 ,0.00890 ,0.00365
 413      +,0.39573 ,0.18567  ,0.35192 ,0.03516 ,0.00893 ,0.00389
 414      +,0.38895 ,0.18100  ,0.33134 ,0.03429 ,0.00893 ,0.00407
 415      +,0.38250 ,0.17660  ,0.31277 ,0.03347 ,0.00891 ,0.00422
 416      +,0.37629 ,0.17244  ,0.29592 ,0.03268 ,0.00886 ,0.00435
 417      +,0.37033 ,0.16851  ,0.28059 ,0.03193 ,0.00881 ,0.00445
 418      +,0.36462 ,0.16479  ,0.26658 ,0.03121 ,0.00874 ,0.00452
 419      +,0.35913 ,0.16126  ,0.25374 ,0.03052 ,0.00867 ,0.00458/
 420       DATA ((F(I,21,K),I=1,6),K=1,19)/
 421      + 0.51135 ,0.26256  ,0.81463 ,0.03730 ,0.00070 ,0.00000
 422      +,0.49515 ,0.24850  ,0.71729 ,0.03706 ,0.00248 ,0.00000
 423      +,0.48029 ,0.23628  ,0.63709 ,0.03651 ,0.00373 ,0.00000
 424      +,0.46657 ,0.22549  ,0.57027 ,0.03578 ,0.00459 ,0.00000
 425      +,0.45390 ,0.21590  ,0.51414 ,0.03495 ,0.00521 ,0.00002
 426      +,0.44212 ,0.20727  ,0.46651 ,0.03399 ,0.00565 ,0.00032
 427      +,0.43108 ,0.19943  ,0.42555 ,0.03288 ,0.00596 ,0.00100
 428      +,0.42068 ,0.19226  ,0.39008 ,0.03184 ,0.00617 ,0.00148
 429      +,0.41091 ,0.18568  ,0.35919 ,0.03086 ,0.00632 ,0.00187
 430      +,0.40174 ,0.17960  ,0.33214 ,0.02992 ,0.00642 ,0.00218
 431      +,0.39303 ,0.17396  ,0.30827 ,0.02904 ,0.00647 ,0.00243
 432      +,0.38476 ,0.16872  ,0.28712 ,0.02820 ,0.00648 ,0.00262
 433      +,0.37696 ,0.16385  ,0.26831 ,0.02741 ,0.00649 ,0.00278
 434      +,0.36951 ,0.15927  ,0.25144 ,0.02664 ,0.00646 ,0.00291
 435      +,0.36244 ,0.15499  ,0.23629 ,0.02592 ,0.00642 ,0.00301
 436      +,0.35567 ,0.15095  ,0.22263 ,0.02524 ,0.00638 ,0.00308
 437      +,0.34922 ,0.14715  ,0.21026 ,0.02460 ,0.00632 ,0.00315
 438      +,0.34306 ,0.14357  ,0.19901 ,0.02398 ,0.00626 ,0.00319
 439      +,0.33716 ,0.14018  ,0.18877 ,0.02339 ,0.00619 ,0.00323/
 440       DATA ((F(I,22,K),I=1,6),K=1,19)/
 441      + 0.50585 ,0.24072  ,0.68770 ,0.03101 ,0.00055 ,0.00000
 442      +,0.48677 ,0.22639  ,0.59670 ,0.03049 ,0.00190 ,0.00000
 443      +,0.46955 ,0.21404  ,0.52331 ,0.02977 ,0.00283 ,0.00000
 444      +,0.45384 ,0.20322  ,0.46331 ,0.02896 ,0.00347 ,0.00000
 445      +,0.43949 ,0.19366  ,0.41366 ,0.02810 ,0.00391 ,0.00002
 446      +,0.42627 ,0.18513  ,0.37210 ,0.02717 ,0.00422 ,0.00024
 447      +,0.41398 ,0.17741  ,0.33676 ,0.02616 ,0.00443 ,0.00073
 448      +,0.40251 ,0.17039  ,0.30648 ,0.02522 ,0.00457 ,0.00109
 449      +,0.39182 ,0.16398  ,0.28037 ,0.02434 ,0.00465 ,0.00136
 450      +,0.38184 ,0.15809  ,0.25768 ,0.02352 ,0.00470 ,0.00158
 451      +,0.37241 ,0.15266  ,0.23783 ,0.02274 ,0.00472 ,0.00175
 452      +,0.36352 ,0.14762  ,0.22037 ,0.02200 ,0.00472 ,0.00188
 453      +,0.35518 ,0.14295  ,0.20494 ,0.02131 ,0.00471 ,0.00199
 454      +,0.34724 ,0.13858  ,0.19120 ,0.02066 ,0.00467 ,0.00208
 455      +,0.33975 ,0.13451  ,0.17894 ,0.02004 ,0.00463 ,0.00214
 456      +,0.33261 ,0.13070  ,0.16794 ,0.01946 ,0.00459 ,0.00219
 457      +,0.32582 ,0.12711  ,0.15803 ,0.01891 ,0.00453 ,0.00223
 458      +,0.31935 ,0.12373  ,0.14907 ,0.01839 ,0.00448 ,0.00226
 459      +,0.31319 ,0.12054  ,0.14094 ,0.01790 ,0.00442 ,0.00228/
 460       DATA ((F(I,23,K),I=1,6),K=1,19)/
 461      + 0.49496 ,0.21801  ,0.57752 ,0.02563 ,0.00042 ,0.00000
 462      +,0.47336 ,0.20378  ,0.49420 ,0.02495 ,0.00145 ,0.00000
 463      +,0.45411 ,0.19160  ,0.42827 ,0.02417 ,0.00215 ,0.00000
 464      +,0.43674 ,0.18102  ,0.37522 ,0.02334 ,0.00261 ,0.00000
 465      +,0.42103 ,0.17173  ,0.33193 ,0.02251 ,0.00292 ,0.00002
 466      +,0.40666 ,0.16348  ,0.29610 ,0.02165 ,0.00314 ,0.00017
 467      +,0.39342 ,0.15606  ,0.26599 ,0.02075 ,0.00328 ,0.00054
 468      +,0.38114 ,0.14935  ,0.24043 ,0.01992 ,0.00337 ,0.00080
 469      +,0.36977 ,0.14324  ,0.21857 ,0.01915 ,0.00342 ,0.00099
 470      +,0.35920 ,0.13766  ,0.19974 ,0.01843 ,0.00345 ,0.00115
 471      +,0.34928 ,0.13253  ,0.18338 ,0.01776 ,0.00345 ,0.00126
 472      +,0.33997 ,0.12779  ,0.16909 ,0.01713 ,0.00344 ,0.00135
 473      +,0.33126 ,0.12341  ,0.15653 ,0.01654 ,0.00341 ,0.00143
 474      +,0.32302 ,0.11933  ,0.14543 ,0.01599 ,0.00338 ,0.00149
 475      +,0.31526 ,0.11554  ,0.13556 ,0.01547 ,0.00334 ,0.00153
 476      +,0.30791 ,0.11200  ,0.12676 ,0.01498 ,0.00330 ,0.00156
 477      +,0.30094 ,0.10868  ,0.11887 ,0.01452 ,0.00325 ,0.00158
 478      +,0.29432 ,0.10556  ,0.11177 ,0.01409 ,0.00321 ,0.00160
 479      +,0.28804 ,0.10262  ,0.10536 ,0.01368 ,0.00316 ,0.00161/
 480       DATA ((F(I,24,K),I=1,6),K=1,19)/
 481      + 0.47917 ,0.19517  ,0.48222 ,0.02104 ,0.00033 ,0.00000
 482      +,0.45548 ,0.18134  ,0.40718 ,0.02030 ,0.00111 ,0.00001
 483      +,0.43457 ,0.16960  ,0.34886 ,0.01950 ,0.00162 ,0.00000
 484      +,0.41592 ,0.15946  ,0.30263 ,0.01871 ,0.00196 ,0.00001
 485      +,0.39917 ,0.15062  ,0.26535 ,0.01793 ,0.00219 ,0.00002
 486      +,0.38398 ,0.14281  ,0.23481 ,0.01716 ,0.00234 ,0.00013
 487      +,0.37005 ,0.13582  ,0.20943 ,0.01638 ,0.00243 ,0.00040
 488      +,0.35725 ,0.12952  ,0.18807 ,0.01565 ,0.00248 ,0.00058
 489      +,0.34543 ,0.12382  ,0.16996 ,0.01499 ,0.00251 ,0.00072
 490      +,0.33450 ,0.11862  ,0.15445 ,0.01438 ,0.00252 ,0.00083
 491      +,0.32430 ,0.11386  ,0.14109 ,0.01381 ,0.00251 ,0.00092
 492      +,0.31478 ,0.10948  ,0.12949 ,0.01327 ,0.00250 ,0.00098
 493      +,0.30590 ,0.10545  ,0.11935 ,0.01278 ,0.00247 ,0.00103
 494      +,0.29753 ,0.10171  ,0.11044 ,0.01232 ,0.00244 ,0.00106
 495      +,0.28968 ,0.09824  ,0.10257 ,0.01189 ,0.00241 ,0.00109
 496      +,0.28226 ,0.09501  ,0.09558 ,0.01149 ,0.00237 ,0.00111
 497      +,0.27526 ,0.09199  ,0.08934 ,0.01111 ,0.00233 ,0.00113
 498      +,0.26863 ,0.08916  ,0.08374 ,0.01075 ,0.00229 ,0.00114
 499      +,0.26235 ,0.08650  ,0.07871 ,0.01042 ,0.00225 ,0.00114/
 500       DATA ((F(I,25,K),I=1,6),K=1,19)/
 501      + 0.45913 ,0.17283  ,0.40015 ,0.01715 ,0.00025 ,0.00000
 502      +,0.43382 ,0.15964  ,0.33360 ,0.01640 ,0.00084 ,0.00001
 503      +,0.41168 ,0.14853  ,0.28268 ,0.01564 ,0.00122 ,0.00000
 504      +,0.39212 ,0.13899  ,0.24287 ,0.01490 ,0.00146 ,0.00001
 505      +,0.37468 ,0.13073  ,0.21113 ,0.01420 ,0.00162 ,0.00001
 506      +,0.35897 ,0.12346  ,0.18541 ,0.01352 ,0.00173 ,0.00010
 507      +,0.34464 ,0.11699  ,0.16422 ,0.01285 ,0.00179 ,0.00029
 508      +,0.33155 ,0.11118  ,0.14656 ,0.01224 ,0.00182 ,0.00042
 509      +,0.31953 ,0.10594  ,0.13168 ,0.01167 ,0.00183 ,0.00052
 510      +,0.30845 ,0.10119  ,0.11904 ,0.01116 ,0.00183 ,0.00060
 511      +,0.29818 ,0.09685  ,0.10821 ,0.01068 ,0.00182 ,0.00066
 512      +,0.28862 ,0.09287  ,0.09887 ,0.01024 ,0.00180 ,0.00070
 513      +,0.27974 ,0.08922  ,0.09075 ,0.00983 ,0.00178 ,0.00074
 514      +,0.27140 ,0.08585  ,0.08366 ,0.00945 ,0.00175 ,0.00076
 515      +,0.26360 ,0.08272  ,0.07742 ,0.00910 ,0.00173 ,0.00078
 516      +,0.25626 ,0.07982  ,0.07190 ,0.00877 ,0.00170 ,0.00079
 517      +,0.24935 ,0.07711  ,0.06700 ,0.00846 ,0.00167 ,0.00080
 518      +,0.24283 ,0.07459  ,0.06262 ,0.00817 ,0.00163 ,0.00080
 519      +,0.23667 ,0.07222  ,0.05870 ,0.00790 ,0.00160 ,0.00080/
 520       DATA ((F(I,26,K),I=1,6),K=1,19)/
 521      + 0.43555 ,0.15143  ,0.32985 ,0.01388 ,0.00018 ,-0.00001
 522      +,0.40908 ,0.13908  ,0.27163 ,0.01316 ,0.00062 ,0.00000
 523      +,0.38615 ,0.12873  ,0.22772 ,0.01246 ,0.00090 ,0.00000
 524      +,0.36606 ,0.11992  ,0.19380 ,0.01180 ,0.00108 ,0.00000
 525      +,0.34825 ,0.11231  ,0.16708 ,0.01118 ,0.00119 ,0.00000
 526      +,0.33231 ,0.10566  ,0.14565 ,0.01060 ,0.00126 ,0.00006
 527      +,0.31789 ,0.09975  ,0.12813 ,0.01002 ,0.00130 ,0.00020
 528      +,0.30477 ,0.09448  ,0.11366 ,0.00950 ,0.00132 ,0.00030
 529      +,0.29276 ,0.08974  ,0.10156 ,0.00904 ,0.00133 ,0.00037
 530      +,0.28173 ,0.08546  ,0.09134 ,0.00861 ,0.00132 ,0.00043
 531      +,0.27156 ,0.08157  ,0.08264 ,0.00822 ,0.00131 ,0.00047
 532      +,0.26212 ,0.07801  ,0.07519 ,0.00785 ,0.00129 ,0.00050
 533      +,0.25338 ,0.07476  ,0.06874 ,0.00752 ,0.00127 ,0.00052
 534      +,0.24522 ,0.07175  ,0.06313 ,0.00721 ,0.00125 ,0.00054
 535      +,0.23761 ,0.06898  ,0.05822 ,0.00692 ,0.00123 ,0.00055
 536      +,0.23047 ,0.06641  ,0.05389 ,0.00666 ,0.00120 ,0.00055
 537      +,0.22376 ,0.06402  ,0.05007 ,0.00641 ,0.00118 ,0.00056
 538      +,0.21746 ,0.06180  ,0.04667 ,0.00618 ,0.00115 ,0.00056
 539      +,0.21151 ,0.05972  ,0.04363 ,0.00596 ,0.00113 ,0.00056/
 540       DATA ((F(I,27,K),I=1,6),K=1,19)/
 541      + 0.40904 ,0.13125  ,0.26991 ,0.01114 ,0.00013 ,0.00000
 542      +,0.38191 ,0.11986  ,0.21959 ,0.01047 ,0.00046 ,0.00000
 543      +,0.35861 ,0.11039  ,0.18218 ,0.00985 ,0.00067 ,0.00000
 544      +,0.33834 ,0.10236  ,0.15363 ,0.00926 ,0.00079 ,0.00000
 545      +,0.32049 ,0.09547  ,0.13138 ,0.00873 ,0.00087 ,0.00000
 546      +,0.30460 ,0.08947  ,0.11369 ,0.00823 ,0.00092 ,0.00004
 547      +,0.29030 ,0.08417  ,0.09937 ,0.00776 ,0.00094 ,0.00015
 548      +,0.27736 ,0.07945  ,0.08762 ,0.00733 ,0.00095 ,0.00021
 549      +,0.26557 ,0.07523  ,0.07787 ,0.00694 ,0.00095 ,0.00026
 550      +,0.25479 ,0.07143  ,0.06969 ,0.00659 ,0.00095 ,0.00030
 551      +,0.24488 ,0.06799  ,0.06277 ,0.00627 ,0.00094 ,0.00033
 552      +,0.23572 ,0.06485  ,0.05687 ,0.00598 ,0.00092 ,0.00035
 553      +,0.22727 ,0.06199  ,0.05179 ,0.00571 ,0.00090 ,0.00037
 554      +,0.21941 ,0.05935  ,0.04739 ,0.00546 ,0.00089 ,0.00038
 555      +,0.21210 ,0.05693  ,0.04356 ,0.00523 ,0.00087 ,0.00038
 556      +,0.20525 ,0.05469  ,0.04020 ,0.00501 ,0.00085 ,0.00039
 557      +,0.19885 ,0.05261  ,0.03724 ,0.00482 ,0.00083 ,0.00039
 558      +,0.19285 ,0.05068  ,0.03462 ,0.00463 ,0.00081 ,0.00039
 559      +,0.18720 ,0.04888  ,0.03229 ,0.00446 ,0.00079 ,0.00039/
 560       DATA ((F(I,28,K),I=1,6),K=1,19)/
 561      + 0.38036 ,0.11254  ,0.21913 ,0.00886 ,0.00009 ,-0.00001
 562      +,0.35305 ,0.10220  ,0.17617 ,0.00826 ,0.00034 ,-0.00001
 563      +,0.32979 ,0.09365  ,0.14465 ,0.00771 ,0.00048 ,0.00000
 564      +,0.30965 ,0.08645  ,0.12089 ,0.00721 ,0.00057 ,0.00000
 565      +,0.29204 ,0.08029  ,0.10257 ,0.00677 ,0.00063 ,0.00000
 566      +,0.27649 ,0.07496  ,0.08813 ,0.00635 ,0.00066 ,0.00003
 567      +,0.26252 ,0.07027  ,0.07654 ,0.00596 ,0.00068 ,0.00010
 568      +,0.24994 ,0.06612  ,0.06710 ,0.00561 ,0.00068 ,0.00015
 569      +,0.23854 ,0.06241  ,0.05931 ,0.00530 ,0.00068 ,0.00019
 570      +,0.22817 ,0.05909  ,0.05282 ,0.00501 ,0.00067 ,0.00021
 571      +,0.21867 ,0.05608  ,0.04737 ,0.00475 ,0.00066 ,0.00023
 572      +,0.20992 ,0.05335  ,0.04274 ,0.00452 ,0.00065 ,0.00025
 573      +,0.20188 ,0.05087  ,0.03877 ,0.00430 ,0.00064 ,0.00026
 574      +,0.19440 ,0.04859  ,0.03537 ,0.00410 ,0.00062 ,0.00026
 575      +,0.18748 ,0.04650  ,0.03241 ,0.00392 ,0.00061 ,0.00027
 576      +,0.18102 ,0.04457  ,0.02982 ,0.00375 ,0.00059 ,0.00027
 577      +,0.17499 ,0.04279  ,0.02755 ,0.00360 ,0.00058 ,0.00027
 578      +,0.16936 ,0.04114  ,0.02555 ,0.00345 ,0.00056 ,0.00027
 579      +,0.16407 ,0.03960  ,0.02377 ,0.00332 ,0.00055 ,0.00027/
 580       DATA ((F(I,29,K),I=1,6),K=1,19)/
 581      + 0.35006 ,0.09542  ,0.17636 ,0.00697 ,0.00007 ,-0.00001
 582      +,0.32301 ,0.08617  ,0.14013 ,0.00645 ,0.00024 ,0.00000
 583      +,0.30015 ,0.07857  ,0.11390 ,0.00598 ,0.00035 ,0.00000
 584      +,0.28049 ,0.07220  ,0.09434 ,0.00556 ,0.00041 ,0.00000
 585      +,0.26340 ,0.06678  ,0.07942 ,0.00519 ,0.00045 ,0.00000
 586      +,0.24839 ,0.06211  ,0.06776 ,0.00485 ,0.00047 ,0.00002
 587      +,0.23497 ,0.05802  ,0.05848 ,0.00453 ,0.00048 ,0.00007
 588      +,0.22294 ,0.05441  ,0.05097 ,0.00425 ,0.00048 ,0.00011
 589      +,0.21209 ,0.05120  ,0.04483 ,0.00400 ,0.00048 ,0.00013
 590      +,0.20225 ,0.04833  ,0.03973 ,0.00377 ,0.00047 ,0.00015
 591      +,0.19327 ,0.04575  ,0.03547 ,0.00357 ,0.00046 ,0.00016
 592      +,0.18503 ,0.04341  ,0.03188 ,0.00338 ,0.00045 ,0.00017
 593      +,0.17748 ,0.04128  ,0.02882 ,0.00321 ,0.00044 ,0.00018
 594      +,0.17049 ,0.03934  ,0.02620 ,0.00305 ,0.00043 ,0.00018
 595      +,0.16403 ,0.03756  ,0.02394 ,0.00291 ,0.00042 ,0.00018
 596      +,0.15802 ,0.03593  ,0.02196 ,0.00278 ,0.00041 ,0.00018
 597      +,0.15242 ,0.03442  ,0.02023 ,0.00266 ,0.00040 ,0.00018
 598      +,0.14721 ,0.03302  ,0.01872 ,0.00255 ,0.00039 ,0.00018
 599      +,0.14233 ,0.03172  ,0.01737 ,0.00244 ,0.00038 ,0.00018/
 600       DATA ((F(I,30,K),I=1,6),K=1,19)/
 601      + 0.31886 ,0.07998  ,0.14060 ,0.00544 ,0.00005 ,0.00000
 602      +,0.29250 ,0.07182  ,0.11042 ,0.00499 ,0.00018 ,0.00000
 603      +,0.27036 ,0.06516  ,0.08885 ,0.00460 ,0.00025 ,0.00000
 604      +,0.25146 ,0.05961  ,0.07296 ,0.00425 ,0.00030 ,0.00000
 605      +,0.23511 ,0.05491  ,0.06093 ,0.00394 ,0.00032 ,0.00000
 606      +,0.22081 ,0.05087  ,0.05163 ,0.00367 ,0.00033 ,0.00001
 607      +,0.20813 ,0.04736  ,0.04428 ,0.00341 ,0.00034 ,0.00005
 608      +,0.19679 ,0.04426  ,0.03838 ,0.00319 ,0.00034 ,0.00007
 609      +,0.18660 ,0.04152  ,0.03358 ,0.00299 ,0.00033 ,0.00009
 610      +,0.17740 ,0.03908  ,0.02963 ,0.00281 ,0.00033 ,0.00010
 611      +,0.16904 ,0.03688  ,0.02634 ,0.00265 ,0.00032 ,0.00011
 612      +,0.16139 ,0.03490  ,0.02358 ,0.00251 ,0.00031 ,0.00012
 613      +,0.15440 ,0.03311  ,0.02124 ,0.00237 ,0.00031 ,0.00012
 614      +,0.14794 ,0.03148  ,0.01924 ,0.00225 ,0.00030 ,0.00012
 615      +,0.14199 ,0.02999  ,0.01752 ,0.00214 ,0.00029 ,0.00012
 616      +,0.13649 ,0.02862  ,0.01604 ,0.00204 ,0.00028 ,0.00013
 617      +,0.13138 ,0.02736  ,0.01474 ,0.00195 ,0.00027 ,0.00013
 618      +,0.12661 ,0.02620  ,0.01360 ,0.00186 ,0.00027 ,0.00013
 619      +,0.12217 ,0.02512  ,0.01260 ,0.00178 ,0.00026 ,0.00012/
 620       DATA ((F(I,31,K),I=1,6),K=1,19)/
 621      + 0.28727 ,0.06623  ,0.11094 ,0.00419 ,0.00004 ,0.00000
 622      +,0.26197 ,0.05914  ,0.08612 ,0.00381 ,0.00012 ,0.00000
 623      +,0.24086 ,0.05338  ,0.06861 ,0.00349 ,0.00018 ,0.00000
 624      +,0.22295 ,0.04861  ,0.05584 ,0.00321 ,0.00021 ,0.00000
 625      +,0.20755 ,0.04460  ,0.04628 ,0.00296 ,0.00022 ,0.00000
 626      +,0.19415 ,0.04116  ,0.03894 ,0.00274 ,0.00023 ,0.00001
 627      +,0.18232 ,0.03818  ,0.03319 ,0.00254 ,0.00023 ,0.00003
 628      +,0.17179 ,0.03556  ,0.02860 ,0.00237 ,0.00023 ,0.00005
 629      +,0.16236 ,0.03325  ,0.02490 ,0.00221 ,0.00023 ,0.00006
 630      +,0.15388 ,0.03121  ,0.02187 ,0.00207 ,0.00022 ,0.00007
 631      +,0.14620 ,0.02937  ,0.01936 ,0.00195 ,0.00022 ,0.00007
 632      +,0.13920 ,0.02772  ,0.01727 ,0.00183 ,0.00021 ,0.00008
 633      +,0.13282 ,0.02623  ,0.01550 ,0.00173 ,0.00021 ,0.00008
 634      +,0.12695 ,0.02488  ,0.01400 ,0.00164 ,0.00020 ,0.00008
 635      +,0.12156 ,0.02365  ,0.01271 ,0.00156 ,0.00020 ,0.00008
 636      +,0.11658 ,0.02252  ,0.01160 ,0.00148 ,0.00019 ,0.00008
 637      +,0.11196 ,0.02148  ,0.01064 ,0.00141 ,0.00018 ,0.00008
 638      +,0.10768 ,0.02053  ,0.00979 ,0.00134 ,0.00018 ,0.00008
 639      +,0.10369 ,0.01964  ,0.00905 ,0.00128 ,0.00017 ,0.00008/
 640       DATA ((F(I,32,K),I=1,6),K=1,19)/
 641      + 0.25592 ,0.05413  ,0.08653 ,0.00318 ,0.00003 ,0.00000
 642      +,0.23198 ,0.04806  ,0.06638 ,0.00287 ,0.00009 ,0.00000
 643      +,0.21215 ,0.04316  ,0.05236 ,0.00261 ,0.00013 ,0.00000
 644      +,0.19542 ,0.03912  ,0.04223 ,0.00239 ,0.00014 ,0.00000
 645      +,0.18113 ,0.03573  ,0.03473 ,0.00219 ,0.00015 ,0.00000
 646      +,0.16875 ,0.03285  ,0.02903 ,0.00202 ,0.00016 ,0.00001
 647      +,0.15786 ,0.03037  ,0.02459 ,0.00187 ,0.00016 ,0.00003
 648      +,0.14821 ,0.02820  ,0.02108 ,0.00173 ,0.00016 ,0.00004
 649      +,0.13961 ,0.02629  ,0.01825 ,0.00161 ,0.00016 ,0.00004
 650      +,0.13191 ,0.02459  ,0.01596 ,0.00151 ,0.00016 ,0.00005
 651      +,0.12496 ,0.02308  ,0.01407 ,0.00141 ,0.00015 ,0.00005
 652      +,0.11864 ,0.02172  ,0.01250 ,0.00133 ,0.00014 ,0.00006
 653      +,0.11291 ,0.02050  ,0.01118 ,0.00125 ,0.00014 ,0.00006
 654      +,0.10765 ,0.01939  ,0.01007 ,0.00118 ,0.00013 ,0.00005
 655      +,0.10283 ,0.01839  ,0.00911 ,0.00112 ,0.00013 ,0.00005
 656      +,0.09838 ,0.01747  ,0.00829 ,0.00106 ,0.00012 ,0.00006
 657      +,0.09427 ,0.01663  ,0.00758 ,0.00101 ,0.00012 ,0.00006
 658      +,0.09047 ,0.01586  ,0.00697 ,0.00096 ,0.00012 ,0.00006
 659      +,0.08694 ,0.01515  ,0.00643 ,0.00091 ,0.00011 ,0.00006/
 660       DATA ((F(I,33,K),I=1,6),K=1,19)/
 661      + 0.22526 ,0.04364  ,0.06668 ,0.00239 ,0.00002 ,0.00000
 662      +,0.20294 ,0.03854  ,0.05055 ,0.00214 ,0.00006 ,0.00000
 663      +,0.18460 ,0.03442  ,0.03947 ,0.00193 ,0.00008 ,0.00000
 664      +,0.16922 ,0.03106  ,0.03156 ,0.00176 ,0.00010 ,0.00000
 665      +,0.15613 ,0.02825  ,0.02576 ,0.00160 ,0.00010 ,0.00000
 666      +,0.14487 ,0.02587  ,0.02137 ,0.00147 ,0.00011 ,0.00000
 667      +,0.13501 ,0.02383  ,0.01799 ,0.00136 ,0.00011 ,0.00001
 668      +,0.12631 ,0.02204  ,0.01534 ,0.00125 ,0.00010 ,0.00002
 669      +,0.11858 ,0.02048  ,0.01322 ,0.00116 ,0.00010 ,0.00003
 670      +,0.11169 ,0.01910  ,0.01150 ,0.00108 ,0.00010 ,0.00003
 671      +,0.10549 ,0.01787  ,0.01010 ,0.00101 ,0.00009 ,0.00003
 672      +,0.09988 ,0.01678  ,0.00894 ,0.00095 ,0.00009 ,0.00003
 673      +,0.09479 ,0.01579  ,0.00797 ,0.00089 ,0.00009 ,0.00004
 674      +,0.09014 ,0.01491  ,0.00715 ,0.00084 ,0.00009 ,0.00003
 675      +,0.08589 ,0.01410  ,0.00646 ,0.00079 ,0.00009 ,0.00004
 676      +,0.08199 ,0.01336  ,0.00586 ,0.00075 ,0.00008 ,0.00004
 677      +,0.07840 ,0.01269  ,0.00535 ,0.00071 ,0.00008 ,0.00004
 678      +,0.07507 ,0.01208  ,0.00490 ,0.00067 ,0.00008 ,0.00003
 679      +,0.07199 ,0.01151  ,0.00451 ,0.00064 ,0.00007 ,0.00003/
 680       DATA ((F(I,34,K),I=1,6),K=1,19)/
 681      + 0.19575 ,0.03466  ,0.05066 ,0.00176 ,0.00001 ,0.00000
 682      +,0.17527 ,0.03042  ,0.03795 ,0.00157 ,0.00004 ,0.00000
 683      +,0.15855 ,0.02703  ,0.02933 ,0.00141 ,0.00006 ,0.00000
 684      +,0.14462 ,0.02428  ,0.02324 ,0.00127 ,0.00007 ,0.00000
 685      +,0.13284 ,0.02199  ,0.01882 ,0.00115 ,0.00007 ,0.00000
 686      +,0.12274 ,0.02005  ,0.01551 ,0.00105 ,0.00007 ,0.00000
 687      +,0.11394 ,0.01840  ,0.01297 ,0.00097 ,0.00007 ,0.00000
 688      +,0.10621 ,0.01696  ,0.01100 ,0.00089 ,0.00007 ,0.00001
 689      +,0.09937 ,0.01571  ,0.00943 ,0.00082 ,0.00006 ,0.00002
 690      +,0.09329 ,0.01461  ,0.00817 ,0.00077 ,0.00006 ,0.00002
 691      +,0.08785 ,0.01363  ,0.00715 ,0.00071 ,0.00006 ,0.00002
 692      +,0.08293 ,0.01276  ,0.00630 ,0.00066 ,0.00006 ,0.00002
 693      +,0.07850 ,0.01198  ,0.00560 ,0.00062 ,0.00006 ,0.00002
 694      +,0.07445 ,0.01128  ,0.00501 ,0.00058 ,0.00006 ,0.00002
 695      +,0.07076 ,0.01064  ,0.00451 ,0.00055 ,0.00006 ,0.00002
 696      +,0.06739 ,0.01006  ,0.00409 ,0.00052 ,0.00005 ,0.00002
 697      +,0.06429 ,0.00953  ,0.00372 ,0.00049 ,0.00005 ,0.00002
 698      +,0.06143 ,0.00905  ,0.00340 ,0.00047 ,0.00005 ,0.00002
 699      +,0.05878 ,0.00861  ,0.00313 ,0.00044 ,0.00005 ,0.00002/
 700       DATA ((F(I,35,K),I=1,6),K=1,19)/
 701      + 0.16776 ,0.02707  ,0.03790 ,0.00128 ,0.00001 ,0.00000
 702      +,0.14928 ,0.02361  ,0.02805 ,0.00113 ,0.00003 ,0.00000
 703      +,0.13427 ,0.02087  ,0.02145 ,0.00101 ,0.00004 ,0.00000
 704      +,0.12185 ,0.01866  ,0.01685 ,0.00090 ,0.00004 ,-0.00001
 705      +,0.11141 ,0.01682  ,0.01353 ,0.00081 ,0.00005 ,0.00000
 706      +,0.10250 ,0.01528  ,0.01107 ,0.00074 ,0.00005 ,0.00000
 707      +,0.09477 ,0.01396  ,0.00921 ,0.00068 ,0.00005 ,0.00001
 708      +,0.08801 ,0.01283  ,0.00776 ,0.00062 ,0.00004 ,0.00001
 709      +,0.08206 ,0.01184  ,0.00662 ,0.00057 ,0.00004 ,0.00001
 710      +,0.07679 ,0.01098  ,0.00571 ,0.00053 ,0.00004 ,0.00001
 711      +,0.07208 ,0.01021  ,0.00498 ,0.00049 ,0.00004 ,0.00001
 712      +,0.06785 ,0.00953  ,0.00437 ,0.00046 ,0.00004 ,0.00001
 713      +,0.06404 ,0.00892  ,0.00387 ,0.00043 ,0.00004 ,0.00001
 714      +,0.06058 ,0.00838  ,0.00346 ,0.00040 ,0.00004 ,0.00001
 715      +,0.05743 ,0.00789  ,0.00310 ,0.00038 ,0.00003 ,0.00001
 716      +,0.05455 ,0.00744  ,0.00280 ,0.00035 ,0.00003 ,0.00001
 717      +,0.05192 ,0.00704  ,0.00254 ,0.00033 ,0.00003 ,0.00001
 718      +,0.04950 ,0.00667  ,0.00232 ,0.00032 ,0.00003 ,0.00001
 719      +,0.04726 ,0.00633  ,0.00213 ,0.00030 ,0.00003 ,0.00001/
 720       DATA ((F(I,36,K),I=1,6),K=1,19)/
 721      + 0.14163 ,0.02077  ,0.02786 ,0.00091 ,0.00001 ,0.00000
 722      +,0.12521 ,0.01800  ,0.02036 ,0.00080 ,0.00002 ,0.00000
 723      +,0.11198 ,0.01583  ,0.01541 ,0.00071 ,0.00002 ,0.00000
 724      +,0.10109 ,0.01408  ,0.01199 ,0.00063 ,0.00002 ,-0.00001
 725      +,0.09199 ,0.01264  ,0.00955 ,0.00056 ,0.00003 ,0.00000
 726      +,0.08426 ,0.01143  ,0.00776 ,0.00051 ,0.00003 ,0.00000
 727      +,0.07760 ,0.01040  ,0.00642 ,0.00046 ,0.00003 ,0.00000
 728      +,0.07179 ,0.00952  ,0.00538 ,0.00043 ,0.00003 ,0.00001
 729      +,0.06670 ,0.00876  ,0.00457 ,0.00039 ,0.00002 ,0.00001
 730      +,0.06220 ,0.00809  ,0.00392 ,0.00036 ,0.00003 ,0.00001
 731      +,0.05820 ,0.00751  ,0.00340 ,0.00033 ,0.00002 ,0.00001
 732      +,0.05462 ,0.00698  ,0.00298 ,0.00031 ,0.00002 ,0.00001
 733      +,0.05140 ,0.00652  ,0.00263 ,0.00029 ,0.00002 ,0.00001
 734      +,0.04849 ,0.00611  ,0.00234 ,0.00027 ,0.00002 ,0.00001
 735      +,0.04585 ,0.00573  ,0.00210 ,0.00025 ,0.00002 ,0.00001
 736      +,0.04344 ,0.00540  ,0.00189 ,0.00024 ,0.00002 ,0.00001
 737      +,0.04124 ,0.00509  ,0.00171 ,0.00022 ,0.00002 ,0.00001
 738      +,0.03923 ,0.00481  ,0.00156 ,0.00021 ,0.00002 ,0.00001
 739      +,0.03738 ,0.00456  ,0.00143 ,0.00020 ,0.00002 ,0.00001/
 740       DATA ((F(I,37,K),I=1,6),K=1,19)/
 741      + 0.09585 ,0.01147  ,0.01415 ,0.00043 ,0.00000 ,0.00000
 742      +,0.08359 ,0.00982  ,0.01008 ,0.00037 ,0.00001 ,0.00000
 743      +,0.07385 ,0.00853  ,0.00746 ,0.00032 ,0.00001 ,0.00000
 744      +,0.06595 ,0.00751  ,0.00570 ,0.00028 ,0.00001 ,0.00000
 745      +,0.05942 ,0.00667  ,0.00446 ,0.00025 ,0.00001 ,0.00000
 746      +,0.05393 ,0.00598  ,0.00357 ,0.00023 ,0.00001 ,0.00000
 747      +,0.04923 ,0.00540  ,0.00292 ,0.00020 ,0.00001 ,0.00000
 748      +,0.04519 ,0.00491  ,0.00242 ,0.00018 ,0.00001 ,0.00000
 749      +,0.04167 ,0.00448  ,0.00203 ,0.00017 ,0.00001 ,0.00000
 750      +,0.03858 ,0.00411  ,0.00173 ,0.00015 ,0.00001 ,0.00000
 751      +,0.03586 ,0.00379  ,0.00149 ,0.00014 ,0.00001 ,0.00000
 752      +,0.03343 ,0.00350  ,0.00129 ,0.00013 ,0.00001 ,0.00000
 753      +,0.03127 ,0.00325  ,0.00113 ,0.00012 ,0.00001 ,0.00000
 754      +,0.02933 ,0.00303  ,0.00100 ,0.00011 ,0.00001 ,0.00000
 755      +,0.02758 ,0.00283  ,0.00089 ,0.00010 ,0.00001 ,0.00000
 756      +,0.02600 ,0.00265  ,0.00080 ,0.00010 ,0.00001 ,0.00000
 757      +,0.02456 ,0.00249  ,0.00072 ,0.00009 ,0.00001 ,0.00000
 758      +,0.02324 ,0.00234  ,0.00066 ,0.00009 ,0.00001 ,0.00000
 759      +,0.02204 ,0.00221  ,0.00060 ,0.00008 ,0.00001 ,0.00000/
 760       DATA ((F(I,38,K),I=1,6),K=1,19)/
 761      + 0.05964 ,0.00572  ,0.00648 ,0.00018 ,0.00000 ,0.00000
 762      +,0.05125 ,0.00482  ,0.00449 ,0.00015 ,0.00000 ,0.00000
 763      +,0.04470 ,0.00414  ,0.00324 ,0.00013 ,0.00000 ,0.00000
 764      +,0.03944 ,0.00360  ,0.00243 ,0.00011 ,0.00000 ,0.00000
 765      +,0.03515 ,0.00316  ,0.00187 ,0.00010 ,0.00000 ,0.00000
 766      +,0.03158 ,0.00281  ,0.00147 ,0.00009 ,0.00000 ,0.00000
 767      +,0.02856 ,0.00251  ,0.00119 ,0.00008 ,0.00000 ,0.00000
 768      +,0.02598 ,0.00226  ,0.00097 ,0.00007 ,0.00000 ,0.00000
 769      +,0.02377 ,0.00205  ,0.00081 ,0.00006 ,0.00000 ,0.00000
 770      +,0.02184 ,0.00187  ,0.00068 ,0.00006 ,0.00000 ,0.00000
 771      +,0.02015 ,0.00171  ,0.00058 ,0.00005 ,0.00000 ,0.00000
 772      +,0.01866 ,0.00157  ,0.00050 ,0.00005 ,0.00000 ,0.00000
 773      +,0.01734 ,0.00145  ,0.00044 ,0.00004 ,0.00000 ,0.00000
 774      +,0.01616 ,0.00134  ,0.00039 ,0.00004 ,0.00000 ,0.00000
 775      +,0.01510 ,0.00124  ,0.00034 ,0.00004 ,0.00000 ,0.00000
 776      +,0.01415 ,0.00116  ,0.00030 ,0.00004 ,0.00000 ,0.00000
 777      +,0.01329 ,0.00108  ,0.00027 ,0.00003 ,0.00000 ,0.00000
 778      +,0.01251 ,0.00101  ,0.00025 ,0.00003 ,0.00000 ,0.00000
 779      +,0.01181 ,0.00095  ,0.00023 ,0.00003 ,0.00000 ,0.00000/
 780       DATA ((F(I,39,K),I=1,6),K=1,19)/
 781      + 0.03320 ,0.00247  ,0.00257 ,0.00007 ,0.00000 ,0.00000
 782      +,0.02806 ,0.00205  ,0.00173 ,0.00005 ,0.00000 ,0.00000
 783      +,0.02411 ,0.00174  ,0.00122 ,0.00005 ,0.00000 ,0.00000
 784      +,0.02099 ,0.00149  ,0.00089 ,0.00004 ,0.00000 ,0.00000
 785      +,0.01849 ,0.00130  ,0.00067 ,0.00003 ,0.00000 ,0.00000
 786      +,0.01643 ,0.00114  ,0.00052 ,0.00003 ,0.00000 ,0.00000
 787      +,0.01470 ,0.00101  ,0.00042 ,0.00003 ,0.00000 ,0.00000
 788      +,0.01324 ,0.00090  ,0.00034 ,0.00002 ,0.00000 ,0.00000
 789      +,0.01200 ,0.00081  ,0.00028 ,0.00002 ,0.00000 ,0.00000
 790      +,0.01094 ,0.00073  ,0.00023 ,0.00002 ,0.00000 ,0.00000
 791      +,0.01000 ,0.00066  ,0.00020 ,0.00002 ,0.00000 ,0.00000
 792      +,0.00919 ,0.00060  ,0.00017 ,0.00002 ,0.00000 ,0.00000
 793      +,0.00848 ,0.00055  ,0.00015 ,0.00001 ,0.00000 ,0.00000
 794      +,0.00785 ,0.00051  ,0.00013 ,0.00001 ,0.00000 ,0.00000
 795      +,0.00728 ,0.00047  ,0.00011 ,0.00001 ,0.00000 ,0.00000
 796      +,0.00678 ,0.00043  ,0.00010 ,0.00001 ,0.00000 ,0.00000
 797      +,0.00633 ,0.00040  ,0.00009 ,0.00001 ,0.00000 ,0.00000
 798      +,0.00593 ,0.00037  ,0.00008 ,0.00001 ,0.00000 ,0.00000
 799      +,0.00556 ,0.00035  ,0.00007 ,0.00001 ,0.00000 ,0.00000/
 800       DATA ((F(I,40,K),I=1,6),K=1,19)/
 801      + 0.01578 ,0.00088  ,0.00083 ,0.00002 ,0.00000 ,0.00000
 802      +,0.01309 ,0.00071  ,0.00054 ,0.00001 ,0.00000 ,0.00000
 803      +,0.01106 ,0.00059  ,0.00037 ,0.00001 ,0.00000 ,0.00000
 804      +,0.00948 ,0.00050  ,0.00026 ,0.00001 ,0.00000 ,0.00000
 805      +,0.00823 ,0.00043  ,0.00020 ,0.00001 ,0.00000 ,0.00000
 806      +,0.00721 ,0.00037  ,0.00015 ,0.00001 ,0.00000 ,0.00000
 807      +,0.00638 ,0.00033  ,0.00012 ,0.00001 ,0.00000 ,0.00000
 808      +,0.00569 ,0.00029  ,0.00009 ,0.00001 ,0.00000 ,0.00000
 809      +,0.00510 ,0.00026  ,0.00008 ,0.00001 ,0.00000 ,0.00000
 810      +,0.00460 ,0.00023  ,0.00006 ,0.00000 ,0.00000 ,0.00000
 811      +,0.00417 ,0.00021  ,0.00005 ,0.00000 ,0.00000 ,0.00000
 812      +,0.00379 ,0.00019  ,0.00004 ,0.00000 ,0.00000 ,0.00000
 813      +,0.00347 ,0.00017  ,0.00004 ,0.00000 ,0.00000 ,0.00000
 814      +,0.00318 ,0.00015  ,0.00003 ,0.00000 ,0.00000 ,0.00000
 815      +,0.00293 ,0.00014  ,0.00003 ,0.00000 ,0.00000 ,0.00000
 816      +,0.00271 ,0.00013  ,0.00003 ,0.00000 ,0.00000 ,0.00000
 817      +,0.00251 ,0.00012  ,0.00002 ,0.00000 ,0.00000 ,0.00000
 818      +,0.00233 ,0.00011  ,0.00002 ,0.00000 ,0.00000 ,0.00000
 819      +,0.00217 ,0.00010  ,0.00002 ,0.00000 ,0.00000 ,0.00000/
 820       DATA ((F(I,41,K),I=1,6),K=1,19)/
 821      + 0.00140 ,0.00003  ,0.00002 ,0.00000 ,0.00000 ,0.00000
 822      +,0.00110 ,0.00003  ,0.00001 ,0.00000 ,0.00000 ,0.00000
 823      +,0.00088 ,0.00002  ,0.00001 ,0.00000 ,0.00000 ,0.00000
 824      +,0.00072 ,0.00002  ,0.00001 ,0.00000 ,0.00000 ,0.00000
 825      +,0.00060 ,0.00001  ,0.00001 ,0.00000 ,0.00000 ,0.00000
 826      +,0.00051 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 827      +,0.00043 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 828      +,0.00037 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 829      +,0.00033 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 830      +,0.00028 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 831      +,0.00025 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 832      +,0.00022 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 833      +,0.00020 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 834      +,0.00018 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 835      +,0.00016 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 836      +,0.00014 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 837      +,0.00013 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 838      +,0.00012 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 839      +,0.00011 ,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(64,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*(1.D0-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