*********************************************************************** * MULTTUPS.INC (include file for mult*.F * * * * MODIFIED BY: R. Holzmann DATE: 06/06/97 15:00 * * * *********************************************************************** INTEGER*4 NDET, NSMALL PARAMETER (NDET=45) ! total number of array elements PARAMETER (NSMALL=32) ! number of small elements INTEGER*4 NHIT, ID REAL*4 E COMMON /MULTUPS/ NHIT,ID(NDET),E(NDET) REAL*4 MAXENERGY PARAMETER (MAXENERGY=50.0) ! max energy to be histogrammed in MeV REAL*4 THRESHOLD PARAMETER (THRESHOLD=0.50) ! discriminator threshold in MeV