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_KAP()   !   auto. created by droll (10/6/2005)
0004 *     generated rate: GR_KAP [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_KAP(N_BIN),LOW,WID,LOG_EK,R_VAL,S_RATE
0015 
0016       DATA R0_KAP /
0017      & 3326.09, 2172.33, 1903.38, 1331.33, 2998.98, 
0018      & 2549.72, 3710.46, 2816.62, 1287.71, 2063.26, 
0019      & 1309.47, 2775.87, 3080.7, 2583.89, 1777.71, 
0020      & 1160.11, 3491.48, 6489.28, 8304.59, 3382.75, 
0021      & 3741.15, 3021.06, 6790.97, 5858.27, 2464.96, 
0022      & 4589.8, 3387.75, 3972.59, 4898.13, 3460.56, 
0023      & 4240.7, 4422.98, 3883.99, 4858.86, 4371, 
0024      & 4642.5, 4683.99, 3932.93, 3327.96, 3725.71, 
0025      & 3820, 2907.94, 3403.98, 3118.23, 3632.22, 
0026      & 2732, 2571.56, 2463.23, 2997.16, 2651.45, 
0027      & 3571.71, 1962.26, 2291.62, 1455.59, 1367.61, 
0028      & 1309.32, 1652.82, 1516.19, 1830.68, 844.077, 
0029      & 1682.35, 1522.16, 1601.4, 1835.93, 2387.13, 
0030      & 2010.81, 2994.41, 2356.43, 2398.97, 3619.15, 
0031      & 3533.93, 3157.53, 3781.44, 4096.87, 3319.69, 
0032      & 4038.74, 3562.53, 3809.02, 3490.65, 4092.09, 
0033      & 3577.98, 3292.03, 2936.06, 2692.98, 2210.16, 
0034      & 1815.09, 1952.68, 1820.06, 1287.08, 1206.79, 
0035      & 909.382, 849.575, 726.183, 461.509, 370.617, 
0036      & 280.254, 139.191, 117.961, 45.8362, 10.4555
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(EKAMIN)) - 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_KAP(IBIN)
0048          S_RATE = S_RATE + R_VAL
0049       IF ((LOG_EK+LE_INC).LT.LOG(EKAMAX)) GOTO 111
0050       ! calculate the actual rate
0051       GR_KAP = REAL(S_RATE*LE_INC) ! total rate [Hz]
0052 
0053       RETURN
0054 
0055       END
0056 
0057 ************************************************************************
0058       SUBROUTINE F66KAP  !  automatically created by droll (10/6/2005)
0059 *     fill histograms H##KAP more infos in kine/kicdes/bhgrhists.inc
0060 ************************************************************************
0061 
0062       IMPLICIT NONE
0063 #include "GeneratorInterface/BeamHaloGenerator/interface/bhgrhists.inc"
0064 
0065       DATA H01KAP /
0066      & 0.0120125, 0.00784562, 0.00687428, 0.00480826, 0.0108312, 
0067      & 0.00920862, 0.0134008, 0.0101726, 0.00465071, 0.00745169, 
0068      & 0.00472929, 0.0100254, 0.0111263, 0.00933202, 0.0064204, 
0069      & 0.00418987, 0.0126099, 0.0234368, 0.029993, 0.0122172, 
0070      & 0.0135116, 0.0109109, 0.0245264, 0.0211578, 0.00890251, 
0071      & 0.0165766, 0.0122353, 0.0143475, 0.0176902, 0.0124982, 
0072      & 0.0153158, 0.0159741, 0.0140275, 0.0175484, 0.0157864, 
0073      & 0.0167669, 0.0169168, 0.0142042, 0.0120193, 0.0134558, 
0074      & 0.0137964, 0.0105024, 0.0122939, 0.0112618, 0.0131182, 
0075      & 0.00986692, 0.00928748, 0.00889624, 0.0108246, 0.00957603, 
0076      & 0.0128996, 0.00708691, 0.00827644, 0.00525703, 0.00493929, 
0077      & 0.00472876, 0.00596937, 0.00547589, 0.00661173, 0.00304848, 
0078      & 0.00607602, 0.00549746, 0.00578364, 0.00663067, 0.00862141, 
0079      & 0.00726228, 0.0108146, 0.00851053, 0.00866415, 0.013071, 
0080      & 0.0127632, 0.0114038, 0.0136571, 0.0147963, 0.0119894, 
0081      & 0.0145864, 0.0128665, 0.0137567, 0.0126069, 0.0147791, 
0082      & 0.0129223, 0.0118895, 0.0106039, 0.00972601, 0.00798227, 
0083      & 0.0065554, 0.00705232, 0.00657335, 0.00464844, 0.00435847, 
0084      & 0.00328434, 0.00306834, 0.00262269, 0.00166679, 0.00133853, 
0085      & 0.00101217, 0.000502705, 0.000426031, 0.000165543, 3.77612e-05
0086      & /
0087       L01KAP = 0
0088       W01KAP = 0.088537
0089 
0090       DATA H11KAP /
0091      & 1.44346e-07, 0, 0.001516, 2.91733e-05, 1.01465e-05, 
0092      & 0.00205224, 3.12909e-05, 1.47632e-05, 1.88776e-07, 0.00560445, 
0093      & 0.00133304, 2.07264e-05, 0, 0.000690492, 7.79999e-09, 
0094      & 1.48016e-05, 0.000818601, 0.000696233, 0, 0.00489849, 
0095      & 0.000957087, 0.000259735, 0.00017569, 0.00025962, 0.000109935, 
0096      & 6.62491e-06, 0.0145466, 0.00455866, 0.0002881, 0.00344822, 
0097      & 0.00210894, 7.60116e-05, 0.0205756, 0.0131356, 0.000392137, 
0098      & 0, 7.11334e-05, 0.0043765, 0.00418175, 0.00817902, 
0099      & 0.00242318, 0.0303777, 0.0156638, 0.00997437, 0.0112565, 
0100      & 0.00938215, 0.00939759, 0.012932, 0.00199541, 0.00323484, 
0101      & 0.0011989, 0.0126738, 0.0038611, 0.00624521, 0.00694784, 
0102      & 0.0603158, 0.0619951, 0.0108146, 0.0054436, 0.0134453, 
0103      & 0.0480036, 0.12362, 0.12211, 0.0332482, 0.0173082, 
0104      & 0.00801306, 0.0220705, 0.0080535, 0.00156378, 0.0146746, 
0105      & 0.00918255, 0.00208012, 0.0028328, 0.00993006, 0.0207503, 
0106      & 0.00598582, 0.0158654, 0.00272199, 0.0168329, 0.0164324, 
0107      & 0.0101054, 0.0247053, 0.00235575, 0.00578575, 0.00485234, 
0108      & 0.0222712, 0.00751225, 6.59983e-06, 0, 0.00299743, 
0109      & 3.49685e-07, 0, 0, 0, 0, 
0110      & 0, 0.0327696, 0, 0, 0.000341932
0111      & /
0112       L11KAP = -327.582
0113       W11KAP = 5.31615
0114 
0115       DATA H12KAP /
0116      & 7.41833e-05, 0, 0, 0, 6.77257e-05, 
0117      & 0, 0, 0, 0.00307235, 0.00133247, 
0118      & 0.00662752, 0, 0, 0.000213949, 5.5332e-05, 
0119      & 1.43121e-05, 0, 9.18982e-05, 0, 0.000297088, 
0120      & 8.3254e-05, 0.000347303, 0.000145736, 0.000498281, 0.00416925, 
0121      & 0.000511744, 0.00307715, 9.82558e-05, 1.78587e-08, 0, 
0122      & 0, 0, 3.50789e-05, 0.00272122, 0.0253176, 
0123      & 0.0660803, 0.0404183, 0.00839353, 0.0097952, 0.0237484, 
0124      & 0.0140402, 0.00996068, 0.00466676, 0.0295009, 0.0136753, 
0125      & 0.0049212, 0.0491599, 0.0551854, 0.0430932, 0.0135264, 
0126      & 0.00762291, 0.0194499, 0.00180367, 0.00336686, 0.00108613, 
0127      & 0.00208315, 0.0053092, 0.00130668, 0.00270555, 0.00181459, 
0128      & 0.00227327, 0.0158296, 0.0492134, 0.0829337, 0.103668, 
0129      & 0.00536811, 0.00335527, 0.00654876, 0.00248185, 0.000286732, 
0130      & 0.0021878, 0.00470988, 0.00262069, 0.004415, 0.00052183, 
0131      & 0.00562496, 0.00310783, 0.00493081, 0.00311251, 0.00488939, 
0132      & 0.0132482, 0.0137205, 0.00295603, 0.00754063, 0.00452997, 
0133      & 0.0103732, 0.00402239, 0.00197868, 0.00426364, 0.0487244, 
0134      & 0.0815017, 0.00410561, 0.011733, 9.57161e-05, 0, 
0135      & 0, 0, 0, 0, 0.00156152
0136      & /
0137       L12KAP = -276.671
0138       W12KAP = 4.37312
0139 
0140       DATA H13KAP /
0141      & 0.00227003, 0, 0.000444247, 0, 0, 
0142      & 0, 0, 0, 7.98831e-05, 0, 
0143      & 0, 0, 0, 0, 0, 
0144      & 0.000242572, 0, 0.000362752, 0, 0, 
0145      & 0, 0, 0, 0, 0, 
0146      & 0, 0, 0, 0.00318127, 0.0190731, 
0147      & 0.0213036, 0.0196965, 0.029158, 0.0340934, 0.0180952, 
0148      & 0.0286482, 0.0147649, 0.037967, 0.0238403, 0.0133052, 
0149      & 0.015502, 0.0222986, 0.0220503, 0.0162729, 0.0218896, 
0150      & 0.018055, 0.00480665, 0.00547833, 0.0429484, 0.00225936, 
0151      & 0.00111512, 0.00856405, 0.00104477, 7.77615e-05, 0.0024568, 
0152      & 0.00515205, 0.000307804, 0, 0.00312035, 0.000501728, 
0153      & 0.000352844, 0.00582563, 0.0536814, 0.0686695, 0.0312715, 
0154      & 0.000125439, 0.000451169, 0.000348732, 0, 0.000239987, 
0155      & 0.00099539, 0.00644542, 0.00125924, 0.00373348, 0.0116325, 
0156      & 0.000352178, 0.00559609, 0.00205951, 0.0167736, 0.0147276, 
0157      & 0.0155969, 0.00705214, 0.0236237, 0.0284473, 0.00829486, 
0158      & 0.0489169, 0.0530953, 0.0101916, 0.00843306, 0.0115773, 
0159      & 0.00971076, 0.0159782, 0.0212708, 0.0150883, 0.0106563, 
0160      & 0.020038, 0.00556867, 0.00148691, 0, 4.09933e-06
0161      & /
0162       L13KAP = -234.483
0163       W13KAP = 3.72032
0164 
0165       DATA H14KAP /
0166      & 0.00302001, 0, 0, 0, 0, 
0167      & 0, 0, 0, 0, 0, 
0168      & 0, 0, 0, 0, 0, 
0169      & 0, 0, 0, 0, 0, 
0170      & 0, 0, 0, 0, 0, 
0171      & 0, 0, 0, 0, 0, 
0172      & 0, 0, 0, 0, 0, 
0173      & 0.000438617, 0.00705572, 0.0122394, 0.00722508, 0.01176, 
0174      & 0.0209383, 0.0289822, 0.027667, 0.0240092, 0.0407028, 
0175      & 0.021226, 0.048648, 0.0326149, 0.0227521, 0.0262481, 
0176      & 0.0213074, 0.0395763, 0.0230361, 0.0171198, 0.0137233, 
0177      & 0.0161536, 0.00209245, 0.00799213, 0.0301716, 0.0139187, 
0178      & 0.0151839, 0.021104, 0.018073, 0.00170608, 0.0104608, 
0179      & 0.0023551, 0.0157742, 0.0537267, 0.0552181, 0.00204719, 
0180      & 0.000632907, 0.00647091, 0.00142344, 0.00229955, 0.00190262, 
0181      & 0.00182954, 0.0131205, 0.00540693, 0.00165758, 0.0163198, 
0182      & 0.0139978, 0.0121624, 0.0104417, 0.0134213, 0.016449, 
0183      & 0.0207026, 0.0118891, 0.0212468, 0.0204841, 0.00821564, 
0184      & 0.00631551, 0.0132641, 0.0149494, 0.00958929, 0.00807992, 
0185      & 0.00721576, 0.00652923, 0.00878701, 0.00379052, 0.00513697
0186      & /
0187       L14KAP = -273.032
0188       W14KAP = 4.03235
0189 
0190       DATA H15KAP /
0191      & 0.00229016, 0, 0.00043455, 0.000382321, 0.00014144, 
0192      & 0.00484292, 0.00347132, 0.0070885, 0.000348321, 0.0151611, 
0193      & 0.00123248, 0.00168308, 0.000465849, 0.00978609, 0.00328608, 
0194      & 0.0008034, 0.00088712, 0.00265846, 0.00539713, 0.00605814, 
0195      & 0.0172365, 0.0501332, 0.0062605, 0.00634927, 0.00444735, 
0196      & 0.0190307, 0.00367874, 0.0229713, 0.0128551, 0.00686565, 
0197      & 0.00508146, 0.0147371, 0.000371695, 0.00155848, 0.000666169, 
0198      & 0.0121191, 0.0139682, 0.00670598, 0.00840734, 0.0179557, 
0199      & 0.000674824, 0.0019892, 0.000463379, 0.000543249, 0.000503323, 
0200      & 0.000599385, 0.000890995, 0.000141868, 0.028967, 0.104223, 
0201      & 0.100011, 0.0684259, 0.0004173, 0.000575265, 0.005668, 
0202      & 0.00083648, 0.000610966, 0.000438265, 0.000423622, 0.00492672, 
0203      & 0.000880592, 0.00136407, 0.000515327, 0.00293211, 0.00601326, 
0204      & 0.012077, 0.00131161, 0.00192848, 0.00141686, 0.00526551, 
0205      & 0.00803417, 0.0120188, 0.00574269, 0.00149517, 0.000936407, 
0206      & 0.000606501, 0.0046365, 0.0175595, 0.0146918, 0.0332488, 
0207      & 0.0144028, 0.0204589, 0.0182412, 0.0380694, 0.0156399, 
0208      & 0.0106343, 0.0220479, 0.0122719, 0.0178957, 0.00723244, 
0209      & 0.00491653, 0.0111877, 0.00744427, 0.0118382, 0.0125967, 
0210      & 0.00494645, 0.00414489, 0.00502094, 0.00905625, 0.000130833
0211      & /
0212       L15KAP = -129.974
0213       W15KAP = 2.59727
0214 
0215       DATA H16KAP /
0216      & 0.000224637, 0, 0, 0.000218065, 3.69189e-05, 
0217      & 0, 0.0007971, 0.00014897, 0, 6.16801e-05, 
0218      & 0.00175292, 9.75577e-06, 0, 2.08967e-05, 0, 
0219      & 0.00143466, 0.00036703, 2.04797e-05, 0.000159414, 0.00117482, 
0220      & 0.000375483, 0.000494912, 7.40385e-05, 7.40935e-05, 6.75205e-05, 
0221      & 0.000117381, 0.000796222, 0.000198395, 0.000280464, 1.80169e-05, 
0222      & 6.45849e-05, 4.24781e-05, 7.3167e-05, 5.19683e-05, 8.90179e-06, 
0223      & 0.00153688, 0.000708092, 0.000330771, 2.66093e-05, 0.000101823, 
0224      & 0, 0, 0, 0, 0, 
0225      & 0.000123089, 0, 0.00186939, 0.103201, 0.404269, 
0226      & 0.122084, 0.00130276, 0, 0, 0, 
0227      & 0, 0, 0, 0, 0, 
0228      & 3.40191e-05, 0, 0, 5.09364e-05, 9.03344e-05, 
0229      & 0.00220133, 0.000215897, 0.000167059, 4.53437e-05, 0, 
0230      & 0, 0.000387292, 0.000554671, 0, 0, 
0231      & 0.000182023, 1.76375e-05, 0.0148586, 0.0155489, 0.0156653, 
0232      & 0.0187462, 0.0161328, 0.0125583, 0.0152807, 0.0174827, 
0233      & 0.0157613, 0.0181213, 0.0147349, 0.0180212, 0.0162439, 
0234      & 0.0139045, 0.0144552, 0.0155121, 0.0167054, 0.0184013, 
0235      & 0.0203873, 0.0112117, 0.0126974, 0.0159469, 0.00295653
0236      & /
0237       L16KAP = -127.606
0238       W16KAP = 2.57559
0239 
0240       DATA H17KAP /
0241      & 2.85891e-05, 1.7861e-05, 0, 0.000108559, 0, 
0242      & 0, 0, 1.20806e-05, 0, 1.59104e-05, 
0243      & 1.3421e-05, 4.05721e-05, 2.29616e-05, 2.69494e-05, 6.76002e-05, 
0244      & 6.88843e-06, 0, 0.000503012, 0, 0, 
0245      & 1.9168e-05, 0.000104079, 4.0884e-05, 1.28768e-06, 5.46182e-06, 
0246      & 1.50914e-05, 0.00036102, 5.78465e-06, 2.79707e-06, 0, 
0247      & 0, 0, 0, 0, 0, 
0248      & 0, 0, 0, 0.0112511, 0.118574, 
0249      & 0.655525, 0.0576855, 0, 0, 0, 
0250      & 0, 0, 0, 0, 0, 
0251      & 0, 0, 0, 0, 2.16866e-06, 
0252      & 0, 0, 0, 9.58098e-06, 1.73755e-05, 
0253      & 8.93727e-06, 0, 0, 0, 0, 
0254      & 0, 0, 0, 0, 0, 
0255      & 0, 0, 0.00218282, 0.0136228, 0.0148712, 
0256      & 0.014577, 0.0120374, 0.0107765, 0.0083384, 0.0100409, 
0257      & 0.0100178, 0.0086909, 0.0119332, 0.0082185, 0.0042089, 
0258      & 0.00385319, 0.00570041, 0.00475277, 0.00174034, 0.00265446, 
0259      & 0.0027007, 0.00125341, 0.000721782, 0.000545442, 0.000347513, 
0260      & 0.000417579, 0.000325542, 0.000479442, 0.00042471, 7.28954e-05
0261      & /
0262       L17KAP = -87.1529
0263       W17KAP = 2.16225
0264 
0265       DATA H18KAP /
0266      & 2.63207e-05, 0, 0, 0, 0, 
0267      & 0, 6.21773e-07, 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, 5.32669e-08, 7.30456e-05, 0.0103121, 0.751981, 
0276      & 0.222244, 0.00947857, 0.00369781, 0.00193323, 0.000143664, 
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, 0, 0, 
0283      & 0, 0, 0, 0, 0, 
0284      & 0, 0, 0, 0, 0, 
0285      & 0, 0, 0, 0, 0.000108857
0286      & /
0287       L18KAP = -38.181
0288       W18KAP = 0.765277
0289 
0290       DATA H21KAP /
0291      & 6.59983e-06, 0, 0, 0, 0, 
0292      & 0, 0.000473648, 0.000659594, 2.15238e-05, 0.00860481, 
0293      & 0.00210233, 0.000596042, 0.00104946, 0.00740118, 0.00710305, 
0294      & 0.00480947, 0.0109402, 0.00212202, 0.0189968, 0.00225346, 
0295      & 0.0317921, 0.00727154, 0.00758457, 0.0322238, 0.00772795, 
0296      & 0.0114247, 0.0104354, 0.00983495, 0.00588995, 0.00642547, 
0297      & 0.0142849, 0.0242894, 0.0211263, 0.0165223, 0.0279095, 
0298      & 0.065427, 0.162679, 0.0476916, 0.0183388, 0.0146474, 
0299      & 0.0152823, 0.00135269, 0.00773012, 0.0289192, 0.0109301, 
0300      & 0.007437, 0.0329174, 0.00431711, 0.0505246, 0.0533418, 
0301      & 0.00285493, 0.00630553, 0.00662657, 0.0068067, 0.0143973, 
0302      & 0.0158541, 0.00685816, 0.00114426, 0.0022809, 0.0115256, 
0303      & 0.0166513, 0.0116142, 0.0120035, 0.000921281, 0.0526368, 
0304      & 0.000494915, 0.000210735, 1.92777e-05, 0.000196941, 1.36399e-05, 
0305      & 0, 0, 9.44487e-05, 0, 2.63659e-05, 
0306      & 1.82102e-06, 0.000166573, 2.71917e-07, 0.000137531, 0.000443205, 
0307      & 0.00142118, 0.00017569, 3.6107e-05, 0.00331003, 5.70351e-05, 
0308      & 0, 0, 2.68256e-05, 4.65262e-05, 1.42895e-06, 
0309      & 0, 0.000250609, 0, 0, 0, 
0310      & 0, 0, 2.56546e-11, 0.00018007, 0.000788801
0311      & /
0312       L21KAP = -159.57
0313       W21KAP = 4.38274
0314 
0315       DATA H22KAP /
0316      & 9.52527e-05, 0, 8.5839e-05, 0.00672964, 0.00264098, 
0317      & 0.00250129, 0.0166144, 0.000690985, 0.00091849, 0.00112655, 
0318      & 0.00157712, 0.00182498, 0.00245405, 0.0035132, 0.00301189, 
0319      & 0.000761802, 0.000765373, 0.00201428, 0.0104068, 0.000904132, 
0320      & 0.0029968, 0.00796009, 0.00246541, 0.0258637, 0.00523713, 
0321      & 0.00450162, 0.00173678, 0.00262831, 0.00190562, 0.00525541, 
0322      & 0.00479876, 0.00983755, 0.0451773, 0.013702, 0.0296076, 
0323      & 0.0275527, 0.0143824, 0.0792549, 0.198601, 0.1305, 
0324      & 0.0510654, 0.0260909, 0.0525184, 0.00181596, 0.00399998, 
0325      & 0.00297208, 0.00162992, 0.00900702, 0.0129991, 0.0102646, 
0326      & 0.0104815, 0.0533285, 0.00252212, 0.00604885, 0.00153938, 
0327      & 0.00390667, 0.00398746, 9.77765e-05, 0.00143123, 0.00575551, 
0328      & 0.000160923, 0.00374671, 0.00276564, 0.00136601, 0.00601008, 
0329      & 0.010963, 0.00263961, 0.00691727, 0.0188745, 0.000616687, 
0330      & 0.000209863, 0.000622471, 0.000403045, 0.000449146, 0.00601733, 
0331      & 0.000369698, 0.00304932, 0, 0, 0, 
0332      & 0, 0.000213949, 0, 0, 0, 
0333      & 7.3396e-06, 0, 0, 0, 3.66422e-05, 
0334      & 0, 0.000212795, 0, 0, 0.000222711, 
0335      & 0, 0, 0, 0, 6.16419e-05
0336      & /
0337       L22KAP = -130.689
0338       W22KAP = 3.38014
0339 
0340       DATA H23KAP /
0341      & 0.000136948, 0, 0.00343625, 0.000261577, 0, 
0342      & 0.00212998, 0.00092796, 0.00160371, 0.000133693, 9.93133e-05, 
0343      & 0.00010662, 0.00302792, 0.00748022, 0.010841, 0.00324568, 
0344      & 0.00304124, 0.00436435, 0.000621588, 0.00360074, 0.031556, 
0345      & 0.000123718, 0.00265315, 0.000533437, 0.00661609, 0.00505565, 
0346      & 0.0127619, 0.0114244, 0.000820725, 0.0063144, 0.00337133, 
0347      & 0.00124434, 0.0128861, 0.00354992, 0.00590475, 0.00818142, 
0348      & 0.0100433, 0.0104974, 0.0346182, 0.0236382, 0.0297188, 
0349      & 0.0466651, 0.0834852, 0.103265, 0.111876, 0.0418596, 
0350      & 0.0649103, 0.0473511, 0.00909704, 0.0224649, 0.00706449, 
0351      & 0.0129202, 0.0141835, 0.00508607, 0.00306281, 0.00509682, 
0352      & 0.0374478, 0.0143985, 0.00691762, 0.0166995, 0.000806667, 
0353      & 0.00147925, 0.0109033, 7.63205e-05, 0.00072037, 0.00749611, 
0354      & 0.00559368, 0.0103858, 0.000800357, 0.000436445, 0.000117464, 
0355      & 0.000300125, 0.0121899, 0.00111934, 0.000280763, 0.000594951, 
0356      & 0.0100254, 0.000113635, 0.00371167, 0.00111883, 0.000414228, 
0357      & 0.00447302, 0.000540779, 4.24364e-05, 0.0052551, 0.000568899, 
0358      & 0, 0, 0, 0, 0, 
0359      & 0, 0, 0, 0, 0, 
0360      & 0, 0, 0, 0, 1.15725e-05
0361      & /
0362       L23KAP = -128.756
0363       W23KAP = 2.98865
0364 
0365       DATA H24KAP /
0366      & 5.12248e-05, 0.000295024, 0.0025586, 0.000540418, 0.00330935, 
0367      & 0.00509791, 0.0151469, 0.00533291, 0.00415359, 0.00134863, 
0368      & 0.0153428, 0.0042455, 0.00400822, 0.000892709, 0.00509883, 
0369      & 0.00115205, 0.00469888, 0.0226496, 0.0008719, 0.00187382, 
0370      & 0.00437424, 0.0010719, 0.00153347, 0.00145331, 0.0109862, 
0371      & 0.017772, 0.0018778, 0.00216944, 0.00286678, 0.000703941, 
0372      & 0.00513644, 0.0118504, 0.0016555, 0.00533815, 0.00396642, 
0373      & 0.00342602, 0.0049859, 0.00272102, 0.0107975, 0.00578613, 
0374      & 0.00855267, 0.00829832, 0.0179801, 0.0195694, 0.0169457, 
0375      & 0.0210457, 0.0503565, 0.0484141, 0.0633832, 0.116919, 
0376      & 0.0861985, 0.0561854, 0.039998, 0.0236019, 0.0205127, 
0377      & 0.0167516, 0.00463689, 0.00986389, 0.0118057, 0.0101852, 
0378      & 0.00408353, 0.00131983, 0.000984268, 0.00270971, 0.00318479, 
0379      & 0.00167468, 0.000388576, 0.00200692, 0.00236789, 0.0011582, 
0380      & 0.00190946, 0.00651405, 0.0022224, 0.00213354, 0.0127052, 
0381      & 0.00247741, 0.00586173, 0.0054423, 0.00407163, 0.00254885, 
0382      & 0.00204339, 0.00776655, 0.0116346, 0.013321, 0.00521025, 
0383      & 0.00715884, 0.00475538, 0.000634082, 0.00282058, 0.00232267, 
0384      & 0.00281084, 0.00983828, 0.000226139, 0.00411476, 0.00128268, 
0385      & 0.00609276, 0.000278806, 0.000122442, 0.00065154, 0.000803838
0386      & /
0387       L24KAP = -124.953
0388       W24KAP = 2.52078
0389 
0390       DATA H25KAP /
0391      & 0.000178287, 0, 0.000107118, 0.00047697, 0.000352357, 
0392      & 0.000281129, 0.000517536, 0.000187019, 0.00494464, 0.000350345, 
0393      & 0.00353072, 0.000566467, 0.000346293, 0.000351729, 0.000748324, 
0394      & 0.00810058, 0.00665558, 0.00205634, 0.00125245, 0.00888256, 
0395      & 0.00731354, 0.000828937, 0.00091969, 0.000302726, 0.00616401, 
0396      & 0.000653189, 0.000257145, 0.00533678, 0.0117763, 0.00908461, 
0397      & 0.000809327, 0.00436454, 0.00407869, 0.00142913, 0.000793928, 
0398      & 0.00096264, 0.0118645, 0.00491017, 0.00303838, 0.0131889, 
0399      & 0.00585469, 0.0228892, 0.00381932, 0.0113484, 0.0173097, 
0400      & 0.0304605, 0.0223781, 0.0611797, 0.334744, 0.0441452, 
0401      & 0.0398835, 0.0257281, 0.0383149, 0.00962411, 0.0299466, 
0402      & 0.00600552, 0.00543605, 0.00760647, 0.00565392, 0.00914114, 
0403      & 0.00381131, 0.0301673, 0.0106577, 0.00274879, 0.00324591, 
0404      & 0.00598474, 0.00830965, 0.00441192, 0.00455801, 0.000474743, 
0405      & 0.000912664, 0.00622386, 0.00298542, 0.0017511, 0.00580747, 
0406      & 0.00532863, 0.00190921, 0.00201781, 0.0051716, 0.00127039, 
0407      & 0.00103015, 0.00203931, 0.000569381, 0.000745106, 0.00108291, 
0408      & 0.0180213, 0.000752448, 0.000187071, 0.000131397, 0.000265903, 
0409      & 0.00013818, 0, 0, 0.00668758, 0.000177565, 
0410      & 0, 0.000528237, 0.000308295, 0, 0.000154506
0411      & /
0412       L25KAP = -118.973
0413       W25KAP = 2.45107
0414 
0415       DATA H26KAP /
0416      & 5.9691e-05, 0, 0, 0, 0, 
0417      & 0, 0, 0, 0, 0, 
0418      & 0, 0, 0, 0, 0, 
0419      & 0, 0, 0.000123089, 0, 0, 
0420      & 0, 0, 0, 0, 0, 
0421      & 0, 0, 0, 0, 0, 
0422      & 0, 0, 0, 0, 0, 
0423      & 0, 0, 0.0010225, 0.000197451, 0.00146208, 
0424      & 1.57817e-05, 0.00258537, 0.0071148, 0.00344061, 0.0043568, 
0425      & 0.000885098, 0.00111882, 0.00148596, 0.00380912, 0.00259643, 
0426      & 0.00702968, 0.00758735, 0.00580059, 0.0124865, 0.0081717, 
0427      & 0.0124118, 0.0149744, 0.0309047, 0.0156236, 0.0439825, 
0428      & 0.60947, 0.0326981, 0.0192607, 0.0180288, 0.0223779, 
0429      & 0.0152864, 0.0135996, 0.0112474, 0.0135006, 0.00704237, 
0430      & 0.00926434, 0.00628217, 0.00768617, 0.00434044, 0.00304428, 
0431      & 0.00203287, 0.00108213, 0.00420781, 0.00301574, 0.00150669, 
0432      & 1.00349e-05, 0, 0.000838934, 0, 0.00162146, 
0433      & 0.00117164, 0, 0, 0, 0, 
0434      & 0.00212322, 0, 0, 0, 0, 
0435      & 0, 0, 0, 0, 1.37702e-05
0436      & /
0437       L26KAP = -88.176
0438       W26KAP = 1.45664
0439 
0440       DATA H27KAP /
0441      & 1.33428e-05, 2.48386e-05, 7.28581e-05, 0, 5.14781e-05, 
0442      & 3.8905e-05, 0.000129155, 0.000556625, 2.50249e-05, 7.81689e-05, 
0443      & 0.000661414, 0.000647896, 0.000149244, 0.00014724, 0.000110552, 
0444      & 0.000228303, 0.000114226, 0.000245165, 0.00082382, 0.000104084, 
0445      & 0.000628472, 0.00072452, 0.00125603, 0.00149869, 0.000686704, 
0446      & 0.000312231, 0.000410495, 0.00109602, 0.00124318, 0.00210032, 
0447      & 0.00224032, 0.00145117, 0.00289093, 0.00247901, 0.00365735, 
0448      & 0.00292309, 0.00254456, 0.00231138, 0.00120484, 0.00319214, 
0449      & 0.00349091, 0.00253484, 0.00570306, 0.00523042, 0.00645493, 
0450      & 0.0101682, 0.0254649, 0.0411863, 0.0735242, 0.209746, 
0451      & 0.319726, 0.0940005, 0.0496798, 0.0328546, 0.0195437, 
0452      & 0.00559356, 0.00517805, 0.00282483, 0.00242993, 0.00247106, 
0453      & 0.00342025, 0.00465752, 0.00327261, 0.00242152, 0.0019267, 
0454      & 0.0037787, 0.00257577, 0.00189259, 0.00204572, 0.0014702, 
0455      & 0.00192898, 0.000942975, 0.000409355, 0.0012987, 0.00149966, 
0456      & 0.00151992, 0.000936766, 0.00158271, 0.00096259, 0.000381389, 
0457      & 0.000550401, 0.000281825, 0.000196124, 0.000310619, 0.000122159, 
0458      & 0.000248714, 0.00108554, 0.000205077, 0.000121877, 9.57223e-05, 
0459      & 9.47452e-05, 0.000602371, 9.9192e-05, 1.24138e-05, 7.47596e-05, 
0460      & 6.66204e-05, 0, 0, 0, 2.72108e-05
0461      & /
0462       L27KAP = -19.7808
0463       W27KAP = 0.394556
0464 
0465       DATA H28KAP /
0466      & 4.25878e-05, 0, 0, 0, 0, 
0467      & 0.00102203, 0, 0, 0, 0, 
0468      & 0, 0.001955, 0, 4.39607e-05, 0.00198118, 
0469      & 0, 0, 0.00209803, 7.97462e-05, 3.32676e-05, 
0470      & 7.39225e-05, 0, 0.00202131, 0.00208829, 0.00505807, 
0471      & 0.00218813, 0.00584524, 0.00593506, 0.000947168, 0.00797197, 
0472      & 0.0032944, 0.00645142, 0.00741288, 0.01086, 0.00672507, 
0473      & 0.00602626, 0.0135624, 0.016091, 0.0201114, 0.0179644, 
0474      & 0.0241143, 0.0208896, 0.0237198, 0.0216534, 0.035758, 
0475      & 0.0370116, 0.053713, 0.0847495, 0.0942739, 0.0740356, 
0476      & 0.0641021, 0.0482881, 0.031045, 0.0342715, 0.0339691, 
0477      & 0.0192634, 0.0292652, 0.0137294, 0.0168779, 0.0107963, 
0478      & 0.00973543, 0.00925321, 0.00567387, 0.0032828, 0.00608211, 
0479      & 0.00558094, 0.00745796, 0.00515319, 0.00228243, 0.00512729, 
0480      & 0.00116379, 0.00127056, 0.00114849, 0.00209244, 0.00296969, 
0481      & 0.00293306, 0.00209542, 0.00116702, 0.00204418, 0.000125472, 
0482      & 8.6989e-05, 0.00100569, 8.52895e-05, 3.9439e-05, 0, 
0483      & 0, 0, 0, 0.000985349, 0.000911246, 
0484      & 0, 0, 0, 0, 0, 
0485      & 0, 0, 0, 0, 0.000835699
0486      & /
0487       L28KAP = -2.73811
0488       W28KAP = 0.0561964
0489 
0490       DATA H31KAP /
0491      & 1.40916e-08, 0, 0, 0, 0, 
0492      & 0, 0, 0, 0, 0, 
0493      & 0, 0, 0, 0, 0, 
0494      & 6.07148e-06, 0, 0, 0, 0, 
0495      & 2.92329e-05, 0, 0.000299684, 5.19685e-05, 8.13421e-06, 
0496      & 0.0013414, 7.68328e-05, 6.38804e-05, 0.00246843, 0.00410845, 
0497      & 0.000835547, 0.00210236, 0.000695762, 0.000996768, 0.000544948, 
0498      & 0.00242101, 0.0196573, 0.0571305, 0.00295508, 0.00852232, 
0499      & 0.0220835, 0.00503787, 0.00680365, 0.0306424, 0.0299808, 
0500      & 0.0153531, 0.00986986, 0.0419262, 0.0432273, 0.0374605, 
0501      & 0.0306543, 0.0474313, 0.115822, 0.0562316, 0.0606932, 
0502      & 0.0112556, 0.0221964, 0.0492251, 0.024196, 0.0250603, 
0503      & 0.0194193, 0.0166626, 0.00480915, 0.0119354, 0.012141, 
0504      & 0.0148963, 0.0254191, 0.00400297, 0.0114993, 0.00125801, 
0505      & 0.00921086, 0.0222921, 0.00479141, 0.00536233, 0.00705416, 
0506      & 3.93538e-05, 0.000111032, 0.000117396, 0.000315803, 9.78217e-05, 
0507      & 5.71004e-05, 0.000287584, 0.00526116, 0, 0, 
0508      & 0, 2.50234e-05, 7.89935e-05, 0, 5.92728e-05, 
0509      & 0.0332193, 7.65273e-08, 0, 0, 0, 
0510      & 0, 0, 0, 0, 0.000109754
0511      & /
0512       L31KAP = -0.742915
0513       W31KAP = 0.0140015
0514 
0515       DATA H32KAP /
0516      & 7.39342e-05, 0, 3.56652e-05, 0.000248958, 4.96421e-05, 
0517      & 0, 0.00209852, 2.1253e-05, 0.0032492, 1.132e-05, 
0518      & 1.43121e-05, 0, 0.00023821, 0.0032883, 0.00627453, 
0519      & 5.68695e-05, 0.0032284, 0.00031569, 0.00689616, 0.0103653, 
0520      & 0.000675109, 0.00011037, 0.00484809, 0.000372565, 0.00117014, 
0521      & 0.00412404, 0.0114307, 0.0462118, 0.0121876, 0.000784847, 
0522      & 0.022728, 0.00853021, 0.00634508, 0.0102451, 0.0549558, 
0523      & 0.0686982, 0.087014, 0.106709, 0.0750516, 0.0302804, 
0524      & 0.0355617, 0.0168383, 0.0376371, 0.0377648, 0.0119109, 
0525      & 0.119172, 0.0050306, 0.00046272, 0.0217274, 0.00422828, 
0526      & 0.0157912, 0.0108773, 0.00140556, 0.00268396, 0.0161029, 
0527      & 0.0239472, 0.0136499, 0.00180418, 0.00970016, 0.00486797, 
0528      & 0.00410495, 0.000235583, 0.000207003, 0.00319466, 0.00158953, 
0529      & 0, 0.00264435, 0.00121817, 0.00032576, 0, 
0530      & 0.000135192, 1.78587e-08, 0.00224459, 0, 0, 
0531      & 0, 0.000122874, 0.000441805, 8.29274e-05, 0.000353512, 
0532      & 0.0025779, 0, 3.04659e-06, 8.7662e-05, 0.000115163, 
0533      & 0, 0, 0, 0, 0, 
0534      & 0, 0, 0, 0, 0, 
0535      & 0, 0, 0, 0, 0.000212014
0536      & /
0537       L32KAP = -0.222307
0538       W32KAP = 0.00547606
0539 
0540       DATA H33KAP /
0541      & 4.94436e-05, 0, 0, 2.34074e-06, 0, 
0542      & 0, 0, 0, 0, 0, 
0543      & 0, 0, 0, 4.59641e-05, 0, 
0544      & 0.000224852, 1.62764e-05, 0, 0.000380819, 0, 
0545      & 0.001752, 1.54377e-05, 9.9336e-05, 0.00373878, 3.90009e-05, 
0546      & 0.000139301, 0.000120244, 0.000648618, 0.000508522, 0.000961588, 
0547      & 0.00121488, 0.00950254, 0.000343405, 0.0030824, 0.00574278, 
0548      & 0.00442984, 0.0111476, 0.0128999, 0.0332076, 0.0345147, 
0549      & 0.032198, 0.0231479, 0.0489132, 0.0336996, 0.0393526, 
0550      & 0.0279474, 0.0456635, 0.0304411, 0.0775052, 0.0230174, 
0551      & 0.0107281, 0.0280371, 0.00972069, 0.00649556, 0.0438203, 
0552      & 0.0503516, 0.0449587, 0.0356033, 0.056916, 0.0400569, 
0553      & 0.0256975, 0.0235914, 0.0146601, 0.0147317, 0.0222471, 
0554      & 0.0076272, 0.0283415, 0.00858483, 0.0057193, 0.00211043, 
0555      & 5.7468e-06, 0.00130658, 0, 0.0032587, 8.37012e-05, 
0556      & 0, 0.000199985, 0.00330846, 0.000253213, 9.63962e-06, 
0557      & 0.000917044, 0, 0, 3.04549e-05, 0, 
0558      & 0.000187894, 0, 7.15662e-05, 0, 0.000350103, 
0559      & 0, 0, 0, 0.000160207, 0, 
0560      & 0, 0, 0, 0, 0.0031431
0561      & /
0562       L33KAP = -0.103288
0563       W33KAP = 0.00195502
0564 
0565       DATA H34KAP /
0566      & 0.000125041, 0, 0, 0, 0, 
0567      & 0, 0, 0, 9.10695e-06, 0, 
0568      & 0, 0, 0, 8.07027e-05, 0.000273811, 
0569      & 0.000242822, 0.000195794, 0.000427499, 0.00293137, 0.00143332, 
0570      & 0.00277866, 0.00822615, 0.0152391, 0.00650698, 0.00535357, 
0571      & 0.0113511, 0.0188218, 0.0117936, 0.0260048, 0.0296858, 
0572      & 0.0127338, 0.0158269, 0.0100685, 0.0221646, 0.0133081, 
0573      & 0.0152949, 0.0328479, 0.0353781, 0.0288695, 0.0265734, 
0574      & 0.0377881, 0.0211245, 0.0302507, 0.021983, 0.0338811, 
0575      & 0.0785419, 0.0519277, 0.0109806, 0.0205985, 0.0149868, 
0576      & 0.0208484, 0.0246684, 0.0193611, 0.0281347, 0.022657, 
0577      & 0.0224317, 0.0317897, 0.0226086, 0.0228079, 0.0105147, 
0578      & 0.0100725, 0.0131527, 0.00617614, 0.00645448, 0.0109658, 
0579      & 0.0107615, 0.00810602, 0.00211658, 0.00112472, 0.00941696, 
0580      & 0.00578856, 0.00313158, 0.00055609, 0.000515569, 0.00178251, 
0581      & 0.0012442, 0.000371093, 0.000536778, 6.22003e-05, 0.000207106, 
0582      & 0, 0.00317854, 0, 0, 2.37755e-05, 
0583      & 0.000692415, 9.86915e-05, 7.4026e-05, 0.000193934, 0, 
0584      & 0.00022629, 0.000100106, 0, 0.000218055, 0, 
0585      & 0, 0, 0, 0, 0.000219184
0586      & /
0587       L34KAP = -0.0492282
0588       W34KAP = 0.00101978
0589 
0590       DATA H35KAP /
0591      & 0.000281459, 0, 0, 0, 0, 
0592      & 0.00013419, 0, 0.000250221, 0, 0.00024257, 
0593      & 0.000439278, 0.000199734, 0.000216536, 0.00519236, 0.000433561, 
0594      & 0.000170528, 0, 0.000163324, 0.00662435, 0.00494495, 
0595      & 0.00575146, 0.000713189, 0.00551284, 0.000626219, 0.00787084, 
0596      & 0.0523092, 0.00375578, 0.00798132, 0.00297526, 0.0163519, 
0597      & 0.00257556, 0.00559722, 0.00279238, 0.00579446, 0.00492997, 
0598      & 0.0274814, 0.0101714, 0.0182217, 0.0165675, 0.027269, 
0599      & 0.024077, 0.00657477, 0.00629402, 0.0179986, 0.0108671, 
0600      & 0.0190549, 0.0167532, 0.0182132, 0.0263727, 0.0329873, 
0601      & 0.00545098, 0.0176981, 0.0164314, 0.00949661, 0.00871216, 
0602      & 0.0156945, 0.0118433, 0.0106272, 0.0152267, 0.0229832, 
0603      & 0.013792, 0.0422834, 0.0505769, 0.0888929, 0.0399513, 
0604      & 0.0409587, 0.0250887, 0.0448971, 0.0301656, 0.0098375, 
0605      & 0.00355596, 0.0015461, 0.00888386, 0.0079008, 0.00163358, 
0606      & 0.00341326, 0.00609562, 0.000560703, 0.00422961, 0.000277741, 
0607      & 0.00326355, 0.000836801, 0.00412857, 0.000252431, 0.00672815, 
0608      & 0.000175627, 0.000187806, 0.000198349, 0, 0.000159158, 
0609      & 0.000396271, 0.000677826, 0.000118377, 0, 0, 
0610      & 0.000162301, 0, 0, 0, 0.000274708
0611      & /
0612       L35KAP = -0.030464
0613       W35KAP = 0.000594558
0614 
0615       DATA H36KAP /
0616      & 0.00183348, 7.18146e-05, 0.0017116, 0, 0, 
0617      & 0, 0, 0.00148587, 0.00325046, 0.0015102, 
0618      & 0.00169171, 0.00492468, 0.000129816, 0.00310648, 0.00371903, 
0619      & 0.000911157, 9.09863e-05, 0.00143566, 0.0016396, 0.000157471, 
0620      & 0.00192526, 0.00873773, 0.00682625, 0.00307569, 0.0020395, 
0621      & 0.00164651, 0.00492844, 0.0045433, 0.00771719, 0.0057024, 
0622      & 0.00249128, 0.0064311, 0.00525309, 0.00575651, 0.00976032, 
0623      & 0.00354525, 0.006466, 0.0103805, 0.0157125, 0.00421667, 
0624      & 0.0121529, 0.00895397, 0.00785573, 0.0114994, 0.0174382, 
0625      & 0.0141974, 0.0122442, 0.0185377, 0.0215818, 0.029454, 
0626      & 0.0520985, 0.0241624, 0.0307525, 0.0156262, 0.0135122, 
0627      & 0.0210484, 0.0186582, 0.00748239, 0.0166972, 0.00683163, 
0628      & 0.0075694, 0.0101716, 0.00815212, 0.0117332, 0.00662897, 
0629      & 0.010638, 0.00969862, 0.0104482, 0.0339786, 0.0451426, 
0630      & 0.0268115, 0.0384504, 0.0338634, 0.0303298, 0.0369259, 
0631      & 0.0334147, 0.0306659, 0.0330741, 0.0299691, 0.0276405, 
0632      & 0.00318742, 0.00171084, 0.00152783, 0.00352766, 0.00277666, 
0633      & 0.00167216, 0.000106109, 8.92086e-05, 0.00130335, 0.00134189, 
0634      & 0.0013035, 0.000179423, 2.75094e-05, 0, 5.41427e-05, 
0635      & 9.83595e-05, 3.27889e-05, 3.43018e-05, 3.72274e-05, 7.27246e-05
0636      & /
0637       L36KAP = -0.0174627
0638       W36KAP = 0.000347066
0639 
0640       DATA H37KAP /
0641      & 0.000506276, 0.000499262, 0.000630108, 2.87481e-05, 0.00162077, 
0642      & 0.000542065, 0.000495249, 0.00206965, 0.000416496, 0.00184239, 
0643      & 0.00156967, 0.00430697, 0.00323941, 0.00205295, 0.00325417, 
0644      & 0.00265741, 0.00246519, 0.00363502, 0.00157868, 0.0031593, 
0645      & 0.00246441, 0.00341661, 0.000585112, 0.00418789, 0.00334206, 
0646      & 0.00397579, 0.00594188, 0.00631042, 0.00222308, 0.00399163, 
0647      & 0.0076901, 0.00493699, 0.00514209, 0.0103175, 0.00719201, 
0648      & 0.0108534, 0.00913501, 0.0198122, 0.0167131, 0.0237748, 
0649      & 0.0206885, 0.031297, 0.0474749, 0.0489444, 0.0655029, 
0650      & 0.0902564, 0.0497789, 0.0369816, 0.03754, 0.0252769, 
0651      & 0.024327, 0.0239692, 0.0134202, 0.0152299, 0.00732899, 
0652      & 0.0129979, 0.0123386, 0.00888883, 0.00537869, 0.00814001, 
0653      & 0.00402203, 0.00357715, 0.00333414, 0.00454028, 0.00248096, 
0654      & 0.00361236, 0.0027211, 0.00375118, 0.00671638, 0.00297654, 
0655      & 0.002218, 0.00301406, 0.00444156, 0.00248659, 0.00303151, 
0656      & 0.00181437, 0.0114736, 0.0180946, 0.0191059, 0.0174572, 
0657      & 0.0110261, 0.0121625, 0.0132836, 0.0114465, 0.0164358, 
0658      & 0.00897861, 0.00485374, 0.00534942, 0.00831057, 0.00221617, 
0659      & 0.00294779, 0.00282776, 0.00178308, 0.000786269, 0.000447175, 
0660      & 0.00048887, 0.000416864, 0.000536517, 0.000385677, 0.000110806
0661      & /
0662       L37KAP = -0.00860373
0663       W37KAP = 0.000190357
0664 
0665       DATA H38KAP /
0666      & 7.27131e-05, 0, 0, 0, 0.00107125, 
0667      & 0, 0, 0, 0, 0.00103097, 
0668      & 2.63207e-05, 6.21773e-07, 0.00109537, 0.00112072, 0, 
0669      & 3.58353e-05, 0.00315572, 0, 0.00664466, 0.00646535, 
0670      & 0.00818566, 0.0044689, 0.0067161, 0.00451875, 0.0148915, 
0671      & 0.0130694, 0.0228342, 0.0357627, 0.0701455, 0.122961, 
0672      & 0.303123, 0.144636, 0.0485795, 0.049541, 0.0239999, 
0673      & 0.0201256, 0.0135557, 0.0114756, 0.0061071, 0.00871581, 
0674      & 0.00844159, 0.0032175, 0.00385831, 0.00160734, 0.00353879, 
0675      & 0.0036605, 0.00259368, 0.00106656, 0.000428156, 0.00131181, 
0676      & 0.00140577, 0.00017789, 0.00111549, 0.000325756, 0.000146656, 
0677      & 0.00114531, 0.00112363, 0.000124833, 0.000300464, 0.000248567, 
0678      & 0.000849238, 0.00106232, 0.00019285, 0.00090745, 0.000980104, 
0679      & 0.000269792, 0.000127794, 0.000128006, 0.000162094, 0.000137931, 
0680      & 0.00015112, 0.000236416, 7.14807e-05, 0.00105964, 9.71358e-05, 
0681      & 0.000986659, 0.000133948, 0.000202144, 0.000130572, 6.85235e-05, 
0682      & 0.00017248, 3.34606e-05, 7.07055e-05, 0.0010184, 6.82314e-05, 
0683      & 3.70984e-05, 0.000137899, 7.15794e-05, 0.000108594, 6.89653e-05, 
0684      & 0, 0.000105959, 0.000107539, 3.62327e-05, 0, 
0685      & 0, 0, 0, 0, 3.60587e-05
0686      & /
0687       L38KAP = -0.00315072
0688       W38KAP = 0.000103185
0689 
0690       DATA H41KAP /
0691      & 9.55162e-05, 0, 0, 0, 0, 
0692      & 0, 0, 8.25323e-06, 0, 1.09841e-07, 
0693      & 0, 0, 0, 0, 7.653e-05, 
0694      & 9.71321e-08, 6.58825e-06, 5.60035e-06, 0.000518166, 0, 
0695      & 9.68694e-05, 0, 2.29861e-05, 0.000138276, 0.000256202, 
0696      & 0.000166302, 0.00367534, 0.000193324, 0.000345762, 0.000923516, 
0697      & 8.61736e-05, 0.00262911, 0.00594469, 0.00291272, 0.00172966, 
0698      & 0.0113804, 0.0183877, 0.00503481, 0.0264698, 0.00351122, 
0699      & 0.0282256, 0.0229334, 0.0193201, 0.0268349, 0.0383249, 
0700      & 0.0247293, 0.0249753, 0.0179665, 0.0193588, 0.031644, 
0701      & 0.017712, 0.0540609, 0.0657594, 0.014301, 0.102568, 
0702      & 0.0161052, 0.0163372, 0.0389345, 0.0616613, 0.0127479, 
0703      & 0.0346159, 0.0107433, 0.00518068, 0.0385362, 0.0336805, 
0704      & 0.00269596, 0.00312763, 0.00106145, 0.00344954, 0.0340342, 
0705      & 0.00892056, 0.00303881, 0.00242255, 0.000221397, 0.00551482, 
0706      & 6.53091e-05, 0.00790556, 0.00511176, 0.00312825, 0.00430127, 
0707      & 3.18027e-05, 0, 0.00357198, 0, 0, 
0708      & 9.30518e-06, 0, 0, 0, 0, 
0709      & 0, 0, 0, 0, 0, 
0710      & 0, 0, 0, 0, 0.0495151
0711      & /
0712       L41KAP = -0.688836
0713       W41KAP = 0.0133242
0714 
0715       DATA H42KAP /
0716      & 0.000739541, 0, 0, 0, 0, 
0717      & 0, 0, 0, 0, 0, 
0718      & 0, 1.5838e-06, 0, 0, 0, 
0719      & 0, 0, 0, 0, 0, 
0720      & 0, 0, 0, 0, 0, 
0721      & 0, 0, 0, 0, 0, 
0722      & 0, 0, 0, 8.26957e-05, 5.50502e-05, 
0723      & 0.00140288, 2.9908e-05, 0, 0.0021891, 0.000682214, 
0724      & 0.00736389, 0.000875384, 0.00889312, 0.000285983, 0.000428503, 
0725      & 0.00210307, 0.00298146, 0.000564451, 0.00557495, 0.00253153, 
0726      & 0.00744555, 0.0169038, 0.0316499, 0.00597245, 0.00794607, 
0727      & 0.0201155, 0.00411221, 0.00379688, 0.0465985, 0.0368502, 
0728      & 0.145125, 0.292108, 0.0480641, 0.0391044, 0.0325434, 
0729      & 0.0107577, 0.0305148, 0.052673, 0.0215737, 0.00457955, 
0730      & 0.00509114, 0.0210126, 0.00828966, 0.00326253, 0.00501134, 
0731      & 0.00538692, 0.000292186, 0.0221576, 0.00352164, 0.00303545, 
0732      & 0.0023422, 0.020063, 0.00200469, 0.000268884, 4.38517e-07, 
0733      & 7.27752e-05, 4.08252e-05, 0, 0.000211235, 4.92166e-06, 
0734      & 6.16419e-05, 7.07314e-05, 0, 0, 0, 
0735      & 0, 0, 0, 0, 0.0025779
0736      & /
0737       L42KAP = -0.435125
0738       W42KAP = 0.0071064
0739 
0740       DATA H43KAP /
0741      & 9.05069e-06, 0, 0, 0, 4.69412e-05, 
0742      & 0, 0, 5.94127e-06, 0, 0, 
0743      & 0, 0, 0, 0, 0, 
0744      & 0, 0, 0, 0, 1.01371e-07, 
0745      & 0, 0, 0, 0, 1.15725e-05, 
0746      & 0, 0, 0, 0, 0, 
0747      & 0, 0.0102811, 0.000139301, 0, 0.00164715, 
0748      & 0, 0.000552328, 0.00372721, 0.00013291, 0.00273415, 
0749      & 0.00208024, 0.000361305, 0.00056069, 0.00509378, 0, 
0750      & 0.00156346, 0.000131759, 0.000811314, 0.000219835, 0.00446074, 
0751      & 0.00100922, 0.00174473, 0.0012339, 0.0134581, 0.0199723, 
0752      & 0.0174225, 0.0155459, 0.0274981, 0.0414076, 0.122651, 
0753      & 0.159825, 0.232289, 0.0758346, 0.0453716, 0.0329647, 
0754      & 0.0226896, 0.0124201, 0.0213295, 0.0245388, 0.00399926, 
0755      & 0.000310213, 0.0156033, 0.00152761, 0.000433185, 0.0185739, 
0756      & 0.00859089, 0.00638353, 0.000201819, 0.00154333, 0.00871223, 
0757      & 0.00456092, 0.000149105, 0.00277099, 0, 0.000191087, 
0758      & 3.90009e-05, 0.000211932, 0, 0.00227003, 0, 
0759      & 0, 5.90498e-05, 0, 0, 0, 
0760      & 0, 0, 6.13805e-05, 0, 3.04549e-05
0761      & /
0762       L43KAP = -0.161009
0763       W43KAP = 0.00263395
0764 
0765       DATA H44KAP /
0766      & 1.55585e-05, 0, 0, 0.000219184, 0.00274469, 
0767      & 0, 0, 0.000193106, 0, 0, 
0768      & 0.00107883, 0, 0.000315405, 7.4026e-05, 1.53675e-05, 
0769      & 0, 0, 0.000127574, 0.00587011, 7.91874e-05, 
0770      & 0, 5.88546e-05, 0, 0.0106707, 0.000259109, 
0771      & 0.000501568, 5.64111e-06, 0.00603659, 0.000448319, 0, 
0772      & 8.21004e-05, 0.00182656, 0.000796449, 0.000292584, 0.00491458, 
0773      & 0.0017025, 6.84852e-05, 0.00107317, 0.000618807, 0.00408621, 
0774      & 0.0283395, 0.00375683, 0.0233809, 0.0180495, 0.0207605, 
0775      & 0.017355, 0.0327747, 0.0297471, 0.0212356, 0.0492513, 
0776      & 0.0860442, 0.109593, 0.094947, 0.0969355, 0.0574327, 
0777      & 0.0532908, 0.0435932, 0.0294618, 0.0143985, 0.0284252, 
0778      & 0.0217038, 0.0316326, 0.00853505, 0.0109177, 0.00139678, 
0779      & 0.00776063, 0.0040068, 0, 0.00334613, 0.00109058, 
0780      & 0, 0.000349932, 8.40839e-05, 0.000138434, 0, 
0781      & 0, 5.72966e-05, 0.000270514, 0, 0, 
0782      & 0, 9.18635e-05, 0.000227964, 0, 0.000260246, 
0783      & 0, 3.89284e-05, 0, 0.00159309, 0, 
0784      & 0.00354332, 0, 0, 0, 0, 
0785      & 0, 0, 0, 0, 6.75472e-06
0786      & /
0787       L44KAP = -0.0508366
0788       W44KAP = 0.00096718
0789 
0790       DATA H45KAP /
0791      & 0.00763259, 0, 0, 0, 0, 
0792      & 0.000110375, 0, 0, 0, 7.74595e-05, 
0793      & 0.000280921, 0, 0, 0, 0, 
0794      & 0, 0, 2.29543e-05, 0, 0.000133507, 
0795      & 0.000168279, 0, 0.000107118, 0.000809895, 0.0010341, 
0796      & 0.000878643, 0.000476035, 0.0063298, 0.00690743, 0.00453221, 
0797      & 0.00274164, 0.0117957, 0.00774452, 0.0189492, 0.00392476, 
0798      & 0.0414273, 0.032066, 0.00983013, 0.00910183, 0.0353183, 
0799      & 0.0334316, 0.0511812, 0.0647079, 0.0885292, 0.158087, 
0800      & 0.0728395, 0.0229593, 0.0456081, 0.0511339, 0.0511857, 
0801      & 0.0353664, 0.0148413, 0.0192902, 0.00538147, 0.018687, 
0802      & 0.0132679, 0.00554528, 0.00196637, 0.0086486, 0.0127993, 
0803      & 0.00105418, 0.000197589, 0.000734822, 0.000846364, 0.000323196, 
0804      & 0.000468601, 0.00677587, 0.00013818, 0.000139804, 0, 
0805      & 0, 0, 0, 0, 0, 
0806      & 0.000192581, 0.000440512, 0, 0, 0.000207878, 
0807      & 0.000162301, 0, 0, 0, 0, 
0808      & 0, 0.00168474, 0, 0, 0, 
0809      & 0, 0, 0, 0, 0, 
0810      & 0.00209917, 0, 0, 0, 0.00667645
0811      & /
0812       L45KAP = -0.0214828
0813       W45KAP = 0.00048732
0814 
0815       DATA H46KAP /
0816      & 0.000117644, 0, 0, 0, 0.0037702, 
0817      & 2.3445e-05, 0.00106464, 0.0010616, 6.47997e-05, 0.00210404, 
0818      & 0.00151111, 0.00118994, 0.00364985, 0.00272083, 0.000859277, 
0819      & 0.000119838, 0.00322369, 0.000853467, 0.00179454, 0.00182519, 
0820      & 0.00260171, 0.00175122, 0.00284576, 0.00213666, 0.0039524, 
0821      & 0.00525387, 0.00274974, 0.00303005, 0.00473312, 0.00695797, 
0822      & 0.000211233, 0.00602576, 0.00180178, 0.0060957, 0.00291108, 
0823      & 0.00752929, 0.00899044, 0.0195546, 0.0276481, 0.0121055, 
0824      & 0.0260001, 0.0390066, 0.0501262, 0.0898242, 0.117047, 
0825      & 0.116026, 0.0994709, 0.0630838, 0.0505945, 0.0434232, 
0826      & 0.0319112, 0.0148069, 0.0196788, 0.0101071, 0.00507002, 
0827      & 0.0054108, 0.00112025, 0.00748232, 0.00457842, 0.00112866, 
0828      & 0.00577684, 0.00104886, 0.00439989, 0.00203176, 0.00422525, 
0829      & 0.00324852, 0.00196493, 0.00223629, 0.00295059, 0.0010528, 
0830      & 0.00203425, 0.000988234, 0.00286272, 0.00284385, 0.000882981, 
0831      & 0.00083026, 0.000135173, 0.00097171, 0.00205551, 9.75052e-05, 
0832      & 2.05689e-05, 9.83746e-05, 0.00123346, 0.00122751, 0.000951543, 
0833      & 0.00123427, 0.00108831, 0, 0, 0, 
0834      & 3.11814e-05, 0, 0, 0, 0, 
0835      & 9.38898e-05, 0, 0, 0, 0.000645582
0836      & /
0837       L46KAP = -0.0121566
0838       W46KAP = 0.000269524
0839 
0840       DATA H47KAP /
0841      & 2.47147e-05, 0.000597876, 0, 2.44165e-05, 5.45212e-05, 
0842      & 4.47069e-05, 1.08537e-05, 0.00219137, 7.88261e-05, 3.16201e-05, 
0843      & 0.000519591, 0.0016569, 0.000545191, 0.00112798, 0.00109731, 
0844      & 0.00112928, 0.000962457, 0.00103319, 0.00336539, 0.0021136, 
0845      & 0.00281313, 0.00336442, 0.0030448, 0.0017197, 0.00283003, 
0846      & 0.00343579, 0.00329832, 0.00194905, 0.00590709, 0.00371002, 
0847      & 0.00341193, 0.00355208, 0.00448019, 0.00664529, 0.00680261, 
0848      & 0.00819543, 0.00914958, 0.00796744, 0.00942902, 0.0110784, 
0849      & 0.0091959, 0.0144702, 0.0164, 0.0171924, 0.0260993, 
0850      & 0.0335227, 0.0568721, 0.0666336, 0.21896, 0.110261, 
0851      & 0.0616928, 0.0431907, 0.0271523, 0.0262179, 0.01987, 
0852      & 0.0122207, 0.0134619, 0.010154, 0.00871818, 0.00628949, 
0853      & 0.00526867, 0.00545973, 0.0084249, 0.00664464, 0.00439053, 
0854      & 0.00237138, 0.00472762, 0.00317258, 0.00222095, 0.00533156, 
0855      & 0.00187847, 0.00352809, 0.00220518, 0.00165126, 0.00323035, 
0856      & 0.00357196, 0.00211061, 0.000109795, 0.000105367, 0.00113566, 
0857      & 0.000966675, 0.00244758, 0.00113502, 0.00105241, 0.0027723, 
0858      & 0.000107713, 0.00163744, 4.3346e-05, 0.0018234, 0.00112561, 
0859      & 0.000708346, 1.25428e-05, 0, 2.48688e-05, 0.000609009, 
0860      & 0, 0, 1.23758e-05, 0, 1.24207e-05
0861      & /
0862       L47KAP = -0.00812826
0863       W47KAP = 0.000166585
0864 
0865       DATA H48KAP /
0866      & 4.40223e-05, 7.29626e-05, 0, 8.83151e-05, 4.44156e-05, 
0867      & 0.00102832, 0.00108526, 4.12672e-05, 0, 0.00109184, 
0868      & 0, 0.00103672, 0.00213384, 0.00313175, 0.00113836, 
0869      & 0.00127898, 4.3706e-05, 0.00211311, 0.00221427, 8.4276e-05, 
0870      & 0.00531133, 0.00222431, 0.000204745, 0.00114071, 0.000130854, 
0871      & 0.00428478, 0.0082989, 0.00216279, 0.00618683, 0.00230179, 
0872      & 0.00333415, 0.00730885, 0.00508607, 0.0127697, 0.01269, 
0873      & 0.0133373, 0.0140377, 0.0255949, 0.0275033, 0.0254322, 
0874      & 0.0509774, 0.0680808, 0.0952642, 0.139364, 0.103032, 
0875      & 0.0680462, 0.048203, 0.0335629, 0.0306672, 0.0214383, 
0876      & 0.0165765, 0.0136191, 0.0217996, 0.00734238, 0.0117957, 
0877      & 0.00858523, 0.00722452, 0.00767217, 0.0063531, 0.00525128, 
0878      & 0.00302844, 0.00209073, 0.00309751, 0.00737914, 8.66894e-05, 
0879      & 0.00102352, 0.00434018, 0.0031446, 0.0010182, 0.00319904, 
0880      & 0.00221046, 0, 0.00109159, 0, 0.00304234, 
0881      & 0.000990589, 4.21438e-05, 0, 0, 0, 
0882      & 0, 4.40469e-05, 0, 0.00109281, 0.000978551, 
0883      & 0, 0, 4.39607e-05, 0, 0, 
0884      & 0.00110069, 0, 0, 0, 0, 
0885      & 0, 4.34797e-05, 0, 0, 4.25878e-05
0886      & /
0887       L48KAP = -0.00145163
0888       W48KAP = 3.32954e-05
0889 
0890       RETURN
0891 
0892       END