CTITLESAPK06 - 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 = IKDEX               00080000
C                                                                       00090000
C                                                                       00100000
C     SUBROUTINE IKDEX(JPOS,LPOS,XG,TOLR2,JK,                           00110000
      SUBROUTINE SAPK06(JPOS,LPOS,XG,TOLR2,JK,                          00120000
     +                 IT1,IN,ISHT,JSHT,IS,IRP2)                        00130000
C                                                                       00140000
      JPOS=LPOS                                                         00150000
      IF(XG.LT.TOLR2) GO TO 500                                         00160000
      JK=JK+1                                                           00170000
      JPOS=JPOS+1                                                       00180000
C                                                                       00190000
  500 CONTINUE                                                          00200000
      IT1=IN                                                            00210000
      ISHT=JSHT+IS                                                      00220000
      IRP2=MAX0(IRP2,ISHT)                                              00230000
C                                                                       00240000
      RETURN                                                            00250000
C                                                                       00260000
      END                                                               00270000