Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0125/logoff.for
There is 1 other file named logoff.for in the archive. Click here to see a list.
	SUBROUTINE LOGOFF
C************************************************************
C
C  THIS ROUTINE IS USED TO CLOSE THE LOG FILE AND
C  DISABLE FURTHER LOGGING. A TIME STAMP IS WRITTEN
C  WHEN THE LOG IS CLOSED
C
C  POSSIBLE ERRORS:
C	NONE
C
C  ROUTINES CALLED:
C	SFIELD - BYTE MANIPULATION ROUTINE
C
C************************************************************
	IMPLICIT INTEGER (A - Z)
	LOGICAL LOG
	INTEGER TODAY(2)
	COMMON /LOGBLK/ LOG, GTLOG, FATAL, ERROR

1	FORMAT(///'LOG FILE CLOSED - ',A5,A4,' AT ',A5,A5///)

	IF(.NOT. LOG) RETURN
	CALL DATE(TODAY)
	CALL TIME(TIME1, TIME2)
	CALL SFIELD(TIME2, 0, 7, 58)
	WRITE(GTLOG, 1) TODAY, TIME1, TIME2
	CLOSE(UNIT=GTLOG)
	LOG = .FALSE.
	RETURN
	END