/*
 * call-seq: minor(i, j, vsize, hsize)
 *
 * Return the minor with upper-left position <tt>[i, j]</tt> and
 * dimensions <tt>[vsize, hsize]</tt>.
 * 
 */
VALUE rb_dmatrix_minor( VALUE self,
                           VALUE ri,
                           VALUE rj,
                           VALUE rvsize,
                           VALUE rhsize )
{
    DMatrix* a ;
    integer i = (integer)NUM2INT(ri) ;
    integer j = (integer)NUM2INT(rj) ;
    integer vsize = (integer)num2size(rvsize) ;
    integer hsize = (integer)num2size(rhsize) ;
    get_dmatrix(a, self) ;
    return wrap_dmatrix(dmatrix_minor(a, i, j, vsize, hsize)) ;
}