* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:30:50 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:47 plothow * Version 7.01 * * #include "pdf/pilot.h" C SUBROUTINE SMRSP32(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GLU) C C :::::::::::: PION STRUCTURE FUNCTION :: 15% SEA ::::::::::::::::: C #include "pdf/impdp.inc" PARAMETER(NX=50) PARAMETER(NQ=19) PARAMETER(NTENTH=21) DIMENSION F(7,NX,NQ),G(7),XX(NX),N0(7) DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ +0.00072, 0.00072, 1.90133, 0.16119, 0.01854, 0.000, 0.16119, +0.00082, 0.00082, 5.49700, 0.23529, 0.09262, 0.000, 0.23529, +0.00092, 0.00092, 10.58083, 0.33721, 0.19449, 0.000, 0.33721, +0.00102, 0.00102, 17.19743, 0.46830, 0.32550, 0.000, 0.46830, +0.00112, 0.00112, 25.08417, 0.62790, 0.48501, 0.000, 0.62790, +0.00121, 0.00121, 34.26217, 0.81606, 0.67305, 0.000, 0.81606, +0.00130, 0.00130, 44.64538, 1.03204, 0.88892, 0.000, 1.03204, +0.00139, 0.00139, 56.14780, 1.27490, 1.13165, 0.000, 1.27490, +0.00147, 0.00147, 68.69843, 1.54374, 1.40036, 0.000, 1.54374, +0.00156, 0.00156, 82.04224, 1.83474, 1.69123, 0.000, 1.83474, +0.00164, 0.00164, 96.27203, 2.14898, 2.00532, 0.000, 2.14898, +0.00172, 0.00172,111.36264, 2.48612, 2.34232, 0.000, 2.48612, +0.00180, 0.00180,127.21689, 2.84463, 2.70070, 0.000, 2.84463, +0.00188, 0.00188,143.52740, 3.21895, 3.07486, 0.000, 3.21895, +0.00195, 0.00195,160.62515, 3.61482, 3.47059, 0.000, 3.61482, +0.00203, 0.00203,178.16696, 4.02601, 3.88164, 0.000, 4.02601, +0.00210, 0.00210,196.21922, 4.45353, 4.30901, 0.000, 4.45353, +0.00217, 0.00217,214.80383, 4.89784, 4.75318, 0.000, 4.89784, +0.00225, 0.00225,233.67000, 5.35382, 5.20902, 0.000, 5.35382/ DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ +0.00111, 0.00111, 1.83974, 0.16132, 0.01732, 0.000, 0.16132, +0.00127, 0.00127, 4.96424, 0.22891, 0.08490, 0.000, 0.22891, +0.00142, 0.00142, 9.18069, 0.31900, 0.17494, 0.000, 0.31900, +0.00156, 0.00156, 14.48870, 0.43174, 0.28761, 0.000, 0.43174, +0.00170, 0.00170, 20.65032, 0.56582, 0.42161, 0.000, 0.56582, +0.00183, 0.00183, 27.66458, 0.72070, 0.57639, 0.000, 0.72070, +0.00196, 0.00196, 35.45028, 0.89532, 0.75091, 0.000, 0.89532, +0.00209, 0.00209, 43.93159, 1.08856, 0.94405, 0.000, 1.08856, +0.00221, 0.00221, 53.04794, 1.29945, 1.15483, 0.000, 1.29945, +0.00233, 0.00233, 62.60730, 1.52481, 1.38007, 0.000, 1.52481, +0.00245, 0.00245, 72.67659, 1.76533, 1.62048, 0.000, 1.76533, +0.00256, 0.00256, 83.23517, 2.02062, 1.87565, 0.000, 2.02062, +0.00267, 0.00267, 94.21194, 2.28942, 2.14433, 0.000, 2.28942, +0.00278, 0.00278,105.38994, 2.56748, 2.42228, 0.000, 2.56748, +0.00289, 0.00289,117.00420, 2.85906, 2.71374, 0.000, 2.85906, +0.00299, 0.00299,128.81514, 3.15950, 3.01406, 0.000, 3.15950, +0.00309, 0.00309,140.87152, 3.46952, 3.32396, 0.000, 3.46952, +0.00320, 0.00320,153.18988, 3.78946, 3.64378, 0.000, 3.78946, +0.00330, 0.00330,165.60063, 4.11558, 3.96979, 0.000, 4.11558/ DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ +0.00173, 0.00173, 1.78011, 0.16137, 0.01609, 0.000, 0.16137, +0.00196, 0.00196, 4.48295, 0.22266, 0.07736, 0.000, 0.22266, +0.00218, 0.00218, 7.96547, 0.30179, 0.15647, 0.000, 0.30179, +0.00239, 0.00239, 12.20593, 0.39817, 0.25279, 0.000, 0.39817, +0.00259, 0.00259, 16.99909, 0.51013, 0.36469, 0.000, 0.51013, +0.00278, 0.00278, 22.33584, 0.63686, 0.49135, 0.000, 0.63686, +0.00296, 0.00296, 28.14680, 0.77722, 0.63163, 0.000, 0.77722, +0.00314, 0.00314, 34.37044, 0.93010, 0.78443, 0.000, 0.93010, +0.00332, 0.00332, 40.95925, 1.09458, 0.94883, 0.000, 1.09458, +0.00349, 0.00349, 47.77190, 1.26811, 1.12227, 0.000, 1.26811, +0.00365, 0.00365, 54.85896, 1.45116, 1.30523, 0.000, 1.45116, +0.00381, 0.00381, 62.20586, 1.64337, 1.49736, 0.000, 1.64337, +0.00397, 0.00397, 69.76257, 1.84375, 1.69765, 0.000, 1.84375, +0.00412, 0.00412, 77.37803, 2.04913, 1.90294, 0.000, 2.04913, +0.00427, 0.00427, 85.22021, 2.26267, 2.11639, 0.000, 2.26267, +0.00442, 0.00442, 93.12336, 2.48092, 2.33455, 0.000, 2.48092, +0.00456, 0.00456,101.12432, 2.70444, 2.55799, 0.000, 2.70444, +0.00470, 0.00470,109.23640, 2.93348, 2.78694, 0.000, 2.93348, +0.00484, 0.00484,117.34637, 3.16537, 3.01873, 0.000, 3.16537/ DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ +0.00224, 0.00224, 1.74610, 0.16135, 0.01536, 0.000, 0.16135, +0.00253, 0.00253, 4.22323, 0.21904, 0.07304, 0.000, 0.21904, +0.00280, 0.00280, 7.33033, 0.29215, 0.14613, 0.000, 0.29215, +0.00306, 0.00306, 11.04066, 0.37979, 0.23373, 0.000, 0.37979, +0.00331, 0.00331, 15.16954, 0.48023, 0.33413, 0.000, 0.48023, +0.00354, 0.00354, 19.70700, 0.59258, 0.44642, 0.000, 0.59258, +0.00377, 0.00377, 24.59195, 0.71572, 0.56950, 0.000, 0.71572, +0.00399, 0.00399, 29.77164, 0.84861, 0.70233, 0.000, 0.84861, +0.00421, 0.00421, 35.20619, 0.99039, 0.84405, 0.000, 0.99039, +0.00441, 0.00441, 40.77876, 1.13887, 0.99245, 0.000, 1.13887, +0.00461, 0.00461, 46.53304, 1.29442, 1.14794, 0.000, 1.29442, +0.00481, 0.00481, 52.45802, 1.45673, 1.31018, 0.000, 1.45673, +0.00500, 0.00500, 58.51368, 1.62496, 1.47835, 0.000, 1.62496, +0.00519, 0.00519, 64.57853, 1.79646, 1.64978, 0.000, 1.79646, +0.00537, 0.00537, 70.79092, 1.97388, 1.82713, 0.000, 1.97388, +0.00554, 0.00554, 77.01806, 2.15436, 2.00754, 0.000, 2.15436, +0.00572, 0.00572, 83.29115, 2.33838, 2.19149, 0.000, 2.33838, +0.00589, 0.00589, 89.62246, 2.52616, 2.37921, 0.000, 2.52616, +0.00605, 0.00605, 95.92271, 2.71552, 2.56849, 0.000, 2.71552/ DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ +0.00269, 0.00269, 1.72233, 0.16131, 0.01484, 0.000, 0.16131, +0.00303, 0.00303, 4.04806, 0.21648, 0.07001, 0.000, 0.21648, +0.00334, 0.00334, 6.91046, 0.28549, 0.13900, 0.000, 0.28549, +0.00365, 0.00365, 10.28166, 0.36728, 0.22077, 0.000, 0.36728, +0.00394, 0.00394, 13.99164, 0.46012, 0.31358, 0.000, 0.46012, +0.00421, 0.00421, 18.03093, 0.56310, 0.41651, 0.000, 0.56310, +0.00448, 0.00448, 22.34450, 0.67514, 0.52851, 0.000, 0.67514, +0.00473, 0.00473, 26.88568, 0.79526, 0.64859, 0.000, 0.79526, +0.00498, 0.00498, 31.61979, 0.92268, 0.77596, 0.000, 0.92268, +0.00522, 0.00522, 36.44521, 1.05540, 0.90862, 0.000, 1.05540, +0.00545, 0.00545, 41.40162, 1.19377, 1.04694, 0.000, 1.19377, +0.00567, 0.00567, 46.48037, 1.33751, 1.19063, 0.000, 1.33751, +0.00589, 0.00589, 51.64760, 1.48589, 1.33896, 0.000, 1.48589, +0.00611, 0.00611, 56.79952, 1.63656, 1.48958, 0.000, 1.63656, +0.00631, 0.00631, 62.05679, 1.79188, 1.64484, 0.000, 1.79188, +0.00652, 0.00652, 67.30607, 1.94935, 1.80226, 0.000, 1.94935, +0.00671, 0.00671, 72.57543, 2.10941, 1.96227, 0.000, 2.10941, +0.00691, 0.00691, 77.87622, 2.27225, 2.12506, 0.000, 2.27225, +0.00710, 0.00710, 83.13338, 2.43599, 2.28874, 0.000, 2.43599/ DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ +0.00310, 0.00310, 1.70411, 0.16127, 0.01443, 0.000, 0.16127, +0.00348, 0.00348, 3.91714, 0.21450, 0.06767, 0.000, 0.21450, +0.00384, 0.00384, 6.60129, 0.28041, 0.13359, 0.000, 0.28041, +0.00418, 0.00418, 9.72881, 0.35786, 0.21102, 0.000, 0.35786, +0.00450, 0.00450, 13.14096, 0.44511, 0.29825, 0.000, 0.44511, +0.00481, 0.00481, 16.82913, 0.54127, 0.39438, 0.000, 0.54127, +0.00511, 0.00511, 20.74295, 0.64530, 0.49838, 0.000, 0.64530, +0.00540, 0.00540, 24.84031, 0.75626, 0.60931, 0.000, 0.75626, +0.00567, 0.00567, 29.09038, 0.87343, 0.72644, 0.000, 0.87343, +0.00594, 0.00594, 33.40217, 0.99497, 0.84795, 0.000, 0.99497, +0.00620, 0.00620, 37.81274, 1.12122, 0.97415, 0.000, 1.12122, +0.00645, 0.00645, 42.31504, 1.25191, 1.10481, 0.000, 1.25191, +0.00669, 0.00669, 46.87954, 1.38638, 1.23924, 0.000, 1.38638, +0.00693, 0.00693, 51.41450, 1.52253, 1.37534, 0.000, 1.52253, +0.00716, 0.00716, 56.02851, 1.66249, 1.51526, 0.000, 1.66249, +0.00739, 0.00739, 60.62144, 1.80402, 1.65675, 0.000, 1.80402, +0.00761, 0.00761, 65.21923, 1.94751, 1.80021, 0.000, 1.94751, +0.00782, 0.00782, 69.83253, 2.09318, 1.94583, 0.000, 2.09318, +0.00803, 0.00803, 74.39577, 2.23931, 2.09193, 0.000, 2.23931/ DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ +0.00482, 0.00482, 1.64858, 0.16099, 0.01315, 0.000, 0.16099, +0.00537, 0.00537, 3.53642, 0.20833, 0.06054, 0.000, 0.20833, +0.00590, 0.00590, 5.72538, 0.26512, 0.11738, 0.000, 0.26512, +0.00639, 0.00639, 8.19229, 0.33007, 0.18236, 0.000, 0.33007, +0.00685, 0.00685, 10.81189, 0.40158, 0.25389, 0.000, 0.40158, +0.00729, 0.00729, 13.57971, 0.47882, 0.33116, 0.000, 0.47882, +0.00772, 0.00772, 16.45923, 0.56092, 0.41327, 0.000, 0.56092, +0.00812, 0.00812, 19.42121, 0.64714, 0.49951, 0.000, 0.64714, +0.00851, 0.00851, 22.44542, 0.73689, 0.58927, 0.000, 0.73689, +0.00889, 0.00889, 25.46846, 0.82882, 0.68121, 0.000, 0.82882, +0.00925, 0.00925, 28.52056, 0.92320, 0.77560, 0.000, 0.92320, +0.00960, 0.00960, 31.59905, 1.01986, 0.87227, 0.000, 1.01986, +0.00994, 0.00994, 34.68516, 1.11833, 0.97075, 0.000, 1.11833, +0.01027, 0.01027, 37.71702, 1.21710, 1.06952, 0.000, 1.21710, +0.01059, 0.01059, 40.77310, 1.31777, 1.17020, 0.000, 1.31777, +0.01090, 0.01090, 43.78577, 1.41874, 1.27118, 0.000, 1.41874, +0.01120, 0.01120, 46.77509, 1.52033, 1.37278, 0.000, 1.52033, +0.01149, 0.01149, 49.75010, 1.62272, 1.47518, 0.000, 1.62272, +0.01178, 0.01178, 52.66806, 1.72474, 1.57720, 0.000, 1.72474/ DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ +0.00748, 0.00748, 1.59450, 0.16046, 0.01186, 0.000, 0.16046, +0.00830, 0.00830, 3.19164, 0.20206, 0.05359, 0.000, 0.20206, +0.00905, 0.00905, 4.96342, 0.25042, 0.10205, 0.000, 0.25042, +0.00976, 0.00976, 6.89456, 0.30426, 0.15600, 0.000, 0.30426, +0.01042, 0.01042, 8.88986, 0.36221, 0.21404, 0.000, 0.36221, +0.01105, 0.01105, 10.94983, 0.42357, 0.27549, 0.000, 0.42357, +0.01165, 0.01165, 13.04999, 0.48766, 0.33966, 0.000, 0.48766, +0.01222, 0.01222, 15.17170, 0.55392, 0.40600, 0.000, 0.55392, +0.01277, 0.01277, 17.30312, 0.62194, 0.47410, 0.000, 0.62194, +0.01329, 0.01329, 19.40129, 0.69073, 0.54296, 0.000, 0.69073, +0.01379, 0.01379, 21.49123, 0.76052, 0.61283, 0.000, 0.76052, +0.01428, 0.01428, 23.57336, 0.83124, 0.68362, 0.000, 0.83124, +0.01475, 0.01475, 25.63647, 0.90257, 0.75501, 0.000, 0.90257, +0.01520, 0.01520, 27.63954, 0.97345, 0.82596, 0.000, 0.97345, +0.01564, 0.01564, 29.63929, 1.04507, 0.89765, 0.000, 1.04507, +0.01607, 0.01607, 31.59059, 1.11632, 0.96896, 0.000, 1.11632, +0.01648, 0.01648, 33.50899, 1.18745, 1.04016, 0.000, 1.18745, +0.01688, 0.01688, 35.40202, 1.25863, 1.11139, 0.000, 1.25863, +0.01728, 0.01728, 37.24215, 1.32904, 1.18187, 0.000, 1.32904/ DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ +0.00969, 0.00969, 1.56339, 0.15997, 0.01110, 0.000, 0.15997, +0.01070, 0.01070, 3.00492, 0.19829, 0.04960, 0.000, 0.19829, +0.01163, 0.01163, 4.56387, 0.24202, 0.09349, 0.000, 0.24202, +0.01250, 0.01250, 6.23004, 0.28995, 0.14157, 0.000, 0.28995, +0.01331, 0.01331, 7.92384, 0.34087, 0.19263, 0.000, 0.34087, +0.01408, 0.01408, 9.64861, 0.39416, 0.24607, 0.000, 0.39416, +0.01482, 0.01482, 11.38586, 0.44926, 0.30130, 0.000, 0.44926, +0.01551, 0.01551, 13.12206, 0.50571, 0.35788, 0.000, 0.50571, +0.01617, 0.01617, 14.84926, 0.56319, 0.41548, 0.000, 0.56319, +0.01681, 0.01681, 16.53380, 0.62088, 0.47329, 0.000, 0.62088, +0.01742, 0.01742, 18.19809, 0.67902, 0.53155, 0.000, 0.67902, +0.01800, 0.01800, 19.84382, 0.73756, 0.59021, 0.000, 0.73756, +0.01857, 0.01857, 21.46305, 0.79626, 0.64902, 0.000, 0.79626, +0.01912, 0.01912, 23.02378, 0.85427, 0.70714, 0.000, 0.85427, +0.01964, 0.01964, 24.57290, 0.91259, 0.76556, 0.000, 0.91259, +0.02016, 0.02016, 26.07503, 0.97032, 0.82340, 0.000, 0.97032, +0.02065, 0.02065, 27.54349, 1.02770, 0.88088, 0.000, 1.02770, +0.02113, 0.02113, 28.98504, 1.08487, 0.93815, 0.000, 1.08487, +0.02160, 0.02160, 30.37849, 1.14118, 0.99456, 0.000, 1.14118/ DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ +0.01163, 0.01163, 1.54149, 0.15953, 0.01056, 0.000, 0.15953, +0.01281, 0.01281, 2.87853, 0.19555, 0.04681, 0.000, 0.19555, +0.01389, 0.01389, 4.29890, 0.23612, 0.08758, 0.000, 0.23612, +0.01490, 0.01490, 5.79587, 0.28011, 0.13177, 0.000, 0.28011, +0.01584, 0.01584, 7.30005, 0.32639, 0.17825, 0.000, 0.32639, +0.01673, 0.01673, 8.81660, 0.37445, 0.22649, 0.000, 0.37445, +0.01757, 0.01757, 10.33081, 0.42378, 0.27600, 0.000, 0.42378, +0.01837, 0.01837, 11.83231, 0.47400, 0.32638, 0.000, 0.47400, +0.01913, 0.01913, 13.31549, 0.52483, 0.37738, 0.000, 0.52483, +0.01985, 0.01985, 14.75226, 0.57559, 0.42829, 0.000, 0.57559, +0.02055, 0.02055, 16.16336, 0.62649, 0.47935, 0.000, 0.62649, +0.02122, 0.02122, 17.55115, 0.67751, 0.53052, 0.000, 0.67751, +0.02187, 0.02187, 18.90955, 0.72846, 0.58162, 0.000, 0.72846, +0.02248, 0.02248, 20.21190, 0.77861, 0.63191, 0.000, 0.77861, +0.02309, 0.02309, 21.49911, 0.82885, 0.68228, 0.000, 0.82885, +0.02367, 0.02367, 22.74149, 0.87840, 0.73198, 0.000, 0.87840, +0.02423, 0.02423, 23.95098, 0.92749, 0.78120, 0.000, 0.92749, +0.02477, 0.02477, 25.13377, 0.97625, 0.83009, 0.000, 0.97625, +0.02530, 0.02530, 26.27237, 1.02414, 0.87811, 0.000, 1.02414/ DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ +0.01340, 0.01340, 1.52457, 0.15911, 0.01014, 0.000, 0.15911, +0.01472, 0.01472, 2.78376, 0.19337, 0.04466, 0.000, 0.19337, +0.01594, 0.01594, 4.10317, 0.23156, 0.08310, 0.000, 0.23156, +0.01707, 0.01707, 5.47867, 0.27262, 0.12440, 0.000, 0.27262, +0.01812, 0.01812, 6.84823, 0.31551, 0.16753, 0.000, 0.31551, +0.01911, 0.01911, 8.21832, 0.35977, 0.21201, 0.000, 0.35977, +0.02005, 0.02005, 9.57692, 0.40495, 0.25739, 0.000, 0.40495, +0.02094, 0.02094, 10.91580, 0.45071, 0.30336, 0.000, 0.45071, +0.02178, 0.02178, 12.23096, 0.49682, 0.34967, 0.000, 0.49682, +0.02259, 0.02259, 13.49811, 0.54267, 0.39572, 0.000, 0.54267, +0.02336, 0.02336, 14.73679, 0.58849, 0.44172, 0.000, 0.58849, +0.02410, 0.02410, 15.94975, 0.63425, 0.48766, 0.000, 0.63425, +0.02481, 0.02481, 17.13216, 0.67980, 0.53338, 0.000, 0.67980, +0.02550, 0.02550, 18.26092, 0.72449, 0.57825, 0.000, 0.72449, +0.02616, 0.02616, 19.37285, 0.76913, 0.62306, 0.000, 0.76913, +0.02680, 0.02680, 20.44203, 0.81305, 0.66714, 0.000, 0.81305, +0.02742, 0.02742, 21.47945, 0.85645, 0.71070, 0.000, 0.85645, +0.02802, 0.02802, 22.49089, 0.89945, 0.75386, 0.000, 0.89945, +0.02860, 0.02860, 23.46126, 0.94158, 0.79614, 0.000, 0.94158/ DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ +0.02081, 0.02081, 1.47190, 0.15732, 0.00883, 0.000, 0.15732, +0.02270, 0.02270, 2.50561, 0.18618, 0.03814, 0.000, 0.18618, +0.02443, 0.02443, 3.54401, 0.21736, 0.06975, 0.000, 0.21736, +0.02602, 0.02602, 4.59005, 0.25001, 0.10280, 0.000, 0.25001, +0.02750, 0.02750, 5.60171, 0.28338, 0.13655, 0.000, 0.28338, +0.02888, 0.02888, 6.58875, 0.31714, 0.17068, 0.000, 0.31714, +0.03018, 0.03018, 7.54602, 0.35101, 0.20491, 0.000, 0.35101, +0.03140, 0.03140, 8.47072, 0.38479, 0.23903, 0.000, 0.38479, +0.03257, 0.03257, 9.36267, 0.41836, 0.27293, 0.000, 0.41836, +0.03367, 0.03367, 10.20700, 0.45131, 0.30620, 0.000, 0.45131, +0.03472, 0.03472, 11.01972, 0.48385, 0.33904, 0.000, 0.48385, +0.03572, 0.03572, 11.80441, 0.51599, 0.37148, 0.000, 0.51599, +0.03669, 0.03669, 12.55908, 0.54766, 0.40343, 0.000, 0.54766, +0.03761, 0.03761, 13.26919, 0.57843, 0.43448, 0.000, 0.57843, +0.03850, 0.03850, 13.96109, 0.60889, 0.46521, 0.000, 0.60889, +0.03935, 0.03935, 14.61810, 0.63859, 0.49519, 0.000, 0.63859, +0.04017, 0.04017, 15.24852, 0.66770, 0.52456, 0.000, 0.66770, +0.04097, 0.04097, 15.85693, 0.69633, 0.55344, 0.000, 0.69633, +0.04174, 0.04174, 16.43398, 0.72417, 0.58152, 0.000, 0.72417/ DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ +0.03227, 0.03227, 1.41785, 0.15445, 0.00752, 0.000, 0.15445, +0.03494, 0.03494, 2.24767, 0.17807, 0.03187, 0.000, 0.17807, +0.03736, 0.03736, 3.04695, 0.20278, 0.05727, 0.000, 0.20278, +0.03957, 0.03957, 3.82388, 0.22798, 0.08312, 0.000, 0.22798, +0.04161, 0.04161, 4.55241, 0.25317, 0.10892, 0.000, 0.25317, +0.04350, 0.04350, 5.24438, 0.27816, 0.13449, 0.000, 0.27816, +0.04527, 0.04527, 5.89952, 0.30280, 0.15969, 0.000, 0.30280, +0.04693, 0.04693, 6.51868, 0.32700, 0.18441, 0.000, 0.32700, +0.04850, 0.04850, 7.10408, 0.35070, 0.20862, 0.000, 0.35070, +0.04997, 0.04997, 7.64731, 0.37365, 0.23206, 0.000, 0.37365, +0.05137, 0.05137, 8.16127, 0.39604, 0.25492, 0.000, 0.39604, +0.05271, 0.05271, 8.64970, 0.41790, 0.27724, 0.000, 0.41790, +0.05398, 0.05398, 9.11232, 0.43922, 0.29899, 0.000, 0.43922, +0.05520, 0.05520, 9.54032, 0.45970, 0.31990, 0.000, 0.45970, +0.05636, 0.05636, 9.95225, 0.47980, 0.34041, 0.000, 0.47980, +0.05748, 0.05748, 10.33764, 0.49922, 0.36022, 0.000, 0.49922, +0.05855, 0.05855, 10.70264, 0.51808, 0.37947, 0.000, 0.51808, +0.05959, 0.05959, 11.05073, 0.53648, 0.39825, 0.000, 0.53648, +0.06058, 0.06058, 11.37627, 0.55422, 0.41636, 0.000, 0.55422/ DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ +0.04167, 0.04167, 1.38454, 0.15205, 0.00677, 0.000, 0.15205, +0.04490, 0.04490, 2.10336, 0.17267, 0.02836, 0.000, 0.17267, +0.04781, 0.04781, 2.77846, 0.19383, 0.05041, 0.000, 0.19383, +0.05047, 0.05047, 3.42030, 0.21508, 0.07250, 0.000, 0.21508, +0.05289, 0.05289, 4.01050, 0.23604, 0.09424, 0.000, 0.23604, +0.05514, 0.05514, 4.56155, 0.25659, 0.11554, 0.000, 0.25659, +0.05723, 0.05723, 5.07523, 0.27664, 0.13630, 0.000, 0.27664, +0.05919, 0.05919, 5.55384, 0.29613, 0.15646, 0.000, 0.29613, +0.06102, 0.06102, 6.00045, 0.31506, 0.17603, 0.000, 0.31506, +0.06275, 0.06275, 6.40939, 0.33324, 0.19483, 0.000, 0.33324, +0.06438, 0.06438, 6.79187, 0.35083, 0.21302, 0.000, 0.35083, +0.06593, 0.06593, 7.15150, 0.36790, 0.23065, 0.000, 0.36790, +0.06741, 0.06741, 7.48862, 0.38441, 0.24772, 0.000, 0.38441, +0.06881, 0.06881, 7.79679, 0.40019, 0.26402, 0.000, 0.40019, +0.07015, 0.07015, 8.09095, 0.41557, 0.27992, 0.000, 0.41557, +0.07143, 0.07143, 8.36326, 0.43034, 0.29518, 0.000, 0.43034, +0.07266, 0.07266, 8.61878, 0.44461, 0.30993, 0.000, 0.44461, +0.07385, 0.07385, 8.86042, 0.45846, 0.32425, 0.000, 0.45846, +0.07498, 0.07498, 9.08408, 0.47174, 0.33798, 0.000, 0.47174/ DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ +0.04991, 0.04991, 1.35954, 0.14998, 0.00626, 0.000, 0.14998, +0.05359, 0.05359, 2.00201, 0.16854, 0.02598, 0.000, 0.16854, +0.05688, 0.05688, 2.59378, 0.18730, 0.04583, 0.000, 0.18730, +0.05987, 0.05987, 3.14692, 0.20593, 0.06547, 0.000, 0.20593, +0.06259, 0.06259, 3.64790, 0.22411, 0.08458, 0.000, 0.22411, +0.06509, 0.06509, 4.10943, 0.24177, 0.10314, 0.000, 0.24177, +0.06742, 0.06742, 4.53446, 0.25887, 0.12107, 0.000, 0.25887, +0.06959, 0.06959, 4.92604, 0.27536, 0.13837, 0.000, 0.27536, +0.07162, 0.07162, 5.28762, 0.29127, 0.15503, 0.000, 0.29127, +0.07352, 0.07352, 5.61514, 0.30644, 0.17093, 0.000, 0.30644, +0.07532, 0.07532, 5.91862, 0.32105, 0.18623, 0.000, 0.32105, +0.07702, 0.07702, 6.20152, 0.33513, 0.20098, 0.000, 0.33513, +0.07864, 0.07864, 6.46444, 0.34869, 0.21518, 0.000, 0.34869, +0.08016, 0.08016, 6.70236, 0.36156, 0.22868, 0.000, 0.36156, +0.08163, 0.08163, 6.92793, 0.37406, 0.24177, 0.000, 0.37406, +0.08302, 0.08302, 7.13485, 0.38601, 0.25430, 0.000, 0.38601, +0.08435, 0.08435, 7.32747, 0.39750, 0.26634, 0.000, 0.39750, +0.08564, 0.08564, 7.50834, 0.40860, 0.27799, 0.000, 0.40860, +0.08686, 0.08686, 7.67420, 0.41920, 0.28911, 0.000, 0.41920/ DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ +0.05739, 0.05739, 1.33904, 0.14811, 0.00587, 0.000, 0.14811, +0.06142, 0.06142, 1.92344, 0.16510, 0.02423, 0.000, 0.16510, +0.06501, 0.06501, 2.45293, 0.18208, 0.04246, 0.000, 0.18208, +0.06826, 0.06826, 2.94089, 0.19877, 0.06030, 0.000, 0.19877, +0.07121, 0.07121, 3.37723, 0.21491, 0.07752, 0.000, 0.21491, +0.07392, 0.07392, 3.77469, 0.23048, 0.09410, 0.000, 0.23048, +0.07642, 0.07642, 4.13695, 0.24544, 0.11002, 0.000, 0.24544, +0.07875, 0.07875, 4.46748, 0.25978, 0.12527, 0.000, 0.25978, +0.08093, 0.08093, 4.76994, 0.27352, 0.13988, 0.000, 0.27352, +0.08296, 0.08296, 5.04131, 0.28657, 0.15374, 0.000, 0.28657, +0.08487, 0.08487, 5.29071, 0.29905, 0.16701, 0.000, 0.29905, +0.08668, 0.08668, 5.52143, 0.31103, 0.17974, 0.000, 0.31103, +0.08839, 0.08839, 5.73423, 0.32251, 0.19195, 0.000, 0.32251, +0.09001, 0.09001, 5.92501, 0.33337, 0.20350, 0.000, 0.33337, +0.09156, 0.09156, 6.10479, 0.34386, 0.21466, 0.000, 0.34386, +0.09303, 0.09303, 6.26831, 0.35385, 0.22530, 0.000, 0.35385, +0.09443, 0.09443, 6.41941, 0.36342, 0.23549, 0.000, 0.36342, +0.09577, 0.09577, 6.56036, 0.37263, 0.24531, 0.000, 0.37263, +0.09705, 0.09705, 6.68846, 0.38139, 0.25465, 0.000, 0.38139/ DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ +0.08811, 0.08811, 1.26666, 0.13958, 0.00470, 0.000, 0.13958, +0.09327, 0.09327, 1.68107, 0.15175, 0.01894, 0.000, 0.15175, +0.09779, 0.09779, 2.03635, 0.16343, 0.03250, 0.000, 0.16343, +0.10183, 0.10183, 2.34807, 0.17453, 0.04532, 0.000, 0.17453, +0.10544, 0.10544, 2.61435, 0.18494, 0.05732, 0.000, 0.18494, +0.10872, 0.10872, 2.84713, 0.19471, 0.06857, 0.000, 0.19471, +0.11171, 0.11171, 3.05124, 0.20388, 0.07911, 0.000, 0.20388, +0.11447, 0.11447, 3.23076, 0.21247, 0.08900, 0.000, 0.21247, +0.11701, 0.11701, 3.38936, 0.22053, 0.09828, 0.000, 0.22053, +0.11936, 0.11936, 3.52621, 0.22802, 0.10693, 0.000, 0.22802, +0.12155, 0.12155, 3.64784, 0.23505, 0.11506, 0.000, 0.23505, +0.12361, 0.12361, 3.75684, 0.24169, 0.12273, 0.000, 0.24169, +0.12554, 0.12554, 3.85416, 0.24794, 0.12998, 0.000, 0.24794, +0.12734, 0.12734, 3.93772, 0.25373, 0.13673, 0.000, 0.25373, +0.12905, 0.12905, 4.01442, 0.25926, 0.14317, 0.000, 0.25926, +0.13066, 0.13066, 4.08137, 0.26444, 0.14922, 0.000, 0.26444, +0.13218, 0.13218, 4.14103, 0.26931, 0.15494, 0.000, 0.26931, +0.13363, 0.13363, 4.19486, 0.27395, 0.16039, 0.000, 0.27395, +0.13500, 0.13500, 4.24144, 0.27828, 0.16550, 0.000, 0.27828/ DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ +0.13363, 0.13363, 1.17172, 0.12483, 0.00357, 0.000, 0.12483, +0.13958, 0.13958, 1.43128, 0.13232, 0.01402, 0.000, 0.13232, +0.14466, 0.14466, 1.63846, 0.13915, 0.02349, 0.000, 0.13915, +0.14909, 0.14909, 1.80870, 0.14537, 0.03209, 0.000, 0.14537, +0.15297, 0.15297, 1.94476, 0.15095, 0.03984, 0.000, 0.15095, +0.15642, 0.15642, 2.05651, 0.15600, 0.04688, 0.000, 0.15600, +0.15951, 0.15951, 2.14859, 0.16057, 0.05329, 0.000, 0.16057, +0.16229, 0.16229, 2.22460, 0.16471, 0.05914, 0.000, 0.16471, +0.16483, 0.16483, 2.28755, 0.16847, 0.06450, 0.000, 0.16847, +0.16711, 0.16711, 2.33762, 0.17184, 0.06937, 0.000, 0.17184, +0.16921, 0.16921, 2.37898, 0.17491, 0.07384, 0.000, 0.17491, +0.17115, 0.17115, 2.41340, 0.17772, 0.07799, 0.000, 0.17772, +0.17294, 0.17294, 2.44162, 0.18029, 0.08182, 0.000, 0.18029, +0.17458, 0.17458, 2.46271, 0.18259, 0.08531, 0.000, 0.18259, +0.17611, 0.17611, 2.48054, 0.18473, 0.08859, 0.000, 0.18473, +0.17753, 0.17753, 2.49364, 0.18666, 0.09161, 0.000, 0.18666, +0.17886, 0.17886, 2.50342, 0.18843, 0.09441, 0.000, 0.18843, +0.18010, 0.18010, 2.51067, 0.19006, 0.09704, 0.000, 0.19006, +0.18125, 0.18125, 2.51471, 0.19153, 0.09945, 0.000, 0.19153/ DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ +0.16877, 0.16877, 1.09855, 0.11177, 0.00292, 0.000, 0.11177, +0.17464, 0.17464, 1.27636, 0.11668, 0.01130, 0.000, 0.11668, +0.17954, 0.17954, 1.41001, 0.12097, 0.01864, 0.000, 0.12097, +0.18372, 0.18372, 1.51359, 0.12472, 0.02511, 0.000, 0.12472, +0.18729, 0.18729, 1.59099, 0.12796, 0.03081, 0.000, 0.12796, +0.19039, 0.19039, 1.65037, 0.13077, 0.03586, 0.000, 0.13077, +0.19312, 0.19312, 1.69570, 0.13323, 0.04037, 0.000, 0.13323, +0.19553, 0.19553, 1.72999, 0.13537, 0.04440, 0.000, 0.13537, +0.19767, 0.19767, 1.75561, 0.13724, 0.04802, 0.000, 0.13724, +0.19956, 0.19956, 1.77290, 0.13883, 0.05125, 0.000, 0.13883, +0.20125, 0.20125, 1.78482, 0.14022, 0.05418, 0.000, 0.14022, +0.20278, 0.20278, 1.79266, 0.14145, 0.05684, 0.000, 0.14145, +0.20418, 0.20418, 1.79695, 0.14252, 0.05927, 0.000, 0.14252, +0.20541, 0.20541, 1.79710, 0.14341, 0.06144, 0.000, 0.14341, +0.20655, 0.20655, 1.79569, 0.14422, 0.06345, 0.000, 0.14422, +0.20757, 0.20757, 1.79174, 0.14489, 0.06527, 0.000, 0.14489, +0.20850, 0.20850, 1.78617, 0.14546, 0.06694, 0.000, 0.14546, +0.20936, 0.20936, 1.77949, 0.14596, 0.06848, 0.000, 0.14596, +0.21012, 0.21012, 1.77124, 0.14635, 0.06987, 0.000, 0.14635/ DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ +0.19770, 0.19770, 1.03505, 0.10000, 0.00247, 0.000, 0.10000, +0.20306, 0.20306, 1.15977, 0.10323, 0.00944, 0.000, 0.10323, +0.20740, 0.20740, 1.24765, 0.10592, 0.01538, 0.000, 0.10592, +0.21101, 0.21101, 1.31128, 0.10817, 0.02052, 0.000, 0.10817, +0.21400, 0.21400, 1.35467, 0.11000, 0.02493, 0.000, 0.11000, +0.21652, 0.21652, 1.38460, 0.11151, 0.02878, 0.000, 0.11151, +0.21868, 0.21868, 1.40441, 0.11275, 0.03215, 0.000, 0.11275, +0.22052, 0.22052, 1.41655, 0.11376, 0.03511, 0.000, 0.11376, +0.22211, 0.22211, 1.42287, 0.11458, 0.03774, 0.000, 0.11458, +0.22345, 0.22345, 1.42370, 0.11521, 0.04004, 0.000, 0.11521, +0.22462, 0.22462, 1.42125, 0.11571, 0.04209, 0.000, 0.11571, +0.22564, 0.22564, 1.41644, 0.11610, 0.04393, 0.000, 0.11610, +0.22652, 0.22652, 1.40964, 0.11639, 0.04559, 0.000, 0.11639, +0.22726, 0.22726, 1.40043, 0.11656, 0.04705, 0.000, 0.11656, +0.22792, 0.22792, 1.39061, 0.11669, 0.04838, 0.000, 0.11669, +0.22848, 0.22848, 1.37950, 0.11673, 0.04957, 0.000, 0.11673, +0.22895, 0.22895, 1.36769, 0.11671, 0.05064, 0.000, 0.11671, +0.22937, 0.22937, 1.35553, 0.11666, 0.05162, 0.000, 0.11666, +0.22970, 0.22970, 1.34267, 0.11654, 0.05248, 0.000, 0.11654/ DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ +0.22220, 0.22220, 0.97738, 0.08933, 0.00213, 0.000, 0.08933, +0.22677, 0.22677, 1.06426, 0.09140, 0.00805, 0.000, 0.09140, +0.23033, 0.23033, 1.12065, 0.09300, 0.01298, 0.000, 0.09300, +0.23318, 0.23318, 1.15763, 0.09425, 0.01716, 0.000, 0.09425, +0.23543, 0.23543, 1.17898, 0.09518, 0.02069, 0.000, 0.09518, +0.23724, 0.23724, 1.19036, 0.09586, 0.02372, 0.000, 0.09586, +0.23871, 0.23871, 1.19452, 0.09634, 0.02633, 0.000, 0.09634, +0.23989, 0.23989, 1.19342, 0.09667, 0.02859, 0.000, 0.09667, +0.24085, 0.24085, 1.18853, 0.09686, 0.03056, 0.000, 0.09686, +0.24158, 0.24158, 1.18008, 0.09692, 0.03226, 0.000, 0.09692, +0.24216, 0.24216, 1.16976, 0.09689, 0.03376, 0.000, 0.09689, +0.24261, 0.24261, 1.15822, 0.09680, 0.03509, 0.000, 0.09680, +0.24295, 0.24295, 1.14572, 0.09664, 0.03627, 0.000, 0.09664, +0.24316, 0.24316, 1.13190, 0.09642, 0.03728, 0.000, 0.09642, +0.24331, 0.24331, 1.11809, 0.09616, 0.03820, 0.000, 0.09616, +0.24338, 0.24338, 1.10373, 0.09586, 0.03901, 0.000, 0.09586, +0.24338, 0.24338, 1.08925, 0.09553, 0.03972, 0.000, 0.09553, +0.24333, 0.24333, 1.07488, 0.09519, 0.04036, 0.000, 0.09519, +0.24322, 0.24322, 1.06032, 0.09481, 0.04092, 0.000, 0.09481/ DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ +0.24801, 0.24801, 0.91095, 0.07734, 0.00180, 0.000, 0.07734, +0.25134, 0.25134, 0.96344, 0.07841, 0.00670, 0.000, 0.07841, +0.25372, 0.25372, 0.99213, 0.07911, 0.01070, 0.000, 0.07911, +0.25547, 0.25547, 1.00642, 0.07955, 0.01401, 0.000, 0.07955, +0.25667, 0.25667, 1.00959, 0.07975, 0.01675, 0.000, 0.07975, +0.25749, 0.25749, 1.00610, 0.07978, 0.01905, 0.000, 0.07978, +0.25801, 0.25801, 0.99809, 0.07969, 0.02101, 0.000, 0.07969, +0.25830, 0.25830, 0.98703, 0.07949, 0.02267, 0.000, 0.07949, +0.25841, 0.25841, 0.97397, 0.07922, 0.02409, 0.000, 0.07922, +0.25833, 0.25833, 0.95904, 0.07887, 0.02530, 0.000, 0.07887, +0.25814, 0.25814, 0.94343, 0.07847, 0.02634, 0.000, 0.07847, +0.25786, 0.25786, 0.92756, 0.07804, 0.02725, 0.000, 0.07804, +0.25750, 0.25750, 0.91157, 0.07759, 0.02804, 0.000, 0.07759, +0.25704, 0.25704, 0.89516, 0.07710, 0.02871, 0.000, 0.07710, +0.25655, 0.25655, 0.87924, 0.07660, 0.02930, 0.000, 0.07660, +0.25600, 0.25600, 0.86336, 0.07608, 0.02981, 0.000, 0.07608, +0.25541, 0.25541, 0.84780, 0.07556, 0.03025, 0.000, 0.07556, +0.25480, 0.25480, 0.83267, 0.07503, 0.03064, 0.000, 0.07503, +0.25414, 0.25414, 0.81776, 0.07450, 0.03096, 0.000, 0.07450/ DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ +0.26952, 0.26952, 0.84924, 0.06673, 0.00153, 0.000, 0.06673, +0.27142, 0.27142, 0.87658, 0.06713, 0.00565, 0.000, 0.06713, +0.27249, 0.27249, 0.88575, 0.06725, 0.00893, 0.000, 0.06725, +0.27302, 0.27302, 0.88458, 0.06718, 0.01160, 0.000, 0.06718, +0.27308, 0.27308, 0.87579, 0.06693, 0.01377, 0.000, 0.06693, +0.27285, 0.27285, 0.86288, 0.06658, 0.01556, 0.000, 0.06658, +0.27239, 0.27239, 0.84747, 0.06615, 0.01705, 0.000, 0.06615, +0.27176, 0.27176, 0.83059, 0.06567, 0.01829, 0.000, 0.06567, +0.27100, 0.27100, 0.81299, 0.06514, 0.01935, 0.000, 0.06514, +0.27010, 0.27010, 0.79469, 0.06457, 0.02022, 0.000, 0.06457, +0.26914, 0.26914, 0.77651, 0.06398, 0.02096, 0.000, 0.06398, +0.26812, 0.26812, 0.75872, 0.06339, 0.02159, 0.000, 0.06339, +0.26707, 0.26707, 0.74136, 0.06279, 0.02213, 0.000, 0.06279, +0.26595, 0.26595, 0.72414, 0.06217, 0.02258, 0.000, 0.06217, +0.26484, 0.26484, 0.70770, 0.06157, 0.02296, 0.000, 0.06157, +0.26369, 0.26369, 0.69167, 0.06097, 0.02329, 0.000, 0.06097, +0.26253, 0.26253, 0.67622, 0.06036, 0.02356, 0.000, 0.06036, +0.26137, 0.26137, 0.66139, 0.05977, 0.02379, 0.000, 0.05977, +0.26019, 0.26019, 0.64701, 0.05918, 0.02397, 0.000, 0.05918/ DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ +0.28744, 0.28744, 0.79132, 0.05735, 0.00131, 0.000, 0.05735, +0.28780, 0.28780, 0.79975, 0.05732, 0.00479, 0.000, 0.05732, +0.28748, 0.28748, 0.79477, 0.05706, 0.00752, 0.000, 0.05706, +0.28673, 0.28673, 0.78280, 0.05667, 0.00969, 0.000, 0.05667, +0.28563, 0.28563, 0.76599, 0.05616, 0.01142, 0.000, 0.05616, +0.28432, 0.28432, 0.74703, 0.05559, 0.01283, 0.000, 0.05559, +0.28285, 0.28285, 0.72709, 0.05498, 0.01398, 0.000, 0.05498, +0.28130, 0.28130, 0.70687, 0.05433, 0.01493, 0.000, 0.05433, +0.27968, 0.27968, 0.68685, 0.05368, 0.01571, 0.000, 0.05368, +0.27798, 0.27798, 0.66694, 0.05301, 0.01635, 0.000, 0.05301, +0.27625, 0.27625, 0.64773, 0.05233, 0.01688, 0.000, 0.05233, +0.27453, 0.27453, 0.62934, 0.05167, 0.01732, 0.000, 0.05167, +0.27281, 0.27281, 0.61172, 0.05102, 0.01770, 0.000, 0.05102, +0.27106, 0.27106, 0.59463, 0.05036, 0.01799, 0.000, 0.05036, +0.26935, 0.26935, 0.57849, 0.04973, 0.01824, 0.000, 0.04973, +0.26763, 0.26763, 0.56299, 0.04910, 0.01844, 0.000, 0.04910, +0.26593, 0.26593, 0.54822, 0.04849, 0.01861, 0.000, 0.04849, +0.26427, 0.26427, 0.53418, 0.04789, 0.01874, 0.000, 0.04789, +0.26260, 0.26260, 0.52070, 0.04730, 0.01883, 0.000, 0.04730/ DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ +0.30228, 0.30228, 0.73661, 0.04908, 0.00112, 0.000, 0.04908, +0.30102, 0.30102, 0.73063, 0.04876, 0.00409, 0.000, 0.04876, +0.29925, 0.29925, 0.71526, 0.04828, 0.00636, 0.000, 0.04828, +0.29720, 0.29720, 0.69570, 0.04770, 0.00814, 0.000, 0.04770, +0.29492, 0.29492, 0.67350, 0.04705, 0.00954, 0.000, 0.04705, +0.29253, 0.29253, 0.65071, 0.04636, 0.01065, 0.000, 0.04636, +0.29008, 0.29008, 0.62810, 0.04566, 0.01154, 0.000, 0.04566, +0.28762, 0.28762, 0.60609, 0.04495, 0.01227, 0.000, 0.04495, +0.28516, 0.28516, 0.58496, 0.04424, 0.01286, 0.000, 0.04424, +0.28267, 0.28267, 0.56454, 0.04354, 0.01333, 0.000, 0.04354, +0.28022, 0.28022, 0.54519, 0.04284, 0.01371, 0.000, 0.04284, +0.27782, 0.27782, 0.52696, 0.04217, 0.01402, 0.000, 0.04217, +0.27547, 0.27547, 0.50973, 0.04151, 0.01427, 0.000, 0.04151, +0.27312, 0.27312, 0.49328, 0.04087, 0.01447, 0.000, 0.04087, +0.27084, 0.27084, 0.47787, 0.04024, 0.01463, 0.000, 0.04024, +0.26860, 0.26860, 0.46324, 0.03964, 0.01475, 0.000, 0.03964, +0.26640, 0.26640, 0.44941, 0.03905, 0.01484, 0.000, 0.03905, +0.26426, 0.26426, 0.43637, 0.03847, 0.01491, 0.000, 0.03847, +0.26215, 0.26215, 0.42396, 0.03792, 0.01495, 0.000, 0.03792/ DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ +0.31439, 0.31439, 0.68477, 0.04180, 0.00097, 0.000, 0.04180, +0.31148, 0.31148, 0.66775, 0.04132, 0.00349, 0.000, 0.04132, +0.30824, 0.30824, 0.64476, 0.04071, 0.00539, 0.000, 0.04071, +0.30488, 0.30488, 0.61988, 0.04003, 0.00686, 0.000, 0.04003, +0.30143, 0.30143, 0.59416, 0.03931, 0.00799, 0.000, 0.03931, +0.29798, 0.29798, 0.56907, 0.03858, 0.00887, 0.000, 0.03858, +0.29457, 0.29457, 0.54504, 0.03785, 0.00957, 0.000, 0.03785, +0.29123, 0.29123, 0.52229, 0.03713, 0.01013, 0.000, 0.03713, +0.28796, 0.28796, 0.50089, 0.03643, 0.01058, 0.000, 0.03643, +0.28473, 0.28473, 0.48063, 0.03573, 0.01092, 0.000, 0.03573, +0.28159, 0.28159, 0.46171, 0.03506, 0.01119, 0.000, 0.03506, +0.27854, 0.27854, 0.44409, 0.03441, 0.01141, 0.000, 0.03441, +0.27560, 0.27560, 0.42762, 0.03378, 0.01158, 0.000, 0.03378, +0.27269, 0.27269, 0.41207, 0.03317, 0.01170, 0.000, 0.03317, +0.26990, 0.26990, 0.39763, 0.03258, 0.01180, 0.000, 0.03258, +0.26716, 0.26716, 0.38403, 0.03201, 0.01187, 0.000, 0.03201, +0.26451, 0.26451, 0.37128, 0.03147, 0.01191, 0.000, 0.03147, +0.26194, 0.26194, 0.35932, 0.03094, 0.01194, 0.000, 0.03094, +0.25942, 0.25942, 0.34802, 0.03043, 0.01194, 0.000, 0.03043/ DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ +0.32405, 0.32405, 0.63550, 0.03543, 0.00083, 0.000, 0.03543, +0.31946, 0.31946, 0.61003, 0.03486, 0.00299, 0.000, 0.03486, +0.31476, 0.31476, 0.58152, 0.03418, 0.00458, 0.000, 0.03418, +0.31012, 0.31012, 0.55302, 0.03348, 0.00579, 0.000, 0.03348, +0.30552, 0.30552, 0.52514, 0.03274, 0.00671, 0.000, 0.03274, +0.30104, 0.30104, 0.49884, 0.03201, 0.00741, 0.000, 0.03201, +0.29671, 0.29671, 0.47428, 0.03129, 0.00796, 0.000, 0.03129, +0.29252, 0.29252, 0.45148, 0.03060, 0.00839, 0.000, 0.03060, +0.28848, 0.28848, 0.43039, 0.02992, 0.00872, 0.000, 0.02992, +0.28455, 0.28455, 0.41074, 0.02926, 0.00897, 0.000, 0.02926, +0.28076, 0.28076, 0.39260, 0.02863, 0.00917, 0.000, 0.02863, +0.27712, 0.27712, 0.37585, 0.02802, 0.00931, 0.000, 0.02802, +0.27362, 0.27362, 0.36035, 0.02744, 0.00943, 0.000, 0.02744, +0.27020, 0.27020, 0.34587, 0.02688, 0.00950, 0.000, 0.02688, +0.26693, 0.26693, 0.33249, 0.02635, 0.00955, 0.000, 0.02635, +0.26376, 0.26376, 0.31999, 0.02583, 0.00958, 0.000, 0.02583, +0.26069, 0.26069, 0.30834, 0.02533, 0.00959, 0.000, 0.02533, +0.25773, 0.25773, 0.29748, 0.02486, 0.00959, 0.000, 0.02486, +0.25485, 0.25485, 0.28728, 0.02440, 0.00958, 0.000, 0.02440/ DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ +0.33149, 0.33149, 0.58864, 0.02987, 0.00072, 0.000, 0.02987, +0.32523, 0.32523, 0.55680, 0.02926, 0.00256, 0.000, 0.02926, +0.31909, 0.31909, 0.52439, 0.02858, 0.00389, 0.000, 0.02858, +0.31318, 0.31318, 0.49357, 0.02788, 0.00489, 0.000, 0.02788, +0.30747, 0.30747, 0.46452, 0.02716, 0.00564, 0.000, 0.02716, +0.30200, 0.30200, 0.43780, 0.02647, 0.00620, 0.000, 0.02647, +0.29678, 0.29678, 0.41333, 0.02579, 0.00663, 0.000, 0.02579, +0.29179, 0.29179, 0.39098, 0.02513, 0.00696, 0.000, 0.02513, +0.28703, 0.28703, 0.37057, 0.02451, 0.00720, 0.000, 0.02451, +0.28244, 0.28244, 0.35180, 0.02390, 0.00739, 0.000, 0.02390, +0.27806, 0.27806, 0.33465, 0.02332, 0.00752, 0.000, 0.02332, +0.27387, 0.27387, 0.31895, 0.02277, 0.00762, 0.000, 0.02277, +0.26987, 0.26987, 0.30453, 0.02225, 0.00769, 0.000, 0.02225, +0.26598, 0.26598, 0.29117, 0.02174, 0.00773, 0.000, 0.02174, +0.26228, 0.26228, 0.27889, 0.02126, 0.00775, 0.000, 0.02126, +0.25871, 0.25871, 0.26751, 0.02080, 0.00775, 0.000, 0.02080, +0.25527, 0.25527, 0.25695, 0.02036, 0.00775, 0.000, 0.02036, +0.25196, 0.25196, 0.24716, 0.01994, 0.00773, 0.000, 0.01994, +0.24876, 0.24876, 0.23802, 0.01953, 0.00770, 0.000, 0.01953/ DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ +0.33689, 0.33689, 0.54405, 0.02503, 0.00061, 0.000, 0.02503, +0.32898, 0.32898, 0.50751, 0.02443, 0.00218, 0.000, 0.02443, +0.32142, 0.32142, 0.47248, 0.02377, 0.00330, 0.000, 0.02377, +0.31430, 0.31430, 0.44034, 0.02311, 0.00413, 0.000, 0.02311, +0.30752, 0.30752, 0.41089, 0.02243, 0.00473, 0.000, 0.02243, +0.30111, 0.30111, 0.38433, 0.02179, 0.00518, 0.000, 0.02179, +0.29505, 0.29505, 0.36040, 0.02116, 0.00551, 0.000, 0.02116, +0.28932, 0.28932, 0.33883, 0.02056, 0.00576, 0.000, 0.02056, +0.28389, 0.28389, 0.31937, 0.01999, 0.00595, 0.000, 0.01999, +0.27869, 0.27869, 0.30166, 0.01945, 0.00607, 0.000, 0.01945, +0.27376, 0.27376, 0.28561, 0.01893, 0.00617, 0.000, 0.01893, +0.26908, 0.26908, 0.27104, 0.01844, 0.00623, 0.000, 0.01844, +0.26461, 0.26461, 0.25775, 0.01797, 0.00627, 0.000, 0.01797, +0.26031, 0.26031, 0.24553, 0.01752, 0.00628, 0.000, 0.01752, +0.25623, 0.25623, 0.23436, 0.01710, 0.00629, 0.000, 0.01710, +0.25230, 0.25230, 0.22407, 0.01670, 0.00627, 0.000, 0.01670, +0.24854, 0.24854, 0.21457, 0.01631, 0.00625, 0.000, 0.01631, +0.24493, 0.24493, 0.20579, 0.01595, 0.00623, 0.000, 0.01595, +0.24144, 0.24144, 0.19764, 0.01559, 0.00619, 0.000, 0.01559/ DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ +0.34038, 0.34038, 0.50160, 0.02085, 0.00053, 0.000, 0.02085, +0.33086, 0.33086, 0.46172, 0.02028, 0.00186, 0.000, 0.02028, +0.32194, 0.32194, 0.42511, 0.01966, 0.00280, 0.000, 0.01966, +0.31364, 0.31364, 0.39243, 0.01904, 0.00348, 0.000, 0.01904, +0.30585, 0.30585, 0.36315, 0.01843, 0.00396, 0.000, 0.01843, +0.29855, 0.29855, 0.33718, 0.01784, 0.00432, 0.000, 0.01784, +0.29171, 0.29171, 0.31411, 0.01728, 0.00458, 0.000, 0.01728, +0.28529, 0.28529, 0.29357, 0.01674, 0.00477, 0.000, 0.01674, +0.27924, 0.27924, 0.27521, 0.01624, 0.00490, 0.000, 0.01624, +0.27350, 0.27350, 0.25867, 0.01575, 0.00499, 0.000, 0.01575, +0.26807, 0.26807, 0.24380, 0.01529, 0.00505, 0.000, 0.01529, +0.26293, 0.26293, 0.23039, 0.01486, 0.00509, 0.000, 0.01486, +0.25806, 0.25806, 0.21824, 0.01445, 0.00510, 0.000, 0.01445, +0.25339, 0.25339, 0.20714, 0.01406, 0.00510, 0.000, 0.01406, +0.24897, 0.24897, 0.19705, 0.01370, 0.00509, 0.000, 0.01370, +0.24474, 0.24474, 0.18780, 0.01335, 0.00507, 0.000, 0.01335, +0.24069, 0.24069, 0.17931, 0.01302, 0.00505, 0.000, 0.01302, +0.23682, 0.23682, 0.17149, 0.01270, 0.00501, 0.000, 0.01270, +0.23310, 0.23310, 0.16427, 0.01240, 0.00497, 0.000, 0.01240/ DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ +0.34210, 0.34210, 0.46122, 0.01725, 0.00046, 0.000, 0.01725, +0.33100, 0.33100, 0.41912, 0.01673, 0.00158, 0.000, 0.01673, +0.32077, 0.32077, 0.38174, 0.01617, 0.00237, 0.000, 0.01617, +0.31136, 0.31136, 0.34914, 0.01561, 0.00292, 0.000, 0.01561, +0.30261, 0.30261, 0.32049, 0.01507, 0.00331, 0.000, 0.01507, +0.29449, 0.29449, 0.29544, 0.01454, 0.00360, 0.000, 0.01454, +0.28693, 0.28693, 0.27345, 0.01404, 0.00380, 0.000, 0.01404, +0.27988, 0.27988, 0.25408, 0.01357, 0.00394, 0.000, 0.01357, +0.27327, 0.27327, 0.23693, 0.01312, 0.00404, 0.000, 0.01312, +0.26703, 0.26703, 0.22162, 0.01270, 0.00410, 0.000, 0.01270, +0.26115, 0.26115, 0.20795, 0.01230, 0.00413, 0.000, 0.01230, +0.25562, 0.25562, 0.19571, 0.01193, 0.00415, 0.000, 0.01193, +0.25040, 0.25040, 0.18468, 0.01158, 0.00415, 0.000, 0.01158, +0.24541, 0.24541, 0.17467, 0.01124, 0.00414, 0.000, 0.01124, +0.24070, 0.24070, 0.16561, 0.01093, 0.00412, 0.000, 0.01093, +0.23620, 0.23620, 0.15734, 0.01063, 0.00410, 0.000, 0.01063, +0.23191, 0.23191, 0.14979, 0.01034, 0.00407, 0.000, 0.01034, +0.22783, 0.22783, 0.14287, 0.01008, 0.00403, 0.000, 0.01008, +0.22391, 0.22391, 0.13650, 0.00982, 0.00399, 0.000, 0.00982/ DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ +0.34217, 0.34217, 0.42283, 0.01416, 0.00039, 0.000, 0.01416, +0.32955, 0.32955, 0.37946, 0.01370, 0.00134, 0.000, 0.01370, +0.31807, 0.31807, 0.34200, 0.01320, 0.00199, 0.000, 0.01320, +0.30762, 0.30762, 0.30995, 0.01271, 0.00245, 0.000, 0.01271, +0.29797, 0.29797, 0.28226, 0.01222, 0.00276, 0.000, 0.01222, +0.28909, 0.28909, 0.25836, 0.01176, 0.00298, 0.000, 0.01176, +0.28088, 0.28088, 0.23763, 0.01133, 0.00313, 0.000, 0.01133, +0.27325, 0.27325, 0.21953, 0.01092, 0.00324, 0.000, 0.01092, +0.26615, 0.26615, 0.20364, 0.01054, 0.00331, 0.000, 0.01054, +0.25946, 0.25946, 0.18958, 0.01017, 0.00335, 0.000, 0.01017, +0.25320, 0.25320, 0.17711, 0.00983, 0.00337, 0.000, 0.00983, +0.24733, 0.24733, 0.16601, 0.00951, 0.00337, 0.000, 0.00951, +0.24180, 0.24180, 0.15607, 0.00921, 0.00337, 0.000, 0.00921, +0.23653, 0.23653, 0.14709, 0.00893, 0.00335, 0.000, 0.00893, +0.23158, 0.23158, 0.13901, 0.00866, 0.00333, 0.000, 0.00866, +0.22687, 0.22687, 0.13167, 0.00841, 0.00330, 0.000, 0.00841, +0.22239, 0.22239, 0.12499, 0.00817, 0.00326, 0.000, 0.00817, +0.21813, 0.21813, 0.11890, 0.00794, 0.00323, 0.000, 0.00794, +0.21406, 0.21406, 0.11331, 0.00773, 0.00319, 0.000, 0.00773/ DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ +0.34066, 0.34066, 0.38638, 0.01155, 0.00033, 0.000, 0.01155, +0.32661, 0.32661, 0.34253, 0.01114, 0.00113, 0.000, 0.01114, +0.31394, 0.31394, 0.30552, 0.01071, 0.00167, 0.000, 0.01071, +0.30251, 0.30251, 0.27442, 0.01028, 0.00204, 0.000, 0.01028, +0.29205, 0.29205, 0.24794, 0.00986, 0.00229, 0.000, 0.00986, +0.28248, 0.28248, 0.22537, 0.00946, 0.00246, 0.000, 0.00946, +0.27368, 0.27368, 0.20598, 0.00909, 0.00258, 0.000, 0.00909, +0.26554, 0.26554, 0.18921, 0.00874, 0.00266, 0.000, 0.00874, +0.25800, 0.25800, 0.17462, 0.00841, 0.00270, 0.000, 0.00841, +0.25093, 0.25093, 0.16179, 0.00810, 0.00273, 0.000, 0.00810, +0.24434, 0.24434, 0.15050, 0.00781, 0.00273, 0.000, 0.00781, +0.23817, 0.23817, 0.14050, 0.00755, 0.00273, 0.000, 0.00755, +0.23239, 0.23239, 0.13159, 0.00729, 0.00272, 0.000, 0.00729, +0.22691, 0.22691, 0.12360, 0.00705, 0.00270, 0.000, 0.00705, +0.22176, 0.22176, 0.11643, 0.00683, 0.00267, 0.000, 0.00683, +0.21687, 0.21687, 0.10995, 0.00662, 0.00264, 0.000, 0.00662, +0.21224, 0.21224, 0.10409, 0.00642, 0.00261, 0.000, 0.00642, +0.20784, 0.20784, 0.09875, 0.00623, 0.00258, 0.000, 0.00623, +0.20365, 0.20365, 0.09388, 0.00606, 0.00255, 0.000, 0.00606/ DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ +0.33768, 0.33768, 0.35181, 0.00932, 0.00028, 0.000, 0.00932, +0.32226, 0.32226, 0.30813, 0.00898, 0.00095, 0.000, 0.00898, +0.30849, 0.30849, 0.27203, 0.00861, 0.00139, 0.000, 0.00861, +0.29616, 0.29616, 0.24216, 0.00824, 0.00169, 0.000, 0.00824, +0.28496, 0.28496, 0.21709, 0.00788, 0.00189, 0.000, 0.00788, +0.27477, 0.27477, 0.19596, 0.00755, 0.00203, 0.000, 0.00755, +0.26544, 0.26544, 0.17799, 0.00723, 0.00211, 0.000, 0.00723, +0.25687, 0.25687, 0.16258, 0.00693, 0.00217, 0.000, 0.00693, +0.24895, 0.24895, 0.14927, 0.00666, 0.00220, 0.000, 0.00666, +0.24156, 0.24156, 0.13766, 0.00640, 0.00221, 0.000, 0.00640, +0.23469, 0.23469, 0.12749, 0.00616, 0.00221, 0.000, 0.00616, +0.22829, 0.22829, 0.11855, 0.00593, 0.00220, 0.000, 0.00593, +0.22230, 0.22230, 0.11062, 0.00572, 0.00218, 0.000, 0.00572, +0.21665, 0.21665, 0.10356, 0.00552, 0.00216, 0.000, 0.00552, +0.21135, 0.21135, 0.09724, 0.00534, 0.00214, 0.000, 0.00534, +0.20633, 0.20633, 0.09156, 0.00516, 0.00211, 0.000, 0.00516, +0.20159, 0.20159, 0.08643, 0.00500, 0.00208, 0.000, 0.00500, +0.19710, 0.19710, 0.08178, 0.00485, 0.00205, 0.000, 0.00485, +0.19283, 0.19283, 0.07756, 0.00470, 0.00202, 0.000, 0.00470/ DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ +0.33330, 0.33330, 0.31907, 0.00747, 0.00023, 0.000, 0.00747, +0.31660, 0.31660, 0.27612, 0.00718, 0.00080, 0.000, 0.00718, +0.30182, 0.30182, 0.24129, 0.00687, 0.00116, 0.000, 0.00687, +0.28866, 0.28866, 0.21289, 0.00656, 0.00140, 0.000, 0.00656, +0.27680, 0.27680, 0.18937, 0.00626, 0.00155, 0.000, 0.00626, +0.26606, 0.26606, 0.16975, 0.00598, 0.00166, 0.000, 0.00598, +0.25628, 0.25628, 0.15322, 0.00571, 0.00172, 0.000, 0.00571, +0.24733, 0.24733, 0.13917, 0.00547, 0.00176, 0.000, 0.00547, +0.23910, 0.23910, 0.12711, 0.00524, 0.00178, 0.000, 0.00524, +0.23145, 0.23145, 0.11668, 0.00502, 0.00178, 0.000, 0.00502, +0.22437, 0.22437, 0.10760, 0.00482, 0.00177, 0.000, 0.00482, +0.21779, 0.21779, 0.09965, 0.00464, 0.00176, 0.000, 0.00464, +0.21165, 0.21165, 0.09265, 0.00446, 0.00174, 0.000, 0.00446, +0.20586, 0.20586, 0.08643, 0.00430, 0.00172, 0.000, 0.00430, +0.20046, 0.20046, 0.08090, 0.00415, 0.00170, 0.000, 0.00415, +0.19536, 0.19536, 0.07595, 0.00401, 0.00167, 0.000, 0.00401, +0.19055, 0.19055, 0.07150, 0.00387, 0.00165, 0.000, 0.00387, +0.18601, 0.18601, 0.06748, 0.00375, 0.00162, 0.000, 0.00375, +0.18169, 0.18169, 0.06384, 0.00363, 0.00159, 0.000, 0.00363/ DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ +0.32758, 0.32758, 0.28813, 0.00591, 0.00019, 0.000, 0.00591, +0.30969, 0.30969, 0.24637, 0.00568, 0.00066, 0.000, 0.00568, +0.29399, 0.29399, 0.21310, 0.00542, 0.00095, 0.000, 0.00542, +0.28011, 0.28011, 0.18634, 0.00516, 0.00115, 0.000, 0.00516, +0.26767, 0.26767, 0.16446, 0.00491, 0.00127, 0.000, 0.00491, +0.25646, 0.25646, 0.14639, 0.00468, 0.00134, 0.000, 0.00468, +0.24630, 0.24630, 0.13131, 0.00446, 0.00139, 0.000, 0.00446, +0.23704, 0.23704, 0.11859, 0.00426, 0.00142, 0.000, 0.00426, +0.22857, 0.22857, 0.10776, 0.00407, 0.00143, 0.000, 0.00407, +0.22072, 0.22072, 0.09845, 0.00389, 0.00142, 0.000, 0.00389, +0.21348, 0.21348, 0.09040, 0.00373, 0.00141, 0.000, 0.00373, +0.20677, 0.20677, 0.08339, 0.00358, 0.00140, 0.000, 0.00358, +0.20053, 0.20053, 0.07725, 0.00344, 0.00138, 0.000, 0.00344, +0.19467, 0.19467, 0.07182, 0.00331, 0.00136, 0.000, 0.00331, +0.18920, 0.18920, 0.06701, 0.00319, 0.00134, 0.000, 0.00319, +0.18406, 0.18406, 0.06272, 0.00307, 0.00132, 0.000, 0.00307, +0.17922, 0.17922, 0.05888, 0.00296, 0.00129, 0.000, 0.00296, +0.17466, 0.17466, 0.05543, 0.00286, 0.00127, 0.000, 0.00286, +0.17034, 0.17034, 0.05231, 0.00277, 0.00124, 0.000, 0.00277/ DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ +0.32061, 0.32061, 0.25896, 0.00464, 0.00016, 0.000, 0.00464, +0.30163, 0.30163, 0.21877, 0.00445, 0.00054, 0.000, 0.00445, +0.28510, 0.28510, 0.18729, 0.00424, 0.00078, 0.000, 0.00424, +0.27059, 0.27059, 0.16231, 0.00403, 0.00093, 0.000, 0.00403, +0.25765, 0.25765, 0.14212, 0.00383, 0.00102, 0.000, 0.00383, +0.24606, 0.24606, 0.12562, 0.00364, 0.00108, 0.000, 0.00364, +0.23561, 0.23561, 0.11197, 0.00346, 0.00111, 0.000, 0.00346, +0.22612, 0.22612, 0.10054, 0.00330, 0.00113, 0.000, 0.00330, +0.21746, 0.21746, 0.09089, 0.00314, 0.00113, 0.000, 0.00314, +0.20948, 0.20948, 0.08264, 0.00300, 0.00113, 0.000, 0.00300, +0.20213, 0.20213, 0.07556, 0.00287, 0.00112, 0.000, 0.00287, +0.19534, 0.19534, 0.06942, 0.00275, 0.00110, 0.000, 0.00275, +0.18904, 0.18904, 0.06407, 0.00263, 0.00109, 0.000, 0.00263, +0.18315, 0.18315, 0.05936, 0.00253, 0.00107, 0.000, 0.00253, +0.17767, 0.17767, 0.05521, 0.00243, 0.00105, 0.000, 0.00243, +0.17253, 0.17253, 0.05153, 0.00234, 0.00103, 0.000, 0.00234, +0.16769, 0.16769, 0.04824, 0.00225, 0.00101, 0.000, 0.00225, +0.16315, 0.16315, 0.04529, 0.00217, 0.00099, 0.000, 0.00217, +0.15886, 0.15886, 0.04264, 0.00210, 0.00096, 0.000, 0.00210/ DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ +0.31240, 0.31240, 0.23150, 0.00359, 0.00013, 0.000, 0.00359, +0.29246, 0.29246, 0.19321, 0.00344, 0.00044, 0.000, 0.00344, +0.27522, 0.27522, 0.16368, 0.00327, 0.00063, 0.000, 0.00327, +0.26017, 0.26017, 0.14057, 0.00310, 0.00075, 0.000, 0.00310, +0.24683, 0.24683, 0.12210, 0.00294, 0.00082, 0.000, 0.00294, +0.23494, 0.23494, 0.10716, 0.00279, 0.00086, 0.000, 0.00279, +0.22426, 0.22426, 0.09490, 0.00265, 0.00088, 0.000, 0.00265, +0.21460, 0.21460, 0.08472, 0.00251, 0.00089, 0.000, 0.00251, +0.20582, 0.20582, 0.07618, 0.00239, 0.00089, 0.000, 0.00239, +0.19776, 0.19776, 0.06894, 0.00228, 0.00089, 0.000, 0.00228, +0.19037, 0.19037, 0.06276, 0.00217, 0.00088, 0.000, 0.00217, +0.18356, 0.18356, 0.05743, 0.00208, 0.00086, 0.000, 0.00208, +0.17727, 0.17727, 0.05280, 0.00199, 0.00085, 0.000, 0.00199, +0.17139, 0.17139, 0.04876, 0.00190, 0.00083, 0.000, 0.00190, +0.16593, 0.16593, 0.04520, 0.00183, 0.00081, 0.000, 0.00183, +0.16083, 0.16083, 0.04206, 0.00175, 0.00079, 0.000, 0.00175, +0.15604, 0.15604, 0.03927, 0.00169, 0.00078, 0.000, 0.00169, +0.15156, 0.15156, 0.03677, 0.00163, 0.00076, 0.000, 0.00163, +0.14732, 0.14732, 0.03453, 0.00157, 0.00074, 0.000, 0.00157/ DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ +0.30305, 0.30305, 0.20574, 0.00274, 0.00010, 0.000, 0.00274, +0.28225, 0.28225, 0.16960, 0.00263, 0.00035, 0.000, 0.00263, +0.26441, 0.26441, 0.14217, 0.00250, 0.00050, 0.000, 0.00250, +0.24892, 0.24892, 0.12096, 0.00237, 0.00060, 0.000, 0.00237, +0.23527, 0.23527, 0.10421, 0.00224, 0.00065, 0.000, 0.00224, +0.22317, 0.22317, 0.09080, 0.00212, 0.00068, 0.000, 0.00212, +0.21235, 0.21235, 0.07989, 0.00201, 0.00070, 0.000, 0.00201, +0.20260, 0.20260, 0.07090, 0.00190, 0.00070, 0.000, 0.00190, +0.19377, 0.19377, 0.06341, 0.00180, 0.00070, 0.000, 0.00180, +0.18570, 0.18570, 0.05711, 0.00171, 0.00069, 0.000, 0.00171, +0.17831, 0.17831, 0.05175, 0.00163, 0.00068, 0.000, 0.00163, +0.17154, 0.17154, 0.04716, 0.00156, 0.00067, 0.000, 0.00156, +0.16528, 0.16528, 0.04320, 0.00149, 0.00065, 0.000, 0.00149, +0.15947, 0.15947, 0.03975, 0.00142, 0.00064, 0.000, 0.00142, +0.15408, 0.15408, 0.03674, 0.00136, 0.00062, 0.000, 0.00136, +0.14905, 0.14905, 0.03408, 0.00131, 0.00061, 0.000, 0.00131, +0.14435, 0.14435, 0.03173, 0.00125, 0.00059, 0.000, 0.00125, +0.13995, 0.13995, 0.02963, 0.00121, 0.00058, 0.000, 0.00121, +0.13581, 0.13581, 0.02776, 0.00116, 0.00056, 0.000, 0.00116/ DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ +0.29258, 0.29258, 0.18164, 0.00206, 0.00009, 0.000, 0.00206, +0.27107, 0.27107, 0.14786, 0.00198, 0.00028, 0.000, 0.00198, +0.25274, 0.25274, 0.12260, 0.00188, 0.00040, 0.000, 0.00188, +0.23693, 0.23693, 0.10333, 0.00177, 0.00047, 0.000, 0.00177, +0.22307, 0.22307, 0.08828, 0.00168, 0.00051, 0.000, 0.00168, +0.21084, 0.21084, 0.07634, 0.00158, 0.00053, 0.000, 0.00158, +0.19995, 0.19995, 0.06672, 0.00149, 0.00054, 0.000, 0.00149, +0.19018, 0.19018, 0.05886, 0.00141, 0.00054, 0.000, 0.00141, +0.18137, 0.18137, 0.05236, 0.00134, 0.00054, 0.000, 0.00134, +0.17335, 0.17335, 0.04692, 0.00127, 0.00053, 0.000, 0.00127, +0.16603, 0.16603, 0.04233, 0.00120, 0.00052, 0.000, 0.00120, +0.15934, 0.15934, 0.03841, 0.00115, 0.00051, 0.000, 0.00115, +0.15317, 0.15317, 0.03505, 0.00109, 0.00050, 0.000, 0.00109, +0.14746, 0.14746, 0.03214, 0.00104, 0.00048, 0.000, 0.00104, +0.14218, 0.14218, 0.02961, 0.00100, 0.00047, 0.000, 0.00100, +0.13726, 0.13726, 0.02738, 0.00095, 0.00046, 0.000, 0.00095, +0.13268, 0.13268, 0.02542, 0.00091, 0.00045, 0.000, 0.00091, +0.12840, 0.12840, 0.02368, 0.00088, 0.00043, 0.000, 0.00088, +0.12438, 0.12438, 0.02213, 0.00084, 0.00042, 0.000, 0.00084/ DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ +0.28107, 0.28107, 0.15919, 0.00153, 0.00007, 0.000, 0.00153, +0.25897, 0.25897, 0.12791, 0.00147, 0.00022, 0.000, 0.00147, +0.24028, 0.24028, 0.10488, 0.00139, 0.00031, 0.000, 0.00139, +0.22425, 0.22425, 0.08753, 0.00131, 0.00037, 0.000, 0.00131, +0.21029, 0.21029, 0.07415, 0.00124, 0.00039, 0.000, 0.00124, +0.19802, 0.19802, 0.06363, 0.00116, 0.00041, 0.000, 0.00116, +0.18715, 0.18715, 0.05524, 0.00110, 0.00041, 0.000, 0.00110, +0.17744, 0.17744, 0.04843, 0.00104, 0.00041, 0.000, 0.00104, +0.16872, 0.16872, 0.04284, 0.00098, 0.00041, 0.000, 0.00098, +0.16079, 0.16079, 0.03819, 0.00093, 0.00040, 0.000, 0.00093, +0.15360, 0.15360, 0.03430, 0.00088, 0.00039, 0.000, 0.00088, +0.14704, 0.14704, 0.03099, 0.00083, 0.00038, 0.000, 0.00083, +0.14101, 0.14101, 0.02817, 0.00079, 0.00037, 0.000, 0.00079, +0.13544, 0.13544, 0.02574, 0.00076, 0.00036, 0.000, 0.00076, +0.13031, 0.13031, 0.02363, 0.00072, 0.00035, 0.000, 0.00072, +0.12554, 0.12554, 0.02179, 0.00069, 0.00034, 0.000, 0.00069, +0.12111, 0.12111, 0.02017, 0.00066, 0.00033, 0.000, 0.00066, +0.11698, 0.11698, 0.01873, 0.00063, 0.00032, 0.000, 0.00063, +0.11311, 0.11311, 0.01747, 0.00061, 0.00031, 0.000, 0.00061/ DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ +0.25505, 0.25505, 0.11909, 0.00079, 0.00004, 0.000, 0.00079, +0.23226, 0.23226, 0.09311, 0.00076, 0.00013, 0.000, 0.00076, +0.21325, 0.21325, 0.07458, 0.00072, 0.00018, 0.000, 0.00072, +0.19715, 0.19715, 0.06097, 0.00068, 0.00021, 0.000, 0.00068, +0.18329, 0.18329, 0.05072, 0.00064, 0.00022, 0.000, 0.00064, +0.17123, 0.17123, 0.04283, 0.00060, 0.00023, 0.000, 0.00060, +0.16065, 0.16065, 0.03665, 0.00056, 0.00023, 0.000, 0.00056, +0.15127, 0.15127, 0.03172, 0.00052, 0.00023, 0.000, 0.00052, +0.14291, 0.14291, 0.02773, 0.00049, 0.00022, 0.000, 0.00049, +0.13539, 0.13539, 0.02446, 0.00046, 0.00022, 0.000, 0.00046, +0.12859, 0.12859, 0.02176, 0.00044, 0.00021, 0.000, 0.00044, +0.12243, 0.12243, 0.01949, 0.00042, 0.00020, 0.000, 0.00042, +0.11682, 0.11682, 0.01757, 0.00039, 0.00020, 0.000, 0.00039, +0.11166, 0.11166, 0.01594, 0.00037, 0.00019, 0.000, 0.00037, +0.10693, 0.10693, 0.01453, 0.00035, 0.00018, 0.000, 0.00035, +0.10256, 0.10256, 0.01331, 0.00034, 0.00018, 0.000, 0.00034, +0.09852, 0.09852, 0.01225, 0.00032, 0.00017, 0.000, 0.00032, +0.09477, 0.09477, 0.01132, 0.00031, 0.00017, 0.000, 0.00031, +0.09128, 0.09128, 0.01050, 0.00029, 0.00016, 0.000, 0.00029/ DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ +0.22537, 0.22537, 0.08523, 0.00037, 0.00002, 0.000, 0.00037, +0.20255, 0.20255, 0.06467, 0.00036, 0.00007, 0.000, 0.00036, +0.18381, 0.18381, 0.05047, 0.00034, 0.00010, 0.000, 0.00034, +0.16815, 0.16815, 0.04035, 0.00032, 0.00011, 0.000, 0.00032, +0.15482, 0.15482, 0.03290, 0.00030, 0.00012, 0.000, 0.00030, +0.14335, 0.14335, 0.02730, 0.00028, 0.00012, 0.000, 0.00028, +0.13339, 0.13339, 0.02300, 0.00026, 0.00012, 0.000, 0.00026, +0.12465, 0.12465, 0.01963, 0.00024, 0.00012, 0.000, 0.00024, +0.11692, 0.11692, 0.01694, 0.00023, 0.00011, 0.000, 0.00023, +0.11002, 0.11002, 0.01478, 0.00021, 0.00011, 0.000, 0.00021, +0.10384, 0.10384, 0.01301, 0.00020, 0.00011, 0.000, 0.00020, +0.09827, 0.09827, 0.01154, 0.00019, 0.00010, 0.000, 0.00019, +0.09323, 0.09323, 0.01032, 0.00018, 0.00010, 0.000, 0.00018, +0.08863, 0.08863, 0.00928, 0.00017, 0.00009, 0.000, 0.00017, +0.08444, 0.08444, 0.00840, 0.00016, 0.00009, 0.000, 0.00016, +0.08059, 0.08059, 0.00765, 0.00015, 0.00009, 0.000, 0.00015, +0.07704, 0.07704, 0.00699, 0.00014, 0.00008, 0.000, 0.00014, +0.07377, 0.07377, 0.00642, 0.00014, 0.00008, 0.000, 0.00014, +0.07074, 0.07074, 0.00593, 0.00013, 0.00008, 0.000, 0.00013/ DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ +0.19244, 0.19244, 0.05742, 0.00015, 0.00001, 0.000, 0.00015, +0.17036, 0.17036, 0.04212, 0.00015, 0.00003, 0.000, 0.00015, +0.15253, 0.15253, 0.03193, 0.00014, 0.00005, 0.000, 0.00014, +0.13785, 0.13785, 0.02489, 0.00013, 0.00005, 0.000, 0.00013, +0.12553, 0.12553, 0.01985, 0.00012, 0.00005, 0.000, 0.00012, +0.11505, 0.11505, 0.01615, 0.00011, 0.00005, 0.000, 0.00011, +0.10605, 0.10605, 0.01337, 0.00010, 0.00005, 0.000, 0.00010, +0.09824, 0.09824, 0.01123, 0.00010, 0.00005, 0.000, 0.00010, +0.09140, 0.09140, 0.00956, 0.00009, 0.00005, 0.000, 0.00009, +0.08534, 0.08534, 0.00824, 0.00008, 0.00005, 0.000, 0.00008, +0.07996, 0.07996, 0.00717, 0.00008, 0.00004, 0.000, 0.00008, +0.07515, 0.07515, 0.00630, 0.00007, 0.00004, 0.000, 0.00007, +0.07083, 0.07083, 0.00558, 0.00007, 0.00004, 0.000, 0.00007, +0.06692, 0.06692, 0.00497, 0.00007, 0.00004, 0.000, 0.00007, +0.06338, 0.06338, 0.00447, 0.00006, 0.00004, 0.000, 0.00006, +0.06014, 0.06014, 0.00404, 0.00006, 0.00004, 0.000, 0.00006, +0.05718, 0.05718, 0.00367, 0.00005, 0.00003, 0.000, 0.00005, +0.05447, 0.05447, 0.00335, 0.00005, 0.00003, 0.000, 0.00005, +0.05197, 0.05197, 0.00307, 0.00005, 0.00003, 0.000, 0.00005/ DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ +0.15661, 0.15661, 0.03543, 0.00005, 0.000, 0.000, 0.00005, +0.13617, 0.13617, 0.02497, 0.00005, 0.00001, 0.000, 0.00005, +0.11997, 0.11997, 0.01830, 0.00005, 0.00002, 0.000, 0.00005, +0.10687, 0.10687, 0.01385, 0.00004, 0.00002, 0.000, 0.00004, +0.09604, 0.09604, 0.01076, 0.00004, 0.00002, 0.000, 0.00004, +0.08697, 0.08697, 0.00856, 0.00004, 0.00002, 0.000, 0.00004, +0.07927, 0.07927, 0.00695, 0.00004, 0.00002, 0.000, 0.00004, +0.07266, 0.07266, 0.00573, 0.00003, 0.00002, 0.000, 0.00003, +0.06695, 0.06695, 0.00480, 0.00003, 0.00002, 0.000, 0.00003, +0.06194, 0.06194, 0.00408, 0.00003, 0.00002, 0.000, 0.00003, +0.05753, 0.05753, 0.00351, 0.00003, 0.00002, 0.000, 0.00003, +0.05363, 0.05363, 0.00304, 0.00002, 0.00002, 0.000, 0.00002, +0.05016, 0.05016, 0.00267, 0.00002, 0.00001, 0.000, 0.00002, +0.04704, 0.04704, 0.00236, 0.00002, 0.00001, 0.000, 0.00002, +0.04423, 0.04423, 0.00210, 0.00002, 0.00001, 0.000, 0.00002, +0.04169, 0.04169, 0.00188, 0.00002, 0.00001, 0.000, 0.00002, +0.03938, 0.03938, 0.00170, 0.00002, 0.00001, 0.000, 0.00002, +0.03728, 0.03728, 0.00154, 0.00002, 0.00001, 0.000, 0.00002, +0.03536, 0.03536, 0.00140, 0.00002, 0.00001, 0.000, 0.00002/ DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ +0.11838, 0.11838, 0.01902, 0.00001, 0.000, 0.000, 0.00001, +0.10061, 0.10061, 0.01276, 0.00001, 0.000, 0.000, 0.00001, +0.08687, 0.08687, 0.00897, 0.00001, 0.000, 0.000, 0.00001, +0.07599, 0.07599, 0.00654, 0.00001, 0.00001, 0.000, 0.00001, +0.06716, 0.06716, 0.00493, 0.00001, 0.00001, 0.000, 0.00001, +0.05989, 0.05989, 0.00382, 0.00001, 0.00001, 0.000, 0.00001, +0.05383, 0.05383, 0.00302, 0.00001, 0.00001, 0.000, 0.00001, +0.04870, 0.04870, 0.00244, 0.00001, 0.000, 0.000, 0.00001, +0.04432, 0.04432, 0.00201, 0.00001, 0.000, 0.000, 0.00001, +0.04053, 0.04053, 0.00168, 0.00001, 0.000, 0.000, 0.00001, +0.03724, 0.03724, 0.00142, 0.00001, 0.000, 0.000, 0.00001, +0.03436, 0.03436, 0.00122, 0.00001, 0.000, 0.000, 0.00001, +0.03182, 0.03182, 0.00105, 0.00001, 0.000, 0.000, 0.00001, +0.02956, 0.02956, 0.00092, 0.000, 0.000, 0.000, 0.000, +0.02756, 0.02756, 0.00081, 0.000, 0.000, 0.000, 0.000, +0.02575, 0.02575, 0.00072, 0.000, 0.000, 0.000, 0.000, +0.02413, 0.02413, 0.00065, 0.000, 0.000, 0.000, 0.000, +0.02267, 0.02267, 0.00058, 0.000, 0.000, 0.000, 0.000, +0.02134, 0.02134, 0.00053, 0.000, 0.000, 0.000, 0.000/ DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),K=1,19)/ +0.07837, 0.07837, 0.00792, 0.000, 0.000, 0.000, 0.000, +0.06455, 0.06455, 0.00497, 0.000, 0.000, 0.000, 0.000, +0.05420, 0.05420, 0.00330, 0.000, 0.000, 0.000, 0.000, +0.04623, 0.04623, 0.00230, 0.000, 0.000, 0.000, 0.000, +0.03993, 0.03993, 0.00166, 0.000, 0.000, 0.000, 0.000, +0.03487, 0.03487, 0.00124, 0.000, 0.000, 0.000, 0.000, +0.03074, 0.03074, 0.00095, 0.000, 0.000, 0.000, 0.000, +0.02731, 0.02731, 0.00075, 0.000, 0.000, 0.000, 0.000, +0.02443, 0.02443, 0.00060, 0.000, 0.000, 0.000, 0.000, +0.02199, 0.02199, 0.00049, 0.000, 0.000, 0.000, 0.000, +0.01991, 0.01991, 0.00041, 0.000, 0.000, 0.000, 0.000, +0.01811, 0.01811, 0.00034, 0.000, 0.000, 0.000, 0.000, +0.01655, 0.01655, 0.00029, 0.000, 0.000, 0.000, 0.000, +0.01518, 0.01518, 0.00025, 0.000, 0.000, 0.000, 0.000, +0.01397, 0.01397, 0.00022, 0.000, 0.000, 0.000, 0.000, +0.01291, 0.01291, 0.00019, 0.000, 0.000, 0.000, 0.000, +0.01196, 0.01196, 0.00017, 0.000, 0.000, 0.000, 0.000, +0.01111, 0.01111, 0.00015, 0.000, 0.000, 0.000, 0.000, +0.01035, 0.01035, 0.00014, 0.000, 0.000, 0.000, 0.000/ DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),K=1,19)/ +0.03767, 0.03767, 0.00177, 0.000, 0.000, 0.000, 0.000, +0.02943, 0.02943, 0.00100, 0.000, 0.000, 0.000, 0.000, +0.02358, 0.02358, 0.00061, 0.000, 0.000, 0.000, 0.000, +0.01928, 0.01928, 0.00039, 0.000, 0.000, 0.000, 0.000, +0.01602, 0.01602, 0.00026, 0.000, 0.000, 0.000, 0.000, +0.01351, 0.01351, 0.00019, 0.000, 0.000, 0.000, 0.000, +0.01152, 0.01152, 0.00014, 0.000, 0.000, 0.000, 0.000, +0.00993, 0.00993, 0.00010, 0.000, 0.000, 0.000, 0.000, +0.00864, 0.00864, 0.00008, 0.000, 0.000, 0.000, 0.000, +0.00757, 0.00757, 0.00006, 0.000, 0.000, 0.000, 0.000, +0.00668, 0.00668, 0.00005, 0.000, 0.000, 0.000, 0.000, +0.00594, 0.00594, 0.00004, 0.000, 0.000, 0.000, 0.000, +0.00530, 0.00530, 0.00004, 0.000, 0.000, 0.000, 0.000, +0.00476, 0.00476, 0.00003, 0.000, 0.000, 0.000, 0.000, +0.00430, 0.00430, 0.00003, 0.000, 0.000, 0.000, 0.000, +0.00389, 0.00389, 0.00002, 0.000, 0.000, 0.000, 0.000, +0.00354, 0.00354, 0.00002, 0.000, 0.000, 0.000, 0.000, +0.00323, 0.00323, 0.00002, 0.000, 0.000, 0.000, 0.000, +0.00296, 0.00296, 0.00002, 0.000, 0.000, 0.000, 0.000/ DATA ((F(I,49,K),I=1,5),F(7,49,K),F(6,49,K),K=1,19)/ +0.01779, 0.01779, 0.00040, 0.000, 0.000, 0.000, 0.000, +0.01319, 0.01319, 0.00020, 0.000, 0.000, 0.000, 0.000, +0.01008, 0.01008, 0.00011, 0.000, 0.000, 0.000, 0.000, +0.00791, 0.00791, 0.00007, 0.000, 0.000, 0.000, 0.000, +0.00633, 0.00633, 0.00004, 0.000, 0.000, 0.000, 0.000, +0.00515, 0.00515, 0.00003, 0.000, 0.000, 0.000, 0.000, +0.00426, 0.00426, 0.00002, 0.000, 0.000, 0.000, 0.000, +0.00356, 0.00356, 0.00002, 0.000, 0.000, 0.000, 0.000, +0.00301, 0.00301, 0.00001, 0.000, 0.000, 0.000, 0.000, +0.00257, 0.00257, 0.00001, 0.000, 0.000, 0.000, 0.000, +0.00221, 0.00221, 0.00001, 0.000, 0.000, 0.000, 0.000, +0.00192, 0.00192, 0.00001, 0.000, 0.000, 0.000, 0.000, +0.00168, 0.00168, 0.000, 0.000, 0.000, 0.000, 0.000, +0.00148, 0.00148, 0.000, 0.000, 0.000, 0.000, 0.000, +0.00130, 0.00130, 0.000, 0.000, 0.000, 0.000, 0.000, +0.00116, 0.00116, 0.000, 0.000, 0.000, 0.000, 0.000, +0.00104, 0.00104, 0.000, 0.000, 0.000, 0.000, 0.000, +0.00093, 0.00093, 0.000, 0.000, 0.000, 0.000, 0.000, +0.00084, 0.00084, 0.000, 0.000, 0.000, 0.000, 0.000/ DATA ((F(I,50,K),I=1,5),F(7,50,K),F(6,50,K),K=1,19)/ +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000/ 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,.85D0,.9D0,.95D0,.975D0,1.D0/ DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ DATA N0/0,0,3,5,0,5,0/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ DATA INIT/0/ XSAVE=X IF(INIT.NE.0) GOTO 10 INIT=1 DO 20 N=1,NX-1 DO 20 M=1,NQ C READ(102,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) 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=2,6 DO 30 K=1,NQ 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) 50 FORMAT(7F10.5) DO 40 I=1,7 DO 40 M=1,NQ 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.OR.I.EQ.1) 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 C UPBAR DISTRIBUTION = D DISTRIBUTION UPV=G(2) DNV=G(2) C THIS SEA IS (UBAR+DBAR)/2 SEA=G(4) STR=G(6) CHM=G(5) GLU=G(3) BOT=G(7) X=XSAVE RETURN END