/* * call-seq: transpose! * * In-place matrix transpose. Guaranteed O(1) trivial cost for column * and row vectors. Note that transpose flags are not implemented; * thus for non-vectors the cost is a temporary copy and assignment. * */ VALUE rb_dmatrix_transpose_inplace( VALUE self ) { DMatrix* a ; get_dmatrix(a, self) ; DMatrix_transpose_inplace(a) ; return self ; }