Search Site | Contact Details | FAQ

ADAS Subroutine i4indfi4

C
      FUNCTION I4INDFI4( ndim , array , ind )


C-----------------------------------------------------------------------
C
C  ************** FORTRAN77 INTEGER*4 FUNCTION: I4INDFI4 ***************
C
C  PURPOSE : Finds the index in the integer array corresponding to the
C            exact match to value. If the entry is outside the range of
C            array then -1 is returned.
C
C  CALLING PROGRAM: GENERAL USE
C
C  FUNCTION:
C
C  FUNC:   (I*4)   I4INDFI4  = INDEX
C
C  INPUT:  (I*4)   NDIM      = SIZE OF ARRAY
C  INPUT:  (R*8)   ARRAY     = obvious
C  INPUT:  (R*8)   IND       = SOUGHT VALUE
C
C
C  AUTHOR   : Martin O'Mullane,
C
C  VERSION  : 1.1
C  DATE     : 15-04-2005
C
C  MODIFIED : Martin O'Mullane
C              - First version.
C
C VERSION  : 1.2
C DATE     : 10-04-2007
C MODIFIED : Allan Whiteford
C               - Modified documentation as part of automated
C		  subroutine documentation preparation.
C
C VERSION  : 1.3
C DATE     : 21-07-2008
C MODIFIED : Martin O'Mullane
C               - Do not assume a monotonic array when checking limits,
C                 determine min/max index values instead.
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      INTEGER             ARRAY(NDIM), IND,         NDIM
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk