* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:30:25 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:44 plothow * Version 7.01 * * #include "pdf/pilot.h" SUBROUTINE SFMSBS0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C THIS IS THE NEW FIT "S0'" 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.01617, 0.00043, 4.29007, 0.44145, 0.04538, + 0.00000, 0.24629, 0.44523, + 0.01671, 0.00055, 10.96969, 0.61931, 0.22312, + 0.00000, 0.42415, 0.62282, + 0.01720, 0.00066, 19.87027, 0.85311, 0.45682, + 0.00000, 0.65797, 0.85638, + 0.01765, 0.00076, 30.53786, 1.13684, 0.74046, + 0.00000, 0.94171, 1.13989, + 0.01807, 0.00087, 42.94975, 1.46773, 1.07126, + 0.07130, 1.27262, 1.47058, + 0.01847, 0.00097, 56.89287, 1.84230, 1.44576, + 0.40611, 1.64721, 1.84497, + 0.01884, 0.00107, 72.20888, 2.25870, 1.86210, + 0.83810, 2.06364, 2.26120 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + 0.01919, 0.00117, 88.74004, 2.71380, 2.31713, + 1.30203, 2.51876, 2.71614, + 0.01953, 0.00126, 106.35173, 3.20452, 2.80781, + 1.80186, 3.00951, 3.20672, + 0.01986, 0.00136, 124.94041, 3.72853, 3.33177, + 2.33410, 3.53354, 3.73058, + 0.02017, 0.00145, 144.43050, 4.28397, 3.88717, + 2.89732, 4.08902, 4.28589, + 0.02047, 0.00154, 164.67508, 4.86751, 4.47068, + 3.48814, 4.67259, 4.86931, + 0.02076, 0.00164, 185.36879, 5.47220, 5.07534, + 4.09972, 5.27732, 5.47389, + 0.02105, 0.00173, 206.77844, 6.10353, 5.70665, + 4.73755, 5.90868, 6.10511 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + 0.02132, 0.00181, 228.74190, 6.75789, 6.36099, + 5.39807, 6.56308, 6.75937, + 0.02158, 0.00190, 250.89102, 7.42630, 7.02939, + 6.07236, 7.23153, 7.42768, + 0.02184, 0.00199, 273.72388, 8.12013, 7.72321, + 6.77177, 7.92540, 8.12142, + 0.02209, 0.00207, 296.51294, 8.82216, 8.42522, + 7.47914, 8.62746, 8.82341, + 0.02234, 0.00216, 319.87012, 9.54651, 9.14956, + 8.20858, 9.35184, 9.54765 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + 0.02044, 0.00076, 4.15525, 0.43499, 0.04152, + 0.00000, 0.24004, 0.43721, + 0.02116, 0.00094, 9.97353, 0.59330, 0.20000, + 0.00000, 0.39847, 0.59531, + 0.02180, 0.00111, 17.40932, 0.79496, 0.40181, + 0.00000, 0.60024, 0.79679, + 0.02239, 0.00128, 26.05307, 1.03357, 0.64057, + 0.00000, 0.83895, 1.03523, + 0.02294, 0.00145, 35.86687, 1.30602, 0.91315, + 0.05842, 1.11150, 1.30754, + 0.02346, 0.00160, 46.66591, 1.60894, 1.21621, + 0.32968, 1.41453, 1.61033, + 0.02394, 0.00176, 58.31686, 1.94046, 1.54786, + 0.67492, 1.74614, 1.94172 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + 0.02440, 0.00191, 70.69380, 2.29779, 1.90531, + 1.04033, 2.10357, 2.29894, + 0.02484, 0.00206, 83.69286, 2.67834, 2.28598, + 1.42913, 2.48420, 2.67938, + 0.02527, 0.00220, 97.23682, 3.08012, 2.68789, + 1.83841, 2.88608, 3.08106, + 0.02567, 0.00235, 111.27097, 3.50165, 3.10953, + 2.26700, 3.30770, 3.50249, + 0.02606, 0.00249, 125.68950, 3.94030, 3.54830, + 2.71229, 3.74644, 3.94106, + 0.02643, 0.00262, 140.27441, 4.39086, 3.99898, + 3.16911, 4.19709, 4.39155, + 0.02680, 0.00276, 155.22566, 4.85745, 4.46568, + 3.64162, 4.66376, 4.85805 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + 0.02715, 0.00289, 170.42952, 5.33739, 4.94573, + 4.12717, 5.14378, 5.33791, + 0.02749, 0.00302, 185.62794, 5.82406, 5.43251, + 4.61919, 5.63053, 5.82452, + 0.02782, 0.00315, 201.18080, 6.32589, 5.93445, + 5.12611, 6.13245, 6.32628, + 0.02814, 0.00328, 216.57881, 6.83031, 6.43898, + 5.63539, 6.63695, 6.83065, + 0.02845, 0.00340, 232.25766, 7.34768, 6.95646, + 6.15741, 7.15440, 7.34797 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + 0.02575, 0.00132, 4.02437, 0.42807, 0.03775, + 0.00000, 0.23383, 0.42912, + 0.02668, 0.00161, 9.06631, 0.56800, 0.17817, + 0.00000, 0.37402, 0.56893, + 0.02752, 0.00189, 15.24934, 0.74075, 0.35135, + 0.00000, 0.54700, 0.74156, + 0.02830, 0.00216, 22.21999, 0.94009, 0.55110, + 0.00000, 0.74656, 0.94081, + 0.02901, 0.00241, 29.94127, 1.16300, 0.77438, + 0.04760, 0.96967, 1.16363, + 0.02967, 0.00266, 38.26198, 1.40646, 1.01820, + 0.26617, 1.21333, 1.40701, + 0.03030, 0.00290, 47.07710, 1.66879, 1.28086, + 0.54061, 1.47584, 1.66926 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + 0.03089, 0.00313, 56.29138, 1.94768, 1.56006, + 0.82692, 1.75490, 1.94808, + 0.03146, 0.00335, 65.82938, 2.24101, 1.85370, + 1.12776, 2.04840, 2.24135, + 0.03200, 0.00358, 75.63731, 2.54724, 2.16023, + 1.44084, 2.35479, 2.54752, + 0.03252, 0.00379, 85.67871, 2.86522, 2.47850, + 1.76527, 2.67293, 2.86545, + 0.03302, 0.00400, 95.88033, 3.19300, 2.80655, + 2.09910, 3.00086, 3.19316, + 0.03350, 0.00421, 106.08917, 3.52670, 3.14052, + 2.43852, 3.33471, 3.52682, + 0.03396, 0.00441, 116.45706, 3.86944, 3.48352, + 2.78668, 3.67759, 3.86952 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + 0.03441, 0.00461, 126.90576, 4.21930, 3.83364, + 3.14167, 4.02759, 4.21934, + 0.03484, 0.00480, 137.25620, 4.57147, 4.18605, + 3.49873, 4.37990, 4.57146, + 0.03526, 0.00500, 147.76971, 4.93218, 4.54701, + 3.86410, 4.74075, 4.93214, + 0.03567, 0.00518, 158.09094, 5.29236, 4.90742, + 4.22873, 5.10105, 5.29228, + 0.03606, 0.00537, 168.53088, 5.65957, 5.27486, + 4.60020, 5.46839, 5.65946 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + 0.02941, 0.00183, 3.94949, 0.42374, 0.03559, + 0.00000, 0.23020, 0.42431, + 0.03050, 0.00221, 8.57318, 0.55344, 0.16597, + 0.00000, 0.36025, 0.55393, + 0.03148, 0.00258, 14.10938, 0.71066, 0.32380, + 0.00000, 0.51778, 0.71107, + 0.03237, 0.00292, 20.23964, 0.88946, 0.50316, + 0.00000, 0.69687, 0.88981, + 0.03320, 0.00325, 26.93188, 1.08699, 0.70121, + 0.04209, 0.89467, 1.08729, + 0.03396, 0.00357, 34.05507, 1.30051, 0.91522, + 0.23417, 1.10844, 1.30076, + 0.03469, 0.00388, 41.52043, 1.52850, 1.14368, + 0.47344, 1.33668, 1.52870 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + 0.03538, 0.00417, 49.24931, 1.76894, 1.38456, + 0.72097, 1.57735, 1.76910, + 0.03603, 0.00446, 57.18089, 2.02001, 1.63606, + 0.97916, 1.82864, 2.02014, + 0.03665, 0.00474, 65.27330, 2.28041, 1.89686, + 1.24606, 2.08925, 2.28050, + 0.03725, 0.00502, 73.49934, 2.54917, 2.16600, + 1.52094, 2.35820, 2.54922, + 0.03783, 0.00529, 81.80083, 2.82466, 2.44187, + 1.80219, 2.63389, 2.82468, + 0.03838, 0.00555, 90.05473, 3.10367, 2.72124, + 2.08664, 2.91309, 3.10366, + 0.03891, 0.00580, 98.39052, 3.38887, 3.00679, + 2.37699, 3.19847, 3.38883 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + 0.03942, 0.00605, 106.74629, 3.67867, 3.29694, + 2.67168, 3.48845, 3.67861, + 0.03992, 0.00630, 114.97829, 3.96912, 3.58773, + 2.96679, 3.77908, 3.96905, + 0.04040, 0.00654, 123.30289, 4.26547, 3.88439, + 3.26757, 4.07559, 4.26536, + 0.04087, 0.00677, 131.43361, 4.56018, 4.17942, + 3.56652, 4.37047, 4.56006, + 0.04132, 0.00700, 139.62538, 4.85961, 4.47916, + 3.87001, 4.67006, 4.85947 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + 0.03229, 0.00231, 3.89704, 0.42051, 0.03407, + 0.00000, 0.22762, 0.42084, + 0.03350, 0.00277, 8.23885, 0.54318, 0.15756, + 0.00000, 0.35070, 0.54345, + 0.03458, 0.00321, 13.35069, 0.68995, 0.30507, + 0.00000, 0.49784, 0.69017, + 0.03557, 0.00362, 18.93910, 0.85517, 0.47098, + 0.00000, 0.66341, 0.85536, + 0.03649, 0.00402, 24.97672, 1.03614, 0.65258, + 0.03852, 0.84470, 1.03629, + 0.03734, 0.00440, 31.34653, 1.23034, 0.84737, + 0.21350, 1.03920, 1.23046, + 0.03814, 0.00477, 37.97078, 1.43638, 1.05396, + 0.43028, 1.24552, 1.43647 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + 0.03890, 0.00512, 44.78175, 1.65243, 1.27055, + 0.65319, 1.46184, 1.65250, + 0.03962, 0.00546, 51.72809, 1.87688, 1.49551, + 0.88451, 1.68655, 1.87693, + 0.04031, 0.00580, 58.77548, 2.10858, 1.72769, + 1.12249, 1.91850, 2.10861, + 0.04097, 0.00612, 65.90230, 2.34669, 1.96627, + 1.36652, 2.15685, 2.34670, + 0.04160, 0.00644, 73.05998, 2.58980, 2.20983, + 1.61519, 2.40019, 2.58980, + 0.04221, 0.00675, 80.14357, 2.83511, 2.45557, + 1.86575, 2.64571, 2.83509, + 0.04280, 0.00705, 87.26857, 3.08500, 2.70588, + 2.12062, 2.89582, 3.08496 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + 0.04336, 0.00734, 94.38304, 3.33811, 2.95939, + 2.37844, 3.14913, 3.33805, + 0.04391, 0.00763, 101.36421, 3.59099, 3.21267, + 2.63584, 3.40222, 3.59093, + 0.04444, 0.00791, 108.40167, 3.84828, 3.47035, + 2.89741, 3.65971, 3.84821, + 0.04496, 0.00819, 115.24945, 4.10343, 3.72587, + 3.15667, 3.91505, 4.10335, + 0.04545, 0.00846, 122.12920, 4.36202, 3.98482, + 3.41918, 4.17382, 4.36193 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + 0.03470, 0.00276, 3.85671, 0.41791, 0.03290, + 0.00000, 0.22560, 0.41809, + 0.03600, 0.00330, 7.98792, 0.53524, 0.15118, + 0.00000, 0.34340, 0.53539, + 0.03717, 0.00381, 12.78898, 0.67423, 0.29101, + 0.00000, 0.48281, 0.67435, + 0.03824, 0.00428, 17.98566, 0.82945, 0.44701, + 0.00000, 0.63843, 0.82955, + 0.03923, 0.00474, 23.55469, 0.99835, 0.61663, + 0.03592, 0.80769, 0.99843, + 0.04015, 0.00517, 29.38963, 1.17857, 0.79752, + 0.19855, 0.98825, 1.17864, + 0.04102, 0.00559, 35.42102, 1.36884, 0.98842, + 0.39916, 1.17884, 1.36889 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + 0.04184, 0.00600, 41.58891, 1.56747, 1.18766, + 0.60449, 1.37778, 1.56752, + 0.04262, 0.00639, 47.84892, 1.77301, 1.39377, + 0.81671, 1.58360, 1.77304, + 0.04336, 0.00677, 54.17197, 1.98441, 1.60572, + 1.03422, 1.79528, 1.98444, + 0.04407, 0.00714, 60.54033, 2.20094, 1.82278, + 1.25652, 2.01208, 2.20096, + 0.04475, 0.00750, 66.91216, 2.42134, 2.04369, + 1.48234, 2.23273, 2.42135, + 0.04541, 0.00785, 73.19493, 2.64308, 2.26592, + 1.70920, 2.45472, 2.64309, + 0.04604, 0.00819, 79.49432, 2.86836, 2.49168, + 1.93933, 2.68024, 2.86836 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + 0.04665, 0.00853, 85.76529, 3.09598, 2.71975, + 2.17155, 2.90809, 3.09597, + 0.04724, 0.00885, 91.89941, 3.32285, 2.94706, + 2.40281, 3.13518, 3.32284, + 0.04781, 0.00917, 98.06761, 3.55316, 3.17780, + 2.63730, 3.36571, 3.55315, + 0.04837, 0.00948, 104.05170, 3.78104, 3.40611, + 2.86919, 3.59381, 3.78103, + 0.04890, 0.00978, 110.05058, 4.01155, 3.63702, + 3.10353, 3.82452, 4.01153 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + 0.04319, 0.00481, 3.73301, 0.40917, 0.02934, + 0.00000, 0.21920, 0.40913, + 0.04484, 0.00566, 7.25156, 0.51059, 0.13209, + 0.00000, 0.32129, 0.51057, + 0.04632, 0.00645, 11.17987, 0.62704, 0.24974, + 0.00000, 0.43834, 0.62704, + 0.04768, 0.00719, 15.30139, 0.75396, 0.37776, + 0.00000, 0.56582, 0.75399, + 0.04893, 0.00789, 19.60672, 0.88928, 0.51408, + 0.02874, 0.70164, 0.88933, + 0.05009, 0.00855, 24.02007, 1.03116, 0.65691, + 0.15752, 0.84400, 1.03124, + 0.05118, 0.00919, 28.49510, 1.17867, 0.80531, + 0.31428, 0.99195, 1.17877 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + 0.05222, 0.00980, 32.99355, 1.33058, 0.95805, + 0.47242, 1.14428, 1.33069, + 0.05320, 0.01039, 37.48895, 1.48582, 1.11409, + 0.63383, 1.29992, 1.48595, + 0.05414, 0.01096, 41.96594, 1.64368, 1.27273, + 0.79737, 1.45817, 1.64384, + 0.05503, 0.01151, 46.41725, 1.80370, 1.43348, + 0.96273, 1.61855, 1.80387, + 0.05589, 0.01204, 50.81726, 1.96501, 1.59549, + 1.12906, 1.78021, 1.96520, + 0.05672, 0.01256, 55.10451, 2.12584, 1.75699, + 1.29465, 1.94138, 2.12604, + 0.05751, 0.01306, 59.35997, 2.28787, 1.91967, + 1.46118, 2.10373, 2.28808 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + 0.05827, 0.01355, 63.55490, 2.45029, 2.08273, + 1.62788, 2.26647, 2.45052, + 0.05901, 0.01402, 67.61636, 2.61094, 2.24398, + 1.79261, 2.42742, 2.61118, + 0.05973, 0.01448, 71.66826, 2.77291, 2.40654, + 1.95847, 2.58969, 2.77317, + 0.06042, 0.01493, 75.56110, 2.93205, 2.56626, + 2.12134, 2.74912, 2.93233, + 0.06109, 0.01537, 79.43605, 3.09204, 2.72681, + 2.28489, 2.90938, 3.09233 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + 0.05340, 0.00837, 3.61060, 0.39906, 0.02587, + 0.00000, 0.21238, 0.39904, + 0.05547, 0.00969, 6.57201, 0.48553, 0.11411, + 0.00000, 0.29975, 0.48556, + 0.05733, 0.01091, 9.74883, 0.58177, 0.21193, + 0.00000, 0.39679, 0.58183, + 0.05903, 0.01204, 12.97729, 0.68414, 0.31575, + 0.00000, 0.49989, 0.68424, + 0.06059, 0.01310, 16.26187, 0.79108, 0.42403, + 0.02274, 0.60751, 0.79122, + 0.06204, 0.01410, 19.55322, 0.90127, 0.53546, + 0.12360, 0.71833, 0.90145, + 0.06341, 0.01505, 22.82423, 1.01407, 0.64944, + 0.24474, 0.83172, 1.01428 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + 0.06471, 0.01596, 26.05367, 1.12863, 0.76511, + 0.36517, 0.94684, 1.12887, + 0.06594, 0.01684, 29.22864, 1.24424, 0.88177, + 0.48654, 1.06298, 1.24451, + 0.06711, 0.01767, 32.34377, 1.36046, 0.99899, + 0.60806, 1.17970, 1.36075, + 0.06823, 0.01848, 35.39905, 1.47701, 1.11651, + 0.72962, 1.29674, 1.47733, + 0.06931, 0.01926, 38.38046, 1.59335, 1.23376, + 0.85067, 1.41354, 1.59369, + 0.07034, 0.02001, 41.24855, 1.70825, 1.34955, + 0.97003, 1.52888, 1.70862, + 0.07133, 0.02074, 44.06503, 1.82302, 1.46517, + 1.08903, 1.64408, 1.82341 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + 0.07228, 0.02144, 46.81233, 1.93714, 1.58011, + 1.20716, 1.75861, 1.93755, + 0.07321, 0.02212, 49.44273, 2.04911, 1.69288, + 1.32297, 1.87097, 2.04954, + 0.07410, 0.02279, 52.04507, 2.16122, 1.80575, + 1.43873, 1.98347, 2.16166, + 0.07496, 0.02343, 54.51849, 2.27055, 1.91582, + 1.55156, 2.09316, 2.27101, + 0.07580, 0.02406, 56.96199, 2.37977, 2.02577, + 1.66414, 2.20275, 2.38025 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + 0.06029, 0.01156, 3.53868, 0.39225, 0.02388, + 0.00000, 0.20803, 0.39226, + 0.06264, 0.01325, 6.19576, 0.47040, 0.10409, + 0.00000, 0.28723, 0.47045, + 0.06476, 0.01481, 8.97954, 0.55578, 0.19132, + 0.00000, 0.37355, 0.55587, + 0.06670, 0.01625, 11.75466, 0.64532, 0.28255, + 0.00000, 0.46394, 0.64544, + 0.06848, 0.01759, 14.53299, 0.73774, 0.37652, + 0.01969, 0.55715, 0.73789, + 0.07014, 0.01885, 17.27850, 0.83198, 0.47220, + 0.10654, 0.65212, 0.83216, + 0.07170, 0.02005, 19.97362, 0.92757, 0.56915, + 0.21002, 0.74839, 0.92777 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + 0.07317, 0.02119, 22.60497, 1.02384, 0.66671, + 0.31199, 0.84531, 1.02407, + 0.07457, 0.02227, 25.16585, 1.12027, 0.76435, + 0.41398, 0.94235, 1.12051, + 0.07591, 0.02331, 27.65526, 1.21653, 0.86177, + 0.51538, 1.03919, 1.21679, + 0.07718, 0.02432, 30.07607, 1.31244, 0.95879, + 0.61614, 1.13567, 1.31273, + 0.07841, 0.02528, 32.41937, 1.40761, 1.05502, + 0.71586, 1.23136, 1.40791, + 0.07958, 0.02620, 34.65535, 1.50106, 1.14949, + 0.81364, 1.32533, 1.50138, + 0.08071, 0.02710, 36.83626, 1.59392, 1.24333, + 0.91060, 1.41868, 1.59426 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + 0.08179, 0.02796, 38.94960, 1.68579, 1.33615, + 1.00637, 1.51103, 1.68615, + 0.08284, 0.02879, 40.95848, 1.77549, 1.42676, + 1.09978, 1.60119, 1.77586, + 0.08385, 0.02961, 42.93570, 1.86493, 1.51708, + 1.19277, 1.69106, 1.86531, + 0.08484, 0.03039, 44.80157, 1.95174, 1.60474, + 1.28298, 1.77830, 1.95214, + 0.08579, 0.03115, 46.63640, 2.03814, 1.69197, + 1.37264, 1.86512, 2.03855 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + 0.06567, 0.01451, 3.48702, 0.38686, 0.02249, + 0.00000, 0.20468, 0.38687, + 0.06825, 0.01653, 5.93614, 0.45929, 0.09721, + 0.00000, 0.27827, 0.45933, + 0.07057, 0.01838, 8.45852, 0.53738, 0.17736, + 0.00000, 0.35741, 0.53744, + 0.07270, 0.02007, 10.93790, 0.61843, 0.26028, + 0.00000, 0.43941, 0.61851, + 0.07466, 0.02165, 13.39093, 0.70136, 0.34494, + 0.01772, 0.52321, 0.70147, + 0.07648, 0.02313, 15.79024, 0.78529, 0.43046, + 0.09552, 0.60795, 0.78541, + 0.07819, 0.02452, 18.12395, 0.86985, 0.51653, + 0.18770, 0.69327, 0.86999 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + 0.07981, 0.02585, 20.38364, 0.95450, 0.60260, + 0.27795, 0.77864, 0.95465, + 0.08135, 0.02712, 22.56622, 1.03882, 0.68826, + 0.36771, 0.86363, 1.03898, + 0.08281, 0.02832, 24.67316, 1.12256, 0.77328, + 0.45649, 0.94802, 1.12274, + 0.08421, 0.02948, 26.70900, 1.20561, 0.85755, + 0.54429, 1.03168, 1.20580, + 0.08555, 0.03059, 28.66769, 1.28764, 0.94075, + 0.63080, 1.11430, 1.28784, + 0.08684, 0.03166, 30.52516, 1.36785, 1.02209, + 0.71525, 1.19508, 1.36806, + 0.08808, 0.03269, 32.32776, 1.44725, 1.10257, + 0.79868, 1.27502, 1.44748 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + 0.08927, 0.03368, 34.06572, 1.52553, 1.18189, + 0.88078, 1.35382, 1.52576, + 0.09042, 0.03463, 35.70857, 1.60166, 1.25903, + 0.96057, 1.43046, 1.60191, + 0.09153, 0.03556, 37.31926, 1.67734, 1.33567, + 1.03973, 1.50663, 1.67759, + 0.09260, 0.03646, 38.83084, 1.75054, 1.40982, + 1.11628, 1.58030, 1.75081, + 0.09364, 0.03733, 40.31206, 1.82320, 1.48338, + 1.19213, 1.65341, 1.82346 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + 0.07032, 0.01730, 3.44586, 0.38199, 0.02144, + 0.00000, 0.20172, 0.38205, + 0.07312, 0.01960, 5.73444, 0.45009, 0.09204, + 0.00000, 0.27109, 0.45018, + 0.07564, 0.02169, 8.05824, 0.52273, 0.16693, + 0.00000, 0.34487, 0.52285, + 0.07794, 0.02361, 10.31600, 0.59748, 0.24373, + 0.00000, 0.42065, 0.59763, + 0.08005, 0.02539, 12.52815, 0.67342, 0.32154, + 0.01627, 0.49754, 0.67359, + 0.08203, 0.02705, 14.67377, 0.74980, 0.39967, + 0.08748, 0.57480, 0.75000, + 0.08388, 0.02861, 16.74510, 0.82631, 0.47781, + 0.17143, 0.65214, 0.82653 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + 0.08563, 0.03010, 18.73683, 0.90252, 0.55556, + 0.25319, 0.72912, 0.90275, + 0.08729, 0.03151, 20.64867, 0.97808, 0.63259, + 0.33414, 0.80542, 0.97834, + 0.08887, 0.03286, 22.48331, 1.05281, 0.70871, + 0.41384, 0.88085, 1.05308, + 0.09038, 0.03415, 24.24609, 1.12661, 0.78384, + 0.49234, 0.95532, 1.12689, + 0.09182, 0.03538, 25.93327, 1.19926, 0.85776, + 0.56942, 1.02861, 1.19956, + 0.09321, 0.03656, 27.52582, 1.27003, 0.92975, + 0.64439, 1.09999, 1.27035, + 0.09455, 0.03770, 29.06483, 1.33986, 1.00075, + 0.71820, 1.17041, 1.34019 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + 0.09583, 0.03879, 30.54247, 1.40849, 1.07050, + 0.79061, 1.23960, 1.40882, + 0.09707, 0.03985, 31.93173, 1.47504, 1.13814, + 0.86079, 1.30670, 1.47539, + 0.09826, 0.04087, 33.28932, 1.54104, 1.20518, + 0.93022, 1.37322, 1.54139, + 0.09942, 0.04185, 34.55812, 1.60469, 1.26984, + 0.99719, 1.43738, 1.60505, + 0.10054, 0.04281, 35.79784, 1.66771, 1.33385, + 1.06338, 1.50089, 1.66809 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + 0.08681, 0.02970, 3.31354, 0.36454, 0.01825, + 0.00000, 0.19141, 0.36456, + 0.09043, 0.03307, 5.13062, 0.41974, 0.07671, + 0.00000, 0.24826, 0.41979, + 0.09368, 0.03610, 6.89413, 0.47667, 0.13654, + 0.00000, 0.30666, 0.47673, + 0.09664, 0.03884, 8.54430, 0.53365, 0.19615, + 0.00000, 0.36496, 0.53374, + 0.09936, 0.04136, 10.11025, 0.59021, 0.25511, + 0.01230, 0.42274, 0.59031, + 0.10190, 0.04369, 11.58706, 0.64595, 0.31308, + 0.06555, 0.47961, 0.64607, + 0.10427, 0.04587, 12.97707, 0.70078, 0.37000, + 0.12737, 0.53549, 0.70092 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + 0.10651, 0.04792, 14.28305, 0.75450, 0.42568, + 0.18654, 0.59019, 0.75465, + 0.10863, 0.04986, 15.51007, 0.80696, 0.48000, + 0.24425, 0.64359, 0.80713, + 0.11065, 0.05169, 16.66443, 0.85812, 0.53292, + 0.30027, 0.69564, 0.85830, + 0.11258, 0.05343, 17.75340, 0.90800, 0.58447, + 0.35474, 0.74636, 0.90819, + 0.11441, 0.05509, 18.77751, 0.95651, 0.63458, + 0.40758, 0.79567, 0.95671, + 0.11617, 0.05667, 19.72649, 1.00321, 0.68281, + 0.45838, 0.84314, 1.00341, + 0.11786, 0.05818, 20.63014, 1.04880, 0.72987, + 0.50786, 0.88947, 1.04901 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + 0.11948, 0.05963, 21.48483, 1.09316, 0.77563, + 0.55592, 0.93453, 1.09338, + 0.12104, 0.06101, 22.27466, 1.13573, 0.81956, + 0.60203, 0.97778, 1.13596, + 0.12255, 0.06235, 23.03784, 1.17759, 0.86272, + 0.64727, 1.02030, 1.17782, + 0.12400, 0.06363, 23.73854, 1.21756, 0.90395, + 0.69048, 1.06090, 1.21780, + 0.12541, 0.06487, 24.41621, 1.25684, 0.94445, + 0.73287, 1.10079, 1.25709 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + 0.10805, 0.05037, 3.16801, 0.34141, 0.01521, + 0.00002, 0.17832, 0.34146, + 0.11285, 0.05507, 4.54812, 0.38458, 0.06251, + 0.00002, 0.22358, 0.38466, + 0.11716, 0.05923, 5.82263, 0.42748, 0.10910, + 0.00001, 0.26834, 0.42759, + 0.12106, 0.06295, 6.96601, 0.46912, 0.15405, + 0.00002, 0.31165, 0.46926, + 0.12464, 0.06632, 8.01228, 0.50941, 0.19736, + 0.00905, 0.35346, 0.50957, + 0.12794, 0.06940, 8.96691, 0.54822, 0.23895, + 0.04768, 0.39367, 0.54840, + 0.13103, 0.07226, 9.83846, 0.58560, 0.27893, + 0.09177, 0.43236, 0.58579 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + 0.13394, 0.07492, 10.63628, 0.62156, 0.31732, + 0.13317, 0.46954, 0.62176, + 0.13668, 0.07741, 11.36589, 0.65607, 0.35412, + 0.17288, 0.50520, 0.65628, + 0.13927, 0.07974, 12.03519, 0.68919, 0.38941, + 0.21083, 0.53940, 0.68940, + 0.14173, 0.08194, 12.65259, 0.72099, 0.42327, + 0.24719, 0.57224, 0.72121, + 0.14407, 0.08403, 13.22074, 0.75146, 0.45568, + 0.28195, 0.60369, 0.75168, + 0.14631, 0.08598, 13.73528, 0.78040, 0.48649, + 0.31496, 0.63357, 0.78063, + 0.14845, 0.08784, 14.21533, 0.80833, 0.51621, + 0.34675, 0.66240, 0.80858 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + 0.15050, 0.08962, 14.65937, 0.83520, 0.54478, + 0.37729, 0.69012, 0.83546, + 0.15246, 0.09131, 15.06073, 0.86062, 0.57184, + 0.40621, 0.71636, 0.86087, + 0.15434, 0.09293, 15.44333, 0.88537, 0.59817, + 0.43431, 0.74190, 0.88562, + 0.15616, 0.09447, 15.78525, 0.90874, 0.62305, + 0.46089, 0.76603, 0.90899, + 0.15791, 0.09595, 16.11134, 0.93149, 0.64728, + 0.48672, 0.78952, 0.93175 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + 0.12366, 0.06804, 3.07186, 0.32476, 0.01349, + 0.00001, 0.16913, 0.32477, + 0.12941, 0.07356, 4.21376, 0.36128, 0.05469, + 0.00003, 0.20801, 0.36133, + 0.13453, 0.07840, 5.23497, 0.39672, 0.09429, + 0.00001, 0.24554, 0.39680, + 0.13915, 0.08267, 6.12600, 0.43046, 0.13175, + 0.00003, 0.28116, 0.43054, + 0.14335, 0.08652, 6.92145, 0.46254, 0.16722, + 0.00743, 0.31495, 0.46264, + 0.14724, 0.09001, 7.63109, 0.49297, 0.20077, + 0.03887, 0.34695, 0.49309, + 0.15085, 0.09321, 8.26689, 0.52189, 0.23258, + 0.07437, 0.37732, 0.52202 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + 0.15423, 0.09619, 8.83561, 0.54935, 0.26275, + 0.10729, 0.40614, 0.54948, + 0.15741, 0.09894, 9.34709, 0.57539, 0.29134, + 0.13852, 0.43346, 0.57553, + 0.16041, 0.10151, 9.80844, 0.60012, 0.31848, + 0.16808, 0.45940, 0.60026, + 0.16325, 0.10393, 10.22624, 0.62365, 0.34428, + 0.19616, 0.48407, 0.62379, + 0.16593, 0.10619, 10.60383, 0.64597, 0.36877, + 0.22278, 0.50748, 0.64614, + 0.16848, 0.10831, 10.93835, 0.66693, 0.39178, + 0.24780, 0.52947, 0.66710, + 0.17092, 0.11031, 11.24630, 0.68700, 0.41381, + 0.27170, 0.55051, 0.68716 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + 0.17324, 0.11221, 11.52735, 0.70614, 0.43483, + 0.29450, 0.57060, 0.70631, + 0.17546, 0.11400, 11.77610, 0.72410, 0.45459, + 0.31595, 0.58945, 0.72428, + 0.17760, 0.11572, 12.01053, 0.74148, 0.47370, + 0.33667, 0.60770, 0.74167, + 0.17963, 0.11734, 12.21411, 0.75770, 0.49159, + 0.35608, 0.62475, 0.75789, + 0.18160, 0.11890, 12.40637, 0.77341, 0.50890, + 0.37485, 0.64127, 0.77360 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + 0.13690, 0.08377, 2.99614, 0.31124, 0.01229, + 0.00001, 0.16177, 0.31128, + 0.14344, 0.08982, 3.97682, 0.34321, 0.04934, + 0.00002, 0.19630, 0.34329, + 0.14924, 0.09509, 4.83251, 0.37369, 0.08430, + 0.00001, 0.22904, 0.37380, + 0.15445, 0.09970, 5.56287, 0.40225, 0.11688, + 0.00003, 0.25962, 0.40237, + 0.15918, 0.10382, 6.20227, 0.42906, 0.14732, + 0.00640, 0.28826, 0.42919, + 0.16352, 0.10753, 6.76239, 0.45419, 0.17580, + 0.03328, 0.31506, 0.45433, + 0.16755, 0.11092, 7.25574, 0.47780, 0.20251, + 0.06340, 0.34023, 0.47796 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + 0.17129, 0.11404, 7.68960, 0.50000, 0.22761, + 0.09107, 0.36388, 0.50015, + 0.17481, 0.11692, 8.07348, 0.52085, 0.25118, + 0.11709, 0.38610, 0.52101, + 0.17812, 0.11959, 8.41432, 0.54048, 0.27337, + 0.14155, 0.40701, 0.54064, + 0.18124, 0.12208, 8.71826, 0.55900, 0.29431, + 0.16461, 0.42675, 0.55916, + 0.18417, 0.12441, 8.98860, 0.57644, 0.31405, + 0.18633, 0.44534, 0.57661, + 0.18696, 0.12657, 9.22349, 0.59267, 0.33246, + 0.20660, 0.46266, 0.59284, + 0.18961, 0.12861, 9.43674, 0.60809, 0.34997, + 0.22585, 0.47913, 0.60827 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + 0.19213, 0.13054, 9.62837, 0.62272, 0.36658, + 0.24411, 0.49474, 0.62289, + 0.19453, 0.13234, 9.79422, 0.63631, 0.38208, + 0.26118, 0.50929, 0.63650, + 0.19684, 0.13406, 9.94882, 0.64941, 0.39701, + 0.27759, 0.52330, 0.64961, + 0.19903, 0.13568, 10.07921, 0.66153, 0.41088, + 0.29288, 0.53629, 0.66172, + 0.20114, 0.13723, 10.20098, 0.67321, 0.42425, + 0.30760, 0.54882, 0.67339 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + 0.14876, 0.09806, 2.93193, 0.29978, 0.01138, + 0.00003, 0.15559, 0.29985, + 0.15599, 0.10446, 3.79241, 0.32833, 0.04530, + 0.00003, 0.18685, 0.32841, + 0.16239, 0.10998, 4.52823, 0.35515, 0.07686, + 0.00004, 0.21605, 0.35528, + 0.16808, 0.11479, 5.14390, 0.37995, 0.10588, + 0.00004, 0.24296, 0.38006, + 0.17325, 0.11904, 5.67441, 0.40296, 0.13273, + 0.00567, 0.26790, 0.40308, + 0.17798, 0.12287, 6.13175, 0.42431, 0.15760, + 0.02933, 0.29102, 0.42446, + 0.18233, 0.12635, 6.52844, 0.44421, 0.18075, + 0.05567, 0.31255, 0.44437 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + 0.18638, 0.12951, 6.87192, 0.46275, 0.20232, + 0.07967, 0.33261, 0.46292, + 0.19018, 0.13241, 7.17072, 0.48001, 0.22242, + 0.10209, 0.35130, 0.48019, + 0.19372, 0.13509, 7.43224, 0.49612, 0.24121, + 0.12301, 0.36876, 0.49630, + 0.19704, 0.13759, 7.66248, 0.51122, 0.25883, + 0.14262, 0.38511, 0.51138, + 0.20015, 0.13992, 7.86430, 0.52533, 0.27533, + 0.16099, 0.40042, 0.52548, + 0.20312, 0.14205, 8.03505, 0.53837, 0.29064, + 0.17804, 0.41459, 0.53853, + 0.20594, 0.14407, 8.18813, 0.55068, 0.30512, + 0.19417, 0.42799, 0.55085 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + 0.20860, 0.14596, 8.32394, 0.56228, 0.31878, + 0.20939, 0.44062, 0.56243, + 0.21113, 0.14773, 8.43829, 0.57299, 0.33146, + 0.22355, 0.45231, 0.57314, + 0.21356, 0.14941, 8.54348, 0.58325, 0.34362, + 0.23710, 0.46352, 0.58342, + 0.21585, 0.15097, 8.62821, 0.59264, 0.35484, + 0.24965, 0.47383, 0.59281, + 0.21807, 0.15247, 8.70650, 0.60166, 0.36562, + 0.26169, 0.48374, 0.60184 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + 0.19893, 0.15544, 2.68535, 0.25861, 0.00859, + 0.00002, 0.13359, 0.25863, + 0.20861, 0.16209, 3.20192, 0.27716, 0.03331, + 0.00003, 0.15523, 0.27716, + 0.21699, 0.16764, 3.61007, 0.29363, 0.05519, + 0.00001, 0.17443, 0.29364, + 0.22435, 0.17227, 3.92668, 0.30805, 0.07445, + 0.00002, 0.19128, 0.30810, + 0.23088, 0.17629, 4.17998, 0.32090, 0.09162, + 0.00369, 0.20630, 0.32096, + 0.23673, 0.17977, 4.38400, 0.33235, 0.10703, + 0.01878, 0.21974, 0.33243, + 0.24204, 0.18286, 4.54719, 0.34262, 0.12093, + 0.03523, 0.23183, 0.34268 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + 0.24689, 0.18560, 4.67801, 0.35183, 0.13351, + 0.04982, 0.24271, 0.35188, + 0.25137, 0.18801, 4.78318, 0.36010, 0.14494, + 0.06313, 0.25257, 0.36016, + 0.25550, 0.19019, 4.86669, 0.36756, 0.15535, + 0.07527, 0.26150, 0.36762, + 0.25932, 0.19218, 4.93266, 0.37431, 0.16489, + 0.08641, 0.26964, 0.37437, + 0.26290, 0.19396, 4.98391, 0.38041, 0.17363, + 0.09666, 0.27706, 0.38049, + 0.26618, 0.19558, 5.02071, 0.38586, 0.18156, + 0.10599, 0.28376, 0.38591, + 0.26927, 0.19706, 5.04895, 0.39085, 0.18891, + 0.11467, 0.28994, 0.39090 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + 0.27218, 0.19841, 5.06879, 0.39539, 0.19570, + 0.12271, 0.29561, 0.39546, + 0.27488, 0.19962, 5.07871, 0.39941, 0.20186, + 0.13004, 0.30069, 0.39948, + 0.27745, 0.20075, 5.08545, 0.40317, 0.20767, + 0.13697, 0.30548, 0.40326, + 0.27982, 0.20178, 5.08372, 0.40647, 0.21292, + 0.14326, 0.30974, 0.40652, + 0.28208, 0.20275, 5.08013, 0.40956, 0.21789, + 0.14923, 0.31377, 0.40960 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + 0.28323, 0.23020, 2.32789, 0.20943, 0.00581, + -0.00013, 0.10753, 0.20930, + 0.29472, 0.23441, 2.55412, 0.21891, 0.02210, + -0.00012, 0.12043, 0.21882, + 0.30420, 0.23765, 2.70850, 0.22665, 0.03571, + -0.00009, 0.13109, 0.22649, + 0.31224, 0.24004, 2.80796, 0.23279, 0.04705, + -0.00010, 0.13985, 0.23267, + 0.31916, 0.24185, 2.87312, 0.23779, 0.05674, + 0.00201, 0.14722, 0.23771, + 0.32512, 0.24330, 2.91302, 0.24193, 0.06507, + 0.01059, 0.15344, 0.24177, + 0.33036, 0.24438, 2.93383, 0.24526, 0.07228, + 0.01972, 0.15873, 0.24517 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + 0.33496, 0.24519, 2.94055, 0.24804, 0.07859, + 0.02757, 0.16325, 0.24790, + 0.33911, 0.24576, 2.93646, 0.25022, 0.08412, + 0.03451, 0.16712, 0.25012, + 0.34279, 0.24618, 2.92475, 0.25198, 0.08898, + 0.04067, 0.17044, 0.25191, + 0.34604, 0.24648, 2.90766, 0.25343, 0.09330, + 0.04619, 0.17331, 0.25333, + 0.34903, 0.24662, 2.88592, 0.25452, 0.09714, + 0.05113, 0.17579, 0.25445, + 0.35168, 0.24661, 2.85969, 0.25531, 0.10048, + 0.05553, 0.17785, 0.25521, + 0.35408, 0.24656, 2.83185, 0.25591, 0.10349, + 0.05950, 0.17965, 0.25578 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + 0.35624, 0.24647, 2.80239, 0.25632, 0.10618, + 0.06307, 0.18119, 0.25617, + 0.35819, 0.24625, 2.77069, 0.25649, 0.10854, + 0.06630, 0.18244, 0.25634, + 0.36002, 0.24601, 2.73959, 0.25659, 0.11071, + 0.06931, 0.18357, 0.25645, + 0.36162, 0.24569, 2.70671, 0.25645, 0.11255, + 0.07194, 0.18445, 0.25638, + 0.36312, 0.24537, 2.67463, 0.25629, 0.11427, + 0.07440, 0.18524, 0.25623 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + 0.35669, 0.27477, 2.04288, 0.17706, 0.00442, + 0.00001, 0.09068, 0.17695, + 0.36735, 0.27551, 2.13345, 0.18179, 0.01625, + 0.00003, 0.09901, 0.18171, + 0.37578, 0.27561, 2.17803, 0.18518, 0.02567, + 0.00000, 0.10545, 0.18523, + 0.38250, 0.27525, 2.19021, 0.18747, 0.03337, + -0.00004, 0.11042, 0.18742, + 0.38800, 0.27452, 2.18454, 0.18905, 0.03966, + 0.00144, 0.11436, 0.18900, + 0.39246, 0.27367, 2.16673, 0.19004, 0.04487, + 0.00708, 0.11746, 0.19000, + 0.39623, 0.27261, 2.14048, 0.19057, 0.04933, + 0.01303, 0.11996, 0.19056 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + 0.39935, 0.27143, 2.10900, 0.19077, 0.05311, + 0.01800, 0.12191, 0.19066, + 0.40194, 0.27015, 2.07380, 0.19067, 0.05630, + 0.02231, 0.12346, 0.19050, + 0.40416, 0.26877, 2.03669, 0.19031, 0.05903, + 0.02610, 0.12467, 0.19022, + 0.40606, 0.26733, 1.99883, 0.18977, 0.06140, + 0.02944, 0.12558, 0.18978, + 0.40757, 0.26593, 1.96039, 0.18914, 0.06343, + 0.03230, 0.12628, 0.18907, + 0.40879, 0.26450, 1.92139, 0.18833, 0.06513, + 0.03484, 0.12673, 0.18830, + 0.40980, 0.26306, 1.88338, 0.18746, 0.06662, + 0.03711, 0.12705, 0.18746 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + 0.41063, 0.26161, 1.84621, 0.18653, 0.06792, + 0.03912, 0.12725, 0.18654, + 0.41121, 0.26015, 1.80925, 0.18550, 0.06901, + 0.04085, 0.12728, 0.18547, + 0.41170, 0.25874, 1.77396, 0.18447, 0.07000, + 0.04244, 0.12726, 0.18441, + 0.41195, 0.25734, 1.73879, 0.18336, 0.07079, + 0.04384, 0.12710, 0.18328, + 0.41216, 0.25597, 1.70527, 0.18228, 0.07151, + 0.04513, 0.12691, 0.18218 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + 0.42071, 0.30069, 1.79822, 0.15205, 0.00343, + 0.00006, 0.07779, 0.15205, + 0.42871, 0.29807, 1.81193, 0.15379, 0.01240, + 0.00005, 0.08313, 0.15382, + 0.43466, 0.29519, 1.79822, 0.15460, 0.01937, + 0.00006, 0.08703, 0.15457, + 0.43881, 0.29222, 1.76751, 0.15469, 0.02475, + 0.00004, 0.08979, 0.15472, + 0.44194, 0.28918, 1.72906, 0.15436, 0.02912, + 0.00108, 0.09177, 0.15438, + 0.44420, 0.28618, 1.68630, 0.15366, 0.03262, + 0.00510, 0.09320, 0.15375, + 0.44577, 0.28321, 1.64136, 0.15272, 0.03556, + 0.00923, 0.09421, 0.15279 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + 0.44677, 0.28028, 1.59578, 0.15163, 0.03799, + 0.01259, 0.09486, 0.15169, + 0.44736, 0.27739, 1.55051, 0.15043, 0.03997, + 0.01548, 0.09524, 0.15049, + 0.44761, 0.27455, 1.50624, 0.14912, 0.04161, + 0.01797, 0.09542, 0.14916, + 0.44759, 0.27180, 1.46346, 0.14774, 0.04299, + 0.02013, 0.09543, 0.14776, + 0.44729, 0.26910, 1.42223, 0.14635, 0.04414, + 0.02199, 0.09529, 0.14642, + 0.44679, 0.26646, 1.38219, 0.14489, 0.04510, + 0.02358, 0.09504, 0.14494, + 0.44614, 0.26392, 1.34416, 0.14343, 0.04591, + 0.02497, 0.09473, 0.14346 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + 0.44533, 0.26148, 1.30786, 0.14196, 0.04659, + 0.02618, 0.09434, 0.14198, + 0.44434, 0.25908, 1.27284, 0.14052, 0.04710, + 0.02724, 0.09386, 0.14050, + 0.44333, 0.25678, 1.23987, 0.13913, 0.04754, + 0.02820, 0.09336, 0.13908, + 0.44225, 0.25444, 1.20796, 0.13763, 0.04788, + 0.02900, 0.09280, 0.13764, + 0.44116, 0.25219, 1.17785, 0.13619, 0.04816, + 0.02972, 0.09224, 0.13625 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + 0.47517, 0.31408, 1.58334, 0.13110, 0.00271, + 0.00007, 0.06694, 0.13115, + 0.47940, 0.30840, 1.55044, 0.13095, 0.00959, + 0.00007, 0.07028, 0.13090, + 0.48192, 0.30286, 1.50408, 0.13010, 0.01480, + 0.00006, 0.07253, 0.13009, + 0.48294, 0.29756, 1.45096, 0.12889, 0.01881, + 0.00006, 0.07385, 0.12884, + 0.48314, 0.29253, 1.39691, 0.12737, 0.02190, + 0.00082, 0.07470, 0.12744, + 0.48262, 0.28783, 1.34365, 0.12583, 0.02434, + 0.00375, 0.07510, 0.12585, + 0.48164, 0.28328, 1.29186, 0.12413, 0.02636, + 0.00671, 0.07523, 0.12413 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + 0.48024, 0.27894, 1.24220, 0.12240, 0.02793, + 0.00908, 0.07518, 0.12232, + 0.47858, 0.27479, 1.19502, 0.12060, 0.02921, + 0.01106, 0.07493, 0.12060, + 0.47669, 0.27080, 1.15044, 0.11882, 0.03024, + 0.01277, 0.07455, 0.11887, + 0.47462, 0.26698, 1.10852, 0.11709, 0.03108, + 0.01427, 0.07410, 0.11711, + 0.47246, 0.26327, 1.06908, 0.11535, 0.03180, + 0.01552, 0.07359, 0.11538, + 0.47014, 0.25974, 1.03167, 0.11364, 0.03232, + 0.01651, 0.07302, 0.11363, + 0.46779, 0.25635, 0.99670, 0.11199, 0.03273, + 0.01740, 0.07242, 0.11196 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + 0.46542, 0.25309, 0.96384, 0.11036, 0.03305, + 0.01822, 0.07178, 0.11039, + 0.46299, 0.24991, 0.93268, 0.10873, 0.03329, + 0.01887, 0.07109, 0.10880, + 0.46059, 0.24689, 0.90360, 0.10718, 0.03350, + 0.01945, 0.07041, 0.10727, + 0.45793, 0.24403, 0.87593, 0.10571, 0.03359, + 0.01993, 0.06970, 0.10575, + 0.45538, 0.24128, 0.85001, 0.10429, 0.03367, + 0.02036, 0.06901, 0.10428 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + 0.52950, 0.31854, 1.34867, 0.10871, 0.00208, + 0.00009, 0.05543, 0.10865, + 0.52837, 0.30934, 1.28265, 0.10692, 0.00713, + 0.00009, 0.05710, 0.10695, + 0.52591, 0.30108, 1.21518, 0.10494, 0.01088, + 0.00010, 0.05793, 0.10492, + 0.52253, 0.29348, 1.14948, 0.10275, 0.01365, + 0.00010, 0.05824, 0.10279, + 0.51867, 0.28657, 1.08813, 0.10064, 0.01577, + 0.00058, 0.05818, 0.10052, + 0.51467, 0.27997, 1.03129, 0.09837, 0.01739, + 0.00263, 0.05795, 0.09843, + 0.51034, 0.27392, 0.97867, 0.09626, 0.01862, + 0.00464, 0.05752, 0.09636 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + 0.50593, 0.26819, 0.93011, 0.09419, 0.01960, + 0.00627, 0.05695, 0.09433, + 0.50138, 0.26284, 0.88531, 0.09220, 0.02037, + 0.00759, 0.05633, 0.09229, + 0.49682, 0.25780, 0.84407, 0.09029, 0.02096, + 0.00869, 0.05568, 0.09030, + 0.49234, 0.25302, 0.80612, 0.08841, 0.02142, + 0.00965, 0.05498, 0.08843, + 0.48793, 0.24846, 0.77108, 0.08654, 0.02177, + 0.01044, 0.05424, 0.08670, + 0.48341, 0.24415, 0.73850, 0.08483, 0.02203, + 0.01111, 0.05350, 0.08488, + 0.47900, 0.24008, 0.70846, 0.08319, 0.02223, + 0.01166, 0.05276, 0.08318 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + 0.47468, 0.23620, 0.68065, 0.08158, 0.02235, + 0.01210, 0.05200, 0.08162, + 0.47040, 0.23245, 0.65463, 0.08004, 0.02241, + 0.01248, 0.05131, 0.08000, + 0.46627, 0.22889, 0.63058, 0.07859, 0.02244, + 0.01282, 0.05066, 0.07846, + 0.46208, 0.22546, 0.60800, 0.07720, 0.02243, + 0.01308, 0.04995, 0.07700, + 0.45806, 0.22219, 0.58700, 0.07585, 0.02241, + 0.01331, 0.04925, 0.07565 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + 0.56945, 0.31316, 1.14602, 0.08933, 0.00163, + 0.00013, 0.04557, 0.08933, + 0.56238, 0.30136, 1.06317, 0.08666, 0.00534, + 0.00014, 0.04615, 0.08689, + 0.55469, 0.29100, 0.98714, 0.08407, 0.00805, + 0.00019, 0.04615, 0.08434, + 0.54676, 0.28176, 0.91811, 0.08163, 0.00998, + 0.00012, 0.04587, 0.08168, + 0.53902, 0.27326, 0.85648, 0.07919, 0.01145, + 0.00049, 0.04538, 0.07925, + 0.53141, 0.26552, 0.80148, 0.07684, 0.01257, + 0.00194, 0.04478, 0.07691, + 0.52383, 0.25847, 0.75199, 0.07470, 0.01335, + 0.00333, 0.04406, 0.07471 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + 0.51645, 0.25186, 0.70743, 0.07256, 0.01397, + 0.00445, 0.04329, 0.07264, + 0.50929, 0.24570, 0.66719, 0.07053, 0.01444, + 0.00535, 0.04256, 0.07060, + 0.50231, 0.23998, 0.63080, 0.06865, 0.01478, + 0.00607, 0.04179, 0.06870, + 0.49551, 0.23463, 0.59783, 0.06690, 0.01501, + 0.00666, 0.04102, 0.06692, + 0.48895, 0.22958, 0.56777, 0.06526, 0.01519, + 0.00719, 0.04032, 0.06510, + 0.48257, 0.22473, 0.54020, 0.06362, 0.01528, + 0.00758, 0.03955, 0.06353, + 0.47647, 0.22015, 0.51506, 0.06207, 0.01534, + 0.00793, 0.03881, 0.06204 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + 0.47062, 0.21582, 0.49201, 0.06060, 0.01537, + 0.00828, 0.03808, 0.06060, + 0.46477, 0.21177, 0.47070, 0.05919, 0.01536, + 0.00850, 0.03736, 0.05926, + 0.45915, 0.20796, 0.45114, 0.05786, 0.01533, + 0.00868, 0.03668, 0.05798, + 0.45355, 0.20433, 0.43296, 0.05668, 0.01530, + 0.00883, 0.03604, 0.05660, + 0.44825, 0.20086, 0.41617, 0.05554, 0.01524, + 0.00896, 0.03543, 0.05535 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + 0.59554, 0.30156, 0.97029, 0.07265, 0.00121, + 0.00001, 0.03693, 0.07262, + 0.58250, 0.28772, 0.88081, 0.06966, 0.00404, + 0.00005, 0.03691, 0.06975, + 0.56974, 0.27593, 0.80328, 0.06703, 0.00602, + 0.00007, 0.03650, 0.06687, + 0.55766, 0.26530, 0.73595, 0.06429, 0.00745, + 0.00005, 0.03595, 0.06432, + 0.54624, 0.25579, 0.67774, 0.06183, 0.00845, + 0.00026, 0.03521, 0.06195, + 0.53531, 0.24725, 0.62694, 0.05960, 0.00917, + 0.00128, 0.03447, 0.05969, + 0.52499, 0.23944, 0.58226, 0.05742, 0.00973, + 0.00237, 0.03380, 0.05752 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + 0.51499, 0.23228, 0.54281, 0.05545, 0.01009, + 0.00318, 0.03303, 0.05558, + 0.50536, 0.22571, 0.50770, 0.05369, 0.01038, + 0.00385, 0.03223, 0.05372, + 0.49625, 0.21958, 0.47636, 0.05200, 0.01058, + 0.00435, 0.03144, 0.05200, + 0.48763, 0.21382, 0.44831, 0.05037, 0.01071, + 0.00472, 0.03069, 0.05044, + 0.47939, 0.20842, 0.42303, 0.04881, 0.01084, + 0.00507, 0.03001, 0.04892, + 0.47151, 0.20326, 0.40022, 0.04736, 0.01082, + 0.00537, 0.02929, 0.04760, + 0.46390, 0.19852, 0.37952, 0.04606, 0.01081, + 0.00561, 0.02862, 0.04627 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + 0.45649, 0.19419, 0.36061, 0.04488, 0.01084, + 0.00582, 0.02798, 0.04491, + 0.44941, 0.18999, 0.34345, 0.04371, 0.01085, + 0.00594, 0.02734, 0.04366, + 0.44270, 0.18602, 0.32779, 0.04260, 0.01084, + 0.00603, 0.02672, 0.04251, + 0.43626, 0.18213, 0.31326, 0.04144, 0.01070, + 0.00607, 0.02616, 0.04157, + 0.43009, 0.17850, 0.29989, 0.04038, 0.01059, + 0.00612, 0.02563, 0.04062 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + 0.60920, 0.28546, 0.81835, 0.05833, 0.00093, + 0.00002, 0.02962, 0.05824, + 0.59047, 0.27037, 0.72857, 0.05539, 0.00304, + 0.00000, 0.02920, 0.05531, + 0.57325, 0.25744, 0.65389, 0.05255, 0.00446, + -0.00009, 0.02856, 0.05273, + 0.55714, 0.24614, 0.59091, 0.05022, 0.00541, + 0.00013, 0.02794, 0.05010, + 0.54233, 0.23616, 0.53783, 0.04791, 0.00613, + 0.00032, 0.02711, 0.04796, + 0.52858, 0.22721, 0.49241, 0.04588, 0.00667, + 0.00103, 0.02636, 0.04583, + 0.51565, 0.21909, 0.45331, 0.04408, 0.00698, + 0.00177, 0.02554, 0.04397 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + 0.50354, 0.21156, 0.41904, 0.04226, 0.00723, + 0.00224, 0.02483, 0.04230, + 0.49217, 0.20464, 0.38898, 0.04064, 0.00743, + 0.00264, 0.02412, 0.04066, + 0.48136, 0.19835, 0.36246, 0.03917, 0.00758, + 0.00299, 0.02342, 0.03912, + 0.47113, 0.19253, 0.33901, 0.03776, 0.00768, + 0.00329, 0.02275, 0.03776, + 0.46155, 0.18701, 0.31826, 0.03641, 0.00768, + 0.00356, 0.02209, 0.03657, + 0.45228, 0.18197, 0.29932, 0.03527, 0.00763, + 0.00372, 0.02151, 0.03533, + 0.44350, 0.17725, 0.28233, 0.03420, 0.00762, + 0.00383, 0.02094, 0.03417 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + 0.43515, 0.17282, 0.26705, 0.03317, 0.00763, + 0.00390, 0.02039, 0.03308, + 0.42715, 0.16864, 0.25327, 0.03215, 0.00756, + 0.00400, 0.01985, 0.03215, + 0.41958, 0.16472, 0.24075, 0.03120, 0.00747, + 0.00410, 0.01936, 0.03129, + 0.41225, 0.16098, 0.22923, 0.03038, 0.00739, + 0.00416, 0.01887, 0.03040, + 0.40532, 0.15745, 0.21872, 0.02957, 0.00732, + 0.00422, 0.01842, 0.02957 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + 0.61167, 0.26658, 0.68716, 0.04622, 0.00066, + 0.00008, 0.02335, 0.04610, + 0.58779, 0.25079, 0.60099, 0.04349, 0.00220, + 0.00007, 0.02286, 0.04325, + 0.56655, 0.23720, 0.53134, 0.04095, 0.00333, + 0.00006, 0.02218, 0.04079, + 0.54719, 0.22554, 0.47441, 0.03869, 0.00406, + 0.00010, 0.02137, 0.03864, + 0.52968, 0.21515, 0.42700, 0.03674, 0.00448, + 0.00024, 0.02067, 0.03671, + 0.51350, 0.20607, 0.38731, 0.03492, 0.00485, + 0.00076, 0.01993, 0.03495, + 0.49843, 0.19801, 0.35331, 0.03334, 0.00515, + 0.00126, 0.01917, 0.03325 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + 0.48448, 0.19053, 0.32420, 0.03189, 0.00528, + 0.00162, 0.01854, 0.03177, + 0.47156, 0.18363, 0.29893, 0.03052, 0.00533, + 0.00191, 0.01794, 0.03044, + 0.45949, 0.17731, 0.27680, 0.02925, 0.00536, + 0.00217, 0.01737, 0.02923, + 0.44815, 0.17151, 0.25732, 0.02808, 0.00540, + 0.00238, 0.01681, 0.02809, + 0.43744, 0.16620, 0.24006, 0.02709, 0.00545, + 0.00248, 0.01628, 0.02692, + 0.42738, 0.16112, 0.22481, 0.02604, 0.00541, + 0.00257, 0.01576, 0.02604, + 0.41785, 0.15646, 0.21120, 0.02509, 0.00536, + 0.00267, 0.01527, 0.02519 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + 0.40877, 0.15219, 0.19898, 0.02426, 0.00533, + 0.00278, 0.01481, 0.02432, + 0.40007, 0.14817, 0.18792, 0.02353, 0.00528, + 0.00281, 0.01442, 0.02344, + 0.39188, 0.14442, 0.17792, 0.02284, 0.00523, + 0.00283, 0.01404, 0.02262, + 0.38407, 0.14082, 0.16877, 0.02215, 0.00519, + 0.00285, 0.01360, 0.02195, + 0.37669, 0.13742, 0.16047, 0.02149, 0.00513, + 0.00286, 0.01321, 0.02132 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + 0.60437, 0.24598, 0.57404, 0.03602, 0.00047, + 0.00006, 0.01827, 0.03595, + 0.57622, 0.22978, 0.49400, 0.03352, 0.00168, + 0.00021, 0.01762, 0.03348, + 0.55148, 0.21607, 0.43060, 0.03138, 0.00248, + 0.00010, 0.01701, 0.03121, + 0.52933, 0.20437, 0.37984, 0.02946, 0.00305, + 0.00012, 0.01624, 0.02933, + 0.50961, 0.19397, 0.33841, 0.02772, 0.00334, + 0.00022, 0.01559, 0.02773, + 0.49165, 0.18491, 0.30410, 0.02614, 0.00365, + 0.00055, 0.01500, 0.02622, + 0.47520, 0.17678, 0.27527, 0.02485, 0.00377, + 0.00094, 0.01439, 0.02488 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + 0.45973, 0.16965, 0.25076, 0.02376, 0.00384, + 0.00121, 0.01382, 0.02359, + 0.44568, 0.16293, 0.22973, 0.02259, 0.00391, + 0.00137, 0.01326, 0.02257, + 0.43260, 0.15684, 0.21139, 0.02159, 0.00394, + 0.00151, 0.01277, 0.02154, + 0.42028, 0.15137, 0.19537, 0.02079, 0.00393, + 0.00165, 0.01234, 0.02051, + 0.40880, 0.14629, 0.18153, 0.02000, 0.00391, + 0.00176, 0.01186, 0.01965, + 0.39823, 0.14145, 0.16924, 0.01909, 0.00390, + 0.00184, 0.01148, 0.01888, + 0.38824, 0.13701, 0.15830, 0.01830, 0.00386, + 0.00189, 0.01111, 0.01818 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + 0.37870, 0.13294, 0.14850, 0.01765, 0.00378, + 0.00194, 0.01075, 0.01755, + 0.36977, 0.12903, 0.13980, 0.01700, 0.00371, + 0.00198, 0.01037, 0.01698, + 0.36140, 0.12539, 0.13197, 0.01639, 0.00364, + 0.00200, 0.01002, 0.01643, + 0.35338, 0.12205, 0.12477, 0.01583, 0.00366, + 0.00203, 0.00973, 0.01578, + 0.34583, 0.11889, 0.11828, 0.01530, 0.00364, + 0.00203, 0.00945, 0.01522 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + 0.58899, 0.22440, 0.47688, 0.02749, 0.00040, + 0.00013, 0.01407, 0.02766, + 0.55698, 0.20846, 0.40379, 0.02554, 0.00133, + 0.00008, 0.01345, 0.02533, + 0.52950, 0.19492, 0.34743, 0.02371, 0.00189, + 0.00008, 0.01281, 0.02354, + 0.50537, 0.18323, 0.30312, 0.02203, 0.00230, + 0.00012, 0.01224, 0.02202, + 0.48371, 0.17333, 0.26746, 0.02073, 0.00247, + 0.00016, 0.01163, 0.02066, + 0.46439, 0.16456, 0.23836, 0.01950, 0.00259, + 0.00039, 0.01109, 0.01950, + 0.44692, 0.15664, 0.21392, 0.01832, 0.00271, + 0.00063, 0.01060, 0.01845 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + 0.43082, 0.14964, 0.19344, 0.01743, 0.00280, + 0.00091, 0.01009, 0.01741, + 0.41597, 0.14328, 0.17634, 0.01662, 0.00277, + 0.00103, 0.00963, 0.01655, + 0.40227, 0.13753, 0.16150, 0.01580, 0.00276, + 0.00113, 0.00925, 0.01578, + 0.38967, 0.13230, 0.14849, 0.01498, 0.00279, + 0.00124, 0.00890, 0.01504, + 0.37807, 0.12747, 0.13729, 0.01420, 0.00281, + 0.00129, 0.00851, 0.01439, + 0.36708, 0.12298, 0.12747, 0.01363, 0.00274, + 0.00129, 0.00824, 0.01369, + 0.35678, 0.11882, 0.11877, 0.01310, 0.00267, + 0.00130, 0.00797, 0.01310 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + 0.34708, 0.11496, 0.11101, 0.01258, 0.00263, + 0.00133, 0.00767, 0.01262, + 0.33799, 0.11134, 0.10414, 0.01204, 0.00260, + 0.00135, 0.00741, 0.01220, + 0.32949, 0.10797, 0.09798, 0.01154, 0.00258, + 0.00137, 0.00718, 0.01180, + 0.32144, 0.10477, 0.09236, 0.01111, 0.00255, + 0.00139, 0.00695, 0.01142, + 0.31382, 0.10179, 0.08729, 0.01072, 0.00250, + 0.00140, 0.00674, 0.01105 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + 0.56632, 0.20293, 0.39385, 0.02075, 0.00035, + 0.00006, 0.01057, 0.02092, + 0.53164, 0.18722, 0.32842, 0.01911, 0.00109, + 0.00012, 0.01008, 0.01893, + 0.50194, 0.17419, 0.27907, 0.01775, 0.00137, + 0.00012, 0.00958, 0.01750, + 0.47640, 0.16288, 0.24084, 0.01626, 0.00166, + 0.00007, 0.00910, 0.01632, + 0.45368, 0.15336, 0.21043, 0.01525, 0.00180, + 0.00014, 0.00861, 0.01517, + 0.43359, 0.14494, 0.18599, 0.01426, 0.00194, + 0.00038, 0.00818, 0.01419, + 0.41541, 0.13749, 0.16600, 0.01332, 0.00202, + 0.00058, 0.00774, 0.01342 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + 0.39878, 0.13085, 0.14919, 0.01258, 0.00208, + 0.00066, 0.00734, 0.01267, + 0.38375, 0.12480, 0.13494, 0.01188, 0.00208, + 0.00073, 0.00702, 0.01197, + 0.36983, 0.11940, 0.12287, 0.01128, 0.00203, + 0.00081, 0.00671, 0.01133, + 0.35690, 0.11454, 0.11257, 0.01079, 0.00197, + 0.00090, 0.00641, 0.01075, + 0.34512, 0.11004, 0.10363, 0.01028, 0.00196, + 0.00098, 0.00617, 0.01020, + 0.33422, 0.10587, 0.09572, 0.00965, 0.00200, + 0.00096, 0.00595, 0.00976, + 0.32407, 0.10201, 0.08882, 0.00911, 0.00201, + 0.00095, 0.00572, 0.00936 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + 0.31455, 0.09842, 0.08278, 0.00867, 0.00196, + 0.00098, 0.00549, 0.00900, + 0.30538, 0.09510, 0.07738, 0.00837, 0.00191, + 0.00100, 0.00526, 0.00871, + 0.29682, 0.09202, 0.07256, 0.00810, 0.00185, + 0.00101, 0.00506, 0.00844, + 0.28886, 0.08916, 0.06829, 0.00780, 0.00180, + 0.00102, 0.00489, 0.00807, + 0.28141, 0.08648, 0.06442, 0.00753, 0.00177, + 0.00102, 0.00474, 0.00773 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + 0.53789, 0.18214, 0.32346, 0.01569, 0.00017, + -0.00010, 0.00778, 0.01548, + 0.50142, 0.16693, 0.26569, 0.01427, 0.00069, + -0.00009, 0.00742, 0.01394, + 0.47064, 0.15429, 0.22306, 0.01300, 0.00097, + -0.00017, 0.00692, 0.01296, + 0.44403, 0.14371, 0.19049, 0.01200, 0.00118, + -0.00014, 0.00653, 0.01189, + 0.42095, 0.13454, 0.16520, 0.01108, 0.00124, + -0.00002, 0.00614, 0.01115, + 0.40023, 0.12676, 0.14495, 0.01042, 0.00132, + 0.00013, 0.00581, 0.01034, + 0.38194, 0.11985, 0.12843, 0.00963, 0.00139, + 0.00028, 0.00557, 0.00963 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + 0.36547, 0.11362, 0.11473, 0.00887, 0.00139, + 0.00037, 0.00523, 0.00917, + 0.35019, 0.10811, 0.10325, 0.00855, 0.00142, + 0.00050, 0.00497, 0.00858, + 0.33628, 0.10309, 0.09356, 0.00817, 0.00142, + 0.00056, 0.00478, 0.00810, + 0.32373, 0.09847, 0.08530, 0.00761, 0.00138, + 0.00056, 0.00458, 0.00774, + 0.31230, 0.09433, 0.07814, 0.00713, 0.00137, + 0.00057, 0.00437, 0.00728, + 0.30132, 0.09049, 0.07194, 0.00684, 0.00137, + 0.00063, 0.00417, 0.00698, + 0.29120, 0.08701, 0.06656, 0.00658, 0.00134, + 0.00067, 0.00399, 0.00666 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + 0.28188, 0.08383, 0.06186, 0.00633, 0.00131, + 0.00070, 0.00380, 0.00628, + 0.27316, 0.08082, 0.05765, 0.00603, 0.00128, + 0.00067, 0.00365, 0.00600, + 0.26503, 0.07803, 0.05389, 0.00575, 0.00124, + 0.00065, 0.00350, 0.00577, + 0.25727, 0.07548, 0.05056, 0.00552, 0.00121, + 0.00063, 0.00336, 0.00557, + 0.25004, 0.07307, 0.04758, 0.00530, 0.00119, + 0.00064, 0.00324, 0.00539 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + 0.50513, 0.16144, 0.26302, 0.01121, 0.00030, + 0.00008, 0.00589, 0.01120, + 0.46769, 0.14689, 0.21310, 0.01006, 0.00061, + 0.00013, 0.00538, 0.01031, + 0.43619, 0.13509, 0.17698, 0.00926, 0.00081, + 0.00008, 0.00507, 0.00930, + 0.40930, 0.12530, 0.14977, 0.00843, 0.00097, + 0.00008, 0.00480, 0.00845, + 0.38606, 0.11683, 0.12868, 0.00774, 0.00103, + 0.00014, 0.00448, 0.00787, + 0.36537, 0.10962, 0.11215, 0.00723, 0.00106, + 0.00022, 0.00418, 0.00743, + 0.34724, 0.10320, 0.09863, 0.00665, 0.00110, + 0.00029, 0.00399, 0.00692 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + 0.33099, 0.09753, 0.08756, 0.00610, 0.00105, + 0.00037, 0.00375, 0.00656, + 0.31623, 0.09248, 0.07838, 0.00577, 0.00103, + 0.00042, 0.00357, 0.00612, + 0.30269, 0.08797, 0.07072, 0.00553, 0.00102, + 0.00043, 0.00338, 0.00566, + 0.29028, 0.08388, 0.06423, 0.00526, 0.00100, + 0.00042, 0.00317, 0.00531, + 0.27898, 0.08006, 0.05858, 0.00492, 0.00099, + 0.00042, 0.00303, 0.00512, + 0.26863, 0.07663, 0.05375, 0.00472, 0.00099, + 0.00045, 0.00289, 0.00476, + 0.25898, 0.07352, 0.04955, 0.00454, 0.00097, + 0.00047, 0.00276, 0.00448 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + 0.24988, 0.07068, 0.04587, 0.00439, 0.00092, + 0.00047, 0.00265, 0.00430, + 0.24148, 0.06793, 0.04264, 0.00423, 0.00090, + 0.00046, 0.00252, 0.00415, + 0.23369, 0.06539, 0.03977, 0.00407, 0.00089, + 0.00045, 0.00241, 0.00401, + 0.22635, 0.06315, 0.03721, 0.00391, 0.00087, + 0.00044, 0.00232, 0.00378, + 0.21954, 0.06103, 0.03491, 0.00374, 0.00084, + 0.00044, 0.00223, 0.00359 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + 0.46916, 0.14230, 0.21254, 0.00824, 0.00008, + -0.00004, 0.00410, 0.00810, + 0.43129, 0.12874, 0.17031, 0.00742, 0.00041, + 0.00000, 0.00383, 0.00719, + 0.40002, 0.11768, 0.13974, 0.00655, 0.00058, + 0.00001, 0.00360, 0.00660, + 0.37363, 0.10856, 0.11714, 0.00590, 0.00066, + 0.00000, 0.00336, 0.00599, + 0.35070, 0.10077, 0.09976, 0.00545, 0.00070, + 0.00004, 0.00316, 0.00556, + 0.33052, 0.09410, 0.08621, 0.00500, 0.00074, + 0.00016, 0.00293, 0.00527, + 0.31264, 0.08830, 0.07547, 0.00461, 0.00068, + 0.00017, 0.00270, 0.00498 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + 0.29664, 0.08324, 0.06664, 0.00448, 0.00069, + 0.00024, 0.00258, 0.00449, + 0.28236, 0.07866, 0.05933, 0.00422, 0.00071, + 0.00023, 0.00242, 0.00410, + 0.26944, 0.07454, 0.05323, 0.00395, 0.00071, + 0.00023, 0.00227, 0.00386, + 0.25768, 0.07085, 0.04809, 0.00374, 0.00069, + 0.00027, 0.00213, 0.00367, + 0.24699, 0.06753, 0.04373, 0.00353, 0.00066, + 0.00029, 0.00202, 0.00347, + 0.23718, 0.06444, 0.04002, 0.00329, 0.00064, + 0.00028, 0.00194, 0.00331, + 0.22810, 0.06164, 0.03680, 0.00308, 0.00062, + 0.00028, 0.00185, 0.00318 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + 0.21962, 0.05910, 0.03399, 0.00291, 0.00058, + 0.00027, 0.00173, 0.00306, + 0.21169, 0.05670, 0.03150, 0.00286, 0.00059, + 0.00027, 0.00166, 0.00284, + 0.20437, 0.05449, 0.02929, 0.00281, 0.00060, + 0.00028, 0.00160, 0.00263, + 0.19761, 0.05247, 0.02736, 0.00267, 0.00059, + 0.00031, 0.00155, 0.00254, + 0.19130, 0.05059, 0.02563, 0.00254, 0.00057, + 0.00034, 0.00150, 0.00245 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + 0.43105, 0.12387, 0.17036, 0.00563, 0.00013, + 0.00009, 0.00292, 0.00577, + 0.39396, 0.11132, 0.13452, 0.00489, 0.00030, + 0.00009, 0.00275, 0.00514, + 0.36299, 0.10130, 0.10933, 0.00450, 0.00036, + 0.00004, 0.00251, 0.00459, + 0.33671, 0.09302, 0.09073, 0.00403, 0.00044, + -0.00003, 0.00232, 0.00431, + 0.31451, 0.08606, 0.07678, 0.00379, 0.00052, + 0.00003, 0.00217, 0.00383, + 0.29521, 0.08007, 0.06591, 0.00339, 0.00047, + 0.00011, 0.00198, 0.00368, + 0.27825, 0.07477, 0.05726, 0.00327, 0.00049, + 0.00014, 0.00185, 0.00336 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + 0.26305, 0.07021, 0.05026, 0.00304, 0.00049, + 0.00012, 0.00174, 0.00311, + 0.24958, 0.06613, 0.04456, 0.00283, 0.00048, + 0.00018, 0.00164, 0.00289, + 0.23744, 0.06247, 0.03982, 0.00267, 0.00047, + 0.00020, 0.00156, 0.00270, + 0.22638, 0.05919, 0.03583, 0.00252, 0.00046, + 0.00020, 0.00150, 0.00252, + 0.21629, 0.05625, 0.03248, 0.00240, 0.00045, + 0.00024, 0.00138, 0.00231, + 0.20702, 0.05356, 0.02960, 0.00231, 0.00045, + 0.00023, 0.00133, 0.00221, + 0.19853, 0.05111, 0.02712, 0.00220, 0.00043, + 0.00021, 0.00126, 0.00210 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + 0.19070, 0.04886, 0.02495, 0.00206, 0.00039, + 0.00017, 0.00116, 0.00197, + 0.18348, 0.04681, 0.02307, 0.00197, 0.00038, + 0.00019, 0.00111, 0.00186, + 0.17682, 0.04492, 0.02142, 0.00189, 0.00037, + 0.00021, 0.00107, 0.00175, + 0.17056, 0.04314, 0.01996, 0.00181, 0.00038, + 0.00021, 0.00103, 0.00169, + 0.16475, 0.04150, 0.01867, 0.00173, 0.00038, + 0.00020, 0.00099, 0.00162 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + 0.39205, 0.10682, 0.13532, 0.00382, 0.00015, + 0.00005, 0.00205, 0.00392, + 0.35541, 0.09566, 0.10567, 0.00349, 0.00024, + 0.00001, 0.00190, 0.00349, + 0.32547, 0.08654, 0.08486, 0.00322, 0.00029, + 0.00000, 0.00166, 0.00320, + 0.30077, 0.07903, 0.06991, 0.00275, 0.00024, + 0.00002, 0.00154, 0.00306, + 0.27981, 0.07276, 0.05867, 0.00255, 0.00030, + 0.00002, 0.00143, 0.00262, + 0.26147, 0.06743, 0.05003, 0.00237, 0.00030, + 0.00001, 0.00130, 0.00242, + 0.24548, 0.06279, 0.04319, 0.00225, 0.00029, + 0.00003, 0.00120, 0.00222 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + 0.23116, 0.05879, 0.03773, 0.00215, 0.00030, + 0.00007, 0.00114, 0.00204, + 0.21854, 0.05519, 0.03328, 0.00196, 0.00029, + 0.00009, 0.00106, 0.00195, + 0.20722, 0.05199, 0.02960, 0.00185, 0.00027, + 0.00008, 0.00100, 0.00177, + 0.19698, 0.04915, 0.02654, 0.00180, 0.00027, + 0.00008, 0.00095, 0.00158, + 0.18785, 0.04655, 0.02397, 0.00163, 0.00030, + 0.00012, 0.00090, 0.00154, + 0.17927, 0.04420, 0.02179, 0.00156, 0.00030, + 0.00011, 0.00083, 0.00145, + 0.17143, 0.04209, 0.01991, 0.00149, 0.00028, + 0.00010, 0.00077, 0.00136 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + 0.16425, 0.04017, 0.01827, 0.00143, 0.00025, + 0.00010, 0.00071, 0.00127, + 0.15763, 0.03841, 0.01685, 0.00139, 0.00024, + 0.00010, 0.00068, 0.00118, + 0.15155, 0.03680, 0.01559, 0.00136, 0.00024, + 0.00010, 0.00066, 0.00111, + 0.14592, 0.03526, 0.01450, 0.00126, 0.00023, + 0.00009, 0.00064, 0.00106, + 0.14070, 0.03385, 0.01353, 0.00118, 0.00023, + 0.00009, 0.00061, 0.00103 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + 0.35234, 0.09146, 0.10650, 0.00259, 0.00005, + 0.00005, 0.00137, 0.00270, + 0.31724, 0.08113, 0.08191, 0.00228, 0.00014, + 0.00000, 0.00125, 0.00249, + 0.28884, 0.07296, 0.06503, 0.00213, 0.00020, + 0.00006, 0.00116, 0.00221, + 0.26548, 0.06635, 0.05307, 0.00177, 0.00024, + 0.00000, 0.00106, 0.00196, + 0.24556, 0.06079, 0.04416, 0.00174, 0.00023, + 0.00004, 0.00097, 0.00176, + 0.22847, 0.05605, 0.03734, 0.00165, 0.00026, + 0.00005, 0.00093, 0.00157, + 0.21361, 0.05201, 0.03206, 0.00152, 0.00026, + 0.00006, 0.00086, 0.00140 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + 0.20078, 0.04848, 0.02787, 0.00130, 0.00024, + 0.00006, 0.00077, 0.00127, + 0.18898, 0.04536, 0.02447, 0.00128, 0.00026, + 0.00006, 0.00074, 0.00112, + 0.17847, 0.04259, 0.02166, 0.00123, 0.00024, + 0.00006, 0.00070, 0.00104, + 0.16923, 0.04011, 0.01932, 0.00110, 0.00021, + 0.00007, 0.00066, 0.00100, + 0.16080, 0.03789, 0.01738, 0.00106, 0.00021, + 0.00009, 0.00064, 0.00094, + 0.15317, 0.03588, 0.01575, 0.00094, 0.00021, + 0.00011, 0.00059, 0.00093, + 0.14616, 0.03407, 0.01436, 0.00089, 0.00021, + 0.00011, 0.00055, 0.00087 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + 0.13968, 0.03245, 0.01315, 0.00090, 0.00020, + 0.00009, 0.00052, 0.00076, + 0.13375, 0.03094, 0.01210, 0.00085, 0.00020, + 0.00008, 0.00049, 0.00071, + 0.12832, 0.02955, 0.01118, 0.00080, 0.00019, + 0.00007, 0.00046, 0.00068, + 0.12329, 0.02826, 0.01037, 0.00072, 0.00019, + 0.00008, 0.00045, 0.00067, + 0.11865, 0.02707, 0.00966, 0.00065, 0.00019, + 0.00009, 0.00044, 0.00065 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + 0.31330, 0.07733, 0.08288, 0.00177, 0.00000, + -0.00003, 0.00088, 0.00187, + 0.28041, 0.06822, 0.06302, 0.00144, 0.00009, + -0.00004, 0.00079, 0.00162, + 0.25374, 0.06101, 0.04961, 0.00141, 0.00007, + -0.00006, 0.00070, 0.00146, + 0.23203, 0.05517, 0.04006, 0.00118, 0.00010, + -0.00005, 0.00064, 0.00130, + 0.21358, 0.05034, 0.03309, 0.00116, 0.00013, + -0.00004, 0.00061, 0.00112, + 0.19785, 0.04627, 0.02783, 0.00116, 0.00013, + 0.00001, 0.00058, 0.00104, + 0.18426, 0.04273, 0.02374, 0.00107, 0.00017, + 0.00003, 0.00054, 0.00100 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + 0.17221, 0.03969, 0.02051, 0.00106, 0.00011, + 0.00001, 0.00046, 0.00084, + 0.16170, 0.03706, 0.01793, 0.00097, 0.00009, + -0.00001, 0.00043, 0.00071, + 0.15248, 0.03470, 0.01582, 0.00085, 0.00013, + 0.00002, 0.00044, 0.00064, + 0.14416, 0.03258, 0.01407, 0.00078, 0.00018, + 0.00006, 0.00044, 0.00060, + 0.13638, 0.03073, 0.01262, 0.00076, 0.00015, + 0.00007, 0.00039, 0.00062, + 0.12959, 0.02902, 0.01139, 0.00065, 0.00014, + 0.00005, 0.00035, 0.00060, + 0.12336, 0.02747, 0.01035, 0.00061, 0.00014, + 0.00005, 0.00033, 0.00056 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + 0.11757, 0.02607, 0.00946, 0.00065, 0.00013, + 0.00005, 0.00033, 0.00049, + 0.11244, 0.02480, 0.00868, 0.00057, 0.00014, + 0.00005, 0.00032, 0.00045, + 0.10775, 0.02364, 0.00800, 0.00048, 0.00014, + 0.00006, 0.00031, 0.00043, + 0.10335, 0.02257, 0.00741, 0.00037, 0.00012, + 0.00005, 0.00028, 0.00047, + 0.09925, 0.02159, 0.00688, 0.00030, 0.00011, + 0.00005, 0.00026, 0.00048 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + 0.27525, 0.06459, 0.06374, 0.00111, -0.00005, + -0.00005, 0.00055, 0.00125, + 0.24473, 0.05664, 0.04782, 0.00091, 0.00003, + -0.00001, 0.00049, 0.00114, + 0.22018, 0.05041, 0.03722, 0.00089, 0.00009, + -0.00003, 0.00046, 0.00096, + 0.20019, 0.04535, 0.02981, 0.00084, 0.00004, + -0.00002, 0.00039, 0.00085, + 0.18350, 0.04118, 0.02444, 0.00073, 0.00006, + -0.00005, 0.00033, 0.00077, + 0.16931, 0.03769, 0.02041, 0.00073, 0.00010, + -0.00004, 0.00033, 0.00057, + 0.15694, 0.03470, 0.01733, 0.00078, 0.00007, + 0.00001, 0.00032, 0.00053 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + 0.14644, 0.03210, 0.01491, 0.00058, 0.00006, + 0.00000, 0.00028, 0.00052, + 0.13704, 0.02984, 0.01297, 0.00052, 0.00007, + -0.00001, 0.00025, 0.00048, + 0.12858, 0.02784, 0.01140, 0.00055, 0.00007, + -0.00001, 0.00025, 0.00044, + 0.12108, 0.02608, 0.01010, 0.00053, 0.00009, + 0.00001, 0.00026, 0.00041, + 0.11447, 0.02449, 0.00903, 0.00044, 0.00011, + 0.00004, 0.00026, 0.00041, + 0.10845, 0.02308, 0.00812, 0.00041, 0.00009, + 0.00003, 0.00024, 0.00034, + 0.10297, 0.02181, 0.00736, 0.00039, 0.00009, + 0.00003, 0.00023, 0.00030 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + 0.09797, 0.02066, 0.00671, 0.00037, 0.00010, + 0.00004, 0.00022, 0.00030, + 0.09338, 0.01961, 0.00615, 0.00032, 0.00009, + 0.00004, 0.00021, 0.00029, + 0.08918, 0.01866, 0.00566, 0.00028, 0.00008, + 0.00004, 0.00019, 0.00028, + 0.08531, 0.01778, 0.00523, 0.00022, 0.00007, + 0.00003, 0.00018, 0.00030, + 0.08173, 0.01697, 0.00485, 0.00019, 0.00007, + 0.00003, 0.00017, 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.23909, 0.05334, 0.04839, 0.00074, -0.00005, + -0.00004, 0.00033, 0.00078, + 0.21085, 0.04646, 0.03583, 0.00067, 0.00002, + -0.00007, 0.00027, 0.00072, + 0.18855, 0.04107, 0.02757, 0.00068, 0.00000, + -0.00007, 0.00027, 0.00052, + 0.17047, 0.03675, 0.02186, 0.00059, 0.00004, + -0.00007, 0.00022, 0.00049, + 0.15564, 0.03323, 0.01777, 0.00050, 0.00005, + -0.00003, 0.00023, 0.00044, + 0.14301, 0.03026, 0.01476, 0.00046, 0.00006, + -0.00002, 0.00023, 0.00036, + 0.13227, 0.02772, 0.01244, 0.00036, 0.00008, + 0.00002, 0.00023, 0.00039 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + 0.12269, 0.02557, 0.01064, 0.00036, 0.00008, + 0.00001, 0.00020, 0.00032, + 0.11425, 0.02369, 0.00921, 0.00037, 0.00007, + -0.00001, 0.00017, 0.00026, + 0.10693, 0.02203, 0.00806, 0.00032, 0.00006, + -0.00001, 0.00016, 0.00025, + 0.10049, 0.02058, 0.00712, 0.00025, 0.00005, + 0.00000, 0.00016, 0.00024, + 0.09467, 0.01927, 0.00634, 0.00024, 0.00006, + 0.00001, 0.00015, 0.00021, + 0.08939, 0.01810, 0.00570, 0.00020, 0.00007, + 0.00003, 0.00015, 0.00023, + 0.08467, 0.01705, 0.00515, 0.00017, 0.00008, + 0.00004, 0.00016, 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.08043, 0.01610, 0.00468, 0.00014, 0.00009, + 0.00004, 0.00016, 0.00019, + 0.07641, 0.01524, 0.00427, 0.00014, 0.00008, + 0.00003, 0.00015, 0.00018, + 0.07274, 0.01446, 0.00393, 0.00014, 0.00007, + 0.00002, 0.00014, 0.00018, + 0.06941, 0.01374, 0.00362, 0.00012, 0.00007, + 0.00003, 0.00013, 0.00020, + 0.06635, 0.01308, 0.00335, 0.00010, 0.00006, + 0.00003, 0.00012, 0.00021 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + 0.20464, 0.04338, 0.03612, 0.00052, -0.00002, + 0.00000, 0.00023, 0.00049, + 0.17935, 0.03748, 0.02638, 0.00036, -0.00001, + -0.00005, 0.00014, 0.00042, + 0.15939, 0.03293, 0.02008, 0.00040, 0.00004, + -0.00006, 0.00016, 0.00031, + 0.14335, 0.02929, 0.01576, 0.00035, 0.00002, + -0.00004, 0.00016, 0.00029, + 0.13022, 0.02633, 0.01272, 0.00023, 0.00006, + -0.00003, 0.00015, 0.00031, + 0.11899, 0.02389, 0.01048, 0.00023, 0.00003, + -0.00004, 0.00013, 0.00023, + 0.10943, 0.02180, 0.00879, 0.00024, 0.00007, + 0.00000, 0.00015, 0.00020 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + 0.10123, 0.02001, 0.00748, 0.00018, 0.00006, + 0.00000, 0.00013, 0.00021, + 0.09400, 0.01847, 0.00644, 0.00017, 0.00006, + 0.00000, 0.00012, 0.00018, + 0.08767, 0.01712, 0.00561, 0.00015, 0.00007, + 0.00001, 0.00013, 0.00017, + 0.08209, 0.01594, 0.00494, 0.00011, 0.00006, + 0.00002, 0.00012, 0.00017, + 0.07705, 0.01489, 0.00439, 0.00010, 0.00005, + 0.00001, 0.00009, 0.00015, + 0.07250, 0.01395, 0.00393, 0.00012, 0.00006, + 0.00002, 0.00010, 0.00014, + 0.06845, 0.01310, 0.00354, 0.00011, 0.00006, + 0.00002, 0.00011, 0.00013 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + 0.06483, 0.01233, 0.00322, 0.00008, 0.00005, + 0.00002, 0.00010, 0.00011, + 0.06149, 0.01164, 0.00293, 0.00006, 0.00006, + 0.00003, 0.00010, 0.00012, + 0.05845, 0.01102, 0.00269, 0.00004, 0.00006, + 0.00004, 0.00009, 0.00012, + 0.05566, 0.01046, 0.00247, 0.00004, 0.00006, + 0.00004, 0.00009, 0.00010, + 0.05308, 0.00994, 0.00229, 0.00005, 0.00005, + 0.00003, 0.00008, 0.00008 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + 0.17307, 0.03490, 0.02665, 0.00046, -0.00007, + -0.00009, 0.00005, 0.00024, + 0.15055, 0.02994, 0.01920, 0.00037, -0.00004, + -0.00009, 0.00006, 0.00024, + 0.13291, 0.02615, 0.01444, 0.00037, -0.00001, + -0.00007, 0.00005, 0.00017, + 0.11911, 0.02315, 0.01127, 0.00019, 0.00003, + -0.00005, 0.00008, 0.00016, + 0.10754, 0.02069, 0.00902, 0.00015, 0.00001, + -0.00005, 0.00007, 0.00016, + 0.09777, 0.01869, 0.00739, 0.00020, 0.00002, + -0.00004, 0.00007, 0.00013, + 0.08962, 0.01699, 0.00617, 0.00018, 0.00002, + -0.00003, 0.00007, 0.00012 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + 0.08262, 0.01553, 0.00523, 0.00013, 0.00002, + -0.00002, 0.00006, 0.00010, + 0.07649, 0.01429, 0.00449, 0.00009, 0.00003, + 0.00000, 0.00006, 0.00012, + 0.07110, 0.01321, 0.00390, 0.00007, 0.00003, + 0.00000, 0.00006, 0.00011, + 0.06633, 0.01225, 0.00342, 0.00007, 0.00003, + -0.00001, 0.00005, 0.00007, + 0.06205, 0.01141, 0.00303, 0.00008, 0.00002, + 0.00000, 0.00006, 0.00007, + 0.05829, 0.01066, 0.00271, 0.00007, 0.00003, + 0.00001, 0.00006, 0.00007, + 0.05490, 0.00998, 0.00244, 0.00005, 0.00003, + 0.00001, 0.00006, 0.00007 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + 0.05183, 0.00938, 0.00220, 0.00003, 0.00003, + 0.00001, 0.00006, 0.00007, + 0.04900, 0.00884, 0.00201, 0.00004, 0.00002, + 0.00001, 0.00005, 0.00007, + 0.04643, 0.00835, 0.00184, 0.00005, 0.00002, + 0.00000, 0.00004, 0.00006, + 0.04411, 0.00790, 0.00169, 0.00004, 0.00002, + 0.00001, 0.00004, 0.00005, + 0.04199, 0.00749, 0.00156, 0.00004, 0.00002, + 0.00001, 0.00004, 0.00005 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + 0.14400, 0.02740, 0.01919, 0.00016, -0.00001, + -0.00001, 0.00007, 0.00017, + 0.12445, 0.02339, 0.01370, 0.00012, -0.00002, + -0.00004, 0.00003, 0.00015, + 0.10933, 0.02034, 0.01022, 0.00013, 0.00000, + -0.00001, 0.00006, 0.00012, + 0.09717, 0.01790, 0.00791, 0.00015, 0.00000, + -0.00002, 0.00005, 0.00010, + 0.08733, 0.01594, 0.00630, 0.00012, -0.00001, + -0.00003, 0.00002, 0.00010, + 0.07917, 0.01434, 0.00513, 0.00008, 0.00002, + -0.00002, 0.00002, 0.00010, + 0.07220, 0.01299, 0.00426, 0.00008, 0.00000, + -0.00001, 0.00004, 0.00011 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + 0.06627, 0.01185, 0.00359, 0.00008, 0.00000, + -0.00002, 0.00003, 0.00007, + 0.06113, 0.01086, 0.00307, 0.00008, 0.00000, + -0.00001, 0.00002, 0.00007, + 0.05666, 0.01000, 0.00266, 0.00005, 0.00001, + 0.00000, 0.00003, 0.00009, + 0.05273, 0.00925, 0.00233, 0.00003, 0.00001, + 0.00000, 0.00003, 0.00009, + 0.04919, 0.00860, 0.00206, 0.00006, 0.00001, + 0.00000, 0.00003, 0.00004, + 0.04605, 0.00801, 0.00183, 0.00006, 0.00001, + 0.00000, 0.00003, 0.00004, + 0.04325, 0.00748, 0.00164, 0.00005, 0.00001, + 0.00000, 0.00003, 0.00004 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + 0.04073, 0.00701, 0.00149, 0.00004, 0.00000, + 0.00000, 0.00002, 0.00004, + 0.03841, 0.00660, 0.00135, 0.00004, 0.00000, + 0.00000, 0.00001, 0.00004, + 0.03632, 0.00622, 0.00123, 0.00004, 0.00000, + 0.00000, 0.00001, 0.00004, + 0.03442, 0.00587, 0.00113, 0.00005, 0.00001, + 0.00000, 0.00001, 0.00004, + 0.03269, 0.00555, 0.00104, 0.00005, 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=1,7)/ + 0.09451, 0.01603, 0.00934, 0.00000, -0.00003, + 0.00000, 0.00001, 0.00009, + 0.08031, 0.01345, 0.00648, 0.00004, -0.00001, + -0.00001, -0.00001, 0.00005, + 0.06960, 0.01152, 0.00472, 0.00006, 0.00001, + 0.00000, 0.00002, 0.00002, + 0.06117, 0.01003, 0.00358, 0.00002, 0.00000, + -0.00002, 0.00001, 0.00001, + 0.05440, 0.00883, 0.00281, 0.00001, 0.00000, + -0.00001, 0.00002, 0.00002, + 0.04875, 0.00786, 0.00225, 0.00004, 0.00001, + 0.00000, 0.00002, 0.00002, + 0.04411, 0.00705, 0.00185, 0.00002, 0.00001, + 0.00000, 0.00002, 0.00000 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + 0.04011, 0.00637, 0.00155, 0.00003, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.03668, 0.00579, 0.00131, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00003, + 0.03372, 0.00529, 0.00113, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00003, + 0.03114, 0.00487, 0.00098, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02888, 0.00449, 0.00086, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02686, 0.00415, 0.00076, -0.00001, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02506, 0.00386, 0.00068, 0.00000, 0.00001, + 0.00001, 0.00001, 0.00003 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ + 0.02342, 0.00360, 0.00061, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02199, 0.00336, 0.00055, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02071, 0.00315, 0.00050, -0.00001, 0.00000, + 0.00000, 0.00001, 0.00002, + 0.01952, 0.00296, 0.00046, -0.00001, 0.00000, + 0.00000, 0.00001, 0.00002, + 0.01844, 0.00278, 0.00042, 0.00000, 0.00000, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ + 0.05705, 0.00853, 0.00409, 0.00005, -0.00001, + -0.00001, -0.00002, 0.00001, + 0.04770, 0.00705, 0.00276, 0.00005, 0.00000, + -0.00001, 0.00000, 0.00001, + 0.04072, 0.00595, 0.00196, 0.00002, 0.00000, + 0.00000, 0.00000, 0.00002, + 0.03534, 0.00510, 0.00146, 0.00001, -0.00001, + -0.00001, 0.00000, 0.00000, + 0.03104, 0.00444, 0.00113, 0.00000, 0.00000, + -0.00001, 0.00000, 0.00001, + 0.02754, 0.00391, 0.00089, 0.00000, 0.00000, + -0.00001, 0.00000, 0.00000, + 0.02464, 0.00347, 0.00073, 0.00000, 0.00000, + -0.00001, 0.00000, 0.00000 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ + 0.02220, 0.00311, 0.00060, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.02013, 0.00280, 0.00050, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01835, 0.00254, 0.00043, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01681, 0.00231, 0.00037, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01548, 0.00212, 0.00033, -0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01428, 0.00195, 0.00029, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01324, 0.00180, 0.00025, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ + 0.01232, 0.00166, 0.00023, -0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01149, 0.00155, 0.00021, -0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01075, 0.00144, 0.00019, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01008, 0.00135, 0.00017, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00947, 0.00126, 0.00016, 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.03071, 0.00396, 0.00154, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.02518, 0.00321, 0.00101, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.02119, 0.00266, 0.00070, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01810, 0.00226, 0.00051, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01567, 0.00194, 0.00039, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01373, 0.00169, 0.00030, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01216, 0.00148, 0.00024, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ + 0.01085, 0.00131, 0.00020, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00974, 0.00117, 0.00017, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00880, 0.00105, 0.00014, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00799, 0.00095, 0.00012, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00731, 0.00086, 0.00011, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00669, 0.00079, 0.00009, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00616, 0.00072, 0.00008, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ + 0.00569, 0.00066, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00527, 0.00061, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00490, 0.00057, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00456, 0.00053, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00426, 0.00049, 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.01405, 0.00152, 0.00047, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01130, 0.00121, 0.00029, -0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00930, 0.00098, 0.00020, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00780, 0.00082, 0.00014, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00666, 0.00069, 0.00011, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00576, 0.00059, 0.00008, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00502, 0.00051, 0.00007, 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.00443, 0.00045, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00393, 0.00040, 0.00004, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00351, 0.00035, 0.00004, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00316, 0.00032, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00285, 0.00028, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00259, 0.00026, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00236, 0.00023, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ + 0.00217, 0.00021, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00199, 0.00019, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00183, 0.00018, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00170, 0.00016, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00157, 0.00015, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ + 0.00112, 0.00007, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00084, 0.00005, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00066, 0.00004, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00053, 0.00003, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00043, 0.00003, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00036, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00030, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ + 0.00026, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00022, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00017, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00013, 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 / 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.00007, 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,10,0,0,10,10/ 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,19 C READ(82,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), C . F(6,N,M),F(8,N,M) C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR DO 25 I=1,8 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) 20 CONTINUE DO 31 J=1,NTENTH-1 XX(J)= LOG10(XX(J))+ONEDO DO 31 I=1,8 IF(I.EQ.7) GO TO 31 DO 30 K=1,19 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) 31 CONTINUE 50 FORMAT(8F10.5) DO 40 I=1,8 DO 40 M=1,19 40 F(I,NX,M)=ZEROD 10 CONTINUE IF(X.LT.XMIN) X=XMIN IF(X.GT.XMAX) X=XMAX QSQ=SCALE**2 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN IF(QSQ.GT.QSQMAX) QSQ=QSQMAX XXX=X IF(X.LT.PONED) XXX= LOG10(X)+ONEDO N=0 70 N=N+1 IF(XXX.GT.XX(N+1)) GOTO 70 A=(XXX-XX(N))/(XX(N+1)-XX(N)) RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) B=RM-AINT(RM) M=1+ INT(RM) DO 60 I=1,8 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) IF(N.GE.NTENTH) GOTO 65 IF(I.EQ.7) GOTO 65 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) G(I)=FAC**(G(I)/FAC) 65 CONTINUE G(I)=G(I)*(ONED-X)**N0(I) 60 CONTINUE UPV=G(1) DNV=G(2) USEA=G(4) DSEA=G(8) STR=G(6) CHM=G(5) GLU=G(3) BOT=G(7) X=XSAVE RETURN END