        SUBROUTINE TIMRB ! NOTE BEGINNING OF TIMED INTERVAL
C
C       SAVE CURRENT PROCESS STATISTICS IN VARIABLES IN COMMON
C       USAGE:
C               CALL TIMRB      !START OF TIMED INTERVAL
C
C       THIS SUBROUTINE ALSO DEFINES AND DATA-INITIALIZES LOGICAL
C       UNITS WHICH WILL BE USED BY BENCHMARK PROGRAMS
C       ..THIS IS RETAINED FOR COMPATIBILITY WITH PDP-11 VERSION
C       DEFINE AND INITIALIZE LOGICAL UNIT ASSIGNMENTS:
C          ICRD  - 1    DATA INPUT (IF REQUIRED)
C          ILPT  - 4    LINE PRINTER BULK OUTPUT
C          IKBD  - 5    KEYBOARD INPUT (IF REQUIRED)
C          ITTY  - 2    TTY OUTPUT, INCLUDING ELAPSED TIME INFORMATION
C
        COMMON /LUNS/ ICRD,ILPT,IKBD,ITTY
        DATA        ICRD,ILPT,IKBD,ITTY / 1,4,5,2 /
C
C

	REAL SECNDS
	REAL TIME, T0

        COMMON /timing/ TIME
C       ==================================================
        TIME = SECNDS(0.)
        RETURN

	END
C
        SUBROUTINE TIMRE ! PRINT EXECUTION STATISTICS FOR INTERVAL

C       USAGE:
C               CALL TIMRE      !END OF TIMED INTERVAL
C       
C       TIMRE OBTAINS PROCESS STATISTICS AND SUBTRACTS THE
C       BEGINNING-OF-INTERVAL STATISTICS RECORDED BY TIMRB.
C       THE INCREMENTAL VALUES ARE WRITTEN TO UNIT "TTY"
C       (FORTRAN UNIT 6).
C
	REAL CLKTIM
        COMMON /LUNS/ ICRD,ILPT,IKBD,ITTY
        COMMON /timing/ TIME
C
        time = SECNDS(time)

        WRITE(ITTY,99) TIME

 99     FORMAT(' >>>> ',F10.3)
C       SAVE STATE FOR NEXT TIME AROUND
C       THE USER IS SUPPOSED TO CALL TIMRB AGAIN, BUT IN CASE HE DOESN'T ...

c        T0 = SECNDS(0.)
        RETURN
        END
