*-- Author :    Girish D. Patel   07/07/96
      SUBROUTINE FMEANT
      CALL GHSTAT('HS',ID,0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                               
      CALL HPEAK('HS',ID,0,NP,RP)                                                                      
      CALL GHSTAT('HS',ID,0,NENT,SUMW,RNEFF,XSTAT,YSTAT)                                               
      CALL HPEAK('HS',ID,0,NP,RP)                                                                      
      CALL SAREA('FTDMON',0)                                                                           
      CALL SVEC(7,0,PVEC)                                                                              
      CALL SVEC(8,0,RVEC)