column
pure function get_from_col_dtype(this) result(dtype) class(column), intent(in) :: this integer :: dtype dtype = this % dtype end function get_from_col_dtype