Mercurial > hg > octave-lyh

comparison liboctave/Quad.cc @ 11518:141b3fb5cef7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
style fixes
author John W. Eaton <jwe@octave.org>
date Thu, 13 Jan 2011 16:52:30 -0500
parents 12884915a8e4
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
11517:da8e32c99969 11518:141b3fb5cef7
45 45
46 extern "C" 46 extern "C"
47 { 47 {
48 F77_RET_T 48 F77_RET_T
49 F77_FUNC (dqagp, DQAGP) (quad_fcn_ptr, const double&, const double&, 49 F77_FUNC (dqagp, DQAGP) (quad_fcn_ptr, const double&, const double&,
50 const octave_idx_type&, const double*, const double&, 50 const octave_idx_type&, const double*,
51 const double&, double&, double&, octave_idx_type&, 51 const double&, const double&, double&,
52 octave_idx_type&, const octave_idx_type&, const octave_idx_type&, octave_idx_type&, octave_idx_type*, 52 double&, octave_idx_type&, octave_idx_type&,
53 double*); 53 const octave_idx_type&, const octave_idx_type&,
54 octave_idx_type&, octave_idx_type*, double*);
54 55
55 F77_RET_T 56 F77_RET_T
56 F77_FUNC (dqagi, DQAGI) (quad_fcn_ptr, const double&, const octave_idx_type&, 57 F77_FUNC (dqagi, DQAGI) (quad_fcn_ptr, const double&,
57 const double&, const double&, double&, 58 const octave_idx_type&, const double&,
58 double&, octave_idx_type&, octave_idx_type&, const octave_idx_type&, 59 const double&, double&, double&,
59 const octave_idx_type&, octave_idx_type&, octave_idx_type*, double*); 60 octave_idx_type&, octave_idx_type&,
61 const octave_idx_type&, const octave_idx_type&,
62 octave_idx_type&, octave_idx_type*, double*);
60 63
61 F77_RET_T 64 F77_RET_T
62 F77_FUNC (qagp, QAGP) (quad_float_fcn_ptr, const float&, const float&, 65 F77_FUNC (qagp, QAGP) (quad_float_fcn_ptr, const float&, const float&,
63 const octave_idx_type&, const float*, const float&, 66 const octave_idx_type&, const float*, const float&,
64 const float&, float&, float&, octave_idx_type&, 67 const float&, float&, float&, octave_idx_type&,
65 octave_idx_type&, const octave_idx_type&, const octave_idx_type&, octave_idx_type&, octave_idx_type*, 68 octave_idx_type&, const octave_idx_type&,
66 float*); 69 const octave_idx_type&, octave_idx_type&,
70 octave_idx_type*, float*);
67 71
68 F77_RET_T 72 F77_RET_T
69 F77_FUNC (qagi, QAGI) (quad_float_fcn_ptr, const float&, const octave_idx_type&, 73 F77_FUNC (qagi, QAGI) (quad_float_fcn_ptr, const float&,
70 const float&, const float&, float&, 74 const octave_idx_type&, const float&,
71 float&, octave_idx_type&, octave_idx_type&, const octave_idx_type&, 75 const float&, float&, float&, octave_idx_type&,
72 const octave_idx_type&, octave_idx_type&, octave_idx_type*, float*); 76 octave_idx_type&, const octave_idx_type&,
77 const octave_idx_type&, octave_idx_type&,
78 octave_idx_type*, float*);
73 } 79 }
74 80
75 static octave_idx_type 81 static octave_idx_type
76 user_function (double *x, int& ierr, double *result) 82 user_function (double *x, int& ierr, double *result)
77 { 83 {