*-- Author : John V. Morris 28/06/93 SUBROUTINE FQEND ********************************************************************** * * * Copy the end-of-run statistics from histogram number 26, filled on * * the farm, into the corresponding off-line arrays and variables. * * * * JVM 22/6/93 * * * ********************************************************************** *KEEP,FHLUN. COMMON/FHLUN/ LUNH, LUNS, LMES, IL4L5 *KEEP,FHITLS. COMMON/FHITLS/ LHITSP(0:8), LHITSR(0:8) *KEEP,FCOUNT. COMMON/FCOUNT/ 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,FTOTST. PARAMETER(LENST=66) COMMON/FTOTST/ ISTSUM(LENST) *KEEP,FTQRUN. LOGICAL PLANAR,RADIAL COMMON /FTQRUN/ NRUN,NRUN0,NRUN1,MAXEV,PLANAR,RADIAL *KEND. INTEGER IBT(220) * ISTSUM should have been filled in FLK2HB * fill the elements of ISTATP and ISTATR .... DO 101 J=1,20 LOCP = 7+J LOCR = 27+J ISTATP(J) = ISTSUM(LOCP) ISTATR(J) = ISTSUM(LOCR) 101 CONTINUE DO 201 J=0,8 LOCP = 48+J LOCR = 57+J LHITSP(J) = ISTSUM(LOCP) LHITSR(J) = ISTSUM(LOCR) 201 CONTINUE IF(NRUN0.LT.59419 .OR. NRUN0.GT.59922) IEVIN = ISTSUM(LENST) * fill the remaining run statistics in /FCOUNT/ * in principle the first 7 elements of ISTSUM hold this data, but * it can equally well be extracted from the database? CALL GETEAR(NRUN0,IDATE,ITIME,IBFLD,IPRESS,IFR,IFP,IRET) IF(IRET.EQ.0) THEN NDATE0 = IDATE NTIME0 = ITIME CALL DMIN92(NDATE0,NTIME0,NMIN92) NFIEL0 = IBFLD NPRES0 = IPRESS IFRHV = IFR IFPHV = IFP ELSE NPROC = INT(FLOAT(ISTSUM(1))/FLOAT(NRUN0)+0.5) NDATE0 = ISTSUM(2)/NPROC NTIME0 = ISTSUM(3)/NPROC CALL DMIN92(NDATE0,NTIME0,NMIN92) NFIEL0 = ISTSUM(4)/NPROC NPRES0 = ISTSUM(5)/NPROC IFRHV = 2 IFPHV = 2 ENDIF CALL EPBEAM(NRUN0,PTC,PPC,ETC,EPC,IBT,IRET) IF(IRET.EQ.0) THEN NECUR0 = INT(ETC) IRTE0 = 0 NPCUR0 = INT(PTC) IRTP0 = 0 ELSE IRTE0 = 1 IRTP0 = 1 ENDIF NRUN1 = NRUN0 NRUN = NRUN0 CALL GETH1L (NRUN0,TOTL,H1L,RTIME,REFF,ILRET) RETURN END