Back to home page

Project CMSSW displayed by LXR

 
 

    


File indexing completed on 2024-04-06 12:13:24

0001 
0002 ************************************************************************
0003       REAL FUNCTION GR_MUM()   !   auto. created by droll (10/6/2005)
0004 *     generated rate: GR_MUM [Hz] at scoring plane, per one beam
0005 ************************************************************************
0006 
0007       IMPLICIT NONE
0008 #include "GeneratorInterface/BeamHaloGenerator/interface/bhgp_info.inc"
0009 
0010       DOUBLE PRECISION LE_INC
0011       PARAMETER       (LE_INC = 0.0001) ! ln(kinetic_E) inc. ln[GeV]
0012       INTEGER    N_BIN, IBIN
0013       PARAMETER (N_BIN = 100) ! number of bins
0014       DOUBLE PRECISION R0_MUM(N_BIN),LOW,WID,LOG_EK,R_VAL,S_RATE
0015 
0016       DATA R0_MUM /
0017      & 11058, 11534.3, 14026.1, 9521.6, 9043.75, 
0018      & 10899.1, 8285.72, 9529.01, 11670.5, 10377.7, 
0019      & 12343.1, 10669.5, 12913, 9780.75, 9601.14, 
0020      & 9944.76, 9503.48, 8347.56, 8586.68, 8557.92, 
0021      & 9013.5, 8296.05, 7736.99, 9888.78, 7216.35, 
0022      & 7904.61, 6194.7, 6024.93, 5755.38, 5683.46, 
0023      & 5360.62, 4956.57, 3782.48, 3934.79, 3709.12, 
0024      & 3396.59, 3066.48, 2382.09, 2599.65, 2245.18, 
0025      & 2040.83, 1700.25, 1800.42, 1628.55, 1366.18, 
0026      & 1308.43, 1087.66, 880.07, 840.217, 718.471, 
0027      & 686.322, 639.834, 533.21, 472.863, 425.82, 
0028      & 359.139, 366.855, 352.325, 290.213, 245.73, 
0029      & 233.406, 228.31, 174.63, 174.892, 171.018, 
0030      & 148.221, 135.649, 121.624, 116.474, 101.323, 
0031      & 89.2157, 78.2233, 74.8076, 59.5172, 58.3762, 
0032      & 47.2495, 42.4768, 37.9104, 32.6665, 25.6056, 
0033      & 21.7091, 17.6985, 13.8493, 10.7544, 8.2395, 
0034      & 5.61843, 4.04671, 3.1305, 1.92773, 1.09192, 
0035      & 0.84027, 0.56989, 0.292607, 0.15793, 0.0807653, 
0036      & 0.0305536, 0.0099813, 0.00111072, 8.11325e-05, 1.05038e-05
0037      & /
0038       LOW = 0
0039       WID = 0.088537
0040 
0041       S_RATE = 0. ! initialize total sum of infinitesimal rate elements
0042       ! sum up all infinitesimal rate elements
0043       LOG_EK = DBLE(LOG(EMUMIN)) - 0.5*LE_INC ! start value of ln(kin_E)
0044 111   LOG_EK = LOG_EK + LE_INC
0045          IBIN = INT((LOG_EK-LOW)/WID) + 1
0046                                          R_VAL = 0.0
0047          IF(IBIN.GT.0.AND.IBIN.LE.N_BIN) R_VAL = R0_MUM(IBIN)
0048          S_RATE = S_RATE + R_VAL
0049       IF ((LOG_EK+LE_INC).LT.LOG(EMUMAX)) GOTO 111
0050       ! calculate the actual rate
0051       GR_MUM = REAL(S_RATE*LE_INC) ! total rate [Hz]
0052 
0053       RETURN
0054 
0055       END
0056 
0057 ************************************************************************
0058       SUBROUTINE F66MUM  !  automatically created by droll (10/6/2005)
0059 *     fill histograms H##MUM more infos in kine/kicdes/bhgrhists.inc
0060 ************************************************************************
0061 
0062       IMPLICIT NONE
0063 #include "GeneratorInterface/BeamHaloGenerator/interface/bhgrhists.inc"
0064 
0065       DATA H01MUM /
0066      & 0.0329766, 0.0343972, 0.0418281, 0.028395, 0.02697, 
0067      & 0.032503, 0.0247094, 0.0284171, 0.0348033, 0.0309481, 
0068      & 0.0368093, 0.0318182, 0.0385085, 0.0291678, 0.0286322, 
0069      & 0.0296569, 0.0283409, 0.0248938, 0.0256069, 0.0255211, 
0070      & 0.0268797, 0.0247402, 0.023073, 0.0294899, 0.0215203, 
0071      & 0.0235728, 0.0184736, 0.0179673, 0.0171635, 0.016949, 
0072      & 0.0159862, 0.0147813, 0.01128, 0.0117342, 0.0110612, 
0073      & 0.0101292, 0.00914475, 0.00710379, 0.00775258, 0.00669549, 
0074      & 0.00608608, 0.00507043, 0.00536916, 0.00485659, 0.00407417, 
0075      & 0.00390194, 0.00324358, 0.00262451, 0.00250566, 0.0021426, 
0076      & 0.00204672, 0.00190809, 0.00159012, 0.00141015, 0.00126986, 
0077      & 0.00107101, 0.00109402, 0.00105069, 0.000865463, 0.000732806, 
0078      & 0.000696056, 0.000680856, 0.000520774, 0.000521557, 0.000510004, 
0079      & 0.000442018, 0.000404527, 0.000362702, 0.000347345, 0.000302161, 
0080      & 0.000266056, 0.000233275, 0.000223088, 0.00017749, 0.000174088, 
0081      & 0.000140906, 0.000126673, 0.000113055, 9.74169e-05, 7.63602e-05, 
0082      & 6.47401e-05, 5.27798e-05, 4.13008e-05, 3.20714e-05, 2.45715e-05, 
0083      & 1.67551e-05, 1.2068e-05, 9.33566e-06, 5.7488e-06, 3.25628e-06, 
0084      & 2.50582e-06, 1.6995e-06, 8.72603e-07, 4.70974e-07, 2.40855e-07, 
0085      & 9.11159e-08, 2.97659e-08, 3.31234e-09, 2.4195e-10, 3.13239e-11
0086      & /
0087       L01MUM = 0
0088       W01MUM = 0.088537
0089 
0090       DATA H11MUM /
0091      & 2.07215e-09, 1.80102e-08, 3.23833e-10, 0, 4.16067e-09, 
0092      & 0, 5.73077e-10, 3.49311e-08, 4.80592e-07, 1.16506e-06, 
0093      & 4.89498e-08, 1.10422e-07, 2.36969e-07, 5.71529e-06, 2.87255e-06, 
0094      & 5.29646e-06, 3.87011e-06, 3.86249e-06, 5.44502e-06, 2.11989e-05, 
0095      & 1.30696e-05, 1.31525e-05, 7.42937e-05, 0.000101083, 0.000209111, 
0096      & 0.000130924, 0.000931405, 0.000505442, 0.000694499, 0.00102331, 
0097      & 0.00151522, 0.00293953, 0.00432878, 0.00815671, 0.0124897, 
0098      & 0.0161521, 0.0263171, 0.0312335, 0.0364596, 0.0324818, 
0099      & 0.0492286, 0.044377, 0.0391184, 0.0334322, 0.0328856, 
0100      & 0.0345188, 0.0371689, 0.0523934, 0.0439618, 0.0355649, 
0101      & 0.0412181, 0.0336755, 0.0298401, 0.0367163, 0.0388095, 
0102      & 0.0681354, 0.0367049, 0.035488, 0.0217799, 0.0246869, 
0103      & 0.0359018, 0.00884335, 0.00412577, 0.00271187, 0.00117632, 
0104      & 0.00065072, 0.000581268, 0.000180071, 7.03905e-05, 6.31339e-05, 
0105      & 0.000135447, 2.86749e-06, 2.9649e-06, 1.91918e-06, 2.1453e-05, 
0106      & 2.34866e-07, 0, 6.72674e-07, 0, 6.25128e-09, 
0107      & 0, 0, 2.48125e-06, 1.48675e-06, 0, 
0108      & 0, 5.30455e-07, 0, 0, 0, 
0109      & 0, 0, 0, 0, 0, 
0110      & 0, 0, 0, 0, 3.56879e-07
0111      & /
0112       L11MUM = -948.153
0113       W11MUM = 18.4838
0114 
0115       DATA H12MUM /
0116      & 3.45432e-08, 0, 5.12676e-08, 1.31098e-07, 5.9259e-09, 
0117      & 3.96209e-08, 1.7803e-07, 6.24714e-08, 1.27267e-06, 3.84454e-06, 
0118      & 1.90683e-07, 4.6147e-06, 3.80791e-06, 3.07553e-06, 6.66122e-05, 
0119      & 4.46289e-05, 5.74326e-05, 3.96001e-05, 0.000118084, 0.000118581, 
0120      & 0.000144804, 0.000193264, 0.000136788, 0.000135622, 0.000499477, 
0121      & 0.000498348, 0.000607789, 0.00126475, 0.00171809, 0.00213589, 
0122      & 0.00500819, 0.00838667, 0.0145342, 0.0261, 0.0320386, 
0123      & 0.0370563, 0.0396494, 0.0418092, 0.048684, 0.0478929, 
0124      & 0.041209, 0.0402852, 0.0510842, 0.0399012, 0.0519133, 
0125      & 0.0350517, 0.0280103, 0.039983, 0.0287924, 0.0251896, 
0126      & 0.0254233, 0.0293431, 0.0373118, 0.0381769, 0.0505769, 
0127      & 0.0466862, 0.0243496, 0.0243782, 0.015396, 0.00910211, 
0128      & 0.00433832, 0.00216871, 0.00107855, 0.00056686, 0.000286648, 
0129      & 0.000129789, 0.000225304, 2.1248e-05, 6.3831e-06, 1.38651e-05, 
0130      & 1.84579e-07, 1.43782e-05, 6.96753e-06, 8.07729e-07, 8.85438e-07, 
0131      & 1.15733e-07, 1.95889e-05, 1.15881e-07, 0, 1.59617e-08, 
0132      & 0, 0, 0, 1.65191e-07, 4.05354e-09, 
0133      & 0, 0, 0, 0, 0, 
0134      & 0, 0, 0, 0, 0, 
0135      & 0, 0, 1.67302e-07, 0, 6.44197e-08
0136      & /
0137       L12MUM = -887.732
0138       W12MUM = 18.1812
0139 
0140       DATA H13MUM /
0141      & 2.11771e-08, 6.72579e-10, 0, 2.16499e-06, 7.26315e-07, 
0142      & 4.39387e-08, 1.90987e-07, 6.67159e-06, 5.11423e-07, 5.3071e-05, 
0143      & 2.72978e-06, 1.08132e-05, 1.10918e-05, 7.53209e-05, 2.39235e-05, 
0144      & 7.67064e-05, 5.55345e-05, 0.000111997, 0.000464072, 0.000322736, 
0145      & 0.000452976, 0.000540455, 0.000930198, 0.000949053, 0.00115154, 
0146      & 0.00116189, 0.00173624, 0.00281134, 0.002701, 0.00332054, 
0147      & 0.00828739, 0.019302, 0.0158156, 0.0246695, 0.0295734, 
0148      & 0.0266124, 0.0374292, 0.040329, 0.0441421, 0.0357472, 
0149      & 0.0480957, 0.0618406, 0.0576264, 0.0669797, 0.0511429, 
0150      & 0.0355942, 0.0253593, 0.0327923, 0.0202246, 0.026595, 
0151      & 0.0316006, 0.0490169, 0.0466977, 0.0532213, 0.0395665, 
0152      & 0.0244486, 0.0171013, 0.00698248, 0.00304012, 0.00159086, 
0153      & 0.000837386, 0.000355311, 0.000140249, 9.48373e-05, 6.37042e-05, 
0154      & 5.39121e-06, 6.53265e-06, 1.16522e-05, 1.3379e-05, 1.53051e-06, 
0155      & 8.93181e-08, 7.90937e-07, 5.07655e-06, 8.52581e-11, 2.80656e-06, 
0156      & 2.73399e-08, 0, 2.1722e-08, 5.63662e-05, 4.13094e-06, 
0157      & 7.93852e-09, 0, 4.19782e-07, 0, 6.22926e-07, 
0158      & 0, 0, 9.14625e-07, 0, 0, 
0159      & 0, 2.79449e-07, 4.98308e-08, 0, 0, 
0160      & 0, 0, 0, 0, 1.94638e-08
0161      & /
0162       L13MUM = -866.427
0163       W13MUM = 18.2625
0164 
0165       DATA H14MUM /
0166      & 9.7766e-06, 0, 0, 2.63035e-06, 0, 
0167      & 2.26332e-06, 8.52885e-06, 8.36686e-06, 1.65006e-06, 8.3422e-07, 
0168      & 1.3262e-05, 4.73585e-06, 6.15368e-07, 7.87387e-06, 9.95926e-05, 
0169      & 1.26672e-05, 2.14318e-06, 5.66721e-07, 6.62823e-06, 1.37181e-05, 
0170      & 0.000100442, 1.11048e-05, 5.11446e-05, 9.23129e-05, 0.000223567, 
0171      & 0.000106318, 0.000651901, 0.000557711, 0.000657966, 0.00176773, 
0172      & 0.00158126, 0.0042403, 0.00290779, 0.00459784, 0.00813896, 
0173      & 0.0145869, 0.0195843, 0.0259397, 0.0233967, 0.0246712, 
0174      & 0.0304191, 0.0387645, 0.0351763, 0.0365595, 0.0442138, 
0175      & 0.054187, 0.0648685, 0.0741992, 0.0648682, 0.0586789, 
0176      & 0.0585945, 0.0392494, 0.0453154, 0.0499815, 0.0477109, 
0177      & 0.0475848, 0.0376917, 0.0170702, 0.0111939, 0.0040639, 
0178      & 0.00288268, 0.000739055, 0.000620801, 0.000196578, 0.000195343, 
0179      & 5.89776e-05, 3.90348e-05, 1.14398e-05, 0.000117014, 4.06704e-05, 
0180      & 5.19671e-05, 5.03091e-05, 3.51736e-05, 1.28557e-05, 4.13491e-05, 
0181      & 3.0896e-06, 6.02692e-05, 5.6555e-06, 5.03006e-05, 9.2215e-05, 
0182      & 3.55091e-06, 5.73886e-07, 4.68317e-06, 5.79311e-06, 5.65629e-06, 
0183      & 5.47829e-05, 1.06186e-05, 6.73092e-05, 2.59169e-06, 5.41564e-06, 
0184      & 5.67496e-06, 0, 4.10253e-05, 2.64558e-05, 1.51613e-06, 
0185      & 0, 3.11948e-06, 3.85414e-06, 0, 3.85202e-07
0186      & /
0187       L14MUM = -999.946
0188       W14MUM = 19.7154
0189 
0190       DATA H15MUM /
0191      & 9.39432e-06, 6.33836e-06, 0.0006016, 5.02215e-05, 3.35367e-05, 
0192      & 0.000407119, 0.000569562, 0.000429953, 0.000477614, 0.000368181, 
0193      & 0.000534142, 0.000294889, 0.00023267, 0.000201935, 8.32625e-05, 
0194      & 0.00102179, 0.000653927, 0.000387245, 0.000264592, 0.000817565, 
0195      & 0.000526877, 0.000391861, 0.00103216, 0.000621516, 0.00127645, 
0196      & 0.000473295, 0.000876534, 0.00116663, 0.0011674, 0.000883466, 
0197      & 0.00134192, 0.00260567, 0.00337637, 0.0034153, 0.010317, 
0198      & 0.0113795, 0.0172643, 0.0229895, 0.0299114, 0.0327022, 
0199      & 0.0347212, 0.0432444, 0.0424258, 0.0490252, 0.0638761, 
0200      & 0.0674972, 0.0792392, 0.045953, 0.0651866, 0.090723, 
0201      & 0.0841994, 0.0520588, 0.0369145, 0.0217623, 0.0182693, 
0202      & 0.0108658, 0.00744691, 0.00530925, 0.00398638, 0.00322268, 
0203      & 0.00197217, 0.00224289, 0.00264493, 0.000755111, 0.00220243, 
0204      & 0.000700866, 0.000401841, 0.00113911, 0.000503308, 0.00128832, 
0205      & 0.00077378, 0.000470031, 0.000351393, 0.000584156, 0.000884455, 
0206      & 0.000484186, 0.000707915, 0.000355961, 0.000191048, 0.000229741, 
0207      & 0.000224408, 0.000578333, 0.000417992, 0.000157064, 0.000176392, 
0208      & 0.000478878, 0.000163356, 0.000208227, 0.000321377, 0.000213001, 
0209      & 0.000384892, 0.000297678, 0.000181609, 9.28014e-05, 5.1698e-05, 
0210      & 8.09253e-06, 1.21499e-05, 4.81549e-05, 6.6256e-06, 1.66122e-06
0211      & /
0212       L15MUM = -1005.35
0213       W15MUM = 20.1059
0214 
0215       DATA H16MUM /
0216      & 0.000144739, 0.000147888, 0, 2.04727e-05, 3.19058e-06, 
0217      & 0.000194509, 0.000251333, 2.76942e-06, 0.000103726, 0.000749101, 
0218      & 0.000306093, 0.000314887, 4.23576e-05, 0.00023678, 0.000143246, 
0219      & 0.000761393, 0.000326477, 0.000376067, 7.67523e-05, 8.04872e-05, 
0220      & 0.00076434, 0.000900006, 0.000517734, 0.000415775, 0.000794879, 
0221      & 0.000546147, 0.00108188, 0.00178772, 0.00106301, 0.000894289, 
0222      & 0.00179794, 0.0018189, 0.0011904, 0.00142906, 0.0018093, 
0223      & 0.00347351, 0.00180496, 0.00494027, 0.00620054, 0.00708864, 
0224      & 0.0153228, 0.0230972, 0.0338274, 0.0365843, 0.101669, 
0225      & 0.112171, 0.107182, 0.090661, 0.0373938, 0.069814, 
0226      & 0.152358, 0.0803394, 0.0321492, 0.0121529, 0.00844026, 
0227      & 0.00531698, 0.00567019, 0.00419239, 0.00250379, 0.00374191, 
0228      & 0.00235608, 0.00217972, 0.00109068, 0.000921895, 0.00108074, 
0229      & 0.00284894, 0.000824416, 0.000693401, 0.000391608, 0.000356495, 
0230      & 0.000403665, 0.000181607, 0.000927752, 0.00060678, 0.000468747, 
0231      & 0.000423317, 0.000198831, 0.000172022, 0.00064499, 0.000247582, 
0232      & 8.13057e-05, 0.000240248, 0.000684872, 0.000239631, 0.000297877, 
0233      & 0.000368791, 4.301e-05, 0.000116003, 3.643e-06, 0.000158862, 
0234      & 0.000252919, 8.07022e-05, 3.49216e-05, 0.000297676, 0.000362825, 
0235      & 0.000175145, 3.77948e-05, 1.00719e-07, 0.000144158, 0.000170426
0236      & /
0237       L16MUM = -994.55
0238       W16MUM = 19.6635
0239 
0240       DATA H17MUM /
0241      & 0.000186134, 0, 0, 3.26561e-05, 2.47867e-05, 
0242      & 1.40613e-05, 1.49508e-06, 2.09522e-06, 2.23698e-05, 3.47077e-06, 
0243      & 1.35636e-05, 0.000188178, 0.000353792, 1.27622e-05, 7.12111e-05, 
0244      & 8.15423e-05, 0.000129031, 7.13236e-05, 3.87208e-05, 2.99444e-05, 
0245      & 0.000652516, 0.000455588, 0.000260157, 0.000298541, 0.000174214, 
0246      & 0.000340347, 0.000226202, 0.000422562, 0.000667124, 0.00113685, 
0247      & 0.000687335, 0.00175221, 0.000825849, 0.00130426, 0.00210145, 
0248      & 0.00141305, 0.0013427, 0.00218124, 0.00224799, 0.00262821, 
0249      & 0.00498124, 0.00533579, 0.00981616, 0.0287813, 0.0850159, 
0250      & 0.14814, 0.232377, 0.052444, 0.0890027, 0.196851, 
0251      & 0.0606963, 0.0137807, 0.010483, 0.00467753, 0.00520167, 
0252      & 0.00420521, 0.00446221, 0.00253078, 0.00216832, 0.00219554, 
0253      & 0.00260031, 0.00198924, 0.000475389, 0.00116466, 0.00134138, 
0254      & 0.00101607, 0.000162112, 0.00127742, 0.000282935, 0.000250171, 
0255      & 0.000395842, 0.000376374, 5.20584e-05, 5.37056e-05, 1.24544e-05, 
0256      & 0.000117377, 0.000479756, 0.000301457, 0.000551522, 7.98277e-06, 
0257      & 0.000156829, 3.89297e-06, 0.000517519, 9.51794e-05, 1.19231e-05, 
0258      & 7.72507e-06, 3.11172e-07, 3.48147e-06, 0.000105044, 8.51703e-05, 
0259      & 0, 0, 0.000250955, 4.77555e-05, 3.27149e-07, 
0260      & 3.90339e-05, 0, 0, 0, 0.000224746
0261      & /
0262       L17MUM = -987.281
0263       W17MUM = 19.8167
0264 
0265       DATA H18MUM /
0266      & 3.26936e-05, 0, 0, 0, 0, 
0267      & 0, 3.85458e-05, 0, 2.96508e-05, 0, 
0268      & 0, 0, 0, 1.74195e-05, 3.88143e-05, 
0269      & 3.01403e-05, 8.77422e-05, 4.74427e-05, 0.000324124, 0.000343698, 
0270      & 0.000166679, 4.07363e-05, 0.000193346, 6.83322e-05, 0.000285785, 
0271      & 0.000660421, 2.66202e-05, 0.000321111, 0.000832353, 0.000581967, 
0272      & 0.000409017, 0.000685776, 0.00194147, 0.000672175, 0.000980275, 
0273      & 0.00594995, 0.00283578, 0.00230762, 0.00533074, 0.00568284, 
0274      & 0.0109754, 0.0125223, 0.00896288, 0.0193572, 0.0151164, 
0275      & 0.0233586, 0.0335611, 0.152639, 0.296094, 0.0576469, 
0276      & 0.213448, 0.0326704, 0.0132294, 0.0245501, 0.0139919, 
0277      & 0.00553069, 0.00679477, 0.00260178, 0.00191419, 0.00268809, 
0278      & 0.00294256, 0.00392507, 0.00385658, 0.00124119, 0.000378424, 
0279      & 0.000486527, 0.000259237, 0.000144231, 0.00373776, 0.00050101, 
0280      & 3.27029e-05, 0.000144171, 3.0327e-05, 4.66695e-05, 0.00179474, 
0281      & 9.21366e-05, 0.000244185, 0.000273625, 0.00054709, 0.000119207, 
0282      & 8.12904e-05, 0, 0.000214943, 0.000243624, 1.1513e-05, 
0283      & 0, 0, 0, 0, 0, 
0284      & 1.85064e-05, 0, 0, 0, 0, 
0285      & 0, 0, 0, 0, 1.68912e-05
0286      & /
0287       L18MUM = -950.697
0288       W18MUM = 18.8364
0289 
0290       DATA H21MUM /
0291      & 9.20174e-08, 0, 0, 0, 0, 
0292      & 0, 0, 0, 0, 0, 
0293      & 0, 0, 5.2226e-09, 0, 0, 
0294      & 0, 7.34844e-08, 0, 0, 0, 
0295      & 0, 0, 1.21416e-09, 0, 0, 
0296      & 0, 1.95538e-11, 3.90871e-10, 1.01679e-06, 9.60143e-08, 
0297      & 0, 1.25235e-07, 1.3542e-07, 3.79355e-07, 1.11197e-06, 
0298      & 3.49218e-06, 1.85394e-05, 1.94243e-05, 4.21516e-05, 8.52469e-05, 
0299      & 0.000316058, 0.000645638, 0.000868408, 0.00105026, 0.00157755, 
0300      & 0.00424895, 0.00431853, 0.0107251, 0.0212632, 0.058486, 
0301      & 0.0402584, 0.0479825, 0.0412609, 0.0404621, 0.0656652, 
0302      & 0.0821403, 0.0655826, 0.0564712, 0.0552104, 0.0559916, 
0303      & 0.0416243, 0.0370195, 0.0356444, 0.0320234, 0.0223892, 
0304      & 0.0483167, 0.0262712, 0.0198201, 0.016289, 0.0137056, 
0305      & 0.0152483, 0.0117351, 0.0160352, 0.00361243, 0.00232525, 
0306      & 0.00142492, 0.000945583, 0.000269355, 0.000192812, 3.75097e-05, 
0307      & 2.05804e-05, 1.43529e-05, 0.000193457, 8.51138e-06, 6.33204e-05, 
0308      & 2.6775e-05, 1.34298e-06, 2.87727e-07, 4.03783e-05, 1.27253e-06, 
0309      & 6.10944e-07, 2.09223e-08, 3.95705e-09, 3.38501e-09, 0, 
0310      & 9.24046e-11, 0, 0, 0, 2.52465e-06
0311      & /
0312       L21MUM = -911.726
0313       W21MUM = 16.2695
0314 
0315       DATA H22MUM /
0316      & 2.1994e-08, 0, 0, 4.06605e-07, 0, 
0317      & 0, 0, 0, 0, 0, 
0318      & 0, 0, 0, 0, 0, 
0319      & 0, 6.97278e-07, 9.29059e-07, 9.50267e-08, 5.357e-08, 
0320      & 1.51342e-06, 4.17234e-08, 2.17953e-09, 2.38991e-07, 1.49262e-06, 
0321      & 1.99885e-07, 7.77219e-07, 3.59232e-06, 1.37008e-07, 4.32392e-06, 
0322      & 8.18819e-06, 1.9539e-06, 5.6036e-06, 3.60176e-05, 2.41045e-05, 
0323      & 2.53422e-05, 8.11771e-05, 0.00021488, 0.000263443, 0.000914562, 
0324      & 0.00108218, 0.00207209, 0.00378849, 0.00435198, 0.00942187, 
0325      & 0.020764, 0.0259625, 0.0496068, 0.0407062, 0.0493114, 
0326      & 0.0447186, 0.0435124, 0.0772111, 0.0890841, 0.075623, 
0327      & 0.0547024, 0.0473431, 0.044761, 0.0475762, 0.0443595, 
0328      & 0.0370703, 0.0324835, 0.0250385, 0.0273801, 0.0213996, 
0329      & 0.0195553, 0.0155743, 0.015254, 0.0113331, 0.00774989, 
0330      & 0.00506367, 0.00210093, 0.00124076, 0.000506105, 0.000367637, 
0331      & 0.000129967, 3.9701e-05, 7.41976e-05, 3.35718e-05, 1.95363e-05, 
0332      & 2.72181e-06, 5.67358e-06, 1.85613e-05, 8.61529e-07, 1.61291e-06, 
0333      & 1.10927e-06, 1.16196e-07, 5.44565e-07, 2.95644e-06, 3.37072e-07, 
0334      & 3.44089e-07, 1.21704e-07, 1.08764e-06, 2.98753e-07, 0, 
0335      & 0, 2.38288e-07, 0, 4.73021e-08, 4.85386e-10
0336      & /
0337       L22MUM = -850.606
0338       W22MUM = 15.9243
0339 
0340       DATA H23MUM /
0341      & 2.09509e-06, 5.15947e-06, 0, 2.5186e-07, 0, 
0342      & 0, 1.50633e-07, 0, 4.93158e-06, 0, 
0343      & 2.23194e-07, 5.0508e-07, 2.51566e-07, 2.73399e-08, 0, 
0344      & 5.55045e-09, 0, 2.39751e-07, 1.01423e-05, 2.92505e-06, 
0345      & 1.40261e-06, 4.1332e-07, 1.22072e-06, 0, 1.78866e-06, 
0346      & 1.4075e-06, 9.30852e-07, 1.82352e-07, 2.71178e-06, 3.41688e-05, 
0347      & 3.28104e-06, 4.51394e-06, 5.37511e-06, 6.79498e-06, 1.98687e-05, 
0348      & 3.58395e-05, 4.40644e-05, 3.3683e-05, 0.000148022, 0.000357452, 
0349      & 0.000640459, 0.00130608, 0.00287179, 0.00640024, 0.0136716, 
0350      & 0.0327136, 0.0357792, 0.036885, 0.0380494, 0.0466142, 
0351      & 0.0615362, 0.0909926, 0.129643, 0.0888825, 0.0672075, 
0352      & 0.0569268, 0.0447924, 0.0430217, 0.0374913, 0.0307385, 
0353      & 0.0282897, 0.0316055, 0.0214511, 0.0179955, 0.00884686, 
0354      & 0.0111942, 0.00686042, 0.00334275, 0.00154526, 0.00115682, 
0355      & 0.000405266, 0.000226845, 4.73916e-05, 1.78807e-05, 2.64989e-05, 
0356      & 1.18762e-05, 1.17619e-05, 4.41511e-06, 4.35262e-06, 7.13772e-06, 
0357      & 5.98905e-06, 4.66763e-06, 1.69262e-05, 2.72621e-06, 3.46775e-06, 
0358      & 3.22544e-06, 1.95994e-07, 3.56572e-08, 2.8978e-06, 1.14388e-06, 
0359      & 6.88215e-08, 0, 5.40432e-07, 7.06477e-07, 0, 
0360      & 2.63307e-06, 0, 0, 2.65468e-06, 6.4357e-06
0361      & /
0362       L23MUM = -918.032
0363       W23MUM = 17.555
0364 
0365       DATA H24MUM /
0366      & 2.0575e-06, 0, 8.49127e-08, 0, 1.2114e-05, 
0367      & 1.49824e-05, 0, 1.53318e-06, 6.94619e-05, 1.10058e-06, 
0368      & 3.19778e-06, 2.88137e-06, 3.64512e-05, 4.51732e-05, 2.73735e-05, 
0369      & 1.25737e-06, 5.46953e-05, 2.18061e-05, 6.97346e-05, 4.40082e-06, 
0370      & 2.11039e-05, 2.4052e-05, 2.74742e-06, 0.000123758, 3.90127e-05, 
0371      & 2.85243e-05, 2.78365e-05, 6.39466e-05, 3.6764e-05, 1.63461e-05, 
0372      & 6.82697e-05, 5.61142e-05, 4.51231e-05, 0.000138593, 0.000150589, 
0373      & 7.39151e-05, 6.98328e-05, 0.000146473, 0.000176284, 0.000365909, 
0374      & 0.000829823, 0.00132376, 0.00359314, 0.00878273, 0.0231361, 
0375      & 0.0314088, 0.0562231, 0.0648794, 0.063245, 0.111569, 
0376      & 0.195799, 0.121099, 0.0712255, 0.0574644, 0.0450855, 
0377      & 0.0414871, 0.0260873, 0.0176529, 0.0159478, 0.0148624, 
0378      & 0.00676911, 0.00866823, 0.00638097, 0.00156622, 0.000821289, 
0379      & 0.000332356, 0.000204962, 0.000209002, 0.000102111, 3.82467e-05, 
0380      & 0.000113639, 7.47481e-05, 9.12715e-05, 2.87023e-05, 1.99077e-05, 
0381      & 0.000109203, 1.73015e-05, 0.000125627, 2.06919e-05, 2.06236e-05, 
0382      & 8.55455e-05, 3.65189e-06, 7.00706e-05, 7.04643e-06, 7.84252e-05, 
0383      & 2.4926e-05, 4.00887e-06, 4.32656e-05, 2.16837e-05, 7.81906e-05, 
0384      & 2.28612e-06, 5.15024e-07, 2.58141e-06, 1.33811e-05, 4.01336e-08, 
0385      & 1.83649e-05, 6.7827e-07, 8.5637e-07, 7.92374e-05, 5.53144e-06
0386      & /
0387       L24MUM = -998.232
0388       W24MUM = 19.755
0389 
0390       DATA H25MUM /
0391      & 6.28772e-07, 9.65848e-06, 0.00015777, 2.99094e-05, 0.000167381, 
0392      & 8.24313e-05, 9.06085e-05, 7.55995e-06, 0.000627963, 0.000304262, 
0393      & 3.69656e-05, 0.000288615, 0.000842638, 0.000105154, 0.000250856, 
0394      & 0.00065145, 0.000269397, 0.00064239, 0.000204489, 0.000757022, 
0395      & 0.000331085, 0.000304076, 0.00045104, 0.000571815, 0.000618775, 
0396      & 0.000196417, 0.00063448, 0.000760362, 0.000361983, 0.00078927, 
0397      & 0.00179911, 0.0013807, 0.000902873, 0.00225288, 0.00171501, 
0398      & 0.00157231, 0.000915609, 0.00153762, 0.00452078, 0.00164442, 
0399      & 0.00301676, 0.00304077, 0.00330022, 0.00701234, 0.0109124, 
0400      & 0.0192354, 0.0337337, 0.0559945, 0.0951397, 0.224767, 
0401      & 0.233612, 0.0914232, 0.0552883, 0.0438283, 0.0184314, 
0402      & 0.0121135, 0.00841425, 0.00534809, 0.00493036, 0.00252774, 
0403      & 0.0066475, 0.00220169, 0.0038023, 0.00161078, 0.00243116, 
0404      & 0.00206298, 0.00180099, 0.0021679, 0.00176431, 0.000936619, 
0405      & 0.0016805, 0.00118074, 0.000865012, 0.00174819, 0.000366031, 
0406      & 0.00026313, 0.00060857, 0.000504708, 0.000285749, 0.00042602, 
0407      & 0.000457863, 0.00025673, 0.000101529, 0.000170265, 0.0002444, 
0408      & 0.000261232, 0.000539729, 0.000689729, 0.000790798, 0.000240653, 
0409      & 0.000224911, 0.000514624, 0.000151859, 2.87199e-05, 8.17495e-05, 
0410      & 0.000235625, 4.14654e-05, 1.99595e-05, 0.000734235, 1.33125e-06
0411      & /
0412       L25MUM = -1004.95
0413       W25MUM = 20.0888
0414 
0415       DATA H26MUM /
0416      & 0.000282232, 5.37071e-05, 6.24258e-06, 1.11372e-05, 5.85788e-05, 
0417      & 8.25194e-06, 0.000233251, 0.000211244, 4.78641e-06, 8.55854e-05, 
0418      & 2.63117e-06, 1.40698e-05, 0.000313715, 0.000185385, 3.63127e-05, 
0419      & 7.5076e-06, 8.78469e-05, 0.000140507, 0.000535624, 0.00119012, 
0420      & 0.00161097, 0.000713467, 0.000330509, 0.00087801, 0.000827113, 
0421      & 0.00103636, 0.000154069, 0.00117827, 0.000631421, 0.000622262, 
0422      & 0.00107219, 0.00167042, 0.000706597, 0.000284652, 0.00103038, 
0423      & 0.00366989, 0.0013716, 0.00108506, 0.00279613, 0.00258658, 
0424      & 0.00222878, 0.00592545, 0.00370915, 0.00321814, 0.0042238, 
0425      & 0.00593537, 0.0109736, 0.0132028, 0.0336208, 0.0894093, 
0426      & 0.505808, 0.158173, 0.0465484, 0.0178894, 0.0119784, 
0427      & 0.00618683, 0.00670908, 0.00548047, 0.00615545, 0.00311897, 
0428      & 0.00212489, 0.00306032, 0.00304763, 0.00322346, 0.00163016, 
0429      & 0.00178124, 0.000485585, 0.0013451, 0.000899929, 0.00163085, 
0430      & 0.000938492, 0.0010707, 0.000815792, 0.000668177, 0.000905906, 
0431      & 0.00065364, 0.000619493, 0.00107245, 0.000491768, 0.000456661, 
0432      & 0.000242489, 0.000783617, 1.91809e-05, 0.000118748, 3.38313e-05, 
0433      & 0.00020194, 0.00104968, 0.000406261, 0.000468519, 0.000578921, 
0434      & 5.76912e-09, 8.36565e-07, 5.96859e-05, 4.06059e-11, 0.00033587, 
0435      & 0.00022262, 1.19736e-05, 3.04937e-05, 0, 0.000292902
0436      & /
0437       L26MUM = -996.742
0438       W26MUM = 19.667
0439 
0440       DATA H27MUM /
0441      & 1.75676e-06, 2.10044e-06, 0.000163526, 0, 1.41392e-07, 
0442      & 0.000101115, 2.75651e-05, 1.22734e-05, 2.94681e-05, 0.000123436, 
0443      & 0.000515714, 0.000310209, 1.17311e-05, 1.31258e-05, 1.51369e-05, 
0444      & 6.69304e-05, 1.0984e-05, 0.000177099, 3.52615e-05, 0.000127423, 
0445      & 0.000163914, 0.000155458, 7.33934e-05, 0.000522741, 0.00014579, 
0446      & 0.000112769, 0.000538542, 0.000796435, 0.00103686, 0.00103423, 
0447      & 0.000727512, 0.000752726, 0.00119023, 0.0010155, 0.000839626, 
0448      & 0.0011475, 0.00141217, 0.00298895, 0.00154229, 0.00199204, 
0449      & 0.00384203, 0.00336731, 0.00525455, 0.00400503, 0.00741122, 
0450      & 0.00943578, 0.0136406, 0.0165524, 0.0835202, 0.716398, 
0451      & 0.035662, 0.0127019, 0.0131348, 0.00849644, 0.00647532, 
0452      & 0.00693774, 0.00442303, 0.00331198, 0.00452878, 0.00251471, 
0453      & 0.00260277, 0.000550507, 0.00226456, 0.00175486, 0.00256537, 
0454      & 0.00194517, 0.000267056, 0.00239184, 0.000135077, 0.000411864, 
0455      & 0.000383583, 0.000388017, 0.000184097, 0.000329033, 0.000728394, 
0456      & 0.000117134, 5.02964e-05, 6.92962e-06, 0.000187957, 0.000163873, 
0457      & 6.06712e-05, 9.13737e-05, 3.51935e-05, 3.08461e-05, 0.000423048, 
0458      & 6.46364e-05, 5.65999e-05, 4.5995e-06, 1.31376e-05, 0, 
0459      & 3.43525e-06, 0.000169941, 4.36544e-05, 4.12158e-06, 1.31615e-05, 
0460      & 3.58213e-06, 0, 4.79771e-06, 0, 7.89902e-07
0461      & /
0462       L27MUM = -953.277
0463       W27MUM = 19.3413
0464 
0465       DATA H28MUM /
0466      & 4.9478e-05, 0.000149429, 0, 0, 1.64619e-05, 
0467      & 0, 0, 0, 0, 0, 
0468      & 0, 0, 0.000207118, 0, 0.000180538, 
0469      & 8.55833e-05, 1.39785e-05, 5.4778e-05, 0, 0, 
0470      & 0.000151065, 0, 0, 0, 0.000271029, 
0471      & 4.83029e-05, 0.000180078, 0.000425335, 0.000702125, 0.00018662, 
0472      & 0.000976004, 0.00199695, 0.000168847, 0.00107052, 0.00113425, 
0473      & 0.000756665, 0.00409962, 0.00158049, 0.00154899, 0.00618391, 
0474      & 0.00155619, 0.00120616, 0.00407277, 0.00554663, 0.00539677, 
0475      & 0.00473343, 0.0106561, 0.0147525, 0.0141304, 0.0242723, 
0476      & 0.0223495, 0.0543978, 0.575933, 0.0549988, 0.0327866, 
0477      & 0.0243741, 0.0191343, 0.0202995, 0.0160588, 0.013302, 
0478      & 0.00822909, 0.00521117, 0.0101302, 0.00252851, 0.00337511, 
0479      & 0.00503087, 0.000888174, 0.00105077, 0.00731669, 0.00188305, 
0480      & 0.00207866, 0.000919316, 0.000488865, 0.00205077, 0.000431091, 
0481      & 0.000647601, 0.000395813, 0.000200233, 0.00220254, 6.96152e-05, 
0482      & 0.000551175, 0.000561978, 0.000124135, 0.000473755, 0.000124073, 
0483      & 0.000134158, 3.97362e-05, 0, 0.000237475, 0.00012284, 
0484      & 2.85488e-05, 0, 5.38936e-06, 6.01201e-05, 0, 
0485      & 0.000115238, 1.54817e-05, 4.80918e-05, 0, 3.4241e-05
0486      & /
0487       L28MUM = -783.11
0488       W28MUM = 14.862
0489 
0490       DATA H31MUM /
0491      & 1.77283e-07, 0, 0, 0, 5.67973e-10, 
0492      & 0, 0, 0, 2.06965e-08, 4.6954e-12, 
0493      & 3.29314e-09, 4.53091e-08, 6.36715e-06, 0.000152395, 1.63732e-06, 
0494      & 9.79819e-06, 9.10323e-07, 1.5354e-05, 8.2996e-06, 6.92744e-06, 
0495      & 1.60071e-05, 3.04507e-05, 6.14225e-05, 1.16834e-05, 9.3071e-05, 
0496      & 7.90239e-05, 9.74639e-05, 0.000187263, 8.37279e-05, 0.000214306, 
0497      & 0.000261427, 0.000213734, 0.000271872, 0.000425685, 0.000622738, 
0498      & 0.00062685, 0.00135844, 0.00174097, 0.00218437, 0.00284329, 
0499      & 0.00601726, 0.0058382, 0.012804, 0.0198005, 0.0285613, 
0500      & 0.0422991, 0.0566737, 0.0789198, 0.0980149, 0.115445, 
0501      & 0.185585, 0.101732, 0.070412, 0.0581022, 0.0278676, 
0502      & 0.0203887, 0.0154577, 0.0157779, 0.00828275, 0.00878617, 
0503      & 0.0027913, 0.00203507, 0.00108894, 0.000894952, 0.000793679, 
0504      & 0.000544319, 0.000532098, 0.000213148, 0.000467649, 0.00039859, 
0505      & 0.000219536, 0.000203075, 8.88968e-05, 0.00022849, 0.000403202, 
0506      & 0.000185985, 0.000116004, 0.000161694, 5.14917e-05, 2.59149e-05, 
0507      & 3.38581e-05, 4.60008e-05, 8.20656e-06, 2.81619e-05, 2.55274e-05, 
0508      & 3.99427e-06, 2.0742e-06, 7.91044e-06, 4.79134e-10, 1.56916e-08, 
0509      & 4.78704e-08, 8.55743e-06, 0, 0, 7.32077e-09, 
0510      & 0, 0, 0, 0, 3.46001e-08
0511      & /
0512       L31MUM = -0.862046
0513       W31MUM = 0.0170049
0514 
0515       DATA H32MUM /
0516      & 4.03027e-08, 0, 2.21412e-08, 2.96162e-07, 8.60938e-08, 
0517      & 9.18915e-08, 1.18149e-06, 1.87715e-08, 3.61928e-08, 5.26553e-08, 
0518      & 8.21727e-08, 3.6142e-07, 3.43917e-06, 8.64648e-06, 1.77112e-05, 
0519      & 1.4827e-06, 2.7386e-05, 3.00378e-06, 8.12748e-06, 3.02827e-05, 
0520      & 2.77652e-05, 4.55285e-05, 3.43106e-05, 8.07576e-05, 8.98769e-05, 
0521      & 0.000118908, 0.000206473, 0.000263904, 0.000543173, 0.000773871, 
0522      & 0.00108616, 0.00132245, 0.00152141, 0.0024779, 0.00499779, 
0523      & 0.00509651, 0.010232, 0.0110884, 0.0140523, 0.0203921, 
0524      & 0.023461, 0.037398, 0.0488938, 0.0860792, 0.0952267, 
0525      & 0.0985363, 0.113563, 0.10527, 0.0783353, 0.0676746, 
0526      & 0.0504121, 0.0339379, 0.0217888, 0.0179121, 0.0137888, 
0527      & 0.00860083, 0.00769688, 0.00455677, 0.00321035, 0.00295859, 
0528      & 0.00224633, 0.00124846, 0.000911523, 0.000332832, 0.000437279, 
0529      & 0.000235336, 6.77218e-05, 8.51896e-05, 0.000136853, 9.97111e-05, 
0530      & 0.000104941, 5.96575e-05, 6.00644e-05, 3.89747e-05, 8.61604e-06, 
0531      & 1.84606e-05, 1.33666e-06, 1.19007e-05, 2.63291e-06, 7.00789e-07, 
0532      & 2.9175e-05, 4.92108e-06, 8.02978e-08, 5.83098e-08, 3.12865e-08, 
0533      & 1.25206e-09, 3.71081e-07, 9.22734e-09, 1.3069e-06, 0, 
0534      & 0, 0, 0, 0, 0, 
0535      & 0, 3.32673e-09, 8.15888e-13, 0, 1.06103e-09
0536      & /
0537       L32MUM = -0.365275
0538       W32MUM = 0.00767598
0539 
0540       DATA H33MUM /
0541      & 2.11771e-08, 0, 0, 0, 0, 
0542      & 0, 0, 0, 0, 0, 
0543      & 0, 0, 2.2162e-05, 0, 0, 
0544      & 1.23021e-06, 3.80736e-06, 0, 0, 0, 
0545      & 0, 0, 0, 0, 1.47174e-06, 
0546      & 0, 3.49685e-07, 0, 2.44774e-07, 0, 
0547      & 0, 4.39962e-06, 0, 0, 0, 
0548      & 4.01237e-05, 3.76321e-07, 2.06472e-07, 9.86476e-07, 2.57979e-06, 
0549      & 0, 4.6044e-06, 2.03836e-05, 3.14035e-05, 1.71508e-05, 
0550      & 0.000196249, 0.000223688, 0.000571143, 0.000973319, 0.00162802, 
0551      & 0.00195355, 0.00509166, 0.00738561, 0.013298, 0.0250262, 
0552      & 0.0490866, 0.0914082, 0.132353, 0.161871, 0.137408, 
0553      & 0.0821405, 0.0716847, 0.0696142, 0.06079, 0.0383161, 
0554      & 0.0172562, 0.01092, 0.00807486, 0.00510039, 0.00300079, 
0555      & 0.00239896, 0.000954284, 0.000664483, 0.00027789, 0.000113093, 
0556      & 3.28846e-05, 1.22601e-05, 5.03927e-06, 7.91489e-06, 3.10075e-06, 
0557      & 2.48016e-07, 0, 1.55395e-07, 2.73399e-08, 5.2094e-07, 
0558      & 1.35364e-07, 0, 0, 2.74392e-06, 7.33122e-07, 
0559      & 4.19782e-07, 1.54016e-08, 0, 6.22926e-07, 0, 
0560      & 0, 1.19045e-07, 8.15044e-07, 0, 4.98308e-08
0561      & /
0562       L33MUM = -0.382533
0563       W33MUM = 0.00635954
0564 
0565       DATA H34MUM /
0566      & 1.24072e-07, 8.8269e-08, 0, 0, 2.27208e-07, 
0567      & 1.21514e-07, 5.35627e-05, 0, 0, 2.26332e-06, 
0568      & 9.77932e-05, 9.6521e-07, 8.5084e-08, 7.53277e-06, 1.54431e-06, 
0569      & 8.09256e-05, 0.00013614, 2.15877e-05, 3.37834e-06, 1.42517e-05, 
0570      & 7.38574e-06, 1.0958e-05, 4.32886e-06, 7.17761e-06, 1.93655e-05, 
0571      & 0.000216044, 3.184e-05, 0.000153666, 7.38318e-05, 0.000159898, 
0572      & 0.000155199, 0.000268531, 0.00231602, 0.00837415, 0.0399023, 
0573      & 0.176085, 0.348851, 0.186541, 0.144638, 0.0648351, 
0574      & 0.0190345, 0.00501382, 0.00148726, 0.000268602, 0.000204858, 
0575      & 8.54368e-05, 3.13407e-05, 4.03151e-05, 7.32465e-05, 0.000194057, 
0576      & 1.72723e-05, 2.02381e-05, 0.00012513, 1.37012e-05, 4.49451e-05, 
0577      & 5.56623e-06, 4.69303e-05, 2.59333e-07, 2.66501e-07, 4.55752e-07, 
0578      & 7.19363e-06, 0, 3.52117e-06, 6.18235e-07, 4.74898e-07, 
0579      & 1.67574e-07, 0, 2.52473e-06, 9.26818e-05, 8.77177e-05, 
0580      & 0, 1.80754e-08, 1.9423e-05, 0, 0, 
0581      & 0, 0, 0, 0, 0, 
0582      & 0, 0, 0, 0, 0, 
0583      & 0, 0, 0, 0, 0, 
0584      & 2.7258e-07, 0, 0, 0, 0, 
0585      & 0, 0, 0, 0, 5.82189e-06
0586      & /
0587       L34MUM = -0.361849
0588       W34MUM = 0.00968772
0589 
0590       DATA H35MUM /
0591      & 8.22099e-06, 0, 0, 0, 0, 
0592      & 0, 0, 0, 0, 0, 
0593      & 0, 0, 5.94037e-05, 0, 0.000492207, 
0594      & 0, 0, 0.000281454, 0, 0, 
0595      & 0, 0, 1.38534e-05, 0, 0, 
0596      & 0, 0.000596268, 0, 3.08145e-06, 0, 
0597      & 0, 0, 0, 1.39168e-06, 8.94445e-05, 
0598      & 1.24961e-06, 0.000166965, 9.64662e-07, 0.000363164, 7.51104e-05, 
0599      & 0.00114408, 0.00141242, 0.00277477, 0.00106087, 0.00151307, 
0600      & 0.00162241, 0.000639426, 0.000814981, 0.000956435, 0.00357968, 
0601      & 0.00358628, 0.00309697, 0.00693175, 0.00590313, 0.00884867, 
0602      & 0.00734244, 0.0152222, 0.0178421, 0.0317723, 0.151468, 
0603      & 0.472506, 0.15066, 0.0361474, 0.0161229, 0.0121604, 
0604      & 0.00863576, 0.0054108, 0.00564953, 0.00360375, 0.00473848, 
0605      & 0.00282496, 0.0028803, 0.000845857, 0.0010197, 0.00164945, 
0606      & 0.00142246, 0.000759267, 0.000518701, 0.000373023, 0.000972571, 
0607      & 0.000221581, 0.000110497, 4.49091e-05, 0.000200052, 0.000704757, 
0608      & 0, 0, 9.94889e-07, 2.53567e-06, 0, 
0609      & 3.25447e-07, 7.13641e-05, 1.78298e-06, 1.71872e-05, 0, 
0610      & 0, 1.13462e-07, 0, 3.69236e-05, 4.15476e-07
0611      & /
0612       L35MUM = -0.816371
0613       W35MUM = 0.0134383
0614 
0615       DATA H36MUM /
0616      & 8.26365e-06, 0, 0, 0, 0, 
0617      & 0, 0, 0, 0, 0, 
0618      & 0, 0, 0, 0, 0, 
0619      & 0, 0, 0, 0.000465276, 0, 
0620      & 0, 0, 0, 8.16811e-08, 0, 
0621      & 0, 0, 4.10921e-05, 0, 6.93868e-07, 
0622      & 5.43815e-08, 0.000224608, 7.86704e-05, 1.20505e-05, 5.29128e-06, 
0623      & 8.06535e-06, 0.000332103, 0.000172239, 4.94514e-06, 3.25707e-05, 
0624      & 0.000410354, 0.000299068, 0.00035971, 0.00134954, 0.000904885, 
0625      & 0.00028991, 0.000795356, 0.00159507, 0.00170247, 0.00221939, 
0626      & 0.00298358, 0.00193823, 0.00250549, 0.00683464, 0.0062076, 
0627      & 0.00846156, 0.0104978, 0.0116575, 0.0207704, 0.0817855, 
0628      & 0.54938, 0.18411, 0.0447829, 0.011222, 0.00796682, 
0629      & 0.00791724, 0.00472889, 0.00498641, 0.00521165, 0.0028594, 
0630      & 0.00277633, 0.00247718, 0.00105516, 0.000498588, 0.00127134, 
0631      & 0.00152499, 0.000596354, 0.000261302, 0.000994648, 5.06063e-05, 
0632      & 2.10354e-05, 7.50207e-05, 1.79201e-05, 3.51429e-06, 6.694e-05, 
0633      & 1.49389e-05, 0.000117259, 0, 0, 5.5331e-05, 
0634      & 0, 0, 0, 4.27624e-07, 4.00961e-07, 
0635      & 0, 0, 0, 0, 1.16461e-06
0636      & /
0637       L36MUM = -0.640929
0638       W36MUM = 0.010509
0639 
0640       DATA H37MUM /
0641      & 0.000186134, 0, 0, 0, 0, 
0642      & 2.24476e-05, 0, 0, 2.23624e-05, 0, 
0643      & 1.21606e-05, 0, 0, 0, 9.09385e-06, 
0644      & 0, 7.71736e-08, 6.39347e-07, 0, 0, 
0645      & 0, 0.000344759, 1.68962e-05, 0, 5.99904e-05, 
0646      & 8.48946e-05, 2.33917e-06, 0.000170787, 0.000748953, 6.3142e-05, 
0647      & 0.000157572, 0.00094863, 0.000492818, 0.000617435, 0.000964506, 
0648      & 0.000510314, 0.00123062, 0.00108466, 0.00214164, 0.00274942, 
0649      & 0.00330087, 0.00399996, 0.00575946, 0.00668967, 0.00891418, 
0650      & 0.0107399, 0.0161489, 0.0685354, 0.559423, 0.219617, 
0651      & 0.0293943, 0.0104129, 0.00846137, 0.00587626, 0.00494547, 
0652      & 0.00483639, 0.0040001, 0.00320519, 0.00219982, 0.00171914, 
0653      & 0.00112481, 0.0025774, 0.0004916, 0.000666296, 0.000467084, 
0654      & 0.000884005, 0.000945023, 0.00020924, 0.000152533, 0.000547805, 
0655      & 1.96978e-05, 7.04547e-06, 0.000429413, 0.000189843, 2.20364e-07, 
0656      & 0.000225073, 7.16653e-06, 1.21041e-06, 6.70351e-06, 0, 
0657      & 2.39964e-06, 6.6157e-05, 0, 6.24528e-05, 7.38514e-06, 
0658      & 0, 0, 0, 8.5402e-05, 0, 
0659      & 0, 0, 0, 1.703e-06, 0, 
0660      & 0, 0, 0, 0, 2.16342e-07
0661      & /
0662       L37MUM = -0.305283
0663       W37MUM = 0.00620933
0664 
0665       DATA H38MUM /
0666      & 4.56393e-07, 0, 0, 0, 0, 
0667      & 0, 0, 0, 0, 0, 
0668      & 0, 0, 0, 0, 3.26936e-05, 
0669      & 0, 0, 3.33889e-05, 0, 7.736e-05, 
0670      & 2.96508e-05, 0, 0, 0, 1.74195e-05, 
0671      & 0, 0, 0.000133078, 0.000148036, 0.000321749, 
0672      & 0.000379121, 0.000167599, 0.000410192, 0.000317519, 0.000760766, 
0673      & 0.00124794, 0.000135423, 0.000912418, 0.00127334, 0.00071043, 
0674      & 0.00372629, 0.00387238, 0.00215651, 0.001155, 0.00668571, 
0675      & 0.00855768, 0.00665163, 0.014072, 0.0115902, 0.0173942, 
0676      & 0.013898, 0.0161688, 0.0299779, 0.0461131, 0.162834, 
0677      & 0.440288, 0.0734243, 0.0171376, 0.017993, 0.01573, 
0678      & 0.0131794, 0.0131337, 0.00793761, 0.0073984, 0.00879121, 
0679      & 0.00597741, 0.00611551, 0.00363271, 0.00170603, 0.00339577, 
0680      & 0.000630765, 0.000221481, 0.00359961, 0.00168703, 0.000387272, 
0681      & 0.000115408, 0.000685735, 0.00234435, 0.000133703, 0.00032524, 
0682      & 0.000172453, 0.000416777, 9.64879e-05, 0.000232998, 0.000151665, 
0683      & 0.000178878, 0, 0, 7.3615e-05, 0.000586015, 
0684      & 6.40749e-05, 1.85064e-05, 0, 4.03031e-05, 0, 
0685      & 0, 1.81307e-05, 0, 0, 1.68912e-05
0686      & /
0687       L38MUM = -0.205155
0688       W38MUM = 0.00368195
0689 
0690       DATA H41MUM /
0691      & 7.34844e-08, 1.0487e-09, 1.42546e-09, 0, 0, 
0692      & 0, 1.97452e-07, 1.07059e-07, 9.32909e-07, 2.31831e-07, 
0693      & 1.21444e-06, 5.91751e-11, 3.87765e-06, 1.40799e-06, 8.50317e-07, 
0694      & 4.3888e-07, 3.2149e-06, 4.58218e-06, 3.23518e-06, 4.92356e-05, 
0695      & 4.54329e-06, 1.69083e-05, 4.24674e-05, 7.08409e-06, 1.27415e-05, 
0696      & 2.81511e-05, 4.1166e-05, 0.000150672, 0.000114211, 0.000207589, 
0697      & 0.000159086, 0.000229594, 0.000219179, 0.000229231, 0.000353246, 
0698      & 0.000498947, 0.000791393, 0.0008249, 0.00121007, 0.00150752, 
0699      & 0.0021096, 0.00353142, 0.0054935, 0.00776858, 0.0150077, 
0700      & 0.0163166, 0.0331803, 0.0444879, 0.0644669, 0.0949521, 
0701      & 0.202025, 0.138323, 0.0967859, 0.0768092, 0.0793303, 
0702      & 0.0356596, 0.0238704, 0.015692, 0.0102113, 0.008681, 
0703      & 0.00547223, 0.00342489, 0.00328309, 0.0015567, 0.00108251, 
0704      & 0.000742765, 0.000987099, 0.000354806, 0.000338431, 0.00019927, 
0705      & 0.000366459, 0.000121165, 0.000125859, 0.000124122, 9.75391e-05, 
0706      & 0.000124014, 7.34506e-05, 5.51496e-06, 2.30177e-05, 2.61925e-05, 
0707      & 8.45595e-06, 1.46375e-05, 4.41074e-06, 3.57447e-06, 2.36384e-06, 
0708      & 1.4781e-06, 7.89262e-06, 2.09378e-07, 5.74615e-06, 7.09731e-09, 
0709      & 2.13085e-08, 8.7881e-08, 8.93639e-07, 6.21923e-11, 0, 
0710      & 0, 2.35034e-12, 0, 2.89634e-07, 2.02558e-10
0711      & /
0712       L41MUM = -0.805815
0713       W41MUM = 0.0158618
0714 
0715       DATA H42MUM /
0716      & 5.30251e-07, 0, 0, 1.05265e-10, 3.84267e-08, 
0717      & 2.1994e-08, 0, 3.91557e-09, 0, 6.15319e-12, 
0718      & 7.84265e-10, 1.18962e-08, 0, 1.00757e-08, 6.28782e-07, 
0719      & 5.32105e-08, 5.32953e-05, 1.69634e-05, 3.28963e-05, 2.91905e-06, 
0720      & 7.68936e-06, 1.10023e-05, 6.79651e-06, 5.88961e-05, 9.59976e-06, 
0721      & 9.88471e-06, 8.77598e-06, 3.28788e-05, 2.98523e-05, 3.48287e-05, 
0722      & 0.000175016, 0.000147727, 0.000194359, 0.000342553, 0.000479136, 
0723      & 0.000652792, 0.00132924, 0.00211962, 0.00170631, 0.00274623, 
0724      & 0.00331299, 0.00468525, 0.00677329, 0.00944545, 0.0187237, 
0725      & 0.017938, 0.0347666, 0.052233, 0.096318, 0.157062, 
0726      & 0.177602, 0.122506, 0.0876573, 0.0714907, 0.0404821, 
0727      & 0.0242687, 0.0171165, 0.0137595, 0.0089728, 0.0076358, 
0728      & 0.00527764, 0.00358801, 0.00286064, 0.00157564, 0.00122703, 
0729      & 0.000951758, 0.000536087, 0.000627268, 7.92661e-05, 9.59688e-05, 
0730      & 3.03395e-05, 3.21954e-05, 4.74563e-05, 1.95702e-05, 5.09887e-05, 
0731      & 8.79565e-06, 2.08755e-05, 5.44863e-06, 2.31116e-07, 2.00843e-06, 
0732      & 6.44276e-07, 4.69018e-07, 5.84014e-08, 6.50651e-09, 1.57197e-06, 
0733      & 2.56708e-07, 9.47874e-11, 5.40683e-09, 1.05209e-08, 5.04193e-08, 
0734      & 5.36558e-09, 0, 0, 0, 2.71876e-09, 
0735      & 0, 0, 0, 0, 1.99812e-09
0736      & /
0737       L42MUM = -0.407701
0738       W42MUM = 0.00813253
0739 
0740       DATA H43MUM /
0741      & 3.41298e-08, 1.3072e-06, 0, 1.23021e-06, 0, 
0742      & 0, 5.0508e-07, 2.73399e-08, 2.52611e-08, 5.55045e-09, 
0743      & 9.6399e-07, 6.017e-07, 7.01168e-09, 6.81169e-08, 5.35442e-06, 
0744      & 1.08446e-08, 1.51146e-07, 2.1078e-06, 2.97434e-05, 4.68432e-05, 
0745      & 0.000189708, 0.000489532, 0.00142488, 0.00291218, 0.00458582, 
0746      & 0.0113955, 0.0188919, 0.0496789, 0.14997, 0.338448, 
0747      & 0.240159, 0.108977, 0.0386279, 0.0185084, 0.00756771, 
0748      & 0.00457875, 0.00178515, 0.000993878, 0.000498454, 7.98381e-05, 
0749      & 4.0817e-05, 1.54615e-05, 5.30246e-06, 3.4956e-05, 2.59017e-07, 
0750      & 1.4774e-07, 1.10801e-05, 0, 0, 2.56373e-06, 
0751      & 2.2155e-05, 1.10681e-06, 0, 7.06477e-07, 0, 
0752      & 0, 0, 2.65468e-06, 6.4357e-06, 0, 
0753      & 0, 0, 0, 0, 0, 
0754      & 0, 0, 0, 0, 0, 
0755      & 0, 0, 0, 0, 0, 
0756      & 0, 0, 0, 0, 0, 
0757      & 0, 0, 0, 0, 0, 
0758      & 0, 3.80736e-06, 0, 0, 0, 
0759      & 0, 0, 0, 0, 0, 
0760      & 0, 0, 0, 0, 1.77985e-07
0761      & /
0762       L43MUM = -0.287012
0763       W43MUM = 0.00970702
0764 
0765       DATA H44MUM /
0766      & 9.73917e-07, 0, 0, 0, 0, 
0767      & 6.46277e-08, 3.61975e-07, 0, 0, 0, 
0768      & 0, 0, 0, 9.71379e-05, 0, 
0769      & 7.22039e-10, 0, 1.76544e-07, 0, 0, 
0770      & 1.30446e-06, 1.97738e-07, 9.46685e-07, 6.49485e-06, 1.60699e-07, 
0771      & 2.85867e-06, 4.50193e-06, 2.82116e-06, 5.84845e-06, 8.94848e-07, 
0772      & 9.58019e-06, 4.18415e-06, 3.65115e-05, 1.41221e-05, 0.000100214, 
0773      & 0.000203799, 0.000242456, 5.78937e-05, 0.000189959, 0.000205686, 
0774      & 0.000127825, 0.00040843, 0.0020406, 0.00943096, 0.014748, 
0775      & 0.0465647, 0.311693, 0.459735, 0.115714, 0.0219585, 
0776      & 0.0101005, 0.00386081, 0.000744808, 0.000205256, 5.2061e-05, 
0777      & 0.000213947, 9.7284e-05, 0.000158892, 4.11716e-05, 0.000187286, 
0778      & 1.81945e-05, 0.000113823, 8.18518e-05, 0.000116419, 1.51721e-06, 
0779      & 1.98285e-05, 2.75019e-07, 7.85239e-06, 8.06479e-06, 5.61052e-06, 
0780      & 2.06748e-05, 8.06005e-05, 2.05607e-06, 0, 1.93157e-06, 
0781      & 0.000110784, 0, 3.5725e-05, 5.16845e-05, 0, 
0782      & 0, 2.7258e-07, 0, 0, 0, 
0783      & 4.01336e-08, 0, 0, 0, 0, 
0784      & 0, 0, 0, 0, 0, 
0785      & 0, 0, 0, 0, 5.08292e-05
0786      & /
0787       L44MUM = -0.482472
0788       W44MUM = 0.0102388
0789 
0790       DATA H45MUM /
0791      & 0.000491348, 0, 7.05222e-08, 0, 0, 
0792      & 0, 0, 0, 0, 0.0003686, 
0793      & 0, 0, 1.02046e-06, 1.14492e-06, 3.4442e-07, 
0794      & 2.56551e-07, 4.34495e-07, 1.03989e-05, 4.47765e-06, 0.000175708, 
0795      & 2.61419e-05, 0.000333251, 0.000213683, 0.000204082, 0.00107791, 
0796      & 0.000108691, 0.000948332, 0.00154311, 0.00254941, 0.000771913, 
0797      & 0.00244247, 0.00229377, 0.00353834, 0.00362871, 0.00544394, 
0798      & 0.00531363, 0.0084775, 0.00867138, 0.0123816, 0.0129062, 
0799      & 0.0284112, 0.0591353, 0.502278, 0.191088, 0.0543793, 
0800      & 0.0201812, 0.0134357, 0.0129789, 0.00855998, 0.0057658, 
0801      & 0.00492107, 0.0034472, 0.00522484, 0.00321922, 0.00177112, 
0802      & 0.00188051, 0.00128531, 0.000116894, 0.000942841, 0.000201785, 
0803      & 0.00125337, 0.000393204, 0.000845615, 0.000394419, 0.000447308, 
0804      & 0.000607905, 0.000237883, 0.000134344, 1.95716e-06, 0.0016845, 
0805      & 1.23679e-05, 1.95022e-05, 3.02932e-07, 0, 0.000162134, 
0806      & 9.98429e-07, 0, 0, 0, 0.000197843, 
0807      & 4.32838e-08, 2.47435e-07, 0, 0, 0, 
0808      & 0, 0, 0, 0, 0, 
0809      & 0, 0, 0, 0, 0, 
0810      & 0.000453565, 0, 0, 0, 1.64306e-07
0811      & /
0812       L45MUM = -0.556902
0813       W45MUM = 0.0129989
0814 
0815       DATA H46MUM /
0816      & 2.81268e-06, 0, 0, 0, 7.8715e-07, 
0817      & 0, 0, 0, 5.19037e-08, 0, 
0818      & 0, 1.47103e-05, 7.67944e-06, 5.85441e-05, 6.64243e-08, 
0819      & 0, 0, 4.19858e-05, 0, 3.87567e-05, 
0820      & 7.72129e-07, 4.10329e-05, 0, 4.52413e-05, 0.00257496, 
0821      & 2.47158e-05, 1.62664e-05, 0.000406768, 0.00034878, 0.000625418, 
0822      & 0.000325422, 0.000885801, 0.000838452, 0.00198281, 0.00164627, 
0823      & 0.00169432, 0.00396652, 0.00432215, 0.0036661, 0.00374639, 
0824      & 0.00216046, 0.00668985, 0.00550604, 0.0058157, 0.009216, 
0825      & 0.0111258, 0.0133424, 0.0415438, 0.301224, 0.448126, 
0826      & 0.0457686, 0.0197277, 0.0106702, 0.00844316, 0.00645161, 
0827      & 0.0056668, 0.00589577, 0.00291776, 0.00436141, 0.00296022, 
0828      & 0.0017878, 0.00121136, 0.00116244, 0.00260109, 0.00137283, 
0829      & 0.00145906, 0.000217413, 0.00102972, 0.00069252, 9.30511e-05, 
0830      & 0.000599186, 1.96192e-05, 5.98319e-05, 0.000373649, 2.32679e-05, 
0831      & 0.000108332, 4.91018e-05, 0.00102218, 0, 0.0001814, 
0832      & 3.08931e-07, 0, 0, 0, 0.000274796, 
0833      & 6.47419e-06, 0, 0, 5.66487e-07, 0.000331515, 
0834      & 7.90355e-08, 0, 0, 0, 0, 
0835      & 0, 0, 4.43046e-05, 0, 0.000341231
0836      & /
0837       L46MUM = -0.392986
0838       W46MUM = 0.00801532
0839 
0840       DATA H47MUM /
0841      & 1.34946e-05, 0, 2.15977e-05, 0, 0, 
0842      & 0, 0, 0, 0, 0, 
0843      & 0, 0, 0, 0, 2.01766e-05, 
0844      & 7.16653e-06, 5.24654e-08, 0.000132224, 1.0635e-05, 5.80211e-06, 
0845      & 0.000182421, 0.000526739, 0.000253235, 0.000500831, 0.000805113, 
0846      & 0.000276118, 0.000107265, 0.00013672, 0.00102553, 0.000587206, 
0847      & 0.000498414, 0.000770711, 0.000705631, 0.00234822, 0.00149951, 
0848      & 0.00122377, 0.00149763, 0.0017832, 0.00221147, 0.00380917, 
0849      & 0.00466553, 0.00492455, 0.00819432, 0.0103273, 0.0129333, 
0850      & 0.0263522, 0.0693138, 0.729387, 0.0401089, 0.0151362, 
0851      & 0.0116453, 0.00558339, 0.00772377, 0.00659496, 0.00559027, 
0852      & 0.00330445, 0.00326004, 0.00279092, 0.00074091, 0.00301223, 
0853      & 0.000989949, 0.000910682, 0.000336268, 0.00116726, 0.000725023, 
0854      & 0.000932311, 0.000330857, 0.000334626, 0.000490583, 6.54766e-06, 
0855      & 0.000195956, 9.57976e-05, 4.62272e-05, 8.61378e-05, 0.000444009, 
0856      & 0.000168065, 9.66839e-05, 0, 0, 1.34291e-05, 
0857      & 0, 6.36391e-05, 0, 0, 0, 
0858      & 0, 0, 0, 0, 0, 
0859      & 1.0499e-06, 0, 0, 0, 0, 
0860      & 0, 1.04433e-05, 1.12549e-07, 0, 4.79771e-06
0861      & /
0862       L47MUM = -0.261522
0863       W47MUM = 0.00553893
0864 
0865       DATA H48MUM /
0866      & 0.000149429, 0, 0, 0, 0, 
0867      & 0, 0, 0, 0, 0, 
0868      & 0, 0, 0, 0, 0, 
0869      & 0, 1.97095e-05, 0, 0, 0, 
0870      & 0, 0, 0, 0, 0, 
0871      & 0, 0, 0, 0.00011498, 0, 
0872      & 5.32122e-05, 0, 0, 0, 0.000117496, 
0873      & 0, 0.000181725, 0.00107471, 2.96949e-05, 8.55009e-05, 
0874      & 0.00016209, 0.000921409, 0.000886325, 0.00151789, 0.001019, 
0875      & 0.000874293, 0.00164105, 0.00160423, 0.00105347, 0.00151075, 
0876      & 0.00405887, 0.00704877, 0.0079351, 0.0059321, 0.0107537, 
0877      & 0.0132887, 0.0106968, 0.024364, 0.0247092, 0.045277, 
0878      & 0.559686, 0.0887065, 0.038009, 0.0268734, 0.017144, 
0879      & 0.0188365, 0.0170262, 0.0118672, 0.0129245, 0.0060861, 
0880      & 0.00570682, 0.00517148, 0.0104465, 0.00302978, 0.00133467, 
0881      & 0.00167852, 0.00233532, 0.000546669, 0.000944248, 0.00165541, 
0882      & 0.000935833, 0.000534028, 0.00027168, 0.00041334, 3.44953e-05, 
0883      & 0, 3.97407e-05, 0, 1.54817e-05, 0.000145741, 
0884      & 3.55436e-05, 2.01949e-06, 0.000115238, 0, 0, 
0885      & 0.000313788, 2.85488e-05, 0, 0, 2.45765e-05
0886      & /
0887       L48MUM = -0.242881
0888       W48MUM = 0.0039884
0889 
0890       RETURN
0891 
0892       END