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