Function:     STATR

Purpose:      Determines the min, max, running mean and rms of an array
              of reals.

File:         statr.c

Author:       K.G. Begeman

Use:          CALL STATR( ARRAY  ,  input      REAL ARRAY
                          NITEM  ,  input      INTEGER
                          AMIN   ,  output     REAL
                          AMAX   ,  output     REAL
                          MEAN   ,  output     REAL
                          RMS    ,  output     REAL
                          NBLANK ,  output     INTEGER
                          NTOT   )  input      INTEGER

              ARRAY    Input array (part of subset).
              NITEM    Number of reals in ARRAY.
              AMIN     Running minimum in subset.
              AMAX     Running maximum in subset.
              MEAN     Running mean in subset.
              RMS      Running rms in subset.
              NBLANK   Number of blank values.
              NTOT     Number of values checked.

Description:  The routine is initialized when NTOT = 0. If not enough
              defined values to determine AMIN, AMAX, MEAN or RMS then
              the routine will return BLANK (can be checked with
              logical function FBLANK).

Example:      NTOT=0
              REPEAT
                CALL GDSI_READ( , , , A, , N, IER )
                CALL STATR(A,N,MIN,MAX,MEAN,RMS,NBLANK,NTOT)
              UNTIL (IER.EQ.0)

Updates:      Dec 16, 1988: KGB, original document.