debug_print Subroutine

public subroutine debug_print(message)

Print debug message (only if verbose level >= 2)

Arguments

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

Source Code

    subroutine debug_print(message)
        character(len=*), intent(in) :: message
        if (current_verbose_level >= 2) then
            print '(a,a)', ' DEBUG: ', trim(message)
        end if
    end subroutine debug_print