/*
 * call-seq: transpose
 *
 * Matrix transpose
 *
 */
VALUE rb_dmatrix_transpose(VALUE self)
{
    DMatrix* a ;
    DMatrix* trans ;
    get_dmatrix(a, self) ;
    trans = DMatrix_new(a->hsize, a->vsize) ;
    DMatrix_transpose(trans, a) ;
    return wrap_dmatrix(trans) ;
}