/*
 * call-seq: fill(value)
 *
 * Fill the matrix with +value+.
 */
VALUE rb_dmatrix_fill(VALUE self, VALUE rval)
{
    doublereal val = NUM2DBL(rval) ;
    DMatrix* a ;
    get_dmatrix(a, self) ;
    DMatrix_fill(a, val) ;
    return self ;
}