*-- 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