PDF/spdf/strh1e.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.2  1996/10/30 08:31:04  cernlib
   6 * Version 7.04
   7 *
   8 * Revision 1.1.1.1  1996/04/12 15:29:50  plothow
   9 * Version 7.01
  10 *
  11 *
  12 #include "pdf/pilot.h"
  13 C-----------------------------------------------------------------------
  14       SUBROUTINE STRH1E(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL)
  15 C :::::::::::: HMRS(E) ::::::::::::::::: 100 MEV::::::::::::
  16 #include "pdf/impdp.inc"
  17       DIMENSION F(6,42,19),G(6),XX(42),N0(6)
  18       DATA ((F(I,1,K),I=1,6),K=1,19)/
  19      + 0.04096,  0.00664,  3.32967,  0.03823,  0.01024,  0.00000,
  20      + 0.04188,  0.00720,  6.12704,  0.08701,  0.05797,  0.00000,
  21      + 0.04274,  0.00772,  9.45610,  0.15356,  0.12355,  0.00000,
  22      + 0.04354,  0.00823, 13.16263,  0.23387,  0.20295,  0.00000,
  23      + 0.04430,  0.00870, 17.21933,  0.32622,  0.29517,  0.00219,
  24      + 0.04502,  0.00917, 21.57890,  0.41823,  0.39894,  0.03991,
  25      + 0.04570,  0.00961, 26.15117,  0.49797,  0.51187,  0.14176,
  26      + 0.04636,  0.01004, 30.94051,  0.58737,  0.63407,  0.24236,
  27      + 0.04699,  0.01046, 35.92586,  0.68340,  0.76497,  0.34910,
  28      + 0.04760,  0.01087, 41.09314,  0.78535,  0.90419,  0.46294,
  29      + 0.04819,  0.01127, 46.34061,  0.89131,  1.04876,  0.58071,
  30      + 0.04876,  0.01166, 51.66371,  1.00110,  1.19854,  0.70254,
  31      + 0.04931,  0.01204, 57.13947,  1.11633,  1.35571,  0.83018,
  32      + 0.04985,  0.01241, 62.57440,  1.23280,  1.51455,  0.95903,
  33      + 0.05037,  0.01277, 68.11569,  1.35365,  1.67934,  1.09255,
  34      + 0.05088,  0.01312, 73.65871,  1.47652,  1.84688,  1.22818,
  35      + 0.05137,  0.01347, 79.22708,  1.60192,  2.01784,  1.36647,
  36      + 0.05185,  0.01381, 84.80046,  1.72929,  2.19149,  1.50684,
  37      + 0.05232,  0.01414, 90.37953,  1.85863,  2.36781,  1.64928/
  38       DATA ((F(I,2,K),I=1,6),K=1,19)/
  39      + 0.05088,  0.01010,  3.25209,  0.04679,  0.01104,  0.00000,
  40      + 0.05205,  0.01088,  5.65026,  0.09559,  0.05863,  0.00000,
  41      + 0.05312,  0.01162,  8.38432,  0.15751,  0.11943,  0.00000,
  42      + 0.05412,  0.01232, 11.32975,  0.22876,  0.18965,  0.00000,
  43      + 0.05507,  0.01298, 14.46710,  0.30786,  0.26840,  0.00185,
  44      + 0.05596,  0.01362, 17.76108,  0.38459,  0.35459,  0.03294,
  45      + 0.05681,  0.01423, 21.14510,  0.44945,  0.44628,  0.11599,
  46      + 0.05762,  0.01482, 24.62537,  0.52081,  0.54359,  0.19631,
  47      + 0.05840,  0.01539, 28.18849,  0.59613,  0.64605,  0.28006,
  48      + 0.05915,  0.01595, 31.82632,  0.67485,  0.75336,  0.36806,
  49      + 0.05988,  0.01648, 35.46771,  0.75555,  0.86329,  0.45787,
  50      + 0.06058,  0.01700, 39.11272,  0.83813,  0.97577,  0.54962,
  51      + 0.06125,  0.01751, 42.81876,  0.92379,  1.09244,  0.64465,
  52      + 0.06191,  0.01800, 46.45189,  1.00945,  1.20912,  0.73957,
  53      + 0.06254,  0.01849, 50.11823,  1.09745,  1.32897,  0.83696,
  54      + 0.06316,  0.01895, 53.74707,  1.18609,  1.44970,  0.93498,
  55      + 0.06376,  0.01941, 57.35736,  1.27577,  1.57183,  1.03404,
  56      + 0.06435,  0.01986, 60.93729,  1.36612,  1.69487,  1.13378,
  57      + 0.06492,  0.02030, 64.48935,  1.45714,  1.81884,  1.23420/
  58       DATA ((F(I,3,K),I=1,6),K=1,19)/
  59      + 0.06282,  0.01534,  3.17485,  0.05724,  0.01161,  0.00000,
  60      + 0.06428,  0.01644,  5.20773,  0.10504,  0.05804,  0.00000,
  61      + 0.06562,  0.01747,  7.42919,  0.16163,  0.11338,  0.00000,
  62      + 0.06687,  0.01844,  9.74484,  0.22388,  0.17448,  0.00000,
  63      + 0.06804,  0.01935, 12.14470,  0.29069,  0.24073,  0.00154,
  64      + 0.06915,  0.02022, 14.60555,  0.35385,  0.31132,  0.02684,
  65      + 0.07020,  0.02105, 17.08078,  0.40597,  0.38480,  0.09372,
  66      + 0.07121,  0.02186, 19.57907,  0.46223,  0.46130,  0.15709,
  67      + 0.07218,  0.02263, 22.09364,  0.52063,  0.54051,  0.22204,
  68      + 0.07310,  0.02337, 24.62143,  0.58071,  0.62221,  0.28930,
  69      + 0.07399,  0.02409, 27.11404,  0.64148,  0.70479,  0.35702,
  70      + 0.07485,  0.02478, 29.57483,  0.70288,  0.78825,  0.42536,
  71      + 0.07568,  0.02546, 32.04695,  0.76583,  0.87382,  0.49532,
  72      + 0.07648,  0.02611, 34.43900,  0.82812,  0.95850,  0.56448,
  73      + 0.07726,  0.02674, 36.82719,  0.89147,  1.04462,  0.63473,
  74      + 0.07801,  0.02736, 39.16483,  0.95469,  1.13058,  0.70478,
  75      + 0.07875,  0.02796, 41.46690,  1.01808,  1.21677,  0.77497,
  76      + 0.07946,  0.02854, 43.72720,  1.08141,  1.30289,  0.84504,
  77      + 0.08015,  0.02911, 45.94916,  1.14472,  1.38898,  0.91504/
  78       DATA ((F(I,4,K),I=1,6),K=1,19)/
  79      + 0.07083,  0.01959,  3.12932,  0.06436,  0.01177,  0.00000,
  80      + 0.07248,  0.02092,  4.96284,  0.11100,  0.05696,  0.00000,
  81      + 0.07401,  0.02217,  6.91799,  0.16414,  0.10877,  0.00000,
  82      + 0.07544,  0.02333,  8.91708,  0.22115,  0.16457,  0.00000,
  83      + 0.07677,  0.02443, 10.95555,  0.28120,  0.22396,  0.00137,
  84      + 0.07802,  0.02547, 13.01664,  0.33714,  0.28628,  0.02363,
  85      + 0.07922,  0.02646, 15.06373,  0.38268,  0.35035,  0.08216,
  86      + 0.08036,  0.02741, 17.10666,  0.43131,  0.41633,  0.13696,
  87      + 0.08145,  0.02833, 19.14198,  0.48129,  0.48398,  0.19257,
  88      + 0.08250,  0.02921, 21.16891,  0.53225,  0.55315,  0.24968,
  89      + 0.08351,  0.03005, 23.14951,  0.58339,  0.62253,  0.30672,
  90      + 0.08448,  0.03087, 25.08839,  0.63468,  0.69213,  0.36388,
  91      + 0.08541,  0.03166, 27.02209,  0.68691,  0.76303,  0.42201,
  92      + 0.08632,  0.03243, 28.87794,  0.73826,  0.83274,  0.47912,
  93      + 0.08719,  0.03317, 30.71896,  0.79018,  0.90324,  0.53679,
  94      + 0.08804,  0.03389, 32.50862,  0.84171,  0.97321,  0.59398,
  95      + 0.08887,  0.03459, 34.25996,  0.89311,  1.04301,  0.65098,
  96      + 0.08967,  0.03526, 35.96909,  0.94421,  1.11241,  0.70762,
  97      + 0.09044,  0.03592, 37.63948,  0.99504,  1.18147,  0.76393/
  98       DATA ((F(I,5,K),I=1,6),K=1,19)/
  99      + 0.07699,  0.02329,  3.09657,  0.06992,  0.01180,  0.00000,
 100      + 0.07881,  0.02482,  4.79457,  0.11543,  0.05579,  0.00000,
 101      + 0.08048,  0.02624,  6.57428,  0.16597,  0.10496,  0.00000,
 102      + 0.08204,  0.02757,  8.36915,  0.21929,  0.15703,  0.00000,
 103      + 0.08350,  0.02881, 10.17824,  0.27472,  0.21174,  0.00126,
 104      + 0.08488,  0.02999, 11.98900,  0.32584,  0.26855,  0.02151,
 105      + 0.08619,  0.03111, 13.77102,  0.36706,  0.32645,  0.07456,
 106      + 0.08744,  0.03218, 15.53498,  0.41075,  0.38563,  0.12382,
 107      + 0.08863,  0.03321, 17.27930,  0.45534,  0.44589,  0.17347,
 108      + 0.08977,  0.03420, 19.00464,  0.50052,  0.50713,  0.22414,
 109      + 0.09087,  0.03515, 20.67931,  0.54561,  0.56822,  0.27448,
 110      + 0.09193,  0.03606, 22.30855,  0.59059,  0.62918,  0.32467,
 111      + 0.09295,  0.03695, 23.92488,  0.63618,  0.69099,  0.37547,
 112      + 0.09394,  0.03780, 25.46680,  0.68080,  0.75150,  0.42515,
 113      + 0.09489,  0.03862, 26.98915,  0.72572,  0.81243,  0.47512,
 114      + 0.09582,  0.03942, 28.46149,  0.77013,  0.87267,  0.52448,
 115      + 0.09671,  0.04020, 29.89561,  0.81425,  0.93254,  0.57349,
 116      + 0.09758,  0.04095, 31.28883,  0.85797,  0.99187,  0.62202,
 117      + 0.09843,  0.04168, 32.64464,  0.90131,  1.05069,  0.67011/
 118       DATA ((F(I,6,K),I=1,6),K=1,19)/
 119      + 0.08206,  0.02664,  3.07078,  0.07454,  0.01175,  0.00000,
 120      + 0.08401,  0.02833,  4.66685,  0.11899,  0.05465,  0.00000,
 121      + 0.08581,  0.02990,  6.31762,  0.16742,  0.10168,  0.00000,
 122      + 0.08749,  0.03136,  7.96477,  0.21788,  0.15087,  0.00000,
 123      + 0.08906,  0.03274,  9.60994,  0.26984,  0.20205,  0.00118,
 124      + 0.09053,  0.03403, 11.24354,  0.31739,  0.25479,  0.01995,
 125      + 0.09194,  0.03526, 12.83967,  0.35545,  0.30819,  0.06899,
 126      + 0.09328,  0.03644, 14.40938,  0.39556,  0.36245,  0.11424,
 127      + 0.09456,  0.03756, 15.95251,  0.43628,  0.41741,  0.15961,
 128      + 0.09578,  0.03864, 17.47061,  0.47733,  0.47299,  0.20569,
 129      + 0.09696,  0.03967, 18.93633,  0.51813,  0.52820,  0.25129,
 130      + 0.09809,  0.04067, 20.35518,  0.55866,  0.58308,  0.29657,
 131      + 0.09918,  0.04163, 21.75691,  0.59958,  0.63852,  0.34222,
 132      + 0.10024,  0.04255, 23.08755,  0.63950,  0.69260,  0.38673,
 133      + 0.10126,  0.04345, 24.39639,  0.67955,  0.74688,  0.43134,
 134      + 0.10224,  0.04431, 25.65698,  0.71902,  0.80039,  0.47527,
 135      + 0.10320,  0.04515, 26.88029,  0.75813,  0.85341,  0.51877,
 136      + 0.10413,  0.04596, 28.06430,  0.79676,  0.90580,  0.56172,
 137      + 0.10503,  0.04675, 29.21252,  0.83496,  0.95762,  0.60418/
 138       DATA ((F(I,7,K),I=1,6),K=1,19)/
 139      + 0.09951,  0.04035,  2.98677,  0.09068,  0.01118,  0.00000,
 140      + 0.10196,  0.04266,  4.28244,  0.13070,  0.04959,  0.00000,
 141      + 0.10422,  0.04478,  5.56876,  0.17211,  0.08956,  0.00000,
 142      + 0.10631,  0.04674,  6.80979,  0.21380,  0.12995,  0.00000,
 143      + 0.10828,  0.04857,  8.01392,  0.25551,  0.17081,  0.00094,
 144      + 0.11012,  0.05029,  9.17943,  0.29284,  0.21194,  0.01554,
 145      + 0.11188,  0.05190, 10.29177,  0.32205,  0.25279,  0.05340,
 146      + 0.11355,  0.05344, 11.36288,  0.35230,  0.29355,  0.08767,
 147      + 0.11514,  0.05490, 12.39573,  0.38250,  0.33418,  0.12147,
 148      + 0.11666,  0.05629, 13.39404,  0.41250,  0.37467,  0.15531,
 149      + 0.11813,  0.05762, 14.34086,  0.44191,  0.41436,  0.18836,
 150      + 0.11953,  0.05889, 15.24236,  0.47076,  0.45333,  0.22078,
 151      + 0.12088,  0.06012, 16.12077,  0.49955,  0.49223,  0.25309,
 152      + 0.12219,  0.06129, 16.94078,  0.52731,  0.52977,  0.28424,
 153      + 0.12344,  0.06242, 17.73729,  0.55488,  0.56706,  0.31516,
 154      + 0.12466,  0.06351, 18.49368,  0.58178,  0.60347,  0.34531,
 155      + 0.12584,  0.06456, 19.21832,  0.60818,  0.63921,  0.37489,
 156      + 0.12698,  0.06557, 19.91093,  0.63402,  0.67422,  0.40385,
 157      + 0.12809,  0.06655, 20.57460,  0.65936,  0.70855,  0.43223/
 158       DATA ((F(I,8,K),I=1,6),K=1,19)/
 159      + 0.11992,  0.06089,  2.89161,  0.10952,  0.00987,  0.00000,
 160      + 0.12303,  0.06395,  3.90807,  0.14337,  0.04220,  0.00000,
 161      + 0.12589,  0.06674,  4.87665,  0.17714,  0.07464,  0.00000,
 162      + 0.12855,  0.06929,  5.77887,  0.21023,  0.10657,  0.00000,
 163      + 0.13104,  0.07165,  6.62765,  0.24253,  0.13808,  0.00073,
 164      + 0.13337,  0.07384,  7.42676,  0.27082,  0.16912,  0.01176,
 165      + 0.13558,  0.07590,  8.16982,  0.29245,  0.19939,  0.04019,
 166      + 0.13768,  0.07783,  8.86874,  0.31447,  0.22908,  0.06544,
 167      + 0.13968,  0.07966,  9.52822,  0.33610,  0.25819,  0.08993,
 168      + 0.14160,  0.08140, 10.15303,  0.35726,  0.28678,  0.11411,
 169      + 0.14343,  0.08304, 10.73344,  0.37772,  0.31442,  0.13741,
 170      + 0.14518,  0.08461, 11.27537,  0.39752,  0.34122,  0.15998,
 171      + 0.14687,  0.08611, 11.79519,  0.41704,  0.36765,  0.18220,
 172      + 0.14849,  0.08753, 12.27041,  0.43563,  0.39286,  0.20340,
 173      + 0.15005,  0.08890, 12.72536,  0.45390,  0.41764,  0.22420,
 174      + 0.15156,  0.09020, 13.14986,  0.47153,  0.44158,  0.24428,
 175      + 0.15301,  0.09146, 13.55015,  0.48865,  0.46485,  0.26380,
 176      + 0.15442,  0.09267, 13.92672,  0.50525,  0.48742,  0.28272,
 177      + 0.15578,  0.09383, 14.28213,  0.52138,  0.50936,  0.30110/
 178       DATA ((F(I,9,K),I=1,6),K=1,19)/
 179      + 0.13374,  0.07721,  2.82642,  0.12154,  0.00880,  0.00000,
 180      + 0.13736,  0.08074,  3.68746,  0.15111,  0.03704,  0.00000,
 181      + 0.14069,  0.08394,  4.48785,  0.18022,  0.06502,  0.00000,
 182      + 0.14377,  0.08684,  5.21715,  0.20841,  0.09224,  0.00000,
 183      + 0.14665,  0.08951,  5.88979,  0.23557,  0.11877,  0.00062,
 184      + 0.14934,  0.09198,  6.51178,  0.25906,  0.14460,  0.00981,
 185      + 0.15189,  0.09428,  7.08019,  0.27674,  0.16952,  0.03346,
 186      + 0.15431,  0.09643,  7.60644,  0.29457,  0.19371,  0.05423,
 187      + 0.15661,  0.09846,  8.09574,  0.31192,  0.21720,  0.07417,
 188      + 0.15880,  0.10037,  8.55301,  0.32872,  0.24005,  0.09369,
 189      + 0.16090,  0.10218,  8.97158,  0.34482,  0.26198,  0.11235,
 190      + 0.16290,  0.10388,  9.35695,  0.36028,  0.28306,  0.13027,
 191      + 0.16483,  0.10552,  9.72256,  0.37539,  0.30369,  0.14779,
 192      + 0.16667,  0.10706, 10.05156,  0.38968,  0.32323,  0.16439,
 193      + 0.16845,  0.10853, 10.36322,  0.40362,  0.34230,  0.18057,
 194      + 0.17016,  0.10994, 10.65013,  0.41697,  0.36060,  0.19609,
 195      + 0.17180,  0.11128, 10.91742,  0.42986,  0.37828,  0.21107,
 196      + 0.17339,  0.11257, 11.16580,  0.44227,  0.39533,  0.22552,
 197      + 0.17493,  0.11380, 11.39737,  0.45425,  0.41180,  0.23947/
 198       DATA ((F(I,10,K),I=1,6),K=1,19)/
 199      + 0.14500,  0.09118,  2.77331,  0.13032,  0.00808,  0.00000,
 200      + 0.14908,  0.09501,  3.52587,  0.15697,  0.03367,  0.00000,
 201      + 0.15283,  0.09846,  4.21204,  0.18293,  0.05877,  0.00000,
 202      + 0.15630,  0.10157,  4.82669,  0.20782,  0.08293,  0.00000,
 203      + 0.15952,  0.10442,  5.38470,  0.23154,  0.10624,  0.00055,
 204      + 0.16253,  0.10705,  5.89329,  0.25184,  0.12871,  0.00857,
 205      + 0.16538,  0.10948,  6.35166,  0.26690,  0.15021,  0.02914,
 206      + 0.16807,  0.11174,  6.77052,  0.28198,  0.17090,  0.04706,
 207      + 0.17062,  0.11387,  7.15523,  0.29653,  0.19085,  0.06413,
 208      + 0.17305,  0.11587,  7.51064,  0.31052,  0.21011,  0.08072,
 209      + 0.17536,  0.11774,  7.83187,  0.32383,  0.22847,  0.09648,
 210      + 0.17757,  0.11951,  8.12401,  0.33652,  0.24601,  0.11153,
 211      + 0.17969,  0.12119,  8.39861,  0.34885,  0.26307,  0.12615,
 212      + 0.18172,  0.12277,  8.64208,  0.36043,  0.27913,  0.13992,
 213      + 0.18366,  0.12428,  8.87064,  0.37166,  0.29473,  0.15327,
 214      + 0.18553,  0.12571,  9.07849,  0.38236,  0.30962,  0.16602,
 215      + 0.18733,  0.12708,  9.26993,  0.39262,  0.32393,  0.17827,
 216      + 0.18906,  0.12838,  9.44570,  0.40246,  0.33766,  0.19002,
 217      + 0.19073,  0.12963,  9.60769,  0.41190,  0.35086,  0.20132/
 218       DATA ((F(I,11,K),I=1,6),K=1,19)/
 219      + 0.15493,  0.10355,  2.72690,  0.13710,  0.00763,  0.00000,
 220      + 0.15946,  0.10757,  3.39611,  0.16170,  0.03148,  0.00000,
 221      + 0.16361,  0.11117,  3.99639,  0.18534,  0.05455,  0.00000,
 222      + 0.16743,  0.11440,  4.52622,  0.20776,  0.07651,  0.00000,
 223      + 0.17097,  0.11735,  5.00081,  0.22892,  0.09749,  0.00049,
 224      + 0.17428,  0.12005,  5.42798,  0.24683,  0.11754,  0.00767,
 225      + 0.17739,  0.12253,  5.80819,  0.25994,  0.13658,  0.02602,
 226      + 0.18032,  0.12484,  6.15162,  0.27297,  0.15478,  0.04189,
 227      + 0.18309,  0.12700,  6.46357,  0.28547,  0.17219,  0.05691,
 228      + 0.18573,  0.12902,  6.74881,  0.29740,  0.18891,  0.07141,
 229      + 0.18823,  0.13091,  7.00353,  0.30868,  0.20475,  0.08512,
 230      + 0.19062,  0.13268,  7.23250,  0.31936,  0.21979,  0.09814,
 231      + 0.19290,  0.13436,  7.44589,  0.32969,  0.23436,  0.11072,
 232      + 0.19508,  0.13594,  7.63229,  0.33933,  0.24800,  0.12252,
 233      + 0.19716,  0.13743,  7.80575,  0.34863,  0.26118,  0.13392,
 234      + 0.19916,  0.13885,  7.96148,  0.35744,  0.27371,  0.14474,
 235      + 0.20108,  0.14020,  8.10325,  0.36586,  0.28570,  0.15510,
 236      + 0.20293,  0.14147,  8.23181,  0.37388,  0.29715,  0.16501,
 237      + 0.20470,  0.14269,  8.34882,  0.38155,  0.30812,  0.17449/
 238       DATA ((F(I,12,K),I=1,6),K=1,19)/
 239      + 0.19507,  0.15149,  2.54346,  0.15467,  0.00598,  0.00000,
 240      + 0.20131,  0.15569,  2.96819,  0.17200,  0.02401,  0.00000,
 241      + 0.20694,  0.15935,  3.32764,  0.18802,  0.04078,  0.00000,
 242      + 0.21205,  0.16257,  3.62763,  0.20269,  0.05622,  0.00000,
 243      + 0.21673,  0.16543,  3.88265,  0.21608,  0.07053,  0.00034,
 244      + 0.22104,  0.16799,  4.10092,  0.22697,  0.08382,  0.00516,
 245      + 0.22504,  0.17030,  4.28491,  0.23439,  0.09613,  0.01738,
 246      + 0.22877,  0.17240,  4.44280,  0.24162,  0.10761,  0.02770,
 247      + 0.23226,  0.17432,  4.57919,  0.24838,  0.11836,  0.03726,
 248      + 0.23554,  0.17609,  4.69793,  0.25467,  0.12846,  0.04630,
 249      + 0.23862,  0.17771,  4.79753,  0.26046,  0.13784,  0.05470,
 250      + 0.24152,  0.17919,  4.88154,  0.26581,  0.14658,  0.06253,
 251      + 0.24427,  0.18058,  4.95632,  0.27088,  0.15489,  0.06998,
 252      + 0.24686,  0.18185,  5.01563,  0.27547,  0.16254,  0.07685,
 253      + 0.24933,  0.18303,  5.06787,  0.27982,  0.16980,  0.08338,
 254      + 0.25166,  0.18413,  5.11053,  0.28383,  0.17659,  0.08950,
 255      + 0.25388,  0.18515,  5.14600,  0.28757,  0.18298,  0.09526,
 256      + 0.25600,  0.18610,  5.17482,  0.29107,  0.18900,  0.10070,
 257      + 0.25802,  0.18698,  5.19803,  0.29433,  0.19467,  0.10583/
 258       DATA ((F(I,13,K),I=1,6),K=1,19)/
 259      + 0.26393,  0.21301,  2.26515,  0.15700,  0.00432,  0.00000,
 260      + 0.27194,  0.21591,  2.47235,  0.16668,  0.01691,  0.00000,
 261      + 0.27896,  0.21829,  2.63149,  0.17514,  0.02807,  0.00000,
 262      + 0.28514,  0.22024,  2.75087,  0.18247,  0.03793,  0.00000,
 263      + 0.29065,  0.22184,  2.84173,  0.18884,  0.04672,  0.00021,
 264      + 0.29561,  0.22318,  2.91059,  0.19353,  0.05461,  0.00316,
 265      + 0.30008,  0.22428,  2.96015,  0.19603,  0.06168,  0.01051,
 266      + 0.30416,  0.22518,  2.99567,  0.19841,  0.06808,  0.01655,
 267      + 0.30789,  0.22594,  3.02037,  0.20051,  0.07390,  0.02199,
 268      + 0.31132,  0.22658,  3.03673,  0.20234,  0.07922,  0.02702,
 269      + 0.31446,  0.22708,  3.04427,  0.20389,  0.08403,  0.03159,
 270      + 0.31734,  0.22748,  3.04506,  0.20519,  0.08839,  0.03575,
 271      + 0.32003,  0.22782,  3.04251,  0.20636,  0.09245,  0.03964,
 272      + 0.32247,  0.22804,  3.03359,  0.20728,  0.09608,  0.04314,
 273      + 0.32477,  0.22822,  3.02254,  0.20810,  0.09945,  0.04640,
 274      + 0.32689,  0.22833,  3.00814,  0.20875,  0.10253,  0.04940,
 275      + 0.32886,  0.22839,  2.99155,  0.20929,  0.10535,  0.05218,
 276      + 0.33070,  0.22840,  2.97306,  0.20971,  0.10795,  0.05475,
 277      + 0.33241,  0.22838,  2.95314,  0.21004,  0.11034,  0.05713/
 278       DATA ((F(I,14,K),I=1,6),K=1,19)/
 279      + 0.32748,  0.25117,  2.03445,  0.14434,  0.00335,  0.00000,
 280      + 0.33553,  0.25211,  2.13380,  0.14972,  0.01289,  0.00000,
 281      + 0.34236,  0.25266,  2.19959,  0.15415,  0.02109,  0.00001,
 282      + 0.34819,  0.25287,  2.23928,  0.15775,  0.02813,  0.00001,
 283      + 0.35322,  0.25285,  2.26129,  0.16066,  0.03425,  0.00015,
 284      + 0.35760,  0.25267,  2.27045,  0.16241,  0.03960,  0.00220,
 285      + 0.36144,  0.25231,  2.26868,  0.16268,  0.04428,  0.00727,
 286      + 0.36481,  0.25184,  2.25964,  0.16291,  0.04843,  0.01135,
 287      + 0.36779,  0.25128,  2.24539,  0.16300,  0.05211,  0.01497,
 288      + 0.37045,  0.25066,  2.22753,  0.16296,  0.05542,  0.01825,
 289      + 0.37279,  0.24998,  2.20577,  0.16277,  0.05834,  0.02118,
 290      + 0.37484,  0.24924,  2.18135,  0.16247,  0.06093,  0.02381,
 291      + 0.37671,  0.24848,  2.15634,  0.16212,  0.06329,  0.02623,
 292      + 0.37831,  0.24766,  2.12875,  0.16165,  0.06535,  0.02837,
 293      + 0.37977,  0.24683,  2.10118,  0.16114,  0.06724,  0.03035,
 294      + 0.38105,  0.24598,  2.07277,  0.16057,  0.06892,  0.03213,
 295      + 0.38218,  0.24511,  2.04421,  0.15996,  0.07043,  0.03376,
 296      + 0.38317,  0.24423,  2.01557,  0.15931,  0.07179,  0.03524,
 297      + 0.38405,  0.24334,  1.98706,  0.15863,  0.07301,  0.03660/
 298       DATA ((F(I,15,K),I=1,6),K=1,19)/
 299      + 0.38577,  0.27514,  1.83134,  0.12703,  0.00268,  0.00000,
 300      + 0.39258,  0.27396,  1.86637,  0.12979,  0.01018, -0.00001,
 301      + 0.39814,  0.27257,  1.87912,  0.13185,  0.01646,  0.00000,
 302      + 0.40260,  0.27103,  1.87548,  0.13332,  0.02174,  0.00000,
 303      + 0.40628,  0.26939,  1.86163,  0.13432,  0.02622,  0.00011,
 304      + 0.40931,  0.26770,  1.84105,  0.13451,  0.03006,  0.00162,
 305      + 0.41176,  0.26596,  1.81489,  0.13365,  0.03336,  0.00532,
 306      + 0.41378,  0.26417,  1.78555,  0.13283,  0.03622,  0.00826,
 307      + 0.41544,  0.26239,  1.75442,  0.13196,  0.03872,  0.01082,
 308      + 0.41679,  0.26062,  1.72249,  0.13105,  0.04091,  0.01311,
 309      + 0.41784,  0.25884,  1.68940,  0.13007,  0.04281,  0.01513,
 310      + 0.41864,  0.25707,  1.65589,  0.12905,  0.04446,  0.01693,
 311      + 0.41929,  0.25534,  1.62326,  0.12805,  0.04595,  0.01856,
 312      + 0.41967,  0.25360,  1.59008,  0.12699,  0.04721,  0.01997,
 313      + 0.41994,  0.25191,  1.55799,  0.12595,  0.04834,  0.02127,
 314      + 0.42007,  0.25022,  1.52634,  0.12489,  0.04933,  0.02242,
 315      + 0.42007,  0.24855,  1.49547,  0.12384,  0.05019,  0.02346,
 316      + 0.41997,  0.24691,  1.46537,  0.12278,  0.05095,  0.02439,
 317      + 0.41978,  0.24530,  1.43613,  0.12174,  0.05161,  0.02524/
 318       DATA ((F(I,16,K),I=1,6),K=1,19)/
 319      + 0.43776,  0.28909,  1.64882,  0.10888,  0.00217,  0.00000,
 320      + 0.44242,  0.28586,  1.64270,  0.11004,  0.00819, -0.00001,
 321      + 0.44588,  0.28264,  1.62295,  0.11069,  0.01312,  0.00000,
 322      + 0.44831,  0.27945,  1.59396,  0.11093,  0.01718,  0.00000,
 323      + 0.45005,  0.27632,  1.56010,  0.11085,  0.02056,  0.00008,
 324      + 0.45121,  0.27326,  1.52371,  0.11021,  0.02341,  0.00123,
 325      + 0.45186,  0.27026,  1.48531,  0.10883,  0.02581,  0.00402,
 326      + 0.45214,  0.26732,  1.44645,  0.10751,  0.02786,  0.00621,
 327      + 0.45213,  0.26446,  1.40796,  0.10621,  0.02961,  0.00810,
 328      + 0.45188,  0.26169,  1.37039,  0.10492,  0.03112,  0.00976,
 329      + 0.45138,  0.25898,  1.33333,  0.10362,  0.03240,  0.01121,
 330      + 0.45069,  0.25633,  1.29717,  0.10232,  0.03350,  0.01248,
 331      + 0.44991,  0.25379,  1.26272,  0.10107,  0.03447,  0.01363,
 332      + 0.44891,  0.25129,  1.22885,  0.09981,  0.03526,  0.01461,
 333      + 0.44785,  0.24887,  1.19662,  0.09858,  0.03597,  0.01549,
 334      + 0.44669,  0.24650,  1.16549,  0.09738,  0.03656,  0.01627,
 335      + 0.44546,  0.24420,  1.13563,  0.09619,  0.03706,  0.01697,
 336      + 0.44417,  0.24195,  1.10696,  0.09503,  0.03749,  0.01758,
 337      + 0.44282,  0.23976,  1.07949,  0.09390,  0.03785,  0.01813/
 338       DATA ((F(I,17,K),I=1,6),K=1,19)/
 339      + 0.49294,  0.29618,  1.44435,  0.08738,  0.00171,  0.00001,
 340      + 0.49398,  0.29063,  1.40607,  0.08741,  0.00635,  0.00001,
 341      + 0.49408,  0.28536,  1.36223,  0.08712,  0.01007,  0.00001,
 342      + 0.49338,  0.28036,  1.31553,  0.08657,  0.01305,  0.00001,
 343      + 0.49220,  0.27560,  1.26866,  0.08584,  0.01550,  0.00007,
 344      + 0.49061,  0.27111,  1.22275,  0.08475,  0.01751,  0.00090,
 345      + 0.48868,  0.26677,  1.17775,  0.08316,  0.01917,  0.00292,
 346      + 0.48652,  0.26264,  1.13448,  0.08166,  0.02055,  0.00449,
 347      + 0.48419,  0.25868,  1.09324,  0.08022,  0.02171,  0.00581,
 348      + 0.48176,  0.25490,  1.05420,  0.07882,  0.02269,  0.00697,
 349      + 0.47917,  0.25126,  1.01686,  0.07745,  0.02350,  0.00796,
 350      + 0.47650,  0.24775,  0.98134,  0.07612,  0.02417,  0.00882,
 351      + 0.47385,  0.24440,  0.94806,  0.07484,  0.02475,  0.00958,
 352      + 0.47107,  0.24115,  0.91612,  0.07358,  0.02521,  0.01022,
 353      + 0.46831,  0.23804,  0.88614,  0.07238,  0.02560,  0.01079,
 354      + 0.46553,  0.23503,  0.85766,  0.07121,  0.02591,  0.01129,
 355      + 0.46275,  0.23212,  0.83070,  0.07007,  0.02616,  0.01173,
 356      + 0.45997,  0.22932,  0.80515,  0.06897,  0.02637,  0.01211,
 357      + 0.45721,  0.22661,  0.78094,  0.06791,  0.02653,  0.01244/
 358       DATA ((F(I,18,K),I=1,6),K=1,19)/
 359      + 0.53606,  0.29472,  1.26244,  0.06860,  0.00135,  0.00001,
 360      + 0.53294,  0.28717,  1.20527,  0.06812,  0.00496,  0.00000,
 361      + 0.52924,  0.28021,  1.14839,  0.06741,  0.00780,  0.00000,
 362      + 0.52513,  0.27371,  1.09311,  0.06655,  0.01004,  0.00000,
 363      + 0.52077,  0.26768,  1.04076,  0.06559,  0.01182,  0.00005,
 364      + 0.51629,  0.26203,  0.99161,  0.06439,  0.01327,  0.00067,
 365      + 0.51168,  0.25666,  0.94522,  0.06286,  0.01444,  0.00215,
 366      + 0.50700,  0.25161,  0.90185,  0.06142,  0.01539,  0.00329,
 367      + 0.50233,  0.24683,  0.86145,  0.06005,  0.01617,  0.00424,
 368      + 0.49771,  0.24230,  0.82391,  0.05875,  0.01682,  0.00506,
 369      + 0.49309,  0.23797,  0.78871,  0.05749,  0.01733,  0.00576,
 370      + 0.48850,  0.23384,  0.75579,  0.05627,  0.01775,  0.00635,
 371      + 0.48404,  0.22993,  0.72530,  0.05511,  0.01809,  0.00687,
 372      + 0.47957,  0.22616,  0.69651,  0.05399,  0.01835,  0.00731,
 373      + 0.47521,  0.22257,  0.66975,  0.05292,  0.01857,  0.00769,
 374      + 0.47090,  0.21913,  0.64460,  0.05189,  0.01873,  0.00801,
 375      + 0.46668,  0.21582,  0.62104,  0.05090,  0.01885,  0.00829,
 376      + 0.46255,  0.21265,  0.59892,  0.04995,  0.01893,  0.00853,
 377      + 0.45848,  0.20960,  0.57815,  0.04903,  0.01898,  0.00874/
 378       DATA ((F(I,19,K),I=1,6),K=1,19)/
 379      + 0.56694,  0.28694,  1.10021,  0.05291,  0.00106,  0.00000,
 380      + 0.55946,  0.27779,  1.03264,  0.05223,  0.00389,  0.00001,
 381      + 0.55189,  0.26947,  0.96958,  0.05141,  0.00607,  0.00000,
 382      + 0.54428,  0.26185,  0.91115,  0.05049,  0.00776,  0.00000,
 383      + 0.53682,  0.25481,  0.85768,  0.04952,  0.00909,  0.00004,
 384      + 0.52950,  0.24831,  0.80881,  0.04839,  0.01014,  0.00050,
 385      + 0.52229,  0.24221,  0.76377,  0.04702,  0.01097,  0.00161,
 386      + 0.51523,  0.23650,  0.72247,  0.04576,  0.01163,  0.00245,
 387      + 0.50836,  0.23114,  0.68464,  0.04457,  0.01216,  0.00314,
 388      + 0.50172,  0.22610,  0.64998,  0.04343,  0.01258,  0.00373,
 389      + 0.49523,  0.22130,  0.61793,  0.04234,  0.01292,  0.00422,
 390      + 0.48890,  0.21677,  0.58836,  0.04130,  0.01317,  0.00464,
 391      + 0.48281,  0.21250,  0.56123,  0.04032,  0.01338,  0.00500,
 392      + 0.47681,  0.20841,  0.53590,  0.03937,  0.01352,  0.00529,
 393      + 0.47104,  0.20453,  0.51254,  0.03847,  0.01363,  0.00555,
 394      + 0.46542,  0.20083,  0.49080,  0.03761,  0.01371,  0.00577,
 395      + 0.45995,  0.19729,  0.47060,  0.03679,  0.01375,  0.00595,
 396      + 0.45463,  0.19391,  0.45177,  0.03601,  0.01377,  0.00610,
 397      + 0.44947,  0.19068,  0.43421,  0.03525,  0.01377,  0.00623/
 398       DATA ((F(I,20,K),I=1,6),K=1,19)/
 399      + 0.58616,  0.27450,  0.95557,  0.04012,  0.00085,  0.00000,
 400      + 0.57437,  0.26414,  0.88327,  0.03944,  0.00307,  0.00001,
 401      + 0.56303,  0.25483,  0.81839,  0.03866,  0.00475,  0.00000,
 402      + 0.55212,  0.24639,  0.76014,  0.03781,  0.00603,  0.00000,
 403      + 0.54172,  0.23867,  0.70811,  0.03694,  0.00701,  0.00003,
 404      + 0.53177,  0.23159,  0.66150,  0.03595,  0.00778,  0.00038,
 405      + 0.52219,  0.22501,  0.61931,  0.03481,  0.00837,  0.00121,
 406      + 0.51298,  0.21888,  0.58120,  0.03375,  0.00883,  0.00183,
 407      + 0.50416,  0.21317,  0.54674,  0.03276,  0.00919,  0.00234,
 408      + 0.49573,  0.20783,  0.51553,  0.03182,  0.00947,  0.00276,
 409      + 0.48761,  0.20278,  0.48701,  0.03092,  0.00969,  0.00312,
 410      + 0.47978,  0.19803,  0.46095,  0.03007,  0.00984,  0.00341,
 411      + 0.47231,  0.19357,  0.43724,  0.02927,  0.00996,  0.00367,
 412      + 0.46504,  0.18933,  0.41532,  0.02850,  0.01003,  0.00387,
 413      + 0.45808,  0.18532,  0.39525,  0.02778,  0.01008,  0.00404,
 414      + 0.45137,  0.18150,  0.37671,  0.02708,  0.01010,  0.00419,
 415      + 0.44489,  0.17788,  0.35960,  0.02643,  0.01011,  0.00431,
 416      + 0.43862,  0.17442,  0.34376,  0.02580,  0.01009,  0.00441,
 417      + 0.43258,  0.17113,  0.32907,  0.02521,  0.01006,  0.00449/
 418       DATA ((F(I,21,K),I=1,6),K=1,19)/
 419      + 0.59448,  0.25877,  0.82678,  0.02998,  0.00066,  0.00000,
 420      + 0.57863,  0.24757,  0.75359,  0.02939,  0.00241, -0.00001,
 421      + 0.56384,  0.23761,  0.68973,  0.02872,  0.00371,  0.00000,
 422      + 0.54994,  0.22863,  0.63373,  0.02801,  0.00467,  0.00000,
 423      + 0.53691,  0.22051,  0.58465,  0.02727,  0.00541,  0.00002,
 424      + 0.52465,  0.21310,  0.54138,  0.02646,  0.00598,  0.00028,
 425      + 0.51300,  0.20626,  0.50281,  0.02554,  0.00640,  0.00091,
 426      + 0.50196,  0.19993,  0.46836,  0.02468,  0.00672,  0.00137,
 427      + 0.49149,  0.19406,  0.43757,  0.02389,  0.00697,  0.00175,
 428      + 0.48157,  0.18860,  0.40997,  0.02313,  0.00716,  0.00206,
 429      + 0.47210,  0.18347,  0.38500,  0.02242,  0.00729,  0.00231,
 430      + 0.46304,  0.17866,  0.36236,  0.02174,  0.00738,  0.00252,
 431      + 0.45446,  0.17417,  0.34190,  0.02111,  0.00744,  0.00270,
 432      + 0.44619,  0.16989,  0.32316,  0.02051,  0.00747,  0.00284,
 433      + 0.43831,  0.16588,  0.30612,  0.01994,  0.00748,  0.00296,
 434      + 0.43073,  0.16208,  0.29049,  0.01940,  0.00747,  0.00305,
 435      + 0.42346,  0.15847,  0.27614,  0.01889,  0.00746,  0.00313,
 436      + 0.41649,  0.15505,  0.26293,  0.01840,  0.00743,  0.00320,
 437      + 0.40980,  0.15179,  0.25075,  0.01794,  0.00739,  0.00325/
 438       DATA ((F(I,22,K),I=1,6),K=1,19)/
 439      + 0.59269,  0.24072,  0.71230,  0.02204,  0.00053,  0.00000,
 440      + 0.57325,  0.22903,  0.64079,  0.02158,  0.00190,  0.00000,
 441      + 0.55540,  0.21872,  0.57977,  0.02105,  0.00290,  0.00000,
 442      + 0.53890,  0.20950,  0.52731,  0.02048,  0.00364,  0.00001,
 443      + 0.52366,  0.20121,  0.48206,  0.01989,  0.00418,  0.00002,
 444      + 0.50947,  0.19370,  0.44267,  0.01925,  0.00459,  0.00022,
 445      + 0.49615,  0.18680,  0.40803,  0.01853,  0.00489,  0.00069,
 446      + 0.48362,  0.18045,  0.37744,  0.01786,  0.00511,  0.00103,
 447      + 0.47185,  0.17458,  0.35033,  0.01724,  0.00528,  0.00131,
 448      + 0.46077,  0.16914,  0.32623,  0.01665,  0.00540,  0.00154,
 449      + 0.45025,  0.16407,  0.30462,  0.01610,  0.00548,  0.00172,
 450      + 0.44028,  0.15933,  0.28518,  0.01558,  0.00553,  0.00187,
 451      + 0.43089,  0.15491,  0.26773,  0.01509,  0.00556,  0.00199,
 452      + 0.42188,  0.15073,  0.25188,  0.01462,  0.00557,  0.00209,
 453      + 0.41334,  0.14682,  0.23754,  0.01419,  0.00556,  0.00217,
 454      + 0.40518,  0.14312,  0.22446,  0.01377,  0.00554,  0.00223,
 455      + 0.39739,  0.13962,  0.21252,  0.01338,  0.00551,  0.00228,
 456      + 0.38996,  0.13631,  0.20159,  0.01301,  0.00548,  0.00233,
 457      + 0.38284,  0.13317,  0.19155,  0.01266,  0.00543,  0.00236/
 458       DATA ((F(I,23,K),I=1,6),K=1,19)/
 459      + 0.58209,  0.22129,  0.61084,  0.01599,  0.00042,  0.00000,
 460      + 0.55958,  0.20941,  0.54275,  0.01565,  0.00149,  0.00000,
 461      + 0.53918,  0.19902,  0.48575,  0.01526,  0.00226,  0.00000,
 462      + 0.52057,  0.18978,  0.43753,  0.01482,  0.00282,  0.00001,
 463      + 0.50356,  0.18153,  0.39650,  0.01437,  0.00322,  0.00001,
 464      + 0.48786,  0.17410,  0.36121,  0.01388,  0.00352,  0.00016,
 465      + 0.47325,  0.16730,  0.33052,  0.01333,  0.00373,  0.00052,
 466      + 0.45961,  0.16108,  0.30369,  0.01282,  0.00389,  0.00078,
 467      + 0.44688,  0.15535,  0.28012,  0.01234,  0.00400,  0.00098,
 468      + 0.43497,  0.15007,  0.25933,  0.01190,  0.00407,  0.00115,
 469      + 0.42373,  0.14516,  0.24083,  0.01148,  0.00412,  0.00128,
 470      + 0.41314,  0.14058,  0.22432,  0.01108,  0.00415,  0.00138,
 471      + 0.40320,  0.13633,  0.20958,  0.01071,  0.00416,  0.00147,
 472      + 0.39372,  0.13233,  0.19628,  0.01036,  0.00415,  0.00154,
 473      + 0.38477,  0.12860,  0.18431,  0.01003,  0.00413,  0.00159,
 474      + 0.37626,  0.12508,  0.17346,  0.00972,  0.00410,  0.00163,
 475      + 0.36817,  0.12176,  0.16361,  0.00942,  0.00407,  0.00167,
 476      + 0.36047,  0.11862,  0.15463,  0.00915,  0.00404,  0.00169,
 477      + 0.35313,  0.11566,  0.14642,  0.00888,  0.00399,  0.00171/
 478       DATA ((F(I,24,K),I=1,6),K=1,19)/
 479      + 0.56377,  0.20114,  0.52115,  0.01143,  0.00033,  0.00001,
 480      + 0.53879,  0.18934,  0.45761,  0.01120,  0.00117,  0.00001,
 481      + 0.51640,  0.17908,  0.40527,  0.01092,  0.00176,  0.00001,
 482      + 0.49621,  0.17003,  0.36168,  0.01060,  0.00218,  0.00000,
 483      + 0.47786,  0.16200,  0.32500,  0.01027,  0.00248,  0.00002,
 484      + 0.46111,  0.15479,  0.29381,  0.00990,  0.00269,  0.00013,
 485      + 0.44557,  0.14823,  0.26694,  0.00949,  0.00285,  0.00040,
 486      + 0.43119,  0.14225,  0.24366,  0.00911,  0.00295,  0.00058,
 487      + 0.41785,  0.13678,  0.22339,  0.00875,  0.00303,  0.00073,
 488      + 0.40544,  0.13175,  0.20564,  0.00842,  0.00307,  0.00085,
 489      + 0.39380,  0.12708,  0.18996,  0.00810,  0.00310,  0.00095,
 490      + 0.38287,  0.12275,  0.17606,  0.00781,  0.00310,  0.00102,
 491      + 0.37265,  0.11874,  0.16373,  0.00753,  0.00310,  0.00108,
 492      + 0.36293,  0.11499,  0.15267,  0.00727,  0.00309,  0.00113,
 493      + 0.35382,  0.11148,  0.14276,  0.00703,  0.00306,  0.00117,
 494      + 0.34519,  0.10819,  0.13383,  0.00680,  0.00304,  0.00120,
 495      + 0.33700,  0.10510,  0.12576,  0.00658,  0.00301,  0.00122,
 496      + 0.32922,  0.10219,  0.11844,  0.00638,  0.00297,  0.00124,
 497      + 0.32182,  0.09944,  0.11178,  0.00619,  0.00294,  0.00125/
 498       DATA ((F(I,25,K),I=1,6),K=1,19)/
 499      + 0.53899,  0.18084,  0.44224,  0.00803,  0.00026,  0.00001,
 500      + 0.51217,  0.16935,  0.38389,  0.00789,  0.00091,  0.00001,
 501      + 0.48837,  0.15944,  0.33655,  0.00771,  0.00136,  0.00001,
 502      + 0.46709,  0.15074,  0.29763,  0.00748,  0.00168,  0.00000,
 503      + 0.44789,  0.14305,  0.26526,  0.00725,  0.00190,  0.00001,
 504      + 0.43049,  0.13619,  0.23801,  0.00698,  0.00205,  0.00010,
 505      + 0.41444,  0.12998,  0.21475,  0.00668,  0.00216,  0.00030,
 506      + 0.39969,  0.12434,  0.19478,  0.00640,  0.00223,  0.00044,
 507      + 0.38606,  0.11919,  0.17752,  0.00614,  0.00228,  0.00055,
 508      + 0.37344,  0.11448,  0.16251,  0.00589,  0.00230,  0.00063,
 509      + 0.36167,  0.11013,  0.14934,  0.00566,  0.00231,  0.00070,
 510      + 0.35065,  0.10611,  0.13775,  0.00545,  0.00231,  0.00075,
 511      + 0.34039,  0.10239,  0.12752,  0.00525,  0.00230,  0.00080,
 512      + 0.33068,  0.09892,  0.11839,  0.00506,  0.00229,  0.00083,
 513      + 0.32160,  0.09569,  0.11026,  0.00488,  0.00226,  0.00085,
 514      + 0.31303,  0.09266,  0.10297,  0.00471,  0.00224,  0.00087,
 515      + 0.30493,  0.08982,  0.09641,  0.00455,  0.00221,  0.00089,
 516      + 0.29725,  0.08716,  0.09048,  0.00441,  0.00218,  0.00090,
 517      + 0.28998,  0.08466,  0.08512,  0.00427,  0.00215,  0.00090/
 518       DATA ((F(I,26,K),I=1,6),K=1,19)/
 519      + 0.50900,  0.16088,  0.37309,  0.00558,  0.00020,  0.00000,
 520      + 0.48098,  0.14990,  0.32025,  0.00551,  0.00069, -0.00001,
 521      + 0.45635,  0.14048,  0.27801,  0.00539,  0.00104, -0.00001,
 522      + 0.43445,  0.13227,  0.24366,  0.00524,  0.00128,  0.00000,
 523      + 0.41488,  0.12504,  0.21543,  0.00507,  0.00143,  0.00000,
 524      + 0.39720,  0.11861,  0.19189,  0.00488,  0.00154,  0.00007,
 525      + 0.38103,  0.11283,  0.17198,  0.00467,  0.00162,  0.00022,
 526      + 0.36623,  0.10759,  0.15501,  0.00446,  0.00167,  0.00032,
 527      + 0.35261,  0.10283,  0.14045,  0.00428,  0.00170,  0.00040,
 528      + 0.34006,  0.09849,  0.12787,  0.00410,  0.00172,  0.00046,
 529      + 0.32841,  0.09449,  0.11692,  0.00393,  0.00172,  0.00051,
 530      + 0.31753,  0.09081,  0.10733,  0.00378,  0.00171,  0.00055,
 531      + 0.30743,  0.08742,  0.09891,  0.00363,  0.00170,  0.00058,
 532      + 0.29793,  0.08426,  0.09145,  0.00350,  0.00168,  0.00060,
 533      + 0.28906,  0.08132,  0.08483,  0.00337,  0.00166,  0.00062,
 534      + 0.28071,  0.07858,  0.07892,  0.00325,  0.00164,  0.00063,
 535      + 0.27285,  0.07602,  0.07363,  0.00314,  0.00161,  0.00064,
 536      + 0.26544,  0.07362,  0.06887,  0.00303,  0.00159,  0.00064,
 537      + 0.25843,  0.07137,  0.06458,  0.00293,  0.00156,  0.00065/
 538       DATA ((F(I,27,K),I=1,6),K=1,19)/
 539      + 0.47497,  0.14157,  0.31271,  0.00379,  0.00015,  0.00000,
 540      + 0.44637,  0.13125,  0.26548,  0.00377,  0.00053,  0.00000,
 541      + 0.42143,  0.12245,  0.22823,  0.00370,  0.00079,  0.00000,
 542      + 0.39940,  0.11481,  0.19828,  0.00361,  0.00097,  0.00000,
 543      + 0.37984,  0.10812,  0.17392,  0.00350,  0.00108,  0.00000,
 544      + 0.36227,  0.10220,  0.15380,  0.00336,  0.00116,  0.00005,
 545      + 0.34629,  0.09689,  0.13692,  0.00321,  0.00121,  0.00016,
 546      + 0.33173,  0.09210,  0.12265,  0.00307,  0.00124,  0.00023,
 547      + 0.31839,  0.08777,  0.11049,  0.00294,  0.00126,  0.00029,
 548      + 0.30614,  0.08383,  0.10005,  0.00281,  0.00127,  0.00034,
 549      + 0.29482,  0.08022,  0.09102,  0.00269,  0.00127,  0.00037,
 550      + 0.28430,  0.07690,  0.08316,  0.00258,  0.00126,  0.00040,
 551      + 0.27455,  0.07385,  0.07630,  0.00248,  0.00124,  0.00042,
 552      + 0.26542,  0.07102,  0.07025,  0.00239,  0.00123,  0.00044,
 553      + 0.25691,  0.06839,  0.06491,  0.00230,  0.00121,  0.00045,
 554      + 0.24894,  0.06595,  0.06016,  0.00221,  0.00119,  0.00045,
 555      + 0.24145,  0.06367,  0.05593,  0.00213,  0.00117,  0.00046,
 556      + 0.23440,  0.06154,  0.05214,  0.00206,  0.00115,  0.00046,
 557      + 0.22776,  0.05955,  0.04874,  0.00198,  0.00113,  0.00046/
 558       DATA ((F(I,28,K),I=1,6),K=1,19)/
 559      + 0.43807,  0.12325,  0.26028,  0.00255,  0.00011, -0.00001,
 560      + 0.40947,  0.11370,  0.21859,  0.00256,  0.00040, -0.00001,
 561      + 0.38473,  0.10559,  0.18611,  0.00253,  0.00059, -0.00001,
 562      + 0.36299,  0.09860,  0.16030,  0.00247,  0.00072, -0.00001,
 563      + 0.34382,  0.09249,  0.13949,  0.00240,  0.00081,  0.00000,
 564      + 0.32665,  0.08713,  0.12247,  0.00232,  0.00087,  0.00004,
 565      + 0.31119,  0.08233,  0.10830,  0.00220,  0.00091,  0.00012,
 566      + 0.29711,  0.07802,  0.09642,  0.00210,  0.00092,  0.00017,
 567      + 0.28427,  0.07413,  0.08637,  0.00201,  0.00093,  0.00021,
 568      + 0.27253,  0.07061,  0.07779,  0.00192,  0.00093,  0.00024,
 569      + 0.26170,  0.06739,  0.07042,  0.00184,  0.00092,  0.00027,
 570      + 0.25169,  0.06444,  0.06404,  0.00176,  0.00092,  0.00029,
 571      + 0.24247,  0.06173,  0.05849,  0.00169,  0.00091,  0.00030,
 572      + 0.23384,  0.05923,  0.05363,  0.00162,  0.00089,  0.00031,
 573      + 0.22582,  0.05692,  0.04935,  0.00156,  0.00088,  0.00032,
 574      + 0.21833,  0.05477,  0.04557,  0.00150,  0.00086,  0.00032,
 575      + 0.21131,  0.05277,  0.04222,  0.00144,  0.00084,  0.00033,
 576      + 0.20472,  0.05090,  0.03923,  0.00139,  0.00083,  0.00033,
 577      + 0.19853,  0.04916,  0.03655,  0.00134,  0.00081,  0.00033/
 578       DATA ((F(I,29,K),I=1,6),K=1,19)/
 579      + 0.39932,  0.10609,  0.21499,  0.00167,  0.00008, -0.00001,
 580      + 0.37125,  0.09738,  0.17861,  0.00170,  0.00030, -0.00001,
 581      + 0.34714,  0.09003,  0.15062,  0.00169,  0.00044, -0.00001,
 582      + 0.32609,  0.08372,  0.12861,  0.00166,  0.00054, -0.00001,
 583      + 0.30762,  0.07824,  0.11104,  0.00161,  0.00060,  0.00000,
 584      + 0.29117,  0.07344,  0.09679,  0.00156,  0.00064,  0.00003,
 585      + 0.27641,  0.06917,  0.08503,  0.00148,  0.00067,  0.00008,
 586      + 0.26304,  0.06534,  0.07523,  0.00141,  0.00067,  0.00012,
 587      + 0.25090,  0.06191,  0.06700,  0.00135,  0.00068,  0.00015,
 588      + 0.23984,  0.05880,  0.06003,  0.00129,  0.00068,  0.00018,
 589      + 0.22966,  0.05597,  0.05406,  0.00123,  0.00067,  0.00019,
 590      + 0.22030,  0.05339,  0.04893,  0.00118,  0.00066,  0.00020,
 591      + 0.21169,  0.05102,  0.04450,  0.00113,  0.00065,  0.00021,
 592      + 0.20367,  0.04884,  0.04063,  0.00109,  0.00064,  0.00022,
 593      + 0.19624,  0.04683,  0.03724,  0.00104,  0.00063,  0.00023,
 594      + 0.18931,  0.04497,  0.03426,  0.00100,  0.00061,  0.00023,
 595      + 0.18283,  0.04324,  0.03163,  0.00096,  0.00060,  0.00023,
 596      + 0.17677,  0.04163,  0.02929,  0.00093,  0.00059,  0.00023,
 597      + 0.17109,  0.04013,  0.02721,  0.00089,  0.00057,  0.00023/
 598       DATA ((F(I,30,K),I=1,6),K=1,19)/
 599      + 0.35977,  0.09027,  0.17611,  0.00108,  0.00006,  0.00000,
 600      + 0.33269,  0.08244,  0.14474,  0.00112,  0.00022, -0.00001,
 601      + 0.30956,  0.07587,  0.12088,  0.00113,  0.00033,  0.00000,
 602      + 0.28955,  0.07026,  0.10233,  0.00111,  0.00040,  0.00000,
 603      + 0.27202,  0.06542,  0.08765,  0.00108,  0.00044,  0.00000,
 604      + 0.25654,  0.06119,  0.07585,  0.00104,  0.00046,  0.00002,
 605      + 0.24267,  0.05744,  0.06620,  0.00100,  0.00048,  0.00006,
 606      + 0.23017,  0.05410,  0.05821,  0.00095,  0.00049,  0.00009,
 607      + 0.21888,  0.05110,  0.05154,  0.00091,  0.00049,  0.00011,
 608      + 0.20862,  0.04840,  0.04592,  0.00086,  0.00049,  0.00013,
 609      + 0.19922,  0.04595,  0.04115,  0.00083,  0.00048,  0.00014,
 610      + 0.19059,  0.04372,  0.03707,  0.00079,  0.00047,  0.00014,
 611      + 0.18268,  0.04168,  0.03356,  0.00076,  0.00047,  0.00015,
 612      + 0.17533,  0.03981,  0.03052,  0.00072,  0.00046,  0.00016,
 613      + 0.16855,  0.03808,  0.02787,  0.00069,  0.00045,  0.00016,
 614      + 0.16225,  0.03649,  0.02554,  0.00067,  0.00043,  0.00016,
 615      + 0.15637,  0.03502,  0.02349,  0.00064,  0.00042,  0.00016,
 616      + 0.15087,  0.03365,  0.02169,  0.00062,  0.00041,  0.00016,
 617      + 0.14572,  0.03238,  0.02008,  0.00059,  0.00040,  0.00016/
 618       DATA ((F(I,31,K),I=1,6),K=1,19)/
 619      + 0.32018,  0.07586,  0.14295,  0.00068,  0.00004,  0.00000,
 620      + 0.29450,  0.06894,  0.11621,  0.00072,  0.00016,  0.00000,
 621      + 0.27271,  0.06315,  0.09613,  0.00073,  0.00024,  0.00000,
 622      + 0.25396,  0.05824,  0.08066,  0.00072,  0.00029,  0.00000,
 623      + 0.23762,  0.05402,  0.06854,  0.00071,  0.00032,  0.00000,
 624      + 0.22327,  0.05035,  0.05888,  0.00069,  0.00033,  0.00001,
 625      + 0.21046,  0.04710,  0.05104,  0.00066,  0.00035,  0.00004,
 626      + 0.19896,  0.04422,  0.04460,  0.00062,  0.00035,  0.00006,
 627      + 0.18861,  0.04165,  0.03926,  0.00060,  0.00035,  0.00008,
 628      + 0.17925,  0.03934,  0.03479,  0.00057,  0.00035,  0.00009,
 629      + 0.17070,  0.03725,  0.03102,  0.00054,  0.00034,  0.00009,
 630      + 0.16287,  0.03535,  0.02781,  0.00052,  0.00033,  0.00010,
 631      + 0.15572,  0.03362,  0.02506,  0.00050,  0.00033,  0.00011,
 632      + 0.14910,  0.03203,  0.02270,  0.00047,  0.00032,  0.00011,
 633      + 0.14300,  0.03058,  0.02064,  0.00045,  0.00031,  0.00011,
 634      + 0.13735,  0.02924,  0.01885,  0.00043,  0.00030,  0.00011,
 635      + 0.13209,  0.02800,  0.01728,  0.00042,  0.00030,  0.00011,
 636      + 0.12718,  0.02685,  0.01589,  0.00040,  0.00029,  0.00011,
 637      + 0.12260,  0.02579,  0.01467,  0.00039,  0.00028,  0.00011/
 638       DATA ((F(I,32,K),I=1,6),K=1,19)/
 639      + 0.28136,  0.06292,  0.11486,  0.00042,  0.00004,  0.00000,
 640      + 0.25741,  0.05689,  0.09236,  0.00046,  0.00012,  0.00000,
 641      + 0.23722,  0.05187,  0.07564,  0.00047,  0.00018,  0.00000,
 642      + 0.21993,  0.04764,  0.06291,  0.00047,  0.00021,  0.00000,
 643      + 0.20495,  0.04401,  0.05303,  0.00047,  0.00023,  0.00000,
 644      + 0.19184,  0.04087,  0.04522,  0.00045,  0.00024,  0.00001,
 645      + 0.18020,  0.03811,  0.03893,  0.00043,  0.00025,  0.00003,
 646      + 0.16981,  0.03566,  0.03380,  0.00041,  0.00025,  0.00005,
 647      + 0.16047,  0.03349,  0.02958,  0.00039,  0.00025,  0.00005,
 648      + 0.15204,  0.03154,  0.02607,  0.00037,  0.00024,  0.00006,
 649      + 0.14438,  0.02979,  0.02312,  0.00035,  0.00024,  0.00007,
 650      + 0.13739,  0.02820,  0.02063,  0.00034,  0.00024,  0.00007,
 651      + 0.13102,  0.02675,  0.01851,  0.00032,  0.00023,  0.00007,
 652      + 0.12515,  0.02543,  0.01668,  0.00031,  0.00022,  0.00007,
 653      + 0.11975,  0.02421,  0.01511,  0.00030,  0.00022,  0.00007,
 654      + 0.11475,  0.02310,  0.01375,  0.00028,  0.00021,  0.00007,
 655      + 0.11012,  0.02208,  0.01256,  0.00027,  0.00021,  0.00007,
 656      + 0.10581,  0.02114,  0.01151,  0.00026,  0.00020,  0.00007,
 657      + 0.10180,  0.02026,  0.01059,  0.00025,  0.00019,  0.00007/
 658       DATA ((F(I,33,K),I=1,6),K=1,19)/
 659      + 0.24401,  0.05147,  0.09129,  0.00026,  0.00002,  0.00000,
 660      + 0.22204,  0.04630,  0.07259,  0.00029,  0.00008,  0.00000,
 661      + 0.20363,  0.04202,  0.05887,  0.00030,  0.00012,  0.00000,
 662      + 0.18793,  0.03842,  0.04852,  0.00030,  0.00015,  0.00000,
 663      + 0.17440,  0.03538,  0.04058,  0.00030,  0.00016,  0.00000,
 664      + 0.16264,  0.03272,  0.03433,  0.00029,  0.00017,  0.00001,
 665      + 0.15222,  0.03041,  0.02936,  0.00028,  0.00017,  0.00002,
 666      + 0.14297,  0.02836,  0.02532,  0.00027,  0.00017,  0.00003,
 667      + 0.13469,  0.02655,  0.02202,  0.00025,  0.00017,  0.00003,
 668      + 0.12724,  0.02494,  0.01929,  0.00024,  0.00017,  0.00004,
 669      + 0.12049,  0.02348,  0.01702,  0.00023,  0.00016,  0.00004,
 670      + 0.11435,  0.02217,  0.01512,  0.00022,  0.00016,  0.00004,
 671      + 0.10876,  0.02098,  0.01350,  0.00021,  0.00015,  0.00004,
 672      + 0.10363,  0.01990,  0.01212,  0.00020,  0.00015,  0.00005,
 673      + 0.09893,  0.01891,  0.01093,  0.00019,  0.00014,  0.00005,
 674      + 0.09459,  0.01800,  0.00991,  0.00018,  0.00014,  0.00005,
 675      + 0.09057,  0.01716,  0.00901,  0.00017,  0.00014,  0.00005,
 676      + 0.08685,  0.01639,  0.00823,  0.00017,  0.00013,  0.00005,
 677      + 0.08340,  0.01568,  0.00755,  0.00016,  0.00013,  0.00005/
 678       DATA ((F(I,34,K),I=1,6),K=1,19)/
 679      + 0.20866,  0.04147,  0.07167,  0.00015,  0.00002,  0.00000,
 680      + 0.18883,  0.03710,  0.05635,  0.00018,  0.00006,  0.00000,
 681      + 0.17232,  0.03352,  0.04523,  0.00019,  0.00009,  0.00000,
 682      + 0.15832,  0.03051,  0.03694,  0.00019,  0.00010,  0.00000,
 683      + 0.14631,  0.02798,  0.03063,  0.00019,  0.00011,  0.00000,
 684      + 0.13591,  0.02579,  0.02572,  0.00019,  0.00012,  0.00000,
 685      + 0.12675,  0.02388,  0.02183,  0.00018,  0.00012,  0.00001,
 686      + 0.11864,  0.02220,  0.01871,  0.00017,  0.00012,  0.00002,
 687      + 0.11141,  0.02072,  0.01617,  0.00016,  0.00012,  0.00002,
 688      + 0.10493,  0.01940,  0.01409,  0.00015,  0.00011,  0.00003,
 689      + 0.09907,  0.01822,  0.01236,  0.00015,  0.00011,  0.00003,
 690      + 0.09377,  0.01715,  0.01092,  0.00014,  0.00011,  0.00003,
 691      + 0.08896,  0.01620,  0.00970,  0.00013,  0.00010,  0.00003,
 692      + 0.08455,  0.01532,  0.00867,  0.00013,  0.00010,  0.00003,
 693      + 0.08052,  0.01453,  0.00779,  0.00012,  0.00010,  0.00003,
 694      + 0.07681,  0.01380,  0.00703,  0.00012,  0.00009,  0.00003,
 695      + 0.07339,  0.01313,  0.00638,  0.00011,  0.00009,  0.00003,
 696      + 0.07022,  0.01251,  0.00580,  0.00011,  0.00009,  0.00003,
 697      + 0.06729,  0.01194,  0.00530,  0.00010,  0.00008,  0.00003/
 698       DATA ((F(I,35,K),I=1,6),K=1,19)/
 699      + 0.17573,  0.03287,  0.05549,  0.00009,  0.00001,  0.00000,
 700      + 0.15815,  0.02925,  0.04312,  0.00011,  0.00004,  0.00000,
 701      + 0.14359,  0.02629,  0.03426,  0.00012,  0.00006,  0.00000,
 702      + 0.13133,  0.02382,  0.02772,  0.00012,  0.00007,  0.00000,
 703      + 0.12086,  0.02174,  0.02278,  0.00012,  0.00008, -0.00001,
 704      + 0.11182,  0.01998,  0.01898,  0.00012,  0.00007,  0.00000,
 705      + 0.10390,  0.01843,  0.01599,  0.00011,  0.00008,  0.00001,
 706      + 0.09691,  0.01708,  0.01361,  0.00011,  0.00008,  0.00001,
 707      + 0.09070,  0.01589,  0.01169,  0.00010,  0.00008,  0.00002,
 708      + 0.08516,  0.01483,  0.01013,  0.00010,  0.00008,  0.00002,
 709      + 0.08018,  0.01389,  0.00884,  0.00009,  0.00007,  0.00002,
 710      + 0.07568,  0.01304,  0.00776,  0.00009,  0.00007,  0.00002,
 711      + 0.07160,  0.01228,  0.00686,  0.00008,  0.00007,  0.00002,
 712      + 0.06788,  0.01159,  0.00611,  0.00008,  0.00007,  0.00002,
 713      + 0.06448,  0.01096,  0.00546,  0.00008,  0.00006,  0.00002,
 714      + 0.06137,  0.01039,  0.00491,  0.00007,  0.00006,  0.00002,
 715      + 0.05850,  0.00986,  0.00444,  0.00007,  0.00006,  0.00002,
 716      + 0.05586,  0.00938,  0.00402,  0.00006,  0.00006,  0.00002,
 717      + 0.05341,  0.00894,  0.00366,  0.00006,  0.00006,  0.00002/
 718       DATA ((F(I,36,K),I=1,6),K=1,19)/
 719      + 0.14559,  0.02558,  0.04232,  0.00005,  0.00001,  0.00000,
 720      + 0.13028,  0.02263,  0.03249,  0.00006,  0.00003,  0.00000,
 721      + 0.11768,  0.02024,  0.02554,  0.00007,  0.00004,  0.00000,
 722      + 0.10712,  0.01826,  0.02046,  0.00007,  0.00005,  0.00000,
 723      + 0.09816,  0.01660,  0.01667,  0.00008,  0.00005,  0.00000,
 724      + 0.09044,  0.01519,  0.01377,  0.00008,  0.00005,  0.00000,
 725      + 0.08373,  0.01396,  0.01152,  0.00007,  0.00005,  0.00000,
 726      + 0.07782,  0.01289,  0.00973,  0.00007,  0.00005,  0.00001,
 727      + 0.07259,  0.01195,  0.00830,  0.00006,  0.00005,  0.00001,
 728      + 0.06793,  0.01113,  0.00715,  0.00006,  0.00005,  0.00001,
 729      + 0.06377,  0.01039,  0.00620,  0.00006,  0.00005,  0.00001,
 730      + 0.06002,  0.00973,  0.00542,  0.00005,  0.00005,  0.00001,
 731      + 0.05663,  0.00913,  0.00477,  0.00005,  0.00004,  0.00001,
 732      + 0.05354,  0.00860,  0.00422,  0.00005,  0.00004,  0.00001,
 733      + 0.05074,  0.00811,  0.00376,  0.00005,  0.00004,  0.00001,
 734      + 0.04817,  0.00767,  0.00337,  0.00004,  0.00004,  0.00001,
 735      + 0.04581,  0.00727,  0.00303,  0.00004,  0.00004,  0.00001,
 736      + 0.04365,  0.00690,  0.00274,  0.00004,  0.00004,  0.00001,
 737      + 0.04165,  0.00656,  0.00248,  0.00004,  0.00004,  0.00001/
 738       DATA ((F(I,37,K),I=1,6),K=1,19)/
 739      + 0.09445,  0.01453,  0.02330,  0.00001,  0.00001,  0.00000,
 740      + 0.08350,  0.01270,  0.01744,  0.00002,  0.00001,  0.00000,
 741      + 0.07461,  0.01124,  0.01339,  0.00002,  0.00002,  0.00000,
 742      + 0.06725,  0.01004,  0.01051,  0.00003,  0.00002,  0.00000,
 743      + 0.06106,  0.00905,  0.00840,  0.00003,  0.00002,  0.00000,
 744      + 0.05579,  0.00821,  0.00682,  0.00003,  0.00002,  0.00000,
 745      + 0.05124,  0.00749,  0.00562,  0.00002,  0.00002,  0.00000,
 746      + 0.04727,  0.00687,  0.00467,  0.00002,  0.00002,  0.00000,
 747      + 0.04379,  0.00632,  0.00393,  0.00002,  0.00002,  0.00000,
 748      + 0.04071,  0.00585,  0.00334,  0.00002,  0.00002,  0.00001,
 749      + 0.03797,  0.00542,  0.00286,  0.00002,  0.00002,  0.00001,
 750      + 0.03552,  0.00505,  0.00247,  0.00002,  0.00002,  0.00001,
 751      + 0.03332,  0.00472,  0.00215,  0.00002,  0.00002,  0.00000,
 752      + 0.03133,  0.00442,  0.00189,  0.00002,  0.00002,  0.00000,
 753      + 0.02954,  0.00414,  0.00166,  0.00002,  0.00002,  0.00000,
 754      + 0.02790,  0.00390,  0.00148,  0.00002,  0.00001,  0.00000,
 755      + 0.02641,  0.00368,  0.00132,  0.00001,  0.00001,  0.00000,
 756      + 0.02504,  0.00347,  0.00118,  0.00001,  0.00001,  0.00000,
 757      + 0.02378,  0.00329,  0.00106,  0.00001,  0.00001,  0.00000/
 758       DATA ((F(I,38,K),I=1,6),K=1,19)/
 759      + 0.05591,  0.00743,  0.01171,  0.00000,  0.00000,  0.00000,
 760      + 0.04880,  0.00642,  0.00852,  0.00001,  0.00000,  0.00000,
 761      + 0.04309,  0.00562,  0.00638,  0.00001,  0.00001,  0.00000,
 762      + 0.03843,  0.00496,  0.00490,  0.00001,  0.00001,  0.00000,
 763      + 0.03455,  0.00443,  0.00383,  0.00001,  0.00001,  0.00000,
 764      + 0.03128,  0.00398,  0.00305,  0.00001,  0.00001,  0.00000,
 765      + 0.02847,  0.00360,  0.00247,  0.00001,  0.00001,  0.00000,
 766      + 0.02606,  0.00328,  0.00202,  0.00001,  0.00001,  0.00000,
 767      + 0.02395,  0.00299,  0.00167,  0.00001,  0.00001,  0.00000,
 768      + 0.02211,  0.00275,  0.00140,  0.00001,  0.00001,  0.00000,
 769      + 0.02048,  0.00253,  0.00119,  0.00001,  0.00001,  0.00000,
 770      + 0.01904,  0.00234,  0.00101,  0.00001,  0.00001,  0.00000,
 771      + 0.01775,  0.00218,  0.00087,  0.00001,  0.00001,  0.00000,
 772      + 0.01659,  0.00202,  0.00075,  0.00001,  0.00001,  0.00000,
 773      + 0.01555,  0.00189,  0.00066,  0.00000,  0.00001,  0.00000,
 774      + 0.01461,  0.00177,  0.00058,  0.00000,  0.00001,  0.00000,
 775      + 0.01375,  0.00166,  0.00051,  0.00000,  0.00000,  0.00000,
 776      + 0.01297,  0.00156,  0.00045,  0.00000,  0.00000,  0.00000,
 777      + 0.01226,  0.00147,  0.00041,  0.00000,  0.00000,  0.00000/
 778       DATA ((F(I,39,K),I=1,6),K=1,19)/
 779      + 0.02931,  0.00330,  0.00519,  0.00000,  0.00000,  0.00000,
 780      + 0.02521,  0.00281,  0.00366,  0.00000,  0.00000,  0.00000,
 781      + 0.02197,  0.00243,  0.00266,  0.00000,  0.00000,  0.00000,
 782      + 0.01936,  0.00212,  0.00199,  0.00000,  0.00000,  0.00000,
 783      + 0.01722,  0.00187,  0.00152,  0.00000,  0.00000,  0.00000,
 784      + 0.01543,  0.00167,  0.00119,  0.00000,  0.00000,  0.00000,
 785      + 0.01391,  0.00149,  0.00094,  0.00000,  0.00000,  0.00000,
 786      + 0.01262,  0.00135,  0.00076,  0.00000,  0.00000,  0.00000,
 787      + 0.01150,  0.00122,  0.00062,  0.00000,  0.00000,  0.00000,
 788      + 0.01053,  0.00111,  0.00051,  0.00000,  0.00000,  0.00000,
 789      + 0.00968,  0.00102,  0.00042,  0.00000,  0.00000,  0.00000,
 790      + 0.00893,  0.00093,  0.00035,  0.00000,  0.00000,  0.00000,
 791      + 0.00827,  0.00086,  0.00030,  0.00000,  0.00000,  0.00000,
 792      + 0.00768,  0.00080,  0.00026,  0.00000,  0.00000,  0.00000,
 793      + 0.00715,  0.00074,  0.00022,  0.00000,  0.00000,  0.00000,
 794      + 0.00667,  0.00069,  0.00019,  0.00000,  0.00000,  0.00000,
 795      + 0.00624,  0.00064,  0.00017,  0.00000,  0.00000,  0.00000,
 796      + 0.00586,  0.00060,  0.00015,  0.00000,  0.00000,  0.00000,
 797      + 0.00551,  0.00056,  0.00013,  0.00000,  0.00000,  0.00000/
 798       DATA ((F(I,40,K),I=1,6),K=1,19)/
 799      + 0.01294,  0.00120,  0.00192,  0.00000,  0.00000,  0.00000,
 800      + 0.01094,  0.00100,  0.00130,  0.00000,  0.00000,  0.00000,
 801      + 0.00940,  0.00085,  0.00092,  0.00000,  0.00000,  0.00000,
 802      + 0.00816,  0.00074,  0.00067,  0.00000,  0.00000,  0.00000,
 803      + 0.00716,  0.00064,  0.00050,  0.00000,  0.00000,  0.00000,
 804      + 0.00634,  0.00057,  0.00038,  0.00000,  0.00000,  0.00000,
 805      + 0.00566,  0.00050,  0.00029,  0.00000,  0.00000,  0.00000,
 806      + 0.00508,  0.00045,  0.00023,  0.00000,  0.00000,  0.00000,
 807      + 0.00458,  0.00040,  0.00018,  0.00000,  0.00000,  0.00000,
 808      + 0.00416,  0.00036,  0.00015,  0.00000,  0.00000,  0.00000,
 809      + 0.00379,  0.00033,  0.00012,  0.00000,  0.00000,  0.00000,
 810      + 0.00346,  0.00030,  0.00010,  0.00000,  0.00000,  0.00000,
 811      + 0.00318,  0.00027,  0.00008,  0.00000,  0.00000,  0.00000,
 812      + 0.00293,  0.00025,  0.00007,  0.00000,  0.00000,  0.00000,
 813      + 0.00271,  0.00023,  0.00006,  0.00000,  0.00000,  0.00000,
 814      + 0.00251,  0.00021,  0.00005,  0.00000,  0.00000,  0.00000,
 815      + 0.00233,  0.00020,  0.00004,  0.00000,  0.00000,  0.00000,
 816      + 0.00217,  0.00018,  0.00004,  0.00000,  0.00000,  0.00000,
 817      + 0.00203,  0.00017,  0.00003,  0.00000,  0.00000,  0.00000/
 818       DATA ((F(I,41,K),I=1,6),K=1,19)/
 819      + 0.00090,  0.00005,  0.00009,  0.00000,  0.00000,  0.00000,
 820      + 0.00073,  0.00004,  0.00005,  0.00000,  0.00000,  0.00000,
 821      + 0.00060,  0.00003,  0.00003,  0.00000,  0.00000,  0.00000,
 822      + 0.00050,  0.00002,  0.00002,  0.00000,  0.00000,  0.00000,
 823      + 0.00042,  0.00002,  0.00001,  0.00000,  0.00000,  0.00000,
 824      + 0.00036,  0.00002,  0.00001,  0.00000,  0.00000,  0.00000,
 825      + 0.00031,  0.00002,  0.00001,  0.00000,  0.00000,  0.00000,
 826      + 0.00027,  0.00001,  0.00001,  0.00000,  0.00000,  0.00000,
 827      + 0.00024,  0.00001,  0.00001,  0.00000,  0.00000,  0.00000,
 828      + 0.00021,  0.00001,  0.00000,  0.00000,  0.00000,  0.00000,
 829      + 0.00019,  0.00001,  0.00000,  0.00000,  0.00000,  0.00000,
 830      + 0.00016,  0.00001,  0.00000,  0.00000,  0.00000,  0.00000,
 831      + 0.00015,  0.00001,  0.00000,  0.00000,  0.00000,  0.00000,
 832      + 0.00013,  0.00001,  0.00000,  0.00000,  0.00000,  0.00000,
 833      + 0.00012,  0.00001,  0.00000,  0.00000,  0.00000,  0.00000,
 834      + 0.00011,  0.00001,  0.00000,  0.00000,  0.00000,  0.00000,
 835      + 0.00010,  0.00001,  0.00000,  0.00000,  0.00000,  0.00000,
 836      + 0.00009,  0.00001,  0.00000,  0.00000,  0.00000,  0.00000,
 837      + 0.00008,  0.00001,  0.00000,  0.00000,  0.00000,  0.00000/
 838       DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
 839      .       1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
 840      .       1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
 841      .     .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
 842      .     .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
 843      .     .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
 844      .     .8D0,.9D0,1.D0/
 845       DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/
 846       DATA N0/3,3,4,8,0,0/
 847       DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
 848       DATA INIT/0/
 849 C
 850       IF(INIT.NE.0) GOTO 10
 851       INIT=1
 852       DO 20 N=1,41
 853       DO 20 M=1,19
 854 C     READ(68,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)
 855          DO 25 I=1,6
 856   25     F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
 857   20  CONTINUE
 858       DO 30 J=1,15
 859       XX(J)= LOG10(XX(J))+ONEDO
 860       DO 30 I=1,5
 861       DO 30 K=1,19
 862   30  F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K))
 863   50  FORMAT(6F10.5)
 864       DO 40 I=1,6
 865       DO 40 M=1,19
 866   40  F(I,42,M)=ZEROD
 867   10  CONTINUE
 868       UPV=ZEROD
 869       DNV=ZEROD
 870       SEA=ZEROD
 871       STR=ZEROD
 872       CHM=ZEROD
 873       GL =ZEROD
 874       BOT=ZEROD
 875 C     IF(X.LT.XMIN) X=XMIN
 876 C     IF(X.GT.XMAX) X=XMAX
 877       IF(X.LT.XMIN) GOTO 777
 878       IF(X.GT.XMAX) GOTO 777
 879       QSQ=SCALE**2
 880       IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
 881       IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
 882       XXX=X
 883       IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
 884       N=0
 885   70  N=N+1
 886       IF(XXX.GT.XX(N+1)) GOTO 70
 887       A=(XXX-XX(N))/(XX(N+1)-XX(N))
 888       RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
 889       B=RM-AINT(RM)
 890       M=1+  INT(RM)
 891       DO 60 I=1,6
 892       G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
 893      .    + A*(ONED-B)*F(I,N+1,M)  + A*B*F(I,N+1,M+1)
 894       IF(N.GE.16) GOTO 65
 895       IF(I.EQ.6) GOTO 65
 896           FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1)
 897           G(I)=FAC**(G(I)/FAC)
 898   65  CONTINUE
 899       G(I)=G(I)*(ONED-X)**N0(I)
 900   60  CONTINUE
 901       UPV=G(1)
 902       DNV=G(2)
 903       SEA=G(4)
 904       STR=G(4)
 905       CHM=G(5)
 906       GL =G(3)
 907       BOT=G(6)
 908   777 CONTINUE
 909       RETURN
 910       END