*-- Author :    Girish D. Patel
      SUBROUTINE FTQINT
C                                                                                                             
      COMMON/FHLUN/ LUNH, LUNS, LMES, IL4L5                             
      LOGICAL PLANAR,RADIAL                                             
      COMMON /FTQRUN/  NRUN,NRUN0,NRUN1,MAXEV,PLANAR,RADIAL             
      COMMON /FCISCA/ ISCA                                              
      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                          
      COMMON/FHITLS/ LHITSP(0:8), LHITSR(0:8)                           
                                                                        
                                                                        
                                                                        
                                                                        
      LMES   = 6  ! default Lun for error messages etc...also on farm?  
      LUNH   = 6  ! default Lun for error messages etc...also on farm?  
                                                                        
                                                                        
      PLANAR = .TRUE.                                                   
      RADIAL = .TRUE.                                                   
                                                                        
      ISCA = 50                                                         
                                                                        
                                                                        
      NTIME = 0                                                         
      IRTE0 = 1                                                         
      IRTP0 = 1                                                         
      IEVIN = 0                                                         
      NFPEVT= 0                                                         
      NHITSP= 0                                                         
      NFREVT= 0                                                         
      NHITSR= 0                                                         
                                                                        
      CALL VZERO( LHITSP(0),9 )                                                                        
      CALL VZERO( LHITSR(0),9 )                                                                        
      CALL VZERO( ISTATP(1),20 )                                                                       
      CALL VZERO( ISTATR(1),20 )                                                                       
                                                                        
                                                                        
      RETURN                                                            
      END