* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:31:31 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:55 plothow * Version 7.01 * * #include "pdf/pilot.h" C C----------------------------------------------------------------------- SUBROUTINE STRH3EP(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) C C :::::::::::: HARRIMAN MARTIN ROBERTS STIRLING (E) sea=ubar=dbar=2sbar C #include "pdf/impdp.inc" PARAMETER(NX=47) PARAMETER(NTENTH=21) DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) 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,4,5,0,0,5/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ DATA INIT/0/ DATA ((F(I,1,M),I=1,5),F(7,1,M),F(6,1,M),M=1,19) / . 0.01969, 0.00164, 0.09195, 0.01912, 0.00451, 0.00000, 0.01181, . 0.02025, 0.00179, 1.80084, 0.04394, 0.02883, 0.00000, 0.03639, . 0.02075, 0.00193, 4.19046, 0.08673, 0.07115, 0.00000, 0.07895, . 0.02122, 0.00206, 7.28293, 0.14772, 0.13172, 0.00000, 0.13973, . 0.02166, 0.00219, 11.13947, 0.22748, 0.21106, 0.00249, 0.21928, . 0.02208, 0.00231, 15.74975, 0.32609, 0.30929, 0.04857, 0.31770, . 0.02247, 0.00243, 21.02483, 0.44215, 0.42497, 0.17603, 0.43357, . 0.02285, 0.00255, 26.99445, 0.57644, 0.55891, 0.31205, 0.56769, . 0.02321, 0.00266, 33.64830, 0.72906, 0.71118, 0.46562, 0.72014, . 0.02356, 0.00277, 40.98059, 0.90018, 0.88197, 0.63832, 0.89109, . 0.02389, 0.00288, 48.83829, 1.08661, 1.06809, 0.82601, 1.07737, . 0.02421, 0.00299, 57.21460, 1.28838, 1.26954, 1.02898, 1.27898, . 0.02452, 0.00309, 66.23915, 1.50867, 1.48954, 1.25043, 1.49913, . 0.02482, 0.00320, 75.57774, 1.73989, 1.72047, 1.48274, 1.73021, . 0.02510, 0.00330, 85.48186, 1.98809, 1.96839, 1.73197, 1.97826, . 0.02538, 0.00340, 95.75615, 2.24880, 2.22882, 1.99366, 2.23884, . 0.02566, 0.00349,106.43900, 2.52304, 2.50280, 2.26883, 2.51295, . 0.02592, 0.00359,117.48085, 2.80970, 2.78920, 2.55638, 2.79948, . 0.02618, 0.00368,128.87819, 3.10878, 3.08803, 2.85631, 3.09843 / DATA ((F(I,2,M),I=1,5),F(7,2,M),F(6,2,M),M=1,19) / . 0.02474, 0.00250, 0.11060, 0.02372, 0.00499, 0.00000, 0.01435, . 0.02542, 0.00271, 1.73254, 0.04940, 0.03005, 0.00000, 0.03973, . 0.02605, 0.00291, 3.89445, 0.09070, 0.07078, 0.00000, 0.08075, . 0.02663, 0.00310, 6.60474, 0.14701, 0.12656, 0.00000, 0.13679, . 0.02717, 0.00329, 9.90134, 0.21834, 0.19738, 0.00220, 0.20787, . 0.02768, 0.00347, 13.76108, 0.30443, 0.28300, 0.04204, 0.29373, . 0.02817, 0.00364, 18.09773, 0.40388, 0.38199, 0.15130, 0.39295, . 0.02863, 0.00381, 22.92850, 0.51712, 0.49480, 0.26591, 0.50598, . 0.02907, 0.00397, 28.23746, 0.64402, 0.62128, 0.39349, 0.63267, . 0.02950, 0.00413, 34.01329, 0.78454, 0.76140, 0.53526, 0.77299, . 0.02990, 0.00429, 40.12871, 0.93601, 0.91248, 0.68770, 0.92427, . 0.03030, 0.00444, 46.57640, 1.09831, 1.07441, 0.85093, 1.08639, . 0.03068, 0.00459, 53.45575, 1.27387, 1.24961, 1.02739, 1.26177, . 0.03104, 0.00473, 60.50339, 1.45662, 1.43202, 1.21098, 1.44435, . 0.03139, 0.00487, 67.91449, 1.65123, 1.62629, 1.40639, 1.63879, . 0.03174, 0.00501, 75.53748, 1.85416, 1.82889, 1.61007, 1.84156, . 0.03207, 0.00515, 83.40164, 2.06614, 2.04055, 1.82277, 2.05338, . 0.03239, 0.00529, 91.46950, 2.28628, 2.26039, 2.04360, 2.27337, . 0.03271, 0.00542, 99.73819, 2.51453, 2.48833, 2.27250, 2.50147 / DATA ((F(I,3,M),I=1,5),F(7,3,M),F(6,3,M),M=1,19) / . 0.03097, 0.00380, 0.13304, 0.02943, 0.00542, 0.00000, 0.01743, . 0.03181, 0.00411, 1.66697, 0.05564, 0.03087, 0.00000, 0.04326, . 0.03258, 0.00441, 3.61905, 0.09508, 0.06960, 0.00000, 0.08235, . 0.03329, 0.00468, 5.98881, 0.14664, 0.12051, 0.00000, 0.13359, . 0.03395, 0.00495, 8.79911, 0.21001, 0.18327, 0.00194, 0.19666, . 0.03458, 0.00521, 12.02071, 0.28474, 0.25742, 0.03617, 0.27110, . 0.03518, 0.00545, 15.57407, 0.36954, 0.34166, 0.12932, 0.35562, . 0.03574, 0.00569, 19.46941, 0.46458, 0.43618, 0.22540, 0.45041, . 0.03628, 0.00593, 23.68933, 0.56964, 0.54072, 0.33090, 0.55521, . 0.03680, 0.00616, 28.22121, 0.68455, 0.65515, 0.44676, 0.66988, . 0.03730, 0.00638, 32.96075, 0.80711, 0.77725, 0.57003, 0.79221, . 0.03778, 0.00659, 37.90230, 0.93715, 0.90684, 0.70076, 0.92202, . 0.03824, 0.00680, 43.12274, 1.07650, 1.04576, 0.84077, 1.06116, . 0.03868, 0.00701, 48.41628, 1.22038, 1.18923, 0.98526, 1.20484, . 0.03911, 0.00721, 53.93500, 1.37238, 1.34082, 1.13784, 1.35664, . 0.03953, 0.00740, 59.56230, 1.52971, 1.49776, 1.29573, 1.51378, . 0.03994, 0.00760, 65.32150, 1.69292, 1.66059, 1.45946, 1.67680, . 0.04033, 0.00779, 71.18483, 1.86131, 1.82861, 1.62834, 1.84500, . 0.04071, 0.00797, 77.15089, 2.03481, 2.00175, 1.80231, 2.01832 / DATA ((F(I,4,M),I=1,5),F(7,4,M),F(6,4,M),M=1,19) / . 0.03526, 0.00486, 0.14825, 0.03340, 0.00564, 0.00000, 0.01952, . 0.03620, 0.00525, 1.62987, 0.05971, 0.03109, 0.00000, 0.04541, . 0.03706, 0.00561, 3.46685, 0.09788, 0.06847, 0.00000, 0.08319, . 0.03786, 0.00596, 5.65480, 0.14665, 0.11650, 0.00000, 0.13159, . 0.03861, 0.00629, 8.21079, 0.20558, 0.17473, 0.00179, 0.19017, . 0.03931, 0.00660, 11.10445, 0.27417, 0.24267, 0.03301, 0.25844, . 0.03998, 0.00691, 14.26122, 0.35121, 0.31910, 0.11763, 0.33518, . 0.04061, 0.00721, 17.68906, 0.43680, 0.40410, 0.20408, 0.42047, . 0.04122, 0.00749, 21.37103, 0.53065, 0.49738, 0.29825, 0.51404, . 0.04180, 0.00777, 25.29486, 0.63258, 0.59877, 0.40096, 0.61571, . 0.04236, 0.00804, 29.36853, 0.74063, 0.70631, 0.50958, 0.72350, . 0.04289, 0.00831, 33.58759, 0.85462, 0.81980, 0.62412, 0.83724, . 0.04341, 0.00856, 38.01880, 0.97611, 0.94081, 0.74614, 0.95849, . 0.04391, 0.00881, 42.48444, 1.10095, 1.06519, 0.87148, 1.08311, . 0.04439, 0.00906, 47.11644, 1.23222, 1.19601, 1.00320, 1.21415, . 0.04486, 0.00930, 51.81485, 1.36751, 1.33087, 1.13894, 1.34923, . 0.04531, 0.00953, 56.60069, 1.50727, 1.47021, 1.27912, 1.48879, . 0.04575, 0.00976, 61.45084, 1.65092, 1.61345, 1.42316, 1.63223, . 0.04618, 0.00999, 66.36472, 1.79838, 1.76052, 1.57100, 1.77950 / DATA ((F(I,5,M),I=1,5),F(7,5,M),F(6,5,M),M=1,19) / . 0.03862, 0.00579, 0.16010, 0.03653, 0.00577, 0.00000, 0.02115, . 0.03964, 0.00624, 1.60413, 0.06281, 0.03111, 0.00000, 0.04697, . 0.04057, 0.00666, 3.36261, 0.10000, 0.06744, 0.00000, 0.08373, . 0.04144, 0.00707, 5.42869, 0.14678, 0.11341, 0.00000, 0.13011, . 0.04225, 0.00745, 7.81650, 0.20265, 0.16853, 0.00169, 0.18561, . 0.04301, 0.00782, 10.49561, 0.26710, 0.23227, 0.03090, 0.24971, . 0.04373, 0.00817, 13.39536, 0.33899, 0.30349, 0.10983, 0.32127, . 0.04442, 0.00851, 16.52269, 0.41835, 0.38222, 0.18993, 0.40032, . 0.04508, 0.00885, 19.86148, 0.50489, 0.46815, 0.27670, 0.48655, . 0.04571, 0.00917, 23.39996, 0.59841, 0.56108, 0.37089, 0.57978, . 0.04631, 0.00948, 27.05432, 0.69712, 0.65924, 0.47007, 0.67821, . 0.04689, 0.00978, 30.82094, 0.80083, 0.76241, 0.57425, 0.78166, . 0.04745, 0.01008, 34.76041, 0.91094, 0.87200, 0.68480, 0.89151, . 0.04799, 0.01037, 38.71289, 1.02371, 0.98428, 0.79798, 1.00403, . 0.04851, 0.01065, 42.79761, 1.14187, 1.10196, 0.91653, 1.12196, . 0.04902, 0.01093, 46.92542, 1.26330, 1.22292, 1.03832, 1.24315, . 0.04951, 0.01120, 51.11560, 1.38837, 1.34754, 1.16373, 1.36800, . 0.04998, 0.01146, 55.34810, 1.51656, 1.47530, 1.29225, 1.49598, . 0.05044, 0.01172, 59.62294, 1.64781, 1.60613, 1.42381, 1.62702 / DATA ((F(I,6,M),I=1,5),F(7,6,M),F(6,6,M),M=1,19) / . 0.04142, 0.00662, 0.16995, 0.03917, 0.00585, 0.00000, 0.02251, . 0.04250, 0.00713, 1.58450, 0.06536, 0.03104, 0.00000, 0.04821, . 0.04350, 0.00761, 3.28379, 0.10174, 0.06649, 0.00000, 0.08413, . 0.04442, 0.00806, 5.25920, 0.14696, 0.11086, 0.00000, 0.12893, . 0.04528, 0.00850, 7.52310, 0.20052, 0.16362, 0.00161, 0.18209, . 0.04609, 0.00891, 10.04541, 0.26188, 0.22423, 0.02932, 0.24308, . 0.04686, 0.00931, 12.75864, 0.32996, 0.29160, 0.10405, 0.31081, . 0.04759, 0.00969, 15.66924, 0.40476, 0.36572, 0.17949, 0.38527, . 0.04829, 0.01006, 18.76186, 0.48596, 0.44628, 0.26087, 0.46615, . 0.04896, 0.01042, 22.02528, 0.57338, 0.53308, 0.34887, 0.55326, . 0.04960, 0.01077, 25.38167, 0.66535, 0.62445, 0.44124, 0.64494, . 0.05022, 0.01111, 28.82811, 0.76167, 0.72021, 0.53796, 0.74098, . 0.05081, 0.01144, 32.42097, 0.86362, 0.82162, 0.64028, 0.84266, . 0.05138, 0.01176, 36.01315, 0.96776, 0.92523, 0.74477, 0.94654, . 0.05194, 0.01208, 39.71483, 1.07660, 1.03357, 0.85395, 1.05513, . 0.05247, 0.01238, 43.44460, 1.18818, 1.14466, 0.96584, 1.16647, . 0.05299, 0.01268, 47.22049, 1.30285, 1.25886, 1.08080, 1.28090, . 0.05350, 0.01297, 51.02466, 1.42013, 1.37568, 1.19836, 1.39796, . 0.05399, 0.01326, 54.85760, 1.53996, 1.49506, 1.31845, 1.51756 / DATA ((F(I,7,M),I=1,5),F(7,7,M),F(6,7,M),M=1,19) / . 0.05129, 0.01008, 0.20471, 0.04864, 0.00598, 0.00000, 0.02731, . 0.05260, 0.01081, 1.52550, 0.07414, 0.03025, 0.00000, 0.05220, . 0.05380, 0.01150, 3.04965, 0.10774, 0.06272, 0.00000, 0.08525, . 0.05491, 0.01216, 4.76304, 0.14817, 0.10211, 0.00000, 0.12516, . 0.05595, 0.01277, 6.67512, 0.19485, 0.14783, 0.00139, 0.17137, . 0.05692, 0.01336, 8.75870, 0.24726, 0.19934, 0.02478, 0.22333, . 0.05785, 0.01393, 10.95660, 0.30449, 0.25571, 0.08752, 0.28014, . 0.05873, 0.01447, 13.27482, 0.36644, 0.31686, 0.14985, 0.34169, . 0.05957, 0.01500, 15.70096, 0.43282, 0.38246, 0.21622, 0.40768, . 0.06037, 0.01550, 18.22633, 0.50342, 0.45233, 0.28717, 0.47792, . 0.06114, 0.01600, 20.78960, 0.57694, 0.52516, 0.36089, 0.55110, . 0.06189, 0.01647, 23.39034, 0.65319, 0.60074, 0.43734, 0.62701, . 0.06260, 0.01693, 26.07355, 0.73314, 0.68004, 0.51748, 0.70664, . 0.06329, 0.01738, 28.72635, 0.81414, 0.76043, 0.59865, 0.78734, . 0.06396, 0.01782, 31.43526, 0.89811, 0.84380, 0.68278, 0.87101, . 0.06460, 0.01824, 34.13910, 0.98355, 0.92866, 0.76837, 0.95616, . 0.06523, 0.01866, 36.85295, 1.07072, 1.01529, 0.85569, 1.04306, . 0.06583, 0.01906, 39.56459, 1.15928, 1.10331, 0.94438, 1.13136, . 0.06642, 0.01946, 42.27548, 1.24918, 1.19270, 1.03441, 1.22100 / DATA ((F(I,8,M),I=1,5),F(7,8,M),F(6,8,M),M=1,19) / . 0.06312, 0.01532, 0.24698, 0.06044, 0.00587, 0.00000, 0.03316, . 0.06468, 0.01638, 1.46986, 0.08459, 0.02853, 0.00000, 0.05657, . 0.06612, 0.01737, 2.82997, 0.11507, 0.05766, 0.00000, 0.08638, . 0.06745, 0.01830, 4.30722, 0.15077, 0.09212, 0.00000, 0.12147, . 0.06869, 0.01918, 5.91111, 0.19107, 0.13127, 0.00119, 0.16120, . 0.06986, 0.02002, 7.61915, 0.23547, 0.17459, 0.02075, 0.20507, . 0.07096, 0.02081, 9.38452, 0.28321, 0.22133, 0.07298, 0.25231, . 0.07202, 0.02158, 11.21407, 0.33416, 0.27132, 0.12408, 0.30278, . 0.07302, 0.02231, 13.09881, 0.38802, 0.32429, 0.17777, 0.35620, . 0.07399, 0.02302, 15.03276, 0.44462, 0.38003, 0.23452, 0.41238, . 0.07491, 0.02371, 16.96877, 0.50296, 0.43756, 0.29288, 0.47031, . 0.07580, 0.02437, 18.90854, 0.56287, 0.49669, 0.35282, 0.52983, . 0.07665, 0.02501, 20.88826, 0.62507, 0.55815, 0.41506, 0.59167, . 0.07748, 0.02563, 22.82228, 0.68757, 0.61994, 0.47759, 0.65382, . 0.07828, 0.02623, 24.77852, 0.75182, 0.68350, 0.54185, 0.71772, . 0.07905, 0.02681, 26.71161, 0.81669, 0.74772, 0.60675, 0.78227, . 0.07980, 0.02738, 28.63434, 0.88239, 0.81279, 0.67246, 0.84766, . 0.08052, 0.02794, 30.53871, 0.94867, 0.87847, 0.73876, 0.91364, . 0.08123, 0.02848, 32.42691, 1.01550, 0.94471, 0.80561, 0.98018 / DATA ((F(I,9,M),I=1,5),F(7,9,M),F(6,9,M),M=1,19) / . 0.07103, 0.01957, 0.27603, 0.06866, 0.00570, 0.00000, 0.03718, . 0.07276, 0.02087, 1.43921, 0.09173, 0.02713, 0.00000, 0.05944, . 0.07435, 0.02209, 2.70710, 0.12029, 0.05419, 0.00000, 0.08726, . 0.07583, 0.02323, 4.05602, 0.15330, 0.08584, 0.00000, 0.11960, . 0.07720, 0.02431, 5.49645, 0.19011, 0.12139, 0.00108, 0.15578, . 0.07850, 0.02532, 7.00905, 0.23023, 0.16033, 0.01861, 0.19532, . 0.07973, 0.02629, 8.55311, 0.27300, 0.20201, 0.06532, 0.23755, . 0.08090, 0.02722, 10.13611, 0.31824, 0.24622, 0.11061, 0.28228, . 0.08202, 0.02811, 11.75115, 0.36570, 0.29271, 0.15782, 0.32926, . 0.08309, 0.02897, 13.39391, 0.41522, 0.34130, 0.20738, 0.37832, . 0.08411, 0.02979, 15.02436, 0.46594, 0.39115, 0.25804, 0.42860, . 0.08510, 0.03059, 16.64526, 0.51771, 0.44209, 0.30976, 0.47996, . 0.08605, 0.03136, 18.28867, 0.57115, 0.49473, 0.36316, 0.53300, . 0.08696, 0.03210, 19.88211, 0.62458, 0.54740, 0.41655, 0.58606, . 0.08785, 0.03282, 21.48447, 0.67922, 0.60131, 0.47114, 0.64033, . 0.08871, 0.03352, 23.05798, 0.73413, 0.65553, 0.52601, 0.69490, . 0.08954, 0.03420, 24.61417, 0.78949, 0.71022, 0.58133, 0.74992, . 0.09034, 0.03486, 26.14708, 0.84510, 0.76519, 0.63691, 0.80522, . 0.09112, 0.03550, 27.65913, 0.90095, 0.82042, 0.69271, 0.86076 / DATA ((F(I,10,M),I=1,5),F(7,10,M),F(6,10,M),M=1,19) / . 0.07712, 0.02327, 0.29897, 0.07518, 0.00553, 0.00000, 0.04036, . 0.07898, 0.02478, 1.41851, 0.09741, 0.02602, 0.00000, 0.06173, . 0.08069, 0.02619, 2.62196, 0.12459, 0.05161, 0.00000, 0.08812, . 0.08228, 0.02750, 3.88335, 0.15575, 0.08132, 0.00000, 0.11856, . 0.08376, 0.02873, 5.21403, 0.19019, 0.11443, 0.00101, 0.15234, . 0.08516, 0.02990, 6.59717, 0.22744, 0.15045, 0.01719, 0.18899, . 0.08648, 0.03100, 7.99611, 0.26691, 0.18877, 0.06024, 0.22788, . 0.08774, 0.03206, 9.41899, 0.30840, 0.22918, 0.10170, 0.26884, . 0.08895, 0.03308, 10.86035, 0.35168, 0.27144, 0.14468, 0.31161, . 0.09010, 0.03405, 12.31692, 0.39660, 0.31539, 0.18957, 0.35605, . 0.09121, 0.03499, 13.75340, 0.44240, 0.36027, 0.23526, 0.40139, . 0.09227, 0.03589, 15.17321, 0.48893, 0.40595, 0.28170, 0.44750, . 0.09329, 0.03677, 16.60567, 0.53677, 0.45295, 0.32945, 0.49492, . 0.09428, 0.03761, 17.98672, 0.58441, 0.49982, 0.37701, 0.54218, . 0.09523, 0.03842, 19.36955, 0.63295, 0.54760, 0.42547, 0.59035, . 0.09616, 0.03921, 20.72107, 0.68157, 0.59550, 0.47400, 0.63860, . 0.09705, 0.03997, 22.05208, 0.73041, 0.64366, 0.52278, 0.68711, . 0.09792, 0.04072, 23.35773, 0.77934, 0.69192, 0.57163, 0.73570, . 0.09876, 0.04144, 24.64058, 0.82831, 0.74026, 0.62054, 0.78436 / DATA ((F(I,11,M),I=1,5),F(7,11,M),F(6,11,M),M=1,19) / . 0.08212, 0.02662, 0.31835, 0.08073, 0.00546, 0.00000, 0.04310, . 0.08410, 0.02830, 1.40268, 0.10251, 0.02542, 0.00000, 0.06398, . 0.08592, 0.02986, 2.55492, 0.12878, 0.05004, 0.00000, 0.08943, . 0.08761, 0.03132, 3.74847, 0.15860, 0.07837, 0.00000, 0.11852, . 0.08918, 0.03268, 4.99557, 0.19131, 0.10970, 0.00096, 0.15054, . 0.09067, 0.03397, 6.28086, 0.22645, 0.14357, 0.01614, 0.18505, . 0.09208, 0.03519, 7.57115, 0.26346, 0.17940, 0.05646, 0.22148, . 0.09342, 0.03636, 8.87490, 0.30217, 0.21701, 0.09509, 0.25964, . 0.09470, 0.03748, 10.18790, 0.34235, 0.25614, 0.13493, 0.29930, . 0.09593, 0.03855, 11.50772, 0.38386, 0.29667, 0.17637, 0.34033, . 0.09710, 0.03958, 12.80232, 0.42603, 0.33791, 0.21838, 0.38203, . 0.09823, 0.04057, 14.07607, 0.46873, 0.37972, 0.26095, 0.42429, . 0.09932, 0.04152, 15.35603, 0.51245, 0.42261, 0.30455, 0.46759, . 0.10037, 0.04244, 16.58408, 0.55587, 0.46523, 0.34786, 0.51062, . 0.10138, 0.04333, 17.80927, 0.59996, 0.50856, 0.39184, 0.55433, . 0.10236, 0.04419, 19.00201, 0.64399, 0.55188, 0.43578, 0.59801, . 0.10331, 0.04503, 20.17259, 0.68812, 0.59531, 0.47981, 0.64179, . 0.10424, 0.04584, 21.31697, 0.73221, 0.63873, 0.52381, 0.68555, . 0.10513, 0.04662, 22.43721, 0.77623, 0.68212, 0.56774, 0.72925 / DATA ((F(I,12,M),I=1,5),F(7,12,M),F(6,12,M),M=1,19) / . 0.09937, 0.04033, 0.38915, 0.10054, 0.00513, 0.00000, 0.05284, . 0.10178, 0.04265, 1.36061, 0.12058, 0.02320, 0.00000, 0.07190, . 0.10399, 0.04478, 2.35765, 0.14385, 0.04469, 0.00000, 0.09429, . 0.10606, 0.04676, 3.35229, 0.16954, 0.06880, 0.00001, 0.11920, . 0.10798, 0.04860, 4.35914, 0.19705, 0.09487, 0.00080, 0.14600, . 0.10979, 0.05033, 5.36898, 0.22599, 0.12249, 0.01311, 0.17428, . 0.11152, 0.05196, 6.35800, 0.25596, 0.15125, 0.04566, 0.20365, . 0.11315, 0.05351, 7.33600, 0.28679, 0.18094, 0.07630, 0.23392, . 0.11472, 0.05499, 8.30194, 0.31829, 0.21140, 0.10742, 0.26490, . 0.11622, 0.05639, 9.25586, 0.35038, 0.24250, 0.13935, 0.29650, . 0.11765, 0.05774, 10.17506, 0.38258, 0.27378, 0.17134, 0.32824, . 0.11903, 0.05903, 11.06490, 0.41480, 0.30513, 0.20339, 0.36003, . 0.12036, 0.06027, 11.94716, 0.44740, 0.33692, 0.23584, 0.39223, . 0.12164, 0.06145, 12.77997, 0.47947, 0.36822, 0.26777, 0.42392, . 0.12287, 0.06260, 13.60090, 0.51169, 0.39972, 0.29986, 0.45578, . 0.12407, 0.06370, 14.38942, 0.54358, 0.43092, 0.33164, 0.48732, . 0.12522, 0.06476, 15.15396, 0.57525, 0.46193, 0.36320, 0.51866, . 0.12634, 0.06579, 15.89250, 0.60661, 0.49267, 0.39448, 0.54972, . 0.12743, 0.06678, 16.60741, 0.63767, 0.52314, 0.42545, 0.58049 / DATA ((F(I,13,M),I=1,5),F(7,13,M),F(6,13,M),M=1,19) / . 0.11969, 0.06086, 0.48283, 0.12442, 0.00481, 0.00000, 0.06462, . 0.12274, 0.06394, 1.33566, 0.14268, 0.02119, 0.00000, 0.08195, . 0.12554, 0.06674, 2.17842, 0.16303, 0.03989, 0.00000, 0.10148, . 0.12815, 0.06931, 2.98664, 0.18481, 0.06022, 0.00001, 0.12254, . 0.13057, 0.07169, 3.77663, 0.20752, 0.08163, 0.00067, 0.14461, . 0.13287, 0.07390, 4.54550, 0.23085, 0.10381, 0.01049, 0.16737, . 0.13503, 0.07598, 5.27791, 0.25455, 0.12646, 0.03632, 0.19055, . 0.13709, 0.07793, 5.98464, 0.27848, 0.14944, 0.06014, 0.21401, . 0.13904, 0.07978, 6.66721, 0.30252, 0.17261, 0.08394, 0.23761, . 0.14092, 0.08154, 7.32768, 0.32661, 0.19590, 0.10798, 0.26131, . 0.14272, 0.08320, 7.95116, 0.35046, 0.21901, 0.13175, 0.28479, . 0.14444, 0.08478, 8.54288, 0.37401, 0.24188, 0.15526, 0.30801, . 0.14609, 0.08630, 9.12026, 0.39753, 0.26476, 0.17875, 0.33121, . 0.14769, 0.08774, 9.65437, 0.42040, 0.28705, 0.20162, 0.35379, . 0.14922, 0.08912, 10.17378, 0.44311, 0.30921, 0.22434, 0.37623, . 0.15070, 0.09045, 10.66496, 0.46534, 0.33095, 0.24660, 0.39821, . 0.15213, 0.09172, 11.13406, 0.48719, 0.35233, 0.26848, 0.41983, . 0.15352, 0.09295, 11.58041, 0.50862, 0.37332, 0.28997, 0.44105, . 0.15486, 0.09412, 12.00657, 0.52965, 0.39394, 0.31106, 0.46187 / DATA ((F(I,14,M),I=1,5),F(7,14,M),F(6,14,M),M=1,19) / . 0.13360, 0.07717, 0.55302, 0.13991, 0.00463, 0.00000, 0.07227, . 0.13717, 0.08070, 1.33318, 0.15698, 0.02007, 0.00000, 0.08854, . 0.14045, 0.08390, 2.08618, 0.17553, 0.03723, 0.00000, 0.10640, . 0.14348, 0.08683, 2.79032, 0.19500, 0.05553, 0.00000, 0.12529, . 0.14632, 0.08949, 3.46378, 0.21497, 0.07445, 0.00057, 0.14474, . 0.14899, 0.09198, 4.10651, 0.23519, 0.09377, 0.00911, 0.16451, . 0.15149, 0.09428, 4.70780, 0.25548, 0.11326, 0.03145, 0.18441, . 0.15387, 0.09645, 5.27863, 0.27572, 0.13279, 0.05179, 0.20429, . 0.15615, 0.09848, 5.82186, 0.29582, 0.15226, 0.07187, 0.22408, . 0.15832, 0.10041, 6.34034, 0.31576, 0.17163, 0.09197, 0.24375, . 0.16039, 0.10222, 6.82258, 0.33533, 0.19069, 0.11166, 0.26306, . 0.16237, 0.10394, 7.27396, 0.35448, 0.20939, 0.13097, 0.28199, . 0.16427, 0.10558, 7.70980, 0.37345, 0.22795, 0.15011, 0.30076, . 0.16608, 0.10714, 8.10845, 0.39175, 0.24589, 0.16860, 0.31888, . 0.16783, 0.10862, 8.49192, 0.40979, 0.26359, 0.18684, 0.33675, . 0.16952, 0.11004, 8.84949, 0.42732, 0.28083, 0.20458, 0.35413, . 0.17114, 0.11139, 9.18768, 0.44443, 0.29768, 0.22191, 0.37111, . 0.17271, 0.11269, 9.50637, 0.46111, 0.31412, 0.23882, 0.38767, . 0.17422, 0.11393, 9.80735, 0.47738, 0.33016, 0.25532, 0.40383 / DATA ((F(I,15,M),I=1,5),F(7,15,M),F(6,15,M),M=1,19) / . 0.14481, 0.09112, 0.61315, 0.15120, 0.00451, 0.00000, 0.07786, . 0.14886, 0.09496, 1.33990, 0.16734, 0.01935, 0.00001, 0.09335, . 0.15256, 0.09841, 2.02827, 0.18456, 0.03549, 0.00000, 0.11004, . 0.15597, 0.10154, 2.66052, 0.20237, 0.05242, 0.00000, 0.12742, . 0.15917, 0.10438, 3.25520, 0.22039, 0.06970, 0.00052, 0.14508, . 0.16216, 0.10702, 3.81434, 0.23845, 0.08713, 0.00821, 0.16282, . 0.16496, 0.10945, 4.33011, 0.25640, 0.10455, 0.02827, 0.18051, . 0.16762, 0.11173, 4.81355, 0.27413, 0.12184, 0.04635, 0.19802, . 0.17015, 0.11385, 5.26825, 0.29161, 0.13892, 0.06404, 0.21531, . 0.17257, 0.11586, 5.69755, 0.30880, 0.15579, 0.08161, 0.23235, . 0.17486, 0.11774, 6.09223, 0.32555, 0.17228, 0.09871, 0.24896, . 0.17705, 0.11951, 6.45767, 0.34184, 0.18834, 0.11537, 0.26514, . 0.17914, 0.12120, 6.80753, 0.35786, 0.20418, 0.13177, 0.28107, . 0.18114, 0.12280, 7.12372, 0.37323, 0.21939, 0.14753, 0.29636, . 0.18306, 0.12432, 7.42542, 0.38828, 0.23432, 0.16299, 0.31135, . 0.18491, 0.12576, 7.70387, 0.40282, 0.24878, 0.17794, 0.32586, . 0.18669, 0.12713, 7.96485, 0.41695, 0.26284, 0.19247, 0.33995, . 0.18839, 0.12844, 8.20850, 0.43065, 0.27649, 0.20658, 0.35362, . 0.19004, 0.12969, 8.43655, 0.44393, 0.28974, 0.22028, 0.36689 / DATA ((F(I,16,M),I=1,5),F(7,16,M),F(6,16,M),M=1,19) / . 0.15457, 0.10347, 0.66686, 0.15987, 0.00442, 0.00001, 0.08215, . 0.15905, 0.10751, 1.35085, 0.17520, 0.01881, 0.00001, 0.09701, . 0.16313, 0.11112, 1.98874, 0.19132, 0.03419, 0.00001, 0.11277, . 0.16691, 0.11437, 2.56643, 0.20779, 0.05009, 0.00002, 0.12897, . 0.17041, 0.11730, 3.10206, 0.22430, 0.06616, 0.00050, 0.14525, . 0.17368, 0.12003, 3.59976, 0.24069, 0.08220, 0.00756, 0.16147, . 0.17674, 0.12253, 4.05323, 0.25684, 0.09809, 0.02594, 0.17749, . 0.17963, 0.12485, 4.47380, 0.27268, 0.11375, 0.04238, 0.19325, . 0.18238, 0.12701, 4.86539, 0.28819, 0.12912, 0.05836, 0.20870, . 0.18499, 0.12904, 5.23162, 0.30335, 0.14419, 0.07411, 0.22382, . 0.18748, 0.13094, 5.56475, 0.31802, 0.15882, 0.08937, 0.23847, . 0.18983, 0.13272, 5.87111, 0.33220, 0.17300, 0.10414, 0.25265, . 0.19209, 0.13441, 6.16245, 0.34608, 0.18691, 0.11860, 0.26655, . 0.19425, 0.13599, 6.42168, 0.35931, 0.20019, 0.13243, 0.27980, . 0.19632, 0.13750, 6.66752, 0.37222, 0.21317, 0.14593, 0.29275, . 0.19832, 0.13891, 6.89266, 0.38465, 0.22570, 0.15895, 0.30523, . 0.20022, 0.14027, 7.10191, 0.39665, 0.23782, 0.17154, 0.31729, . 0.20204, 0.14156, 7.29554, 0.40822, 0.24953, 0.18370, 0.32893, . 0.20379, 0.14279, 7.47514, 0.41940, 0.26086, 0.19547, 0.34019 / DATA ((F(I,17,M),I=1,5),F(7,17,M),F(6,17,M),M=1,19) / . 0.19468, 0.15140, 0.88653, 0.18271, 0.00417, 0.00000, 0.09344, . 0.20087, 0.15560, 1.42751, 0.19492, 0.01719, 0.00001, 0.10606, . 0.20648, 0.15927, 1.90512, 0.20715, 0.03027, 0.00000, 0.11872, . 0.21152, 0.16249, 2.31617, 0.21912, 0.04316, 0.00001, 0.13117, . 0.21612, 0.16538, 2.67905, 0.23071, 0.05566, 0.00039, 0.14320, . 0.22044, 0.16792, 3.00095, 0.24185, 0.06773, 0.00570, 0.15481, . 0.22443, 0.17023, 3.28159, 0.25246, 0.07931, 0.01937, 0.16591, . 0.22812, 0.17234, 3.53115, 0.26262, 0.09040, 0.03126, 0.17654, . 0.23159, 0.17427, 3.75441, 0.27230, 0.10102, 0.04251, 0.18669, . 0.23485, 0.17605, 3.95557, 0.28155, 0.11120, 0.05337, 0.19639, . 0.23789, 0.17767, 4.13130, 0.29027, 0.12085, 0.06365, 0.20559, . 0.24078, 0.17916, 4.28594, 0.29851, 0.13001, 0.07340, 0.21429, . 0.24353, 0.18054, 4.42826, 0.30643, 0.13882, 0.08278, 0.22265, . 0.24607, 0.18184, 4.54817, 0.31378, 0.14707, 0.09158, 0.23045, . 0.24851, 0.18303, 4.65840, 0.32082, 0.15499, 0.10002, 0.23794, . 0.25085, 0.18412, 4.75493, 0.32745, 0.16249, 0.10803, 0.24500, . 0.25307, 0.18514, 4.84069, 0.33374, 0.16964, 0.11566, 0.25172, . 0.25518, 0.18610, 4.91624, 0.33971, 0.17644, 0.12294, 0.25811, . 0.25720, 0.18699, 4.98319, 0.34536, 0.18292, 0.12986, 0.26418 / DATA ((F(I,18,M),I=1,5),F(7,18,M),F(6,18,M),M=1,19) / . 0.26333, 0.21303, 1.21309, 0.18732, 0.00377,-0.00009, 0.09551, . 0.27129, 0.21594, 1.58557, 0.19533, 0.01523,-0.00012, 0.10524, . 0.27832, 0.21827, 1.88997, 0.20282, 0.02593,-0.00012, 0.11435, . 0.28445, 0.22025, 2.13352, 0.20973, 0.03583,-0.00013, 0.12277, . 0.28986, 0.22191, 2.33312, 0.21606, 0.04495, 0.00017, 0.13048, . 0.29482, 0.22325, 2.49780, 0.22182, 0.05338, 0.00395, 0.13759, . 0.29933, 0.22430, 2.63027, 0.22707, 0.06114, 0.01352, 0.14409, . 0.30337, 0.22524, 2.73914, 0.23185, 0.06829, 0.02151, 0.15004, . 0.30705, 0.22603, 2.82909, 0.23621, 0.07490, 0.02885, 0.15553, . 0.31046, 0.22668, 2.90387, 0.24021, 0.08103, 0.03573, 0.16061, . 0.31362, 0.22716, 2.96244, 0.24377, 0.08671, 0.04205, 0.16521, . 0.31649, 0.22756, 3.00803, 0.24697, 0.09191, 0.04788, 0.16941, . 0.31918, 0.22792, 3.04635, 0.24994, 0.09680, 0.05335, 0.17333, . 0.32161, 0.22816, 3.07238, 0.25254, 0.10120, 0.05837, 0.17684, . 0.32390, 0.22835, 3.09319, 0.25493, 0.10535, 0.06308, 0.18012, . 0.32601, 0.22848, 3.10673, 0.25706, 0.10920, 0.06745, 0.18310, . 0.32800, 0.22853, 3.11513, 0.25898, 0.11276, 0.07150, 0.18584, . 0.32987, 0.22851, 3.11883, 0.26072, 0.11606, 0.07527, 0.18835, . 0.33159, 0.22848, 3.11884, 0.26227, 0.11913, 0.07880, 0.19066 / DATA ((F(I,19,M),I=1,5),F(7,19,M),F(6,19,M),M=1,19) / . 0.32682, 0.25108, 1.44543, 0.17303, 0.00352, 0.00003, 0.08827, . 0.33479, 0.25204, 1.69964, 0.17822, 0.01368, 0.00002, 0.09597, . 0.34170, 0.25253, 1.89218, 0.18276, 0.02275,-0.00003, 0.10277, . 0.34753, 0.25271, 2.03417, 0.18669, 0.03078, 0.00000, 0.10875, . 0.35257, 0.25272, 2.14073, 0.19000, 0.03791, 0.00024, 0.11398, . 0.35694, 0.25252, 2.22018, 0.19290, 0.04426, 0.00311, 0.11860, . 0.36072, 0.25225, 2.27596, 0.19533, 0.04994, 0.01049, 0.12265, . 0.36405, 0.25181, 2.31529, 0.19736, 0.05504, 0.01642, 0.12622, . 0.36705, 0.25123, 2.34189, 0.19907, 0.05963, 0.02175, 0.12936, . 0.36974, 0.25056, 2.35877, 0.20052, 0.06378, 0.02667, 0.13216, . 0.37204, 0.24990, 2.36560, 0.20168, 0.06753, 0.03110, 0.13460, . 0.37413, 0.24916, 2.36475, 0.20259, 0.07085, 0.03509, 0.13673, . 0.37603, 0.24840, 2.36023, 0.20335, 0.07388, 0.03878, 0.13865, . 0.37758, 0.24759, 2.34883, 0.20386, 0.07657, 0.04206, 0.14025, . 0.37903, 0.24677, 2.33528, 0.20427, 0.07904, 0.04509, 0.14169, . 0.38037, 0.24589, 2.31825, 0.20454, 0.08127, 0.04783, 0.14292, . 0.38152, 0.24501, 2.29901, 0.20467, 0.08327, 0.05035, 0.14398, . 0.38251, 0.24413, 2.27786, 0.20467, 0.08507, 0.05266, 0.14489, . 0.38337, 0.24326, 2.25545, 0.20458, 0.08673, 0.05479, 0.14568 / DATA ((F(I,20,M),I=1,5),F(7,20,M),F(6,20,M),M=1,19) / . 0.38521, 0.27498, 1.59924, 0.15266, 0.00319, 0.00003, 0.07796, . 0.39209, 0.27378, 1.75906, 0.15592, 0.01216, 0.00009, 0.08409, . 0.39750, 0.27247, 1.86759, 0.15854, 0.01988, 0.00006, 0.08924, . 0.40205, 0.27084, 1.93652, 0.16060, 0.02643, 0.00011, 0.09353, . 0.40570, 0.26925, 1.97929, 0.16209, 0.03212, 0.00024, 0.09711, . 0.40874, 0.26748, 2.00264, 0.16328, 0.03702, 0.00260, 0.10018, . 0.41126, 0.26573, 2.00986, 0.16398, 0.04129, 0.00837, 0.10270, . 0.41327, 0.26396, 2.00658, 0.16447, 0.04505, 0.01299, 0.10480, . 0.41488, 0.26222, 1.99574, 0.16474, 0.04833, 0.01702, 0.10657, . 0.41619, 0.26051, 1.97962, 0.16483, 0.05121, 0.02064, 0.10807, . 0.41725, 0.25873, 1.95801, 0.16471, 0.05370, 0.02384, 0.10928, . 0.41805, 0.25695, 1.93269, 0.16443, 0.05592, 0.02667, 0.11024, . 0.41871, 0.25521, 1.90632, 0.16409, 0.05793, 0.02926, 0.11105, . 0.41912, 0.25348, 1.87636, 0.16356, 0.05962, 0.03156, 0.11163, . 0.41941, 0.25177, 1.84638, 0.16299, 0.06116, 0.03363, 0.11212, . 0.41956, 0.25005, 1.81542, 0.16234, 0.06251, 0.03546, 0.11248, . 0.41956, 0.24840, 1.78421, 0.16162, 0.06369, 0.03714, 0.11273, . 0.41943, 0.24682, 1.75288, 0.16085, 0.06472, 0.03868, 0.11286, . 0.41924, 0.24521, 1.72167, 0.16004, 0.06562, 0.04005, 0.11290 / DATA ((F(I,21,M),I=1,5),F(7,21,M),F(6,21,M),M=1,19) / . 0.43737, 0.28894, 1.68507, 0.13105, 0.00284, 0.00007, 0.06697, . 0.44204, 0.28570, 1.76715, 0.13301, 0.01060, 0.00007, 0.07185, . 0.44547, 0.28246, 1.81031, 0.13438, 0.01710, 0.00009, 0.07578, . 0.44795, 0.27929, 1.82471, 0.13515, 0.02254, 0.00013, 0.07885, . 0.44957, 0.27626, 1.82127, 0.13556, 0.02705, 0.00019, 0.08131, . 0.45082, 0.27316, 1.80589, 0.13566, 0.03083, 0.00213, 0.08331, . 0.45142, 0.27020, 1.78095, 0.13547, 0.03407, 0.00668, 0.08482, . 0.45172, 0.26723, 1.75032, 0.13509, 0.03683, 0.01027, 0.08600, . 0.45175, 0.26436, 1.71637, 0.13454, 0.03922, 0.01336, 0.08691, . 0.45154, 0.26160, 1.68065, 0.13386, 0.04130, 0.01610, 0.08762, . 0.45102, 0.25891, 1.64276, 0.13306, 0.04303, 0.01849, 0.08808, . 0.45028, 0.25630, 1.60390, 0.13220, 0.04450, 0.02059, 0.08836, . 0.44945, 0.25378, 1.56595, 0.13132, 0.04581, 0.02248, 0.08855, . 0.44851, 0.25123, 1.52714, 0.13032, 0.04685, 0.02410, 0.08858, . 0.44750, 0.24877, 1.48962, 0.12930, 0.04778, 0.02555, 0.08856, . 0.44640, 0.24640, 1.45256, 0.12822, 0.04857, 0.02678, 0.08845, . 0.44517, 0.24411, 1.41649, 0.12712, 0.04925, 0.02791, 0.08825, . 0.44385, 0.24192, 1.38141, 0.12602, 0.04983, 0.02892, 0.08795, . 0.44249, 0.23974, 1.34738, 0.12492, 0.05030, 0.02981, 0.08763 / DATA ((F(I,22,M),I=1,5),F(7,22,M),F(6,22,M),M=1,19) / . 0.49251, 0.29604, 1.71219, 0.10541, 0.00238, 0.00006, 0.05393, . 0.49360, 0.29045, 1.71773, 0.10632, 0.00887, 0.00005, 0.05760, . 0.49354, 0.28535, 1.69901, 0.10667, 0.01409, 0.00004, 0.06040, . 0.49301, 0.28021, 1.66433, 0.10659, 0.01825, 0.00008, 0.06245, . 0.49179, 0.27552, 1.62179, 0.10623, 0.02162, 0.00019, 0.06396, . 0.49033, 0.27095, 1.57452, 0.10559, 0.02445, 0.00159, 0.06508, . 0.48830, 0.26669, 1.52436, 0.10482, 0.02671, 0.00507, 0.06583, . 0.48614, 0.26255, 1.47346, 0.10390, 0.02860, 0.00779, 0.06631, . 0.48385, 0.25857, 1.42317, 0.10287, 0.03021, 0.01002, 0.06658, . 0.48145, 0.25478, 1.37431, 0.10179, 0.03158, 0.01193, 0.06671, . 0.47886, 0.25117, 1.32637, 0.10064, 0.03266, 0.01364, 0.06669, . 0.47624, 0.24767, 1.27997, 0.09946, 0.03353, 0.01508, 0.06655, . 0.47364, 0.24432, 1.23610, 0.09830, 0.03427, 0.01636, 0.06637, . 0.47088, 0.24103, 1.19326, 0.09708, 0.03485, 0.01742, 0.06607, . 0.46810, 0.23793, 1.15285, 0.09588, 0.03534, 0.01836, 0.06573, . 0.46523, 0.23499, 1.11416, 0.09467, 0.03573, 0.01917, 0.06533, . 0.46241, 0.23212, 1.07734, 0.09347, 0.03603, 0.01985, 0.06490, . 0.45964, 0.22930, 1.04226, 0.09229, 0.03627, 0.02043, 0.06445, . 0.45690, 0.22656, 1.00892, 0.09112, 0.03645, 0.02096, 0.06394 / DATA ((F(I,23,M),I=1,5),F(7,23,M),F(6,23,M),M=1,19) / . 0.53565, 0.29457, 1.66888, 0.08285, 0.00207, 0.00016, 0.04253, . 0.53256, 0.28702, 1.61738, 0.08319, 0.00729, 0.00016, 0.04529, . 0.52889, 0.28011, 1.55551, 0.08300, 0.01141, 0.00016, 0.04729, . 0.52481, 0.27360, 1.48852, 0.08250, 0.01459, 0.00014, 0.04856, . 0.52045, 0.26755, 1.42129, 0.08175, 0.01712, 0.00026, 0.04950, . 0.51596, 0.26194, 1.35566, 0.08081, 0.01921, 0.00134, 0.05010, . 0.51124, 0.25668, 1.29186, 0.07983, 0.02076, 0.00392, 0.05032, . 0.50666, 0.25160, 1.23104, 0.07870, 0.02207, 0.00588, 0.05042, . 0.50208, 0.24676, 1.17368, 0.07753, 0.02313, 0.00752, 0.05040, . 0.49751, 0.24222, 1.11993, 0.07635, 0.02399, 0.00891, 0.05026, . 0.49287, 0.23797, 1.06906, 0.07514, 0.02466, 0.01004, 0.04996, . 0.48832, 0.23380, 1.02118, 0.07392, 0.02519, 0.01105, 0.04964, . 0.48392, 0.22983, 0.97677, 0.07272, 0.02563, 0.01195, 0.04931, . 0.47940, 0.22611, 0.93464, 0.07151, 0.02592, 0.01263, 0.04888, . 0.47503, 0.22254, 0.89550, 0.07036, 0.02615, 0.01323, 0.04842, . 0.47074, 0.21907, 0.85869, 0.06923, 0.02631, 0.01376, 0.04791, . 0.46652, 0.21577, 0.82419, 0.06812, 0.02641, 0.01420, 0.04738, . 0.46236, 0.21264, 0.79180, 0.06703, 0.02646, 0.01458, 0.04685, . 0.45829, 0.20962, 0.76140, 0.06596, 0.02647, 0.01488, 0.04632 / DATA ((F(I,24,M),I=1,5),F(7,24,M),F(6,24,M),M=1,19) / . 0.56667, 0.28691, 1.57290, 0.06394, 0.00161,-0.00001, 0.03280, . 0.55919, 0.27778, 1.48228, 0.06393, 0.00584, 0.00006, 0.03489, . 0.55158, 0.26949, 1.39273, 0.06348, 0.00907, 0.00010, 0.03637, . 0.54405, 0.26182, 1.30649, 0.06281, 0.01151, 0.00003, 0.03716, . 0.53662, 0.25472, 1.22592, 0.06190, 0.01344, 0.00009, 0.03771, . 0.52935, 0.24822, 1.15139, 0.06092, 0.01487, 0.00092, 0.03799, . 0.52215, 0.24217, 1.08217, 0.05983, 0.01600, 0.00287, 0.03805, . 0.51517, 0.23642, 1.01833, 0.05872, 0.01689, 0.00434, 0.03793, . 0.50831, 0.23105, 0.95976, 0.05761, 0.01761, 0.00556, 0.03771, . 0.50163, 0.22600, 0.90612, 0.05651, 0.01817, 0.00660, 0.03743, . 0.49515, 0.22120, 0.85651, 0.05540, 0.01854, 0.00745, 0.03709, . 0.48880, 0.21671, 0.81077, 0.05429, 0.01882, 0.00811, 0.03671, . 0.48271, 0.21248, 0.76895, 0.05321, 0.01904, 0.00868, 0.03631, . 0.47677, 0.20831, 0.72997, 0.05215, 0.01921, 0.00922, 0.03580, . 0.47108, 0.20436, 0.69419, 0.05113, 0.01932, 0.00966, 0.03531, . 0.46557, 0.20058, 0.66101, 0.05012, 0.01933, 0.00999, 0.03485, . 0.46017, 0.19701, 0.63028, 0.04914, 0.01934, 0.01026, 0.03437, . 0.45488, 0.19362, 0.60174, 0.04819, 0.01934, 0.01048, 0.03387, . 0.44971, 0.19040, 0.57523, 0.04727, 0.01930, 0.01066, 0.03338 / DATA ((F(I,25,M),I=1,5),F(7,25,M),F(6,25,M),M=1,19) / . 0.58603, 0.27450, 1.44248, 0.04852, 0.00124,-0.00002, 0.02493, . 0.57422, 0.26421, 1.32713, 0.04833, 0.00463,-0.00004, 0.02648, . 0.56283, 0.25493, 1.22166, 0.04781, 0.00709, 0.00013, 0.02753, . 0.55199, 0.24647, 1.12617, 0.04712, 0.00888, 0.00001, 0.02802, . 0.54166, 0.23880, 1.04068, 0.04621, 0.01026, 0.00015, 0.02836, . 0.53174, 0.23162, 0.96415, 0.04533, 0.01129, 0.00074, 0.02841, . 0.52210, 0.22513, 0.89506, 0.04435, 0.01208, 0.00215, 0.02830, . 0.51288, 0.21904, 0.83293, 0.04336, 0.01268, 0.00318, 0.02807, . 0.50416, 0.21328, 0.77700, 0.04237, 0.01314, 0.00405, 0.02779, . 0.49583, 0.20788, 0.72664, 0.04139, 0.01349, 0.00481, 0.02748, . 0.48761, 0.20289, 0.68096, 0.04041, 0.01375, 0.00542, 0.02712, . 0.47981, 0.19809, 0.63935, 0.03947, 0.01391, 0.00590, 0.02674, . 0.47240, 0.19356, 0.60171, 0.03857, 0.01400, 0.00630, 0.02635, . 0.46511, 0.18935, 0.56720, 0.03769, 0.01403, 0.00659, 0.02590, . 0.45817, 0.18536, 0.53580, 0.03683, 0.01404, 0.00682, 0.02546, . 0.45149, 0.18152, 0.50698, 0.03599, 0.01404, 0.00700, 0.02502, . 0.44501, 0.17789, 0.48064, 0.03520, 0.01398, 0.00717, 0.02458, . 0.43873, 0.17445, 0.45649, 0.03445, 0.01389, 0.00733, 0.02415, . 0.43269, 0.17115, 0.43408, 0.03372, 0.01380, 0.00747, 0.02373 / DATA ((F(I,26,M),I=1,5),F(7,26,M),F(6,26,M),M=1,19) / . 0.59421, 0.25900, 1.29171, 0.03626, 0.00095, 0.00008, 0.01863, . 0.57849, 0.24775, 1.16344, 0.03601, 0.00353, 0.00008, 0.01983, . 0.56376, 0.23772, 1.05199, 0.03547, 0.00547,-0.00002, 0.02055, . 0.54985, 0.22883, 0.95477, 0.03483, 0.00679, 0.00010, 0.02084, . 0.53688, 0.22069, 0.87019, 0.03401, 0.00784, 0.00004, 0.02105, . 0.52484, 0.21308, 0.79635, 0.03325, 0.00861, 0.00059, 0.02088, . 0.51319, 0.20631, 0.73113, 0.03239, 0.00913, 0.00164, 0.02075, . 0.50213, 0.19998, 0.67353, 0.03158, 0.00949, 0.00242, 0.02054, . 0.49171, 0.19408, 0.62245, 0.03073, 0.00979, 0.00302, 0.02029, . 0.48183, 0.18860, 0.57706, 0.02990, 0.01002, 0.00352, 0.02001, . 0.47228, 0.18354, 0.53647, 0.02915, 0.01008, 0.00397, 0.01964, . 0.46325, 0.17872, 0.50005, 0.02840, 0.01009, 0.00426, 0.01927, . 0.45471, 0.17419, 0.46743, 0.02767, 0.01010, 0.00448, 0.01892, . 0.44634, 0.17002, 0.43775, 0.02695, 0.01010, 0.00469, 0.01858, . 0.43840, 0.16608, 0.41100, 0.02625, 0.01009, 0.00485, 0.01823, . 0.43079, 0.16232, 0.38671, 0.02558, 0.01008, 0.00496, 0.01786, . 0.42355, 0.15871, 0.36459, 0.02495, 0.01001, 0.00505, 0.01749, . 0.41662, 0.15524, 0.34439, 0.02436, 0.00989, 0.00514, 0.01712, . 0.40999, 0.15194, 0.32597, 0.02378, 0.00980, 0.00521, 0.01677 / DATA ((F(I,27,M),I=1,5),F(7,27,M),F(6,27,M),M=1,19) / . 0.59256, 0.24099, 1.13199, 0.02668, 0.00074, 0.00017, 0.01373, . 0.57335, 0.22916, 1.00047, 0.02645, 0.00266, 0.00010, 0.01462, . 0.55562, 0.21877, 0.88997, 0.02591, 0.00417, 0.00008, 0.01516, . 0.53907, 0.20970, 0.79632, 0.02537, 0.00513, 0.00018, 0.01529, . 0.52385, 0.20133, 0.71673, 0.02466, 0.00593, 0.00007, 0.01538, . 0.50990, 0.19359, 0.64853, 0.02398, 0.00648, 0.00050, 0.01534, . 0.49644, 0.18681, 0.58926, 0.02336, 0.00679, 0.00125, 0.01508, . 0.48402, 0.18042, 0.53796, 0.02264, 0.00709, 0.00178, 0.01488, . 0.47225, 0.17456, 0.49300, 0.02197, 0.00726, 0.00220, 0.01464, . 0.46108, 0.16922, 0.45339, 0.02135, 0.00733, 0.00256, 0.01436, . 0.45042, 0.16431, 0.41825, 0.02071, 0.00742, 0.00286, 0.01407, . 0.44044, 0.15958, 0.38715, 0.02012, 0.00740, 0.00305, 0.01377, . 0.43107, 0.15512, 0.35957, 0.01957, 0.00735, 0.00320, 0.01348, . 0.42209, 0.15090, 0.33484, 0.01897, 0.00738, 0.00336, 0.01318, . 0.41358, 0.14696, 0.31262, 0.01842, 0.00734, 0.00348, 0.01290, . 0.40545, 0.14325, 0.29249, 0.01792, 0.00724, 0.00354, 0.01263, . 0.39767, 0.13974, 0.27442, 0.01746, 0.00713, 0.00359, 0.01234, . 0.39020, 0.13641, 0.25813, 0.01703, 0.00704, 0.00364, 0.01203, . 0.38308, 0.13327, 0.24329, 0.01659, 0.00695, 0.00367, 0.01177 / DATA ((F(I,28,M),I=1,5),F(7,28,M),F(6,28,M),M=1,19) / . 0.58228, 0.22134, 0.97242, 0.01922, 0.00068, 0.00002, 0.01004, . 0.55966, 0.20958, 0.84477, 0.01905, 0.00211, 0.00010, 0.01064, . 0.53960, 0.19895, 0.74032, 0.01866, 0.00318, 0.00013, 0.01098, . 0.52090, 0.18984, 0.65383, 0.01817, 0.00387, 0.00016, 0.01114, . 0.50379, 0.18163, 0.58164, 0.01765, 0.00443, 0.00010, 0.01115, . 0.48833, 0.17405, 0.52119, 0.01718, 0.00474, 0.00039, 0.01094, . 0.47363, 0.16732, 0.46881, 0.01658, 0.00504, 0.00094, 0.01084, . 0.45986, 0.16125, 0.42409, 0.01607, 0.00516, 0.00128, 0.01061, . 0.44710, 0.15554, 0.38551, 0.01556, 0.00525, 0.00158, 0.01040, . 0.43525, 0.15019, 0.35201, 0.01505, 0.00530, 0.00184, 0.01019, . 0.42407, 0.14521, 0.32265, 0.01462, 0.00526, 0.00201, 0.00993, . 0.41342, 0.14068, 0.29673, 0.01415, 0.00524, 0.00213, 0.00970, . 0.40342, 0.13649, 0.27387, 0.01369, 0.00522, 0.00223, 0.00950, . 0.39402, 0.13243, 0.25355, 0.01323, 0.00520, 0.00231, 0.00931, . 0.38513, 0.12867, 0.23550, 0.01281, 0.00517, 0.00240, 0.00909, . 0.37664, 0.12515, 0.21937, 0.01242, 0.00513, 0.00250, 0.00882, . 0.36860, 0.12183, 0.20491, 0.01204, 0.00507, 0.00255, 0.00858, . 0.36097, 0.11868, 0.19190, 0.01169, 0.00499, 0.00255, 0.00835, . 0.35358, 0.11576, 0.18013, 0.01137, 0.00490, 0.00255, 0.00814 / DATA ((F(I,29,M),I=1,5),F(7,29,M),F(6,29,M),M=1,19) / . 0.56425, 0.20104, 0.81976, 0.01370, 0.00051, 0.00009, 0.00715, . 0.53912, 0.18936, 0.70084, 0.01356, 0.00163, 0.00002, 0.00758, . 0.51680, 0.17910, 0.60566, 0.01320, 0.00242, 0.00000, 0.00793, . 0.49656, 0.17007, 0.52827, 0.01288, 0.00284, 0.00002, 0.00796, . 0.47821, 0.16205, 0.46481, 0.01249, 0.00319, 0.00004, 0.00790, . 0.46145, 0.15484, 0.41238, 0.01202, 0.00351, 0.00024, 0.00784, . 0.44595, 0.14828, 0.36802, 0.01157, 0.00369, 0.00064, 0.00771, . 0.43155, 0.14232, 0.33008, 0.01118, 0.00376, 0.00095, 0.00756, . 0.41825, 0.13681, 0.29773, 0.01078, 0.00380, 0.00117, 0.00740, . 0.40590, 0.13173, 0.26998, 0.01040, 0.00381, 0.00132, 0.00723, . 0.39419, 0.12706, 0.24597, 0.01010, 0.00379, 0.00145, 0.00697, . 0.38315, 0.12279, 0.22494, 0.00975, 0.00377, 0.00155, 0.00679, . 0.37286, 0.11885, 0.20650, 0.00940, 0.00374, 0.00162, 0.00665, . 0.36336, 0.11506, 0.19004, 0.00904, 0.00368, 0.00165, 0.00646, . 0.35435, 0.11154, 0.17563, 0.00872, 0.00364, 0.00166, 0.00627, . 0.34570, 0.10825, 0.16297, 0.00843, 0.00361, 0.00168, 0.00605, . 0.33749, 0.10514, 0.15161, 0.00818, 0.00355, 0.00171, 0.00587, . 0.32970, 0.10220, 0.14138, 0.00795, 0.00347, 0.00176, 0.00573, . 0.32231, 0.09944, 0.13222, 0.00772, 0.00340, 0.00180, 0.00561 / DATA ((F(I,30,M),I=1,5),F(7,30,M),F(6,30,M),M=1,19) / . 0.53925, 0.18129, 0.67900, 0.00978, 0.00020,-0.00003, 0.00495, . 0.51252, 0.16974, 0.57188, 0.00957, 0.00103,-0.00006, 0.00535, . 0.48869, 0.15984, 0.48773, 0.00940, 0.00162,-0.00006, 0.00539, . 0.46755, 0.15101, 0.42069, 0.00907, 0.00191,-0.00004, 0.00555, . 0.44830, 0.14335, 0.36664, 0.00872, 0.00226,-0.00011, 0.00553, . 0.43082, 0.13653, 0.32200, 0.00843, 0.00242, 0.00008, 0.00539, . 0.41488, 0.13030, 0.28516, 0.00805, 0.00261, 0.00038, 0.00530, . 0.40020, 0.12457, 0.25382, 0.00777, 0.00260, 0.00055, 0.00521, . 0.38656, 0.11943, 0.22729, 0.00749, 0.00260, 0.00071, 0.00507, . 0.37387, 0.11476, 0.20474, 0.00721, 0.00263, 0.00085, 0.00490, . 0.36198, 0.11043, 0.18541, 0.00697, 0.00263, 0.00094, 0.00476, . 0.35113, 0.10637, 0.16877, 0.00664, 0.00264, 0.00103, 0.00466, . 0.34108, 0.10261, 0.15430, 0.00633, 0.00264, 0.00109, 0.00457, . 0.33130, 0.09918, 0.14140, 0.00614, 0.00259, 0.00111, 0.00441, . 0.32218, 0.09596, 0.13013, 0.00594, 0.00254, 0.00114, 0.00426, . 0.31362, 0.09291, 0.12026, 0.00573, 0.00248, 0.00117, 0.00413, . 0.30549, 0.09005, 0.11149, 0.00554, 0.00242, 0.00117, 0.00401, . 0.29775, 0.08738, 0.10364, 0.00537, 0.00237, 0.00115, 0.00391, . 0.29044, 0.08487, 0.09663, 0.00521, 0.00233, 0.00115, 0.00381 / DATA ((F(I,31,M),I=1,5),F(7,31,M),F(6,31,M),M=1,19) / . 0.50956, 0.16073, 0.55183, 0.00658, 0.00037, 0.00016, 0.00354, . 0.48147, 0.14981, 0.45804, 0.00651, 0.00092, 0.00011, 0.00378, . 0.45674, 0.14051, 0.38600, 0.00635, 0.00127, 0.00013, 0.00389, . 0.43481, 0.13235, 0.32948, 0.00610, 0.00156, 0.00004, 0.00389, . 0.41530, 0.12507, 0.28430, 0.00590, 0.00165, 0.00014, 0.00388, . 0.39793, 0.11861, 0.24704, 0.00561, 0.00179, 0.00012, 0.00375, . 0.38144, 0.11288, 0.21720, 0.00544, 0.00189, 0.00041, 0.00372, . 0.36673, 0.10763, 0.19211, 0.00521, 0.00189, 0.00055, 0.00358, . 0.35307, 0.10289, 0.17102, 0.00500, 0.00186, 0.00059, 0.00347, . 0.34038, 0.09857, 0.15320, 0.00481, 0.00182, 0.00061, 0.00340, . 0.32883, 0.09458, 0.13806, 0.00461, 0.00182, 0.00069, 0.00330, . 0.31783, 0.09093, 0.12500, 0.00445, 0.00184, 0.00078, 0.00321, . 0.30758, 0.08756, 0.11369, 0.00429, 0.00185, 0.00083, 0.00311, . 0.29820, 0.08432, 0.10381, 0.00410, 0.00178, 0.00076, 0.00300, . 0.28933, 0.08137, 0.09518, 0.00396, 0.00173, 0.00075, 0.00288, . 0.28082, 0.07870, 0.08758, 0.00387, 0.00171, 0.00081, 0.00277, . 0.27290, 0.07616, 0.08091, 0.00376, 0.00167, 0.00082, 0.00268, . 0.26550, 0.07374, 0.07501, 0.00362, 0.00163, 0.00080, 0.00260, . 0.25853, 0.07148, 0.06974, 0.00348, 0.00158, 0.00079, 0.00252 / DATA ((F(I,32,M),I=1,5),F(7,32,M),F(6,32,M),M=1,19) / . 0.47552, 0.14182, 0.44104, 0.00453, 0.00014,-0.00001, 0.00240, . 0.44681, 0.13155, 0.36120, 0.00446, 0.00056,-0.00002, 0.00256, . 0.42189, 0.12271, 0.30064, 0.00440, 0.00075,-0.00003, 0.00254, . 0.39992, 0.11500, 0.25422, 0.00419, 0.00102,-0.00004, 0.00259, . 0.38054, 0.10831, 0.21735, 0.00395, 0.00115, 0.00000, 0.00257, . 0.36285, 0.10241, 0.18788, 0.00383, 0.00119, 0.00003, 0.00251, . 0.34679, 0.09711, 0.16371, 0.00374, 0.00122, 0.00023, 0.00245, . 0.33221, 0.09234, 0.14388, 0.00350, 0.00127, 0.00025, 0.00237, . 0.31878, 0.08800, 0.12732, 0.00337, 0.00129, 0.00031, 0.00231, . 0.30640, 0.08405, 0.11336, 0.00329, 0.00127, 0.00038, 0.00226, . 0.29506, 0.08044, 0.10158, 0.00312, 0.00122, 0.00039, 0.00218, . 0.28462, 0.07711, 0.09149, 0.00298, 0.00119, 0.00044, 0.00208, . 0.27499, 0.07404, 0.08283, 0.00285, 0.00116, 0.00049, 0.00198, . 0.26590, 0.07120, 0.07543, 0.00273, 0.00114, 0.00051, 0.00191, . 0.25738, 0.06857, 0.06896, 0.00263, 0.00111, 0.00052, 0.00185, . 0.24931, 0.06615, 0.06326, 0.00254, 0.00108, 0.00053, 0.00180, . 0.24174, 0.06387, 0.05825, 0.00248, 0.00105, 0.00053, 0.00175, . 0.23462, 0.06173, 0.05382, 0.00243, 0.00102, 0.00053, 0.00170, . 0.22798, 0.05971, 0.04990, 0.00235, 0.00099, 0.00052, 0.00164 / DATA ((F(I,33,M),I=1,5),F(7,33,M),F(6,33,M),M=1,19) / . 0.43863, 0.12327, 0.34578, 0.00296, 0.00015, 0.00006, 0.00165, . 0.41024, 0.11375, 0.27943, 0.00286, 0.00042, 0.00006, 0.00175, . 0.38542, 0.10568, 0.23018, 0.00282, 0.00061, 0.00000, 0.00178, . 0.36340, 0.09875, 0.19275, 0.00276, 0.00079, 0.00004, 0.00179, . 0.34409, 0.09257, 0.16335, 0.00271, 0.00087, 0.00001, 0.00171, . 0.32710, 0.08725, 0.14017, 0.00249, 0.00086, 0.00002, 0.00172, . 0.31150, 0.08249, 0.12133, 0.00240, 0.00082, 0.00010, 0.00168, . 0.29748, 0.07809, 0.10595, 0.00234, 0.00083, 0.00024, 0.00161, . 0.28460, 0.07421, 0.09324, 0.00226, 0.00084, 0.00031, 0.00153, . 0.27274, 0.07075, 0.08263, 0.00217, 0.00084, 0.00033, 0.00147, . 0.26190, 0.06754, 0.07371, 0.00209, 0.00080, 0.00034, 0.00141, . 0.25188, 0.06456, 0.06614, 0.00199, 0.00077, 0.00034, 0.00135, . 0.24261, 0.06183, 0.05966, 0.00190, 0.00075, 0.00034, 0.00130, . 0.23382, 0.05940, 0.05409, 0.00186, 0.00075, 0.00034, 0.00123, . 0.22578, 0.05711, 0.04926, 0.00180, 0.00075, 0.00034, 0.00119, . 0.21842, 0.05491, 0.04506, 0.00171, 0.00074, 0.00033, 0.00118, . 0.21149, 0.05288, 0.04139, 0.00162, 0.00072, 0.00033, 0.00113, . 0.20496, 0.05100, 0.03817, 0.00153, 0.00069, 0.00034, 0.00106, . 0.19877, 0.04925, 0.03531, 0.00146, 0.00067, 0.00034, 0.00101 / DATA ((F(I,34,M),I=1,5),F(7,34,M),F(6,34,M),M=1,19) / . 0.40002, 0.10618, 0.26626, 0.00189, 0.00013, 0.00006, 0.00113, . 0.37203, 0.09758, 0.21272, 0.00187, 0.00032, 0.00007, 0.00119, . 0.34785, 0.09026, 0.17344, 0.00183, 0.00039, 0.00010, 0.00119, . 0.32671, 0.08393, 0.14405, 0.00182, 0.00046, 0.00001, 0.00112, . 0.30823, 0.07848, 0.12115, 0.00175, 0.00052, 0.00004, 0.00109, . 0.29166, 0.07371, 0.10299, 0.00170, 0.00049, 0.00002, 0.00105, . 0.27687, 0.06943, 0.08863, 0.00164, 0.00050, 0.00006, 0.00099, . 0.26356, 0.06557, 0.07697, 0.00151, 0.00054, 0.00010, 0.00098, . 0.25152, 0.06210, 0.06739, 0.00141, 0.00052, 0.00012, 0.00096, . 0.24051, 0.05898, 0.05943, 0.00135, 0.00047, 0.00014, 0.00093, . 0.23025, 0.05617, 0.05282, 0.00132, 0.00048, 0.00017, 0.00086, . 0.22088, 0.05359, 0.04721, 0.00126, 0.00048, 0.00020, 0.00084, . 0.21227, 0.05123, 0.04243, 0.00121, 0.00049, 0.00023, 0.00082, . 0.20406, 0.04907, 0.03836, 0.00117, 0.00048, 0.00019, 0.00077, . 0.19661, 0.04706, 0.03485, 0.00112, 0.00046, 0.00018, 0.00074, . 0.18986, 0.04516, 0.03181, 0.00106, 0.00045, 0.00020, 0.00072, . 0.18336, 0.04343, 0.02915, 0.00103, 0.00043, 0.00021, 0.00069, . 0.17710, 0.04185, 0.02683, 0.00103, 0.00041, 0.00020, 0.00064, . 0.17136, 0.04036, 0.02478, 0.00099, 0.00039, 0.00018, 0.00061 / DATA ((F(I,35,M),I=1,5),F(7,35,M),F(6,35,M),M=1,19) / . 0.36031, 0.09044, 0.20058, 0.00126, 0.00011, 0.00004, 0.00067, . 0.33313, 0.08255, 0.15862, 0.00128, 0.00017, 0.00003, 0.00070, . 0.30994, 0.07604, 0.12803, 0.00118, 0.00026, 0.00001, 0.00079, . 0.28974, 0.07039, 0.10519, 0.00117, 0.00031,-0.00005, 0.00068, . 0.27255, 0.06547, 0.08769, 0.00106, 0.00031,-0.00001, 0.00071, . 0.25689, 0.06128, 0.07410, 0.00103, 0.00035, 0.00001, 0.00072, . 0.24290, 0.05751, 0.06330, 0.00102, 0.00037, 0.00007, 0.00070, . 0.23047, 0.05421, 0.05465, 0.00093, 0.00037, 0.00011, 0.00068, . 0.21914, 0.05120, 0.04761, 0.00089, 0.00036, 0.00010, 0.00063, . 0.20876, 0.04844, 0.04182, 0.00089, 0.00035, 0.00008, 0.00057, . 0.19921, 0.04598, 0.03702, 0.00084, 0.00034, 0.00010, 0.00058, . 0.19060, 0.04376, 0.03296, 0.00081, 0.00034, 0.00011, 0.00056, . 0.18275, 0.04173, 0.02952, 0.00078, 0.00034, 0.00013, 0.00053, . 0.17548, 0.03982, 0.02664, 0.00070, 0.00032, 0.00011, 0.00050, . 0.16870, 0.03809, 0.02415, 0.00066, 0.00032, 0.00011, 0.00047, . 0.16230, 0.03652, 0.02198, 0.00065, 0.00032, 0.00011, 0.00044, . 0.15638, 0.03506, 0.02011, 0.00064, 0.00032, 0.00012, 0.00043, . 0.15088, 0.03371, 0.01848, 0.00063, 0.00031, 0.00013, 0.00043, . 0.14577, 0.03243, 0.01704, 0.00060, 0.00031, 0.00014, 0.00043 / DATA ((F(I,36,M),I=1,5),F(7,36,M),F(6,36,M),M=1,19) / . 0.32078, 0.07613, 0.14877, 0.00082, 0.00002,-0.00001, 0.00039, . 0.29500, 0.06916, 0.11617, 0.00082, 0.00006,-0.00007, 0.00038, . 0.27308, 0.06336, 0.09288, 0.00084, 0.00014, 0.00001, 0.00039, . 0.25438, 0.05849, 0.07567, 0.00077, 0.00018,-0.00005, 0.00043, . 0.23803, 0.05425, 0.06265, 0.00075, 0.00018,-0.00004, 0.00043, . 0.22388, 0.05054, 0.05268, 0.00064, 0.00016,-0.00007, 0.00042, . 0.21075, 0.04730, 0.04480, 0.00067, 0.00021,-0.00001, 0.00044, . 0.19927, 0.04442, 0.03845, 0.00065, 0.00021, 0.00001, 0.00038, . 0.18901, 0.04181, 0.03336, 0.00059, 0.00019, 0.00002, 0.00035, . 0.17970, 0.03946, 0.02922, 0.00052, 0.00016, 0.00002, 0.00035, . 0.17111, 0.03739, 0.02575, 0.00051, 0.00019, 0.00004, 0.00037, . 0.16320, 0.03549, 0.02288, 0.00052, 0.00019, 0.00007, 0.00035, . 0.15597, 0.03374, 0.02045, 0.00052, 0.00018, 0.00009, 0.00032, . 0.14943, 0.03214, 0.01839, 0.00048, 0.00017, 0.00009, 0.00030, . 0.14340, 0.03069, 0.01663, 0.00044, 0.00017, 0.00009, 0.00030, . 0.13781, 0.02936, 0.01512, 0.00039, 0.00019, 0.00007, 0.00030, . 0.13253, 0.02813, 0.01381, 0.00036, 0.00020, 0.00007, 0.00029, . 0.12753, 0.02698, 0.01267, 0.00035, 0.00020, 0.00008, 0.00027, . 0.12292, 0.02590, 0.01167, 0.00035, 0.00018, 0.00008, 0.00025 / DATA ((F(I,37,M),I=1,5),F(7,37,M),F(6,37,M),M=1,19) / . 0.28175, 0.06315, 0.10775, 0.00053, 0.00002,-0.00002, 0.00024, . 0.25773, 0.05714, 0.08327, 0.00053, 0.00005,-0.00005, 0.00024, . 0.23779, 0.05208, 0.06595, 0.00050, 0.00010, 0.00003, 0.00027, . 0.22023, 0.04781, 0.05332, 0.00052, 0.00011, 0.00000, 0.00024, . 0.20554, 0.04424, 0.04384, 0.00041, 0.00007,-0.00005, 0.00023, . 0.19201, 0.04104, 0.03660, 0.00049, 0.00012,-0.00003, 0.00021, . 0.18043, 0.03829, 0.03097, 0.00044, 0.00010,-0.00003, 0.00021, . 0.17023, 0.03587, 0.02648, 0.00039, 0.00009, 0.00001, 0.00023, . 0.16089, 0.03368, 0.02289, 0.00037, 0.00011, 0.00003, 0.00023, . 0.15237, 0.03171, 0.01997, 0.00035, 0.00012, 0.00003, 0.00022, . 0.14475, 0.02996, 0.01756, 0.00032, 0.00009, 0.00000, 0.00019, . 0.13772, 0.02836, 0.01555, 0.00033, 0.00010, 0.00001, 0.00018, . 0.13129, 0.02689, 0.01387, 0.00034, 0.00011, 0.00003, 0.00017, . 0.12546, 0.02556, 0.01247, 0.00029, 0.00010, 0.00001, 0.00017, . 0.12011, 0.02434, 0.01126, 0.00026, 0.00009, 0.00001, 0.00017, . 0.11516, 0.02320, 0.01023, 0.00025, 0.00011, 0.00004, 0.00017, . 0.11056, 0.02218, 0.00933, 0.00023, 0.00011, 0.00005, 0.00016, . 0.10626, 0.02126, 0.00855, 0.00022, 0.00010, 0.00006, 0.00016, . 0.10224, 0.02039, 0.00787, 0.00021, 0.00010, 0.00006, 0.00015 / DATA ((F(I,38,M),I=1,5),F(7,38,M),F(6,38,M),M=1,19) / . 0.24454, 0.05173, 0.07630, 0.00033,-0.00006,-0.00009, 0.00007, . 0.22257, 0.04648, 0.05834, 0.00036, 0.00006,-0.00005, 0.00012, . 0.20381, 0.04224, 0.04570, 0.00035, 0.00003,-0.00004, 0.00015, . 0.18848, 0.03857, 0.03670, 0.00028, 0.00005,-0.00003, 0.00010, . 0.17453, 0.03555, 0.02995, 0.00030, 0.00004,-0.00008, 0.00013, . 0.16321, 0.03286, 0.02488, 0.00016, 0.00007,-0.00009, 0.00013, . 0.15259, 0.03052, 0.02093, 0.00025, 0.00006,-0.00006, 0.00012, . 0.14337, 0.02848, 0.01783, 0.00022, 0.00007,-0.00003, 0.00013, . 0.13509, 0.02665, 0.01536, 0.00020, 0.00007,-0.00001, 0.00013, . 0.12761, 0.02503, 0.01337, 0.00019, 0.00007, 0.00000, 0.00012, . 0.12086, 0.02358, 0.01173, 0.00017, 0.00006, 0.00001, 0.00011, . 0.11471, 0.02225, 0.01037, 0.00015, 0.00006, 0.00002, 0.00011, . 0.10913, 0.02105, 0.00923, 0.00014, 0.00007, 0.00002, 0.00012, . 0.10398, 0.01996, 0.00828, 0.00013, 0.00008, 0.00002, 0.00011, . 0.09924, 0.01896, 0.00747, 0.00013, 0.00009, 0.00003, 0.00010, . 0.09484, 0.01805, 0.00678, 0.00015, 0.00010, 0.00004, 0.00012, . 0.09083, 0.01721, 0.00618, 0.00014, 0.00009, 0.00004, 0.00012, . 0.08716, 0.01644, 0.00566, 0.00011, 0.00007, 0.00004, 0.00011, . 0.08370, 0.01572, 0.00521, 0.00010, 0.00007, 0.00003, 0.00011 / DATA ((F(I,39,M),I=1,5),F(7,39,M),F(6,39,M),M=1,19) / . 0.20903, 0.04168, 0.05261, 0.00022,-0.00002,-0.00002, 0.00005, . 0.18910, 0.03726, 0.03975, 0.00018, 0.00000,-0.00004, 0.00007, . 0.17233, 0.03364, 0.03091, 0.00024,-0.00001,-0.00008, 0.00006, . 0.15841, 0.03062, 0.02462, 0.00021, 0.00002,-0.00003, 0.00011, . 0.14648, 0.02807, 0.01996, 0.00017, 0.00002,-0.00005, 0.00011, . 0.13626, 0.02583, 0.01651, 0.00013, 0.00004,-0.00002, 0.00009, . 0.12688, 0.02392, 0.01383, 0.00016, 0.00002,-0.00002, 0.00009, . 0.11869, 0.02222, 0.01175, 0.00014, 0.00004,-0.00003, 0.00009, . 0.11156, 0.02074, 0.01008, 0.00010, 0.00005,-0.00001, 0.00009, . 0.10522, 0.01942, 0.00875, 0.00007, 0.00006, 0.00002, 0.00008, . 0.09931, 0.01822, 0.00767, 0.00008, 0.00004, 0.00000, 0.00006, . 0.09391, 0.01716, 0.00677, 0.00009, 0.00005, 0.00001, 0.00006, . 0.08904, 0.01621, 0.00602, 0.00009, 0.00006, 0.00001, 0.00007, . 0.08471, 0.01533, 0.00540, 0.00006, 0.00006, 0.00002, 0.00007, . 0.08071, 0.01452, 0.00487, 0.00005, 0.00006, 0.00003, 0.00007, . 0.07699, 0.01379, 0.00442, 0.00005, 0.00006, 0.00003, 0.00007, . 0.07356, 0.01312, 0.00403, 0.00004, 0.00006, 0.00004, 0.00008, . 0.07039, 0.01250, 0.00369, 0.00003, 0.00006, 0.00003, 0.00008, . 0.06745, 0.01193, 0.00340, 0.00003, 0.00006, 0.00003, 0.00008 / DATA ((F(I,40,M),I=1,5),F(7,40,M),F(6,40,M),M=1,19) / . 0.17631, 0.03314, 0.03550, 0.00015,-0.00010,-0.00012,-0.00005, . 0.15869, 0.02945, 0.02657, 0.00017,-0.00003,-0.00006, 0.00001, . 0.14415, 0.02645, 0.02048, 0.00011,-0.00002,-0.00008, 0.00001, . 0.13179, 0.02399, 0.01621, 0.00012,-0.00002,-0.00006, 0.00003, . 0.12124, 0.02187, 0.01309, 0.00013, 0.00003,-0.00003, 0.00005, . 0.11218, 0.02011, 0.01078, 0.00011, 0.00000,-0.00006, 0.00002, . 0.10434, 0.01851, 0.00902, 0.00006, 0.00001,-0.00005, 0.00003, . 0.09724, 0.01715, 0.00765, 0.00008, 0.00001,-0.00004, 0.00003, . 0.09095, 0.01596, 0.00656, 0.00009, 0.00002,-0.00003, 0.00003, . 0.08540, 0.01491, 0.00568, 0.00007, 0.00002,-0.00003, 0.00002, . 0.08050, 0.01395, 0.00497, 0.00005, 0.00001,-0.00001, 0.00004, . 0.07596, 0.01310, 0.00440, 0.00005, 0.00002, 0.00000, 0.00005, . 0.07184, 0.01234, 0.00391, 0.00006, 0.00004, 0.00000, 0.00005, . 0.06814, 0.01164, 0.00351, 0.00006, 0.00003, 0.00001, 0.00004, . 0.06475, 0.01101, 0.00316, 0.00005, 0.00003, 0.00001, 0.00004, . 0.06162, 0.01042, 0.00287, 0.00004, 0.00003, 0.00001, 0.00004, . 0.05873, 0.00989, 0.00262, 0.00004, 0.00003, 0.00001, 0.00004, . 0.05604, 0.00941, 0.00240, 0.00005, 0.00002, 0.00001, 0.00003, . 0.05358, 0.00897, 0.00221, 0.00005, 0.00002, 0.00001, 0.00003 / DATA ((F(I,41,M),I=1,5),F(7,41,M),F(6,41,M),M=1,19) / . 0.14600, 0.02568, 0.02305, 0.00007,-0.00002,-0.00003, 0.00001, . 0.13062, 0.02277, 0.01716, 0.00009,-0.00002,-0.00003,-0.00001, . 0.11797, 0.02038, 0.01318, 0.00008, 0.00001,-0.00002, 0.00000, . 0.10747, 0.01839, 0.01039, 0.00006,-0.00002,-0.00003,-0.00001, . 0.09860, 0.01671, 0.00838, 0.00005, 0.00000, 0.00000, 0.00003, . 0.09073, 0.01530, 0.00689, 0.00009,-0.00001,-0.00002, 0.00001, . 0.08405, 0.01409, 0.00576, 0.00006, 0.00000,-0.00001, 0.00001, . 0.07820, 0.01300, 0.00487, 0.00005, 0.00000,-0.00001, 0.00001, . 0.07299, 0.01206, 0.00418, 0.00005, 0.00000,-0.00001, 0.00001, . 0.06834, 0.01122, 0.00362, 0.00005, 0.00000,-0.00001, 0.00000, . 0.06419, 0.01048, 0.00317, 0.00004, 0.00001,-0.00001, 0.00001, . 0.06039, 0.00982, 0.00280, 0.00004, 0.00001, 0.00000, 0.00001, . 0.05696, 0.00923, 0.00250, 0.00005, 0.00001, 0.00000, 0.00000, . 0.05389, 0.00869, 0.00224, 0.00004, 0.00000, 0.00000, 0.00001, . 0.05108, 0.00820, 0.00202, 0.00004, 0.00000, 0.00000, 0.00001, . 0.04849, 0.00775, 0.00184, 0.00004, 0.00000,-0.00001, 0.00000, . 0.04614, 0.00734, 0.00168, 0.00004, 0.00000,-0.00001, 0.00000, . 0.04399, 0.00697, 0.00154, 0.00003, 0.00000, 0.00000, 0.00000, . 0.04199, 0.00663, 0.00142, 0.00002, 0.00000, 0.00000, 0.00000 / DATA ((F(I,42,M),I=1,5),F(7,42,M),F(6,42,M),M=1,19) / . 0.09475, 0.01458, 0.00880, 0.00000, 0.00000,-0.00001,-0.00001, . 0.08369, 0.01275, 0.00645, 0.00001, 0.00000,-0.00002, 0.00000, . 0.07467, 0.01127, 0.00490, 0.00005, 0.00001, 0.00000, 0.00001, . 0.06742, 0.01007, 0.00383, 0.00001, 0.00001,-0.00001, 0.00000, . 0.06110, 0.00909, 0.00308, 0.00004, 0.00000, 0.00000, 0.00000, . 0.05598, 0.00824, 0.00252,-0.00001, 0.00000,-0.00002, 0.00000, . 0.05144, 0.00752, 0.00210, 0.00000, 0.00001, 0.00001, 0.00001, . 0.04743, 0.00689, 0.00178, 0.00001, 0.00001, 0.00002, 0.00002, . 0.04395, 0.00635, 0.00153, 0.00001, 0.00001, 0.00001, 0.00002, . 0.04088, 0.00587, 0.00133, 0.00000, 0.00000, 0.00000, 0.00001, . 0.03810, 0.00545, 0.00116, 0.00000, 0.00000, 0.00000, 0.00001, . 0.03564, 0.00507, 0.00103, 0.00000, 0.00001, 0.00000, 0.00001, . 0.03343, 0.00473, 0.00092, 0.00001, 0.00001, 0.00000, 0.00001, . 0.03142, 0.00443, 0.00083, 0.00001, 0.00001, 0.00000, 0.00001, . 0.02961, 0.00416, 0.00075, 0.00001, 0.00001, 0.00000, 0.00000, . 0.02797, 0.00391, 0.00068, 0.00001, 0.00001, 0.00000, 0.00001, . 0.02647, 0.00369, 0.00063, 0.00001, 0.00001, 0.00000, 0.00001, . 0.02511, 0.00349, 0.00058, 0.00001, 0.00000, 0.00000, 0.00001, . 0.02386, 0.00330, 0.00053, 0.00000, 0.00000, 0.00000, 0.00001 / DATA ((F(I,43,M),I=1,5),F(7,43,M),F(6,43,M),M=1,19) / . 0.05613, 0.00748, 0.00285, 0.00002, 0.00000,-0.00001, 0.00000, . 0.04898, 0.00646, 0.00207, 0.00002, 0.00000,-0.00002,-0.00001, . 0.04331, 0.00565, 0.00157, 0.00000,-0.00001, 0.00000, 0.00000, . 0.03867, 0.00499, 0.00123, 0.00000,-0.00001, 0.00000, 0.00000, . 0.03478, 0.00446, 0.00099,-0.00002, 0.00000,-0.00001, 0.00000, . 0.03139, 0.00401, 0.00082, 0.00001, 0.00000,-0.00001, 0.00000, . 0.02859, 0.00362, 0.00068, 0.00001, 0.00000, 0.00000, 0.00000, . 0.02617, 0.00330, 0.00058, 0.00000, 0.00000, 0.00000, 0.00000, . 0.02407, 0.00301, 0.00050, 0.00000, 0.00000, 0.00000, 0.00000, . 0.02222, 0.00277, 0.00044, 0.00000, 0.00000, 0.00000, 0.00000, . 0.02057, 0.00255, 0.00039, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01912, 0.00236, 0.00035, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01783, 0.00218, 0.00031, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01665, 0.00203, 0.00028, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01560, 0.00190, 0.00026, 0.00001, 0.00000, 0.00000, 0.00000, . 0.01467, 0.00178, 0.00023, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01381, 0.00167, 0.00022, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01302, 0.00157, 0.00020, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01230, 0.00148, 0.00018, 0.00000, 0.00000, 0.00000, 0.00000 / DATA ((F(I,44,M),I=1,5),F(7,44,M),F(6,44,M),M=1,19) / . 0.02942, 0.00332, 0.00073, 0.00000, 0.00000, 0.00000, 0.00000, . 0.02533, 0.00283, 0.00054, 0.00000, 0.00000, 0.00000, 0.00000, . 0.02208, 0.00244, 0.00041, 0.00000,-0.00001, 0.00000, 0.00000, . 0.01946, 0.00213, 0.00033, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01730, 0.00188, 0.00027, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01549, 0.00168, 0.00023, 0.00001, 0.00000, 0.00000, 0.00000, . 0.01398, 0.00150, 0.00019, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01268, 0.00136, 0.00017, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01156, 0.00123, 0.00015, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01059, 0.00112, 0.00013, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00973, 0.00102, 0.00011, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00898, 0.00094, 0.00010, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00832, 0.00087, 0.00009, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00772, 0.00080, 0.00008, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00719, 0.00074, 0.00008, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00672, 0.00069, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00629, 0.00064, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00589, 0.00060, 0.00006, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00554, 0.00056, 0.00006, 0.00000, 0.00000, 0.00000, 0.00000 / DATA ((F(I,45,M),I=1,5),F(7,45,M),F(6,45,M),M=1,19) / . 0.01301, 0.00121, 0.00014, 0.00000, 0.00000, 0.00000, 0.00000, . 0.01101, 0.00101, 0.00011, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00944, 0.00086, 0.00008, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00820, 0.00074, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00719, 0.00064, 0.00006, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00637, 0.00057, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00568, 0.00050, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00510, 0.00045, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00460, 0.00040, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00417, 0.00036, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00381, 0.00033, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00348, 0.00030, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00319, 0.00027, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00294, 0.00025, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00272, 0.00023, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00252, 0.00021, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00234, 0.00020, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00218, 0.00018, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00203, 0.00017, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000 / DATA ((F(I,46,M),I=1,5),F(7,46,M),F(6,46,M),M=1,19) / . 0.00090, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00073, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00060, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00050, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00043, 0.00002, 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.00031, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00027, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00024, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00019, 0.00001, 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.00015, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, . 0.00010, 0.00001, 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.00008, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000 / C C don't let x be altered if it's out of range!! C XSAVE=X C IF(INIT.NE.0) GOTO 10 INIT=1 DO 20 N=1,NX-1 DO 20 M=1,19 C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR DO 25 I=1,7 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) 20 CONTINUE DO 30 J=1,NTENTH-1 XX(J)= LOG10(XX(J))+ONEDO DO 30 I=1,6 DO 30 K=1,19 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) DO 40 I=1,7 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,7 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) IF(N.GE.NTENTH) GOTO 65 IF(I.EQ.7) 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) C C this sea is (ubar+dbar)/2 C SEA=G(4) STR=G(6) CHM=G(5) GL =G(3) BOT=G(7) C C restore x C X=XSAVE C RETURN END