let dr_allocate_col_vecptr m = dr_allocate_vecptr m 1