SUBROUTINE FMEANT
*-- Author :    Girish D. Patel   07/07/96
      SUBROUTINE FMEANT
      DIMENSION RP(5,5),XSTAT(4),YSTAT(4)                               
      DIMENSION PVEC(8),RVEC(8)                                         
      ID = 19527                                                        
      CALL GHSTAT('HS',ID,0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                               
      CALL HPEAK('HS',ID,0,NP,RP)                                                                      
      PVEC(1) = FLOAT(NP)                                               
      PVEC(7) = XSTAT(3)                                                
      PVEC(8) = XSTAT(4)                                                
      IF(NP.GE.1) THEN                                                  
        PVEC(2) = RP(1,1)                                               
        PVEC(3) = RP(2,1)                                               
        PVEC(4) = RP(3,1)                                               
        PVEC(5) = RP(4,1)                                               
        PVEC(6) = RP(5,1)                                               
      ELSE                                                              
        PVEC(2) = 0.                                                    
        PVEC(3) = 0.                                                    
        PVEC(4) = 0.                                                    
        PVEC(5) = 0.                                                    
        PVEC(6) = 0.                                                    
      ENDIF                                                             
      ID = 19528                                                        
      CALL GHSTAT('HS',ID,0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                               
      CALL HPEAK('HS',ID,0,NP,RP)                                                                      
      RVEC(1) = FLOAT(NP)                                               
      RVEC(7) = XSTAT(3)                                                
      RVEC(8) = XSTAT(4)                                                
      IF(NP.GE.1) THEN                                                  
        RVEC(2) = RP(1,1)                                               
        RVEC(3) = RP(2,1)                                               
        RVEC(4) = RP(3,1)                                               
        RVEC(5) = RP(4,1)                                               
        RVEC(6) = RP(5,1)                                               
      ELSE                                                              
        RVEC(2) = 0.                                                    
        RVEC(3) = 0.                                                    
        RVEC(4) = 0.                                                    
        RVEC(5) = 0.                                                    
        RVEC(6) = 0.                                                    
      ENDIF                                                             
                                                                        
      CALL SAREA('FTDMON',0)                                                                           
      CALL SVEC(7,0,PVEC)                                                                              
      CALL SVEC(8,0,RVEC)                                                                              
                                                                        
      RETURN                                                            
      END