 
      INTEGER FUNCTION ISMAX(N,SX,INCX)
C
C     FINDS THE 1ST INDEX OF ELEMENT SX HAVING MAX. VALUE.
C     N IS THE NUMBER OF ELEMENTS
C     INCX IS THE INCREMENTAL SPACING IN SX
C     D. KAHANER LASL 6/14/79
C
 
 
