23 #if defined (HAVE_CONFIG_H) 84 BEGIN_INTERRUPT_WITH_EXCEPTIONS;
93 END_INTERRUPT_WITH_EXCEPTIONS;
101 BEGIN_INTERRUPT_WITH_EXCEPTIONS;
105 result = (*float_user_fcn) (
x);
110 END_INTERRUPT_WITH_EXCEPTIONS;
123 F77_INT leniw = 183*npts - 122;
134 double abs_tol = absolute_tolerance ();
135 double rel_tol = relative_tolerance ();
146 npts, points, abs_tol, rel_tol,
result,
147 abserr, xneval, xier, leniw, lenw, last,
159 (*current_liboctave_error_handler) (
"incorrect integration function called");
199 double abs_tol = absolute_tolerance ();
200 double rel_tol = relative_tolerance ();
211 result, abserr, xneval, xier, leniw, lenw,
212 last, piwork, pwork));
223 (*current_liboctave_error_handler) (
"incorrect integration function called");
229 (*current_liboctave_error_handler) (
"incorrect integration function called");
240 F77_INT leniw = 183*npts - 122;
251 float abs_tol = single_precision_absolute_tolerance ();
252 float rel_tol = single_precision_relative_tolerance ();
263 npts, points, abs_tol, rel_tol,
result,
264 abserr, xneval, xier, leniw, lenw, last,
276 (*current_liboctave_error_handler) (
"incorrect integration function called");
316 float abs_tol = single_precision_absolute_tolerance ();
317 float rel_tol = single_precision_relative_tolerance ();
328 result, abserr, xneval, xier, leniw, lenw,
329 last, piwork, pwork));
static F77_INT float_user_function(const float &x, int &ierr, float &result)
F77_INT(* quad_fcn_ptr)(const double &, int &, double &)
static float_integrand_fcn float_user_fcn
double(* integrand_fcn)(double x)
ColumnVector singularities
subroutine qagi(f, bound, inf, epsabs, epsrel, result, abserr, neval, ier, limit, lenw, last, iwork, work)
const T * fortran_vec(void) const
double do_integrate(octave_idx_type &ier, octave_idx_type &neval, double &abserr)
#define F77_XFCN(f, F, args)
F77_RET_T(F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT &, const F77_INT &, const F77_INT &, F77_INT &, F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, F77_DBLE *, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, F77_INT *, F77_INT &F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL)
OCTAVE_NORETURN double do_integrate(octave_idx_type &ier, octave_idx_type &neval, double &abserr)
F77_INT(* quad_float_fcn_ptr)(const float &, int &, float &)
FloatColumnVector singularities
subroutine qagp(f, a, b, npts2, points, epsabs, epsrel, result, abserr, neval, ier, leniw, lenw, last, iwork, work)
double do_integrate(octave_idx_type &ier, octave_idx_type &neval, double &abserr)
subroutine DQAGI(F, BOUND, INF, EPSABS, EPSREL, RESULT, ABSERR, NEVAL, IER, LIMIT, LENW, LAST, IWORK, WORK)
F77_RET_T F77_FUNC(dqagp, DQAGP)(quad_fcn_ptr
subroutine DQAGP(F, A, B, NPTS2, POINTS, EPSABS, EPSREL, RESULT, ABSERR, NEVAL, IER, LENIW, LENW, LAST, IWORK, WORK)
With real return the complex result
F77_RET_T const F77_DBLE const F77_DBLE const F77_INT const F77_DBLE const F77_DBLE const F77_DBLE F77_DBLE F77_DBLE F77_INT F77_INT const F77_INT const F77_INT F77_INT F77_INT F77_DBLE *F77_RET_T const F77_DBLE const F77_INT const F77_DBLE const F77_DBLE F77_DBLE F77_DBLE F77_INT F77_INT const F77_INT const F77_INT F77_INT F77_INT F77_DBLE *F77_RET_T const F77_REAL const F77_REAL const F77_INT const F77_REAL const F77_REAL const F77_REAL F77_REAL F77_REAL F77_INT F77_INT const F77_INT const F77_INT F77_INT F77_INT F77_REAL *F77_RET_T const F77_REAL const F77_INT const F77_REAL const F77_REAL F77_REAL F77_REAL F77_INT F77_INT const F77_INT const F77_INT F77_INT F77_INT F77_REAL *static F77_INT user_function(const double &x, int &ierr, double &result)
N Dimensional Array with copy-on-write semantics.
octave_f77_int_type F77_INT
float(* float_integrand_fcn)(float x)
static integrand_fcn user_fcn
octave_idx_type numel(void) const
Number of elements in the array.
OCTAVE_NORETURN double do_integrate(octave_idx_type &ier, octave_idx_type &neval, double &abserr)
Vector representing the dimensions (size) of an Array.
F77_RET_T const F77_REAL const F77_REAL F77_REAL &F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE &F77_RET_T const F77_DBLE F77_DBLE &F77_RET_T const F77_REAL F77_REAL &F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE const F77_INT F77_INT & ierr
int quad_integration_error
F77_RET_T const F77_REAL const F77_REAL F77_REAL &F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE &F77_RET_T const F77_DBLE F77_DBLE &F77_RET_T const F77_REAL F77_REAL &F77_RET_T const F77_DBLE * x