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_NEU()   !   auto. created by droll (10/6/2005)
0004 *     generated rate: GR_NEU [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_NEU(N_BIN),LOW,WID,LOG_EK,R_VAL,S_RATE
0015 
0016       DATA R0_NEU /
0017      & 46467.8, 41122.8, 39518.6, 32437, 27096.7, 
0018      & 29918.3, 26041.2, 19828, 17160.1, 15010.3, 
0019      & 28263.6, 15494.2, 10060.9, 11642.9, 13410.1, 
0020      & 7779.22, 5821.65, 5487.87, 5203.93, 3461.64, 
0021      & 5286.71, 3972.87, 3010.21, 3264.37, 4820.1, 
0022      & 3623.7, 2975.94, 2087.86, 2817.94, 1839.57, 
0023      & 2001.36, 1817.78, 2548.18, 3227.88, 1690.44, 
0024      & 2817.53, 3234.26, 1392.3, 1385.66, 1902.06, 
0025      & 2421.56, 1802.4, 2058.58, 1097.72, 1265.32, 
0026      & 1334.77, 1361.12, 574.651, 1096.2, 1994.14, 
0027      & 1161.83, 851.61, 1183.2, 792.682, 492.845, 
0028      & 881.628, 455.978, 980.628, 732.94, 638.348, 
0029      & 896.548, 746.019, 1016.42, 615.354, 582.164, 
0030      & 806.615, 987.597, 761.308, 1583.78, 1392.16, 
0031      & 1603.65, 1943.93, 1596.27, 1819.14, 2015.11, 
0032      & 2472.32, 2130.22, 2439.42, 3099.37, 3236.78, 
0033      & 3773.93, 4273.84, 4670.26, 4234.05, 4867.8, 
0034      & 4707.9, 6411.61, 5985.25, 5581.53, 6077.57, 
0035      & 7142.56, 7427.39, 7361.64, 7970.11, 9411.08, 
0036      & 8406.7, 9049.16, 9543.57, 9162.22, 9966.78
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(ENEMIN)) - 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_NEU(IBIN)
0048          S_RATE = S_RATE + R_VAL
0049       IF ((LOG_EK+LE_INC).LT.LOG(ENEMAX)) GOTO 111
0050       ! calculate the actual rate
0051       GR_NEU = REAL(S_RATE*LE_INC) ! total rate [Hz]
0052 
0053       RETURN
0054 
0055       END
0056 
0057 ************************************************************************
0058       SUBROUTINE F66NEU  !  automatically created by droll (10/6/2005)
0059 *     fill histograms H##NEU more infos in kine/kicdes/bhgrhists.inc
0060 ************************************************************************
0061 
0062       IMPLICIT NONE
0063 #include "GeneratorInterface/BeamHaloGenerator/interface/bhgrhists.inc"
0064 
0065       DATA H01NEU /
0066      & 0.0717216, 0.0634718, 0.0609958, 0.0500655, 0.041823, 
0067      & 0.0461779, 0.0401938, 0.0306039, 0.0264861, 0.023168, 
0068      & 0.0436241, 0.0239149, 0.0155288, 0.0179705, 0.020698, 
0069      & 0.012007, 0.00898554, 0.00847037, 0.00803211, 0.00534294, 
0070      & 0.00815987, 0.00613201, 0.00464616, 0.00503846, 0.00743967, 
0071      & 0.00559307, 0.00459328, 0.00322255, 0.0043494, 0.00283931, 
0072      & 0.00308904, 0.00280569, 0.00393304, 0.00498213, 0.00260914, 
0073      & 0.00434878, 0.00499198, 0.00214898, 0.00213873, 0.00293578, 
0074      & 0.0037376, 0.00278194, 0.00317736, 0.0016943, 0.00195299, 
0075      & 0.00206018, 0.00210084, 0.000886956, 0.00169194, 0.00307789, 
0076      & 0.00179325, 0.00131443, 0.00182623, 0.00122348, 0.000760691, 
0077      & 0.00136077, 0.000703788, 0.00151357, 0.00113127, 0.00098527, 
0078      & 0.0013838, 0.00115146, 0.00156881, 0.00094978, 0.000898553, 
0079      & 0.00124499, 0.00152433, 0.00117506, 0.00244452, 0.00214876, 
0080      & 0.00247518, 0.0030004, 0.00246379, 0.00280778, 0.00311026, 
0081      & 0.00381595, 0.00328793, 0.00376518, 0.00478379, 0.00499588, 
0082      & 0.00582495, 0.00659654, 0.0072084, 0.00653513, 0.00751329, 
0083      & 0.00726651, 0.00989613, 0.00923805, 0.00861492, 0.00938054, 
0084      & 0.0110243, 0.0114639, 0.0113625, 0.0123016, 0.0145257, 
0085      & 0.0129755, 0.0139671, 0.0147302, 0.0141416, 0.0153834
0086      & /
0087       L01NEU = 0
0088       W01NEU = 0.088537
0089 
0090       DATA H11NEU /
0091      & 1.63656e-06, 0, 0, 0, 0, 
0092      & 3.25164e-08, 0, 0, 0, 0, 
0093      & 0, 1.289e-05, 0, 0, 0, 
0094      & 0, 0, 7.28277e-08, 0, 0, 
0095      & 0, 6.93161e-05, 0, 0, 0, 
0096      & 0, 0, 0, 0, 0, 
0097      & 0, 0, 0, 0, 0, 
0098      & 0, 0.000100142, 6.93646e-06, 2.41565e-05, 7.5262e-05, 
0099      & 7.83285e-05, 5.92664e-05, 6.71658e-05, 0.00275075, 0.00082562, 
0100      & 0.00249017, 0.00366975, 0.00314391, 0.00360659, 0.00534425, 
0101      & 0.00377662, 0.00560953, 0.00596945, 0.00380284, 0.00539521, 
0102      & 0.0132748, 0.0119713, 0.00775749, 0.00224076, 0.00522134, 
0103      & 0.0181699, 0.0263495, 0.0231672, 0.0294033, 0.0228653, 
0104      & 0.0315893, 0.0305234, 0.0231655, 0.0234102, 0.016748, 
0105      & 0.0654335, 0.0354477, 0.167501, 0.08072, 0.0260001, 
0106      & 0.0265607, 0.026921, 0.0203031, 0.0268661, 0.0263101, 
0107      & 0.031589, 0.0235316, 0.0522547, 0.0198911, 0.0247234, 
0108      & 0.00763352, 0.000971363, 0.0013202, 0.000913917, 0.00227517, 
0109      & 3.53882e-05, 1.22301e-06, 1.07183e-05, 1.36689e-05, 5.46051e-06, 
0110      & 3.35775e-06, 0, 1.11317e-05, 0, 1.41686e-05
0111      & /
0112       L11NEU = -745.99
0113       W11NEU = 10.2544
0114 
0115       DATA H12NEU /
0116      & 4.69471e-06, 0, 0, 4.08408e-05, 0.000101885, 
0117      & 0.000842361, 0, 0.00134112, 8.34869e-05, 0, 
0118      & 3.86571e-05, 5.44771e-05, 7.09576e-05, 2.06833e-06, 0.00105552, 
0119      & 0.00345513, 0.00027185, 0.00197239, 4.29608e-07, 0.000143398, 
0120      & 0.000159751, 0.00251194, 0.00167463, 0.000211834, 0.0003956, 
0121      & 0.00055703, 0.000131243, 0.00158804, 0.0152538, 0.00181975, 
0122      & 0.00113682, 0.00523718, 0.00231485, 0.0030792, 0.00189211, 
0123      & 0.000783866, 0.000140128, 9.68272e-05, 0.00530886, 0.0103243, 
0124      & 0.0156817, 0.0143119, 0.0111665, 0.0132006, 0.00850127, 
0125      & 0.0264598, 0.011047, 0.0273352, 0.0186995, 0.00808187, 
0126      & 0.00942683, 0.0129987, 0.0158902, 0.0097912, 0.0163119, 
0127      & 0.00849724, 0.00890387, 0.00486986, 0.00705369, 0.00139522, 
0128      & 0.00790151, 0.00201099, 0.00750385, 0.0193, 0.0171396, 
0129      & 0.035568, 0.205628, 0.110196, 0.0159344, 0.00867114, 
0130      & 0.00397036, 0.00648952, 0.00314966, 0.00670196, 0.0063324, 
0131      & 0.0135191, 0.0175753, 0.00247865, 0.00833937, 0.00965798, 
0132      & 0.00587803, 0.00667937, 0.0257321, 0.0121762, 0.00618916, 
0133      & 0.00682333, 0.0211571, 0.0109017, 0.00544575, 0.0147351, 
0134      & 0.0233556, 0.0192226, 0.0169209, 0.00231805, 0.000263946, 
0135      & 4.04699e-05, 4.86714e-05, 0, 0.000261786, 6.13967e-05
0136      & /
0137       L12NEU = -318.822
0138       W12NEU = 4.78368
0139 
0140       DATA H13NEU /
0141      & 0.00236784, 0, 0.000367294, 0, 0.00391913, 
0142      & 0.000866259, 0, 0, 2.04925e-05, 0, 
0143      & 0.00272504, 0, 0, 0, 0, 
0144      & 0, 0, 0.00329953, 0.000156033, 2.72662e-05, 
0145      & 0.00582537, 0.000654569, 0, 0.00148921, 0, 
0146      & 1.48256e-05, 0, 0, 0, 0.00253394, 
0147      & 0.0151325, 0.00751759, 0.014426, 0.018515, 0.0413252, 
0148      & 0.022388, 0.0242716, 0.0318556, 0.025415, 0.00888938, 
0149      & 0.00989881, 0.037257, 0.0126632, 0.00738011, 0.0119616, 
0150      & 0.00436335, 0.020796, 0.00989712, 0.00790242, 0.0107532, 
0151      & 0.00907391, 0.007949, 0.00717476, 0.000943696, 0.000922463, 
0152      & 0.000407513, 0.00598094, 0.00903284, 0.00458236, 0.00582112, 
0153      & 0.0116543, 0.116592, 0.102446, 0.00738725, 0.00187831, 
0154      & 0.00942625, 0.00974098, 0.000646639, 0.00639313, 0.0107207, 
0155      & 0.000676162, 0.000997974, 0.00359878, 0.00166082, 0.00139472, 
0156      & 0.00720056, 0.00768077, 0.00908519, 0.00889789, 0.0329574, 
0157      & 0.0203535, 0.0190535, 0.00293167, 0.00995817, 0.0154602, 
0158      & 0.0187106, 0.0271491, 0.0185442, 0.0110205, 0.0270328, 
0159      & 0.00667554, 0.0241471, 0.0243599, 0.00411611, 0.000431937, 
0160      & 2.87006e-05, 0, 0, 0, 0.000226715
0161      & /
0162       L13NEU = -249.416
0163       W13NEU = 4.02898
0164 
0165       DATA H14NEU /
0166      & 8.26928e-05, 0, 0, 0, 0, 
0167      & 0, 0, 0, 0, 0, 
0168      & 0, 0, 0, 0, 0, 
0169      & 0, 0.000891625, 0, 1.96784e-05, 0.00365469, 
0170      & 0, 0, 0, 0, 0, 
0171      & 0, 4.00385e-05, 0.00203107, 0.00505763, 0.00225725, 
0172      & 0.0080304, 0.0129019, 0.00498693, 0.00436311, 0.0293121, 
0173      & 0.005823, 0.0139469, 0.00964368, 0.0186175, 0.0202929, 
0174      & 0.032625, 0.0125974, 0.0278371, 0.0390968, 0.0139169, 
0175      & 0.0267626, 0.0169224, 0.0123752, 0.0108572, 0.00700589, 
0176      & 0.00209039, 0.0103798, 0.0143492, 0.00759009, 0.00735449, 
0177      & 0.00126865, 0.00456704, 0.00191416, 0.00638983, 0.00557959, 
0178      & 0.00139819, 0.00616919, 0.127366, 0.0969643, 0.0254946, 
0179      & 0.0112917, 0.00380202, 3.90938e-05, 0.00586252, 0.00366375, 
0180      & 0.00144548, 0.000267486, 0.0015709, 0.00227119, 0.00171358, 
0181      & 0.000555776, 0.00263028, 0.0115268, 0.013223, 0.02372, 
0182      & 0.0169721, 0.0201815, 0.0260592, 0.0275384, 0.0131064, 
0183      & 0.0123219, 0.0309955, 0.0148075, 0.0169921, 0.0186091, 
0184      & 0.00813918, 0.00612935, 0.00846188, 0.00282168, 0.00263992, 
0185      & 0.0086754, 0.00863885, 0.00466866, 0.0076151, 0.000217837
0186      & /
0187       L14NEU = -225.865
0188       W14NEU = 3.58378
0189 
0190       DATA H15NEU /
0191      & 4.082e-05, 0.0004286, 0.00049098, 6.46107e-05, 0, 
0192      & 1.61658e-05, 0.0115692, 0.000473275, 0.00116464, 0.0144218, 
0193      & 0.0265704, 0.00369226, 0.00702146, 0.000772001, 0.0187609, 
0194      & 0.0051122, 0.0010819, 0.0130543, 0.00108961, 0.00616821, 
0195      & 0.00483662, 0.000852319, 0.0219821, 0.0277375, 0.0159705, 
0196      & 0.0105189, 0.0144582, 0.00824635, 0.000695495, 0.00436752, 
0197      & 0.00561045, 0.00158119, 0.0227323, 0.000492043, 0.000199633, 
0198      & 0.00153376, 0.0240005, 0.00524205, 0.0024643, 0.000513317, 
0199      & 0.00576673, 0.000713954, 0, 0.0017342, 0.000853914, 
0200      & 0.00360248, 0, 0.000416878, 0.0409424, 0.238558, 
0201      & 0.197026, 0.0541738, 0.00796872, 0.000632624, 0.00779395, 
0202      & 0, 0.000754976, 0.00843966, 0.00062324, 0.00120338, 
0203      & 0.00847981, 0.000650629, 0.00180081, 0.00203033, 0.0010059, 
0204      & 0.000619883, 0.00198, 0.00236752, 0.000806387, 0.0106467, 
0205      & 4.34604e-05, 0.00400004, 0.000700691, 0.000405782, 0.0021059, 
0206      & 0.000974486, 0.00126331, 0.00267438, 0.00809409, 0.00207185, 
0207      & 0.00181897, 0.00411214, 0.0122813, 0.000643225, 0.00305012, 
0208      & 0.00785445, 0.001954, 0.00250794, 0.013944, 0.000813645, 
0209      & 0.00942566, 0.000170196, 0.00841345, 0.000699895, 0.000191244, 
0210      & 0, 0.000464429, 0.00134101, 0.00275328, 0.0176053
0211      & /
0212       L15NEU = -129.343
0213       W15NEU = 2.58414
0214 
0215       DATA H16NEU /
0216      & 0.000143162, 0, 0, 0, 5.31017e-05, 
0217      & 0.000210597, 0, 0, 0, 0, 
0218      & 0.000299115, 0.000228914, 0, 0.000150594, 0, 
0219      & 0, 0.00278892, 9.64638e-07, 0.00137715, 0.00377873, 
0220      & 0.000118595, 0.000760463, 0.000763464, 0.00103564, 0.00524392, 
0221      & 0.00125203, 0.000531892, 0.000572708, 0.000183476, 0.0001177, 
0222      & 0.000192138, 0.000227084, 0.00255032, 0, 0.000517531, 
0223      & 0.000947105, 0.00135173, 0.000781469, 0.00563132, 0.00057296, 
0224      & 0, 2.27119e-05, 0, 0, 0, 
0225      & 0, 5.16512e-05, 0, 0.000707633, 0.31434, 
0226      & 0.543454, 0.0714003, 0, 0, 0, 
0227      & 0, 0, 0, 1.12016e-05, 9.72131e-06, 
0228      & 1.73367e-05, 0, 0, 0, 0.00120635, 
0229      & 0, 0.000136405, 0.000473465, 0.000201906, 0, 
0230      & 0.000130199, 0, 0, 0, 0, 
0231      & 0.000242165, 0.000183248, 0.000635197, 0.000364085, 0.00731589, 
0232      & 0.000672279, 0.00158195, 0.000531543, 0.000668787, 0.000738564, 
0233      & 0.00108921, 0.000666744, 0.00060095, 0.00469165, 0.000601777, 
0234      & 0.000944476, 0.00264318, 9.22056e-05, 0.00014572, 0.0058606, 
0235      & 0, 0, 0, 0, 0.00518508
0236      & /
0237       L16NEU = -127.626
0238       W16NEU = 2.54442
0239 
0240       DATA H17NEU /
0241      & 7.24537e-05, 0, 5.88993e-05, 0, 3.38906e-05, 
0242      & 0, 1.58906e-05, 3.67105e-05, 0, 0, 
0243      & 2.32821e-05, 3.66992e-05, 0.00010391, 0, 0, 
0244      & 2.6615e-05, 0, 0, 0, 0, 
0245      & 0, 0, 0, 6.57227e-06, 1.61665e-05, 
0246      & 0, 0.000506794, 5.66275e-05, 0, 7.20732e-05, 
0247      & 0, 0, 0, 0, 0, 
0248      & 0, 0, 0, 0, 0, 
0249      & 0.00668331, 0.20927, 0.74313, 0.0383657, 0, 
0250      & 0, 0, 0, 0, 0, 
0251      & 0, 0, 0, 0, 0, 
0252      & 0, 0, 0, 0, 0, 
0253      & 0, 0, 6.78252e-05, 0.000199026, 2.13668e-05, 
0254      & 0, 0, 0, 0, 0, 
0255      & 0, 0, 0, 0, 0, 
0256      & 0, 0, 3.93671e-05, 4.6573e-05, 0.000114214, 
0257      & 0.000127365, 6.30206e-05, 9.97791e-05, 5.88106e-05, 1.56955e-06, 
0258      & 0, 0, 0.000100949, 0.000108004, 0, 
0259      & 4.34293e-05, 5.24902e-06, 0, 0, 1.77099e-05, 
0260      & 0, 0, 3.92781e-05, 4.64013e-05, 0.000283796
0261      & /
0262       L17NEU = -84.7016
0263       W17NEU = 2.00683
0264 
0265       DATA H18NEU /
0266      & 7.44826e-06, 0, 0, 1.94775e-06, 0, 
0267      & 0, 0, 0, 0, 0, 
0268      & 0, 0, 0, 0, 0, 
0269      & 0, 0, 0, 0, 0, 
0270      & 0, 0, 0, 0, 0, 
0271      & 0, 0, 0, 0, 0, 
0272      & 0, 0, 0, 0, 0, 
0273      & 0, 0, 0, 0, 0, 
0274      & 0, 0, 0, 0, 0, 
0275      & 0, 0, 0, 0, 0, 
0276      & 0, 0, 0, 0, 0, 
0277      & 0, 0, 0, 0, 0, 
0278      & 0, 0, 0, 0, 0, 
0279      & 0, 0, 0, 0, 0, 
0280      & 0, 0, 0, 0, 0, 
0281      & 0, 0, 0, 0, 0, 
0282      & 0, 0, 9.42664e-05, 0.000437956, 0.00104498, 
0283      & 0.00198904, 0.00366247, 0.00707526, 0.0145341, 0.0495256, 
0284      & 0.208664, 0.553543, 0.110094, 0.0283906, 0.0111047, 
0285      & 0.00457546, 0.00285823, 0.00144789, 0.00077394, 0.000174667
0286      & /
0287       L18NEU = -33.1199
0288       W18NEU = 0.362873
0289 
0290       DATA H21NEU /
0291      & 3.25164e-08, 0, 9.01324e-08, 0, 0, 
0292      & 0, 0, 0, 0, 0, 
0293      & 2.11955e-05, 0, 0, 0, 0, 
0294      & 0.00045919, 0, 1.614e-05, 7.10702e-05, 0.00117201, 
0295      & 7.84813e-05, 0.00010005, 0.00138928, 0.00692213, 0.00824766, 
0296      & 0.0157931, 0.0170018, 0.0117014, 0.0308368, 0.0423431, 
0297      & 0.0360156, 0.0313036, 0.0427214, 0.0397825, 0.0655528, 
0298      & 0.196808, 0.114972, 0.0369452, 0.0536188, 0.0373598, 
0299      & 0.0270484, 0.0182693, 0.0188111, 0.0241053, 0.0186486, 
0300      & 0.0600986, 0.0150749, 0.00620487, 0.00256282, 0.00204861, 
0301      & 0.0048869, 0.00196454, 0.00244347, 0.00158227, 0.000197019, 
0302      & 0.000823123, 0.000803052, 0.00129449, 0.000293658, 0.000120548, 
0303      & 0.000626936, 4.11077e-05, 1.08385e-05, 3.28325e-05, 0.000290417, 
0304      & 0.00044079, 0, 0, 6.025e-12, 0, 
0305      & 0, 0, 0, 0, 0, 
0306      & 0, 0, 0, 0, 0, 
0307      & 2.33086e-05, 0, 0, 0, 0, 
0308      & 0, 0, 0, 0, 0, 
0309      & 0, 0, 0, 0, 0, 
0310      & 1.74709e-05, 0, 0, 0, 1.75198e-06
0311      & /
0312       L21NEU = -382.378
0313       W21NEU = 10.7086
0314 
0315       DATA H22NEU /
0316      & 2.64982e-05, 0.000710689, 0.000876315, 0.00439967, 0.00778985, 
0317      & 0.0149615, 0.00260165, 0.00380965, 0.00562834, 0.00785744, 
0318      & 0.00596058, 0.0060834, 0.00922635, 0.00877066, 0.00737138, 
0319      & 0.0197696, 0.0165393, 0.0142475, 0.0133674, 0.00984043, 
0320      & 0.0165298, 0.00872457, 0.00438974, 0.00839984, 0.0229003, 
0321      & 0.00617289, 0.0132605, 0.0123239, 0.0146299, 0.0599807, 
0322      & 0.0799066, 0.153428, 0.147028, 0.036305, 0.0278119, 
0323      & 0.010605, 0.00904687, 0.0124687, 0.00843379, 0.0112476, 
0324      & 0.0114136, 0.0144698, 0.00413432, 0.00939866, 0.00535547, 
0325      & 0.00743077, 0.0143419, 0.00522129, 0.0144014, 0.00466232, 
0326      & 0.00363083, 0.015087, 0.0120513, 0.00313166, 0.00671845, 
0327      & 0.00390944, 0.00548784, 0.00682452, 0.0030694, 0.00718609, 
0328      & 0.00304711, 0.0033026, 0.0020059, 7.92448e-05, 0.00120907, 
0329      & 0.0032921, 0.000127017, 0.000116171, 0.000110823, 4.01239e-05, 
0330      & 0.000101262, 4.87882e-05, 5.33902e-05, 4.24414e-05, 0.00167605, 
0331      & 6.36876e-05, 0.00121092, 0.000231201, 0.00135875, 7.27766e-05, 
0332      & 1.13362e-06, 0, 3.73988e-05, 0, 6.5872e-05, 
0333      & 0, 4.55828e-05, 0.000219914, 0, 0, 
0334      & 0, 0, 0, 7.63447e-05, 0, 
0335      & 0, 0, 0, 0, 6.92735e-06
0336      & /
0337       L22NEU = -133.057
0338       W22NEU = 4.16748
0339 
0340       DATA H23NEU /
0341      & 0.000315262, 8.84603e-05, 0.000277331, 0.00171862, 0.000402249, 
0342      & 0.000904192, 0.0123681, 0.000238255, 0.000569192, 0.00706796, 
0343      & 0.000676113, 0.000864779, 0.000439221, 0.000534947, 0.00920243, 
0344      & 0.00598106, 0.00614627, 0.000560341, 0.00069392, 0.0136295, 
0345      & 0.00533928, 0.013589, 0.0103741, 0.00393097, 0.00212902, 
0346      & 0.0011754, 0.00270567, 0.00706217, 0.00447643, 0.0076582, 
0347      & 0.0214931, 0.0129987, 0.0122984, 0.023145, 0.0146355, 
0348      & 0.024803, 0.0237747, 0.0212487, 0.0529843, 0.122271, 
0349      & 0.155258, 0.0669504, 0.0222455, 0.0124242, 0.030063, 
0350      & 0.0073845, 0.0114102, 0.00230466, 0.0123737, 0.0185641, 
0351      & 0.0115856, 0.00165712, 0.00183786, 0.00636067, 0.0358074, 
0352      & 0.0103001, 0.0113486, 0.016446, 0.00131138, 0.0189372, 
0353      & 0.0103087, 0.00543096, 0.000548399, 0.00432864, 0.00311, 
0354      & 0.00576112, 0.00748734, 0.00146771, 0.00743123, 0.00114819, 
0355      & 0.014091, 0.00563429, 0.00462215, 0.000239692, 0.0133074, 
0356      & 0.00059585, 0.00451309, 0.000552278, 0.00174697, 0.000127736, 
0357      & 0, 0, 0, 0, 0, 
0358      & 0, 0, 0.000345796, 0, 0, 
0359      & 0, 0.00148921, 0, 0, 0, 
0360      & 0, 0, 0, 0, 0.000370115
0361      & /
0362       L23NEU = -128.235
0363       W23NEU = 3.19994
0364 
0365       DATA H24NEU /
0366      & 5.25247e-05, 0, 0, 0.00603534, 0.000973045, 
0367      & 0.00134535, 0.000511836, 0.000908358, 0.00883597, 0.00404311, 
0368      & 0.0124457, 0.00214156, 0.000342749, 0.00158013, 0.00498105, 
0369      & 0.0069887, 0.0122401, 0.00203644, 0.000225624, 0.000743471, 
0370      & 0.00518773, 0.0028707, 0.000447045, 0.000529932, 0.00430568, 
0371      & 0.00688867, 0.0111622, 0.000361142, 0.00125831, 0.00371517, 
0372      & 0.00163399, 0.00571569, 0.00530212, 0.0101321, 0.00918326, 
0373      & 0.00625187, 0.00802872, 0.0112107, 0.00288047, 0.00607542, 
0374      & 0.00238749, 0.00435268, 0.0047548, 0.0196483, 0.0252679, 
0375      & 0.0116723, 0.0299741, 0.0209127, 0.0897875, 0.174092, 
0376      & 0.136101, 0.0312395, 0.0515443, 0.0170874, 0.00354613, 
0377      & 0.0127637, 0.0291876, 0.00158852, 0.016191, 0.0108241, 
0378      & 0.0115214, 0.00454605, 0.00303951, 0.000958123, 0.0063593, 
0379      & 0.00117464, 0.00727791, 0.0026556, 0.00248428, 0.00356103, 
0380      & 0.00502116, 0.00201465, 0.00112512, 0.00344809, 0.00264409, 
0381      & 0.00909835, 0.00365193, 0.000939368, 0.011192, 0.0021917, 
0382      & 0.010019, 0.0138607, 0.00151728, 0.00589746, 0.00166463, 
0383      & 0.00104263, 0.00214274, 0.000729388, 7.63394e-06, 0.00419379, 
0384      & 0.00334669, 0.00120772, 0.000412809, 0, 0.00568524, 
0385      & 4.51465e-05, 0.000248189, 0, 0.000557917, 2.11408e-05
0386      & /
0387       L24NEU = -127.314
0388       W24NEU = 2.58272
0389 
0390       DATA H25NEU /
0391      & 0.00149819, 8.05877e-05, 1.38454e-05, 0, 0.000443987, 
0392      & 0.000219074, 5.25571e-05, 4.27443e-05, 0.00465897, 0.000121168, 
0393      & 6.03583e-05, 0.000403026, 0.000192542, 0.000180056, 0.00116481, 
0394      & 0.000756917, 0.00062853, 0.00883754, 0.00067944, 0.00373322, 
0395      & 0.00195586, 0.00729593, 0.00480497, 0.00808881, 0.00269546, 
0396      & 0.00380647, 1.7806e-05, 2.03218e-05, 0.000500216, 0.000716822, 
0397      & 0.000768769, 0.000652201, 0.000320465, 0.00727776, 0.00936208, 
0398      & 0.00290072, 0.00619659, 0.0110898, 0.0125094, 0.00156128, 
0399      & 0.0076593, 0.00629002, 0.00149062, 0.0073846, 0.0183927, 
0400      & 0.00457454, 0.0116658, 0.0966497, 0.324205, 0.21152, 
0401      & 0.0547769, 0.00307931, 0.0165886, 0.0110281, 0.000835808, 
0402      & 0.00884567, 0.0158232, 0.00082742, 0.00117261, 0.00175527, 
0403      & 0.00382558, 2.58476e-06, 0.000497436, 0, 0.000284194, 
0404      & 0.00022114, 0.000886823, 0.000980838, 0.0201901, 0, 
0405      & 0.00170767, 0.0197439, 0.00579593, 0.00189558, 0.00082723, 
0406      & 0.0011914, 0.00120805, 0.00555859, 0.000668098, 0.000700758, 
0407      & 0.0011274, 0, 0.000513445, 0.010065, 0.00334689, 
0408      & 0.000415094, 0.00377469, 0.000451168, 6.9926e-05, 0, 
0409      & 0.000578179, 0.000210785, 0.000645796, 9.09476e-05, 1.41968e-05, 
0410      & 6.41458e-05, 0.00154382, 0, 0, 2.76931e-05
0411      & /
0412       L25NEU = -119.767
0413       W25NEU = 2.45472
0414 
0415       DATA H26NEU /
0416      & 9.89788e-06, 0, 0, 0, 0, 
0417      & 0, 1.12016e-05, 0, 0, 0, 
0418      & 0, 9.48461e-06, 0, 5.16512e-05, 0, 
0419      & 0, 0, 0.000295989, 1.02282e-05, 0, 
0420      & 0, 0, 1.26289e-05, 0, 0, 
0421      & 0, 0, 0.000136723, 0.000228914, 9.64638e-07, 
0422      & 0.00011455, 0, 0.000493235, 2.69394e-05, 0, 
0423      & 0, 0.000143162, 0.000234117, 0.00136502, 0.000489739, 
0424      & 0.000848735, 0.00104399, 0.000787468, 0.000301218, 0.00784016, 
0425      & 0.0195428, 0.148179, 0.478428, 0.246275, 0.0741688, 
0426      & 0.00327515, 0.000435645, 0.00184416, 0.000848681, 0.00518265, 
0427      & 0.000511423, 0.000162789, 0.00110503, 0.00489477, 0.000252737, 
0428      & 0, 0, 0, 0, 0, 
0429      & 1.51574e-05, 0, 0, 0, 0.000183601, 
0430      & 0, 0, 0, 9.75203e-06, 0, 
0431      & 0, 0, 0, 0, 3.24717e-05, 
0432      & 6.11093e-05, 1.73367e-05, 0, 0, 0, 
0433      & 0, 9.72131e-06, 0, 0, 9.985e-06, 
0434      & 0, 0, 0, 0, 2.48323e-05, 
0435      & 0, 0, 0, 0, 7.42104e-05
0436      & /
0437       L26NEU = -81.7817
0438       W26NEU = 1.71401
0439 
0440       DATA H27NEU /
0441      & 1.77099e-05, 0, 0, 0, 0, 
0442      & 0, 0, 0, 0, 0, 
0443      & 0, 0, 0, 0, 0, 
0444      & 0, 0, 0, 0, 0, 
0445      & 0, 0, 0, 0, 0, 
0446      & 0, 0, 0, 0, 0, 
0447      & 0, 0, 0, 0, 6.30206e-05, 
0448      & 0, 0, 0, 0, 3.62335e-05, 
0449      & 0, 8.32975e-05, 3.92781e-05, 0, 0, 
0450      & 0.00032617, 0.000136479, 0.00488316, 0.00782016, 0.0172568, 
0451      & 0.0214777, 0.0616345, 0.112604, 0.215921, 0.322606, 
0452      & 0.106251, 0.0635509, 0.0337302, 0.0186291, 0.0079695, 
0453      & 0.00393152, 0.000550805, 1.91255e-05, 0, 0, 
0454      & 3.62202e-05, 0, 0, 0, 0, 
0455      & 0, 0, 3.38906e-05, 0.000283796, 0, 
0456      & 0, 0, 0, 5.52031e-05, 0, 
0457      & 0, 0, 0, 0, 0, 
0458      & 8.82511e-06, 0, 0, 0, 0, 
0459      & 0, 0, 0, 0, 0, 
0460      & 0, 0, 0, 0, 4.35642e-05
0461      & /
0462       L27NEU = -23.6229
0463       W27NEU = 0.436633
0464 
0465       DATA H28NEU /
0466      & 5.00466e-06, 4.66282e-06, 1.81948e-05, 2.62642e-05, 5.68281e-05, 
0467      & 8.4824e-05, 6.05095e-05, 7.66442e-05, 0.000126482, 0.000113726, 
0468      & 0.000144197, 0.000150045, 0.000172228, 0.000200955, 0.000229168, 
0469      & 0.000300823, 0.000326656, 0.000349159, 0.00044062, 0.00033408, 
0470      & 0.000537564, 0.000670083, 0.000738327, 0.00059681, 0.000776328, 
0471      & 0.000741781, 0.00103973, 0.000977561, 0.00119293, 0.00141951, 
0472      & 0.00122694, 0.00164893, 0.00198624, 0.00288867, 0.00276017, 
0473      & 0.00313348, 0.00416201, 0.00637487, 0.0064301, 0.00780095, 
0474      & 0.00920345, 0.0112072, 0.0142694, 0.0173702, 0.0287677, 
0475      & 0.0347827, 0.0394344, 0.0660345, 0.0878476, 0.146262, 
0476      & 0.129372, 0.0926689, 0.0592068, 0.0425889, 0.0382063, 
0477      & 0.0273146, 0.0180223, 0.0165035, 0.0120525, 0.00976505, 
0478      & 0.00872057, 0.00561935, 0.00406896, 0.00405963, 0.00308765, 
0479      & 0.00292258, 0.00264726, 0.00198165, 0.00188068, 0.00176262, 
0480      & 0.0015225, 0.00147397, 0.000882567, 0.00118606, 0.000749234, 
0481      & 0.000755529, 0.000680836, 0.000534496, 0.000556737, 0.000327864, 
0482      & 0.000408414, 0.000385617, 0.000341235, 0.000298077, 0.000267607, 
0483      & 0.000340548, 0.000224344, 0.000196976, 0.000135171, 0.000118979, 
0484      & 0.000175503, 8.08043e-05, 6.77392e-05, 5.01579e-05, 0.000110505, 
0485      & 3.51957e-05, 8.28789e-05, 3.89199e-05, 6.85097e-06, 1.02131e-05
0486      & /
0487       L28NEU = -3.16534
0488       W28NEU = 0.0633169
0489 
0490       DATA H31NEU /
0491      & 1.40629e-05, 0, 0, 0, 0, 
0492      & 0, 0, 0, 9.42728e-06, 5.75966e-06, 
0493      & 1.73157e-05, 3.25164e-08, 0.00010002, 5.38521e-07, 0.000188589, 
0494      & 0.000217103, 0.000378311, 8.10358e-05, 0.0006241, 0.000526763, 
0495      & 0.00294202, 0.00209242, 0.00234409, 0.00383446, 0.00108474, 
0496      & 0.00291166, 0.00195838, 0.0107991, 0.00361519, 0.0223366, 
0497      & 0.00342856, 0.00829642, 0.00730012, 0.00352492, 0.00406343, 
0498      & 0.0109832, 0.0148571, 0.0118154, 0.0181399, 0.0171551, 
0499      & 0.0142153, 0.023521, 0.0246358, 0.0287653, 0.027628, 
0500      & 0.0368694, 0.0437509, 0.0528979, 0.0387873, 0.0384131, 
0501      & 0.0342319, 0.0440466, 0.0412866, 0.032683, 0.0362451, 
0502      & 0.0279704, 0.0299128, 0.0281146, 0.0257287, 0.029271, 
0503      & 0.0183129, 0.00683616, 0.0172853, 0.0160786, 0.0100957, 
0504      & 0.00736021, 0.00764046, 0.010781, 0.00429088, 0.00612984, 
0505      & 0.00525442, 0.00888942, 0.0456236, 0.00287258, 0.00138486, 
0506      & 0.00286986, 0.00258487, 0.0016235, 0.0021537, 0.00383137, 
0507      & 0.0003756, 9.99559e-05, 0.000233653, 0.00105602, 3.67689e-05, 
0508      & 0.000127421, 0.000537818, 0.000265242, 4.55628e-05, 5.30333e-05, 
0509      & 1.71714e-05, 0, 1.78466e-05, 3.06987e-05, 0.000537158, 
0510      & 0, 0, 0, 5.55792e-07, 4.56387e-05
0511      & /
0512       L31NEU = -0.898352
0513       W31NEU = 0.0175744
0514 
0515       DATA H32NEU /
0516      & 0.000122825, 2.62275e-06, 1.35974e-05, 5.18455e-05, 0.000321774, 
0517      & 0, 5.43439e-06, 0.000293403, 0.000279944, 0.000210716, 
0518      & 0, 2.10271e-05, 0.000332021, 3.16769e-05, 4.62158e-05, 
0519      & 0.000311247, 0.000112849, 0.000687589, 3.03751e-05, 0.000352457, 
0520      & 0.000776896, 0.000440061, 0.000846197, 7.56829e-05, 0.00268527, 
0521      & 0.000310809, 0.000170343, 0.00225153, 0.00135982, 0.00322075, 
0522      & 0.0106623, 0.0222419, 0.0105964, 0.0072541, 0.00746428, 
0523      & 0.00860712, 0.0149285, 0.0211188, 0.0188253, 0.0204584, 
0524      & 0.0377932, 0.0172676, 0.0372577, 0.0203724, 0.0589925, 
0525      & 0.0312752, 0.0554094, 0.0564986, 0.0372561, 0.0583987, 
0526      & 0.0345056, 0.0502908, 0.0306588, 0.0396295, 0.0288304, 
0527      & 0.0421251, 0.0219412, 0.0349703, 0.0347307, 0.0155656, 
0528      & 0.0130664, 0.0244111, 0.0118618, 0.013774, 0.00844042, 
0529      & 0.00135117, 0.0017382, 0.00303308, 0.00381313, 0.00130396, 
0530      & 0.00166115, 0.00213603, 0.000208109, 0.000262821, 0.000168433, 
0531      & 0.00582894, 0.000731725, 5.7677e-05, 1.56037e-05, 0.000518099, 
0532      & 0.00223489, 8.25183e-05, 4.39619e-05, 0.000443609, 1.61955e-05, 
0533      & 0.000555297, 0.00029102, 0, 0.000327391, 0.000309739, 
0534      & 0, 0, 9.08818e-06, 0, 0, 
0535      & 0, 7.61632e-06, 0, 0, 5.22962e-06
0536      & /
0537       L32NEU = -0.471445
0538       W32NEU = 0.00967885
0539 
0540       DATA H33NEU /
0541      & 1.56896e-05, 0, 0, 0, 0, 
0542      & 0, 0.000819108, 0, 0, 0, 
0543      & 0, 0, 0, 0, 0, 
0544      & 0, 0, 0, 0, 0, 
0545      & 0, 0, 1.25835e-05, 0, 0.000195162, 
0546      & 5.25907e-05, 1.4568e-05, 0.000421462, 0.00124756, 0.00400549, 
0547      & 0.00139793, 9.40435e-05, 0.000202663, 0.00262611, 0.000125545, 
0548      & 0.00165688, 2.2365e-05, 0.00769136, 0.00473218, 0.00162649, 
0549      & 0.000885566, 0.000175325, 0.00538963, 0.0367305, 0.0146136, 
0550      & 0.00976897, 0.0141246, 0.0301663, 0.0464365, 0.051791, 
0551      & 0.0592619, 0.0331637, 0.0795604, 0.0594492, 0.0949085, 
0552      & 0.0576909, 0.0435221, 0.0499771, 0.0697453, 0.073876, 
0553      & 0.0589549, 0.0423612, 0.00672112, 0.00219569, 0.00641953, 
0554      & 0.00140651, 0.00664938, 0.00191134, 0.00371275, 0.000833115, 
0555      & 8.72552e-05, 2.0748e-05, 0.00108122, 0.00143643, 0, 
0556      & 0, 5.40422e-05, 2.87006e-05, 0.00634525, 0.000699491, 
0557      & 0, 4.98835e-05, 2.38371e-05, 5.54773e-05, 0.000696132, 
0558      & 0, 0, 0, 3.04283e-05, 0, 
0559      & 0, 0, 0, 0, 0, 
0560      & 0, 0, 0, 0, 2.86055e-05
0561      & /
0562       L33NEU = -0.232433
0563       W33NEU = 0.00425919
0564 
0565       DATA H34NEU /
0566      & 0.000235442, 0, 0, 0, 0, 
0567      & 0, 0, 0, 0, 0, 
0568      & 0, 0, 0, 4.00385e-05, 0, 
0569      & 4.55291e-05, 4.85079e-05, 5.69121e-05, 0, 0, 
0570      & 4.16753e-05, 0, 2.51483e-05, 0, 0, 
0571      & 0, 0, 0, 0, 0.000136142, 
0572      & 0.000154227, 0, 0.00051256, 0.00104553, 0.00164285, 
0573      & 0.00637789, 0.00578405, 0.0211388, 0.00237608, 0.00277102, 
0574      & 0.00184876, 0.000970813, 0.00463339, 0.00989456, 0.0138171, 
0575      & 0.00790708, 0.0349404, 0.00914218, 0.0213496, 0.0231265, 
0576      & 0.0185647, 0.0268304, 0.0250591, 0.0163613, 0.0356956, 
0577      & 0.0470915, 0.0499436, 0.0264615, 0.0446896, 0.0309903, 
0578      & 0.0518858, 0.0370907, 0.0320004, 0.00947012, 0.0255087, 
0579      & 0.0551606, 0.0255315, 0.0444019, 0.0409779, 0.0204924, 
0580      & 0.0104927, 0.0270147, 0.0168806, 0.0230228, 0.0100286, 
0581      & 0.0263643, 0.0111303, 0.00401218, 0.00531789, 0.00837543, 
0582      & 0.0023535, 0.00269155, 0.00091936, 0.00326039, 0.00148653, 
0583      & 0.00970062, 0.00051028, 0.000246868, 0.00179691, 3.37145e-05, 
0584      & 2.95953e-05, 7.42925e-06, 0, 0, 0, 
0585      & 0, 1.60677e-05, 0, 0, 3.75749e-05
0586      & /
0587       L34NEU = -0.0665261
0588       W34NEU = 0.00111369
0589 
0590       DATA H35NEU /
0591      & 0.000359611, 0, 0, 0, 0, 
0592      & 0, 0, 0, 0, 0.000127394, 
0593      & 0, 0, 0.000225838, 7.33532e-05, 0.00011184, 
0594      & 0.000149165, 0.000106805, 0, 7.26295e-05, 0.000183042, 
0595      & 0, 0.000200868, 0.00067307, 0.000119716, 0.000693133, 
0596      & 0.000384531, 0.00098862, 0.00097148, 0.000483826, 0.00968021, 
0597      & 0.0106754, 0.0118623, 0.00289643, 0.0239886, 0.0269499, 
0598      & 0.00408819, 0.00751662, 0.00480249, 0.0160473, 0.0794575, 
0599      & 0.00581381, 0.0562985, 0.0160207, 0.0100856, 0.0344336, 
0600      & 0.00876354, 0.0243842, 0.0444391, 0.0594731, 0.0802075, 
0601      & 0.0535921, 0.0536478, 0.0644943, 0.0835551, 0.0115611, 
0602      & 0.0278175, 0.0151776, 0.0113334, 0.00603947, 0.00372563, 
0603      & 0.00175986, 0.00344988, 0.00469746, 0.0110276, 0.00985067, 
0604      & 0.00237571, 0.0195481, 0.0273558, 0.00211035, 0.0101708, 
0605      & 0.000641517, 0.00806313, 0.00195481, 0.0102543, 0.00287121, 
0606      & 6.66486e-05, 0.00494309, 0, 0.000528279, 0.00100086, 
0607      & 0.000359416, 0.000391487, 0, 0.000889983, 0.000130508, 
0608      & 2.24499e-06, 0.000575558, 0, 0, 0, 
0609      & 9.92796e-05, 0, 0, 2.63862e-05, 0, 
0610      & 7.71047e-05, 0, 0, 0, 2.44903e-05
0611      & /
0612       L35NEU = -0.0236507
0613       W35NEU = 0.000470063
0614 
0615       DATA H36NEU /
0616      & 0.000353758, 0, 4.37395e-05, 0, 0.000228914, 
0617      & 0, 0, 0, 9.64638e-07, 0, 
0618      & 0, 0.00012104, 3.15237e-05, 0.000203696, 0.00028537, 
0619      & 0, 0.000110244, 6.09811e-05, 0.000181981, 0.00078505, 
0620      & 0.00010991, 0.00385923, 0.00302593, 0.000856726, 0.00128892, 
0621      & 0.000745389, 0.00116975, 0.000458986, 0.000580369, 0.000301039, 
0622      & 0.00573412, 0.000145336, 0.000393576, 0.000734006, 0.00039112, 
0623      & 0.00204628, 0.00912491, 0.00762735, 0.00247166, 0.0180656, 
0624      & 0.00549196, 0.024953, 0.0300887, 0.0474593, 0.107277, 
0625      & 0.100695, 0.144116, 0.117942, 0.105895, 0.065026, 
0626      & 0.0662132, 0.0265651, 0.0152911, 0.0206587, 0.00482174, 
0627      & 0.00114331, 0.015795, 0.000415948, 0.000681821, 1.36816e-05, 
0628      & 0.000145914, 0.000141058, 0, 0.000144306, 0, 
0629      & 0.00167981, 0.000150988, 0.000183248, 0, 1.18895e-05, 
0630      & 0, 2.94321e-05, 0.000243883, 1.16211e-05, 0.00022963, 
0631      & 0.000162776, 0.000539598, 0.000429596, 0.000436656, 0.000664901, 
0632      & 0.000398154, 0.00108362, 0.00733514, 0.000892006, 0.0018499, 
0633      & 0.000984507, 0.00508499, 0.000584526, 0.000821408, 0.00232111, 
0634      & 5.4966e-05, 0.000237926, 0.0058606, 0, 1.27014e-06, 
0635      & 0, 0, 0.000125093, 0.00505999, 1.7251e-05
0636      & /
0637       L36NEU = -0.00939484
0638       W36NEU = 0.000199562
0639 
0640       DATA H37NEU /
0641      & 7.24537e-05, 0, 0, 5.88993e-05, 0, 
0642      & 0, 3.38906e-05, 0, 0, 1.58906e-05, 
0643      & 0, 2.32821e-05, 3.67105e-05, 7.79623e-05, 0, 
0644      & 0, 2.59482e-05, 0, 0, 0, 
0645      & 0, 6.57227e-06, 0, 0, 9.67138e-05, 
0646      & 0, 0.000329726, 0.000281946, 0.000166082, 0.000718812, 
0647      & 0.000395583, 0.00130942, 0.0074158, 0.0119391, 0.0476193, 
0648      & 0.094072, 0.186822, 0.253039, 0.196485, 0.113646, 
0649      & 0.0442804, 0.0223801, 0.0138113, 0.00214339, 0.000535046, 
0650      & 0.000194283, 0.000277659, 0.000141177, 1.75671e-06, 1.97427e-06, 
0651      & 0, 0, 3.7286e-06, 0, 1.9966e-06, 
0652      & 0, 0, 0, 0, 0, 
0653      & 6.78252e-05, 3.21699e-05, 0.000188223, 0, 0, 
0654      & 0, 0, 0, 0, 0, 
0655      & 0, 0, 0, 0, 0, 
0656      & 3.93671e-05, 4.6573e-05, 0.000114059, 6.18249e-05, 0.000119954, 
0657      & 0.000108541, 2.1976e-05, 1.56955e-06, 9.28589e-05, 0, 
0658      & 0.000100949, 0.000108004, 0, 4.34293e-05, 0, 
0659      & 0, 0, 0, 1.77099e-05, 0, 
0660      & 5.24902e-06, 4.64013e-05, 0, 0.000283796, 3.92781e-05
0661      & /
0662       L37NEU = -0.00581653
0663       W37NEU = 0.000155134
0664 
0665       DATA H38NEU /
0666      & 5.48399e-06, 1.94775e-06, 0, 0, 0, 
0667      & 0, 7.44826e-06, 0, 0, 0, 
0668      & 0, 0, 0, 0, 0, 
0669      & 0, 0, 0, 0, 0, 
0670      & 0, 0, 0, 0, 0, 
0671      & 0, 0, 0, 1.57828e-06, 0, 
0672      & 0, 0, 1.69618e-06, 0, 0, 
0673      & 0, 0, 3.25041e-05, 0, 7.45212e-05, 
0674      & 5.08967e-06, 0.000106847, 3.88022e-05, 8.90179e-05, 4.85756e-05, 
0675      & 4.5083e-05, 0.000112159, 0.000276495, 0.000414776, 0.000905531, 
0676      & 0.000710511, 0.00126025, 0.00279723, 0.00207089, 0.00446914, 
0677      & 0.00820221, 0.00866096, 0.0130276, 0.0279796, 0.0339738, 
0678      & 0.0454263, 0.0693703, 0.0921945, 0.128841, 0.143724, 
0679      & 0.113641, 0.0945534, 0.0640733, 0.0460296, 0.0348119, 
0680      & 0.0184301, 0.0130199, 0.0106414, 0.00696585, 0.00463515, 
0681      & 0.00262064, 0.00143151, 0.00116368, 0.000997445, 0.00053768, 
0682      & 0.000250373, 0.000120431, 0.000224502, 0.000301552, 9.65937e-06, 
0683      & 0.000135961, 4.06519e-05, 1.23514e-05, 5.04394e-05, 9.05697e-05, 
0684      & 9.16234e-06, 3.92706e-05, 1.33391e-06, 3.92128e-05, 7.84305e-05, 
0685      & 1.07032e-05, 3.91711e-05, 8.95114e-06, 6.55194e-05, 4.31934e-05
0686      & /
0687       L38NEU = -0.00173774
0688       W38NEU = 2.69862e-05
0689 
0690       DATA H41NEU /
0691      & 1.64049e-05, 0, 2.4464e-06, 7.84855e-06, 4.86377e-06, 
0692      & 9.19709e-06, 2.47045e-05, 0.000144404, 0.000402986, 0.000521251, 
0693      & 0.00098672, 0.000439617, 0.000726202, 0.000411788, 0.000446611, 
0694      & 0.00134675, 9.36901e-05, 0.000459971, 0.000408001, 0.000470998, 
0695      & 0.000789, 0.00353683, 0.000613093, 0.00321687, 0.00198911, 
0696      & 0.00131239, 0.00313644, 0.00403683, 0.00389121, 0.00410878, 
0697      & 0.00465654, 0.00465819, 0.00364778, 0.0149975, 0.0111257, 
0698      & 0.00920688, 0.0135206, 0.0150059, 0.0137202, 0.0144023, 
0699      & 0.0120389, 0.0250951, 0.0156252, 0.0250469, 0.0190287, 
0700      & 0.0395233, 0.0313188, 0.0495471, 0.0184519, 0.0356437, 
0701      & 0.0413608, 0.0558386, 0.048175, 0.0519146, 0.0428601, 
0702      & 0.0286117, 0.0293651, 0.0246289, 0.0254217, 0.0343455, 
0703      & 0.0161735, 0.00975485, 0.0123826, 0.0129027, 0.0126235, 
0704      & 0.00881397, 0.00785335, 0.0472232, 0.00921822, 0.00569388, 
0705      & 0.00797196, 0.00576749, 0.00266946, 0.00405394, 0.00726148, 
0706      & 0.001953, 0.00262624, 0.00574208, 0.00178125, 0.00055672, 
0707      & 0.00387538, 0.00487792, 0.000713796, 0.000383466, 0.00224209, 
0708      & 0.00299479, 0.00512518, 0.000330909, 0.00153255, 0.00111604, 
0709      & 0.000226661, 7.89908e-06, 0.000625657, 0.000161516, 3.00495e-05, 
0710      & 0.000121511, 8.69096e-05, 4.69669e-06, 0.000173114, 8.24709e-06
0711      & /
0712       L41NEU = -0.765115
0713       W41NEU = 0.0148592
0714 
0715       DATA H42NEU /
0716      & 6.20584e-06, 0, 2.64471e-07, 0, 1.02824e-05, 
0717      & 0, 0, 0, 0, 7.89493e-06, 
0718      & 0.000149915, 0, 1.193e-05, 0.000125576, 0.000294385, 
0719      & 3.80564e-05, 0, 7.88357e-06, 0, 1.60822e-05, 
0720      & 0.00469343, 3.04933e-05, 0.000221048, 0.00112371, 0.00168894, 
0721      & 2.65642e-05, 0.000702387, 0.00103457, 0.00128862, 0.000166107, 
0722      & 0.000373603, 0.00204926, 0.0242555, 0.000798844, 0.0255975, 
0723      & 0.00208357, 0.00369228, 0.00240148, 0.00392971, 0.03185, 
0724      & 0.0108011, 0.0196545, 0.0257946, 0.0266086, 0.0293608, 
0725      & 0.0260015, 0.0272693, 0.0498863, 0.0434834, 0.0519907, 
0726      & 0.0749031, 0.114247, 0.0505504, 0.0647372, 0.0525846, 
0727      & 0.0415987, 0.0234487, 0.0283886, 0.0323989, 0.0340582, 
0728      & 0.00564383, 0.00938581, 0.0116806, 0.00680786, 0.00444946, 
0729      & 0.00322276, 0.00395454, 0.00198102, 0.00432215, 0.00150416, 
0730      & 0.00215966, 0.00118831, 0.000653335, 0.00165771, 0.000612786, 
0731      & 5.66095e-05, 4.10745e-05, 0.000405111, 9.90784e-05, 0.000332564, 
0732      & 1.44122e-05, 0.000793012, 2.21066e-05, 0.0025215, 6.87524e-06, 
0733      & 0, 3.28628e-06, 2.6636e-06, 8.10436e-06, 1.18921e-05, 
0734      & 1.58616e-06, 0, 0, 9.96344e-06, 0, 
0735      & 0, 0, 0, 0, 3.75524e-06
0736      & /
0737       L42NEU = -0.534901
0738       W42NEU = 0.0104422
0739 
0740       DATA H43NEU /
0741      & 2.59111e-05, 0, 0, 0, 1.34343e-05, 
0742      & 0, 0, 0, 0, 0, 
0743      & 2.27243e-05, 2.3665e-07, 0.000932743, 0, 0, 
0744      & 0.000335271, 1.38622e-05, 0, 0, 2.0748e-05, 
0745      & 1.88575e-05, 8.25281e-05, 7.44449e-05, 2.06405e-05, 5.89145e-05, 
0746      & 6.01033e-05, 0.002872, 0.00102487, 0.00334941, 0.000181634, 
0747      & 0.000975811, 0.000191069, 0.00352099, 0.0018859, 0.000643051, 
0748      & 0.00174528, 0.00310141, 0.00859035, 0.00414764, 0.00197694, 
0749      & 0.0094832, 0.0167698, 0.0185009, 0.0109231, 0.0391283, 
0750      & 0.0234628, 0.0524695, 0.113751, 0.209456, 0.129663, 
0751      & 0.0883058, 0.0327899, 0.0698579, 0.0608269, 0.0114891, 
0752      & 0.0113513, 0.0068704, 0.00688375, 0.00799258, 0.0150289, 
0753      & 0.00299501, 0.00718258, 0.00173981, 0.00640689, 0.00382635, 
0754      & 0.00157351, 0.000758845, 9.45473e-05, 7.77288e-05, 2.76032e-05, 
0755      & 0.000150193, 2.74015e-05, 2.70445e-05, 0.00254837, 0.000822273, 
0756      & 0, 8.83562e-05, 0, 1.25897e-05, 0.000634773, 
0757      & 0, 2.3541e-05, 0, 0, 0, 
0758      & 0, 0, 0, 0, 0, 
0759      & 4.14499e-05, 0, 0, 0, 0, 
0760      & 0, 0, 2.37773e-05, 0, 2.68058e-05
0761      & /
0762       L43NEU = -0.187105
0763       W43NEU = 0.00383756
0764 
0765       DATA H44NEU /
0766      & 5.25247e-05, 0, 0, 0, 0, 
0767      & 0, 0, 0, 0, 0, 
0768      & 1.23782e-05, 2.01046e-05, 0.000103259, 7.42925e-06, 0.00222548, 
0769      & 0, 0, 0, 0, 4.13546e-05, 
0770      & 0, 0.000803671, 0, 0, 6.70361e-06, 
0771      & 0, 0, 2.23139e-05, 0, 0.000103729, 
0772      & 0.000310847, 0.000252396, 0.000459471, 0.00733994, 0.000425634, 
0773      & 0.000129985, 0.00475812, 0.0114301, 0.00888761, 0.0201394, 
0774      & 0.0222622, 0.016418, 0.0252792, 0.0255105, 0.0487286, 
0775      & 0.0226594, 0.0812118, 0.0771399, 0.0876956, 0.147432, 
0776      & 0.121455, 0.0414829, 0.0267132, 0.0477542, 0.0412959, 
0777      & 0.0280993, 0.0114404, 0.0283839, 0.00998586, 0.00529295, 
0778      & 0.000806628, 0.0142164, 9.85587e-05, 0.000318031, 0.000731375, 
0779      & 0.000294948, 3.36583e-05, 5.1975e-05, 0.000483956, 0, 
0780      & 0.00814405, 3.75749e-05, 0, 0, 6.18921e-05, 
0781      & 0.000146573, 4.72166e-05, 0, 0, 7.44571e-06, 
0782      & 0.000345754, 0, 0, 0, 0, 
0783      & 0, 0, 0, 0, 0.000260841, 
0784      & 3.09776e-05, 8.75322e-05, 0, 0, 0, 
0785      & 0, 0, 0, 0, 2.11408e-05
0786      & /
0787       L44NEU = -0.0508715
0788       W44NEU = 0.00103562
0789 
0790       DATA H45NEU /
0791      & 0.000303441, 0, 0, 0, 0, 
0792      & 0, 0, 0, 0, 0, 
0793      & 0, 0, 0, 0, 0, 
0794      & 0, 0, 0.000119071, 0, 0, 
0795      & 0.000217932, 6.37885e-05, 0.000136594, 0.000168083, 0.000151622, 
0796      & 0.000411484, 0.000533457, 0.00296925, 0.0113896, 0.00112974, 
0797      & 0.000194581, 0.00994587, 0.000112315, 0.0143631, 0.000526385, 
0798      & 0.00782041, 0.0114734, 0.00204524, 0.0103929, 0.00692429, 
0799      & 0.00397553, 0.0194744, 0.00288657, 0.00175141, 0.0170003, 
0800      & 0.00189555, 0.00417579, 0.0199114, 0.00777344, 0.0139985, 
0801      & 0.01363, 0.0371546, 0.0308529, 0.0825154, 0.0642, 
0802      & 0.0589898, 0.0586967, 0.0747026, 0.0614282, 0.0497197, 
0803      & 0.0601124, 0.0300922, 0.00776687, 0.0196913, 0.0222999, 
0804      & 0.0204403, 0.0181448, 0.00180531, 0.00205752, 0.0468349, 
0805      & 0.019018, 0.00208194, 0.00526806, 0.00627106, 0.00169958, 
0806      & 0.000770964, 0.00849049, 0.00270706, 0.00421579, 0, 
0807      & 0.00143545, 0.000281431, 0.000968511, 0.00172314, 0.00905138, 
0808      & 5.77864e-05, 4.15883e-05, 0, 0.000480874, 0, 
0809      & 4.54247e-05, 0, 0, 0, 0, 
0810      & 0, 0, 0, 1.41968e-05, 6.28111e-06
0811      & /
0812       L45NEU = -0.0174705
0813       W45NEU = 0.00031283
0814 
0815       DATA H46NEU /
0816      & 0.000123687, 0, 1.02282e-05, 0, 0, 
0817      & 9.89788e-06, 0, 0, 0, 1.12016e-05, 
0818      & 1.18527e-05, 0, 0, 9.48461e-06, 0, 
0819      & 0, 0.00368946, 5.16512e-05, 0, 0, 
0820      & 0.000524903, 0, 0.00118972, 0.00051297, 0.000104534, 
0821      & 0.00239978, 0.000374581, 0, 0.000937922, 0.000427359, 
0822      & 0.000482937, 5.12191e-05, 0.0118529, 0.00666206, 0.00142875, 
0823      & 0.00435782, 0.0108731, 0.0165202, 0.0327004, 0.0657014, 
0824      & 0.0738226, 0.107029, 0.118222, 0.0878602, 0.103187, 
0825      & 0.102651, 0.0650552, 0.0614354, 0.0397635, 0.0177504, 
0826      & 0.0327964, 0.00366448, 0.00499389, 0.0139967, 0.000294371, 
0827      & 0.000534703, 0.00392911, 3.44905e-05, 0.00025021, 2.46775e-05, 
0828      & 0.000351973, 3.00558e-05, 0.000289113, 2.41109e-05, 6.38801e-05, 
0829      & 0.00062634, 8.55734e-05, 6.11093e-05, 1.73367e-05, 0, 
0830      & 1.68077e-05, 0, 0, 0, 0, 
0831      & 0, 9.72131e-06, 9.985e-06, 0, 0, 
0832      & 0, 0, 2.48323e-05, 0, 0, 
0833      & 0, 0, 0, 0, 0, 
0834      & 0, 0, 0, 0, 0, 
0835      & 0, 0, 0, 0, 7.42104e-05
0836      & /
0837       L46NEU = -0.0074226
0838       W46NEU = 0.000170691
0839 
0840       DATA H47NEU /
0841      & 3.92658e-06, 2.0265e-06, 0, 0, 0, 
0842      & 0, 0, 1.86252e-06, 0, 0.0001627, 
0843      & 7.04849e-06, 0.000130494, 0, 0, 2.52655e-06, 
0844      & 0, 0, 1.35859e-05, 0, 0, 
0845      & 0, 0, 2.43966e-05, 0.000101942, 0.00058113, 
0846      & 0, 8.01133e-06, 0.00101568, 0.000395112, 7.54884e-06, 
0847      & 1.94336e-05, 0.000478171, 0.000115867, 4.51676e-05, 0.00120762, 
0848      & 0.000811775, 0.00158548, 0.00166524, 0.00137326, 0.00115586, 
0849      & 0.00245185, 0.00861506, 0.00729042, 0.00476411, 0.0105251, 
0850      & 0.00998742, 0.0180748, 0.0359738, 0.026957, 0.0455585, 
0851      & 0.0543202, 0.0754129, 0.0694508, 0.0737044, 0.0841954, 
0852      & 0.0849647, 0.0845216, 0.0658581, 0.0490747, 0.036986, 
0853      & 0.033217, 0.0253107, 0.0239126, 0.0133098, 0.0120306, 
0854      & 0.00914787, 0.00341726, 0.00414832, 0.0033875, 0.00274243, 
0855      & 0.00309745, 0.000273133, 0.0013918, 0.00232295, 0.000767001, 
0856      & 0.000467004, 0.000640969, 7.2525e-06, 3.4165e-05, 0.000344864, 
0857      & 0.000186327, 1.37599e-05, 4.52081e-05, 5.17993e-06, 1.76142e-05, 
0858      & 0, 0, 0, 8.82511e-06, 0.000104383, 
0859      & 0, 0, 0, 0, 1.28568e-05, 
0860      & 3.61134e-06, 0, 0, 0, 2.88923e-05
0861      & /
0862       L47NEU = -0.00274056
0863       W47NEU = 5.04322e-05
0864 
0865       DATA H48NEU /
0866      & 1.28766e-06, 0, 0, 0, 3.4189e-05, 
0867      & 0, 3.18026e-05, 0, 3.42694e-05, 0.000105504, 
0868      & 7.12416e-05, 3.27031e-06, 3.57128e-05, 5.25806e-06, 0.000125236, 
0869      & 3.29265e-05, 3.6255e-05, 7.74005e-06, 4.71135e-05, 0.000119102, 
0870      & 0.000162711, 0.000174042, 0.000476769, 5.87821e-05, 0.000360872, 
0871      & 0.000249613, 0.000350273, 0.000176954, 0.000488376, 0.00155093, 
0872      & 0.00151651, 0.0015662, 0.00178656, 0.00232024, 0.00413826, 
0873      & 0.0076374, 0.0050321, 0.00665827, 0.0101034, 0.0134837, 
0874      & 0.0190117, 0.0195453, 0.023812, 0.0287611, 0.0366068, 
0875      & 0.0477162, 0.048309, 0.0622444, 0.0737412, 0.0759557, 
0876      & 0.069943, 0.0747801, 0.0583169, 0.0535502, 0.0525436, 
0877      & 0.0363189, 0.0387831, 0.0272673, 0.0229595, 0.0169362, 
0878      & 0.0116299, 0.00969643, 0.00763088, 0.0044649, 0.00376807, 
0879      & 0.00229037, 0.00277122, 0.00223008, 0.00217628, 0.0015393, 
0880      & 0.00113429, 0.000981391, 0.000244465, 0.000255529, 0.000768596, 
0881      & 0.00041846, 0.000262154, 6.06321e-05, 0.000130966, 0.000575215, 
0882      & 0.000151385, 6.91482e-05, 6.91525e-05, 8.37398e-05, 0.000117846, 
0883      & 7.46869e-05, 0.000105824, 2.74274e-06, 3.48635e-05, 2.09138e-06, 
0884      & 3.71503e-05, 3.17378e-05, 1.70379e-06, 3.6581e-05, 0, 
0885      & 6.47985e-07, 3.26182e-05, 1.08286e-06, 3.1994e-05, 6.56761e-07
0886      & /
0887       L48NEU = -0.00079046
0888       W48NEU = 1.57775e-05
0889 
0890       RETURN
0891 
0892       END