/*
 * call-seq: clone
 *
 * Deep copy
 *
 */
VALUE rb_dmatrix_clone(VALUE self)
{
    DMatrix* a ;
    get_dmatrix(a, self) ;
    return wrap_dmatrix(DMatrix_clone(a)) ;
}