CTITLESAPK31 - 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 = PICKR               00080000
C                                                                       00090000
C                                                                       00100000
C     SUBROUTINE PICKR(J,II,IK,KT1,JJ,IJ)                               00110000
C                                                                       00120000
      SUBROUTINE SAPK31(J,II,IK,KT1,JJ,IJ)                              00130000
C                                                                       00140000
      DIMENSION KT1(1)                                                  00150000
C                                                                       00160000
      IK=IK+1                                                           00170000
      KT1(IK)=J                                                         00180000
C                                                                       00190000
      IF(JJ.LE.II) RETURN                                               00200000
      JJ=II                                                             00210000
      IJ=IK                                                             00220000
C                                                                       00230000
      RETURN                                                            00240000
C                                                                       00250000
      END                                                               00260000