MinVectorFloat.F

c**********************************************************************
#include "author.inc"
c*    $Id: MinVectorFloat.F,v 1.1 1996/02/27 19:29:11 turner Exp $
c*
c*    Returns the minimum value of an floating-point vector.
c*
c*    WARNING: Note that JT_MinVectorFloat *must* be declared real in
c*             routines that use it.
c*
c*    <PARAMETER LIST>
c*
c*     Input:
c*      n - number of elements
c*      x - vector
c*
c*     Output:
c*      JT_MinVectorFloat
c*      status - return status
c*
#include "copyright.inc"
c**********************************************************************
      real function JT_MinVectorFloat(n, x, status)
      implicit none
c
c ... Input:
      integer n
      real x(n)
c
c ... Output:
      integer status
c
c ... Local:
      integer i
c
      JT_MinVectorFloat = x(1)
      do i=2,n
       JT_MinVectorFloat = MIN(x(i), JT_MinVectorFloat)
      enddo
c
      status = 0
      return
      end