home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / MINMAX.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  355 b   |  16 lines
  1.         SUBROUTINE MINMAX(ARRAY,NPTS,BMIN,BMAX)
  2.     IMPLICIT NONE
  3.         REAL*4 BMIN,BMAX
  4.         INTEGER NPTS,I
  5. C
  6. C       FIND MINIMUM AND MAXIMUM OF THE ARRAY
  7. C
  8.         REAL*4 ARRAY(NPTS)
  9.         BMIN = ARRAY(1)
  10.         BMAX = BMIN
  11.         DO 100 I=2,NPTS
  12.         BMIN = AMIN1(BMIN,ARRAY(I))
  13. 100     BMAX = AMAX1(BMAX,ARRAY(I))
  14.         RETURN
  15.         END
  16.