CTITLEISMAX  -- FIND INDEX OF ELEMENT WITH MAXIMUM VALUE                00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR       STU NELAN                                            00020000
CA    DESIGNER     STU NELAN                                            00030000
CA    LANGUAGE     FORTRAN                                              00040000
CA    SYSTEM       IBM (SEE CRAY SYSTEM LIBRARY)                        00050000
CA    WRITTEN      02-14-86                                             00060000
C     REVISED      MM-DD-YY III.  ...                                   00070000
CA                                                                      00080000
CA                                                                      00090000
CA    FUNCTION ISMAX (N, SX, INCX)                                      00100000
CA          INPUT       N = NUMBER OF ELEMENTS TO PROCESS           I4  00110000
CA          INPUT      SX = REAL VECTOR TO BE SEARCHED              R4  00120000
CA          INPUT    INCX = SKIP DISTANCE BETWEEN ELEMENTS OF SX    I4  00130000
CA                                                                      00140000
CA       THIS FUNCTION RETURNS THE INDEX OF THE MAXIMUM VALUE IN        00150000
CA       THE SX ARRAY.                                                  00160000
CA                                                                      00170000
C     EJECT                                                             00180000
C                                                                       00190000
      FUNCTION   ISMAX ( N, SX, INCX )                                  00200000
C                                                                       00210000
      DIMENSION  SX  (1)                                                00220000
C                                                                       00230000
      TEST = SX(1)                                                      00240000
      I  = 1                                                            00250000
      K  = 1                                                            00260000
C                                                                       00270000
      DO 100 J=1,N                                                      00280000
      IF ( SX(I).GT.TEST ) K=J                                          00290000
      IF ( SX(I).GT.TEST ) TEST=SX(I)                                   00300000
      I = I + INCX                                                      00310000
  100 CONTINUE                                                          00320000
C                                                                       00330000
      ISMAX = K                                                         00340001
C                                                                       00350000
      RETURN                                                            00360000
C                                                                       00370000
      END                                                               00380000