CTITLESAPK27 - 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 = PICKM               00080000
C                                                                       00090000
C                                                                       00100000
C     SUBROUTINE PICKM(IT1,T3,TWK,I20,KT1,IK,IJ,I0,I2,J0,J2,IN)         00110000
C                                                                       00120000
      SUBROUTINE SAPK27(IT1,T3,TWK,I20,KT1,IK,IJ,I0,I2,J0,J2,IN)        00130000
C                                                                       00140000
      DIMENSION IT1(I20,I20,1),TWK(I20,1),T3(1),KT1(1)                  00150000
C                                                                       00160000
      IF(I2.GT.0) GO TO 1100                                            00170000
C                                                                       00180000
      DO 1000 I=1,IK                                                    00190000
      T3(KT1(I))=-2.                                                    00200000
 1000 CONTINUE                                                          00210000
C                                                                       00220000
      IK=0                                                              00230000
      RETURN                                                            00240000
C                                                                       00250000
 1100 CONTINUE                                                          00260000
C                                                                       00270000
      IF(IJ.EQ.IK) GO TO 1300                                           00280000
C                                                                       00290000
      JK=IK                                                             00300000
C                                                                       00310000
      T3(J2)=TWK(I2,J2)                                                 00320000
C                                                                       00330000
 1200 CONTINUE                                                          00340000
      IF(JK.LE.IJ) GO TO 1300                                           00350000
      JK=JK-1                                                           00360000
      I2=IT1(I2,IN,J2)                                                  00370000
      J2=KT1(JK)                                                        00380000
      T3(J2)=TWK(I2,J2)                                                 00390000
      GO TO 1200                                                        00400000
C                                                                       00410000
 1300 CONTINUE                                                          00420000
C                                                                       00430000
      IF(IJ.EQ.1) RETURN                                                00440000
C                                                                       00450000
      JK=1                                                              00460000
C                                                                       00470000
      T3(J0)=TWK(I0,J0)                                                 00480000
C                                                                       00490000
 1400 CONTINUE                                                          00500000
      IF(JK.GE.IJ) RETURN                                               00510000
      JK=JK+1                                                           00520000
      I0=IT1(I0,IN,J0)                                                  00530000
      J0=KT1(JK)                                                        00540000
      T3(J0)=TWK(I0,J0)                                                 00550000
      GO TO 1400                                                        00560000
C                                                                       00570000
      END                                                               00580000