Mercurial > hg > octave-nkf

comparison liboctave/Quad.cc @ 11586:12df7854fa7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strip trailing whitespace from source files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 17:24:59 -0500
parents 57632dea2446
children 72c96de7a403
comparison
equal deleted inserted replaced
11585:1473d0cf86d2 11586:12df7854fa7c
39 // function, and the user wants us to quit. 39 // function, and the user wants us to quit.
40 int quad_integration_error = 0; 40 int quad_integration_error = 0;
41 41
42 typedef octave_idx_type (*quad_fcn_ptr) (double*, int&, double*); 42 typedef octave_idx_type (*quad_fcn_ptr) (double*, int&, double*);
43 typedef octave_idx_type (*quad_float_fcn_ptr) (float*, int&, float*); 43 typedef octave_idx_type (*quad_float_fcn_ptr) (float*, int&, float*);
44 44
45 extern "C" 45 extern "C"
46 { 46 {
47 F77_RET_T 47 F77_RET_T
48 F77_FUNC (dqagp, DQAGP) (quad_fcn_ptr, const double&, const double&, 48 F77_FUNC (dqagp, DQAGP) (quad_fcn_ptr, const double&, const double&,
49 const octave_idx_type&, const double*, 49 const octave_idx_type&, const double*,
56 F77_FUNC (dqagi, DQAGI) (quad_fcn_ptr, const double&, 56 F77_FUNC (dqagi, DQAGI) (quad_fcn_ptr, const double&,
57 const octave_idx_type&, const double&, 57 const octave_idx_type&, const double&,
58 const double&, double&, double&, 58 const double&, double&, double&,
59 octave_idx_type&, octave_idx_type&, 59 octave_idx_type&, octave_idx_type&,
60 const octave_idx_type&, const octave_idx_type&, 60 const octave_idx_type&, const octave_idx_type&,
61 octave_idx_type&, octave_idx_type*, double*); 61 octave_idx_type&, octave_idx_type*, double*);
62 62
63 F77_RET_T 63 F77_RET_T
64 F77_FUNC (qagp, QAGP) (quad_float_fcn_ptr, const float&, const float&, 64 F77_FUNC (qagp, QAGP) (quad_float_fcn_ptr, const float&, const float&,
65 const octave_idx_type&, const float*, const float&, 65 const octave_idx_type&, const float*, const float&,
66 const float&, float&, float&, octave_idx_type&, 66 const float&, float&, float&, octave_idx_type&,
72 F77_FUNC (qagi, QAGI) (quad_float_fcn_ptr, const float&, 72 F77_FUNC (qagi, QAGI) (quad_float_fcn_ptr, const float&,
73 const octave_idx_type&, const float&, 73 const octave_idx_type&, const float&,
74 const float&, float&, float&, octave_idx_type&, 74 const float&, float&, float&, octave_idx_type&,
75 octave_idx_type&, const octave_idx_type&, 75 octave_idx_type&, const octave_idx_type&,
76 const octave_idx_type&, octave_idx_type&, 76 const octave_idx_type&, octave_idx_type&,
77 octave_idx_type*, float*); 77 octave_idx_type*, float*);
78 } 78 }
79 79
80 static octave_idx_type 80 static octave_idx_type
81 user_function (double *x, int& ierr, double *result) 81 user_function (double *x, int& ierr, double *result)
82 { 82 {