CTITLESAPK10 - SUBROUTINE USED BY SDPICK                                00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA                                                                      00020000
CA   DESIGNER             P. C. LUH                                     00030000
CA   AUTHOR               P. C. LUH                                     00040000
CA   LANGUAGE             FORTRAN                                       00050000
CA   SYSTEM               IBM  ONLY                                     00060000
CA   DATE                 MM/DD/YY                                      00070000
C    REVISED              03/06/86  LBL  OLD NAME = KKDEX               00080000
C                                                                       00090000
C                                                                       00100000
C     SUBROUTINE KKDEX(JJ1,JJ2,YC,TWK,XT,YY,IN,CONS,JSHT,XG)            00110000
C                                                                       00120000
      SUBROUTINE SAPK10(JJ1,JJ2,YC,TWK,XT,YY,IN,CONS,JSHT,XG)           00130000
C                                                                       00140000
      DIMENSION TWK(1),YY(1),JSHT(1)                                    00150000
C                                                                       00160000
      YC=CONS                                                           00170000
C                                                                       00180000
      DO 30 K=JJ1,JJ2                                                   00190000
      XI=ABS(TWK(K)-XT)                                                 00200000
      YG=YY(K)+XI                                                       00210000
C                                                                       00220000
      IF(YC.LT.YG) GO TO 30                                             00230000
      IF(YC.GT.YG) GO TO 20                                             00240000
      IF(JSHT(IN).GT.JSHT(K)) GO TO 30                                  00250000
      IF(JSHT(IN).LT.JSHT(K)) GO TO 20                                  00260000
      IF(XG.LE.XI) GO TO 30                                             00270000
C                                                                       00280000
   20 CONTINUE                                                          00290000
      IN=K                                                              00300000
      YC=YG                                                             00310000
      XG=XI                                                             00320000
   30 CONTINUE                                                          00330000
C                                                                       00340000
      RETURN                                                            00350000
C                                                                       00360000
      END                                                               00370000