      FUNCTION STMEAN(N,X) ! BERND BERG, FEB 12 1990.
C CALCULATION OF THE MEAN VALUE FOR N DATA IN X(N).
      include '../../Libs/Fortran/implicit.sta'
      include '../../Libs/Fortran/constants.par'
      DIMENSION X(N)
      XM=ZERO
      DO I=1,N
        XM=XM+X(I)
      END DO
      STMEAN=XM/N
      RETURN
      END
