*-- Author : Girish D. Patel 07/12/93 SUBROUTINE FTDINT C *KEEP,FMOLUN. COMMON/FMOLUN/ LUNH, LUNS, LMES *KEEP,FMOERS. COMMON/FMOERS/ IERRH, IERRS, IERRP, IERRR * IERRH < 0 free Lun for HBOOK output could not be found * IERRS < 0 free Lun for Run Summary table not found * IERRP < 0 free Lun for Planar Short Summary not found * IERRR < 0 free Lun for Radial Short Summary not found *KEEP,FMORUN. LOGICAL PLANAR,RADIAL COMMON /FMORUN/ NRUN,NRUN0,NRUN1,MAXEV,PLANAR,RADIAL *KEEP,FMOSCA. COMMON /FMOSCA/ ISCA *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,FMOHIT. COMMON/FMOHIT/ LHITSP(0:8), LHITSR(0:8) *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/ *KEND. ********************************************************************** NRUN0 = 0 * set up logical unit numbers for output files ... * LMES for error messages etc. LMES = 6 ! default Lun for error messages etc...also on farm? * LUNH for HBOOK output ... PLANAR = .TRUE. RADIAL = .TRUE. ISCA = 50 NTIME = 0 IRTE0 = 1 IRTP0 = 1 IEVIN = 0 NFPEVT= 0 NHITSP= 0 NFREVT= 0 NHITSR= 0 * initialise hits per orientation count CALL VZERO( LHITSP(0),9 ) CALL VZERO( LHITSR(0),9 ) CALL VZERO( ISTATP(1),20 ) CALL VZERO( ISTATR(1),20 ) RETURN END *