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