Warning, /GeneratorInterface/BeamHaloGenerator/interface/bhgrhists.inc is written in an unsupported language. File is not indexed.
0001 *****************************************************************
0002 * *
0003 * DESCRIPTION: this include file contains common blocks *
0004 * with histogram information needed for random number *
0005 * generation according to distributions in histograms *
0006 * - numbering scheme: 1. = 1/2/3/4 = Vx/Vy/dx.dy *
0007 * 2. = 1 ... 8 = eight E_K ranges *
0008 * 01 = ln(E_K) *
0009 * last update (31/05/2005) by droll *
0010 * *
0011 *****************************************************************
0012 INTEGER N_BINS
0013 PARAMETER (N_BINS = 100) ! number of bins
0014
0015 * declaration of common block for mu+
0016 REAL H01MUP ,L01MUP,W01MUP
0017 & ,H11MUP ,L11MUP,W11MUP
0018 & ,H12MUP ,L12MUP,W12MUP
0019 & ,H13MUP ,L13MUP,W13MUP
0020 & ,H14MUP ,L14MUP,W14MUP
0021 & ,H15MUP ,L15MUP,W15MUP
0022 & ,H16MUP ,L16MUP,W16MUP
0023 & ,H17MUP ,L17MUP,W17MUP
0024 & ,H18MUP ,L18MUP,W18MUP
0025 & ,H21MUP ,L21MUP,W21MUP
0026 & ,H22MUP ,L22MUP,W22MUP
0027 & ,H23MUP ,L23MUP,W23MUP
0028 & ,H24MUP ,L24MUP,W24MUP
0029 & ,H25MUP ,L25MUP,W25MUP
0030 & ,H26MUP ,L26MUP,W26MUP
0031 & ,H27MUP ,L27MUP,W27MUP
0032 & ,H28MUP ,L28MUP,W28MUP
0033 & ,H31MUP ,L31MUP,W31MUP
0034 & ,H32MUP ,L32MUP,W32MUP
0035 & ,H33MUP ,L33MUP,W33MUP
0036 & ,H34MUP ,L34MUP,W34MUP
0037 & ,H35MUP ,L35MUP,W35MUP
0038 & ,H36MUP ,L36MUP,W36MUP
0039 & ,H37MUP ,L37MUP,W37MUP
0040 & ,H38MUP ,L38MUP,W38MUP
0041 & ,H41MUP ,L41MUP,W41MUP
0042 & ,H42MUP ,L42MUP,W42MUP
0043 & ,H43MUP ,L43MUP,W43MUP
0044 & ,H44MUP ,L44MUP,W44MUP
0045 & ,H45MUP ,L45MUP,W45MUP
0046 & ,H46MUP ,L46MUP,W46MUP
0047 & ,H47MUP ,L47MUP,W47MUP
0048 & ,H48MUP ,L48MUP,W48MUP
0049 ! histo # bins lowlim binwid
0050 COMMON/RHIMUP/H01MUP(N_BINS),L01MUP,W01MUP
0051 & ,H11MUP(N_BINS),L11MUP,W11MUP
0052 & ,H12MUP(N_BINS),L12MUP,W12MUP
0053 & ,H13MUP(N_BINS),L13MUP,W13MUP
0054 & ,H14MUP(N_BINS),L14MUP,W14MUP
0055 & ,H15MUP(N_BINS),L15MUP,W15MUP
0056 & ,H16MUP(N_BINS),L16MUP,W16MUP
0057 & ,H17MUP(N_BINS),L17MUP,W17MUP
0058 & ,H18MUP(N_BINS),L18MUP,W18MUP
0059 & ,H21MUP(N_BINS),L21MUP,W21MUP
0060 & ,H22MUP(N_BINS),L22MUP,W22MUP
0061 & ,H23MUP(N_BINS),L23MUP,W23MUP
0062 & ,H24MUP(N_BINS),L24MUP,W24MUP
0063 & ,H25MUP(N_BINS),L25MUP,W25MUP
0064 & ,H26MUP(N_BINS),L26MUP,W26MUP
0065 & ,H27MUP(N_BINS),L27MUP,W27MUP
0066 & ,H28MUP(N_BINS),L28MUP,W28MUP
0067 & ,H31MUP(N_BINS),L31MUP,W31MUP
0068 & ,H32MUP(N_BINS),L32MUP,W32MUP
0069 & ,H33MUP(N_BINS),L33MUP,W33MUP
0070 & ,H34MUP(N_BINS),L34MUP,W34MUP
0071 & ,H35MUP(N_BINS),L35MUP,W35MUP
0072 & ,H36MUP(N_BINS),L36MUP,W36MUP
0073 & ,H37MUP(N_BINS),L37MUP,W37MUP
0074 & ,H38MUP(N_BINS),L38MUP,W38MUP
0075 & ,H41MUP(N_BINS),L41MUP,W41MUP
0076 & ,H42MUP(N_BINS),L42MUP,W42MUP
0077 & ,H43MUP(N_BINS),L43MUP,W43MUP
0078 & ,H44MUP(N_BINS),L44MUP,W44MUP
0079 & ,H45MUP(N_BINS),L45MUP,W45MUP
0080 & ,H46MUP(N_BINS),L46MUP,W46MUP
0081 & ,H47MUP(N_BINS),L47MUP,W47MUP
0082 & ,H48MUP(N_BINS),L48MUP,W48MUP
0083
0084 * declaration of common block for mu-
0085 REAL H01MUM ,L01MUM,W01MUM
0086 & ,H11MUM ,L11MUM,W11MUM
0087 & ,H12MUM ,L12MUM,W12MUM
0088 & ,H13MUM ,L13MUM,W13MUM
0089 & ,H14MUM ,L14MUM,W14MUM
0090 & ,H15MUM ,L15MUM,W15MUM
0091 & ,H16MUM ,L16MUM,W16MUM
0092 & ,H17MUM ,L17MUM,W17MUM
0093 & ,H18MUM ,L18MUM,W18MUM
0094 & ,H21MUM ,L21MUM,W21MUM
0095 & ,H22MUM ,L22MUM,W22MUM
0096 & ,H23MUM ,L23MUM,W23MUM
0097 & ,H24MUM ,L24MUM,W24MUM
0098 & ,H25MUM ,L25MUM,W25MUM
0099 & ,H26MUM ,L26MUM,W26MUM
0100 & ,H27MUM ,L27MUM,W27MUM
0101 & ,H28MUM ,L28MUM,W28MUM
0102 & ,H31MUM ,L31MUM,W31MUM
0103 & ,H32MUM ,L32MUM,W32MUM
0104 & ,H33MUM ,L33MUM,W33MUM
0105 & ,H34MUM ,L34MUM,W34MUM
0106 & ,H35MUM ,L35MUM,W35MUM
0107 & ,H36MUM ,L36MUM,W36MUM
0108 & ,H37MUM ,L37MUM,W37MUM
0109 & ,H38MUM ,L38MUM,W38MUM
0110 & ,H41MUM ,L41MUM,W41MUM
0111 & ,H42MUM ,L42MUM,W42MUM
0112 & ,H43MUM ,L43MUM,W43MUM
0113 & ,H44MUM ,L44MUM,W44MUM
0114 & ,H45MUM ,L45MUM,W45MUM
0115 & ,H46MUM ,L46MUM,W46MUM
0116 & ,H47MUM ,L47MUM,W47MUM
0117 & ,H48MUM ,L48MUM,W48MUM
0118 ! histo # bins lowlim binwid
0119 COMMON/RHIMUM/H01MUM(N_BINS),L01MUM,W01MUM
0120 & ,H11MUM(N_BINS),L11MUM,W11MUM
0121 & ,H12MUM(N_BINS),L12MUM,W12MUM
0122 & ,H13MUM(N_BINS),L13MUM,W13MUM
0123 & ,H14MUM(N_BINS),L14MUM,W14MUM
0124 & ,H15MUM(N_BINS),L15MUM,W15MUM
0125 & ,H16MUM(N_BINS),L16MUM,W16MUM
0126 & ,H17MUM(N_BINS),L17MUM,W17MUM
0127 & ,H18MUM(N_BINS),L18MUM,W18MUM
0128 & ,H21MUM(N_BINS),L21MUM,W21MUM
0129 & ,H22MUM(N_BINS),L22MUM,W22MUM
0130 & ,H23MUM(N_BINS),L23MUM,W23MUM
0131 & ,H24MUM(N_BINS),L24MUM,W24MUM
0132 & ,H25MUM(N_BINS),L25MUM,W25MUM
0133 & ,H26MUM(N_BINS),L26MUM,W26MUM
0134 & ,H27MUM(N_BINS),L27MUM,W27MUM
0135 & ,H28MUM(N_BINS),L28MUM,W28MUM
0136 & ,H31MUM(N_BINS),L31MUM,W31MUM
0137 & ,H32MUM(N_BINS),L32MUM,W32MUM
0138 & ,H33MUM(N_BINS),L33MUM,W33MUM
0139 & ,H34MUM(N_BINS),L34MUM,W34MUM
0140 & ,H35MUM(N_BINS),L35MUM,W35MUM
0141 & ,H36MUM(N_BINS),L36MUM,W36MUM
0142 & ,H37MUM(N_BINS),L37MUM,W37MUM
0143 & ,H38MUM(N_BINS),L38MUM,W38MUM
0144 & ,H41MUM(N_BINS),L41MUM,W41MUM
0145 & ,H42MUM(N_BINS),L42MUM,W42MUM
0146 & ,H43MUM(N_BINS),L43MUM,W43MUM
0147 & ,H44MUM(N_BINS),L44MUM,W44MUM
0148 & ,H45MUM(N_BINS),L45MUM,W45MUM
0149 & ,H46MUM(N_BINS),L46MUM,W46MUM
0150 & ,H47MUM(N_BINS),L47MUM,W47MUM
0151 & ,H48MUM(N_BINS),L48MUM,W48MUM
0152
0153 * declaration of common block for pi+
0154 REAL H01PIP ,L01PIP,W01PIP
0155 & ,H11PIP ,L11PIP,W11PIP
0156 & ,H12PIP ,L12PIP,W12PIP
0157 & ,H13PIP ,L13PIP,W13PIP
0158 & ,H14PIP ,L14PIP,W14PIP
0159 & ,H15PIP ,L15PIP,W15PIP
0160 & ,H16PIP ,L16PIP,W16PIP
0161 & ,H17PIP ,L17PIP,W17PIP
0162 & ,H18PIP ,L18PIP,W18PIP
0163 & ,H21PIP ,L21PIP,W21PIP
0164 & ,H22PIP ,L22PIP,W22PIP
0165 & ,H23PIP ,L23PIP,W23PIP
0166 & ,H24PIP ,L24PIP,W24PIP
0167 & ,H25PIP ,L25PIP,W25PIP
0168 & ,H26PIP ,L26PIP,W26PIP
0169 & ,H27PIP ,L27PIP,W27PIP
0170 & ,H28PIP ,L28PIP,W28PIP
0171 & ,H31PIP ,L31PIP,W31PIP
0172 & ,H32PIP ,L32PIP,W32PIP
0173 & ,H33PIP ,L33PIP,W33PIP
0174 & ,H34PIP ,L34PIP,W34PIP
0175 & ,H35PIP ,L35PIP,W35PIP
0176 & ,H36PIP ,L36PIP,W36PIP
0177 & ,H37PIP ,L37PIP,W37PIP
0178 & ,H38PIP ,L38PIP,W38PIP
0179 & ,H41PIP ,L41PIP,W41PIP
0180 & ,H42PIP ,L42PIP,W42PIP
0181 & ,H43PIP ,L43PIP,W43PIP
0182 & ,H44PIP ,L44PIP,W44PIP
0183 & ,H45PIP ,L45PIP,W45PIP
0184 & ,H46PIP ,L46PIP,W46PIP
0185 & ,H47PIP ,L47PIP,W47PIP
0186 & ,H48PIP ,L48PIP,W48PIP
0187 ! histo # bins lowlim binwid
0188 COMMON/RHIPIP/H01PIP(N_BINS),L01PIP,W01PIP
0189 & ,H11PIP(N_BINS),L11PIP,W11PIP
0190 & ,H12PIP(N_BINS),L12PIP,W12PIP
0191 & ,H13PIP(N_BINS),L13PIP,W13PIP
0192 & ,H14PIP(N_BINS),L14PIP,W14PIP
0193 & ,H15PIP(N_BINS),L15PIP,W15PIP
0194 & ,H16PIP(N_BINS),L16PIP,W16PIP
0195 & ,H17PIP(N_BINS),L17PIP,W17PIP
0196 & ,H18PIP(N_BINS),L18PIP,W18PIP
0197 & ,H21PIP(N_BINS),L21PIP,W21PIP
0198 & ,H22PIP(N_BINS),L22PIP,W22PIP
0199 & ,H23PIP(N_BINS),L23PIP,W23PIP
0200 & ,H24PIP(N_BINS),L24PIP,W24PIP
0201 & ,H25PIP(N_BINS),L25PIP,W25PIP
0202 & ,H26PIP(N_BINS),L26PIP,W26PIP
0203 & ,H27PIP(N_BINS),L27PIP,W27PIP
0204 & ,H28PIP(N_BINS),L28PIP,W28PIP
0205 & ,H31PIP(N_BINS),L31PIP,W31PIP
0206 & ,H32PIP(N_BINS),L32PIP,W32PIP
0207 & ,H33PIP(N_BINS),L33PIP,W33PIP
0208 & ,H34PIP(N_BINS),L34PIP,W34PIP
0209 & ,H35PIP(N_BINS),L35PIP,W35PIP
0210 & ,H36PIP(N_BINS),L36PIP,W36PIP
0211 & ,H37PIP(N_BINS),L37PIP,W37PIP
0212 & ,H38PIP(N_BINS),L38PIP,W38PIP
0213 & ,H41PIP(N_BINS),L41PIP,W41PIP
0214 & ,H42PIP(N_BINS),L42PIP,W42PIP
0215 & ,H43PIP(N_BINS),L43PIP,W43PIP
0216 & ,H44PIP(N_BINS),L44PIP,W44PIP
0217 & ,H45PIP(N_BINS),L45PIP,W45PIP
0218 & ,H46PIP(N_BINS),L46PIP,W46PIP
0219 & ,H47PIP(N_BINS),L47PIP,W47PIP
0220 & ,H48PIP(N_BINS),L48PIP,W48PIP
0221
0222 * declaration of common block for pi-
0223 REAL H01PIM ,L01PIM,W01PIM
0224 & ,H11PIM ,L11PIM,W11PIM
0225 & ,H12PIM ,L12PIM,W12PIM
0226 & ,H13PIM ,L13PIM,W13PIM
0227 & ,H14PIM ,L14PIM,W14PIM
0228 & ,H15PIM ,L15PIM,W15PIM
0229 & ,H16PIM ,L16PIM,W16PIM
0230 & ,H17PIM ,L17PIM,W17PIM
0231 & ,H18PIM ,L18PIM,W18PIM
0232 & ,H21PIM ,L21PIM,W21PIM
0233 & ,H22PIM ,L22PIM,W22PIM
0234 & ,H23PIM ,L23PIM,W23PIM
0235 & ,H24PIM ,L24PIM,W24PIM
0236 & ,H25PIM ,L25PIM,W25PIM
0237 & ,H26PIM ,L26PIM,W26PIM
0238 & ,H27PIM ,L27PIM,W27PIM
0239 & ,H28PIM ,L28PIM,W28PIM
0240 & ,H31PIM ,L31PIM,W31PIM
0241 & ,H32PIM ,L32PIM,W32PIM
0242 & ,H33PIM ,L33PIM,W33PIM
0243 & ,H34PIM ,L34PIM,W34PIM
0244 & ,H35PIM ,L35PIM,W35PIM
0245 & ,H36PIM ,L36PIM,W36PIM
0246 & ,H37PIM ,L37PIM,W37PIM
0247 & ,H38PIM ,L38PIM,W38PIM
0248 & ,H41PIM ,L41PIM,W41PIM
0249 & ,H42PIM ,L42PIM,W42PIM
0250 & ,H43PIM ,L43PIM,W43PIM
0251 & ,H44PIM ,L44PIM,W44PIM
0252 & ,H45PIM ,L45PIM,W45PIM
0253 & ,H46PIM ,L46PIM,W46PIM
0254 & ,H47PIM ,L47PIM,W47PIM
0255 & ,H48PIM ,L48PIM,W48PIM
0256 ! histo # bins lowlim binwid
0257 COMMON/RHIPIM/H01PIM(N_BINS),L01PIM,W01PIM
0258 & ,H11PIM(N_BINS),L11PIM,W11PIM
0259 & ,H12PIM(N_BINS),L12PIM,W12PIM
0260 & ,H13PIM(N_BINS),L13PIM,W13PIM
0261 & ,H14PIM(N_BINS),L14PIM,W14PIM
0262 & ,H15PIM(N_BINS),L15PIM,W15PIM
0263 & ,H16PIM(N_BINS),L16PIM,W16PIM
0264 & ,H17PIM(N_BINS),L17PIM,W17PIM
0265 & ,H18PIM(N_BINS),L18PIM,W18PIM
0266 & ,H21PIM(N_BINS),L21PIM,W21PIM
0267 & ,H22PIM(N_BINS),L22PIM,W22PIM
0268 & ,H23PIM(N_BINS),L23PIM,W23PIM
0269 & ,H24PIM(N_BINS),L24PIM,W24PIM
0270 & ,H25PIM(N_BINS),L25PIM,W25PIM
0271 & ,H26PIM(N_BINS),L26PIM,W26PIM
0272 & ,H27PIM(N_BINS),L27PIM,W27PIM
0273 & ,H28PIM(N_BINS),L28PIM,W28PIM
0274 & ,H31PIM(N_BINS),L31PIM,W31PIM
0275 & ,H32PIM(N_BINS),L32PIM,W32PIM
0276 & ,H33PIM(N_BINS),L33PIM,W33PIM
0277 & ,H34PIM(N_BINS),L34PIM,W34PIM
0278 & ,H35PIM(N_BINS),L35PIM,W35PIM
0279 & ,H36PIM(N_BINS),L36PIM,W36PIM
0280 & ,H37PIM(N_BINS),L37PIM,W37PIM
0281 & ,H38PIM(N_BINS),L38PIM,W38PIM
0282 & ,H41PIM(N_BINS),L41PIM,W41PIM
0283 & ,H42PIM(N_BINS),L42PIM,W42PIM
0284 & ,H43PIM(N_BINS),L43PIM,W43PIM
0285 & ,H44PIM(N_BINS),L44PIM,W44PIM
0286 & ,H45PIM(N_BINS),L45PIM,W45PIM
0287 & ,H46PIM(N_BINS),L46PIM,W46PIM
0288 & ,H47PIM(N_BINS),L47PIM,W47PIM
0289 & ,H48PIM(N_BINS),L48PIM,W48PIM
0290
0291 * declaration of common block for K+
0292 REAL H01KAP ,L01KAP,W01KAP
0293 & ,H11KAP ,L11KAP,W11KAP
0294 & ,H12KAP ,L12KAP,W12KAP
0295 & ,H13KAP ,L13KAP,W13KAP
0296 & ,H14KAP ,L14KAP,W14KAP
0297 & ,H15KAP ,L15KAP,W15KAP
0298 & ,H16KAP ,L16KAP,W16KAP
0299 & ,H17KAP ,L17KAP,W17KAP
0300 & ,H18KAP ,L18KAP,W18KAP
0301 & ,H21KAP ,L21KAP,W21KAP
0302 & ,H22KAP ,L22KAP,W22KAP
0303 & ,H23KAP ,L23KAP,W23KAP
0304 & ,H24KAP ,L24KAP,W24KAP
0305 & ,H25KAP ,L25KAP,W25KAP
0306 & ,H26KAP ,L26KAP,W26KAP
0307 & ,H27KAP ,L27KAP,W27KAP
0308 & ,H28KAP ,L28KAP,W28KAP
0309 & ,H31KAP ,L31KAP,W31KAP
0310 & ,H32KAP ,L32KAP,W32KAP
0311 & ,H33KAP ,L33KAP,W33KAP
0312 & ,H34KAP ,L34KAP,W34KAP
0313 & ,H35KAP ,L35KAP,W35KAP
0314 & ,H36KAP ,L36KAP,W36KAP
0315 & ,H37KAP ,L37KAP,W37KAP
0316 & ,H38KAP ,L38KAP,W38KAP
0317 & ,H41KAP ,L41KAP,W41KAP
0318 & ,H42KAP ,L42KAP,W42KAP
0319 & ,H43KAP ,L43KAP,W43KAP
0320 & ,H44KAP ,L44KAP,W44KAP
0321 & ,H45KAP ,L45KAP,W45KAP
0322 & ,H46KAP ,L46KAP,W46KAP
0323 & ,H47KAP ,L47KAP,W47KAP
0324 & ,H48KAP ,L48KAP,W48KAP
0325 ! histo # bins lowlim binwid
0326 COMMON/RHIKAP/H01KAP(N_BINS),L01KAP,W01KAP
0327 & ,H11KAP(N_BINS),L11KAP,W11KAP
0328 & ,H12KAP(N_BINS),L12KAP,W12KAP
0329 & ,H13KAP(N_BINS),L13KAP,W13KAP
0330 & ,H14KAP(N_BINS),L14KAP,W14KAP
0331 & ,H15KAP(N_BINS),L15KAP,W15KAP
0332 & ,H16KAP(N_BINS),L16KAP,W16KAP
0333 & ,H17KAP(N_BINS),L17KAP,W17KAP
0334 & ,H18KAP(N_BINS),L18KAP,W18KAP
0335 & ,H21KAP(N_BINS),L21KAP,W21KAP
0336 & ,H22KAP(N_BINS),L22KAP,W22KAP
0337 & ,H23KAP(N_BINS),L23KAP,W23KAP
0338 & ,H24KAP(N_BINS),L24KAP,W24KAP
0339 & ,H25KAP(N_BINS),L25KAP,W25KAP
0340 & ,H26KAP(N_BINS),L26KAP,W26KAP
0341 & ,H27KAP(N_BINS),L27KAP,W27KAP
0342 & ,H28KAP(N_BINS),L28KAP,W28KAP
0343 & ,H31KAP(N_BINS),L31KAP,W31KAP
0344 & ,H32KAP(N_BINS),L32KAP,W32KAP
0345 & ,H33KAP(N_BINS),L33KAP,W33KAP
0346 & ,H34KAP(N_BINS),L34KAP,W34KAP
0347 & ,H35KAP(N_BINS),L35KAP,W35KAP
0348 & ,H36KAP(N_BINS),L36KAP,W36KAP
0349 & ,H37KAP(N_BINS),L37KAP,W37KAP
0350 & ,H38KAP(N_BINS),L38KAP,W38KAP
0351 & ,H41KAP(N_BINS),L41KAP,W41KAP
0352 & ,H42KAP(N_BINS),L42KAP,W42KAP
0353 & ,H43KAP(N_BINS),L43KAP,W43KAP
0354 & ,H44KAP(N_BINS),L44KAP,W44KAP
0355 & ,H45KAP(N_BINS),L45KAP,W45KAP
0356 & ,H46KAP(N_BINS),L46KAP,W46KAP
0357 & ,H47KAP(N_BINS),L47KAP,W47KAP
0358 & ,H48KAP(N_BINS),L48KAP,W48KAP
0359
0360 * declaration of common block for K-
0361 REAL H01KAM ,L01KAM,W01KAM
0362 & ,H11KAM ,L11KAM,W11KAM
0363 & ,H12KAM ,L12KAM,W12KAM
0364 & ,H13KAM ,L13KAM,W13KAM
0365 & ,H14KAM ,L14KAM,W14KAM
0366 & ,H15KAM ,L15KAM,W15KAM
0367 & ,H16KAM ,L16KAM,W16KAM
0368 & ,H17KAM ,L17KAM,W17KAM
0369 & ,H18KAM ,L18KAM,W18KAM
0370 & ,H21KAM ,L21KAM,W21KAM
0371 & ,H22KAM ,L22KAM,W22KAM
0372 & ,H23KAM ,L23KAM,W23KAM
0373 & ,H24KAM ,L24KAM,W24KAM
0374 & ,H25KAM ,L25KAM,W25KAM
0375 & ,H26KAM ,L26KAM,W26KAM
0376 & ,H27KAM ,L27KAM,W27KAM
0377 & ,H28KAM ,L28KAM,W28KAM
0378 & ,H31KAM ,L31KAM,W31KAM
0379 & ,H32KAM ,L32KAM,W32KAM
0380 & ,H33KAM ,L33KAM,W33KAM
0381 & ,H34KAM ,L34KAM,W34KAM
0382 & ,H35KAM ,L35KAM,W35KAM
0383 & ,H36KAM ,L36KAM,W36KAM
0384 & ,H37KAM ,L37KAM,W37KAM
0385 & ,H38KAM ,L38KAM,W38KAM
0386 & ,H41KAM ,L41KAM,W41KAM
0387 & ,H42KAM ,L42KAM,W42KAM
0388 & ,H43KAM ,L43KAM,W43KAM
0389 & ,H44KAM ,L44KAM,W44KAM
0390 & ,H45KAM ,L45KAM,W45KAM
0391 & ,H46KAM ,L46KAM,W46KAM
0392 & ,H47KAM ,L47KAM,W47KAM
0393 & ,H48KAM ,L48KAM,W48KAM
0394 ! histo # bins lowlim binwid
0395 COMMON/RHIKAM/H01KAM(N_BINS),L01KAM,W01KAM
0396 & ,H11KAM(N_BINS),L11KAM,W11KAM
0397 & ,H12KAM(N_BINS),L12KAM,W12KAM
0398 & ,H13KAM(N_BINS),L13KAM,W13KAM
0399 & ,H14KAM(N_BINS),L14KAM,W14KAM
0400 & ,H15KAM(N_BINS),L15KAM,W15KAM
0401 & ,H16KAM(N_BINS),L16KAM,W16KAM
0402 & ,H17KAM(N_BINS),L17KAM,W17KAM
0403 & ,H18KAM(N_BINS),L18KAM,W18KAM
0404 & ,H21KAM(N_BINS),L21KAM,W21KAM
0405 & ,H22KAM(N_BINS),L22KAM,W22KAM
0406 & ,H23KAM(N_BINS),L23KAM,W23KAM
0407 & ,H24KAM(N_BINS),L24KAM,W24KAM
0408 & ,H25KAM(N_BINS),L25KAM,W25KAM
0409 & ,H26KAM(N_BINS),L26KAM,W26KAM
0410 & ,H27KAM(N_BINS),L27KAM,W27KAM
0411 & ,H28KAM(N_BINS),L28KAM,W28KAM
0412 & ,H31KAM(N_BINS),L31KAM,W31KAM
0413 & ,H32KAM(N_BINS),L32KAM,W32KAM
0414 & ,H33KAM(N_BINS),L33KAM,W33KAM
0415 & ,H34KAM(N_BINS),L34KAM,W34KAM
0416 & ,H35KAM(N_BINS),L35KAM,W35KAM
0417 & ,H36KAM(N_BINS),L36KAM,W36KAM
0418 & ,H37KAM(N_BINS),L37KAM,W37KAM
0419 & ,H38KAM(N_BINS),L38KAM,W38KAM
0420 & ,H41KAM(N_BINS),L41KAM,W41KAM
0421 & ,H42KAM(N_BINS),L42KAM,W42KAM
0422 & ,H43KAM(N_BINS),L43KAM,W43KAM
0423 & ,H44KAM(N_BINS),L44KAM,W44KAM
0424 & ,H45KAM(N_BINS),L45KAM,W45KAM
0425 & ,H46KAM(N_BINS),L46KAM,W46KAM
0426 & ,H47KAM(N_BINS),L47KAM,W47KAM
0427 & ,H48KAM(N_BINS),L48KAM,W48KAM
0428
0429 * declaration of common block for p+
0430 REAL H01PRO ,L01PRO,W01PRO
0431 & ,H11PRO ,L11PRO,W11PRO
0432 & ,H12PRO ,L12PRO,W12PRO
0433 & ,H13PRO ,L13PRO,W13PRO
0434 & ,H14PRO ,L14PRO,W14PRO
0435 & ,H15PRO ,L15PRO,W15PRO
0436 & ,H16PRO ,L16PRO,W16PRO
0437 & ,H17PRO ,L17PRO,W17PRO
0438 & ,H18PRO ,L18PRO,W18PRO
0439 & ,H21PRO ,L21PRO,W21PRO
0440 & ,H22PRO ,L22PRO,W22PRO
0441 & ,H23PRO ,L23PRO,W23PRO
0442 & ,H24PRO ,L24PRO,W24PRO
0443 & ,H25PRO ,L25PRO,W25PRO
0444 & ,H26PRO ,L26PRO,W26PRO
0445 & ,H27PRO ,L27PRO,W27PRO
0446 & ,H28PRO ,L28PRO,W28PRO
0447 & ,H31PRO ,L31PRO,W31PRO
0448 & ,H32PRO ,L32PRO,W32PRO
0449 & ,H33PRO ,L33PRO,W33PRO
0450 & ,H34PRO ,L34PRO,W34PRO
0451 & ,H35PRO ,L35PRO,W35PRO
0452 & ,H36PRO ,L36PRO,W36PRO
0453 & ,H37PRO ,L37PRO,W37PRO
0454 & ,H38PRO ,L38PRO,W38PRO
0455 & ,H41PRO ,L41PRO,W41PRO
0456 & ,H42PRO ,L42PRO,W42PRO
0457 & ,H43PRO ,L43PRO,W43PRO
0458 & ,H44PRO ,L44PRO,W44PRO
0459 & ,H45PRO ,L45PRO,W45PRO
0460 & ,H46PRO ,L46PRO,W46PRO
0461 & ,H47PRO ,L47PRO,W47PRO
0462 & ,H48PRO ,L48PRO,W48PRO
0463 ! histo # bins lowlim binwid
0464 COMMON/RHIPRO/H01PRO(N_BINS),L01PRO,W01PRO
0465 & ,H11PRO(N_BINS),L11PRO,W11PRO
0466 & ,H12PRO(N_BINS),L12PRO,W12PRO
0467 & ,H13PRO(N_BINS),L13PRO,W13PRO
0468 & ,H14PRO(N_BINS),L14PRO,W14PRO
0469 & ,H15PRO(N_BINS),L15PRO,W15PRO
0470 & ,H16PRO(N_BINS),L16PRO,W16PRO
0471 & ,H17PRO(N_BINS),L17PRO,W17PRO
0472 & ,H18PRO(N_BINS),L18PRO,W18PRO
0473 & ,H21PRO(N_BINS),L21PRO,W21PRO
0474 & ,H22PRO(N_BINS),L22PRO,W22PRO
0475 & ,H23PRO(N_BINS),L23PRO,W23PRO
0476 & ,H24PRO(N_BINS),L24PRO,W24PRO
0477 & ,H25PRO(N_BINS),L25PRO,W25PRO
0478 & ,H26PRO(N_BINS),L26PRO,W26PRO
0479 & ,H27PRO(N_BINS),L27PRO,W27PRO
0480 & ,H28PRO(N_BINS),L28PRO,W28PRO
0481 & ,H31PRO(N_BINS),L31PRO,W31PRO
0482 & ,H32PRO(N_BINS),L32PRO,W32PRO
0483 & ,H33PRO(N_BINS),L33PRO,W33PRO
0484 & ,H34PRO(N_BINS),L34PRO,W34PRO
0485 & ,H35PRO(N_BINS),L35PRO,W35PRO
0486 & ,H36PRO(N_BINS),L36PRO,W36PRO
0487 & ,H37PRO(N_BINS),L37PRO,W37PRO
0488 & ,H38PRO(N_BINS),L38PRO,W38PRO
0489 & ,H41PRO(N_BINS),L41PRO,W41PRO
0490 & ,H42PRO(N_BINS),L42PRO,W42PRO
0491 & ,H43PRO(N_BINS),L43PRO,W43PRO
0492 & ,H44PRO(N_BINS),L44PRO,W44PRO
0493 & ,H45PRO(N_BINS),L45PRO,W45PRO
0494 & ,H46PRO(N_BINS),L46PRO,W46PRO
0495 & ,H47PRO(N_BINS),L47PRO,W47PRO
0496 & ,H48PRO(N_BINS),L48PRO,W48PRO
0497
0498 * declaration of common block for n0
0499 REAL H01NEU ,L01NEU,W01NEU
0500 & ,H11NEU ,L11NEU,W11NEU
0501 & ,H12NEU ,L12NEU,W12NEU
0502 & ,H13NEU ,L13NEU,W13NEU
0503 & ,H14NEU ,L14NEU,W14NEU
0504 & ,H15NEU ,L15NEU,W15NEU
0505 & ,H16NEU ,L16NEU,W16NEU
0506 & ,H17NEU ,L17NEU,W17NEU
0507 & ,H18NEU ,L18NEU,W18NEU
0508 & ,H21NEU ,L21NEU,W21NEU
0509 & ,H22NEU ,L22NEU,W22NEU
0510 & ,H23NEU ,L23NEU,W23NEU
0511 & ,H24NEU ,L24NEU,W24NEU
0512 & ,H25NEU ,L25NEU,W25NEU
0513 & ,H26NEU ,L26NEU,W26NEU
0514 & ,H27NEU ,L27NEU,W27NEU
0515 & ,H28NEU ,L28NEU,W28NEU
0516 & ,H31NEU ,L31NEU,W31NEU
0517 & ,H32NEU ,L32NEU,W32NEU
0518 & ,H33NEU ,L33NEU,W33NEU
0519 & ,H34NEU ,L34NEU,W34NEU
0520 & ,H35NEU ,L35NEU,W35NEU
0521 & ,H36NEU ,L36NEU,W36NEU
0522 & ,H37NEU ,L37NEU,W37NEU
0523 & ,H38NEU ,L38NEU,W38NEU
0524 & ,H41NEU ,L41NEU,W41NEU
0525 & ,H42NEU ,L42NEU,W42NEU
0526 & ,H43NEU ,L43NEU,W43NEU
0527 & ,H44NEU ,L44NEU,W44NEU
0528 & ,H45NEU ,L45NEU,W45NEU
0529 & ,H46NEU ,L46NEU,W46NEU
0530 & ,H47NEU ,L47NEU,W47NEU
0531 & ,H48NEU ,L48NEU,W48NEU
0532 ! histo # bins lowlim binwid
0533 COMMON/RHINEU/H01NEU(N_BINS),L01NEU,W01NEU
0534 & ,H11NEU(N_BINS),L11NEU,W11NEU
0535 & ,H12NEU(N_BINS),L12NEU,W12NEU
0536 & ,H13NEU(N_BINS),L13NEU,W13NEU
0537 & ,H14NEU(N_BINS),L14NEU,W14NEU
0538 & ,H15NEU(N_BINS),L15NEU,W15NEU
0539 & ,H16NEU(N_BINS),L16NEU,W16NEU
0540 & ,H17NEU(N_BINS),L17NEU,W17NEU
0541 & ,H18NEU(N_BINS),L18NEU,W18NEU
0542 & ,H21NEU(N_BINS),L21NEU,W21NEU
0543 & ,H22NEU(N_BINS),L22NEU,W22NEU
0544 & ,H23NEU(N_BINS),L23NEU,W23NEU
0545 & ,H24NEU(N_BINS),L24NEU,W24NEU
0546 & ,H25NEU(N_BINS),L25NEU,W25NEU
0547 & ,H26NEU(N_BINS),L26NEU,W26NEU
0548 & ,H27NEU(N_BINS),L27NEU,W27NEU
0549 & ,H28NEU(N_BINS),L28NEU,W28NEU
0550 & ,H31NEU(N_BINS),L31NEU,W31NEU
0551 & ,H32NEU(N_BINS),L32NEU,W32NEU
0552 & ,H33NEU(N_BINS),L33NEU,W33NEU
0553 & ,H34NEU(N_BINS),L34NEU,W34NEU
0554 & ,H35NEU(N_BINS),L35NEU,W35NEU
0555 & ,H36NEU(N_BINS),L36NEU,W36NEU
0556 & ,H37NEU(N_BINS),L37NEU,W37NEU
0557 & ,H38NEU(N_BINS),L38NEU,W38NEU
0558 & ,H41NEU(N_BINS),L41NEU,W41NEU
0559 & ,H42NEU(N_BINS),L42NEU,W42NEU
0560 & ,H43NEU(N_BINS),L43NEU,W43NEU
0561 & ,H44NEU(N_BINS),L44NEU,W44NEU
0562 & ,H45NEU(N_BINS),L45NEU,W45NEU
0563 & ,H46NEU(N_BINS),L46NEU,W46NEU
0564 & ,H47NEU(N_BINS),L47NEU,W47NEU
0565 & ,H48NEU(N_BINS),L48NEU,W48NEU
