Back to home page

Project CMSSW displayed by LXR

 
 

    


File indexing completed on 2023-10-25 09:48:10

0001 
0002 ************************************************************************
0003       REAL FUNCTION GR_KAM()   !   auto. created by droll (10/6/2005)
0004 *     generated rate: GR_KAM [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_KAM(N_BIN),LOW,WID,LOG_EK,R_VAL,S_RATE
0015 
0016       DATA R0_KAM /
0017      & 1506.98, 1760.91, 1485.81, 2278.05, 2630.87, 
0018      & 2026.38, 672.379, 1983.25, 3324.54, 1631.8, 
0019      & 1436.18, 4869.3, 3336.73, 1012.27, 2559.46, 
0020      & 3972.32, 2400.36, 1363.4, 1144.86, 1512.82, 
0021      & 1301.43, 761.865, 638.698, 396.391, 906.881, 
0022      & 383.638, 478.128, 2859.05, 781.618, 2794.01, 
0023      & 2248.24, 3703.08, 1213.03, 1986.69, 1050.27, 
0024      & 794.166, 797.5, 1180.49, 1837.42, 882.064, 
0025      & 891.483, 1050.88, 1429.84, 1451.23, 1330.32, 
0026      & 1632.74, 2086.91, 1094.64, 1592.86, 1307.88, 
0027      & 1874.62, 981.112, 688.904, 1325.53, 1321.23, 
0028      & 768.5, 1556.77, 1028.14, 714.24, 801.726, 
0029      & 872.094, 602.502, 1264.49, 1278.2, 1611.98, 
0030      & 1402.43, 1837.52, 1666.68, 1517.33, 1986.93, 
0031      & 2280.16, 2248.47, 2237.57, 2384.39, 2172.49, 
0032      & 2206.99, 2195.05, 1856.64, 2274.38, 2027.83, 
0033      & 1892.36, 1798.42, 1607.15, 1524.43, 1277.96, 
0034      & 1008.15, 827.352, 587.434, 373.337, 274.84, 
0035      & 180.174, 136.861, 103.201, 70.1956, 33.0915, 
0036      & 17.8271, 5.38232, 1.44956, 0.244746, 0.00961894
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_KAM(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_KAM = REAL(S_RATE*LE_INC) ! total rate [Hz]
0052 
0053       RETURN
0054 
0055       END
0056 
0057 ************************************************************************
0058       SUBROUTINE F66KAM  !  automatically created by droll (10/6/2005)
0059 *     fill histograms H##KAM more infos in kine/kicdes/bhgrhists.inc
0060 ************************************************************************
0061 
0062       IMPLICIT NONE
0063 #include "GeneratorInterface/BeamHaloGenerator/interface/bhgrhists.inc"
0064 
0065       DATA H01KAM /
0066      & 0.010577, 0.0123593, 0.0104284, 0.0159889, 0.0184652, 
0067      & 0.0142225, 0.00471922, 0.0139198, 0.0233339, 0.0114531, 
0068      & 0.0100801, 0.0341761, 0.0234194, 0.00710483, 0.017964, 
0069      & 0.0278805, 0.0168474, 0.00956925, 0.00803542, 0.010618, 
0070      & 0.00913432, 0.00534729, 0.00448282, 0.00278214, 0.00636511, 
0071      & 0.00269263, 0.00335583, 0.0200667, 0.00548593, 0.0196103, 
0072      & 0.0157797, 0.0259907, 0.00851387, 0.013944, 0.00737148, 
0073      & 0.005574, 0.0055974, 0.00828551, 0.0128963, 0.00619093, 
0074      & 0.00625704, 0.00737577, 0.0100356, 0.0101857, 0.00933712, 
0075      & 0.0114597, 0.0146474, 0.00768291, 0.0111798, 0.00917959, 
0076      & 0.0131574, 0.00688611, 0.0048352, 0.00930344, 0.0092733, 
0077      & 0.00539386, 0.0109265, 0.00721616, 0.00501302, 0.00562706, 
0078      & 0.00612096, 0.00422877, 0.00887509, 0.00897129, 0.0113139, 
0079      & 0.00984324, 0.012897, 0.0116979, 0.0106496, 0.0139456, 
0080      & 0.0160037, 0.0157813, 0.0157048, 0.0167353, 0.015248, 
0081      & 0.0154901, 0.0154063, 0.0130312, 0.0159632, 0.0142327, 
0082      & 0.0132819, 0.0126225, 0.0112801, 0.0106995, 0.00896961, 
0083      & 0.00707586, 0.00580692, 0.00412301, 0.00262033, 0.00192901, 
0084      & 0.00126458, 0.000960585, 0.000724338, 0.000492681, 0.000232259, 
0085      & 0.000125123, 3.77768e-05, 1.0174e-05, 1.7178e-06, 6.75123e-08
0086      & /
0087       L01KAM = 0
0088       W01KAM = 0.088537
0089 
0090       DATA H11KAM /
0091      & 1.55135e-05, 0, 0, 0, 1.38672e-05, 
0092      & 0, 5.52711e-08, 0, 0, 6.96541e-06, 
0093      & 9.78314e-06, 9.65698e-06, 0, 0.00350057, 0.000190682, 
0094      & 0.00312717, 0.000937006, 0, 0.00584958, 0.000200845, 
0095      & 1.75189e-05, 0.000908713, 0.0043674, 1.10893e-06, 0.00590363, 
0096      & 0.000221278, 0.000269892, 0.000279784, 0.000114587, 0.00202658, 
0097      & 0.000739655, 0.0208097, 0.000101709, 0.0021359, 0, 
0098      & 1.15741e-06, 0.00105418, 1.83508e-06, 0.000448252, 0.00565696, 
0099      & 0.00456543, 0.00704502, 0.000894458, 0.00548296, 0.00893534, 
0100      & 0.00149632, 0.00174677, 0.00246775, 0.00325198, 0.0138901, 
0101      & 0.0405533, 0.00268791, 0.00213719, 0.00114635, 0.0189761, 
0102      & 0.0201966, 0.00136152, 0.00660782, 0.0153969, 0.00539025, 
0103      & 0.0025117, 0.00114669, 0.00147235, 0.0374427, 0.00186697, 
0104      & 0.09373, 0.117321, 0.14706, 0.0362868, 0.00300082, 
0105      & 0.000990874, 0.0044286, 0.00422383, 0.0013383, 0.00163068, 
0106      & 0.0192379, 0.00316915, 0.00426889, 0.0206166, 0.0126368, 
0107      & 0.00168525, 0.0556006, 0.00230647, 0.0117504, 0.00932348, 
0108      & 0.0233505, 0.0147925, 0.0200663, 0.000438234, 0.00288225, 
0109      & 0.0209905, 0.0711716, 0.00885256, 0.0159247, 0.000396589, 
0110      & 0.00135255, 0.000908738, 0, 9.71653e-05, 0.000577177
0111      & /
0112       L11KAM = -312.042
0113       W11KAM = 4.66556
0114 
0115       DATA H12KAM /
0116      & 6.17213e-05, 0, 0, 0, 0, 
0117      & 0, 0.000155461, 6.88547e-05, 0, 0, 
0118      & 0, 0, 0, 0.000195824, 0.000218178, 
0119      & 1.24386e-06, 0.00207387, 0, 8.14968e-11, 0, 
0120      & 1.89033e-05, 0, 0, 0, 0, 
0121      & 0, 9.42037e-07, 0, 0, 7.64625e-05, 
0122      & 0.0127564, 0.000312139, 0.00116415, 0.00212925, 0.0081428, 
0123      & 1.54834e-05, 0.000683212, 0, 9.48111e-05, 0.00548203, 
0124      & 0.0137336, 0.0167043, 0.00432355, 0.00273454, 0.00153025, 
0125      & 0.0204767, 0.00851886, 0.0181138, 0.00378889, 0.0132091, 
0126      & 0.00950263, 0.00433066, 0.0105805, 0.0152755, 0.0112791, 
0127      & 0.00227393, 0.000665735, 0.014281, 0.0103515, 0.0566492, 
0128      & 0.00266398, 0.0011542, 0.00071232, 0.000774048, 0.0176265, 
0129      & 0.223576, 0.112896, 0.0347782, 0.0154618, 0.000583106, 
0130      & 0.00102191, 0.0578253, 0.000297226, 0.0045586, 0.0360235, 
0131      & 0.000937111, 0.00621283, 0.00872801, 0.00215497, 0.00347645, 
0132      & 0.0166441, 0.0153927, 0.0173147, 0.00951268, 0.0684823, 
0133      & 0.00321187, 0.0228023, 0.0110573, 0.00176872, 0.0112517, 
0134      & 0.00624698, 0.00411306, 0.00872722, 2.11621e-05, 0, 
0135      & 0, 0, 0, 0, 1.61342e-05
0136      & /
0137       L12KAM = -316.995
0138       W12KAM = 4.79115
0139 
0140       DATA H13KAM /
0141      & 0.00818097, 0, 0, 0, 0, 
0142      & 1.30415e-07, 0, 0, 0, 0, 
0143      & 0, 0, 0, 0.00024, 0, 
0144      & 0, 0, 0, 0, 0, 
0145      & 1.97878e-06, 0, 0, 0, 0, 
0146      & 0, 0, 0, 0, 0, 
0147      & 0, 0.000261635, 0, 0.0205626, 0.0139571, 
0148      & 0.0820565, 0.00351373, 0.00847152, 0.00307491, 0.00793466, 
0149      & 0.0201182, 0.00545988, 0.0213653, 0.0212054, 0.00960919, 
0150      & 0.0156021, 0.105592, 0.00364074, 0.0222948, 0.0284204, 
0151      & 0.00237193, 0.00238533, 0.0721991, 0.00184287, 0.000391844, 
0152      & 0.00528197, 0.00451332, 0.00311314, 0.00900363, 0.00460109, 
0153      & 0.000262177, 0.00434945, 0.000849677, 0.00164757, 0.00698496, 
0154      & 0.0636365, 0.112899, 0.000165107, 0.00271814, 6.32915e-06, 
0155      & 0.00051449, 0.00166172, 0.000548472, 0.00528651, 0, 
0156      & 0.000101866, 0.000236679, 0.000401977, 0.00018013, 0.0414218, 
0157      & 0.00253888, 0.012158, 0.0263097, 0.00945428, 0.0174075, 
0158      & 0.0174151, 0.00363984, 0.0254211, 0.0146323, 0.00666665, 
0159      & 0.0206624, 0.00909359, 0.0291832, 0.00841184, 0.00938024, 
0160      & 0.00495391, 0.0131335, 0.016671, 0.00165573, 7.10623e-05
0161      & /
0162       L13KAM = -260.822
0163       W13KAM = 3.95471
0164 
0165       DATA H14KAM /
0166      & 2.78318e-07, 0, 0, 0, 0, 
0167      & 0, 0, 0, 0, 0, 
0168      & 0, 0, 0, 0, 0, 
0169      & 0, 0, 0.0113156, 0.0133172, 0.00398021, 
0170      & 0.0094026, 0.00424104, 0.00207967, 0.00802566, 0.0140913, 
0171      & 0.011074, 0.0143663, 0.0101591, 0.00372829, 0.0276588, 
0172      & 0.00948379, 0.0272669, 0.012747, 0.00816115, 0.0158248, 
0173      & 0.0230403, 0.0106407, 0.0308762, 0.0152987, 0.0162772, 
0174      & 0.00479994, 0.00268962, 0.011788, 0.0131351, 0.00332984, 
0175      & 0.00987467, 0.0107274, 0.00191846, 0.0555152, 0.00195355, 
0176      & 0.00889308, 0.0040934, 0.000293138, 0.00131077, 0.00134781, 
0177      & 0.00280047, 0.00326819, 0.0329782, 0.165788, 0.0276646, 
0178      & 0.000192424, 0.00196583, 0.00397432, 0.00200211, 0.00610924, 
0179      & 0.00224428, 0.00157504, 0.00209852, 0.00150497, 0.000441907, 
0180      & 0.000867553, 0.00136868, 0.000802424, 0.00349648, 0.00244078, 
0181      & 0.00741718, 0.00374391, 0.0131249, 0.00586694, 0.00849494, 
0182      & 0.0170708, 0.00769701, 0.01557, 0.0146925, 0.0166393, 
0183      & 0.030057, 0.00962813, 0.0117021, 0.0104402, 0.0243305, 
0184      & 0.0230513, 0.0310909, 0.00866626, 0.00567422, 0.00691898, 
0185      & 0.00644514, 0.0133068, 0.00723377, 0.00183055, 0.000995983
0186      & /
0187       L14KAM = -183.325
0188       W14KAM = 3.13814
0189 
0190       DATA H15KAM /
0191      & 0.00315966, 0, 0, 0, 0, 
0192      & 0, 0, 0, 0, 0, 
0193      & 0, 0, 0, 0, 0, 
0194      & 0, 0, 0, 0, 0, 
0195      & 0.00673752, 0.00702295, 0.0109591, 0.00571912, 0.00409963, 
0196      & 0.0316355, 0.0153299, 0.0279967, 0.0242211, 0.0199955, 
0197      & 0.0279096, 0.0160842, 0.0308515, 0.0148387, 0.0183683, 
0198      & 0.0309928, 0.0211072, 0.0267319, 0.00481699, 0.0183929, 
0199      & 0.0201873, 0.018462, 0.0136028, 0.000928238, 0.000897489, 
0200      & 0.00422441, 0.0112534, 0.00465464, 0.00188178, 0.0667768, 
0201      & 0.00129125, 0.0423523, 0.00173959, 0.00168033, 0.000376069, 
0202      & 0.0288968, 0.00176149, 0.000980109, 0.0181729, 0.10253, 
0203      & 0.164846, 0.00521563, 0.00166277, 0.000784945, 0.000975634, 
0204      & 0.00585489, 0.00116046, 0.00163547, 0.000717243, 0.00191538, 
0205      & 0.00102026, 0.000317095, 0.00457424, 0.000642556, 0.000916814, 
0206      & 0.00125305, 0.00145142, 0.0058847, 0.00393613, 0.0127642, 
0207      & 0.00341154, 0.00689784, 0.0115923, 0.00551393, 0.00483802, 
0208      & 0.0128434, 0.00832441, 0.00433855, 0.00212958, 0.00232451, 
0209      & 0.00223538, 0.000588771, 0.00109768, 0.00269862, 0.00314468, 
0210      & 0.000467599, 0.000305886, 5.20793e-06, 2.66794e-05, 6.60275e-05
0211      & /
0212       L15KAM = -194.612
0213       W15KAM = 3.24187
0214 
0215       DATA H16KAM /
0216      & 0.00432498, 0.0101761, 0.0128449, 0.0165083, 0.0121963, 
0217      & 0.01724, 0.0194898, 0.0184976, 0.0163684, 0.0130023, 
0218      & 0.0152946, 0.0176209, 0.00776631, 0.0162612, 0.0165157, 
0219      & 0.0107749, 0.00857971, 0.0142573, 0.0168886, 0.0125593, 
0220      & 0.0089895, 0.0116164, 0.0113606, 0.022073, 0.0133972, 
0221      & 0.0169468, 0.0148415, 0.0204747, 0.0134419, 0.0124309, 
0222      & 1.31287e-05, 3.4199e-05, 7.59713e-05, 4.25327e-06, 2.0542e-06, 
0223      & 0, 0.00466733, 0.00524305, 0.00595098, 0.00648472, 
0224      & 0.00131883, 0.000123142, 3.13856e-08, 0, 0, 
0225      & 0, 0, 0, 0, 0, 
0226      & 9.78389e-05, 0.0125831, 0.537877, 0.000995288, 0, 
0227      & 0, 0, 0, 0, 0, 
0228      & 0, 0, 1.7592e-06, 1.31224e-06, 1.3161e-06, 
0229      & 0, 0.000203216, 1.33959e-05, 0.000167254, 0, 
0230      & 3.23975e-06, 0, 4.4788e-06, 1.61676e-06, 0, 
0231      & 0, 0, 2.93266e-05, 5.04883e-05, 2.83387e-05, 
0232      & 1.93983e-05, 1.76223e-05, 0.00021469, 0.000168816, 4.84844e-05, 
0233      & 7.94196e-05, 9.44718e-06, 4.61325e-05, 7.11178e-05, 0.000277742, 
0234      & 0.000245646, 0, 1.10513e-05, 1.06057e-05, 1.94704e-05, 
0235      & 4.13196e-05, 6.08711e-07, 8.23434e-09, 0, 2.45476e-06
0236      & /
0237       L16KAM = -129.954
0238       W16KAM = 2.48768
0239 
0240       DATA H17KAM /
0241      & 0.000227737, 0.001963, 0.00252572, 0.00169698, 0.00391333, 
0242      & 0.0022757, 0.00271134, 0.00454898, 0.00392931, 0.00493353, 
0243      & 0.00926946, 0.00625473, 0.00709949, 0.00884759, 0.0111614, 
0244      & 0.00856158, 0.0103911, 0.0109015, 0.0133564, 0.0130143, 
0245      & 0.0115114, 0.00963236, 0.0144257, 0.014281, 0.0132724, 
0246      & 0.0136906, 0.0168045, 0.0167383, 0.0163166, 0.0157481, 
0247      & 0.0167863, 0.0169732, 0.0121166, 0.0161554, 0.0106751, 
0248      & 7.97465e-06, 0, 4.12446e-07, 0, 0, 
0249      & 4.34278e-09, 0, 0.00187103, 0.0072867, 0.00660107, 
0250      & 0.00834096, 0.00975555, 0.00470319, 1.93228e-06, 2.19444e-07, 
0251      & 0, 0, 0, 0, 0, 
0252      & 0, 0, 0, 0, 0.00304206, 
0253      & 0.417872, 0.197048, 0.00074158, 0, 0, 
0254      & 0, 0, 0, 0, 0, 
0255      & 0, 0, 0, 0, 0, 
0256      & 0, 0, 0, 0, 1.17598e-05, 
0257      & 0, 0, 0, 0, 0, 
0258      & 0, 0, 1.68602e-07, 0, 0, 
0259      & 0, 0, 0, 0, 0, 
0260      & 1.15393e-06, 3.62123e-06, 0, 0, 4.16366e-07
0261      & /
0262       L17KAM = -129.796
0263       W17KAM = 2.13009
0264 
0265       DATA H18KAM /
0266      & 8.82159e-05, 4.32822e-05, 0, 0, 0.000172654, 
0267      & 0.000127326, 0.000250744, 0.000122156, 0.000595684, 0.000480948, 
0268      & 0.00146302, 0.00219639, 0.0048741, 0.0050476, 0.00918189, 
0269      & 0.00872081, 0.0165751, 0.0159219, 0.00965144, 0.000340637, 
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.000139154, 0.0134092, 0.0114305, 0.0159607, 0.0140596, 
0275      & 0.00812278, 0.00967906, 0.0151377, 0.00955061, 0.00733033, 
0276      & 0.00880424, 0.00700522, 0.00935636, 0.0118494, 0.0083832, 
0277      & 2.63734e-06, 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, 1.29273e-08, 0.00223654, 0.0208789, 0.105872, 
0285      & 0.455083, 0.143763, 0.0348105, 0.00829406, 0.00298721
0286      & /
0287       L18KAM = -67.9114
0288       W18KAM = 0.710767
0289 
0290       DATA H21KAM /
0291      & 0.00154096, 0.0019209, 0.0014189, 1.07204e-05, 0.000396505, 
0292      & 0.00115267, 0.00253435, 0.00264798, 0.00728581, 0.0203068, 
0293      & 0.00356585, 0.00282879, 0.000532093, 0.00228285, 0.00229008, 
0294      & 0.0121096, 0.00106714, 0.00343979, 0.00124303, 0.00100824, 
0295      & 0.017364, 0.00219438, 0.079083, 0.000665848, 0.0315832, 
0296      & 0.00201301, 0.00563289, 0.059118, 0.00484328, 0.0110307, 
0297      & 0.0171648, 0.062175, 0.140969, 0.0750162, 0.0344137, 
0298      & 0.0185387, 0.0261437, 0.00553355, 0.00669919, 0.0136978, 
0299      & 0.00966649, 0.0401452, 0.00103052, 0.00626529, 0.0088083, 
0300      & 0.00282339, 0.00237195, 0.0231878, 0.0108507, 0.0136449, 
0301      & 0.0110262, 0.0216759, 0.00165531, 0.0201624, 0.00165161, 
0302      & 0.00864809, 0.000944662, 0.0240559, 0.0665549, 0.0113971, 
0303      & 0.00378282, 0.000339285, 0.000249496, 0.00575246, 0.000203455, 
0304      & 0.000584516, 0.000553063, 0.000204868, 0.000162729, 0.00162704, 
0305      & 0.000192395, 0.000143578, 0.00033326, 0.000693799, 0.00061746, 
0306      & 1.14786e-06, 0.00633045, 0.000272507, 0.00041833, 3.09745e-08, 
0307      & 0, 8.10092e-05, 0, 0.000736, 0, 
0308      & 0, 0, 0, 0, 5.09722e-05, 
0309      & 0.000722901, 0, 0, 0.00590003, 0, 
0310      & 0, 0, 0, 3.95125e-06, 1.31446e-05
0311      & /
0312       L21KAM = -130.831
0313       W21KAM = 3.96948
0314 
0315       DATA H22KAM /
0316      & 0.00117692, 0.0117304, 0.000964516, 0.000422333, 0.000249157, 
0317      & 0.000226951, 2.13883e-05, 0.00300809, 0.000980281, 0.0152652, 
0318      & 0.000254046, 0.0168605, 4.41129e-05, 0.00502545, 0.00168731, 
0319      & 0.00180881, 0.000233231, 0.00410166, 0.0032227, 0.00389898, 
0320      & 0.0125638, 0.000836615, 0.00763165, 0.00836188, 0.00192017, 
0321      & 0.000102778, 0.000553855, 0.00327834, 0.0177231, 0.0102442, 
0322      & 0.00774631, 0.00295998, 0.00410033, 0.00117475, 0.00886738, 
0323      & 0.0099345, 0.020062, 0.0325082, 0.256172, 0.118756, 
0324      & 0.0167481, 0.0145199, 0.00975816, 0.00811579, 0.00215225, 
0325      & 0.00255879, 0.00269625, 0.0272575, 0.00418366, 0.00987692, 
0326      & 0.00345274, 0.0110401, 0.00046709, 0.000237037, 0.00352821, 
0327      & 0.00206139, 0.000961356, 0.00110569, 0.035638, 0.00166967, 
0328      & 0.000167292, 0.0152653, 0.0793417, 0.000435731, 0.0020949, 
0329      & 0.000724692, 0.00537162, 0.0107785, 0.00131437, 0.0054694, 
0330      & 0.00811082, 0.000795344, 0.00123473, 3.32635e-06, 0.0555599, 
0331      & 0.00123891, 0.000394389, 0.000592971, 0.000107352, 0, 
0332      & 9.48111e-05, 0, 0, 0, 0, 
0333      & 0, 0, 5.62676e-05, 0, 0, 
0334      & 0.0558933, 0, 0, 0, 0, 
0335      & 0, 0, 0, 0, 0.00024574
0336      & /
0337       L22KAM = -127.073
0338       W22KAM = 3.28297
0339 
0340       DATA H23KAM /
0341      & 0.00105507, 0.00476052, 0.000768117, 0.00310633, 3.10413e-07, 
0342      & 0.00023388, 0.00216864, 0.00119459, 0.000433853, 0.0931231, 
0343      & 5.6915e-06, 0.00898206, 0.00271837, 0.000338559, 0.00102534, 
0344      & 0.00158481, 0.00158942, 0.00095603, 0.00211163, 0.00263593, 
0345      & 0, 0.00163936, 0.00459432, 0.00387571, 0.0121543, 
0346      & 0.0174579, 0.00228731, 0.00141857, 0.00247919, 0.005244, 
0347      & 0.00686229, 0.00846513, 0.0176873, 0.0425443, 0.100093, 
0348      & 0.181079, 0.185911, 0.0256173, 0.0548537, 0.016698, 
0349      & 0.0900733, 0.00824036, 0.00443387, 0.0143218, 0.00186417, 
0350      & 0.000603334, 0.00113803, 0.00302138, 0.00179089, 0.000475719, 
0351      & 0.0010131, 0.00417048, 0.00378082, 0.00466263, 0.00610247, 
0352      & 0.00165068, 0.000737072, 0.00022431, 0.0020954, 0.000943928, 
0353      & 0.00310076, 0.000572697, 0.00350915, 0.00516699, 0.0021296, 
0354      & 7.59318e-06, 0.000897205, 0.000360722, 0.00109353, 0.00172177, 
0355      & 5.07895e-05, 0.000558952, 0.000833485, 0.000218255, 0.000258724, 
0356      & 0, 0, 0, 0, 0, 
0357      & 0, 0, 0, 0.000220991, 0, 
0358      & 0, 0, 0.00818661, 0, 0, 
0359      & 0, 0, 0, 0, 0, 
0360      & 0, 0, 0, 0, 1.34734e-05
0361      & /
0362       L23KAM = -121.62
0363       W23KAM = 3.36038
0364 
0365       DATA H24KAM /
0366      & 0.000540985, 0.00171127, 0.000843276, 0.00154841, 0.00566627, 
0367      & 0.00209051, 0.00256517, 0.00452148, 0.00369169, 0.011777, 
0368      & 0.00265178, 0.0420442, 0.00160516, 0.0157187, 0.00255563, 
0369      & 0.00309603, 0.0068183, 0.00225708, 0.00781496, 0.00775161, 
0370      & 0.0177875, 0.00166858, 0.00377342, 0.0113204, 0.000766021, 
0371      & 0.0045071, 0.000399484, 0.00598821, 0.00364084, 0.00740865, 
0372      & 0.00599413, 0.0123647, 0.0030106, 0.0170179, 0.0170748, 
0373      & 0.0201049, 0.0389151, 0.0263235, 0.0831535, 0.183188, 
0374      & 0.114014, 0.0804657, 0.0341428, 0.0181659, 0.0295439, 
0375      & 0.00561999, 0.00657632, 0.00225097, 0.00477402, 0.00714374, 
0376      & 0.0023778, 0.00485355, 0.00532732, 0.00486754, 0.00265134, 
0377      & 0.00178536, 0.000922488, 0.000527206, 0.00221704, 0.00811406, 
0378      & 0.00574698, 0.00406152, 0.000273929, 0.00888197, 0.0021674, 
0379      & 0.00184589, 0.00204776, 0.00844016, 0.010057, 0.00805672, 
0380      & 0.00354262, 0.00351813, 0.00536751, 0.000654242, 0.00392108, 
0381      & 0.00024263, 0.00147511, 0.000215823, 0.000569382, 9.10074e-05, 
0382      & 0, 0, 0, 0, 0, 
0383      & 0, 0, 0, 0, 0, 
0384      & 0, 0, 0, 0, 0, 
0385      & 0, 0, 0, 0, 0.000805579
0386      & /
0387       L24KAM = -123.37
0388       W24KAM = 3.08763
0389 
0390       DATA H25KAM /
0391      & 5.07108e-05, 2.07443e-05, 0.000156578, 5.06945e-05, 0, 
0392      & 0.000164819, 0.00487957, 1.24833e-05, 0.000440905, 0.00272274, 
0393      & 0.00558133, 0.000717452, 0.0099804, 0.00483892, 0.000427488, 
0394      & 0.0030685, 0.000727386, 0.00845226, 0.000920404, 0.00106442, 
0395      & 0.00213583, 0.0209964, 0.000807583, 0.00190101, 0.00156907, 
0396      & 0.000275811, 0.0062325, 0.00273937, 0.00160958, 0.000684, 
0397      & 0.00205908, 0.00130598, 0.00116969, 0.00117281, 0.00630145, 
0398      & 0.00966376, 0.0165315, 0.00671755, 0.0103459, 0.00855722, 
0399      & 0.0227446, 0.00880645, 0.00402336, 0.0119631, 0.0163703, 
0400      & 0.0281914, 0.018385, 0.0532378, 0.152608, 0.183518, 
0401      & 0.0637929, 0.0230631, 0.0130533, 0.00890036, 0.0220292, 
0402      & 0.011989, 0.0105904, 0.00205249, 0.0158112, 0.0152974, 
0403      & 0.00175675, 0.00936726, 0.00515017, 0.00269665, 0.00137155, 
0404      & 0.0170525, 0.000314159, 0.0140357, 0.00674153, 0.0117968, 
0405      & 0.00611441, 0.00141666, 0.000517041, 0.00332882, 0.0113683, 
0406      & 0.00158008, 0.00149413, 0.00141073, 0.0101284, 0.0278283, 
0407      & 0.00161225, 0.0011016, 0.00203657, 0.000454696, 0.00636988, 
0408      & 0.000622217, 0.00100659, 0.00125015, 0.0015939, 0.00503732, 
0409      & 0.000990327, 0.00183347, 2.90127e-06, 0, 0.000131458, 
0410      & 0, 0, 0, 0.00125672, 0.00574871
0411      & /
0412       L25KAM = -117.006
0413       W25KAM = 2.37591
0414 
0415       DATA H26KAM /
0416      & 5.20571e-05, 0, 0.00115627, 0, 0, 
0417      & 0, 0, 0, 0, 0, 
0418      & 0.00156423, 0, 4.05477e-06, 0, 0, 
0419      & 0.00161063, 0, 0.00124524, 0, 0, 
0420      & 0, 0.00166911, 0.00150129, 0, 0.00274137, 
0421      & 0.00386102, 0.000777154, 0.00296246, 0.000605465, 0.00656067, 
0422      & 0.00346394, 0.00370995, 0.00366025, 0.0065849, 0.00694831, 
0423      & 0.0124009, 0.00561153, 0.0259877, 0.0147773, 0.0182583, 
0424      & 0.0236722, 0.0418046, 0.101388, 0.284389, 0.15703, 
0425      & 0.08479, 0.0265159, 0.02539, 0.0176895, 0.0120371, 
0426      & 0.0148325, 0.0189579, 0.0122777, 0.00591515, 0.00442184, 
0427      & 0.0072241, 0.00661354, 0.00435999, 0.00213578, 0.00110492, 
0428      & 0.00202832, 0.00674184, 0.00182273, 0.00244884, 0.000956869, 
0429      & 0.000997885, 0.00118534, 0, 0, 2.05045e-06, 
0430      & 6.00429e-06, 0.00127884, 6.04904e-05, 0.00158454, 0, 
0431      & 0, 0, 0, 0, 0, 
0432      & 0, 0, 0, 0, 0, 
0433      & 0, 0, 0, 0, 0, 
0434      & 0, 0, 0, 0, 0, 
0435      & 0, 0, 0, 0, 0.000621517
0436      & /
0437       L26KAM = -64.2602
0438       W26KAM = 1.4681
0439 
0440       DATA H27KAM /
0441      & 1.76576e-05, 0.00045489, 0, 0, 7.15591e-05, 
0442      & 0, 0, 0, 0, 0, 
0443      & 9.23862e-05, 0, 3.37989e-05, 0, 0.000555352, 
0444      & 7.61896e-05, 3.11258e-05, 9.70658e-05, 4.3572e-05, 0.00059392, 
0445      & 8.65071e-05, 0.00131667, 9.38306e-05, 0.000264178, 0.000568372, 
0446      & 0.00114817, 0.00142651, 0.00196031, 0.00151229, 0.00251292, 
0447      & 0.00256006, 0.0018469, 0.00405722, 0.003005, 0.00457309, 
0448      & 0.00459585, 0.00796454, 0.0065703, 0.0105281, 0.015193, 
0449      & 0.0214749, 0.0273832, 0.0303251, 0.0503929, 0.0774695, 
0450      & 0.178445, 0.253922, 0.0817938, 0.0475325, 0.0287977, 
0451      & 0.0263034, 0.0198243, 0.0158272, 0.00945267, 0.00827099, 
0452      & 0.00769362, 0.00431203, 0.00648477, 0.00373882, 0.00341277, 
0453      & 0.00482554, 0.00249398, 0.00052707, 0.00206673, 0.00164763, 
0454      & 0.00165953, 0.0021027, 0.00157824, 0.00116333, 0.00103974, 
0455      & 0.00168965, 0.0009888, 0.000382354, 0.000130958, 9.98762e-05, 
0456      & 2.96311e-05, 1.46019e-05, 3.333e-05, 1.65884e-05, 0, 
0457      & 0, 0, 0, 0, 0, 
0458      & 0.000539801, 0, 0, 0, 0, 
0459      & 0, 0, 0, 0, 0, 
0460      & 0, 0, 0, 0, 0.000260618
0461      & /
0462       L27KAM = -25.8065
0463       W27KAM = 0.559722
0464 
0465       DATA H28KAM /
0466      & 0.000193348, 0, 0, 0, 0, 
0467      & 0, 0, 0, 0.00122664, 0, 
0468      & 0, 0, 0, 3.88433e-05, 0.000442431, 
0469      & 0.00120293, 3.88433e-05, 0, 0, 0.00141246, 
0470      & 0.00096763, 0.00218269, 0.00257094, 0.00413592, 0.000656362, 
0471      & 0.00037725, 0.00236832, 0.000255323, 0.00115439, 0.00137896, 
0472      & 0.00305577, 0.00526614, 0.00316188, 0.00288404, 0.00669884, 
0473      & 0.00293962, 0.00247009, 0.00242217, 0.00420289, 0.0117612, 
0474      & 0.00613837, 0.00395096, 0.0122373, 0.0154141, 0.0215404, 
0475      & 0.049581, 0.102277, 0.321783, 0.18689, 0.0676214, 
0476      & 0.0374485, 0.0156201, 0.0130559, 0.00659189, 0.010186, 
0477      & 0.00905034, 0.00840799, 0.00731275, 0.00394534, 0.00357833, 
0478      & 0.00411492, 0.00392627, 0.00194835, 0.00172953, 0.00213558, 
0479      & 0.00236189, 0.00040803, 0.00135985, 0.00134764, 0.00258536, 
0480      & 0.000987992, 0.00167667, 0.000759442, 0.001376, 0.00143417, 
0481      & 5.86329e-06, 0.000157063, 0, 0.0019569, 0.00118817, 
0482      & 3.82734e-05, 0.000325286, 0, 0, 0, 
0483      & 4.35575e-05, 0, 0, 0, 0, 
0484      & 0, 0, 0, 0, 0, 
0485      & 0, 0, 0, 0, 3.66654e-05
0486      & /
0487       L28KAM = -5.90547
0488       W28KAM = 0.123493
0489 
0490       DATA H31KAM /
0491      & 5.94648e-10, 0, 0, 0, 0, 
0492      & 0, 0, 0, 0.000165175, 0, 
0493      & 2.28496e-07, 0, 0, 0.000241865, 0.000184328, 
0494      & 0, 4.41326e-08, 0.000409413, 9.46745e-06, 3.81818e-09, 
0495      & 0, 0.000120794, 0, 0.00188483, 9.61741e-05, 
0496      & 0.000102307, 0.0031288, 0.00021607, 8.14394e-05, 0.00577615, 
0497      & 0.000877413, 0.000932111, 5.94638e-05, 0.00250376, 0.00504165, 
0498      & 0.0050836, 0.00105684, 0.00049246, 0.00815941, 0.0109719, 
0499      & 0.019161, 0.0202845, 0.00770656, 0.0393472, 0.00860702, 
0500      & 0.0399079, 0.0077952, 0.0566799, 0.037065, 0.0275535, 
0501      & 0.0961497, 0.0427486, 0.0395616, 0.148914, 0.0120731, 
0502      & 0.0214089, 0.0190331, 0.0254426, 0.0199199, 0.00415161, 
0503      & 0.0870043, 0.0560097, 0.00520085, 0.022975, 0.00662843, 
0504      & 0.0145688, 0.0204398, 0.00523821, 0.0035949, 0.00728428, 
0505      & 0.000804327, 0.000699404, 0.00170768, 0.00120037, 0.00435303, 
0506      & 0.000285556, 0.000901365, 0.00578717, 0.00581557, 4.54065e-05, 
0507      & 0.00332324, 0.000714919, 3.0088e-06, 6.56002e-06, 2.73788e-05, 
0508      & 2.33608e-05, 0.000326464, 4.7095e-07, 0.00159617, 5.63361e-09, 
0509      & 0.000113276, 0.000190757, 2.81402e-06, 1.97377e-06, 0.00177735, 
0510      & 1.47405e-08, 0, 1.72096e-07, 4.18068e-09, 0.0002418
0511      & /
0512       L31KAM = -0.647076
0513       W31KAM = 0.0119111
0514 
0515       DATA H32KAM /
0516      & 5.19093e-08, 0, 0, 0, 0.000358247, 
0517      & 2.23655e-08, 9.42037e-07, 1.08804e-05, 0, 0, 
0518      & 0.000178567, 0, 6.56582e-05, 0.000265556, 1.85794e-05, 
0519      & 0.000254416, 3.03833e-05, 0.00167505, 0.000669792, 0.000891479, 
0520      & 8.16499e-05, 0.000443994, 0.00219033, 0.0170264, 0.00798565, 
0521      & 0.0193047, 0.0790539, 0.00388938, 0.0144578, 0.0442901, 
0522      & 0.0323241, 0.0201335, 0.0337719, 0.135188, 0.0153335, 
0523      & 0.035587, 0.0538838, 0.0204989, 0.0280667, 0.0937977, 
0524      & 0.0158797, 0.0827689, 0.00661311, 0.110692, 0.00338726, 
0525      & 0.00840641, 0.00562314, 0.001492, 0.014181, 0.040738, 
0526      & 0.00893397, 0.00324391, 0.00813777, 0.00304926, 0.0118873, 
0527      & 0.00143267, 0.00448782, 2.82133e-05, 4.04441e-09, 9.65103e-05, 
0528      & 0.00467362, 2.96444e-07, 1.44376e-05, 5.38422e-06, 0, 
0529      & 0, 6.62054e-06, 0, 0, 0, 
0530      & 7.99461e-07, 0, 0.00181338, 0, 0, 
0531      & 0, 0, 0, 0, 5.29122e-08, 
0532      & 0, 0, 0, 0, 0, 
0533      & 0, 0, 0, 0, 6.85277e-11, 
0534      & 0, 0, 0, 0, 0, 
0535      & 0, 0, 0, 0, 0.00067812
0536      & /
0537       L32KAM = -0.272984
0538       W32KAM = 0.00724852
0539 
0540       DATA H33KAM /
0541      & 1.27221e-05, 0, 0, 0, 1.30415e-07, 
0542      & 0, 0.000159339, 0, 0, 0, 
0543      & 0, 0, 0, 0.000135364, 0, 
0544      & 2.7701e-05, 0, 0.000692864, 0.000170291, 0, 
0545      & 0.000261635, 0.00303363, 0.00947368, 0.00506809, 0.005413, 
0546      & 0.00506755, 0.00569792, 0.00398538, 0.00431182, 0.000524522, 
0547      & 0.000939954, 0.0103781, 0.0121849, 0.000505526, 0.00933199, 
0548      & 0.0119984, 0.0160294, 0.0189683, 0.021179, 0.0293873, 
0549      & 0.0346163, 0.093067, 0.0776564, 0.0262231, 0.17111, 
0550      & 0.00834395, 0.016417, 0.013694, 0.009255, 0.0043216, 
0551      & 0.0151483, 0.0467099, 0.042377, 0.0319442, 0.0229318, 
0552      & 0.0304826, 0.00986115, 0.0180054, 0.0166035, 0.0160517, 
0553      & 0.0152791, 0.00405313, 0.000523532, 0.0010014, 0, 
0554      & 1.15845e-05, 0.000617862, 0.000540305, 0.00081487, 0.000747691, 
0555      & 0.00408467, 0.000333998, 8.55844e-05, 0.000140147, 0.0126065, 
0556      & 0.058422, 0.00497435, 0, 0.000102437, 0, 
0557      & 0.014949, 0.000254795, 0, 0, 0.00024, 
0558      & 4.71117e-05, 6.70453e-05, 0.00013614, 0, 0, 
0559      & 0.000195057, 0, 0, 0, 0, 
0560      & 0, 0, 0, 0, 1.32025e-05
0561      & /
0562       L33KAM = -0.109885
0563       W33KAM = 0.00230488
0564 
0565       DATA H34KAM /
0566      & 3.25871e-05, 0, 0, 0, 0, 
0567      & 0, 0, 0, 0, 4.27875e-05, 
0568      & 0, 0, 9.77701e-05, 0, 3.33379e-05, 
0569      & 0, 0.0162551, 0, 0, 0.00673114, 
0570      & 0, 8.17349e-05, 1.17088e-05, 6.12976e-05, 0.000898343, 
0571      & 0.000609922, 0.00517143, 0.00250081, 0.00062792, 0.000549746, 
0572      & 0.00143428, 0.00441462, 0.00353465, 0.00278871, 0.00235324, 
0573      & 0.00167253, 0.00363908, 0.00756775, 0.0159538, 0.0170957, 
0574      & 0.0359782, 0.0216576, 0.0461259, 0.0592132, 0.0273376, 
0575      & 0.0331184, 0.050667, 0.0410838, 0.0271534, 0.0234481, 
0576      & 0.0176633, 0.0498926, 0.0617371, 0.0162167, 0.035524, 
0577      & 0.0104789, 0.00739921, 0.0216213, 0.0124023, 0.01229, 
0578      & 0.0116149, 0.0119063, 0.0135099, 0.0227125, 0.0307316, 
0579      & 0.00620813, 0.0154099, 0.00724563, 0.0180108, 0.0156091, 
0580      & 0.0107666, 0.00948526, 0.0062536, 0.024931, 0.037903, 
0581      & 0.0023744, 0.0231122, 0.00165604, 0.000840906, 0.00575972, 
0582      & 0.0043039, 1.35594e-05, 0.00261971, 0.00316439, 0.00013696, 
0583      & 0.0016817, 7.22681e-05, 1.33953e-05, 0, 0.00634277, 
0584      & 7.96916e-05, 0, 0.000315895, 0, 0, 
0585      & 0, 3.21657e-05, 0, 0, 1.31892e-05
0586      & /
0587       L34KAM = -0.05553
0588       W34KAM = 0.00108705
0589 
0590       DATA H35KAM /
0591      & 7.46228e-05, 5.27865e-05, 0, 0.000498881, 0, 
0592      & 6.00483e-05, 0, 0, 3.6813e-05, 0, 
0593      & 0, 0.000734621, 0, 0, 0, 
0594      & 0, 6.61131e-05, 2.58566e-06, 0, 0, 
0595      & 0, 0.00318908, 0.000345816, 0.00109074, 1.05419e-05, 
0596      & 0.00165079, 0.00295755, 0.000420927, 0.00358427, 0.00206813, 
0597      & 0.00115439, 0.0147305, 0.0338963, 0.0196767, 0.0614544, 
0598      & 0.0404807, 0.0289477, 0.0275059, 0.0554492, 0.0477093, 
0599      & 0.032509, 0.0321944, 0.0223959, 0.00717286, 0.0856142, 
0600      & 0.0122479, 0.0124148, 0.0229645, 0.036366, 0.0491912, 
0601      & 0.075259, 0.0737985, 0.0206709, 0.0143686, 0.0216307, 
0602      & 0.00245828, 0.00478778, 0.00512382, 0.00203299, 0.00525998, 
0603      & 0.00789744, 0.00315452, 0.00642837, 0.00673988, 0.00450923, 
0604      & 0.00698586, 0.00459879, 0.000743106, 0.00313353, 0.00340622, 
0605      & 0.00429338, 0.00212236, 0.00436814, 0.00935097, 0.00325303, 
0606      & 0.00195925, 0.003544, 0.00242582, 0.00383777, 0.00580336, 
0607      & 0.00136815, 0.00195534, 0.00126005, 0.00244958, 0.00118352, 
0608      & 0.00243561, 0.00671945, 0.00184713, 6.90145e-05, 0.000917951, 
0609      & 0.00138558, 0.00191801, 0, 0, 0.0010885, 
0610      & 0, 0.000136501, 0, 0.000333731, 6.62778e-05
0611      & /
0612       L35KAM = -0.0242993
0613       W35KAM = 0.000484261
0614 
0615       DATA H36KAM /
0616      & 1.19823e-05, 0, 0, 7.72278e-06, 0, 
0617      & 8.7759e-06, 0, 0, 0, 0, 
0618      & 0, 0, 7.24166e-05, 1.04101e-06, 0, 
0619      & 0.00087651, 0.000820488, 0, 1.51117e-05, 0.000916238, 
0620      & 0.000776845, 0.00184839, 3.30446e-05, 0.0117497, 0.0183035, 
0621      & 0.025195, 0.0203868, 0.0315117, 0.0251726, 0.0246109, 
0622      & 0.0246326, 0.0157236, 0.0242539, 0.0230583, 0.0114363, 
0623      & 0.0307912, 0.016121, 0.0144551, 0.020523, 0.0330908, 
0624      & 0.0242361, 0.0276856, 0.02841, 0.0236501, 0.00143351, 
0625      & 0.00362304, 0.012597, 0.00181183, 0.00895217, 0.0143874, 
0626      & 0.0202275, 0.00823344, 0.0130913, 0.0231344, 0.0222158, 
0627      & 0.0390078, 0.0537888, 0.0528548, 0.0499593, 0.0364984, 
0628      & 0.0218771, 0.0181517, 0.0124623, 0.0124951, 0.0110417, 
0629      & 0.0017131, 0.00618421, 0.00538865, 0.00247434, 0.00540527, 
0630      & 0.00190138, 0.00418252, 0.00100186, 0.00270548, 0.00332416, 
0631      & 0.00226425, 0.00245322, 0.00295598, 0.00339683, 0.00339382, 
0632      & 0.000473545, 0.0017434, 0.00171774, 0.000235631, 0.00357657, 
0633      & 0.000493561, 0.00386127, 0.000231296, 0.00507892, 0.00275386, 
0634      & 0.00183814, 0.000851252, 0.00529866, 0.000752175, 0.00148378, 
0635      & 0.00108198, 0.00131787, 7.97801e-05, 0.000132633, 2.2307e-05
0636      & /
0637       L36KAM = -0.0151047
0638       W36KAM = 0.000263187
0639 
0640       DATA H37KAM /
0641      & 0.000770585, 0.00130971, 0.00158205, 0.00224217, 0.00413317, 
0642      & 0.00283448, 0.0027789, 0.00464844, 0.00545277, 0.00607224, 
0643      & 0.00955006, 0.00872417, 0.008626, 0.0117367, 0.00965055, 
0644      & 0.0130106, 0.0124749, 0.0148205, 0.0163246, 0.0114936, 
0645      & 0.0145119, 0.0161792, 0.0151272, 0.0166726, 0.0229065, 
0646      & 0.0172937, 0.0185701, 0.0204781, 0.020321, 0.0185105, 
0647      & 0.0163983, 0.0218551, 0.00641782, 0.00317059, 0.00304332, 
0648      & 0.00225018, 0.00165518, 0.00258488, 0.00465804, 0.0104379, 
0649      & 0.0120728, 0.0158405, 0.0161738, 0.0162373, 0.00809097, 
0650      & 0.0105876, 0.0110983, 0.0141668, 0.0197566, 0.0213197, 
0651      & 0.0321294, 0.0611485, 0.140712, 0.0400321, 0.0230349, 
0652      & 0.0197074, 0.0154964, 0.0143748, 0.00997328, 0.007767, 
0653      & 0.00980845, 0.00982303, 0.00588028, 0.00500346, 0.00482386, 
0654      & 0.00415988, 0.00519224, 0.00597499, 0.00488199, 0.0015569, 
0655      & 0.00268831, 0.00237757, 0.00275192, 0.00172396, 0.00129077, 
0656      & 0.00185859, 0.00163652, 0.00288163, 0.0021791, 0.000547098, 
0657      & 0.000943037, 0.000381634, 0.00146811, 0.00136026, 0.000513815, 
0658      & 0.00165889, 0.000938, 0.000494939, 7.48474e-05, 0.00175887, 
0659      & 2.77258e-05, 0.000443806, 8.36916e-05, 5.7888e-05, 0.00106454, 
0660      & 3.32651e-05, 4.14073e-05, 0, 2.24521e-05, 0.000593928
0661      & /
0662       L37KAM = -0.00905081
0663       W37KAM = 0.000173051
0664 
0665       DATA H38KAM /
0666      & 8.82159e-05, 4.32822e-05, 0, 0.000172654, 0.000127326, 
0667      & 0.000291877, 0.000597464, 0.000990871, 0.0037248, 0.00440589, 
0668      & 0.00514652, 0.00888009, 0.0148934, 0.0140696, 0.0150224, 
0669      & 0.00519088, 0.00207712, 0.000131424, 0, 0, 
0670      & 0, 0, 0, 0, 0, 
0671      & 0, 0, 0, 0, 0, 
0672      & 0, 3.96926e-05, 2.25578e-05, 0.000243323, 0.000656305, 
0673      & 0.0159132, 0.0137386, 0.0176315, 0.0109634, 0.012209, 
0674      & 0.0144083, 0.0102778, 0.00770646, 0.0108679, 0.00968375, 
0675      & 0.0125717, 0.0113353, 0.0070915, 0.00165772, 0.00145456, 
0676      & 0.00292328, 0.00134426, 0.000723404, 0.00243558, 0.00201763, 
0677      & 0.000936705, 0.00185676, 0.00186855, 0.00347607, 0.0031014, 
0678      & 0.0029918, 0.00872254, 0.0133975, 0.00960212, 0.00717898, 
0679      & 0.0160947, 0.0180044, 0.0176235, 0.0300141, 0.0196633, 
0680      & 0.0431516, 0.066149, 0.113754, 0.131082, 0.0684136, 
0681      & 0.0393893, 0.0199669, 0.0256093, 0.0261553, 0.011329, 
0682      & 0.00535715, 0.00928921, 0.00626386, 0.00546881, 0.0044841, 
0683      & 0.00362454, 0.00549405, 0.00584757, 0.00190252, 0.001393, 
0684      & 0.00239722, 0, 0.00257173, 0.00123211, 4.55539e-05, 
0685      & 4.62301e-05, 4.06978e-05, 0, 0, 0.00123901
0686      & /
0687       L38KAM = -0.00418418
0688       W38KAM = 5.72576e-05
0689 
0690       DATA H41KAM /
0691      & 0.000101435, 0, 0, 0, 0, 
0692      & 0, 0, 0, 0, 0, 
0693      & 0, 2.75507e-09, 1.17876e-06, 0, 1.97377e-06, 
0694      & 0.00567452, 6.61907e-05, 0, 0, 1.68612e-08, 
0695      & 0, 0.00479172, 0, 3.54765e-05, 3.3237e-05, 
0696      & 0.00300441, 0, 0.00255659, 0.000969946, 0.00217663, 
0697      & 0.00467023, 0.000504646, 0.00579899, 0.00203727, 0.000816562, 
0698      & 0.0007429, 2.35376e-05, 0.00448321, 0.000366133, 0.0098344, 
0699      & 0.0113458, 0.00358411, 0.00269826, 0.00314186, 0.00498161, 
0700      & 0.00939085, 0.00506544, 0.0144262, 0.0502733, 0.014102, 
0701      & 0.0198094, 0.0100098, 0.0844414, 0.0406625, 0.0226378, 
0702      & 0.0308947, 0.0383672, 0.126938, 0.060466, 0.081991, 
0703      & 0.0371422, 0.0512312, 0.0175653, 0.00997138, 0.0277665, 
0704      & 0.109798, 0.00544478, 0.000730272, 0.00902492, 0.0150979, 
0705      & 0.00776402, 0.00385268, 0.00193049, 0.000568856, 0.00529863, 
0706      & 0.00094057, 0.00424015, 0.000475444, 0.000632148, 0.000412222, 
0707      & 6.0388e-05, 0.000520899, 0.000569583, 0.000133517, 9.52282e-06, 
0708      & 0.00096138, 4.51165e-05, 0.00366903, 3.23375e-05, 6.72738e-11, 
0709      & 0, 3.7078e-06, 1.85579e-05, 6.16738e-06, 0, 
0710      & 0, 0, 1.19499e-06, 0.000162065, 2.38009e-07
0711      & /
0712       L41KAM = -0.708716
0713       W41KAM = 0.0125806
0714 
0715       DATA H42KAM /
0716      & 1.60168e-10, 0, 0, 0, 0, 
0717      & 0, 0, 0, 3.58144e-08, 0, 
0718      & 0, 6.96715e-07, 0, 0, 0, 
0719      & 0, 1.78091e-05, 0.00456077, 1.71063e-05, 3.06477e-06, 
0720      & 0, 0, 9.42037e-07, 0.000149969, 2.46271e-05, 
0721      & 0, 0.000212676, 0.00055746, 0.0123638, 1.85794e-05, 
0722      & 5.40226e-05, 0.000154895, 0.000174917, 0.00295639, 0.000552655, 
0723      & 0.0248797, 0.000188539, 0.00297136, 0.0121959, 0.0161707, 
0724      & 0.014696, 0.017593, 0.0673694, 0.0020098, 0.0651656, 
0725      & 0.0170998, 0.0271877, 0.0108433, 0.0549982, 0.188474, 
0726      & 0.103461, 0.100401, 0.0545144, 0.0106979, 0.0126292, 
0727      & 0.016191, 0.00722212, 0.0119939, 0.0387041, 0.000788949, 
0728      & 0.0159959, 0.00556172, 0.0262534, 0.0299904, 0.0118102, 
0729      & 0.00272761, 0.000261045, 0.00080701, 0.00351665, 0.000669283, 
0730      & 0, 0, 0.00112445, 0, 3.78768e-05, 
0731      & 6.1303e-05, 3.89991e-06, 0.000183383, 0.000415731, 0, 
0732      & 0, 0.000313049, 0, 0, 4.23833e-07, 
0733      & 0, 0, 0, 5.51474e-07, 1.70682e-08, 
0734      & 0, 0, 0, 2.65326e-08, 0, 
0735      & 0, 0, 0, 0, 6.85277e-11
0736      & /
0737       L42KAM = -0.360066
0738       W42KAM = 0.00714921
0739 
0740       DATA H43KAM /
0741      & 0.00215394, 0, 0.00252107, 0, 0, 
0742      & 0, 0.000168724, 0, 3.05056e-06, 0, 
0743      & 0, 0, 0, 0, 0, 
0744      & 0.00152224, 0, 0, 3.38119e-05, 0, 
0745      & 0.000451522, 0, 0.000261635, 0.00304975, 0.00599207, 
0746      & 0.00090479, 0.014949, 0.00332988, 2.58133e-06, 0, 
0747      & 1.32025e-05, 6.38988e-06, 0.000362854, 0.00184638, 0.00224319, 
0748      & 0.000329106, 0.00103582, 0.000479575, 0.0131063, 0.00344932, 
0749      & 0.00645457, 0.0590505, 0.000827191, 0.010707, 0.0120644, 
0750      & 0.10579, 0.0137905, 0.0275073, 0.0334822, 0.192865, 
0751      & 0.202762, 0.127637, 0.0289533, 0.0224526, 0.026177, 
0752      & 0.0114087, 0.00565461, 0.00227207, 0.00382304, 0.00130786, 
0753      & 0.00409698, 0.000147125, 0.0064222, 0.00208494, 0.00071132, 
0754      & 0.00590821, 0.000933015, 0.000775971, 0.000464889, 0, 
0755      & 0.00066082, 0.00242346, 0.00220446, 0.00110064, 0.000249565, 
0756      & 1.27156e-06, 0.000502921, 0.000132025, 0.00168684, 0.0080391, 
0757      & 0.000207024, 0.000106413, 0.0040203, 0.00135091, 0.000274819, 
0758      & 3.50606e-06, 0, 0.00177814, 4.4227e-05, 0, 
0759      & 1.5672e-06, 1.38157e-07, 0, 0.000376365, 0, 
0760      & 5.1418e-05, 1.2136e-05, 3.45356e-06, 2.01319e-05, 3.0837e-07
0761      & /
0762       L43KAM = -0.0977326
0763       W43KAM = 0.00194622
0764 
0765       DATA H44KAM /
0766      & 2.55299e-07, 0, 0, 0, 9.71335e-07, 
0767      & 0.000189769, 9.41994e-05, 0.000230078, 3.35314e-05, 0, 
0768      & 0.00689315, 0.00745399, 0.000249892, 0.00132574, 0.000118895, 
0769      & 0, 0.000567906, 0.000261845, 0, 0.000451141, 
0770      & 0.0194395, 0.000653625, 2.8823e-05, 0.000240441, 0.000226327, 
0771      & 0.00172223, 0.0093659, 0.00368516, 0.00211962, 0.00134776, 
0772      & 0.00279625, 0.00617164, 0.00523195, 0.00999781, 0.0239677, 
0773      & 0.0640139, 0.0461716, 0.0328673, 0.0197341, 0.0307124, 
0774      & 0.0519747, 0.101721, 0.157027, 0.110576, 0.0643698, 
0775      & 0.0309326, 0.0204322, 0.0404633, 0.0124574, 0.0248148, 
0776      & 0.0165924, 0.0151504, 0.00694623, 0.00220509, 0.00190272, 
0777      & 0.0020701, 0.00040557, 0.00632942, 0.00436162, 0.000268332, 
0778      & 0.00108127, 0.00492299, 0.000443838, 0.000469919, 0.00316364, 
0779      & 0.000298159, 0.000277057, 0.00139921, 0.00224558, 0.0112507, 
0780      & 2.52534e-05, 0, 7.22681e-05, 0.000537087, 0.000223555, 
0781      & 0, 0.000633276, 0, 0.00302414, 0, 
0782      & 0.000522722, 0, 0, 0, 0, 
0783      & 0, 0, 0, 0, 0, 
0784      & 0, 0, 0, 0, 0, 
0785      & 0, 0, 0, 0, 4.27875e-05
0786      & /
0787       L44KAM = -0.0429981
0788       W44KAM = 0.00101016
0789 
0790       DATA H45KAM /
0791      & 0.000313541, 0, 0, 0, 0, 
0792      & 0, 0, 0.0065806, 0.000292604, 0.000236867, 
0793      & 0.000470282, 0, 0, 0, 0, 
0794      & 0.000689163, 0.000724036, 0.000184772, 0.004408, 0.00448433, 
0795      & 0.0048015, 0.00379428, 0.000524367, 8.24496e-05, 0.0047019, 
0796      & 0.00012739, 0.00020775, 0.000809949, 0.00473827, 0.0133463, 
0797      & 0.000835229, 0.000216983, 0.000265445, 0.000150073, 0.000675336, 
0798      & 0.00414776, 0.00094699, 0.00126863, 0.00549966, 0.0109638, 
0799      & 0.00790794, 0.0252024, 0.00720167, 0.0251955, 0.0148914, 
0800      & 0.00846922, 0.01672, 0.0067295, 0.0145842, 0.0465626, 
0801      & 0.0491406, 0.0343127, 0.0672365, 0.121884, 0.0951737, 
0802      & 0.0440252, 0.0536831, 0.0245023, 0.0316822, 0.0318385, 
0803      & 0.0232929, 0.00806285, 0.00588905, 0.0210676, 0.0497793, 
0804      & 0.0035484, 0.00879406, 0.0115679, 0.00653374, 0.00114697, 
0805      & 0.00716003, 0.00130224, 0.0105729, 0.00417227, 0.000579034, 
0806      & 0.00072272, 0.00955561, 0.000242949, 0.000173584, 0.00593816, 
0807      & 0.00080751, 0.00386115, 0.000328143, 0.000535174, 0.00786389, 
0808      & 6.53373e-05, 0.000170361, 0.000135027, 0.000436864, 0.000198932, 
0809      & 0.000316607, 0, 0, 0.0013333, 0.000215334, 
0810      & 0, 0, 0, 0, 0.000198364
0811      & /
0812       L45KAM = -0.0300671
0813       W45KAM = 0.000559393
0814 
0815       DATA H46KAM /
0816      & 3.40468e-05, 0, 0, 0, 0.00143815, 
0817      & 0.00158797, 0.0014231, 5.08093e-05, 0, 0.00149527, 
0818      & 4.601e-05, 7.72278e-06, 0.00124568, 8.424e-05, 0.00283622, 
0819      & 0.00133926, 0.00251514, 0.00124552, 9.38345e-05, 0.00196279, 
0820      & 0.0016522, 0.00240353, 0.00313657, 0.00258338, 0.00481201, 
0821      & 0.00225757, 0.00267882, 0.00168048, 0.00223995, 0.0044941, 
0822      & 0.00226148, 0.00827767, 0.00690549, 0.00195315, 0.0059125, 
0823      & 0.00600977, 0.00839769, 0.00754817, 0.0090703, 0.00718813, 
0824      & 0.00653372, 0.0149297, 0.0176257, 0.0164044, 0.0211896, 
0825      & 0.0312137, 0.0348664, 0.0497847, 0.0763742, 0.110665, 
0826      & 0.103318, 0.0838081, 0.0639268, 0.0338949, 0.0335367, 
0827      & 0.0244788, 0.0200723, 0.0124322, 0.0133486, 0.00906414, 
0828      & 0.00517178, 0.00480241, 0.005734, 0.00279741, 0.00590973, 
0829      & 0.0077993, 0.00301179, 0.00672877, 0.00362179, 0.00271072, 
0830      & 0.00567293, 0.00414954, 0.00512623, 0.0023829, 0.000214606, 
0831      & 0.00707353, 0.00463133, 0.000937962, 0.00679898, 0.00391189, 
0832      & 0.00223059, 0.000135625, 0.00234318, 0.00569424, 0.00127934, 
0833      & 0.00121319, 4.41204e-05, 0.00107417, 0.00121714, 0.00114577, 
0834      & 0.00155388, 5.33555e-05, 0, 2.87896e-05, 0.00335035, 
0835      & 5.52313e-05, 0, 0.00148515, 0, 0.00157214
0836      & /
0837       L46KAM = -0.0168633
0838       W46KAM = 0.000337137
0839 
0840       DATA H47KAM /
0841      & 2.00269e-05, 0, 0.000444336, 0.000974577, 0.000533117, 
0842      & 3.55884e-05, 0.000833927, 0.000453029, 0.00142231, 0.000745819, 
0843      & 0.000900302, 0.000948634, 0.00186855, 0.00170091, 0.00110481, 
0844      & 0.000980371, 0.00190443, 0.00300093, 0.0020413, 0.00173336, 
0845      & 0.00340258, 0.00174848, 0.00126088, 0.000568841, 0.0031592, 
0846      & 0.00243558, 0.00316888, 0.00251899, 0.00264694, 0.00300673, 
0847      & 0.00218383, 0.00366794, 0.00476836, 0.00511784, 0.00357081, 
0848      & 0.00518563, 0.00973132, 0.00540259, 0.00717788, 0.0077324, 
0849      & 0.00972319, 0.0140168, 0.0110867, 0.0110091, 0.0162734, 
0850      & 0.0332959, 0.0360963, 0.0535461, 0.0994442, 0.148078, 
0851      & 0.130255, 0.0870901, 0.0481185, 0.0319421, 0.0281618, 
0852      & 0.0151109, 0.0151967, 0.00987964, 0.0104017, 0.00974012, 
0853      & 0.00904952, 0.00654735, 0.00523835, 0.00561506, 0.00603842, 
0854      & 0.0027709, 0.00386154, 0.00287934, 0.00344013, 0.00243472, 
0855      & 0.00255613, 0.0023381, 0.00357777, 0.00278509, 0.00142537, 
0856      & 0.00155619, 0.00216389, 0.00164535, 0.00140961, 0.000538735, 
0857      & 0.00172139, 0.00113149, 0.000265691, 0.00205621, 0.000551471, 
0858      & 0.000243949, 0.00112664, 0.00185634, 0.00146331, 0.000302623, 
0859      & 0.00042938, 0.00036968, 0.000402292, 0, 0.0005604, 
0860      & 0, 0, 0.00101362, 2.24483e-05, 4.3397e-05
0861      & /
0862       L47KAM = -0.00903653
0863       W47KAM = 0.000181351
0864 
0865       DATA H48KAM /
0866      & 4.03572e-05, 3.91159e-05, 3.94861e-05, 4.33992e-05, 3.83867e-05, 
0867      & 0, 0, 0, 0, 0, 
0868      & 0, 3.76798e-05, 8.15372e-05, 3.70562e-05, 0, 
0869      & 3.51381e-05, 3.27561e-05, 0, 0, 7.9157e-05, 
0870      & 0.000114264, 0.000159733, 7.02548e-05, 7.94851e-05, 0.000203002, 
0871      & 5.9042e-05, 0.000102703, 9.72761e-05, 0.000357058, 0.000138837, 
0872      & 0.000141898, 0.000223662, 0.00158882, 0.00131719, 0.00146039, 
0873      & 0.000207871, 0.000351106, 0.00160566, 0.00257396, 0.00072726, 
0874      & 0.00277944, 0.00144898, 0.00394493, 0.00533164, 0.0199258, 
0875      & 0.0100887, 0.0221302, 0.02988, 0.0676795, 0.106806, 
0876      & 0.292781, 0.204538, 0.0787805, 0.0387915, 0.0281284, 
0877      & 0.0172882, 0.0194689, 0.0112208, 0.00446956, 0.00346455, 
0878      & 0.000401842, 0.00370811, 0.00175548, 0.00147271, 0.00154787, 
0879      & 0.00141847, 0.0024565, 0.00150043, 0.000320024, 0.000181766, 
0880      & 6.31119e-05, 0.000176693, 0.00120869, 0.00143204, 0.000198549, 
0881      & 0.000167936, 0.000113217, 0.000263612, 6.95379e-05, 0.000102489, 
0882      & 0, 3.82436e-05, 0, 3.11024e-05, 3.30679e-05, 
0883      & 0, 0, 3.33869e-05, 3.7051e-05, 0, 
0884      & 3.66406e-05, 4.02397e-05, 0, 4.04687e-05, 0, 
0885      & 0, 7.67143e-05, 0, 0, 4.29454e-05
0886      & /
0887       L48KAM = -0.00563109
0888       W48KAM = 0.000110727
0889 
0890       RETURN
0891 
0892       END