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_PIM()   !   auto. created by droll (10/6/2005)
0004 *     generated rate: GR_PIM [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_PIM(N_BIN),LOW,WID,LOG_EK,R_VAL,S_RATE
0015 
0016       DATA R0_PIM /
0017      & 49408.8, 41620.2, 32810.1, 43395.8, 38031.5, 
0018      & 33334.1, 33052.4, 25242.1, 48398.2, 29097.6, 
0019      & 34685, 46197.8, 41009.1, 29785.5, 33225.2, 
0020      & 32128.5, 36325.7, 24323.8, 32518.6, 23748.5, 
0021      & 33522.6, 30663, 35625.3, 37459, 30002, 
0022      & 35807.3, 33448.1, 21379.6, 25745.1, 41166.8, 
0023      & 24970.4, 36076.5, 25936, 19272.6, 20808.4, 
0024      & 26606.6, 25919.7, 25905.4, 23750.3, 19152.2, 
0025      & 18692.6, 23910.7, 16248.9, 17587.8, 16733.7, 
0026      & 16134.7, 15541.6, 13599.6, 12231.9, 9855.77, 
0027      & 8162.1, 9333.98, 12948.4, 10683.9, 13018.6, 
0028      & 9819.41, 8630.91, 7488.54, 8432.98, 11017.5, 
0029      & 10704.8, 13846.1, 14327, 14892.7, 10218.7, 
0030      & 10923.9, 15660, 14160.9, 15406.9, 19307.1, 
0031      & 15752.2, 18906.4, 16935.2, 19426.2, 19661.1, 
0032      & 22562, 17900.7, 18740.1, 19769.2, 19022.8, 
0033      & 18348.6, 17050.1, 17274.4, 13491.5, 10986.1, 
0034      & 10162.4, 8176.94, 6282.46, 4497.71, 3274.66, 
0035      & 2261.98, 1842.87, 1539.18, 1225.18, 757.911, 
0036      & 396.71, 138.203, 57.4192, 8.23459, 0.26813
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(EPIMIN)) - 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_PIM(IBIN)
0048          S_RATE = S_RATE + R_VAL
0049       IF ((LOG_EK+LE_INC).LT.LOG(EPIMAX)) GOTO 111
0050       ! calculate the actual rate
0051       GR_PIM = REAL(S_RATE*LE_INC) ! total rate [Hz]
0052 
0053       RETURN
0054 
0055       END
0056 
0057 ************************************************************************
0058       SUBROUTINE F66PIM  !  automatically created by droll (10/6/2005)
0059 *     fill histograms H##PIM more infos in kine/kicdes/bhgrhists.inc
0060 ************************************************************************
0061 
0062       IMPLICIT NONE
0063 #include "GeneratorInterface/BeamHaloGenerator/interface/bhgrhists.inc"
0064 
0065       DATA H01PIM /
0066      & 0.0248595, 0.0209407, 0.016508, 0.0218341, 0.0191351, 
0067      & 0.0167716, 0.0166299, 0.0127002, 0.024351, 0.0146401, 
0068      & 0.0174513, 0.0232439, 0.0206332, 0.0149862, 0.0167169, 
0069      & 0.0161651, 0.0182769, 0.0122382, 0.0163614, 0.0119488, 
0070      & 0.0168665, 0.0154277, 0.0179245, 0.018847, 0.0150952, 
0071      & 0.018016, 0.016829, 0.0107569, 0.0129533, 0.0207126, 
0072      & 0.0125636, 0.0181515, 0.0130494, 0.00969676, 0.0104695, 
0073      & 0.0133868, 0.0130412, 0.013034, 0.0119497, 0.00963622, 
0074      & 0.00940494, 0.0120304, 0.00817546, 0.0088491, 0.00841937, 
0075      & 0.00811801, 0.00781959, 0.00684247, 0.00615433, 0.00495881, 
0076      & 0.00410667, 0.00469628, 0.00651485, 0.00537548, 0.00655013, 
0077      & 0.00494052, 0.00434254, 0.00376777, 0.00424295, 0.0055433, 
0078      & 0.00538602, 0.00696652, 0.00720848, 0.00749307, 0.00514143, 
0079      & 0.00549624, 0.00787913, 0.00712491, 0.00775178, 0.00971414, 
0080      & 0.00792553, 0.00951251, 0.00852073, 0.00977408, 0.00989224, 
0081      & 0.0113518, 0.00900651, 0.00942886, 0.00994666, 0.00957108, 
0082      & 0.0092319, 0.00857853, 0.00869141, 0.00678808, 0.0055275, 
0083      & 0.00511308, 0.00411413, 0.00316095, 0.00226297, 0.00164761, 
0084      & 0.00113809, 0.00092722, 0.000774421, 0.000616437, 0.000381334, 
0085      & 0.0001996, 6.95354e-05, 2.88898e-05, 4.14314e-06, 1.34906e-07
0086      & /
0087       L01PIM = 0
0088       W01PIM = 0.088537
0089 
0090       DATA H11PIM /
0091      & 1.25389e-06, 0, 0, 0, 0, 
0092      & 0, 0, 0, 0, 0, 
0093      & 0, 0, 0, 0, 0, 
0094      & 0, 0, 0, 0, 0, 
0095      & 0, 0, 0, 0, 0, 
0096      & 1.18857e-05, 8.43638e-06, 0.000282502, 3.42187e-05, 0.000624741, 
0097      & 0.000348497, 0.000366085, 0.00083954, 0.000555079, 0.000208945, 
0098      & 0.0028764, 0.00153898, 0.00302795, 0.00125248, 0.00162283, 
0099      & 0.00161369, 0.00132031, 0.00281203, 0.00149533, 0.00960677, 
0100      & 0.00624786, 0.00708984, 0.00160278, 0.0056744, 0.00124628, 
0101      & 0.00821272, 0.0169996, 0.0274633, 0.0170275, 0.0118643, 
0102      & 0.0172004, 0.0163518, 0.0215653, 0.0230675, 0.0144936, 
0103      & 0.0226615, 0.0153241, 0.0186418, 0.00412563, 0.0140725, 
0104      & 0.0241822, 0.0413027, 0.236437, 0.0877301, 0.0176967, 
0105      & 0.00976283, 0.0166375, 0.0146607, 0.0187228, 0.0272674, 
0106      & 0.0202735, 0.0148787, 0.0368766, 0.0103041, 0.0188852, 
0107      & 0.0158507, 0.0243284, 0.0246017, 0.0219369, 0.0134613, 
0108      & 0.000163597, 7.78837e-05, 0.000638086, 0.00131434, 0.000609083, 
0109      & 1.83605e-05, 5.8196e-11, 6.93246e-09, 0, 2.59872e-09, 
0110      & 0, 0, 0, 0, 5.49899e-07
0111      & /
0112       L11PIM = -518.243
0113       W11PIM = 7.66432
0114 
0115       DATA H12PIM /
0116      & 1.22846e-05, 2.4992e-05, 3.72457e-06, 0.000255367, 0.000727447, 
0117      & 2.37797e-05, 1.38776e-05, 0.000602063, 3.2611e-05, 8.26928e-06, 
0118      & 0.0019371, 6.93869e-05, 0.00110898, 0.000197522, 0.000429024, 
0119      & 0.000132572, 0.00044926, 0.000561977, 5.11244e-05, 0.00115433, 
0120      & 9.42074e-05, 0.00122372, 0.00169169, 0.000415414, 0.000759889, 
0121      & 0.000693711, 0.000702825, 0.000528499, 0.00475592, 0.00113956, 
0122      & 0.00120069, 0.000186088, 0.000557491, 7.99672e-06, 3.05489e-05, 
0123      & 4.10435e-05, 0.00218143, 0.00794872, 0.0133772, 0.00666336, 
0124      & 0.0252851, 0.0169506, 0.0148893, 0.0164936, 0.0135055, 
0125      & 0.0134591, 0.0150183, 0.00837725, 0.0176531, 0.0131138, 
0126      & 0.0158441, 0.0142176, 0.00643452, 0.00425276, 0.00690787, 
0127      & 0.0254232, 0.00847061, 0.0119392, 0.0101881, 0.0137468, 
0128      & 0.00730364, 0.0107383, 0.0339279, 0.141641, 0.0887266, 
0129      & 0.00933203, 0.00905704, 0.00770377, 0.00790873, 0.00506938, 
0130      & 0.0121047, 0.0092462, 0.0110094, 0.00889281, 0.0211706, 
0131      & 0.00484825, 0.0157543, 0.0159497, 0.00979296, 0.016006, 
0132      & 0.00945906, 0.0201139, 0.0203147, 0.0114494, 0.0290527, 
0133      & 0.0240136, 0.0380452, 0.0327086, 0.00930426, 0.0141923, 
0134      & 0.0198915, 0.000232492, 0.000297414, 5.10173e-05, 1.07069e-09, 
0135      & 0.000314643, 1.0339e-05, 0.000173295, 1.34687e-05, 1.26894e-05
0136      & /
0137       L12PIM = -305.748
0138       W12PIM = 4.78967
0139 
0140       DATA H13PIM /
0141      & 1.37728e-05, 1.51884e-05, 0, 1.24918e-05, 0, 
0142      & 1.40761e-05, 1.37426e-05, 0, 5.19452e-05, 5.59863e-05, 
0143      & 1.46322e-05, 0.000395262, 3.07689e-05, 0, 3.99325e-05, 
0144      & 0.000474105, 3.60474e-06, 0.0022501, 1.25629e-05, 0.000719348, 
0145      & 0.000191867, 8.63381e-06, 4.11371e-05, 3.06043e-05, 0.000536229, 
0146      & 1.55345e-06, 0.000542471, 0.000548593, 2.82174e-05, 0.000320616, 
0147      & 0, 0.000147097, 0, 0.000613519, 1.49093e-05, 
0148      & 7.20642e-05, 0.00573514, 0.0109285, 0.0131035, 0.0239983, 
0149      & 0.0117038, 0.0163793, 0.0228736, 0.0287034, 0.0284721, 
0150      & 0.0245925, 0.0190351, 0.0153986, 0.0284458, 0.0189792, 
0151      & 0.0129718, 0.0266582, 0.0115989, 0.0114849, 0.0283652, 
0152      & 0.0170913, 0.00745636, 0.00788611, 0.00129406, 0.00588657, 
0153      & 0.00838735, 0.00430625, 0.00836, 0.0117461, 0.0925365, 
0154      & 0.0902364, 0.00868132, 0.00149462, 0.00112843, 0.00279143, 
0155      & 0.00403391, 0.00479198, 0.00824875, 0.00302571, 0.00191486, 
0156      & 0.00429891, 0.00277875, 0.00598759, 0.00794679, 0.0167507, 
0157      & 0.0169456, 0.0216171, 0.0295639, 0.0205798, 0.0201352, 
0158      & 0.0170435, 0.0158279, 0.0202492, 0.0392397, 0.0238967, 
0159      & 0.0180683, 0.0201777, 0.0211779, 0.0187241, 7.47656e-05, 
0160      & 2.7576e-05, 0, 1.56572e-05, 0, 0.000931703
0161      & /
0162       L13PIM = -289.294
0163       W13PIM = 4.46085
0164 
0165       DATA H14PIM /
0166      & 0.000728671, 0.000663948, 0, 0.000197256, 0.00138428, 
0167      & 0.000654527, 0, 0, 0, 0, 
0168      & 0.00108414, 2.17564e-05, 3.50724e-05, 0, 0.000107371, 
0169      & 0.000112084, 7.67161e-05, 0.000926695, 0.000745147, 0.000746851, 
0170      & 0, 0, 0, 0, 0, 
0171      & 0.00188949, 0.00507452, 0.00670416, 0.00635669, 0.0152683, 
0172      & 0.0161954, 0.0167055, 0.014667, 0.0231438, 0.0195914, 
0173      & 0.013001, 0.0156877, 0.0242998, 0.0149133, 0.0199569, 
0174      & 0.0248027, 0.0159059, 0.0212077, 0.0196348, 0.0164492, 
0175      & 0.0155111, 0.00954387, 0.0166851, 0.0179056, 0.0149997, 
0176      & 0.0168804, 0.0035468, 0.00454376, 0.00401588, 0.00820862, 
0177      & 0.00432276, 0.00217538, 0.00909088, 0.103675, 0.0582597, 
0178      & 0.00323112, 0.00226658, 0.00264422, 0.00219028, 0.00610417, 
0179      & 0.00228047, 0.00105362, 0.00203058, 0.00172618, 0.00812604, 
0180      & 0.00607181, 0.00249178, 0.00677945, 0.00585839, 0.0228726, 
0181      & 0.0108624, 0.0118809, 0.0146819, 0.0221377, 0.0238464, 
0182      & 0.0241053, 0.0181905, 0.0270912, 0.0156171, 0.0197807, 
0183      & 0.0224588, 0.0229258, 0.0170106, 0.0235943, 0.0157969, 
0184      & 0.0126606, 0.00802805, 0.00529555, 0, 0, 
0185      & 0, 0, 0, 0, 3.12827e-06
0186      & /
0187       L14PIM = -226.872
0188       W14PIM = 3.85205
0189 
0190       DATA H15PIM /
0191      & 0.000101299, 0, 0, 0, 0, 
0192      & 0, 0, 0, 0, 0, 
0193      & 0, 0, 0, 0, 0, 
0194      & 0, 0, 0, 0, 0, 
0195      & 0, 0, 3.88675e-05, 0, 3.05209e-05, 
0196      & 0, 0.000965525, 0, 2.98918e-05, 0, 
0197      & 0, 0, 0, 0.00828743, 0.0243952, 
0198      & 0.0162333, 0.0261793, 0.0106639, 0.0177557, 0.0220143, 
0199      & 0.0211899, 0.0244844, 0.0187852, 0.0261945, 0.00807798, 
0200      & 0.0194559, 0.00750477, 0.0307286, 0.0361502, 0.0332622, 
0201      & 0.0351507, 0.0138946, 0.00877707, 0.0199723, 0.000923961, 
0202      & 0.00518091, 0.00754662, 0.015598, 0.00918787, 0.00710647, 
0203      & 0.00198634, 0.00180133, 0.00576372, 0.00075221, 0.00567941, 
0204      & 0.0141116, 0.276758, 0.0215745, 0.00174046, 0.00125343, 
0205      & 0.000406056, 0.00190669, 0.000381845, 0.00217409, 0.000752975, 
0206      & 0.00301948, 0.0126144, 0.00205249, 0.00339282, 0.0036371, 
0207      & 0.00270741, 0.00458441, 0.0084203, 0.00689674, 0.00989223, 
0208      & 0.0189053, 0.0214438, 0.0135477, 0.020669, 0.011302, 
0209      & 0.0104782, 0.00184848, 0.00753643, 0.00627996, 0.00209115, 
0210      & 0.00342286, 0.0017826, 0.000406395, 0.00439348, 0.00576529
0211      & /
0212       L15PIM = -258.483
0213       W15PIM = 3.88786
0214 
0215       DATA H16PIM /
0216      & 2.33569e-05, 0, 0, 0, 0, 
0217      & 0, 0, 0, 0, 0, 
0218      & 0, 0, 0, 0, 0, 
0219      & 0, 0, 0.00049781, 0.00663173, 0.0189243, 
0220      & 0.0189548, 0.0164709, 0.0137325, 0.0149471, 0.0243446, 
0221      & 0.01516, 0.0152663, 0.0224681, 0.0196742, 0.0112183, 
0222      & 0.0165183, 0.0152036, 0.0161056, 0.0221626, 0.0111186, 
0223      & 0.027941, 0.0156845, 0.0144541, 0.0170123, 0.0179384, 
0224      & 0.0254903, 0.00417384, 0.00121993, 0.000648106, 0, 
0225      & 0.00115481, 0.000189433, 0.00552836, 0.00674625, 0.00546203, 
0226      & 0.000479414, 0.000515544, 0, 0, 0, 
0227      & 0, 0.000176608, 0, 0.0086631, 0.553605, 
0228      & 0.00263562, 0, 0, 0, 0, 
0229      & 0, 3.05822e-05, 0, 0.000126336, 4.83183e-05, 
0230      & 9.9999e-05, 0.000110786, 0.000168242, 0, 5.87448e-06, 
0231      & 3.02088e-05, 0.000304241, 3.18555e-05, 0.000523756, 9.73175e-05, 
0232      & 0, 0.000174929, 0.00335823, 0.000710357, 0.000352008, 
0233      & 0.00152676, 0.00016322, 0.000644883, 0.0003191, 0.000852437, 
0234      & 0.000149756, 0.00051892, 3.46842e-05, 0.000341784, 0.000117623, 
0235      & 0, 0, 0, 0, 1.66635e-05
0236      & /
0237       L16PIM = -184.441
0238       W16PIM = 3.10815
0239 
0240       DATA H17PIM /
0241      & 0.000160371, 0.0013041, 0.00139441, 0.00122811, 0.00416336, 
0242      & 0.00361616, 0.00286859, 0.00283637, 0.00219773, 0.00709632, 
0243      & 0.00699159, 0.00959134, 0.00443029, 0.0107855, 0.00693414, 
0244      & 0.00752742, 0.00624852, 0.00975732, 0.0118353, 0.00856289, 
0245      & 0.0150219, 0.00859524, 0.0137728, 0.0145969, 0.0143231, 
0246      & 0.010669, 0.016351, 0.0173863, 0.016565, 0.018758, 
0247      & 0.0185984, 0.0185828, 0.0145414, 0.0216932, 0.0128954, 
0248      & 0.00463964, 0.0004069, 6.70265e-07, 0.000128647, 7.92823e-05, 
0249      & 7.13538e-05, 3.71222e-05, 0.000138627, 0.00385553, 0.00926635, 
0250      & 0.0089615, 0.00736223, 0.00928485, 0.000792698, 3.92146e-05, 
0251      & 0.00018667, 0, 0, 0, 0, 
0252      & 0, 0, 0, 0, 0, 
0253      & 0.0123902, 0.5264, 0.0738277, 5.14972e-06, 0, 
0254      & 0, 0, 0, 0, 0, 
0255      & 0, 0, 0, 0.000158818, 0, 
0256      & 0, 0, 0, 0, 0, 
0257      & 5.20729e-06, 0, 0, 1.82953e-05, 0, 
0258      & 0, 0, 0, 0, 0, 
0259      & 0, 5.24057e-06, 0, 0, 0, 
0260      & 0, 3.60636e-06, 3.88883e-05, 0, 1.49797e-05
0261      & /
0262       L17PIM = -129.891
0263       W17PIM = 2.10367
0264 
0265       DATA H18PIM /
0266      & 6.43681e-05, 0, 3.76392e-05, 0.000146521, 0.000288641, 
0267      & 0.000439969, 0.00100349, 0.00122832, 0.000810617, 0.00137038, 
0268      & 0.00341564, 0.00442033, 0.00981503, 0.00733786, 0.0160726, 
0269      & 0.0158064, 0.00432521, 0.000166826, 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.000748711, 
0274      & 0.0122221, 0.011043, 0.0107708, 0.0120695, 0.0101488, 
0275      & 0.0132225, 0.0116804, 0.00842895, 0.00936842, 0.00761195, 
0276      & 0.00534645, 0.0108241, 0.0101537, 0.00857824, 0, 
0277      & 0, 0, 0, 0, 4.16053e-05, 
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, 0, 0, 0, 
0283      & 0, 0, 0, 0, 0, 
0284      & 0, 9.86227e-05, 0.00342313, 0.0157436, 0.125044, 
0285      & 0.503776, 0.108936, 0.0168279, 0.0118519, 0.00528959
0286      & /
0287       L18PIM = -66.0762
0288       W18PIM = 0.692173
0289 
0290       DATA H21PIM /
0291      & 3.87973e-09, 0, 0, 0, 1.25389e-06, 
0292      & 1.37116e-11, 1.16996e-08, 0, 1.7921e-06, 0, 
0293      & 0, 1.48842e-06, 2.76478e-05, 1.17703e-05, 2.74631e-05, 
0294      & 0.00220826, 0.00247035, 0.00780222, 0.0192563, 0.0197512, 
0295      & 0.0121988, 0.00890166, 0.00804122, 0.00606816, 0.00736806, 
0296      & 0.0275118, 0.0136143, 0.00896476, 0.0120342, 0.0172244, 
0297      & 0.0103184, 0.0166965, 0.01457, 0.0169776, 0.0200576, 
0298      & 0.0152217, 0.0418548, 0.0669036, 0.20207, 0.127037, 
0299      & 0.0353649, 0.0227043, 0.0109762, 0.0179383, 0.0144385, 
0300      & 0.0113631, 0.0127208, 0.0127451, 0.0173829, 0.00866161, 
0301      & 0.00579751, 0.0103256, 0.00423977, 0.0210053, 0.0135988, 
0302      & 0.0182991, 0.012268, 0.00799777, 0.00684007, 0.00828242, 
0303      & 0.00558124, 0.00286708, 0.00119661, 9.93132e-05, 0.00408349, 
0304      & 9.0729e-05, 0.000558895, 0.00329422, 0.000384104, 9.19292e-05, 
0305      & 5.37756e-05, 6.14163e-05, 6.82173e-05, 4.89462e-05, 9.70456e-05, 
0306      & 0.000358941, 0.000363097, 8.13842e-05, 7.70753e-06, 0.000107119, 
0307      & 3.44884e-05, 1.62995e-05, 6.0942e-06, 1.23096e-05, 0, 
0308      & 8.87121e-06, 0.00227083, 1.12411e-05, 0, 0, 
0309      & 0, 2.2764e-08, 0, 0, 2.52074e-08, 
0310      & 0, 0, 0, 0, 1.06771e-09
0311      & /
0312       L21PIM = -215.519
0313       W21PIM = 5.58025
0314 
0315       DATA H22PIM /
0316      & 7.11897e-06, 0.00155371, 0.00100773, 0.00319692, 0.00137621, 
0317      & 0.0115039, 0.00171483, 0.00526734, 0.00372236, 0.0177284, 
0318      & 0.00501985, 0.00551973, 0.0112128, 0.00734577, 0.017337, 
0319      & 0.00871432, 0.00665066, 0.00484471, 0.00506272, 0.0196847, 
0320      & 0.00486225, 0.0109316, 0.00690817, 0.00878507, 0.00561024, 
0321      & 0.0098605, 0.00991975, 0.0188834, 0.00977251, 0.0279023, 
0322      & 0.0415264, 0.0272016, 0.0670611, 0.12644, 0.15607, 
0323      & 0.0408258, 0.0150332, 0.0191012, 0.019955, 0.0114389, 
0324      & 0.0102763, 0.00561369, 0.0133455, 0.0236866, 0.00825817, 
0325      & 0.00309982, 0.00561034, 0.00891079, 0.011723, 0.0115947, 
0326      & 0.0052935, 0.00779407, 0.00825406, 0.0136072, 0.00830302, 
0327      & 0.0125431, 0.00707328, 0.00441657, 0.00917683, 0.00746515, 
0328      & 0.00770907, 0.00928126, 0.000469946, 0.00812299, 0.00513452, 
0329      & 0.00152637, 0.00228478, 0.000298954, 8.97177e-06, 8.34014e-06, 
0330      & 0, 6.33215e-09, 0.000360297, 5.74602e-05, 2.71629e-05, 
0331      & 7.66889e-06, 1.24864e-05, 0, 4.93157e-09, 0, 
0332      & 3.00142e-05, 1.9338e-09, 4.99634e-05, 6.59449e-05, 0, 
0333      & 1.87462e-05, 1.28114e-05, 0.000282346, 1.14526e-05, 0.000393124, 
0334      & 4.64863e-06, 0, 1.43851e-05, 1.38776e-05, 0.000875963, 
0335      & 0.000271201, 1.18403e-05, 2.04479e-05, 0, 7.26602e-06
0336      & /
0337       L22PIM = -133.86
0338       W22PIM = 3.93884
0339 
0340       DATA H23PIM /
0341      & 1.0321e-07, 0.000109249, 0.00138726, 0.0289692, 0.00564787, 
0342      & 0.00482746, 0.00551963, 0.00180479, 0.00372526, 0.00289265, 
0343      & 0.00542475, 0.00376724, 0.00665344, 0.00563815, 0.00345371, 
0344      & 0.00479561, 0.00353198, 0.00942233, 0.00737672, 0.00343746, 
0345      & 0.00617161, 0.0108414, 0.00218919, 0.00945685, 0.00779389, 
0346      & 0.00877658, 0.00887198, 0.00649823, 0.012098, 0.0198845, 
0347      & 0.0268327, 0.0404312, 0.0421915, 0.0829683, 0.16782, 
0348      & 0.0924124, 0.0648186, 0.046844, 0.0159821, 0.011606, 
0349      & 0.0191519, 0.00796732, 0.0213568, 0.00730359, 0.0174758, 
0350      & 0.00990237, 0.00430132, 0.0111957, 0.0115907, 0.0129696, 
0351      & 0.00872781, 0.00317332, 0.00455261, 0.00363408, 0.00665916, 
0352      & 0.00203421, 0.0112154, 0.0040126, 0.00709781, 0.0118181, 
0353      & 0.00363412, 0.00222048, 0.004743, 0.00289494, 0.00471029, 
0354      & 0.0011159, 0.000580759, 0.000751927, 1.45933e-05, 5.33965e-05, 
0355      & 2.24906e-05, 0, 0, 0, 0, 
0356      & 0, 0, 0, 1.49039e-05, 3.67511e-05, 
0357      & 2.33968e-05, 6.32551e-05, 0, 1.39032e-05, 1.33124e-05, 
0358      & 0, 1.77109e-05, 0, 0, 0, 
0359      & 2.68867e-05, 0, 1.03474e-05, 1.23326e-05, 0, 
0360      & 0, 0, 0, 0, 1.08768e-05
0361      & /
0362       L23PIM = -131.332
0363       W23PIM = 3.79417
0364 
0365       DATA H24PIM /
0366      & 5.52046e-05, 0.0010476, 0.00181383, 0.00139378, 0.000499964, 
0367      & 0.000745033, 0.00141995, 0.00312523, 0.00161123, 0.00106603, 
0368      & 0.00873166, 0.00272057, 0.0044055, 0.011084, 0.0025385, 
0369      & 0.014729, 0.00544576, 0.00934752, 0.00520394, 0.00863983, 
0370      & 0.00352722, 0.0121841, 0.00541075, 0.00180863, 0.00112107, 
0371      & 0.00432944, 0.0128034, 0.00286923, 0.00202214, 0.00781314, 
0372      & 0.00467403, 0.00235786, 0.0158321, 0.00545174, 0.010055, 
0373      & 0.00290972, 0.00700976, 0.00992462, 0.0052054, 0.0118287, 
0374      & 0.0147163, 0.0216036, 0.0351074, 0.0378175, 0.0555173, 
0375      & 0.09811, 0.125091, 0.0755055, 0.0236782, 0.039657, 
0376      & 0.0338865, 0.0295048, 0.00805449, 0.00945455, 0.00826879, 
0377      & 0.00816255, 0.00837331, 0.0146351, 0.00674932, 0.00392629, 
0378      & 0.00637671, 0.0085693, 0.00645887, 0.00838065, 0.00315612, 
0379      & 0.00167423, 0.00440817, 0.00257792, 0.00341603, 0.00195022, 
0380      & 0.00475964, 0.0016738, 0.00168882, 0.00310545, 0.00197233, 
0381      & 0.0048122, 0.0147982, 0.00860451, 0.00441465, 0.00171693, 
0382      & 0.00243285, 0.000779477, 0.0041057, 0.00294536, 0.00984075, 
0383      & 0.00144905, 0.00129636, 0.00195938, 0.00254598, 0.00335602, 
0384      & 0.000237163, 0.00140348, 0.000222354, 0.000293167, 2.4054e-05, 
0385      & 0, 0, 0, 0, 1.2758e-05
0386      & /
0387       L24PIM = -124.342
0388       W24PIM = 2.6875
0389 
0390       DATA H25PIM /
0391      & 0.000165783, 0.000558016, 0.000492563, 0.00414251, 0, 
0392      & 5.11787e-05, 2.48451e-05, 0.00028202, 0.000232371, 0.000893595, 
0393      & 0.00253609, 0.000791343, 0.00102644, 0.00207334, 0.00346263, 
0394      & 0.000813749, 0.00150205, 0.000844927, 0.000847791, 0.00220355, 
0395      & 0.00757465, 0.00102468, 0.000909212, 0.00127374, 0.00473499, 
0396      & 0.000390603, 0.000491486, 0.00123112, 0.000407166, 0.00474211, 
0397      & 0.00226373, 0.00593669, 0.00430705, 0.00908574, 0.00745816, 
0398      & 0.00488481, 0.0064575, 0.00283528, 0.00417191, 0.00347581, 
0399      & 0.0137311, 0.00759555, 0.0165817, 0.0264472, 0.0447095, 
0400      & 0.0323738, 0.0321345, 0.133685, 0.190204, 0.124765, 
0401      & 0.0539715, 0.0207033, 0.0292458, 0.0127651, 0.0215929, 
0402      & 0.0128811, 0.0128968, 0.00441469, 0.0134146, 0.0106517, 
0403      & 0.0111838, 0.0041322, 0.00636753, 0.00515608, 0.00230362, 
0404      & 0.0108344, 0.00118604, 0.00467214, 0.00612937, 0.00631052, 
0405      & 0.00461452, 0.000993298, 0.000921068, 0.00184273, 0.00574636, 
0406      & 0.000688697, 0.000454894, 0.000601822, 0.00194973, 0.00157927, 
0407      & 0.000736311, 0.000312394, 0.00169466, 0.00150695, 0.00223133, 
0408      & 0.00139122, 0.000215209, 0.000127437, 0.000962115, 0.000263722, 
0409      & 3.46928e-05, 0.000123144, 0, 0.000115114, 0.00013332, 
0410      & 0.000615416, 3.0288e-05, 0.000224671, 6.35231e-05, 0.000183718
0411      & /
0412       L25PIM = -119.166
0413       W25PIM = 2.45248
0414 
0415       DATA H26PIM /
0416      & 7.37173e-05, 0, 4.50132e-05, 7.53652e-05, 0, 
0417      & 0, 0.000133473, 0, 0, 0, 
0418      & 0, 0, 0, 0, 0, 
0419      & 0.000738527, 0, 0, 0, 0, 
0420      & 0, 0, 0, 9.35539e-06, 0, 
0421      & 0.00111507, 0.000997785, 0.00206082, 0, 0.00100629, 
0422      & 1.7364e-05, 0.000567789, 0.000959052, 0.000903227, 0.00279946, 
0423      & 0.0039644, 0.00293022, 0.000605615, 0.00360932, 0.00516009, 
0424      & 0.00538239, 0.00355253, 0.0117349, 0.00375503, 0.00365666, 
0425      & 0.0114072, 0.016341, 0.0114775, 0.0163797, 0.0203107, 
0426      & 0.0143326, 0.0480555, 0.0900132, 0.170474, 0.230433, 
0427      & 0.088646, 0.0658653, 0.021786, 0.0207721, 0.0163894, 
0428      & 0.0136885, 0.0114353, 0.0129162, 0.0113219, 0.00797104, 
0429      & 0.00215155, 0.00641483, 0.00386277, 0.00721977, 0.000827558, 
0430      & 0.00282096, 0.00111774, 0.00133688, 2.36635e-05, 0.00337857, 
0431      & 0.000809184, 6.18317e-05, 0.00415146, 7.86654e-05, 8.80878e-05, 
0432      & 0.00147449, 2.94674e-05, 0.00125232, 0, 0.000979641, 
0433      & 0.00137498, 0.00152001, 0, 0.000716499, 0.00115586, 
0434      & 0, 0, 0, 0, 0, 
0435      & 0, 0, 0, 0, 0.00128367
0436      & /
0437       L26PIM = -64.0007
0438       W26PIM = 1.18441
0439 
0440       DATA H27PIM /
0441      & 1.47293e-05, 0, 0, 0, 0, 
0442      & 0, 0, 0, 1.31496e-05, 1.23806e-05, 
0443      & 1.53119e-05, 0, 1.20601e-05, 0, 3.69972e-05, 
0444      & 0, 0, 0.000450999, 2.87933e-05, 0, 
0445      & 2.79404e-05, 9.199e-05, 0, 4.54202e-05, 2.72285e-05, 
0446      & 0.00120156, 0.000363306, 0.000136306, 0.000885289, 0.0012939, 
0447      & 0.000115037, 0.00136355, 0.000691002, 0.00165671, 0.0001731, 
0448      & 0.000603551, 0.00265779, 0.00219751, 0.000419067, 0.0017237, 
0449      & 0.00155755, 0.00331567, 0.00256302, 0.00503106, 0.00430452, 
0450      & 0.00494771, 0.00769862, 0.00953031, 0.0110378, 0.0134682, 
0451      & 0.018789, 0.0259329, 0.0319659, 0.0421969, 0.06493, 
0452      & 0.138201, 0.277369, 0.0939349, 0.0513337, 0.0334807, 
0453      & 0.0301652, 0.0184939, 0.0177734, 0.0101406, 0.00768887, 
0454      & 0.00836915, 0.00615151, 0.00625896, 0.00415735, 0.00575912, 
0455      & 0.00275745, 0.00250947, 0.00192387, 0.00385283, 0.00229354, 
0456      & 0.00323506, 0.000900441, 0.00117677, 0.00047211, 0.000533546, 
0457      & 0.000970705, 0.00145786, 0.000543922, 0.000624002, 0.00117947, 
0458      & 8.53323e-05, 0.000287705, 0.000469841, 4.64102e-05, 5.26608e-05, 
0459      & 5.57261e-05, 0.000421955, 8.20934e-05, 0, 0.000323588, 
0460      & 0.000456865, 0.000441841, 0, 1.42329e-05, 2.50471e-05
0461      & /
0462       L27PIM = -27.0438
0463       W27PIM = 0.480447
0464 
0465       DATA H28PIM /
0466      & 3.79165e-05, 0, 0, 0, 3.78933e-05, 
0467      & 0, 0.000140696, 0, 0, 0, 
0468      & 0, 2.98248e-05, 0, 2.8013e-05, 3.33198e-05, 
0469      & 3.57024e-05, 0.00202192, 7.60584e-05, 0.000209831, 0.000767677, 
0470      & 0.000734429, 3.76764e-05, 7.25947e-05, 3.29527e-05, 1.32621e-05, 
0471      & 0.00125318, 0.00255714, 0.00524895, 0.00143415, 0.00378035, 
0472      & 0.00153606, 0.00118978, 0.00151953, 0.00610844, 0.00156795, 
0473      & 0.0027775, 0.00246074, 0.00322438, 0.00449687, 0.00293293, 
0474      & 0.00492092, 0.00849815, 0.00421625, 0.00765401, 0.00483904, 
0475      & 0.0090804, 0.0173446, 0.0231878, 0.046981, 0.112791, 
0476      & 0.347049, 0.179297, 0.0536037, 0.0301014, 0.0152186, 
0477      & 0.0118736, 0.0140612, 0.00722311, 0.0094846, 0.00650224, 
0478      & 0.00931832, 0.0011713, 0.00223173, 0.00188649, 0.00104653, 
0479      & 0.00124058, 0.000626384, 0.00208647, 0.00214139, 0.00111698, 
0480      & 0.00345042, 0.00123109, 0.00223234, 0.00143759, 0.000150232, 
0481      & 0.00125296, 0.000276989, 0.00207075, 7.45241e-05, 0.00100112, 
0482      & 0.000106866, 0.00125974, 0.000140547, 0.00112351, 0, 
0483      & 3.02271e-05, 0.000181216, 3.64153e-05, 0.000578135, 0, 
0484      & 0, 0, 3.46e-05, 0, 0, 
0485      & 6.95708e-05, 3.19925e-05, 0, 0, 3.76947e-05
0486      & /
0487       L28PIM = -5.56813
0488       W28PIM = 0.109777
0489 
0490       DATA H31PIM /
0491      & 1.75841e-06, 0, 0, 0, 2.54803e-05, 
0492      & 0, 0, 0, 6.44719e-08, 0, 
0493      & 0.000103504, 1.91946e-06, 0, 0, 0, 
0494      & 0, 0.0002806, 0.000113856, 7.79368e-05, 0.000383464, 
0495      & 6.43379e-05, 4.1597e-05, 7.55323e-05, 8.88904e-05, 0.000463458, 
0496      & 0.00069171, 0.000587363, 0.000357862, 0.00185226, 0.00141528, 
0497      & 0.00106072, 0.00137294, 0.00176746, 0.00633179, 0.00541686, 
0498      & 0.0042804, 0.00414319, 0.0077847, 0.0066763, 0.0144941, 
0499      & 0.00803872, 0.014914, 0.00989249, 0.0162067, 0.0203186, 
0500      & 0.0210351, 0.0280984, 0.020527, 0.0393503, 0.0598129, 
0501      & 0.0413711, 0.0422525, 0.039785, 0.0570014, 0.0499877, 
0502      & 0.037809, 0.0426209, 0.0394881, 0.0399835, 0.036931, 
0503      & 0.0328336, 0.0236208, 0.0432712, 0.0548838, 0.0204143, 
0504      & 0.0102682, 0.00977376, 0.0125718, 0.0110072, 0.00755552, 
0505      & 0.00440885, 0.00386651, 0.00726843, 0.0045603, 0.00245139, 
0506      & 0.00380237, 0.00427248, 0.00420331, 0.00254703, 0.00179885, 
0507      & 0.001487, 0.00321395, 0.00195553, 0.00030763, 0.000272601, 
0508      & 0.000100702, 0.000360686, 0.00041098, 0.0010229, 4.74088e-09, 
0509      & 2.88039e-05, 6.5876e-05, 5.47934e-06, 0, 2.84954e-09, 
0510      & 5.16409e-06, 3.10556e-06, 0, 3.98122e-07, 8.73892e-08
0511      & /
0512       L31PIM = -0.911959
0513       W31PIM = 0.0166444
0514 
0515       DATA H32PIM /
0516      & 0.000161757, 0, 0, 0, 0, 
0517      & 0, 0, 0, 0, 0, 
0518      & 0, 0, 0, 0, 0, 
0519      & 1.84076e-07, 5.335e-07, 0, 0, 0, 
0520      & 0.000786303, 0, 0.000284355, 6.1822e-06, 8.17382e-06, 
0521      & 4.92122e-05, 0, 0, 0.000684411, 5.49923e-05, 
0522      & 0.000277782, 0.00149281, 0.000328584, 4.63243e-06, 0.000714249, 
0523      & 0.00063383, 0.00266623, 0.000171221, 0.00121412, 0.00379512, 
0524      & 0.00059344, 0.00243785, 0.00469507, 0.00388443, 0.00502645, 
0525      & 0.00376393, 0.0127476, 0.0150822, 0.0103707, 0.0119408, 
0526      & 0.0117942, 0.0167312, 0.0226113, 0.0234381, 0.0205803, 
0527      & 0.0305621, 0.0578211, 0.0848184, 0.0798664, 0.0803574, 
0528      & 0.0948896, 0.0900629, 0.0980893, 0.0407587, 0.0229934, 
0529      & 0.0232688, 0.0137648, 0.00845488, 0.0141531, 0.00905038, 
0530      & 0.00784358, 0.0174589, 0.0137694, 0.0131747, 0.00287188, 
0531      & 0.00309156, 0.00301221, 0.00163547, 0.0015402, 0.00168241, 
0532      & 0.000466264, 0.000416303, 0.000642672, 0.00116892, 0.00127898, 
0533      & 0.000338927, 0.000508482, 0.000615706, 0.000322302, 9.56775e-05, 
0534      & 2.95624e-05, 3.37818e-05, 1.26117e-05, 1.34295e-05, 1.39198e-05, 
0535      & 5.76225e-06, 0, 3.37004e-06, 0, 9.58595e-06
0536      & /
0537       L32PIM = -0.52986
0538       W32PIM = 0.00880873
0539 
0540       DATA H33PIM /
0541      & 2.03997e-05, 0, 8.72469e-06, 0, 0, 
0542      & 0, 0, 0.000251298, 0, 8.9994e-06, 
0543      & 0.000346185, 0, 0.000607827, 1.59439e-05, 0, 
0544      & 0.000496248, 0.00103418, 0, 4.22405e-05, 0.00294146, 
0545      & 0.000244035, 0.00194662, 0.00135705, 0.00535325, 0.000467063, 
0546      & 0.00150656, 0.00222605, 0.0121854, 0.000688783, 0.00410435, 
0547      & 0.00614593, 0.00331555, 0.00431787, 0.003378, 0.00411099, 
0548      & 0.00494264, 0.00386253, 0.000323506, 0.00484975, 0.00548501, 
0549      & 0.00822279, 0.0200174, 0.023976, 0.0374168, 0.057836, 
0550      & 0.0381627, 0.034802, 0.0487666, 0.061655, 0.0526734, 
0551      & 0.0732396, 0.0418766, 0.0173304, 0.0229314, 0.0301779, 
0552      & 0.0258365, 0.0314122, 0.0525958, 0.0388286, 0.029662, 
0553      & 0.0287881, 0.0335324, 0.028226, 0.0193327, 0.00792097, 
0554      & 0.00216306, 0.00282433, 0.00178121, 0.00818022, 0.00521071, 
0555      & 0.00476284, 0.0027161, 0.00332754, 0.00514401, 0.00309557, 
0556      & 0.00454153, 0.000477245, 0.00392407, 0.00353594, 0.000783891, 
0557      & 0.000859371, 7.24376e-05, 0.000165034, 0.000402001, 0.00141948, 
0558      & 0.00215234, 3.37235e-05, 0, 0.000543647, 0, 
0559      & 0, 0, 2.85625e-05, 4.12861e-05, 0, 
0560      & 0, 0, 0, 0, 9.62586e-06
0561      & /
0562       L33PIM = -0.13884
0563       W33PIM = 0.00267525
0564 
0565       DATA H34PIM /
0566      & 2.08326e-05, 0, 0, 0, 0, 
0567      & 0, 0, 0, 0, 0, 
0568      & 0, 0, 0, 0, 0, 
0569      & 2.11634e-05, 0.0017801, 4.82359e-05, 0.00590693, 0, 
0570      & 0.00214636, 0.00269293, 0.010569, 0.000163045, 0.00330565, 
0571      & 0.0036143, 0.00375934, 0.000624009, 0.000156744, 6.76329e-05, 
0572      & 0.00309799, 0.000291788, 0.00150167, 0.00195335, 0.00242483, 
0573      & 0.00216687, 0.0021774, 0.00181624, 0.00454151, 0.00359746, 
0574      & 0.0046443, 0.00231201, 0.0059463, 0.00877973, 0.0115437, 
0575      & 0.00979052, 0.00827954, 0.016987, 0.0293183, 0.0332355, 
0576      & 0.0311197, 0.0578952, 0.0431889, 0.0551972, 0.0472381, 
0577      & 0.0588262, 0.0353894, 0.0224802, 0.0246674, 0.0167685, 
0578      & 0.0230742, 0.020239, 0.0093223, 0.0245878, 0.0317285, 
0579      & 0.0332668, 0.0325861, 0.023468, 0.0199143, 0.0203135, 
0580      & 0.0149793, 0.0128407, 0.0150951, 0.0199326, 0.0151923, 
0581      & 0.00971764, 0.0256643, 0.0173715, 0.00683091, 0.0132804, 
0582      & 0.00925063, 0.00469496, 0.00484843, 0.00144228, 0.00146727, 
0583      & 0.000334971, 0.00135478, 0.000497974, 0.00184121, 0.000200953, 
0584      & 0.000935141, 0.00102959, 9.53531e-05, 6.74606e-05, 0.000220294, 
0585      & 0.000117569, 2.44723e-05, 0, 8.09639e-05, 3.74092e-05
0586      & /
0587       L34PIM = -0.0706413
0588       W34PIM = 0.00122561
0589 
0590       DATA H35PIM /
0591      & 6.82512e-05, 0, 0, 0.00264034, 0, 
0592      & 3.75315e-05, 0, 0.00107629, 4.14036e-05, 6.77044e-05, 
0593      & 3.33808e-05, 0, 0.00114826, 4.30054e-05, 0, 
0594      & 0, 0.000393071, 0, 4.42752e-05, 0.00279709, 
0595      & 0.0013378, 0.000164175, 3.92662e-05, 6.52742e-05, 0.000964229, 
0596      & 1.5131e-05, 0.00118518, 0.000910761, 6.90115e-05, 0.00035478, 
0597      & 0.000442117, 3.11489e-05, 0.00143463, 0.00210154, 0.00214992, 
0598      & 0.000493893, 0.00428072, 0.0171209, 0.0324534, 0.0479867, 
0599      & 0.0292373, 0.0285519, 0.0420186, 0.0385986, 0.0207229, 
0600      & 0.0298319, 0.0821959, 0.0484654, 0.0246761, 0.0148861, 
0601      & 0.0165841, 0.0373938, 0.0304772, 0.0444146, 0.0570255, 
0602      & 0.0463673, 0.0416695, 0.0158512, 0.020263, 0.0110322, 
0603      & 0.0127612, 0.0113043, 0.00247559, 0.00449701, 0.00415027, 
0604      & 0.0012543, 0.0036546, 0.00484924, 0.016239, 0.0191142, 
0605      & 0.00848391, 0.0111079, 0.00446532, 0.00389461, 0.00340871, 
0606      & 0.00495398, 0.00457903, 0.00672187, 0.007882, 0.00591841, 
0607      & 0.00358344, 0.00571057, 0.00126174, 0.00871888, 0.004938, 
0608      & 0.0161123, 0.00211724, 0.00359801, 0.000319016, 0.000243649, 
0609      & 0.00250009, 0.00143222, 0.000177507, 0, 0.00056656, 
0610      & 1.00889e-05, 0, 0.000112714, 0, 0.00462834
0611      & /
0612       L35PIM = -0.0291189
0613       W35PIM = 0.00052969
0614 
0615       DATA H36PIM /
0616      & 2.55566e-05, 0, 0, 0, 0, 
0617      & 0, 1.73695e-05, 2.33569e-05, 0, 0, 
0618      & 0, 0, 1.05443e-05, 5.01006e-07, 4.12157e-05, 
0619      & 8.74281e-05, 0.00113451, 0.000113023, 4.68276e-05, 0.00114404, 
0620      & 0.000130947, 0.00579943, 0.0119868, 0.0223535, 0.0239435, 
0621      & 0.0214334, 0.0161802, 0.0248095, 0.0230455, 0.0219611, 
0622      & 0.0295585, 0.0141833, 0.0237716, 0.0223296, 0.0265699, 
0623      & 0.0182813, 0.0335713, 0.0211798, 0.0227283, 0.0263377, 
0624      & 0.0230395, 0.0204955, 0.00535254, 0.00833151, 0.00578878, 
0625      & 0.00995565, 0.010961, 0.0125805, 0.0139542, 0.0224231, 
0626      & 0.0130422, 0.027449, 0.0341808, 0.0533128, 0.0724842, 
0627      & 0.0620683, 0.0232986, 0.0243363, 0.0169215, 0.0120246, 
0628      & 0.00666771, 0.00508211, 0.00597869, 0.00739473, 0.00597549, 
0629      & 0.00551983, 0.00362093, 0.00190711, 0.00444988, 0.0057016, 
0630      & 0.00200425, 0.00544297, 0.0041242, 0.00151139, 0.00111814, 
0631      & 0.0070948, 0.00189671, 0.00369465, 0.00255911, 0.00451361, 
0632      & 0.00256246, 0.00585224, 0.00482534, 0.00184349, 0.00342346, 
0633      & 0.00281247, 0.0030326, 0.000245572, 0.000222564, 0.000783264, 
0634      & 6.67074e-05, 9.18369e-05, 0.00109747, 0.000858658, 1.66576e-05, 
0635      & 0.000917614, 0.000283405, 0, 0, 6.09079e-06
0636      & /
0637       L36PIM = -0.0149062
0638       W36PIM = 0.000272666
0639 
0640       DATA H37PIM /
0641      & 0.000243845, 0.0013965, 0.00210005, 0.00171325, 0.00489946, 
0642      & 0.00438341, 0.00455862, 0.00311409, 0.00764709, 0.00881152, 
0643      & 0.0089581, 0.00998243, 0.0101476, 0.0101834, 0.00884541, 
0644      & 0.0108004, 0.01363, 0.0141006, 0.0128839, 0.0190613, 
0645      & 0.0177548, 0.0173187, 0.0193903, 0.0213055, 0.0233513, 
0646      & 0.0232813, 0.0239681, 0.0214338, 0.0245727, 0.0199069, 
0647      & 0.00641615, 0.00381838, 0.00233153, 0.0020815, 0.0026697, 
0648      & 0.0052052, 0.00494511, 0.0126269, 0.0125212, 0.0147559, 
0649      & 0.0178418, 0.00802083, 0.00756359, 0.0129062, 0.0180773, 
0650      & 0.0168555, 0.0230141, 0.0381351, 0.120228, 0.0965755, 
0651      & 0.0343753, 0.0243197, 0.0196422, 0.0147668, 0.0116271, 
0652      & 0.0101379, 0.00810226, 0.00640753, 0.00516425, 0.00751732, 
0653      & 0.00534184, 0.00340696, 0.00284281, 0.00459169, 0.00322306, 
0654      & 0.00221694, 0.00316577, 0.00286861, 0.00341475, 0.00158072, 
0655      & 0.00147996, 0.00239913, 0.00162414, 0.00247853, 0.00123363, 
0656      & 0.00332523, 0.00364453, 0.00172696, 0.00153352, 0.000560283, 
0657      & 0.00131803, 0.000522448, 0.0013772, 0.000411377, 5.02223e-05, 
0658      & 0.000803612, 0.00219687, 0.000850048, 0.00045031, 0.000439133, 
0659      & 0.000464583, 2.29999e-05, 2.2134e-05, 0, 0, 
0660      & 0, 0, 0, 0, 1.80598e-05
0661      & /
0662       L37PIM = -0.00904506
0663       W37PIM = 0.000184716
0664 
0665       DATA H38PIM /
0666      & 6.43681e-05, 0, 0, 0.000364265, 0.000365977, 
0667      & 0.0010412, 0.0015312, 0.00245443, 0.00320616, 0.0078818, 
0668      & 0.0103345, 0.0160001, 0.0138647, 0.00728794, 0.00221759, 
0669      & 0.000135611, 0, 0, 0, 0, 
0670      & 0, 0, 0, 0, 0, 
0671      & 0, 7.21732e-06, 0, 0, 0, 
0672      & 6.76187e-05, 4.4896e-05, 0.000980092, 0.0133278, 0.0101701, 
0673      & 0.0179821, 0.00841389, 0.0165301, 0.0139041, 0.00822892, 
0674      & 0.0119442, 0.0105419, 0.011305, 0.0118605, 0.0125688, 
0675      & 0.00286873, 0.00270143, 0.00233293, 0.00237845, 0.000973487, 
0676      & 0.000862767, 0.0011219, 0.000936343, 0.00152179, 0.00341979, 
0677      & 0.00110025, 0.00265612, 0.00305045, 0.00520203, 0.00793093, 
0678      & 0.0102059, 0.0121126, 0.00997604, 0.0117749, 0.0171593, 
0679      & 0.0288535, 0.0350258, 0.0540833, 0.113, 0.178888, 
0680      & 0.0900986, 0.0491538, 0.0314668, 0.0229614, 0.0163087, 
0681      & 0.0184252, 0.00864732, 0.00623964, 0.00694237, 0.00800406, 
0682      & 0.00561194, 0.00227901, 7.91094e-05, 0.000166353, 0.00320308, 
0683      & 0.00116115, 3.99599e-05, 3.48085e-05, 0.00315328, 0, 
0684      & 0, 0.000112323, 0, 3.95433e-05, 0.00106319, 
0685      & 0, 0, 0, 0, 4.38776e-05
0686      & /
0687       L38PIM = -0.00412203
0688       W38PIM = 5.9407e-05
0689 
0690       DATA H41PIM /
0691      & 1.54145e-06, 0, 0, 0.00049289, 0, 
0692      & 0, 0, 0, 0, 2.83121e-05, 
0693      & 2.38859e-05, 4.88107e-06, 8.68262e-06, 6.08378e-05, 0.000283369, 
0694      & 4.37845e-05, 3.879e-05, 1.97475e-05, 8.63831e-06, 0.00040602, 
0695      & 2.80208e-05, 0.000722717, 0.000562261, 0.00102161, 0.000256733, 
0696      & 0.00108618, 0.000443618, 0.00129649, 0.00253652, 0.00107926, 
0697      & 0.00339434, 0.00210087, 0.00454318, 0.00364491, 0.00478155, 
0698      & 0.00359529, 0.00470607, 0.00953268, 0.0125559, 0.00883885, 
0699      & 0.00835922, 0.0128197, 0.0275994, 0.0258564, 0.0171161, 
0700      & 0.030301, 0.0368762, 0.0497326, 0.0380672, 0.048022, 
0701      & 0.0455578, 0.0782278, 0.0721827, 0.0628391, 0.0409957, 
0702      & 0.0525646, 0.047733, 0.029071, 0.027531, 0.030663, 
0703      & 0.0274396, 0.0252302, 0.0212606, 0.0105986, 0.00642951, 
0704      & 0.00816676, 0.00864267, 0.00775873, 0.00556255, 0.00434144, 
0705      & 0.00339267, 0.00218724, 0.00498106, 0.00272392, 0.000788043, 
0706      & 0.00341523, 0.00240346, 0.000472949, 0.000534883, 0.000171586, 
0707      & 0.000514371, 0.000616028, 0.000326734, 9.63129e-05, 0.00024696, 
0708      & 0.00112365, 9.39504e-05, 1.03576e-05, 2.02015e-05, 0.000145595, 
0709      & 2.87676e-05, 9.54743e-06, 0, 1.30829e-06, 8.91425e-10, 
0710      & 0, 0, 0, 0, 1.64788e-07
0711      & /
0712       L41PIM = -0.823458
0713       W41PIM = 0.0159412
0714 
0715       DATA H42PIM /
0716      & 1.69065e-05, 0, 0, 0, 4.62561e-06, 
0717      & 0, 0, 0.000169717, 0, 4.53905e-06, 
0718      & 2.53993e-05, 3.08581e-07, 0.000343592, 0.000241962, 2.23455e-05, 
0719      & 0.000398476, 1.47211e-05, 0.000839444, 0.00166972, 0.000229221, 
0720      & 0.000352778, 0.000139263, 0.000952591, 0.000408851, 0.000613567, 
0721      & 0.000773855, 0.00160395, 0.000445188, 0.00172818, 0.00272184, 
0722      & 0.00214461, 0.00618885, 0.00342525, 0.00633387, 0.0142009, 
0723      & 0.0138644, 0.0118636, 0.0071156, 0.0107792, 0.0185564, 
0724      & 0.00614747, 0.0135105, 0.0110683, 0.0122501, 0.0108235, 
0725      & 0.0341131, 0.0302802, 0.0547499, 0.152273, 0.174412, 
0726      & 0.0971589, 0.0504729, 0.0438243, 0.04255, 0.025842, 
0727      & 0.0216287, 0.0163307, 0.0119802, 0.0159987, 0.00728983, 
0728      & 0.0117594, 0.0100321, 0.00550648, 0.00446909, 0.0077417, 
0729      & 0.00500132, 0.00299138, 0.00315967, 0.00101298, 0.00189726, 
0730      & 0.00150732, 0.000397576, 0.000145089, 6.63428e-05, 0.000650028, 
0731      & 0.000746179, 0.000530291, 5.87181e-05, 0.000187457, 2.80609e-06, 
0732      & 0.000331094, 0.000318994, 1.97864e-05, 5.86984e-05, 0, 
0733      & 3.72384e-06, 0, 0.000199372, 1.45366e-06, 6.82668e-06, 
0734      & 1.39304e-05, 0, 1.28345e-05, 4.67256e-06, 0, 
0735      & 0, 0.00026188, 0, 0, 5.4365e-06
0736      & /
0737       L42PIM = -0.371898
0738       W42PIM = 0.00755349
0739 
0740       DATA H43PIM /
0741      & 1.0321e-07, 0, 0, 0, 0, 
0742      & 0, 0, 0, 0, 0, 
0743      & 0, 0, 0, 0, 0, 
0744      & 0, 0, 0, 0, 0, 
0745      & 0, 0, 0, 0, 0, 
0746      & 0, 0, 0, 0, 0.000444042, 
0747      & 9.59583e-05, 6.47738e-05, 0.000410189, 2.94708e-05, 0.000108616, 
0748      & 0.000273061, 0.00216274, 0.000462354, 0.00208361, 0.00466494, 
0749      & 0.00106992, 0.000149932, 0.00174909, 0.000827282, 0.00111257, 
0750      & 0.000684405, 0.00292634, 0.00285561, 0.00471041, 0.0066773, 
0751      & 0.00605818, 0.0160171, 0.00827073, 0.00382002, 0.0193416, 
0752      & 0.0155951, 0.0190401, 0.0583158, 0.0591941, 0.102467, 
0753      & 0.225621, 0.162536, 0.0695241, 0.0560801, 0.0281046, 
0754      & 0.0304741, 0.00815689, 0.00564674, 0.00926134, 0.0139602, 
0755      & 0.00726272, 0.00512816, 0.00686593, 0.00306141, 0.00410118, 
0756      & 0.00673521, 0.00108751, 0.00631624, 0.00103408, 0.00010244, 
0757      & 0.00189337, 0.00112537, 6.25394e-05, 0.00237454, 1.67426e-05, 
0758      & 5.22434e-05, 0, 0.000394235, 1.70657e-05, 8.01705e-05, 
0759      & 0.000368725, 1.39834e-05, 1.48444e-05, 0, 0, 
0760      & 1.81413e-05, 1.03474e-05, 0.000796148, 0, 1.97547e-05
0761      & /
0762       L43PIM = -0.220275
0763       W43PIM = 0.00362473
0764 
0765       DATA H44PIM /
0766      & 2.52925e-05, 0, 0, 0, 0, 
0767      & 0, 0, 0.000576645, 0.000455698, 0, 
0768      & 0, 0.000113863, 1.86225e-05, 6.00356e-05, 0.000746153, 
0769      & 0.00157758, 7.0211e-05, 0.000227566, 0.00112146, 0.000931628, 
0770      & 0.000225744, 0.00399369, 0.00021026, 0.00112613, 0.000170489, 
0771      & 0.000364578, 0.000175775, 0.000256971, 0.00541443, 0.00594771, 
0772      & 0.00350674, 0.00265367, 0.000396207, 0.00394229, 0.00300812, 
0773      & 0.00197621, 0.00516905, 0.000738324, 0.00250123, 0.00157033, 
0774      & 0.00385061, 0.0155207, 0.0175933, 0.0111538, 0.0333046, 
0775      & 0.0451926, 0.0429852, 0.0590012, 0.0698446, 0.101904, 
0776      & 0.116584, 0.0752688, 0.0951845, 0.0524794, 0.0319652, 
0777      & 0.0270261, 0.0250564, 0.0351239, 0.0243283, 0.023138, 
0778      & 0.00445922, 0.00453781, 0.00449446, 0.00289278, 0.00324127, 
0779      & 0.00036115, 0.000979491, 0.00415174, 0.00134998, 0.00133396, 
0780      & 2.12494e-05, 0.00322674, 0.00145881, 0.00137657, 0.00157533, 
0781      & 0.000273018, 0.000127667, 0.000295241, 0.000257892, 0.000316636, 
0782      & 0.00316784, 0.00191633, 0.000200032, 0.000276161, 0.000696061, 
0783      & 0.000100556, 0.00016794, 0.000137571, 0.000172319, 5.59761e-07, 
0784      & 0.000270487, 0, 9.12919e-05, 0, 0, 
0785      & 0.000207482, 0, 0, 0, 8.5755e-05
0786      & /
0787       L44PIM = -0.0576847
0788       W44PIM = 0.00114022
0789 
0790       DATA H45PIM /
0791      & 9.02272e-05, 5.06273e-05, 0.000253567, 0, 4.5653e-05, 
0792      & 0, 8.87621e-05, 0, 4.29616e-05, 0.000336841, 
0793      & 0, 4.50422e-05, 0.00604987, 2.34102e-05, 0.00145637, 
0794      & 0.00368445, 0.000112922, 0.00897883, 0.000999231, 3.77443e-05, 
0795      & 0.00230368, 3.78084e-05, 0.00190664, 0.00297398, 0.000390621, 
0796      & 0.00862764, 0.00343594, 0.000326769, 0.00228577, 0.00394281, 
0797      & 0.000837226, 0.00763911, 0.00330654, 0.00410402, 0.00827492, 
0798      & 0.00583335, 0.00893319, 0.00446777, 0.0152618, 0.00652648, 
0799      & 0.00413511, 0.0179925, 0.0144196, 0.0135115, 0.0102233, 
0800      & 0.0235096, 0.0485887, 0.0359431, 0.0700285, 0.103817, 
0801      & 0.105635, 0.0973995, 0.0584156, 0.06392, 0.0338903, 
0802      & 0.0270223, 0.0191863, 0.0148287, 0.0217524, 0.00334526, 
0803      & 0.00592362, 0.0047551, 0.00501123, 0.0090586, 0.00299401, 
0804      & 0.005228, 0.00266385, 0.00456899, 0.0119948, 0.00427614, 
0805      & 0.00158454, 0.000587955, 0.0033301, 0.0036011, 0.000287008, 
0806      & 0.000417784, 0.000415611, 0.00319041, 0.00476516, 0.00344022, 
0807      & 0.00903725, 0.00413301, 0.00114991, 0, 0.000204072, 
0808      & 9.18049e-05, 0.000262739, 0.00437435, 0.000417619, 8.71362e-05, 
0809      & 0.000258128, 0, 5.07205e-05, 0.000127196, 0.000173103, 
0810      & 0, 0, 0, 0, 0.00026207
0811      & /
0812       L45PIM = -0.030358
0813       W45PIM = 0.000600395
0814 
0815       DATA H46PIM /
0816      & 0.000745785, 0, 5.95983e-05, 0.00141455, 0.000684487, 
0817      & 0, 0, 1.19596e-05, 0.00305029, 0.00187856, 
0818      & 6.61334e-05, 0.00392155, 0.00387173, 3.66732e-05, 0.00255007, 
0819      & 0, 0.000905896, 0.00193832, 0.00242502, 7.37236e-05, 
0820      & 0.00245191, 0.00242911, 0.00523062, 0.00226946, 0.00234852, 
0821      & 0.00253015, 0.00316994, 0.00149366, 0.000942866, 0.00435084, 
0822      & 0.00744948, 0.00598719, 0.00549841, 0.00735014, 0.00917378, 
0823      & 0.00955954, 0.00418033, 0.00416266, 0.00875974, 0.0128938, 
0824      & 0.00734052, 0.00914941, 0.0148403, 0.0175438, 0.0216346, 
0825      & 0.027942, 0.0376661, 0.074754, 0.0946429, 0.140051, 
0826      & 0.0915317, 0.0754832, 0.0347193, 0.0248132, 0.0172315, 
0827      & 0.0156435, 0.0117815, 0.0151668, 0.0107489, 0.0124827, 
0828      & 0.00740975, 0.00572944, 0.00858756, 0.00948284, 0.00774137, 
0829      & 0.00515425, 0.00228428, 0.00382918, 0.00358824, 0.00444323, 
0830      & 0.00541124, 0.0051223, 0.00237753, 0.00515465, 0.00129948, 
0831      & 0.0024949, 0.000695559, 0.000812031, 0.00193671, 0.00395393, 
0832      & 0.0013345, 0.00582104, 0.00528592, 0.00325182, 6.81618e-05, 
0833      & 0.00104981, 9.19544e-05, 0.00297377, 0.00161054, 0.00209476, 
0834      & 0.00150272, 0.000554393, 0, 0, 0.00199389, 
0835      & 2.66782e-05, 0.000692779, 0, 0.00149969, 0.00160585
0836      & /
0837       L46PIM = -0.0171677
0838       W46PIM = 0.000347446
0839 
0840       DATA H47PIM /
0841      & 3.49954e-05, 0.000423462, 0.000752441, 0, 0.000872793, 
0842      & 0.000686977, 0.000376544, 1.40237e-05, 2.60542e-05, 0, 
0843      & 0.000325711, 0.00107286, 0.000842803, 0.000546395, 0.00286141, 
0844      & 0.00105186, 0.000737496, 0.000913402, 0.000955974, 0.00139602, 
0845      & 0.002307, 0.00237656, 0.000282869, 0.00228439, 0.00133176, 
0846      & 0.00308616, 0.00181095, 0.00156313, 0.00146369, 0.00389653, 
0847      & 0.00309077, 0.00268486, 0.00304054, 0.0033192, 0.00406641, 
0848      & 0.00538276, 0.00370422, 0.00383186, 0.00509096, 0.00513885, 
0849      & 0.00820572, 0.00973484, 0.00881509, 0.00831157, 0.011797, 
0850      & 0.0133585, 0.021365, 0.0289303, 0.0384202, 0.0720492, 
0851      & 0.122484, 0.179867, 0.108356, 0.0690249, 0.0380793, 
0852      & 0.0291042, 0.017854, 0.0158827, 0.00894998, 0.011903, 
0853      & 0.00979162, 0.00922727, 0.00651697, 0.00432982, 0.00793555, 
0854      & 0.00535275, 0.00304759, 0.00468924, 0.00294538, 0.00549344, 
0855      & 0.00331482, 0.00229245, 0.00431054, 0.00221208, 0.00200621, 
0856      & 0.00164932, 0.00228096, 0.00289609, 0.000990479, 0.00153593, 
0857      & 0.00154214, 0.0026957, 0.0021193, 0.00214371, 0.00108335, 
0858      & 0.00126092, 0.00118723, 0.000794275, 0.000601277, 0.00114435, 
0859      & 0.00238117, 0.000320173, 0.00106626, 0.00135032, 8.39762e-06, 
0860      & 0.000384274, 0.000468151, 1.58927e-05, 0.000462699, 1.40708e-05
0861      & /
0862       L47PIM = -0.00905005
0863       W47PIM = 0.000175748
0864 
0865       DATA H48PIM /
0866      & 3.46e-05, 0, 0, 0, 0, 
0867      & 0, 0, 0, 0, 0, 
0868      & 0, 3.02066e-05, 0, 0, 3.65637e-05, 
0869      & 0, 7.48256e-05, 0.000111231, 6.87971e-05, 7.14057e-05, 
0870      & 3.77198e-05, 0, 3.47744e-05, 3.71129e-05, 7.34201e-05, 
0871      & 7.52526e-05, 0.000202864, 0.000234574, 0.000159738, 0.000163263, 
0872      & 0.00119751, 0.000167045, 0.00116229, 0.00233366, 0.000302987, 
0873      & 0.00147878, 0.00125285, 0.0014136, 0.00123349, 0.00146687, 
0874      & 0.00338658, 0.00288105, 0.00738737, 0.00757423, 0.0161187, 
0875      & 0.0236596, 0.0441915, 0.0780167, 0.205261, 0.385894, 
0876      & 0.0993031, 0.0331739, 0.0234688, 0.0141444, 0.0108401, 
0877      & 0.00565015, 0.00452377, 0.000350463, 0.00355341, 0.00541689, 
0878      & 0.00028587, 0.00225673, 0.00265288, 0.001268, 0.00140886, 
0879      & 7.24911e-05, 0.00123667, 0.000233732, 3.50382e-05, 6.88496e-05, 
0880      & 0.00116304, 0.000101852, 0.000168237, 6.42047e-05, 0.000123676, 
0881      & 0, 3.10362e-05, 0.000104379, 0, 3.63326e-05, 
0882      & 0, 3.74489e-05, 7.40607e-05, 3.7737e-05, 3.7021e-05, 
0883      & 0, 0, 7.37678e-05, 0, 0, 
0884      & 3.37446e-05, 3.51835e-05, 0, 0, 3.6684e-05, 
0885      & 3.77473e-05, 0, 0, 0, 3.39425e-05
0886      & /
0887       L48PIM = -0.00636315
0888       W48PIM = 0.000129317
0889 
0890       RETURN
0891 
0892       END