mathlib-quadpack.c
1 //! @file mathlib-quadpack.c
2 //
3 //! @section copyright
4 //
5 // This file is part of VIF - vintage fortran compiler.
6 // Copyright 2020-2025 J. Marcel van der Veer <algol68g@xs4all.nl>.
7 //
8 //! @section license
9 //
10 // This program is free software; you can redistribute it and/or modify it
11 // under the terms of the gnu general public license as published by the
12 // free software foundation; either version 3 of the license, or
13 // (at your option) any later version.
14 //
15 // This program is distributed in the hope that it will be useful, but
16 // without any warranty; without even the implied warranty of merchantability
17 // or fitness for a particular purpose. See the GNU general public license for
18 // more details. you should have received a copy of the GNU general public
19 // license along with this program. If not, see <http://www.gnu.org/licenses/>.
20 //
21 //! @Synopsis
22 //
23 //! 73 subprograms from QUADPACK
24
25 // Compiled from Fortran source code by VIF.
26 // Selected subprograms are:
27 //
28 // DQAG DQAWC DQC25C DQK21 DQNG QAGI QAWCE QC25C QK15W QNC79
29 // DQAGE DQAWCE DQC25F DQK31 DQPSRT QAGIE QAWF QC25F QK21 QNG
30 // DQAGI DQAWF DQC25S DQK41 DQWGTC QAGP QAWFE QC25S QK31 QPDOC
31 // DQAGIE DQAWFE DQCHEB DQK51 DQWGTF QAGPE QAWO QCHEB QK41 QPSRT
32 // DQAGP DQAWO DQELG DQK61 DQWGTS QAGS QAWOE QELG QK51 QWGTC
33 // DQAGPE DQAWOE DQK15 DQMOMO QAG QAGSE QAWS QK15 QK61 QWGTF
34 // DQAGS DQAWS DQK15I DQNC79 QAGE QAWC QAWSE QK15I QMOMO QWGTS
35 // DQAGSE DQAWSE DQK15W
36
37 // QUADPACK is a FORTRAN 77 library for numerical integration of one-dimensional functions.
38 // It was included in the SLATEC Common Mathematical Library and is therefore in the public domain.
39 // The individual subprograms are also available on netlib.
40 //
41 // See also:
42 // R. Piessens, E. deDoncker-Kapenga, C. Uberhuber, D. Kahaner
43 // Quadpack: a Subroutine Package for Automatic Integration
44 // Springer Verlag, 1983. Series in Computational Mathematics v.1
45 // 515.43/Q1S 100394Z
46
47 // The license for QUADPACK Fortran source code is:
48 //
49 // The SLATEC Common Mathematical Library was developed at
50 // US government research laboratories and is in the public domain.
51 //
52 // Repository: http://www.netlib.org/slatec/
53 //
54 // The SLATEC common mathematical library is issued by the following
55 //
56 // Air Force Weapons Laboratory, Albuquerque
57 // Lawrence Livermore National Laboratory, Livermore
58 // Los Alamos National Laboratory, Los Alamos
59 // National Institute of Standards and Technology, Washington
60 // National Energy Research Supercomputer Center, Livermore
61 // Oak Ridge National Laboratory, Oak Ridge
62 // Sandia National Laboratories, Albuquerque
63 // Sandia National Laboratories, Livermore
64 //
65 // All questions concerning the distribution of the library should be
66 // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
67 // Argonne, Illinois 60439, and not to the authors of the subprograms.
68 //
69 // * * * * * Notice * * * * *
70 //
71 // This material was prepared as an account of work sponsored by the
72 // United States Government. Neither the United States, nor the
73 // Department of Energy, nor the Department of Defense, nor any of
74 // their employees, nor any of their contractors, subcontractors, or
75 // their employees, makes any warranty, expressed or implied, or
76 // assumes any legal liability or responsibility for the accuracy,
77 // completeness, or usefulness of any information, apparatus, product,
78 // or process disclosed, or represents that its use would not infringe
79 // upon privately owned rights.
80
81 /*
82 Generated by VIF - experimental VIntage Fortran compiler.
83 VIF release 1.2.17
84 */
85 #if defined (__GNUC__)
86 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
87 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
88 #if (__GNUC__ >= 14)
89 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
90 #pragma GCC diagnostic ignored "-Wimplicit-int"
91 #pragma GCC diagnostic ignored "-Wint-conversion"
92 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
93 #endif
94 #else
95 #error VIF requires GCC
96 #endif
131 static CALLS __calls[__ncalls] = {
132 {"dqage", 0}, // subroutine
133 {"dqag", 0}, // subroutine
134 {"dqagie", 0}, // subroutine
135 {"dqagi", 0}, // subroutine
136 {"dqagpe", 0}, // subroutine
137 {"dqagp", 0}, // subroutine
138 {"dqagse", 0}, // subroutine
139 {"dqags", 0}, // subroutine
140 {"dqawce", 0}, // subroutine
141 {"dqawc", 0}, // subroutine
142 {"dqawfe", 0}, // subroutine
143 {"dqawf", 0}, // subroutine
144 {"dqawoe", 0}, // subroutine
145 {"dqawo", 0}, // subroutine
146 {"dqawse", 0}, // subroutine
147 {"dqaws", 0}, // subroutine
148 {"dqc25c", 0}, // subroutine
149 {"dqc25f", 0}, // subroutine
150 {"dqc25s", 0}, // subroutine
151 {"dqcheb", 0}, // subroutine
152 {"dqelg", 0}, // subroutine
153 {"dqk15", 0}, // subroutine
154 {"dqk15i", 0}, // subroutine
155 {"dqk15w", 0}, // subroutine
156 {"dqk21", 0}, // subroutine
157 {"dqk31", 0}, // subroutine
158 {"dqk41", 0}, // subroutine
159 {"dqk51", 0}, // subroutine
160 {"dqk61", 0}, // subroutine
161 {"dqmomo", 0}, // subroutine
162 {"dqnc79", 0}, // subroutine
163 {"dqng", 0}, // subroutine
164 {"dqpsrt", 0}, // subroutine
165 {"dqwgtc", 0}, // real*8 function
166 {"dqwgtf", 0}, // real*8 function
167 {"dqwgts", 0}, // real*8 function
168 {"qage", 0}, // subroutine
169 {"qag", 0}, // subroutine
170 {"qagie", 0}, // subroutine
171 {"qagi", 0}, // subroutine
172 {"qagpe", 0}, // subroutine
173 {"qagp", 0}, // subroutine
174 {"qagse", 0}, // subroutine
175 {"qags", 0}, // subroutine
176 {"qawce", 0}, // subroutine
177 {"qawc", 0}, // subroutine
178 {"qawfe", 0}, // subroutine
179 {"qawf", 0}, // subroutine
180 {"qawoe", 0}, // subroutine
181 {"qawo", 0}, // subroutine
182 {"qawse", 0}, // subroutine
183 {"qaws", 0}, // subroutine
184 {"qc25c", 0}, // subroutine
185 {"qc25f", 0}, // subroutine
186 {"qc25s", 0}, // subroutine
187 {"qcheb", 0}, // subroutine
188 {"qelg", 0}, // subroutine
189 {"qk15", 0}, // subroutine
190 {"qk15i", 0}, // subroutine
191 {"qk15w", 0}, // subroutine
192 {"qk21", 0}, // subroutine
193 {"qk31", 0}, // subroutine
194 {"qk41", 0}, // subroutine
195 {"qk51", 0}, // subroutine
196 {"qk61", 0}, // subroutine
197 {"qmomo", 0}, // subroutine
198 {"qnc79", 0}, // subroutine
199 {"qng", 0}, // subroutine
200 {"qpdoc", 0}, // subroutine
201 {"qpsrt", 0}, // subroutine
202 {"qwgtc", 0}, // real*4 function
203 {"qwgtf", 0}, // real*4 function
204 {"qwgts", 0}, // real*4 function
205 {NULL, 0}
206 };
207
209 key_, int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_,
210 real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
212 key_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_,
213 int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
215 int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_, real_8
216 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
218 real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_
219 last_, int_4 _p_ iwork_, real_8 _p_ work_);
221 epsabs_, real_8 _p_ epsrel_, int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_
222 , real_8 _p_ alist_, real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, real_8 _p_ pts_, int_4 _p_ iord_, int_4
223 _p_ level_, int_4 _p_ ndin_, int_4 _p_ last_);
225 epsabs_, real_8 _p_ epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_
226 , int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
228 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_, real_8 _p_
229 blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
231 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_,
232 int_4 _p_ iwork_, real_8 _p_ work_);
234 epsrel_, int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_,
235 real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
237 epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_,
238 int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
240 _p_ limlst_, int_4 _p_ limit_, int_4 _p_ maxp1_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_
241 ier_, real_8 _p_ rslst_, real_8 _p_ erlst_, int_4 _p_ ierlst_, int_4 _p_ lst_, real_8 _p_ alist_, real_8 _p_ blist_,
242 real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, real_8 _p_ chebmo_);
244 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limlst_, int_4 _p_ lst_, int_4 _p_ leniw_,
245 int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ iwork_, real_8 _p_ work_);
247 epsabs_, real_8 _p_ epsrel_, int_4 _p_ limit_, int_4 _p_ icall_, int_4 _p_ maxp1_, real_8 _p_ result_, real_8 _p_
248 abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ last_, real_8 _p_ alist_, real_8 _p_ blist_, real_8 _p_ rlist_,
249 real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, int_4 _p_ momcom_, real_8 _p_ chebmo_);
251 epsabs_, real_8 _p_ epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_
252 , int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
254 integr_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_
255 neval_, int_4 _p_ ier_, real_8 _p_ alist_, real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_,
256 int_4 _p_ last_);
258 integr_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_
259 ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
261 abserr_, int_4 _p_ krul_, int_4 _p_ neval_);
263 nrmom_, int_4 _p_ maxp1_, int_4 _p_ ksave_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, real_8 _p_
264 resabs_, real_8 _p_ resasc_, int_4 _p_ momcom_, real_8 _p_ chebmo_);
266 , real_8 _p_ beta_, real_8 _p_ ri_, real_8 _p_ rj_, real_8 _p_ rg_, real_8 _p_ rh_, real_8 _p_ result_, real_8 _p_
267 abserr_, real_8 _p_ resasc_, int_4 _p_ integr_, int_4 _p_ nev_);
270 int_4 _p_ nres_);
272 _p_ resabs_, real_8 _p_ resasc_);
274 result_, real_8 _p_ abserr_, real_8 _p_ resabs_, real_8 _p_ resasc_);
276 , int_4 _p_ kp_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_, real_8 _p_
277 resasc_);
279 _p_ resabs_, real_8 _p_ resasc_);
281 _p_ resabs_, real_8 _p_ resasc_);
283 _p_ resabs_, real_8 _p_ resasc_);
285 _p_ resabs_, real_8 _p_ resasc_);
287 _p_ resabs_, real_8 _p_ resasc_);
289 rh_, int_4 _p_ integr_);
291 ierr_, int_4 _p_ k_);
293 result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_);
295 int_4 _p_ iord_, int_4 _p_ nrmax_);
298 integr_);
300 integr_);
302 key_, int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_,
303 real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
305 key_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_,
306 int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
308 int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_, real_4
309 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
311 real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_
312 last_, int_4 _p_ iwork_, real_4 _p_ work_);
314 epsabs_, real_4 _p_ epsrel_, int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_
315 , real_4 _p_ alist_, real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, real_4 _p_ pts_, int_4 _p_ iord_, int_4
316 _p_ level_, int_4 _p_ ndin_, int_4 _p_ last_);
318 epsabs_, real_4 _p_ epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_
319 , int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
321 limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_, real_4 _p_ blist_,
322 real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
324 result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_,
325 int_4 _p_ iwork_, real_4 _p_ work_);
327 epsrel_, int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_,
328 real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
330 epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_,
331 int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
333 _p_ limlst_, int_4 _p_ limit_, int_4 _p_ maxp1_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_
334 ier_, real_4 _p_ rslst_, real_4 _p_ erlst_, int_4 _p_ ierlst_, int_4 _p_ lst_, real_4 _p_ alist_, real_4 _p_ blist_,
335 real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, real_4 _p_ chebmo_);
337 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limlst_, int_4 _p_ lst_, int_4 _p_ leniw_,
338 int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ iwork_, real_4 _p_ work_);
340 epsabs_, real_4 _p_ epsrel_, int_4 _p_ limit_, int_4 _p_ icall_, int_4 _p_ maxp1_, real_4 _p_ result_, real_4 _p_
341 abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ last_, real_4 _p_ alist_, real_4 _p_ blist_, real_4 _p_ rlist_,
342 real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, int_4 _p_ momcom_, real_4 _p_ chebmo_);
344 epsabs_, real_4 _p_ epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_
345 , int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
347 integr_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_
348 neval_, int_4 _p_ ier_, real_4 _p_ alist_, real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_,
349 int_4 _p_ last_);
351 integr_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_
352 ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
354 abserr_, int_4 _p_ krul_, int_4 _p_ neval_);
356 nrmom_, int_4 _p_ maxp1_, int_4 _p_ ksave_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, real_4 _p_
357 resabs_, real_4 _p_ resasc_, int_4 _p_ momcom_, real_4 _p_ chebmo_);
359 real_4 _p_ beta_, real_4 _p_ ri_, real_4 _p_ rj_, real_4 _p_ rg_, real_4 _p_ rh_, real_4 _p_ result_, real_4 _p_
360 abserr_, real_4 _p_ resasc_, int_4 _p_ integr_, int_4 _p_ nev_);
363 int_4 _p_ nres_);
365 resabs_, real_4 _p_ resasc_);
367 result_, real_4 _p_ abserr_, real_4 _p_ resabs_, real_4 _p_ resasc_);
369 int_4 _p_ kp_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_, real_4 _p_
370 resasc_);
372 resabs_, real_4 _p_ resasc_);
374 resabs_, real_4 _p_ resasc_);
376 resabs_, real_4 _p_ resasc_);
378 resabs_, real_4 _p_ resasc_);
380 resabs_, real_4 _p_ resasc_);
382 rh_, int_4 _p_ integr_);
384 ierr_, int_4 _p_ k_);
386 result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_);
389 int_4 _p_ iord_, int_4 _p_ nrmax_);
392 integr_);
394 integr_);
395 int_4 _dqage (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4 _p_ key_,
396 int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_, real_8
397 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
398 { // ** body not listed **
580 }
581
582 int_4 _dqag (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4 _p_ key_,
583 real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_
584 last_, int_4 _p_ iwork_, real_8 _p_ work_)
585 { // ** body not listed **
608 }
609
610 int_4 _dqagie (real_8 (*_f)(), real_8 _p_ bound_, int_4 _p_ inf_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4 _p_
611 limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_, real_8 _p_ blist_,
612 real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
613 { // ** body not listed **
877 }
878
879 int_4 _dqagi (real_8 (*_f)(), real_8 _p_ bound_, int_4 _p_ inf_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, real_8 _p_
880 result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_,
881 int_4 _p_ iwork_, real_8 _p_ work_)
882 { // ** body not listed **
907 }
908
909 int_4 _dqagpe (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, int_4 _p_ npts2_, real_8 _p_ points_, real_8 _p_ epsabs_,
910 real_8 _p_ epsrel_, int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8
911 _p_ alist_, real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, real_8 _p_ pts_, int_4 _p_ iord_, int_4 _p_ level_
912 , int_4 _p_ ndin_, int_4 _p_ last_)
913 { // ** body not listed **
1257 }
1258
1259 int_4 _dqagp (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, int_4 _p_ npts2_, real_8 _p_ points_, real_8 _p_ epsabs_,
1260 real_8 _p_ epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_, int_4
1261 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_)
1262 { // ** body not listed **
1290 }
1291
1292 int_4 _dqagse (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4 _p_ limit_,
1293 real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_, real_8 _p_ blist_, real_8
1294 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
1295 { // ** body not listed **
1551 }
1552
1553 int_4 _dqags (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, real_8 _p_ result_,
1554 real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_
1555 iwork_, real_8 _p_ work_)
1556 { // ** body not listed **
1581 }
1582
1583 int_4 _dqawce (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ epsabs_, real_8 _p_ epsrel_,
1584 int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_, real_8
1585 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
1586 { // ** body not listed **
1719 }
1720
1721 int_4 _dqawc (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ epsabs_, real_8 _p_ epsrel_,
1722 real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_
1723 last_, int_4 _p_ iwork_, real_8 _p_ work_)
1724 { // ** body not listed **
1749 }
1750
1751 int_4 _dqawfe (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ omega_, int_4 _p_ integr_, real_8 _p_ epsabs_, int_4 _p_
1752 limlst_, int_4 _p_ limit_, int_4 _p_ maxp1_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_,
1753 real_8 _p_ rslst_, real_8 _p_ erlst_, int_4 _p_ ierlst_, int_4 _p_ lst_, real_8 _p_ alist_, real_8 _p_ blist_, real_8
1754 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, real_8 _p_ chebmo_)
1755 { // ** body not listed **
1916 }
1917
1918 int_4 _dqawf (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ omega_, int_4 _p_ integr_, real_8 _p_ epsabs_, real_8 _p_
1919 result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limlst_, int_4 _p_ lst_, int_4 _p_ leniw_,
1920 int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ iwork_, real_8 _p_ work_)
1921 { // ** body not listed **
1951 }
1952
1953 int_4 _dqawoe (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ omega_, int_4 _p_ integr_, real_8 _p_ epsabs_,
1954 real_8 _p_ epsrel_, int_4 _p_ limit_, int_4 _p_ icall_, int_4 _p_ maxp1_, real_8 _p_ result_, real_8 _p_ abserr_, int_4
1955 _p_ neval_, int_4 _p_ ier_, int_4 _p_ last_, real_8 _p_ alist_, real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_
1956 , int_4 _p_ iord_, int_4 _p_ nnlog_, int_4 _p_ momcom_, real_8 _p_ chebmo_)
1957 { // ** body not listed **
2265 }
2266
2267 int_4 _dqawo (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ omega_, int_4 _p_ integr_, real_8 _p_ epsabs_,
2268 real_8 _p_ epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_, int_4
2269 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_)
2270 { // ** body not listed **
2298 }
2299
2300 int_4 _dqawse (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ alfa_, real_8 _p_ beta_, int_4 _p_ integr_,
2301 real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_,
2302 int_4 _p_ ier_, real_8 _p_ alist_, real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_
2303 last_)
2304 { // ** body not listed **
2450 }
2451
2452 int_4 _dqaws (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ alfa_, real_8 _p_ beta_, int_4 _p_ integr_,
2453 real_8 _p_ epsabs_, real_8 _p_ epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4
2454 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_)
2455 { // ** body not listed **
2480 }
2481
2482 int_4 _dqc25c (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ result_, real_8 _p_ abserr_,
2483 int_4 _p_ krul_, int_4 _p_ neval_)
2484 { // ** body not listed **
2606 }
2607
2608 int_4 _dqc25f (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ omega_, int_4 _p_ integr_, int_4 _p_ nrmom_,
2609 int_4 _p_ maxp1_, int_4 _p_ ksave_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, real_8 _p_ resabs_,
2610 real_8 _p_ resasc_, int_4 _p_ momcom_, real_8 _p_ chebmo_)
2611 { // ** body not listed **
2832 }
2833
2834 int_4 _dqc25s (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ bl_, real_8 _p_ br_, real_8 _p_ alfa_, real_8
2835 _p_ beta_, real_8 _p_ ri_, real_8 _p_ rj_, real_8 _p_ rg_, real_8 _p_ rh_, real_8 _p_ result_, real_8 _p_ abserr_,
2836 real_8 _p_ resasc_, int_4 _p_ integr_, int_4 _p_ nev_)
2837 { // ** body not listed **
3080 }
3081
3082 int_4 _dqcheb (real_8 _p_ x_, real_8 _p_ fval_, real_8 _p_ cheb12_, real_8 _p_ cheb24_)
3083 { // ** body not listed **
3178 }
3179
3180 int_4 _dqelg (int_4 _p_ n_, real_8 _p_ epstab_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ res3la_, int_4 _p_
3181 nres_)
3182 { // ** body not listed **
3289 }
3290
3291 int_4 _dqk15 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_,
3292 real_8 _p_ resasc_)
3293 { // ** body not listed **
3571 }
3572
3573 int_4 _dqk15i (real_8 (*_f)(), real_8 _p_ boun_, int_4 _p_ inf_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_,
3574 real_8 _p_ abserr_, real_8 _p_ resabs_, real_8 _p_ resasc_)
3575 { // ** body not listed **
3774 }
3775
3776 int_4 _dqk15w (real_8 (*_f)(), real_8 (*_w)(), real_8 _p_ p1_, real_8 _p_ p2_, real_8 _p_ p3_, real_8 _p_ p4_, int_4
3777 _p_ kp_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_, real_8 _p_ resasc_)
3778 { // ** body not listed **
3955 }
3956 int_4 _dqk21 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_,
3957 real_8 _p_ resasc_)
3958 { // ** body not listed **
4313 }
4314
4315 int_4 _dqk31 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_,
4316 real_8 _p_ resasc_)
4317 { // ** body not listed **
4817 }
4818
4819 int_4 _dqk41 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_,
4820 real_8 _p_ resasc_)
4821 { // ** body not listed **
5454 }
5455
5456 int_4 _dqk51 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_,
5457 real_8 _p_ resasc_)
5458 { // ** body not listed **
6236 }
6237
6238 int_4 _dqk61 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_,
6239 real_8 _p_ resasc_)
6240 { // ** body not listed **
7151 }
7152
7153 int_4 _dqmomo (real_8 _p_ alfa_, real_8 _p_ beta_, real_8 _p_ ri_, real_8 _p_ rj_, real_8 _p_ rg_, real_8 _p_ rh_,
7154 int_4 _p_ integr_)
7155 { // ** body not listed **
7219 }
7220
7221 int_4 _dqnc79 (real_8 (*_fun)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ err_, real_8 _p_ ans_, int_4 _p_ ierr_, int_4
7222 _p_ k_)
7223 { // ** body not listed **
7458 }
7459
7460 int_4 _dqng (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, real_8 _p_ result_,
7461 real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_)
7462 { // ** body not listed **
8968 }
8969
8970 int_4 _dqpsrt (int_4 _p_ limit_, int_4 _p_ last_, int_4 _p_ maxerr_, real_8 _p_ ermax_, real_8 _p_ elist_, int_4 _p_
8971 iord_, int_4 _p_ nrmax_)
8972 { // ** body not listed **
9037 }
9038
9039 real_8 _dqwgtc (real_8 _p_ x_, real_8 _p_ c_, real_8 _p_ p2_, real_8 _p_ p3_, real_8 _p_ p4_, int_4 _p_ kp_)
9040 { // ** body not listed **
9045 }
9046
9047 real_8 _dqwgtf (real_8 _p_ x_, real_8 _p_ omega_, real_8 _p_ p2_, real_8 _p_ p3_, real_8 _p_ p4_, int_4 _p_ integr_)
9048 { // ** body not listed **
9065 }
9066
9067 real_8 _dqwgts (real_8 _p_ x_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ alfa_, real_8 _p_ beta_, int_4 _p_ integr_)
9068 { // ** body not listed **
9092 }
9093
9094 int_4 _qage (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, int_4 _p_ key_,
9095 int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_, real_4
9096 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
9097 { // ** body not listed **
9279 }
9280
9281 int_4 _qag (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, int_4 _p_ key_,
9282 real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_
9283 last_, int_4 _p_ iwork_, real_4 _p_ work_)
9284 { // ** body not listed **
9307 }
9308
9309 int_4 _qagie (real_4 (*_f)(), real_4 _p_ bound_, int_4 _p_ inf_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, int_4 _p_
9310 limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_, real_4 _p_ blist_,
9311 real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
9312 { // ** body not listed **
9576 }
9577
9578 int_4 _qagi (real_4 (*_f)(), real_4 _p_ bound_, int_4 _p_ inf_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, real_4 _p_
9579 result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_,
9580 int_4 _p_ iwork_, real_4 _p_ work_)
9581 { // ** body not listed **
9606 }
9607
9608 int_4 _qagpe (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ npts2_, real_4 _p_ points_, real_4 _p_ epsabs_,
9609 real_4 _p_ epsrel_, int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4
9610 _p_ alist_, real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, real_4 _p_ pts_, int_4 _p_ iord_, int_4 _p_ level_
9611 , int_4 _p_ ndin_, int_4 _p_ last_)
9612 { // ** body not listed **
9956 }
9957
9958 int_4 _qagp (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ npts2_, real_4 _p_ points_, real_4 _p_ epsabs_,
9959 real_4 _p_ epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_, int_4
9960 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_)
9961 { // ** body not listed **
9989 }
9990
9991 int_4 _qagse (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, int_4 _p_ limit_,
9992 real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_, real_4 _p_ blist_, real_4
9993 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
9994 { // ** body not listed **
10250 }
10251
10252 int_4 _qags (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, real_4 _p_ result_,
10253 real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_
10254 iwork_, real_4 _p_ work_)
10255 { // ** body not listed **
10280 }
10281
10282 int_4 _qawce (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ epsabs_, real_4 _p_ epsrel_,
10283 int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_, real_4
10284 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
10285 { // ** body not listed **
10418 }
10419
10420 int_4 _qawc (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ epsabs_, real_4 _p_ epsrel_,
10421 real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_
10422 last_, int_4 _p_ iwork_, real_4 _p_ work_)
10423 { // ** body not listed **
10448 }
10449
10450 int_4 _qawfe (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ omega_, int_4 _p_ integr_, real_4 _p_ epsabs_, int_4 _p_
10451 limlst_, int_4 _p_ limit_, int_4 _p_ maxp1_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_,
10452 real_4 _p_ rslst_, real_4 _p_ erlst_, int_4 _p_ ierlst_, int_4 _p_ lst_, real_4 _p_ alist_, real_4 _p_ blist_, real_4
10453 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, real_4 _p_ chebmo_)
10454 { // ** body not listed **
10613 }
10614
10615 int_4 _qawf (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ omega_, int_4 _p_ integr_, real_4 _p_ epsabs_, real_4 _p_
10616 result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limlst_, int_4 _p_ lst_, int_4 _p_ leniw_,
10617 int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ iwork_, real_4 _p_ work_)
10618 { // ** body not listed **
10648 }
10649
10650 int_4 _qawoe (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ omega_, int_4 _p_ integr_, real_4 _p_ epsabs_,
10651 real_4 _p_ epsrel_, int_4 _p_ limit_, int_4 _p_ icall_, int_4 _p_ maxp1_, real_4 _p_ result_, real_4 _p_ abserr_, int_4
10652 _p_ neval_, int_4 _p_ ier_, int_4 _p_ last_, real_4 _p_ alist_, real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_
10653 , int_4 _p_ iord_, int_4 _p_ nnlog_, int_4 _p_ momcom_, real_4 _p_ chebmo_)
10654 { // ** body not listed **
10962 }
10963
10964 int_4 _qawo (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ omega_, int_4 _p_ integr_, real_4 _p_ epsabs_,
10965 real_4 _p_ epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_, int_4
10966 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_)
10967 { // ** body not listed **
10995 }
10996
10997 int_4 _qawse (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ alfa_, real_4 _p_ beta_, int_4 _p_ integr_,
10998 real_4 _p_ epsabs_, real_4 _p_ epsrel_, int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_,
10999 int_4 _p_ ier_, real_4 _p_ alist_, real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_
11000 last_)
11001 { // ** body not listed **
11145 }
11146
11147 int_4 _qaws (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ alfa_, real_4 _p_ beta_, int_4 _p_ integr_,
11148 real_4 _p_ epsabs_, real_4 _p_ epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4
11149 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_)
11150 { // ** body not listed **
11175 }
11176
11177 int_4 _qc25c (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ result_, real_4 _p_ abserr_,
11178 int_4 _p_ krul_, int_4 _p_ neval_)
11179 { // ** body not listed **
11301 }
11302
11303 int_4 _qc25f (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ omega_, int_4 _p_ integr_, int_4 _p_ nrmom_,
11304 int_4 _p_ maxp1_, int_4 _p_ ksave_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, real_4 _p_ resabs_,
11305 real_4 _p_ resasc_, int_4 _p_ momcom_, real_4 _p_ chebmo_)
11306 { // ** body not listed **
11527 }
11528
11529 int_4 _qc25s (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ bl_, real_4 _p_ br_, real_4 _p_ alfa_, real_4
11530 _p_ beta_, real_4 _p_ ri_, real_4 _p_ rj_, real_4 _p_ rg_, real_4 _p_ rh_, real_4 _p_ result_, real_4 _p_ abserr_,
11531 real_4 _p_ resasc_, int_4 _p_ integr_, int_4 _p_ nev_)
11532 { // ** body not listed **
11775 }
11776
11777 int_4 _qcheb (real_4 _p_ x_, real_4 _p_ fval_, real_4 _p_ cheb12_, real_4 _p_ cheb24_)
11778 { // ** body not listed **
11873 }
11874
11875 int_4 _qelg (int_4 _p_ n_, real_4 _p_ epstab_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ res3la_, int_4 _p_
11876 nres_)
11877 { // ** body not listed **
11984 }
11985
11986 int_4 _qk15 (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_,
11987 real_4 _p_ resasc_)
11988 { // ** body not listed **
12162 }
12163
12164 int_4 _qk15i (real_4 (*_f)(), real_4 _p_ boun_, int_4 _p_ inf_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_,
12165 real_4 _p_ abserr_, real_4 _p_ resabs_, real_4 _p_ resasc_)
12166 { // ** body not listed **
12365 }
12366
12367 int_4 _qk15w (real_4 (*_f)(), real_4 (*_w)(), real_4 _p_ p1_, real_4 _p_ p2_, real_4 _p_ p3_, real_4 _p_ p4_, int_4 _p_
12368 kp_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_, real_4 _p_ resasc_)
12369 { // ** body not listed **
12546 }
12547 int_4 _qk21 (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_,
12548 real_4 _p_ resasc_)
12549 { // ** body not listed **
12758 }
12759
12760 int_4 _qk31 (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_,
12761 real_4 _p_ resasc_)
12762 { // ** body not listed **
13036 }
13037
13038 int_4 _qk41 (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_,
13039 real_4 _p_ resasc_)
13040 { // ** body not listed **
13374 }
13375
13376 int_4 _qk51 (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_,
13377 real_4 _p_ resasc_)
13378 { // ** body not listed **
13789 }
13790
13791 int_4 _qk61 (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_,
13792 real_4 _p_ resasc_)
13793 { // ** body not listed **
14282 }
14283
14284 int_4 _qmomo (real_4 _p_ alfa_, real_4 _p_ beta_, real_4 _p_ ri_, real_4 _p_ rj_, real_4 _p_ rg_, real_4 _p_ rh_, int_4
14285 _p_ integr_)
14286 { // ** body not listed **
14350 }
14351
14352 int_4 _qnc79 (real_4 (*_fun)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ err_, real_4 _p_ ans_, int_4 _p_ ierr_, int_4
14353 _p_ k_)
14354 { // ** body not listed **
14589 }
14590
14591 int_4 _qng (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, real_4 _p_ result_,
14592 real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_)
14593 { // ** body not listed **
15402 }
15403
15404 int_4 _qpdoc (void)
15405 { // ** body not listed **
15408 }
15409
15410 int_4 _qpsrt (int_4 _p_ limit_, int_4 _p_ last_, int_4 _p_ maxerr_, real_4 _p_ ermax_, real_4 _p_ elist_, int_4 _p_
15411 iord_, int_4 _p_ nrmax_)
15412 { // ** body not listed **
15477 }
15478
15479 real_4 _qwgtc (real_4 _p_ x_, real_4 _p_ c_, real_4 _p_ p2_, real_4 _p_ p3_, real_4 _p_ p4_, int_4 _p_ kp_)
15480 { // ** body not listed **
15485 }
15486
15487 real_4 _qwgtf (real_4 _p_ x_, real_4 _p_ omega_, real_4 _p_ p2_, real_4 _p_ p3_, real_4 _p_ p4_, int_4 _p_ integr_)
15488 { // ** body not listed **
15505 }
15506
15507 real_4 _qwgts (real_4 _p_ x_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ alfa_, real_4 _p_ beta_, int_4 _p_ integr_)
15508 { // ** body not listed **
15532 }
15533
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|