*-- Author : Stephen Burke 29/11/95 SUBROUTINE FTMSGI *************************************************************** * * Module to re-run FT L4 monitoring * *************************************************************** *KEEP,BCS. INTEGER NHROW,NHCOL,NHLEN PARAMETER (NHROW = 2, NHCOL = 1, NHLEN=2) INTEGER NBOSIW PARAMETER (NBOSIW=1000000) INTEGER IW(NBOSIW) REAL RW(NBOSIW) COMMON /BCS/ IW EQUIVALENCE (RW(1),IW(1)) SAVE /BCS/ *KEEP,BOSMDL. C ------BOSMDL LOGICAL BEGJOB,ENDRUN,BEGRUN,REVENT,ENDJOB,OTHDAT COMMON/BOSMDL/BEGJOB,ENDRUN,BEGRUN,REVENT,ENDJOB,OTHDAT, + LCCRUN,NCCRUN,NEVENT, + IHA,IBS,IDB,IDATEL,LUP,ISN,JSN SAVE /BOSMDL/ C ------ *KEEP,H1EVDT. COMMON /H1EVDT/ KEVENT,IDATA,MONTE,LCONF INTEGER KEVENT,IDATA,LCONF LOGICAL MONTE * * IDATA type of information (HEAD bank word 6) : * * 0 - real data H1 * 1 - MC data H1SIM * 2 - real data CERN tests * 3 - MC data ARCET * * MONTE = .TRUE. if IDATA=1 * KEVENT = event processed counter for H1REC * *KEND. PARAMETER (IDNSCL=10) CHARACTER*8 VERSQQ *************************************************************** *KEEP,VERSQQ. VERSQQ = ' 8.07/02' IVERSQ = 80702 *KEND. * module steering by MODULS CALL MODULS('FTDSGI',IVERSQ,'FRREFRPECJKV') IF (MOD(NEVENT,IDNSCL).EQ.0 .OR. BEGRUN) CALL FTDSGI IF (ENDJOB) THEN CALL PRNTF(0,0) * Output LOOK Histograms... ENDIF CALL MODULF RETURN END *