* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:31:29 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:53 plothow * Version 7.01 * * #include "pdf/pilot.h" C----------------------------------------------------------------------- SUBROUTINE STRH3EM(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) C C :::::::::::: HARRIMAN MARTIN ROBERTS STIRLING (E) sea=ubar=dbar=2sbar C #include "pdf/impdp.inc" PARAMETER(NX=47) PARAMETER(NTENTH=21) DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, . .8D0,.9D0,1.D0/ DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ DATA N0/2,5,4,5,0,0,5/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ DATA INIT/0/ DATA ((F(I,1,M),I=1,5),F(7,1,M),F(6,1,M),M=1,19) / . 0.01969, 0.00164,116.16710, 0.06202, 0.04741, 0.00000, 0.05472, . 0.02025, 0.00179,127.89989, 0.81070, 0.79559, 0.00000, 0.80315, . 0.02075, 0.00193,140.71202, 1.58952, 1.57395, 0.00000, 1.58174, . 0.02122, 0.00206,154.54207, 2.32148, 2.30547, 0.00001, 2.31349, . 0.02166, 0.00219,169.19019, 3.04645, 3.03004, 0.02041, 3.03826, . 0.02208, 0.00231,184.57181, 3.77047, 3.75367, 0.35216, 3.76208, . 0.02247, 0.00243,200.68066, 4.48675, 4.46957, 1.20799, 4.47818, . 0.02285, 0.00255,217.38646, 5.20872, 5.19119, 1.98794, 5.19998, . 0.02321, 0.00266,234.60693, 5.93866, 5.92079, 2.76578, 5.92974, . 0.02356, 0.00277,252.27565, 6.67804, 6.65984, 3.55490, 6.66896, . 0.02389, 0.00288,270.37134, 7.41594, 7.39742, 4.33805, 7.40670, . 0.02421, 0.00299,288.82153, 8.15665, 8.13781, 5.12156, 8.14725, . 0.02452, 0.00309,307.57056, 8.91105, 8.89190, 5.91634, 8.90149, . 0.02482, 0.00320,326.58789, 9.65866, 9.63924, 6.70224, 9.64897, . 0.02510, 0.00330,345.83203,10.41779,10.39806, 7.49761,10.40794, . 0.02538, 0.00340,365.27856,11.17783,11.15786, 8.29215,11.16787, . 0.02566, 0.00349,384.87744,11.94252,11.92227, 9.08967,11.93242, . 0.02592, 0.00359,404.61719,12.71006,12.68955, 9.88854,12.69983, . 0.02618, 0.00368,424.46558,13.48144,13.46067,10.68985,13.47108 / DATA ((F(I,2,M),I=1,5),F(7,2,M),F(6,2,M),M=1,19) / . 0.02474, 0.00250, 82.26169, 0.06499, 0.04626, 0.00000, 0.05563, . 0.02542, 0.00271, 90.87798, 0.62406, 0.60471, 0.00000, 0.61439, . 0.02605, 0.00291,100.17773, 1.17959, 1.15968, 0.00000, 1.16964, . 0.02663, 0.00310,110.09918, 1.70075, 1.68029, 0.00000, 1.69053, . 0.02717, 0.00329,120.50507, 2.21571, 2.19475, 0.01447, 2.20525, . 0.02768, 0.00347,131.33676, 2.72866, 2.70723, 0.24879, 2.71796, . 0.02817, 0.00364,142.57803, 3.23468, 3.21279, 0.85271, 3.22375, . 0.02863, 0.00381,154.14714, 3.74301, 3.72069, 1.40129, 3.73187, . 0.02907, 0.00397,165.99039, 4.25518, 4.23245, 1.94659, 4.24384, . 0.02950, 0.00413,178.06674, 4.77224, 4.74911, 2.49811, 4.76070, . 0.02990, 0.00429,190.34813, 5.28635, 5.26283, 3.04354, 5.27461, . 0.03030, 0.00444,202.78943, 5.80049, 5.77660, 3.58730, 5.78857, . 0.03068, 0.00459,215.37265, 6.32250, 6.29825, 4.13725, 6.31040, . 0.03104, 0.00473,228.04665, 6.83767, 6.81307, 4.67888, 6.82540, . 0.03139, 0.00487,240.81381, 7.35916, 7.33422, 5.22543, 7.34672, . 0.03174, 0.00501,253.64397, 7.87938, 7.85411, 5.76948, 7.86678, . 0.03207, 0.00515,266.51099, 8.40105, 8.37546, 6.31383, 8.38828, . 0.03239, 0.00529,279.40820, 8.92293, 8.89703, 6.85734, 8.91000, . 0.03271, 0.00542,292.31665, 9.44573, 9.41954, 7.40083, 9.43267 / DATA ((F(I,3,M),I=1,5),F(7,3,M),F(6,3,M),M=1,19) / . 0.03097, 0.00380, 58.25577, 0.06833, 0.04432, 0.00000, 0.05633, . 0.03181, 0.00411, 64.57631, 0.48206, 0.45729, 0.00000, 0.46968, . 0.03258, 0.00441, 71.32291, 0.87751, 0.85204, 0.00000, 0.86479, . 0.03329, 0.00468, 78.43808, 1.24834, 1.22221, 0.00000, 1.23529, . 0.03395, 0.00495, 85.82788, 1.61399, 1.58724, 0.01025, 1.60063, . 0.03458, 0.00521, 93.45129, 1.97728, 1.94995, 0.17567, 1.96363, . 0.03518, 0.00545,101.28951, 2.33463, 2.30675, 0.60162, 2.32071, . 0.03574, 0.00569,109.29231, 2.69238, 2.66398, 0.98723, 2.67820, . 0.03628, 0.00593,117.42609, 3.05158, 3.02267, 1.36928, 3.03716, . 0.03680, 0.00616,125.66614, 3.41297, 3.38357, 1.75447, 3.39830, . 0.03730, 0.00638,133.98412, 3.77091, 3.74106, 2.13403, 3.75602, . 0.03778, 0.00659,142.35316, 4.12751, 4.09721, 2.51106, 4.11239, . 0.03824, 0.00680,150.77592, 4.48842, 4.45768, 2.89123, 4.47308, . 0.03868, 0.00701,159.19644, 4.84306, 4.81191, 3.26411, 4.82752, . 0.03911, 0.00721,167.63899, 5.20091, 5.16935, 3.63922, 5.18517, . 0.03953, 0.00740,176.07346, 5.55657, 5.52462, 4.01129, 5.54063, . 0.03994, 0.00760,184.48874, 5.91199, 5.87967, 4.38233, 5.89587, . 0.04033, 0.00779,192.88028, 6.26635, 6.23366, 4.75158, 6.25005, . 0.04071, 0.00797,201.23856, 6.62018, 6.58713, 5.11963, 6.60370 / DATA ((F(I,4,M),I=1,5),F(7,4,M),F(6,4,M),M=1,19) / . 0.03526, 0.00486, 47.61009, 0.07051, 0.04275, 0.00000, 0.05663, . 0.03620, 0.00525, 52.88040, 0.41559, 0.38697, 0.00000, 0.40129, . 0.03706, 0.00561, 58.47057, 0.73948, 0.71006, 0.00000, 0.72478, . 0.03786, 0.00596, 64.32683, 1.04332, 1.01316, 0.00000, 1.02826, . 0.03861, 0.00629, 70.37396, 1.34256, 1.31171, 0.00838, 1.32715, . 0.03931, 0.00660, 76.57898, 1.63942, 1.60792, 0.14328, 1.62369, . 0.03998, 0.00691, 82.92308, 1.93093, 1.89881, 0.49047, 1.91489, . 0.04061, 0.00721, 89.36919, 2.22216, 2.18946, 0.80414, 2.20584, . 0.04122, 0.00749, 95.89230, 2.51396, 2.48070, 1.11429, 2.49736, . 0.04180, 0.00777,102.47449, 2.80693, 2.77312, 1.42640, 2.79006, . 0.04236, 0.00804,109.08884, 3.09645, 3.06213, 1.73329, 3.07933, . 0.04289, 0.00831,115.71597, 3.38422, 3.34940, 2.03747, 3.36685, . 0.04341, 0.00856,122.36574, 3.67490, 3.63960, 2.34362, 3.65728, . 0.04391, 0.00881,128.98306, 3.95980, 3.92404, 2.64316, 3.94196, . 0.04439, 0.00906,135.59865, 4.24673, 4.21052, 2.94395, 4.22867, . 0.04486, 0.00930,142.18425, 4.53125, 4.49461, 3.24164, 4.51297, . 0.04531, 0.00953,148.73381, 4.81501, 4.77795, 3.53792, 4.79652, . 0.04575, 0.00976,155.24446, 5.09734, 5.05987, 3.83219, 5.07865, . 0.04618, 0.00999,161.71021, 5.37868, 5.34082, 4.12494, 5.35980 / DATA ((F(I,5,M),I=1,5),F(7,5,M),F(6,5,M),M=1,19) / . 0.03862, 0.00579, 41.26035, 0.07218, 0.04141, 0.00000, 0.05680, . 0.03964, 0.00624, 45.89227, 0.37473, 0.34302, 0.00000, 0.35888, . 0.04057, 0.00666, 50.78358, 0.65576, 0.62319, 0.00000, 0.63949, . 0.04144, 0.00707, 55.88326, 0.91954, 0.88617, 0.00000, 0.90287, . 0.04225, 0.00745, 61.12738, 1.17911, 1.14499, 0.00727, 1.16207, . 0.04301, 0.00782, 66.48781, 1.43633, 1.40150, 0.12397, 1.41894, . 0.04373, 0.00817, 71.94595, 1.68861, 1.65311, 0.42425, 1.67089, . 0.04442, 0.00851, 77.47250, 1.94027, 1.90414, 0.69513, 1.92223, . 0.04508, 0.00885, 83.04726, 2.19203, 2.15529, 0.96259, 2.17370, . 0.04571, 0.00917, 88.65604, 2.44442, 2.40709, 1.23137, 2.42579, . 0.04631, 0.00948, 94.27356, 2.69343, 2.65555, 1.49523, 2.67453, . 0.04689, 0.00978, 99.88506, 2.94051, 2.90209, 1.75635, 2.92134, . 0.04745, 0.01008,105.50307, 3.18975, 3.15081, 2.01882, 3.17032, . 0.04799, 0.01037,111.07504, 3.43357, 3.39414, 2.27516, 3.41390, . 0.04851, 0.01065,116.63367, 3.67880, 3.63890, 2.53223, 3.65889, . 0.04902, 0.01093,122.15237, 3.92157, 3.88120, 2.78625, 3.90143, . 0.04951, 0.01120,127.62817, 4.16333, 4.12251, 3.03871, 4.14297, . 0.04998, 0.01146,133.05890, 4.40350, 4.36225, 3.28909, 4.38293, . 0.05044, 0.01172,138.44028, 4.64250, 4.60082, 3.53783, 4.62171 / DATA ((F(I,6,M),I=1,5),F(7,6,M),F(6,6,M),M=1,19) / . 0.04142, 0.00662, 36.92542, 0.07356, 0.04024, 0.00000, 0.05690, . 0.04250, 0.00713, 41.11545, 0.34627, 0.31195, 0.00000, 0.32912, . 0.04350, 0.00761, 45.52489, 0.59798, 0.56274, 0.00000, 0.58037, . 0.04442, 0.00806, 50.10533, 0.83437, 0.79827, 0.00000, 0.81634, . 0.04528, 0.00850, 54.80003, 1.06683, 1.02993, 0.00650, 1.04840, . 0.04609, 0.00891, 59.58429, 1.29699, 1.25933, 0.11080, 1.27818, . 0.04686, 0.00931, 64.44011, 1.52249, 1.48412, 0.37908, 1.50333, . 0.04759, 0.00969, 69.34320, 1.74718, 1.70814, 0.62081, 1.72769, . 0.04829, 0.01006, 74.27635, 1.97169, 1.93201, 0.85921, 1.95188, . 0.04896, 0.01042, 79.22853, 2.19648, 2.15618, 1.09853, 2.17637, . 0.04960, 0.01077, 84.17529, 2.41799, 2.37709, 1.33319, 2.39758, . 0.05022, 0.01111, 89.10451, 2.63748, 2.59602, 1.56510, 2.61679, . 0.05081, 0.01144, 94.03094, 2.85864, 2.81664, 1.79799, 2.83769, . 0.05138, 0.01176, 98.90370, 3.07469, 3.03216, 2.02511, 3.05347, . 0.05194, 0.01208,103.75691, 3.29174, 3.24870, 2.25263, 3.27027, . 0.05247, 0.01238,108.56493, 3.50633, 3.46281, 2.47718, 3.48462, . 0.05299, 0.01268,113.32674, 3.71977, 3.67578, 2.70010, 3.69783, . 0.05350, 0.01297,118.04047, 3.93158, 3.88713, 2.92093, 3.90941, . 0.05399, 0.01326,122.70358, 4.14210, 4.09721, 3.14007, 4.11971 / DATA ((F(I,7,M),I=1,5),F(7,7,M),F(6,7,M),M=1,19) / . 0.05129, 0.01008, 26.16243, 0.07846, 0.03580, 0.00000, 0.05713, . 0.05260, 0.01081, 29.22992, 0.27377, 0.22988, 0.00000, 0.25184, . 0.05380, 0.01150, 32.42279, 0.45252, 0.40750, 0.00000, 0.43002, . 0.05491, 0.01216, 35.70041, 0.62074, 0.57469, 0.00000, 0.59774, . 0.05595, 0.01277, 39.02498, 0.78580, 0.73878, 0.00461, 0.76231, . 0.05692, 0.01336, 42.37987, 0.94873, 0.90080, 0.07814, 0.92479, . 0.05785, 0.01393, 45.74956, 1.10784, 1.05905, 0.26709, 1.08348, . 0.05873, 0.01447, 49.12158, 1.26575, 1.21616, 0.43670, 1.24100, . 0.05957, 0.01500, 52.48636, 1.42291, 1.37256, 0.60333, 1.39778, . 0.06037, 0.01550, 55.83878, 1.57966, 1.52857, 0.77001, 1.55416, . 0.06114, 0.01600, 59.15862, 1.73346, 1.68167, 0.93280, 1.70761, . 0.06189, 0.01647, 62.44046, 1.88521, 1.83275, 1.09303, 1.85903, . 0.06260, 0.01693, 65.70174, 2.03757, 1.98447, 1.25338, 2.01107, . 0.06329, 0.01738, 68.89891, 2.18570, 2.13198, 1.40906, 2.15889, . 0.06396, 0.01782, 72.06584, 2.33398, 2.27968, 1.56449, 2.30688, . 0.06460, 0.01824, 75.18158, 2.47998, 2.42510, 1.71727, 2.45260, . 0.06523, 0.01866, 78.24844, 2.62465, 2.56921, 1.86838, 2.59699, . 0.06583, 0.01906, 81.26595, 2.76766, 2.71170, 2.01754, 2.73974, . 0.06642, 0.01946, 84.23390, 2.90927, 2.85280, 2.16501, 2.88110 / DATA ((F(I,8,M),I=1,5),F(7,8,M),F(6,8,M),M=1,19) / . 0.06312, 0.01532, 18.54797, 0.08471, 0.03014, 0.00000, 0.05743, . 0.06468, 0.01638, 20.79260, 0.22199, 0.16593, 0.00000, 0.19397, . 0.06612, 0.01737, 23.10101, 0.34909, 0.29168, 0.00000, 0.32041, . 0.06745, 0.01830, 25.44026, 0.46898, 0.41033, 0.00000, 0.43968, . 0.06869, 0.01918, 27.78612, 0.58624, 0.52644, 0.00327, 0.55637, . 0.06986, 0.02002, 30.12813, 0.70155, 0.64068, 0.05506, 0.67115, . 0.07096, 0.02081, 32.45386, 0.81373, 0.75185, 0.18799, 0.78283, . 0.07202, 0.02158, 34.75819, 0.92457, 0.86173, 0.30679, 0.89319, . 0.07302, 0.02231, 37.03682, 1.03437, 0.97064, 0.42299, 1.00255, . 0.07399, 0.02302, 39.28835, 1.14341, 1.07882, 0.53878, 1.11116, . 0.07491, 0.02371, 41.49661, 1.24990, 1.18449, 0.65136, 1.21725, . 0.07580, 0.02437, 43.66045, 1.35448, 1.28830, 0.76168, 1.32144, . 0.07665, 0.02501, 45.79718, 1.45905, 1.39213, 0.87168, 1.42565, . 0.07748, 0.02563, 47.87125, 1.56021, 1.49258, 0.97794, 1.52645, . 0.07828, 0.02623, 49.91336, 1.66107, 1.59276, 1.08364, 1.62698, . 0.07905, 0.02681, 51.90663, 1.75993, 1.69097, 1.18710, 1.72552, . 0.07980, 0.02738, 53.85559, 1.85748, 1.78789, 1.28901, 1.82276, . 0.08052, 0.02794, 55.76007, 1.95352, 1.88332, 1.38920, 1.91849, . 0.08123, 0.02848, 57.62129, 2.04824, 1.97746, 1.48789, 2.01292 / DATA ((F(I,9,M),I=1,5),F(7,9,M),F(6,9,M),M=1,19) / . 0.07103, 0.01957, 15.17519, 0.08935, 0.02639, 0.00000, 0.05787, . 0.07276, 0.02087, 17.04501, 0.20014, 0.13553, 0.00000, 0.16785, . 0.07435, 0.02209, 18.95226, 0.30442, 0.23832, 0.00000, 0.27139, . 0.07583, 0.02323, 20.86848, 0.40285, 0.33539, 0.00000, 0.36915, . 0.07720, 0.02431, 22.77579, 0.49888, 0.43016, 0.00267, 0.46455, . 0.07850, 0.02532, 24.66664, 0.59305, 0.52315, 0.04482, 0.55814, . 0.07973, 0.02629, 26.53041, 0.68440, 0.61342, 0.15292, 0.64895, . 0.08090, 0.02722, 28.36516, 0.77439, 0.70237, 0.24923, 0.73843, . 0.08202, 0.02811, 30.16876, 0.86327, 0.79027, 0.34317, 0.82682, . 0.08309, 0.02897, 31.94124, 0.95125, 0.87734, 0.43652, 0.91435, . 0.08411, 0.02979, 33.66881, 1.03693, 0.96214, 0.52703, 0.99960, . 0.08510, 0.03059, 35.35197, 1.12082, 1.04519, 0.61547, 1.08306, . 0.08605, 0.03136, 37.00720, 1.20447, 1.12805, 0.70342, 1.16633, . 0.08696, 0.03210, 38.60333, 1.28513, 1.20795, 0.78813, 1.24660, . 0.08785, 0.03282, 40.16879, 1.36535, 1.28744, 0.87218, 1.32646, . 0.08871, 0.03352, 41.68903, 1.44375, 1.36515, 0.95422, 1.40452, . 0.08954, 0.03420, 43.16875, 1.52090, 1.44163, 1.03483, 1.48133, . 0.09034, 0.03486, 44.60831, 1.59665, 1.51674, 1.11388, 1.55677, . 0.09112, 0.03550, 46.00919, 1.67117, 1.59064, 1.19154, 1.63098 / DATA ((F(I,10,M),I=1,5),F(7,10,M),F(6,10,M),M=1,19) / . 0.07712, 0.02327, 13.16574, 0.09330, 0.02365, 0.00000, 0.05848, . 0.07898, 0.02478, 14.80844, 0.18825, 0.11686, 0.00000, 0.15257, . 0.08069, 0.02619, 16.47285, 0.27894, 0.20596, 0.00000, 0.24248, . 0.08228, 0.02750, 18.13367, 0.36455, 0.29013, 0.00000, 0.32737, . 0.08376, 0.02873, 19.77696, 0.44788, 0.37212, 0.00232, 0.41004, . 0.08516, 0.02990, 21.39713, 0.52940, 0.45240, 0.03870, 0.49094, . 0.08648, 0.03100, 22.98485, 0.60831, 0.53016, 0.13196, 0.56928, . 0.08774, 0.03206, 24.54005, 0.68584, 0.60661, 0.21486, 0.64628, . 0.08895, 0.03308, 26.06174, 0.76223, 0.68198, 0.29551, 0.72216, . 0.09010, 0.03405, 27.55090, 0.83767, 0.75646, 0.37549, 0.79712, . 0.09121, 0.03499, 28.99532, 0.91097, 0.82885, 0.45287, 0.86997, . 0.09227, 0.03589, 30.39627, 0.98255, 0.89957, 0.52831, 0.94112, . 0.09329, 0.03677, 31.76959, 1.05379, 0.96998, 0.60319, 1.01195, . 0.09428, 0.03761, 33.08720, 1.12231, 1.03771, 0.67513, 1.08008, . 0.09523, 0.03842, 34.37549, 1.19032, 1.10497, 0.74639, 1.14772, . 0.09616, 0.03921, 35.62160, 1.25664, 1.17057, 0.81579, 1.21368, . 0.09705, 0.03997, 36.83032, 1.32177, 1.23501, 0.88385, 1.27846, . 0.09792, 0.04072, 38.00208, 1.38558, 1.29817, 0.95045, 1.34195, . 0.09876, 0.04144, 39.13869, 1.44824, 1.36019, 1.01577, 1.40429 / DATA ((F(I,11,M),I=1,5),F(7,11,M),F(6,11,M),M=1,19) / . 0.08212, 0.02662, 11.79638, 0.09731, 0.02205, 0.00000, 0.05968, . 0.08410, 0.02830, 13.28476, 0.18266, 0.10557, 0.00000, 0.14413, . 0.08592, 0.02986, 14.78149, 0.26398, 0.18525, 0.00000, 0.22464, . 0.08761, 0.03132, 16.26578, 0.34071, 0.26048, 0.00000, 0.30062, . 0.08918, 0.03268, 17.72635, 0.41523, 0.33363, 0.00207, 0.37447, . 0.09067, 0.03397, 19.15871, 0.48798, 0.40510, 0.03445, 0.44658, . 0.09208, 0.03519, 20.55453, 0.55828, 0.47422, 0.11742, 0.51629, . 0.09342, 0.03636, 21.91643, 0.62719, 0.54203, 0.19101, 0.58466, . 0.09470, 0.03748, 23.24315, 0.69494, 0.60873, 0.26247, 0.65189, . 0.09593, 0.03855, 24.53601, 0.76170, 0.67450, 0.33318, 0.71816, . 0.09710, 0.03958, 25.78419, 0.82643, 0.73831, 0.40147, 0.78243, . 0.09823, 0.04057, 26.99084, 0.88952, 0.80052, 0.46791, 0.84508, . 0.09932, 0.04152, 28.17056, 0.95219, 0.86235, 0.53375, 0.90733, . 0.10037, 0.04244, 29.29681, 1.01233, 0.92169, 0.59688, 0.96708, . 0.10138, 0.04333, 30.39546, 1.07190, 0.98051, 0.65928, 1.02628, . 0.10236, 0.04419, 31.45509, 1.12988, 1.03776, 0.71994, 1.08389, . 0.10331, 0.04503, 32.47900, 1.18672, 1.09390, 0.77934, 1.14039, . 0.10424, 0.04584, 33.46780, 1.24233, 1.14885, 0.83739, 1.19567, . 0.10513, 0.04662, 34.42484, 1.29684, 1.20272, 0.89422, 1.24986 / DATA ((F(I,12,M),I=1,5),F(7,12,M),F(6,12,M),M=1,19) / . 0.09937, 0.04033, 8.40338, 0.11220, 0.01679, 0.00000, 0.06450, . 0.10178, 0.04265, 9.49333, 0.17239, 0.07500, 0.00000, 0.12371, . 0.10399, 0.04478, 10.56401, 0.23013, 0.13097, 0.00000, 0.18057, . 0.10606, 0.04676, 11.60128, 0.28460, 0.18386, 0.00000, 0.23426, . 0.10798, 0.04860, 12.60207, 0.33713, 0.23494, 0.00146, 0.28607, . 0.10979, 0.05033, 13.56600, 0.38800, 0.28450, 0.02391, 0.33629, . 0.11152, 0.05196, 14.48812, 0.43682, 0.33210, 0.08132, 0.38451, . 0.11315, 0.05351, 15.37353, 0.48430, 0.37845, 0.13186, 0.43143, . 0.11472, 0.05499, 16.22350, 0.53060, 0.42370, 0.18056, 0.47720, . 0.11622, 0.05639, 17.04082, 0.57588, 0.46800, 0.22843, 0.52200, . 0.11765, 0.05774, 17.81773, 0.61948, 0.51067, 0.27435, 0.56514, . 0.11903, 0.05903, 18.55838, 0.66166, 0.55199, 0.31874, 0.60689, . 0.12036, 0.06027, 19.27530, 0.70327, 0.59279, 0.36244, 0.64810, . 0.12164, 0.06145, 19.94875, 0.74292, 0.63167, 0.40406, 0.68737, . 0.12287, 0.06260, 20.59947, 0.78195, 0.66997, 0.44496, 0.72603, . 0.12407, 0.06370, 21.21921, 0.81968, 0.70701, 0.48447, 0.76342, . 0.12522, 0.06476, 21.81142, 0.85643, 0.74311, 0.52293, 0.79985, . 0.12634, 0.06579, 22.37688, 0.89218, 0.77824, 0.56030, 0.83529, . 0.12743, 0.06678, 22.91855, 0.92700, 0.81247, 0.59668, 0.86982 / DATA ((F(I,13,M),I=1,5),F(7,13,M),F(6,13,M),M=1,19) / . 0.11969, 0.06086, 6.01678, 0.13217, 0.01256, 0.00000, 0.07236, . 0.12274, 0.06394, 6.80673, 0.17495, 0.05346, 0.00001, 0.11421, . 0.12554, 0.06674, 7.55903, 0.21566, 0.09253, 0.00001, 0.15412, . 0.12815, 0.06931, 8.26577, 0.25389, 0.12930, 0.00001, 0.19162, . 0.13057, 0.07169, 8.93096, 0.29035, 0.16447, 0.00103, 0.22745, . 0.13287, 0.07390, 9.55610, 0.32530, 0.19826, 0.01635, 0.26182, . 0.13503, 0.07598, 10.14125, 0.35852, 0.23044, 0.05543, 0.29453, . 0.13709, 0.07793, 10.69099, 0.39049, 0.26145, 0.08947, 0.32602, . 0.13904, 0.07978, 11.20920, 0.42135, 0.29144, 0.12198, 0.35644, . 0.14092, 0.08154, 11.69917, 0.45125, 0.32053, 0.15366, 0.38594, . 0.14272, 0.08320, 12.15483, 0.47977, 0.34832, 0.18381, 0.41411, . 0.14444, 0.08478, 12.58193, 0.50712, 0.37498, 0.21270, 0.44111, . 0.14609, 0.08630, 12.99009, 0.53385, 0.40108, 0.24090, 0.46753, . 0.14769, 0.08774, 13.36432, 0.55911, 0.42576, 0.26757, 0.49250, . 0.14922, 0.08912, 13.72178, 0.58377, 0.44988, 0.29358, 0.51690, . 0.15070, 0.09045, 14.05703, 0.60743, 0.47303, 0.31853, 0.54030, . 0.15213, 0.09172, 14.37202, 0.63029, 0.49543, 0.34263, 0.56293, . 0.15352, 0.09295, 14.66762, 0.65235, 0.51705, 0.36588, 0.58477, . 0.15486, 0.09412, 14.94680, 0.67368, 0.53797, 0.38836, 0.60590 / DATA ((F(I,14,M),I=1,5),F(7,14,M),F(6,14,M),M=1,19) / . 0.13360, 0.07717, 4.96637, 0.14572, 0.01044, 0.00000, 0.07808, . 0.13717, 0.08070, 5.61285, 0.18045, 0.04354, 0.00000, 0.11201, . 0.14045, 0.08390, 6.21550, 0.21329, 0.07499, 0.00001, 0.14415, . 0.14348, 0.08683, 6.76943, 0.24395, 0.10448, 0.00001, 0.17424, . 0.14632, 0.08949, 7.28060, 0.27299, 0.13247, 0.00083, 0.20276, . 0.14899, 0.09198, 7.75583, 0.30059, 0.15917, 0.01294, 0.22991, . 0.15149, 0.09428, 8.19121, 0.32666, 0.18444, 0.04382, 0.25559, . 0.15387, 0.09645, 8.59418, 0.35156, 0.20863, 0.07052, 0.28014, . 0.15615, 0.09848, 8.96859, 0.37542, 0.23185, 0.09585, 0.30368, . 0.15832, 0.10041, 9.31812, 0.39836, 0.25423, 0.12037, 0.32635, . 0.16039, 0.10222, 9.63930, 0.42012, 0.27548, 0.14358, 0.34785, . 0.16237, 0.10394, 9.93465, 0.44084, 0.29575, 0.16569, 0.36835, . 0.16427, 0.10558, 10.21377, 0.46097, 0.31547, 0.18716, 0.38828, . 0.16608, 0.10714, 10.46704, 0.47990, 0.33404, 0.20739, 0.40703, . 0.16783, 0.10862, 10.70598, 0.49827, 0.35207, 0.22700, 0.42523, . 0.16952, 0.11004, 10.92593, 0.51577, 0.36928, 0.24569, 0.44259, . 0.17114, 0.11139, 11.13066, 0.53259, 0.38584, 0.26366, 0.45928, . 0.17271, 0.11269, 11.32094, 0.54875, 0.40175, 0.28093, 0.47531, . 0.17422, 0.11393, 11.49819, 0.56428, 0.41707, 0.29754, 0.49074 / DATA ((F(I,15,M),I=1,5),F(7,15,M),F(6,15,M),M=1,19) / . 0.14481, 0.09112, 4.34421, 0.15583, 0.00913, 0.00000, 0.08248, . 0.14886, 0.09496, 4.90003, 0.18562, 0.03763, 0.00000, 0.11164, . 0.15256, 0.09841, 5.40908, 0.21359, 0.06452, 0.00001, 0.13906, . 0.15597, 0.10154, 5.86901, 0.23955, 0.08961, 0.00001, 0.16460, . 0.15917, 0.10438, 6.28708, 0.26398, 0.11328, 0.00071, 0.18866, . 0.16216, 0.10702, 6.67062, 0.28704, 0.13572, 0.01090, 0.21141, . 0.16496, 0.10945, 7.01696, 0.30870, 0.15685, 0.03685, 0.23281, . 0.16762, 0.11173, 7.33347, 0.32926, 0.17696, 0.05916, 0.25315, . 0.17015, 0.11385, 7.62410, 0.34883, 0.19615, 0.08021, 0.27254, . 0.17257, 0.11586, 7.89245, 0.36755, 0.21455, 0.10048, 0.29110, . 0.17486, 0.11774, 8.13579, 0.38522, 0.23194, 0.11959, 0.30862, . 0.17705, 0.11951, 8.35669, 0.40194, 0.24844, 0.13771, 0.32524, . 0.17914, 0.12120, 8.56359, 0.41810, 0.26442, 0.15523, 0.34132, . 0.18114, 0.12280, 8.74839, 0.43323, 0.27940, 0.17166, 0.35637, . 0.18306, 0.12432, 8.92116, 0.44784, 0.29389, 0.18753, 0.37092, . 0.18491, 0.12576, 9.07801, 0.46169, 0.30765, 0.20259, 0.38473, . 0.18669, 0.12713, 9.22233, 0.47495, 0.32084, 0.21702, 0.39795, . 0.18839, 0.12844, 9.35481, 0.48762, 0.33345, 0.23083, 0.41059, . 0.19004, 0.12969, 9.47666, 0.49974, 0.34555, 0.24406, 0.42270 / DATA ((F(I,16,M),I=1,5),F(7,16,M),F(6,16,M),M=1,19) / . 0.15457, 0.10347, 3.92223, 0.16365, 0.00821, 0.00001, 0.08593, . 0.15905, 0.10751, 4.41288, 0.18990, 0.03351, 0.00001, 0.11172, . 0.16313, 0.11112, 4.85546, 0.21438, 0.05725, 0.00001, 0.13583, . 0.16691, 0.11437, 5.25018, 0.23700, 0.07930, 0.00001, 0.15818, . 0.17041, 0.11730, 5.60396, 0.25816, 0.10002, 0.00065, 0.17912, . 0.17368, 0.12003, 5.92422, 0.27802, 0.11952, 0.00952, 0.19880, . 0.17674, 0.12253, 6.20984, 0.29657, 0.13782, 0.03209, 0.21723, . 0.17963, 0.12485, 6.46805, 0.31408, 0.15515, 0.05141, 0.23465, . 0.18238, 0.12701, 6.70247, 0.33067, 0.17160, 0.06954, 0.25118, . 0.18499, 0.12904, 6.91662, 0.34646, 0.18730, 0.08694, 0.26693, . 0.18748, 0.13094, 7.10843, 0.36128, 0.20208, 0.10327, 0.28173, . 0.18983, 0.13272, 7.28127, 0.37525, 0.21606, 0.11872, 0.29571, . 0.19209, 0.13441, 7.44193, 0.38871, 0.22954, 0.13359, 0.30918, . 0.19425, 0.13599, 7.58188, 0.40121, 0.24210, 0.14745, 0.32171, . 0.19632, 0.13750, 7.71188, 0.41325, 0.25420, 0.16081, 0.33378, . 0.19832, 0.13891, 7.82884, 0.42463, 0.26568, 0.17348, 0.34521, . 0.20022, 0.14027, 7.93523, 0.43547, 0.27664, 0.18556, 0.35611, . 0.20204, 0.14156, 8.03169, 0.44577, 0.28708, 0.19707, 0.36648, . 0.20379, 0.14279, 8.11898, 0.45560, 0.29706, 0.20807, 0.37639 / DATA ((F(I,17,M),I=1,5),F(7,17,M),F(6,17,M),M=1,19) / . 0.19468, 0.15140, 2.88332, 0.18428, 0.00575, 0.00000, 0.09502, . 0.20087, 0.15560, 3.19521, 0.20065, 0.02292, 0.00002, 0.11179, . 0.20648, 0.15927, 3.46067, 0.21553, 0.03865, 0.00001, 0.12710, . 0.21152, 0.16249, 3.68406, 0.22897, 0.05300, 0.00001, 0.14101, . 0.21612, 0.16538, 3.87466, 0.24124, 0.06619, 0.00041, 0.15373, . 0.22044, 0.16792, 4.03739, 0.25247, 0.07836, 0.00600, 0.16544, . 0.22443, 0.17023, 4.17579, 0.26274, 0.08958, 0.02013, 0.17618, . 0.22812, 0.17234, 4.29385, 0.27222, 0.10001, 0.03201, 0.18614, . 0.23159, 0.17427, 4.39546, 0.28101, 0.10973, 0.04296, 0.19539, . 0.23485, 0.17605, 4.48373, 0.28920, 0.11885, 0.05332, 0.20404, . 0.23789, 0.17767, 4.55793, 0.29673, 0.12732, 0.06291, 0.21205, . 0.24078, 0.17916, 4.62051, 0.30368, 0.13518, 0.07185, 0.21945, . 0.24353, 0.18054, 4.67605, 0.31024, 0.14264, 0.08034, 0.22647, . 0.24607, 0.18184, 4.71944, 0.31622, 0.14950, 0.08816, 0.23289, . 0.24851, 0.18303, 4.75732, 0.32186, 0.15603, 0.09558, 0.23898, . 0.25085, 0.18412, 4.78784, 0.32707, 0.16212, 0.10251, 0.24463, . 0.25307, 0.18514, 4.81288, 0.33195, 0.16785, 0.10906, 0.24993, . 0.25518, 0.18610, 4.83287, 0.33650, 0.17323, 0.11524, 0.25491, . 0.25720, 0.18699, 4.84841, 0.34075, 0.17831, 0.12106, 0.25957 / DATA ((F(I,18,M),I=1,5),F(7,18,M),F(6,18,M),M=1,19) / . 0.26333, 0.21303, 2.14724, 0.18731, 0.00376,-0.00008, 0.09550, . 0.27129, 0.21594, 2.30769, 0.19498, 0.01487,-0.00011, 0.10488, . 0.27832, 0.21827, 2.43192, 0.20159, 0.02470,-0.00008, 0.11312, . 0.28445, 0.22025, 2.52540, 0.20727, 0.03337,-0.00017, 0.12031, . 0.28986, 0.22191, 2.59691, 0.21223, 0.04112, 0.00014, 0.12665, . 0.29482, 0.22325, 2.65129, 0.21651, 0.04807, 0.00340, 0.13228, . 0.29933, 0.22430, 2.69066, 0.22024, 0.05431, 0.01153, 0.13726, . 0.30337, 0.22524, 2.71857, 0.22351, 0.05996, 0.01824, 0.14170, . 0.30705, 0.22603, 2.73789, 0.22639, 0.06507, 0.02428, 0.14571, . 0.31046, 0.22668, 2.75062, 0.22894, 0.06976, 0.02985, 0.14933, . 0.31362, 0.22716, 2.75623, 0.23113, 0.07407, 0.03492, 0.15257, . 0.31649, 0.22756, 2.75634, 0.23300, 0.07795, 0.03954, 0.15544, . 0.31918, 0.22792, 2.75377, 0.23469, 0.08155, 0.04386, 0.15809, . 0.32161, 0.22816, 2.74597, 0.23610, 0.08476, 0.04780, 0.16040, . 0.32390, 0.22835, 2.73643, 0.23734, 0.08777, 0.05146, 0.16253, . 0.32601, 0.22848, 2.72413, 0.23838, 0.09052, 0.05480, 0.16443, . 0.32800, 0.22853, 2.71000, 0.23928, 0.09306, 0.05791, 0.16614, . 0.32987, 0.22851, 2.69426, 0.24005, 0.09539, 0.06080, 0.16768, . 0.33159, 0.22848, 2.67729, 0.24068, 0.09754, 0.06347, 0.16907 / DATA ((F(I,19,M),I=1,5),F(7,19,M),F(6,19,M),M=1,19) / . 0.32682, 0.25108, 1.80252, 0.17241, 0.00290, 0.00002, 0.08765, . 0.33479, 0.25204, 1.88626, 0.17566, 0.01112,-0.00001, 0.09342, . 0.34170, 0.25253, 1.94279, 0.17825, 0.01823, 0.00005, 0.09825, . 0.34753, 0.25271, 1.97818, 0.18024, 0.02433, 0.00002, 0.10229, . 0.35257, 0.25272, 1.99859, 0.18177, 0.02968, 0.00017, 0.10575, . 0.35694, 0.25252, 2.00846, 0.18296, 0.03432, 0.00241, 0.10866, . 0.36072, 0.25225, 2.00898, 0.18380, 0.03841, 0.00799, 0.11113, . 0.36405, 0.25181, 2.00334, 0.18439, 0.04207, 0.01245, 0.11324, . 0.36705, 0.25123, 1.99317, 0.18477, 0.04533, 0.01644, 0.11506, . 0.36974, 0.25056, 1.97979, 0.18500, 0.04825, 0.02010, 0.11664, . 0.37204, 0.24990, 1.96293, 0.18502, 0.05087, 0.02331, 0.11794, . 0.37413, 0.24916, 1.94367, 0.18491, 0.05316, 0.02621, 0.11905, . 0.37603, 0.24840, 1.92379, 0.18472, 0.05526, 0.02889, 0.12002, . 0.37758, 0.24759, 1.90154, 0.18440, 0.05711, 0.03128, 0.12079, . 0.37903, 0.24677, 1.87920, 0.18402, 0.05879, 0.03347, 0.12144, . 0.38037, 0.24589, 1.85607, 0.18355, 0.06028, 0.03544, 0.12193, . 0.38152, 0.24501, 1.83263, 0.18302, 0.06162, 0.03725, 0.12234, . 0.38251, 0.24413, 1.80896, 0.18244, 0.06285, 0.03893, 0.12266, . 0.38337, 0.24326, 1.78537, 0.18182, 0.06397, 0.04046, 0.12291 / DATA ((F(I,20,M),I=1,5),F(7,20,M),F(6,20,M),M=1,19) / . 0.38521, 0.27498, 1.57483, 0.15180, 0.00233, 0.00003, 0.07710, . 0.39209, 0.27378, 1.61067, 0.15253, 0.00877, 0.00006, 0.08070, . 0.39750, 0.27247, 1.62698, 0.15286, 0.01420, 0.00006, 0.08356, . 0.40205, 0.27084, 1.62888, 0.15289, 0.01872, 0.00008, 0.08582, . 0.40570, 0.26925, 1.62174, 0.15262, 0.02265, 0.00016, 0.08764, . 0.40874, 0.26748, 1.60823, 0.15222, 0.02596, 0.00187, 0.08911, . 0.41126, 0.26573, 1.58941, 0.15157, 0.02888, 0.00586, 0.09029, . 0.41327, 0.26396, 1.56756, 0.15084, 0.03142, 0.00907, 0.09117, . 0.41488, 0.26222, 1.54384, 0.15002, 0.03361, 0.01190, 0.09185, . 0.41619, 0.26051, 1.51909, 0.14914, 0.03552, 0.01446, 0.09238, . 0.41725, 0.25873, 1.49296, 0.14821, 0.03720, 0.01670, 0.09278, . 0.41805, 0.25695, 1.46626, 0.14720, 0.03869, 0.01869, 0.09300, . 0.41871, 0.25521, 1.44012, 0.14619, 0.04003, 0.02050, 0.09315, . 0.41912, 0.25348, 1.41325, 0.14512, 0.04118, 0.02208, 0.09319, . 0.41941, 0.25177, 1.38712, 0.14404, 0.04221, 0.02351, 0.09317, . 0.41956, 0.25005, 1.36114, 0.14292, 0.04310, 0.02480, 0.09307, . 0.41956, 0.24840, 1.33572, 0.14182, 0.04389, 0.02595, 0.09292, . 0.41943, 0.24682, 1.31086, 0.14072, 0.04459, 0.02699, 0.09273, . 0.41924, 0.24521, 1.28659, 0.13963, 0.04520, 0.02793, 0.09248 / DATA ((F(I,21,M),I=1,5),F(7,21,M),F(6,21,M),M=1,19) / . 0.43737, 0.28894, 1.39940, 0.13011, 0.00190, 0.00005, 0.06604, . 0.44204, 0.28570, 1.40269, 0.12941, 0.00700, 0.00004, 0.06825, . 0.44547, 0.28246, 1.39303, 0.12852, 0.01124, 0.00006, 0.06992, . 0.44795, 0.27929, 1.37438, 0.12742, 0.01480, 0.00009, 0.07111, . 0.44957, 0.27626, 1.35067, 0.12624, 0.01773, 0.00018, 0.07199, . 0.45082, 0.27316, 1.32393, 0.12498, 0.02015, 0.00137, 0.07262, . 0.45142, 0.27020, 1.29473, 0.12366, 0.02227, 0.00442, 0.07302, . 0.45172, 0.26723, 1.26473, 0.12233, 0.02407, 0.00684, 0.07324, . 0.45175, 0.26436, 1.23462, 0.12095, 0.02563, 0.00893, 0.07333, . 0.45154, 0.26160, 1.20490, 0.11957, 0.02700, 0.01077, 0.07333, . 0.45102, 0.25891, 1.17522, 0.11819, 0.02815, 0.01235, 0.07321, . 0.45028, 0.25630, 1.14602, 0.11683, 0.02913, 0.01373, 0.07299, . 0.44945, 0.25378, 1.11806, 0.11551, 0.03000, 0.01498, 0.07274, . 0.44851, 0.25123, 1.09030, 0.11417, 0.03070, 0.01609, 0.07243, . 0.44750, 0.24877, 1.06380, 0.11285, 0.03133, 0.01709, 0.07211, . 0.44640, 0.24640, 1.03812, 0.11152, 0.03187, 0.01796, 0.07176, . 0.44517, 0.24411, 1.01336, 0.11023, 0.03235, 0.01873, 0.07135, . 0.44385, 0.24192, 0.98948, 0.10896, 0.03277, 0.01942, 0.07089, . 0.44249, 0.23974, 0.96651, 0.10773, 0.03312, 0.02005, 0.07044 / DATA ((F(I,22,M),I=1,5),F(7,22,M),F(6,22,M),M=1,19) / . 0.49251, 0.29604, 1.21998, 0.10451, 0.00147, 0.00008, 0.05303, . 0.49360, 0.29045, 1.19620, 0.10293, 0.00548, 0.00005, 0.05421, . 0.49354, 0.28535, 1.16590, 0.10129, 0.00871, 0.00005, 0.05502, . 0.49301, 0.28021, 1.13179, 0.09962, 0.01128, 0.00013, 0.05548, . 0.49179, 0.27552, 1.09646, 0.09797, 0.01336, 0.00017, 0.05570, . 0.49033, 0.27095, 1.06102, 0.09627, 0.01514, 0.00106, 0.05577, . 0.48830, 0.26669, 1.02571, 0.09467, 0.01656, 0.00329, 0.05569, . 0.48614, 0.26255, 0.99136, 0.09307, 0.01778, 0.00496, 0.05548, . 0.48385, 0.25857, 0.95828, 0.09149, 0.01882, 0.00640, 0.05520, . 0.48145, 0.25478, 0.92670, 0.08994, 0.01973, 0.00769, 0.05486, . 0.47886, 0.25117, 0.89627, 0.08844, 0.02045, 0.00882, 0.05448, . 0.47624, 0.24767, 0.86710, 0.08697, 0.02104, 0.00976, 0.05407, . 0.47364, 0.24432, 0.83965, 0.08557, 0.02155, 0.01058, 0.05364, . 0.47088, 0.24103, 0.81318, 0.08418, 0.02195, 0.01134, 0.05317, . 0.46810, 0.23793, 0.78823, 0.08284, 0.02231, 0.01199, 0.05270, . 0.46523, 0.23499, 0.76441, 0.08155, 0.02261, 0.01251, 0.05221, . 0.46241, 0.23212, 0.74179, 0.08029, 0.02285, 0.01298, 0.05172, . 0.45964, 0.22930, 0.72027, 0.07906, 0.02305, 0.01340, 0.05122, . 0.45690, 0.22656, 0.69982, 0.07788, 0.02321, 0.01378, 0.05070 / DATA ((F(I,23,M),I=1,5),F(7,23,M),F(6,23,M),M=1,19) / . 0.53565, 0.29457, 1.06752, 0.08205, 0.00127, 0.00014, 0.04173, . 0.53256, 0.28702, 1.02661, 0.08022, 0.00432, 0.00014, 0.04233, . 0.52889, 0.28011, 0.98412, 0.07836, 0.00677, 0.00009, 0.04266, . 0.52481, 0.27360, 0.94166, 0.07661, 0.00871, 0.00014, 0.04268, . 0.52045, 0.26755, 0.90066, 0.07487, 0.01023, 0.00017, 0.04262, . 0.51596, 0.26194, 0.86167, 0.07315, 0.01155, 0.00083, 0.04244, . 0.51124, 0.25668, 0.82432, 0.07157, 0.01251, 0.00251, 0.04207, . 0.50666, 0.25160, 0.78911, 0.06998, 0.01335, 0.00371, 0.04170, . 0.50208, 0.24676, 0.75608, 0.06845, 0.01405, 0.00477, 0.04132, . 0.49751, 0.24222, 0.72520, 0.06699, 0.01463, 0.00569, 0.04090, . 0.49287, 0.23797, 0.69608, 0.06559, 0.01511, 0.00638, 0.04040, . 0.48832, 0.23380, 0.66870, 0.06422, 0.01549, 0.00706, 0.03994, . 0.48392, 0.22983, 0.64325, 0.06291, 0.01582, 0.00768, 0.03950, . 0.47940, 0.22611, 0.61913, 0.06165, 0.01606, 0.00813, 0.03902, . 0.47503, 0.22254, 0.59660, 0.06046, 0.01625, 0.00854, 0.03852, . 0.47074, 0.21907, 0.57532, 0.05933, 0.01640, 0.00890, 0.03800, . 0.46652, 0.21577, 0.55535, 0.05823, 0.01651, 0.00923, 0.03749, . 0.46236, 0.21264, 0.53656, 0.05716, 0.01660, 0.00953, 0.03699, . 0.45829, 0.20962, 0.51886, 0.05614, 0.01665, 0.00979, 0.03650 / DATA ((F(I,24,M),I=1,5),F(7,24,M),F(6,24,M),M=1,19) / . 0.56667, 0.28691, 0.93372, 0.06327, 0.00094, 0.00002, 0.03212, . 0.55919, 0.27778, 0.88238, 0.06147, 0.00339, 0.00001, 0.03244, . 0.55158, 0.26949, 0.83316, 0.05969, 0.00528, 0.00001, 0.03258, . 0.54405, 0.26182, 0.78684, 0.05805, 0.00675, 0.00001, 0.03240, . 0.53662, 0.25472, 0.74383, 0.05641, 0.00795, 0.00006, 0.03223, . 0.52935, 0.24822, 0.70417, 0.05488, 0.00883, 0.00063, 0.03195, . 0.52215, 0.24217, 0.66729, 0.05339, 0.00955, 0.00181, 0.03161, . 0.51517, 0.23642, 0.63320, 0.05198, 0.01015, 0.00279, 0.03119, . 0.50831, 0.23105, 0.60180, 0.05065, 0.01065, 0.00359, 0.03075, . 0.50163, 0.22600, 0.57289, 0.04939, 0.01105, 0.00425, 0.03031, . 0.49515, 0.22120, 0.54601, 0.04818, 0.01132, 0.00480, 0.02987, . 0.48880, 0.21671, 0.52111, 0.04701, 0.01154, 0.00526, 0.02943, . 0.48271, 0.21248, 0.49822, 0.04590, 0.01173, 0.00565, 0.02900, . 0.47677, 0.20831, 0.47692, 0.04485, 0.01191, 0.00595, 0.02849, . 0.47108, 0.20436, 0.45715, 0.04384, 0.01203, 0.00623, 0.02802, . 0.46557, 0.20058, 0.43858, 0.04287, 0.01208, 0.00649, 0.02760, . 0.46017, 0.19701, 0.42125, 0.04193, 0.01213, 0.00669, 0.02717, . 0.45488, 0.19362, 0.40505, 0.04104, 0.01219, 0.00684, 0.02672, . 0.44971, 0.19040, 0.38995, 0.04018, 0.01221, 0.00698, 0.02630 / DATA ((F(I,25,M),I=1,5),F(7,25,M),F(6,25,M),M=1,19) / . 0.58603, 0.27450, 0.81460, 0.04797, 0.00070,-0.00003, 0.02439, . 0.57422, 0.26421, 0.75768, 0.04637, 0.00267, 0.00000, 0.02452, . 0.56283, 0.25493, 0.70575, 0.04484, 0.00412, 0.00013, 0.02455, . 0.55199, 0.24647, 0.65847, 0.04342, 0.00519, 0.00012, 0.02432, . 0.54166, 0.23880, 0.61574, 0.04199, 0.00604, 0.00007, 0.02414, . 0.53174, 0.23162, 0.57734, 0.04073, 0.00669, 0.00046, 0.02381, . 0.52210, 0.22513, 0.54221, 0.03949, 0.00722, 0.00141, 0.02344, . 0.51288, 0.21904, 0.51031, 0.03832, 0.00764, 0.00207, 0.02303, . 0.50416, 0.21328, 0.48142, 0.03720, 0.00797, 0.00264, 0.02262, . 0.49583, 0.20788, 0.45520, 0.03613, 0.00823, 0.00313, 0.02222, . 0.48761, 0.20289, 0.43115, 0.03512, 0.00846, 0.00346, 0.02183, . 0.47981, 0.19809, 0.40900, 0.03417, 0.00861, 0.00379, 0.02144, . 0.47240, 0.19356, 0.38876, 0.03328, 0.00871, 0.00408, 0.02105, . 0.46511, 0.18935, 0.37002, 0.03242, 0.00877, 0.00430, 0.02063, . 0.45817, 0.18536, 0.35284, 0.03161, 0.00882, 0.00449, 0.02024, . 0.45149, 0.18152, 0.33697, 0.03083, 0.00888, 0.00464, 0.01986, . 0.44501, 0.17789, 0.32226, 0.03010, 0.00888, 0.00478, 0.01948, . 0.43873, 0.17445, 0.30861, 0.02941, 0.00885, 0.00491, 0.01911, . 0.43269, 0.17115, 0.29590, 0.02875, 0.00883, 0.00502, 0.01876 / DATA ((F(I,26,M),I=1,5),F(7,26,M),F(6,26,M),M=1,19) / . 0.59421, 0.25900, 0.70797, 0.03584, 0.00053, 0.00007, 0.01821, . 0.57849, 0.24775, 0.64885, 0.03451, 0.00203, 0.00005, 0.01832, . 0.56376, 0.23772, 0.59664, 0.03321, 0.00321, 0.00010, 0.01829, . 0.54985, 0.22883, 0.55044, 0.03205, 0.00402, 0.00004, 0.01807, . 0.53688, 0.22069, 0.50954, 0.03086, 0.00469, 0.00008, 0.01790, . 0.52484, 0.21308, 0.47332, 0.02985, 0.00522, 0.00039, 0.01748, . 0.51319, 0.20631, 0.44097, 0.02883, 0.00557, 0.00115, 0.01719, . 0.50213, 0.19998, 0.41203, 0.02790, 0.00581, 0.00159, 0.01687, . 0.49171, 0.19408, 0.38591, 0.02699, 0.00605, 0.00199, 0.01655, . 0.48183, 0.18860, 0.36237, 0.02612, 0.00625, 0.00237, 0.01623, . 0.47228, 0.18354, 0.34115, 0.02538, 0.00631, 0.00263, 0.01587, . 0.46325, 0.17872, 0.32177, 0.02466, 0.00635, 0.00287, 0.01553, . 0.45471, 0.17419, 0.30419, 0.02397, 0.00639, 0.00307, 0.01521, . 0.44634, 0.17002, 0.28811, 0.02328, 0.00643, 0.00316, 0.01491, . 0.43840, 0.16608, 0.27344, 0.02263, 0.00647, 0.00326, 0.01460, . 0.43079, 0.16232, 0.25995, 0.02200, 0.00651, 0.00338, 0.01428, . 0.42355, 0.15871, 0.24755, 0.02143, 0.00650, 0.00348, 0.01397, . 0.41662, 0.15524, 0.23611, 0.02092, 0.00644, 0.00354, 0.01367, . 0.40999, 0.15194, 0.22556, 0.02039, 0.00642, 0.00360, 0.01338 / DATA ((F(I,27,M),I=1,5),F(7,27,M),F(6,27,M),M=1,19) / . 0.59256, 0.24099, 0.61218, 0.02636, 0.00042, 0.00010, 0.01341, . 0.57335, 0.22916, 0.55331, 0.02533, 0.00154, 0.00013, 0.01350, . 0.55562, 0.21877, 0.50277, 0.02426, 0.00251, 0.00012, 0.01351, . 0.53907, 0.20970, 0.45875, 0.02335, 0.00310, 0.00016, 0.01327, . 0.52385, 0.20133, 0.42063, 0.02240, 0.00367, 0.00005, 0.01312, . 0.50990, 0.19359, 0.38733, 0.02154, 0.00404, 0.00036, 0.01290, . 0.49644, 0.18681, 0.35818, 0.02084, 0.00427, 0.00085, 0.01256, . 0.48402, 0.18042, 0.33210, 0.02006, 0.00451, 0.00121, 0.01230, . 0.47225, 0.17456, 0.30890, 0.01936, 0.00465, 0.00148, 0.01203, . 0.46108, 0.16922, 0.28825, 0.01874, 0.00472, 0.00170, 0.01175, . 0.45042, 0.16431, 0.26967, 0.01811, 0.00482, 0.00195, 0.01147, . 0.44044, 0.15958, 0.25295, 0.01755, 0.00483, 0.00211, 0.01119, . 0.43107, 0.15512, 0.23791, 0.01702, 0.00481, 0.00222, 0.01094, . 0.42209, 0.15090, 0.22429, 0.01648, 0.00488, 0.00230, 0.01069, . 0.41358, 0.14696, 0.21191, 0.01598, 0.00490, 0.00238, 0.01046, . 0.40545, 0.14325, 0.20055, 0.01552, 0.00484, 0.00246, 0.01023, . 0.39767, 0.13974, 0.19020, 0.01511, 0.00478, 0.00251, 0.00998, . 0.39020, 0.13641, 0.18073, 0.01473, 0.00474, 0.00254, 0.00973, . 0.38308, 0.13327, 0.17205, 0.01433, 0.00469, 0.00259, 0.00952 / DATA ((F(I,28,M),I=1,5),F(7,28,M),F(6,28,M),M=1,19) / . 0.58228, 0.22134, 0.52642, 0.01899, 0.00045, 0.00005, 0.00981, . 0.55966, 0.20958, 0.46962, 0.01825, 0.00131, 0.00010, 0.00984, . 0.53960, 0.19895, 0.42165, 0.01748, 0.00200, 0.00002, 0.00980, . 0.52090, 0.18984, 0.38100, 0.01675, 0.00246, 0.00008, 0.00973, . 0.50379, 0.18163, 0.34605, 0.01606, 0.00285, 0.00010, 0.00956, . 0.48833, 0.17405, 0.31610, 0.01549, 0.00306, 0.00029, 0.00926, . 0.47363, 0.16732, 0.28976, 0.01484, 0.00330, 0.00062, 0.00911, . 0.45986, 0.16125, 0.26694, 0.01432, 0.00340, 0.00092, 0.00886, . 0.44710, 0.15554, 0.24673, 0.01380, 0.00349, 0.00114, 0.00864, . 0.43525, 0.15019, 0.22876, 0.01330, 0.00355, 0.00129, 0.00844, . 0.42407, 0.14521, 0.21278, 0.01289, 0.00354, 0.00137, 0.00820, . 0.41342, 0.14068, 0.19858, 0.01245, 0.00354, 0.00147, 0.00801, . 0.40342, 0.13649, 0.18593, 0.01202, 0.00355, 0.00157, 0.00783, . 0.39402, 0.13243, 0.17450, 0.01160, 0.00356, 0.00166, 0.00767, . 0.38513, 0.12867, 0.16416, 0.01121, 0.00357, 0.00173, 0.00749, . 0.37664, 0.12515, 0.15473, 0.01086, 0.00358, 0.00180, 0.00727, . 0.36860, 0.12183, 0.14620, 0.01053, 0.00355, 0.00185, 0.00706, . 0.36097, 0.11868, 0.13846, 0.01022, 0.00351, 0.00189, 0.00688, . 0.35358, 0.11576, 0.13137, 0.00994, 0.00347, 0.00193, 0.00672 / DATA ((F(I,29,M),I=1,5),F(7,29,M),F(6,29,M),M=1,19) / . 0.56425, 0.20104, 0.44970, 0.01354, 0.00035, 0.00014, 0.00699, . 0.53912, 0.18936, 0.39588, 0.01300, 0.00107, 0.00008, 0.00702, . 0.51680, 0.17910, 0.35179, 0.01239, 0.00161, 0.00013, 0.00712, . 0.49656, 0.17007, 0.31450, 0.01192, 0.00188, 0.00012, 0.00699, . 0.47821, 0.16205, 0.28332, 0.01143, 0.00213, 0.00009, 0.00684, . 0.46145, 0.15484, 0.25651, 0.01090, 0.00239, 0.00027, 0.00672, . 0.44595, 0.14828, 0.23354, 0.01044, 0.00255, 0.00051, 0.00657, . 0.43155, 0.14232, 0.21342, 0.01004, 0.00262, 0.00076, 0.00641, . 0.41825, 0.13681, 0.19597, 0.00964, 0.00266, 0.00090, 0.00627, . 0.40590, 0.13173, 0.18078, 0.00927, 0.00269, 0.00098, 0.00611, . 0.39419, 0.12706, 0.16741, 0.00899, 0.00269, 0.00109, 0.00587, . 0.38315, 0.12279, 0.15547, 0.00867, 0.00269, 0.00118, 0.00572, . 0.37286, 0.11885, 0.14482, 0.00835, 0.00269, 0.00124, 0.00559, . 0.36336, 0.11506, 0.13522, 0.00802, 0.00266, 0.00130, 0.00544, . 0.35435, 0.11154, 0.12664, 0.00773, 0.00264, 0.00133, 0.00527, . 0.34570, 0.10825, 0.11895, 0.00748, 0.00265, 0.00135, 0.00509, . 0.33749, 0.10514, 0.11197, 0.00725, 0.00263, 0.00137, 0.00494, . 0.32970, 0.10220, 0.10562, 0.00705, 0.00257, 0.00138, 0.00483, . 0.32231, 0.09944, 0.09987, 0.00684, 0.00253, 0.00140, 0.00474 / DATA ((F(I,30,M),I=1,5),F(7,30,M),F(6,30,M),M=1,19) / . 0.53925, 0.18129, 0.38209, 0.00967, 0.00009,-0.00003, 0.00484, . 0.51252, 0.16974, 0.33223, 0.00921, 0.00067,-0.00012, 0.00498, . 0.48869, 0.15984, 0.29205, 0.00886, 0.00109,-0.00010, 0.00486, . 0.46755, 0.15101, 0.25845, 0.00845, 0.00129,-0.00011, 0.00493, . 0.44830, 0.14335, 0.23081, 0.00803, 0.00158,-0.00008, 0.00485, . 0.43082, 0.13653, 0.20758, 0.00772, 0.00172, 0.00004, 0.00468, . 0.41488, 0.13030, 0.18769, 0.00733, 0.00189, 0.00022, 0.00458, . 0.40020, 0.12457, 0.17050, 0.00705, 0.00188, 0.00041, 0.00449, . 0.38656, 0.11943, 0.15559, 0.00678, 0.00190, 0.00057, 0.00436, . 0.37387, 0.11476, 0.14264, 0.00653, 0.00195, 0.00070, 0.00422, . 0.36198, 0.11043, 0.13139, 0.00631, 0.00197, 0.00078, 0.00411, . 0.35113, 0.10637, 0.12140, 0.00600, 0.00199, 0.00082, 0.00402, . 0.34108, 0.10261, 0.11255, 0.00569, 0.00201, 0.00084, 0.00393, . 0.33130, 0.09918, 0.10475, 0.00553, 0.00198, 0.00087, 0.00380, . 0.32218, 0.09596, 0.09778, 0.00536, 0.00195, 0.00090, 0.00368, . 0.31362, 0.09291, 0.09152, 0.00517, 0.00192, 0.00095, 0.00357, . 0.30549, 0.09005, 0.08581, 0.00500, 0.00189, 0.00097, 0.00347, . 0.29775, 0.08738, 0.08059, 0.00485, 0.00184, 0.00096, 0.00338, . 0.29044, 0.08487, 0.07592, 0.00469, 0.00181, 0.00096, 0.00329 / DATA ((F(I,31,M),I=1,5),F(7,31,M),F(6,31,M),M=1,19) / . 0.50956, 0.16073, 0.32139, 0.00651, 0.00030, 0.00012, 0.00347, . 0.48147, 0.14981, 0.27630, 0.00628, 0.00069, 0.00014, 0.00355, . 0.45674, 0.14051, 0.24001, 0.00601, 0.00093, 0.00014, 0.00355, . 0.43481, 0.13235, 0.21078, 0.00573, 0.00118, 0.00007, 0.00352, . 0.41530, 0.12507, 0.18653, 0.00549, 0.00124, 0.00008, 0.00347, . 0.39793, 0.11861, 0.16646, 0.00520, 0.00137, 0.00016, 0.00334, . 0.38144, 0.11288, 0.14959, 0.00503, 0.00148, 0.00033, 0.00330, . 0.36673, 0.10763, 0.13506, 0.00480, 0.00148, 0.00041, 0.00317, . 0.35307, 0.10289, 0.12255, 0.00460, 0.00146, 0.00046, 0.00307, . 0.34038, 0.09857, 0.11176, 0.00442, 0.00143, 0.00053, 0.00301, . 0.32883, 0.09458, 0.10237, 0.00422, 0.00143, 0.00061, 0.00291, . 0.31783, 0.09093, 0.09410, 0.00408, 0.00147, 0.00068, 0.00284, . 0.30758, 0.08756, 0.08683, 0.00395, 0.00151, 0.00073, 0.00277, . 0.29820, 0.08432, 0.08044, 0.00380, 0.00148, 0.00070, 0.00269, . 0.28933, 0.08137, 0.07477, 0.00367, 0.00144, 0.00069, 0.00260, . 0.28082, 0.07870, 0.06971, 0.00357, 0.00140, 0.00070, 0.00246, . 0.27290, 0.07616, 0.06514, 0.00346, 0.00137, 0.00068, 0.00237, . 0.26550, 0.07374, 0.06100, 0.00334, 0.00134, 0.00064, 0.00232, . 0.25853, 0.07148, 0.05729, 0.00322, 0.00132, 0.00066, 0.00226 / DATA ((F(I,32,M),I=1,5),F(7,32,M),F(6,32,M),M=1,19) / . 0.47552, 0.14182, 0.26875, 0.00449, 0.00010,-0.00001, 0.00235, . 0.44681, 0.13155, 0.22819, 0.00432, 0.00043,-0.00004, 0.00242, . 0.42189, 0.12271, 0.19638, 0.00422, 0.00058,-0.00001, 0.00236, . 0.39992, 0.11500, 0.17102, 0.00398, 0.00081,-0.00006, 0.00238, . 0.38054, 0.10831, 0.15007, 0.00372, 0.00093,-0.00004, 0.00234, . 0.36285, 0.10241, 0.13295, 0.00362, 0.00097, 0.00003, 0.00229, . 0.34679, 0.09711, 0.11855, 0.00352, 0.00099, 0.00020, 0.00222, . 0.33221, 0.09234, 0.10642, 0.00331, 0.00107, 0.00028, 0.00218, . 0.31878, 0.08800, 0.09599, 0.00316, 0.00108, 0.00031, 0.00210, . 0.30640, 0.08405, 0.08702, 0.00306, 0.00104, 0.00032, 0.00203, . 0.29506, 0.08044, 0.07934, 0.00295, 0.00105, 0.00035, 0.00201, . 0.28462, 0.07711, 0.07265, 0.00283, 0.00104, 0.00037, 0.00193, . 0.27499, 0.07404, 0.06678, 0.00271, 0.00103, 0.00039, 0.00185, . 0.26590, 0.07120, 0.06161, 0.00260, 0.00101, 0.00044, 0.00178, . 0.25738, 0.06857, 0.05702, 0.00250, 0.00099, 0.00047, 0.00172, . 0.24931, 0.06615, 0.05292, 0.00242, 0.00096, 0.00045, 0.00167, . 0.24174, 0.06387, 0.04928, 0.00235, 0.00092, 0.00046, 0.00162, . 0.23462, 0.06173, 0.04603, 0.00230, 0.00089, 0.00048, 0.00158, . 0.22798, 0.05971, 0.04311, 0.00224, 0.00087, 0.00049, 0.00153 / DATA ((F(I,33,M),I=1,5),F(7,33,M),F(6,33,M),M=1,19) / . 0.43863, 0.12327, 0.22232, 0.00294, 0.00013, 0.00004, 0.00163, . 0.41024, 0.11375, 0.18686, 0.00279, 0.00035, 0.00008, 0.00168, . 0.38542, 0.10568, 0.15923, 0.00275, 0.00055, 0.00009, 0.00172, . 0.36340, 0.09875, 0.13722, 0.00265, 0.00068, 0.00004, 0.00168, . 0.34409, 0.09257, 0.11959, 0.00258, 0.00074,-0.00001, 0.00158, . 0.32710, 0.08725, 0.10512, 0.00240, 0.00078, 0.00003, 0.00164, . 0.31150, 0.08249, 0.09316, 0.00232, 0.00074, 0.00014, 0.00159, . 0.29748, 0.07809, 0.08303, 0.00225, 0.00074, 0.00019, 0.00152, . 0.28460, 0.07421, 0.07451, 0.00218, 0.00076, 0.00023, 0.00145, . 0.27274, 0.07075, 0.06727, 0.00209, 0.00076, 0.00027, 0.00139, . 0.26190, 0.06754, 0.06100, 0.00201, 0.00072, 0.00027, 0.00133, . 0.25188, 0.06456, 0.05558, 0.00192, 0.00070, 0.00031, 0.00128, . 0.24261, 0.06183, 0.05087, 0.00184, 0.00069, 0.00033, 0.00124, . 0.23382, 0.05940, 0.04669, 0.00180, 0.00069, 0.00031, 0.00117, . 0.22578, 0.05711, 0.04305, 0.00174, 0.00069, 0.00030, 0.00113, . 0.21842, 0.05491, 0.03987, 0.00165, 0.00068, 0.00032, 0.00112, . 0.21149, 0.05288, 0.03702, 0.00157, 0.00068, 0.00034, 0.00109, . 0.20496, 0.05100, 0.03445, 0.00152, 0.00068, 0.00037, 0.00105, . 0.19877, 0.04925, 0.03215, 0.00147, 0.00068, 0.00038, 0.00102 / DATA ((F(I,34,M),I=1,5),F(7,34,M),F(6,34,M),M=1,19) / . 0.40002, 0.10618, 0.18253, 0.00189, 0.00013, 0.00003, 0.00112, . 0.37203, 0.09758, 0.15187, 0.00184, 0.00030, 0.00003, 0.00116, . 0.34785, 0.09026, 0.12830, 0.00180, 0.00036, 0.00006, 0.00117, . 0.32671, 0.08393, 0.10967, 0.00177, 0.00041, 0.00005, 0.00107, . 0.30823, 0.07848, 0.09477, 0.00171, 0.00048, 0.00005, 0.00105, . 0.29166, 0.07371, 0.08260, 0.00168, 0.00047, 0.00004, 0.00104, . 0.27687, 0.06943, 0.07270, 0.00162, 0.00048, 0.00010, 0.00098, . 0.26356, 0.06557, 0.06446, 0.00149, 0.00052, 0.00009, 0.00096, . 0.25152, 0.06210, 0.05751, 0.00141, 0.00051, 0.00011, 0.00095, . 0.24051, 0.05898, 0.05160, 0.00136, 0.00048, 0.00016, 0.00093, . 0.23025, 0.05617, 0.04655, 0.00132, 0.00048, 0.00019, 0.00086, . 0.22088, 0.05359, 0.04223, 0.00127, 0.00049, 0.00021, 0.00084, . 0.21227, 0.05123, 0.03849, 0.00122, 0.00050, 0.00022, 0.00083, . 0.20406, 0.04907, 0.03523, 0.00119, 0.00049, 0.00018, 0.00079, . 0.19661, 0.04706, 0.03236, 0.00114, 0.00048, 0.00017, 0.00075, . 0.18986, 0.04516, 0.02983, 0.00106, 0.00045, 0.00019, 0.00072, . 0.18336, 0.04343, 0.02760, 0.00102, 0.00043, 0.00019, 0.00068, . 0.17710, 0.04185, 0.02562, 0.00101, 0.00040, 0.00017, 0.00063, . 0.17136, 0.04036, 0.02386, 0.00099, 0.00040, 0.00018, 0.00061 / DATA ((F(I,35,M),I=1,5),F(7,35,M),F(6,35,M),M=1,19) / . 0.36031, 0.09044, 0.14833, 0.00126, 0.00012, 0.00003, 0.00067, . 0.33313, 0.08255, 0.12189, 0.00128, 0.00017, 0.00003, 0.00070, . 0.30994, 0.07604, 0.10181, 0.00119, 0.00027,-0.00003, 0.00080, . 0.28974, 0.07039, 0.08623, 0.00119, 0.00033,-0.00003, 0.00070, . 0.27255, 0.06547, 0.07381, 0.00107, 0.00032,-0.00003, 0.00073, . 0.25689, 0.06128, 0.06396, 0.00105, 0.00037, 0.00003, 0.00073, . 0.24290, 0.05751, 0.05592, 0.00104, 0.00039, 0.00009, 0.00071, . 0.23047, 0.05421, 0.04925, 0.00097, 0.00041, 0.00014, 0.00072, . 0.21914, 0.05120, 0.04365, 0.00095, 0.00042, 0.00015, 0.00068, . 0.20876, 0.04844, 0.03893, 0.00095, 0.00041, 0.00014, 0.00063, . 0.19921, 0.04598, 0.03496, 0.00092, 0.00041, 0.00014, 0.00066, . 0.19060, 0.04376, 0.03155, 0.00086, 0.00039, 0.00013, 0.00061, . 0.18275, 0.04173, 0.02861, 0.00081, 0.00036, 0.00013, 0.00055, . 0.17548, 0.03982, 0.02606, 0.00075, 0.00037, 0.00014, 0.00055, . 0.16870, 0.03809, 0.02384, 0.00071, 0.00038, 0.00015, 0.00053, . 0.16230, 0.03652, 0.02191, 0.00069, 0.00037, 0.00016, 0.00049, . 0.15638, 0.03506, 0.02020, 0.00068, 0.00036, 0.00016, 0.00047, . 0.15088, 0.03371, 0.01869, 0.00067, 0.00035, 0.00016, 0.00047, . 0.14577, 0.03243, 0.01735, 0.00064, 0.00035, 0.00017, 0.00047 / DATA ((F(I,36,M),I=1,5),F(7,36,M),F(6,36,M),M=1,19) / . 0.32078, 0.07613, 0.11944, 0.00082, 0.00002,-0.00002, 0.00039, . 0.29500, 0.06916, 0.09707, 0.00085, 0.00009,-0.00004, 0.00041, . 0.27308, 0.06336, 0.08019, 0.00088, 0.00018,-0.00005, 0.00043, . 0.25438, 0.05849, 0.06738, 0.00077, 0.00018,-0.00007, 0.00043, . 0.23803, 0.05425, 0.05723, 0.00077, 0.00020,-0.00005, 0.00045, . 0.22388, 0.05054, 0.04922, 0.00066, 0.00018,-0.00003, 0.00045, . 0.21075, 0.04730, 0.04271, 0.00069, 0.00023,-0.00001, 0.00046, . 0.19927, 0.04442, 0.03739, 0.00067, 0.00023, 0.00005, 0.00040, . 0.18901, 0.04181, 0.03299, 0.00062, 0.00021, 0.00005, 0.00037, . 0.17970, 0.03946, 0.02930, 0.00056, 0.00019, 0.00003, 0.00038, . 0.17111, 0.03739, 0.02617, 0.00053, 0.00021, 0.00008, 0.00039, . 0.16320, 0.03549, 0.02352, 0.00054, 0.00021, 0.00007, 0.00037, . 0.15597, 0.03374, 0.02124, 0.00055, 0.00020, 0.00006, 0.00034, . 0.14943, 0.03214, 0.01926, 0.00052, 0.00020, 0.00009, 0.00034, . 0.14340, 0.03069, 0.01755, 0.00047, 0.00021, 0.00010, 0.00033, . 0.13781, 0.02936, 0.01607, 0.00042, 0.00022, 0.00010, 0.00033, . 0.13253, 0.02813, 0.01477, 0.00039, 0.00023, 0.00010, 0.00032, . 0.12753, 0.02698, 0.01363, 0.00039, 0.00023, 0.00009, 0.00030, . 0.12292, 0.02590, 0.01262, 0.00039, 0.00022, 0.00008, 0.00029 / DATA ((F(I,37,M),I=1,5),F(7,37,M),F(6,37,M),M=1,19) / . 0.28175, 0.06315, 0.09488, 0.00054, 0.00003,-0.00003, 0.00025, . 0.25773, 0.05714, 0.07618, 0.00055, 0.00008,-0.00002, 0.00027, . 0.23779, 0.05208, 0.06242, 0.00052, 0.00011,-0.00003, 0.00028, . 0.22023, 0.04781, 0.05195, 0.00054, 0.00012,-0.00008, 0.00026, . 0.20554, 0.04424, 0.04383, 0.00044, 0.00011,-0.00002, 0.00026, . 0.19201, 0.04104, 0.03738, 0.00054, 0.00017,-0.00004, 0.00026, . 0.18043, 0.03829, 0.03222, 0.00051, 0.00017,-0.00001, 0.00028, . 0.17023, 0.03587, 0.02801, 0.00042, 0.00013, 0.00001, 0.00026, . 0.16089, 0.03368, 0.02454, 0.00039, 0.00013, 0.00002, 0.00025, . 0.15237, 0.03171, 0.02167, 0.00039, 0.00016, 0.00003, 0.00026, . 0.14475, 0.02996, 0.01929, 0.00038, 0.00016, 0.00004, 0.00025, . 0.13772, 0.02836, 0.01726, 0.00037, 0.00014, 0.00003, 0.00022, . 0.13129, 0.02689, 0.01552, 0.00035, 0.00013, 0.00002, 0.00019, . 0.12546, 0.02556, 0.01403, 0.00034, 0.00014, 0.00006, 0.00022, . 0.12011, 0.02434, 0.01275, 0.00032, 0.00015, 0.00007, 0.00023, . 0.11516, 0.02320, 0.01163, 0.00030, 0.00016, 0.00006, 0.00022, . 0.11056, 0.02218, 0.01065, 0.00027, 0.00015, 0.00006, 0.00021, . 0.10626, 0.02126, 0.00979, 0.00026, 0.00014, 0.00006, 0.00020, . 0.10224, 0.02039, 0.00903, 0.00025, 0.00014, 0.00007, 0.00019 / DATA ((F(I,38,M),I=1,5),F(7,38,M),F(6,38,M),M=1,19) / . 0.24454, 0.05173, 0.07442, 0.00033,-0.00006,-0.00009, 0.00007, . 0.22257, 0.04648, 0.05909, 0.00035, 0.00006,-0.00008, 0.00012, . 0.20381, 0.04224, 0.04785, 0.00040, 0.00008,-0.00004, 0.00020, . 0.18848, 0.03857, 0.03941, 0.00031, 0.00008,-0.00008, 0.00013, . 0.17453, 0.03555, 0.03295, 0.00038, 0.00012,-0.00005, 0.00021, . 0.16321, 0.03286, 0.02791, 0.00024, 0.00016,-0.00002, 0.00021, . 0.15259, 0.03052, 0.02388, 0.00028, 0.00009,-0.00004, 0.00015, . 0.14337, 0.02848, 0.02064, 0.00025, 0.00009,-0.00003, 0.00015, . 0.13509, 0.02665, 0.01799, 0.00023, 0.00011,-0.00001, 0.00016, . 0.12761, 0.02503, 0.01580, 0.00024, 0.00012, 0.00001, 0.00017, . 0.12086, 0.02358, 0.01397, 0.00022, 0.00011, 0.00002, 0.00016, . 0.11471, 0.02225, 0.01244, 0.00020, 0.00012, 0.00003, 0.00017, . 0.10913, 0.02105, 0.01113, 0.00019, 0.00012, 0.00004, 0.00018, . 0.10398, 0.01996, 0.01002, 0.00018, 0.00014, 0.00005, 0.00016, . 0.09924, 0.01896, 0.00907, 0.00018, 0.00014, 0.00005, 0.00015, . 0.09484, 0.01805, 0.00825, 0.00019, 0.00013, 0.00005, 0.00015, . 0.09083, 0.01721, 0.00753, 0.00017, 0.00012, 0.00004, 0.00015, . 0.08716, 0.01644, 0.00690, 0.00014, 0.00010, 0.00003, 0.00014, . 0.08370, 0.01572, 0.00634, 0.00014, 0.00010, 0.00004, 0.00014 / DATA ((F(I,39,M),I=1,5),F(7,39,M),F(6,39,M),M=1,19) / . 0.20903, 0.04168, 0.05745, 0.00023,-0.00001,-0.00002, 0.00006, . 0.18910, 0.03726, 0.04501, 0.00019, 0.00001,-0.00009, 0.00008, . 0.17233, 0.03364, 0.03606, 0.00028, 0.00003,-0.00005, 0.00010, . 0.15841, 0.03062, 0.02945, 0.00021, 0.00002,-0.00007, 0.00010, . 0.14648, 0.02807, 0.02442, 0.00019, 0.00004,-0.00006, 0.00013, . 0.13626, 0.02583, 0.02051, 0.00015, 0.00006,-0.00007, 0.00011, . 0.12688, 0.02392, 0.01743, 0.00019, 0.00005, 0.00000, 0.00012, . 0.11869, 0.02222, 0.01495, 0.00019, 0.00009, 0.00001, 0.00014, . 0.11156, 0.02074, 0.01296, 0.00015, 0.00010, 0.00002, 0.00014, . 0.10522, 0.01942, 0.01132, 0.00010, 0.00009, 0.00002, 0.00012, . 0.09931, 0.01822, 0.00996, 0.00012, 0.00009, 0.00003, 0.00011, . 0.09391, 0.01716, 0.00882, 0.00013, 0.00010, 0.00004, 0.00011, . 0.08904, 0.01621, 0.00786, 0.00014, 0.00010, 0.00005, 0.00012, . 0.08471, 0.01533, 0.00704, 0.00011, 0.00010, 0.00005, 0.00012, . 0.08071, 0.01452, 0.00635, 0.00009, 0.00010, 0.00006, 0.00012, . 0.07699, 0.01379, 0.00574, 0.00009, 0.00011, 0.00006, 0.00012, . 0.07356, 0.01312, 0.00523, 0.00008, 0.00010, 0.00006, 0.00012, . 0.07039, 0.01250, 0.00478, 0.00006, 0.00009, 0.00005, 0.00012, . 0.06745, 0.01193, 0.00438, 0.00005, 0.00009, 0.00004, 0.00011 / DATA ((F(I,40,M),I=1,5),F(7,40,M),F(6,40,M),M=1,19) / . 0.17631, 0.03314, 0.04389, 0.00016,-0.00008,-0.00010,-0.00003, . 0.15869, 0.02945, 0.03396, 0.00017,-0.00003,-0.00009, 0.00001, . 0.14415, 0.02645, 0.02688, 0.00013, 0.00000,-0.00007, 0.00003, . 0.13179, 0.02399, 0.02174, 0.00014, 0.00000,-0.00007, 0.00005, . 0.12124, 0.02187, 0.01789, 0.00015, 0.00004,-0.00003, 0.00007, . 0.11218, 0.02011, 0.01494, 0.00014, 0.00002,-0.00005, 0.00005, . 0.10434, 0.01851, 0.01260, 0.00009, 0.00004,-0.00004, 0.00007, . 0.09724, 0.01715, 0.01075, 0.00011, 0.00004,-0.00002, 0.00006, . 0.09095, 0.01596, 0.00926, 0.00011, 0.00004,-0.00001, 0.00005, . 0.08540, 0.01491, 0.00804, 0.00011, 0.00006,-0.00001, 0.00006, . 0.08050, 0.01395, 0.00704, 0.00008, 0.00005, 0.00000, 0.00007, . 0.07596, 0.01310, 0.00620, 0.00008, 0.00004, 0.00001, 0.00007, . 0.07184, 0.01234, 0.00550, 0.00007, 0.00005, 0.00000, 0.00006, . 0.06814, 0.01164, 0.00492, 0.00008, 0.00005, 0.00001, 0.00006, . 0.06475, 0.01101, 0.00442, 0.00007, 0.00005, 0.00001, 0.00006, . 0.06162, 0.01042, 0.00399, 0.00006, 0.00005, 0.00001, 0.00006, . 0.05873, 0.00989, 0.00362, 0.00006, 0.00005, 0.00001, 0.00006, . 0.05604, 0.00941, 0.00330, 0.00007, 0.00004, 0.00002, 0.00005, . 0.05358, 0.00897, 0.00302, 0.00007, 0.00004, 0.00002, 0.00005 / DATA ((F(I,41,M),I=1,5),F(7,41,M),F(6,41,M),M=1,19) / . 0.14600, 0.02568, 0.03269, 0.00008,-0.00001,-0.00002, 0.00002, . 0.13062, 0.02277, 0.02506, 0.00011,-0.00001,-0.00002, 0.00000, . 0.11797, 0.02038, 0.01970, 0.00008, 0.00001,-0.00005, 0.00000, . 0.10747, 0.01839, 0.01580, 0.00010, 0.00002, 0.00000, 0.00003, . 0.09860, 0.01671, 0.01289, 0.00007, 0.00001,-0.00002, 0.00005, . 0.09073, 0.01530, 0.01067, 0.00011, 0.00002,-0.00001, 0.00004, . 0.08405, 0.01409, 0.00895, 0.00010, 0.00003, 0.00001, 0.00005, . 0.07820, 0.01300, 0.00759, 0.00008, 0.00003, 0.00000, 0.00005, . 0.07299, 0.01206, 0.00650, 0.00008, 0.00003, 0.00000, 0.00004, . 0.06834, 0.01122, 0.00561, 0.00008, 0.00003, 0.00001, 0.00003, . 0.06419, 0.01048, 0.00489, 0.00006, 0.00003, 0.00000, 0.00004, . 0.06039, 0.00982, 0.00430, 0.00006, 0.00003, 0.00000, 0.00003, . 0.05696, 0.00923, 0.00379, 0.00006, 0.00002,-0.00001, 0.00002, . 0.05389, 0.00869, 0.00338, 0.00005, 0.00001,-0.00001, 0.00001, . 0.05108, 0.00820, 0.00302, 0.00005, 0.00000,-0.00001, 0.00001, . 0.04849, 0.00775, 0.00272, 0.00005, 0.00001, 0.00000, 0.00001, . 0.04614, 0.00734, 0.00246, 0.00005, 0.00001, 0.00000, 0.00001, . 0.04399, 0.00697, 0.00223, 0.00004, 0.00002, 0.00000, 0.00002, . 0.04199, 0.00663, 0.00204, 0.00004, 0.00002, 0.00000, 0.00002 / DATA ((F(I,42,M),I=1,5),F(7,42,M),F(6,42,M),M=1,19) / . 0.09475, 0.01458, 0.01709, 0.00001, 0.00001, 0.00000, 0.00000, . 0.08369, 0.01275, 0.01275, 0.00002, 0.00001,-0.00002, 0.00001, . 0.07467, 0.01127, 0.00978, 0.00005, 0.00001,-0.00002, 0.00001, . 0.06742, 0.01007, 0.00768, 0.00002, 0.00002, 0.00000, 0.00002, . 0.06110, 0.00909, 0.00615, 0.00006, 0.00001, 0.00000, 0.00002, . 0.05598, 0.00824, 0.00500, 0.00002, 0.00002, 0.00001, 0.00002, . 0.05144, 0.00752, 0.00413, 0.00001, 0.00002, 0.00001, 0.00002, . 0.04743, 0.00689, 0.00345, 0.00002, 0.00002, 0.00001, 0.00002, . 0.04395, 0.00635, 0.00292, 0.00002, 0.00002, 0.00000, 0.00002, . 0.04088, 0.00587, 0.00249, 0.00001, 0.00002, 0.00000, 0.00002, . 0.03810, 0.00545, 0.00215, 0.00001, 0.00002, 0.00000, 0.00002, . 0.03564, 0.00507, 0.00186, 0.00001, 0.00002, 0.00001, 0.00002, . 0.03343, 0.00473, 0.00163, 0.00001, 0.00002, 0.00001, 0.00001, . 0.03142, 0.00443, 0.00144, 0.00002, 0.00002, 0.00001, 0.00001, . 0.02961, 0.00416, 0.00128, 0.00002, 0.00001, 0.00001, 0.00001, . 0.02797, 0.00391, 0.00114, 0.00002, 0.00001, 0.00001, 0.00001, . 0.02647, 0.00369, 0.00102, 0.00002, 0.00001, 0.00001, 0.00001, . 0.02511, 0.00349, 0.00092, 0.00001, 0.00001, 0.00001, 0.00002, . 0.02386, 0.00330, 0.00084, 0.00001, 0.00001, 0.00001, 0.00001 / DATA ((F(I,43,M),I=1,5),F(7,43,M),F(6,43,M),M=1,19) / . 0.05613, 0.00748, 0.00807, 0.00003, 0.00000,-0.00001, 0.00000, . 0.04898, 0.00646, 0.00585, 0.00001, 0.00000,-0.00002,-0.00001, . 0.04331, 0.00565, 0.00439, 0.00000,-0.00001,-0.00002,-0.00001, . 0.03867, 0.00499, 0.00337, 0.00000, 0.00000, 0.00000, 0.00000, . 0.03478, 0.00446, 0.00264,-0.00001, 0.00000,-0.00001, 0.00000, . 0.03139, 0.00401, 0.00211, 0.00001, 0.00001, 0.00000, 0.00001, . 0.02859, 0.00362, 0.00171, 0.00001, 0.00001, 0.00000, 0.00000, . 0.02617, 0.00330, 0.00141, 0.00001, 0.00000, 0.00000, 0.00000, . 0.02407, 0.00301, 0.00118, 0.00000, 0.00000, 0.00000, 0.00000, . 0.02222, 0.00277, 0.00099, 0.00000, 0.00000, 0.00000, 0.00000, . 0.02057, 0.00255, 0.00084, 0.00001, 0.00000, 0.00000, 0.00001, . 0.01912, 0.00236, 0.00072, 0.00000, 0.00001, 0.00000, 0.00001, . 0.01783, 0.00218, 0.00063, 0.00000, 0.00001, 0.00000, 0.00001, . 0.01665, 0.00203, 0.00055, 0.00001, 0.00001, 0.00000, 0.00000, . 0.01560, 0.00190, 0.00048, 0.00001, 0.00000, 0.00000, 0.00000, . 0.01467, 0.00178, 0.00043, 0.00001, 0.00001, 0.00000, 0.00001, . 0.01381, 0.00167, 0.00038, 0.00000, 0.00001, 0.00000, 0.00001, . 0.01302, 0.00157, 0.00034, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01230, 0.00148, 0.00031, 0.00000, 0.00000, 0.00000, 0.00000 / DATA ((F(I,44,M),I=1,5),F(7,44,M),F(6,44,M),M=1,19) / . 0.02942, 0.00332, 0.00329, 0.00000, 0.00000,-0.00001, 0.00000, . 0.02533, 0.00283, 0.00232, 0.00000, 0.00000, 0.00000, 0.00000, . 0.02208, 0.00244, 0.00169, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01946, 0.00213, 0.00127, 0.00001, 0.00000, 0.00000, 0.00000, . 0.01730, 0.00188, 0.00097, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01549, 0.00168, 0.00076, 0.00001, 0.00000, 0.00000, 0.00000, . 0.01398, 0.00150, 0.00061, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01268, 0.00136, 0.00049, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01156, 0.00123, 0.00040, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01059, 0.00112, 0.00034, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00973, 0.00102, 0.00028, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00898, 0.00094, 0.00024, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00832, 0.00087, 0.00021, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00772, 0.00080, 0.00018, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00719, 0.00074, 0.00016, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00672, 0.00069, 0.00014, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00629, 0.00064, 0.00012, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00589, 0.00060, 0.00011, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00554, 0.00056, 0.00010, 0.00000, 0.00000, 0.00000, 0.00000 / DATA ((F(I,45,M),I=1,5),F(7,45,M),F(6,45,M),M=1,19) / . 0.01301, 0.00121, 0.00109, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01101, 0.00101, 0.00074, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00944, 0.00086, 0.00052, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00820, 0.00074, 0.00038, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00719, 0.00064, 0.00028, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00637, 0.00057, 0.00022, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00568, 0.00050, 0.00017, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00510, 0.00045, 0.00014, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00460, 0.00040, 0.00011, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00417, 0.00036, 0.00009, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00381, 0.00033, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00348, 0.00030, 0.00006, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00319, 0.00027, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00294, 0.00025, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00272, 0.00023, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00252, 0.00021, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00234, 0.00020, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00218, 0.00018, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00203, 0.00017, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000 / DATA ((F(I,46,M),I=1,5),F(7,46,M),F(6,46,M),M=1,19) / . 0.00090, 0.00005, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00073, 0.00004, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00060, 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00050, 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00043, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00036, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00031, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00027, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00024, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00017, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000 / C C don't let x be altered if it's out of range!! C XSAVE=X C IF(INIT.NE.0) GOTO 10 INIT=1 DO 20 N=1,NX-1 DO 20 M=1,19 C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR DO 25 I=1,7 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) 20 CONTINUE DO 30 J=1,NTENTH-1 XX(J)= LOG10(XX(J))+ONEDO DO 30 I=1,6 DO 30 K=1,19 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) DO 40 I=1,7 DO 40 M=1,19 40 F(I,NX,M)=ZEROD 10 CONTINUE IF(X.LT.XMIN) X=XMIN IF(X.GT.XMAX) X=XMAX QSQ=SCALE**2 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN IF(QSQ.GT.QSQMAX) QSQ=QSQMAX XXX=X IF(X.LT.PONED) XXX= LOG10(X)+ONEDO N=0 70 N=N+1 IF(XXX.GT.XX(N+1)) GOTO 70 A=(XXX-XX(N))/(XX(N+1)-XX(N)) RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) B=RM-AINT(RM) M=1+ INT(RM) DO 60 I=1,7 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) IF(N.GE.NTENTH) GOTO 65 IF(I.EQ.7) GOTO 65 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) G(I)=FAC**(G(I)/FAC) 65 CONTINUE G(I)=G(I)*(ONED-X)**N0(I) 60 CONTINUE UPV=G(1) DNV=G(2) C C this sea is (ubar+dbar)/2 C SEA=G(4) STR=G(6) CHM=G(5) GL =G(3) BOT=G(7) C C restore x C X=XSAVE C RETURN END