get_data_col Function

private function get_data_col(this, index) result(col)

Type Bound

data_frame

Arguments

Type IntentOptional Attributes Name
class(data_frame), intent(in) :: this
integer, intent(in) :: index

Return Value type(column)


Source Code

    function get_data_col(this, index) result(col)
        class(data_frame), intent(in) :: this
        integer, intent(in) :: index
        type(column) :: col

        if (index < 1 .or. index > this % num_cols) error stop "column index out of range"
        col = this % data_cols(index)
    end function get_data_col