C************************************************************** C* * C* F L A M P * C* * C************************************************************** C--- Arrays for Flash lamp study C--- C--- Xenon flash lamp signals C--- XECCGA(i,j) gains from Xenon flash lamp events, C--- i(1-20) ring number C--- j(1-64) wedge number C--- C---============================================================= C--- PULSDAT : ADC COUNTS C--- PULSDATS : PEDESTAL SUBTRACTED VALUE C--- PULSDATN : NORMALIZED ??? C--- C--- DEVOTED TO FLASH-LAMP STUDIES AT THE DST LEVEL (SIC!) CC CC FLASHLAMP COMMON BLOCK CC****************************************************************************** CC VARIABLE TYPE DISCRIPTION VALUE CC****************************************************************************** CC GENERAL STUFF CC****************************************************************************** CC HSEED I*2 HISTOGRAM NUMBER 500 CC F_THRESH R*4 THRESHOLD FOR FLASHLAMP (ADC) 150.0 CC B_THRESH R*4 THRESHOLD FOR BI (ADC) 75.0 CC F_CUT R*4 CUT ON TOTAL ADC FOR FLASH EVENT (ADC) 200000.0 CC COLOR_CUT R*4 USED TO DETERMINE EVENT COLOR (ADC) 750000.0 CC EVENTNUM I*2 NUMBER OF TRIGGER 12 CC FLASHNUM I*2 NUMBER OF FLASHLAMP EVENTS CC NUMGREEN I*2 # OF GREEN EVENTS CC NUMBLUE I*2 # OF BLUE EVENTS CC BASESUM(I) R*4 TOTAL ADC SUM I=1 GREEN, I=2 900000/573632 CC NORMAL(I) R*4 NORMALIZATION FACTOR I=1 GREEN, I=2 BLUE CC RUNNUM I*2 RUN NUMBER CC OFF_CHANNEL(I,J) I*2 I=20,J=64 CHANNELS TURNED OFF CC****************************************************************************** CC MONITOR TUBE SUMS... CC****************************************************************************** CC MON_SUM(I,J,K) R*16 MONITOR TUBE SUM Ith MONITOR TUBE I=(1,3) CC MON_SQ(I,J,K) R*16 MONITOR TUBE SUM**2 J=1 RAW,J=2 CCAL NORM CC MON_MEAN(I,J,K) R*4 MONITOR TUBE MEAN K=1 GREAN, K=2 BLUE CC MON_SIG(I,J,K) R*4 MONITOR TUBE SIGMA CC MON_NORM(I) R*4 MONITOR TUBE GAIN NORM CC MON_BMEAN(I,K) R*4 BASE MEAN FOR MONITORS (GET VALUES FROM DB) CC MON_BSIGMA(I,K) R*4 BASE SIGMAS FOR MONITOR TUBES CC MON_PED(I) R*4 PEDS FOR MONITOR TUBES CC MON_PEDSIG(I) R*4 PED SIGMAS FOR MONITOR TUBES CC MON_HIST1(125) R*4 MONITOR 1 HISTOGRAM ARRAY CC PED_HIST1(100) R*4 MONITOR 1 PEDISTAL HISTOGRAM ARRAY CC MON_HIST2(125) R*4 MONITOR 2 HISTOGRAM ARRAY CC PED_HIST2(100) R*4 MONITOR 2 PEDISTAL HISTOGRAM ARRAY CC MON_HIST3(125) R*4 MONITOR 3 HISTOGRAM ARRAY CC PED_HIST3(100) R*4 MONITOR 3 PEDISTAL HISTOGRAM ARRAY CC****************************************************************************** CC CCAL SUMS... CC****************************************************************************** CC SUM(I,J,K,L) R*16 CCAL SUM Ith RING I=(1,20) CC SQ_SUM(I,J,K,L) R*16 CCAL SUM**2 Jth WEDGE J=(1,64) CC MEAN(I,J,K,L) R*4 CCAL MEAN K=1 RAW, K=2 CCAL NORM CC SIG(I,J,K,L) R*4 CCAL SIGMA L=1 GREEN, L=2 BLUE CC BASE_MEAN(I,J,L) R*4 CCAL BASELINE MEANS (GET VALUES FROM DB) CC BASE_SIGMA(I,J,L) R*4 CCAL BASELINE SIGMAS CC****************************************************************************** CC BI STUFF CC****************************************************************************** CC BI_MEAN(I) R*4 BI MEAN Ith MONITOR TUBE CC BI_SIGMA(I) R*4 BI SIGMA CC BINUM(I) I*2 NUMBER OF BI EVENTS Ith MONITOR I=(1,3) CC CHI2(I) R*4 CHI2 OF BI FIT FOR Ith MONITOR CC BI_ERROR(I) R*4 ERROR IN Ith BI MEAN FROM FIT CC BI_BMEAN(I) R*4 BASELINE VALUE OF BI MEAN(GET VALUES FROM DB) CC BI_BSIGMA(I) R*4 BASELINE VALUE OF BI WIDTH CC****************************************************************************** CC CC REAL XECCGA(20,64) C--- COMMON/CALCCAL/XECCGA REAL PULSDAT(3), PULSDATS(3), PULSDATN(3) COMMON/PULSTRIG/PULSDAT, PULSDATS, PULSDATN INTEGER HSEED,RUNNUM,OFF_CHANNEL(20,64) INTEGER*4 EVENTNUM,NUMGREEN,NUMBLUE,BINUM(3),FLASHNUM REAL*4 MON_HIST1(125),MON_HIST2(125),MON_HIST3(125), 1 PED_HIST1(100),PED_HIST2(100),PED_HIST3(100) REAL*4 F_THRESH,B_THRESH,F_CUT,COLOR_CUT,BASESUM(3), 1 NORMAL(2),BI_MEAN(3),BI_SIGMA(3),CHI2(3),BI_ERROR(3), 2 BI_BMEAN(3),MON_MEAN(3,2,2),MON_SIG(3,2,2),MON_BSIGMA(3,2), 3 MON_NORM(3),MON_BMEAN(3,2),MEAN(20,64,2,2),BI_BSIGMA(3), 4 SIG(20,64,2,2),BASE_MEAN(20,64,2),BASE_SIGMA(20,64,2) Double precision MON_SUM(3,2,2),MON_SQ(3,2,2),SUM(20,64,2,2), 1 SQ_SUM(20,64,2,2),MON_PED(3),MON_PEDSIG(3) COMMON/FLASHLAMP/HSEED,F_THRESH,B_THRESH,F_CUT,COLOR_CUT, 1 EVENTNUM,NUMGREEN,NUMBLUE,BASESUM,NORMAL,MON_SUM,MON_SQ, 2 MON_MEAN,MON_SIG,MON_NORM,MON_BMEAN,SUM,SQ_SUM, 3 MEAN,SIG,BASE_MEAN,BI_MEAN,BI_SIGMA,BINUM,CHI2, 4 BI_ERROR,BI_BMEAN,MON_PED,MON_PEDSIG,RUNNUM,MON_HIST1, 5 MON_HIST2,MON_HIST3,PED_HIST1,PED_HIST2,PED_HIST3,FLASHNUM, 6 MON_BSIGMA,BI_BSIGMA,BASE_SIGMA,OFF_CHANNEL