/*
 * call-seq: replace_minor(i, j, minor)
 * 
 * Insert +minor+ into the matrix, where [+i+,+j+] is the location of
 * the upper-left corner of the minor.
 * 
 */
VALUE rb_dmatrix_replace_minor( VALUE self,
                                   VALUE ri,
                                   VALUE rj,
                                   VALUE rminor )
{
    DMatrix* c ;
    DMatrix* a ;
    integer i = (integer)NUM2INT(ri) ;
    integer j = (integer)NUM2INT(rj) ;
    
    get_dmatrix(c, self) ;
    get_dmatrix(a, rminor) ;
    
    dmatrix_replace_minor(c, i, j, a) ;
    return self ;
}