*-- 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
*