*-- Author :    Girish D. Patel
      SUBROUTINE FTQINT
C                                                                                                             
      CALL VZERO( LHITSP(0),9 )                                                                        
      CALL VZERO( LHITSR(0),9 )                                                                        
      CALL VZERO( ISTATP(1),20 )                                                                       
      CALL VZERO( ISTATR(1),20 )