*-- Author :    Girish D. Patel   02/02/94
      SUBROUTINE FTRMON(NRUN)
        CALL SAREA('FTREC',0)                                                                          
        CALL GHSTAT('HS',IDS(I),0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                         
        CALL HPEAK('HS',IDS(I),0,NP,RP)                                                                
        CALL SAREA('FTRMON',0)                                                                         
        CALL SVEC(IDS(I),0,AVEC)                                                                       
      CALL SAREA('FTREC',0)                                                                            
      CALL GHSTAT('HS', 1,0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                               
      CALL GHSTAT('HS', 2,0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                               
      CALL GDATA('HS', 2,0,NR,BINS,37)                                                                 
      CALL GHSTAT('HS', 3,0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                               
      CALL GDATA('HS', 3,0,NR,BINS,37)                                                                 
      CALL GHSTAT('HS',15,0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                               
      CALL GHSTAT('HS',16,0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                               
      CALL GDATA('HS',17,0,NR,BINS,37)                                                                 
      CALL GDATA('HS',18,0,NR,BINS,37)                                                                 
      CALL SAREA('FTRMON',0)                                                                           
      CALL SVEC(1,0,AVEC)                                                                              
      CALL SVEC(100,0,PVEC)                                                                            
      CALL SVEC(101,0,RVEC)                                                                            
      CALL SAREA('FTREC',0)                                                                            
      CALL GDATA('HS',19,0,NR,BMASK,64)                                                                
      CALL SAREA('FTRMON',0)                                                                           
      CALL SVEC(19,0,AVEC)                                                                             
        CALL SAREA('FTREC',1)                                                                          
        CALL GHSTAT('HS',I,0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                              
        CALL GDATA('HS',I,0,NR,BINS,20)                                                                
        CALL SAREA('FTRMON',0)                                                                         
        CALL SVEC(I,0,RVEC)                                                                            
        CALL SAREA('FTREC',1)                                                                          
        CALL GHSTAT('HS',I,0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                              
        CALL GDATA('HS',I,0,NR,BINS,20)                                                                
        CALL SAREA('FTRMON',0)                                                                         
        CALL SVEC(I,0,PVEC)                                                                            
        CALL SAREA('FTREC',1)                                                                          
        CALL GHSTAT('HS',ID,0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                             
        CALL HPEAK('HS',ID,0,NP,RP)                                                                    
        CALL SAREA('FTRMON',0)                                                                         
        CALL SVEC(ID,0,AVEC)                                                                           
        CALL SAREA('FTREC',2)                                                                          
        CALL GHSTAT('HS',ID,0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                             
        CALL HPEAK('HS',ID,0,NP,RP)                                                                    
        CALL SAREA('FTRMON',0)                                                                         
        CALL SVEC(ID,0,AVEC)                                                                           
        CALL SAREA('FTREC',1)                                                                          
        CALL GHSTAT('HS',ID,0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                             
        CALL HPEAK('HS',ID,0,NP,RP)                                                                    
        CALL SAREA('FTRMON',0)                                                                         
        CALL SVEC(ID,0,AVEC)                                                                           
*