CTITLESAPK07 - 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 = INDX                00080000
C                                                                       00090000
C                                                                       00100000
C     SUBROUTINE INDX(IX1,IXA,IXB,IX2,IDX)                              00110000
C                                                                       00120000
      SUBROUTINE SAPK07(IX1,IXA,IXB,IX2,IDX)                            00130000
C                                                                       00140000
      DATA CON1/0.381966/                                               00150000
C                                                                       00160000
      IDX=IX2-IX1                                                       00170000
      IF(IDX.GT.3) GO TO 10                                             00180000
      IXA=IX1                                                           00190000
      IXB=IX2                                                           00200000
      IF(IDX.EQ.1) RETURN                                               00210000
      IXA=IX1+1                                                         00220000
      IXB=IXA+1                                                         00230000
      RETURN                                                            00240000
C                                                                       00250000
   10 IXA=IX1+IDX*CON1                                                  00260000
      IXB=IX2-IDX*CON1                                                  00270000
C                                                                       00280000
      RETURN                                                            00290000
C                                                                       00300000
      END                                                               00310000