close_log_file Subroutine

private subroutine close_log_file(self)

Close the log file, needs to be called at the end of the program

Usage: call my_logger%close_log_file()

TODO: revisit

Type Bound

logger_type

Arguments

Type IntentOptional Attributes Name
class(logger_type), intent(inout) :: self

Called by

proc~~close_log_file~~CalledByGraph proc~close_log_file logger_type%close_log_file proc~configure_file_output logger_type%configure_file_output proc~configure_file_output->proc~close_log_file

Source Code

   subroutine close_log_file(self)
      !! Close the log file, needs to be called at the end of the program
      !!
      !! Usage: call my_logger%close_log_file()
      !!
      !! TODO: revisit
      class(logger_type), intent(inout) :: self
      if (self%log_file_open) then
         close (self%log_file_unit)
         self%log_file_open = .false.
         self%log_file_unit = -1
      end if
   end subroutine close_log_file