CTITLEISRCFGT -- SEARCH FOR GREATER THAN VALUE                          00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR        STU NELAN                                           00020001
CA    DESIGNER      STU NELAN                                           00030001
CA    LANGUAGE      FORTRAN                                             00040001
CA    SYSTEM        IBM (SEE CRAY LIBRARIES)                            00050001
CA    WRITTEN                                                           00060001
CA                                                                      00070001
CA    I = ISRCFGT (N, ARRAY, INC, TARGET)                               00080001
CA          OUTPUT     I = INDEX IN ARRAY                            I4 00090001
CA          INPUT      N = NUMBER OF ELEMENTS IN ARRAY               R4 00100001
CA          INPUT    INC = INCREMENT IN ARRAY                        I4 00110001
CA          INPUT  ARRAY = INCREMENT IN ARRAY                        I4 00120001
CA          INPUT TARGET = INCREMENT IN ARRAY                        I4 00130001
CA                                                                      00140001
CA                                                                      00150001
CAEND                                                                   00160001
      FUNCTION ISRCFGT (N, ARRAY, INC, TARGET)                          00170000
      REAL ARRAY(*)                                                     00180000
      ISRCFGT = 0                                                       00190000
      IF (N .LE. 0) RETURN                                              00200000
      J = 1                                                             00210000
      IF (INC .LT. 0) J = 1 - (N-1)*INC                                 00220000
      DO 100 I = 1, N                                                   00230000
          IF (ARRAY(J) .GT. TARGET) GO TO                          200  00240000
          J = J + INC                                                   00250000
  100 CONTINUE                                                          00260000
  200 ISRCFGT = J                                                       00270000
      RETURN                                                            00280000
      END                                                               00290000