C************************ CERENKOV CONSTANTS ************************** c--> Modified 2/16/94 DCC: dimension of CMC_PEBEQ1 changed from 7 to 96 c (separate pe constant for each mirror... no more rows) c--> Modified 7/13/99 MWANG: dimension ICMC_NMRS, ICMC_MRS, CMC_TOTAL C CMC_FLT, CMC_PEEXP, & ICMC_ITS from 50 to 200 C-->ALIGNMENT CONSTANTS COMMON/cmc_CONST/cmc_ORIG(6),cmc_E1(6),cmc_E2(6), cdcc x cmc_PNORM(6),cmc_PEBEQ1(7) x cmc_PNORM(6),cmc_PEBEQ1(96) C-->LOOKUP TABLES COMMON/CMC_LOOKUP/CMC_TABLE(21,21,4), x CMC_PG(0:35,1:36),CMC_PL(0:35,1:36) C-->PREDICTIONS COMMON/cmc_PRED/Icmc_NMRS(200,6),Icmc_MRS(200,4,6),Icmc_NHIT(96), X Icmc_HIT(96,9),cmc_TOTL(200,6),cmc_FLT(200,4,6), X cmc_PEEXP(200,4,6) C-->MEASUREMENTS COMMON/cmc_MEAS/Icmc_NC0,Icmc_NCER(96),cmc_PEMEAS(96), x cmc_ADC(96),cmc_TDC(96) C-->GAIN CONSTANTS COMMON/cmc_GAIN/cmc_GAINC0(96) C-->PEDESTAL ARRAYS COMMON/cmc_PEDS/cmc_PHTPED(0:255),cmc_C0APED(0:255) C-->MONTE CARLO TRACK ID'S IN CERENKOV-LIKE LINGO COMMON/CMC_IDS/ICMC_ITS(200) C-->SEED FOR RANDOM NUMBER GENERATOR IN CMC_FISH COMMON/FISH_SEED/ICMC_SEED