Search Site | Contact Details | FAQ

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
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk