LogStop Subroutine

public subroutine LogStop()

stop logging. If open, close the log file

Arguments

None

Variables

Type Visibility Attributes Name Initial
logical, public :: fileIsOpen
character(len=stringLen), public :: sep

Source Code

SUBROUTINE LogStop ()
IMPLICIT NONE

! Local scalars:
CHARACTER (LEN = stringLen) :: sep
LOGICAL                     :: fileIsOpen
!------------end of declaration------------------------------------------------


IF (logToFile) THEN
	CALL TimeStamp (logUnit)
	sep = ' '//logsep//' '//'logging stop'
	WRITE(UNIT = logUnit, FMT='(a)') TRIM(sep)
	
	INQUIRE ( UNIT = logUnit, OPENED = fileIsOpen, IOSTAT = ios )
	IF (fileIsOpen) THEN
	  CLOSE (logUnit)
	END IF
ENDIF

END SUBROUTINE LogStop