home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / MINMAX.FOR < prev    next >
Text File  |  1989-06-20  |  295b  |  13 lines
  1.         SUBROUTINE MINMAX(ARRAY,NPTS,BMIN,BMAX)
  2. C
  3. C       FIND MINIMUM AND MAXIMUM OF THE ARRAY
  4. C
  5.         DIMENSION ARRAY(NPTS)
  6.         BMIN = ARRAY(1)
  7.         BMAX = BMIN
  8.         DO 100 I=2,NPTS
  9.         BMIN = AMIN1(BMIN,ARRAY(I))
  10. 100     BMAX = AMAX1(BMAX,ARRAY(I))
  11.         RETURN
  12.         END
  13.