parquet_kind_name Subroutine

public subroutine parquet_kind_name(kind, name)

Copies a human-readable name for a PK_* kind out (for error messages and callers that dispatch on kindof).

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: kind

a PK_* discriminator.
character(len=:), intent(out), allocatable :: name

the kind's name.

Source Code

    subroutine parquet_kind_name(kind, name)
        integer, intent(in) :: kind                        !! a PK_* discriminator.
        character(len=:), allocatable, intent(out) :: name !! the kind's name.
        name = trim(kind_text(kind))
    end subroutine parquet_kind_name