*-- Author : Girish D. Patel SUBROUTINE FMOUT(IRUN,ICODE) ************************************************************************ * * * Output a minimum of information to an ntuple that has one row entered* * for every run processed, even if the subsequent analysis failed for * * any reason. * * * * GDP 16/8/94 * * * ************************************************************************ *KEEP,FHLUN. COMMON/FHLUN/ LUNH, LUNS, LMES, IL4L5 *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 *KEND. DIMENSION AVEC(4) IF(ICODE.EQ.-10) THEN CALL GETEAR(IRUN,IDATE,ITIME,IBFLD,IPRESS,IFR,IFP,IRET) IF(IRET.EQ.0) THEN IFRHV = IFR IFPHV = IFP ELSE IFRHV = 2 IFPHV = 2 ENDIF ENDIF AVEC(1) = IRUN AVEC(2) = ICODE AVEC(3) = IFRHV AVEC(4) = IFPHV CALL SVEC(2,0,AVEC) * WRITE(6,*) ' FMOUT ',IRUN,ICODE,IFRHV,IFPHV, ' stored' RETURN END *