*-- Author : Girish D. Patel 07/12/93 SUBROUTINE FQMON *KEEP,FMOTOT. PARAMETER(LENST=66) COMMON/FMOTOT/ ISTSUM(LENST) *KEEP,FMOLUN. COMMON/FMOLUN/ LUNH, LUNS, LMES *KEEP,FMORUN. LOGICAL PLANAR,RADIAL COMMON /FMORUN/ NRUN,NRUN0,NRUN1,MAXEV,PLANAR,RADIAL *KEEP,FMOSUM. COMMON/FMOSUM/ NDATE0,NTIME0,ISTATP(20),ISTATR(20),IFRHV,IFPHV, & NEVENT,NFIEL0,NPRES0,NECUR0,NPCUR0,IRTE0,IRTP0, & IEVIN,NFPEVT,NHITSP,NFREVT,NHITSR,NMIN92, & TOTL,H1L,RTIME,REFF,ILRET * TOTL total run luminosity (mb^-1) * H1L H1 gated run luminosity (mb^-1) * RTIME total run time (sec) * REFF run efficiency = (1 - dead_time/run_time) * ILRET return flag: 0 - ok, 1 - no inf. found in H1DB *KEEP,FMOHIS. INTEGER IHS(28) COMMON/FMOHIS/ IHS *KEND. LOGICAL LDATE,LTIME,LFIELD,LPRESS,LECURR,LPCURR,LFIRST DATA LDATE ,LTIME ,LFIELD,LPRESS,LECURR,LPCURR,LFIRST/ & .TRUE.,.TRUE., .TRUE.,.TRUE.,.TRUE.,.TRUE.,.TRUE./ DATA NRUNL/0/ IEVIN = IEVIN + 1 CALL SHSW(IHS(26),0,66.,1.) NRUN = JRDATA('NRUN',IRTN) NEVENT = JRDATA('NEVENT',IRTE) IF( IRTN.EQ.0 ) THEN IF( LFIRST) THEN NRUN0 = NRUN NRUN1 = NRUN ISTSUM(1) = NRUN CALL SHSW(IHS(26),0,1.,FLOAT(ISTSUM(1))) LFIRST = .FALSE. ENDIF IF( LDATE )THEN ! try to get date NDATE = JRDATA('IDATE',IRTN) IF( IRTN.EQ.0 )THEN ! successful LDATE = .FALSE. NDATE0 = NDATE ISTSUM(2) = NDATE CALL SHSW(IHS(26),0,2.,FLOAT(ISTSUM(2))) ENDIF ENDIF IF( LTIME )THEN ! try to get time NTIME = JRDATA('ITIME',IRTN) IF( IRTN.EQ.0 )THEN ! successful LTIME = .FALSE. NTIME0 = NTIME ISTSUM(3) = NTIME CALL SHSW(IHS(26),0,3.,FLOAT(ISTSUM(3))) ENDIF ENDIF IF( LFIELD )THEN ! try to get H1 field NFIELD = JRDATA('BFIELD',IRTN) IF( IRTN.EQ.0 )THEN ! successful LFIELD = .FALSE. NFIEL0 = NFIELD ISTSUM(4) = NFIELD CALL SHSW(IHS(26),0,4.,FLOAT(ISTSUM(4))) ENDIF ENDIF IF( LPRESS )THEN ! try to get atmospheric pressure NPRESS = JRDATA('PRESSURE',IRTN) IF( IRTN.EQ.0 )THEN ! successful LPRESS = .FALSE. NPRES0 = NPRESS ISTSUM(5) = NPRESS CALL SHSW(IHS(26),0,5.,FLOAT(ISTSUM(5))) ENDIF ENDIF IF( LECURR )THEN ! try to get electron beam current NECURR = JRDATA('ECURRENT',IRTN) IF( IRTN.EQ.0 )THEN ! successful LECURR = .FALSE. NECUR0 = NECURR IRTE0 = 0 ISTSUM(6) = NECURR CALL SHSW(IHS(26),0,6.,FLOAT(ISTSUM(6))) ENDIF ENDIF IF( LPCURR )THEN ! try to get proton beam current NPCURR = JRDATA('PCURRENT',IRTN) IF( IRTN.EQ.0 )THEN ! successful LPCURR = .FALSE. NPCUR0 = NPCURR IRTP0 = 0 ISTSUM(7) = NPCURR CALL SHSW(IHS(26),0,7.,FLOAT(ISTSUM(7))) ENDIF ENDIF ENDIF ! IRTN ok for NRUN IF (NRUN.NE.NRUNL) THEN NRUNL = NRUN NRUN1 = NRUN ENDIF 100 RETURN END *