CTITLESAPK09 - 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 = JNDX                00080000
C                                                                       00090000
C                                                                       00100000
C     SUBROUTINE JNDX(M1,IN,NX)                                         00110000
C                                                                       00120000
      SUBROUTINE SAPK09(M1,IN,NX)                                       00130000
C                                                                       00140000
      DIMENSION IN(1)                                                   00150000
C                                                                       00160000
      DO 10 I=1,M1                                                      00170000
      IN(I)=(I-1)*NX                                                    00180000
   10 CONTINUE                                                          00190000
C                                                                       00200000
      RETURN                                                            00210000
C                                                                       00220000
      END                                                               00230000