CTITLESAPK08 - 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 = INFIT               00080000
C                                                                       00090000
C                                                                       00100000
C     SUBROUTINE INFIT(NSEG,NX,XL,XOFF,TIME,YJ,GK,NSEH,AL,JN,IPR)       00110000
      SUBROUTINE SAPK08(NSEG,NX,XL,XOFF,TIME,YJ,GK,NSEH,AL,JN,IPR)      00120000
      DIMENSION XL(1),XOFF(1),TIME(1),YJ(1),GK(1),AL(1),JN(1)           00130000
C                                                                       00140000
      I=1                                                               00150000
      J=0                                                               00160000
      M=1                                                               00170000
      Y=0.                                                              00180000
   10 GK(I)=XL(I)-Y                                                     00190000
   20 IF(XOFF(J+1).GT.XL(I).AND.I.LT.NSEG) GO TO 30                     00200000
      J=J+1                                                             00210000
      YJ(J)=XOFF(J)-Y                                                   00220000
      AL(JN(I)+J)=YJ(J)                                                 00230000
      AL(JN(NSEH)+J)=TIME(J)                                            00240000
C                                                                       00250000
      IF(J.LT.NX) GO TO 20                                              00260000
      IF(I.EQ.NSEG) GO TO 30                                            00270000
C                                                                       00280000
      WRITE(IPR, 25)I,NSEG,J,NX                                         00290000
   25 FORMAT(' ***** STOP - INFIT *****',5X,'/I/NSEG/J/NX/',4I8)        00300000
      STOP                                                              00310000
   30 CONTINUE                                                          00320000
C                                                                       00330000
      IF(I.LE.1) GO TO 50                                               00340000
      L=I-1                                                             00350000
      DO 40 K=1,L                                                       00360000
      DO 40 N=M,J                                                       00370000
      AL(JN(K)+N)=GK(K)                                                 00380000
   40 CONTINUE                                                          00390000
   50 CONTINUE                                                          00400000
C                                                                       00410000
      IF(I.EQ.NSEG) GO TO 60                                            00420000
      Y=XL(I)                                                           00430000
      I=I+1                                                             00440000
      L=J-M+1                                                           00450000
      IF(L.LT.1) GO TO 56                                               00460000
C                                                                       00470000
      DO 55 K=I,NSEG                                                    00480000
   55 CALL ARSET(AL(JN(K)+M),L,0.)                                      00490000
C                                                                       00500000
   56 M=J+1                                                             00510000
      GO TO 10                                                          00520000
C                                                                       00530000
   60 CONTINUE                                                          00540000
C                                                                       00550000
      RETURN                                                            00560000
      END                                                               00570000