parquet_get_verbosity Subroutine

public subroutine parquet_get_verbosity(level)

Reports the current verbosity as the same token parquet_set_verbosity accepts.

Arguments

Type IntentOptional Attributes Name
character(len=:), intent(out), allocatable :: level

"normal" | "silent" | "errors_only".

Source Code

    subroutine parquet_get_verbosity(level)
        character(len=:), allocatable, intent(out) :: level !! "normal" | "silent" | "errors_only".

        select case (cfg_verbosity)
        case (verb_silent)
            level = "silent"
        case (verb_errors_only)
            level = "errors_only"
        case default
            level = "normal"
        end select
    end subroutine parquet_get_verbosity