*-- Author :    Girish D. Patel   07/12/93
      SUBROUTINE FTDINT
C                                                                                                             
*KEEP,FMOLUN.                                                                                                 
*KEEP,FMOERS.                                                                                                 
* 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.                                                                                                 
*KEEP,FMOSCA.                                                                                                 
*KEEP,FMOSUM.                                                                                                 
*     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.                                                                                                 
*KEEP,BCS.                                                                                                    
*KEND.                                                                                                        
**********************************************************************                                        
* set up logical unit numbers for output files ...                                                            
* LMES for error messages etc.                                                                                
* LUNH for HBOOK output ...                                                                                   
* 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 )                                                                       
*