logger Derived Type

  type :: logger
    ! An object to handle output of information about the executing
    ! program to the terminal and to a log-file.

    ! Unit corresponding to STDOUT
    integer                       :: stdout = 6
    ! Unit corresponding to STDERR
    integer                       :: stderr = 0
    ! Unit corresponding to log-file
    integer                       :: fileunit = -1
    ! Name of the log-file
    character(len=path_max_length) :: logfile
    ! Cutoff for which messages will be written to STDERR.
    integer                       :: stderr_threshold = log_debug_level
    ! Cutoff for which messages will be written to STDOUT.
    integer                       :: stdout_threshold = log_debug_level
    ! Cutoff for which messages will be written to the log-file.
    integer                       :: logfile_threshold = huge(1)
  end type logger