/*
 * call-seq: to_doublereal_ptr
 *
 * Actual pointer value of the matrix data.  Subject to change after a
 * bang (!) operation.  This is called by the +Lapack+ module.
 *
 */
VALUE rb_dmatrix_to_doublereal_ptr(VALUE self)
{
    DMatrix* a ;
    get_dmatrix(a, self) ;
    return LONG2NUM((long)a->data) ;
}