df_get_col_character Function

public function df_get_col_character(df, index) result(col)

Get character column by index

Arguments

Type IntentOptional Attributes Name
type(data_frame), intent(in) :: df
integer, intent(in) :: index

Return Value character(len=:), dimension(:), allocatable


Source Code

    function df_get_col_character(df, index) result(col)
        type(data_frame), intent(in) :: df
        integer, intent(in) :: index
        character(len=:), dimension(:), allocatable :: col

        type(column) :: data_col

        if (index < 1 .or. index > df % ncols()) error stop "column index out of range"

        data_col = df % get_data_col(index)
        if (data_col % get_type() /= CHARACTER_NUM) error stop "column is not character type"

        col = data_col % getch()
    end function df_get_col_character