print_info Subroutine

public subroutine print_info(message)

Print info message (only if verbose level >= 1)

Arguments

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

Source Code

    subroutine print_info(message)
        character(len=*), intent(in) :: message
        if (current_verbose_level >= 1) then
            print '(a,a)', ' INFO: ', trim(message)
        end if
    end subroutine print_info