Blame ode-initval2/odeiv_util.h

Packit 67cb25
#define DBL_MEMCPY(dest,src,n) memcpy((dest),(src),(n)*sizeof(double))
Packit 67cb25
#define DBL_ZERO_MEMSET(dest,n) memset((dest),0,(n)*sizeof(double))
Packit 67cb25
Packit 67cb25
/* Error estimation safety coefficient for methods that use step
Packit 67cb25
 * doubling for error estimates. Error estimates are multiplied by
Packit 67cb25
 * this constant to ensure that the error of a step is not
Packit 67cb25
 * underestimated. 
Packit 67cb25
 *
Packit 67cb25
 * The default safety value of 8.0 ensures 90% of samples lie within
Packit 67cb25
 * the error (assuming a Gaussian distribution with prior 
Packit 67cb25
 * p(sigma) = 1 / sigma). Value of 1.0 conforms to equation 
Packit 67cb25
 * by Ascher and Petzold (reference: Ascher, U.M., Petzold, L.R.,
Packit 67cb25
 * Computer methods for ordinary differential and
Packit 67cb25
 * differential-algebraic equations, SIAM, Philadelphia, 1998).
Packit 67cb25
 */
Packit 67cb25
Packit 67cb25
#define ODEIV_ERR_SAFETY 8.0