df_get_col_type_index Function

private pure function df_get_col_type_index(this, index) result(dtype)

Type Bound

data_frame

Arguments

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

Return Value integer


Source Code

    pure function df_get_col_type_index(this, index) result(dtype)
        class(data_frame), intent(in) :: this
        integer, intent(in) :: index
        integer :: dtype

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