log_verbose Subroutine

public subroutine log_verbose(category, message)

Arguments

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

Source Code

    subroutine log_verbose(category, message)
        character(len=*), intent(in) :: category, message
        if (current_verbose_level >= VERBOSE_ULTRA) then
            write (*, '(A, A, A, A)') 'VERBOSE[', category, ']: ', message
        end if
    end subroutine log_verbose