let dr_col_vec_to_mat x = let open Dense_real in let raw = getf x vdata in let len = getf x vsize in bigarray_of_ptr array2 ((Int64.to_int len),1) Bigarray.float64 raw