Back to home page

Project CMSSW displayed by LXR

 
 

    


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

0001 
0002 ************************************************************************
0003       REAL FUNCTION GR_PRO()   !   auto. created by droll (10/6/2005)
0004 *     generated rate: GR_PRO [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_PRO(N_BIN),LOW,WID,LOG_EK,R_VAL,S_RATE
0015 
0016       DATA R0_PRO /
0017      & 59908, 23018.4, 23785.8, 18938.8, 19628.6, 
0018      & 15954.9, 15298, 17668.2, 18818.1, 12439.8, 
0019      & 11147.6, 10628.7, 9753.6, 5506.42, 7812.13, 
0020      & 9251.51, 4199.42, 6217.34, 5211.66, 5633.26, 
0021      & 5334.74, 3308.07, 3905.88, 3871.96, 2500.2, 
0022      & 3867.86, 3064.08, 2883.58, 3149.79, 1923.45, 
0023      & 1865.96, 3138.4, 1987.22, 2295.98, 2170.06, 
0024      & 2885.5, 1701.2, 2666.76, 2283.77, 2242.46, 
0025      & 1371.97, 1616.04, 1488.76, 1292.75, 1455.54, 
0026      & 1351.39, 1295.12, 1599.36, 962.065, 412.132, 
0027      & 647.812, 460.603, 1095.09, 1017.27, 422.997, 
0028      & 498.717, 672.46, 226.433, 398.735, 274.82, 
0029      & 612.407, 501.042, 798.562, 428.862, 586.598, 
0030      & 714.132, 995.618, 991.565, 1154.73, 1626.83, 
0031      & 1886.35, 1426.38, 2393.23, 2590.39, 2458.67, 
0032      & 2998.18, 3263.29, 4451.92, 5496.11, 5748.13, 
0033      & 6509.97, 5757, 6622.15, 6687.58, 6948.79, 
0034      & 7504.33, 9218.04, 9033.53, 10585.8, 10745.2, 
0035      & 12158, 13188.9, 13317.2, 14810.5, 15524.9, 
0036      & 17926.2, 21258.3, 24596.6, 31423, 230547
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(EPRMIN)) - 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_PRO(IBIN)
0048          S_RATE = S_RATE + R_VAL
0049       IF ((LOG_EK+LE_INC).LT.LOG(EPRMAX)) GOTO 111
0050       ! calculate the actual rate
0051       GR_PRO = REAL(S_RATE*LE_INC) ! total rate [Hz]
0052 
0053       RETURN
0054 
0055       END
0056 
0057 ************************************************************************
0058       SUBROUTINE F66PRO  !  automatically created by droll (10/6/2005)
0059 *     fill histograms H##PRO more infos in kine/kicdes/bhgrhists.inc
0060 ************************************************************************
0061 
0062       IMPLICIT NONE
0063 #include "GeneratorInterface/BeamHaloGenerator/interface/bhgrhists.inc"
0064 
0065       DATA H01PRO /
0066      & 0.067168, 0.0258079, 0.0266682, 0.0212339, 0.0220073, 
0067      & 0.0178884, 0.0171519, 0.0198094, 0.0210986, 0.0139473, 
0068      & 0.0124985, 0.0119167, 0.0109356, 0.00617372, 0.00875884, 
0069      & 0.0103727, 0.00470832, 0.00697079, 0.00584323, 0.00631593, 
0070      & 0.00598122, 0.00370896, 0.00437921, 0.00434118, 0.00280319, 
0071      & 0.00433659, 0.0034354, 0.00323302, 0.0035315, 0.00215655, 
0072      & 0.00209208, 0.00351872, 0.00222804, 0.00257422, 0.00243304, 
0073      & 0.00323518, 0.00190736, 0.00298993, 0.00256052, 0.00251421, 
0074      & 0.00153824, 0.00181188, 0.00166918, 0.00144941, 0.00163192, 
0075      & 0.00151516, 0.00145207, 0.00179318, 0.00107865, 0.000462076, 
0076      & 0.000726317, 0.000516421, 0.0012278, 0.00114055, 0.000474258, 
0077      & 0.000559154, 0.000753952, 0.000253873, 0.000447055, 0.000308124, 
0078      & 0.000686622, 0.00056176, 0.000895335, 0.000480834, 0.000657684, 
0079      & 0.000800674, 0.00111627, 0.00111173, 0.00129466, 0.00182397, 
0080      & 0.00211495, 0.00159924, 0.00268326, 0.00290431, 0.00275662, 
0081      & 0.00336151, 0.00365875, 0.00499143, 0.00616216, 0.00644471, 
0082      & 0.00729888, 0.00645466, 0.00742466, 0.00749802, 0.00779088, 
0083      & 0.00841374, 0.0103351, 0.0101283, 0.0118686, 0.0120474, 
0084      & 0.0136314, 0.0147872, 0.014931, 0.0166053, 0.0174063, 
0085      & 0.0200986, 0.0238344, 0.0275773, 0.035231, 0.258486
0086      & /
0087       L01PRO = 0
0088       W01PRO = 0.088537
0089 
0090       DATA H11PRO /
0091      & 5.50911e-06, 0, 0, 0, 0, 
0092      & 0.000125076, 1.44328e-05, 1.48537e-05, 0.000172747, 0.000725137, 
0093      & 2.9231e-06, 0.000183678, 0.00098522, 0.0010763, 0.000500166, 
0094      & 0.00447726, 0.00328651, 0.00132503, 0.00273015, 0.00133392, 
0095      & 0.000822169, 0.000446024, 0.00100821, 0.000708849, 0.00454318, 
0096      & 0.00114814, 0.0027974, 0.00315041, 0.00463903, 0.0107413, 
0097      & 0.00590068, 0.00432695, 0.0027287, 0.000263059, 0.00118529, 
0098      & 0.00913945, 0.0167232, 0.0352844, 0.0263209, 0.0181572, 
0099      & 0.010955, 0.0186156, 0.0141209, 0.0149424, 0.0148828, 
0100      & 0.0237255, 0.0243774, 0.0196874, 0.0152892, 0.0143925, 
0101      & 0.0100649, 0.00808288, 0.0135879, 0.015712, 0.0898542, 
0102      & 0.139796, 0.0568696, 0.0192033, 0.0136239, 0.0236519, 
0103      & 0.0141432, 0.0175, 0.019711, 0.0120749, 0.0171385, 
0104      & 0.0144371, 0.0176812, 0.0251455, 0.0168449, 0.0271088, 
0105      & 0.0128136, 0.00777014, 0.015146, 0.0154504, 0.0118379, 
0106      & 0.0224151, 0.000847581, 9.02939e-05, 0.000838252, 0.00114253, 
0107      & 3.14631e-05, 0.00137005, 4.59611e-06, 1.40654e-05, 0, 
0108      & 0, 0, 0, 0, 0, 
0109      & 0, 0, 0, 0, 0, 
0110      & 0, 0, 0, 0, 1.36696e-05
0111      & /
0112       L11PRO = -359.528
0113       W11PRO = 6.50311
0114 
0115       DATA H12PRO /
0116      & 0.00152801, 0, 0, 0, 9.59168e-06, 
0117      & 0, 9.68469e-06, 0, 0, 0, 
0118      & 0, 9.21714e-05, 1.20967e-05, 0.000326825, 0, 
0119      & 0.00558802, 0.000947116, 4.35122e-06, 0.00970542, 0.0020024, 
0120      & 0.00298045, 9.97928e-05, 0.0018991, 0.00335, 0.000453275, 
0121      & 0.00042044, 0.00191343, 0.00134008, 0.00217086, 0.00164592, 
0122      & 0.00730384, 0.000959599, 0.00109962, 0.00347061, 0.00244166, 
0123      & 0.00268593, 0.000223256, 5.17614e-05, 0.000320767, 0.0141971, 
0124      & 0.0114408, 0.0109018, 0.0194328, 0.0131494, 0.0124907, 
0125      & 0.0188754, 0.0133156, 0.0180918, 0.0126732, 0.0134186, 
0126      & 0.0211156, 0.00559798, 0.0123209, 0.0160761, 0.0153972, 
0127      & 0.00756517, 0.00900034, 0.00951351, 0.00607862, 0.00281864, 
0128      & 0.00623997, 0.00419945, 0.00215897, 0.0114807, 0.101118, 
0129      & 0.176637, 0.0347053, 0.0255277, 0.00321367, 0.00952279, 
0130      & 0.0165609, 0.0370726, 0.00809591, 0.00391525, 0.00822355, 
0131      & 0.0132043, 0.0160187, 0.00703746, 0.0125245, 0.0148309, 
0132      & 0.00721689, 0.00872056, 0.00900939, 0.0176225, 0.00851256, 
0133      & 0.0357245, 0.0131999, 0.0319784, 0.0174356, 0.0112255, 
0134      & 0.00562137, 0.000913407, 8.15427e-05, 5.2101e-05, 0, 
0135      & 2.08302e-05, 0.00170373, 0, 0, 0.000146433
0136      & /
0137       L12PRO = -333.397
0138       W12PRO = 5.11822
0139 
0140       DATA H13PRO /
0141      & 0.000135143, 0, 0, 0.000154099, 0.000565631, 
0142      & 0, 0, 0, 0, 8.96605e-05, 
0143      & 0.000140921, 0, 0.000491056, 0.000790406, 0.000100292, 
0144      & 0.0006848, 0.000160375, 0.000109716, 0, 0.00613505, 
0145      & 0.000419146, 0.000136028, 0, 0, 0, 
0146      & 0, 0, 5.74691e-05, 9.19906e-05, 0.024108, 
0147      & 0.0114708, 0.0415077, 0.0179443, 0.0118176, 0.0208159, 
0148      & 0.00561116, 0.0111018, 0.0342808, 0.0255755, 0.0217091, 
0149      & 0.0241793, 0.0536906, 0.0197035, 0.0138421, 0.0192068, 
0150      & 0.00492174, 0.00912901, 0.0190051, 0.00969013, 0.00394934, 
0151      & 0.00633132, 0.000214867, 0.00231969, 0.00876396, 0.000949402, 
0152      & 0.000576807, 0.00510568, 0.0030694, 0.00654073, 0.00120394, 
0153      & 0.0356775, 0.107566, 0.0345864, 0.000610113, 0.000656997, 
0154      & 0.00840635, 0.000840963, 0.00123854, 0.00137318, 0.00666465, 
0155      & 0.00707149, 0.00240641, 0.00163206, 0.00122309, 0.00540601, 
0156      & 0.0116341, 0.00336264, 0.0298958, 0.0150708, 0.0169868, 
0157      & 0.0259989, 0.00378387, 0.0215748, 0.0183068, 0.0155251, 
0158      & 0.0204522, 0.0213752, 0.0113784, 0.0138231, 0.0110904, 
0159      & 0.0261173, 0.0247008, 0.0176559, 0.023385, 0.00280866, 
0160      & 0, 0, 0, 0, 0.00111562
0161      & /
0162       L13PRO = -246.136
0163       W13PRO = 4.01228
0164 
0165       DATA H14PRO /
0166      & 0.0046184, 0.00767595, 0, 0, 0, 
0167      & 8.69646e-05, 0, 0, 0, 0, 
0168      & 0, 0, 0, 0.000621813, 0.000755849, 
0169      & 0, 0, 0, 0, 0, 
0170      & 0, 0, 0, 0, 0.00155978, 
0171      & 0.00427315, 0.00306352, 0.00766434, 0.00351223, 0.0376365, 
0172      & 0.0224656, 0.0140461, 0.014578, 0.039318, 0.0249687, 
0173      & 0.0351581, 0.0145684, 0.0423134, 0.0359001, 0.0262688, 
0174      & 0.0188372, 0.00848797, 0.0184579, 0.0174921, 0.0184185, 
0175      & 0.0029671, 0.01552, 0.00278452, 0.000676327, 0.00551111, 
0176      & 0.0071002, 0.00386685, 0.00048519, 0.000201734, 0.00199369, 
0177      & 0.000809475, 0.00736222, 0.0013038, 0.000568093, 0.000683074, 
0178      & 0.055734, 0.0489552, 0.0435882, 0.000391623, 0.000823501, 
0179      & 0.000183514, 0.00790105, 0.000568436, 0.000374102, 0.00199048, 
0180      & 0.000176468, 0.00329857, 0.0026617, 0.000343483, 0.00276404, 
0181      & 0.0103529, 0.00502816, 0.00412879, 0.0117987, 0.0200915, 
0182      & 0.0115916, 0.0119158, 0.0212677, 0.0202062, 0.0217676, 
0183      & 0.0365466, 0.0195207, 0.0348231, 0.00409563, 0.0117458, 
0184      & 0.00300841, 0.0181655, 0.0305121, 0.0402007, 0.00418321, 
0185      & 0.00497689, 0.00785581, 0.00135965, 0.000334283, 0.000187689
0186      & /
0187       L14PRO = -213.841
0188       W14PRO = 3.48381
0189 
0190       DATA H15PRO /
0191      & 0.00133057, 0.000108424, 0, 0, 0, 
0192      & 0.00218182, 4.47468e-05, 2.09823e-05, 0.00204687, 0.000394151, 
0193      & 0.000533088, 8.95791e-05, 0.00017119, 0.000421975, 0.00615075, 
0194      & 0.0034174, 0.013062, 0.00260811, 0.0013493, 0.00173724, 
0195      & 0.00793827, 0.00110605, 0.00534638, 0.0208974, 0.00397964, 
0196      & 0.0083677, 0.0052807, 0.00281096, 0.0245993, 0.00462015, 
0197      & 0.0128344, 0.00294824, 0.0278464, 0.0123549, 0.00577072, 
0198      & 0.00756912, 0.00307201, 0.0193481, 0.00010639, 0.00601252, 
0199      & 0.00106494, 0.0164318, 0.014087, 0.00118456, 0.00112733, 
0200      & 0.000401343, 0.000110983, 0, 0.0528533, 0.0816909, 
0201      & 0.0964323, 0.0159615, 0.00482141, 0.00590483, 0.00186581, 
0202      & 0.000132092, 0.0010839, 0.000488094, 0.000518405, 0.00251771, 
0203      & 0.000468191, 0.00090426, 0.000304112, 0.00112341, 0.00067506, 
0204      & 0.00081534, 0.00832932, 0.000183773, 0.00326136, 0.0237111, 
0205      & 0.00518493, 0.000579862, 0.00105537, 0.00347513, 0.00135623, 
0206      & 0.00121091, 0.0233128, 0.00284054, 0.0212077, 0.00815144, 
0207      & 0.039028, 0.0165579, 0.0475501, 0.00705166, 0.0172639, 
0208      & 0.0252763, 0.0406593, 0.0263219, 0.0193327, 0.0289417, 
0209      & 0.00530531, 0.0204735, 0.0064843, 0.0116159, 0.0156081, 
0210      & 0.0111649, 0.0130912, 0.00125622, 0.011503, 0.0102076
0211      & /
0212       L15PRO = -129.705
0213       W15PRO = 2.58747
0214 
0215       DATA H16PRO /
0216      & 0.00184002, 0.0103335, 0, 0, 0, 
0217      & 0, 0.000416578, 8.77951e-06, 0, 0, 
0218      & 0, 0.000148714, 0.000234645, 0.00053882, 4.60918e-05, 
0219      & 0.00517336, 0.000178174, 0, 8.75741e-06, 5.30938e-06, 
0220      & 0.000336093, 0.000415651, 0.000834704, 0, 2.38832e-05, 
0221      & 0, 0, 0, 2.38728e-05, 0.00306953, 
0222      & 0.000115206, 0.000156416, 0.00582503, 0.00555375, 0.000280497, 
0223      & 2.01807e-05, 1.33936e-05, 0, 0, 1.19892e-05, 
0224      & 1.48989e-05, 0, 0, 0, 1.61252e-06, 
0225      & 0.0145747, 0.204612, 0.3579, 0.035437, 0, 
0226      & 0, 0, 2.02685e-05, 0, 0, 
0227      & 0, 0, 0, 0, 0, 
0228      & 0, 0, 0.000681347, 0.00038731, 0, 
0229      & 0.000241772, 0.00130304, 0, 0, 0, 
0230      & 0, 0, 0, 0, 0.000183499, 
0231      & 0.00030901, 0.0142307, 0.0160909, 0.0144825, 0.00675073, 
0232      & 0.0169958, 0.0208781, 0.00916633, 0.017064, 0.0230291, 
0233      & 0.0236801, 0.00708392, 0.016377, 0.0198825, 0.0357618, 
0234      & 0.0229016, 0.0101996, 0.0175074, 0.00707854, 0.0075815, 
0235      & 0.0168585, 0.0106469, 0.00337085, 0.00879753, 0.00230477
0236      & /
0237       L16PRO = -115.11
0238       W16PRO = 2.44329
0239 
0240       DATA H17PRO /
0241      & 2.04193e-05, 0, 0, 0, 0, 
0242      & 0, 0.000100691, 0, 0, 0, 
0243      & 0, 0, 0, 0, 1.5941e-05, 
0244      & 0.000504555, 0, 0, 0, 0, 
0245      & 0, 0, 0, 0, 2.60152e-05, 
0246      & 0, 7.98915e-07, 0, 8.77249e-06, 0, 
0247      & 0, 0, 0, 0, 0, 
0248      & 0, 0, 0, 0, 0, 
0249      & 0.0574093, 0.747471, 0.0907465, 0.0031707, 0, 
0250      & 0, 0, 0, 0, 0, 
0251      & 0, 0, 0, 0, 0, 
0252      & 0, 2.45373e-06, 2.98759e-05, 0.000897561, 4.26191e-06, 
0253      & 4.58172e-05, 0.000129714, 0, 0, 0, 
0254      & 0, 0, 0, 0, 0, 
0255      & 0, 0, 9.28236e-05, 0.00371685, 0.0136057, 
0256      & 0.0125622, 0.00942271, 0.00897965, 0.0079598, 0.0100003, 
0257      & 0.00490792, 0.00465677, 0.0050565, 0.00252787, 0.00434113, 
0258      & 0.00219058, 0.00156872, 0.0021881, 0.000960655, 0.000634968, 
0259      & 0.00139106, 0.000786812, 0.000232249, 0.000583137, 0.000388443, 
0260      & 9.96542e-05, 0.000197502, 0.00029764, 4.24172e-05, 2.39907e-05
0261      & /
0262       L17PRO = -91.3303
0263       W17PRO = 2.19602
0264 
0265       DATA H18PRO /
0266      & 1.80204e-07, 0, 0, 0, 0, 
0267      & 0, 0, 0, 0, 0, 
0268      & 0, 0, 0, 0, 0, 
0269      & 0, 0, 0, 0, 0, 
0270      & 0, 0, 0, 0, 0, 
0271      & 0, 0, 0, 0, 0, 
0272      & 0, 0, 0, 0, 0, 
0273      & 0, 0, 0, 0, 0, 
0274      & 0, 0, 0, 0, 0, 
0275      & 0, 0, 0, 0, 0, 
0276      & 0, 0, 0, 0, 0, 
0277      & 0, 0, 0, 0, 0, 
0278      & 0, 0, 0, 0, 0, 
0279      & 0, 0, 0, 0, 0, 
0280      & 0, 0, 0, 0, 0, 
0281      & 0, 0, 0, 0, 0, 
0282      & 0, 0, 0, 1.98671e-06, 0.000649819, 
0283      & 0.00128363, 0.00197404, 0.00412834, 0.0205498, 0.0943952, 
0284      & 0.604988, 0.0992335, 0.0708959, 0.0531957, 0.0175721, 
0285      & 0.0173618, 0.0136284, 8.18069e-05, 5.39738e-05, 6.14442e-06
0286      & /
0287       L18PRO = -34.1602
0288       W18PRO = 0.377881
0289 
0290       DATA H21PRO /
0291      & 0.000102754, 1.66589e-05, 0, 4.34091e-09, 0, 
0292      & 0, 0, 0, 0, 0, 
0293      & 6.90705e-05, 0.00241426, 0.000503356, 0.00102026, 0.00382347, 
0294      & 0.00612713, 0.0100046, 0.0144358, 0.00990004, 0.00994883, 
0295      & 0.00654583, 0.00768044, 0.00517466, 0.0101691, 0.0114415, 
0296      & 0.00556, 0.0257644, 0.0156321, 0.00883266, 0.0167853, 
0297      & 0.0131809, 0.0226037, 0.0214864, 0.012293, 0.0168025, 
0298      & 0.0118274, 0.0156848, 0.0516135, 0.0440672, 0.104807, 
0299      & 0.136556, 0.0495112, 0.0504583, 0.0285376, 0.0171799, 
0300      & 0.021729, 0.017465, 0.0115816, 0.0159975, 0.0151146, 
0301      & 0.0128635, 0.00677899, 0.00998613, 0.00674422, 0.0149998, 
0302      & 0.00899767, 0.00585275, 0.0114711, 0.0134033, 0.0131461, 
0303      & 0.00507683, 0.00392482, 0.00704384, 0.00812013, 0.00423457, 
0304      & 0.00250159, 0.00163901, 0.000587559, 0.00192036, 0.000423672, 
0305      & 0.000203157, 0.00173825, 0.000622771, 0.0017226, 0.000456279, 
0306      & 0.000264185, 0.000568563, 7.50677e-05, 1.58904e-05, 0.000144973, 
0307      & 0.00019356, 9.65931e-05, 0.000486854, 0.000157459, 0.000141875, 
0308      & 0.00156015, 4.93478e-05, 0.000119995, 0.000630961, 3.05393e-08, 
0309      & 0.000104243, 1.58077e-05, 5.57179e-05, 0, 0.000342524, 
0310      & 1.57323e-05, 3.50139e-06, 2.59846e-06, 0, 4.63906e-05
0311      & /
0312       L21PRO = -194.325
0313       W21PRO = 4.8364
0314 
0315       DATA H22PRO /
0316      & 1.16695e-05, 0, 0, 0, 0, 
0317      & 0, 0, 0, 0, 0, 
0318      & 0, 7.87132e-06, 0.00108818, 0.00300461, 0.00180815, 
0319      & 0.00426193, 0.0026801, 0.00589154, 0.00576497, 0.00584077, 
0320      & 0.00197748, 0.00319172, 0.00911107, 0.00145517, 0.00534399, 
0321      & 0.0151529, 0.0120222, 0.0133282, 0.0106725, 0.015074, 
0322      & 0.0111825, 0.00687263, 0.00342599, 0.0227439, 0.00572961, 
0323      & 0.0149118, 0.0227973, 0.025184, 0.0160683, 0.0136204, 
0324      & 0.0609414, 0.223655, 0.0934672, 0.0221038, 0.02001, 
0325      & 0.0187446, 0.0162907, 0.0113139, 0.0181448, 0.0058359, 
0326      & 0.0213048, 0.012704, 0.0107596, 0.0151419, 0.0106221, 
0327      & 0.0298354, 0.00929029, 0.014225, 0.00772669, 0.00391024, 
0328      & 0.0115328, 0.00974619, 0.00713124, 0.0389655, 0.0023955, 
0329      & 0.0131824, 0.00477422, 0.00974296, 0.00807181, 0.000940236, 
0330      & 0.00198451, 0.00020311, 7.07198e-05, 0.000259981, 0.000103099, 
0331      & 0.00135207, 8.18653e-05, 0, 0, 2.16189e-05, 
0332      & 0, 0, 4.15637e-05, 2.56111e-06, 0, 
0333      & 0.00202948, 0.000290484, 0, 0.000748103, 0, 
0334      & 0, 0, 0, 1.04167e-05, 0, 
0335      & 2.1172e-05, 0, 0, 0, 4.34583e-05
0336      & /
0337       L22PRO = -181.148
0338       W22PRO = 4.3415
0339 
0340       DATA H23PRO /
0341      & 1.67321e-05, 0, 0.000701317, 9.07905e-05, 0.000298836, 
0342      & 0.00123756, 0.00356416, 0.00664464, 0.00740073, 0.00032043, 
0343      & 0.0014112, 0.00371432, 0.000149934, 0.00192059, 0.00474901, 
0344      & 0.00768722, 0.00126863, 0.00865467, 0.0126898, 0.000660362, 
0345      & 0.00470975, 0.00986083, 0.00616935, 0.0148186, 0.0202368, 
0346      & 0.00928304, 0.0018894, 0.0205752, 0.0114143, 0.021046, 
0347      & 0.00294717, 0.026142, 0.0153712, 0.0434731, 0.0456929, 
0348      & 0.0858549, 0.166509, 0.0911541, 0.0215317, 0.0424006, 
0349      & 0.0485516, 0.016027, 0.0144755, 0.0136371, 0.00518152, 
0350      & 0.010666, 0.00825761, 0.0325355, 0.0082566, 0.0164392, 
0351      & 0.00130113, 0.0117538, 0.00236192, 0.00160694, 0.00285083, 
0352      & 0.000660642, 0.00155646, 0.00278685, 0.0155375, 0.0193285, 
0353      & 0.0146823, 0.00521577, 0.00283877, 0.00480932, 0.00107322, 
0354      & 0.0088096, 0.000505298, 0.000167575, 0.00039393, 0.000174526, 
0355      & 0.003179, 0, 0, 0, 0, 
0356      & 0, 0, 0, 0, 0, 
0357      & 0, 0, 0, 5.89499e-05, 0, 
0358      & 0, 0, 0, 0, 0, 
0359      & 0, 0, 0, 0, 0, 
0360      & 5.74691e-05, 0, 0, 0, 1.32058e-06
0361      & /
0362       L23PRO = -138.013
0363       W23PRO = 3.77725
0364 
0365       DATA H24PRO /
0366      & 0.00874861, 0.000887972, 0.000278325, 0.00201506, 0.00553768, 
0367      & 0.0010807, 0.00454514, 0.00169644, 0.0101173, 0.0005802, 
0368      & 0.00160709, 0.0160086, 0.00278566, 0.0111346, 0.00756457, 
0369      & 0.0150962, 0.000506854, 0.00730901, 0.000331742, 0.00375884, 
0370      & 0.00867935, 0.00434829, 0.00223811, 0.00829975, 0.00136499, 
0371      & 0.0113538, 0.00710509, 0.00840291, 0.0291678, 0.022051, 
0372      & 0.0488332, 0.0503295, 0.104039, 0.120899, 0.145884, 
0373      & 0.0541636, 0.0412129, 0.0318255, 0.0293119, 0.0100182, 
0374      & 0.00328691, 0.00671845, 0.0107471, 0.00980152, 0.00307185, 
0375      & 0.0152403, 0.0102829, 0.0050163, 0.000554113, 0.00705599, 
0376      & 0.00903682, 0.0102788, 0.00202244, 0.00131558, 0.00501125, 
0377      & 0.0027674, 0.00649599, 0.00758323, 0.00188408, 0.00502328, 
0378      & 0.00403167, 0.00154233, 0.00211509, 0.000739627, 0.0145828, 
0379      & 0.00782707, 0.000996382, 0, 0.00270061, 0.000308899, 
0380      & 0, 0, 0, 0, 0, 
0381      & 8.69646e-05, 0, 0, 0, 0, 
0382      & 0, 0, 0, 0, 0, 
0383      & 0, 0, 0, 0, 0, 
0384      & 0, 0, 0, 0, 0, 
0385      & 0, 0, 0, 0, 0.000755849
0386      & /
0387       L24PRO = -122.393
0388       W24PRO = 3.59796
0389 
0390       DATA H25PRO /
0391      & 0.000448891, 0, 0, 0.00407426, 0, 
0392      & 0.00442391, 0.00200786, 9.03916e-05, 0.00105431, 0.00101495, 
0393      & 0.000362439, 0.000102457, 0.0138908, 0.00050322, 7.02003e-05, 
0394      & 0.00591864, 0.00883803, 0.000527404, 0.0013942, 0.000274398, 
0395      & 0.000459125, 0.000284676, 0.00369642, 0.0248923, 0.00167512, 
0396      & 0.0209703, 0.00335852, 0.0047069, 0.000801527, 0.00241179, 
0397      & 0.000144704, 0.00211634, 0.0230826, 0, 0.00249587, 
0398      & 0.000158695, 0.00300745, 0.0147138, 0.00919966, 0.00389079, 
0399      & 0.00441449, 0.0118469, 0.00356161, 0.00439927, 0.0263162, 
0400      & 0.00168218, 0.0663583, 0.0272758, 0.0376161, 0.244433, 
0401      & 0.0985392, 0.0295845, 0.024381, 0.0212921, 0.0357003, 
0402      & 0.0169988, 0.0326056, 0.00261733, 0.0174906, 0.0272243, 
0403      & 0.00294777, 0.00825135, 0.0180376, 0, 0.000185127, 
0404      & 0.00209221, 0.00846863, 0.0020845, 0.000536647, 0.000101882, 
0405      & 0.00143495, 0.0112911, 3.99536e-05, 0.00499663, 0.00658708, 
0406      & 0.000288327, 0.00173897, 0.00107602, 0.00133505, 0.000664774, 
0407      & 0.0026116, 0.000897753, 0.00101916, 0.000701158, 0.00322544, 
0408      & 0.000593029, 0.000613776, 0.014784, 5.33087e-05, 0.00108334, 
0409      & 0, 0, 7.53831e-05, 0.000343308, 0, 
0410      & 0, 0.000311202, 0.000106862, 0, 2.19252e-05
0411      & /
0412       L25PRO = -120.572
0413       W25PRO = 2.41167
0414 
0415       DATA H26PRO /
0416      & 9.7374e-06, 0, 1.61252e-06, 0, 0, 
0417      & 0, 0, 2.02685e-05, 1.19892e-05, 0.000340543, 
0418      & 0, 2.73064e-05, 0, 0, 0, 
0419      & 0, 0, 0, 0, 0, 
0420      & 0, 0, 0.000820161, 0, 0.000341265, 
0421      & 0.000143654, 2.98477e-05, 0.00295001, 8.8743e-06, 0.00441913, 
0422      & 1.83138e-05, 0.000501804, 0.00551811, 0.000130598, 7.60471e-05, 
0423      & 0.00490408, 0.00878183, 0.00768929, 0.000450495, 0.00786744, 
0424      & 0.00705191, 0.0202486, 0.0201267, 0.0200026, 0.0154713, 
0425      & 0.0496292, 0.561223, 0.0792589, 0.0326632, 0.02448, 
0426      & 0.0303973, 0.010871, 0.013885, 0.00972328, 0.0092223, 
0427      & 0.011305, 0.00321233, 0.00580705, 0.00551817, 0.00525536, 
0428      & 0.00341469, 0.00260053, 0.00613131, 0.00483765, 0, 
0429      & 0, 0.0017126, 0, 0.000312811, 3.15781e-05, 
0430      & 0, 0, 0, 0, 8.99098e-05, 
0431      & 0, 9.24015e-06, 0, 0, 0, 
0432      & 0, 8.49332e-05, 0, 1.48989e-05, 4.05605e-05, 
0433      & 0, 0, 0, 0, 8.75002e-06, 
0434      & 0, 0, 0, 0, 0, 
0435      & 0, 0, 0, 0, 0.000295871
0436      & /
0437       L26PRO = -78.5426
0438       W26PRO = 1.67746
0439 
0440       DATA H27PRO /
0441      & 8.07219e-05, 2.52711e-05, 0, 2.273e-05, 3.08052e-06, 
0442      & 0, 4.85595e-05, 0.000383428, 0.000232586, 7.02522e-05, 
0443      & 0.000104209, 0.000167717, 3.01284e-05, 0.000105595, 7.20475e-05, 
0444      & 0.000242191, 0.000132429, 0.000726693, 0.000288958, 0.00036059, 
0445      & 0.000456942, 0.000521005, 0.000505509, 0.000533485, 0.0013246, 
0446      & 0.000546223, 0.00100885, 0.00144341, 0.0016216, 0.00161099, 
0447      & 0.00287347, 0.000749471, 0.000916859, 0.00170974, 0.00166734, 
0448      & 0.00376991, 0.0028655, 0.00593663, 0.0200754, 0.0413575, 
0449      & 0.0847444, 0.271629, 0.328404, 0.0932711, 0.0489485, 
0450      & 0.0288787, 0.00987042, 0.00276701, 0.00274932, 0.00394083, 
0451      & 0.00396621, 0.00218851, 0.00557163, 0.00162583, 0.00217458, 
0452      & 0.00331786, 0.00162162, 0.00094824, 0.00116591, 0.000675115, 
0453      & 0.000969686, 0.00125558, 0.000409666, 0.000955924, 0.000822208, 
0454      & 0.000518086, 0.000202438, 0.00025234, 0.000259566, 0.000212832, 
0455      & 0.000183341, 0.000192039, 5.53442e-05, 4.87563e-05, 9.11822e-05, 
0456      & 4.15233e-05, 3.82927e-05, 2.42378e-05, 6.90668e-05, 7.54703e-05, 
0457      & 2.24203e-05, 0, 1.83827e-05, 1.58693e-06, 2.3579e-06, 
0458      & 0, 0, 9.28649e-05, 0, 0, 
0459      & 0, 0, 0, 6.68865e-05, 0, 
0460      & 0, 0, 6.63854e-05, 0, 1.6357e-06
0461      & /
0462       L27PRO = -20.2949
0463       W27PRO = 0.48279
0464 
0465       DATA H28PRO /
0466      & 1.80204e-07, 0, 0, 0, 0, 
0467      & 0, 0, 0, 0, 0, 
0468      & 7.70891e-06, 0, 6.10933e-07, 1.08691e-06, 2.91594e-07, 
0469      & 1.09132e-06, 0, 6.28006e-06, 8.03655e-06, 1.55323e-05, 
0470      & 7.19503e-07, 2.53713e-05, 1.98561e-06, 4.11148e-05, 4.21949e-05, 
0471      & 1.9772e-05, 0.000100482, 0.00013951, 8.59067e-05, 0.000131943, 
0472      & 0.000116742, 2.88918e-05, 0.000301967, 0.0010903, 0.00569355, 
0473      & 0.00586238, 0.00333777, 0.00238933, 0.00191152, 0.00118935, 
0474      & 0.00130586, 0.00169884, 0.00410001, 0.00582312, 0.00776542, 
0475      & 0.0101311, 0.0139651, 0.0157608, 0.0217951, 0.0248381, 
0476      & 0.0334332, 0.0409698, 0.0574203, 0.0801348, 0.137221, 
0477      & 0.154947, 0.0875627, 0.0617663, 0.0482542, 0.0367953, 
0478      & 0.0272627, 0.021677, 0.0170008, 0.0118181, 0.0102672, 
0479      & 0.00789237, 0.00581573, 0.00434238, 0.00191646, 0.000941186, 
0480      & 0.000989383, 0.00133906, 0.00333022, 0.0028452, 0.00529184, 
0481      & 0.00581327, 0.00179989, 0.00014944, 8.79604e-05, 0.000207792, 
0482      & 0.000167514, 9.3487e-05, 0.0001042, 6.27758e-05, 1.57008e-05, 
0483      & 7.56498e-05, 0.000113889, 2.29899e-05, 1.57404e-05, 9.49582e-05, 
0484      & 5.20918e-05, 3.17323e-05, 3.74958e-06, 8.47812e-06, 9.13162e-06, 
0485      & 9.91749e-05, 0, 0, 4.10258e-07, 5.3166e-07
0486      & /
0487       L28PRO = -3.81174
0488       W28PRO = 0.069185
0489 
0490       DATA H31PRO /
0491      & 1.64359e-06, 0, 0, 0, 0, 
0492      & 0, 0, 0, 8.92426e-05, 1.01894e-05, 
0493      & 3.58516e-07, 0.000187958, 0.00107491, 0.000204907, 0.000101794, 
0494      & 0.000142572, 2.01454e-05, 2.58306e-05, 5.04129e-06, 0.00120473, 
0495      & 0.00063203, 0.000409398, 0.000550664, 0.000164193, 0.000970942, 
0496      & 0.00092423, 0.0016005, 0.000723948, 0.00232453, 0.00147814, 
0497      & 0.00103973, 0.00684038, 0.0103017, 0.00679039, 0.0103363, 
0498      & 0.0105118, 0.00976411, 0.00999538, 0.0155241, 0.0130757, 
0499      & 0.0181477, 0.0181581, 0.0148876, 0.0309112, 0.024782, 
0500      & 0.037436, 0.0450287, 0.0389653, 0.0438987, 0.0405122, 
0501      & 0.0547586, 0.0440205, 0.0380368, 0.0458691, 0.047812, 
0502      & 0.0299761, 0.0358968, 0.0313413, 0.0288979, 0.0214177, 
0503      & 0.0214089, 0.0174819, 0.0310772, 0.0172259, 0.0132192, 
0504      & 0.025542, 0.0134139, 0.0109094, 0.00678348, 0.0083996, 
0505      & 0.00861232, 0.00400914, 0.00447671, 0.00228466, 0.00487165, 
0506      & 0.000399422, 0.00190099, 0.00161961, 0.000816825, 0.000186507, 
0507      & 0.00146763, 7.83771e-05, 0.00396629, 0.0008612, 0.000318797, 
0508      & 7.57989e-05, 0.00014955, 0.000231872, 0.000373121, 4.4811e-05, 
0509      & 4.04032e-07, 0, 4.95806e-06, 5.65147e-06, 0, 
0510      & 0, 0, 0, 0, 3.38512e-07
0511      & /
0512       L31PRO = -0.869838
0513       W31PRO = 0.0167804
0514 
0515       DATA H32PRO /
0516      & 8.77407e-06, 1.28276e-05, 1.21283e-05, 0, 0, 
0517      & 0.000136204, 0.000198858, 1.02989e-05, 0, 0.000989521, 
0518      & 0.000290838, 0, 0.000534517, 0.000608876, 8.63673e-05, 
0519      & 0.000575539, 0.00144903, 0.00118451, 0.000119479, 2.78404e-05, 
0520      & 0.000159574, 5.79219e-05, 0.00016509, 0.000640086, 0.00109227, 
0521      & 0.00207999, 0.000217864, 0.00300611, 0.00703897, 0.000154788, 
0522      & 0.00258686, 0.00338592, 0.00763425, 0.00764447, 0.0194167, 
0523      & 0.0220164, 0.0173475, 0.0202027, 0.0212834, 0.0329205, 
0524      & 0.0168152, 0.0265818, 0.0440269, 0.0400231, 0.0381946, 
0525      & 0.0704527, 0.0430615, 0.053478, 0.0589774, 0.0227981, 
0526      & 0.0638832, 0.0563885, 0.0279954, 0.0289016, 0.0254066, 
0527      & 0.0364262, 0.0253816, 0.0176279, 0.0201788, 0.0188749, 
0528      & 0.017837, 0.0106142, 0.00932524, 0.0106755, 0.00918985, 
0529      & 0.00466879, 0.00171451, 0.000943437, 0.00267847, 0.0091702, 
0530      & 0.00168316, 0.00119552, 0.00216849, 0.00189476, 0.00213227, 
0531      & 0.000115812, 0.000767759, 7.8043e-05, 1.19421e-05, 0.000965538, 
0532      & 0.000412024, 1.68001e-05, 9.55622e-06, 1.66627e-05, 0.000327839, 
0533      & 0.000420285, 1.01146e-05, 2.53662e-06, 0, 1.08764e-05, 
0534      & 0, 0, 1.7219e-05, 2.37206e-06, 0, 
0535      & 0, 0, 0.000129577, 2.02153e-05, 2.65786e-06
0536      & /
0537       L32PRO = -0.429881
0538       W32PRO = 0.00882859
0539 
0540       DATA H33PRO /
0541      & 2.65722e-05, 0, 0, 0, 2.84474e-05, 
0542      & 0, 0, 0, 0, 0.000668068, 
0543      & 0, 0, 0, 2.60312e-05, 3.95204e-05, 
0544      & 0.000646692, 4.54662e-05, 0.000740595, 0, 5.57786e-05, 
0545      & 0.000208165, 0.000114026, 0.00361171, 0.000332266, 2.19618e-05, 
0546      & 0.0016558, 0.00171778, 0.000956779, 0.000607271, 0.000675419, 
0547      & 0.00294142, 0.00466834, 0.00727803, 0.00803723, 0.000658592, 
0548      & 0.00199994, 0.0142918, 0.00931093, 0.0154058, 0.0170433, 
0549      & 0.04772, 0.0419944, 0.0331747, 0.053818, 0.114288, 
0550      & 0.0711322, 0.0640773, 0.0740073, 0.0436534, 0.00709313, 
0551      & 0.0261864, 0.03466, 0.0366074, 0.0530411, 0.0418958, 
0552      & 0.0479756, 0.0283422, 0.0250161, 0.0172019, 0.00455724, 
0553      & 0.00762699, 0.00639732, 0.00421023, 0.00096549, 0.00054054, 
0554      & 0.00187526, 0.00589742, 7.55798e-05, 0.00109378, 0.000258156, 
0555      & 0.000184602, 0.00195028, 0.00205209, 0.000992868, 0.000307329, 
0556      & 0.000774019, 0.00283289, 0.00010453, 0.000302734, 0.000136956, 
0557      & 0, 9.65631e-05, 7.47911e-06, 0.000701072, 0, 
0558      & 3.42966e-05, 9.76336e-06, 0, 0, 0, 
0559      & 0, 0, 5.45595e-06, 0, 0, 
0560      & 1.29007e-06, 0, 0, 0, 0.000308977
0561      & /
0562       L33PRO = -0.175615
0563       W33PRO = 0.00356627
0564 
0565       DATA H34PRO /
0566      & 3.27866e-05, 0, 0.000168368, 0, 1.74369e-05, 
0567      & 0.000228933, 0, 2.232e-05, 0, 0.00010659, 
0568      & 0, 7.801e-05, 0.000115846, 6.99389e-05, 0.00144466, 
0569      & 0.00786849, 6.90783e-05, 0.000128622, 0.000321391, 0.00272733, 
0570      & 0.00156771, 0.0051836, 0.0137648, 0.0165355, 0.0156204, 
0571      & 0.0113695, 0.0308299, 0.010339, 0.0235814, 0.0409291, 
0572      & 0.0316137, 0.0322102, 0.0218119, 0.0103365, 0.0349931, 
0573      & 0.0115576, 0.0840201, 0.0454538, 0.0187002, 0.019431, 
0574      & 0.00881073, 0.00837535, 0.013683, 0.0124855, 0.0103419, 
0575      & 0.00413552, 0.0243058, 0.0115278, 0.0159813, 0.0154888, 
0576      & 0.0472228, 0.0288715, 0.046326, 0.0278467, 0.0271595, 
0577      & 0.072895, 0.0372296, 0.0117315, 0.0186504, 0.0128759, 
0578      & 0.0150911, 0.0149667, 0.0060054, 0.0010859, 0.00594059, 
0579      & 0.000495181, 0.00082373, 0.00220236, 0.000897565, 0.000578512, 
0580      & 9.25412e-05, 0.000392547, 0.00029323, 0.000103957, 0, 
0581      & 0.000103399, 0, 0.00140056, 2.43815e-05, 0, 
0582      & 0, 0, 0, 0, 0, 
0583      & 0, 0.00011382, 7.25434e-06, 0, 0, 
0584      & 0, 0, 0, 0, 0, 
0585      & 0, 0, 0, 0, 0.000187689
0586      & /
0587       L34PRO = -0.0535185
0588       W34PRO = 0.00117339
0589 
0590       DATA H35PRO /
0591      & 0.0079342, 0, 0, 0, 0, 
0592      & 3.21941e-05, 0.000318574, 0, 5.87307e-05, 0.000336749, 
0593      & 5.04399e-05, 0.000304149, 0.000218103, 0.00115405, 0.000689769, 
0594      & 0.00785798, 0.00060233, 0.000749454, 0.015209, 0.00443525, 
0595      & 0.000794504, 0.00161856, 0.00136659, 0.00550775, 0.0172439, 
0596      & 0.00356077, 0.00186419, 0.0103021, 0.00951771, 0.00652239, 
0597      & 0.00177158, 0.00434303, 0.00848666, 0.0167281, 0.0286946, 
0598      & 0.0121649, 0.00527298, 0.0133818, 0.00327911, 0.00466942, 
0599      & 0.0146551, 0.00699454, 0.0174556, 0.0269696, 0.00684377, 
0600      & 0.0135547, 0.0105697, 0.0224623, 0.0258784, 0.0377111, 
0601      & 0.0241379, 0.0287615, 0.0102346, 0.0185819, 0.0100827, 
0602      & 0.0287535, 0.00244114, 0.013543, 0.0247797, 0.00785453, 
0603      & 0.00411594, 0.0782803, 0.022811, 0.0555392, 0.0412697, 
0604      & 0.0364333, 0.0381336, 0.0426346, 0.0269317, 0.0169794, 
0605      & 0.0171241, 0.0166774, 0.00333142, 0.0116125, 0.00293992, 
0606      & 0.0118651, 0.00520775, 0.000968594, 0.00354693, 0.000244495, 
0607      & 0.0103592, 0.000435624, 0.000340825, 4.57961e-05, 0.00010712, 
0608      & 0.00088627, 0, 0.000212847, 0.000299436, 2.14362e-05, 
0609      & 0, 0.000391333, 0, 0, 0, 
0610      & 0.000315822, 0.000292429, 0, 2.56242e-05, 0.000312415
0611      & /
0612       L35PRO = -0.0265172
0613       W35PRO = 0.000516667
0614 
0615       DATA H36PRO /
0616      & 6.68798e-05, 0, 0, 0, 0, 
0617      & 0, 0, 6.58762e-05, 0, 0, 
0618      & 0.000126781, 0, 6.21646e-05, 0, 0, 
0619      & 0, 0.000420775, 1.41682e-05, 8.86173e-05, 0.00251806, 
0620      & 0.00953594, 0.000110527, 0.00624245, 0.000395302, 0.00382456, 
0621      & 0.00760331, 0.00347643, 0.00018285, 0.000180931, 0.000498962, 
0622      & 0.00705539, 0.000841712, 0.00535205, 0.00772003, 0.000706563, 
0623      & 0.010489, 0.00304753, 0.0109796, 0.00646683, 0.00835298, 
0624      & 0.00977219, 0.0108898, 0.0114638, 0.0079474, 0.02602, 
0625      & 0.0119617, 0.0142429, 0.0160201, 0.025629, 0.0114556, 
0626      & 0.0125136, 0.0340682, 0.0257858, 0.02937, 0.0193735, 
0627      & 0.037457, 0.0197402, 0.032869, 0.00855599, 0.0137194, 
0628      & 0.0133544, 0.0231922, 0.0103745, 0.00980061, 0.0106612, 
0629      & 0.0130192, 0.0003268, 0.00705608, 0.00406007, 0.00625056, 
0630      & 0.00429378, 0.0103766, 0.0208117, 0.0190273, 0.0231877, 
0631      & 0.0409325, 0.0303672, 0.0482403, 0.0264163, 0.0518873, 
0632      & 0.040406, 0.02726, 0.0136773, 0.0255124, 0.0155148, 
0633      & 0.017415, 0.00106515, 0.00325365, 6.04638e-05, 0, 
0634      & 0, 5.94758e-05, 0.000837061, 0.0027067, 0, 
0635      & 0, 0, 0, 6.06732e-05, 0.00325388
0636      & /
0637       L36PRO = -0.0170954
0638       W36PRO = 0.000319747
0639 
0640       DATA H37PRO /
0641      & 0.000676859, 0, 0, 0, 0, 
0642      & 0, 0.000315427, 0, 0.000654774, 0, 
0643      & 0.000739402, 0.000724657, 0.000705736, 0.000649727, 2.22833e-05, 
0644      & 0.000823131, 0.00172874, 0.00134737, 0.00204814, 0.00065491, 
0645      & 0.00266994, 0.00347678, 0.00207903, 0.00284212, 0.00309592, 
0646      & 0.00311213, 0.00436108, 0.00243796, 0.00211086, 0.00667933, 
0647      & 0.00564299, 0.00390301, 0.0061452, 0.00519195, 0.00983249, 
0648      & 0.00501235, 0.00612579, 0.00794208, 0.00684846, 0.0101183, 
0649      & 0.0181866, 0.0161877, 0.0252639, 0.026858, 0.0477193, 
0650      & 0.0619157, 0.0745738, 0.144891, 0.0690189, 0.062364, 
0651      & 0.041991, 0.0253014, 0.021411, 0.0178164, 0.0154115, 
0652      & 0.00967325, 0.00907259, 0.00830479, 0.0111448, 0.00788349, 
0653      & 0.00818678, 0.0069279, 0.00419648, 0.0047284, 0.00445107, 
0654      & 0.00679036, 0.00520684, 0.00393385, 0.00340466, 0.00283661, 
0655      & 0.0025394, 0.00069651, 0.00537181, 0.00113622, 0.00207281, 
0656      & 0.000899602, 0.00113301, 0.0055909, 0.0167332, 0.0159625, 
0657      & 0.0132667, 0.0113461, 0.0109337, 0.00685633, 0.00571638, 
0658      & 0.00549015, 0.00439409, 0.00355149, 0.0027056, 0.00190085, 
0659      & 0.000891864, 0.00143234, 0.000826183, 0.000495373, 0.00063157, 
0660      & 0.000363988, 7.32189e-05, 0.000456966, 0.000102973, 5.67797e-05
0661      & /
0662       L37PRO = -0.0092906
0663       W37PRO = 0.000195944
0664 
0665       DATA H38PRO /
0666      & 4.08771e-06, 0, 0, 0, 0, 
0667      & 5.1259e-07, 3.19252e-07, 0, 1.98307e-06, 0, 
0668      & 7.8915e-06, 0, 0, 0, 1.39163e-05, 
0669      & 1.66028e-05, 3.6734e-07, 4.77346e-05, 2.32e-05, 3.31734e-05, 
0670      & 3.71217e-05, 0.000155297, 0.000102972, 0.000174433, 9.00302e-07, 
0671      & 1.10589e-06, 1.01432e-05, 0.000430057, 0.000162187, 0.000270318, 
0672      & 0.000574746, 0.00122094, 0.00205276, 0.00231302, 0.00503011, 
0673      & 0.00647379, 0.0367698, 0.0601567, 0.0608328, 0.0909792, 
0674      & 0.337098, 0.231087, 0.0720535, 0.0146012, 0.0110686, 
0675      & 0.0184053, 0.0144164, 0.00884601, 0.002435, 0.00234587, 
0676      & 0.00500148, 0.00351097, 0.00212076, 0.00102132, 0.00133731, 
0677      & 0.000997742, 0.000717919, 0.00027222, 0.000862204, 0.000725989, 
0678      & 0.000265789, 0.000385869, 0.000227341, 0.000255652, 0.000185754, 
0679      & 0.000144233, 5.05179e-05, 0.000390235, 0.000437223, 0.000186711, 
0680      & 3.05076e-05, 2.58617e-05, 3.41614e-05, 2.45071e-05, 3.04989e-05, 
0681      & 8.63074e-05, 2.13908e-05, 2.85997e-05, 9.75901e-05, 2.03268e-05, 
0682      & 1.54885e-05, 1.24974e-05, 2.07696e-05, 1.01424e-05, 9.4423e-06, 
0683      & 6.99679e-05, 2.98161e-06, 1.83967e-05, 2.62565e-05, 1.37147e-05, 
0684      & 1.47145e-05, 7.69453e-06, 3.01114e-06, 1.06442e-05, 8.89792e-06, 
0685      & 0, 0, 0, 0, 3.04284e-06
0686      & /
0687       L38PRO = -0.00503754
0688       W38PRO = 0.000123149
0689 
0690       DATA H41PRO /
0691      & 0.00110693, 0, 0, 0, 0, 
0692      & 0, 2.17312e-06, 0, 0, 3.04532e-05, 
0693      & 0.000204986, 1.20181e-05, 6.03592e-05, 1.58156e-05, 1.87756e-05, 
0694      & 0.00102094, 0.000100986, 3.75822e-05, 0.000229094, 0.000963641, 
0695      & 0.00205764, 0.000418115, 0.000479251, 0.00064243, 0.00103114, 
0696      & 0.001897, 0.00221139, 0.00755765, 0.00453485, 0.0039445, 
0697      & 0.00670483, 0.00397959, 0.00532315, 0.0208982, 0.00603994, 
0698      & 0.0201859, 0.00921059, 0.0130997, 0.012912, 0.0148497, 
0699      & 0.0265863, 0.0262648, 0.0207662, 0.0285719, 0.018616, 
0700      & 0.0353384, 0.037077, 0.0586462, 0.0865557, 0.0703026, 
0701      & 0.0509337, 0.0458807, 0.0448522, 0.0295697, 0.0418021, 
0702      & 0.0278855, 0.0324967, 0.0459915, 0.0179432, 0.0165151, 
0703      & 0.0144964, 0.00733462, 0.00597193, 0.00990909, 0.0063709, 
0704      & 0.00307998, 0.0108377, 0.012685, 0.00220746, 0.00807531, 
0705      & 0.00289374, 0.000793309, 0.00111057, 0.00148849, 0.00114941, 
0706      & 0.00100145, 0.000897411, 0.000850566, 0.000594751, 0.000582876, 
0707      & 0.000219268, 0.000177522, 0.000919807, 3.17546e-05, 0.00080692, 
0708      & 9.98695e-05, 0.000784501, 5.56803e-06, 2.87192e-05, 3.59871e-06, 
0709      & 0.000205678, 0, 5.04458e-06, 0, 0, 
0710      & 0, 0, 0, 0, 3.83553e-06
0711      & /
0712       L41PRO = -0.81274
0713       W41PRO = 0.0165636
0714 
0715       DATA H42PRO /
0716      & 9.52905e-06, 0, 0, 0, 0, 
0717      & 0, 1.16695e-05, 7.31956e-06, 0, 1.17159e-05, 
0718      & 0.000305922, 0.000369281, 1.12232e-05, 1.30942e-05, 0.000200544, 
0719      & 2.87066e-05, 2.26898e-05, 8.35033e-05, 4.37916e-05, 0.000499567, 
0720      & 8.75273e-05, 1.0017e-05, 7.5587e-05, 9.26695e-05, 4.79577e-05, 
0721      & 0.000113936, 0.000772364, 0.000404707, 0.000147604, 0.00014637, 
0722      & 0.000354813, 0.00315801, 0.00157912, 0.00187824, 0.00465497, 
0723      & 0.00466252, 0.00247572, 0.00547824, 0.0102727, 0.0127463, 
0724      & 0.022554, 0.0246917, 0.0218386, 0.0205465, 0.0284103, 
0725      & 0.020642, 0.0414543, 0.0495331, 0.0787679, 0.0534493, 
0726      & 0.106815, 0.0642224, 0.0527315, 0.0444188, 0.029509, 
0727      & 0.0658441, 0.0285621, 0.032598, 0.0269584, 0.02558, 
0728      & 0.0259756, 0.0134594, 0.0155189, 0.0207181, 0.00759652, 
0729      & 0.00494188, 0.00608289, 0.00151704, 0.00368546, 0.00166253, 
0730      & 4.4562e-05, 0.000614209, 0.000413409, 0.00129934, 0.00124683, 
0731      & 7.44773e-05, 0.00111218, 0, 0.000115076, 0.00113599, 
0732      & 1.16552e-05, 0.000397879, 9.74106e-05, 0.0012662, 0.00018748, 
0733      & 1.92959e-05, 8.511e-06, 0, 0.00066524, 0.000211363, 
0734      & 2.70254e-06, 0, 0, 0, 0, 
0735      & 0, 1.03509e-05, 1.49663e-06, 0, 1.25122e-06
0736      & /
0737       L42PRO = -0.489917
0738       W42PRO = 0.00966511
0739 
0740       DATA H43PRO /
0741      & 1.8578e-05, 0, 0, 0.000678161, 0, 
0742      & 0, 0, 0, 0, 0, 
0743      & 0, 0, 0, 0, 2.11495e-05, 
0744      & 0.00069145, 1.32037e-05, 0, 0, 1.72787e-05, 
0745      & 0, 0.000585491, 0, 3.96437e-05, 1.86296e-05, 
0746      & 2.19416e-05, 4.19693e-05, 0.000551316, 5.87437e-05, 7.312e-05, 
0747      & 0.00266004, 0.00379366, 0.000158332, 0.000115619, 0.00709494, 
0748      & 0.020794, 0.00327297, 0.00865733, 0.0062005, 0.0118583, 
0749      & 0.00193642, 0.000790483, 0.0015844, 0.0163269, 0.0197286, 
0750      & 0.025165, 0.0267086, 0.0223569, 0.0501373, 0.0904043, 
0751      & 0.18028, 0.191684, 0.072365, 0.0406817, 0.0438332, 
0752      & 0.0255919, 0.0134322, 0.031409, 0.0129631, 0.0119741, 
0753      & 0.0108502, 0.00838409, 0.00454235, 0.00847741, 0.0103724, 
0754      & 0.001845, 0.00137508, 0.00080651, 0.00010666, 0.00132979, 
0755      & 0.000422653, 0.000369448, 0.000482626, 7.61432e-05, 0.000806127, 
0756      & 0.000357226, 0, 0.00137007, 1.57662e-05, 0, 
0757      & 2.1378e-05, 5.21623e-05, 0.000818259, 0, 0, 
0758      & 2.33882e-05, 0.000163509, 0, 0, 0, 
0759      & 0, 0, 0.000100292, 0, 0, 
0760      & 0, 0, 0, 0, 4.18936e-05
0761      & /
0762       L43PRO = -0.210991
0763       W43PRO = 0.00412945
0764 
0765       DATA H44PRO /
0766      & 5.29642e-05, 0, 0, 0, 0, 
0767      & 0, 0, 0, 0, 0, 
0768      & 3.77119e-05, 0, 0, 0.0161614, 0, 
0769      & 0, 0.000508255, 1.48425e-05, 0, 8.29155e-05, 
0770      & 0, 0.00481925, 0, 3.98364e-05, 4.25592e-05, 
0771      & 7.801e-05, 0.00515113, 0.000151856, 6.99389e-05, 3.52947e-05, 
0772      & 0.00101695, 9.5124e-05, 0, 0.0107101, 4.4795e-05, 
0773      & 0.000201073, 0.00712342, 0.0141334, 0.0131934, 0.00151419, 
0774      & 0.0179549, 0.00884277, 0.0172076, 0.0683734, 0.0359365, 
0775      & 0.0619995, 0.115894, 0.125965, 0.116298, 0.0903022, 
0776      & 0.0367272, 0.0247504, 0.0503015, 0.0314846, 0.0522566, 
0777      & 0.00606346, 0.00574388, 0.0154341, 0.00745583, 0.00261412, 
0778      & 0.00105951, 0.00552019, 0.000458198, 0, 0.000174534, 
0779      & 0.00780871, 0.00372796, 0.0013465, 0.00144466, 0.00307553, 
0780      & 0, 0.000228836, 0.000236943, 3.6527e-05, 0.00111672, 
0781      & 0.000359805, 0, 0, 3.27866e-05, 1.80284e-05, 
0782      & 0, 0.000184485, 0, 3.3264e-05, 0.00619919, 
0783      & 0, 0, 0, 0, 0, 
0784      & 0, 0, 0, 0, 0, 
0785      & 0, 0, 0, 0, 5.36403e-05
0786      & /
0787       L44PRO = -0.0602162
0788       W44PRO = 0.00124913
0789 
0790       DATA H45PRO /
0791      & 0.0038579, 0, 0, 0, 0, 
0792      & 0, 0, 0, 0, 0, 
0793      & 0, 0, 0, 0, 0.000709029, 
0794      & 0, 0, 0, 0, 0.000539171, 
0795      & 0, 1.35538e-06, 0, 0.00248825, 0, 
0796      & 0.000665109, 7.03161e-05, 0, 0.00407426, 5.48175e-07, 
0797      & 0.000762146, 0.0191515, 0.0178313, 5.70834e-05, 0.00496436, 
0798      & 0.0304324, 0.00269296, 0.00118503, 0.0134824, 0.00313682, 
0799      & 0.00604281, 0.0292728, 0.0214949, 0.00723016, 0.0139796, 
0800      & 0.0217529, 0.0430043, 0.0694204, 0.0413479, 0.0542002, 
0801      & 0.0543307, 0.0909324, 0.0443753, 0.0592497, 0.0725055, 
0802      & 0.074822, 0.0383401, 0.0208458, 0.0178863, 0.0172854, 
0803      & 0.0282694, 0.0157704, 0.00391149, 0.00333653, 0.00538491, 
0804      & 0.00175875, 0.000109096, 0.000410182, 0.00070494, 0.0212119, 
0805      & 5.13809e-05, 3.04827e-05, 0.000298222, 0, 0, 
0806      & 0.000171622, 0, 0, 0, 0, 
0807      & 0, 0, 0, 0.0133097, 0, 
0808      & 0, 0, 0, 0.000705342, 0, 
0809      & 0, 0, 0, 0, 0, 
0810      & 0, 0, 0, 0, 0.000144804
0811      & /
0812       L45PRO = -0.0256496
0813       W45PRO = 0.000501601
0814 
0815       DATA H46PRO /
0816      & 2.46324e-06, 0, 0, 0, 0, 
0817      & 0, 0, 0, 0, 0, 
0818      & 0, 0.000191856, 0, 2.68645e-06, 0, 
0819      & 0, 0.00302125, 0.00339578, 0, 0.00333036, 
0820      & 0, 6.53994e-05, 0.00310273, 0.000177656, 8.00916e-05, 
0821      & 0.00324862, 0.00320994, 0.00654948, 0.00156149, 0.00347067, 
0822      & 0.00299833, 0.00638256, 0.0060186, 0.000259476, 0.000122822, 
0823      & 0, 0.00314739, 8.51311e-05, 0.00367692, 0.00476249, 
0824      & 0.00730453, 0.00660625, 0.000377416, 0.00760177, 0.000241961, 
0825      & 0.00750449, 0.00685236, 0.00529031, 0.0110943, 0.00986746, 
0826      & 0.00989929, 0.0302888, 0.0311838, 0.0401609, 0.0915892, 
0827      & 0.12417, 0.137094, 0.114855, 0.0719934, 0.0402617, 
0828      & 0.0324755, 0.0176146, 0.0193124, 0.0226176, 0.0063989, 
0829      & 0.00360486, 0.00420224, 0.0093079, 0.00732583, 0.00647802, 
0830      & 0.0094301, 0.00327335, 0.000125166, 0.000297114, 0.00979385, 
0831      & 0.000443611, 0.000294551, 0.00330273, 0.000248119, 0.000422521, 
0832      & 0.000385124, 0, 0.00896162, 0.00634558, 0.000305083, 
0833      & 0, 0, 0.00310285, 0, 0.00845254, 
0834      & 1.82399e-05, 0.000133966, 0.000941528, 0, 0, 
0835      & 0.000305029, 5.78884e-06, 0.000863598, 0, 0.000109727
0836      & /
0837       L46PRO = -0.0157777
0838       W46PRO = 0.000280379
0839 
0840       DATA H47PRO /
0841      & 1.50427e-05, 0, 0, 0.000667821, 0, 
0842      & 0, 0.000693484, 0.000701642, 2.98496e-05, 0.000671293, 
0843      & 1.67274e-05, 0.000491638, 0.00154465, 0.00138555, 0.00107241, 
0844      & 0.000781964, 0.00218186, 0.00350576, 0.00136754, 0.00160474, 
0845      & 2.66605e-05, 0.00317111, 0.00289375, 0.00263563, 0.00155013, 
0846      & 0.00292809, 0.00278734, 0.000242147, 0.000105424, 0.00323673, 
0847      & 0.00490182, 0.00401518, 0.00200518, 0.00160141, 0.00516428, 
0848      & 0.00593693, 0.0108014, 0.00954246, 0.0112664, 0.0104348, 
0849      & 0.013677, 0.0184874, 0.0212606, 0.0262078, 0.0308411, 
0850      & 0.0496133, 0.0620326, 0.133059, 0.222261, 0.0653349, 
0851      & 0.0509228, 0.0395688, 0.0221796, 0.0222665, 0.0174324, 
0852      & 0.0150091, 0.0101603, 0.00637509, 0.00593133, 0.00680467, 
0853      & 0.00825578, 0.0079335, 0.00218596, 0.00352662, 0.00447383, 
0854      & 0.0023891, 0.00274008, 0.00181353, 0.00199126, 0.00148374, 
0855      & 0.00132754, 0.00046544, 0.000735767, 0.00536291, 0.000830043, 
0856      & 2.66529e-05, 0.00116937, 1.45922e-05, 0.00212087, 0.000777716, 
0857      & 0.000661277, 0.000718553, 0.00288396, 0.000668093, 0.000300156, 
0858      & 0.00144019, 1.39964e-05, 0.000718283, 3.81831e-05, 1.46503e-05, 
0859      & 1.72185e-05, 0.000103922, 0, 0.000693821, 0, 
0860      & 0, 0, 0, 0.000698782, 7.08399e-08
0861      & /
0862       L47PRO = -0.00798679
0863       W47PRO = 0.000165951
0864 
0865       DATA H48PRO /
0866      & 7.55236e-07, 7.73457e-06, 0, 0, 2.58549e-07, 
0867      & 0, 3.92815e-07, 0, 0, 7.55951e-06, 
0868      & 2.37698e-06, 1.68015e-05, 1.12795e-05, 2.5277e-05, 4.20849e-05, 
0869      & 1.95739e-05, 1.2787e-05, 1.80704e-06, 9.93205e-06, 5.44796e-05, 
0870      & 4.17216e-05, 0, 0.000125861, 9.62039e-05, 2.35117e-05, 
0871      & 3.46711e-05, 6.68702e-05, 0.000181679, 6.02246e-05, 0.000201173, 
0872      & 0.000171873, 0.000195009, 0.00028538, 0.000203653, 0.00134759, 
0873      & 0.00713174, 0.00598461, 0.0039269, 0.0020576, 0.00120057, 
0874      & 0.00135404, 0.00500533, 0.00880712, 0.00973986, 0.0126308, 
0875      & 0.0194987, 0.0241707, 0.0329925, 0.0465704, 0.0737836, 
0876      & 0.231114, 0.25076, 0.0770084, 0.0443273, 0.031972, 
0877      & 0.0231403, 0.0189544, 0.0149602, 0.0104533, 0.0078428, 
0878      & 0.00490527, 0.00215559, 0.00171742, 0.00200242, 0.00347923, 
0879      & 0.00651313, 0.00740444, 0.00133923, 0.000282126, 0.000283668, 
0880      & 0.000279672, 0.000458367, 9.69224e-05, 0.000104797, 1.60331e-05, 
0881      & 4.99704e-05, 1.27107e-05, 0.000128985, 6.46888e-05, 1.46253e-05, 
0882      & 1.06305e-06, 7.84649e-07, 2.06718e-06, 3.62215e-06, 0, 
0883      & 3.37859e-07, 1.57914e-06, 1.75786e-05, 1.70372e-06, 2.14037e-05, 
0884      & 0, 2.40632e-06, 8.57236e-07, 0, 7.49373e-07, 
0885      & 0, 0, 0, 0, 5.67325e-07
0886      & /
0887       L48PRO = -0.00203647
0888       W48PRO = 3.99241e-05
0889 
0890       RETURN
0891 
0892       END