CTITLEKPOS   -- FUNCTION USED BY SDPICK                                 00010001
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              MM/DD/YY                                      00080000
C                                                                       00090000
C                                                                       00100000
      FUNCTION KPOS(DL,NSEF,X0,NSEG,A,B,DF,LEN,I)                       00110000
      DIMENSION X0(1),A(1),B(1)                                         00120000
C                                                                       00130000
      DO 10 I=1,NSEF                                                    00140000
      IF(DL.LT.X0(I)) GO TO 20                                          00150000
   10 CONTINUE                                                          00160000
      I=NSEG                                                            00170000
C                                                                       00180000
   20 KPOS=(A(I)*DL+B(I))*DF+1.5                                        00190000
      KPOS=MIN0(LEN,KPOS)                                               00200000
C                                                                       00210000
      RETURN                                                            00220000
C                                                                       00230000
      END                                                               00240000