get_single_col_character Function

private pure function get_single_col_character(this, i) result(val)

Type Bound

column

Arguments

Type IntentOptional Attributes Name
class(column), intent(in) :: this
integer, intent(in) :: i

Return Value character(len=:), allocatable


Source Code

    pure function get_single_col_character(this, i) result(val)
        class(column), intent(in) :: this
        integer, intent(in) :: i
        character(len=:), allocatable :: val

        if (this % dtype /= CHARACTER_NUM) error stop 'column is not of type character'

        if (i > this % n) error stop 'out of bounds attempt on data column'

        val = this % charcol(i)

    end function get_single_col_character