SUBROUTINE INIT_TIMER
C
C	The subroutine simply calls LIB$INIT_TIMER.
C
	IMPLICIT INTEGER*4 (A-Z)

	STATUS = LIB$INIT_TIMER()
	CALL CHECK_STATUS('INIT_TIMER',STATUS)
	RETURN
	END

	SUBROUTINE ELAPSED_TIME
C
C	This routine is called at the end of file transmission to output
C	the elapsed time.  The LIB$INIT_TIMER must have been called previous
C	to calling this routine.
C
	INCLUDE 'COM.INC/NOLIST'
	REAL*8 VALUE
	CHARACTER*30 TIMBUF

	CODE = 1			! Get the elapsed time.
	CALL LIB$STAT_TIMER(CODE,VALUE,)
	CALL SYS$ASCTIM(,TIMBUF,VALUE,%VAL(1))
	CALL WRITE_USER('*** The elapsed time was '//TIMBUF//' ***'//SS)
	IF (DEBUG) CALL LIB$SHOW_TIMER(,,,)
	RETURN
	END