ADAS Subroutine i4indfvs

      FUNCTION I4INDFVS( 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  NOTES:    This is a version of i4indf but array need not be 
C            monotonically increasing. (vs - variable spacing).
C
C  CALLING PROGRAM: GENERAL USE
C
C  FUNCTION:
C
C  FUNC:   (I*4)   I4INDFVS  = INDEX
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
C  VERSION  : 1.1                          
C  DATE     : 23-07-2003
C  MODIFIED : Martin O'Mullane  
C              - First version.
C
C VERSION  : 1.2
C DATE     : 10-104-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