CTITLETPOS   -- 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
CAEND                                                                   00091002
C                                                                       00100000
      FUNCTION TPOS(DL,NSEF,X0,NSEG,A,B,I)                              00110000
C                                                                       00120000
      DIMENSION X0(1),A(1),B(1)                                         00130000
C                                                                       00140000
      DO 10 I=1,NSEF                                                    00150000
      IF(DL.LT.X0(I)) GO TO 20                                          00160000
   10 CONTINUE                                                          00170000
      I=NSEG                                                            00180000
C                                                                       00190000
   20 TPOS=A(I)*DL+B(I)                                                 00200000
C                                                                       00210000
      RETURN                                                            00220000
C                                                                       00230000
      END                                                               00240000