SUBROUTINE INIT_TIMER
C
C	The subroutine simply calls LIB$INIT_TIMER.
C
	IMPLICIT NONE

	INTEGER STATUS, LIB$INIT_TIMER

	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
	IMPLICIT NONE

	EXTERNAL WRITE_ELAPSED

	CALL LIB$SHOW_TIMER(,,WRITE_ELAPSED,)
	RETURN
	END

	SUBROUTINE WRITE_ELAPSED (TIME)
C
C	This routine is used to write the elapsed time.
C
	INCLUDE 'COM.INC/NOLIST'

	CHARACTER*(*) TIME
	INTEGER TIME_SIZE, INDEX

	TIME_SIZE = LEN(TIME)			! Get the time string size.
	IF (.NOT. DEBUG_MODE) THEN
		TIME_SIZE = INDEX (TIME, '  BUFIO:')
	ENDIF
	CALL WRITE_USER('***'//TIME(1:TIME_SIZE)//'***'//SS)
	RETURN
	END