set_data_col Subroutine

private subroutine set_data_col(this, index, col)

Type Bound

data_frame

Arguments

Type IntentOptional Attributes Name
class(data_frame), intent(inout) :: this
integer, intent(in) :: index
type(column), intent(in) :: col

Source Code

    subroutine set_data_col(this, index, col)
        class(data_frame), intent(inout) :: this
        integer, intent(in) :: index
        type(column), intent(in) :: col

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