/*
 * 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 ;
}