isrchne.f

Go to the documentation of this file.

C> @file
C> @brief Searches a vector for the first element not equal to a target
C> @author Stephen Gilbert @date 1999-02-11
 
C> Program history log:
C> - Stephen Gilbert 1999-02-11
C>
C> @param[in] n Number of elements to be searched.
C> @param[in] x Real or integer array of dimension (n-1) * |incx| + 1.
C> Array x contains the vector to be searched.
C> @param[in] incx Increment between elements of the searched array.
C> @param[in] target Value for which to search in the array.
C> @return index Index of the first element equal or not equal to target.
C> If target is not found, n+1 is returned.  If n <= 0, 0 is returned.
C>
C> @note This code and documentation was taken directly from the
C> man page for routine ISRCHNE on a CRAY UNICOS system.
C>
C> @author Stephen Gilbert @date 1999-02-11
      FUNCTION isrchne(N,X,INCX,TARGET)
      INTEGER x(*), target
      j=1
      isrchne=0
      IF(n.LE.0) RETURN
      IF(incx.LT.0) j=1-(n-1)*incx
      DO 100 i=1,n
         IF(x(j).NE.TARGET) GO TO 200
         j=j+incx
  100 CONTINUE
  200 isrchne=i
      RETURN
      END