static int IDADenseSolve(IDAMem IDA_mem, N_Vector b, N_Vector weight,
N_Vector ycur, N_Vector ypcur, N_Vector rrcur)
{
IDADlsMem idadls_mem;
realtype *bd;
idadls_mem = (IDADlsMem) lmem;
bd = N_VGetArrayPointer(b);
DenseGETRS(JJ, pivots, bd);
/* Scale the correction to account for change in cj. */
if (cjratio != ONE) N_VScale(TWO/(ONE + cjratio), b, b);
last_flag = 0;
return(0);
}
static int cvDenseSolve(CVodeMem cv_mem, N_Vector b, N_Vector weight,
N_Vector ycur, N_Vector fcur)
{
CVDlsMem cvdls_mem;
realtype *bd;
cvdls_mem = (CVDlsMem) lmem;
bd = N_VGetArrayPointer(b);
DenseGETRS(M, lpivots, bd);
/* If CV_BDF, scale the correction to account for change in gamma */
if ((lmm == CV_BDF) && (gamrat != ONE)) {
N_VScale(TWO/(ONE + gamrat), b, b);
}
last_flag = CVDLS_SUCCESS;
return(0);
}
static int cpDenseSolve(CPodeMem cp_mem, N_Vector b, N_Vector weight,
N_Vector yC, N_Vector ypC, N_Vector fctC)
{
CPDlsMem cpdls_mem;
realtype *bd;
cpdls_mem = (CPDlsMem) lmem;
bd = N_VGetArrayPointer(b);
DenseGETRS(M, pivots, bd);
/* For BDF, scale the correction to account for change in gamma */
if ((lmm_type == CP_BDF) && (gamrat != ONE)) {
N_VScale(TWO/(ONE + gamrat), b, b);
}
last_flag = CPDIRECT_SUCCESS;
return(0);
}
static int KINDenseSolve(KINMem kin_mem, N_Vector x, N_Vector b, realtype *res_norm)
{
KINDenseMem kindense_mem;
realtype *xd;
kindense_mem = (KINDenseMem) lmem;
/* Copy the right-hand side into x */
N_VScale(ONE, b, x);
xd = N_VGetArrayPointer(x);
/* Back-solve and get solution in x */
DenseGETRS(J, pivots, xd);
/* Compute the terms Jpnorm and sfdotJp for use in the global strategy
routines and in KINForcingTerm. Both of these terms are subsequently
corrected if the step is reduced by constraints or the line search.
sJpnorm is the norm of the scaled product (scaled by fscale) of
the current Jacobian matrix J and the step vector p.
sfdotJp is the dot product of the scaled f vector and the scaled
vector J*p, where the scaling uses fscale. */
sJpnorm = N_VWL2Norm(b,fscale);
N_VProd(b, fscale, b);
N_VProd(b, fscale, b);
sfdotJp = N_VDotProd(fval, b);
last_flag = KINDENSE_SUCCESS;
return(0);
}
CAMLprim value c_densematrix_getrs(value va, value vp, value vb)
{
CAMLparam3(va, vp, vb);
DenseGETRS(DLSMAT(va), LONG_ARRAY(vp), REAL_ARRAY(vb));
CAMLreturn (Val_unit);
}
