CTITLETTIME  -- COMPUTE ELAPSED CPU SECONDS                             00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR      JAMES SUN                                             00020000
CA    DESIGNER    JAMES SUN                                             00030000
CA    LANGUAGE    FORTRAN                                               00040000
CA    SYSTEM      IBM (SEE CRAY)                                        00050000
CA    WRITTEN     07/01/86                                              00060000
C     REVISED     MM-DD-YY                                              00070000
C                                                                       00080000
C     TT       INPUT              FLOATING POINT VALUE OF THE CPU       00090000
C                                 ELASPSED SECONDS AS OF LAST CALL      00100000
C                                 TO CLOCK                              00110000
C     DD       OUTPUT             FLOATING POINT VALUE OF THE CPU       00120000
C                                 ELAPSED SECONDS SINCE LAST CALL       00130000
C                                 TO CLOCK                              00140000
      SUBROUTINE TTIME(TT,DD)                                           00150000
C     CALL GETSEC(P)                                                    00160000
C     DD=P-TT                                                           00170000
C     TT=P                                                              00180000
      DD=0                                                              00190000
      TT=0                                                              00200000
C                                                                       00210000
      RETURN                                                            00220000
      END                                                               00230000