#include "pdf/pilot.h" SUBROUTINE SFMRSJ(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C C THIS IS THE NEW "J" FIT -- Mar 1996 -- standard Q^2 range C #include "pdf/impdp.inc" C PARAMETER(NX=47) PARAMETER(NTENTH=21) DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ + .00356, .00376, 15.54792, 1.06868, .16989, + .00000, .60096, 1.07613, + .00405, .00399, 28.10206, 1.49111, .60427, + .00000, 1.03034, 1.49918, + .00450, .00420, 43.39771, 1.99040, 1.11366, + .00000, 1.53554, 1.99901, + .00491, .00440, 61.08128, 2.55696, 1.68897, + .29431, 2.10723, 2.56603, + .00530, .00459, 80.82011, 3.18503, 2.32483, + .97669, 2.73989, 3.19454, + .00567, .00477, 102.41924, 3.87056, 3.01738, + 1.68799, 3.42958, 3.88046, + .00602, .00494, 125.43236, 4.60312, 3.75633, + 2.44462, 4.16593, 4.61339 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + .00636, .00511, 149.71310, 5.37875, 4.53785, + 3.24240, 4.94506, 5.38936, + .00668, .00528, 175.08170, 6.19291, 5.35744, + 4.07690, 5.76246, 6.20385, + .00700, .00543, 201.37189, 7.04141, 6.21100, + 4.94421, 6.61397, 7.05266, + .00730, .00559, 228.28065, 7.91679, 7.09111, + 5.83709, 7.49218, 7.92833, + .00759, .00574, 255.76427, 8.81751, 7.99626, + 6.75415, 8.39556, 8.82932, + .00787, .00588, 283.79901, 9.74265, 8.92558, + 7.69462, 9.32320, 9.75472, + .00815, .00603, 312.35641, 10.69122, 9.87811, + 8.65763, 10.27415, 10.70355 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + .00841, .00616, 341.00568, 11.65233, 10.84297, + 9.63237, 11.23750, 11.66490, + .00867, .00630, 369.92984, 12.62999, 11.82420, + 10.62295, 12.21731, 12.64280, + .00893, .00643, 399.26962, 13.62749, 12.82509, + 11.63270, 13.21685, 13.64051, + .00918, .00656, 428.29883, 14.62618, 13.82704, + 12.64308, 14.21750, 14.63943, + .00942, .00669, 457.78537, 15.64505, 14.84901, + 13.67308, 15.23824, 15.65850 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + .00533, .00501, 13.49326, .96315, .14644, + .00000, .53681, .96950, + .00602, .00534, 23.62843, 1.31095, .50536, + .00000, .89087, 1.31771, + .00664, .00564, 35.60191, 1.71182, .91561, + .00000, 1.29705, 1.71894, + .00721, .00593, 49.10532, 2.15754, 1.36947, + .23169, 1.74739, 2.16498, + .00775, .00620, 63.86553, 2.64329, 1.86244, + .76279, 2.23724, 2.65101, + .00827, .00645, 79.72802, 3.16567, 2.39132, + 1.30764, 2.76332, 3.17365, + .00875, .00670, 96.35773, 3.71659, 2.94817, + 1.87950, 3.31763, 3.72481 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + .00922, .00694, 113.65404, 4.29310, 3.53011, + 2.47525, 3.89725, 4.30155, + .00966, .00717, 131.49316, 4.89185, 4.13389, + 3.09166, 4.49888, 4.90051, + .01009, .00739, 149.76366, 5.50983, 4.75655, + 3.72597, 5.11954, 5.51870, + .01050, .00760, 168.25789, 6.14167, 5.39275, + 4.37299, 5.75388, 6.15072, + .01090, .00781, 186.95740, 6.78642, 6.04160, + 5.03194, 6.40099, 6.79566, + .01129, .00801, 205.85593, 7.44359, 6.70263, + 5.70241, 7.06038, 7.45300, + .01166, .00820, 224.94231, 8.11261, 7.37529, + 6.38394, 7.73149, 8.12218 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + .01203, .00839, 243.92563, 8.78578, 8.05192, + 7.06894, 8.40665, 8.79551, + .01238, .00857, 262.94421, 9.46619, 8.73562, + 7.76056, 9.08896, 9.47608, + .01273, .00875, 282.10266, 10.15635, 9.42891, + 8.46134, 9.78092, 10.16638, + .01306, .00893, 300.91220, 10.84313, 10.11868, + 9.15825, 10.46943, 10.85330, + .01339, .00910, 319.90482, 11.54020, 10.81861, + 9.86497, 11.16815, 11.55051 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + .00793, .00667, 11.70796, .86745, .12592, + .00000, .47934, .87303, + .00889, .00715, 19.86142, 1.15220, .42107, + .00000, .76978, 1.15805, + .00976, .00759, 29.19653, 1.47231, .74994, + .00000, 1.09471, 1.47839, + .01056, .00800, 39.46207, 1.82111, 1.10633, + .18160, 1.44768, 1.82740, + .01131, .00838, 50.44613, 2.19479, 1.48674, + .59321, 1.82507, 2.20126, + .01202, .00874, 62.03557, 2.59071, 1.88873, + 1.00875, 2.22434, 2.59735, + .01269, .00909, 73.98632, 3.00281, 2.30635, + 1.43908, 2.63948, 3.00960 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + .01333, .00942, 86.23578, 3.42898, 2.73759, + 1.88199, 3.06845, 3.43592, + .01394, .00974, 98.70371, 3.86689, 3.18018, + 2.33526, 3.50895, 3.87396, + .01453, .01004, 111.31990, 4.31446, 3.63209, + 2.79704, 3.95892, 4.32166, + .01510, .01034, 123.94626, 4.76792, 4.08961, + 3.26371, 4.41463, 4.77524, + .01564, .01062, 136.58080, 5.22678, 4.55228, + 3.73491, 4.87560, 5.23422, + .01617, .01090, 149.22902, 5.69086, 5.01995, + 4.21055, 5.34167, 5.69841, + .01668, .01116, 161.89098, 6.15991, 5.49238, + 4.69048, 5.81259, 6.16756 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + .01717, .01142, 174.37276, 6.62855, 5.96423, + 5.16940, 6.28301, 6.63630, + .01765, .01167, 186.77908, 7.09919, 6.43792, + 5.64977, 6.75533, 7.10703, + .01812, .01192, 199.18790, 7.57374, 6.91538, + 6.13355, 7.23150, 7.58168, + .01857, .01216, 211.27234, 8.04302, 7.38743, + 6.61163, 7.70232, 8.05105, + .01901, .01239, 223.40123, 8.51688, 7.86394, + 7.09387, 8.17765, 8.52499 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + .00998, .00790, 10.77356, .81553, .11513, + .00000, .44850, .82085, + .01115, .00849, 17.93859, 1.06807, .37769, + .00000, .70646, 1.07360, + .01221, .00903, 25.99063, 1.34788, .66594, + .00000, .99083, 1.35358, + .01318, .00953, 34.71334, 1.64918, .97456, + .15711, 1.29610, 1.65505, + .01409, .01000, 43.92878, 1.96877, 1.30063, + .51089, 1.61921, 1.97477, + .01495, .01045, 53.54631, 2.30444, 1.64215, + .86471, 1.95805, 2.31058, + .01576, .01087, 63.36623, 2.65113, 1.99415, + 1.22823, 2.30762, 2.65739 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + .01653, .01127, 73.34408, 3.00718, 2.35508, + 1.59973, 2.66632, 3.01355, + .01726, .01165, 83.41993, 3.37074, 2.72314, + 1.97747, 3.03233, 3.37721, + .01797, .01202, 93.54228, 3.74018, 3.09677, + 2.36002, 3.40404, 3.74675, + .01865, .01238, 103.60374, 4.11247, 3.47297, + 2.74450, 3.77846, 4.11914, + .01930, .01272, 113.60923, 4.48733, 3.85149, + 3.13074, 4.15531, 4.49409, + .01993, .01305, 123.56846, 4.86472, 4.23232, + 3.51880, 4.53457, 4.87156, + .02054, .01337, 133.48621, 5.24452, 4.61538, + 3.90864, 4.91614, 5.25144 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + .02113, .01368, 143.20993, 5.62240, 4.99635, + 4.29600, 5.29570, 5.62940, + .02170, .01398, 152.82880, 6.00043, 5.37732, + 4.68301, 5.67533, 6.00751, + .02226, .01428, 162.40894, 6.38028, 5.75996, + 5.07138, 6.05670, 6.38743, + .02280, .01456, 171.69228, 6.75450, 6.13685, + 5.45371, 6.43237, 6.76172, + .02333, .01484, 180.97649, 7.13123, 6.51612, + 5.83817, 6.81048, 7.13851 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + .01174, .00891, 10.15510, .78035, .10797, + .00000, .42776, .78556, + .01309, .00960, 16.68560, 1.01191, .34930, + .00000, .66456, 1.01730, + .01430, .01022, 23.92710, 1.26584, .61147, + .00000, .92292, 1.27138, + .01542, .01080, 31.68767, 1.53701, .88978, + .14159, 1.19792, 1.54269, + .01646, .01134, 39.81208, 1.82260, 1.18170, + .45896, 1.48691, 1.82840, + .01744, .01185, 48.22453, 2.12071, 1.48551, + .77425, 1.78808, 2.12662, + .01836, .01234, 56.75309, 2.42691, 1.79689, + 1.09637, 2.09707, 2.43292 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + .01924, .01280, 65.36441, 2.73982, 2.11457, + 1.42390, 2.41254, 2.74594, + .02008, .01324, 74.01095, 3.05790, 2.43704, + 1.75538, 2.73298, 3.06411, + .02089, .01366, 82.65224, 3.37980, 2.76302, + 2.08967, 3.05707, 3.38609, + .02166, .01407, 91.19908, 3.70293, 3.08996, + 2.42432, 3.38226, 3.70930, + .02240, .01446, 99.66013, 4.02714, 3.41774, + 2.75929, 3.70839, 4.03359, + .02312, .01484, 108.04739, 4.35246, 3.74643, + 3.09470, 4.03551, 4.35898, + .02381, .01520, 116.36797, 4.67887, 4.07601, + 3.43059, 4.36363, 4.68546 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + .02448, .01556, 124.49368, 5.00264, 4.40279, + 3.76333, 4.68902, 5.00930, + .02513, .01590, 132.50395, 5.32565, 4.72867, + 4.09483, 5.01357, 5.33238, + .02576, .01623, 140.45741, 5.64941, 5.05514, + 4.42663, 5.33879, 5.65619, + .02637, .01655, 148.13635, 5.96750, 5.37584, + 4.75240, 5.65828, 5.97435, + .02696, .01687, 155.79619, 6.28703, 5.69785, + 5.07923, 5.97915, 6.29393 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + .01331, .00978, 9.69912, .75395, .10268, + .00000, .41229, .75913, + .01481, .01056, 15.77229, .97021, .32855, + .00000, .63368, .97556, + .01616, .01126, 22.43651, 1.20551, .57194, + .00000, .87330, 1.21099, + .01740, .01190, 29.51837, 1.45515, .82859, + .13052, 1.12669, 1.46076, + .01856, .01251, 36.87933, 1.71662, 1.09628, + .42203, 1.39148, 1.72234, + .01964, .01308, 44.45433, 1.98825, 1.37350, + .71013, 1.66609, 1.99407, + .02067, .01362, 52.09108, 2.26604, 1.65640, + 1.00318, 1.94661, 2.27196 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + .02165, .01413, 59.76386, 2.54884, 1.94387, + 1.29997, 2.23190, 2.55485, + .02258, .01462, 67.43357, 2.83530, 2.23464, + 1.59927, 2.52067, 2.84139, + .02347, .01509, 75.06716, 3.12426, 2.52762, + 1.90010, 2.81177, 3.13043, + .02432, .01554, 82.58798, 3.41347, 2.82056, + 2.20035, 3.10298, 3.41971, + .02514, .01597, 90.00687, 3.70283, 3.11344, + 2.50002, 3.39421, 3.70915, + .02593, .01639, 97.33720, 3.99244, 3.40635, + 2.79929, 3.68558, 3.99882, + .02669, .01679, 104.58734, 4.28232, 3.69935, + 3.09826, 3.97713, 4.28877 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + .02743, .01718, 111.64555, 4.56918, 3.98916, + 3.39370, 4.26556, 4.57569, + .02814, .01756, 118.58449, 4.85475, 4.27755, + 3.68740, 4.55264, 4.86132, + .02884, .01793, 125.45766, 5.14042, 4.56589, + 3.98078, 4.83974, 5.14705, + .02951, .01829, 132.07423, 5.42050, 4.84852, + 4.26820, 5.12117, 5.42718, + .03016, .01863, 138.66100, 5.70136, 5.13182, + 4.55606, 5.40334, 5.70809 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + .01958, .01311, 8.40333, .67636, .08762, + .00000, .36736, .68178, + .02169, .01422, 13.22801, .85015, .27056, + .00000, .54599, .85572, + .02358, .01522, 18.34923, 1.03464, .46276, + .00000, .73455, 1.04034, + .02530, .01613, 23.64732, 1.22648, .66128, + .10086, .92992, 1.23230, + .02690, .01698, 29.03012, 1.42398, .86471, + .32364, 1.13055, 1.42991, + .02840, .01778, 34.46159, 1.62608, 1.07215, + .54025, 1.33548, 1.63211, + .02982, .01853, 39.84029, 1.83001, 1.28095, + .75758, 1.54197, 1.83613 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + .03116, .01924, 45.15955, 2.03511, 1.49050, + .97496, 1.74943, 2.04132, + .03243, .01992, 50.40087, 2.24059, 1.70010, + 1.19171, 1.95707, 2.24688, + .03364, .02057, 55.54933, 2.44577, 1.90911, + 1.40732, 2.16428, 2.45214, + .03480, .02119, 60.55828, 2.64918, 2.11609, + 1.62042, 2.36957, 2.65562, + .03591, .02178, 65.44303, 2.85092, 2.32118, + 1.83121, 2.57307, 2.85742, + .03698, .02235, 70.21916, 3.05119, 2.52460, + 2.03997, 2.77500, 3.05776, + .03802, .02290, 74.89758, 3.25014, 2.72654, + 2.24691, 2.97553, 3.25678 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + .03901, .02343, 79.40594, 3.44554, 2.92476, + 2.44985, 3.17241, 3.45224, + .03997, .02394, 83.79903, 3.63875, 3.12064, + 2.65020, 3.36703, 3.64550, + .04090, .02444, 88.11669, 3.83082, 3.31527, + 2.84904, 3.56045, 3.83763, + .04180, .02492, 92.23324, 4.01784, 3.50473, + 3.04252, 3.74875, 4.02471, + .04268, .02539, 96.30490, 4.20439, 3.69361, + 3.23521, 3.93653, 4.21131 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + .02871, .01770, 7.26714, .60445, .07439, + .00000, .32651, .61067, + .03166, .01928, 11.06306, .74238, .22114, + .00000, .46911, .74879, + .03430, .02070, 14.95499, .88524, .37144, + .00000, .61591, .89182, + .03669, .02198, 18.86991, 1.03079, .52345, + .07719, .76488, 1.03754, + .03890, .02317, 22.75336, 1.17806, .67645, + .24583, .91518, 1.18495, + .04096, .02428, 26.59169, 1.32645, .83001, + .40709, 1.06632, 1.33348, + .04289, .02532, 30.32141, 1.47414, .98240, + .56663, 1.21649, 1.48128 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + .04472, .02630, 33.94852, 1.62083, 1.13341, + .72418, 1.36546, 1.62809, + .04645, .02723, 37.46835, 1.76613, 1.28270, + .87945, 1.51287, 1.77350, + .04810, .02812, 40.87758, 1.90971, 1.42998, + 1.03225, 1.65841, 1.91718, + .04966, .02897, 44.14984, 2.05064, 1.57438, + 1.18176, 1.80117, 2.05822, + .05116, .02977, 47.30179, 2.18915, 1.71613, + 1.32828, 1.94139, 2.19682, + .05260, .03055, 50.34907, 2.32549, 1.85554, + 1.47213, 2.07935, 2.33325, + .05399, .03129, 53.30316, 2.45988, 1.99281, + 1.61358, 2.21527, 2.46772 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + .05532, .03201, 56.11809, 2.59082, 2.12649, + 1.75120, 2.34765, 2.59874, + .05660, .03270, 58.83470, 2.71937, 2.25764, + 1.88607, 2.47757, 2.72737, + .05784, .03337, 61.48241, 2.84634, 2.38710, + 2.01904, 2.60586, 2.85442, + .05904, .03401, 63.97937, 2.96907, 2.51219, + 2.14748, 2.72983, 2.97722, + .06020, .03464, 66.43238, 3.09082, 2.63621, + 2.27468, 2.85278, 3.09904 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + .03586, .02124, 6.66484, .56445, .06738, + .00000, .30413, .57139, + .03946, .02317, 9.94165, .68400, .19562, + .00000, .42831, .69119, + .04264, .02490, 13.23069, .80604, .32499, + .00000, .55426, .81345, + .04553, .02646, 16.48252, .92888, .45421, + .06562, .68050, .93649, + .04818, .02790, 19.66086, 1.05187, .58285, + .20804, .80650, 1.05966, + .05066, .02924, 22.76230, 1.17466, .71074, + .34285, .93201, 1.18262, + .05297, .03050, 25.74059, 1.29584, .83657, + .47511, 1.05567, 1.30396 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + .05515, .03168, 28.60671, 1.41530, .96030, + .60471, 1.17740, 1.42357, + .05722, .03280, 31.36157, 1.53281, 1.08175, + .73153, 1.29701, 1.54121, + .05917, .03386, 34.00644, 1.64819, 1.20080, + .85553, 1.41434, 1.65672, + .06103, .03487, 36.52328, 1.76076, 1.31679, + .97611, 1.52873, 1.76941, + .06281, .03583, 38.92864, 1.87076, 1.43001, + 1.09360, 1.64045, 1.87954, + .06451, .03675, 41.23754, 1.97849, 1.54076, + 1.20835, 1.74979, 1.98738, + .06614, .03764, 43.46108, 2.08417, 1.64930, + 1.32064, 1.85699, 2.09316 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + .06771, .03848, 45.56446, 2.18663, 1.75446, + 1.42933, 1.96088, 2.19572, + .06922, .03930, 47.58186, 2.28676, 1.85718, + 1.53538, 2.06239, 2.29595, + .07068, .04009, 49.53772, 2.38529, 1.95816, + 1.63952, 2.16223, 2.39458, + .07208, .04085, 51.36873, 2.48008, 2.05530, + 1.73966, 2.25827, 2.48946, + .07344, .04159, 53.15987, 2.57380, 2.15126, + 1.83847, 2.35318, 2.58327 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + .04198, .02427, 6.26127, .53676, .06269, + .00000, .28877, .54431, + .04610, .02650, 9.20060, .64430, .17885, + .00000, .40093, .65215, + .04974, .02848, 12.10500, .75292, .29475, + .00000, .51345, .76103, + .05302, .03027, 14.94009, .86130, .40946, + .05827, .62522, .86965, + .05604, .03192, 17.68082, .96898, .52275, + .18412, .73592, .97754, + .05885, .03345, 20.32986, 1.07576, .63461, + .30239, .84542, 1.08452, + .06148, .03488, 22.85129, 1.18049, .74396, + .41769, .95263, 1.18944 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + .06394, .03622, 25.25876, 1.28317, .85087, + .53004, 1.05758, 1.29229, + .06627, .03749, 27.55616, 1.38365, .95528, + .63942, 1.16016, 1.39293, + .06847, .03869, 29.74718, 1.48184, 1.05712, + .74584, 1.26031, 1.49128, + .07056, .03983, 31.81858, 1.57722, 1.15590, + .84886, 1.35751, 1.58680, + .07256, .04092, 33.78643, 1.67004, 1.25191, + .94882, 1.45204, 1.67975, + .07447, .04196, 35.66511, 1.76059, 1.34547, + 1.04607, 1.54420, 1.77043, + .07630, .04295, 37.46526, 1.84909, 1.43682, + 1.14089, 1.63423, 1.85906 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + .07805, .04391, 39.15857, 1.93458, 1.52500, + 1.23234, 1.72117, 1.94467, + .07973, .04482, 40.77489, 2.01786, 1.61085, + 1.32127, 1.80582, 2.02806, + .08136, .04571, 42.33558, 2.09957, 1.69500, + 1.40833, 1.88884, 2.10988, + .08293, .04655, 43.78826, 2.17790, 1.77566, + 1.49176, 1.96842, 2.18831, + .08444, .04738, 45.20470, 2.25516, 1.85515, + 1.57389, 2.04687, 2.26567 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + .04744, .02712, 5.95654, .51536, .05915, + .00000, .27681, .52325, + .05199, .02961, 8.64377, .61403, .16639, + .00000, .38008, .62226, + .05601, .03182, 11.26517, .71284, .27243, + .00000, .48276, .72134, + .05964, .03381, 13.79730, .81070, .37658, + .05293, .58400, .81947, + .06296, .03563, 16.22306, .90732, .47878, + .16680, .68362, .91632, + .06604, .03732, 18.54925, 1.00261, .57910, + .27316, .78160, 1.01182, + .06892, .03889, 20.74704, 1.09559, .67667, + .37633, .87705, 1.10500 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + .07161, .04037, 22.83174, 1.18632, .77162, + .47638, .97004, 1.19592, + .07416, .04176, 24.80939, 1.27474, .86393, + .57337, 1.06055, 1.28452, + .07656, .04308, 26.68486, 1.36081, .95362, + .66737, 1.14856, 1.37075, + .07884, .04433, 28.44814, 1.44410, 1.04029, + .75803, 1.23366, 1.45420, + .08101, .04551, 30.11470, 1.52488, 1.12424, + .84569, 1.31614, 1.53512, + .08309, .04665, 31.69852, 1.60343, 1.20578, + .93070, 1.39629, 1.61381, + .08508, .04773, 33.20981, 1.67998, 1.28516, + 1.01333, 1.47436, 1.69050 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + .08698, .04877, 34.62450, 1.75369, 1.36155, + 1.09279, 1.54951, 1.76433, + .08880, .04976, 35.96930, 1.82531, 1.43571, + 1.16984, 1.62248, 1.83607, + .09057, .05072, 37.26331, 1.89539, 1.50822, + 1.24509, 1.69388, 1.90628, + .09226, .05164, 38.46186, 1.96239, 1.57753, + 1.31701, 1.76211, 1.97339, + .09390, .05253, 39.62732, 2.02834, 1.64570, + 1.38764, 1.82925, 2.03944 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + .06925, .03871, 5.07810, .45062, .04899, + .00000, .24127, .46017, + .07544, .04219, 7.07574, .52474, .13158, + .00000, .31998, .53474, + .08086, .04523, 8.94374, .59690, .21090, + .00000, .39602, .60730, + .08571, .04794, 10.68623, .66673, .28693, + .03872, .46920, .67747, + .09012, .05041, 12.30563, .73425, .35997, + .12098, .53972, .74532, + .09419, .05267, 13.81785, .79964, .43034, + .19633, .60780, .81099, + .09797, .05477, 15.21125, .86239, .49762, + .26821, .67300, .87401 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + .10148, .05672, 16.50359, .92269, .56208, + .33688, .73556, .93456, + .10478, .05855, 17.70447, .98064, .62388, + .40251, .79559, .99274, + .10789, .06026, 18.82145, 1.03633, .68313, + .46530, .85321, 1.04864, + .11082, .06188, 19.85142, 1.08955, .73969, + .52513, .90823, 1.10206, + .11359, .06341, 20.80771, 1.14056, .79383, + .58231, .96094, 1.15327, + .11624, .06486, 21.70183, 1.18965, .84587, + .63719, 1.01162, 1.20254, + .11876, .06624, 22.54226, 1.23702, .89602, + .69001, 1.06050, 1.25008 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + .12116, .06756, 23.31507, 1.28215, .94379, + .74029, 1.10706, 1.29538, + .12346, .06881, 24.03894, 1.32560, .98974, + .78861, 1.15186, 1.33898, + .12567, .07002, 24.72700, 1.36778, 1.03432, + .83542, 1.19534, 1.38131, + .12778, .07117, 25.35204, 1.40768, 1.07650, + .87972, 1.23647, 1.42135, + .12983, .07228, 25.95412, 1.44670, 1.11770, + .92294, 1.27667, 1.46051 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + .10082, .05660, 4.28068, .38728, .03987, + .00000, .20701, .39905, + .10905, .06130, 5.70546, .44081, .10178, + .00000, .26512, .45320, + .11617, .06534, 6.97538, .49134, .15937, + .00000, .31950, .50426, + .12247, .06890, 8.11311, .53896, .21312, + .02750, .37047, .55234, + .12816, .07209, 9.13353, .58396, .26356, + .08511, .41844, .59775, + .13336, .07500, 10.05694, .62664, .31114, + .13676, .46380, .64080, + .13814, .07766, 10.88208, .66681, .35577, + .18513, .50640, .68132 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + .14257, .08011, 11.62655, .70475, .39780, + .23056, .54657, .71957, + .14669, .08238, 12.30057, .74062, .43745, + .27332, .58450, .75572, + .15055, .08450, 12.91245, .77457, .47491, + .31364, .62037, .78995, + .15416, .08648, 13.46223, .80654, .51015, + .35153, .65412, .82216, + .15757, .08833, 13.96088, .83676, .54344, + .38728, .68601, .85262, + .16079, .09008, 14.41714, .86548, .57504, + .42118, .71630, .88155, + .16385, .09173, 14.83745, .89287, .60516, + .45345, .74518, .90915 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + .16675, .09329, 15.21402, .91864, .63350, + .48381, .77235, .93511, + .16950, .09478, 15.55942, .94316, .66047, + .51269, .79820, .95981, + .17215, .09619, 15.88226, .96674, .68639, + .54041, .82306, .98356, + .17465, .09753, 16.16632, .98874, .71062, + .56635, .84627, 1.00573, + .17707, .09882, 16.43656, 1.01010, .73410, + .59146, .86878, 1.02725 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + .12542, .07120, 3.84676, .35071, .03498, + -.00001, .18758, .36433, + .13500, .07667, 4.98682, .39389, .08646, + -.00001, .23533, .40823, + .14322, .08132, 5.97113, .43383, .13341, + -.00001, .27912, .44879, + .15043, .08537, 6.82930, .47084, .17648, + .02211, .31945, .48633, + .15691, .08897, 7.58037, .50526, .21628, + .06806, .35683, .52123, + .16279, .09223, 8.24519, .53747, .25334, + .10870, .39170, .55386, + .16816, .09518, 8.82633, .56739, .28767, + .14631, .42404, .58416 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + .17311, .09788, 9.34003, .59532, .31962, + .18126, .45417, .61243, + .17769, .10036, 9.79627, .62143, .34945, + .21382, .48232, .63885, + .18196, .10267, 10.20278, .64587, .37736, + .24423, .50866, .66359, + .18594, .10480, 10.56073, .66866, .40336, + .27256, .53320, .68664, + .18967, .10679, 10.87911, .69000, .42772, + .29907, .55619, .70823, + .19319, .10865, 11.16524, .71009, .45064, + .32400, .57783, .72855, + .19652, .11041, 11.42442, .72909, .47233, + .34757, .59830, .74778 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + .19965, .11205, 11.65133, .74679, .49256, + .36957, .61738, .76568, + .20262, .11361, 11.85561, .76351, .51168, + .39035, .63541, .78258, + .20547, .11509, 12.04375, .77948, .52994, + .41019, .65263, .79873, + .20815, .11647, 12.20420, .79422, .54685, + .42859, .66855, .81364, + .21072, .11780, 12.35514, .80844, .56317, + .44633, .68392, .82803 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + .14635, .08398, 3.55118, .32495, .03170, + -.00001, .17404, .34019, + .15691, .08996, 4.50984, .36149, .07647, + -.00001, .21512, .37754, + .16591, .09500, 5.31706, .39476, .11668, + -.00001, .25222, .41148, + .17377, .09935, 6.00574, .42517, .15309, + .01876, .28594, .44248, + .18078, .10319, 6.59653, .45313, .18636, + .05751, .31682, .47094, + .18711, .10664, 7.11005, .47899, .21702, + .09143, .34533, .49725, + .19287, .10974, 7.55058, .50277, .24514, + .12254, .37149, .52143 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + .19814, .11256, 7.93320, .52475, .27110, + .15121, .39565, .54376, + .20301, .11514, 8.26725, .54511, .29513, + .17772, .41803, .56445, + .20753, .11752, 8.55992, .56401, .31744, + .20230, .43880, .58365, + .21171, .11970, 8.81277, .58148, .33807, + .22503, .45799, .60139, + .21562, .12173, 9.03356, .59770, .35726, + .24617, .47584, .61786, + .21930, .12362, 9.22855, .61286, .37521, + .26594, .49252, .63325, + .22276, .12540, 9.40224, .62709, .39208, + .28451, .50820, .64771 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + .22601, .12705, 9.55060, .64024, .40772, + .30174, .52271, .66105, + .22908, .12860, 9.68146, .65257, .42241, + .31794, .53632, .67357, + .23201, .13007, 9.80009, .66429, .43638, + .33333, .54927, .68546, + .23476, .13144, 9.89744, .67499, .44921, + .34751, .56113, .69632, + .23740, .13276, 9.98790, .68528, .46155, + .36113, .57254, .70677 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + .16489, .09548, 3.32845, .30510, .02927, + .00000, .16372, .32187, + .17621, .10181, 4.15789, .33688, .06921, + .00000, .20002, .35450, + .18579, .10710, 4.84151, .36544, .10463, + .00000, .23237, .38377, + .19413, .11164, 5.41397, .39124, .13638, + .01642, .26146, .41018, + .20151, .11560, 5.89654, .41472, .16511, + .05015, .28784, .43417, + .20816, .11914, 6.30917, .43624, .19137, + .07942, .31197, .45616, + .21417, .12231, 6.65712, .45583, .21525, + .10607, .33392, .47615 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + .21966, .12517, 6.95469, .47378, .23713, + .13046, .35403, .49447, + .22470, .12777, 7.20996, .49029, .25727, + .15288, .37253, .51130, + .22936, .13015, 7.42989, .50550, .27584, + .17356, .38958, .52682, + .23366, .13233, 7.61640, .51943, .29290, + .19255, .40523, .54101, + .23766, .13435, 7.77622, .53228, .30867, + .21012, .41967, .55410, + .24141, .13621, 7.91472, .54421, .32335, + .22648, .43310, .56626, + .24493, .13796, 8.03581, .55534, .33707, + .24177, .44565, .57760 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + .24822, .13957, 8.13630, .56553, .34972, + .25588, .45718, .58798, + .25132, .14108, 8.22278, .57503, .36153, + .26908, .46794, .59765, + .25427, .14251, 8.29966, .58400, .37272, + .28158, .47812, .60679, + .25702, .14383, 8.35946, .59213, .38295, + .29305, .48738, .61506, + .25967, .14509, 8.41417, .59991, .39274, + .30402, .49626, .62299 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + .23825, .14150, 2.66783, .24444, .02231, + .00000, .13292, .26776, + .25156, .14824, 3.15560, .26344, .04919, + .00000, .15630, .28766, + .26253, .15365, 3.52557, .27968, .07202, + .00000, .17619, .30459, + .27184, .15813, 3.81269, .29370, .09174, + .01037, .19335, .31918, + .27991, .16192, 4.03692, .30593, .10901, + .03129, .20835, .33188, + .28702, .16520, 4.21488, .31671, .12431, + .04893, .22161, .34304, + .29331, .16804, 4.35259, .32615, .13784, + .06458, .23328, .35280 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + .29895, .17052, 4.46039, .33448, .14991, + .07857, .24365, .36142, + .30404, .17271, 4.54459, .34187, .16074, + .09114, .25290, .36904, + .30865, .17466, 4.60961, .34844, .17049, + .10250, .26120, .37582, + .31283, .17639, 4.65723, .35423, .17924, + .11272, .26859, .38177, + .31665, .17793, 4.69173, .35937, .18714, + .12199, .27522, .38706, + .32017, .17932, 4.71634, .36399, .19435, + .13046, .28123, .39180, + .32342, .18059, 4.73327, .36816, .20096, + .13826, .28671, .39609 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + .32640, .18172, 4.74078, .37180, .20690, + .14531, .29159, .39982, + .32917, .18275, 4.74260, .37507, .21234, + .15180, .29602, .40317, + .33177, .18370, 4.74103, .37807, .21741, + .15785, .30013, .40625, + .33413, .18453, 4.73230, .38061, .22192, + .16329, .30372, .40885, + .33638, .18532, 4.72247, .38300, .22618, + .16844, .30711, .41128 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + .34220, .20330, 2.04676, .18593, .01626, + -.00002, .10430, .21876, + .35539, .20807, 2.27672, .19492, .03279, + -.00002, .11737, .22817, + .36572, .21152, 2.42680, .20194, .04611, + -.00001, .12777, .23542, + .37406, .21408, 2.52577, .20750, .05707, + .00593, .13620, .24111, + .38096, .21601, 2.58902, .21195, .06628, + .01769, .14317, .24560, + .38676, .21749, 2.62800, .21554, .07412, + .02725, .14900, .24918, + .39163, .21858, 2.64728, .21836, .08078, + .03546, .15383, .25195 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + .39578, .21939, 2.65319, .22060, .08650, + .04259, .15789, .25410, + .39934, .21997, 2.64953, .22236, .09145, + .04881, .16130, .25575, + .40242, .22036, 2.63861, .22373, .09576, + .05429, .16420, .25701, + .40505, .22060, 2.62155, .22474, .09950, + .05908, .16661, .25787, + .40732, .22071, 2.60036, .22544, .10274, + .06331, .16862, .25845, + .40930, .22072, 2.57660, .22593, .10560, + .06708, .17033, .25879, + .41103, .22066, 2.55126, .22626, .10815, + .07047, .17178, .25896 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + .41249, .22050, 2.52352, .22636, .11035, + .07347, .17295, .25891, + .41376, .22028, 2.49493, .22633, .11229, + .07616, .17392, .25871, + .41490, .22004, 2.46646, .22622, .11405, + .07861, .17476, .25844, + .41582, .21971, 2.43627, .22593, .11552, + .08075, .17536, .25798, + .41665, .21938, 2.40707, .22560, .11689, + .08274, .17589, .25751 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + .41979, .24288, 1.69908, .15230, .01311, + .00000, .08811, .19096, + .43037, .24450, 1.81444, .15661, .02475, + .00001, .09621, .19493, + .43804, .24515, 1.87399, .15953, .03377, + .00000, .10224, .19744, + .44377, .24517, 1.90065, .16150, .04094, + .00401, .10684, .19897, + .44809, .24480, 1.90592, .16277, .04675, + .01183, .11040, .19977, + .45140, .24415, 1.89792, .16352, .05154, + .01803, .11318, .20008, + .45386, .24327, 1.87988, .16384, .05550, + .02322, .11529, .19993 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + .45568, .24225, 1.85576, .16384, .05878, + .02762, .11692, .19948, + .45700, .24112, 1.82795, .16360, .06153, + .03140, .11815, .19880, + .45789, .23994, 1.79785, .16317, .06385, + .03464, .11907, .19795, + .45843, .23868, 1.76586, .16258, .06579, + .03743, .11971, .19693, + .45868, .23740, 1.73317, .16186, .06742, + .03983, .12014, .19579, + .45871, .23609, 1.70056, .16106, .06880, + .04194, .12039, .19460, + .45859, .23478, 1.66847, .16020, .06999, + .04381, .12052, .19337 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + .45826, .23343, 1.63623, .15925, .07096, + .04540, .12050, .19205, + .45779, .23211, 1.60473, .15827, .07178, + .04680, .12038, .19072, + .45725, .23081, 1.57442, .15729, .07250, + .04806, .12022, .18940, + .45653, .22948, 1.54411, .15623, .07304, + .04912, .11992, .18799, + .45579, .22819, 1.51530, .15520, .07353, + .05009, .11961, .18663 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + .48135, .26833, 1.45828, .12804, .01095, + .00000, .07617, .16955, + .48795, .26655, 1.50803, .12958, .01965, + .00000, .08123, .17003, + .49194, .26427, 1.51902, .13021, .02615, + .00000, .08472, .16962, + .49425, .26177, 1.50921, .13023, .03116, + .00291, .08714, .16872, + .49537, .25915, 1.48708, .12985, .03510, + .00849, .08882, .16743, + .49571, .25646, 1.45828, .12918, .03826, + .01284, .08998, .16593, + .49534, .25378, 1.42494, .12830, .04078, + .01640, .09070, .16422 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + .49453, .25108, 1.38970, .12724, .04280, + .01936, .09109, .16244, + .49336, .24845, 1.35389, .12611, .04444, + .02186, .09125, .16060, + .49193, .24586, 1.31831, .12489, .04579, + .02397, .09123, .15874, + .49024, .24333, 1.28298, .12363, .04685, + .02573, .09104, .15683, + .48839, .24085, 1.24859, .12234, .04771, + .02724, .09074, .15494, + .48644, .23844, 1.21548, .12104, .04841, + .02853, .09036, .15307, + .48443, .23611, 1.18380, .11974, .04898, + .02964, .08992, .15123 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + .48230, .23381, 1.15299, .11843, .04941, + .03058, .08940, .14940, + .48011, .23158, 1.12354, .11713, .04973, + .03139, .08884, .14761, + .47794, .22944, 1.09562, .11588, .05000, + .03210, .08828, .14588, + .47566, .22731, 1.06842, .11460, .05016, + .03268, .08765, .14415, + .47344, .22527, 1.04279, .11337, .05028, + .03320, .08703, .14249 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + .53061, .28359, 1.27440, .10862, .00929, + .00000, .06625, .15072, + .53241, .27853, 1.28232, .10846, .01597, + -.00001, .06928, .14884, + .53213, .27353, 1.26423, .10770, .02082, + -.00001, .07112, .14657, + .53061, .26872, 1.23403, .10662, .02444, + .00218, .07220, .14412, + .52828, .26407, 1.19768, .10532, .02721, + .00634, .07275, .14161, + .52542, .25963, 1.15907, .10392, .02936, + .00950, .07295, .13906, + .52214, .25536, 1.11939, .10240, .03103, + .01205, .07287, .13653 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + .51860, .25129, 1.08033, .10089, .03232, + .01415, .07260, .13403, + .51494, .24738, 1.04254, .09933, .03334, + .01588, .07219, .13161, + .51118, .24366, 1.00637, .09781, .03411, + .01730, .07169, .12923, + .50736, .24005, .97168, .09625, .03470, + .01847, .07109, .12697, + .50347, .23663, .93874, .09476, .03515, + .01947, .07044, .12474, + .49960, .23335, .90765, .09330, .03548, + .02031, .06977, .12259, + .49581, .23021, .87840, .09189, .03573, + .02101, .06907, .12054 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + .49202, .22716, .85050, .09046, .03588, + .02158, .06834, .11856, + .48826, .22424, .82420, .08910, .03597, + .02207, .06761, .11663, + .48458, .22146, .79953, .08781, .03603, + .02249, .06690, .11477, + .48089, .21874, .77588, .08651, .03601, + .02281, .06615, .11297, + .47733, .21615, .75376, .08527, .03597, + .02310, .06544, .11126 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + .57766, .29204, 1.09262, .08858, .00760, + .00000, .05549, .12908, + .57284, .28330, 1.06688, .08714, .01254, + -.00002, .05686, .12534, + .56685, .27532, 1.02722, .08544, .01598, + -.00002, .05741, .12169, + .56037, .26803, .98320, .08364, .01847, + .00157, .05747, .11819, + .55362, .26128, .93836, .08179, .02030, + .00454, .05721, .11486, + .54679, .25504, .89487, .07997, .02167, + .00674, .05675, .11170, + .53994, .24919, .85309, .07816, .02268, + .00850, .05614, .10868 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + .53316, .24372, .81376, .07640, .02343, + .00989, .05544, .10584, + .52653, .23858, .77706, .07470, .02398, + .01102, .05469, .10315, + .52005, .23376, .74291, .07307, .02436, + .01195, .05391, .10061, + .51370, .22919, .71099, .07149, .02463, + .01269, .05311, .09817, + .50751, .22488, .68133, .06997, .02480, + .01329, .05229, .09588, + .50152, .22080, .65382, .06852, .02489, + .01379, .05148, .09371, + .49573, .21694, .62830, .06714, .02494, + .01421, .05068, .09165 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + .49007, .21324, .60439, .06581, .02493, + .01454, .04990, .08966, + .48457, .20973, .58212, .06453, .02487, + .01480, .04912, .08778, + .47928, .20642, .56143, .06331, .02480, + .01502, .04837, .08601, + .47407, .20318, .54188, .06212, .02467, + .01518, .04763, .08430, + .46909, .20011, .52373, .06099, .02455, + .01532, .04691, .08269 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + .61056, .29170, .94540, .07187, .00621, + -.00003, .04607, .10909, + .59892, .27981, .89858, .06976, .00995, + -.00003, .04643, .10438, + .58719, .26941, .84686, .06764, .01245, + -.00002, .04623, .10008, + .57583, .26014, .79630, .06555, .01419, + .00115, .04574, .09618, + .56484, .25176, .74851, .06354, .01543, + .00333, .04507, .09256, + .55428, .24413, .70435, .06163, .01631, + .00491, .04429, .08926, + .54410, .23710, .66356, .05979, .01693, + .00616, .04345, .08617 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + .53438, .23063, .62628, .05805, .01735, + .00712, .04259, .08330, + .52507, .22462, .59232, .05641, .01763, + .00790, .04173, .08064, + .51620, .21905, .56135, .05485, .01782, + .00851, .04086, .07818, + .50765, .21384, .53297, .05338, .01790, + .00900, .04001, .07586, + .49947, .20894, .50696, .05198, .01793, + .00938, .03918, .07368, + .49166, .20435, .48316, .05065, .01791, + .00968, .03838, .07165, + .48422, .20002, .46137, .04940, .01785, + .00992, .03761, .06975 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + .47704, .19592, .44118, .04819, .01776, + .01011, .03685, .06795, + .47012, .19205, .42257, .04706, .01765, + .01025, .03612, .06625, + .46352, .18840, .40542, .04600, .01753, + .01036, .03542, .06465, + .45708, .18490, .38941, .04498, .01739, + .01045, .03474, .06310, + .45095, .18160, .37462, .04401, .01725, + .01052, .03409, .06165 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + .63093, .28487, .82190, .05779, .00505, + -.00001, .03782, .09084, + .61251, .27057, .76212, .05548, .00786, + -.00001, .03755, .08580, + .59530, .25829, .70421, .05326, .00971, + -.00001, .03694, .08133, + .57937, .24755, .65138, .05117, .01093, + .00087, .03616, .07741, + .56449, .23800, .60370, .04921, .01176, + .00247, .03530, .07388, + .55060, .22941, .56109, .04738, .01234, + .00362, .03441, .07067, + .53748, .22162, .52282, .04569, .01270, + .00448, .03351, .06773 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + .52515, .21449, .48862, .04409, .01293, + .00517, .03261, .06507, + .51359, .20794, .45804, .04258, .01305, + .00570, .03175, .06264, + .50270, .20189, .43060, .04120, .01310, + .00610, .03091, .06039, + .49232, .19631, .40578, .03992, .01310, + .00644, .03011, .05827, + .48254, .19108, .38338, .03869, .01306, + .00667, .02934, .05633, + .47327, .18620, .36310, .03753, .01299, + .00686, .02861, .05453, + .46448, .18165, .34468, .03645, .01290, + .00700, .02792, .05286 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + .45607, .17736, .32780, .03544, .01278, + .00711, .02724, .05127, + .44805, .17333, .31237, .03449, .01265, + .00718, .02659, .04979, + .44045, .16954, .29826, .03359, .01252, + .00724, .02599, .04841, + .43310, .16593, .28518, .03274, .01237, + .00727, .02540, .04709, + .42614, .16253, .27317, .03193, .01223, + .00729, .02485, .04585 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + .64004, .27337, .71578, .04598, .00405, + -.00002, .03062, .07449, + .61527, .25721, .64852, .04369, .00621, + -.00002, .03005, .06951, + .59306, .24357, .58822, .04158, .00758, + -.00003, .02925, .06524, + .57306, .23182, .53569, .03962, .00845, + .00065, .02837, .06155, + .55478, .22149, .48988, .03782, .00903, + .00185, .02748, .05826, + .53799, .21230, .45001, .03617, .00938, + .00271, .02658, .05537, + .52239, .20404, .41498, .03465, .00959, + .00334, .02572, .05273 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + .50796, .19653, .38423, .03327, .00970, + .00381, .02489, .05035, + .49451, .18972, .35718, .03198, .00975, + .00417, .02410, .04818, + .48198, .18346, .33319, .03080, .00974, + .00445, .02334, .04621, + .47018, .17770, .31180, .02970, .00968, + .00466, .02263, .04440, + .45913, .17235, .29267, .02867, .00961, + .00482, .02195, .04273, + .44874, .16738, .27552, .02771, .00953, + .00493, .02132, .04117, + .43897, .16277, .26009, .02682, .00942, + .00502, .02072, .03974 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + .42966, .15846, .24609, .02597, .00930, + .00509, .02013, .03842, + .42085, .15441, .23339, .02519, .00918, + .00513, .01958, .03718, + .41254, .15062, .22185, .02445, .00905, + .00515, .01908, .03602, + .40457, .14701, .21123, .02375, .00891, + .00515, .01858, .03493, + .39704, .14363, .20153, .02310, .00878, + .00515, .01811, .03391 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + .63913, .25851, .62319, .03616, .00325, + .00000, .02447, .06010, + .60868, .24104, .55233, .03402, .00492, + -.00002, .02378, .05547, + .58204, .22655, .49219, .03211, .00592, + .00000, .02292, .05161, + .55850, .21422, .44163, .03036, .00655, + .00050, .02207, .04829, + .53736, .20346, .39876, .02879, .00694, + .00140, .02121, .04540, + .51818, .19400, .36220, .02739, .00716, + .00202, .02040, .04282, + .50063, .18551, .33073, .02609, .00728, + .00249, .01962, .04056 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + .48450, .17791, .30349, .02492, .00732, + .00284, .01888, .03851, + .46967, .17101, .27986, .02382, .00731, + .00309, .01819, .03668, + .45593, .16472, .25914, .02285, .00726, + .00328, .01752, .03502, + .44312, .15896, .24091, .02192, .00720, + .00343, .01692, .03349, + .43116, .15366, .22473, .02109, .00711, + .00353, .01635, .03209, + .41998, .14877, .21036, .02031, .00701, + .00359, .01581, .03081, + .40953, .14425, .19754, .01959, .00690, + .00363, .01531, .02963 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + .39966, .13999, .18598, .01890, .00679, + .00366, .01483, .02856, + .39036, .13604, .17557, .01827, .00668, + .00369, .01438, .02755, + .38161, .13235, .16617, .01769, .00657, + .00370, .01396, .02660, + .37325, .12886, .15758, .01713, .00645, + .00369, .01356, .02572, + .36538, .12560, .14977, .01662, .00634, + .00367, .01318, .02490 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + .62947, .24129, .54165, .02801, .00260, + .00004, .01931, .04775, + .59403, .22315, .47015, .02618, .00386, + .00003, .01856, .04365, + .56369, .20823, .41192, .02452, .00459, + .00003, .01775, .04027, + .53726, .19568, .36440, .02307, .00503, + .00040, .01695, .03740, + .51382, .18483, .32503, .02175, .00530, + .00108, .01619, .03491, + .49286, .17532, .29207, .02055, .00544, + .00155, .01547, .03275, + .47380, .16692, .26412, .01951, .00547, + .00186, .01479, .03084 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + .45650, .15937, .24032, .01853, .00548, + .00210, .01417, .02913, + .44064, .15261, .21990, .01766, .00544, + .00227, .01359, .02759, + .42613, .14644, .20220, .01684, .00539, + .00240, .01305, .02623, + .41263, .14085, .18675, .01611, .00531, + .00250, .01254, .02500, + .40011, .13572, .17318, .01544, .00522, + .00256, .01206, .02386, + .38849, .13098, .16123, .01482, .00513, + .00259, .01162, .02283, + .37766, .12661, .15065, .01424, .00504, + .00262, .01122, .02189 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + .36750, .12255, .14114, .01370, .00494, + .00263, .01082, .02103, + .35796, .11878, .13266, .01321, .00485, + .00263, .01046, .02022, + .34903, .11527, .12505, .01275, .00476, + .00263, .01012, .01945, + .34052, .11197, .11814, .01232, .00466, + .00262, .00981, .01874, + .33254, .10889, .11188, .01192, .00456, + .00261, .00952, .01809 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + .61193, .22304, .46967, .02167, .00189, + -.00013, .01486, .03735, + .57249, .20454, .39945, .02007, .00290, + -.00012, .01421, .03381, + .53927, .18951, .34429, .01865, .00346, + -.00012, .01351, .03095, + .51066, .17701, .30042, .01742, .00379, + .00018, .01282, .02855, + .48556, .16628, .26476, .01635, .00396, + .00071, .01217, .02650, + .46337, .15693, .23545, .01532, .00405, + .00106, .01158, .02473, + .44335, .14873, .21097, .01448, .00407, + .00131, .01103, .02316 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + .42529, .14142, .19036, .01368, .00405, + .00149, .01050, .02178, + .40887, .13487, .17286, .01298, .00402, + .00162, .01003, .02055, + .39381, .12901, .15788, .01238, .00396, + .00172, .00960, .01942, + .38006, .12366, .14489, .01177, .00389, + .00178, .00917, .01844, + .36729, .11875, .13362, .01123, .00381, + .00182, .00879, .01756, + .35549, .11427, .12375, .01075, .00374, + .00185, .00845, .01674, + .34458, .11018, .11506, .01032, .00367, + .00186, .00814, .01597 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + .33433, .10637, .10734, .00993, .00358, + .00187, .00783, .01527, + .32479, .10283, .10046, .00954, .00351, + .00187, .00755, .01464, + .31591, .09954, .09431, .00916, .00343, + .00186, .00729, .01406, + .30745, .09645, .08877, .00882, .00335, + .00185, .00704, .01352, + .29954, .09359, .08378, .00851, .00328, + .00183, .00681, .01303 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + .58819, .20357, .40531, .01627, .00152, + -.00004, .01143, .02874, + .54550, .18527, .33808, .01501, .00225, + -.00004, .01082, .02584, + .51009, .17052, .28680, .01387, .00267, + -.00003, .01022, .02344, + .47995, .15832, .24689, .01289, .00289, + .00020, .00964, .02150, + .45381, .14796, .21508, .01203, .00302, + .00059, .00911, .01981, + .43076, .13903, .18933, .01128, .00305, + .00082, .00861, .01840, + .41026, .13117, .16810, .01057, .00307, + .00101, .00816, .01713 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + .39182, .12423, .15044, .00998, .00304, + .00113, .00774, .01603, + .37523, .11804, .13561, .00941, .00299, + .00122, .00736, .01506, + .36015, .11248, .12303, .00890, .00293, + .00128, .00700, .01422, + .34629, .10746, .11226, .00846, .00286, + .00132, .00667, .01345, + .33360, .10290, .10294, .00806, .00280, + .00134, .00638, .01274, + .32190, .09874, .09484, .00769, .00273, + .00135, .00611, .01210, + .31109, .09493, .08775, .00736, .00267, + .00135, .00586, .01153 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + .30102, .09140, .08150, .00705, .00261, + .00135, .00563, .01099, + .29165, .08814, .07597, .00676, .00254, + .00135, .00541, .01050, + .28293, .08514, .07105, .00649, .00247, + .00134, .00520, .01005, + .27472, .08232, .06664, .00623, .00241, + .00133, .00502, .00965, + .26705, .07970, .06269, .00599, .00234, + .00132, .00484, .00928 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + .55897, .18413, .34824, .01215, .00114, + -.00004, .00860, .02174, + .51407, .16625, .28495, .01112, .00171, + -.00003, .00811, .01941, + .47727, .15201, .23798, .01022, .00203, + -.00004, .00761, .01750, + .44631, .14032, .20217, .00944, .00218, + .00015, .00715, .01594, + .41966, .13046, .17415, .00876, .00226, + .00043, .00671, .01462, + .39635, .12199, .15179, .00818, .00228, + .00061, .00632, .01350, + .37570, .11461, .13358, .00765, .00227, + .00073, .00595, .01254 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + .35731, .10814, .11859, .00720, .00224, + .00082, .00563, .01165, + .34084, .10238, .10614, .00675, .00219, + .00088, .00533, .01092, + .32593, .09724, .09565, .00640, .00213, + .00093, .00505, .01025, + .31238, .09258, .08674, .00604, .00209, + .00096, .00481, .00967, + .29995, .08840, .07910, .00574, .00204, + .00097, .00458, .00913, + .28856, .08459, .07252, .00546, .00198, + .00097, .00437, .00864, + .27810, .08110, .06679, .00519, .00192, + .00097, .00417, .00822 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + .26838, .07789, .06177, .00494, .00187, + .00097, .00399, .00783, + .25935, .07493, .05735, .00473, .00182, + .00096, .00383, .00746, + .25097, .07221, .05344, .00455, .00177, + .00095, .00368, .00711, + .24308, .06966, .04994, .00436, .00172, + .00093, .00354, .00681, + .23576, .06730, .04682, .00419, .00167, + .00092, .00340, .00653 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + .52552, .16484, .29742, .00886, .00086, + .00000, .00638, .01623, + .47934, .14772, .23886, .00806, .00131, + .00001, .00599, .01434, + .44182, .13421, .19647, .00740, .00154, + .00000, .00560, .01285, + .41065, .12316, .16477, .00679, .00165, + .00013, .00523, .01166, + .38395, .11395, .14035, .00632, .00169, + .00034, .00489, .01061, + .36087, .10607, .12109, .00585, .00169, + .00046, .00458, .00976, + .34057, .09923, .10563, .00544, .00168, + .00056, .00430, .00901 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + .32258, .09324, .09305, .00510, .00165, + .00062, .00404, .00837, + .30647, .08798, .08269, .00481, .00161, + .00066, .00382, .00778, + .29202, .08326, .07404, .00452, .00156, + .00068, .00362, .00728, + .27887, .07907, .06676, .00430, .00153, + .00070, .00343, .00682, + .26694, .07525, .06056, .00405, .00148, + .00071, .00325, .00645, + .25607, .07179, .05524, .00381, .00143, + .00071, .00309, .00610, + .24612, .06865, .05064, .00360, .00138, + .00070, .00295, .00577 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + .23685, .06577, .04664, .00344, .00134, + .00069, .00282, .00547, + .22828, .06313, .04313, .00330, .00130, + .00068, .00269, .00520, + .22035, .06071, .04003, .00317, .00126, + .00068, .00258, .00496, + .21298, .05843, .03729, .00303, .00122, + .00067, .00247, .00473, + .20613, .05633, .03484, .00290, .00119, + .00066, .00238, .00452 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + .48884, .14612, .25237, .00631, .00069, + .00004, .00469, .01188, + .44222, .12998, .19899, .00573, .00101, + .00005, .00439, .01042, + .40479, .11733, .16120, .00524, .00116, + .00004, .00408, .00928, + .37392, .10710, .13347, .00481, .00124, + .00014, .00378, .00837, + .34777, .09858, .11241, .00442, .00127, + .00028, .00353, .00760, + .32524, .09132, .09605, .00411, .00127, + .00037, .00330, .00694, + .30555, .08507, .08307, .00380, .00125, + .00043, .00308, .00639 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + .28818, .07965, .07260, .00355, .00121, + .00047, .00288, .00591, + .27276, .07487, .06405, .00332, .00117, + .00049, .00271, .00550, + .25897, .07065, .05699, .00313, .00114, + .00052, .00256, .00511, + .24650, .06686, .05108, .00295, .00111, + .00052, .00242, .00477, + .23521, .06346, .04610, .00279, .00107, + .00051, .00228, .00447, + .22494, .06038, .04184, .00263, .00103, + .00051, .00217, .00421, + .21556, .05758, .03818, .00249, .00099, + .00050, .00206, .00399 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + .20689, .05502, .03502, .00238, .00096, + .00049, .00197, .00377, + .19893, .05268, .03226, .00226, .00093, + .00049, .00188, .00358, + .19162, .05054, .02984, .00214, .00090, + .00048, .00179, .00341, + .18474, .04854, .02770, .00205, .00086, + .00047, .00171, .00325, + .17837, .04670, .02580, .00196, .00083, + .00046, .00163, .00310 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + .44995, .12843, .21276, .00450, .00048, + .00001, .00335, .00853, + .40366, .11338, .16470, .00409, .00072, + .00001, .00312, .00745, + .36698, .10169, .13142, .00371, .00085, + .00002, .00289, .00660, + .33695, .09230, .10745, .00340, .00090, + .00008, .00268, .00590, + .31168, .08453, .08951, .00312, .00091, + .00019, .00248, .00534, + .29007, .07797, .07572, .00288, .00090, + .00027, .00231, .00488, + .27129, .07234, .06493, .00268, .00089, + .00031, .00217, .00444 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + .25487, .06745, .05630, .00246, .00086, + .00034, .00202, .00411, + .24031, .06319, .04934, .00231, .00084, + .00036, .00188, .00379, + .22730, .05941, .04363, .00220, .00082, + .00036, .00177, .00352, + .21564, .05607, .03888, .00205, .00078, + .00037, .00166, .00329, + .20513, .05306, .03490, .00193, .00075, + .00037, .00157, .00307, + .19560, .05035, .03152, .00183, .00073, + .00037, .00149, .00288, + .18693, .04789, .02863, .00173, .00070, + .00036, .00141, .00271 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + .17898, .04565, .02615, .00163, .00067, + .00035, .00135, .00256, + .17165, .04360, .02400, .00155, .00065, + .00035, .00128, .00243, + .16491, .04173, .02212, .00148, .00062, + .00034, .00122, .00232, + .15865, .03999, .02047, .00140, .00060, + .00033, .00116, .00220, + .15286, .03840, .01901, .00133, .00058, + .00032, .00111, .00209 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + .40966, .11170, .17791, .00313, .00036, + .00002, .00236, .00601, + .36462, .09792, .13531, .00285, .00053, + .00002, .00220, .00522, + .32922, .08727, .10639, .00258, .00061, + .00002, .00203, .00459, + .30047, .07879, .08588, .00237, .00064, + .00006, .00186, .00410, + .27642, .07181, .07075, .00220, .00064, + .00013, .00171, .00368, + .25604, .06594, .05929, .00200, .00063, + .00019, .00159, .00335, + .23842, .06093, .05040, .00184, .00062, + .00021, .00148, .00305 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + .22304, .05661, .04338, .00171, .00060, + .00022, .00137, .00281, + .20949, .05284, .03774, .00161, .00057, + .00023, .00127, .00259, + .19748, .04953, .03317, .00152, .00056, + .00024, .00120, .00239, + .18678, .04657, .02938, .00141, .00053, + .00025, .00113, .00222, + .17714, .04394, .02624, .00131, .00050, + .00024, .00105, .00208, + .16840, .04159, .02359, .00124, .00048, + .00024, .00100, .00195, + .16048, .03947, .02134, .00118, .00047, + .00024, .00095, .00183 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + .15323, .03753, .01941, .00111, .00045, + .00023, .00090, .00172, + .14660, .03577, .01774, .00105, .00043, + .00023, .00085, .00163, + .14051, .03415, .01629, .00100, .00041, + .00022, .00080, .00155, + .13484, .03266, .01503, .00096, .00040, + .00022, .00077, .00146, + .12962, .03129, .01392, .00092, .00039, + .00021, .00074, .00138 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + .36892, .09612, .14738, .00209, .00027, + .00005, .00164, .00416, + .32575, .08362, .11006, .00189, .00040, + .00005, .00154, .00359, + .29204, .07404, .08523, .00172, .00045, + .00003, .00141, .00315, + .26495, .06645, .06790, .00156, .00048, + .00007, .00129, .00279, + .24245, .06026, .05532, .00144, .00048, + .00012, .00119, .00250, + .22344, .05509, .04590, .00133, .00046, + .00015, .00109, .00224, + .20708, .05070, .03867, .00124, .00046, + .00017, .00103, .00204 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + .19293, .04691, .03301, .00113, .00044, + .00017, .00095, .00188, + .18051, .04363, .02853, .00107, .00041, + .00017, .00088, .00172, + .16959, .04076, .02490, .00099, .00040, + .00018, .00082, .00160, + .15984, .03822, .02193, .00092, .00039, + .00018, .00077, .00148, + .15110, .03595, .01948, .00086, .00037, + .00018, .00072, .00137, + .14323, .03392, .01743, .00080, .00035, + .00017, .00068, .00128, + .13613, .03210, .01570, .00076, .00034, + .00017, .00064, .00120 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + .12964, .03044, .01422, .00071, .00032, + .00017, .00061, .00114, + .12370, .02894, .01295, .00067, .00031, + .00017, .00058, .00107, + .11826, .02757, .01185, .00065, .00030, + .00016, .00055, .00100, + .11324, .02631, .01090, .00060, .00029, + .00016, .00052, .00096, + .10863, .02515, .01006, .00057, .00028, + .00016, .00049, .00092 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + .32854, .08189, .12095, .00140, .00019, + .00003, .00112, .00280, + .28770, .07067, .08861, .00124, .00029, + .00002, .00104, .00240, + .25611, .06216, .06758, .00112, .00034, + .00003, .00097, .00211, + .23093, .05547, .05313, .00101, .00035, + .00005, .00089, .00186, + .21019, .05003, .04280, .00091, .00035, + .00009, .00082, .00165, + .19268, .04552, .03516, .00085, .00034, + .00011, .00075, .00150, + .17782, .04168, .02936, .00077, .00033, + .00013, .00071, .00135 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + .16498, .03843, .02487, .00071, .00032, + .00014, .00065, .00124, + .15377, .03561, .02134, .00065, .00030, + .00014, .00060, .00112, + .14391, .03316, .01850, .00061, .00029, + .00014, .00056, .00104, + .13520, .03098, .01621, .00056, .00029, + .00015, .00053, .00096, + .12740, .02906, .01432, .00052, .00027, + .00015, .00049, .00089, + .12038, .02735, .01274, .00050, .00026, + .00014, .00046, .00083, + .11406, .02581, .01142, .00047, .00024, + .00013, .00043, .00078 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + .10834, .02442, .01030, .00044, .00023, + .00013, .00041, .00073, + .10312, .02315, .00935, .00041, .00022, + .00013, .00038, .00068, + .09835, .02200, .00853, .00038, .00021, + .00012, .00036, .00065, + .09395, .02095, .00782, .00037, .00020, + .00012, .00035, .00061, + .08991, .01999, .00719, .00035, .00019, + .00012, .00033, .00058 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + .28928, .06908, .09837, .00096, .00010, + -.00001, .00071, .00185, + .25122, .05918, .07081, .00090, .00017, + -.00001, .00066, .00159, + .22214, .05173, .05319, .00079, .00020, + -.00002, .00061, .00138, + .19909, .04590, .04132, .00072, .00022, + .00001, .00056, .00122, + .18022, .04121, .03291, .00065, .00021, + .00003, .00051, .00107, + .16445, .03733, .02678, .00061, .00021, + .00005, .00046, .00097, + .15109, .03406, .02217, .00055, .00020, + .00006, .00043, .00087 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + .13960, .03127, .01863, .00050, .00020, + .00007, .00040, .00080, + .12961, .02888, .01588, .00047, .00019, + .00007, .00037, .00072, + .12089, .02680, .01369, .00044, .00017, + .00008, .00035, .00066, + .11318, .02496, .01192, .00041, .00017, + .00008, .00032, .00062, + .10632, .02335, .01048, .00038, .00016, + .00007, .00030, .00057, + .10019, .02191, .00928, .00036, .00015, + .00007, .00028, .00053, + .09467, .02062, .00829, .00034, .00014, + .00007, .00026, .00049 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + .08968, .01946, .00745, .00030, .00013, + .00007, .00025, .00047, + .08514, .01841, .00673, .00028, .00013, + .00007, .00023, .00044, + .08101, .01746, .00612, .00027, .00012, + .00007, .00022, .00041, + .07721, .01659, .00559, .00026, .00012, + .00006, .00020, .00038, + .07373, .01580, .00513, .00025, .00011, + .00006, .00019, .00036 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + .25129, .05737, .07880, .00053, .00010, + .00003, .00049, .00120, + .21645, .04877, .05571, .00050, .00014, + .00002, .00046, .00101, + .18999, .04236, .04123, .00047, .00016, + .00002, .00041, .00090, + .16923, .03738, .03159, .00043, .00016, + .00003, .00038, .00078, + .15235, .03339, .02488, .00038, .00016, + .00005, .00034, .00069, + .13832, .03010, .02004, .00037, .00015, + .00005, .00031, .00060, + .12648, .02735, .01645, .00033, .00015, + .00006, .00029, .00056 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + .11634, .02501, .01371, .00032, .00013, + .00006, .00027, .00049, + .10760, .02302, .01160, .00031, .00013, + .00006, .00024, .00045, + .10001, .02128, .00993, .00026, .00012, + .00006, .00022, .00042, + .09330, .01975, .00860, .00024, .00012, + .00006, .00021, .00039, + .08736, .01842, .00752, .00023, .00011, + .00006, .00019, .00036, + .08207, .01723, .00663, .00021, .00011, + .00005, .00018, .00033, + .07733, .01618, .00589, .00020, .00010, + .00005, .00017, .00030 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + .07305, .01523, .00527, .00019, .00009, + .00005, .00016, .00029, + .06917, .01438, .00475, .00018, .00009, + .00005, .00015, .00027, + .06565, .01361, .00430, .00017, .00008, + .00004, .00014, .00025, + .06242, .01290, .00391, .00016, .00008, + .00004, .00013, .00023, + .05948, .01225, .00358, .00015, .00007, + .00004, .00012, .00021 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + .21537, .04709, .06237, .00033, .00008, + .00004, .00032, .00073, + .18396, .03972, .04325, .00030, .00010, + .00003, .00030, .00063, + .16033, .03426, .03149, .00027, .00011, + .00002, .00026, .00055, + .14186, .03005, .02381, .00026, .00012, + .00004, .00025, .00048, + .12700, .02668, .01853, .00023, .00011, + .00004, .00022, .00043, + .11472, .02393, .01477, .00021, .00011, + .00005, .00020, .00038, + .10440, .02165, .01201, .00019, .00010, + .00005, .00018, .00035 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + .09562, .01972, .00993, .00018, .00010, + .00005, .00018, .00031, + .08810, .01807, .00834, .00016, .00009, + .00004, .00016, .00028, + .08156, .01665, .00709, .00015, .00008, + .00005, .00015, .00026, + .07582, .01541, .00610, .00014, .00008, + .00004, .00014, .00023, + .07077, .01432, .00531, .00012, .00008, + .00004, .00013, .00022, + .06627, .01336, .00466, .00011, .00007, + .00004, .00012, .00020, + .06225, .01250, .00412, .00012, .00007, + .00004, .00011, .00018 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + .05863, .01174, .00367, .00011, .00006, + .00004, .00010, .00017, + .05536, .01105, .00329, .00011, .00006, + .00003, .00009, .00016, + .05240, .01044, .00297, .00011, .00005, + .00003, .00009, .00014, + .04971, .00987, .00270, .00010, .00005, + .00003, .00009, .00014, + .04726, .00935, .00246, .00009, .00005, + .00003, .00008, .00013 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + .18221, .03819, .04874, .00020, .00004, + .00000, .00018, .00045, + .15422, .03196, .03316, .00022, .00006, + .00001, .00017, .00039, + .13344, .02737, .02377, .00019, .00006, + .00000, .00016, .00033, + .11736, .02387, .01774, .00018, .00007, + .00001, .00014, .00029, + .10443, .02109, .01364, .00016, .00006, + .00001, .00013, .00026, + .09385, .01882, .01076, .00014, .00005, + .00002, .00011, .00024, + .08502, .01695, .00867, .00013, .00006, + .00002, .00011, .00020 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + .07755, .01538, .00711, .00012, .00005, + .00002, .00010, .00018, + .07115, .01404, .00593, .00012, .00005, + .00002, .00009, .00016, + .06561, .01289, .00501, .00011, .00005, + .00002, .00008, .00015, + .06078, .01189, .00428, .00010, .00004, + .00002, .00008, .00013, + .05653, .01101, .00370, .00009, .00004, + .00002, .00007, .00013, + .05278, .01024, .00323, .00008, .00004, + .00002, .00006, .00012, + .04944, .00956, .00285, .00007, .00003, + .00002, .00006, .00012 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + .04643, .00895, .00253, .00007, .00003, + .00002, .00005, .00011, + .04374, .00841, .00226, .00007, .00003, + .00002, .00005, .00010, + .04131, .00792, .00203, .00006, .00003, + .00002, .00005, .00009, + .03908, .00747, .00184, .00005, .00003, + .00001, .00005, .00008, + .03706, .00706, .00167, .00005, .00003, + .00001, .00004, .00008 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + .15141, .03038, .03733, .00011, .00004, + .00003, .00013, .00026, + .12708, .02520, .02491, .00009, .00005, + .00003, .00012, .00024, + .10911, .02143, .01755, .00010, .00005, + .00002, .00011, .00020, + .09532, .01857, .01291, .00009, .00005, + .00002, .00010, .00017, + .08432, .01631, .00981, .00008, .00005, + .00002, .00009, .00015, + .07538, .01449, .00765, .00007, .00004, + .00002, .00008, .00013, + .06792, .01299, .00610, .00008, .00005, + .00002, .00007, .00011 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + .06168, .01173, .00496, .00006, .00004, + .00002, .00006, .00010, + .05634, .01067, .00410, .00006, .00003, + .00002, .00006, .00009, + .05175, .00975, .00344, .00005, .00003, + .00002, .00005, .00009, + .04777, .00897, .00293, .00005, .00003, + .00002, .00005, .00008, + .04428, .00828, .00252, .00004, .00003, + .00002, .00004, .00007, + .04119, .00768, .00218, .00004, .00003, + .00002, .00004, .00007, + .03846, .00714, .00191, .00004, .00003, + .00002, .00004, .00006 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + .03602, .00667, .00169, .00003, .00002, + .00002, .00004, .00006, + .03383, .00625, .00151, .00003, .00002, + .00001, .00003, .00005, + .03185, .00586, .00135, .00004, .00002, + .00001, .00003, .00005, + .03006, .00552, .00122, .00003, .00002, + .00001, .00003, .00004, + .02843, .00521, .00110, .00003, .00002, + .00001, .00003, .00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ + .09935, .01831, .02078, .00005, .00001, + .00000, .00004, .00008, + .08185, .01492, .01329, .00003, .00002, + .00000, .00003, .00007, + .06917, .01250, .00905, .00003, .00002, + .00000, .00003, .00006, + .05958, .01069, .00646, .00003, .00002, + .00000, .00003, .00005, + .05205, .00928, .00478, .00002, .00002, + .00000, .00003, .00004, + .04600, .00815, .00364, .00002, .00002, + .00001, .00003, .00004, + .04102, .00723, .00285, .00002, .00001, + .00001, .00002, .00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + .03688, .00647, .00227, .00003, .00002, + .00001, .00002, .00003, + .03341, .00583, .00185, .00002, .00001, + .00001, .00002, .00003, + .03044, .00529, .00153, .00002, .00001, + .00000, .00002, .00002, + .02787, .00483, .00128, .00001, .00001, + .00001, .00002, .00002, + .02564, .00443, .00109, .00001, .00001, + .00001, .00001, .00002, + .02369, .00408, .00094, .00001, .00001, + .00001, .00001, .00002, + .02198, .00377, .00081, .00001, .00001, + .00000, .00001, .00002 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ + .02045, .00350, .00071, .00001, .00001, + .00000, .00001, .00001, + .01909, .00326, .00063, .00001, .00001, + .00000, .00001, .00001, + .01788, .00304, .00056, .00001, .00001, + .00001, .00001, .00001, + .01678, .00285, .00050, .00001, .00001, + .00000, .00001, .00001, + .01579, .00267, .00045, .00001, .00001, + .00000, .00001, .00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ + .05968, .01008, .01048, .00002, .00000, + .00000, .00001, .00002, + .04818, .00806, .00641, .00001, .00000, + .00000, .00001, .00002, + .04001, .00664, .00420, .00001, .00000, + .00000, .00001, .00002, + .03394, .00559, .00290, .00001, .00000, + .00000, .00001, .00001, + .02925, .00479, .00209, .00001, .00000, + .00000, .00001, .00001, + .02554, .00416, .00155, .00001, .00000, + .00000, .00000, .00001, + .02253, .00365, .00119, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ + .02005, .00324, .00093, .00000, .00000, + .00000, .00000, .00001, + .01798, .00289, .00075, .00001, .00000, + .00000, .00000, .00001, + .01623, .00260, .00061, .00001, .00000, + .00000, .00001, .00001, + .01474, .00235, .00050, .00000, .00000, + .00000, .00000, .00001, + .01345, .00214, .00042, .00001, .00000, + .00000, .00000, .00000, + .01234, .00196, .00036, .00000, .00000, + .00000, .00000, .00001, + .01136, .00180, .00031, .00000, .00000, + .00000, .00000, .00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ + .01050, .00166, .00027, .00001, .00000, + .00000, .00000, .00000, + .00974, .00153, .00023, .00000, .00000, + .00000, .00000, .00000, + .00907, .00142, .00021, .00000, .00000, + .00000, .00000, .00000, + .00846, .00133, .00018, .00000, .00000, + .00000, .00000, .00000, + .00792, .00124, .00017, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ + .03190, .00492, .00463, .00000, .00000, + .00000, .00000, .00001, + .02518, .00384, .00269, .00000, .00000, + .00000, .00000, .00001, + .02051, .00311, .00169, .00000, .00000, + .00000, .00000, .00000, + .01711, .00258, .00113, .00000, .00000, + .00000, .00000, .00000, + .01452, .00218, .00079, .00001, .00000, + .00000, .00000, .00000, + .01250, .00187, .00057, .00000, .00000, + .00000, .00000, .00000, + .01089, .00162, .00043, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ + .00958, .00142, .00033, .00000, .00000, + .00000, .00000, .00000, + .00850, .00125, .00026, .00000, .00000, + .00000, .00000, .00000, + .00759, .00112, .00021, .00000, .00000, + .00000, .00000, .00000, + .00683, .00100, .00017, .00000, .00000, + .00000, .00000, .00000, + .00618, .00090, .00014, .00000, .00000, + .00000, .00000, .00000, + .00562, .00082, .00012, .00000, .00000, + .00000, .00000, .00000, + .00513, .00075, .00010, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ + .00471, .00068, .00009, .00000, .00000, + .00000, .00000, .00000, + .00434, .00063, .00007, .00000, .00000, + .00000, .00000, .00000, + .00401, .00058, .00007, .00000, .00000, + .00000, .00000, .00000, + .00372, .00054, .00006, .00000, .00000, + .00000, .00000, .00000, + .00346, .00050, .00005, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ + .01437, .00200, .00167, .00000, .00000, + .00000, .00000, .00000, + .01105, .00153, .00092, .00000, .00000, + .00000, .00000, .00000, + .00880, .00121, .00055, .00000, .00000, + .00000, .00000, .00000, + .00720, .00099, .00035, .00000, .00000, + .00000, .00000, .00000, + .00601, .00082, .00024, .00000, .00000, + .00000, .00000, .00000, + .00509, .00069, .00017, .00000, .00000, + .00000, .00000, .00000, + .00437, .00059, .00012, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ + .00379, .00051, .00009, .00000, .00000, + .00000, .00000, .00000, + .00332, .00045, .00007, .00000, .00000, + .00000, .00000, .00000, + .00293, .00039, .00005, .00000, .00000, + .00000, .00000, .00000, + .00261, .00035, .00004, .00000, .00000, + .00000, .00000, .00000, + .00234, .00031, .00004, .00000, .00000, + .00000, .00000, .00000, + .00210, .00028, .00003, .00000, .00000, + .00000, .00000, .00000, + .00190, .00025, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ + .00173, .00023, .00002, .00000, .00000, + .00000, .00000, .00000, + .00158, .00021, .00002, .00000, .00000, + .00000, .00000, .00000, + .00145, .00019, .00002, .00000, .00000, + .00000, .00000, .00000, + .00133, .00018, .00002, .00000, .00000, + .00000, .00000, .00000, + .00123, .00016, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ + .00109, .00012, .00007, .00000, .00000, + .00000, .00000, .00000, + .00078, .00008, .00003, .00000, .00000, + .00000, .00000, .00000, + .00058, .00006, .00002, .00000, .00000, + .00000, .00000, .00000, + .00045, .00005, .00001, .00000, .00000, + .00000, .00000, .00000, + .00036, .00004, .00001, .00000, .00000, + .00000, .00000, .00000, + .00029, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00024, .00003, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ + .00020, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00017, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00014, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .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(37,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