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_PIP()   !   auto. created by droll (10/6/2005)
0004 *     generated rate: GR_PIP [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_PIP(N_BIN),LOW,WID,LOG_EK,R_VAL,S_RATE
0015 
0016       DATA R0_PIP /
0017      & 44507.9, 33951.6, 34764.9, 29954, 38856.2, 
0018      & 36518, 25814.3, 58351.8, 43029.6, 49592.5, 
0019      & 40926.3, 42601.2, 35461.4, 33313.8, 38918.9, 
0020      & 43127.8, 28126, 29142.8, 29643.9, 28376.6, 
0021      & 47631.3, 29954.6, 28846.3, 29294.4, 40831, 
0022      & 33945.3, 23626.2, 33577.3, 18740.3, 31293.6, 
0023      & 31690.7, 21793.2, 24124.1, 25305.6, 41014.7, 
0024      & 27174.5, 27184, 26912.4, 24330.5, 22860.4, 
0025      & 21498.5, 21228.8, 23276, 18260.9, 17414, 
0026      & 13501.8, 14176.3, 14817.9, 17052.6, 16964.3, 
0027      & 10987.8, 6393.23, 13483.6, 7799.76, 9291.8, 
0028      & 7660.92, 10402, 9153.9, 9022.58, 9736.39, 
0029      & 8370.17, 11286.1, 13373.9, 12010.9, 15214.3, 
0030      & 18818.5, 16822.3, 17841.5, 20555.2, 23935.2, 
0031      & 21663.4, 19795.6, 20171.1, 26102.3, 20380.3, 
0032      & 18052.1, 22808.5, 23346.4, 22989, 24049, 
0033      & 21698, 18892.5, 17146.9, 13629.6, 12599.7, 
0034      & 9909.41, 9524.92, 8704.81, 5940.51, 6248.07, 
0035      & 4696.1, 3819.87, 2742.07, 1825.46, 1630.36, 
0036      & 943.719, 498.618, 227.152, 98.066, 15.7675
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_PIP(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_PIP = REAL(S_RATE*LE_INC) ! total rate [Hz]
0052 
0053       RETURN
0054 
0055       END
0056 
0057 ************************************************************************
0058       SUBROUTINE F66PIP  !  automatically created by droll (10/6/2005)
0059 *     fill histograms H##PIP more infos in kine/kicdes/bhgrhists.inc
0060 ************************************************************************
0061 
0062       IMPLICIT NONE
0063 #include "GeneratorInterface/BeamHaloGenerator/interface/bhgrhists.inc"
0064 
0065       DATA H01PIP /
0066      & 0.0209389, 0.0159726, 0.0163552, 0.014092, 0.01828, 
0067      & 0.01718, 0.0121444, 0.0274518, 0.0202434, 0.0233309, 
0068      & 0.0192539, 0.0200419, 0.0166829, 0.0156726, 0.0183095, 
0069      & 0.0202896, 0.013232, 0.0137103, 0.0139461, 0.0133499, 
0070      & 0.0224083, 0.0140922, 0.0135708, 0.0137816, 0.0192091, 
0071      & 0.0159696, 0.011115, 0.0157965, 0.00881642, 0.0147222, 
0072      & 0.014909, 0.0102527, 0.0113493, 0.0119051, 0.0192955, 
0073      & 0.0127843, 0.0127888, 0.012661, 0.0114464, 0.0107547, 
0074      & 0.0101141, 0.00998715, 0.0109503, 0.00859087, 0.00819245, 
0075      & 0.00635198, 0.00666929, 0.00697114, 0.00802245, 0.00798092, 
0076      & 0.00516927, 0.00300771, 0.0063434, 0.00366942, 0.00437136, 
0077      & 0.00360411, 0.00489363, 0.00430648, 0.0042447, 0.00458052, 
0078      & 0.00393777, 0.00530959, 0.00629177, 0.00565058, 0.00715763, 
0079      & 0.00885321, 0.0079141, 0.00839358, 0.00967026, 0.0112604, 
0080      & 0.0101916, 0.0093129, 0.00948958, 0.0122799, 0.00958799, 
0081      & 0.00849266, 0.0107303, 0.0109834, 0.0108152, 0.0113139, 
0082      & 0.0102079, 0.00888804, 0.00806682, 0.00641207, 0.00592756, 
0083      & 0.00466191, 0.00448103, 0.0040952, 0.00279473, 0.00293942, 
0084      & 0.00220929, 0.00179707, 0.00129002, 0.000858795, 0.000767008, 
0085      & 0.000443976, 0.000234576, 0.000106864, 4.61354e-05, 7.41788e-06
0086      & /
0087       L01PIP = 0
0088       W01PIP = 0.088537
0089 
0090       DATA H11PIP /
0091      & 5.33113e-13, 0, 2.83716e-06, 0, 9.66523e-06, 
0092      & 1.03652e-05, 1.08677e-05, 0.000117719, 0.000697829, 0.000348879, 
0093      & 3.44783e-05, 0.000374304, 0.000215161, 0.00207609, 0.00168597, 
0094      & 0.00332386, 0.000709265, 0.00268448, 0.00236645, 0.00152867, 
0095      & 0.00173326, 0.00373986, 0.00333924, 0.00163364, 0.00152791, 
0096      & 0.0017234, 0.00278988, 0.00447519, 0.00455486, 0.00298373, 
0097      & 0.00118829, 0.000913156, 0.00220684, 0.00278482, 0.0221093, 
0098      & 0.015162, 0.0169688, 0.0293492, 0.0125008, 0.0129483, 
0099      & 0.0228637, 0.0129951, 0.0171873, 0.00809127, 0.0245021, 
0100      & 0.0127751, 0.00926369, 0.0188683, 0.0088837, 0.0113599, 
0101      & 0.00916915, 0.0221993, 0.0855953, 0.165229, 0.0606735, 
0102      & 0.0092229, 0.0088328, 0.0200408, 0.0158931, 0.0124937, 
0103      & 0.0165893, 0.0143928, 0.0104166, 0.00999168, 0.0220949, 
0104      & 0.0321867, 0.0178989, 0.0138762, 0.0216627, 0.0583511, 
0105      & 0.0127716, 0.0136221, 0.0265505, 0.00889986, 3.00881e-05, 
0106      & 0.000916771, 0.00128923, 0.000705899, 0.000398539, 3.46806e-06, 
0107      & 1.47919e-08, 0.000284208, 1.09732e-05, 3.59868e-09, 0, 
0108      & 0, 0, 0, 0, 0, 
0109      & 0, 0, 0, 0, 0, 
0110      & 0, 0, 0, 0, 8.6477e-05
0111      & /
0112       L11PIP = -351.32
0113       W11PIP = 6.5698
0114 
0115       DATA H12PIP /
0116      & 1.0654e-05, 8.0948e-06, 0, 0, 0, 
0117      & 1.04201e-05, 1.32767e-05, 8.72615e-05, 0, 0.00032759, 
0118      & 6.62489e-05, 0.000458022, 2.67734e-05, 3.08679e-05, 0.000406985, 
0119      & 0.000119465, 8.12318e-05, 0.000315078, 0.000120396, 0.0032062, 
0120      & 0.000339527, 0.00207842, 0.00013105, 0.000761955, 0.000532921, 
0121      & 0.00116153, 0.000787987, 0.00094317, 0.00191637, 0.00211845, 
0122      & 0.00150852, 0.00280968, 0.000619034, 0.00296141, 0.0012741, 
0123      & 0.000497584, 0.000494573, 6.83578e-05, 0.0011124, 0.011549, 
0124      & 0.0110228, 0.038561, 0.0219387, 0.0242722, 0.00837311, 
0125      & 0.0164719, 0.0196938, 0.030935, 0.021377, 0.0245699, 
0126      & 0.0183116, 0.0227022, 0.00939819, 0.0176613, 0.00816641, 
0127      & 0.00667122, 0.00367635, 0.0147823, 0.00885708, 0.00611165, 
0128      & 0.0135846, 0.0226814, 0.00581295, 0.00916744, 0.0896702, 
0129      & 0.110059, 0.0528056, 0.0067003, 0.0185099, 0.00827425, 
0130      & 0.004539, 0.0065992, 0.0108934, 0.00716736, 0.00931764, 
0131      & 0.00730072, 0.00489178, 0.00719064, 0.0083024, 0.0163315, 
0132      & 0.0170301, 0.00709818, 0.00844832, 0.0155328, 0.0169131, 
0133      & 0.0113505, 0.0307901, 0.0335334, 0.0194657, 0.0203412, 
0134      & 0.0158848, 0.00885054, 0.000221207, 7.26087e-06, 0.000167395, 
0135      & 4.81084e-05, 5.27231e-07, 0, 3.52024e-05, 0.00197381
0136      & /
0137       L12PIP = -322.319
0138       W12PIP = 4.93108
0139 
0140       DATA H13PIP /
0141      & 0.000310012, 5.40821e-05, 0, 0, 0.000353716, 
0142      & 0.000436659, 0.00165439, 1.1487e-05, 0.000415032, 0, 
0143      & 0.000987027, 0.000441375, 0.00115962, 0.000433986, 2.78603e-05, 
0144      & 2.56581e-06, 1.18134e-05, 3.90798e-05, 0.000647728, 0.00039636, 
0145      & 0.000488113, 0.000453221, 2.83241e-05, 0.00124356, 4.7898e-05, 
0146      & 0.00179328, 0.00018784, 0.000598924, 0.000407481, 0.00120467, 
0147      & 0.000850602, 0.000374841, 2.61002e-05, 0.000147083, 2.44628e-05, 
0148      & 0.000881307, 0.0155929, 0.0195409, 0.0120419, 0.0174287, 
0149      & 0.0370262, 0.0233855, 0.013874, 0.0341585, 0.0239351, 
0150      & 0.0237525, 0.0348691, 0.0292253, 0.0292769, 0.015056, 
0151      & 0.0201203, 0.0190767, 0.0251311, 0.0235859, 0.00982545, 
0152      & 0.00917347, 0.010363, 0.00786145, 0.0173674, 0.00294907, 
0153      & 0.00210077, 0.00204187, 0.00311355, 0.0020845, 0.00305026, 
0154      & 0.0409822, 0.0868859, 0.0495863, 0.0030283, 0.00174327, 
0155      & 0.000682221, 0.00204197, 0.00091821, 0.00130504, 0.000774014, 
0156      & 0.00338104, 0.00126523, 0.00197955, 0.00958699, 0.00647541, 
0157      & 0.00591911, 0.0101282, 0.02189, 0.0157605, 0.0211324, 
0158      & 0.00942285, 0.0276158, 0.0102431, 0.0119338, 0.0299873, 
0159      & 0.0172403, 0.0180265, 0.00757459, 0.015104, 0.00985159, 
0160      & 0.0128346, 0.0404129, 0.000691739, 0, 0.000446395
0161      & /
0162       L13PIP = -282.57
0163       W13PIP = 4.23404
0164 
0165       DATA H14PIP /
0166      & 2.29584e-05, 0, 0, 0, 0, 
0167      & 2.32513e-05, 0, 0, 0.00126011, 0, 
0168      & 1.73733e-05, 0, 0, 0, 0.000540727, 
0169      & 0, 5.19404e-05, 0.00138925, 2.29278e-05, 0.000481245, 
0170      & 7.17118e-05, 0, 0, 2.25705e-05, 0, 
0171      & 1.9636e-05, 0, 0.00353336, 0.00705982, 0.0139233, 
0172      & 0.0157968, 0.0135466, 0.0175213, 0.0289592, 0.038619, 
0173      & 0.0313698, 0.0281606, 0.0244934, 0.0331813, 0.0361661, 
0174      & 0.0309785, 0.0168464, 0.0176594, 0.0226654, 0.0195988, 
0175      & 0.0152212, 0.0223367, 0.0161299, 0.0109783, 0.00288611, 
0176      & 0.00761939, 0.0104571, 0.00404269, 0.00540237, 0.0137174, 
0177      & 0.00207609, 0.00277996, 0.00151671, 0.00423609, 0.00529629, 
0178      & 0.0379036, 0.0723185, 0.0259203, 0.00115837, 0.00269268, 
0179      & 0.00223959, 0.00060991, 0.00970821, 0.00172158, 0.00273516, 
0180      & 0.00475368, 0.00293239, 0.00301289, 0.00744784, 0.0085848, 
0181      & 0.00558407, 0.0177777, 0.0143056, 0.0136371, 0.0167623, 
0182      & 0.0169982, 0.0111679, 0.0215657, 0.0127491, 0.012487, 
0183      & 0.0157764, 0.0213825, 0.0250225, 0.0132835, 0.0173019, 
0184      & 0.0196315, 0.0061405, 0.0146683, 0.0061938, 0.00486222, 
0185      & 0.000241493, 0, 0, 0, 2.21875e-05
0186      & /
0187       L14PIP = -232.588
0188       W14PIP = 3.80217
0189 
0190       DATA H15PIP /
0191      & 0.000634152, 1.44403e-05, 0.000372091, 0.00598972, 0.000421085, 
0192      & 0.00114549, 0.0045509, 0.000807313, 0.00716318, 0.00128207, 
0193      & 0.0074748, 0.00523849, 0.000464371, 0.000975253, 0.0064183, 
0194      & 0.00250317, 0.00736904, 0.00306794, 0.0117145, 0.0159397, 
0195      & 0.0145629, 0.0118529, 0.00699298, 0.0118464, 0.00627574, 
0196      & 0.00590872, 0.00823733, 0.0130178, 0.00695227, 0.00493675, 
0197      & 0.00188163, 0.0052956, 0.00921775, 0.0144002, 0.00337183, 
0198      & 0.00672707, 0.00553079, 0.00212723, 0.00628076, 0.0029888, 
0199      & 0.00134376, 0.00137748, 0.000492401, 3.01768e-05, 5.49958e-05, 
0200      & 0.000446173, 0.00494028, 0.00324178, 0.0736418, 0.114037, 
0201      & 0.118867, 0.0380058, 0.00111624, 0.0016342, 0.00129093, 
0202      & 0.000447238, 0.000640308, 0.00117184, 0.000321047, 0.00073503, 
0203      & 0.00387093, 0.0119104, 0.00201602, 0.00352664, 0.00270712, 
0204      & 0.00113564, 0.00052767, 0.00483383, 0.00101715, 0.0022072, 
0205      & 0.00171, 0.0040411, 0.0031741, 0.00483984, 0.00140027, 
0206      & 0.00162046, 0.00333865, 0.0124586, 0.0226273, 0.00859157, 
0207      & 0.0230053, 0.0152241, 0.0171203, 0.0283448, 0.0195063, 
0208      & 0.0261893, 0.0118142, 0.0125056, 0.0148478, 0.014118, 
0209      & 0.0103067, 0.00549522, 0.0171441, 0.0189956, 0.019878, 
0210      & 0.0154315, 0.00382841, 0.0172475, 0.0147403, 0.000916401
0211      & /
0212       L15PIP = -129.895
0213       W15PIP = 2.60096
0214 
0215       DATA H16PIP /
0216      & 6.7971e-06, 3.01274e-06, 0, 0.00129956, 0, 
0217      & 0.000271622, 8.26923e-05, 5.39106e-05, 6.01399e-06, 2.43287e-06, 
0218      & 7.88295e-05, 3.7559e-05, 8.66536e-05, 0.000201543, 0.00179214, 
0219      & 5.04746e-05, 0.000149904, 0.000183681, 0.000349176, 0.000608009, 
0220      & 0.00150455, 0.000103156, 9.74479e-05, 0.000814623, 0.000161148, 
0221      & 0.00290113, 0.000750103, 2.31375e-05, 0.000159454, 0.000165649, 
0222      & 0.000153731, 3.21401e-05, 5.86141e-05, 0.00041467, 0.00165555, 
0223      & 0.000277985, 0.000263332, 0.00142203, 0.000292073, 0, 
0224      & 0, 0, 0, 0, 0, 
0225      & 0, 1.01234e-05, 0.0654731, 0.457601, 0.120005, 
0226      & 0.00440535, 0, 0, 0, 0, 
0227      & 0, 0, 0, 0.000955635, 0.000119864, 
0228      & 7.49476e-05, 1.63926e-05, 3.70977e-05, 0.000187335, 8.50817e-05, 
0229      & 0.00113397, 0.000191324, 0.000111816, 1.86227e-05, 8.14771e-06, 
0230      & 0.000180422, 0, 8.86878e-06, 2.10251e-05, 0.00016887, 
0231      & 0.00018463, 0.00340725, 0.0112379, 0.018343, 0.0139495, 
0232      & 0.0120172, 0.0240345, 0.0206841, 0.0190761, 0.0114656, 
0233      & 0.0129129, 0.0160691, 0.0174703, 0.0129843, 0.0192155, 
0234      & 0.0189283, 0.0142057, 0.0143604, 0.0113385, 0.0141372, 
0235      & 0.013792, 0.00698127, 0.0112986, 0.00879474, 0.00578339
0236      & /
0237       L16PIP = -122.856
0238       W16PIP = 2.52641
0239 
0240       DATA H17PIP /
0241      & 1.11898e-05, 2.87847e-05, 2.43455e-05, 0, 6.28702e-06, 
0242      & 0.000585136, 0, 0.00014644, 0.000137975, 3.39792e-07, 
0243      & 2.95295e-05, 0.000100641, 3.14584e-05, 2.9754e-06, 1.16329e-05, 
0244      & 3.72721e-05, 8.2662e-05, 1.44343e-06, 1.44614e-06, 0, 
0245      & 0, 0, 3.88282e-06, 2.64963e-05, 0.000833046, 
0246      & 2.79771e-05, 2.51343e-05, 2.58417e-05, 5.29819e-06, 0.000243133, 
0247      & 6.1886e-06, 0, 0, 0, 0, 
0248      & 0, 0, 0, 0, 0.00836989, 
0249      & 0.101087, 0.672209, 0.057397, 0.000615234, 0, 
0250      & 0, 0, 0, 0, 0, 
0251      & 0, 0, 2.02423e-05, 2.28592e-06, 1.54392e-05, 
0252      & 0, 1.35571e-05, 0, 2.18217e-05, 2.89096e-07, 
0253      & 1.49067e-05, 1.53079e-05, 0, 0, 0, 
0254      & 0, 0, 0, 0, 0, 
0255      & 0, 0, 0.000775777, 0.0168114, 0.01169, 
0256      & 0.0179415, 0.0135197, 0.014845, 0.00864093, 0.0141509, 
0257      & 0.00955823, 0.0108768, 0.00681651, 0.00868957, 0.0040554, 
0258      & 0.00541674, 0.00271282, 0.00277466, 0.00232863, 0.00155673, 
0259      & 0.00105471, 0.000776684, 0.000668267, 0.000399514, 0.00056125, 
0260      & 0.000521595, 0.000281843, 0.00010287, 8.60263e-05, 0.000167689
0261      & /
0262       L17PIP = -91.6807
0263       W17PIP = 2.2174
0264 
0265       DATA H18PIP /
0266      & 8.74515e-05, 0, 0, 0, 0, 
0267      & 0, 0, 0, 0, 5.9248e-07, 
0268      & 1.14786e-05, 8.42178e-07, 0, 0, 0, 
0269      & 9.19037e-07, 0, 2.2951e-05, 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, 1.76373e-06, 0.00246469, 0.0147158, 
0276      & 0.903448, 0.0716357, 0.00457964, 0.00165081, 0.00122157, 
0277      & 0.000118245, 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, 0, 0, 0, 
0283      & 0, 0, 0, 0, 0, 
0284      & 0, 0, 0, 0, 0, 
0285      & 0, 0, 0, 0, 3.95678e-05
0286      & /
0287       L18PIP = -38.3739
0288       W18PIP = 0.757227
0289 
0290       DATA H21PIP /
0291      & 1.24499e-05, 0, 0, 0, 0, 
0292      & 0, 0, 0, 0, 0, 
0293      & 0, 0, 0, 0, 5.33113e-13, 
0294      & 0, 9.22661e-09, 3.25917e-06, 2.98594e-11, 0.00029729, 
0295      & 0.00180003, 0.00108058, 0.00446699, 0.00462489, 0.0064249, 
0296      & 0.00766338, 0.00711616, 0.00552038, 0.00654624, 0.0235285, 
0297      & 0.00753979, 0.00894942, 0.0105382, 0.0107301, 0.0426816, 
0298      & 0.0123107, 0.00766936, 0.0113983, 0.0119821, 0.00969033, 
0299      & 0.0215649, 0.0220866, 0.0165235, 0.0169058, 0.0242281, 
0300      & 0.0892274, 0.224699, 0.0720402, 0.0352033, 0.0145885, 
0301      & 0.0135497, 0.0210892, 0.0174985, 0.00957077, 0.0143121, 
0302      & 0.0166563, 0.0180706, 0.00709623, 0.0128876, 0.0157655, 
0303      & 0.0159355, 0.0167274, 0.00399354, 0.00850087, 0.005722, 
0304      & 0.0104454, 0.0154387, 0.0068016, 0.00329413, 0.0106899, 
0305      & 0.0041135, 0.0032934, 0.00095308, 0.00104362, 0.000323078, 
0306      & 0.000143452, 0.000661197, 0.000498359, 0.000555052, 8.97538e-05, 
0307      & 0.00116957, 0.00101443, 0.000116295, 4.69045e-05, 0.000522508, 
0308      & 1.06665e-05, 0.000175137, 8.49495e-05, 2.75418e-05, 6.61382e-05, 
0309      & 0.000153269, 7.54453e-05, 0.000549256, 6.46932e-05, 0.000197881, 
0310      & 0.000326745, 1.71139e-05, 8.75438e-06, 9.72316e-06, 7.78273e-08
0311      & /
0312       L21PIP = -233.791
0313       W21PIP = 5.04482
0314 
0315       DATA H22PIP /
0316      & 7.08316e-06, 0, 0, 1.37438e-05, 0, 
0317      & 0, 0, 0.00156742, 0.00617852, 0.0040709, 
0318      & 0.000731679, 0.00454595, 0.0327724, 0.00414136, 0.00447431, 
0319      & 0.00434215, 0.00756351, 0.0214209, 0.00517579, 0.0100469, 
0320      & 0.0177491, 0.0116227, 0.0121513, 0.00927092, 0.00798516, 
0321      & 0.00817533, 0.00899092, 0.0101, 0.0129223, 0.0150802, 
0322      & 0.0233626, 0.0135343, 0.0219158, 0.0171212, 0.0197701, 
0323      & 0.0722747, 0.219766, 0.0731755, 0.0297602, 0.028741, 
0324      & 0.020213, 0.0132795, 0.0256945, 0.0146538, 0.0116142, 
0325      & 0.0130971, 0.0159855, 0.00532391, 0.012259, 0.00816045, 
0326      & 0.00776793, 0.0114451, 0.00690639, 0.00980207, 0.00925963, 
0327      & 0.00888912, 0.012625, 0.00911364, 0.00510311, 0.00422428, 
0328      & 0.00553425, 0.0094148, 0.00691589, 0.00266256, 0.00196524, 
0329      & 0.00111732, 0.00078692, 0.000346808, 8.34525e-05, 3.32677e-05, 
0330      & 3.39221e-10, 0.00082605, 9.99705e-06, 0.000610111, 0.000769814, 
0331      & 0.00034909, 4.9681e-05, 0.000784127, 0.000901422, 0.000476176, 
0332      & 7.92977e-05, 0, 1.29623e-09, 1.89854e-05, 4.92113e-05, 
0333      & 5.06098e-05, 1.1604e-05, 1.19333e-05, 1.33384e-05, 5.01709e-05, 
0334      & 0, 0.000106114, 1.13685e-05, 0, 0, 
0335      & 0, 0, 0, 1.19368e-05, 9.08825e-06
0336      & /
0337       L22PIP = -163.585
0338       W22PIP = 4.47615
0339 
0340       DATA H23PIP /
0341      & 1.21665e-05, 0.000584345, 0.00123885, 0.00113967, 0.000910271, 
0342      & 0.0013026, 0.00369245, 0.00730578, 0.00214106, 0.00306453, 
0343      & 0.0103205, 0.0045115, 0.00561981, 0.00570045, 0.00394726, 
0344      & 0.0111376, 0.00506751, 0.0101294, 0.00862129, 0.004646, 
0345      & 0.00822931, 0.0118677, 0.00967557, 0.00662644, 0.0132282, 
0346      & 0.016002, 0.0111102, 0.0242054, 0.0220567, 0.0390714, 
0347      & 0.0356933, 0.0624498, 0.0796421, 0.205654, 0.0743523, 
0348      & 0.0596956, 0.0451554, 0.0289786, 0.0102739, 0.0120995, 
0349      & 0.00595321, 0.00323252, 0.0115545, 0.015578, 0.00571782, 
0350      & 0.0055804, 0.00324562, 0.00429525, 0.00504112, 0.00458077, 
0351      & 0.00261351, 0.0047216, 0.00293823, 0.00254585, 0.00384203, 
0352      & 0.014821, 0.00134761, 0.00481391, 0.00793808, 0.00201766, 
0353      & 0.00859462, 0.00291415, 0.00272756, 0.00356595, 0.000900677, 
0354      & 0.001216, 0.000233361, 1.18341e-05, 1.20393e-05, 0, 
0355      & 0, 2.40293e-05, 0, 0, 1.43355e-05, 
0356      & 0, 0, 0, 1.48224e-05, 1.34953e-05, 
0357      & 0, 0, 0, 0, 0, 
0358      & 0, 6.65537e-05, 0, 0, 1.41686e-05, 
0359      & 0, 0, 0.000115017, 0, 0, 
0360      & 0, 0, 0, 0, 2.24414e-05
0361      & /
0362       L23PIP = -128.872
0363       W23PIP = 3.88154
0364 
0365       DATA H24PIP /
0366      & 0.000311837, 0.00446498, 0.00289124, 0.00259707, 0.00201349, 
0367      & 0.00543146, 0.00545922, 0.00117826, 0.0109708, 0.00716575, 
0368      & 0.0123594, 0.0049786, 0.00625825, 0.00588438, 0.00234952, 
0369      & 0.0133116, 0.00193849, 0.0160146, 0.00393, 0.0113437, 
0370      & 0.0032592, 0.00357031, 0.00870625, 0.00280455, 0.00319542, 
0371      & 0.00553435, 0.00716013, 0.0115591, 0.0131562, 0.0149962, 
0372      & 0.0384392, 0.0433059, 0.0517587, 0.0910023, 0.175265, 
0373      & 0.0956857, 0.0500386, 0.0401554, 0.017962, 0.0147156, 
0374      & 0.016428, 0.00942572, 0.00352185, 0.00725293, 0.0143238, 
0375      & 0.00600932, 0.00809748, 0.0107947, 0.00584364, 0.00753129, 
0376      & 0.00492352, 0.00480419, 0.00483094, 0.00302921, 0.00877399, 
0377      & 0.0101282, 0.00617114, 0.00517373, 0.00696767, 0.00485001, 
0378      & 0.00787709, 0.00223682, 0.00726232, 0.0029128, 0.0110542, 
0379      & 0.00135196, 0.00148019, 0.00217861, 0.000824032, 0.000154047, 
0380      & 0.00015135, 0, 0, 1.904e-05, 0, 
0381      & 0, 0, 1.93836e-05, 0, 0, 
0382      & 0, 0.000437438, 0, 0, 0, 
0383      & 0, 0, 0, 0, 0, 
0384      & 0, 0, 0, 0, 0, 
0385      & 1.9636e-05, 0, 0, 0, 1.66816e-05
0386      & /
0387       L24PIP = -122.919
0388       W24PIP = 3.58167
0389 
0390       DATA H25PIP /
0391      & 3.08613e-05, 2.3775e-05, 3.31308e-05, 0.00172943, 2.5173e-05, 
0392      & 2.53817e-05, 0.000379864, 0.00107328, 0.00141099, 0.000317165, 
0393      & 0.00151919, 0.00222149, 0.00541066, 0.000101123, 0.000288772, 
0394      & 0.000711627, 0.00931534, 0.00394902, 0.00158275, 0.00253355, 
0395      & 0.00277531, 0.00329854, 0.00420593, 0.0032895, 0.0180799, 
0396      & 0.00900933, 0.0110669, 0.000444264, 0.000593851, 0.0152901, 
0397      & 0.000363287, 0.00104995, 0.000558568, 0.0020697, 0.00093785, 
0398      & 0.000441557, 0.00517492, 0.0151616, 0.00518958, 0.0158878, 
0399      & 0.00324517, 0.0110021, 0.0262855, 0.0081855, 0.00628305, 
0400      & 0.0187747, 0.0273732, 0.0640964, 0.352619, 0.0680577, 
0401      & 0.0332562, 0.0270636, 0.0266914, 0.0180726, 0.0157334, 
0402      & 0.0147676, 0.00490606, 0.0157635, 0.0145518, 0.0198641, 
0403      & 0.00444695, 0.00650925, 0.00278857, 0.00849149, 0.00431679, 
0404      & 0.00897708, 0.00475489, 0.000160903, 0.000448345, 0.00212034, 
0405      & 0.00105045, 0.00237049, 0.00203232, 0.00202296, 0.00232034, 
0406      & 0.00218087, 0.00268235, 0.000809444, 0.00141758, 0.00260935, 
0407      & 0.00160327, 0.00335068, 0.00117874, 0.000867483, 0.00142441, 
0408      & 0.000471824, 0.000510839, 0.000538695, 0.000351824, 0.000129967, 
0409      & 0.000177984, 0.000424432, 0.000176455, 0.000183713, 0.000319188, 
0410      & 0.000240305, 0.00113176, 0, 0, 0.000243693
0411      & /
0412       L25PIP = -123.03
0413       W25PIP = 2.51637
0414 
0415       DATA H26PIP /
0416      & 2.4521e-05, 0, 0, 0, 0, 
0417      & 0.00119917, 4.40312e-06, 0, 0.00295916, 1.88719e-05, 
0418      & 0.00115793, 0.00011599, 0.000766974, 0, 0.000746359, 
0419      & 0, 0, 0, 0.000650065, 0.00430453, 
0420      & 0.00322837, 0.00324985, 0.00287193, 0.00223117, 0.00261635, 
0421      & 0.00340023, 0.00461937, 0.00551557, 0.00340553, 0.0074121, 
0422      & 0.00780602, 0.00884254, 0.00847804, 0.0130245, 0.00897056, 
0423      & 0.0120828, 0.0161812, 0.0306888, 0.0423262, 0.581011, 
0424      & 0.0608386, 0.0254732, 0.0162222, 0.0112842, 0.00846502, 
0425      & 0.0129803, 0.0106386, 0.00793811, 0.00695773, 0.00937925, 
0426      & 0.0049649, 0.00350949, 0.00430532, 0.00208831, 0.00253026, 
0427      & 0.00576843, 0.00296543, 0.00241021, 0.000739545, 0.00226987, 
0428      & 0.00303522, 0.00236095, 0.00115835, 0.00269017, 0.00104449, 
0429      & 0.001587, 0.00220075, 0, 0, 0, 
0430      & 0.000752689, 0, 0.000989486, 0, 0, 
0431      & 0.000852312, 0, 0, 1.12449e-05, 0, 
0432      & 0, 0.00147333, 0.000189365, 0, 0, 
0433      & 0, 0, 0, 0, 0, 
0434      & 0, 0, 0, 0, 0, 
0435      & 0, 0, 0, 0, 1.53022e-05
0436      & /
0437       L26PIP = -38.5658
0438       W26PIP = 0.97365
0439 
0440       DATA H27PIP /
0441      & 1.60426e-05, 0, 0, 0.000592581, 0, 
0442      & 0, 3.67547e-05, 0, 0, 0.000103593, 
0443      & 1.31541e-05, 1.21189e-05, 0.000160236, 0.000689567, 0.000662996, 
0444      & 0.000626592, 0.000177834, 0.000254555, 0.000617186, 0.000338572, 
0445      & 9.48624e-05, 0.000734885, 0.000295448, 0.000971497, 0.00157463, 
0446      & 0.00106084, 0.000291848, 0.00111911, 0.000933523, 0.00330945, 
0447      & 0.000635218, 0.00155171, 0.00147312, 0.00148892, 0.00351518, 
0448      & 0.00209544, 0.00249117, 0.00508019, 0.00162404, 0.00336915, 
0449      & 0.00294014, 0.00329877, 0.00707486, 0.00560809, 0.0119778, 
0450      & 0.022747, 0.0400217, 0.0812578, 0.265286, 0.309946, 
0451      & 0.0775727, 0.0409609, 0.0252535, 0.0127548, 0.00601407, 
0452      & 0.00461052, 0.00248568, 0.00494846, 0.00359106, 0.00405223, 
0453      & 0.00163796, 0.00134051, 0.00203898, 0.001868, 0.000836511, 
0454      & 0.00219768, 0.00108489, 0.00288126, 0.00158345, 0.00321088, 
0455      & 0.00113011, 0.000225731, 0.00177876, 0.00117096, 0.00068002, 
0456      & 0.000743821, 0.000353149, 0.000282057, 0.000396032, 0.000661008, 
0457      & 0.000860054, 0.00130829, 8.06919e-05, 8.55036e-05, 0.000135121, 
0458      & 7.72747e-05, 2.35359e-05, 9.22029e-05, 0.000101736, 0.000121441, 
0459      & 1.07369e-05, 1.77419e-05, 0, 0.000543756, 0, 
0460      & 0, 1.31641e-05, 0, 0, 1.2226e-05
0461      & /
0462       L27PIP = -20.4283
0463       W27PIP = 0.416322
0464 
0465       DATA H28PIP /
0466      & 0.000806955, 0, 0, 0, 0, 
0467      & 0, 0, 0, 4.79586e-05, 0, 
0468      & 0, 5.18181e-05, 0, 4.80537e-05, 0, 
0469      & 0, 0, 0.00207586, 4.68062e-05, 4.48167e-05, 
0470      & 9.60901e-05, 4.79973e-05, 4.8069e-05, 7.41246e-05, 0.0012859, 
0471      & 0.00106357, 0.00125006, 0.000908712, 0.00432513, 0.00474448, 
0472      & 0.00491914, 0.00235676, 0.00357869, 0.00465614, 0.0122611, 
0473      & 0.00566573, 0.0145555, 0.0139249, 0.0197937, 0.0114883, 
0474      & 0.0176319, 0.017118, 0.0301752, 0.0254699, 0.0268255, 
0475      & 0.0342418, 0.0541782, 0.0651573, 0.111995, 0.15187, 
0476      & 0.0619188, 0.0407728, 0.0362754, 0.0342405, 0.0296624, 
0477      & 0.0241963, 0.0162363, 0.0240553, 0.0101949, 0.0103208, 
0478      & 0.00970691, 0.00878518, 0.00438486, 0.000991544, 0.00571476, 
0479      & 0.00401078, 0.00485682, 0.00814876, 0.00133929, 0.000844935, 
0480      & 0.00256597, 0.0020702, 0.00214425, 0.000804268, 0.00178353, 
0481      & 0.0013444, 0.0013126, 0.00117207, 4.43966e-05, 0.00228745, 
0482      & 6.97493e-05, 0.0010184, 4.50188e-05, 4.73003e-05, 0.000868372, 
0483      & 0, 0, 0, 0, 6.77857e-06, 
0484      & 2.53689e-05, 0, 0, 0, 4.50572e-05, 
0485      & 0, 6.25734e-05, 0, 0, 0.000795594
0486      & /
0487       L28PIP = -2.91183
0488       W28PIP = 0.0592163
0489 
0490       DATA H31PIP /
0491      & 1.28794e-10, 4.29349e-05, 2.95159e-06, 4.35906e-06, 1.74352e-05, 
0492      & 0.000140797, 8.0488e-08, 0.000182465, 0.000158542, 5.07617e-05, 
0493      & 0.000506308, 0.000202307, 9.44656e-05, 0.000523264, 0.000803045, 
0494      & 0.00374257, 5.85455e-05, 0.000574009, 0.00326433, 0.00375907, 
0495      & 0.00255214, 0.000760615, 0.00661568, 0.0135184, 0.00380813, 
0496      & 0.00558576, 0.00409408, 0.00567706, 0.00583447, 0.00611012, 
0497      & 0.0101142, 0.0125109, 0.010277, 0.00629738, 0.0127955, 
0498      & 0.0204694, 0.00882161, 0.0158957, 0.0199407, 0.0377303, 
0499      & 0.0323829, 0.0346142, 0.0413717, 0.0451508, 0.0409556, 
0500      & 0.045016, 0.0633272, 0.0371606, 0.112646, 0.0356994, 
0501      & 0.0284791, 0.0288539, 0.0264478, 0.0302748, 0.0352145, 
0502      & 0.0300017, 0.0171916, 0.0107747, 0.0115944, 0.00968996, 
0503      & 0.00610279, 0.00515107, 0.00579814, 0.00360386, 0.00298062, 
0504      & 0.00119322, 0.00633918, 0.00325104, 0.00428859, 0.00107778, 
0505      & 0.00109302, 0.00359229, 0.00143928, 0.00401823, 0.00239217, 
0506      & 0.00281532, 0.000310152, 0.0010396, 0.000107218, 0.000913356, 
0507      & 0.000568067, 0.000246301, 4.93317e-05, 0.000143489, 8.97809e-05, 
0508      & 0.00052992, 5.83217e-05, 6.23938e-06, 0.000300814, 9.67648e-06, 
0509      & 4.52452e-05, 0, 6.15634e-11, 3.68863e-06, 1.56664e-06, 
0510      & 9.36341e-06, 0, 7.35527e-07, 0, 4.62094e-05
0511      & /
0512       L31PIP = -0.689192
0513       W31PIP = 0.0144891
0514 
0515       DATA H32PIP /
0516      & 2.0661e-09, 5.17431e-06, 0, 0, 0, 
0517      & 0, 2.17538e-09, 0, 0, 0, 
0518      & 0.000195773, 8.82447e-06, 9.22747e-06, 4.85883e-09, 6.01971e-08, 
0519      & 1.08997e-05, 1.10367e-07, 0.000859553, 0.000275485, 7.16774e-05, 
0520      & 2.07681e-05, 0.0011083, 0.000309806, 0.000296728, 0.000693354, 
0521      & 0.000400204, 0.000523841, 0.000489483, 0.000712496, 9.2805e-05, 
0522      & 0.00104667, 0.000256216, 0.0038372, 0.00286395, 0.00086659, 
0523      & 0.0062178, 0.00151287, 0.00663368, 0.00520896, 0.014148, 
0524      & 0.0114697, 0.0129929, 0.0219428, 0.0155873, 0.0216692, 
0525      & 0.0229147, 0.0211062, 0.045339, 0.045421, 0.0874331, 
0526      & 0.0765928, 0.103529, 0.0835588, 0.0483317, 0.0481097, 
0527      & 0.064725, 0.039975, 0.0279965, 0.0115384, 0.0170735, 
0528      & 0.0148633, 0.0151424, 0.0113386, 0.00990759, 0.0160581, 
0529      & 0.0115443, 0.00705588, 0.00326453, 0.0105802, 0.00843145, 
0530      & 0.00318462, 0.00400778, 0.000999909, 0.000551292, 0.00113602, 
0531      & 0.00157156, 0.000315473, 0.000769585, 0.000143276, 4.43216e-05, 
0532      & 5.60396e-05, 2.72143e-05, 0.00131919, 0.000352846, 5.91917e-05, 
0533      & 0.000559766, 3.6878e-06, 7.59175e-05, 0, 1.16646e-05, 
0534      & 5.40041e-06, 0, 0, 1.85268e-05, 5.14758e-06, 
0535      & 5.99645e-06, 0, 1.63374e-06, 0.000418494, 0.000186145
0536      & /
0537       L32PIP = -0.420724
0538       W32PIP = 0.00795474
0539 
0540       DATA H33PIP /
0541      & 2.71362e-05, 0, 0, 1.01681e-05, 1.39776e-05, 
0542      & 0, 0, 5.2797e-05, 0.000519822, 0.000346547, 
0543      & 0.000692858, 0.000545854, 0.000354293, 0.00176475, 0.000292791, 
0544      & 0.000122758, 0.0014593, 0.000388585, 0.00012397, 0.00182378, 
0545      & 0.000725428, 0.00347942, 0.00311504, 0.00111084, 0.00181921, 
0546      & 0.00242183, 0.00219594, 0.00456789, 0.00271807, 0.00821183, 
0547      & 0.00551707, 0.0116062, 0.0233815, 0.0251755, 0.0359301, 
0548      & 0.0266215, 0.0596189, 0.0438721, 0.0574053, 0.0539203, 
0549      & 0.0829509, 0.0525141, 0.0300645, 0.0236688, 0.0132295, 
0550      & 0.0375977, 0.0457821, 0.0505996, 0.0626144, 0.0348189, 
0551      & 0.026336, 0.049698, 0.0286946, 0.022097, 0.0157245, 
0552      & 0.00858574, 0.00288532, 0.00412126, 0.0029887, 0.00558716, 
0553      & 0.00202055, 0.00131854, 0.000822525, 0.00120722, 0.00111908, 
0554      & 0.000129909, 0.00123292, 0.00143372, 0.00094851, 0.00137501, 
0555      & 0.00116737, 0.000409284, 0.00290592, 0.000119708, 1.93924e-05, 
0556      & 0.000330044, 0.000286246, 0.000295407, 5.62705e-06, 5.58155e-05, 
0557      & 0.000117239, 0, 1.73392e-05, 0, 0, 
0558      & 8.07097e-05, 0, 1.09871e-05, 0, 0, 
0559      & 0, 2.28838e-05, 1.74814e-05, 0, 0, 
0560      & 0, 0, 0, 0, 1.81038e-05
0561      & /
0562       L33PIP = -0.120724
0563       W33PIP = 0.00275619
0564 
0565       DATA H34PIP /
0566      & 7.99587e-05, 0, 0.000354492, 0.000224612, 0, 
0567      & 0.000689408, 0.000233548, 2.57944e-05, 7.75077e-05, 0.000396437, 
0568      & 4.42251e-05, 0.000554149, 0.00124161, 0.000742672, 0.000190144, 
0569      & 0.00206378, 0.000321067, 0.000406244, 0.0055979, 0.00512566, 
0570      & 0.00614435, 0.00617894, 0.0108186, 0.0195639, 0.00805201, 
0571      & 0.0153466, 0.0197377, 0.0195504, 0.020018, 0.023119, 
0572      & 0.0111326, 0.0202596, 0.015652, 0.00786615, 0.0125039, 
0573      & 0.0147067, 0.0327006, 0.0216295, 0.0283346, 0.0380813, 
0574      & 0.0368156, 0.0350314, 0.0295645, 0.0269304, 0.0258832, 
0575      & 0.0257712, 0.0245514, 0.0194394, 0.0119366, 0.0198736, 
0576      & 0.0214727, 0.017422, 0.0276843, 0.0349511, 0.0431459, 
0577      & 0.0417523, 0.037938, 0.019027, 0.0200027, 0.0148423, 
0578      & 0.0101149, 0.0150882, 0.0061691, 0.00512886, 0.0175173, 
0579      & 0.00620951, 0.00168659, 0.00242407, 0.00215674, 0.00312956, 
0580      & 0.00461509, 0.0022891, 0.0059655, 0.000718532, 0.00183711, 
0581      & 0.00108625, 0.000657539, 0.000396869, 0.00157424, 0.000171215, 
0582      & 0.000340018, 2.54917e-05, 0.00481639, 0.000150324, 0.000372375, 
0583      & 0.000225013, 0, 0, 0, 6.34141e-05, 
0584      & 0.00036455, 5.35571e-05, 0.000745224, 0, 8.12183e-05, 
0585      & 0, 0, 0, 0, 2.50982e-05
0586      & /
0587       L34PIP = -0.050641
0588       W34PIP = 0.00106982
0589 
0590       DATA H35PIP /
0591      & 5.35261e-05, 0, 0, 0.000436165, 0, 
0592      & 0.000365103, 0, 4.55522e-05, 0, 2.33982e-05, 
0593      & 0.000243452, 0.0015255, 0.000144004, 0.00213957, 0.000210969, 
0594      & 0.00060538, 0.00167152, 0.000287396, 0.0013186, 0.00212773, 
0595      & 0.0121448, 0.00275012, 0.00563258, 0.00715298, 0.0119922, 
0596      & 0.00922834, 0.00723663, 0.00982466, 0.00266575, 0.0112884, 
0597      & 0.00603036, 0.00605013, 0.00805954, 0.013829, 0.00902096, 
0598      & 0.00830491, 0.00989806, 0.0060158, 0.00997639, 0.0245136, 
0599      & 0.0128573, 0.0103468, 0.0311747, 0.0132113, 0.0184835, 
0600      & 0.0255605, 0.0149908, 0.012473, 0.0114126, 0.0138825, 
0601      & 0.019067, 0.0148666, 0.0220874, 0.0199646, 0.0255158, 
0602      & 0.0140664, 0.0136795, 0.0269275, 0.0209593, 0.0159863, 
0603      & 0.00798243, 0.0118761, 0.0180555, 0.051509, 0.0619272, 
0604      & 0.0464918, 0.0452716, 0.0442871, 0.0484327, 0.0424279, 
0605      & 0.00850538, 0.00180157, 0.00983661, 0.00282007, 0.00292321, 
0606      & 0.00173022, 0.00943142, 0.000278791, 0.00600116, 0.00308312, 
0607      & 0.000432189, 0.00567291, 0.00015195, 0.00023455, 0.00927934, 
0608      & 0.0014893, 0.00359559, 0.00292326, 0.000511223, 0, 
0609      & 0, 0, 0, 9.83013e-05, 0.000417227, 
0610      & 0, 5.05413e-05, 2.6856e-05, 6.58568e-05, 5.17121e-05
0611      & /
0612       L35PIP = -0.0301681
0613       W35PIP = 0.000579994
0614 
0615       DATA H36PIP /
0616      & 0.00159298, 0, 1.01234e-05, 0.000484149, 1.32841e-05, 
0617      & 0, 0.00144427, 0.00227121, 0.00173618, 0.00139741, 
0618      & 0.000695295, 9.2873e-05, 0.00166886, 0.00108113, 0.00242136, 
0619      & 0.000142523, 0.00186032, 0.000123161, 0.0013415, 0.00192481, 
0620      & 0.00300558, 0.00387274, 0.00459359, 0.00759813, 0.00393002, 
0621      & 0.00178347, 0.00348823, 0.00206297, 0.00479786, 0.00794942, 
0622      & 0.00262232, 0.010522, 0.0117119, 0.00732612, 0.00583473, 
0623      & 0.00796447, 0.00698693, 0.0167263, 0.00751639, 0.0139822, 
0624      & 0.00949443, 0.0124952, 0.0154004, 0.0143687, 0.0217848, 
0625      & 0.025943, 0.0251584, 0.0296014, 0.053718, 0.0402889, 
0626      & 0.0289051, 0.0233588, 0.0175512, 0.0198013, 0.0129637, 
0627      & 0.0116138, 0.0112649, 0.0103107, 0.0100616, 0.0099542, 
0628      & 0.00625278, 0.0035849, 0.0101271, 0.0061698, 0.0144702, 
0629      & 0.00457895, 0.0155086, 0.0353881, 0.0321253, 0.0378383, 
0630      & 0.0415999, 0.0297897, 0.0296744, 0.0341135, 0.0358265, 
0631      & 0.0225124, 0.0292567, 0.0146062, 0.0215979, 0.00317606, 
0632      & 0.000133971, 0.00206779, 0.000181619, 2.23945e-05, 2.91215e-05, 
0633      & 0.00153234, 0.00222115, 9.65401e-05, 0.00158258, 6.08592e-05, 
0634      & 0.00119254, 0.0010705, 0.00182816, 0.000556997, 4.45912e-05, 
0635      & 3.0413e-05, 0.000496812, 0, 0, 3.91319e-05
0636      & /
0637       L36PIP = -0.0166924
0638       W36PIP = 0.000341853
0639 
0640       DATA H37PIP /
0641      & 0.0012297, 0, 0, 0.000573245, 0, 
0642      & 0.00183527, 0.000880925, 0.00051746, 0.00274355, 0.00120438, 
0643      & 0.00226004, 0.000867543, 0.00229952, 0.00219255, 0.00351109, 
0644      & 0.00252371, 0.00225901, 0.00266526, 0.00431971, 0.00189202, 
0645      & 0.00266717, 0.00314091, 0.00183742, 0.00205811, 0.00280869, 
0646      & 0.00267329, 0.00264961, 0.00453073, 0.00410943, 0.00300021, 
0647      & 0.00499862, 0.0081051, 0.00525802, 0.00651257, 0.00814132, 
0648      & 0.00711212, 0.012918, 0.0139406, 0.0187187, 0.0139834, 
0649      & 0.025749, 0.0252569, 0.0358428, 0.0410837, 0.0660987, 
0650      & 0.102705, 0.0709452, 0.0523164, 0.0336205, 0.0281069, 
0651      & 0.0217868, 0.0199769, 0.0147701, 0.0143804, 0.0100903, 
0652      & 0.00677257, 0.0118054, 0.00949159, 0.00848774, 0.00508739, 
0653      & 0.0042584, 0.00517, 0.00447889, 0.0054893, 0.00261635, 
0654      & 0.00298829, 0.00510355, 0.00310483, 0.00435912, 0.00400809, 
0655      & 0.00314713, 0.00193429, 0.00210328, 0.00325468, 0.00299429, 
0656      & 0.0014399, 0.0134655, 0.0196879, 0.0188646, 0.0173608, 
0657      & 0.0172784, 0.0145814, 0.0134852, 0.0124369, 0.0118326, 
0658      & 0.0108067, 0.00688096, 0.00434847, 0.004419, 0.00254565, 
0659      & 0.00173855, 0.00113189, 0.0014457, 0.000797456, 0.00177448, 
0660      & 0.000260217, 0.000524396, 0.000264337, 0.000156408, 0.000148264
0661      & /
0662       L37PIP = -0.00880208
0663       W37PIP = 0.000192613
0664 
0665       DATA H38PIP /
0666      & 0.0011731, 0.0011731, 0, 0.000110686, 0, 
0667      & 0, 0, 0, 0, 0, 
0668      & 8.74515e-05, 0, 0.000523211, 0, 0.00112026, 
0669      & 0.00120244, 0.00123438, 0.00122206, 0.00165685, 0.0037999, 
0670      & 0.00638222, 0.00622376, 0.0073643, 0.00735365, 0.0146963, 
0671      & 0.0128307, 0.0235382, 0.0421516, 0.085103, 0.202054, 
0672      & 0.310699, 0.0842951, 0.0458487, 0.0273146, 0.0224679, 
0673      & 0.0119801, 0.0103097, 0.0105407, 0.00538071, 0.00925804, 
0674      & 0.00371115, 0.00120743, 0.00466223, 0.00363172, 0.00248122, 
0675      & 0.00152084, 0.0014371, 0.00203384, 0.000646645, 0.00238731, 
0676      & 0.00217952, 0.000361746, 0.000882348, 0.00146813, 0.00102953, 
0677      & 0.00111919, 0.00161294, 0.000416765, 0.000288231, 0.00188129, 
0678      & 0.00017985, 0.000253361, 0.000851044, 0.000847027, 0.000204251, 
0679      & 0.000326698, 9.58335e-05, 0.000282528, 0.00014911, 0.000115656, 
0680      & 0.00017614, 6.63742e-05, 3.61042e-05, 0, 7.20094e-05, 
0681      & 0.0001011, 0.000184583, 0.000149835, 0.000187802, 0.000145535, 
0682      & 0.000193256, 7.78497e-05, 7.27695e-05, 0.000222794, 0.000114395, 
0683      & 7.74734e-05, 7.5978e-05, 7.11435e-05, 0, 4.01955e-05, 
0684      & 3.92497e-05, 0.000114905, 0.000150017, 0.00015123, 0, 
0685      & 0, 7.91518e-05, 0, 0, 3.90932e-05
0686      & /
0687       L38PIP = -0.00310403
0688       W38PIP = 0.000103209
0689 
0690       DATA H41PIP /
0691      & 7.12406e-06, 0, 0, 0, 0, 
0692      & 0, 0, 0, 3.99872e-06, 9.03899e-06, 
0693      & 2.84439e-05, 1.36255e-07, 0.000654702, 9.37806e-06, 0.00013462, 
0694      & 8.75297e-05, 0.000171742, 0.000500422, 3.56214e-05, 0.00140794, 
0695      & 0.000219579, 0.000690999, 0.000774512, 0.000835473, 0.000954492, 
0696      & 0.000128619, 0.00247162, 0.000171227, 0.00122601, 0.00189569, 
0697      & 0.000971313, 0.00519108, 0.00358931, 0.00369466, 0.00433597, 
0698      & 0.00289273, 0.00543281, 0.00538684, 0.0088355, 0.00917464, 
0699      & 0.01451, 0.0155693, 0.00799665, 0.0186751, 0.014417, 
0700      & 0.0188647, 0.0290173, 0.0280542, 0.0346627, 0.0235838, 
0701      & 0.0379886, 0.0337501, 0.0825815, 0.0975631, 0.0614075, 
0702      & 0.0549235, 0.0532828, 0.0398725, 0.0399209, 0.0233768, 
0703      & 0.0294152, 0.0256782, 0.0301227, 0.0181028, 0.00881476, 
0704      & 0.0151506, 0.0136324, 0.00790882, 0.00715734, 0.00848573, 
0705      & 0.00646705, 0.0109798, 0.00283884, 0.00176032, 0.00313786, 
0706      & 0.00134873, 0.00295594, 0.00393538, 0.00218707, 0.000939617, 
0707      & 0.000742913, 0.000781287, 0.0017082, 0.000200387, 9.71578e-05, 
0708      & 2.00303e-05, 3.49761e-05, 0.000120509, 0.000289781, 1.96833e-05, 
0709      & 2.95511e-05, 0.00101516, 0.00136115, 0.000424682, 0.000170289, 
0710      & 6.75586e-06, 1.45908e-05, 1.39361e-06, 1.44318e-07, 3.70778e-07
0711      & /
0712       L41PIP = -0.780116
0713       W41PIP = 0.0146565
0714 
0715       DATA H42PIP /
0716      & 0.00038781, 9.06944e-06, 0, 0, 0, 
0717      & 1.64771e-05, 0.000365398, 2.80174e-07, 7.70234e-05, 0.000591257, 
0718      & 2.46092e-05, 1.54001e-05, 7.83468e-06, 0.000110317, 3.50895e-05, 
0719      & 1.65329e-05, 0.000611361, 0.000816823, 0.000137558, 0.00011028, 
0720      & 0.00031805, 0.000162401, 0.00123622, 0.00194586, 0.00225018, 
0721      & 0.00335713, 0.00180732, 0.00437586, 0.00650185, 0.00338413, 
0722      & 0.00415838, 0.0204328, 0.0112302, 0.00936382, 0.0121223, 
0723      & 0.00788422, 0.0112914, 0.0181425, 0.0232887, 0.0277924, 
0724      & 0.0335685, 0.0276137, 0.0537282, 0.0924036, 0.21226, 
0725      & 0.0991985, 0.0450569, 0.0344461, 0.0283617, 0.0272219, 
0726      & 0.015298, 0.0108333, 0.0231932, 0.014706, 0.0217707, 
0727      & 0.0156771, 0.0163718, 0.0130608, 0.00475403, 0.0099842, 
0728      & 0.0120839, 0.00235043, 0.00428238, 0.00260995, 0.000554187, 
0729      & 0.00057149, 0.000220071, 0.000674093, 0.000915675, 3.48323e-05, 
0730      & 0.000697384, 0.000278475, 0.000328687, 3.22593e-05, 5.65186e-05, 
0731      & 1.10695e-06, 6.56808e-06, 0.00015288, 0.0002197, 8.71195e-06, 
0732      & 0, 0, 0, 0, 0, 
0733      & 3.3375e-05, 0, 0, 0, 0, 
0734      & 0, 0, 0, 0, 3.03936e-14, 
0735      & 0, 0, 0, 0, 7.66099e-09
0736      & /
0737       L42PIP = -0.37189
0738       W42PIP = 0.00834686
0739 
0740       DATA H43PIP /
0741      & 0.000723493, 0, 0.000846544, 0, 0, 
0742      & 0.000637549, 2.41319e-05, 0, 0, 3.39353e-05, 
0743      & 5.87368e-05, 0.000304917, 1.37719e-05, 0.000952755, 3.66594e-05, 
0744      & 0.000544509, 0, 0.000328171, 0.00342121, 0.000205468, 
0745      & 0.000215236, 0.000692082, 0.00201273, 0.00139119, 0.000589925, 
0746      & 0.00388414, 0.00203774, 0.00329297, 0.000208189, 0.00378725, 
0747      & 0.00538812, 0.0103019, 0.00237444, 0.00263076, 0.00438182, 
0748      & 0.000472045, 0.00477061, 0.00330789, 0.0024474, 0.00325797, 
0749      & 0.00430463, 0.0113602, 0.0143636, 0.00477236, 0.0273281, 
0750      & 0.0117543, 0.0431649, 0.0701595, 0.0957315, 0.180583, 
0751      & 0.145802, 0.127456, 0.0344768, 0.0485002, 0.015786, 
0752      & 0.0122722, 0.0104621, 0.00497085, 0.0032341, 0.00524109, 
0753      & 0.00807538, 0.00627746, 0.00315039, 0.00430491, 0.00195062, 
0754      & 0.00251297, 0.0029868, 0.00343575, 0.00156345, 0.00193995, 
0755      & 0.00189451, 0.00243643, 0.00267833, 0.00172628, 0.00438196, 
0756      & 0.000681001, 0.000459057, 0.000594888, 0.00156496, 0.00133181, 
0757      & 0.00226148, 0.00362721, 5.04333e-05, 6.75148e-06, 0.00221623, 
0758      & 9.02317e-05, 6.67287e-06, 3.23188e-05, 7.74145e-05, 0, 
0759      & 0.00036123, 0, 0, 1.37937e-05, 0, 
0760      & 0, 0, 0, 0, 9.34078e-06
0761      & /
0762       L43PIP = -0.128575
0763       W43PIP = 0.00256316
0764 
0765       DATA H44PIP /
0766      & 4.0445e-05, 0, 0, 0, 0.000591049, 
0767      & 6.34163e-06, 0.000259383, 1.90751e-05, 0, 0, 
0768      & 0, 0.00413748, 0.00127308, 0.000262633, 0.00176226, 
0769      & 2.23706e-05, 1.15524e-05, 0.00215622, 0.00128739, 0.000156873, 
0770      & 0.00019596, 2.34358e-05, 0.00197386, 0.000728255, 0.000929693, 
0771      & 0, 0.00116116, 6.7711e-05, 0.00185521, 0.0020505, 
0772      & 0.00340586, 0.00406331, 0.00232836, 0.0040342, 0.0053157, 
0773      & 0.0120484, 0.00492319, 0.0148237, 0.0133845, 0.0331181, 
0774      & 0.0276242, 0.0373833, 0.0388445, 0.0625208, 0.0915496, 
0775      & 0.11652, 0.146603, 0.0740006, 0.0508302, 0.0428585, 
0776      & 0.0343455, 0.0363163, 0.0197064, 0.0269142, 0.01312, 
0777      & 0.0131264, 0.00511452, 0.00709826, 0.00216825, 0.00434649, 
0778      & 0.000657621, 0.000168079, 0, 0.000918203, 0.00132351, 
0779      & 0, 0.00301724, 4.23175e-05, 0.00121588, 0.000425125, 
0780      & 4.48013e-05, 0.000665258, 0.0017137, 0.00228416, 0.00301833, 
0781      & 0.0042711, 0.00067952, 2.59915e-05, 0.00075808, 3.99737e-05, 
0782      & 0.00197934, 7.74009e-05, 8.20369e-05, 0.00616621, 4.82159e-05, 
0783      & 5.33311e-05, 0.000643396, 0, 0.000211318, 0, 
0784      & 0, 0, 0, 0, 0, 
0785      & 0, 0, 0, 0, 6.10432e-05
0786      & /
0787       L44PIP = -0.0491158
0788       W44PIP = 0.00107098
0789 
0790       DATA H45PIP /
0791      & 4.52946e-05, 0, 0, 0.00102335, 2.71368e-06, 
0792      & 0, 2.59857e-05, 0, 0, 0, 
0793      & 0, 0, 0.000545824, 0, 0, 
0794      & 0.00132595, 0.000424949, 5.78925e-05, 0.00045429, 5.21142e-06, 
0795      & 0, 0, 0.00012985, 0.00121624, 0.0035221, 
0796      & 4.73452e-05, 7.52486e-05, 4.55522e-05, 0.000219817, 0.00131957, 
0797      & 0.00239708, 0.00261906, 0.00144914, 0.00254368, 0.00580738, 
0798      & 0.00537364, 0.0139752, 0.0089963, 0.0215118, 0.0227525, 
0799      & 0.0119947, 0.0205214, 0.0100061, 0.00704807, 0.0420086, 
0800      & 0.064295, 0.0754608, 0.0854809, 0.170355, 0.116397, 
0801      & 0.0764914, 0.050816, 0.058068, 0.020608, 0.0213869, 
0802      & 0.00925749, 0.0119685, 0.00523379, 0.0042687, 0.00591503, 
0803      & 0.00297464, 0.00190569, 0.00521057, 0.00306685, 0.000510461, 
0804      & 0.00340575, 0.000994478, 0.0011526, 0.00010926, 0.000193566, 
0805      & 0.000179241, 8.57584e-05, 0.00263892, 7.26815e-05, 0.00148858, 
0806      & 0.00074199, 0, 6.22959e-05, 0.000510933, 0.000473547, 
0807      & 0, 0, 0, 0.000232842, 3.28861e-05, 
0808      & 0.00253442, 0, 4.28641e-05, 0.000149788, 2.23307e-05, 
0809      & 0.00433239, 0, 0, 0, 0.00128667, 
0810      & 0, 0, 2.04368e-05, 3.58233e-05, 3.79604e-05
0811      & /
0812       L45PIP = -0.0255363
0813       W45PIP = 0.000526824
0814 
0815       DATA H46PIP /
0816      & 2.43158e-05, 0, 1.13823e-05, 0, 0, 
0817      & 0, 0, 1.99866e-05, 3.95629e-05, 0.000462071, 
0818      & 6.19793e-05, 0.000926578, 0.00236606, 0.00019593, 6.95311e-05, 
0819      & 0.00139975, 0.00205997, 0.000954279, 0.00258564, 0.00442554, 
0820      & 0.00347299, 0.0021803, 0.00304223, 0.000710685, 0.00249227, 
0821      & 0.00342753, 0.00358398, 0.00878728, 0.0037929, 0.00232249, 
0822      & 0.00263183, 0.00381849, 0.00193612, 0.000275914, 0.00105218, 
0823      & 0.00604021, 0.00836814, 0.00388987, 0.00797988, 0.0119332, 
0824      & 0.0158339, 0.0142281, 0.028249, 0.0353936, 0.0542958, 
0825      & 0.0664097, 0.139036, 0.159277, 0.0988978, 0.0729982, 
0826      & 0.0372809, 0.0226715, 0.0236881, 0.0156798, 0.00835428, 
0827      & 0.00650202, 0.0073657, 0.0071501, 0.00430246, 0.00619613, 
0828      & 0.0058693, 0.00233525, 0.00440155, 0.00412688, 0.00240868, 
0829      & 0.00157336, 0.0058661, 0.00259296, 0.00245107, 0.00405134, 
0830      & 0.00388192, 0.00604871, 0.000176252, 0.00451304, 0.00278752, 
0831      & 0.00346503, 0.00232354, 0.0025038, 0.00604981, 8.37323e-05, 
0832      & 0.00150235, 0.00191919, 0.00121787, 0.002275, 0.00292564, 
0833      & 0.000405691, 6.63827e-06, 0, 9.13327e-05, 0, 
0834      & 0, 0, 0, 0, 0, 
0835      & 0, 0, 0, 0, 0.000995514
0836      & /
0837       L46PIP = -0.0134759
0838       W46PIP = 0.000285687
0839 
0840       DATA H47PIP /
0841      & 0.000583364, 0, 3.18472e-05, 2.22539e-05, 0.00112824, 
0842      & 0.000624322, 0.00052484, 0.00108922, 0.000538889, 0.00114111, 
0843      & 8.20473e-05, 0.00050719, 0.00247393, 4.35558e-05, 0.00102014, 
0844      & 0.000970968, 0.00171391, 0.00231858, 0.000482992, 0.000758906, 
0845      & 0.00230343, 0.0009979, 0.00228749, 0.00451668, 0.00401417, 
0846      & 0.0037, 0.00364166, 0.00195473, 0.00315055, 0.00435633, 
0847      & 0.0052553, 0.00307438, 0.00496635, 0.00430735, 0.00424869, 
0848      & 0.00711633, 0.00553745, 0.00746007, 0.00775828, 0.00987737, 
0849      & 0.0106903, 0.0186919, 0.0194545, 0.0297973, 0.0373728, 
0850      & 0.0495226, 0.0929865, 0.231313, 0.0900601, 0.0577917, 
0851      & 0.0399622, 0.0353516, 0.021065, 0.0197042, 0.0156238, 
0852      & 0.0175304, 0.00996172, 0.00730945, 0.00497925, 0.00885665, 
0853      & 0.00538077, 0.00488113, 0.00424929, 0.0051909, 0.00459112, 
0854      & 0.00453653, 0.00345578, 0.00243792, 0.0043103, 0.00353284, 
0855      & 0.00371006, 0.00240933, 0.00237947, 0.00204199, 0.00123051, 
0856      & 0.00246701, 0.00166042, 0.00046848, 0.00221535, 0.00333648, 
0857      & 0.00142997, 0.000487034, 0.000876026, 0.000508571, 0.000951146, 
0858      & 0.000630485, 0.000526598, 0.00117375, 0.00160345, 4.33224e-05, 
0859      & 2.12237e-05, 0.000617723, 0.00125366, 0.000679048, 4.63154e-05, 
0860      & 2.40386e-05, 2.35987e-05, 0, 0, 1.23684e-05
0861      & /
0862       L47PIP = -0.00784467
0863       W47PIP = 0.000165027
0864 
0865       DATA H48PIP /
0866      & 4.50572e-05, 0, 0, 0, 0, 
0867      & 0, 0, 0, 4.73003e-05, 0, 
0868      & 0, 0, 4.46997e-05, 0.00248714, 4.50622e-05, 
0869      & 4.61158e-05, 9.67819e-05, 0.00247106, 4.43966e-05, 0, 
0870      & 4.65763e-05, 0, 8.18287e-05, 0.00216733, 0.00351634, 
0871      & 0.00217242, 0.00119683, 0.000220306, 0.000167133, 0.000103756, 
0872      & 0.00122722, 0.00244535, 0.00787574, 0.00248168, 0.00467959, 
0873      & 0.00424434, 0.0023466, 0.0125901, 0.0077035, 0.0090252, 
0874      & 0.0107532, 0.0178783, 0.00942449, 0.0274577, 0.0319077, 
0875      & 0.0289353, 0.0460652, 0.0640977, 0.163025, 0.179096, 
0876      & 0.0746281, 0.0405926, 0.0412833, 0.0251807, 0.0260858, 
0877      & 0.0287994, 0.0156376, 0.0156831, 0.0134519, 0.00617041, 
0878      & 0.0078427, 0.00683389, 0.0102203, 0.00556003, 0.00593055, 
0879      & 0.00250598, 0.00456737, 0.00232922, 0.00241795, 0.00244437, 
0880      & 0.00335388, 0, 0.00355917, 0.00131402, 0, 
0881      & 0.00121403, 0.00122358, 9.36304e-05, 0, 0.00123685, 
0882      & 0, 0, 4.8069e-05, 9.56076e-05, 9.5286e-05, 
0883      & 0, 0, 0.00124419, 0, 0, 
0884      & 0, 0, 4.80537e-05, 0, 0, 
0885      & 0, 0, 0, 0, 4.79586e-05
0886      & /
0887       L48PIP = -0.00176303
0888       W48PIP = 3.59236e-05
0889 
0890       RETURN
0891 
0892       END