ADAS Subroutine i4indf
C FUNCTION I4INDF( ndim , array ,val ) C----------------------------------------------------------------------- C C *************** FORTRAN77 INTEGER*4 FUNCTION: I4INDF **************** C C PURPOSE: Finds the index in array corresponding to the closest match C to value. C C CALLING PROGRAM: GENERAL USE C C FUNCTION: C C FUNC: (I*4) I4INDF = INDEX (if the entry is outside the range C of array then -1 is returned.) C C INPUT: (I*4) NDIM = SIZE OF ARRAY C INPUT: (R*8) ARRAY = obvious C INPUT: (R*8) VAL = SOUGHT VALUE C C C AUTHOR : Martin O'Mullane, C K1/1/43, C JET C C VERSION : 1.1 C DATE : 17/03/1999 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----------------------------------------------------------------------- C----------------------------------------------------------------------- INTEGER NDIM REAL*8 ARRAY(NDIM), VAL