FUNCTION ismin(n,sx,incx)
c
      IMPLICIT NONE
c
      integer n,i,incx,ismin,ix
      real sx((n-1)*incx+1),sxmin
c
      ix=1
      ismin=1
      sxmin=sx(1)
      DO i=1,n-1
      ix=ix+incx
      if(sx(ix).lt.sxmin) then
        sxmin=sx(ix)
        ismin=i+1
      endif
      ENDDO
c
      return
      end