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