        SUBROUTINE MINMAX(ARRAY,NPTS,BMIN,BMAX)
	IMPLICIT NONE
        REAL*4 BMIN,BMAX
        INTEGER NPTS,I
C
C       FIND MINIMUM AND MAXIMUM OF THE ARRAY
C
        REAL*4 ARRAY(NPTS)
        BMIN = ARRAY(1)
        BMAX = BMIN
        DO 100 I=2,NPTS
        BMIN = AMIN1(BMIN,ARRAY(I))
100     BMAX = AMAX1(BMAX,ARRAY(I))
        RETURN
        END
