* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:30:22 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:44 plothow * Version 7.01 * * #include "pdf/pilot.h" SUBROUTINE SFMSBH(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C THIS IS THE NEW PRELIMINARY HERA FIT MRS(H) C .... WITH UBAR < DBAR (230 MeV) #include "pdf/impdp.inc" 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.01399, 0.00189, 28.57361, 2.52574, 0.13922, + 0.00000, 1.35002, 2.55150, + 0.01450, 0.00205, 41.41998, 2.93569, 0.60391, + 0.00001, 1.78792, 2.96110, + 0.01497, 0.00221, 56.22984, 3.40128, 1.11643, + 0.00001, 2.27752, 3.42636, + 0.01541, 0.00235, 72.60197, 3.91488, 1.67105, + 0.00001, 2.81215, 3.93963, + 0.01581, 0.00249, 90.39349, 4.46961, 2.26217, + 0.12740, 3.38556, 4.49408, + 0.01618, 0.00263, 109.40785, 5.06167, 2.88696, + 0.69649, 3.99446, 5.08588, + 0.01654, 0.00276, 129.52321, 5.69024, 3.54540, + 1.39599, 4.63840, 5.71420 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + 0.01688, 0.00289, 150.59039, 6.35208, 4.23468, + 2.11291, 5.31439, 6.37581, + 0.01721, 0.00301, 172.47517, 7.04358, 4.95158, + 2.85689, 6.01900, 7.06710, + 0.01752, 0.00313, 195.07593, 7.76197, 5.69356, + 3.62358, 6.74958, 7.78529, + 0.01782, 0.00325, 218.32326, 8.50504, 6.45865, + 4.41183, 7.50404, 8.52820, + 0.01811, 0.00336, 242.10217, 9.27003, 7.24428, + 5.21909, 8.27972, 9.29304, + 0.01840, 0.00348, 266.14624, 10.05212, 8.04581, + 6.04096, 9.07188, 10.07497, + 0.01867, 0.00359, 290.66772, 10.85345, 8.86548, + 6.87977, 9.88272, 10.87617 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + 0.01893, 0.00370, 315.54395, 11.67175, 9.70111, + 7.73350, 10.71001, 11.69433, + 0.01919, 0.00380, 340.46313, 12.50028, 10.54612, + 8.59568, 11.54710, 12.52274, + 0.01944, 0.00391, 365.83740, 13.34612, 11.40759, + 9.47343, 12.40105, 13.36847, + 0.01968, 0.00401, 391.07251, 14.19815, 12.27457, + 10.35593, 13.26086, 14.22042, + 0.01992, 0.00411, 416.66797, 15.06506, 13.15572, + 11.25187, 14.13518, 15.08723 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + 0.01772, 0.00272, 23.12250, 2.05768, 0.11044, + 0.00000, 1.09384, 2.07248, + 0.01840, 0.00297, 33.11473, 2.37891, 0.47574, + 0.00000, 1.43741, 2.39348, + 0.01903, 0.00319, 44.40932, 2.73870, 0.87330, + 0.00001, 1.81637, 2.75305, + 0.01960, 0.00341, 56.67400, 3.13056, 1.29815, + 0.00000, 2.22501, 3.14471, + 0.02012, 0.00361, 69.79974, 3.54923, 1.74606, + 0.09624, 2.65856, 3.56320, + 0.02062, 0.00381, 83.63524, 3.99164, 2.21476, + 0.52392, 3.11437, 4.00544, + 0.02109, 0.00400, 98.08752, 4.45698, 2.70407, + 1.04547, 3.59193, 4.47063 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + 0.02154, 0.00418, 113.04889, 4.94272, 3.21183, + 1.57516, 4.08891, 4.95622, + 0.02196, 0.00436, 128.42447, 5.44617, 3.73564, + 2.12040, 4.60277, 5.45955, + 0.02237, 0.00453, 144.14647, 5.96530, 4.27367, + 2.67801, 5.13156, 5.97855, + 0.02276, 0.00470, 160.17076, 6.49851, 4.82451, + 3.24717, 5.67379, 6.51165, + 0.02314, 0.00487, 176.41954, 7.04381, 5.38634, + 3.82612, 6.22756, 7.05686, + 0.02351, 0.00503, 192.70801, 7.59759, 5.95567, + 4.41154, 6.78931, 7.61054, + 0.02386, 0.00518, 209.19713, 8.16174, 6.53449, + 5.00551, 7.36098, 8.17461 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + 0.02420, 0.00534, 225.80484, 8.73462, 7.12124, + 5.60657, 7.94098, 8.74743, + 0.02453, 0.00549, 242.31677, 9.31133, 7.71111, + 6.21002, 8.52444, 9.32406, + 0.02486, 0.00563, 259.03003, 9.89730, 8.30958, + 6.82136, 9.11683, 9.91000, + 0.02517, 0.00578, 275.53491, 10.48433, 8.90855, + 7.43260, 9.70999, 10.49697, + 0.02548, 0.00592, 292.18457, 11.07906, 9.51465, + 8.05038, 10.31057, 11.09164 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + 0.02241, 0.00393, 18.71066, 1.67536, 0.08754, + 0.00000, 0.88625, 1.68330, + 0.02331, 0.00428, 26.47142, 1.92669, 0.37440, + 0.00000, 1.15548, 1.93450, + 0.02412, 0.00462, 35.06683, 2.20416, 0.68230, + 0.00000, 1.44829, 2.21187, + 0.02487, 0.00493, 44.22931, 2.50242, 1.00712, + 0.00000, 1.75995, 2.51003, + 0.02556, 0.00523, 53.88190, 2.81753, 1.34576, + 0.07253, 2.08694, 2.82505, + 0.02621, 0.00552, 63.91248, 3.14711, 1.69647, + 0.39322, 2.42720, 3.15454, + 0.02682, 0.00579, 74.25426, 3.49047, 2.05910, + 0.78114, 2.78030, 3.49783 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + 0.02740, 0.00606, 84.83257, 3.84571, 2.43203, + 1.17147, 3.14449, 3.85301, + 0.02796, 0.00631, 95.58434, 4.21089, 2.81355, + 1.56995, 3.51794, 4.21813, + 0.02849, 0.00656, 106.46631, 4.58455, 3.20237, + 1.97427, 3.89928, 4.59172, + 0.02900, 0.00680, 117.45285, 4.96560, 3.59757, + 2.38397, 4.28750, 4.97272, + 0.02949, 0.00704, 128.49417, 5.35265, 3.99787, + 2.79781, 4.68126, 5.35973, + 0.02996, 0.00727, 139.46341, 5.74303, 4.40071, + 3.21339, 5.07796, 5.75007, + 0.03042, 0.00749, 150.48344, 6.13838, 4.80782, + 3.63247, 5.47927, 6.14539 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + 0.03086, 0.00771, 161.50014, 6.53758, 5.21812, + 4.05410, 5.88411, 6.54456, + 0.03129, 0.00792, 172.36797, 6.93704, 5.62812, + 4.47482, 6.28891, 6.94399, + 0.03170, 0.00813, 183.30180, 7.34098, 6.04206, + 4.89894, 6.69793, 7.34790, + 0.03211, 0.00833, 194.01912, 7.74337, 6.45399, + 5.32057, 7.10517, 7.75027, + 0.03250, 0.00853, 204.77129, 8.14922, 6.86895, + 5.74476, 7.51565, 8.15611 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + 0.02568, 0.00487, 16.53067, 1.48499, 0.07637, + 0.00000, 0.78360, 1.49042, + 0.02673, 0.00532, 23.21927, 1.70253, 0.32526, + 0.00000, 1.01687, 1.70789, + 0.02769, 0.00574, 30.53673, 1.94063, 0.59019, + 0.00000, 1.26845, 1.94593, + 0.02856, 0.00613, 38.25038, 2.19453, 0.86751, + 0.00000, 1.53412, 2.19979, + 0.02937, 0.00650, 46.30000, 2.46097, 1.15468, + 0.06140, 1.81099, 2.46619, + 0.03012, 0.00686, 54.59346, 2.73794, 1.45028, + 0.33205, 2.09733, 2.74312, + 0.03084, 0.00720, 63.07721, 3.02485, 1.75415, + 0.65786, 2.39277, 3.02999 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + 0.03152, 0.00753, 71.69281, 3.32010, 2.06498, + 0.98389, 2.69587, 3.32522, + 0.03216, 0.00784, 80.39113, 3.62211, 2.38137, + 1.31506, 3.00512, 3.62720, + 0.03278, 0.00815, 89.14072, 3.92971, 2.70232, + 1.64953, 3.31945, 3.93478, + 0.03337, 0.00845, 97.92462, 4.24206, 3.02712, + 1.98698, 3.63808, 4.24712, + 0.03394, 0.00874, 106.70447, 4.55803, 3.35474, + 2.32641, 3.95992, 4.56306, + 0.03449, 0.00902, 115.37933, 4.87541, 3.68309, + 2.66585, 4.28283, 4.88043, + 0.03502, 0.00929, 124.05481, 5.19573, 4.01373, + 3.00694, 4.60835, 5.20074 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + 0.03553, 0.00955, 132.68863, 5.51803, 4.34580, + 3.34887, 4.93558, 5.52303, + 0.03603, 0.00981, 141.16512, 5.83940, 4.67643, + 3.68886, 5.26162, 5.84439, + 0.03651, 0.01007, 149.66237, 6.16345, 5.00927, + 4.03056, 5.59011, 6.16844, + 0.03698, 0.01031, 157.95305, 6.48515, 5.33936, + 4.36910, 5.91604, 6.49013, + 0.03743, 0.01055, 166.24387, 6.80877, 5.67098, + 4.70876, 6.24370, 6.81376 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + 0.02828, 0.00567, 15.13950, 1.36292, 0.06931, + 0.00000, 0.71806, 1.36711, + 0.02945, 0.00620, 21.15556, 1.55918, 0.29426, + 0.00000, 0.92870, 1.56335, + 0.03052, 0.00669, 27.67900, 1.77264, 0.53228, + 0.00000, 1.15448, 1.77679, + 0.03149, 0.00715, 34.50014, 1.99898, 0.78004, + 0.00000, 1.39155, 2.00311, + 0.03239, 0.00759, 41.56969, 2.23533, 1.03536, + 0.05451, 1.63742, 2.23946, + 0.03323, 0.00800, 48.80835, 2.47993, 1.29699, + 0.29431, 1.89057, 2.48405, + 0.03403, 0.00840, 56.17104, 2.73226, 1.56483, + 0.58199, 2.15068, 2.73637 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + 0.03478, 0.00878, 63.60899, 2.99093, 1.83774, + 0.86870, 2.41650, 2.99504, + 0.03550, 0.00915, 71.08234, 3.25458, 2.11453, + 1.15891, 2.68675, 3.25868, + 0.03619, 0.00950, 78.56602, 3.52221, 2.39437, + 1.45101, 2.96051, 3.52631, + 0.03685, 0.00985, 86.04810, 3.79315, 2.67668, + 1.74479, 3.23716, 3.79725, + 0.03748, 0.01018, 93.49756, 4.06641, 2.96060, + 2.03942, 3.51578, 4.07052, + 0.03809, 0.01051, 100.82874, 4.34007, 3.24427, + 2.33317, 3.79447, 4.34419, + 0.03868, 0.01082, 108.13600, 4.61557, 3.52920, + 2.62757, 4.07471, 4.61969 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + 0.03925, 0.01113, 115.38472, 4.89210, 3.81465, + 2.92197, 4.35572, 4.89622, + 0.03980, 0.01143, 122.47620, 5.16710, 4.09811, + 3.21392, 4.63498, 5.17123, + 0.04033, 0.01172, 129.56682, 5.44385, 4.38289, + 3.50673, 4.91576, 5.44800, + 0.04085, 0.01200, 136.46161, 5.71789, 4.66459, + 3.79609, 5.19365, 5.72204, + 0.04136, 0.01228, 143.34029, 5.99307, 4.94706, + 4.08586, 5.47249, 5.99723 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + 0.03046, 0.00638, 14.14132, 1.27502, 0.06427, + 0.00000, 0.67103, 1.27853, + 0.03174, 0.00698, 19.68086, 1.45616, 0.27221, + 0.00000, 0.86559, 1.45968, + 0.03290, 0.00754, 25.64561, 1.65221, 0.49119, + 0.00000, 1.07312, 1.65574, + 0.03396, 0.00806, 31.84277, 1.85914, 0.71812, + 0.00000, 1.29006, 1.86268, + 0.03494, 0.00856, 38.23102, 2.07441, 0.95110, + 0.04969, 1.51420, 2.07796, + 0.03585, 0.00902, 44.74008, 2.29640, 1.18899, + 0.26791, 1.74416, 2.29996, + 0.03672, 0.00947, 51.33093, 2.52466, 1.43172, + 0.52899, 1.97967, 2.52823 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + 0.03754, 0.00990, 57.96184, 2.75795, 1.67830, + 0.78837, 2.21962, 2.76154, + 0.03832, 0.01031, 64.59860, 2.99506, 1.92768, + 1.05019, 2.46288, 2.99866, + 0.03907, 0.01071, 71.22144, 3.23513, 2.17913, + 1.31302, 2.70865, 3.23875, + 0.03978, 0.01110, 77.82121, 3.47757, 2.43218, + 1.57670, 2.95641, 3.48120, + 0.04047, 0.01147, 84.37195, 3.72152, 2.68607, + 1.84053, 3.20534, 3.72517, + 0.04113, 0.01183, 90.79819, 3.96526, 2.93915, + 2.10294, 3.45376, 3.96893, + 0.04177, 0.01218, 97.18675, 4.21015, 3.19283, + 2.36541, 3.70306, 4.21383 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + 0.04238, 0.01253, 103.50786, 4.45548, 3.44648, + 2.62735, 3.95256, 4.45918, + 0.04298, 0.01286, 109.67487, 4.69895, 3.69784, + 2.88658, 4.19999, 4.70267, + 0.04356, 0.01318, 115.82816, 4.94358, 3.94995, + 3.14614, 4.44836, 4.94731, + 0.04412, 0.01350, 121.79561, 5.18534, 4.19884, + 3.40214, 4.69370, 5.18908, + 0.04466, 0.01381, 127.73788, 5.42774, 4.44805, + 3.65810, 4.93951, 5.43150 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + 0.03836, 0.00925, 11.43973, 1.03567, 0.05078, + 0.00000, 0.54373, 1.03836, + 0.04001, 0.01013, 15.71670, 1.17658, 0.21340, + 0.00000, 0.69549, 1.17936, + 0.04151, 0.01096, 20.21892, 1.32668, 0.38207, + 0.00000, 0.85488, 1.32954, + 0.04288, 0.01172, 24.80116, 1.48282, 0.55440, + 0.00000, 1.01910, 1.48575, + 0.04415, 0.01243, 29.44316, 1.64326, 0.72917, + 0.03716, 1.18670, 1.64626, + 0.04533, 0.01311, 34.09891, 1.80686, 0.90564, + 0.19950, 1.35673, 1.80993, + 0.04644, 0.01375, 38.74529, 1.97333, 1.08382, + 0.39205, 1.52904, 1.97646 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + 0.04750, 0.01437, 43.35803, 2.14183, 1.26306, + 0.58144, 1.70291, 2.14501, + 0.04850, 0.01496, 47.91843, 2.31155, 1.44269, + 0.77090, 1.87757, 2.31479, + 0.04946, 0.01553, 52.41753, 2.48195, 1.62230, + 0.95950, 2.05258, 2.48525, + 0.05038, 0.01608, 56.85410, 2.65270, 1.80163, + 1.14723, 2.22761, 2.65605, + 0.05126, 0.01660, 61.21371, 2.82325, 1.98020, + 1.33365, 2.40216, 2.82664, + 0.05211, 0.01712, 65.44678, 2.99236, 2.15687, + 1.51769, 2.57504, 2.99581, + 0.05293, 0.01761, 69.61964, 3.16121, 2.33282, + 1.70058, 2.74743, 3.16469 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + 0.05372, 0.01809, 73.71400, 3.32931, 2.50763, + 1.88195, 2.91888, 3.33283, + 0.05448, 0.01856, 77.67226, 3.49504, 2.67973, + 2.06026, 3.08778, 3.49861, + 0.05522, 0.01901, 81.59584, 3.66070, 2.85144, + 2.23785, 3.25646, 3.66431, + 0.05594, 0.01945, 85.36723, 3.82339, 3.01989, + 2.41191, 3.42202, 3.82704, + 0.05664, 0.01989, 89.10036, 3.98575, 3.18774, + 2.58510, 3.58712, 3.98944 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + 0.04826, 0.01348, 9.25090, 0.84012, 0.04000, + 0.00000, 0.44066, 0.84345, + 0.05039, 0.01479, 12.53508, 0.94920, 0.16672, + 0.00000, 0.55857, 0.95268, + 0.05231, 0.01599, 15.90942, 1.06346, 0.29606, + 0.00000, 0.68038, 1.06705, + 0.05408, 0.01710, 19.26860, 1.18047, 0.42623, + 0.00000, 0.80397, 1.18418, + 0.05570, 0.01813, 22.60866, 1.29914, 0.55655, + 0.02762, 0.92847, 1.30295, + 0.05722, 0.01910, 25.90247, 1.41871, 0.68657, + 0.14764, 1.05327, 1.42263, + 0.05865, 0.02003, 29.13887, 1.53904, 0.81641, + 0.28871, 1.17835, 1.54304 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + 0.06001, 0.02090, 32.30612, 1.65958, 0.94568, + 0.42601, 1.30325, 1.66366, + 0.06130, 0.02174, 35.39610, 1.77983, 1.07400, + 0.56207, 1.42754, 1.78400, + 0.06253, 0.02255, 38.40730, 1.89951, 1.20115, + 0.69633, 1.55095, 1.90375, + 0.06371, 0.02332, 41.34314, 2.01844, 1.32706, + 0.82886, 1.67337, 2.02275, + 0.06483, 0.02407, 44.19688, 2.13630, 1.45144, + 0.95943, 1.79448, 2.14068, + 0.06592, 0.02479, 46.93665, 2.25223, 1.57350, + 1.08731, 1.91347, 2.25667, + 0.06696, 0.02548, 49.61301, 2.36720, 1.69425, + 1.21354, 2.03133, 2.37170 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + 0.06797, 0.02615, 52.21521, 2.48092, 1.81343, + 1.33788, 2.14777, 2.48548, + 0.06894, 0.02680, 54.70546, 2.59223, 1.92992, + 1.45927, 2.26167, 2.59685, + 0.06988, 0.02743, 57.15674, 2.70292, 2.04552, + 1.57950, 2.37481, 2.70758, + 0.07080, 0.02804, 59.48952, 2.81086, 2.15814, + 1.69655, 2.48508, 2.81557, + 0.07168, 0.02863, 61.78384, 2.91807, 2.26982, + 1.81243, 2.59452, 2.92283 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + 0.05520, 0.01689, 8.16771, 0.74291, 0.03471, + 0.00000, 0.38972, 0.74703, + 0.05768, 0.01852, 10.97002, 0.83649, 0.14393, + 0.00000, 0.49116, 0.84078, + 0.05991, 0.02002, 13.80556, 0.93348, 0.25430, + 0.00000, 0.59486, 0.93790, + 0.06195, 0.02139, 16.58923, 1.03184, 0.36434, + 0.00000, 0.69908, 1.03639, + 0.06383, 0.02267, 19.32477, 1.13080, 0.47362, + 0.02313, 0.80322, 1.13545, + 0.06559, 0.02387, 21.99377, 1.22976, 0.58186, + 0.12326, 0.90683, 1.23452, + 0.06725, 0.02500, 24.59062, 1.32865, 0.68919, + 0.24031, 1.00996, 1.33351 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + 0.06881, 0.02608, 27.10899, 1.42708, 0.79538, + 0.35349, 1.11228, 1.43203, + 0.07030, 0.02711, 29.54529, 1.52470, 0.90015, + 0.46499, 1.21348, 1.52973, + 0.07172, 0.02809, 31.90111, 1.62131, 1.00340, + 0.57442, 1.31341, 1.62642, + 0.07308, 0.02903, 34.18138, 1.71683, 1.10511, + 0.68189, 1.41204, 1.72201, + 0.07438, 0.02994, 36.38255, 1.81102, 1.20510, + 0.78726, 1.50913, 1.81626, + 0.07563, 0.03081, 38.48053, 1.90320, 1.30273, + 0.88994, 1.60404, 1.90851, + 0.07684, 0.03164, 40.51802, 1.99423, 1.39890, + 0.99087, 1.69765, 1.99961 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + 0.07800, 0.03245, 42.48756, 2.08391, 1.49343, + 1.08989, 1.78975, 2.08934, + 0.07912, 0.03323, 44.35997, 2.17129, 1.58541, + 1.18613, 1.87944, 2.17679, + 0.08020, 0.03399, 46.19490, 2.25790, 1.67639, + 1.28114, 1.96824, 2.26345, + 0.08125, 0.03472, 47.92944, 2.34199, 1.76465, + 1.37323, 2.05441, 2.34759, + 0.08226, 0.03544, 49.62872, 2.42527, 1.85189, + 1.46414, 2.13967, 2.43091 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + 0.06076, 0.01989, 7.47539, 0.68073, 0.03133, + 0.00000, 0.35722, 0.68552, + 0.06351, 0.02180, 9.97223, 0.76448, 0.12944, + 0.00000, 0.44819, 0.76942, + 0.06599, 0.02355, 12.46965, 0.85058, 0.22784, + 0.00000, 0.54049, 0.85567, + 0.06826, 0.02514, 14.89576, 0.93728, 0.32526, + 0.00000, 0.63257, 0.94249, + 0.07035, 0.02662, 17.25882, 1.02396, 0.42144, + 0.02033, 0.72403, 1.02929, + 0.07230, 0.02801, 19.54593, 1.11017, 0.51617, + 0.10814, 0.81452, 1.11560, + 0.07414, 0.02932, 21.75473, 1.19587, 0.60964, + 0.21035, 0.90413, 1.20139 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + 0.07588, 0.03056, 23.88213, 1.28076, 0.70166, + 0.30870, 0.99260, 1.28637, + 0.07753, 0.03174, 25.92714, 1.36457, 0.79206, + 0.40519, 1.07972, 1.37026, + 0.07910, 0.03286, 27.89279, 1.44717, 0.88077, + 0.49949, 1.16539, 1.45294, + 0.08061, 0.03394, 29.78505, 1.52853, 0.96782, + 0.59175, 1.24961, 1.53437, + 0.08204, 0.03497, 31.60204, 1.60846, 1.05309, + 0.68189, 1.33222, 1.61436, + 0.08343, 0.03596, 33.32407, 1.68638, 1.13603, + 0.76940, 1.41267, 1.69235, + 0.08476, 0.03692, 34.98917, 1.76310, 1.21748, + 0.85516, 1.49177, 1.76913 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + 0.08604, 0.03784, 36.59158, 1.83844, 1.29729, + 0.93903, 1.56935, 1.84453, + 0.08728, 0.03873, 38.10712, 1.91161, 1.37470, + 1.02028, 1.64464, 1.91775, + 0.08847, 0.03959, 39.58728, 1.98395, 1.45107, + 1.10029, 1.71901, 1.99014, + 0.08963, 0.04041, 40.97926, 2.05395, 1.52491, + 1.17760, 1.79094, 2.06019, + 0.09075, 0.04122, 42.33871, 2.12312, 1.59774, + 1.25374, 1.86195, 2.12941 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + 0.06552, 0.02273, 6.97721, 0.63640, 0.02887, + 0.00000, 0.33384, 0.64150, + 0.06853, 0.02489, 9.25154, 0.71299, 0.11890, + 0.00000, 0.41719, 0.71826, + 0.07124, 0.02685, 11.50403, 0.79122, 0.20863, + 0.00000, 0.50121, 0.79665, + 0.07371, 0.02863, 13.67303, 0.86953, 0.29696, + 0.00002, 0.58456, 0.87509, + 0.07599, 0.03029, 15.77015, 0.94740, 0.38372, + 0.01834, 0.66690, 0.95309, + 0.07811, 0.03183, 17.78607, 1.02450, 0.46879, + 0.09732, 0.74801, 1.03030, + 0.08011, 0.03329, 19.72060, 1.10081, 0.55236, + 0.18896, 0.82796, 1.10670 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + 0.08200, 0.03466, 21.57309, 1.17610, 0.63432, + 0.27677, 0.90661, 1.18209, + 0.08380, 0.03597, 23.34392, 1.25015, 0.71453, + 0.36262, 0.98375, 1.25623, + 0.08550, 0.03721, 25.03760, 1.32287, 0.79298, + 0.44622, 1.05935, 1.32903, + 0.08713, 0.03840, 26.66037, 1.39427, 0.86971, + 0.52777, 1.13343, 1.40051, + 0.08869, 0.03954, 28.21049, 1.46420, 0.94464, + 0.60720, 1.20587, 1.47050, + 0.09019, 0.04063, 29.67432, 1.53217, 1.01730, + 0.68409, 1.27620, 1.53854, + 0.09163, 0.04168, 31.08479, 1.59892, 1.08848, + 0.75924, 1.34517, 1.60535 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + 0.09302, 0.04269, 32.43724, 1.66431, 1.15805, + 0.83256, 1.41266, 1.67080, + 0.09436, 0.04366, 33.70975, 1.72762, 1.22534, + 0.90340, 1.47796, 1.73417, + 0.09565, 0.04460, 34.94885, 1.79010, 1.29159, + 0.97302, 1.54234, 1.79670, + 0.09690, 0.04551, 36.10852, 1.85038, 1.35546, + 1.04010, 1.60442, 1.85703, + 0.09811, 0.04639, 37.23849, 1.90983, 1.41834, + 1.10603, 1.66559, 1.91652 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + 0.08306, 0.03468, 5.62636, 0.51597, 0.02225, + 0.00000, 0.27072, 0.52239, + 0.08703, 0.03776, 7.30762, 0.57341, 0.09065, + 0.00000, 0.33370, 0.58003, + 0.09059, 0.04052, 8.91820, 0.63079, 0.15743, + 0.00000, 0.39583, 0.63757, + 0.09384, 0.04302, 10.42288, 0.68708, 0.22191, + 0.00001, 0.45625, 0.69400, + 0.09682, 0.04531, 11.84112, 0.74211, 0.28420, + 0.01314, 0.51495, 0.74915, + 0.09958, 0.04743, 13.17321, 0.79574, 0.34436, + 0.06936, 0.57187, 0.80289, + 0.10218, 0.04942, 14.42432, 0.84804, 0.40262, + 0.13384, 0.62718, 0.85529 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + 0.10463, 0.05128, 15.59858, 0.89896, 0.45901, + 0.19482, 0.68086, 0.90630, + 0.10695, 0.05304, 16.70023, 0.94841, 0.51352, + 0.25373, 0.73286, 0.95584, + 0.10916, 0.05470, 17.73563, 0.99642, 0.56622, + 0.31046, 0.78323, 1.00392, + 0.11125, 0.05629, 18.71164, 1.04304, 0.61723, + 0.36522, 0.83206, 1.05061, + 0.11325, 0.05780, 19.62926, 1.08822, 0.66653, + 0.41804, 0.87932, 1.09586, + 0.11517, 0.05923, 20.48106, 1.13167, 0.71384, + 0.46864, 0.92471, 1.13936, + 0.11701, 0.06060, 21.29117, 1.17396, 0.75978, + 0.51769, 0.96885, 1.18172 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + 0.11877, 0.06192, 22.05750, 1.21503, 0.80430, + 0.56513, 1.01165, 1.22284, + 0.12047, 0.06317, 22.76675, 1.25441, 0.84696, + 0.61056, 1.05268, 1.26227, + 0.12211, 0.06439, 23.45059, 1.29300, 0.88867, + 0.65489, 1.09284, 1.30090, + 0.12369, 0.06555, 24.07961, 1.32988, 0.92851, + 0.69723, 1.13121, 1.33782, + 0.12521, 0.06668, 24.68698, 1.36602, 0.96749, + 0.73859, 1.16878, 1.37400 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + 0.10659, 0.05365, 4.52734, 0.41874, 0.01687, + 0.00002, 0.21978, 0.42669, + 0.11190, 0.05787, 5.73271, 0.46075, 0.06788, + 0.00001, 0.26634, 0.46889, + 0.11665, 0.06161, 6.84270, 0.50165, 0.11652, + 0.00002, 0.31116, 0.50994, + 0.12094, 0.06495, 7.84306, 0.54081, 0.16243, + 0.00002, 0.35373, 0.54924, + 0.12486, 0.06799, 8.75681, 0.57835, 0.20596, + 0.00920, 0.39430, 0.58687, + 0.12847, 0.07078, 9.59102, 0.61424, 0.24725, + 0.04814, 0.43292, 0.62286, + 0.13186, 0.07335, 10.35507, 0.64866, 0.28662, + 0.09226, 0.46984, 0.65737 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + 0.13503, 0.07575, 11.05375, 0.68165, 0.32415, + 0.13337, 0.50511, 0.69044, + 0.13802, 0.07799, 11.69351, 0.71321, 0.35990, + 0.17253, 0.53878, 0.72205, + 0.14084, 0.08010, 12.28241, 0.74340, 0.39402, + 0.20976, 0.57095, 0.75230, + 0.14352, 0.08209, 12.82666, 0.77236, 0.42664, + 0.24529, 0.60176, 0.78131, + 0.14606, 0.08397, 13.32714, 0.80010, 0.45781, + 0.27918, 0.63123, 0.80909, + 0.14848, 0.08575, 13.78036, 0.82638, 0.48732, + 0.31125, 0.65913, 0.83542, + 0.15080, 0.08744, 14.20426, 0.85170, 0.51569, + 0.34202, 0.68599, 0.86078 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + 0.15302, 0.08905, 14.59854, 0.87603, 0.54292, + 0.37151, 0.71178, 0.88515, + 0.15514, 0.09057, 14.95536, 0.89911, 0.56875, + 0.39948, 0.73624, 0.90825, + 0.15718, 0.09203, 15.29492, 0.92154, 0.59380, + 0.42656, 0.75999, 0.93072, + 0.15913, 0.09343, 15.59800, 0.94268, 0.61744, + 0.45213, 0.78238, 0.95189, + 0.16102, 0.09478, 15.88724, 0.96326, 0.64040, + 0.47693, 0.80416, 0.97249 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + 0.12441, 0.06939, 3.98165, 0.37079, 0.01422, + 0.00002, 0.19472, 0.37969, + 0.13072, 0.07435, 4.95415, 0.40520, 0.05672, + 0.00003, 0.23323, 0.41426, + 0.13632, 0.07871, 5.82556, 0.43811, 0.09659, + 0.00003, 0.26967, 0.44729, + 0.14137, 0.08255, 6.59158, 0.46912, 0.13371, + 0.00003, 0.30376, 0.47841, + 0.14597, 0.08601, 7.27642, 0.49842, 0.16845, + 0.00735, 0.33581, 0.50780, + 0.15019, 0.08916, 7.89017, 0.52610, 0.20103, + 0.03830, 0.36597, 0.53556, + 0.15410, 0.09206, 8.44100, 0.55235, 0.23176, + 0.07307, 0.39448, 0.56186 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + 0.15777, 0.09475, 8.93561, 0.57718, 0.26072, + 0.10512, 0.42139, 0.58676, + 0.16120, 0.09724, 9.38150, 0.60070, 0.28808, + 0.13539, 0.44683, 0.61033, + 0.16444, 0.09956, 9.78434, 0.62302, 0.31396, + 0.16395, 0.47095, 0.63268, + 0.16751, 0.10174, 10.15014, 0.64422, 0.33851, + 0.19100, 0.49384, 0.65392, + 0.17040, 0.10379, 10.48254, 0.66433, 0.36176, + 0.21658, 0.51553, 0.67406, + 0.17314, 0.10571, 10.77755, 0.68325, 0.38363, + 0.24065, 0.53593, 0.69301, + 0.17575, 0.10753, 11.04940, 0.70133, 0.40451, + 0.26358, 0.55541, 0.71111 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + 0.17823, 0.10927, 11.29810, 0.71857, 0.42439, + 0.28540, 0.57398, 0.72835, + 0.18061, 0.11090, 11.51828, 0.73473, 0.44308, + 0.30592, 0.59141, 0.74454, + 0.18289, 0.11247, 11.72573, 0.75036, 0.46112, + 0.32569, 0.60825, 0.76019, + 0.18507, 0.11393, 11.90742, 0.76496, 0.47802, + 0.34424, 0.62401, 0.77481, + 0.18718, 0.11535, 12.07889, 0.77911, 0.49436, + 0.36216, 0.63925, 0.78896 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + 0.13963, 0.08328, 3.63159, 0.34026, 0.01251, + 0.00002, 0.17877, 0.34987, + 0.14675, 0.08874, 4.45618, 0.36979, 0.04961, + 0.00002, 0.21213, 0.37954, + 0.15305, 0.09349, 5.17942, 0.39765, 0.08399, + 0.00003, 0.24329, 0.40749, + 0.15870, 0.09764, 5.80246, 0.42356, 0.11563, + 0.00003, 0.27208, 0.43349, + 0.16381, 0.10136, 6.34982, 0.44777, 0.14495, + 0.00621, 0.29888, 0.45777, + 0.16850, 0.10473, 6.83238, 0.47042, 0.17222, + 0.03227, 0.32386, 0.48048, + 0.17281, 0.10781, 7.25862, 0.49169, 0.19770, + 0.06136, 0.34725, 0.50177 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + 0.17684, 0.11065, 7.63543, 0.51164, 0.22155, + 0.08796, 0.36915, 0.52176, + 0.18060, 0.11326, 7.96998, 0.53036, 0.24389, + 0.11291, 0.38969, 0.54051, + 0.18414, 0.11569, 8.26775, 0.54799, 0.26490, + 0.13631, 0.40901, 0.55816, + 0.18747, 0.11795, 8.53430, 0.56461, 0.28469, + 0.15834, 0.42723, 0.57480, + 0.19061, 0.12007, 8.77298, 0.58026, 0.30331, + 0.17905, 0.44437, 0.59047, + 0.19357, 0.12204, 8.98090, 0.59487, 0.32071, + 0.19841, 0.46038, 0.60508, + 0.19637, 0.12391, 9.17000, 0.60875, 0.33725, + 0.21678, 0.47558, 0.61896 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + 0.19904, 0.12568, 9.34047, 0.62189, 0.35290, + 0.23416, 0.48998, 0.63210, + 0.20158, 0.12734, 9.48812, 0.63411, 0.36753, + 0.25042, 0.50341, 0.64433, + 0.20402, 0.12892, 9.62581, 0.64588, 0.38159, + 0.26602, 0.51632, 0.65610, + 0.20634, 0.13040, 9.74323, 0.65678, 0.39467, + 0.28058, 0.52832, 0.66700, + 0.20857, 0.13182, 9.85289, 0.66729, 0.40728, + 0.29459, 0.53988, 0.67751 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + 0.15327, 0.09584, 3.37937, 0.31835, 0.01131, + 0.00002, 0.16734, 0.32849, + 0.16108, 0.10164, 4.09838, 0.34437, 0.04455, + 0.00004, 0.19701, 0.35462, + 0.16799, 0.10663, 4.71769, 0.36860, 0.07504, + 0.00004, 0.22442, 0.37896, + 0.17410, 0.11100, 5.24194, 0.39092, 0.10283, + 0.00003, 0.24948, 0.40129, + 0.17962, 0.11488, 5.69572, 0.41158, 0.12839, + 0.00545, 0.27260, 0.42199, + 0.18466, 0.11836, 6.08940, 0.43072, 0.15197, + 0.02810, 0.29397, 0.44117, + 0.18930, 0.12152, 6.43224, 0.44857, 0.17388, + 0.05329, 0.31386, 0.45904 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + 0.19361, 0.12442, 6.73166, 0.46515, 0.19422, + 0.07616, 0.33233, 0.47565, + 0.19762, 0.12708, 6.99285, 0.48062, 0.21317, + 0.09751, 0.34955, 0.49112, + 0.20136, 0.12954, 7.22282, 0.49508, 0.23088, + 0.11741, 0.36563, 0.50557, + 0.20488, 0.13183, 7.42642, 0.50861, 0.24747, + 0.13604, 0.38068, 0.51910, + 0.20821, 0.13395, 7.60415, 0.52126, 0.26300, + 0.15348, 0.39478, 0.53177, + 0.21131, 0.13594, 7.75704, 0.53297, 0.27742, + 0.16968, 0.40784, 0.54346, + 0.21425, 0.13780, 7.89445, 0.54405, 0.29106, + 0.18501, 0.42021, 0.55452 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + 0.21706, 0.13954, 8.01655, 0.55450, 0.30395, + 0.19948, 0.43188, 0.56497, + 0.21971, 0.14116, 8.11928, 0.56413, 0.31590, + 0.21292, 0.44266, 0.57459, + 0.22226, 0.14271, 8.21397, 0.57335, 0.32734, + 0.22578, 0.45299, 0.58380, + 0.22466, 0.14416, 8.29227, 0.58183, 0.33794, + 0.23772, 0.46253, 0.59226, + 0.22696, 0.14554, 8.36434, 0.58997, 0.34812, + 0.24917, 0.47169, 0.60038 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + 0.21004, 0.14651, 2.68652, 0.25825, 0.00799, + 0.00001, 0.13599, 0.26981, + 0.22012, 0.15270, 3.12191, 0.27451, 0.03088, + 0.00002, 0.15558, 0.28606, + 0.22881, 0.15789, 3.47119, 0.28899, 0.05113, + 0.00000, 0.17293, 0.30048, + 0.23634, 0.16230, 3.74667, 0.30175, 0.06897, + 0.00002, 0.18823, 0.31316, + 0.24302, 0.16610, 3.96980, 0.31313, 0.08491, + 0.00345, 0.20186, 0.32446, + 0.24902, 0.16942, 4.15146, 0.32331, 0.09921, + 0.01754, 0.21410, 0.33457, + 0.25445, 0.17234, 4.29869, 0.33243, 0.11214, + 0.03288, 0.22511, 0.34364 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + 0.25940, 0.17494, 4.41846, 0.34064, 0.12387, + 0.04651, 0.23506, 0.35179, + 0.26393, 0.17728, 4.51544, 0.34807, 0.13457, + 0.05900, 0.24411, 0.35914, + 0.26810, 0.17939, 4.59424, 0.35478, 0.14434, + 0.07041, 0.25234, 0.36577, + 0.27196, 0.18131, 4.65814, 0.36087, 0.15331, + 0.08088, 0.25985, 0.37179, + 0.27555, 0.18305, 4.70790, 0.36640, 0.16155, + 0.09055, 0.26672, 0.37727, + 0.27887, 0.18461, 4.74467, 0.37133, 0.16904, + 0.09936, 0.27290, 0.38211, + 0.28198, 0.18603, 4.77407, 0.37585, 0.17599, + 0.10755, 0.27863, 0.38658 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + 0.28491, 0.18734, 4.79632, 0.37997, 0.18244, + 0.11516, 0.28391, 0.39067, + 0.28761, 0.18853, 4.80952, 0.38366, 0.18832, + 0.12214, 0.28868, 0.39427, + 0.29017, 0.18966, 4.81959, 0.38712, 0.19387, + 0.12874, 0.29317, 0.39766, + 0.29255, 0.19067, 4.82134, 0.39014, 0.19888, + 0.13475, 0.29717, 0.40063, + 0.29483, 0.19162, 4.82118, 0.39298, 0.20364, + 0.14045, 0.30095, 0.40342 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + 0.30013, 0.21489, 2.09615, 0.20512, 0.00519, + -0.00012, 0.10809, 0.21700, + 0.31140, 0.21926, 2.30651, 0.21297, 0.01984, + -0.00014, 0.11928, 0.22464, + 0.32072, 0.22263, 2.45504, 0.21947, 0.03220, + -0.00009, 0.12866, 0.23086, + 0.32846, 0.22525, 2.55577, 0.22471, 0.04260, + -0.00010, 0.13640, 0.23586, + 0.33509, 0.22729, 2.62536, 0.22904, 0.05153, + 0.00184, 0.14297, 0.23996, + 0.34081, 0.22892, 2.67192, 0.23257, 0.05927, + 0.00979, 0.14856, 0.24331, + 0.34585, 0.23018, 2.70094, 0.23551, 0.06605, + 0.01828, 0.15339, 0.24606 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + 0.35029, 0.23117, 2.71617, 0.23789, 0.07198, + 0.02557, 0.15751, 0.24826, + 0.35420, 0.23194, 2.72121, 0.23981, 0.07722, + 0.03208, 0.16107, 0.25005, + 0.35766, 0.23253, 2.71849, 0.24139, 0.08186, + 0.03789, 0.16414, 0.25147, + 0.36075, 0.23298, 2.70995, 0.24268, 0.08600, + 0.04311, 0.16681, 0.25259, + 0.36354, 0.23329, 2.69663, 0.24370, 0.08972, + 0.04784, 0.16913, 0.25347, + 0.36598, 0.23347, 2.67878, 0.24441, 0.09297, + 0.05202, 0.17107, 0.25402, + 0.36820, 0.23358, 2.65897, 0.24492, 0.09591, + 0.05581, 0.17278, 0.25442 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + 0.37022, 0.23363, 2.63718, 0.24526, 0.09856, + 0.05923, 0.17425, 0.25470, + 0.37200, 0.23356, 2.61265, 0.24543, 0.10088, + 0.06236, 0.17546, 0.25478, + 0.37367, 0.23346, 2.58826, 0.24555, 0.10303, + 0.06528, 0.17656, 0.25480, + 0.37511, 0.23330, 2.56176, 0.24547, 0.10490, + 0.06783, 0.17744, 0.25457, + 0.37645, 0.23311, 2.53572, 0.24535, 0.10664, + 0.07022, 0.17823, 0.25431 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + 0.37435, 0.25824, 1.77708, 0.17306, 0.00395, + 0.00000, 0.09130, 0.18433, + 0.38426, 0.25969, 1.88087, 0.17665, 0.01458, + -0.00001, 0.09834, 0.18753, + 0.39209, 0.26040, 1.94096, 0.17928, 0.02324, + 0.00005, 0.10392, 0.18977, + 0.39827, 0.26051, 1.96970, 0.18099, 0.03031, + 0.00003, 0.10822, 0.19124, + 0.40327, 0.26026, 1.97969, 0.18217, 0.03619, + 0.00132, 0.11167, 0.19206, + 0.40739, 0.25974, 1.97654, 0.18287, 0.04114, + 0.00664, 0.11444, 0.19248, + 0.41076, 0.25907, 1.96431, 0.18316, 0.04541, + 0.01216, 0.11669, 0.19263 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + 0.41354, 0.25821, 1.94539, 0.18320, 0.04903, + 0.01685, 0.11844, 0.19245, + 0.41575, 0.25730, 1.92203, 0.18305, 0.05210, + 0.02097, 0.11985, 0.19206, + 0.41757, 0.25630, 1.89570, 0.18271, 0.05476, + 0.02456, 0.12095, 0.19149, + 0.41912, 0.25520, 1.86760, 0.18219, 0.05709, + 0.02772, 0.12181, 0.19079, + 0.42040, 0.25403, 1.83844, 0.18150, 0.05913, + 0.03057, 0.12249, 0.18997, + 0.42129, 0.25288, 1.80774, 0.18075, 0.06086, + 0.03303, 0.12291, 0.18904, + 0.42201, 0.25171, 1.77732, 0.17993, 0.06240, + 0.03524, 0.12322, 0.18807 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + 0.42260, 0.25049, 1.74710, 0.17905, 0.06377, + 0.03722, 0.12341, 0.18706, + 0.42298, 0.24922, 1.71651, 0.17808, 0.06489, + 0.03895, 0.12347, 0.18597, + 0.42328, 0.24799, 1.68711, 0.17712, 0.06590, + 0.04053, 0.12348, 0.18490, + 0.42338, 0.24674, 1.65738, 0.17610, 0.06673, + 0.04189, 0.12335, 0.18372, + 0.42342, 0.24553, 1.62891, 0.17508, 0.06750, + 0.04314, 0.12320, 0.18258 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + 0.43672, 0.28564, 1.55169, 0.14808, 0.00311, + 0.00008, 0.07818, 0.15829, + 0.44382, 0.28390, 1.59176, 0.14907, 0.01129, + 0.00006, 0.08264, 0.15881, + 0.44892, 0.28182, 1.60210, 0.14940, 0.01774, + 0.00005, 0.08594, 0.15868, + 0.45254, 0.27937, 1.59256, 0.14913, 0.02284, + 0.00009, 0.08827, 0.15816, + 0.45506, 0.27697, 1.57257, 0.14859, 0.02697, + 0.00103, 0.09001, 0.15730, + 0.45677, 0.27446, 1.54594, 0.14781, 0.03037, + 0.00483, 0.09126, 0.15625, + 0.45785, 0.27196, 1.51525, 0.14685, 0.03319, + 0.00876, 0.09212, 0.15502 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + 0.45843, 0.26944, 1.48214, 0.14579, 0.03556, + 0.01200, 0.09270, 0.15363, + 0.45864, 0.26691, 1.44787, 0.14457, 0.03754, + 0.01480, 0.09304, 0.15222, + 0.45855, 0.26441, 1.41340, 0.14326, 0.03920, + 0.01719, 0.09317, 0.15077, + 0.45820, 0.26198, 1.37933, 0.14192, 0.04062, + 0.01926, 0.09315, 0.14928, + 0.45763, 0.25960, 1.34583, 0.14053, 0.04185, + 0.02106, 0.09305, 0.14774, + 0.45678, 0.25725, 1.31263, 0.13917, 0.04282, + 0.02266, 0.09281, 0.14618, + 0.45583, 0.25498, 1.28073, 0.13783, 0.04365, + 0.02406, 0.09251, 0.14464 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + 0.45480, 0.25276, 1.24994, 0.13650, 0.04436, + 0.02527, 0.09215, 0.14310, + 0.45364, 0.25053, 1.21982, 0.13508, 0.04494, + 0.02634, 0.09170, 0.14164, + 0.45246, 0.24839, 1.19131, 0.13371, 0.04545, + 0.02732, 0.09125, 0.14024, + 0.45108, 0.24633, 1.16340, 0.13238, 0.04583, + 0.02811, 0.09073, 0.13868, + 0.44972, 0.24433, 1.13695, 0.13109, 0.04617, + 0.02883, 0.09021, 0.13720 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + 0.48847, 0.30165, 1.37264, 0.12695, 0.00253, + 0.00008, 0.06700, 0.13583, + 0.49191, 0.29675, 1.37121, 0.12624, 0.00888, + 0.00007, 0.06973, 0.13474, + 0.49363, 0.29197, 1.35088, 0.12521, 0.01381, + 0.00007, 0.07156, 0.13324, + 0.49399, 0.28740, 1.31920, 0.12382, 0.01760, + 0.00011, 0.07267, 0.13153, + 0.49353, 0.28301, 1.28289, 0.12237, 0.02064, + 0.00078, 0.07336, 0.12966, + 0.49259, 0.27868, 1.24451, 0.12077, 0.02308, + 0.00362, 0.07369, 0.12781, + 0.49116, 0.27455, 1.20543, 0.11907, 0.02504, + 0.00644, 0.07377, 0.12595 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + 0.48944, 0.27055, 1.16658, 0.11735, 0.02666, + 0.00878, 0.07369, 0.12405, + 0.48741, 0.26671, 1.12864, 0.11568, 0.02797, + 0.01076, 0.07344, 0.12213, + 0.48517, 0.26305, 1.09201, 0.11402, 0.02902, + 0.01242, 0.07310, 0.12027, + 0.48279, 0.25956, 1.05697, 0.11238, 0.02987, + 0.01384, 0.07270, 0.11845, + 0.48024, 0.25626, 1.02352, 0.11080, 0.03059, + 0.01513, 0.07222, 0.11657, + 0.47763, 0.25296, 0.99127, 0.10920, 0.03118, + 0.01618, 0.07165, 0.11477, + 0.47505, 0.24978, 0.96083, 0.10761, 0.03167, + 0.01708, 0.07106, 0.11309 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + 0.47250, 0.24668, 0.93196, 0.10602, 0.03206, + 0.01784, 0.07044, 0.11154, + 0.46978, 0.24376, 0.90429, 0.10453, 0.03235, + 0.01852, 0.06979, 0.10986, + 0.46711, 0.24099, 0.87835, 0.10313, 0.03259, + 0.01915, 0.06916, 0.10823, + 0.46439, 0.23822, 0.85343, 0.10169, 0.03276, + 0.01967, 0.06850, 0.10671, + 0.46175, 0.23558, 0.83000, 0.10032, 0.03290, + 0.02013, 0.06785, 0.10524 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + 0.53953, 0.30942, 1.18740, 0.10410, 0.00193, + 0.00004, 0.05492, 0.11164, + 0.53742, 0.30119, 1.15255, 0.10223, 0.00679, + 0.00006, 0.05631, 0.10926, + 0.53429, 0.29360, 1.10937, 0.10028, 0.01038, + 0.00008, 0.05698, 0.10680, + 0.53041, 0.28651, 1.06249, 0.09814, 0.01312, + 0.00010, 0.05722, 0.10436, + 0.52610, 0.28000, 1.01611, 0.09603, 0.01517, + 0.00061, 0.05716, 0.10209, + 0.52157, 0.27391, 0.97144, 0.09401, 0.01682, + 0.00259, 0.05692, 0.09977, + 0.51681, 0.26826, 0.92871, 0.09206, 0.01812, + 0.00457, 0.05649, 0.09746 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + 0.51212, 0.26280, 0.88821, 0.09009, 0.01910, + 0.00617, 0.05597, 0.09534, + 0.50735, 0.25767, 0.85014, 0.08816, 0.01993, + 0.00751, 0.05538, 0.09328, + 0.50252, 0.25288, 0.81454, 0.08634, 0.02059, + 0.00865, 0.05474, 0.09127, + 0.49772, 0.24836, 0.78133, 0.08462, 0.02109, + 0.00960, 0.05407, 0.08933, + 0.49297, 0.24408, 0.75025, 0.08296, 0.02148, + 0.01036, 0.05342, 0.08747, + 0.48833, 0.23990, 0.72100, 0.08134, 0.02177, + 0.01102, 0.05271, 0.08567, + 0.48378, 0.23595, 0.69387, 0.07980, 0.02198, + 0.01161, 0.05200, 0.08398 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + 0.47926, 0.23221, 0.66857, 0.07833, 0.02212, + 0.01212, 0.05129, 0.08240, + 0.47483, 0.22860, 0.64465, 0.07686, 0.02222, + 0.01250, 0.05062, 0.08082, + 0.47057, 0.22518, 0.62242, 0.07546, 0.02231, + 0.01282, 0.04997, 0.07931, + 0.46632, 0.22186, 0.60137, 0.07411, 0.02235, + 0.01311, 0.04926, 0.07788, + 0.46222, 0.21870, 0.58173, 0.07283, 0.02237, + 0.01336, 0.04859, 0.07650 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + 0.57633, 0.30733, 1.03032, 0.08465, 0.00158, + 0.00012, 0.04476, 0.09074, + 0.56850, 0.29621, 0.97512, 0.08219, 0.00528, + 0.00016, 0.04521, 0.08790, + 0.56023, 0.28646, 0.91944, 0.07979, 0.00791, + 0.00014, 0.04524, 0.08519, + 0.55194, 0.27751, 0.86550, 0.07745, 0.00985, + 0.00013, 0.04497, 0.08247, + 0.54388, 0.26931, 0.81547, 0.07519, 0.01136, + 0.00051, 0.04452, 0.07992, + 0.53587, 0.26193, 0.76943, 0.07311, 0.01248, + 0.00195, 0.04393, 0.07753, + 0.52802, 0.25510, 0.72705, 0.07105, 0.01329, + 0.00335, 0.04330, 0.07532 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + 0.52045, 0.24865, 0.68803, 0.06913, 0.01395, + 0.00447, 0.04263, 0.07316, + 0.51307, 0.24271, 0.65228, 0.06728, 0.01446, + 0.00539, 0.04186, 0.07118, + 0.50591, 0.23714, 0.61950, 0.06551, 0.01483, + 0.00616, 0.04116, 0.06927, + 0.49900, 0.23186, 0.58943, 0.06385, 0.01509, + 0.00680, 0.04055, 0.06742, + 0.49233, 0.22685, 0.56185, 0.06230, 0.01529, + 0.00732, 0.03984, 0.06573, + 0.48575, 0.22220, 0.53623, 0.06080, 0.01544, + 0.00773, 0.03909, 0.06412, + 0.47945, 0.21780, 0.51271, 0.05940, 0.01555, + 0.00809, 0.03836, 0.06259 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + 0.47341, 0.21360, 0.49099, 0.05809, 0.01563, + 0.00841, 0.03764, 0.06110, + 0.46753, 0.20956, 0.47080, 0.05677, 0.01565, + 0.00869, 0.03698, 0.05972, + 0.46190, 0.20575, 0.45219, 0.05551, 0.01564, + 0.00893, 0.03635, 0.05842, + 0.45634, 0.20213, 0.43474, 0.05435, 0.01558, + 0.00906, 0.03572, 0.05715, + 0.45103, 0.19867, 0.41857, 0.05323, 0.01552, + 0.00918, 0.03512, 0.05596 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + 0.59996, 0.29826, 0.89347, 0.06814, 0.00117, + 0.00004, 0.03597, 0.07309, + 0.58637, 0.28495, 0.82658, 0.06549, 0.00403, + -0.00001, 0.03595, 0.07010, + 0.57337, 0.27331, 0.76486, 0.06305, 0.00608, + 0.00002, 0.03564, 0.06722, + 0.56089, 0.26301, 0.70869, 0.06075, 0.00751, + 0.00001, 0.03514, 0.06452, + 0.54925, 0.25365, 0.65873, 0.05848, 0.00858, + 0.00035, 0.03449, 0.06219, + 0.53815, 0.24527, 0.61410, 0.05646, 0.00931, + 0.00139, 0.03388, 0.05991, + 0.52753, 0.23767, 0.57406, 0.05450, 0.00991, + 0.00243, 0.03321, 0.05781 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + 0.51747, 0.23057, 0.53806, 0.05266, 0.01035, + 0.00324, 0.03245, 0.05595, + 0.50785, 0.22400, 0.50557, 0.05102, 0.01067, + 0.00397, 0.03169, 0.05412, + 0.49862, 0.21793, 0.47630, 0.04946, 0.01090, + 0.00453, 0.03099, 0.05241, + 0.48984, 0.21226, 0.44993, 0.04795, 0.01104, + 0.00493, 0.03033, 0.05085, + 0.48156, 0.20686, 0.42605, 0.04657, 0.01109, + 0.00528, 0.02966, 0.04941, + 0.47345, 0.20197, 0.40396, 0.04529, 0.01119, + 0.00558, 0.02899, 0.04791, + 0.46577, 0.19730, 0.38391, 0.04405, 0.01124, + 0.00582, 0.02836, 0.04656 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + 0.45847, 0.19279, 0.36563, 0.04282, 0.01122, + 0.00598, 0.02776, 0.04540, + 0.45139, 0.18858, 0.34877, 0.04171, 0.01120, + 0.00611, 0.02718, 0.04420, + 0.44463, 0.18464, 0.33331, 0.04067, 0.01116, + 0.00623, 0.02663, 0.04305, + 0.43794, 0.18095, 0.31892, 0.03970, 0.01109, + 0.00631, 0.02609, 0.04196, + 0.43162, 0.17744, 0.30570, 0.03879, 0.01102, + 0.00639, 0.02557, 0.04092 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + 0.61180, 0.28403, 0.77290, 0.05428, 0.00091, + 0.00000, 0.02857, 0.05826, + 0.59269, 0.26924, 0.70031, 0.05176, 0.00312, + 0.00002, 0.02829, 0.05523, + 0.57527, 0.25644, 0.63701, 0.04948, 0.00456, + 0.00006, 0.02779, 0.05255, + 0.55906, 0.24517, 0.58177, 0.04728, 0.00569, + 0.00004, 0.02721, 0.05008, + 0.54419, 0.23517, 0.53394, 0.04516, 0.00643, + 0.00029, 0.02654, 0.04800, + 0.53038, 0.22615, 0.49229, 0.04336, 0.00698, + 0.00105, 0.02587, 0.04596, + 0.51721, 0.21817, 0.45567, 0.04177, 0.00734, + 0.00181, 0.02519, 0.04405 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + 0.50499, 0.21076, 0.42329, 0.04019, 0.00764, + 0.00240, 0.02456, 0.04228, + 0.49362, 0.20380, 0.39454, 0.03862, 0.00781, + 0.00283, 0.02388, 0.04084, + 0.48275, 0.19751, 0.36890, 0.03726, 0.00795, + 0.00317, 0.02319, 0.03942, + 0.47243, 0.19176, 0.34601, 0.03604, 0.00806, + 0.00347, 0.02253, 0.03801, + 0.46286, 0.18624, 0.32555, 0.03477, 0.00806, + 0.00373, 0.02193, 0.03685, + 0.45349, 0.18125, 0.30698, 0.03370, 0.00809, + 0.00390, 0.02141, 0.03556, + 0.44468, 0.17651, 0.29019, 0.03269, 0.00808, + 0.00407, 0.02090, 0.03441 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + 0.43638, 0.17197, 0.27493, 0.03172, 0.00804, + 0.00424, 0.02039, 0.03342, + 0.42838, 0.16779, 0.26109, 0.03080, 0.00800, + 0.00434, 0.01988, 0.03244, + 0.42080, 0.16388, 0.24849, 0.02993, 0.00796, + 0.00442, 0.01940, 0.03152, + 0.41343, 0.16018, 0.23672, 0.02914, 0.00787, + 0.00442, 0.01892, 0.03067, + 0.40644, 0.15669, 0.22597, 0.02840, 0.00779, + 0.00443, 0.01846, 0.02987 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + 0.61300, 0.26638, 0.66597, 0.04286, 0.00064, + 0.00008, 0.02243, 0.04577, + 0.58913, 0.25049, 0.59189, 0.04046, 0.00237, + 0.00008, 0.02216, 0.04297, + 0.56777, 0.23695, 0.52989, 0.03826, 0.00346, + 0.00008, 0.02154, 0.04078, + 0.54829, 0.22528, 0.47756, 0.03639, 0.00427, + 0.00009, 0.02089, 0.03856, + 0.53078, 0.21480, 0.43304, 0.03459, 0.00480, + 0.00021, 0.02024, 0.03676, + 0.51459, 0.20567, 0.39519, 0.03298, 0.00517, + 0.00076, 0.01964, 0.03504, + 0.49960, 0.19740, 0.36238, 0.03151, 0.00548, + 0.00133, 0.01896, 0.03347 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + 0.48565, 0.18994, 0.33366, 0.03022, 0.00567, + 0.00171, 0.01838, 0.03193, + 0.47260, 0.18312, 0.30864, 0.02906, 0.00576, + 0.00198, 0.01783, 0.03052, + 0.46044, 0.17683, 0.28664, 0.02797, 0.00583, + 0.00223, 0.01727, 0.02928, + 0.44908, 0.17100, 0.26714, 0.02694, 0.00589, + 0.00247, 0.01671, 0.02818, + 0.43838, 0.16554, 0.24979, 0.02594, 0.00593, + 0.00270, 0.01620, 0.02720, + 0.42825, 0.16055, 0.23419, 0.02502, 0.00590, + 0.00284, 0.01574, 0.02619, + 0.41871, 0.15591, 0.22028, 0.02416, 0.00585, + 0.00292, 0.01531, 0.02529 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + 0.40969, 0.15156, 0.20783, 0.02333, 0.00577, + 0.00296, 0.01490, 0.02450, + 0.40101, 0.14755, 0.19640, 0.02262, 0.00570, + 0.00301, 0.01446, 0.02372, + 0.39283, 0.14380, 0.18606, 0.02197, 0.00564, + 0.00305, 0.01405, 0.02299, + 0.38512, 0.14008, 0.17672, 0.02129, 0.00559, + 0.00309, 0.01369, 0.02228, + 0.37778, 0.13663, 0.16816, 0.02065, 0.00553, + 0.00312, 0.01334, 0.02163 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + 0.60505, 0.24641, 0.57098, 0.03341, 0.00055, + 0.00001, 0.01754, 0.03535, + 0.57715, 0.22979, 0.49826, 0.03116, 0.00182, + 0.00005, 0.01707, 0.03323, + 0.55242, 0.21595, 0.43921, 0.02926, 0.00283, + 0.00002, 0.01659, 0.03104, + 0.53033, 0.20407, 0.39068, 0.02764, 0.00335, + 0.00009, 0.01595, 0.02929, + 0.51047, 0.19377, 0.35043, 0.02612, 0.00374, + 0.00023, 0.01529, 0.02777, + 0.49247, 0.18462, 0.31648, 0.02487, 0.00398, + 0.00064, 0.01477, 0.02625, + 0.47596, 0.17644, 0.28761, 0.02362, 0.00419, + 0.00095, 0.01424, 0.02497 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + 0.46064, 0.16916, 0.26274, 0.02253, 0.00424, + 0.00125, 0.01375, 0.02382, + 0.44659, 0.16240, 0.24127, 0.02153, 0.00430, + 0.00150, 0.01328, 0.02271, + 0.43346, 0.15628, 0.22253, 0.02068, 0.00429, + 0.00167, 0.01282, 0.02171, + 0.42119, 0.15072, 0.20607, 0.01991, 0.00425, + 0.00178, 0.01235, 0.02083, + 0.40990, 0.14547, 0.19155, 0.01906, 0.00430, + 0.00189, 0.01188, 0.02003, + 0.39918, 0.14066, 0.17887, 0.01833, 0.00426, + 0.00201, 0.01147, 0.01927, + 0.38916, 0.13620, 0.16751, 0.01763, 0.00421, + 0.00209, 0.01110, 0.01859 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + 0.37974, 0.13203, 0.15724, 0.01695, 0.00416, + 0.00210, 0.01077, 0.01798, + 0.37084, 0.12813, 0.14796, 0.01634, 0.00412, + 0.00213, 0.01044, 0.01732, + 0.36247, 0.12451, 0.13959, 0.01578, 0.00408, + 0.00215, 0.01014, 0.01670, + 0.35437, 0.12114, 0.13203, 0.01528, 0.00400, + 0.00218, 0.00984, 0.01615, + 0.34671, 0.11797, 0.12517, 0.01481, 0.00393, + 0.00219, 0.00957, 0.01563 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + 0.58954, 0.22478, 0.48679, 0.02554, 0.00046, + 0.00010, 0.01354, 0.02713, + 0.55783, 0.20837, 0.41754, 0.02375, 0.00155, + 0.00004, 0.01304, 0.02512, + 0.53047, 0.19458, 0.36280, 0.02216, 0.00217, + 0.00009, 0.01257, 0.02346, + 0.50623, 0.18291, 0.31868, 0.02078, 0.00257, + 0.00012, 0.01199, 0.02208, + 0.48459, 0.17289, 0.28261, 0.01964, 0.00276, + 0.00015, 0.01153, 0.02074, + 0.46534, 0.16399, 0.25296, 0.01852, 0.00288, + 0.00047, 0.01102, 0.01971, + 0.44781, 0.15608, 0.22776, 0.01751, 0.00304, + 0.00077, 0.01059, 0.01860 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + 0.43160, 0.14906, 0.20665, 0.01674, 0.00313, + 0.00090, 0.01014, 0.01755, + 0.41675, 0.14264, 0.18838, 0.01601, 0.00313, + 0.00109, 0.00971, 0.01672, + 0.40311, 0.13677, 0.17264, 0.01526, 0.00312, + 0.00126, 0.00934, 0.01597, + 0.39060, 0.13141, 0.15908, 0.01450, 0.00312, + 0.00135, 0.00901, 0.01526, + 0.37913, 0.12652, 0.14720, 0.01371, 0.00311, + 0.00136, 0.00867, 0.01461, + 0.36790, 0.12200, 0.13660, 0.01324, 0.00310, + 0.00144, 0.00836, 0.01398, + 0.35764, 0.11778, 0.12722, 0.01273, 0.00306, + 0.00149, 0.00806, 0.01344 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + 0.34831, 0.11381, 0.11888, 0.01213, 0.00298, + 0.00149, 0.00776, 0.01297, + 0.33905, 0.11027, 0.11151, 0.01168, 0.00295, + 0.00155, 0.00754, 0.01253, + 0.33035, 0.10698, 0.10490, 0.01127, 0.00292, + 0.00159, 0.00735, 0.01212, + 0.32231, 0.10376, 0.09886, 0.01087, 0.00284, + 0.00156, 0.00710, 0.01171, + 0.31471, 0.10076, 0.09342, 0.01051, 0.00279, + 0.00153, 0.00687, 0.01131 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + 0.56688, 0.20310, 0.41234, 0.01932, 0.00037, + 0.00010, 0.01025, 0.02057, + 0.53263, 0.18681, 0.34778, 0.01782, 0.00114, + 0.00000, 0.00983, 0.01899, + 0.50313, 0.17350, 0.29790, 0.01659, 0.00163, + 0.00010, 0.00946, 0.01757, + 0.47731, 0.16225, 0.25853, 0.01552, 0.00192, + 0.00007, 0.00903, 0.01634, + 0.45481, 0.15248, 0.22705, 0.01446, 0.00214, + 0.00016, 0.00866, 0.01526, + 0.43472, 0.14398, 0.20114, 0.01356, 0.00225, + 0.00036, 0.00822, 0.01442, + 0.41654, 0.13646, 0.17977, 0.01277, 0.00233, + 0.00055, 0.00784, 0.01362 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + 0.39984, 0.12979, 0.16184, 0.01210, 0.00234, + 0.00073, 0.00747, 0.01294, + 0.38473, 0.12375, 0.14652, 0.01151, 0.00232, + 0.00084, 0.00716, 0.01224, + 0.37088, 0.11829, 0.13346, 0.01094, 0.00234, + 0.00090, 0.00685, 0.01159, + 0.35807, 0.11336, 0.12224, 0.01040, 0.00233, + 0.00094, 0.00654, 0.01103, + 0.34617, 0.10884, 0.11247, 0.00994, 0.00222, + 0.00101, 0.00634, 0.01056, + 0.33523, 0.10466, 0.10394, 0.00940, 0.00222, + 0.00105, 0.00607, 0.01014, + 0.32500, 0.10079, 0.09643, 0.00897, 0.00223, + 0.00109, 0.00582, 0.00973 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + 0.31536, 0.09720, 0.08980, 0.00866, 0.00222, + 0.00115, 0.00561, 0.00934, + 0.30640, 0.09388, 0.08383, 0.00825, 0.00216, + 0.00112, 0.00541, 0.00897, + 0.29806, 0.09080, 0.07851, 0.00786, 0.00209, + 0.00109, 0.00522, 0.00863, + 0.29018, 0.08785, 0.07380, 0.00757, 0.00206, + 0.00111, 0.00504, 0.00829, + 0.28273, 0.08512, 0.06954, 0.00732, 0.00203, + 0.00113, 0.00487, 0.00798 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + 0.53888, 0.18160, 0.34717, 0.01472, 0.00020, + -0.00007, 0.00753, 0.01533, + 0.50255, 0.16608, 0.28792, 0.01347, 0.00077, + -0.00004, 0.00723, 0.01407, + 0.47171, 0.15342, 0.24361, 0.01246, 0.00112, + -0.00012, 0.00691, 0.01296, + 0.44538, 0.14248, 0.20883, 0.01144, 0.00141, + -0.00006, 0.00651, 0.01211, + 0.42220, 0.13331, 0.18143, 0.01066, 0.00150, + -0.00005, 0.00622, 0.01131, + 0.40163, 0.12535, 0.15956, 0.00999, 0.00158, + 0.00014, 0.00593, 0.01058, + 0.38321, 0.11843, 0.14159, 0.00930, 0.00167, + 0.00033, 0.00564, 0.00997 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + 0.36668, 0.11216, 0.12646, 0.00877, 0.00168, + 0.00042, 0.00530, 0.00939, + 0.35141, 0.10663, 0.11384, 0.00842, 0.00169, + 0.00054, 0.00508, 0.00877, + 0.33765, 0.10162, 0.10312, 0.00791, 0.00168, + 0.00062, 0.00490, 0.00832, + 0.32516, 0.09702, 0.09393, 0.00738, 0.00166, + 0.00065, 0.00470, 0.00799, + 0.31329, 0.09287, 0.08602, 0.00716, 0.00163, + 0.00068, 0.00450, 0.00758, + 0.30256, 0.08908, 0.07912, 0.00683, 0.00157, + 0.00072, 0.00429, 0.00713, + 0.29258, 0.08558, 0.07306, 0.00647, 0.00153, + 0.00072, 0.00410, 0.00678 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + 0.28323, 0.08234, 0.06772, 0.00611, 0.00150, + 0.00068, 0.00393, 0.00654, + 0.27434, 0.07935, 0.06308, 0.00586, 0.00147, + 0.00071, 0.00380, 0.00632, + 0.26608, 0.07659, 0.05895, 0.00565, 0.00145, + 0.00074, 0.00368, 0.00611, + 0.25850, 0.07395, 0.05519, 0.00543, 0.00142, + 0.00077, 0.00352, 0.00583, + 0.25135, 0.07150, 0.05182, 0.00524, 0.00139, + 0.00078, 0.00339, 0.00558 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + 0.50649, 0.16023, 0.28913, 0.01065, 0.00028, + 0.00012, 0.00570, 0.01125, + 0.46912, 0.14548, 0.23659, 0.00964, 0.00070, + 0.00008, 0.00541, 0.01033, + 0.43759, 0.13365, 0.19727, 0.00892, 0.00101, + 0.00003, 0.00514, 0.00936, + 0.41091, 0.12356, 0.16745, 0.00810, 0.00108, + 0.00010, 0.00485, 0.00878, + 0.38758, 0.11508, 0.14411, 0.00752, 0.00119, + 0.00014, 0.00456, 0.00818, + 0.36703, 0.10781, 0.12554, 0.00712, 0.00124, + 0.00024, 0.00430, 0.00758, + 0.34878, 0.10139, 0.11047, 0.00657, 0.00124, + 0.00033, 0.00407, 0.00716 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + 0.33220, 0.09579, 0.09801, 0.00629, 0.00125, + 0.00040, 0.00390, 0.00662, + 0.31754, 0.09068, 0.08765, 0.00582, 0.00122, + 0.00043, 0.00371, 0.00632, + 0.30415, 0.08610, 0.07896, 0.00536, 0.00122, + 0.00048, 0.00352, 0.00604, + 0.29173, 0.08204, 0.07158, 0.00510, 0.00124, + 0.00053, 0.00335, 0.00568, + 0.28030, 0.07837, 0.06527, 0.00496, 0.00119, + 0.00050, 0.00320, 0.00533, + 0.26988, 0.07494, 0.05978, 0.00468, 0.00117, + 0.00050, 0.00305, 0.00505, + 0.26026, 0.07179, 0.05497, 0.00443, 0.00114, + 0.00051, 0.00291, 0.00483 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + 0.25131, 0.06888, 0.05074, 0.00423, 0.00110, + 0.00055, 0.00276, 0.00468, + 0.24278, 0.06623, 0.04703, 0.00415, 0.00108, + 0.00056, 0.00266, 0.00438, + 0.23485, 0.06379, 0.04375, 0.00409, 0.00106, + 0.00056, 0.00258, 0.00409, + 0.22745, 0.06148, 0.04090, 0.00395, 0.00098, + 0.00055, 0.00247, 0.00399, + 0.22064, 0.05933, 0.03833, 0.00379, 0.00093, + 0.00055, 0.00237, 0.00388 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + 0.47097, 0.14042, 0.23951, 0.00786, 0.00020, + -0.00001, 0.00404, 0.00812, + 0.43309, 0.12675, 0.19286, 0.00709, 0.00041, + 0.00002, 0.00386, 0.00749, + 0.40159, 0.11571, 0.15879, 0.00649, 0.00062, + -0.00002, 0.00363, 0.00685, + 0.37506, 0.10651, 0.13337, 0.00594, 0.00072, + -0.00003, 0.00340, 0.00630, + 0.35218, 0.09870, 0.11373, 0.00546, 0.00082, + 0.00006, 0.00323, 0.00581, + 0.33191, 0.09203, 0.09825, 0.00508, 0.00087, + 0.00013, 0.00306, 0.00550, + 0.31426, 0.08624, 0.08583, 0.00463, 0.00089, + 0.00019, 0.00289, 0.00513 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + 0.29831, 0.08117, 0.07577, 0.00444, 0.00086, + 0.00020, 0.00268, 0.00472, + 0.28389, 0.07665, 0.06732, 0.00426, 0.00084, + 0.00023, 0.00250, 0.00437, + 0.27094, 0.07256, 0.06023, 0.00395, 0.00086, + 0.00026, 0.00239, 0.00415, + 0.25923, 0.06885, 0.05431, 0.00365, 0.00087, + 0.00029, 0.00230, 0.00398, + 0.24850, 0.06547, 0.04930, 0.00349, 0.00080, + 0.00033, 0.00218, 0.00371, + 0.23850, 0.06249, 0.04492, 0.00336, 0.00075, + 0.00033, 0.00206, 0.00354, + 0.22935, 0.05975, 0.04116, 0.00318, 0.00073, + 0.00033, 0.00195, 0.00340 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + 0.22097, 0.05720, 0.03791, 0.00296, 0.00071, + 0.00035, 0.00186, 0.00326, + 0.21303, 0.05487, 0.03502, 0.00292, 0.00069, + 0.00034, 0.00178, 0.00302, + 0.20567, 0.05272, 0.03247, 0.00290, 0.00068, + 0.00032, 0.00171, 0.00279, + 0.19876, 0.05069, 0.03025, 0.00280, 0.00065, + 0.00033, 0.00164, 0.00269, + 0.19238, 0.04883, 0.02826, 0.00270, 0.00064, + 0.00034, 0.00158, 0.00258 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + 0.43318, 0.12133, 0.19629, 0.00548, 0.00015, + 0.00002, 0.00293, 0.00593, + 0.39569, 0.10878, 0.15587, 0.00491, 0.00041, + 0.00002, 0.00278, 0.00534, + 0.36483, 0.09879, 0.12669, 0.00450, 0.00049, + 0.00007, 0.00265, 0.00484, + 0.33855, 0.09050, 0.10534, 0.00408, 0.00060, + 0.00004, 0.00243, 0.00455, + 0.31639, 0.08359, 0.08908, 0.00378, 0.00063, + 0.00006, 0.00227, 0.00414, + 0.29715, 0.07760, 0.07629, 0.00348, 0.00064, + 0.00011, 0.00214, 0.00385, + 0.28011, 0.07244, 0.06611, 0.00331, 0.00061, + 0.00012, 0.00198, 0.00348 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + 0.26472, 0.06791, 0.05790, 0.00317, 0.00055, + 0.00015, 0.00189, 0.00328, + 0.25119, 0.06381, 0.05116, 0.00296, 0.00055, + 0.00018, 0.00177, 0.00306, + 0.23907, 0.06021, 0.04558, 0.00269, 0.00055, + 0.00021, 0.00166, 0.00287, + 0.22799, 0.05704, 0.04090, 0.00247, 0.00055, + 0.00021, 0.00159, 0.00273, + 0.21775, 0.05416, 0.03692, 0.00242, 0.00053, + 0.00022, 0.00150, 0.00253, + 0.20849, 0.05150, 0.03349, 0.00231, 0.00050, + 0.00025, 0.00143, 0.00236, + 0.19999, 0.04908, 0.03055, 0.00222, 0.00050, + 0.00026, 0.00137, 0.00221 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + 0.19212, 0.04688, 0.02803, 0.00214, 0.00052, + 0.00025, 0.00132, 0.00207, + 0.18484, 0.04488, 0.02583, 0.00207, 0.00051, + 0.00028, 0.00126, 0.00197, + 0.17813, 0.04305, 0.02390, 0.00198, 0.00049, + 0.00029, 0.00120, 0.00188, + 0.17185, 0.04129, 0.02220, 0.00184, 0.00047, + 0.00023, 0.00112, 0.00182, + 0.16602, 0.03968, 0.02069, 0.00172, 0.00044, + 0.00019, 0.00105, 0.00176 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + 0.39419, 0.10390, 0.15953, 0.00373, 0.00014, + 0.00008, 0.00208, 0.00419, + 0.35773, 0.09262, 0.12489, 0.00340, 0.00028, + 0.00007, 0.00195, 0.00377, + 0.32770, 0.08368, 0.10038, 0.00308, 0.00034, + 0.00000, 0.00180, 0.00350, + 0.30285, 0.07628, 0.08252, 0.00276, 0.00037, + 0.00002, 0.00164, 0.00320, + 0.28160, 0.07004, 0.06909, 0.00261, 0.00038, + 0.00006, 0.00151, 0.00291, + 0.26312, 0.06490, 0.05877, 0.00248, 0.00039, + 0.00007, 0.00144, 0.00259, + 0.24706, 0.06033, 0.05059, 0.00236, 0.00041, + 0.00012, 0.00133, 0.00239 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + 0.23299, 0.05629, 0.04403, 0.00212, 0.00038, + 0.00013, 0.00123, 0.00226, + 0.22019, 0.05279, 0.03870, 0.00203, 0.00037, + 0.00012, 0.00117, 0.00212, + 0.20870, 0.04969, 0.03428, 0.00196, 0.00038, + 0.00011, 0.00109, 0.00194, + 0.19844, 0.04691, 0.03058, 0.00186, 0.00039, + 0.00011, 0.00101, 0.00179, + 0.18911, 0.04438, 0.02748, 0.00176, 0.00040, + 0.00015, 0.00105, 0.00170, + 0.18057, 0.04211, 0.02488, 0.00167, 0.00036, + 0.00011, 0.00095, 0.00151, + 0.17269, 0.04006, 0.02264, 0.00163, 0.00032, + 0.00010, 0.00088, 0.00141 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + 0.16538, 0.03820, 0.02070, 0.00162, 0.00029, + 0.00014, 0.00084, 0.00140, + 0.15882, 0.03648, 0.01901, 0.00151, 0.00030, + 0.00014, 0.00081, 0.00128, + 0.15280, 0.03490, 0.01752, 0.00140, 0.00031, + 0.00013, 0.00078, 0.00117, + 0.14700, 0.03344, 0.01623, 0.00138, 0.00029, + 0.00010, 0.00072, 0.00113, + 0.14169, 0.03209, 0.01508, 0.00133, 0.00028, + 0.00009, 0.00067, 0.00110 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + 0.35487, 0.08795, 0.12828, 0.00254, 0.00002, + 0.00001, 0.00147, 0.00297, + 0.31956, 0.07794, 0.09880, 0.00231, 0.00013, + -0.00003, 0.00134, 0.00259, + 0.29089, 0.06987, 0.07835, 0.00217, 0.00025, + -0.00006, 0.00121, 0.00237, + 0.26731, 0.06336, 0.06381, 0.00194, 0.00029, + -0.00001, 0.00118, 0.00211, + 0.24752, 0.05796, 0.05285, 0.00173, 0.00029, + -0.00002, 0.00110, 0.00192, + 0.23036, 0.05334, 0.04453, 0.00170, 0.00030, + 0.00004, 0.00100, 0.00174, + 0.21543, 0.04939, 0.03809, 0.00160, 0.00030, + 0.00007, 0.00092, 0.00151 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + 0.20219, 0.04598, 0.03290, 0.00146, 0.00031, + 0.00008, 0.00088, 0.00145, + 0.19039, 0.04296, 0.02871, 0.00139, 0.00030, + 0.00007, 0.00081, 0.00137, + 0.17990, 0.04029, 0.02531, 0.00135, 0.00029, + 0.00008, 0.00075, 0.00121, + 0.17053, 0.03792, 0.02248, 0.00128, 0.00028, + 0.00009, 0.00072, 0.00107, + 0.16199, 0.03580, 0.02011, 0.00118, 0.00026, + 0.00009, 0.00067, 0.00102, + 0.15424, 0.03387, 0.01811, 0.00114, 0.00026, + 0.00011, 0.00068, 0.00101, + 0.14720, 0.03212, 0.01641, 0.00107, 0.00026, + 0.00011, 0.00065, 0.00099 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + 0.14078, 0.03053, 0.01494, 0.00095, 0.00026, + 0.00010, 0.00060, 0.00095, + 0.13481, 0.02907, 0.01368, 0.00091, 0.00025, + 0.00012, 0.00057, 0.00090, + 0.12932, 0.02774, 0.01257, 0.00088, 0.00025, + 0.00013, 0.00055, 0.00085, + 0.12430, 0.02651, 0.01162, 0.00079, 0.00025, + 0.00014, 0.00053, 0.00081, + 0.11963, 0.02538, 0.01077, 0.00072, 0.00025, + 0.00014, 0.00051, 0.00077 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + 0.31595, 0.07371, 0.10210, 0.00168, 0.00003, + -0.00002, 0.00089, 0.00213, + 0.28252, 0.06482, 0.07750, 0.00166, 0.00011, + -0.00002, 0.00085, 0.00185, + 0.25592, 0.05781, 0.06078, 0.00142, 0.00013, + -0.00006, 0.00078, 0.00163, + 0.23394, 0.05218, 0.04893, 0.00125, 0.00020, + 0.00001, 0.00075, 0.00153, + 0.21534, 0.04753, 0.04021, 0.00121, 0.00018, + -0.00001, 0.00069, 0.00139, + 0.19961, 0.04360, 0.03361, 0.00115, 0.00019, + 0.00001, 0.00065, 0.00115, + 0.18589, 0.04019, 0.02853, 0.00107, 0.00020, + 0.00003, 0.00060, 0.00106 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + 0.17372, 0.03729, 0.02447, 0.00105, 0.00016, + 0.00000, 0.00054, 0.00100, + 0.16312, 0.03472, 0.02126, 0.00101, 0.00017, + 0.00002, 0.00050, 0.00090, + 0.15373, 0.03246, 0.01864, 0.00093, 0.00017, + 0.00003, 0.00047, 0.00078, + 0.14531, 0.03047, 0.01648, 0.00085, 0.00016, + 0.00003, 0.00044, 0.00070, + 0.13780, 0.02865, 0.01469, 0.00076, 0.00017, + 0.00005, 0.00043, 0.00065, + 0.13088, 0.02704, 0.01318, 0.00067, 0.00018, + 0.00006, 0.00042, 0.00066, + 0.12449, 0.02559, 0.01191, 0.00065, 0.00017, + 0.00006, 0.00039, 0.00065 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + 0.11855, 0.02427, 0.01081, 0.00069, 0.00015, + 0.00005, 0.00036, 0.00061, + 0.11339, 0.02307, 0.00986, 0.00061, 0.00016, + 0.00005, 0.00035, 0.00054, + 0.10868, 0.02197, 0.00904, 0.00051, 0.00016, + 0.00005, 0.00035, 0.00047, + 0.10418, 0.02095, 0.00833, 0.00045, 0.00014, + 0.00005, 0.00032, 0.00048, + 0.10003, 0.02002, 0.00770, 0.00040, 0.00012, + 0.00006, 0.00030, 0.00049 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + 0.27754, 0.06092, 0.08010, 0.00124, -0.00001, + 0.00000, 0.00060, 0.00138, + 0.24661, 0.05323, 0.05995, 0.00114, 0.00008, + 0.00001, 0.00058, 0.00126, + 0.22199, 0.04722, 0.04647, 0.00105, 0.00006, + -0.00001, 0.00052, 0.00102, + 0.20191, 0.04238, 0.03700, 0.00095, 0.00007, + -0.00005, 0.00052, 0.00088, + 0.18485, 0.03844, 0.03013, 0.00101, 0.00009, + -0.00005, 0.00044, 0.00074, + 0.17067, 0.03511, 0.02500, 0.00088, 0.00011, + -0.00002, 0.00041, 0.00069, + 0.15839, 0.03224, 0.02106, 0.00081, 0.00011, + -0.00001, 0.00037, 0.00063 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + 0.14767, 0.02980, 0.01798, 0.00075, 0.00013, + 0.00003, 0.00035, 0.00056, + 0.13818, 0.02767, 0.01552, 0.00064, 0.00011, + 0.00003, 0.00032, 0.00057, + 0.12970, 0.02578, 0.01354, 0.00061, 0.00011, + 0.00001, 0.00030, 0.00050, + 0.12218, 0.02412, 0.01192, 0.00061, 0.00013, + 0.00002, 0.00030, 0.00043, + 0.11560, 0.02262, 0.01058, 0.00044, 0.00011, + 0.00004, 0.00029, 0.00051, + 0.10949, 0.02130, 0.00945, 0.00039, 0.00011, + 0.00004, 0.00027, 0.00045, + 0.10393, 0.02010, 0.00849, 0.00036, 0.00011, + 0.00004, 0.00025, 0.00039 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + 0.09887, 0.01901, 0.00769, 0.00035, 0.00010, + 0.00003, 0.00023, 0.00037, + 0.09421, 0.01803, 0.00700, 0.00034, 0.00010, + 0.00004, 0.00022, 0.00036, + 0.08995, 0.01714, 0.00640, 0.00034, 0.00011, + 0.00005, 0.00022, 0.00036, + 0.08603, 0.01632, 0.00588, 0.00032, 0.00010, + 0.00005, 0.00020, 0.00032, + 0.08241, 0.01556, 0.00543, 0.00030, 0.00010, + 0.00005, 0.00019, 0.00030 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + 0.24135, 0.04971, 0.06204, 0.00073, -0.00002, + -0.00005, 0.00039, 0.00086, + 0.21273, 0.04315, 0.04573, 0.00081, 0.00003, + -0.00003, 0.00034, 0.00077, + 0.19057, 0.03799, 0.03499, 0.00059, 0.00003, + -0.00001, 0.00031, 0.00068, + 0.17220, 0.03393, 0.02754, 0.00059, 0.00003, + -0.00006, 0.00029, 0.00058, + 0.15713, 0.03060, 0.02221, 0.00051, 0.00004, + -0.00006, 0.00025, 0.00049, + 0.14434, 0.02781, 0.01828, 0.00049, 0.00008, + -0.00002, 0.00026, 0.00045, + 0.13327, 0.02546, 0.01528, 0.00046, 0.00007, + -0.00002, 0.00025, 0.00045 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + 0.12377, 0.02343, 0.01295, 0.00040, 0.00010, + -0.00001, 0.00022, 0.00037, + 0.11541, 0.02167, 0.01112, 0.00036, 0.00010, + 0.00001, 0.00021, 0.00034, + 0.10797, 0.02013, 0.00964, 0.00033, 0.00009, + 0.00003, 0.00021, 0.00036, + 0.10139, 0.01876, 0.00844, 0.00029, 0.00010, + 0.00003, 0.00021, 0.00036, + 0.09562, 0.01756, 0.00746, 0.00022, 0.00009, + 0.00002, 0.00021, 0.00033, + 0.09020, 0.01647, 0.00665, 0.00026, 0.00009, + 0.00002, 0.00019, 0.00026, + 0.08536, 0.01550, 0.00596, 0.00026, 0.00009, + 0.00003, 0.00017, 0.00023 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + 0.08106, 0.01462, 0.00538, 0.00019, 0.00009, + 0.00004, 0.00017, 0.00026, + 0.07706, 0.01383, 0.00488, 0.00019, 0.00009, + 0.00004, 0.00017, 0.00024, + 0.07340, 0.01312, 0.00445, 0.00018, 0.00009, + 0.00005, 0.00016, 0.00022, + 0.07003, 0.01245, 0.00408, 0.00017, 0.00009, + 0.00005, 0.00015, 0.00021, + 0.06694, 0.01184, 0.00376, 0.00016, 0.00008, + 0.00005, 0.00014, 0.00019 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + 0.20680, 0.03990, 0.04722, 0.00049, -0.00001, + -0.00005, 0.00023, 0.00055, + 0.18100, 0.03435, 0.03429, 0.00049, 0.00001, + -0.00006, 0.00021, 0.00046, + 0.16088, 0.03009, 0.02586, 0.00050, 0.00002, + -0.00004, 0.00020, 0.00039, + 0.14469, 0.02671, 0.02013, 0.00037, 0.00008, + -0.00001, 0.00020, 0.00041, + 0.13141, 0.02396, 0.01609, 0.00030, 0.00007, + -0.00003, 0.00020, 0.00032, + 0.12022, 0.02167, 0.01313, 0.00023, 0.00006, + -0.00002, 0.00017, 0.00028, + 0.11054, 0.01975, 0.01090, 0.00023, 0.00007, + -0.00001, 0.00017, 0.00026 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + 0.10218, 0.01812, 0.00917, 0.00023, 0.00008, + 0.00001, 0.00017, 0.00024, + 0.09484, 0.01669, 0.00783, 0.00023, 0.00006, + -0.00001, 0.00013, 0.00018, + 0.08844, 0.01545, 0.00676, 0.00020, 0.00006, + 0.00000, 0.00012, 0.00017, + 0.08282, 0.01436, 0.00589, 0.00015, 0.00007, + 0.00002, 0.00014, 0.00018, + 0.07778, 0.01338, 0.00519, 0.00013, 0.00008, + 0.00004, 0.00014, 0.00015, + 0.07324, 0.01253, 0.00461, 0.00010, 0.00007, + 0.00003, 0.00012, 0.00015, + 0.06912, 0.01176, 0.00412, 0.00009, 0.00007, + 0.00003, 0.00011, 0.00014 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + 0.06534, 0.01106, 0.00370, 0.00011, 0.00007, + 0.00002, 0.00011, 0.00013, + 0.06198, 0.01044, 0.00335, 0.00010, 0.00006, + 0.00003, 0.00011, 0.00013, + 0.05893, 0.00987, 0.00304, 0.00008, 0.00006, + 0.00003, 0.00011, 0.00013, + 0.05609, 0.00935, 0.00279, 0.00006, 0.00005, + 0.00003, 0.00009, 0.00013, + 0.05349, 0.00887, 0.00256, 0.00005, 0.00005, + 0.00002, 0.00008, 0.00012 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + 0.17485, 0.03164, 0.03552, 0.00040, -0.00006, + -0.00010, 0.00008, 0.00037, + 0.15202, 0.02704, 0.02538, 0.00041, -0.00002, + -0.00006, 0.00011, 0.00030, + 0.13424, 0.02357, 0.01893, 0.00037, 0.00001, + -0.00007, 0.00012, 0.00025, + 0.12024, 0.02082, 0.01458, 0.00022, -0.00001, + -0.00007, 0.00010, 0.00018, + 0.10850, 0.01858, 0.01155, 0.00022, 0.00002, + -0.00004, 0.00010, 0.00022, + 0.09880, 0.01673, 0.00936, 0.00019, 0.00003, + -0.00005, 0.00008, 0.00016, + 0.09043, 0.01519, 0.00771, 0.00021, 0.00004, + -0.00002, 0.00010, 0.00014 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + 0.08328, 0.01387, 0.00646, 0.00018, 0.00004, + -0.00002, 0.00009, 0.00014, + 0.07712, 0.01274, 0.00549, 0.00013, 0.00004, + 0.00000, 0.00008, 0.00013, + 0.07171, 0.01175, 0.00472, 0.00010, 0.00004, + 0.00000, 0.00008, 0.00012, + 0.06689, 0.01088, 0.00410, 0.00009, 0.00004, + 0.00000, 0.00007, 0.00011, + 0.06254, 0.01012, 0.00359, 0.00012, 0.00004, + 0.00001, 0.00006, 0.00012, + 0.05870, 0.00945, 0.00317, 0.00011, 0.00003, + 0.00001, 0.00006, 0.00011, + 0.05528, 0.00884, 0.00283, 0.00010, 0.00003, + 0.00000, 0.00006, 0.00010 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + 0.05219, 0.00830, 0.00254, 0.00007, 0.00002, + 0.00001, 0.00006, 0.00009, + 0.04939, 0.00781, 0.00229, 0.00006, 0.00002, + 0.00001, 0.00005, 0.00007, + 0.04685, 0.00737, 0.00208, 0.00004, 0.00002, + 0.00000, 0.00005, 0.00006, + 0.04451, 0.00697, 0.00190, 0.00002, 0.00003, + 0.00001, 0.00005, 0.00008, + 0.04236, 0.00660, 0.00174, 0.00002, 0.00003, + 0.00002, 0.00005, 0.00009 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + 0.14537, 0.02451, 0.02606, 0.00020, -0.00003, + -0.00004, 0.00006, 0.00020, + 0.12554, 0.02085, 0.01841, 0.00024, -0.00001, + -0.00003, 0.00006, 0.00017, + 0.11019, 0.01807, 0.01358, 0.00020, -0.00003, + -0.00004, 0.00006, 0.00017, + 0.09805, 0.01588, 0.01038, 0.00018, 0.00000, + -0.00002, 0.00005, 0.00012, + 0.08810, 0.01412, 0.00815, 0.00017, 0.00000, + -0.00001, 0.00005, 0.00009, + 0.07983, 0.01267, 0.00655, 0.00013, -0.00001, + -0.00002, 0.00003, 0.00011, + 0.07291, 0.01145, 0.00537, 0.00008, 0.00000, + -0.00002, 0.00002, 0.00009 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + 0.06691, 0.01043, 0.00447, 0.00007, 0.00001, + -0.00001, 0.00003, 0.00008, + 0.06168, 0.00954, 0.00378, 0.00007, 0.00001, + 0.00000, 0.00004, 0.00009, + 0.05712, 0.00878, 0.00323, 0.00008, 0.00001, + 0.00000, 0.00003, 0.00008, + 0.05311, 0.00812, 0.00279, 0.00010, 0.00001, + -0.00001, 0.00003, 0.00006, + 0.04954, 0.00753, 0.00244, 0.00010, 0.00001, + 0.00001, 0.00003, 0.00005, + 0.04638, 0.00701, 0.00215, 0.00008, 0.00001, + 0.00000, 0.00003, 0.00006, + 0.04354, 0.00654, 0.00191, 0.00007, 0.00001, + 0.00000, 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=15,19)/ + 0.04095, 0.00613, 0.00171, 0.00008, 0.00000, + 0.00000, 0.00002, 0.00006, + 0.03868, 0.00575, 0.00154, 0.00005, 0.00001, + 0.00000, 0.00002, 0.00006, + 0.03663, 0.00541, 0.00139, 0.00002, 0.00001, + 0.00000, 0.00002, 0.00006, + 0.03470, 0.00511, 0.00127, 0.00003, 0.00000, + 0.00000, 0.00002, 0.00005, + 0.03295, 0.00483, 0.00116, 0.00003, 0.00000, + 0.00000, 0.00002, 0.00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ + 0.09524, 0.01389, 0.01314, 0.00006, -0.00002, + -0.00001, 0.00002, 0.00007, + 0.08096, 0.01162, 0.00898, 0.00009, 0.00000, + 0.00000, 0.00003, 0.00004, + 0.07009, 0.00994, 0.00644, 0.00006, -0.00001, + -0.00002, 0.00002, 0.00004, + 0.06161, 0.00862, 0.00480, 0.00003, 0.00001, + 0.00000, 0.00002, 0.00005, + 0.05476, 0.00758, 0.00370, -0.00001, 0.00001, + 0.00000, 0.00002, 0.00006, + 0.04915, 0.00674, 0.00292, 0.00000, 0.00001, + 0.00000, 0.00002, 0.00005, + 0.04439, 0.00604, 0.00236, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + 0.04040, 0.00545, 0.00194, 0.00001, 0.00002, + 0.00000, 0.00002, 0.00001, + 0.03694, 0.00494, 0.00162, 0.00000, 0.00002, + 0.00000, 0.00002, 0.00002, + 0.03392, 0.00451, 0.00137, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00003, + 0.03130, 0.00414, 0.00118, 0.00002, 0.00001, + 0.00000, 0.00002, 0.00002, + 0.02902, 0.00381, 0.00102, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00003, + 0.02698, 0.00353, 0.00089, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02517, 0.00327, 0.00079, 0.00002, 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.02355, 0.00305, 0.00070, 0.00002, 0.00001, + 0.00001, 0.00002, 0.00001, + 0.02210, 0.00285, 0.00063, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02079, 0.00267, 0.00056, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01961, 0.00250, 0.00051, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01853, 0.00236, 0.00047, 0.00001, 0.00001, + 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.05737, 0.00716, 0.00596, 0.00004, -0.00001, + -0.00001, 0.00000, 0.00001, + 0.04794, 0.00589, 0.00393, 0.00005, -0.00001, + -0.00001, -0.00001, 0.00001, + 0.04088, 0.00496, 0.00274, 0.00002, 0.00000, + -0.00001, 0.00000, 0.00003, + 0.03548, 0.00425, 0.00200, 0.00000, 0.00000, + 0.00000, 0.00001, 0.00002, + 0.03116, 0.00369, 0.00151, -0.00001, 0.00000, + 0.00000, 0.00001, 0.00001, + 0.02762, 0.00324, 0.00117, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02472, 0.00288, 0.00093, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ + 0.02227, 0.00257, 0.00076, 0.00000, 0.00000, + 0.00000, 0.00001, 0.00000, + 0.02018, 0.00232, 0.00062, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00000, + 0.01840, 0.00210, 0.00052, 0.00000, 0.00001, + 0.00000, 0.00000, 0.00000, + 0.01686, 0.00191, 0.00044, -0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01549, 0.00174, 0.00038, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01430, 0.00160, 0.00033, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01326, 0.00148, 0.00029, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ + 0.01233, 0.00137, 0.00026, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01150, 0.00127, 0.00023, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01075, 0.00118, 0.00021, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01008, 0.00110, 0.00019, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.00947, 0.00103, 0.00017, 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.03069, 0.00320, 0.00231, 0.00001, 0.00000, + -0.00001, -0.00001, 0.00000, + 0.02518, 0.00259, 0.00147, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.02117, 0.00215, 0.00100, 0.00000, 0.00001, + 0.00000, 0.00000, 0.00000, + 0.01808, 0.00181, 0.00071, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01564, 0.00156, 0.00052, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01370, 0.00135, 0.00040, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01212, 0.00119, 0.00031, 0.00001, 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.01081, 0.00105, 0.00025, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00970, 0.00094, 0.00021, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00876, 0.00084, 0.00017, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00796, 0.00076, 0.00014, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00727, 0.00069, 0.00012, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00666, 0.00063, 0.00011, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00612, 0.00057, 0.00009, 0.00001, 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.00565, 0.00053, 0.00008, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00524, 0.00049, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00487, 0.00045, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00453, 0.00042, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00423, 0.00039, 0.00005, 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.01397, 0.00119, 0.00072, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01120, 0.00094, 0.00044, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00922, 0.00076, 0.00029, -0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.00773, 0.00063, 0.00020, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00659, 0.00053, 0.00014, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00569, 0.00046, 0.00011, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00497, 0.00040, 0.00008, 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.00437, 0.00035, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00388, 0.00030, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00347, 0.00027, 0.00004, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00312, 0.00024, 0.00004, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00282, 0.00022, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00256, 0.00020, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00233, 0.00018, 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.00214, 0.00016, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00196, 0.00015, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00181, 0.00014, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00167, 0.00013, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00155, 0.00012, 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.00108, 0.00005, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00081, 0.00004, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00063, 0.00003, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00051, 0.00002, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00041, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00034, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00029, 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=8,14)/ + 0.00025, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.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 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ + 0.00010, 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, + 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.00006, 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/ C XSAVE=X C IF(INIT.NE.0) GOTO 10 INIT=1 DO 20 N=1,NX-1 DO 20 M=1,19 C READ(92,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) C X=XSAVE C RETURN END