Back to home page

Project CMSSW displayed by LXR

 
 

    


File indexing completed on 2021-02-14 13:29:35

0001 
0002 ************************************************************************
0003       REAL FUNCTION GR_MUP()   !   auto. created by droll (10/6/2005)
0004 *     generated rate: GR_MUP [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_MUP(N_BIN),LOW,WID,LOG_EK,R_VAL,S_RATE
0015 
0016       DATA R0_MUP /
0017      & 12624, 11091, 14561.4, 12056.5, 14068.9, 
0018      & 13701.7, 16041.9, 13729.9, 11290.7, 13946.6, 
0019      & 17848.5, 12663, 13320.8, 12542.6, 13258.4, 
0020      & 13014.6, 15630.6, 12028.2, 13410.1, 12990.5, 
0021      & 11182.1, 11613.9, 10056.1, 10917.4, 9758.18, 
0022      & 8389.5, 9000.44, 8622.9, 8009.95, 7087.2, 
0023      & 7286.41, 5835.57, 5800.39, 5522.71, 4659.85, 
0024      & 4162.26, 3595.46, 3589.35, 2975.63, 2563.17, 
0025      & 2401.59, 2107.7, 1878.84, 1735.62, 1615.8, 
0026      & 1412.89, 1247.8, 1081.59, 965.684, 819.27, 
0027      & 728.819, 669.559, 626.848, 545.803, 540.992, 
0028      & 443.38, 439.416, 381.284, 380.457, 335.685, 
0029      & 329.136, 247.542, 255.227, 225.382, 227.59, 
0030      & 201.371, 174.608, 160.147, 154.029, 130.234, 
0031      & 121.73, 116.316, 101.419, 80.2873, 75.7846, 
0032      & 62.1342, 63.1888, 52.4253, 43.4666, 36.0029, 
0033      & 31.9534, 22.6559, 19.8291, 14.9616, 11.636, 
0034      & 10.6344, 9.08728, 6.62172, 4.18124, 3.60811, 
0035      & 1.99384, 1.30007, 0.936594, 0.570157, 0.297395, 
0036      & 0.136887, 0.0477288, 0.0267372, 0.00385581, 0.000366658
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_MUP(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_MUP = REAL(S_RATE*LE_INC) ! total rate [Hz]
0052 
0053       RETURN
0054 
0055       END
0056 
0057 ************************************************************************
0058       SUBROUTINE F66MUP  !  automatically created by droll (10/6/2005)
0059 *     fill histograms H##MUP more infos in kine/kicdes/bhgrhists.inc
0060 ************************************************************************
0061 
0062       IMPLICIT NONE
0063 #include "GeneratorInterface/BeamHaloGenerator/interface/bhgrhists.inc"
0064 
0065       DATA H01MUP /
0066      & 0.0291006, 0.0255666, 0.0335666, 0.0277925, 0.0324312, 
0067      & 0.0315849, 0.0369794, 0.0316499, 0.026027, 0.0321495, 
0068      & 0.041144, 0.0291904, 0.0307069, 0.028913, 0.030563, 
0069      & 0.030001, 0.0360314, 0.027727, 0.0309126, 0.0299455, 
0070      & 0.0257767, 0.0267722, 0.023181, 0.0251665, 0.0224943, 
0071      & 0.0193393, 0.0207476, 0.0198773, 0.0184644, 0.0163373, 
0072      & 0.0167965, 0.013452, 0.0133709, 0.0127308, 0.0107418, 
0073      & 0.00959475, 0.00828816, 0.00827409, 0.00685935, 0.00590857, 
0074      & 0.0055361, 0.00485863, 0.00433107, 0.00400091, 0.0037247, 
0075      & 0.00325696, 0.00287641, 0.00249327, 0.00222607, 0.00188856, 
0076      & 0.00168006, 0.00154345, 0.001445, 0.00125817, 0.00124708, 
0077      & 0.00102207, 0.00101293, 0.000878928, 0.000877022, 0.000773813, 
0078      & 0.000758717, 0.000570629, 0.000588343, 0.000519546, 0.000524635, 
0079      & 0.000464195, 0.000402503, 0.000369166, 0.000355064, 0.000300211, 
0080      & 0.00028061, 0.000268129, 0.000233789, 0.000185076, 0.000174697, 
0081      & 0.00014323, 0.000145661, 0.00012085, 0.000100198, 8.2993e-05, 
0082      & 7.36582e-05, 5.22258e-05, 4.57095e-05, 3.44891e-05, 2.68231e-05, 
0083      & 2.45141e-05, 2.09478e-05, 1.52642e-05, 9.63849e-06, 8.31735e-06, 
0084      & 4.59616e-06, 2.99689e-06, 2.15902e-06, 1.31431e-06, 6.85548e-07, 
0085      & 3.1555e-07, 1.10023e-07, 6.16341e-08, 8.88832e-09, 8.45211e-10
0086      & /
0087       L01MUP = 0
0088       W01MUP = 0.088537
0089 
0090       DATA H11MUP /
0091      & 1.29905e-07, 0, 0, 0, 0, 
0092      & 0, 0, 1.13609e-07, 0, 0, 
0093      & 5.94235e-07, 8.43828e-08, 6.32617e-06, 5.47468e-06, 2.07004e-06, 
0094      & 4.89777e-07, 1.34664e-05, 0.000100813, 1.66008e-05, 0.000221529, 
0095      & 0.000386879, 0.000446243, 0.000109585, 0.000403517, 0.000375258, 
0096      & 0.000422011, 0.00111684, 0.00255077, 0.00541302, 0.00603994, 
0097      & 0.0111811, 0.02617, 0.0371977, 0.0208782, 0.0230112, 
0098      & 0.027956, 0.0448341, 0.0323542, 0.0313126, 0.0355201, 
0099      & 0.0352086, 0.0271718, 0.0412889, 0.0424931, 0.0321774, 
0100      & 0.0478239, 0.0508448, 0.0381984, 0.0275401, 0.0238615, 
0101      & 0.0352557, 0.0230806, 0.0305345, 0.0266132, 0.0311595, 
0102      & 0.0253225, 0.0285469, 0.0489204, 0.0250952, 0.0150832, 
0103      & 0.0129764, 0.00701267, 0.00420447, 0.00513982, 0.00289708, 
0104      & 0.00118176, 0.00070424, 0.000635465, 0.000320302, 0.000130996, 
0105      & 4.64775e-05, 7.16508e-05, 6.12709e-05, 6.61839e-05, 0.000115969, 
0106      & 2.6114e-05, 8.82978e-06, 1.02217e-05, 4.52811e-05, 1.112e-05, 
0107      & 3.3388e-05, 2.69331e-06, 3.29107e-06, 1.62711e-06, 3.64336e-07, 
0108      & 1.74156e-05, 3.84553e-07, 1.71585e-06, 2.54594e-07, 1.90209e-06, 
0109      & 1.99032e-06, 6.04624e-07, 2.12896e-07, 5.88912e-08, 3.78082e-08, 
0110      & 1.68168e-07, 2.33402e-08, 0, 5.65098e-07, 4.07822e-09
0111      & /
0112       L11MUP = -793.948
0113       W11MUP = 15.6651
0114 
0115       DATA H12MUP /
0116      & 1.99609e-07, 0, 0, 0, 7.11339e-07, 
0117      & 0, 0, 0, 0, 0, 
0118      & 0, 5.19514e-07, 0, 1.21115e-07, 0, 
0119      & 1.62941e-07, 5.11741e-08, 1.51549e-06, 1.64906e-06, 5.00549e-07, 
0120      & 3.50779e-06, 2.47476e-07, 7.2291e-06, 6.37114e-06, 4.11906e-05, 
0121      & 2.72881e-05, 6.11389e-05, 0.000257428, 0.00010895, 0.000180306, 
0122      & 0.000733033, 0.000924361, 0.00319309, 0.00582488, 0.011057, 
0123      & 0.0199534, 0.0263937, 0.0299354, 0.0326821, 0.0375881, 
0124      & 0.0485991, 0.0569617, 0.0471, 0.0553745, 0.0446792, 
0125      & 0.0572568, 0.0549196, 0.0495267, 0.0434527, 0.0373874, 
0126      & 0.0250286, 0.0268201, 0.0265786, 0.0327072, 0.0294769, 
0127      & 0.0345452, 0.0339482, 0.0402038, 0.0341811, 0.0179534, 
0128      & 0.0164767, 0.00723811, 0.00382774, 0.00302338, 0.00157377, 
0129      & 0.000506342, 0.000406194, 0.000265286, 0.000214806, 0.000146818, 
0130      & 0.000133974, 0.000127288, 5.59162e-05, 7.36837e-05, 7.22651e-05, 
0131      & 9.265e-05, 1.67752e-05, 8.69452e-06, 1.05663e-05, 6.82429e-06, 
0132      & 7.53026e-06, 1.37623e-05, 3.41348e-06, 2.91084e-06, 3.80914e-06, 
0133      & 2.33422e-06, 6.60102e-07, 2.79037e-07, 2.06411e-06, 2.54538e-07, 
0134      & 4.45049e-09, 2.07025e-08, 2.34252e-10, 0, 0, 
0135      & 0, 0, 0, 0, 3.85424e-07
0136      & /
0137       L12MUP = -954.215
0138       W12MUP = 18.5348
0139 
0140       DATA H13MUP /
0141      & 5.12124e-06, 4.09356e-08, 0, 0, 4.55914e-07, 
0142      & 4.78075e-07, 0, 0, 1.37195e-08, 0, 
0143      & 0, 1.30284e-07, 3.9722e-08, 0, 0, 
0144      & 1.69308e-06, 2.61576e-07, 0, 1.56412e-06, 1.44245e-07, 
0145      & 1.09659e-06, 1.32418e-05, 2.84749e-06, 1.10337e-05, 1.74028e-06, 
0146      & 6.75169e-06, 3.05278e-06, 7.11305e-06, 8.59529e-06, 4.69641e-05, 
0147      & 1.34972e-05, 0.000134036, 6.86164e-05, 0.000400097, 0.000124317, 
0148      & 0.000592661, 0.00203037, 0.00360082, 0.00970622, 0.0123359, 
0149      & 0.0237109, 0.0186399, 0.0277128, 0.0382305, 0.034748, 
0150      & 0.0488983, 0.0438437, 0.0495693, 0.0619273, 0.0729953, 
0151      & 0.0718843, 0.0606512, 0.0447402, 0.0316449, 0.0285602, 
0152      & 0.0255828, 0.0232637, 0.0356334, 0.0395103, 0.0427101, 
0153      & 0.0442008, 0.0321326, 0.0222376, 0.0177995, 0.010782, 
0154      & 0.00627626, 0.00372737, 0.0026145, 0.00147448, 0.00110575, 
0155      & 0.000795615, 0.000475729, 0.000496589, 0.000529171, 0.000445966, 
0156      & 0.000302914, 0.000412588, 0.000132018, 0.000105835, 0.000127324, 
0157      & 7.9886e-05, 2.94593e-05, 5.16753e-05, 2.52865e-05, 1.54406e-05, 
0158      & 4.90483e-06, 1.62363e-05, 1.29792e-05, 5.30384e-06, 4.11785e-06, 
0159      & 9.30166e-07, 7.27696e-07, 1.23471e-07, 5.46424e-07, 9.73305e-07, 
0160      & 0, 5.26985e-07, 0, 0, 4.03702e-07
0161      & /
0162       L13MUP = -1004.19
0163       W13MUP = 18.3107
0164 
0165       DATA H14MUP /
0166      & 2.14657e-05, 1.04596e-07, 4.91035e-06, 6.10152e-07, 7.09502e-05, 
0167      & 3.5623e-06, 5.81942e-07, 1.25127e-06, 8.87175e-08, 1.91455e-07, 
0168      & 2.15143e-05, 2.84334e-05, 4.76802e-06, 4.91524e-06, 2.00649e-05, 
0169      & 1.09681e-05, 9.42457e-05, 6.91774e-06, 4.93697e-05, 1.74319e-05, 
0170      & 4.37259e-05, 3.69898e-05, 7.6584e-05, 5.46069e-05, 0.000143193, 
0171      & 7.91692e-05, 0.000159798, 9.35744e-05, 0.000219252, 7.36916e-05, 
0172      & 0.000221847, 0.000264699, 0.00144868, 0.00343918, 0.00301818, 
0173      & 0.0074736, 0.0060361, 0.0103218, 0.0139129, 0.0167152, 
0174      & 0.0196367, 0.0263605, 0.0453564, 0.0725457, 0.081911, 
0175      & 0.074981, 0.0692068, 0.0599125, 0.0571719, 0.0505877, 
0176      & 0.0429645, 0.0474302, 0.0550051, 0.0614761, 0.0505124, 
0177      & 0.0374261, 0.0265895, 0.0144089, 0.00915004, 0.00669413, 
0178      & 0.00443277, 0.00622357, 0.00444472, 0.00291393, 0.00159383, 
0179      & 0.00223682, 0.00114886, 0.000673114, 0.000395031, 0.000537799, 
0180      & 0.000199398, 0.000273911, 0.000123659, 0.000182331, 9.67464e-05, 
0181      & 0.000211576, 7.49561e-05, 9.50066e-05, 1.30477e-05, 7.89613e-05, 
0182      & 6.2409e-05, 4.1319e-05, 5.42803e-06, 1.44097e-05, 6.4257e-05, 
0183      & 3.71626e-06, 1.28385e-05, 1.93057e-06, 1.88788e-05, 2.67605e-06, 
0184      & 0.000202031, 6.87775e-06, 6.53926e-06, 1.28844e-05, 5.62278e-05, 
0185      & 1.07484e-06, 2.26878e-06, 0, 1.08231e-05, 8.69246e-07
0186      & /
0187       L14MUP = -937.726
0188       W14MUP = 19.2752
0189 
0190       DATA H15MUP /
0191      & 1.54711e-05, 5.19787e-05, 2.10413e-05, 0.000146548, 8.94633e-06, 
0192      & 3.04593e-05, 1.04214e-05, 2.64795e-05, 6.10998e-05, 0.000117876, 
0193      & 0.000108568, 0.000226151, 0.000224244, 0.000652125, 0.000416348, 
0194      & 0.000374863, 0.000423153, 8.97052e-05, 0.000365907, 0.000295144, 
0195      & 0.000347351, 0.000400109, 0.000421566, 0.000851257, 0.00186673, 
0196      & 0.0016601, 0.00117589, 0.000726443, 0.000790701, 0.000859939, 
0197      & 0.00196294, 0.00100177, 0.00111301, 0.00126861, 0.0017572, 
0198      & 0.00158331, 0.00303675, 0.00284922, 0.00547755, 0.00443998, 
0199      & 0.00520972, 0.0095463, 0.00906377, 0.0121448, 0.0205344, 
0200      & 0.0203217, 0.049348, 0.0608892, 0.0550354, 0.0951022, 
0201      & 0.112862, 0.0649436, 0.05834, 0.0591403, 0.0712067, 
0202      & 0.0669515, 0.0495822, 0.031131, 0.0264254, 0.016809, 
0203      & 0.0101471, 0.00957495, 0.0096703, 0.00486793, 0.00502457, 
0204      & 0.00363287, 0.00242303, 0.00137891, 0.00216316, 0.00224529, 
0205      & 0.00215938, 0.00138986, 0.00121964, 0.000888517, 0.000395566, 
0206      & 0.000926305, 0.000646765, 0.000369809, 0.000838228, 0.00026313, 
0207      & 0.000778205, 0.000574748, 0.000373444, 0.000653546, 0.000281955, 
0208      & 0.00106914, 0.000158936, 0.0002352, 0.00028283, 8.84025e-05, 
0209      & 0.00148667, 0.000470186, 4.30409e-05, 0.000180594, 2.924e-05, 
0210      & 0.000327697, 0.000148534, 0.000237124, 0.000293549, 0.000217896
0211      & /
0212       L15MUP = -1007.24
0213       W15MUP = 20.1165
0214 
0215       DATA H16MUP /
0216      & 9.76355e-05, 1.23105e-06, 0, 9.14383e-05, 2.40272e-06, 
0217      & 2.2641e-06, 2.73854e-05, 2.89115e-05, 6.03281e-06, 0.000137119, 
0218      & 5.67098e-06, 4.50678e-05, 8.57625e-05, 0.00025356, 2.47366e-05, 
0219      & 0.00035448, 6.10699e-05, 0.000241843, 3.55344e-05, 0.000881478, 
0220      & 0.000481586, 0.000692003, 0.000118655, 0.000392685, 0.000207992, 
0221      & 0.000633648, 0.00021396, 0.000362384, 0.000354499, 0.00104631, 
0222      & 0.00166316, 0.000185225, 0.000833252, 0.000737055, 0.00152273, 
0223      & 0.00140747, 0.00122329, 0.00260627, 0.00144128, 0.00155295, 
0224      & 0.00251348, 0.00216398, 0.00411452, 0.00455428, 0.00976285, 
0225      & 0.0130088, 0.0190214, 0.0607303, 0.0955067, 0.220938, 
0226      & 0.0821023, 0.0593033, 0.040731, 0.111211, 0.0953105, 
0227      & 0.0715997, 0.0314998, 0.0177223, 0.0118034, 0.00372016, 
0228      & 0.00353511, 0.00172077, 0.00151978, 0.000775416, 0.000917124, 
0229      & 0.00122938, 0.00119746, 0.00133799, 0.00112328, 0.000981773, 
0230      & 0.000614819, 0.0007517, 0.00131579, 0.000978352, 0.000280729, 
0231      & 5.49153e-05, 0.000369784, 0.000418034, 3.47251e-05, 3.04018e-05, 
0232      & 0.00124342, 0.000180414, 0.000408019, 3.7902e-05, 0.000143802, 
0233      & 0.000141949, 0.000357557, 0.000166188, 0.000119711, 1.00365e-05, 
0234      & 6.46716e-05, 3.22085e-05, 0.000244542, 1.21519e-06, 2.29784e-05, 
0235      & 9.59731e-05, 2.33605e-06, 8.24965e-06, 0.000151601, 1.3386e-06
0236      & /
0237       L16MUP = -975.173
0238       W16MUP = 19.8164
0239 
0240       DATA H17MUP /
0241      & 6.83971e-06, 1.25308e-05, 0, 2.67016e-05, 0, 
0242      & 2.81869e-05, 0, 1.25559e-05, 8.93354e-06, 3.2782e-05, 
0243      & 2.17599e-05, 4.98751e-05, 4.06358e-05, 2.00355e-05, 5.45717e-06, 
0244      & 1.99731e-05, 3.32518e-05, 0.000120302, 1.60867e-05, 0.000125856, 
0245      & 7.87151e-05, 1.92456e-05, 4.54061e-05, 5.96772e-05, 7.86756e-05, 
0246      & 0.000206401, 0.00059911, 0.000428289, 0.000229216, 0.000133308, 
0247      & 0.000520373, 0.00157162, 0.000348998, 0.000558002, 0.000515961, 
0248      & 0.00114669, 0.000734401, 0.00074062, 0.000774646, 0.00127999, 
0249      & 0.00117069, 0.00103812, 0.00219299, 0.00137067, 0.00272416, 
0250      & 0.00403143, 0.00415308, 0.00592884, 0.00819037, 0.0141052, 
0251      & 0.102854, 0.284331, 0.105333, 0.12167, 0.0589767, 
0252      & 0.146796, 0.0630682, 0.0226699, 0.00788215, 0.00359783, 
0253      & 0.00355238, 0.00264278, 0.00305325, 0.00197576, 0.00189416, 
0254      & 0.00166187, 0.00165677, 0.00162098, 0.000925886, 0.000551529, 
0255      & 0.000840867, 0.00117468, 0.000577712, 0.000222533, 0.000367317, 
0256      & 0.000271147, 0.000451355, 0.000626621, 0.00050976, 0.000361594, 
0257      & 0.000253507, 0.000117723, 0.000193904, 0.000144121, 4.88911e-05, 
0258      & 0.000410293, 0.000209666, 4.36648e-05, 0.000466327, 2.19983e-05, 
0259      & 9.46887e-05, 3.57202e-05, 1.42842e-05, 6.34918e-06, 0.00023902, 
0260      & 1.12235e-05, 1.03063e-05, 0, 0, 4.96423e-06
0261      & /
0262       L17MUP = -995.918
0263       W17MUP = 19.3437
0264 
0265       DATA H18MUP /
0266      & 3.35908e-05, 0, 0, 0, 1.83919e-09, 
0267      & 0.000225368, 0, 0, 0, 1.43087e-05, 
0268      & 0, 0, 3.7529e-05, 0, 0, 
0269      & 0, 0, 4.21662e-05, 0.000802807, 3.86975e-05, 
0270      & 0, 5.11909e-05, 2.10407e-05, 2.20389e-05, 0.00027849, 
0271      & 0, 0.000838383, 0.000672284, 0, 7.54579e-05, 
0272      & 0.000163508, 0.000416986, 0.000691511, 0.000968683, 5.61567e-05, 
0273      & 0.000156565, 0.000148789, 0.000532621, 0.00168162, 0.00139529, 
0274      & 0.000522534, 0.0017769, 0.00128644, 0.00178286, 0.00229567, 
0275      & 0.0102998, 0.00539063, 0.0109819, 0.0152542, 0.136818, 
0276      & 0.319689, 0.220444, 0.195515, 0.0123733, 0.0119815, 
0277      & 0.0100799, 0.00630591, 0.00773794, 0.00183422, 0.00436751, 
0278      & 0.00137715, 0.000727821, 0.00232434, 0.000298916, 0.00183642, 
0279      & 0.000471461, 0.000364287, 0.00126797, 0.00250121, 1.89345e-05, 
0280      & 8.60422e-05, 0, 6.55698e-05, 4.18159e-05, 0, 
0281      & 5.55285e-05, 0, 4.17192e-05, 0.000118895, 0, 
0282      & 0.000257101, 3.88931e-05, 0, 0, 0.000102804, 
0283      & 0, 0, 0, 0, 3.25448e-05, 
0284      & 0, 0, 0, 5.18736e-05, 2.42676e-05, 
0285      & 0, 0, 0, 0.00174725, 4.46236e-05
0286      & /
0287       L18MUP = -877.923
0288       W18MUP = 17.4248
0289 
0290       DATA H21MUP /
0291      & 1.65293e-06, 0, 0, 0, 0, 
0292      & 0, 0, 0, 0, 0, 
0293      & 0, 0, 0, 0, 0, 
0294      & 0, 0, 0, 0, 0, 
0295      & 0, 3.40681e-10, 2.35738e-06, 8.35884e-10, 4.81359e-08, 
0296      & 6.10387e-07, 0, 1.04978e-09, 9.72838e-09, 4.17787e-07, 
0297      & 2.49693e-08, 1.87709e-07, 2.57915e-06, 8.73462e-07, 4.13578e-07, 
0298      & 1.00147e-05, 2.60111e-06, 0.000117095, 5.45808e-05, 0.000166879, 
0299      & 0.000197098, 0.000147466, 0.000293581, 0.000640121, 0.000626653, 
0300      & 0.00140752, 0.00448954, 0.00742659, 0.00679655, 0.0212732, 
0301      & 0.0339908, 0.0356456, 0.0431707, 0.0315957, 0.0333008, 
0302      & 0.0517361, 0.0418965, 0.0586118, 0.0694634, 0.0662195, 
0303      & 0.0439022, 0.0597822, 0.0506458, 0.0499867, 0.035202, 
0304      & 0.0380933, 0.0285316, 0.0201482, 0.0244486, 0.0185857, 
0305      & 0.0207981, 0.0193418, 0.0201986, 0.0156728, 0.0145822, 
0306      & 0.00797391, 0.0126082, 0.00336808, 0.00427643, 0.000776934, 
0307      & 0.000788396, 0.000545909, 0.000199825, 9.9863e-05, 1.60854e-05, 
0308      & 5.03738e-05, 9.75995e-06, 9.51918e-06, 3.89979e-06, 2.24383e-06, 
0309      & 3.75513e-05, 9.54724e-07, 9.07865e-07, 1.1946e-06, 1.78996e-05, 
0310      & 1.07586e-06, 6.31116e-07, 8.95435e-07, 1.9094e-08, 1.16175e-07
0311      & /
0312       L21MUP = -863.825
0313       W21MUP = 14.8279
0314 
0315       DATA H22MUP /
0316      & 2.99276e-07, 0, 0, 0, 0, 
0317      & 0, 0, 0, 0, 1.10236e-07, 
0318      & 0, 7.87016e-08, 1.82085e-07, 1.04995e-07, 1.87183e-08, 
0319      & 1.32514e-06, 2.11065e-08, 1.11214e-07, 2.1577e-06, 5.46663e-07, 
0320      & 5.28514e-07, 3.68986e-06, 6.86499e-06, 3.30979e-05, 0.000116191, 
0321      & 2.09596e-05, 3.80124e-05, 0.000196031, 0.000221026, 0.000316149, 
0322      & 0.000741128, 0.000966955, 0.00219818, 0.00427621, 0.0124049, 
0323      & 0.017505, 0.0351949, 0.0377769, 0.0422963, 0.0379478, 
0324      & 0.0486951, 0.0443718, 0.0542342, 0.0726677, 0.0780323, 
0325      & 0.0629782, 0.0480135, 0.0400889, 0.0447048, 0.0475102, 
0326      & 0.0333148, 0.0385984, 0.0291512, 0.0222071, 0.0339746, 
0327      & 0.0195218, 0.021862, 0.0200146, 0.0156193, 0.0151964, 
0328      & 0.00686962, 0.00457074, 0.00213636, 0.00161765, 0.000546551, 
0329      & 0.000535993, 0.000491482, 7.67781e-05, 3.78362e-05, 2.15842e-05, 
0330      & 1.0853e-05, 7.40534e-06, 8.90627e-06, 5.23815e-06, 1.10973e-06, 
0331      & 9.23486e-06, 1.71267e-05, 8.30388e-08, 7.10454e-07, 1.19735e-07, 
0332      & 1.29652e-07, 0, 1.28603e-08, 0, 1.5061e-08, 
0333      & 0, 4.67711e-06, 0, 0, 0, 
0334      & 0, 0, 2.51846e-09, 0, 0, 
0335      & 0, 0, 0, 0, 7.2003e-06
0336      & /
0337       L22MUP = -679.989
0338       W22MUP = 15.4516
0339 
0340       DATA H23MUP /
0341      & 1.24266e-06, 0, 0, 0, 0, 
0342      & 0, 0, 1.6356e-06, 3.66265e-06, 2.35514e-08, 
0343      & 6.42548e-07, 2.62982e-08, 3.58332e-07, 3.17254e-06, 2.66505e-07, 
0344      & 1.46406e-06, 0, 1.89681e-06, 0, 0, 
0345      & 4.77246e-07, 0, 3.96082e-07, 8.44143e-11, 7.24761e-07, 
0346      & 3.64369e-08, 1.69545e-07, 1.23726e-05, 8.65146e-07, 1.26433e-06, 
0347      & 9.76807e-06, 1.64478e-06, 5.86085e-06, 1.39195e-05, 1.00091e-05, 
0348      & 2.58464e-05, 4.30129e-05, 0.000155171, 0.000147811, 0.000256965, 
0349      & 0.000527608, 0.00123388, 0.00422851, 0.0102728, 0.0267756, 
0350      & 0.0403693, 0.0445351, 0.0509808, 0.0640414, 0.0762632, 
0351      & 0.130246, 0.113809, 0.0714693, 0.0631502, 0.0475802, 
0352      & 0.0476256, 0.0397139, 0.0333928, 0.0296482, 0.0287947, 
0353      & 0.0221352, 0.0156015, 0.017321, 0.0106403, 0.00338424, 
0354      & 0.00378558, 0.000669498, 0.000618376, 0.00029094, 0.000104833, 
0355      & 2.38314e-05, 3.83794e-05, 6.89696e-06, 4.85072e-06, 6.90521e-06, 
0356      & 1.11334e-06, 3.48323e-07, 1.33265e-07, 6.46157e-07, 4.26931e-07, 
0357      & 7.72773e-07, 1.23178e-07, 9.73305e-07, 1.29029e-06, 5.70124e-07, 
0358      & 2.58533e-07, 0, 0, 3.62451e-07, 5.80715e-08, 
0359      & 0, 5.93324e-09, 0, 9.03613e-08, 1.47547e-06, 
0360      & 0, 4.57702e-07, 0, 0, 3.57332e-07
0361      & /
0362       L23MUP = -997.584
0363       W23MUP = 19.6315
0364 
0365       DATA H24MUP /
0366      & 1.70387e-06, 1.80421e-06, 5.43077e-05, 2.15288e-05, 1.02393e-05, 
0367      & 2.55555e-05, 0, 8.1296e-05, 2.10246e-06, 4.47466e-05, 
0368      & 8.34728e-05, 2.31293e-05, 1.5179e-05, 8.83397e-05, 0, 
0369      & 3.44967e-06, 4.07734e-06, 9.0154e-05, 8.06177e-05, 8.04624e-06, 
0370      & 7.35771e-06, 3.37539e-06, 4.20014e-06, 1.93007e-05, 1.41088e-05, 
0371      & 6.90065e-05, 8.48411e-06, 9.45696e-06, 4.11628e-05, 4.60496e-06, 
0372      & 2.13385e-06, 4.07411e-05, 2.58073e-05, 0.000254857, 3.98505e-05, 
0373      & 6.91024e-05, 0.000121555, 0.000335448, 0.000455947, 0.000778486, 
0374      & 0.00150429, 0.00141727, 0.00658084, 0.0123579, 0.0221901, 
0375      & 0.0544582, 0.0588374, 0.0606043, 0.0847828, 0.193248, 
0376      & 0.158024, 0.0880092, 0.0602292, 0.0523138, 0.0441698, 
0377      & 0.0266302, 0.0181196, 0.0160106, 0.00994196, 0.0100033, 
0378      & 0.00699967, 0.00453057, 0.00208652, 0.00186689, 0.00044818, 
0379      & 0.000226785, 0.000172996, 0.000189669, 0.000133168, 3.6036e-05, 
0380      & 8.83824e-05, 4.05706e-05, 3.92958e-05, 0.000151573, 5.93184e-05, 
0381      & 4.44728e-05, 2.14475e-06, 2.46681e-05, 6.27214e-06, 1.58129e-06, 
0382      & 3.1666e-05, 3.63269e-05, 8.90693e-06, 1.46799e-05, 0.000118519, 
0383      & 3.86185e-06, 7.46885e-06, 5.08949e-06, 8.04893e-06, 3.39499e-05, 
0384      & 2.61722e-05, 1.82331e-05, 8.13453e-05, 6.02961e-06, 4.3398e-06, 
0385      & 6.29486e-05, 0, 8.90458e-07, 3.94672e-06, 1.43771e-06
0386      & /
0387       L24MUP = -979.525
0388       W24MUP = 19.6589
0389 
0390       DATA H25MUP /
0391      & 1.43647e-05, 5.64235e-07, 0.000305648, 1.0356e-05, 0.000644464, 
0392      & 1.77057e-05, 7.66856e-05, 5.69255e-05, 0.000110724, 5.81133e-05, 
0393      & 0.000172035, 0.000291225, 0.0001301, 0.000879453, 0.000272688, 
0394      & 0.000145504, 3.30336e-05, 0.000205474, 0.000411004, 0.000486441, 
0395      & 0.000384884, 0.000918425, 0.000223493, 0.000664425, 0.000756315, 
0396      & 0.00186437, 0.000558021, 0.000715155, 0.00184472, 0.000891288, 
0397      & 0.000737474, 0.00168805, 0.00078939, 0.00149939, 0.00139618, 
0398      & 0.00247157, 0.00237197, 0.00136618, 0.00324875, 0.00338243, 
0399      & 0.00407866, 0.00488665, 0.00695948, 0.00949754, 0.0115153, 
0400      & 0.0278292, 0.0395053, 0.0542505, 0.124631, 0.299877, 
0401      & 0.162871, 0.0821158, 0.0347263, 0.0241234, 0.0144394, 
0402      & 0.010062, 0.00947229, 0.00637346, 0.00536774, 0.00512279, 
0403      & 0.00286139, 0.00265463, 0.00269436, 0.00253813, 0.00158388, 
0404      & 0.000645305, 0.00267918, 0.0011869, 0.000917762, 0.00108953, 
0405      & 0.00154374, 0.00128071, 0.00156697, 0.00034375, 0.000495846, 
0406      & 0.000696839, 0.000359285, 0.000562088, 0.000258489, 0.000203592, 
0407      & 0.000209275, 0.000455686, 0.00075035, 0.000151351, 8.44646e-05, 
0408      & 0.000314937, 0.000210654, 0.00029576, 0.000398499, 0.000150018, 
0409      & 0.000292209, 0.000120112, 0.000101301, 3.55184e-05, 0.000240175, 
0410      & 7.18432e-05, 6.76131e-05, 8.93285e-06, 7.91256e-05, 4.70884e-07
0411      & /
0412       L25MUP = -994.561
0413       W25MUP = 20.0282
0414 
0415       DATA H26MUP /
0416      & 7.19972e-06, 5.94044e-05, 3.40792e-06, 1.9422e-05, 2.0304e-05, 
0417      & 2.61152e-05, 1.11625e-06, 8.24696e-05, 1.63361e-05, 3.55812e-05, 
0418      & 1.68625e-05, 0.000197452, 0.000255348, 0.000221143, 0.000336569, 
0419      & 3.09106e-05, 2.46283e-05, 0.00047713, 7.79499e-05, 0.000214185, 
0420      & 0.000563434, 0.000234359, 0.00022138, 0.000185978, 0.000132689, 
0421      & 0.000291016, 0.000281276, 0.000515481, 0.000301473, 0.000437915, 
0422      & 0.000575039, 0.000780606, 0.000742604, 0.000711652, 0.00084213, 
0423      & 0.000764071, 0.00144403, 0.00165477, 0.00229545, 0.00153898, 
0424      & 0.00125548, 0.00215668, 0.00292322, 0.00374373, 0.00500336, 
0425      & 0.00680305, 0.0101432, 0.0209814, 0.0672744, 0.445395, 
0426      & 0.291572, 0.0565644, 0.0173564, 0.0108194, 0.00753577, 
0427      & 0.00574289, 0.00357985, 0.00196391, 0.00373762, 0.00215797, 
0428      & 0.00171214, 0.0019437, 0.00062886, 0.00190434, 0.000979284, 
0429      & 0.00115152, 0.00123438, 0.000889522, 0.00015544, 0.00117508, 
0430      & 0.000421647, 0.000329501, 0.000260743, 0.000634469, 8.68735e-05, 
0431      & 0.000764519, 0.000120121, 2.0816e-05, 0.000548069, 1.32999e-05, 
0432      & 0.000261563, 0.000208418, 0.000217306, 0.000111579, 9.95505e-06, 
0433      & 8.70265e-05, 1.40325e-05, 6.75103e-05, 0.000146822, 3.04067e-05, 
0434      & 0.000108997, 5.91573e-06, 4.23101e-05, 0.000186848, 5.61485e-06, 
0435      & 0, 8.92571e-05, 7.82585e-05, 0, 6.11876e-06
0436      & /
0437       L26MUP = -1003.44
0438       W26MUP = 20.1019
0439 
0440       DATA H27MUP /
0441      & 1.30268e-05, 3.04208e-05, 2.20881e-05, 3.38581e-06, 2.30067e-05, 
0442      & 4.38084e-06, 4.11653e-06, 3.11691e-05, 0.00084216, 0.00016144, 
0443      & 0, 0.000152338, 1.73371e-05, 4.05226e-05, 0.000392455, 
0444      & 0.000279597, 8.31383e-05, 0.000203748, 0.000536996, 2.37808e-05, 
0445      & 4.65054e-05, 0.000317804, 3.89998e-05, 0.000166821, 0.000161945, 
0446      & 0.000251146, 0.000326744, 0.000537703, 0.000270614, 0.00044223, 
0447      & 0.000314427, 0.000376436, 0.000647453, 0.000504491, 0.000803417, 
0448      & 0.00146956, 0.00143141, 0.00168324, 0.000634902, 0.00156548, 
0449      & 0.001543, 0.00317665, 0.00335395, 0.00439186, 0.00480139, 
0450      & 0.00510968, 0.0118526, 0.0164664, 0.0870177, 0.731917, 
0451      & 0.0515264, 0.0165488, 0.00991706, 0.00546902, 0.00385152, 
0452      & 0.00349776, 0.00310561, 0.00331677, 0.0010192, 0.00185344, 
0453      & 0.0030508, 0.00206832, 0.00166368, 0.00101588, 0.000753701, 
0454      & 0.000224549, 0.000514423, 0.000717366, 0.00118238, 0.000442296, 
0455      & 0.00060772, 0.000357217, 0.000516286, 0.000467278, 0.000105095, 
0456      & 0.000272025, 0.000252266, 0.000339219, 0.000100375, 7.50641e-05, 
0457      & 8.71829e-05, 5.25014e-05, 8.86605e-05, 5.222e-05, 6.96515e-06, 
0458      & 1.0586e-05, 8.37872e-05, 2.61666e-05, 1.70241e-05, 5.22097e-05, 
0459      & 0.000117559, 1.7957e-05, 2.0898e-05, 1.22377e-05, 3.33387e-06, 
0460      & 0, 1.00749e-05, 6.08278e-06, 8.30136e-06, 8.16586e-06
0461      & /
0462       L27MUP = -947.892
0463       W27MUP = 19.1923
0464 
0465       DATA H28MUP /
0466      & 4.21662e-05, 0, 0, 0, 0, 
0467      & 0.000137586, 0, 0, 1.80933e-05, 0, 
0468      & 0, 0, 2.46028e-05, 5.81767e-05, 0.000230995, 
0469      & 4.60451e-05, 0.00102568, 0.000320609, 0, 0.000102417, 
0470      & 0, 3.18989e-05, 0.000212684, 4.26897e-05, 0, 
0471      & 8.63584e-05, 0.00014697, 9.90577e-05, 0.000574518, 0.000398734, 
0472      & 0.00213587, 0.00109579, 0.000530722, 0.00315125, 0.000465725, 
0473      & 0.00140925, 0.00302795, 0.00338955, 0.00115644, 0.0036065, 
0474      & 0.00355647, 0.00565262, 0.00657589, 0.00656486, 0.0141886, 
0475      & 0.0211484, 0.80337, 0.0456303, 0.0168942, 0.0122114, 
0476      & 0.00621689, 0.0046965, 0.00942154, 0.00562029, 0.00388031, 
0477      & 0.000772424, 0.00305757, 0.000748518, 0.00155822, 0.000153715, 
0478      & 0.000701106, 0.00126722, 0.000111995, 0.000537921, 0.000100424, 
0479      & 0.000398545, 0.000120707, 2.25891e-05, 2.14283e-05, 9.11116e-05, 
0480      & 4.46632e-05, 4.01142e-05, 0.000156933, 4.36268e-05, 2.73401e-05, 
0481      & 0.000142262, 0.000140336, 4.76634e-05, 0, 0, 
0482      & 5.65448e-05, 0, 9.34068e-06, 1.79506e-05, 0, 
0483      & 0, 1.51987e-06, 0, 0, 0, 
0484      & 0, 0, 0, 0.000219934, 0, 
0485      & 0, 0, 0, 0, 0.000191835
0486      & /
0487       L28MUP = -778.652
0488       W28MUP = 16.6817
0489 
0490       DATA H31MUP /
0491      & 1.75837e-08, 0, 0, 6.84898e-09, 7.41276e-09, 
0492      & 0, 0, 2.21222e-07, 7.77874e-06, 4.44719e-08, 
0493      & 2.09582e-07, 7.4688e-06, 7.16178e-06, 1.49799e-06, 1.25486e-05, 
0494      & 6.86833e-06, 1.27555e-06, 2.69242e-05, 2.14924e-05, 0.000331559, 
0495      & 6.81737e-05, 0.0001217, 0.000137379, 3.20187e-05, 0.000188362, 
0496      & 7.20432e-05, 0.000568953, 0.000298334, 0.000427566, 0.000460901, 
0497      & 0.000527647, 0.00049336, 0.000684074, 0.000641735, 0.00129568, 
0498      & 0.00106191, 0.00220826, 0.00272373, 0.00326509, 0.00689623, 
0499      & 0.0110679, 0.0116581, 0.0324781, 0.0367624, 0.0444542, 
0500      & 0.0565928, 0.0789755, 0.104559, 0.118965, 0.168141, 
0501      & 0.100653, 0.0557981, 0.0524594, 0.0356653, 0.0241952, 
0502      & 0.0125445, 0.00978425, 0.00752698, 0.00430995, 0.00325364, 
0503      & 0.00169827, 0.0010219, 0.000921233, 0.000524988, 0.000455445, 
0504      & 0.000342338, 0.000196346, 0.000361857, 0.000382332, 0.000302692, 
0505      & 0.000126345, 0.00010033, 6.5619e-05, 0.000162697, 0.000250267, 
0506      & 0.000125363, 6.92239e-05, 6.27678e-05, 3.69892e-05, 0.000187138, 
0507      & 7.82465e-05, 2.34341e-05, 9.14359e-06, 6.9854e-06, 2.73538e-06, 
0508      & 9.0983e-06, 2.0601e-05, 5.05682e-06, 1.86877e-06, 4.96992e-06, 
0509      & 8.56756e-08, 3.2759e-07, 0, 1.38178e-07, 5.43235e-08, 
0510      & 0, 1.90978e-07, 4.37413e-14, 3.37301e-07, 3.73182e-07
0511      & /
0512       L31MUP = -0.775824
0513       W31MUP = 0.015588
0514 
0515       DATA H32MUP /
0516      & 1.0356e-05, 0, 0, 0, 0, 
0517      & 0, 0, 0, 0, 0, 
0518      & 0, 0, 0, 0, 0, 
0519      & 0, 0, 0, 0, 0, 
0520      & 0, 0, 0, 0, 0, 
0521      & 7.95953e-09, 1.58138e-08, 2.31133e-08, 0, 0, 
0522      & 0, 0, 1.52766e-07, 6.59993e-08, 0, 
0523      & 8.5879e-07, 2.44336e-07, 1.49954e-06, 2.5675e-06, 1.89305e-05, 
0524      & 4.22444e-06, 2.7523e-05, 1.5688e-05, 2.07983e-05, 1.02174e-05, 
0525      & 8.91786e-05, 0.00011319, 0.000268072, 0.000375994, 0.00074974, 
0526      & 0.000930853, 0.00166376, 0.00222677, 0.00599589, 0.0113321, 
0527      & 0.0192786, 0.0317532, 0.0418743, 0.0745048, 0.096795, 
0528      & 0.164352, 0.173357, 0.131503, 0.0870451, 0.0616656, 
0529      & 0.038328, 0.0244703, 0.0107584, 0.0081494, 0.00465973, 
0530      & 0.00312026, 0.0014867, 0.00104718, 0.000585545, 0.000468278, 
0531      & 0.000399748, 0.000328767, 6.7063e-05, 4.29652e-05, 3.23535e-05, 
0532      & 1.13637e-05, 6.18966e-06, 2.35494e-05, 1.28494e-05, 4.1103e-06, 
0533      & 2.09499e-07, 2.32758e-06, 8.7191e-07, 3.77131e-08, 1.76782e-07, 
0534      & 1.81739e-07, 8.74732e-07, 6.48096e-14, 4.58957e-14, 5.03746e-06, 
0535      & 0, 4.02051e-07, 0, 0, 2.78593e-08
0536      & /
0537       L32MUP = -0.697078
0538       W32MUP = 0.0111647
0539 
0540       DATA H33MUP /
0541      & 1.57848e-05, 0, 0, 0, 0, 
0542      & 0, 0, 0, 0, 0, 
0543      & 0, 1.5767e-05, 0, 0, 0, 
0544      & 0, 0, 3.93096e-10, 0, 0, 
0545      & 0, 0, 0, 0, 0, 
0546      & 0, 0, 4.84537e-07, 0, 3.32848e-08, 
0547      & 0, 0, 0, 0, 1.30284e-07, 
0548      & 0, 0, 1.59288e-06, 2.61576e-07, 0, 
0549      & 0, 1.99701e-06, 1.28346e-06, 0, 0, 
0550      & 0, 2.98381e-06, 0, 1.65764e-07, 4.30813e-06, 
0551      & 1.22482e-06, 2.2841e-06, 6.99886e-06, 0.000121016, 6.27425e-05, 
0552      & 0.00024534, 0.000781918, 0.00109892, 0.00223264, 0.00612324, 
0553      & 0.0119784, 0.0225358, 0.0370879, 0.0790538, 0.137518, 
0554      & 0.173473, 0.167341, 0.109011, 0.103632, 0.0645051, 
0555      & 0.0427631, 0.0172203, 0.00958342, 0.00570966, 0.00372578, 
0556      & 0.00221703, 0.00100341, 0.000539978, 0.00023685, 7.68683e-05, 
0557      & 1.96522e-05, 6.26116e-06, 1.13304e-06, 7.45082e-07, 2.45967e-05, 
0558      & 4.73399e-07, 9.96655e-08, 1.92197e-07, 0, 0, 
0559      & 5.74324e-06, 0, 2.67104e-06, 1.83983e-06, 0, 
0560      & 9.93054e-07, 3.42426e-07, 0, 0, 1.18797e-06
0561      & /
0562       L33MUP = -0.513172
0563       W33MUP = 0.00762787
0564 
0565       DATA H34MUP /
0566      & 1.24917e-07, 0, 0, 0, 0, 
0567      & 0, 0, 0, 0, 0, 
0568      & 0, 0, 0, 0, 0, 
0569      & 0, 0, 0, 0, 0, 
0570      & 0, 0, 0, 1.04596e-07, 0, 
0571      & 0, 0, 8.87175e-08, 0, 0, 
0572      & 0, 3.80195e-08, 2.16974e-05, 2.99665e-07, 0, 
0573      & 7.93141e-06, 2.9918e-06, 1.86213e-06, 2.74432e-06, 3.17848e-05, 
0574      & 5.79517e-05, 8.7525e-05, 0.000220894, 9.31388e-07, 0.000282609, 
0575      & 6.11937e-05, 3.608e-05, 2.89736e-05, 0.000170097, 0.000180469, 
0576      & 2.22356e-05, 0.000311192, 0.00078429, 0.00482768, 0.0237559, 
0577      & 0.116266, 0.315657, 0.285158, 0.194204, 0.0390435, 
0578      & 0.0136699, 0.00259823, 0.000623467, 0.00016814, 0.000534716, 
0579      & 0.000387381, 0.000146194, 6.43412e-05, 0.00021222, 5.56998e-05, 
0580      & 0.0001148, 8.95834e-06, 5.1621e-06, 5.95018e-05, 6.24157e-05, 
0581      & 2.54567e-06, 2.45347e-06, 1.29859e-06, 4.89799e-05, 1.14202e-06, 
0582      & 6.20004e-07, 3.69682e-07, 0, 9.27406e-07, 0, 
0583      & 0, 0, 0, 1.99192e-07, 3.55868e-06, 
0584      & 0, 0, 0, 0, 0, 
0585      & 0, 0, 0, 6.15767e-07, 1.37318e-07
0586      & /
0587       L34MUP = -0.680647
0588       W34MUP = 0.0118858
0589 
0590       DATA H35MUP /
0591      & 6.0418e-06, 0, 0, 0, 0, 
0592      & 0, 0, 0, 0, 0, 
0593      & 0, 0, 0, 0, 0, 
0594      & 0, 0, 0, 0, 0, 
0595      & 0, 0, 0.000193965, 0, 0, 
0596      & 6.44714e-05, 0, 0, 2.81911e-07, 0.000138875, 
0597      & 0.000230344, 0.000117475, 8.03465e-07, 0.000209441, 2.28125e-05, 
0598      & 0.000440706, 6.13629e-05, 0.000739436, 0.000824314, 0.00200842, 
0599      & 0.000688792, 0.000773043, 0.00375637, 0.00218323, 0.00101381, 
0600      & 0.00533011, 0.00529992, 0.00660222, 0.00716412, 0.010824, 
0601      & 0.0147129, 0.0696386, 0.331852, 0.400937, 0.0680265, 
0602      & 0.0160039, 0.0117219, 0.00813907, 0.00911909, 0.00405236, 
0603      & 0.00316377, 0.0059788, 0.0017001, 0.00126224, 0.000776661, 
0604      & 0.000449578, 8.08762e-05, 0.000414001, 0.000521714, 0.000611738, 
0605      & 0.000600338, 0.000558913, 0.00048434, 1.48903e-05, 6.05344e-06, 
0606      & 1.03032e-06, 6.22748e-06, 0.000156077, 3.26235e-05, 0, 
0607      & 0, 0.000149528, 0, 0, 3.58237e-06, 
0608      & 0, 0, 0, 0, 1.21983e-06, 
0609      & 0, 0, 0, 0, 0, 
0610      & 0, 0, 0, 0, 0.000127134
0611      & /
0612       L35MUP = -0.89088
0613       W35MUP = 0.0168384
0614 
0615       DATA H36MUP /
0616      & 1.46352e-07, 5.42791e-07, 2.28363e-07, 6.9338e-06, 4.8345e-07, 
0617      & 0, 8.33856e-05, 0, 5.79839e-06, 3.63841e-06, 
0618      & 3.95686e-06, 1.83495e-05, 1.36341e-05, 0, 1.47784e-06, 
0619      & 0.000241716, 0, 1.6927e-05, 1.89332e-05, 1.62213e-05, 
0620      & 9.80278e-05, 0.000486463, 0.000115923, 0.000147933, 4.73435e-05, 
0621      & 8.3053e-05, 0.00059519, 0.000256337, 0.00046545, 0.00170815, 
0622      & 0.000430903, 0.000400283, 0.000727037, 0.00152574, 0.00145645, 
0623      & 0.00126047, 0.00225456, 0.00128169, 0.00305614, 0.00245214, 
0624      & 0.00272091, 0.00463403, 0.00279904, 0.00603504, 0.00544784, 
0625      & 0.019496, 0.0555429, 0.266261, 0.334873, 0.213783, 
0626      & 0.0176228, 0.00765907, 0.00447419, 0.00738952, 0.00430229, 
0627      & 0.00324614, 0.00502238, 0.00297793, 0.00195167, 0.00323151, 
0628      & 0.00178573, 0.00172611, 0.000986109, 0.00125171, 0.000235382, 
0629      & 0.000512688, 0.000255054, 0.000851745, 0.00060322, 0.000471325, 
0630      & 8.8224e-05, 0.000179142, 0.000102532, 9.22194e-05, 1.53509e-05, 
0631      & 6.21796e-06, 2.51768e-05, 0.000921942, 2.30664e-06, 0.000335508, 
0632      & 4.95361e-05, 3.21533e-05, 0.000259611, 3.51995e-06, 3.85491e-05, 
0633      & 1.11375e-05, 1.03286e-05, 0.000394101, 0, 0, 
0634      & 7.86119e-07, 7.37424e-08, 0, 0, 0, 
0635      & 0, 6.74823e-08, 0, 0, 3.89669e-07
0636      & /
0637       L36MUP = -0.326054
0638       W36MUP = 0.00681373
0639 
0640       DATA H37MUP /
0641      & 1.09778e-05, 2.10986e-06, 8.39269e-06, 0, 4.03285e-06, 
0642      & 4.29614e-05, 3.63486e-10, 8.93354e-06, 8.49855e-05, 0.000383611, 
0643      & 3.32026e-05, 0.000546932, 6.34658e-05, 0.000166442, 0.000164187, 
0644      & 4.36074e-05, 3.52368e-05, 0.000149187, 0.000200817, 0.000158189, 
0645      & 0.000317535, 0.000784991, 0.000555634, 0.00101115, 0.000568169, 
0646      & 0.00113049, 0.000526282, 0.000978188, 0.00177663, 0.00182278, 
0647      & 0.000896673, 0.00256738, 0.00091986, 0.00350427, 0.00343412, 
0648      & 0.00407034, 0.00416807, 0.00465186, 0.00724948, 0.0221821, 
0649      & 0.0745339, 0.251862, 0.294084, 0.251981, 0.0152696, 
0650      & 0.0061764, 0.00668892, 0.00440267, 0.00425003, 0.00462302, 
0651      & 0.00282467, 0.00132583, 0.00219984, 0.00198721, 0.00136971, 
0652      & 0.00188809, 0.000827839, 0.000765045, 0.000595533, 0.000991589, 
0653      & 0.000282192, 0.00103771, 0.000302494, 0.0011241, 0.000144517, 
0654      & 0.000689997, 0.000386043, 3.13798e-05, 0.000188866, 0.000335105, 
0655      & 0.000658669, 7.85781e-05, 1.55589e-05, 6.31282e-06, 2.5525e-05, 
0656      & 0.000239749, 0.000143529, 3.47133e-06, 2.10101e-06, 0.000213519, 
0657      & 0, 2.89708e-06, 0, 4.1476e-06, 1.26518e-06, 
0658      & 1.46826e-06, 2.65053e-06, 6.71694e-06, 0, 0, 
0659      & 0, 0, 0.000197913, 0, 0, 
0660      & 0, 0, 2.54603e-06, 0, 1.06813e-06
0661      & /
0662       L37MUP = -0.177451
0663       W37MUP = 0.00425531
0664 
0665       DATA H38MUP /
0666      & 0.000225368, 0, 0, 0, 0, 
0667      & 0, 0, 0, 3.7529e-05, 0, 
0668      & 0, 0, 0, 0, 0.000836398, 
0669      & 3.86975e-05, 0, 0, 0, 3.39674e-05, 
0670      & 0, 0, 0.000731796, 0.000175817, 0, 
0671      & 4.06341e-05, 0.000270933, 3.67814e-05, 0.000122365, 0.00082201, 
0672      & 3.33574e-05, 2.85153e-05, 9.31289e-05, 0.000180565, 0.0003805, 
0673      & 0.000539459, 0.00248188, 0.000463797, 0.0016091, 0.000853044, 
0674      & 0.00164476, 0.00192995, 0.00290534, 0.00964156, 0.00558345, 
0675      & 0.0122957, 0.00956923, 0.0352916, 0.354328, 0.465868, 
0676      & 0.0251339, 0.0152575, 0.0118378, 0.00867559, 0.00389477, 
0677      & 0.0081836, 0.00452317, 0.00444977, 0.00075494, 0.00154502, 
0678      & 0.00103991, 0.000838192, 0.00027637, 0.000664308, 0.000192585, 
0679      & 0.000365897, 0.00102144, 0.000193788, 0.000112415, 0.00177053, 
0680      & 0, 4.17192e-05, 1.71739e-05, 0, 0, 
0681      & 0, 0, 0, 0, 0, 
0682      & 0, 3.88931e-05, 0, 0, 0, 
0683      & 0, 0, 0, 0, 3.25448e-05, 
0684      & 0, 0, 0, 0, 0, 
0685      & 0, 0, 0, 0, 4.46236e-05
0686      & /
0687       L38MUP = -0.256093
0688       W38MUP = 0.0052488
0689 
0690       DATA H41MUP /
0691      & 8.57575e-09, 0, 1.51431e-07, 0, 2.49006e-07, 
0692      & 8.25436e-09, 0, 0, 1.77278e-08, 7.47345e-14, 
0693      & 5.81052e-06, 3.3342e-07, 9.7398e-08, 5.22335e-08, 7.53887e-06, 
0694      & 5.63062e-06, 3.96905e-06, 4.02087e-05, 6.31992e-06, 3.15617e-05, 
0695      & 5.83564e-05, 1.0795e-05, 1.05608e-05, 1.0303e-05, 0.000108315, 
0696      & 4.50995e-05, 3.6944e-05, 0.000166271, 3.87631e-05, 6.33541e-05, 
0697      & 6.55747e-05, 7.81294e-05, 7.80844e-05, 0.00016396, 0.000279071, 
0698      & 0.000436697, 0.000323533, 0.000555194, 0.000594756, 0.00103677, 
0699      & 0.00105439, 0.00161063, 0.00167574, 0.00324065, 0.0049091, 
0700      & 0.00904551, 0.0133211, 0.0234404, 0.024944, 0.0583183, 
0701      & 0.0769418, 0.0957443, 0.151927, 0.147199, 0.128303, 
0702      & 0.0691041, 0.0531175, 0.0417154, 0.025189, 0.0194067, 
0703      & 0.0168948, 0.0102755, 0.00515757, 0.00381008, 0.00244539, 
0704      & 0.00224401, 0.00114338, 0.00066014, 0.000617144, 0.000412472, 
0705      & 0.000312439, 0.000242543, 0.000125834, 0.000185902, 0.000114168, 
0706      & 9.40044e-05, 0.000171959, 0.000182145, 5.77432e-05, 1.46715e-05, 
0707      & 1.563e-05, 1.8279e-05, 3.72303e-05, 9.07148e-06, 5.86719e-06, 
0708      & 6.061e-05, 2.88154e-05, 9.72448e-06, 1.05371e-06, 2.36007e-05, 
0709      & 3.28225e-08, 0.000111695, 8.59892e-07, 1.4975e-06, 2.25308e-05, 
0710      & 2.16478e-05, 6.22043e-08, 3.25089e-09, 1.00124e-08, 2.8071e-08
0711      & /
0712       L41MUP = -0.795134
0713       W41MUP = 0.0150684
0714 
0715       DATA H42MUP /
0716      & 1.13501e-06, 0, 0, 0, 0, 
0717      & 0, 0, 0, 1.05556e-08, 1.07585e-06, 
0718      & 0, 9.93076e-08, 2.9094e-07, 0, 5.35672e-08, 
0719      & 1.67524e-08, 2.22845e-08, 1.09375e-05, 8.74509e-07, 3.49583e-07, 
0720      & 2.45357e-08, 4.32748e-06, 2.40244e-06, 1.41726e-06, 1.37022e-05, 
0721      & 2.06904e-06, 4.53334e-06, 1.64043e-05, 3.1879e-05, 2.34271e-05, 
0722      & 1.83687e-05, 2.64749e-05, 0.000160451, 4.80843e-05, 0.000687942, 
0723      & 0.000304729, 0.000324878, 0.000532024, 0.000981448, 0.00143334, 
0724      & 0.00182237, 0.00231765, 0.00394293, 0.00458902, 0.0151628, 
0725      & 0.01398, 0.0225821, 0.0377028, 0.0679151, 0.0998567, 
0726      & 0.17895, 0.173898, 0.123211, 0.083899, 0.0537653, 
0727      & 0.0388674, 0.0245491, 0.0141529, 0.0104598, 0.0073506, 
0728      & 0.00418922, 0.0032953, 0.0032978, 0.00201578, 0.00139172, 
0729      & 0.000880881, 0.000638268, 0.00021456, 0.000224354, 6.68582e-05, 
0730      & 3.83556e-05, 7.10908e-05, 9.05532e-06, 1.64384e-05, 1.29175e-05, 
0731      & 3.57613e-06, 1.64687e-06, 2.53823e-06, 9.46859e-07, 1.52988e-06, 
0732      & 5.09374e-06, 6.78397e-07, 8.92849e-07, 5.74992e-07, 2.12081e-06, 
0733      & 0, 1.2053e-08, 7.13749e-07, 0, 0, 
0734      & 2.92974e-09, 0, 0, 0, 0, 
0735      & 0, 0, 1.0356e-05, 0, 2.30267e-12
0736      & /
0737       L42MUP = -0.437978
0738       W42MUP = 0.00861828
0739 
0740       DATA H43MUP /
0741      & 2.27916e-05, 0, 0, 6.4593e-06, 0, 
0742      & 0, 0, 0, 0, 0, 
0743      & 0, 0, 0, 5.40564e-07, 1.89681e-06, 
0744      & 0, 4.96996e-07, 6.10665e-07, 0, 7.8475e-07, 
0745      & 1.69545e-07, 9.14308e-07, 1.19021e-06, 3.05024e-05, 2.83556e-05, 
0746      & 1.47812e-05, 2.89042e-05, 0.000115886, 0.000406314, 0.00118075, 
0747      & 0.00266826, 0.00471177, 0.00844687, 0.0244619, 0.0655559, 
0748      & 0.177133, 0.316804, 0.217557, 0.108844, 0.0427018, 
0749      & 0.0163305, 0.00714352, 0.00324769, 0.00152971, 0.000640603, 
0750      & 0.00022671, 6.9793e-05, 4.68162e-05, 3.89682e-07, 1.48917e-07, 
0751      & 4.00097e-06, 5.1692e-07, 0, 1.33265e-07, 2.94861e-07, 
0752      & 0, 9.73305e-07, 2.73478e-07, 0, 1.36349e-10, 
0753      & 0, 3.62451e-07, 1.18797e-06, 0, 0, 
0754      & 0, 0, 0, 0, 0, 
0755      & 0, 0, 0, 5.93324e-09, 0, 
0756      & 0, 0, 2.74417e-08, 0, 0, 
0757      & 0, 0, 0, 0, 0, 
0758      & 0, 0, 1.5767e-05, 0, 0, 
0759      & 0, 0, 0, 0, 0, 
0760      & 0, 0, 0, 0, 1.57848e-05
0761      & /
0762       L43MUP = -0.352563
0763       W43MUP = 0.0096675
0764 
0765       DATA H44MUP /
0766      & 3.34875e-07, 7.18117e-07, 2.6254e-08, 0, 0, 
0767      & 3.10355e-08, 0, 1.67645e-06, 0, 1.63932e-07, 
0768      & 0, 4.60531e-08, 4.15418e-07, 1.71716e-07, 2.43155e-05, 
0769      & 1.60731e-07, 2.2113e-06, 9.98789e-06, 1.21486e-06, 1.3187e-06, 
0770      & 2.45919e-06, 1.36642e-05, 2.34281e-06, 0.000104957, 1.53966e-05, 
0771      & 7.98022e-05, 2.05541e-05, 0.00017216, 0.000171977, 0.000204334, 
0772      & 0.000113558, 0.00022416, 0.000118743, 0.000171965, 0.000792802, 
0773      & 0.00450106, 0.0105417, 0.0275479, 0.216699, 0.514701, 
0774      & 0.178526, 0.0281383, 0.0107162, 0.00368761, 0.000893129, 
0775      & 0.000136301, 0.000110467, 0.000226866, 0.000268954, 5.93735e-05, 
0776      & 8.20145e-05, 0.000150115, 0.000183515, 0.000236524, 2.64673e-05, 
0777      & 1.21942e-05, 2.46584e-06, 6.4303e-06, 9.48192e-05, 1.57798e-06, 
0778      & 2.32843e-07, 8.47107e-06, 2.21e-06, 8.23887e-05, 5.86833e-07, 
0779      & 3.47841e-06, 1.24917e-07, 1.0396e-06, 0, 9.34017e-05, 
0780      & 0, 0, 1.37318e-07, 1.58346e-07, 0, 
0781      & 0, 5.7121e-06, 0, 0, 0, 
0782      & 0, 0, 0, 0, 0, 
0783      & 0, 0, 0, 0, 0, 
0784      & 0, 0, 0, 0, 0, 
0785      & 0, 0, 0, 0, 4.32437e-08
0786      & /
0787       L44MUP = -0.428041
0788       W44MUP = 0.0108718
0789 
0790       DATA H45MUP /
0791      & 0.000163749, 0, 0, 3.25307e-07, 0.000193965, 
0792      & 0, 0.000159604, 0, 0.000411616, 0, 
0793      & 0, 0, 0, 0, 0, 
0794      & 1.0601e-06, 0, 1.83539e-06, 1.48445e-06, 0.000169388, 
0795      & 4.14959e-07, 0.000289851, 4.37099e-07, 2.73269e-06, 2.06537e-05, 
0796      & 2.68683e-05, 0.000230356, 0.000301159, 0.000579924, 0.00100343, 
0797      & 0.000156836, 0.00161744, 0.000618741, 0.000888858, 0.00110623, 
0798      & 0.00136659, 0.00301375, 0.00131802, 0.00213866, 0.00237855, 
0799      & 0.00386527, 0.00183676, 0.00558707, 0.00541234, 0.00603439, 
0800      & 0.00635497, 0.00744511, 0.0111967, 0.0198528, 0.0395239, 
0801      & 0.187846, 0.530285, 0.0554224, 0.0353962, 0.0106212, 
0802      & 0.00817675, 0.00780818, 0.00800373, 0.00462072, 0.00470737, 
0803      & 0.00285026, 0.00285444, 0.00232718, 0.00145995, 0.00198731, 
0804      & 0.00124428, 0.00101214, 0.000912322, 0.000374039, 0.00208724, 
0805      & 0.000882214, 0.000412319, 0.00117083, 0.000768856, 0.00030724, 
0806      & 0.000128755, 9.65511e-05, 0.000405943, 0.00032336, 2.87519e-06, 
0807      & 3.85855e-05, 1.53218e-05, 7.39108e-06, 5.00896e-07, 5.42493e-07, 
0808      & 3.61747e-07, 5.27427e-05, 1.13503e-09, 6.22748e-06, 4.05409e-07, 
0809      & 7.59366e-07, 0, 0.000103125, 0, 0, 
0810      & 0, 0, 0, 0, 7.14312e-06
0811      & /
0812       L45MUP = -0.550005
0813       W45MUP = 0.0107401
0814 
0815       DATA H46MUP /
0816      & 4.64785e-05, 0, 0, 0, 6.41266e-07, 
0817      & 0, 7.86119e-07, 8.59964e-06, 0, 0, 
0818      & 6.42083e-08, 0, 5.34383e-07, 4.53993e-06, 1.57445e-05, 
0819      & 3.38455e-06, 4.77043e-05, 2.12377e-05, 0.00035355, 0.000182628, 
0820      & 5.78273e-05, 2.45602e-06, 0.000198379, 6.9036e-06, 8.05752e-05, 
0821      & 3.50476e-05, 0.000180429, 0.000330214, 0.0008149, 0.000902688, 
0822      & 0.00138503, 0.00148775, 0.00266756, 0.00173038, 0.00155541, 
0823      & 0.00347452, 0.00379689, 0.006586, 0.00653751, 0.00592421, 
0824      & 0.00810524, 0.0461769, 0.566492, 0.247127, 0.0412462, 
0825      & 0.0113819, 0.00951982, 0.00733292, 0.00352141, 0.005255, 
0826      & 0.00343484, 0.00266119, 0.00102265, 0.00205504, 0.00114675, 
0827      & 0.000468389, 0.00017821, 0.00142142, 0.000315466, 0.000211466, 
0828      & 0.000120754, 0.000364926, 0.000264906, 0.000683754, 0.000421747, 
0829      & 2.67674e-05, 0.000162354, 1.52155e-05, 1.09004e-05, 3.59041e-06, 
0830      & 9.62293e-06, 3.57986e-05, 0, 1.14014e-05, 0.000350773, 
0831      & 0, 7.35639e-07, 0, 0, 1.60396e-06, 
0832      & 0, 0, 0, 0, 0, 
0833      & 7.09843e-07, 0, 0, 0, 0, 
0834      & 0, 0, 0, 0, 0, 
0835      & 0, 0, 0, 0, 6.32836e-09
0836      & /
0837       L46MUP = -0.379067
0838       W46MUP = 0.00883204
0839 
0840       DATA H47MUP /
0841      & 0.000139529, 0, 0, 0, 0, 
0842      & 0, 0, 0, 1.36761e-07, 2.05601e-06, 
0843      & 3.88337e-06, 0, 2.86949e-07, 0, 9.83739e-06, 
0844      & 1.58402e-06, 0, 0, 0, 0.000147358, 
0845      & 5.25102e-06, 4.62949e-05, 1.07781e-05, 1.05715e-05, 8.71694e-06, 
0846      & 1.28841e-05, 1.58054e-05, 0.000142071, 2.33574e-05, 0.000360432, 
0847      & 3.75353e-05, 0.00130197, 0.000399438, 0.000216215, 0.000561726, 
0848      & 4.1871e-05, 0.000601183, 0.000147172, 0.00026407, 0.000342594, 
0849      & 0.000977764, 0.000284209, 0.000746392, 0.00053918, 0.000655141, 
0850      & 0.00073369, 0.00254821, 0.00263158, 0.00322248, 0.00226922, 
0851      & 0.00313734, 0.00291602, 0.00432357, 0.0058026, 0.00723256, 
0852      & 0.0166667, 0.0375526, 0.69381, 0.126919, 0.0295104, 
0853      & 0.0103497, 0.00770618, 0.00497244, 0.00315643, 0.0029105, 
0854      & 0.00292881, 0.00255471, 0.00358486, 0.00244697, 0.00122629, 
0855      & 0.00225007, 0.000980601, 0.000966134, 0.000678486, 0.000340423, 
0856      & 0.00128772, 0.000565099, 0.00066516, 0.000445059, 0.000469459, 
0857      & 0.000190692, 0.000138387, 0.000144651, 2.95272e-05, 0.000258602, 
0858      & 4.71752e-05, 0.000398827, 0.000295719, 6.31545e-05, 2.3271e-05, 
0859      & 1.41148e-05, 9.85919e-05, 1.74787e-05, 0.000413297, 1.30047e-05, 
0860      & 1.28681e-05, 2.71332e-07, 1.27649e-05, 0, 1.00749e-05
0861      & /
0862       L47MUP = -0.24258
0863       W47MUP = 0.00419554
0864 
0865       DATA H48MUP /
0866      & 0.000970244, 0, 3.86975e-05, 0, 0, 
0867      & 0, 0, 0, 0, 3.18989e-05, 
0868      & 0, 0, 0, 0, 3.51901e-05, 
0869      & 0, 2.46028e-05, 7.21161e-05, 4.35293e-05, 0, 
0870      & 0.000139687, 0.000254113, 9.23795e-05, 2.75023e-05, 0.00108427, 
0871      & 1.80933e-05, 0.000229667, 0.00117961, 0.00135134, 5.45363e-05, 
0872      & 0.000259368, 0.00010043, 0.00323903, 0.000133819, 0.000853889, 
0873      & 0.00120677, 0.000885407, 0.00170267, 0.00222052, 0.00497809, 
0874      & 0.00133473, 0.00423275, 0.00355459, 0.00371744, 0.00692915, 
0875      & 0.00517093, 0.00997466, 0.00892472, 0.0238705, 0.630381, 
0876      & 0.185741, 0.0237259, 0.0125107, 0.0125422, 0.0100235, 
0877      & 0.00466054, 0.00229598, 0.00540619, 0.00176429, 0.0031868, 
0878      & 0.00437702, 0.00240389, 0.00284409, 0.000411162, 0.000369676, 
0879      & 0.00124932, 0.00208043, 0.000322232, 0.000276005, 0.00204842, 
0880      & 4.6949e-05, 5.11113e-05, 0.000680754, 3.35908e-05, 0.000283854, 
0881      & 5.14633e-05, 7.64222e-05, 0.00010647, 0.000209007, 0.000191835, 
0882      & 0.000248132, 9.34068e-06, 0, 1.51987e-06, 0, 
0883      & 0, 2.14283e-05, 2.28934e-05, 3.46273e-05, 0, 
0884      & 0, 0, 3.75061e-05, 0.000141014, 0, 
0885      & 0, 0, 5.4255e-05, 3.7529e-05, 0.000102807
0886      & /
0887       L48MUP = -0.163542
0888       W48MUP = 0.00327481
0889 
0890       RETURN
0891 
0892       END