* * $Id$ * * $Log$ * Revision 1.1.1.3 2000/04/19 13:28:45 mclareni * Import version 8.04 * * Revision 1.2 2000/04/17 18:54:48 plothow * version 8.04: small mods, dlog to log * * Revision 1.1.1.1 1996/04/12 15:29:39 plothow * Version 7.01 * * #include "pdf/pilot.h" SUBROUTINE SFMRSG(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C C THIS IS THE NEW "G" FIT -- Feb 1995 -- standard Q^2 range C #include "pdf/impdp.inc" C PARAMETER(NX=47) PARAMETER(NTENTH=21) DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ + 0.00269, 0.00519, 55.04009, 0.93808, 0.23085, + 0.00000, 0.56956, 0.94157, + 0.00308, 0.00544, 74.12506, 1.65007, 0.94742, + 0.00000, 1.28439, 1.65404, + 0.00344, 0.00568, 95.23531, 2.44308, 1.74440, + 0.02544, 2.07989, 2.44748, + 0.00378, 0.00590, 117.89208, 3.27437, 2.57920, + 0.63342, 2.91339, 3.27916, + 0.00410, 0.00610, 141.99054, 4.15617, 3.46418, + 1.57435, 3.79720, 4.16132, + 0.00441, 0.00630, 167.27766, 5.07568, 4.38660, + 2.52873, 4.71856, 5.08117, + 0.00471, 0.00649, 193.47682, 6.02122, 5.33482, + 3.50576, 5.66582, 6.02703 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + 0.00499, 0.00667, 220.46440, 6.99424, 6.31033, + 4.50790, 6.64044, 7.00035, + 0.00527, 0.00685, 248.05037, 7.98816, 7.30658, + 5.52860, 7.63585, 7.99455, + 0.00554, 0.00701, 276.08490, 8.99885, 8.31945, + 6.56410, 8.64794, 9.00551, + 0.00580, 0.00718, 304.50995, 10.02678, 9.34943, + 7.61513, 9.67720, 10.03370, + 0.00605, 0.00733, 333.27853, 11.07132, 10.39592, + 8.68126, 10.72300, 11.07848, + 0.00630, 0.00749, 362.36829, 12.13224, 11.45868, + 9.76243, 11.78512, 12.13963, + 0.00654, 0.00764, 391.36038, 13.19210, 12.52029, + 10.84137, 12.84611, 13.19972 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + 0.00677, 0.00778, 420.55627, 14.26562, 13.59549, + 11.93292, 13.92072, 14.27346, + 0.00700, 0.00792, 449.91208, 15.35062, 14.68209, + 13.03497, 15.00677, 15.35866, + 0.00723, 0.00806, 479.00864, 16.43104, 15.76404, + 14.13160, 16.08818, 16.43928, + 0.00745, 0.00820, 508.37811, 17.52810, 16.86257, + 15.24407, 17.18620, 17.53654, + 0.00766, 0.00833, 537.33978, 18.61555, 17.95145, + 16.34625, 18.27459, 18.62418 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + 0.00429, 0.00679, 43.63768, 0.86288, 0.19610, + 0.00000, 0.51435, 0.86602, + 0.00485, 0.00714, 57.84075, 1.42877, 0.76670, + 0.00000, 1.08300, 1.43224, + 0.00536, 0.00746, 73.25481, 2.03758, 1.37960, + 0.01945, 1.69422, 2.04136, + 0.00584, 0.00776, 89.52473, 2.66278, 2.00842, + 0.47742, 2.32156, 2.66683, + 0.00629, 0.00805, 106.58344, 3.31543, 2.66435, + 1.17743, 2.97615, 3.31973, + 0.00673, 0.00831, 124.25308, 3.98727, 3.33918, + 1.87794, 3.64977, 3.99180, + 0.00715, 0.00857, 142.34306, 4.67060, 4.02528, + 2.58719, 4.33475, 4.67535 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + 0.00755, 0.00882, 160.77849, 5.36695, 4.72419, + 3.30749, 5.03263, 5.37191, + 0.00794, 0.00905, 179.43553, 6.07203, 5.43166, + 4.03459, 5.73914, 6.07718, + 0.00831, 0.00928, 198.22041, 6.78326, 6.14514, + 4.76625, 6.45172, 6.78860, + 0.00867, 0.00950, 217.10510, 7.50129, 6.86528, + 5.50328, 7.17101, 7.50680, + 0.00902, 0.00971, 236.06654, 8.22592, 7.59192, + 6.24569, 7.89685, 8.23160, + 0.00937, 0.00992, 255.09875, 8.95725, 8.32515, + 6.99369, 8.62932, 8.96309, + 0.00970, 0.01012, 273.92307, 9.68334, 9.05305, + 7.73550, 9.35650, 9.68934 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + 0.01002, 0.01031, 292.75638, 10.41469, 9.78612, + 8.48169, 10.08889, 10.42083, + 0.01034, 0.01050, 311.57574, 11.14995, 10.52303, + 9.23100, 10.82514, 11.15623, + 0.01065, 0.01068, 330.10516, 11.87821, 11.25286, + 9.97261, 11.55435, 11.88463, + 0.01095, 0.01086, 348.71143, 12.61431, 11.99048, + 10.72141, 12.29137, 12.62087, + 0.01124, 0.01103, 366.94412, 13.34034, 12.71798, + 11.45957, 13.01829, 13.34703 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + 0.00670, 0.00888, 34.58309, 0.79334, 0.16527, + 0.00000, 0.46419, 0.79626, + 0.00749, 0.00937, 45.11368, 1.23843, 0.61523, + 0.00000, 0.91200, 1.24158, + 0.00822, 0.00981, 56.32086, 1.70222, 1.08323, + 0.01479, 1.37815, 1.70557, + 0.00890, 0.01022, 67.94986, 2.16941, 1.55416, + 0.35792, 1.84744, 2.17294, + 0.00955, 0.01061, 79.96514, 2.64965, 2.03778, + 0.87616, 2.32958, 2.65335, + 0.01016, 0.01098, 92.24657, 3.13785, 2.52908, + 1.38801, 2.81953, 3.14172, + 0.01074, 0.01133, 104.66766, 3.62911, 3.02320, + 1.90067, 3.31240, 3.63312 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + 0.01131, 0.01166, 117.18735, 4.12490, 3.52164, + 2.41621, 3.80968, 4.12905, + 0.01185, 0.01198, 129.72842, 4.62253, 4.02175, + 2.93203, 4.30872, 4.62681, + 0.01237, 0.01228, 142.23572, 5.12049, 4.52203, + 3.44685, 4.80799, 5.12489, + 0.01287, 0.01258, 154.69917, 5.61948, 5.02320, + 3.96154, 5.30821, 5.62400, + 0.01336, 0.01286, 167.11168, 6.11959, 5.52539, + 4.47634, 5.80950, 6.12423, + 0.01383, 0.01313, 179.47678, 6.62111, 6.02887, + 4.99163, 6.31213, 6.62585, + 0.01429, 0.01340, 191.60965, 7.11592, 6.52555, + 5.49942, 6.80799, 7.12076 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + 0.01474, 0.01366, 203.66759, 7.61150, 7.02291, + 6.00726, 7.30458, 7.61644, + 0.01517, 0.01391, 215.64014, 8.10708, 7.52019, + 6.51446, 7.80113, 8.11212, + 0.01559, 0.01415, 227.34645, 8.59527, 8.01001, + 7.01369, 8.29024, 8.60040, + 0.01601, 0.01439, 239.03926, 9.08645, 8.50276, + 7.51537, 8.78231, 9.09166, + 0.01641, 0.01462, 250.42131, 9.56843, 8.98625, + 8.00738, 9.26515, 9.57373 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + 0.00863, 0.01040, 30.17398, 0.75498, 0.14890, + 0.00000, 0.43697, 0.75786, + 0.00961, 0.01099, 38.99531, 1.13951, 0.53839, + 0.00000, 0.82421, 1.14258, + 0.01050, 0.01152, 48.27411, 1.53337, 0.93655, + 0.01256, 1.22043, 1.53660, + 0.01134, 0.01202, 57.80405, 1.92597, 1.33297, + 0.30154, 1.61513, 1.92934, + 0.01212, 0.01248, 67.56464, 2.32604, 1.73650, + 0.73507, 2.01710, 2.32955, + 0.01287, 0.01292, 77.46257, 2.72985, 2.14348, + 1.16005, 2.42265, 2.73349, + 0.01358, 0.01333, 87.40008, 3.13370, 2.55024, + 1.58306, 2.82810, 3.13745 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + 0.01427, 0.01373, 97.35071, 3.53898, 2.95823, + 2.00603, 3.23487, 3.54284, + 0.01492, 0.01411, 107.25739, 3.94370, 3.36548, + 2.42704, 3.64099, 3.94767, + 0.01556, 0.01447, 117.08073, 4.34678, 3.77095, + 2.84523, 4.04538, 4.35085, + 0.01616, 0.01482, 126.81818, 4.74894, 4.17534, + 3.26146, 4.44877, 4.75310, + 0.01675, 0.01516, 136.46843, 5.15037, 4.57889, + 3.67604, 4.85137, 5.15462, + 0.01733, 0.01548, 146.03833, 5.55141, 4.98193, + 4.08943, 5.25351, 5.55575, + 0.01788, 0.01580, 155.38332, 5.94561, 5.37805, + 4.49528, 5.64877, 5.95004 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + 0.01842, 0.01610, 164.63324, 6.33911, 5.77337, + 4.89978, 6.04327, 6.34362, + 0.01894, 0.01640, 173.78258, 6.73138, 6.16738, + 5.30245, 6.43650, 6.73596, + 0.01945, 0.01669, 182.69046, 7.11652, 6.55420, + 5.69750, 6.82256, 7.12117, + 0.01994, 0.01697, 191.55995, 7.50298, 6.94226, + 6.09338, 7.20991, 7.50771, + 0.02043, 0.01724, 200.15868, 7.88105, 7.32187, + 6.48044, 7.58883, 7.88584 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + 0.01030, 0.01164, 27.38437, 0.72870, 0.13799, + 0.00000, 0.41854, 0.73161, + 0.01143, 0.01231, 35.15528, 1.07428, 0.48860, + 0.00000, 0.76684, 1.07734, + 0.01247, 0.01292, 43.26037, 1.42424, 0.84294, + 0.01117, 1.11918, 1.42745, + 0.01343, 0.01348, 51.52355, 1.77062, 1.19321, + 0.26662, 1.46766, 1.77396, + 0.01434, 0.01400, 59.93344, 2.12149, 1.54759, + 0.64808, 1.82044, 2.12495, + 0.01520, 0.01450, 68.41301, 2.47388, 1.90319, + 1.02005, 2.17457, 2.47744, + 0.01602, 0.01497, 76.88164, 2.82477, 2.25705, + 1.38869, 2.52707, 2.82844 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + 0.01680, 0.01542, 85.32117, 3.17551, 2.61056, + 1.75582, 2.87931, 3.17928, + 0.01756, 0.01585, 93.68624, 3.52451, 2.96213, + 2.11990, 3.22971, 3.52837, + 0.01828, 0.01626, 101.94651, 3.87094, 3.31098, + 2.48032, 3.57745, 3.87489, + 0.01898, 0.01666, 110.10349, 4.21549, 3.65781, + 2.83790, 3.92323, 4.21952, + 0.01965, 0.01704, 118.15879, 4.55843, 4.00290, + 3.19303, 4.26734, 4.56254, + 0.02030, 0.01740, 126.12068, 4.90012, 4.34663, + 3.54615, 4.61014, 4.90430, + 0.02094, 0.01776, 133.86815, 5.23508, 4.68354, + 3.89191, 4.94616, 5.23934 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + 0.02155, 0.01810, 141.51456, 5.56865, 5.01896, + 4.23567, 5.28073, 5.57298, + 0.02215, 0.01843, 149.05692, 5.90042, 5.35251, + 4.57709, 5.61346, 5.90481, + 0.02272, 0.01876, 156.37718, 6.22540, 5.67919, + 4.91125, 5.93937, 6.22986, + 0.02329, 0.01907, 163.64955, 6.55086, 6.00628, + 5.24545, 6.26572, 6.55539, + 0.02384, 0.01938, 170.67847, 6.86855, 6.32554, + 5.57147, 6.58426, 6.87314 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + 0.01180, 0.01270, 25.39465, 0.70881, 0.12991, + 0.00000, 0.40472, 0.71177, + 0.01306, 0.01344, 32.43248, 1.02630, 0.45250, + 0.00000, 0.72495, 1.02940, + 0.01422, 0.01411, 39.72435, 1.34516, 0.77581, + 0.01019, 1.04621, 1.34840, + 0.01530, 0.01474, 47.11535, 1.65912, 1.09370, + 0.24213, 1.36228, 1.66247, + 0.01631, 0.01532, 54.60041, 1.97569, 1.41383, + 0.58724, 1.68076, 1.97915, + 0.01727, 0.01587, 62.11357, 2.29242, 1.73382, + 0.92243, 1.99925, 2.29599, + 0.01819, 0.01638, 69.58585, 2.60676, 2.05118, + 1.25351, 2.31521, 2.61042 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + 0.01906, 0.01688, 77.00473, 2.92000, 2.36722, + 1.58220, 2.62996, 2.92376, + 0.01990, 0.01735, 84.33237, 3.23082, 2.68065, + 1.90724, 2.94218, 3.23466, + 0.02070, 0.01780, 91.54472, 3.53854, 2.99083, + 2.22816, 3.25122, 3.54247, + 0.02148, 0.01824, 98.64532, 3.84386, 3.29846, + 2.54577, 3.55779, 3.84786, + 0.02223, 0.01865, 105.63778, 4.14707, 3.60385, + 2.86047, 3.86216, 4.15114, + 0.02295, 0.01906, 112.53145, 4.44852, 3.90738, + 3.17272, 4.16474, 4.45267, + 0.02365, 0.01945, 119.22063, 4.74344, 4.20427, + 3.47782, 4.46072, 4.74765 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + 0.02433, 0.01982, 125.80739, 5.03657, 4.49929, + 3.78057, 4.75486, 5.04085, + 0.02499, 0.02019, 132.29031, 5.32761, 4.79213, + 4.08072, 5.04687, 5.33196, + 0.02563, 0.02054, 138.56662, 5.61218, 5.07842, + 4.37394, 5.33236, 5.61658, + 0.02625, 0.02088, 144.79092, 5.89673, 5.36463, + 4.66674, 5.61780, 5.90119, + 0.02686, 0.02122, 150.79224, 6.17400, 5.64349, + 4.95187, 5.89593, 6.17852 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + 0.01784, 0.01668, 20.05825, 0.64939, 0.10686, + 0.00000, 0.36425, 0.65272, + 0.01965, 0.01770, 25.20509, 0.89038, 0.35320, + 0.00000, 0.60808, 0.89386, + 0.02130, 0.01862, 30.42582, 1.12707, 0.59455, + 0.00761, 0.84725, 1.13068, + 0.02282, 0.01947, 35.62016, 1.35667, 0.82829, + 0.17844, 1.07904, 1.36040, + 0.02424, 0.02026, 40.79804, 1.58504, 1.06041, + 0.42995, 1.30940, 1.58887, + 0.02559, 0.02100, 45.92116, 1.81091, 1.28971, + 0.67126, 1.53709, 1.81485, + 0.02687, 0.02170, 50.94894, 2.03280, 1.51477, + 0.90718, 1.76066, 2.03683 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + 0.02808, 0.02237, 55.88126, 2.25183, 1.73675, + 1.13915, 1.98126, 2.25595, + 0.02925, 0.02300, 60.69846, 2.46728, 1.95495, + 1.36652, 2.19816, 2.47149, + 0.03036, 0.02361, 65.39013, 2.67885, 2.16912, + 1.58916, 2.41111, 2.68314, + 0.03143, 0.02419, 69.96445, 2.88719, 2.37989, + 1.80781, 2.62073, 2.89155, + 0.03246, 0.02475, 74.42881, 3.09261, 2.58761, + 2.02288, 2.82738, 3.09705, + 0.03345, 0.02528, 78.79345, 3.29551, 2.79270, + 2.23484, 3.03143, 3.30002, + 0.03441, 0.02580, 82.99005, 3.49269, 2.99197, + 2.44058, 3.22972, 3.49727 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + 0.03534, 0.02630, 87.09189, 3.68753, 3.18879, + 2.64350, 3.42560, 3.69218, + 0.03624, 0.02678, 91.10059, 3.87989, 3.38306, + 2.84353, 3.61898, 3.88461, + 0.03711, 0.02725, 94.94978, 4.06687, 3.57186, + 3.03779, 3.80692, 4.07165, + 0.03796, 0.02770, 98.74551, 4.25296, 3.75969, + 3.23081, 3.99393, 4.25780, + 0.03878, 0.02814, 102.37583, 4.43327, 3.94168, + 3.41774, 4.17513, 4.43817 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + 0.02677, 0.02201, 15.77720, 0.59273, 0.08675, + 0.00000, 0.32699, 0.59684, + 0.02933, 0.02341, 19.50018, 0.77156, 0.27127, + 0.00000, 0.50885, 0.77588, + 0.03166, 0.02466, 23.19359, 0.94432, 0.44898, + 0.00562, 0.68424, 0.94881, + 0.03380, 0.02581, 26.79719, 1.10977, 0.61883, + 0.13008, 0.85204, 1.11442, + 0.03579, 0.02688, 30.33009, 1.27224, 0.78529, + 0.31146, 1.01663, 1.27704, + 0.03767, 0.02789, 33.77290, 1.43114, 0.94785, + 0.48344, 1.17748, 1.43608, + 0.03945, 0.02883, 37.10410, 1.58569, 1.10578, + 0.64988, 1.33383, 1.59076 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + 0.04113, 0.02972, 40.33062, 1.73679, 1.26002, + 0.81196, 1.48660, 1.74199, + 0.04273, 0.03057, 43.44416, 1.88412, 1.41029, + 0.96940, 1.63549, 1.88944, + 0.04426, 0.03138, 46.44238, 2.02761, 1.55654, + 1.12229, 1.78045, 2.03304, + 0.04573, 0.03215, 49.33528, 2.16779, 1.69932, + 1.27124, 1.92202, 2.17333, + 0.04713, 0.03289, 52.13140, 2.30502, 1.83901, + 1.41667, 2.06055, 2.31066, + 0.04849, 0.03360, 54.84068, 2.43963, 1.97596, + 1.55899, 2.19641, 2.44538, + 0.04979, 0.03429, 57.41934, 2.56955, 2.10810, + 1.69619, 2.32751, 2.57539 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + 0.05105, 0.03495, 59.91969, 2.69714, 2.23781, + 1.83067, 2.45622, 2.70308, + 0.05227, 0.03558, 62.34460, 2.82239, 2.36508, + 1.96244, 2.58255, 2.82842, + 0.05345, 0.03619, 64.65158, 2.94337, 2.48801, + 2.08963, 2.70456, 2.94948, + 0.05459, 0.03679, 66.91292, 3.06318, 2.60968, + 2.21536, 2.82537, 3.06938, + 0.05570, 0.03736, 69.05586, 3.17858, 2.72687, + 2.33641, 2.94171, 3.18485 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + 0.03384, 0.02599, 13.66262, 0.56034, 0.07632, + 0.00000, 0.30639, 0.56512, + 0.03698, 0.02766, 16.71935, 0.70863, 0.23054, + 0.00000, 0.45786, 0.71367, + 0.03982, 0.02917, 19.71086, 0.85086, 0.37793, + 0.00467, 0.60286, 0.85613, + 0.04242, 0.03054, 22.59473, 0.98619, 0.51785, + 0.10739, 0.74065, 0.99167, + 0.04484, 0.03181, 25.39314, 1.11811, 0.65394, + 0.25622, 0.87481, 1.12378, + 0.04711, 0.03300, 28.09462, 1.24630, 0.78595, + 0.39637, 1.00505, 1.25216, + 0.04925, 0.03412, 30.68545, 1.37025, 0.91342, + 0.53120, 1.13089, 1.37627 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + 0.05127, 0.03518, 33.17494, 1.49075, 1.03720, + 0.66173, 1.25315, 1.49693, + 0.05320, 0.03619, 35.55912, 1.60762, 1.15714, + 0.78786, 1.37166, 1.61396, + 0.05503, 0.03714, 37.83856, 1.72087, 1.27327, + 0.90972, 1.48646, 1.72735, + 0.05678, 0.03805, 40.02342, 1.83099, 1.38611, + 1.02787, 1.59804, 1.83762, + 0.05847, 0.03892, 42.12228, 1.93831, 1.49599, + 1.14271, 1.70674, 1.94507, + 0.06008, 0.03976, 44.14441, 2.04316, 1.60327, + 1.25462, 1.81289, 2.05004, + 0.06163, 0.04056, 46.05630, 2.14392, 1.70635, + 1.36206, 1.91489, 2.15092 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + 0.06313, 0.04133, 47.90068, 2.24249, 1.80714, + 1.46695, 2.01465, 2.24962, + 0.06457, 0.04207, 49.68069, 2.33892, 1.90568, + 1.56936, 2.11221, 2.34616, + 0.06596, 0.04279, 51.36375, 2.43170, 2.00049, + 1.66784, 2.20608, 2.43905, + 0.06732, 0.04348, 53.00735, 2.52330, 2.09404, + 1.76488, 2.29873, 2.53077, + 0.06862, 0.04415, 54.55517, 2.61120, 2.18381, + 1.85797, 2.38763, 2.61877 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + 0.03993, 0.02932, 12.30660, 0.53746, 0.06952, + 0.00000, 0.29218, 0.54282, + 0.04355, 0.03122, 14.95107, 0.66647, 0.20464, + 0.00000, 0.42449, 0.67213, + 0.04681, 0.03293, 17.51349, 0.78966, 0.33317, + 0.00409, 0.55056, 0.79560, + 0.04978, 0.03448, 19.96186, 0.90635, 0.45461, + 0.09337, 0.66982, 0.91254, + 0.05255, 0.03592, 22.31970, 1.01952, 0.57207, + 0.22221, 0.78531, 1.02594, + 0.05514, 0.03727, 24.57994, 1.12898, 0.68548, + 0.34293, 0.89690, 1.13562, + 0.05758, 0.03853, 26.73329, 1.23436, 0.79450, + 0.45856, 1.00425, 1.24120 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + 0.05988, 0.03972, 28.79006, 1.33639, 0.89992, + 0.57005, 1.10811, 1.34343, + 0.06206, 0.04085, 30.74858, 1.43497, 1.00167, + 0.67736, 1.20840, 1.44219, + 0.06414, 0.04192, 32.61092, 1.53014, 1.09981, + 0.78065, 1.30518, 1.53754, + 0.06612, 0.04294, 34.38702, 1.62237, 1.19484, + 0.88044, 1.39892, 1.62993, + 0.06802, 0.04391, 36.08525, 1.71196, 1.28708, + 0.97712, 1.48994, 1.71967, + 0.06984, 0.04484, 37.71435, 1.79921, 1.37684, + 1.07105, 1.57855, 1.80708, + 0.07159, 0.04573, 39.24672, 1.88279, 1.46282, + 1.16093, 1.66342, 1.89081 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + 0.07327, 0.04659, 40.71925, 1.96434, 1.54665, + 1.24845, 1.74621, 1.97250, + 0.07489, 0.04742, 42.13503, 2.04390, 1.62840, + 1.33367, 1.82695, 2.05219, + 0.07646, 0.04822, 43.46724, 2.12023, 1.70682, + 1.41538, 1.90441, 2.12865, + 0.07797, 0.04899, 44.76455, 2.19543, 1.78402, + 1.49571, 1.98069, 2.20398, + 0.07943, 0.04973, 45.98016, 2.26738, 1.85790, + 1.57256, 2.05368, 2.27605 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + 0.04544, 0.03232, 11.31137, 0.51949, 0.06475, + 0.00000, 0.28121, 0.52522, + 0.04945, 0.03443, 13.65905, 0.63506, 0.18659, + 0.00000, 0.40017, 0.64113, + 0.05307, 0.03631, 15.91589, 0.74479, 0.30180, + 0.00367, 0.51286, 0.75116, + 0.05636, 0.03802, 18.05700, 0.84826, 0.41014, + 0.08343, 0.61896, 0.85490, + 0.05942, 0.03961, 20.10622, 0.94814, 0.51444, + 0.19812, 0.72123, 0.95505, + 0.06227, 0.04108, 22.05949, 1.04439, 0.61472, + 0.30512, 0.81966, 1.05153, + 0.06495, 0.04247, 23.91000, 1.13671, 0.71078, + 0.40726, 0.91400, 1.14408 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + 0.06748, 0.04377, 25.66904, 1.22579, 0.80334, + 0.50539, 1.00496, 1.23337, + 0.06988, 0.04500, 27.33588, 1.31157, 0.89236, + 0.59953, 1.09250, 1.31936, + 0.07215, 0.04616, 28.91352, 1.39416, 0.97799, + 0.68988, 1.17673, 1.40213, + 0.07432, 0.04727, 30.41193, 1.47395, 1.06065, + 0.77692, 1.25807, 1.48210, + 0.07639, 0.04833, 31.83911, 1.55124, 1.14066, + 0.86102, 1.33684, 1.55957, + 0.07838, 0.04934, 33.20328, 1.62635, 1.21834, + 0.94251, 1.41333, 1.63484, + 0.08028, 0.05031, 34.48087, 1.69810, 1.29254, + 1.02030, 1.48641, 1.70675 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + 0.08211, 0.05124, 35.70431, 1.76794, 1.36472, + 1.09585, 1.55751, 1.77675, + 0.08388, 0.05214, 36.87663, 1.83593, 1.43494, + 1.16927, 1.62671, 1.84489, + 0.08558, 0.05300, 37.97540, 1.90102, 1.50216, + 1.23951, 1.69295, 1.91012, + 0.08723, 0.05383, 39.04290, 1.96502, 1.56822, + 1.30843, 1.75807, 1.97426, + 0.08881, 0.05463, 40.03866, 2.02611, 1.63128, + 1.37422, 1.82022, 2.03548 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + 0.06768, 0.04415, 8.61584, 0.46308, 0.05142, + 0.00000, 0.24796, 0.47059, + 0.07319, 0.04700, 10.20898, 0.54291, 0.13808, + 0.00000, 0.33152, 0.55091, + 0.07812, 0.04954, 11.70121, 0.61754, 0.21867, + 0.00258, 0.40941, 0.62598, + 0.08256, 0.05183, 13.08360, 0.68701, 0.29342, + 0.05790, 0.48176, 0.69584, + 0.08666, 0.05393, 14.37958, 0.75315, 0.36435, + 0.13658, 0.55052, 0.76235, + 0.09047, 0.05588, 15.59109, 0.81610, 0.43169, + 0.20904, 0.61587, 0.82565, + 0.09403, 0.05769, 16.71752, 0.87581, 0.49544, + 0.27742, 0.67778, 0.88567 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + 0.09736, 0.05938, 17.77018, 0.93280, 0.55618, + 0.34240, 0.73682, 0.94296, + 0.10051, 0.06097, 18.75124, 0.98712, 0.61399, + 0.40410, 0.79305, 0.99756, + 0.10347, 0.06247, 19.66505, 1.03890, 0.66904, + 0.46274, 0.84661, 1.04960, + 0.10629, 0.06389, 20.52015, 1.08846, 0.72169, + 0.51871, 0.89786, 1.09941, + 0.10897, 0.06524, 21.32339, 1.13605, 0.77219, + 0.57231, 0.94704, 1.14723, + 0.11154, 0.06653, 22.08137, 1.18190, 0.82081, + 0.62383, 0.99441, 1.19332, + 0.11398, 0.06775, 22.77973, 1.22533, 0.86687, + 0.67259, 1.03927, 1.23696 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + 0.11632, 0.06892, 23.44060, 1.26729, 0.91132, + 0.71960, 1.08259, 1.27912, + 0.11857, 0.07004, 24.06660, 1.30783, 0.95425, + 0.76495, 1.12444, 1.31987, + 0.12072, 0.07111, 24.64403, 1.34632, 0.99503, + 0.80801, 1.16418, 1.35855, + 0.12280, 0.07214, 25.20043, 1.38396, 1.03485, + 0.85000, 1.20301, 1.39637, + 0.12480, 0.07313, 25.71060, 1.41958, 1.07257, + 0.88977, 1.23977, 1.43216 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + 0.10038, 0.06152, 6.39838, 0.40386, 0.04028, + 0.00000, 0.21467, 0.41396, + 0.10775, 0.06531, 7.43979, 0.45628, 0.10009, + 0.00000, 0.27117, 0.46708, + 0.11426, 0.06864, 8.38713, 0.50450, 0.15473, + 0.00177, 0.32293, 0.51592, + 0.12008, 0.07161, 9.24073, 0.54876, 0.20467, + 0.03897, 0.37032, 0.56073, + 0.12540, 0.07430, 10.02179, 0.59029, 0.25132, + 0.09130, 0.41467, 0.60277, + 0.13031, 0.07678, 10.73483, 0.62929, 0.29500, + 0.13880, 0.45625, 0.64224, + 0.13485, 0.07906, 11.38255, 0.66583, 0.33584, + 0.18310, 0.49516, 0.67920 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + 0.13908, 0.08117, 11.97523, 0.70027, 0.37426, + 0.22469, 0.53180, 0.71404, + 0.14304, 0.08315, 12.51620, 0.73272, 0.41042, + 0.26374, 0.56629, 0.74686, + 0.14676, 0.08499, 13.00955, 0.76331, 0.44447, + 0.30046, 0.59878, 0.77780, + 0.15026, 0.08672, 13.46212, 0.79227, 0.47669, + 0.33515, 0.62954, 0.80708, + 0.15358, 0.08836, 13.87946, 0.81980, 0.50729, + 0.36805, 0.65876, 0.83492, + 0.15674, 0.08991, 14.26664, 0.84607, 0.53647, + 0.39937, 0.68664, 0.86149, + 0.15972, 0.09137, 14.61512, 0.87068, 0.56383, + 0.42875, 0.71276, 0.88637 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + 0.16257, 0.09276, 14.93951, 0.89425, 0.59002, + 0.45683, 0.73777, 0.91020, + 0.16530, 0.09409, 15.24181, 0.91684, 0.61510, + 0.48370, 0.76174, 0.93305, + 0.16790, 0.09534, 15.51394, 0.93806, 0.63870, + 0.50899, 0.78426, 0.95450, + 0.17040, 0.09655, 15.77335, 0.95866, 0.66159, + 0.53348, 0.80612, 0.97533, + 0.17278, 0.09770, 16.00476, 0.97795, 0.68306, + 0.55647, 0.82661, 0.99484 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + 0.12610, 0.07531, 5.29865, 0.36750, 0.03459, + -0.00001, 0.19502, 0.37986, + 0.13467, 0.07969, 6.09709, 0.40718, 0.08192, + -0.00001, 0.23895, 0.42039, + 0.14219, 0.08351, 6.80911, 0.44333, 0.12471, + 0.00138, 0.27879, 0.45729, + 0.14888, 0.08687, 7.43835, 0.47623, 0.16346, + 0.03040, 0.31493, 0.49085, + 0.15494, 0.08992, 8.00421, 0.50683, 0.19933, + 0.07093, 0.34845, 0.52204, + 0.16051, 0.09268, 8.51220, 0.53532, 0.23262, + 0.10741, 0.37961, 0.55108, + 0.16562, 0.09522, 8.96579, 0.56179, 0.26349, + 0.14117, 0.40852, 0.57805 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + 0.17037, 0.09755, 9.37393, 0.58654, 0.29232, + 0.17262, 0.43553, 0.60326, + 0.17479, 0.09972, 9.74081, 0.60968, 0.31924, + 0.20195, 0.46077, 0.62682, + 0.17892, 0.10173, 10.06995, 0.63132, 0.34440, + 0.22933, 0.48435, 0.64885, + 0.18279, 0.10360, 10.36721, 0.65165, 0.36805, + 0.25503, 0.50651, 0.66955, + 0.18645, 0.10537, 10.63731, 0.67084, 0.39035, + 0.27925, 0.52743, 0.68909, + 0.18991, 0.10703, 10.88445, 0.68904, 0.41150, + 0.30217, 0.54726, 0.70761, + 0.19317, 0.10858, 11.10213, 0.70595, 0.43120, + 0.32354, 0.56572, 0.72483 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + 0.19627, 0.11006, 11.30211, 0.72204, 0.44993, + 0.34385, 0.58327, 0.74121, + 0.19922, 0.11146, 11.48601, 0.73737, 0.46778, + 0.36318, 0.59999, 0.75681, + 0.20202, 0.11278, 11.64761, 0.75165, 0.48446, + 0.38126, 0.61559, 0.77135, + 0.20471, 0.11405, 11.80025, 0.76545, 0.50057, + 0.39870, 0.63067, 0.78540, + 0.20727, 0.11524, 11.93268, 0.77827, 0.51559, + 0.41498, 0.64470, 0.79845 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + 0.14803, 0.08722, 4.59800, 0.34083, 0.03090, + -0.00001, 0.18093, 0.35524, + 0.15748, 0.09200, 5.25438, 0.37279, 0.07066, + -0.00001, 0.21725, 0.38818, + 0.16572, 0.09614, 5.83030, 0.40173, 0.10632, + 0.00115, 0.24994, 0.41795, + 0.17299, 0.09976, 6.33107, 0.42789, 0.13841, + 0.02528, 0.27940, 0.44485, + 0.17957, 0.10300, 6.77501, 0.45205, 0.16789, + 0.05880, 0.30652, 0.46966, + 0.18557, 0.10594, 7.16787, 0.47439, 0.19508, + 0.08877, 0.33157, 0.49260, + 0.19105, 0.10861, 7.51347, 0.49501, 0.22014, + 0.11634, 0.35466, 0.51376 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + 0.19613, 0.11106, 7.82012, 0.51417, 0.24339, + 0.14189, 0.37609, 0.53342, + 0.20082, 0.11332, 8.09182, 0.53196, 0.26498, + 0.16558, 0.39600, 0.55167, + 0.20520, 0.11540, 8.33199, 0.54849, 0.28505, + 0.18758, 0.41448, 0.56861, + 0.20928, 0.11734, 8.54581, 0.56393, 0.30380, + 0.20813, 0.43176, 0.58444, + 0.21313, 0.11915, 8.73740, 0.57841, 0.32140, + 0.22739, 0.44797, 0.59929, + 0.21675, 0.12085, 8.91042, 0.59206, 0.33800, + 0.24555, 0.46327, 0.61329, + 0.22015, 0.12243, 9.05964, 0.60467, 0.35339, + 0.26239, 0.47741, 0.62621 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + 0.22337, 0.12392, 9.19486, 0.61659, 0.36795, + 0.27832, 0.49080, 0.63843, + 0.22644, 0.12533, 9.31747, 0.62789, 0.38177, + 0.29342, 0.50349, 0.65001, + 0.22933, 0.12665, 9.42245, 0.63834, 0.39461, + 0.30748, 0.51526, 0.66073, + 0.23210, 0.12792, 9.52071, 0.64841, 0.40696, + 0.32099, 0.52659, 0.67105, + 0.23472, 0.12910, 9.60318, 0.65768, 0.41842, + 0.33355, 0.53707, 0.68055 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + 0.16748, 0.09785, 4.09947, 0.31969, 0.02823, + 0.00000, 0.16998, 0.33606, + 0.17759, 0.10292, 4.66121, 0.34639, 0.06278, + 0.00000, 0.20108, 0.36382, + 0.18636, 0.10727, 5.14709, 0.37042, 0.09358, + 0.00100, 0.22891, 0.38877, + 0.19407, 0.11104, 5.56341, 0.39204, 0.12114, + 0.02179, 0.25384, 0.41116, + 0.20100, 0.11441, 5.92782, 0.41188, 0.14632, + 0.05057, 0.27667, 0.43171, + 0.20729, 0.11744, 6.24610, 0.43012, 0.16941, + 0.07616, 0.29762, 0.45058, + 0.21303, 0.12018, 6.52246, 0.44687, 0.19059, + 0.09960, 0.31684, 0.46789 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + 0.21830, 0.12267, 6.76435, 0.46232, 0.21013, + 0.12120, 0.33457, 0.48386, + 0.22318, 0.12496, 6.97560, 0.47660, 0.22819, + 0.14114, 0.35095, 0.49861, + 0.22769, 0.12706, 7.15981, 0.48979, 0.24491, + 0.15959, 0.36611, 0.51223, + 0.23190, 0.12900, 7.32142, 0.50204, 0.26046, + 0.17674, 0.38019, 0.52487, + 0.23584, 0.13081, 7.46428, 0.51346, 0.27499, + 0.19276, 0.39334, 0.53667, + 0.23955, 0.13250, 7.59165, 0.52417, 0.28863, + 0.20779, 0.40568, 0.54773, + 0.24300, 0.13406, 7.69881, 0.53399, 0.30120, + 0.22167, 0.41702, 0.55787 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + 0.24628, 0.13554, 7.79458, 0.54324, 0.31307, + 0.23476, 0.42772, 0.56741, + 0.24938, 0.13692, 7.88015, 0.55196, 0.32428, + 0.24712, 0.43782, 0.57641, + 0.25229, 0.13821, 7.95121, 0.55997, 0.33466, + 0.25859, 0.44714, 0.58468, + 0.25509, 0.13945, 8.01701, 0.56766, 0.34461, + 0.26958, 0.45608, 0.59262, + 0.25771, 0.14059, 8.06985, 0.57468, 0.35379, + 0.27973, 0.46429, 0.59986 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + 0.24419, 0.14014, 2.79566, 0.25224, 0.02089, + 0.00000, 0.13632, 0.27748, + 0.25595, 0.14557, 3.13467, 0.26619, 0.04257, + 0.00000, 0.15464, 0.29264, + 0.26590, 0.15008, 3.41080, 0.27849, 0.06150, + 0.00062, 0.17067, 0.30593, + 0.27446, 0.15387, 3.63307, 0.28929, 0.07808, + 0.01330, 0.18471, 0.31756, + 0.28200, 0.15716, 3.81685, 0.29896, 0.09292, + 0.03060, 0.19728, 0.32794, + 0.28872, 0.16003, 3.96810, 0.30764, 0.10627, + 0.04570, 0.20857, 0.33723, + 0.29473, 0.16255, 4.09096, 0.31537, 0.11826, + 0.05928, 0.21867, 0.34550 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + 0.30015, 0.16478, 4.19167, 0.32234, 0.12913, + 0.07160, 0.22781, 0.35293, + 0.30507, 0.16678, 4.27336, 0.32860, 0.13899, + 0.08277, 0.23606, 0.35959, + 0.30956, 0.16855, 4.33881, 0.33420, 0.14794, + 0.09294, 0.24351, 0.36556, + 0.31366, 0.17016, 4.39139, 0.33926, 0.15612, + 0.10224, 0.25030, 0.37095, + 0.31744, 0.17161, 4.43360, 0.34386, 0.16364, + 0.11080, 0.25650, 0.37583, + 0.32096, 0.17294, 4.46755, 0.34806, 0.17059, + 0.11873, 0.26222, 0.38030, + 0.32416, 0.17413, 4.49085, 0.35177, 0.17688, + 0.12592, 0.26734, 0.38423 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + 0.32716, 0.17522, 4.50865, 0.35517, 0.18273, + 0.13262, 0.27208, 0.38784, + 0.32997, 0.17622, 4.52167, 0.35829, 0.18817, + 0.13887, 0.27647, 0.39116, + 0.33254, 0.17713, 4.52744, 0.36103, 0.19310, + 0.14456, 0.28040, 0.39405, + 0.33499, 0.17798, 4.53140, 0.36361, 0.19778, + 0.14996, 0.28413, 0.39679, + 0.33724, 0.17873, 4.52925, 0.36585, 0.20201, + 0.15487, 0.28744, 0.39916 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + 0.35111, 0.19714, 1.86020, 0.18489, 0.01497, + -0.00002, 0.10460, 0.22397, + 0.36249, 0.20108, 2.05100, 0.19073, 0.02794, + -0.00001, 0.11438, 0.23055, + 0.37170, 0.20408, 2.19024, 0.19561, 0.03890, + 0.00035, 0.12259, 0.23596, + 0.37926, 0.20637, 2.28925, 0.19964, 0.04819, + 0.00762, 0.12948, 0.24035, + 0.38564, 0.20818, 2.36156, 0.20303, 0.05626, + 0.01735, 0.13539, 0.24398, + 0.39109, 0.20960, 2.41274, 0.20585, 0.06328, + 0.02560, 0.14047, 0.24699, + 0.39574, 0.21069, 2.44654, 0.20817, 0.06941, + 0.03284, 0.14483, 0.24942 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + 0.39975, 0.21155, 2.46789, 0.21009, 0.07482, + 0.03925, 0.14860, 0.25140, + 0.40322, 0.21221, 2.47914, 0.21165, 0.07957, + 0.04492, 0.15185, 0.25297, + 0.40623, 0.21268, 2.48220, 0.21289, 0.08377, + 0.04997, 0.15464, 0.25419, + 0.40887, 0.21301, 2.47939, 0.21387, 0.08750, + 0.05448, 0.15706, 0.25513, + 0.41118, 0.21325, 2.47221, 0.21465, 0.09083, + 0.05854, 0.15917, 0.25585, + 0.41323, 0.21340, 2.46187, 0.21526, 0.09384, + 0.06222, 0.16103, 0.25639, + 0.41499, 0.21343, 2.44706, 0.21564, 0.09647, + 0.06549, 0.16257, 0.25667 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + 0.41654, 0.21341, 2.43065, 0.21590, 0.09886, + 0.06846, 0.16393, 0.25683, + 0.41791, 0.21335, 2.41297, 0.21607, 0.10102, + 0.07119, 0.16512, 0.25688, + 0.41907, 0.21320, 2.39269, 0.21607, 0.10291, + 0.07360, 0.16609, 0.25675, + 0.42015, 0.21303, 2.37264, 0.21603, 0.10467, + 0.07586, 0.16697, 0.25659, + 0.42102, 0.21280, 2.35049, 0.21584, 0.10619, + 0.07785, 0.16765, 0.25627 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + 0.42907, 0.23418, 1.47819, 0.14703, 0.01209, + 0.00000, 0.08733, 0.19523, + 0.43796, 0.23560, 1.59814, 0.14970, 0.02138, + 0.00000, 0.09346, 0.19776, + 0.44468, 0.23633, 1.67494, 0.15169, 0.02897, + 0.00026, 0.09834, 0.19950, + 0.44978, 0.23651, 1.72030, 0.15311, 0.03522, + 0.00527, 0.10223, 0.20058, + 0.45377, 0.23637, 1.74629, 0.15410, 0.04049, + 0.01187, 0.10539, 0.20121, + 0.45686, 0.23598, 1.75777, 0.15475, 0.04497, + 0.01736, 0.10796, 0.20146, + 0.45924, 0.23539, 1.75797, 0.15509, 0.04876, + 0.02206, 0.11003, 0.20139 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + 0.46106, 0.23465, 1.75075, 0.15520, 0.05200, + 0.02612, 0.11168, 0.20105, + 0.46240, 0.23381, 1.73789, 0.15511, 0.05479, + 0.02965, 0.11300, 0.20054, + 0.46335, 0.23288, 1.72084, 0.15485, 0.05719, + 0.03274, 0.11404, 0.19986, + 0.46399, 0.23190, 1.70110, 0.15447, 0.05925, + 0.03544, 0.11485, 0.19904, + 0.46439, 0.23088, 1.67969, 0.15399, 0.06105, + 0.03782, 0.11547, 0.19815, + 0.46460, 0.22984, 1.65737, 0.15345, 0.06262, + 0.03995, 0.11595, 0.19721, + 0.46455, 0.22874, 1.63319, 0.15279, 0.06395, + 0.04180, 0.11624, 0.19614 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + 0.46437, 0.22765, 1.60900, 0.15210, 0.06513, + 0.04344, 0.11644, 0.19505, + 0.46409, 0.22656, 1.58493, 0.15138, 0.06616, + 0.04492, 0.11654, 0.19393, + 0.46363, 0.22543, 1.56008, 0.15059, 0.06702, + 0.04620, 0.11653, 0.19274, + 0.46314, 0.22434, 1.53619, 0.14981, 0.06781, + 0.04738, 0.11649, 0.19158, + 0.46249, 0.22321, 1.51173, 0.14895, 0.06844, + 0.04840, 0.11633, 0.19036 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + 0.48971, 0.25836, 1.26878, 0.12090, 0.01018, + 0.00000, 0.07514, 0.17407, + 0.49497, 0.25702, 1.34015, 0.12184, 0.01730, + 0.00000, 0.07908, 0.17392, + 0.49836, 0.25527, 1.37658, 0.12225, 0.02293, + 0.00019, 0.08202, 0.17334, + 0.50032, 0.25330, 1.38917, 0.12229, 0.02744, + 0.00392, 0.08417, 0.17237, + 0.50137, 0.25120, 1.38823, 0.12205, 0.03115, + 0.00876, 0.08578, 0.17118, + 0.50170, 0.24905, 1.37774, 0.12160, 0.03420, + 0.01269, 0.08696, 0.16981, + 0.50145, 0.24682, 1.36033, 0.12096, 0.03670, + 0.01598, 0.08778, 0.16832 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + 0.50081, 0.24459, 1.33898, 0.12021, 0.03880, + 0.01880, 0.08832, 0.16673, + 0.49980, 0.24238, 1.31489, 0.11936, 0.04055, + 0.02119, 0.08865, 0.16507, + 0.49853, 0.24018, 1.28910, 0.11844, 0.04200, + 0.02322, 0.08880, 0.16336, + 0.49707, 0.23801, 1.26261, 0.11745, 0.04321, + 0.02498, 0.08880, 0.16165, + 0.49548, 0.23588, 1.23604, 0.11644, 0.04424, + 0.02650, 0.08870, 0.15995, + 0.49378, 0.23381, 1.20982, 0.11542, 0.04510, + 0.02784, 0.08852, 0.15827, + 0.49192, 0.23174, 1.18322, 0.11436, 0.04580, + 0.02897, 0.08823, 0.15655 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + 0.49001, 0.22974, 1.15744, 0.11331, 0.04640, + 0.02997, 0.08789, 0.15487, + 0.48807, 0.22780, 1.13248, 0.11227, 0.04690, + 0.03085, 0.08752, 0.15322, + 0.48603, 0.22587, 1.10772, 0.11119, 0.04728, + 0.03159, 0.08708, 0.15157, + 0.48404, 0.22401, 1.08422, 0.11015, 0.04761, + 0.03227, 0.08663, 0.15000, + 0.48193, 0.22217, 1.06092, 0.10909, 0.04784, + 0.03282, 0.08613, 0.14840 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + 0.53736, 0.27314, 1.13097, 0.10088, 0.00871, + 0.00000, 0.06527, 0.15565, + 0.53839, 0.26906, 1.16509, 0.10072, 0.01433, + 0.00000, 0.06771, 0.15362, + 0.53793, 0.26500, 1.17234, 0.10021, 0.01864, + 0.00014, 0.06935, 0.15143, + 0.53643, 0.26099, 1.16261, 0.09943, 0.02200, + 0.00302, 0.07038, 0.14911, + 0.53431, 0.25711, 1.14423, 0.09850, 0.02467, + 0.00670, 0.07102, 0.14676, + 0.53171, 0.25334, 1.12030, 0.09745, 0.02681, + 0.00961, 0.07134, 0.14442, + 0.52874, 0.24969, 1.09283, 0.09633, 0.02854, + 0.01202, 0.07141, 0.14204 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + 0.52556, 0.24616, 1.06393, 0.09513, 0.02992, + 0.01402, 0.07132, 0.13972, + 0.52223, 0.24275, 1.03439, 0.09391, 0.03103, + 0.01572, 0.07109, 0.13744, + 0.51876, 0.23947, 1.00484, 0.09268, 0.03193, + 0.01712, 0.07073, 0.13520, + 0.51523, 0.23631, 0.97589, 0.09145, 0.03266, + 0.01831, 0.07031, 0.13302, + 0.51169, 0.23328, 0.94788, 0.09023, 0.03324, + 0.01934, 0.06982, 0.13091, + 0.50817, 0.23037, 0.92099, 0.08904, 0.03371, + 0.02022, 0.06930, 0.12888, + 0.50459, 0.22752, 0.89463, 0.08783, 0.03405, + 0.02095, 0.06873, 0.12687 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + 0.50106, 0.22480, 0.86955, 0.08666, 0.03433, + 0.02156, 0.06815, 0.12494, + 0.49758, 0.22218, 0.84568, 0.08553, 0.03455, + 0.02210, 0.06755, 0.12308, + 0.49408, 0.21962, 0.82253, 0.08438, 0.03468, + 0.02254, 0.06692, 0.12126, + 0.49070, 0.21718, 0.80076, 0.08328, 0.03479, + 0.02294, 0.06631, 0.11952, + 0.48728, 0.21477, 0.77962, 0.08220, 0.03483, + 0.02326, 0.06566, 0.11781 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + 0.58201, 0.28159, 1.00361, 0.08093, 0.00719, + 0.00000, 0.05468, 0.13423, + 0.57728, 0.27439, 1.00191, 0.07996, 0.01147, + -0.00001, 0.05584, 0.13062, + 0.57175, 0.26774, 0.98296, 0.07878, 0.01464, + 0.00009, 0.05642, 0.12717, + 0.56578, 0.26151, 0.95448, 0.07745, 0.01698, + 0.00223, 0.05656, 0.12386, + 0.55963, 0.25572, 0.92242, 0.07609, 0.01880, + 0.00489, 0.05645, 0.12069, + 0.55337, 0.25029, 0.88878, 0.07470, 0.02022, + 0.00698, 0.05613, 0.11767, + 0.54709, 0.24514, 0.85472, 0.07328, 0.02129, + 0.00865, 0.05569, 0.11478 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + 0.54087, 0.24029, 0.82149, 0.07187, 0.02213, + 0.01003, 0.05515, 0.11202, + 0.53471, 0.23572, 0.78946, 0.07051, 0.02276, + 0.01115, 0.05454, 0.10940, + 0.52864, 0.23138, 0.75881, 0.06917, 0.02324, + 0.01206, 0.05388, 0.10689, + 0.52273, 0.22726, 0.72979, 0.06786, 0.02360, + 0.01282, 0.05319, 0.10451, + 0.51698, 0.22335, 0.70247, 0.06659, 0.02387, + 0.01346, 0.05250, 0.10224, + 0.51141, 0.21965, 0.67684, 0.06537, 0.02407, + 0.01398, 0.05181, 0.10007, + 0.50589, 0.21607, 0.65239, 0.06417, 0.02419, + 0.01441, 0.05109, 0.09800 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + 0.50056, 0.21268, 0.62951, 0.06301, 0.02425, + 0.01477, 0.05039, 0.09603, + 0.49540, 0.20944, 0.60805, 0.06191, 0.02428, + 0.01507, 0.04970, 0.09415, + 0.49031, 0.20632, 0.58765, 0.06082, 0.02426, + 0.01531, 0.04901, 0.09234, + 0.48543, 0.20335, 0.56864, 0.05979, 0.02422, + 0.01551, 0.04834, 0.09062, + 0.48060, 0.20048, 0.55050, 0.05879, 0.02415, + 0.01565, 0.04766, 0.08895 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + 0.61244, 0.28164, 0.89881, 0.06478, 0.00591, + -0.00002, 0.04539, 0.11398, + 0.60177, 0.27174, 0.87070, 0.06336, 0.00920, + -0.00003, 0.04574, 0.10954, + 0.59122, 0.26290, 0.83391, 0.06185, 0.01155, + 0.00006, 0.04567, 0.10547, + 0.58084, 0.25489, 0.79378, 0.06032, 0.01323, + 0.00167, 0.04530, 0.10169, + 0.57082, 0.24758, 0.75406, 0.05879, 0.01449, + 0.00365, 0.04477, 0.09821, + 0.56116, 0.24080, 0.71572, 0.05727, 0.01542, + 0.00517, 0.04415, 0.09498, + 0.55178, 0.23454, 0.67920, 0.05582, 0.01611, + 0.00637, 0.04345, 0.09193 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + 0.54275, 0.22872, 0.64505, 0.05442, 0.01660, + 0.00731, 0.04271, 0.08910, + 0.53408, 0.22327, 0.61323, 0.05306, 0.01695, + 0.00808, 0.04195, 0.08646, + 0.52574, 0.21816, 0.58366, 0.05175, 0.01720, + 0.00869, 0.04117, 0.08398, + 0.51771, 0.21337, 0.55631, 0.05051, 0.01736, + 0.00919, 0.04041, 0.08163, + 0.51003, 0.20886, 0.53105, 0.04933, 0.01746, + 0.00960, 0.03966, 0.07943, + 0.50270, 0.20462, 0.50773, 0.04820, 0.01750, + 0.00993, 0.03894, 0.07736, + 0.49552, 0.20058, 0.48595, 0.04712, 0.01750, + 0.01018, 0.03821, 0.07538 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + 0.48867, 0.19676, 0.46581, 0.04608, 0.01746, + 0.01039, 0.03751, 0.07354, + 0.48212, 0.19312, 0.44712, 0.04508, 0.01740, + 0.01056, 0.03684, 0.07181, + 0.47572, 0.18966, 0.42962, 0.04413, 0.01732, + 0.01068, 0.03617, 0.07013, + 0.46961, 0.18639, 0.41344, 0.04323, 0.01723, + 0.01078, 0.03553, 0.06854, + 0.46363, 0.18324, 0.39820, 0.04236, 0.01711, + 0.01084, 0.03491, 0.06702 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + 0.63045, 0.27534, 0.80467, 0.05142, 0.00481, + -0.00001, 0.03720, 0.09515, + 0.61398, 0.26332, 0.75791, 0.04988, 0.00733, + -0.00001, 0.03703, 0.09038, + 0.59861, 0.25279, 0.70971, 0.04828, 0.00908, + 0.00006, 0.03657, 0.08613, + 0.58412, 0.24343, 0.66308, 0.04674, 0.01027, + 0.00126, 0.03592, 0.08230, + 0.57054, 0.23500, 0.61987, 0.04525, 0.01113, + 0.00275, 0.03521, 0.07882, + 0.55776, 0.22731, 0.58015, 0.04380, 0.01175, + 0.00383, 0.03444, 0.07566, + 0.54562, 0.22027, 0.54375, 0.04244, 0.01216, + 0.00468, 0.03364, 0.07273 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + 0.53418, 0.21376, 0.51070, 0.04114, 0.01244, + 0.00535, 0.03284, 0.07005, + 0.52331, 0.20777, 0.48067, 0.03991, 0.01263, + 0.00587, 0.03206, 0.06755, + 0.51301, 0.20217, 0.45338, 0.03873, 0.01273, + 0.00628, 0.03129, 0.06525, + 0.50324, 0.19696, 0.42857, 0.03762, 0.01278, + 0.00661, 0.03055, 0.06310, + 0.49397, 0.19208, 0.40600, 0.03657, 0.01278, + 0.00686, 0.02983, 0.06111, + 0.48520, 0.18752, 0.38545, 0.03556, 0.01275, + 0.00706, 0.02915, 0.05927, + 0.47670, 0.18322, 0.36649, 0.03464, 0.01268, + 0.00721, 0.02847, 0.05751 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + 0.46863, 0.17917, 0.34915, 0.03376, 0.01260, + 0.00732, 0.02783, 0.05586, + 0.46095, 0.17535, 0.33323, 0.03291, 0.01251, + 0.00741, 0.02722, 0.05432, + 0.45355, 0.17171, 0.31851, 0.03210, 0.01241, + 0.00747, 0.02662, 0.05286, + 0.44652, 0.16828, 0.30499, 0.03134, 0.01230, + 0.00752, 0.02606, 0.05148, + 0.43969, 0.16499, 0.29238, 0.03061, 0.01217, + 0.00754, 0.02551, 0.05018 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + 0.63743, 0.26442, 0.71660, 0.04042, 0.00386, + -0.00001, 0.03003, 0.07800, + 0.61558, 0.25075, 0.65751, 0.03887, 0.00581, + -0.00002, 0.02958, 0.07328, + 0.59577, 0.23898, 0.60287, 0.03735, 0.00710, + 0.00004, 0.02894, 0.06919, + 0.57763, 0.22864, 0.55348, 0.03588, 0.00795, + 0.00095, 0.02818, 0.06558, + 0.56095, 0.21943, 0.50968, 0.03450, 0.00855, + 0.00206, 0.02740, 0.06235, + 0.54545, 0.21115, 0.47078, 0.03320, 0.00895, + 0.00287, 0.02661, 0.05943, + 0.53099, 0.20360, 0.43615, 0.03200, 0.00920, + 0.00348, 0.02584, 0.05675 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + 0.51748, 0.19673, 0.40539, 0.03085, 0.00935, + 0.00396, 0.02507, 0.05435, + 0.50488, 0.19039, 0.37803, 0.02977, 0.00942, + 0.00431, 0.02435, 0.05213, + 0.49297, 0.18454, 0.35351, 0.02877, 0.00945, + 0.00458, 0.02364, 0.05009, + 0.48180, 0.17912, 0.33157, 0.02781, 0.00945, + 0.00479, 0.02295, 0.04823, + 0.47129, 0.17408, 0.31187, 0.02691, 0.00941, + 0.00496, 0.02231, 0.04650, + 0.46138, 0.16940, 0.29411, 0.02608, 0.00935, + 0.00508, 0.02171, 0.04489, + 0.45191, 0.16498, 0.27797, 0.02530, 0.00925, + 0.00517, 0.02112, 0.04339 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + 0.44295, 0.16086, 0.26335, 0.02456, 0.00915, + 0.00524, 0.02057, 0.04200, + 0.43447, 0.15698, 0.25003, 0.02385, 0.00905, + 0.00529, 0.02004, 0.04070, + 0.42631, 0.15330, 0.23782, 0.02320, 0.00894, + 0.00531, 0.01954, 0.03947, + 0.41861, 0.14984, 0.22666, 0.02259, 0.00884, + 0.00532, 0.01906, 0.03832, + 0.41117, 0.14657, 0.21636, 0.02200, 0.00872, + 0.00532, 0.01860, 0.03721 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + 0.63473, 0.25010, 0.63318, 0.03136, 0.00307, + -0.00001, 0.02388, 0.06278, + 0.60801, 0.23528, 0.56697, 0.02990, 0.00456, + -0.00002, 0.02329, 0.05844, + 0.58431, 0.22271, 0.50968, 0.02853, 0.00553, + 0.00002, 0.02260, 0.05467, + 0.56301, 0.21175, 0.46035, 0.02723, 0.00614, + 0.00072, 0.02186, 0.05141, + 0.54369, 0.20212, 0.41796, 0.02603, 0.00655, + 0.00156, 0.02110, 0.04852, + 0.52600, 0.19349, 0.38127, 0.02490, 0.00680, + 0.00215, 0.02036, 0.04596, + 0.50966, 0.18570, 0.34940, 0.02385, 0.00694, + 0.00260, 0.01964, 0.04367 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + 0.49455, 0.17866, 0.32163, 0.02289, 0.00701, + 0.00294, 0.01895, 0.04159, + 0.48055, 0.17221, 0.29723, 0.02198, 0.00704, + 0.00319, 0.01831, 0.03969, + 0.46746, 0.16629, 0.27577, 0.02113, 0.00702, + 0.00336, 0.01770, 0.03797, + 0.45522, 0.16086, 0.25678, 0.02035, 0.00697, + 0.00350, 0.01711, 0.03639, + 0.44379, 0.15582, 0.23992, 0.01962, 0.00691, + 0.00360, 0.01656, 0.03494, + 0.43311, 0.15115, 0.22488, 0.01894, 0.00684, + 0.00368, 0.01604, 0.03360, + 0.42290, 0.14680, 0.21133, 0.01832, 0.00675, + 0.00373, 0.01556, 0.03234 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + 0.41332, 0.14273, 0.19916, 0.01773, 0.00666, + 0.00377, 0.01510, 0.03119, + 0.40430, 0.13891, 0.18818, 0.01718, 0.00656, + 0.00379, 0.01466, 0.03012, + 0.39569, 0.13530, 0.17817, 0.01664, 0.00647, + 0.00379, 0.01424, 0.02912, + 0.38758, 0.13192, 0.16908, 0.01614, 0.00637, + 0.00379, 0.01385, 0.02819, + 0.37979, 0.12872, 0.16076, 0.01568, 0.00626, + 0.00377, 0.01348, 0.02730 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + 0.62355, 0.23340, 0.55429, 0.02396, 0.00244, + 0.00004, 0.01872, 0.04963, + 0.59260, 0.21795, 0.48528, 0.02273, 0.00356, + 0.00003, 0.01808, 0.04575, + 0.56564, 0.20494, 0.42830, 0.02154, 0.00424, + 0.00007, 0.01739, 0.04252, + 0.54173, 0.19377, 0.38090, 0.02044, 0.00467, + 0.00057, 0.01668, 0.03968, + 0.52029, 0.18401, 0.34127, 0.01944, 0.00494, + 0.00117, 0.01601, 0.03719, + 0.50093, 0.17528, 0.30775, 0.01848, 0.00512, + 0.00160, 0.01535, 0.03503, + 0.48313, 0.16752, 0.27914, 0.01764, 0.00517, + 0.00193, 0.01473, 0.03309 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + 0.46684, 0.16049, 0.25456, 0.01684, 0.00522, + 0.00214, 0.01416, 0.03134, + 0.45184, 0.15413, 0.23335, 0.01612, 0.00518, + 0.00230, 0.01360, 0.02979, + 0.43792, 0.14833, 0.21490, 0.01543, 0.00516, + 0.00244, 0.01307, 0.02836, + 0.42502, 0.14297, 0.19873, 0.01481, 0.00510, + 0.00253, 0.01260, 0.02706, + 0.41301, 0.13806, 0.18453, 0.01423, 0.00503, + 0.00259, 0.01215, 0.02587, + 0.40180, 0.13354, 0.17198, 0.01370, 0.00495, + 0.00264, 0.01173, 0.02479, + 0.39121, 0.12932, 0.16076, 0.01320, 0.00488, + 0.00267, 0.01132, 0.02378 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + 0.38130, 0.12539, 0.15075, 0.01273, 0.00480, + 0.00268, 0.01095, 0.02286, + 0.37202, 0.12173, 0.14179, 0.01228, 0.00472, + 0.00268, 0.01060, 0.02202, + 0.36315, 0.11827, 0.13369, 0.01188, 0.00462, + 0.00268, 0.01028, 0.02122, + 0.35483, 0.11505, 0.12638, 0.01151, 0.00453, + 0.00268, 0.00997, 0.02048, + 0.34690, 0.11201, 0.11973, 0.01114, 0.00444, + 0.00265, 0.00966, 0.01979 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + 0.60485, 0.21558, 0.48069, 0.01831, 0.00176, + -0.00013, 0.01427, 0.03851, + 0.57053, 0.19980, 0.41189, 0.01720, 0.00261, + -0.00014, 0.01371, 0.03523, + 0.54097, 0.18669, 0.35728, 0.01621, 0.00313, + -0.00010, 0.01311, 0.03246, + 0.51512, 0.17547, 0.31317, 0.01526, 0.00345, + 0.00030, 0.01251, 0.03012, + 0.49216, 0.16577, 0.27705, 0.01442, 0.00365, + 0.00078, 0.01193, 0.02806, + 0.47155, 0.15720, 0.24712, 0.01365, 0.00376, + 0.00110, 0.01138, 0.02628, + 0.45284, 0.14957, 0.22195, 0.01294, 0.00379, + 0.00133, 0.01086, 0.02471 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + 0.43578, 0.14277, 0.20066, 0.01232, 0.00379, + 0.00152, 0.01039, 0.02328, + 0.42016, 0.13658, 0.18255, 0.01173, 0.00378, + 0.00163, 0.00995, 0.02202, + 0.40579, 0.13096, 0.16690, 0.01120, 0.00372, + 0.00171, 0.00953, 0.02087, + 0.39252, 0.12584, 0.15339, 0.01070, 0.00368, + 0.00178, 0.00914, 0.01985, + 0.38023, 0.12115, 0.14160, 0.01024, 0.00362, + 0.00183, 0.00878, 0.01891, + 0.36880, 0.11684, 0.13124, 0.00984, 0.00356, + 0.00186, 0.00846, 0.01804, + 0.35808, 0.11283, 0.12209, 0.00943, 0.00349, + 0.00186, 0.00814, 0.01727 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + 0.34808, 0.10911, 0.11398, 0.00907, 0.00342, + 0.00186, 0.00785, 0.01655, + 0.33872, 0.10565, 0.10674, 0.00873, 0.00335, + 0.00187, 0.00758, 0.01588, + 0.32987, 0.10241, 0.10025, 0.00840, 0.00328, + 0.00186, 0.00732, 0.01527, + 0.32158, 0.09940, 0.09441, 0.00810, 0.00321, + 0.00185, 0.00708, 0.01470, + 0.31367, 0.09656, 0.08914, 0.00784, 0.00314, + 0.00184, 0.00685, 0.01416 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + 0.58019, 0.19652, 0.41208, 0.01353, 0.00137, + -0.00004, 0.01086, 0.02939, + 0.54314, 0.18088, 0.34615, 0.01265, 0.00202, + -0.00003, 0.01034, 0.02665, + 0.51169, 0.16796, 0.29534, 0.01184, 0.00240, + -0.00001, 0.00982, 0.02438, + 0.48442, 0.15703, 0.25529, 0.01113, 0.00262, + 0.00028, 0.00931, 0.02245, + 0.46046, 0.14762, 0.22320, 0.01045, 0.00274, + 0.00061, 0.00882, 0.02082, + 0.43905, 0.13936, 0.19701, 0.00986, 0.00278, + 0.00084, 0.00836, 0.01942, + 0.41982, 0.13207, 0.17534, 0.00931, 0.00281, + 0.00100, 0.00795, 0.01812 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + 0.40238, 0.12555, 0.15722, 0.00882, 0.00279, + 0.00112, 0.00757, 0.01702, + 0.38652, 0.11969, 0.14193, 0.00837, 0.00276, + 0.00119, 0.00721, 0.01604, + 0.37202, 0.11438, 0.12894, 0.00794, 0.00271, + 0.00125, 0.00687, 0.01516, + 0.35862, 0.10958, 0.11778, 0.00759, 0.00266, + 0.00129, 0.00658, 0.01433, + 0.34628, 0.10518, 0.10812, 0.00727, 0.00261, + 0.00131, 0.00630, 0.01360, + 0.33494, 0.10114, 0.09971, 0.00693, 0.00255, + 0.00132, 0.00603, 0.01296, + 0.32431, 0.09740, 0.09232, 0.00663, 0.00250, + 0.00132, 0.00579, 0.01235 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + 0.31441, 0.09396, 0.08582, 0.00636, 0.00244, + 0.00132, 0.00557, 0.01179, + 0.30519, 0.09076, 0.08006, 0.00613, 0.00238, + 0.00132, 0.00536, 0.01128, + 0.29649, 0.08778, 0.07492, 0.00588, 0.00232, + 0.00131, 0.00516, 0.01082, + 0.28837, 0.08501, 0.07032, 0.00566, 0.00227, + 0.00131, 0.00498, 0.01039, + 0.28063, 0.08240, 0.06618, 0.00547, 0.00220, + 0.00130, 0.00480, 0.00999 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + 0.55038, 0.17742, 0.34954, 0.00991, 0.00103, + -0.00004, 0.00807, 0.02200, + 0.51147, 0.16214, 0.28808, 0.00922, 0.00150, + -0.00003, 0.00764, 0.01980, + 0.47881, 0.14966, 0.24195, 0.00859, 0.00177, + -0.00002, 0.00722, 0.01799, + 0.45071, 0.13920, 0.20641, 0.00803, 0.00192, + 0.00020, 0.00680, 0.01648, + 0.42626, 0.13019, 0.17841, 0.00751, 0.00199, + 0.00044, 0.00640, 0.01520, + 0.40458, 0.12238, 0.15592, 0.00705, 0.00204, + 0.00061, 0.00606, 0.01407, + 0.38518, 0.11551, 0.13752, 0.00664, 0.00203, + 0.00073, 0.00573, 0.01309 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + 0.36772, 0.10940, 0.12239, 0.00626, 0.00201, + 0.00080, 0.00543, 0.01225, + 0.35196, 0.10391, 0.10972, 0.00592, 0.00199, + 0.00085, 0.00515, 0.01147, + 0.33753, 0.09900, 0.09902, 0.00562, 0.00194, + 0.00090, 0.00489, 0.01080, + 0.32436, 0.09453, 0.08993, 0.00534, 0.00191, + 0.00092, 0.00467, 0.01018, + 0.31228, 0.09047, 0.08213, 0.00508, 0.00186, + 0.00093, 0.00446, 0.00963, + 0.30116, 0.08676, 0.07538, 0.00483, 0.00181, + 0.00094, 0.00426, 0.00916, + 0.29080, 0.08334, 0.06950, 0.00463, 0.00176, + 0.00094, 0.00407, 0.00870 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + 0.28119, 0.08019, 0.06434, 0.00443, 0.00172, + 0.00094, 0.00390, 0.00828, + 0.27225, 0.07729, 0.05978, 0.00425, 0.00167, + 0.00094, 0.00375, 0.00790, + 0.26388, 0.07457, 0.05577, 0.00407, 0.00162, + 0.00092, 0.00360, 0.00755, + 0.25610, 0.07206, 0.05218, 0.00390, 0.00158, + 0.00090, 0.00346, 0.00723, + 0.24870, 0.06971, 0.04897, 0.00376, 0.00154, + 0.00089, 0.00333, 0.00693 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + 0.51658, 0.15844, 0.29304, 0.00708, 0.00077, + -0.00001, 0.00592, 0.01619, + 0.47655, 0.14384, 0.23711, 0.00658, 0.00112, + 0.00000, 0.00557, 0.01445, + 0.44332, 0.13197, 0.19622, 0.00610, 0.00131, + 0.00001, 0.00524, 0.01304, + 0.41502, 0.12209, 0.16531, 0.00567, 0.00141, + 0.00016, 0.00490, 0.01188, + 0.39052, 0.11367, 0.14133, 0.00528, 0.00146, + 0.00034, 0.00461, 0.01089, + 0.36899, 0.10639, 0.12233, 0.00493, 0.00147, + 0.00045, 0.00432, 0.01003, + 0.34979, 0.09998, 0.10701, 0.00464, 0.00146, + 0.00054, 0.00407, 0.00931 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + 0.33269, 0.09435, 0.09450, 0.00434, 0.00145, + 0.00058, 0.00385, 0.00866, + 0.31719, 0.08934, 0.08416, 0.00413, 0.00142, + 0.00061, 0.00363, 0.00807, + 0.30321, 0.08482, 0.07551, 0.00388, 0.00139, + 0.00064, 0.00344, 0.00759, + 0.29046, 0.08074, 0.06820, 0.00367, 0.00135, + 0.00066, 0.00327, 0.00714, + 0.27880, 0.07705, 0.06196, 0.00349, 0.00132, + 0.00067, 0.00310, 0.00673, + 0.26810, 0.07371, 0.05661, 0.00332, 0.00128, + 0.00067, 0.00295, 0.00638, + 0.25818, 0.07062, 0.05198, 0.00316, 0.00124, + 0.00067, 0.00282, 0.00605 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + 0.24900, 0.06779, 0.04794, 0.00302, 0.00120, + 0.00066, 0.00269, 0.00574, + 0.24048, 0.06517, 0.04439, 0.00290, 0.00117, + 0.00065, 0.00258, 0.00544, + 0.23254, 0.06274, 0.04128, 0.00277, 0.00113, + 0.00064, 0.00247, 0.00519, + 0.22518, 0.06050, 0.03851, 0.00264, 0.00110, + 0.00062, 0.00237, 0.00497, + 0.21820, 0.05840, 0.03603, 0.00255, 0.00108, + 0.00062, 0.00228, 0.00475 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + 0.47972, 0.14004, 0.24269, 0.00495, 0.00061, + 0.00004, 0.00428, 0.01165, + 0.43943, 0.12625, 0.19300, 0.00455, 0.00085, + 0.00006, 0.00400, 0.01036, + 0.40620, 0.11518, 0.15740, 0.00423, 0.00099, + 0.00005, 0.00374, 0.00927, + 0.37820, 0.10600, 0.13101, 0.00391, 0.00104, + 0.00016, 0.00349, 0.00841, + 0.35409, 0.09823, 0.11085, 0.00363, 0.00106, + 0.00027, 0.00326, 0.00768, + 0.33305, 0.09153, 0.09504, 0.00337, 0.00107, + 0.00035, 0.00305, 0.00704, + 0.31441, 0.08570, 0.08248, 0.00317, 0.00106, + 0.00040, 0.00286, 0.00649 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + 0.29782, 0.08057, 0.07233, 0.00297, 0.00104, + 0.00044, 0.00268, 0.00604, + 0.28300, 0.07602, 0.06398, 0.00279, 0.00101, + 0.00045, 0.00253, 0.00559, + 0.26960, 0.07195, 0.05707, 0.00264, 0.00098, + 0.00047, 0.00239, 0.00521, + 0.25745, 0.06829, 0.05130, 0.00249, 0.00095, + 0.00048, 0.00226, 0.00489, + 0.24637, 0.06498, 0.04640, 0.00235, 0.00092, + 0.00048, 0.00214, 0.00461, + 0.23623, 0.06199, 0.04219, 0.00223, 0.00089, + 0.00047, 0.00204, 0.00436, + 0.22689, 0.05923, 0.03859, 0.00213, 0.00087, + 0.00048, 0.00194, 0.00411 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + 0.21825, 0.05671, 0.03547, 0.00204, 0.00084, + 0.00047, 0.00186, 0.00389, + 0.21026, 0.05441, 0.03275, 0.00196, 0.00081, + 0.00046, 0.00177, 0.00368, + 0.20285, 0.05226, 0.03036, 0.00186, 0.00079, + 0.00046, 0.00169, 0.00351, + 0.19599, 0.05028, 0.02824, 0.00176, 0.00077, + 0.00045, 0.00161, 0.00336, + 0.18951, 0.04843, 0.02635, 0.00170, 0.00074, + 0.00044, 0.00155, 0.00321 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + 0.44083, 0.12264, 0.19865, 0.00347, 0.00041, + 0.00001, 0.00300, 0.00824, + 0.40094, 0.10983, 0.15531, 0.00317, 0.00060, + 0.00001, 0.00279, 0.00726, + 0.36834, 0.09962, 0.12491, 0.00293, 0.00069, + 0.00002, 0.00259, 0.00648, + 0.34107, 0.09121, 0.10277, 0.00271, 0.00073, + 0.00010, 0.00241, 0.00583, + 0.31778, 0.08411, 0.08606, 0.00250, 0.00075, + 0.00018, 0.00224, 0.00529, + 0.29753, 0.07803, 0.07315, 0.00231, 0.00074, + 0.00023, 0.00209, 0.00486, + 0.27971, 0.07278, 0.06298, 0.00218, 0.00074, + 0.00028, 0.00196, 0.00444 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + 0.26398, 0.06817, 0.05484, 0.00202, 0.00072, + 0.00030, 0.00184, 0.00410, + 0.24992, 0.06409, 0.04825, 0.00190, 0.00071, + 0.00032, 0.00172, 0.00380, + 0.23730, 0.06047, 0.04279, 0.00178, 0.00067, + 0.00032, 0.00161, 0.00354, + 0.22588, 0.05723, 0.03826, 0.00168, 0.00065, + 0.00032, 0.00152, 0.00331, + 0.21552, 0.05431, 0.03446, 0.00158, 0.00063, + 0.00033, 0.00144, 0.00310, + 0.20609, 0.05166, 0.03121, 0.00150, 0.00062, + 0.00033, 0.00137, 0.00290, + 0.19741, 0.04923, 0.02845, 0.00142, 0.00059, + 0.00032, 0.00130, 0.00274 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + 0.18943, 0.04702, 0.02607, 0.00135, 0.00057, + 0.00031, 0.00124, 0.00260, + 0.18208, 0.04500, 0.02399, 0.00129, 0.00054, + 0.00031, 0.00118, 0.00248, + 0.17524, 0.04313, 0.02217, 0.00123, 0.00053, + 0.00030, 0.00112, 0.00235, + 0.16892, 0.04142, 0.02057, 0.00116, 0.00052, + 0.00030, 0.00106, 0.00223, + 0.16302, 0.03982, 0.01916, 0.00111, 0.00049, + 0.00029, 0.00102, 0.00212 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + 0.40084, 0.10620, 0.16042, 0.00233, 0.00030, + 0.00003, 0.00208, 0.00569, + 0.36197, 0.09450, 0.12346, 0.00214, 0.00041, + 0.00002, 0.00192, 0.00500, + 0.33053, 0.08521, 0.09797, 0.00199, 0.00047, + 0.00003, 0.00176, 0.00444, + 0.30438, 0.07763, 0.07970, 0.00184, 0.00050, + 0.00008, 0.00164, 0.00396, + 0.28222, 0.07127, 0.06611, 0.00168, 0.00050, + 0.00013, 0.00151, 0.00359, + 0.26302, 0.06585, 0.05572, 0.00159, 0.00050, + 0.00017, 0.00140, 0.00327, + 0.24632, 0.06117, 0.04762, 0.00144, 0.00050, + 0.00018, 0.00130, 0.00300 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + 0.23158, 0.05709, 0.04121, 0.00134, 0.00047, + 0.00020, 0.00122, 0.00276, + 0.21843, 0.05351, 0.03603, 0.00128, 0.00046, + 0.00019, 0.00113, 0.00254, + 0.20670, 0.05032, 0.03179, 0.00119, 0.00045, + 0.00019, 0.00106, 0.00237, + 0.19614, 0.04747, 0.02830, 0.00112, 0.00042, + 0.00020, 0.00100, 0.00222, + 0.18661, 0.04492, 0.02537, 0.00106, 0.00041, + 0.00021, 0.00094, 0.00207, + 0.17797, 0.04263, 0.02290, 0.00099, 0.00039, + 0.00020, 0.00089, 0.00193, + 0.16998, 0.04054, 0.02080, 0.00096, 0.00038, + 0.00021, 0.00084, 0.00182 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + 0.16268, 0.03863, 0.01899, 0.00093, 0.00037, + 0.00021, 0.00079, 0.00171, + 0.15598, 0.03689, 0.01743, 0.00089, 0.00036, + 0.00020, 0.00075, 0.00161, + 0.14980, 0.03527, 0.01607, 0.00083, 0.00035, + 0.00019, 0.00072, 0.00153, + 0.14411, 0.03379, 0.01487, 0.00078, 0.00033, + 0.00019, 0.00068, 0.00146, + 0.13875, 0.03243, 0.01382, 0.00076, 0.00032, + 0.00018, 0.00066, 0.00138 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + 0.36038, 0.09094, 0.12773, 0.00153, 0.00022, + 0.00004, 0.00142, 0.00387, + 0.32316, 0.08037, 0.09671, 0.00141, 0.00030, + 0.00004, 0.00131, 0.00336, + 0.29326, 0.07205, 0.07573, 0.00129, 0.00033, + 0.00003, 0.00120, 0.00297, + 0.26860, 0.06528, 0.06093, 0.00119, 0.00035, + 0.00006, 0.00110, 0.00263, + 0.24777, 0.05967, 0.05004, 0.00110, 0.00036, + 0.00011, 0.00102, 0.00237, + 0.22989, 0.05488, 0.04182, 0.00102, 0.00036, + 0.00013, 0.00094, 0.00215, + 0.21434, 0.05078, 0.03547, 0.00094, 0.00034, + 0.00014, 0.00088, 0.00197 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + 0.20074, 0.04723, 0.03050, 0.00087, 0.00034, + 0.00015, 0.00081, 0.00180, + 0.18874, 0.04410, 0.02651, 0.00078, 0.00033, + 0.00014, 0.00075, 0.00167, + 0.17797, 0.04134, 0.02328, 0.00076, 0.00032, + 0.00016, 0.00071, 0.00153, + 0.16835, 0.03888, 0.02063, 0.00071, 0.00031, + 0.00016, 0.00067, 0.00142, + 0.15968, 0.03668, 0.01842, 0.00066, 0.00030, + 0.00015, 0.00063, 0.00133, + 0.15183, 0.03471, 0.01657, 0.00063, 0.00028, + 0.00015, 0.00060, 0.00124, + 0.14463, 0.03292, 0.01500, 0.00060, 0.00027, + 0.00015, 0.00056, 0.00117 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + 0.13808, 0.03129, 0.01366, 0.00057, 0.00026, + 0.00014, 0.00053, 0.00110, + 0.13208, 0.02980, 0.01250, 0.00054, 0.00025, + 0.00013, 0.00050, 0.00104, + 0.12654, 0.02844, 0.01149, 0.00052, 0.00024, + 0.00013, 0.00048, 0.00097, + 0.12145, 0.02719, 0.01061, 0.00049, 0.00023, + 0.00013, 0.00046, 0.00092, + 0.11670, 0.02604, 0.00984, 0.00046, 0.00022, + 0.00013, 0.00043, 0.00087 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + 0.32048, 0.07704, 0.10025, 0.00098, 0.00016, + 0.00003, 0.00095, 0.00254, + 0.28528, 0.06760, 0.07466, 0.00088, 0.00022, + 0.00003, 0.00087, 0.00221, + 0.25724, 0.06022, 0.05766, 0.00082, 0.00025, + 0.00002, 0.00081, 0.00194, + 0.23432, 0.05427, 0.04588, 0.00072, 0.00026, + 0.00006, 0.00073, 0.00172, + 0.21508, 0.04934, 0.03733, 0.00067, 0.00026, + 0.00009, 0.00069, 0.00152, + 0.19862, 0.04520, 0.03094, 0.00062, 0.00025, + 0.00010, 0.00063, 0.00138, + 0.18439, 0.04164, 0.02607, 0.00058, 0.00025, + 0.00010, 0.00058, 0.00124 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + 0.17199, 0.03858, 0.02227, 0.00054, 0.00024, + 0.00012, 0.00054, 0.00116, + 0.16110, 0.03589, 0.01925, 0.00049, 0.00023, + 0.00012, 0.00051, 0.00105, + 0.15141, 0.03353, 0.01683, 0.00046, 0.00022, + 0.00012, 0.00047, 0.00097, + 0.14276, 0.03145, 0.01485, 0.00042, 0.00021, + 0.00012, 0.00044, 0.00090, + 0.13500, 0.02959, 0.01321, 0.00039, 0.00020, + 0.00012, 0.00041, 0.00084, + 0.12798, 0.02792, 0.01183, 0.00038, 0.00020, + 0.00011, 0.00040, 0.00077, + 0.12161, 0.02640, 0.01068, 0.00035, 0.00019, + 0.00012, 0.00037, 0.00073 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + 0.11581, 0.02503, 0.00970, 0.00032, 0.00018, + 0.00011, 0.00035, 0.00069, + 0.11051, 0.02379, 0.00885, 0.00030, 0.00017, + 0.00011, 0.00033, 0.00065, + 0.10562, 0.02265, 0.00812, 0.00029, 0.00017, + 0.00011, 0.00032, 0.00060, + 0.10113, 0.02160, 0.00748, 0.00028, 0.00016, + 0.00011, 0.00030, 0.00056, + 0.09694, 0.02064, 0.00692, 0.00028, 0.00015, + 0.00010, 0.00028, 0.00053 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + 0.28175, 0.06457, 0.07758, 0.00067, 0.00008, + -0.00001, 0.00058, 0.00164, + 0.24898, 0.05630, 0.05693, 0.00064, 0.00011, + -0.00001, 0.00053, 0.00141, + 0.22316, 0.04988, 0.04346, 0.00057, 0.00013, + -0.00001, 0.00048, 0.00123, + 0.20212, 0.04472, 0.03422, 0.00053, 0.00015, + 0.00001, 0.00044, 0.00109, + 0.18464, 0.04047, 0.02761, 0.00047, 0.00014, + 0.00002, 0.00041, 0.00098, + 0.16977, 0.03692, 0.02272, 0.00044, 0.00014, + 0.00004, 0.00037, 0.00087, + 0.15695, 0.03389, 0.01901, 0.00041, 0.00014, + 0.00006, 0.00035, 0.00079 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + 0.14588, 0.03128, 0.01616, 0.00037, 0.00013, + 0.00005, 0.00031, 0.00072, + 0.13613, 0.02900, 0.01389, 0.00034, 0.00013, + 0.00005, 0.00029, 0.00066, + 0.12751, 0.02702, 0.01209, 0.00033, 0.00012, + 0.00006, 0.00027, 0.00061, + 0.11984, 0.02526, 0.01063, 0.00031, 0.00012, + 0.00006, 0.00026, 0.00056, + 0.11298, 0.02369, 0.00942, 0.00029, 0.00011, + 0.00005, 0.00024, 0.00052, + 0.10683, 0.02229, 0.00842, 0.00026, 0.00011, + 0.00005, 0.00022, 0.00050, + 0.10123, 0.02104, 0.00758, 0.00025, 0.00010, + 0.00005, 0.00021, 0.00046 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + 0.09616, 0.01990, 0.00686, 0.00023, 0.00009, + 0.00005, 0.00020, 0.00043, + 0.09153, 0.01887, 0.00625, 0.00022, 0.00009, + 0.00005, 0.00018, 0.00040, + 0.08728, 0.01792, 0.00572, 0.00022, 0.00009, + 0.00005, 0.00018, 0.00037, + 0.08339, 0.01706, 0.00526, 0.00021, 0.00008, + 0.00005, 0.00017, 0.00034, + 0.07978, 0.01626, 0.00486, 0.00019, 0.00008, + 0.00004, 0.00016, 0.00033 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + 0.24431, 0.05323, 0.05881, 0.00036, 0.00008, + 0.00003, 0.00040, 0.00102, + 0.21437, 0.04610, 0.04254, 0.00034, 0.00010, + 0.00002, 0.00035, 0.00089, + 0.19088, 0.04061, 0.03207, 0.00034, 0.00010, + 0.00002, 0.00032, 0.00076, + 0.17195, 0.03621, 0.02499, 0.00029, 0.00011, + 0.00003, 0.00029, 0.00068, + 0.15628, 0.03262, 0.01998, 0.00025, 0.00010, + 0.00004, 0.00027, 0.00060, + 0.14300, 0.02962, 0.01633, 0.00024, 0.00011, + 0.00004, 0.00024, 0.00054, + 0.13164, 0.02707, 0.01357, 0.00024, 0.00010, + 0.00004, 0.00022, 0.00049 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + 0.12185, 0.02490, 0.01146, 0.00021, 0.00009, + 0.00005, 0.00020, 0.00045, + 0.11331, 0.02301, 0.00982, 0.00020, 0.00009, + 0.00004, 0.00019, 0.00040, + 0.10576, 0.02136, 0.00851, 0.00018, 0.00008, + 0.00005, 0.00017, 0.00037, + 0.09906, 0.01991, 0.00745, 0.00018, 0.00008, + 0.00005, 0.00016, 0.00034, + 0.09310, 0.01863, 0.00658, 0.00018, 0.00007, + 0.00004, 0.00015, 0.00031, + 0.08777, 0.01748, 0.00586, 0.00016, 0.00006, + 0.00004, 0.00014, 0.00029, + 0.08296, 0.01644, 0.00526, 0.00014, 0.00006, + 0.00004, 0.00013, 0.00027 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + 0.07860, 0.01551, 0.00475, 0.00013, 0.00006, + 0.00004, 0.00012, 0.00025, + 0.07463, 0.01468, 0.00432, 0.00013, 0.00006, + 0.00004, 0.00011, 0.00024, + 0.07098, 0.01391, 0.00395, 0.00012, 0.00006, + 0.00003, 0.00011, 0.00022, + 0.06766, 0.01321, 0.00362, 0.00012, 0.00006, + 0.00003, 0.00010, 0.00021, + 0.06458, 0.01257, 0.00334, 0.00011, 0.00005, + 0.00003, 0.00010, 0.00020 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + 0.20907, 0.04333, 0.04381, 0.00020, 0.00007, + 0.00004, 0.00026, 0.00061, + 0.18208, 0.03726, 0.03120, 0.00019, 0.00007, + 0.00003, 0.00023, 0.00053, + 0.16111, 0.03261, 0.02323, 0.00016, 0.00008, + 0.00003, 0.00021, 0.00046, + 0.14429, 0.02892, 0.01792, 0.00015, 0.00008, + 0.00003, 0.00019, 0.00040, + 0.13042, 0.02592, 0.01420, 0.00015, 0.00007, + 0.00003, 0.00017, 0.00037, + 0.11876, 0.02343, 0.01151, 0.00014, 0.00007, + 0.00004, 0.00016, 0.00032, + 0.10887, 0.02133, 0.00952, 0.00014, 0.00007, + 0.00004, 0.00014, 0.00028 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + 0.10036, 0.01953, 0.00799, 0.00012, 0.00006, + 0.00003, 0.00013, 0.00026, + 0.09296, 0.01799, 0.00681, 0.00010, 0.00006, + 0.00004, 0.00012, 0.00023, + 0.08644, 0.01664, 0.00588, 0.00011, 0.00006, + 0.00003, 0.00011, 0.00021, + 0.08072, 0.01546, 0.00513, 0.00010, 0.00005, + 0.00003, 0.00010, 0.00020, + 0.07565, 0.01441, 0.00451, 0.00009, 0.00005, + 0.00003, 0.00010, 0.00018, + 0.07111, 0.01348, 0.00401, 0.00008, 0.00005, + 0.00003, 0.00009, 0.00016, + 0.06699, 0.01265, 0.00359, 0.00008, 0.00004, + 0.00003, 0.00008, 0.00016 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + 0.06328, 0.01191, 0.00324, 0.00008, 0.00004, + 0.00003, 0.00008, 0.00015, + 0.05992, 0.01124, 0.00294, 0.00008, 0.00004, + 0.00003, 0.00007, 0.00014, + 0.05686, 0.01062, 0.00268, 0.00008, 0.00004, + 0.00003, 0.00007, 0.00013, + 0.05407, 0.01006, 0.00245, 0.00007, 0.00004, + 0.00002, 0.00006, 0.00012, + 0.05150, 0.00956, 0.00226, 0.00007, 0.00003, + 0.00002, 0.00006, 0.00011 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + 0.17651, 0.03484, 0.03207, 0.00013, 0.00002, + 0.00000, 0.00013, 0.00037, + 0.15256, 0.02974, 0.02249, 0.00014, 0.00003, + 0.00000, 0.00012, 0.00031, + 0.13411, 0.02586, 0.01655, 0.00012, 0.00004, + 0.00000, 0.00011, 0.00027, + 0.11940, 0.02281, 0.01265, 0.00012, 0.00003, + 0.00001, 0.00010, 0.00024, + 0.10738, 0.02035, 0.00994, 0.00011, 0.00004, + 0.00001, 0.00009, 0.00020, + 0.09735, 0.01830, 0.00800, 0.00008, 0.00004, + 0.00001, 0.00008, 0.00019, + 0.08885, 0.01659, 0.00657, 0.00007, 0.00003, + 0.00002, 0.00007, 0.00018 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + 0.08155, 0.01514, 0.00549, 0.00007, 0.00003, + 0.00001, 0.00007, 0.00015, + 0.07524, 0.01389, 0.00466, 0.00007, 0.00003, + 0.00002, 0.00006, 0.00014, + 0.06973, 0.01281, 0.00401, 0.00007, 0.00002, + 0.00001, 0.00006, 0.00012, + 0.06491, 0.01186, 0.00349, 0.00006, 0.00002, + 0.00001, 0.00005, 0.00011, + 0.06063, 0.01102, 0.00306, 0.00005, 0.00002, + 0.00001, 0.00005, 0.00010, + 0.05681, 0.01029, 0.00271, 0.00005, 0.00002, + 0.00001, 0.00005, 0.00009, + 0.05338, 0.00962, 0.00242, 0.00005, 0.00002, + 0.00001, 0.00004, 0.00009 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + 0.05030, 0.00903, 0.00218, 0.00004, 0.00002, + 0.00001, 0.00004, 0.00009, + 0.04752, 0.00850, 0.00197, 0.00004, 0.00002, + 0.00001, 0.00004, 0.00008, + 0.04497, 0.00802, 0.00180, 0.00004, 0.00002, + 0.00001, 0.00003, 0.00007, + 0.04265, 0.00758, 0.00164, 0.00005, 0.00002, + 0.00001, 0.00003, 0.00007, + 0.04052, 0.00718, 0.00151, 0.00005, 0.00002, + 0.00001, 0.00003, 0.00006 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + 0.14643, 0.02742, 0.02285, 0.00005, 0.00003, + 0.00002, 0.00009, 0.00020, + 0.12561, 0.02323, 0.01579, 0.00004, 0.00003, + 0.00002, 0.00008, 0.00017, + 0.10965, 0.02008, 0.01149, 0.00004, 0.00003, + 0.00002, 0.00008, 0.00016, + 0.09704, 0.01761, 0.00869, 0.00004, 0.00003, + 0.00002, 0.00007, 0.00013, + 0.08681, 0.01562, 0.00677, 0.00003, 0.00003, + 0.00002, 0.00006, 0.00011, + 0.07829, 0.01399, 0.00541, 0.00004, 0.00003, + 0.00002, 0.00005, 0.00010, + 0.07111, 0.01262, 0.00442, 0.00003, 0.00003, + 0.00002, 0.00005, 0.00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + 0.06500, 0.01147, 0.00367, 0.00004, 0.00003, + 0.00002, 0.00004, 0.00008, + 0.05971, 0.01048, 0.00310, 0.00004, 0.00003, + 0.00002, 0.00004, 0.00007, + 0.05515, 0.00963, 0.00266, 0.00003, 0.00002, + 0.00001, 0.00004, 0.00007, + 0.05114, 0.00889, 0.00231, 0.00003, 0.00002, + 0.00001, 0.00003, 0.00006, + 0.04760, 0.00823, 0.00202, 0.00003, 0.00002, + 0.00001, 0.00003, 0.00005, + 0.04446, 0.00766, 0.00178, 0.00003, 0.00002, + 0.00001, 0.00003, 0.00005, + 0.04167, 0.00714, 0.00159, 0.00002, 0.00002, + 0.00001, 0.00003, 0.00005 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + 0.03915, 0.00669, 0.00143, 0.00002, 0.00002, + 0.00001, 0.00003, 0.00005, + 0.03687, 0.00628, 0.00129, 0.00002, 0.00001, + 0.00001, 0.00003, 0.00004, + 0.03481, 0.00590, 0.00117, 0.00002, 0.00001, + 0.00001, 0.00002, 0.00004, + 0.03295, 0.00557, 0.00107, 0.00001, 0.00001, + 0.00001, 0.00002, 0.00003, + 0.03124, 0.00526, 0.00098, 0.00001, 0.00001, + 0.00001, 0.00002, 0.00003 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ + 0.09569, 0.01614, 0.01080, 0.00002, 0.00000, + 0.00000, 0.00002, 0.00006, + 0.08074, 0.01346, 0.00724, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00006, + 0.06949, 0.01147, 0.00514, 0.00002, 0.00001, + 0.00000, 0.00002, 0.00004, + 0.06072, 0.00993, 0.00381, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00003, + 0.05369, 0.00871, 0.00292, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00003, + 0.04793, 0.00772, 0.00231, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00003, + 0.04311, 0.00690, 0.00187, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00002 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + 0.03904, 0.00622, 0.00154, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.03558, 0.00564, 0.00129, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00002, + 0.03261, 0.00514, 0.00110, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00002, + 0.03001, 0.00471, 0.00095, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02774, 0.00433, 0.00082, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02574, 0.00400, 0.00073, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02397, 0.00371, 0.00064, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ + 0.02239, 0.00345, 0.00058, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02096, 0.00323, 0.00052, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01968, 0.00302, 0.00047, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01852, 0.00283, 0.00043, 0.00000, 0.00000, + 0.00000, 0.00001, 0.00001, + 0.01747, 0.00266, 0.00039, 0.00000, 0.00000, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ + 0.05720, 0.00862, 0.00448, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.04740, 0.00707, 0.00291, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00002, + 0.04017, 0.00593, 0.00202, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.03463, 0.00507, 0.00147, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.03024, 0.00439, 0.00112, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.02668, 0.00385, 0.00087, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.02375, 0.00341, 0.00070, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ + 0.02130, 0.00304, 0.00057, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01925, 0.00274, 0.00048, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01749, 0.00247, 0.00040, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01596, 0.00225, 0.00035, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01464, 0.00205, 0.00030, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01349, 0.00188, 0.00026, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01247, 0.00174, 0.00023, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ + 0.01158, 0.00161, 0.00021, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01078, 0.00149, 0.00019, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01006, 0.00138, 0.00017, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00942, 0.00129, 0.00015, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00883, 0.00121, 0.00014, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ + 0.03038, 0.00405, 0.00156, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.02468, 0.00326, 0.00099, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.02056, 0.00269, 0.00067, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01745, 0.00226, 0.00048, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01503, 0.00194, 0.00036, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01309, 0.00168, 0.00028, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01152, 0.00147, 0.00022, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ + 0.01022, 0.00129, 0.00018, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00914, 0.00115, 0.00015, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00822, 0.00103, 0.00013, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00744, 0.00093, 0.00011, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00677, 0.00084, 0.00009, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00619, 0.00077, 0.00008, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00568, 0.00070, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ + 0.00523, 0.00064, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00483, 0.00059, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00448, 0.00055, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00417, 0.00051, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00389, 0.00047, 0.00004, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ + 0.01357, 0.00157, 0.00042, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01079, 0.00124, 0.00026, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00881, 0.00100, 0.00017, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00734, 0.00083, 0.00012, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00622, 0.00070, 0.00009, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00534, 0.00060, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00464, 0.00051, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ + 0.00407, 0.00045, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00359, 0.00039, 0.00004, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00319, 0.00035, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00286, 0.00031, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00258, 0.00028, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00233, 0.00025, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00212, 0.00023, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ + 0.00194, 0.00021, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00178, 0.00019, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00163, 0.00017, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00151, 0.00016, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00140, 0.00015, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ + 0.00100, 0.00008, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00075, 0.00006, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00058, 0.00004, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00046, 0.00004, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00037, 0.00003, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00030, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00025, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ + 0.00021, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00016, 0.00001, 0.00000, 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.00000, + 0.00012, 0.00001, 0.00000, 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.00000, + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / 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,5,9,0,0,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ DATA INIT/0/ XSAVE=X C IF(INIT.NE.0) GOTO 10 INIT=1 DO 20 N=1,NX-1 DO 20 M=1,19 C READ(31,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), C . F(6,N,M),F(8,N,M) C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR DO 25 I=1,8 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) 20 CONTINUE DO 31 J=1,NTENTH-1 XX(J)= LOG10(XX(J))+ONEDO DO 31 I=1,8 IF(I.EQ.7) GO TO 31 DO 30 K=1,19 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) 31 CONTINUE 50 FORMAT(8F10.5) DO 40 I=1,8 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,8 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) USEA=G(4) DSEA=G(8) STR=G(6) CHM=G(5) GLU=G(3) BOT=G(7) X=XSAVE RETURN END