write_log Subroutine

private subroutine write_log(message)

Writes the message to the log file

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: message

Message to log

Called by

proc~~write_log~~CalledByGraph proc~write_log write_log proc~log_message log_message proc~log_message->proc~write_log proc~log_header log_header proc~log_header->proc~log_message

Source Code

    subroutine write_log(message)
        !! Writes the message to the log file
        character(len=*), intent(in) :: message !! Message to log

        if (.not. file_opened) then
            print "(a)", "ERROR: No file has been opened for writing"
            stop 1
        end if

        write(log_unit, "(a)") trim(adjustl(message))
    end subroutine write_log