df_get_col_complex Function

    function df_get_col_complex(df, index) result(col)
        type(data_frame), intent(in) :: df
        integer, intent(in) :: index
        complex(rk), 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() /= COMPLEX_NUM) error stop "column is not complex type"

        col = data_col % getc()
    end function df_get_col_complex