PDF/spdf/strcep.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.2  1996/10/30 08:31:00  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 STRCEP(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.03421 ,0.00832  ,3.92869 ,0.19423 ,0.01848 ,0.00000
  22      +,0.03541 ,0.00893  ,9.10252 ,0.26453 ,0.08861 ,0.00000
  23      +,0.03652 ,0.00951 ,15.11084 ,0.35506 ,0.17900 ,0.00000
  24      +,0.03757 ,0.01006 ,21.48190 ,0.46360 ,0.28738 ,0.00000
  25      +,0.03856 ,0.01058 ,28.18842 ,0.58730 ,0.41196 ,0.00308
  26      +,0.03949 ,0.01109 ,35.15343 ,0.70982 ,0.55125 ,0.05386
  27      +,0.04039 ,0.01157 ,42.22572 ,0.81597 ,0.70296 ,0.19096
  28      +,0.04125 ,0.01204 ,49.44702 ,0.93457 ,0.86640 ,0.32589
  29      +,0.04207 ,0.01250 ,56.79703 ,1.06148 ,1.04064 ,0.46833
  30      +,0.04286 ,0.01294 ,64.26422 ,1.19565 ,1.22507 ,0.61949
  31      +,0.04363 ,0.01337 ,71.69411 ,1.33503 ,1.41638 ,0.77570
  32      +,0.04438 ,0.01379 ,79.10132 ,1.47901 ,1.61390 ,0.93673
  33      +,0.04509 ,0.01420 ,86.61620 ,1.62933 ,1.82001 ,1.10447
  34      +,0.04579 ,0.01460 ,93.95358 ,1.78111 ,2.02804 ,1.27360
  35      +,0.04647 ,0.01499,101.34894 ,1.93783 ,2.24275 ,1.44793
  36      +,0.04713 ,0.01537,108.65349 ,2.09672 ,2.46037 ,1.62447
  37      +,0.04777 ,0.01574,115.91290 ,2.25825 ,2.68154 ,1.80374
  38      +,0.04840 ,0.01610,123.10268 ,2.42180 ,2.90541 ,1.98506
  39      +,0.04901 ,0.01646,130.23256 ,2.58726 ,3.13186 ,2.16835/
  40       DATA ((F(I,2,K),I=1,6),K=1,19)/
  41      + 0.04449 ,0.01235  ,3.76708 ,0.19572 ,0.01702 ,0.00000
  42      +,0.04599 ,0.01319  ,7.96307 ,0.25861 ,0.07983 ,0.00000
  43      +,0.04738 ,0.01399 ,12.58512 ,0.33658 ,0.15773 ,0.00000
  44      +,0.04868 ,0.01474 ,17.32654 ,0.42711 ,0.24818 ,0.00000
  45      +,0.04990 ,0.01545 ,22.19176 ,0.52754 ,0.34937 ,0.00248
  46      +,0.05106 ,0.01613 ,27.13849 ,0.62478 ,0.45991 ,0.04256
  47      +,0.05216 ,0.01678 ,32.06958 ,0.70711 ,0.57790 ,0.14970
  48      +,0.05322 ,0.01741 ,37.02281 ,0.79757 ,0.70277 ,0.25313
  49      +,0.05423 ,0.01802 ,41.99036 ,0.89283 ,0.83379 ,0.36056
  50      +,0.05520 ,0.01861 ,46.96983 ,0.99211 ,0.97049 ,0.47299
  51      +,0.05614 ,0.01918 ,51.86092 ,1.09391 ,1.11045 ,0.58765
  52      +,0.05704 ,0.01973 ,56.67929 ,1.19783 ,1.25326 ,0.70447
  53      +,0.05792 ,0.02027 ,61.51733 ,1.30514 ,1.40064 ,0.82481
  54      +,0.05876 ,0.02079 ,66.18787 ,1.41241 ,1.54791 ,0.94493
  55      +,0.05958 ,0.02130 ,70.85208 ,1.52213 ,1.69846 ,1.06756
  56      +,0.06038 ,0.02179 ,75.41489 ,1.63240 ,1.84972 ,1.19066
  57      +,0.06115 ,0.02228 ,79.90950 ,1.74357 ,2.00217 ,1.31462
  58      +,0.06191 ,0.02275 ,84.32312 ,1.85525 ,2.15528 ,1.43901
  59      +,0.06264 ,0.02321 ,88.66475 ,1.96741 ,2.30901 ,1.56382/
  60       DATA ((F(I,3,K),I=1,6),K=1,19)/
  61      + 0.05765 ,0.01832  ,3.61093 ,0.19648 ,0.01549 ,0.00000
  62      +,0.05952 ,0.01948  ,6.96492 ,0.25200 ,0.07105 ,0.00000
  63      +,0.06125 ,0.02056 ,10.47888 ,0.31823 ,0.13732 ,0.00000
  64      +,0.06286 ,0.02158 ,13.97004 ,0.39272 ,0.21184 ,0.00000
  65      +,0.06436 ,0.02254 ,17.46292 ,0.47317 ,0.29299 ,0.00197
  66      +,0.06579 ,0.02345 ,20.93961 ,0.54934 ,0.37962 ,0.03322
  67      +,0.06714 ,0.02432 ,24.34108 ,0.61235 ,0.47026 ,0.11599
  68      +,0.06843 ,0.02516 ,27.70108 ,0.68043 ,0.56452 ,0.19438
  69      +,0.06967 ,0.02596 ,31.02010 ,0.75102 ,0.66186 ,0.27451
  70      +,0.07086 ,0.02673 ,34.30139 ,0.82353 ,0.76198 ,0.35719
  71      +,0.07199 ,0.02748 ,37.48145 ,0.89694 ,0.86318 ,0.44045
  72      +,0.07309 ,0.02820 ,40.57529 ,0.97099 ,0.96523 ,0.52426
  73      +,0.07415 ,0.02890 ,43.64857 ,1.04663 ,1.06938 ,0.60966
  74      +,0.07517 ,0.02958 ,46.57977 ,1.12148 ,1.17241 ,0.69405
  75      +,0.07616 ,0.03024 ,49.47914 ,1.19731 ,1.27674 ,0.77939
  76      +,0.07712 ,0.03088 ,52.28651 ,1.27285 ,1.38063 ,0.86429
  77      +,0.07805 ,0.03150 ,55.02600 ,1.34838 ,1.48447 ,0.94906
  78      +,0.07896 ,0.03210 ,57.69179 ,1.42366 ,1.58793 ,1.03347
  79      +,0.07983 ,0.03269 ,60.29137 ,1.49869 ,1.69104 ,1.11752/
  80       DATA ((F(I,4,K),I=1,6),K=1,19)/
  81      + 0.06695 ,0.02306  ,3.52164 ,0.19647 ,0.01456 ,0.00000
  82      +,0.06907 ,0.02445  ,6.43906 ,0.24770 ,0.06591 ,0.00000
  83      +,0.07103 ,0.02575  ,9.41224 ,0.30744 ,0.12577 ,0.00000
  84      +,0.07286 ,0.02695 ,12.31308 ,0.37338 ,0.19183 ,0.00000
  85      +,0.07456 ,0.02809 ,15.17309 ,0.44351 ,0.26264 ,0.00171
  86      +,0.07617 ,0.02917 ,17.98447 ,0.50904 ,0.33723 ,0.02854
  87      +,0.07769 ,0.03020 ,20.70445 ,0.56250 ,0.41438 ,0.09926
  88      +,0.07914 ,0.03118 ,23.36453 ,0.61972 ,0.49380 ,0.16550
  89      +,0.08053 ,0.03212 ,25.96823 ,0.67851 ,0.57507 ,0.23257
  90      +,0.08186 ,0.03303 ,28.52094 ,0.73839 ,0.65795 ,0.30123
  91      +,0.08313 ,0.03390 ,30.97453 ,0.79857 ,0.74112 ,0.36984
  92      +,0.08436 ,0.03474 ,33.34349 ,0.85886 ,0.82439 ,0.43845
  93      +,0.08555 ,0.03555 ,35.68141 ,0.92004 ,0.90884 ,0.50789
  94      +,0.08668 ,0.03634 ,37.89435 ,0.98023 ,0.99188 ,0.57612
  95      +,0.08779 ,0.03710 ,40.07047 ,1.04087 ,1.07550 ,0.64472
  96      +,0.08885 ,0.03783 ,42.16408 ,1.10096 ,1.15834 ,0.71262
  97      +,0.08989 ,0.03855 ,44.19507 ,1.16074 ,1.24072 ,0.78008
  98      +,0.09089 ,0.03924 ,46.16020 ,1.22005 ,1.32243 ,0.84693
  99      +,0.09186 ,0.03992 ,48.06613 ,1.27891 ,1.40349 ,0.91321/
 100       DATA ((F(I,5,K),I=1,6),K=1,19)/
 101      + 0.07438 ,0.02715  ,3.45897 ,0.19622 ,0.01389 ,0.00000
 102      +,0.07670 ,0.02873  ,6.08954 ,0.24442 ,0.06228 ,0.00000
 103      +,0.07884 ,0.03019  ,8.72065 ,0.29971 ,0.11775 ,0.00000
 104      +,0.08083 ,0.03155 ,11.25574 ,0.35994 ,0.17816 ,0.00000
 105      +,0.08269 ,0.03284 ,13.72934 ,0.42329 ,0.24221 ,0.00154
 106      +,0.08444 ,0.03405 ,16.13921 ,0.48194 ,0.30904 ,0.02554
 107      +,0.08609 ,0.03520 ,18.45212 ,0.52932 ,0.37761 ,0.08858
 108      +,0.08767 ,0.03629 ,20.69765 ,0.57970 ,0.44769 ,0.14716
 109      +,0.08917 ,0.03735 ,22.88103 ,0.63112 ,0.51893 ,0.20609
 110      +,0.09061 ,0.03836 ,25.00864 ,0.68319 ,0.59117 ,0.26607
 111      +,0.09200 ,0.03932 ,27.04132 ,0.73524 ,0.66326 ,0.32569
 112      +,0.09332 ,0.04025 ,28.99277 ,0.78713 ,0.73510 ,0.38501
 113      +,0.09460 ,0.04116 ,30.90950 ,0.83956 ,0.80761 ,0.44479
 114      +,0.09583 ,0.04202 ,32.71355 ,0.89090 ,0.87862 ,0.50327
 115      +,0.09702 ,0.04286 ,34.47984 ,0.94244 ,0.94984 ,0.56184
 116      +,0.09817 ,0.04367 ,36.17101 ,0.99331 ,1.02013 ,0.61959
 117      +,0.09928 ,0.04446 ,37.80450 ,1.04375 ,1.08978 ,0.67677
 118      +,0.10036 ,0.04522 ,39.37819 ,1.09362 ,1.15864 ,0.73325
 119      +,0.10140 ,0.04596 ,40.89833 ,1.14294 ,1.22672 ,0.78905/
 120       DATA ((F(I,6,K),I=1,6),K=1,19)/
 121      + 0.08066 ,0.03081  ,3.41062 ,0.19586 ,0.01336 ,0.00000
 122      +,0.08315 ,0.03254  ,5.83105 ,0.24172 ,0.05946 ,0.00000
 123      +,0.08544 ,0.03415  ,8.21847 ,0.29365 ,0.11163 ,0.00000
 124      +,0.08757 ,0.03565 ,10.49688 ,0.34964 ,0.16786 ,0.00000
 125      +,0.08955 ,0.03705 ,12.70222 ,0.40803 ,0.22697 ,0.00142
 126      +,0.09142 ,0.03837 ,14.83576 ,0.46171 ,0.28820 ,0.02338
 127      +,0.09318 ,0.03963 ,16.87053 ,0.50474 ,0.35064 ,0.08092
 128      +,0.09486 ,0.04082 ,18.83466 ,0.55024 ,0.41408 ,0.13407
 129      +,0.09647 ,0.04196 ,20.73439 ,0.59647 ,0.47827 ,0.18725
 130      +,0.09800 ,0.04306 ,22.57664 ,0.64307 ,0.54305 ,0.24115
 131      +,0.09946 ,0.04411 ,24.32822 ,0.68945 ,0.60743 ,0.29450
 132      +,0.10087 ,0.04511 ,26.00214 ,0.73552 ,0.67134 ,0.34740
 133      +,0.10223 ,0.04609 ,27.64005 ,0.78190 ,0.73563 ,0.40050
 134      +,0.10353 ,0.04702 ,29.17450 ,0.82717 ,0.79838 ,0.45228
 135      +,0.10479 ,0.04792 ,30.67171 ,0.87247 ,0.86111 ,0.50399
 136      +,0.10601 ,0.04880 ,32.09966 ,0.91705 ,0.92285 ,0.55482
 137      +,0.10718 ,0.04964 ,33.47400 ,0.96113 ,0.98385 ,0.60501
 138      +,0.10832 ,0.05046 ,34.79338 ,1.00460 ,1.04400 ,0.65445
 139      +,0.10943 ,0.05125 ,36.06361 ,1.04749 ,1.10333 ,0.70318/
 140       DATA ((F(I,7,K),I=1,6),K=1,19)/
 141      + 0.10343 ,0.04555  ,3.26064 ,0.19367 ,0.01168 ,0.00000
 142      +,0.10651 ,0.04787  ,5.09229 ,0.23227 ,0.05076 ,0.00000
 143      +,0.10934 ,0.05000  ,6.82897 ,0.27425 ,0.09322 ,0.00000
 144      +,0.11195 ,0.05196  ,8.43940 ,0.31809 ,0.13752 ,0.00000
 145      +,0.11438 ,0.05379  ,9.95944 ,0.36265 ,0.18289 ,0.00108
 146      +,0.11666 ,0.05551 ,11.39761 ,0.40269 ,0.22884 ,0.01752
 147      +,0.11880 ,0.05712 ,12.74135 ,0.43399 ,0.27480 ,0.06025
 148      +,0.12084 ,0.05865 ,14.01429 ,0.46657 ,0.32071 ,0.09900
 149      +,0.12278 ,0.06010 ,15.22431 ,0.49917 ,0.36643 ,0.13717
 150      +,0.12462 ,0.06149 ,16.37914 ,0.53156 ,0.41193 ,0.17531
 151      +,0.12639 ,0.06281 ,17.45940 ,0.56339 ,0.45657 ,0.21260
 152      +,0.12808 ,0.06407 ,18.47600 ,0.59463 ,0.50036 ,0.24913
 153      +,0.12970 ,0.06528 ,19.45827 ,0.62573 ,0.54392 ,0.28540
 154      +,0.13125 ,0.06644 ,20.36383 ,0.65577 ,0.58599 ,0.32040
 155      +,0.13275 ,0.06756 ,21.23718 ,0.68553 ,0.62764 ,0.35501
 156      +,0.13420 ,0.06864 ,22.05888 ,0.71456 ,0.66825 ,0.38873
 157      +,0.13559 ,0.06967 ,22.84009 ,0.74299 ,0.70803 ,0.42173
 158      +,0.13694 ,0.07067 ,23.58093 ,0.77081 ,0.74693 ,0.45397
 159      +,0.13824 ,0.07164 ,24.28587 ,0.79803 ,0.78498 ,0.48550/
 160       DATA ((F(I,8,K),I=1,6),K=1,19)/
 161      + 0.13207 ,0.06708  ,3.10696 ,0.18935 ,0.00995 ,0.00000
 162      +,0.13586 ,0.07009  ,4.43855 ,0.22078 ,0.04222 ,0.00000
 163      +,0.13932 ,0.07283  ,5.65981 ,0.25357 ,0.07581 ,0.00000
 164      +,0.14251 ,0.07533  ,6.76108 ,0.28674 ,0.10974 ,0.00000
 165      +,0.14546 ,0.07764  ,7.77362 ,0.31958 ,0.14358 ,0.00080
 166      +,0.14822 ,0.07978  ,8.70889 ,0.34840 ,0.17709 ,0.01278
 167      +,0.15081 ,0.08178  ,9.56302 ,0.37030 ,0.20998 ,0.04373
 168      +,0.15326 ,0.08367 ,10.35518 ,0.39275 ,0.24227 ,0.07127
 169      +,0.15557 ,0.08545 ,11.09346 ,0.41486 ,0.27392 ,0.09797
 170      +,0.15778 ,0.08714 ,11.78522 ,0.43652 ,0.30496 ,0.12427
 171      +,0.15988 ,0.08873 ,12.41987 ,0.45752 ,0.33502 ,0.14966
 172      +,0.16188 ,0.09025 ,13.00617 ,0.47786 ,0.36414 ,0.17423
 173      +,0.16379 ,0.09170 ,13.56440 ,0.49789 ,0.39278 ,0.19834
 174      +,0.16562 ,0.09308 ,14.06854 ,0.51701 ,0.42013 ,0.22137
 175      +,0.16738 ,0.09440 ,14.54808 ,0.53576 ,0.44693 ,0.24391
 176      +,0.16907 ,0.09566 ,14.99144 ,0.55386 ,0.47281 ,0.26566
 177      +,0.17069 ,0.09687 ,15.40639 ,0.57143 ,0.49791 ,0.28674
 178      +,0.17226 ,0.09803 ,15.79368 ,0.58845 ,0.52224 ,0.30716
 179      +,0.17377 ,0.09915 ,16.15662 ,0.60496 ,0.54585 ,0.32696/
 180       DATA ((F(I,9,K),I=1,6),K=1,19)/
 181      + 0.15217 ,0.08385  ,3.01215 ,0.18551 ,0.00893 ,0.00000
 182      +,0.15644 ,0.08727  ,4.08918 ,0.21284 ,0.03736 ,0.00000
 183      +,0.16032 ,0.09036  ,5.06017 ,0.24063 ,0.06620 ,0.00000
 184      +,0.16388 ,0.09317  ,5.92106 ,0.26820 ,0.09477 ,0.00000
 185      +,0.16718 ,0.09574  ,6.69940 ,0.29508 ,0.12281 ,0.00067
 186      +,0.17024 ,0.09812  ,7.40709 ,0.31832 ,0.15022 ,0.01047
 187      +,0.17311 ,0.10033  ,8.04346 ,0.33562 ,0.17681 ,0.03572
 188      +,0.17581 ,0.10240  ,8.62514 ,0.35320 ,0.20264 ,0.05794
 189      +,0.17836 ,0.10434  ,9.15986 ,0.37036 ,0.22771 ,0.07926
 190      +,0.18078 ,0.10617  ,9.65448 ,0.38700 ,0.25208 ,0.10009
 191      +,0.18308 ,0.10789 ,10.10191 ,0.40301 ,0.27549 ,0.12004
 192      +,0.18527 ,0.10952 ,10.50963 ,0.41839 ,0.29800 ,0.13920
 193      +,0.18736 ,0.11108 ,10.89375 ,0.43342 ,0.31996 ,0.15787
 194      +,0.18934 ,0.11254 ,11.23513 ,0.44766 ,0.34080 ,0.17558
 195      +,0.19125 ,0.11394 ,11.55652 ,0.46153 ,0.36108 ,0.19280
 196      +,0.19308 ,0.11527 ,11.84959 ,0.47483 ,0.38054 ,0.20932
 197      +,0.19483 ,0.11655 ,12.12048 ,0.48765 ,0.39931 ,0.22524
 198      +,0.19652 ,0.11776 ,12.37006 ,0.50000 ,0.41739 ,0.24057
 199      +,0.19814 ,0.11893 ,12.60103 ,0.51191 ,0.43483 ,0.25536/
 200       DATA ((F(I,10,K),I=1,6),K=1,19)/
 201      + 0.16831 ,0.09800  ,2.94194 ,0.18219 ,0.00824 ,0.00000
 202      +,0.17294 ,0.10168  ,3.85646 ,0.20671 ,0.03410 ,0.00000
 203      +,0.17714 ,0.10498  ,4.66889 ,0.23120 ,0.05986 ,0.00000
 204      +,0.18098 ,0.10795  ,5.37904 ,0.25515 ,0.08500 ,0.00000
 205      +,0.18452 ,0.11067  ,6.01227 ,0.27822 ,0.10940 ,0.00058
 206      +,0.18780 ,0.11316  ,6.58062 ,0.29792 ,0.13300 ,0.00904
 207      +,0.19087 ,0.11547  ,7.08504 ,0.31233 ,0.15568 ,0.03074
 208      +,0.19374 ,0.11761  ,7.54046 ,0.32687 ,0.17753 ,0.04968
 209      +,0.19646 ,0.11962  ,7.95427 ,0.34096 ,0.19858 ,0.06771
 210      +,0.19903 ,0.12151  ,8.33285 ,0.35453 ,0.21890 ,0.08522
 211      +,0.20146 ,0.12327  ,8.67099 ,0.36747 ,0.23829 ,0.10187
 212      +,0.20376 ,0.12494  ,8.97538 ,0.37984 ,0.25681 ,0.11777
 213      +,0.20596 ,0.12652  ,9.25952 ,0.39185 ,0.27480 ,0.13319
 214      +,0.20805 ,0.12800  ,9.50822 ,0.40315 ,0.29175 ,0.14773
 215      +,0.21004 ,0.12941  ,9.74013 ,0.41410 ,0.30817 ,0.16179
 216      +,0.21195 ,0.13075  ,9.94885 ,0.42454 ,0.32384 ,0.17521
 217      +,0.21378 ,0.13202 ,10.13945 ,0.43454 ,0.33888 ,0.18809
 218      +,0.21553 ,0.13323 ,10.31285 ,0.44413 ,0.35330 ,0.20044
 219      +,0.21721 ,0.13439 ,10.47122 ,0.45333 ,0.36715 ,0.21230/
 220       DATA ((F(I,11,K),I=1,6),K=1,19)/
 221      + 0.18210 ,0.11041  ,2.88482 ,0.17921 ,0.00771 ,0.00000
 222      +,0.18703 ,0.11423  ,3.68337 ,0.20163 ,0.03170 ,0.00000
 223      +,0.19148 ,0.11763  ,4.38239 ,0.22370 ,0.05524 ,0.00000
 224      +,0.19554 ,0.12069  ,4.98548 ,0.24504 ,0.07795 ,0.00000
 225      +,0.19927 ,0.12346  ,5.51662 ,0.26538 ,0.09977 ,0.00052
 226      +,0.20271 ,0.12600  ,5.98780 ,0.28256 ,0.12069 ,0.00803
 227      +,0.20592 ,0.12833  ,6.40103 ,0.29492 ,0.14063 ,0.02725
 228      +,0.20893 ,0.13049  ,6.76993 ,0.30732 ,0.15971 ,0.04390
 229      +,0.21176 ,0.13251  ,7.10151 ,0.31925 ,0.17797 ,0.05965
 230      +,0.21443 ,0.13439  ,7.40176 ,0.33066 ,0.19549 ,0.07485
 231      +,0.21695 ,0.13614  ,7.66668 ,0.34148 ,0.21211 ,0.08923
 232      +,0.21933 ,0.13779  ,7.90232 ,0.35175 ,0.22790 ,0.10289
 233      +,0.22159 ,0.13935  ,8.12035 ,0.36168 ,0.24316 ,0.11607
 234      +,0.22374 ,0.14080  ,8.30816 ,0.37095 ,0.25746 ,0.12844
 235      +,0.22579 ,0.14218  ,8.48169 ,0.37990 ,0.27126 ,0.14036
 236      +,0.22775 ,0.14348  ,8.63568 ,0.38838 ,0.28436 ,0.15169
 237      +,0.22961 ,0.14472  ,8.77451 ,0.39648 ,0.29689 ,0.16251
 238      +,0.23140 ,0.14589  ,8.89905 ,0.40419 ,0.30885 ,0.17285
 239      +,0.23311 ,0.14700  ,9.01118 ,0.41156 ,0.32029 ,0.18274/
 240       DATA ((F(I,12,K),I=1,6),K=1,19)/
 241      + 0.23375 ,0.15749  ,2.67263 ,0.16556 ,0.00606 ,0.00000
 242      +,0.23958 ,0.16130  ,3.15203 ,0.18145 ,0.02432 ,0.00000
 243      +,0.24477 ,0.16461  ,3.55071 ,0.19638 ,0.04142 ,0.00000
 244      +,0.24942 ,0.16750  ,3.87788 ,0.21021 ,0.05728 ,0.00000
 245      +,0.25364 ,0.17005  ,4.15206 ,0.22294 ,0.07201 ,0.00035
 246      +,0.25749 ,0.17234  ,4.38372 ,0.23322 ,0.08572 ,0.00533
 247      +,0.26103 ,0.17438  ,4.57640 ,0.24006 ,0.09845 ,0.01795
 248      +,0.26430 ,0.17623  ,4.73975 ,0.24679 ,0.11033 ,0.02862
 249      +,0.26734 ,0.17792  ,4.87917 ,0.25311 ,0.12144 ,0.03849
 250      +,0.27018 ,0.17946  ,4.99913 ,0.25899 ,0.13188 ,0.04784
 251      +,0.27282 ,0.18087  ,5.09816 ,0.26443 ,0.14159 ,0.05651
 252      +,0.27529 ,0.18214  ,5.18031 ,0.26945 ,0.15063 ,0.06461
 253      +,0.27762 ,0.18334  ,5.25258 ,0.27420 ,0.15921 ,0.07230
 254      +,0.27979 ,0.18442  ,5.30836 ,0.27852 ,0.16711 ,0.07939
 255      +,0.28185 ,0.18542  ,5.35671 ,0.28260 ,0.17461 ,0.08612
 256      +,0.28378 ,0.18635  ,5.39497 ,0.28637 ,0.18161 ,0.09243
 257      +,0.28561 ,0.18720  ,5.42570 ,0.28989 ,0.18820 ,0.09836
 258      +,0.28734 ,0.18799  ,5.44953 ,0.29317 ,0.19440 ,0.10396
 259      +,0.28899 ,0.18873  ,5.46756 ,0.29623 ,0.20023 ,0.10924/
 260       DATA ((F(I,13,K),I=1,6),K=1,19)/
 261      + 0.30545 ,0.21561  ,2.37185 ,0.14227 ,0.00440 ,0.00000
 262      +,0.31162 ,0.21793  ,2.59578 ,0.15185 ,0.01723 ,0.00000
 263      +,0.31696 ,0.21980  ,2.76521 ,0.16032 ,0.02865 ,0.00000
 264      +,0.32161 ,0.22125  ,2.89026 ,0.16774 ,0.03876 ,0.00000
 265      +,0.32568 ,0.22243  ,2.98389 ,0.17422 ,0.04779 ,0.00022
 266      +,0.32929 ,0.22339  ,3.05347 ,0.17903 ,0.05590 ,0.00324
 267      +,0.33251 ,0.22412  ,3.10213 ,0.18163 ,0.06318 ,0.01080
 268      +,0.33539 ,0.22469  ,3.13584 ,0.18413 ,0.06976 ,0.01700
 269      +,0.33799 ,0.22514  ,3.15808 ,0.18635 ,0.07574 ,0.02259
 270      +,0.34036 ,0.22549  ,3.17153 ,0.18830 ,0.08122 ,0.02776
 271      +,0.34250 ,0.22572  ,3.17572 ,0.18998 ,0.08616 ,0.03244
 272      +,0.34442 ,0.22586  ,3.17290 ,0.19141 ,0.09064 ,0.03672
 273      +,0.34619 ,0.22596  ,3.16674 ,0.19271 ,0.09480 ,0.04069
 274      +,0.34777 ,0.22596  ,3.15395 ,0.19376 ,0.09852 ,0.04428
 275      +,0.34923 ,0.22592  ,3.13912 ,0.19469 ,0.10197 ,0.04762
 276      +,0.35056 ,0.22583  ,3.12094 ,0.19548 ,0.10512 ,0.05069
 277      +,0.35177 ,0.22570  ,3.10061 ,0.19613 ,0.10801 ,0.05353
 278      +,0.35287 ,0.22553  ,3.07842 ,0.19668 ,0.11067 ,0.05615
 279      +,0.35388 ,0.22533  ,3.05488 ,0.19712 ,0.11311 ,0.05858/
 280       DATA ((F(I,14,K),I=1,6),K=1,19)/
 281      + 0.36092 ,0.24998  ,2.12809 ,0.12233 ,0.00343 ,0.00000
 282      +,0.36632 ,0.25027  ,2.23269 ,0.12848 ,0.01322 ,0.00000
 283      +,0.37080 ,0.25024  ,2.30055 ,0.13364 ,0.02164 ,0.00000
 284      +,0.37450 ,0.24995  ,2.34007 ,0.13792 ,0.02887 ,0.00000
 285      +,0.37761 ,0.24949  ,2.36061 ,0.14146 ,0.03516 ,0.00015
 286      +,0.38025 ,0.24889  ,2.36756 ,0.14380 ,0.04067 ,0.00225
 287      +,0.38246 ,0.24817  ,2.36294 ,0.14458 ,0.04549 ,0.00746
 288      +,0.38434 ,0.24737  ,2.35073 ,0.14529 ,0.04975 ,0.01166
 289      +,0.38594 ,0.24651  ,2.33317 ,0.14583 ,0.05354 ,0.01537
 290      +,0.38731 ,0.24561  ,2.31195 ,0.14622 ,0.05693 ,0.01875
 291      +,0.38844 ,0.24467  ,2.28678 ,0.14643 ,0.05993 ,0.02175
 292      +,0.38937 ,0.24368  ,2.25893 ,0.14651 ,0.06258 ,0.02445
 293      +,0.39018 ,0.24269  ,2.23060 ,0.14653 ,0.06500 ,0.02692
 294      +,0.39079 ,0.24166  ,2.19977 ,0.14639 ,0.06711 ,0.02911
 295      +,0.39131 ,0.24064  ,2.16908 ,0.14622 ,0.06904 ,0.03113
 296      +,0.39170 ,0.23961  ,2.13765 ,0.14596 ,0.07075 ,0.03295
 297      +,0.39200 ,0.23857  ,2.10616 ,0.14564 ,0.07229 ,0.03461
 298      +,0.39220 ,0.23753  ,2.07470 ,0.14527 ,0.07367 ,0.03613
 299      +,0.39232 ,0.23649  ,2.04349 ,0.14486 ,0.07491 ,0.03751/
 300       DATA ((F(I,15,K),I=1,6),K=1,19)/
 301      + 0.40698 ,0.27030  ,1.91483 ,0.10503 ,0.00275 ,0.00000
 302      +,0.41084 ,0.26849  ,1.95020 ,0.10900 ,0.01048 ,0.00000
 303      +,0.41379 ,0.26657  ,1.96157 ,0.11215 ,0.01696 ,0.00000
 304      +,0.41599 ,0.26455  ,1.95547 ,0.11458 ,0.02239 ,0.00000
 305      +,0.41766 ,0.26250  ,1.93871 ,0.11645 ,0.02700 ,0.00011
 306      +,0.41887 ,0.26045  ,1.91488 ,0.11742 ,0.03097 ,0.00166
 307      +,0.41970 ,0.25837  ,1.88527 ,0.11725 ,0.03436 ,0.00547
 308      +,0.42022 ,0.25630  ,1.85255 ,0.11706 ,0.03730 ,0.00850
 309      +,0.42051 ,0.25426  ,1.81807 ,0.11677 ,0.03986 ,0.01113
 310      +,0.42061 ,0.25225  ,1.78288 ,0.11639 ,0.04212 ,0.01349
 311      +,0.42051 ,0.25026  ,1.74664 ,0.11592 ,0.04407 ,0.01556
 312      +,0.42024 ,0.24829  ,1.71009 ,0.11537 ,0.04577 ,0.01740
 313      +,0.41989 ,0.24638  ,1.67460 ,0.11481 ,0.04729 ,0.01906
 314      +,0.41937 ,0.24447  ,1.63864 ,0.11416 ,0.04857 ,0.02052
 315      +,0.41879 ,0.24262  ,1.60392 ,0.11350 ,0.04973 ,0.02184
 316      +,0.41811 ,0.24080  ,1.56977 ,0.11280 ,0.05072 ,0.02301
 317      +,0.41737 ,0.23901  ,1.53654 ,0.11209 ,0.05160 ,0.02407
 318      +,0.41657 ,0.23726  ,1.50420 ,0.11136 ,0.05237 ,0.02502
 319      +,0.41572 ,0.23555  ,1.47284 ,0.11062 ,0.05304 ,0.02588/
 320       DATA ((F(I,16,K),I=1,6),K=1,19)/
 321      + 0.44552 ,0.28091  ,1.72366 ,0.08995 ,0.00224 ,0.00000
 322      +,0.44730 ,0.27713  ,1.71541 ,0.09246 ,0.00845 ,0.00000
 323      +,0.44828 ,0.27344  ,1.69266 ,0.09430 ,0.01355 ,0.00000
 324      +,0.44861 ,0.26986  ,1.66020 ,0.09557 ,0.01774 ,0.00000
 325      +,0.44851 ,0.26638  ,1.62283 ,0.09641 ,0.02123 ,0.00008
 326      +,0.44803 ,0.26304  ,1.58287 ,0.09658 ,0.02417 ,0.00126
 327      +,0.44724 ,0.25978  ,1.54093 ,0.09590 ,0.02663 ,0.00414
 328      +,0.44622 ,0.25663  ,1.49874 ,0.09523 ,0.02874 ,0.00640
 329      +,0.44504 ,0.25357  ,1.45708 ,0.09452 ,0.03054 ,0.00834
 330      +,0.44373 ,0.25063  ,1.41649 ,0.09376 ,0.03210 ,0.01005
 331      +,0.44228 ,0.24777  ,1.37658 ,0.09295 ,0.03341 ,0.01154
 332      +,0.44072 ,0.24500  ,1.33774 ,0.09212 ,0.03453 ,0.01284
 333      +,0.43913 ,0.24233  ,1.30079 ,0.09129 ,0.03552 ,0.01401
 334      +,0.43741 ,0.23972  ,1.26453 ,0.09041 ,0.03633 ,0.01501
 335      +,0.43569 ,0.23720  ,1.23008 ,0.08955 ,0.03704 ,0.01592
 336      +,0.43392 ,0.23476  ,1.19686 ,0.08869 ,0.03764 ,0.01671
 337      +,0.43212 ,0.23238  ,1.16505 ,0.08782 ,0.03815 ,0.01742
 338      +,0.43030 ,0.23008  ,1.13455 ,0.08696 ,0.03858 ,0.01805
 339      +,0.42847 ,0.22784  ,1.10535 ,0.08611 ,0.03895 ,0.01860/
 340       DATA ((F(I,17,K),I=1,6),K=1,19)/
 341      + 0.48435 ,0.28436  ,1.50979 ,0.07379 ,0.00177 ,0.00001
 342      +,0.48302 ,0.27839  ,1.46778 ,0.07511 ,0.00656 ,0.00001
 343      +,0.48114 ,0.27280  ,1.41998 ,0.07590 ,0.01042 ,0.00001
 344      +,0.47881 ,0.26753  ,1.36938 ,0.07629 ,0.01350 ,0.00001
 345      +,0.47623 ,0.26257  ,1.31874 ,0.07637 ,0.01603 ,0.00007
 346      +,0.47346 ,0.25788  ,1.26927 ,0.07598 ,0.01811 ,0.00093
 347      +,0.47051 ,0.25341  ,1.22091 ,0.07500 ,0.01981 ,0.00301
 348      +,0.46744 ,0.24916  ,1.17451 ,0.07405 ,0.02124 ,0.00463
 349      +,0.46432 ,0.24512  ,1.13039 ,0.07310 ,0.02243 ,0.00599
 350      +,0.46119 ,0.24126  ,1.08866 ,0.07215 ,0.02344 ,0.00718
 351      +,0.45802 ,0.23757  ,1.04884 ,0.07119 ,0.02426 ,0.00819
 352      +,0.45482 ,0.23401  ,1.01102 ,0.07022 ,0.02495 ,0.00907
 353      +,0.45170 ,0.23063  ,0.97564 ,0.06928 ,0.02554 ,0.00986
 354      +,0.44851 ,0.22737  ,0.94172 ,0.06834 ,0.02600 ,0.01051
 355      +,0.44539 ,0.22424  ,0.90992 ,0.06742 ,0.02640 ,0.01109
 356      +,0.44229 ,0.22123  ,0.87976 ,0.06651 ,0.02672 ,0.01160
 357      +,0.43921 ,0.21833  ,0.85124 ,0.06562 ,0.02697 ,0.01204
 358      +,0.43618 ,0.21553  ,0.82423 ,0.06475 ,0.02717 ,0.01243
 359      +,0.43318 ,0.21283  ,0.79867 ,0.06390 ,0.02733 ,0.01277/
 360       DATA ((F(I,18,K),I=1,6),K=1,19)/
 361      + 0.51323 ,0.27987  ,1.31956 ,0.06023 ,0.00140 ,0.00000
 362      +,0.50850 ,0.27209  ,1.25793 ,0.06079 ,0.00515 ,0.00001
 363      +,0.50353 ,0.26496  ,1.19678 ,0.06097 ,0.00808 ,0.00000
 364      +,0.49841 ,0.25836  ,1.13748 ,0.06084 ,0.01040 ,0.00000
 365      +,0.49324 ,0.25225  ,1.08142 ,0.06051 ,0.01225 ,0.00006
 366      +,0.48810 ,0.24657  ,1.02890 ,0.05985 ,0.01374 ,0.00069
 367      +,0.48296 ,0.24120  ,0.97940 ,0.05878 ,0.01494 ,0.00223
 368      +,0.47787 ,0.23614  ,0.93319 ,0.05775 ,0.01592 ,0.00340
 369      +,0.47287 ,0.23137  ,0.89021 ,0.05674 ,0.01672 ,0.00438
 370      +,0.46799 ,0.22687  ,0.85034 ,0.05575 ,0.01739 ,0.00522
 371      +,0.46315 ,0.22259  ,0.81300 ,0.05478 ,0.01792 ,0.00594
 372      +,0.45841 ,0.21852  ,0.77813 ,0.05382 ,0.01834 ,0.00654
 373      +,0.45383 ,0.21466  ,0.74587 ,0.05290 ,0.01869 ,0.00707
 374      +,0.44928 ,0.21094  ,0.71543 ,0.05199 ,0.01895 ,0.00751
 375      +,0.44489 ,0.20741  ,0.68717 ,0.05111 ,0.01917 ,0.00790
 376      +,0.44057 ,0.20404  ,0.66067 ,0.05026 ,0.01933 ,0.00823
 377      +,0.43635 ,0.20080  ,0.63585 ,0.04943 ,0.01945 ,0.00852
 378      +,0.43222 ,0.19770  ,0.61256 ,0.04862 ,0.01953 ,0.00876
 379      +,0.42819 ,0.19473  ,0.59070 ,0.04784 ,0.01958 ,0.00897/
 380       DATA ((F(I,19,K),I=1,6),K=1,19)/
 381      + 0.53266 ,0.26968  ,1.14995 ,0.04889 ,0.00110 ,0.00000
 382      +,0.52442 ,0.26051  ,1.07765 ,0.04899 ,0.00404 ,0.00001
 383      +,0.51635 ,0.25221  ,1.01027 ,0.04879 ,0.00630 ,0.00001
 384      +,0.50843 ,0.24463  ,0.94792 ,0.04839 ,0.00805 ,0.00000
 385      +,0.50076 ,0.23768  ,0.89096 ,0.04785 ,0.00942 ,0.00004
 386      +,0.49337 ,0.23127  ,0.83898 ,0.04708 ,0.01051 ,0.00052
 387      +,0.48615 ,0.22529  ,0.79115 ,0.04602 ,0.01136 ,0.00167
 388      +,0.47915 ,0.21968  ,0.74733 ,0.04501 ,0.01205 ,0.00253
 389      +,0.47241 ,0.21444  ,0.70721 ,0.04404 ,0.01259 ,0.00324
 390      +,0.46591 ,0.20953  ,0.67052 ,0.04311 ,0.01302 ,0.00385
 391      +,0.45958 ,0.20488  ,0.63667 ,0.04219 ,0.01337 ,0.00435
 392      +,0.45345 ,0.20049  ,0.60543 ,0.04131 ,0.01363 ,0.00478
 393      +,0.44758 ,0.19635  ,0.57680 ,0.04046 ,0.01384 ,0.00515
 394      +,0.44183 ,0.19239  ,0.55013 ,0.03963 ,0.01398 ,0.00545
 395      +,0.43630 ,0.18865  ,0.52556 ,0.03884 ,0.01409 ,0.00571
 396      +,0.43092 ,0.18509  ,0.50271 ,0.03808 ,0.01416 ,0.00593
 397      +,0.42572 ,0.18169  ,0.48148 ,0.03734 ,0.01420 ,0.00611
 398      +,0.42067 ,0.17844  ,0.46172 ,0.03663 ,0.01421 ,0.00627
 399      +,0.41577 ,0.17533  ,0.44330 ,0.03595 ,0.01421 ,0.00640/
 400       DATA ((F(I,20,K),I=1,6),K=1,19)/
 401      + 0.54331 ,0.25545  ,0.99875 ,0.03944 ,0.00088 ,0.00000
 402      +,0.53165 ,0.24527  ,0.92171 ,0.03926 ,0.00318 ,0.00001
 403      +,0.52059 ,0.23615  ,0.85264 ,0.03887 ,0.00493 ,0.00001
 404      +,0.51003 ,0.22792  ,0.79070 ,0.03833 ,0.00625 ,0.00000
 405      +,0.50003 ,0.22043  ,0.73545 ,0.03771 ,0.00727 ,0.00003
 406      +,0.49055 ,0.21357  ,0.68602 ,0.03692 ,0.00807 ,0.00040
 407      +,0.48144 ,0.20722  ,0.64135 ,0.03593 ,0.00868 ,0.00125
 408      +,0.47274 ,0.20131  ,0.60103 ,0.03501 ,0.00916 ,0.00189
 409      +,0.46444 ,0.19581  ,0.56459 ,0.03412 ,0.00953 ,0.00241
 410      +,0.45653 ,0.19069  ,0.53164 ,0.03327 ,0.00981 ,0.00286
 411      +,0.44890 ,0.18587  ,0.50158 ,0.03246 ,0.01003 ,0.00322
 412      +,0.44158 ,0.18134  ,0.47413 ,0.03167 ,0.01019 ,0.00352
 413      +,0.43461 ,0.17709  ,0.44916 ,0.03092 ,0.01031 ,0.00378
 414      +,0.42784 ,0.17304  ,0.42614 ,0.03020 ,0.01037 ,0.00398
 415      +,0.42138 ,0.16923  ,0.40507 ,0.02951 ,0.01042 ,0.00416
 416      +,0.41514 ,0.16561  ,0.38563 ,0.02885 ,0.01044 ,0.00431
 417      +,0.40913 ,0.16217  ,0.36769 ,0.02822 ,0.01044 ,0.00443
 418      +,0.40334 ,0.15890  ,0.35110 ,0.02761 ,0.01042 ,0.00453
 419      +,0.39775 ,0.15579  ,0.33573 ,0.02703 ,0.01039 ,0.00461/
 420       DATA ((F(I,21,K),I=1,6),K=1,19)/
 421      + 0.54592 ,0.23847  ,0.86412 ,0.03162 ,0.00069 ,0.00000
 422      +,0.53104 ,0.22765  ,0.78633 ,0.03129 ,0.00250 ,0.00000
 423      +,0.51719 ,0.21805  ,0.71854 ,0.03081 ,0.00386 ,0.00000
 424      +,0.50425 ,0.20944  ,0.65912 ,0.03023 ,0.00486 ,0.00000
 425      +,0.49217 ,0.20167  ,0.60715 ,0.02959 ,0.00562 ,0.00002
 426      +,0.48083 ,0.19461  ,0.56135 ,0.02885 ,0.00621 ,0.00029
 427      +,0.47011 ,0.18810  ,0.52057 ,0.02797 ,0.00664 ,0.00094
 428      +,0.45994 ,0.18209  ,0.48422 ,0.02714 ,0.00698 ,0.00142
 429      +,0.45031 ,0.17652  ,0.45175 ,0.02636 ,0.00723 ,0.00180
 430      +,0.44120 ,0.17136  ,0.42266 ,0.02562 ,0.00741 ,0.00212
 431      +,0.43250 ,0.16653  ,0.39638 ,0.02491 ,0.00755 ,0.00238
 432      +,0.42421 ,0.16200  ,0.37258 ,0.02423 ,0.00764 ,0.00260
 433      +,0.41636 ,0.15776  ,0.35109 ,0.02359 ,0.00770 ,0.00278
 434      +,0.40877 ,0.15375  ,0.33144 ,0.02298 ,0.00773 ,0.00293
 435      +,0.40157 ,0.14999  ,0.31357 ,0.02240 ,0.00774 ,0.00305
 436      +,0.39465 ,0.14643  ,0.29719 ,0.02184 ,0.00773 ,0.00314
 437      +,0.38803 ,0.14306  ,0.28218 ,0.02131 ,0.00771 ,0.00322
 438      +,0.38168 ,0.13986  ,0.26839 ,0.02080 ,0.00767 ,0.00329
 439      +,0.37557 ,0.13683  ,0.25567 ,0.02031 ,0.00763 ,0.00334/
 440       DATA ((F(I,22,K),I=1,6),K=1,19)/
 441      + 0.54104 ,0.21971  ,0.74449 ,0.02516 ,0.00055 ,0.00000
 442      +,0.52327 ,0.20857  ,0.66860 ,0.02476 ,0.00198 ,0.00000
 443      +,0.50696 ,0.19878  ,0.60396 ,0.02426 ,0.00302 ,0.00000
 444      +,0.49195 ,0.19006  ,0.54843 ,0.02369 ,0.00378 ,0.00000
 445      +,0.47807 ,0.18225  ,0.50054 ,0.02309 ,0.00435 ,0.00002
 446      +,0.46519 ,0.17518  ,0.45894 ,0.02241 ,0.00477 ,0.00023
 447      +,0.45310 ,0.16870  ,0.42236 ,0.02165 ,0.00508 ,0.00072
 448      +,0.44175 ,0.16275  ,0.39012 ,0.02093 ,0.00531 ,0.00107
 449      +,0.43106 ,0.15726  ,0.36159 ,0.02026 ,0.00548 ,0.00135
 450      +,0.42101 ,0.15220  ,0.33624 ,0.01963 ,0.00560 ,0.00158
 451      +,0.41153 ,0.14747  ,0.31353 ,0.01902 ,0.00568 ,0.00178
 452      +,0.40249 ,0.14306  ,0.29314 ,0.01845 ,0.00573 ,0.00193
 453      +,0.39396 ,0.13896  ,0.27485 ,0.01792 ,0.00575 ,0.00205
 454      +,0.38580 ,0.13508  ,0.25823 ,0.01740 ,0.00576 ,0.00215
 455      +,0.37807 ,0.13146  ,0.24321 ,0.01692 ,0.00575 ,0.00224
 456      +,0.37069 ,0.12804  ,0.22954 ,0.01646 ,0.00573 ,0.00230
 457      +,0.36365 ,0.12481  ,0.21707 ,0.01602 ,0.00570 ,0.00235
 458      +,0.35692 ,0.12176  ,0.20567 ,0.01560 ,0.00566 ,0.00239
 459      +,0.35047 ,0.11887  ,0.19521 ,0.01520 ,0.00561 ,0.00242/
 460       DATA ((F(I,23,K),I=1,6),K=1,19)/
 461      + 0.52960 ,0.20003  ,0.63844 ,0.01988 ,0.00044 ,0.00000
 462      +,0.50933 ,0.18887  ,0.56630 ,0.01946 ,0.00155 ,0.00000
 463      +,0.49096 ,0.17912  ,0.50599 ,0.01898 ,0.00235 ,0.00000
 464      +,0.47423 ,0.17051  ,0.45502 ,0.01845 ,0.00293 ,0.00000
 465      +,0.45891 ,0.16283  ,0.41167 ,0.01791 ,0.00335 ,0.00001
 466      +,0.44480 ,0.15593  ,0.37445 ,0.01732 ,0.00366 ,0.00017
 467      +,0.43165 ,0.14962  ,0.34209 ,0.01667 ,0.00388 ,0.00054
 468      +,0.41939 ,0.14387  ,0.31385 ,0.01606 ,0.00404 ,0.00081
 469      +,0.40792 ,0.13858  ,0.28907 ,0.01550 ,0.00415 ,0.00101
 470      +,0.39720 ,0.13372  ,0.26724 ,0.01497 ,0.00423 ,0.00118
 471      +,0.38713 ,0.12920  ,0.24782 ,0.01446 ,0.00427 ,0.00132
 472      +,0.37758 ,0.12500  ,0.23052 ,0.01399 ,0.00429 ,0.00143
 473      +,0.36861 ,0.12110  ,0.21510 ,0.01355 ,0.00430 ,0.00152
 474      +,0.36007 ,0.11744  ,0.20118 ,0.01313 ,0.00429 ,0.00158
 475      +,0.35201 ,0.11401  ,0.18866 ,0.01273 ,0.00428 ,0.00164
 476      +,0.34434 ,0.11080  ,0.17733 ,0.01235 ,0.00425 ,0.00169
 477      +,0.33705 ,0.10777  ,0.16706 ,0.01200 ,0.00422 ,0.00172
 478      +,0.33011 ,0.10492  ,0.15770 ,0.01166 ,0.00417 ,0.00174
 479      +,0.32348 ,0.10222  ,0.14916 ,0.01134 ,0.00413 ,0.00176/
 480       DATA ((F(I,24,K),I=1,6),K=1,19)/
 481      + 0.51234 ,0.18003  ,0.54470 ,0.01557 ,0.00035 ,0.00001
 482      +,0.48999 ,0.16910  ,0.47746 ,0.01518 ,0.00121 ,0.00001
 483      +,0.47004 ,0.15961  ,0.42214 ,0.01473 ,0.00183 ,0.00001
 484      +,0.45196 ,0.15128  ,0.37611 ,0.01426 ,0.00227 ,0.00001
 485      +,0.43554 ,0.14389  ,0.33741 ,0.01379 ,0.00258 ,0.00001
 486      +,0.42052 ,0.13727  ,0.30457 ,0.01329 ,0.00280 ,0.00013
 487      +,0.40665 ,0.13127  ,0.27628 ,0.01274 ,0.00296 ,0.00041
 488      +,0.39375 ,0.12581  ,0.25181 ,0.01224 ,0.00307 ,0.00060
 489      +,0.38178 ,0.12081  ,0.23052 ,0.01177 ,0.00314 ,0.00076
 490      +,0.37064 ,0.11623  ,0.21189 ,0.01134 ,0.00319 ,0.00088
 491      +,0.36019 ,0.11200  ,0.19547 ,0.01092 ,0.00321 ,0.00098
 492      +,0.35037 ,0.10807  ,0.18091 ,0.01054 ,0.00322 ,0.00106
 493      +,0.34118 ,0.10444  ,0.16801 ,0.01018 ,0.00321 ,0.00112
 494      +,0.33246 ,0.10104  ,0.15646 ,0.00984 ,0.00320 ,0.00117
 495      +,0.32425 ,0.09787  ,0.14612 ,0.00952 ,0.00317 ,0.00120
 496      +,0.31645 ,0.09489  ,0.13681 ,0.00922 ,0.00314 ,0.00123
 497      +,0.30908 ,0.09211  ,0.12840 ,0.00893 ,0.00311 ,0.00125
 498      +,0.30210 ,0.08949  ,0.12078 ,0.00866 ,0.00308 ,0.00127
 499      +,0.29545 ,0.08701  ,0.11386 ,0.00840 ,0.00304 ,0.00128/
 500       DATA ((F(I,25,K),I=1,6),K=1,19)/
 501      + 0.49013 ,0.16027  ,0.46222 ,0.01209 ,0.00027 ,0.00001
 502      +,0.46623 ,0.14976  ,0.40054 ,0.01174 ,0.00094 ,0.00001
 503      +,0.44507 ,0.14070  ,0.35056 ,0.01134 ,0.00142 ,0.00001
 504      +,0.42605 ,0.13278  ,0.30951 ,0.01093 ,0.00174 ,0.00001
 505      +,0.40891 ,0.12580  ,0.27539 ,0.01053 ,0.00197 ,0.00001
 506      +,0.39332 ,0.11958  ,0.24673 ,0.01011 ,0.00214 ,0.00010
 507      +,0.37901 ,0.11396  ,0.22228 ,0.00966 ,0.00224 ,0.00031
 508      +,0.36578 ,0.10887  ,0.20130 ,0.00925 ,0.00232 ,0.00045
 509      +,0.35355 ,0.10423  ,0.18319 ,0.00887 ,0.00236 ,0.00056
 510      +,0.34222 ,0.09999  ,0.16746 ,0.00852 ,0.00239 ,0.00065
 511      +,0.33165 ,0.09609  ,0.15368 ,0.00819 ,0.00240 ,0.00073
 512      +,0.32175 ,0.09248  ,0.14155 ,0.00788 ,0.00240 ,0.00078
 513      +,0.31252 ,0.08915  ,0.13085 ,0.00759 ,0.00239 ,0.00082
 514      +,0.30379 ,0.08604  ,0.12133 ,0.00732 ,0.00237 ,0.00086
 515      +,0.29560 ,0.08316  ,0.11286 ,0.00706 ,0.00234 ,0.00088
 516      +,0.28785 ,0.08046  ,0.10526 ,0.00683 ,0.00232 ,0.00090
 517      +,0.28055 ,0.07793  ,0.09843 ,0.00660 ,0.00229 ,0.00091
 518      +,0.27365 ,0.07556  ,0.09227 ,0.00639 ,0.00226 ,0.00092
 519      +,0.26709 ,0.07333  ,0.08670 ,0.00618 ,0.00222 ,0.00093/
 520       DATA ((F(I,26,K),I=1,6),K=1,19)/
 521      + 0.46386 ,0.14115  ,0.38994 ,0.00932 ,0.00021 ,0.00000
 522      +,0.43892 ,0.13122  ,0.33415 ,0.00900 ,0.00073 ,0.00000
 523      +,0.41695 ,0.12272  ,0.28960 ,0.00867 ,0.00108 ,0.00000
 524      +,0.39740 ,0.11532  ,0.25342 ,0.00833 ,0.00133 ,0.00000
 525      +,0.37991 ,0.10884  ,0.22368 ,0.00798 ,0.00150 ,0.00000
 526      +,0.36409 ,0.10309  ,0.19892 ,0.00764 ,0.00161 ,0.00007
 527      +,0.34959 ,0.09792  ,0.17802 ,0.00728 ,0.00169 ,0.00023
 528      +,0.33630 ,0.09325  ,0.16021 ,0.00695 ,0.00174 ,0.00033
 529      +,0.32407 ,0.08901  ,0.14495 ,0.00664 ,0.00177 ,0.00041
 530      +,0.31278 ,0.08515  ,0.13178 ,0.00636 ,0.00178 ,0.00048
 531      +,0.30228 ,0.08160  ,0.12033 ,0.00610 ,0.00178 ,0.00053
 532      +,0.29249 ,0.07834  ,0.11031 ,0.00585 ,0.00177 ,0.00057
 533      +,0.28338 ,0.07533  ,0.10152 ,0.00563 ,0.00176 ,0.00060
 534      +,0.27480 ,0.07254  ,0.09373 ,0.00541 ,0.00174 ,0.00062
 535      +,0.26678 ,0.06995  ,0.08684 ,0.00521 ,0.00172 ,0.00064
 536      +,0.25924 ,0.06754  ,0.08069 ,0.00502 ,0.00170 ,0.00065
 537      +,0.25212 ,0.06528  ,0.07519 ,0.00485 ,0.00167 ,0.00066
 538      +,0.24540 ,0.06317  ,0.07024 ,0.00468 ,0.00164 ,0.00066
 539      +,0.23905 ,0.06119  ,0.06579 ,0.00453 ,0.00162 ,0.00067/
 540       DATA ((F(I,27,K),I=1,6),K=1,19)/
 541      + 0.43434 ,0.12293  ,0.32683 ,0.00709 ,0.00016 ,0.00000
 542      +,0.40883 ,0.11371  ,0.27702 ,0.00683 ,0.00056 ,0.00000
 543      +,0.38652 ,0.10586  ,0.23776 ,0.00655 ,0.00082 ,0.00000
 544      +,0.36681 ,0.09906  ,0.20625 ,0.00626 ,0.00101 ,0.00000
 545      +,0.34927 ,0.09314  ,0.18061 ,0.00599 ,0.00113 ,0.00000
 546      +,0.33349 ,0.08790  ,0.15946 ,0.00571 ,0.00121 ,0.00005
 547      +,0.31910 ,0.08322  ,0.14175 ,0.00542 ,0.00126 ,0.00017
 548      +,0.30599 ,0.07900  ,0.12679 ,0.00516 ,0.00130 ,0.00024
 549      +,0.29396 ,0.07519  ,0.11405 ,0.00492 ,0.00131 ,0.00030
 550      +,0.28290 ,0.07173  ,0.10314 ,0.00470 ,0.00132 ,0.00035
 551      +,0.27266 ,0.06855  ,0.09370 ,0.00449 ,0.00131 ,0.00038
 552      +,0.26314 ,0.06564  ,0.08550 ,0.00430 ,0.00130 ,0.00041
 553      +,0.25432 ,0.06298  ,0.07834 ,0.00412 ,0.00129 ,0.00044
 554      +,0.24603 ,0.06050  ,0.07203 ,0.00396 ,0.00128 ,0.00045
 555      +,0.23831 ,0.05821  ,0.06647 ,0.00380 ,0.00126 ,0.00046
 556      +,0.23107 ,0.05608  ,0.06153 ,0.00366 ,0.00124 ,0.00047
 557      +,0.22426 ,0.05410  ,0.05713 ,0.00352 ,0.00121 ,0.00047
 558      +,0.21784 ,0.05224  ,0.05320 ,0.00340 ,0.00119 ,0.00048
 559      +,0.21179 ,0.05051  ,0.04967 ,0.00328 ,0.00117 ,0.00048/
 560       DATA ((F(I,28,K),I=1,6),K=1,19)/
 561      + 0.40246 ,0.10589  ,0.27204 ,0.00535 ,0.00012 ,-0.00001
 562      +,0.37683 ,0.09746  ,0.22809 ,0.00513 ,0.00042 ,-0.00001
 563      +,0.35463 ,0.09032  ,0.19390 ,0.00489 ,0.00062 ,-0.00001
 564      +,0.33509 ,0.08417  ,0.16675 ,0.00467 ,0.00075 ,0.00000
 565      +,0.31778 ,0.07883  ,0.14489 ,0.00445 ,0.00084 ,0.00000
 566      +,0.30232 ,0.07414  ,0.12701 ,0.00423 ,0.00090 ,0.00003
 567      +,0.28830 ,0.06995  ,0.11216 ,0.00400 ,0.00094 ,0.00012
 568      +,0.27554 ,0.06620  ,0.09971 ,0.00380 ,0.00096 ,0.00018
 569      +,0.26391 ,0.06282  ,0.08919 ,0.00361 ,0.00097 ,0.00022
 570      +,0.25326 ,0.05976  ,0.08022 ,0.00344 ,0.00097 ,0.00026
 571      +,0.24342 ,0.05697  ,0.07252 ,0.00328 ,0.00097 ,0.00028
 572      +,0.23431 ,0.05442  ,0.06586 ,0.00313 ,0.00095 ,0.00030
 573      +,0.22590 ,0.05208  ,0.06008 ,0.00300 ,0.00094 ,0.00031
 574      +,0.21802 ,0.04991  ,0.05501 ,0.00287 ,0.00093 ,0.00032
 575      +,0.21070 ,0.04792  ,0.05057 ,0.00275 ,0.00091 ,0.00033
 576      +,0.20386 ,0.04607  ,0.04664 ,0.00264 ,0.00089 ,0.00033
 577      +,0.19744 ,0.04435  ,0.04316 ,0.00254 ,0.00087 ,0.00034
 578      +,0.19142 ,0.04275  ,0.04005 ,0.00244 ,0.00086 ,0.00034
 579      +,0.18574 ,0.04125  ,0.03728 ,0.00235 ,0.00084 ,0.00034/
 580       DATA ((F(I,29,K),I=1,6),K=1,19)/
 581      + 0.36892 ,0.09015  ,0.22471 ,0.00398 ,0.00009 ,-0.00001
 582      +,0.34362 ,0.08256  ,0.18639 ,0.00380 ,0.00031 ,0.00000
 583      +,0.32186 ,0.07616  ,0.15694 ,0.00361 ,0.00046 ,-0.00001
 584      +,0.30282 ,0.07068  ,0.13381 ,0.00343 ,0.00056 ,0.00000
 585      +,0.28605 ,0.06595  ,0.11536 ,0.00326 ,0.00062 ,0.00000
 586      +,0.27114 ,0.06180  ,0.10041 ,0.00309 ,0.00066 ,0.00002
 587      +,0.25768 ,0.05812  ,0.08808 ,0.00292 ,0.00069 ,0.00009
 588      +,0.24549 ,0.05483  ,0.07783 ,0.00276 ,0.00070 ,0.00013
 589      +,0.23441 ,0.05188  ,0.06922 ,0.00262 ,0.00070 ,0.00016
 590      +,0.22431 ,0.04922  ,0.06193 ,0.00249 ,0.00070 ,0.00018
 591      +,0.21501 ,0.04679  ,0.05571 ,0.00237 ,0.00070 ,0.00020
 592      +,0.20643 ,0.04458  ,0.05036 ,0.00225 ,0.00069 ,0.00021
 593      +,0.19853 ,0.04257  ,0.04573 ,0.00215 ,0.00068 ,0.00022
 594      +,0.19115 ,0.04070  ,0.04171 ,0.00205 ,0.00066 ,0.00023
 595      +,0.18432 ,0.03899  ,0.03819 ,0.00197 ,0.00065 ,0.00023
 596      +,0.17795 ,0.03741  ,0.03509 ,0.00188 ,0.00064 ,0.00024
 597      +,0.17199 ,0.03594  ,0.03236 ,0.00181 ,0.00062 ,0.00024
 598      +,0.16641 ,0.03457  ,0.02993 ,0.00173 ,0.00061 ,0.00024
 599      +,0.16116 ,0.03330  ,0.02777 ,0.00167 ,0.00059 ,0.00024/
 600       DATA ((F(I,30,K),I=1,6),K=1,19)/
 601      + 0.33453 ,0.07584  ,0.18408 ,0.00293 ,0.00007 ,0.00000
 602      +,0.30998 ,0.06910  ,0.15107 ,0.00279 ,0.00024 ,0.00000
 603      +,0.28897 ,0.06345  ,0.12599 ,0.00264 ,0.00035 ,0.00000
 604      +,0.27070 ,0.05865  ,0.10649 ,0.00250 ,0.00041 ,-0.00001
 605      +,0.25470 ,0.05452  ,0.09110 ,0.00237 ,0.00046 ,0.00000
 606      +,0.24054 ,0.05091  ,0.07873 ,0.00224 ,0.00049 ,0.00002
 607      +,0.22782 ,0.04772  ,0.06861 ,0.00211 ,0.00050 ,0.00006
 608      +,0.21635 ,0.04488  ,0.06025 ,0.00199 ,0.00051 ,0.00009
 609      +,0.20597 ,0.04233  ,0.05328 ,0.00188 ,0.00051 ,0.00011
 610      +,0.19652 ,0.04005  ,0.04742 ,0.00178 ,0.00050 ,0.00013
 611      +,0.18786 ,0.03797  ,0.04244 ,0.00169 ,0.00050 ,0.00014
 612      +,0.17989 ,0.03609  ,0.03818 ,0.00160 ,0.00049 ,0.00015
 613      +,0.17258 ,0.03437  ,0.03452 ,0.00153 ,0.00048 ,0.00016
 614      +,0.16578 ,0.03279  ,0.03136 ,0.00146 ,0.00047 ,0.00016
 615      +,0.15950 ,0.03135  ,0.02860 ,0.00139 ,0.00046 ,0.00016
 616      +,0.15363 ,0.03002  ,0.02619 ,0.00133 ,0.00045 ,0.00017
 617      +,0.14818 ,0.02878  ,0.02407 ,0.00127 ,0.00044 ,0.00017
 618      +,0.14309 ,0.02762  ,0.02219 ,0.00122 ,0.00043 ,0.00017
 619      +,0.13832 ,0.02655  ,0.02053 ,0.00117 ,0.00042 ,0.00016/
 620       DATA ((F(I,31,K),I=1,6),K=1,19)/
 621      + 0.29991 ,0.06298  ,0.14942 ,0.00212 ,0.00005 ,0.00000
 622      +,0.27645 ,0.05710  ,0.12131 ,0.00201 ,0.00017 ,0.00000
 623      +,0.25649 ,0.05219  ,0.10020 ,0.00190 ,0.00025 ,0.00000
 624      +,0.23924 ,0.04804  ,0.08397 ,0.00179 ,0.00030 ,0.00000
 625      +,0.22421 ,0.04448  ,0.07127 ,0.00169 ,0.00033 ,0.00000
 626      +,0.21096 ,0.04139  ,0.06115 ,0.00159 ,0.00035 ,0.00001
 627      +,0.19912 ,0.03867  ,0.05293 ,0.00149 ,0.00036 ,0.00004
 628      +,0.18849 ,0.03625  ,0.04620 ,0.00140 ,0.00036 ,0.00006
 629      +,0.17889 ,0.03409  ,0.04062 ,0.00132 ,0.00036 ,0.00008
 630      +,0.17020 ,0.03216  ,0.03595 ,0.00125 ,0.00036 ,0.00009
 631      +,0.16225 ,0.03041  ,0.03202 ,0.00118 ,0.00035 ,0.00010
 632      +,0.15496 ,0.02883  ,0.02867 ,0.00112 ,0.00035 ,0.00010
 633      +,0.14829 ,0.02739  ,0.02581 ,0.00107 ,0.00034 ,0.00011
 634      +,0.14212 ,0.02607  ,0.02334 ,0.00102 ,0.00033 ,0.00011
 635      +,0.13641 ,0.02487  ,0.02121 ,0.00097 ,0.00032 ,0.00011
 636      +,0.13111 ,0.02376  ,0.01935 ,0.00092 ,0.00032 ,0.00012
 637      +,0.12619 ,0.02274  ,0.01772 ,0.00088 ,0.00031 ,0.00011
 638      +,0.12161 ,0.02178  ,0.01629 ,0.00084 ,0.00030 ,0.00011
 639      +,0.11733 ,0.02090  ,0.01502 ,0.00081 ,0.00029 ,0.00011/
 640       DATA ((F(I,32,K),I=1,6),K=1,19)/
 641      + 0.26573 ,0.05160  ,0.12006 ,0.00151 ,0.00004 ,0.00000
 642      +,0.24365 ,0.04653  ,0.09642 ,0.00143 ,0.00013 ,0.00000
 643      +,0.22497 ,0.04234  ,0.07887 ,0.00135 ,0.00018 ,0.00000
 644      +,0.20892 ,0.03881  ,0.06552 ,0.00127 ,0.00022 ,0.00000
 645      +,0.19501 ,0.03579  ,0.05516 ,0.00119 ,0.00024 ,0.00000
 646      +,0.18281 ,0.03318  ,0.04698 ,0.00112 ,0.00025 ,0.00001
 647      +,0.17195 ,0.03089  ,0.04040 ,0.00105 ,0.00026 ,0.00003
 648      +,0.16222 ,0.02888  ,0.03503 ,0.00098 ,0.00026 ,0.00005
 649      +,0.15349 ,0.02708  ,0.03063 ,0.00092 ,0.00026 ,0.00006
 650      +,0.14561 ,0.02547  ,0.02697 ,0.00087 ,0.00025 ,0.00007
 651      +,0.13841 ,0.02402  ,0.02389 ,0.00082 ,0.00025 ,0.00007
 652      +,0.13185 ,0.02271  ,0.02130 ,0.00077 ,0.00024 ,0.00008
 653      +,0.12587 ,0.02153  ,0.01909 ,0.00073 ,0.00024 ,0.00008
 654      +,0.12034 ,0.02044  ,0.01719 ,0.00070 ,0.00023 ,0.00008
 655      +,0.11524 ,0.01945  ,0.01555 ,0.00066 ,0.00023 ,0.00008
 656      +,0.11052 ,0.01854  ,0.01413 ,0.00063 ,0.00022 ,0.00008
 657      +,0.10615 ,0.01770  ,0.01290 ,0.00060 ,0.00022 ,0.00008
 658      +,0.10208 ,0.01693  ,0.01181 ,0.00057 ,0.00021 ,0.00008
 659      +,0.09828 ,0.01621  ,0.01086 ,0.00055 ,0.00020 ,0.00008/
 660       DATA ((F(I,33,K),I=1,6),K=1,19)/
 661      + 0.23252 ,0.04167  ,0.09543 ,0.00106 ,0.00003 ,0.00000
 662      +,0.21206 ,0.03739  ,0.07580 ,0.00100 ,0.00009 ,0.00000
 663      +,0.19486 ,0.03386  ,0.06140 ,0.00094 ,0.00013 ,0.00000
 664      +,0.18016 ,0.03091  ,0.05055 ,0.00088 ,0.00015 ,0.00000
 665      +,0.16748 ,0.02839  ,0.04222 ,0.00083 ,0.00017 ,0.00000
 666      +,0.15641 ,0.02623  ,0.03570 ,0.00077 ,0.00018 ,0.00001
 667      +,0.14661 ,0.02433  ,0.03048 ,0.00072 ,0.00018 ,0.00001
 668      +,0.13787 ,0.02266  ,0.02627 ,0.00068 ,0.00018 ,0.00002
 669      +,0.13004 ,0.02119  ,0.02283 ,0.00063 ,0.00018 ,0.00004
 670      +,0.12300 ,0.01987  ,0.01999 ,0.00059 ,0.00018 ,0.00004
 671      +,0.11660 ,0.01869  ,0.01762 ,0.00056 ,0.00017 ,0.00004
 672      +,0.11077 ,0.01762  ,0.01562 ,0.00053 ,0.00016 ,0.00005
 673      +,0.10547 ,0.01666  ,0.01394 ,0.00050 ,0.00016 ,0.00005
 674      +,0.10059 ,0.01578  ,0.01250 ,0.00047 ,0.00015 ,0.00005
 675      +,0.09610 ,0.01499  ,0.01127 ,0.00045 ,0.00015 ,0.00005
 676      +,0.09196 ,0.01426  ,0.01020 ,0.00043 ,0.00015 ,0.00005
 677      +,0.08813 ,0.01358  ,0.00928 ,0.00040 ,0.00014 ,0.00005
 678      +,0.08458 ,0.01296  ,0.00847 ,0.00039 ,0.00014 ,0.00005
 679      +,0.08127 ,0.01239  ,0.00776 ,0.00037 ,0.00013 ,0.00005/
 680       DATA ((F(I,34,K),I=1,6),K=1,19)/
 681      + 0.20078 ,0.03312  ,0.07492 ,0.00073 ,0.00002 ,0.00000
 682      +,0.18212 ,0.02956  ,0.05885 ,0.00069 ,0.00006 ,0.00000
 683      +,0.16652 ,0.02664  ,0.04719 ,0.00064 ,0.00009 ,0.00000
 684      +,0.15327 ,0.02422  ,0.03850 ,0.00060 ,0.00011 ,0.00000
 685      +,0.14190 ,0.02215  ,0.03189 ,0.00056 ,0.00012 ,0.00000
 686      +,0.13201 ,0.02039  ,0.02676 ,0.00052 ,0.00012 ,0.00000
 687      +,0.12330 ,0.01885  ,0.02269 ,0.00049 ,0.00012 ,0.00001
 688      +,0.11555 ,0.01750  ,0.01943 ,0.00046 ,0.00012 ,0.00001
 689      +,0.10865 ,0.01631  ,0.01678 ,0.00043 ,0.00012 ,0.00002
 690      +,0.10245 ,0.01525  ,0.01461 ,0.00040 ,0.00012 ,0.00003
 691      +,0.09685 ,0.01430  ,0.01281 ,0.00037 ,0.00012 ,0.00003
 692      +,0.09176 ,0.01345  ,0.01130 ,0.00035 ,0.00011 ,0.00003
 693      +,0.08714 ,0.01268  ,0.01004 ,0.00033 ,0.00011 ,0.00003
 694      +,0.08290 ,0.01199  ,0.00896 ,0.00031 ,0.00010 ,0.00003
 695      +,0.07902 ,0.01135  ,0.00805 ,0.00030 ,0.00010 ,0.00003
 696      +,0.07544 ,0.01078  ,0.00726 ,0.00028 ,0.00010 ,0.00003
 697      +,0.07214 ,0.01025  ,0.00658 ,0.00027 ,0.00010 ,0.00003
 698      +,0.06908 ,0.00976  ,0.00598 ,0.00025 ,0.00009 ,0.00003
 699      +,0.06625 ,0.00931  ,0.00546 ,0.00024 ,0.00009 ,0.00003/
 700       DATA ((F(I,35,K),I=1,6),K=1,19)/
 701      + 0.17088 ,0.02587  ,0.05802 ,0.00049 ,0.00001 ,0.00000
 702      +,0.15414 ,0.02296  ,0.04505 ,0.00046 ,0.00004 ,0.00000
 703      +,0.14023 ,0.02060  ,0.03576 ,0.00043 ,0.00006 ,-0.00001
 704      +,0.12849 ,0.01863  ,0.02891 ,0.00040 ,0.00007 ,-0.00001
 705      +,0.11845 ,0.01698  ,0.02373 ,0.00038 ,0.00007 ,0.00000
 706      +,0.10977 ,0.01557  ,0.01976 ,0.00035 ,0.00008 ,0.00001
 707      +,0.10215 ,0.01434  ,0.01664 ,0.00032 ,0.00008 ,0.00001
 708      +,0.09540 ,0.01327  ,0.01415 ,0.00030 ,0.00008 ,0.00001
 709      +,0.08941 ,0.01233  ,0.01215 ,0.00028 ,0.00008 ,0.00002
 710      +,0.08405 ,0.01149  ,0.01052 ,0.00026 ,0.00008 ,0.00002
 711      +,0.07922 ,0.01075  ,0.00917 ,0.00024 ,0.00008 ,0.00002
 712      +,0.07485 ,0.01008  ,0.00805 ,0.00023 ,0.00008 ,0.00002
 713      +,0.07089 ,0.00948  ,0.00712 ,0.00022 ,0.00007 ,0.00002
 714      +,0.06727 ,0.00894  ,0.00633 ,0.00020 ,0.00007 ,0.00002
 715      +,0.06397 ,0.00845  ,0.00566 ,0.00019 ,0.00007 ,0.00002
 716      +,0.06093 ,0.00800  ,0.00508 ,0.00018 ,0.00007 ,0.00002
 717      +,0.05813 ,0.00759  ,0.00459 ,0.00017 ,0.00006 ,0.00002
 718      +,0.05555 ,0.00721  ,0.00416 ,0.00016 ,0.00006 ,0.00002
 719      +,0.05316 ,0.00686  ,0.00379 ,0.00015 ,0.00006 ,0.00002/
 720       DATA ((F(I,36,K),I=1,6),K=1,19)/
 721      + 0.14318 ,0.01983  ,0.04424 ,0.00032 ,0.00001 ,0.00000
 722      +,0.12842 ,0.01750  ,0.03395 ,0.00030 ,0.00003 ,0.00000
 723      +,0.11623 ,0.01562  ,0.02667 ,0.00028 ,0.00004 ,-0.00001
 724      +,0.10601 ,0.01407  ,0.02135 ,0.00026 ,0.00005 ,-0.00001
 725      +,0.09730 ,0.01277  ,0.01738 ,0.00025 ,0.00005 ,0.00000
 726      +,0.08981 ,0.01166  ,0.01435 ,0.00022 ,0.00005 ,0.00000
 727      +,0.08326 ,0.01070  ,0.01200 ,0.00021 ,0.00006 ,0.00000
 728      +,0.07749 ,0.00987  ,0.01013 ,0.00019 ,0.00005 ,0.00001
 729      +,0.07238 ,0.00913  ,0.00864 ,0.00018 ,0.00005 ,0.00001
 730      +,0.06783 ,0.00849  ,0.00744 ,0.00017 ,0.00005 ,0.00001
 731      +,0.06374 ,0.00792  ,0.00645 ,0.00015 ,0.00005 ,0.00002
 732      +,0.06005 ,0.00741  ,0.00563 ,0.00015 ,0.00005 ,0.00001
 733      +,0.05672 ,0.00695  ,0.00495 ,0.00014 ,0.00005 ,0.00001
 734      +,0.05368 ,0.00653  ,0.00438 ,0.00013 ,0.00005 ,0.00001
 735      +,0.05092 ,0.00616  ,0.00390 ,0.00012 ,0.00005 ,0.00001
 736      +,0.04838 ,0.00581  ,0.00349 ,0.00011 ,0.00004 ,0.00002
 737      +,0.04606 ,0.00550  ,0.00314 ,0.00011 ,0.00004 ,0.00002
 738      +,0.04392 ,0.00522  ,0.00284 ,0.00010 ,0.00004 ,0.00001
 739      +,0.04194 ,0.00496  ,0.00257 ,0.00010 ,0.00004 ,0.00001/
 740       DATA ((F(I,37,K),I=1,6),K=1,19)/
 741      + 0.09525 ,0.01089  ,0.02436 ,0.00013 ,0.00001 ,0.00000
 742      +,0.08442 ,0.00951  ,0.01823 ,0.00012 ,0.00001 ,0.00000
 743      +,0.07559 ,0.00840  ,0.01400 ,0.00011 ,0.00001 ,0.00000
 744      +,0.06826 ,0.00749  ,0.01098 ,0.00010 ,0.00002 ,0.00000
 745      +,0.06209 ,0.00673  ,0.00878 ,0.00009 ,0.00002 ,0.00000
 746      +,0.05683 ,0.00610  ,0.00713 ,0.00009 ,0.00002 ,0.00000
 747      +,0.05227 ,0.00555  ,0.00586 ,0.00008 ,0.00002 ,0.00000
 748      +,0.04829 ,0.00508  ,0.00488 ,0.00007 ,0.00002 ,0.00000
 749      +,0.04479 ,0.00467  ,0.00411 ,0.00007 ,0.00002 ,0.00000
 750      +,0.04169 ,0.00432  ,0.00349 ,0.00006 ,0.00002 ,0.00000
 751      +,0.03893 ,0.00400  ,0.00299 ,0.00006 ,0.00002 ,0.00001
 752      +,0.03646 ,0.00372  ,0.00258 ,0.00005 ,0.00002 ,0.00001
 753      +,0.03424 ,0.00347  ,0.00225 ,0.00005 ,0.00002 ,0.00001
 754      +,0.03223 ,0.00324  ,0.00197 ,0.00005 ,0.00002 ,0.00001
 755      +,0.03041 ,0.00304  ,0.00174 ,0.00004 ,0.00002 ,0.00001
 756      +,0.02875 ,0.00286  ,0.00154 ,0.00004 ,0.00002 ,0.00000
 757      +,0.02723 ,0.00269  ,0.00138 ,0.00004 ,0.00001 ,0.00000
 758      +,0.02584 ,0.00254  ,0.00123 ,0.00004 ,0.00001 ,0.00000
 759      +,0.02457 ,0.00240  ,0.00111 ,0.00004 ,0.00001 ,0.00000/
 760       DATA ((F(I,38,K),I=1,6),K=1,19)/
 761      + 0.05807 ,0.00537  ,0.01224 ,0.00004 ,0.00000 ,0.00000
 762      +,0.05080 ,0.00462  ,0.00891 ,0.00004 ,0.00000 ,0.00000
 763      +,0.04496 ,0.00404  ,0.00668 ,0.00004 ,0.00001 ,0.00000
 764      +,0.04017 ,0.00356  ,0.00512 ,0.00003 ,0.00001 ,0.00000
 765      +,0.03618 ,0.00317  ,0.00401 ,0.00003 ,0.00001 ,0.00000
 766      +,0.03281 ,0.00285  ,0.00320 ,0.00003 ,0.00001 ,0.00000
 767      +,0.02992 ,0.00257  ,0.00259 ,0.00003 ,0.00001 ,0.00000
 768      +,0.02741 ,0.00233  ,0.00212 ,0.00002 ,0.00001 ,0.00000
 769      +,0.02523 ,0.00213  ,0.00176 ,0.00002 ,0.00001 ,0.00000
 770      +,0.02332 ,0.00195  ,0.00147 ,0.00002 ,0.00001 ,0.00000
 771      +,0.02163 ,0.00180  ,0.00124 ,0.00002 ,0.00001 ,0.00000
 772      +,0.02013 ,0.00166  ,0.00106 ,0.00002 ,0.00001 ,0.00000
 773      +,0.01879 ,0.00154  ,0.00091 ,0.00002 ,0.00001 ,0.00000
 774      +,0.01758 ,0.00143  ,0.00079 ,0.00001 ,0.00001 ,0.00000
 775      +,0.01649 ,0.00133  ,0.00069 ,0.00001 ,0.00001 ,0.00000
 776      +,0.01550 ,0.00125  ,0.00061 ,0.00001 ,0.00001 ,0.00000
 777      +,0.01461 ,0.00117  ,0.00054 ,0.00001 ,0.00001 ,0.00000
 778      +,0.01379 ,0.00110  ,0.00048 ,0.00001 ,0.00001 ,0.00000
 779      +,0.01305 ,0.00103  ,0.00043 ,0.00001 ,0.00000 ,0.00000/
 780       DATA ((F(I,39,K),I=1,6),K=1,19)/
 781      + 0.03152 ,0.00228  ,0.00543 ,0.00001 ,0.00000 ,0.00000
 782      +,0.02718 ,0.00194  ,0.00383 ,0.00001 ,0.00000 ,0.00000
 783      +,0.02374 ,0.00167  ,0.00279 ,0.00001 ,0.00000 ,0.00000
 784      +,0.02096 ,0.00146  ,0.00209 ,0.00001 ,0.00000 ,0.00000
 785      +,0.01867 ,0.00128  ,0.00160 ,0.00001 ,0.00000 ,0.00000
 786      +,0.01676 ,0.00114  ,0.00125 ,0.00001 ,0.00000 ,0.00000
 787      +,0.01514 ,0.00102  ,0.00099 ,0.00001 ,0.00000 ,0.00000
 788      +,0.01375 ,0.00092  ,0.00080 ,0.00001 ,0.00000 ,0.00000
 789      +,0.01255 ,0.00083  ,0.00065 ,0.00001 ,0.00000 ,0.00000
 790      +,0.01150 ,0.00075  ,0.00054 ,0.00000 ,0.00000 ,0.00000
 791      +,0.01058 ,0.00069  ,0.00045 ,0.00001 ,0.00000 ,0.00000
 792      +,0.00978 ,0.00063  ,0.00038 ,0.00000 ,0.00000 ,0.00000
 793      +,0.00906 ,0.00058  ,0.00032 ,0.00000 ,0.00000 ,0.00000
 794      +,0.00842 ,0.00054  ,0.00027 ,0.00000 ,0.00000 ,0.00000
 795      +,0.00785 ,0.00050  ,0.00024 ,0.00000 ,0.00000 ,0.00000
 796      +,0.00734 ,0.00046  ,0.00021 ,0.00000 ,0.00000 ,0.00000
 797      +,0.00687 ,0.00043  ,0.00018 ,0.00000 ,0.00000 ,0.00000
 798      +,0.00645 ,0.00040  ,0.00016 ,0.00000 ,0.00000 ,0.00000
 799      +,0.00607 ,0.00038  ,0.00014 ,0.00000 ,0.00000 ,0.00000/
 800       DATA ((F(I,40,K),I=1,6),K=1,19)/
 801      + 0.01451 ,0.00078  ,0.00201 ,0.00000 ,0.00000 ,0.00000
 802      +,0.01231 ,0.00066  ,0.00137 ,0.00000 ,0.00000 ,0.00000
 803      +,0.01059 ,0.00056  ,0.00096 ,0.00000 ,0.00000 ,0.00000
 804      +,0.00922 ,0.00048  ,0.00070 ,0.00000 ,0.00000 ,0.00000
 805      +,0.00811 ,0.00042  ,0.00052 ,0.00000 ,0.00000 ,0.00000
 806      +,0.00719 ,0.00037  ,0.00040 ,0.00000 ,0.00000 ,0.00000
 807      +,0.00642 ,0.00032  ,0.00031 ,0.00000 ,0.00000 ,0.00000
 808      +,0.00577 ,0.00029  ,0.00024 ,0.00000 ,0.00000 ,0.00000
 809      +,0.00522 ,0.00026  ,0.00019 ,0.00000 ,0.00000 ,0.00000
 810      +,0.00474 ,0.00023  ,0.00016 ,0.00000 ,0.00000 ,0.00000
 811      +,0.00432 ,0.00021  ,0.00013 ,0.00000 ,0.00000 ,0.00000
 812      +,0.00396 ,0.00019  ,0.00011 ,0.00000 ,0.00000 ,0.00000
 813      +,0.00364 ,0.00017  ,0.00009 ,0.00000 ,0.00000 ,0.00000
 814      +,0.00335 ,0.00016  ,0.00007 ,0.00000 ,0.00000 ,0.00000
 815      +,0.00310 ,0.00015  ,0.00006 ,0.00000 ,0.00000 ,0.00000
 816      +,0.00288 ,0.00014  ,0.00005 ,0.00000 ,0.00000 ,0.00000
 817      +,0.00268 ,0.00013  ,0.00005 ,0.00000 ,0.00000 ,0.00000
 818      +,0.00250 ,0.00012  ,0.00004 ,0.00000 ,0.00000 ,0.00000
 819      +,0.00234 ,0.00011  ,0.00004 ,0.00000 ,0.00000 ,0.00000/
 820       DATA ((F(I,41,K),I=1,6),K=1,19)/
 821      + 0.00116 ,0.00003  ,0.00009 ,0.00000 ,0.00000 ,0.00000
 822      +,0.00094 ,0.00002  ,0.00006 ,0.00000 ,0.00000 ,0.00000
 823      +,0.00077 ,0.00002  ,0.00004 ,0.00000 ,0.00000 ,0.00000
 824      +,0.00065 ,0.00001  ,0.00002 ,0.00000 ,0.00000 ,0.00000
 825      +,0.00055 ,0.00001  ,0.00002 ,0.00000 ,0.00000 ,0.00000
 826      +,0.00047 ,0.00001  ,0.00001 ,0.00000 ,0.00000 ,0.00000
 827      +,0.00040 ,0.00001  ,0.00001 ,0.00000 ,0.00000 ,0.00000
 828      +,0.00035 ,0.00001  ,0.00001 ,0.00000 ,0.00000 ,0.00000
 829      +,0.00031 ,0.00001  ,0.00001 ,0.00000 ,0.00000 ,0.00000
 830      +,0.00027 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 831      +,0.00024 ,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.00019 ,0.00001  ,0.00000 ,0.00000 ,0.00000 ,0.00000
 834      +,0.00017 ,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(66,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