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 //! Subprograms from QUADPACK
24
25 // Compiled from Fortran source code by VIF.
26
27 // QUADPACK is a FORTRAN 77 library for numerical integration of one-dimensional functions.
28 // It was included in the SLATEC Common Mathematical Library and is therefore in the public domain.
29 // The individual subprograms are also available on netlib.
30 //
31 // See also:
32 // R. Piessens, E. deDoncker-Kapenga, C. Uberhuber, D. Kahaner
33 // Quadpack: a Subroutine Package for Automatic Integration
34 // Springer Verlag, 1983. Series in Computational Mathematics v.1
35 // 515.43/Q1S 100394Z
36
37 // The license for QUADPACK Fortran source code is:
38 //
39 // The SLATEC Common Mathematical Library was developed at
40 // US government research laboratories and is in the public domain.
41 //
42 // Repository: http://www.netlib.org/slatec/
43 //
44 // The SLATEC common mathematical library is issued by the following
45 //
46 // Air Force Weapons Laboratory, Albuquerque
47 // Lawrence Livermore National Laboratory, Livermore
48 // Los Alamos National Laboratory, Los Alamos
49 // National Institute of Standards and Technology, Washington
50 // National Energy Research Supercomputer Center, Livermore
51 // Oak Ridge National Laboratory, Oak Ridge
52 // Sandia National Laboratories, Albuquerque
53 // Sandia National Laboratories, Livermore
54 //
55 // All questions concerning the distribution of the library should be
56 // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
57 // Argonne, Illinois 60439, and not to the authors of the subprograms.
58 //
59 // * * * * * Notice * * * * *
60 //
61 // This material was prepared as an account of work sponsored by the
62 // United States Government. Neither the United States, nor the
63 // Department of Energy, nor the Department of Defense, nor any of
64 // their employees, nor any of their contractors, subcontractors, or
65 // their employees, makes any warranty, expressed or implied, or
66 // assumes any legal liability or responsibility for the accuracy,
67 // completeness, or usefulness of any information, apparatus, product,
68 // or process disclosed, or represents that its use would not infringe
69 // upon privately owned rights.
70
71 // VIF THU 20 NOV 2025 22:21:12 ** MARCEL ** QUADPACK PAGE 00001
72
73
74
75 // M M A RRRRRR CCCCC EEEEEEE L
76 // MM MM A A R R C C E L
77 // M M M M A A R R C E L
78 // M M M A A RRRRRR C EEEEE L
79 // M M AAAAAAA R R C E L
80 // M M A A R R C C E L
81 // M M A A R R CCCCC EEEEEEE LLLLLLL
82
83 // QQQQQ U U A DDDDDD PPPPPP A CCCCC K K
84 // Q Q U U A A D D P P A A C C K K
85 // Q Q U U A A D D P P A A C K K
86 // Q Q U U A A D D PPPPPP A A C KKK
87 // Q Q Q U U AAAAAAA D D P AAAAAAA C K K
88 // Q Q U U A A D D P A A C C K K
89 // QQQQ Q UUUUU A A DDDDDD P A A CCCCC K K
90
91
92
93
94 // VIF THU 20 NOV 2025 22:21:12 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
95
96 // ** linker ** object size 954472 bytes
97 // ** statistics ** 73 subprograms, no errors, no warnings
98
99
100 // VIF THU 20 NOV 2025 22:21:12 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
101
102
103 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
104
105
106
107 // VIF THU 20 NOV 2025 22:21:12 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
108
109 /*
110 Generated by VIF - experimental VIntage Fortran compiler.
111 VIF release 1.4.1
112 */
113
114 #if defined (__GNUC__)
115 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
116 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
117 #if (__GNUC__ >= 14)
118 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
119 #pragma GCC diagnostic ignored "-Wimplicit-int"
120 #pragma GCC diagnostic ignored "-Wint-conversion"
121 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
122 #endif
123 #else
124 #error VIF requires GCC
125 #endif
126
127 #include <vif.h>
128
129 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
130
131
132 #define _dc_0 "slatec"
133 #define _dc_1 "dqag"
134 #define _dc_2 "abnormal return"
135 #define _dc_3 "dqagi"
136 #define _dc_4 "dqagp"
137 #define _dc_5 "dqags"
138 #define _dc_6 "dqawc"
139 #define _dc_7 "dqawf"
140 #define _dc_8 "dqawo"
141 #define _dc_9 "dqaws"
142 #define _dc_10 "dqnc79"
143 #define _dc_11 "ans is probably insufficiently accurate."
144 #define _dc_12 "a and b are too nearly equal to allow normal integration. $$"
145 #define _dc_13 "ans is set to zero and ierr to -1."
146 #define _dc_14 "dqng"
147 #define _dc_15 "qag"
148 #define _dc_16 "qagi"
149 #define _dc_17 "qagp"
150 #define _dc_18 "qags"
151 #define _dc_19 "qawc"
152 #define _dc_20 "qawf"
153 #define _dc_21 "qawo"
154 #define _dc_22 "qaws"
155 #define _dc_23 "qnc79"
156 #define _dc_24 "qng"
157
158
159
160 // VIF THU 20 NOV 2025 22:21:12 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00005
161
162 static FORMAT *__fmt_a = NULL;
163 typedef char char_3[4];
164 typedef char char_7[8];
165 typedef char char_15[16];
166 typedef char char_63[64];
167 typedef char char_127[128];
168
169
170 // VIF THU 20 NOV 2025 22:21:12 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00006
171
172 #define __ncalls 74
173 static CALLS __calls[__ncalls] = {
174 { // ** body not listed **"dqage", 0}, // subroutine
176 { // ** body not listed **"dqagie", 0}, // subroutine
178 { // ** body not listed **"dqagpe", 0}, // subroutine
180 { // ** body not listed **"dqagse", 0}, // subroutine
182 { // ** body not listed **"dqawce", 0}, // subroutine
184 { // ** body not listed **"dqawfe", 0}, // subroutine
186 { // ** body not listed **"dqawoe", 0}, // subroutine
188 { // ** body not listed **"dqawse", 0}, // subroutine
190 { // ** body not listed **"dqc25c", 0}, // subroutine
192 { // ** body not listed **"dqc25s", 0}, // subroutine
194 { // ** body not listed **"dqelg", 0}, // subroutine
196 { // ** body not listed **"dqk15i", 0}, // subroutine
198 { // ** body not listed **"dqk21", 0}, // subroutine
200 { // ** body not listed **"dqk41", 0}, // subroutine
202 { // ** body not listed **"dqk61", 0}, // subroutine
204 { // ** body not listed **"dqnc79", 0}, // subroutine
206 { // ** body not listed **"dqpsrt", 0}, // subroutine
208 { // ** body not listed **"dqwgtf", 0}, // real*8 function
210 { // ** body not listed **"qage", 0}, // subroutine
212 { // ** body not listed **"qagie", 0}, // subroutine
214 { // ** body not listed **"qagpe", 0}, // subroutine
216 { // ** body not listed **"qagse", 0}, // subroutine
218 { // ** body not listed **"qawce", 0}, // subroutine
220 { // ** body not listed **"qawfe", 0}, // subroutine
224 { // ** body not listed **"qawoe", 0}, // subroutine
226 { // ** body not listed **"qawse", 0}, // subroutine
228 { // ** body not listed **"qc25c", 0}, // subroutine
230 { // ** body not listed **"qc25s", 0}, // subroutine
232 { // ** body not listed **"qelg", 0}, // subroutine
234 { // ** body not listed **"qk15i", 0}, // subroutine
236 { // ** body not listed **"qk21", 0}, // subroutine
238 { // ** body not listed **"qk41", 0}, // subroutine
240 { // ** body not listed **"qk61", 0}, // subroutine
242 { // ** body not listed **"qnc79", 0}, // subroutine
244 { // ** body not listed **"qpdoc", 0}, // subroutine
246 { // ** body not listed **"qwgtc", 0}, // real*4 function
248 { // ** body not listed **"qwgts", 0}, // real*4 function
250 };
251
252
253
254 // VIF THU 20 NOV 2025 22:21:12 ** GLOBAL SCOPE ** COMMON BLOCKS PAGE 00008
255
256
257
258 // VIF THU 20 NOV 2025 22:21:12 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00009
259
260
261 prototype 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_
262 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_,
263 real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
264 prototype 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_
265 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_,
266 int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
267 prototype int_4 _dqagie (real_8 (*_f)(), real_8 _p_ bound_, int_4 _p_ inf_, real_8 _p_ epsabs_, real_8 _p_ epsrel_,
268 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
269 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
270 prototype int_4 _dqagi (real_8 (*_f)(), real_8 _p_ bound_, int_4 _p_ inf_, real_8 _p_ epsabs_, real_8 _p_ epsrel_,
271 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_
272 last_, int_4 _p_ iwork_, real_8 _p_ work_);
273 prototype 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_
274 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_
275 , 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
276 _p_ level_, int_4 _p_ ndin_, int_4 _p_ last_);
277 prototype 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_
278 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_
279 , int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
280 prototype int_4 _dqagse (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4
281 _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_
282 blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
283 prototype int_4 _dqags (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, real_8
284 _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_,
285 int_4 _p_ iwork_, real_8 _p_ work_);
286 prototype 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_
287 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_,
288 real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
289 prototype 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_
290 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_,
291 int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
292 prototype int_4 _dqawfe (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ omega_, int_4 _p_ integr_, real_8 _p_ epsabs_, int_4
293 _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_
294 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_,
295 real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, real_8 _p_ chebmo_);
296 prototype int_4 _dqawf (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ omega_, int_4 _p_ integr_, real_8 _p_ epsabs_, real_8
297 _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_,
298 int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ iwork_, real_8 _p_ work_);
299 prototype 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_
300 epsabs_, real_8 _p_ epsrel_, int_4 _p_ limit_, int_4 _p_ icall_, int_4 _p_ maxp1_, real_8 _p_ result_, real_8 _p_
301 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_,
302 real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, int_4 _p_ momcom_, real_8 _p_ chebmo_);
303 prototype 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_
304 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_
305 , int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
306 prototype 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_
307 integr_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_
308 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_,
309 int_4 _p_ last_);
310 // VIF THU 20 NOV 2025 22:21:12 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00010
311
312 prototype 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_
313 integr_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_
314 ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
315 prototype 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_
316 abserr_, int_4 _p_ krul_, int_4 _p_ neval_);
317 prototype 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_
318 nrmom_, int_4 _p_ maxp1_, int_4 _p_ ksave_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, real_8 _p_
319 resabs_, real_8 _p_ resasc_, int_4 _p_ momcom_, real_8 _p_ chebmo_);
320 prototype 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_
321 , 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_
322 abserr_, real_8 _p_ resasc_, int_4 _p_ integr_, int_4 _p_ nev_);
323 prototype int_4 _dqcheb (real_8 _p_ x_, real_8 _p_ fval_, real_8 _p_ cheb12_, real_8 _p_ cheb24_);
324 prototype int_4 _dqelg (int_4 _p_ n_, real_8 _p_ epstab_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ res3la_,
325 int_4 _p_ nres_);
326 prototype int_4 _dqk15 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8
327 _p_ resabs_, real_8 _p_ resasc_);
328 prototype 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_
329 result_, real_8 _p_ abserr_, real_8 _p_ resabs_, real_8 _p_ resasc_);
330 prototype 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_
331 , 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_
332 resasc_);
333 prototype int_4 _dqk21 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8
334 _p_ resabs_, real_8 _p_ resasc_);
335 prototype int_4 _dqk31 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8
336 _p_ resabs_, real_8 _p_ resasc_);
337 prototype int_4 _dqk41 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8
338 _p_ resabs_, real_8 _p_ resasc_);
339 prototype int_4 _dqk51 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8
340 _p_ resabs_, real_8 _p_ resasc_);
341 prototype int_4 _dqk61 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8
342 _p_ resabs_, real_8 _p_ resasc_);
343 prototype 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_
344 rh_, int_4 _p_ integr_);
345 prototype 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_
346 ierr_, int_4 _p_ k_);
347 prototype 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_
348 result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_);
349 prototype int_4 _dqpsrt (int_4 _p_ limit_, int_4 _p_ last_, int_4 _p_ maxerr_, real_8 _p_ ermax_, real_8 _p_ elist_,
350 int_4 _p_ iord_, int_4 _p_ nrmax_);
351 prototype 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_);
352 prototype 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_
353 integr_);
354 prototype 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_
355 integr_);
356 prototype 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_
357 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_,
358 real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
359 prototype 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_
360 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_,
361 int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
362 // VIF THU 20 NOV 2025 22:21:12 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00011
363
364 prototype int_4 _qagie (real_4 (*_f)(), real_4 _p_ bound_, int_4 _p_ inf_, real_4 _p_ epsabs_, real_4 _p_ epsrel_,
365 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
366 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
367 prototype int_4 _qagi (real_4 (*_f)(), real_4 _p_ bound_, int_4 _p_ inf_, real_4 _p_ epsabs_, real_4 _p_ epsrel_,
368 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_
369 last_, int_4 _p_ iwork_, real_4 _p_ work_);
370 prototype 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_
371 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_
372 , 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
373 _p_ level_, int_4 _p_ ndin_, int_4 _p_ last_);
374 prototype 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_
375 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_
376 , int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
377 prototype 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_
378 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_,
379 real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
380 prototype 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_
381 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_,
382 int_4 _p_ iwork_, real_4 _p_ work_);
383 prototype 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_
384 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_,
385 real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
386 prototype 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_
387 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_,
388 int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
389 prototype int_4 _qawfe (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ omega_, int_4 _p_ integr_, real_4 _p_ epsabs_, int_4
390 _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_
391 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_,
392 real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, real_4 _p_ chebmo_);
393 prototype int_4 _qawf (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ omega_, int_4 _p_ integr_, real_4 _p_ epsabs_, real_4
394 _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_,
395 int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ iwork_, real_4 _p_ work_);
396 prototype 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_
397 epsabs_, real_4 _p_ epsrel_, int_4 _p_ limit_, int_4 _p_ icall_, int_4 _p_ maxp1_, real_4 _p_ result_, real_4 _p_
398 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_,
399 real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, int_4 _p_ momcom_, real_4 _p_ chebmo_);
400 prototype 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_
401 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_
402 , int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
403 prototype 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_
404 integr_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_
405 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_,
406 int_4 _p_ last_);
407 prototype 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_
408 integr_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_
409 ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
410 prototype 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_
411 abserr_, int_4 _p_ krul_, int_4 _p_ neval_);
412 prototype 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_
413 nrmom_, int_4 _p_ maxp1_, int_4 _p_ ksave_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, real_4 _p_
414 // VIF THU 20 NOV 2025 22:21:12 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00012
415
416 resabs_, real_4 _p_ resasc_, int_4 _p_ momcom_, real_4 _p_ chebmo_);
417 prototype 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_,
418 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_
419 abserr_, real_4 _p_ resasc_, int_4 _p_ integr_, int_4 _p_ nev_);
420 prototype int_4 _qcheb (real_4 _p_ x_, real_4 _p_ fval_, real_4 _p_ cheb12_, real_4 _p_ cheb24_);
421 prototype int_4 _qelg (int_4 _p_ n_, real_4 _p_ epstab_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ res3la_,
422 int_4 _p_ nres_);
423 prototype 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_
424 resabs_, real_4 _p_ resasc_);
425 prototype 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_
426 result_, real_4 _p_ abserr_, real_4 _p_ resabs_, real_4 _p_ resasc_);
427 prototype 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_,
428 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_
429 resasc_);
430 prototype 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_
431 resabs_, real_4 _p_ resasc_);
432 prototype 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_
433 resabs_, real_4 _p_ resasc_);
434 prototype 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_
435 resabs_, real_4 _p_ resasc_);
436 prototype 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_
437 resabs_, real_4 _p_ resasc_);
438 prototype 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_
439 resabs_, real_4 _p_ resasc_);
440 prototype 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_
441 rh_, int_4 _p_ integr_);
442 prototype 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_
443 ierr_, int_4 _p_ k_);
444 prototype 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_
445 result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_);
446 prototype int_4 _qpdoc (void);
447 prototype int_4 _qpsrt (int_4 _p_ limit_, int_4 _p_ last_, int_4 _p_ maxerr_, real_4 _p_ ermax_, real_4 _p_ elist_,
448 int_4 _p_ iord_, int_4 _p_ nrmax_);
449 prototype 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_);
450 prototype 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_
451 integr_);
452 prototype 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_
453 integr_);
454
455
456
457
458
459
460
461
462
463
464
465
466 // VIF THU 20 NOV 2025 22:21:12 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00013
467
468
469 // VIF THU 20 NOV 2025 22:21:12 ** DQAGE ** DQAGE PAGE 00014
470
471 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
472 // S S U U B B R R O O U U T I NN N E
473 // S U U B B R R O O U U T I N N N E
474 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
475 // S U U B B R R O O U U T I N N N E
476 // S S U U B B R R O O U U T I N NN E
477 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
478
479 // DDDDDD QQQQQ A GGGGG EEEEEEE
480 // D D Q Q A A G G E
481 // D D Q Q A A G E
482 // D D Q Q A A G GGGG EEEEE
483 // D D Q Q Q AAAAAAA G G E
484 // D D Q Q A A G G E
485 // DDDDDD QQQQ Q A A GGGGG EEEEEEE
486
487
488 // VIF THU 20 NOV 2025 22:21:12 ** DQAGE ** DIAGNOSTICS PAGE 00015
489
490
491 // VIF THU 20 NOV 2025 22:21:12 ** DQAGE ** GENERATED CODE PAGE 00016
492
493 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_,
494 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
495 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
496 { // ** body not listed **
684 }
685
686 // VIF THU 20 NOV 2025 22:21:12 ** DQAG ** DQAG PAGE 00020
687
688 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
689 // S S U U B B R R O O U U T I NN N E
690 // S U U B B R R O O U U T I N N N E
691 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
692 // S U U B B R R O O U U T I N N N E
693 // S S U U B B R R O O U U T I N NN E
694 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
695
696 // DDDDDD QQQQQ A GGGGG
697 // D D Q Q A A G G
698 // D D Q Q A A G
699 // D D Q Q A A G GGGG
700 // D D Q Q Q AAAAAAA G G
701 // D D Q Q A A G G
702 // DDDDDD QQQQ Q A A GGGGG
703
704
705 // VIF THU 20 NOV 2025 22:21:12 ** DQAG ** DIAGNOSTICS PAGE 00021
706
707
708 // VIF THU 20 NOV 2025 22:21:12 ** DQAG ** GENERATED CODE PAGE 00022
709
710 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_,
711 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_
712 last_, int_4 _p_ iwork_, real_8 _p_ work_)
713 { // ** body not listed **
736 }
737
738 // VIF THU 20 NOV 2025 22:21:12 ** DQAGIE ** DQAGIE PAGE 00023
739
740 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
741 // S S U U B B R R O O U U T I NN N E
742 // S U U B B R R O O U U T I N N N E
743 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
744 // S U U B B R R O O U U T I N N N E
745 // S S U U B B R R O O U U T I N NN E
746 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
747
748 // DDDDDD QQQQQ A GGGGG III EEEEEEE
749 // D D Q Q A A G G I E
750 // D D Q Q A A G I E
751 // D D Q Q A A G GGGG I EEEEE
752 // D D Q Q Q AAAAAAA G G I E
753 // D D Q Q A A G G I E
754 // DDDDDD QQQQ Q A A GGGGG III EEEEEEE
755
756
757 // VIF THU 20 NOV 2025 22:21:12 ** DQAGIE ** DIAGNOSTICS PAGE 00024
758
759
760 // VIF THU 20 NOV 2025 22:21:12 ** DQAGIE ** GENERATED CODE PAGE 00025
761
762 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_
763 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_,
764 real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
765 { // ** body not listed **
1039 }
1040
1041 // VIF THU 20 NOV 2025 22:21:12 ** DQAGI ** DQAGI PAGE 00031
1042
1043 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1044 // S S U U B B R R O O U U T I NN N E
1045 // S U U B B R R O O U U T I N N N E
1046 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1047 // S U U B B R R O O U U T I N N N E
1048 // S S U U B B R R O O U U T I N NN E
1049 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1050
1051 // DDDDDD QQQQQ A GGGGG III
1052 // D D Q Q A A G G I
1053 // D D Q Q A A G I
1054 // D D Q Q A A G GGGG I
1055 // D D Q Q Q AAAAAAA G G I
1056 // D D Q Q A A G G I
1057 // DDDDDD QQQQ Q A A GGGGG III
1058
1059
1060 // VIF THU 20 NOV 2025 22:21:12 ** DQAGI ** DIAGNOSTICS PAGE 00032
1061
1062
1063 // VIF THU 20 NOV 2025 22:21:12 ** DQAGI ** GENERATED CODE PAGE 00033
1064
1065 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_
1066 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_,
1067 int_4 _p_ iwork_, real_8 _p_ work_)
1068 { // ** body not listed **
1093 }
1094
1095 // VIF THU 20 NOV 2025 22:21:12 ** DQAGPE ** DQAGPE PAGE 00034
1096
1097 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1098 // S S U U B B R R O O U U T I NN N E
1099 // S U U B B R R O O U U T I N N N E
1100 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1101 // S U U B B R R O O U U T I N N N E
1102 // S S U U B B R R O O U U T I N NN E
1103 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1104
1105 // DDDDDD QQQQQ A GGGGG PPPPPP EEEEEEE
1106 // D D Q Q A A G G P P E
1107 // D D Q Q A A G P P E
1108 // D D Q Q A A G GGGG PPPPPP EEEEE
1109 // D D Q Q Q AAAAAAA G G P E
1110 // D D Q Q A A G G P E
1111 // DDDDDD QQQQ Q A A GGGGG P EEEEEEE
1112
1113
1114 // VIF THU 20 NOV 2025 22:21:12 ** DQAGPE ** DIAGNOSTICS PAGE 00035
1115
1116
1117 // VIF THU 20 NOV 2025 22:21:12 ** DQAGPE ** GENERATED CODE PAGE 00036
1118
1119 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_,
1120 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
1121 _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_
1122 , int_4 _p_ ndin_, int_4 _p_ last_)
1123 { // ** body not listed **
1479 }
1480
1481 // VIF THU 20 NOV 2025 22:21:12 ** DQAGP ** DQAGP PAGE 00043
1482
1483 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1484 // S S U U B B R R O O U U T I NN N E
1485 // S U U B B R R O O U U T I N N N E
1486 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1487 // S U U B B R R O O U U T I N N N E
1488 // S S U U B B R R O O U U T I N NN E
1489 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1490
1491 // DDDDDD QQQQQ A GGGGG PPPPPP
1492 // D D Q Q A A G G P P
1493 // D D Q Q A A G P P
1494 // D D Q Q A A G GGGG PPPPPP
1495 // D D Q Q Q AAAAAAA G G P
1496 // D D Q Q A A G G P
1497 // DDDDDD QQQQ Q A A GGGGG P
1498
1499
1500 // VIF THU 20 NOV 2025 22:21:12 ** DQAGP ** DIAGNOSTICS PAGE 00044
1501
1502
1503 // VIF THU 20 NOV 2025 22:21:12 ** DQAGP ** GENERATED CODE PAGE 00045
1504
1505 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_,
1506 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
1507 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_)
1508 { // ** body not listed **
1536 }
1537
1538 // VIF THU 20 NOV 2025 22:21:12 ** DQAGSE ** DQAGSE PAGE 00046
1539
1540 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1541 // S S U U B B R R O O U U T I NN N E
1542 // S U U B B R R O O U U T I N N N E
1543 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1544 // S U U B B R R O O U U T I N N N E
1545 // S S U U B B R R O O U U T I N NN E
1546 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1547
1548 // DDDDDD QQQQQ A GGGGG SSSSS EEEEEEE
1549 // D D Q Q A A G G S S E
1550 // D D Q Q A A G S E
1551 // D D Q Q A A G GGGG SSSSS EEEEE
1552 // D D Q Q Q AAAAAAA G G S E
1553 // D D Q Q A A G G S S E
1554 // DDDDDD QQQQ Q A A GGGGG SSSSS EEEEEEE
1555
1556
1557 // VIF THU 20 NOV 2025 22:21:12 ** DQAGSE ** DIAGNOSTICS PAGE 00047
1558
1559
1560 // VIF THU 20 NOV 2025 22:21:12 ** DQAGSE ** GENERATED CODE PAGE 00048
1561
1562 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_,
1563 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
1564 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
1565 { // ** body not listed **
1831 }
1832
1833 // VIF THU 20 NOV 2025 22:21:12 ** DQAGS ** DQAGS PAGE 00054
1834
1835 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1836 // S S U U B B R R O O U U T I NN N E
1837 // S U U B B R R O O U U T I N N N E
1838 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1839 // S U U B B R R O O U U T I N N N E
1840 // S S U U B B R R O O U U T I N NN E
1841 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1842
1843 // DDDDDD QQQQQ A GGGGG SSSSS
1844 // D D Q Q A A G G S S
1845 // D D Q Q A A G S
1846 // D D Q Q A A G GGGG SSSSS
1847 // D D Q Q Q AAAAAAA G G S
1848 // D D Q Q A A G G S S
1849 // DDDDDD QQQQ Q A A GGGGG SSSSS
1850
1851
1852 // VIF THU 20 NOV 2025 22:21:12 ** DQAGS ** DIAGNOSTICS PAGE 00055
1853
1854
1855 // VIF THU 20 NOV 2025 22:21:12 ** DQAGS ** GENERATED CODE PAGE 00056
1856
1857 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_,
1858 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_
1859 iwork_, real_8 _p_ work_)
1860 { // ** body not listed **
1885 }
1886
1887 // VIF THU 20 NOV 2025 22:21:12 ** DQAWCE ** DQAWCE PAGE 00057
1888
1889 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1890 // S S U U B B R R O O U U T I NN N E
1891 // S U U B B R R O O U U T I N N N E
1892 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1893 // S U U B B R R O O U U T I N N N E
1894 // S S U U B B R R O O U U T I N NN E
1895 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1896
1897 // DDDDDD QQQQQ A W W CCCCC EEEEEEE
1898 // D D Q Q A A W W C C E
1899 // D D Q Q A A W W C E
1900 // D D Q Q A A W W W C EEEEE
1901 // D D Q Q Q AAAAAAA W W W C E
1902 // D D Q Q A A W W W C C E
1903 // DDDDDD QQQQ Q A A WW WW CCCCC EEEEEEE
1904
1905
1906 // VIF THU 20 NOV 2025 22:21:12 ** DQAWCE ** DIAGNOSTICS PAGE 00058
1907
1908
1909 // VIF THU 20 NOV 2025 22:21:12 ** DQAWCE ** GENERATED CODE PAGE 00059
1910
1911 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_,
1912 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
1913 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
1914 { // ** body not listed **
2051 }
2052
2053 // VIF THU 20 NOV 2025 22:21:12 ** DQAWC ** DQAWC PAGE 00062
2054
2055 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2056 // S S U U B B R R O O U U T I NN N E
2057 // S U U B B R R O O U U T I N N N E
2058 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2059 // S U U B B R R O O U U T I N N N E
2060 // S S U U B B R R O O U U T I N NN E
2061 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2062
2063 // DDDDDD QQQQQ A W W CCCCC
2064 // D D Q Q A A W W C C
2065 // D D Q Q A A W W C
2066 // D D Q Q A A W W W C
2067 // D D Q Q Q AAAAAAA W W W C
2068 // D D Q Q A A W W W C C
2069 // DDDDDD QQQQ Q A A WW WW CCCCC
2070
2071
2072 // VIF THU 20 NOV 2025 22:21:12 ** DQAWC ** DIAGNOSTICS PAGE 00063
2073
2074
2075 // VIF THU 20 NOV 2025 22:21:12 ** DQAWC ** GENERATED CODE PAGE 00064
2076
2077 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_,
2078 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_
2079 last_, int_4 _p_ iwork_, real_8 _p_ work_)
2080 { // ** body not listed **
2105 }
2106
2107 // VIF THU 20 NOV 2025 22:21:12 ** DQAWFE ** DQAWFE PAGE 00065
2108
2109 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2110 // S S U U B B R R O O U U T I NN N E
2111 // S U U B B R R O O U U T I N N N E
2112 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2113 // S U U B B R R O O U U T I N N N E
2114 // S S U U B B R R O O U U T I N NN E
2115 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2116
2117 // DDDDDD QQQQQ A W W FFFFFFF EEEEEEE
2118 // D D Q Q A A W W F E
2119 // D D Q Q A A W W F E
2120 // D D Q Q A A W W W FFFFF EEEEE
2121 // D D Q Q Q AAAAAAA W W W F E
2122 // D D Q Q A A W W W F E
2123 // DDDDDD QQQQ Q A A WW WW F EEEEEEE
2124
2125
2126 // VIF THU 20 NOV 2025 22:21:12 ** DQAWFE ** DIAGNOSTICS PAGE 00066
2127
2128
2129 // VIF THU 20 NOV 2025 22:21:12 ** DQAWFE ** GENERATED CODE PAGE 00067
2130
2131 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_
2132 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_,
2133 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
2134 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, real_8 _p_ chebmo_)
2135 { // ** body not listed **
2304 }
2305
2306 // VIF THU 20 NOV 2025 22:21:12 ** DQAWF ** DQAWF PAGE 00071
2307
2308 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2309 // S S U U B B R R O O U U T I NN N E
2310 // S U U B B R R O O U U T I N N N E
2311 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2312 // S U U B B R R O O U U T I N N N E
2313 // S S U U B B R R O O U U T I N NN E
2314 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2315
2316 // DDDDDD QQQQQ A W W FFFFFFF
2317 // D D Q Q A A W W F
2318 // D D Q Q A A W W F
2319 // D D Q Q A A W W W FFFFF
2320 // D D Q Q Q AAAAAAA W W W F
2321 // D D Q Q A A W W W F
2322 // DDDDDD QQQQ Q A A WW WW F
2323
2324
2325 // VIF THU 20 NOV 2025 22:21:12 ** DQAWF ** DIAGNOSTICS PAGE 00072
2326
2327
2328 // VIF THU 20 NOV 2025 22:21:12 ** DQAWF ** GENERATED CODE PAGE 00073
2329
2330 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_
2331 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_,
2332 int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ iwork_, real_8 _p_ work_)
2333 { // ** body not listed **
2363 }
2364
2365 // VIF THU 20 NOV 2025 22:21:12 ** DQAWOE ** DQAWOE PAGE 00074
2366
2367 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2368 // S S U U B B R R O O U U T I NN N E
2369 // S U U B B R R O O U U T I N N N E
2370 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2371 // S U U B B R R O O U U T I N N N E
2372 // S S U U B B R R O O U U T I N NN E
2373 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2374
2375 // DDDDDD QQQQQ A W W OOOOO EEEEEEE
2376 // D D Q Q A A W W O O E
2377 // D D Q Q A A W W O O E
2378 // D D Q Q A A W W W O O EEEEE
2379 // D D Q Q Q AAAAAAA W W W O O E
2380 // D D Q Q A A W W W O O E
2381 // DDDDDD QQQQ Q A A WW WW OOOOO EEEEEEE
2382
2383
2384 // VIF THU 20 NOV 2025 22:21:12 ** DQAWOE ** DIAGNOSTICS PAGE 00075
2385
2386
2387 // VIF THU 20 NOV 2025 22:21:12 ** DQAWOE ** GENERATED CODE PAGE 00076
2388
2389 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_,
2390 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
2391 _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_
2392 , int_4 _p_ iord_, int_4 _p_ nnlog_, int_4 _p_ momcom_, real_8 _p_ chebmo_)
2393 { // ** body not listed **
2713 }
2714
2715 // VIF THU 20 NOV 2025 22:21:12 ** DQAWO ** DQAWO PAGE 00083
2716
2717 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2718 // S S U U B B R R O O U U T I NN N E
2719 // S U U B B R R O O U U T I N N N E
2720 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2721 // S U U B B R R O O U U T I N N N E
2722 // S S U U B B R R O O U U T I N NN E
2723 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2724
2725 // DDDDDD QQQQQ A W W OOOOO
2726 // D D Q Q A A W W O O
2727 // D D Q Q A A W W O O
2728 // D D Q Q A A W W W O O
2729 // D D Q Q Q AAAAAAA W W W O O
2730 // D D Q Q A A W W W O O
2731 // DDDDDD QQQQ Q A A WW WW OOOOO
2732
2733
2734 // VIF THU 20 NOV 2025 22:21:12 ** DQAWO ** DIAGNOSTICS PAGE 00084
2735
2736
2737 // VIF THU 20 NOV 2025 22:21:12 ** DQAWO ** GENERATED CODE PAGE 00085
2738
2739 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_,
2740 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
2741 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_)
2742 { // ** body not listed **
2770 }
2771
2772 // VIF THU 20 NOV 2025 22:21:12 ** DQAWSE ** DQAWSE PAGE 00086
2773
2774 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2775 // S S U U B B R R O O U U T I NN N E
2776 // S U U B B R R O O U U T I N N N E
2777 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2778 // S U U B B R R O O U U T I N N N E
2779 // S S U U B B R R O O U U T I N NN E
2780 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2781
2782 // DDDDDD QQQQQ A W W SSSSS EEEEEEE
2783 // D D Q Q A A W W S S E
2784 // D D Q Q A A W W S E
2785 // D D Q Q A A W W W SSSSS EEEEE
2786 // D D Q Q Q AAAAAAA W W W S E
2787 // D D Q Q A A W W W S S E
2788 // DDDDDD QQQQ Q A A WW WW SSSSS EEEEEEE
2789
2790
2791 // VIF THU 20 NOV 2025 22:21:12 ** DQAWSE ** DIAGNOSTICS PAGE 00087
2792
2793
2794 // VIF THU 20 NOV 2025 22:21:12 ** DQAWSE ** GENERATED CODE PAGE 00088
2795
2796 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_,
2797 real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_,
2798 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_
2799 last_)
2800 { // ** body not listed **
2952 }
2953
2954 // VIF THU 20 NOV 2025 22:21:12 ** DQAWS ** DQAWS PAGE 00092
2955
2956 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2957 // S S U U B B R R O O U U T I NN N E
2958 // S U U B B R R O O U U T I N N N E
2959 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2960 // S U U B B R R O O U U T I N N N E
2961 // S S U U B B R R O O U U T I N NN E
2962 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2963
2964 // DDDDDD QQQQQ A W W SSSSS
2965 // D D Q Q A A W W S S
2966 // D D Q Q A A W W S
2967 // D D Q Q A A W W W SSSSS
2968 // D D Q Q Q AAAAAAA W W W S
2969 // D D Q Q A A W W W S S
2970 // DDDDDD QQQQ Q A A WW WW SSSSS
2971
2972
2973 // VIF THU 20 NOV 2025 22:21:12 ** DQAWS ** DIAGNOSTICS PAGE 00093
2974
2975
2976 // VIF THU 20 NOV 2025 22:21:12 ** DQAWS ** GENERATED CODE PAGE 00094
2977
2978 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_,
2979 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
2980 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_)
2981 { // ** body not listed **
3006 }
3007
3008 // VIF THU 20 NOV 2025 22:21:12 ** DQC25C ** DQC25C PAGE 00095
3009
3010 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3011 // S S U U B B R R O O U U T I NN N E
3012 // S U U B B R R O O U U T I N N N E
3013 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3014 // S U U B B R R O O U U T I N N N E
3015 // S S U U B B R R O O U U T I N NN E
3016 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3017
3018 // DDDDDD QQQQQ CCCCC 22222 5555555 CCCCC
3019 // D D Q Q C C 2 2 5 C C
3020 // D D Q Q C 2 5 C
3021 // D D Q Q C 22222 55555 C
3022 // D D Q Q Q C 2 5 C
3023 // D D Q Q C C 2 5 5 C C
3024 // DDDDDD QQQQ Q CCCCC 2222222 55555 CCCCC
3025
3026
3027 // VIF THU 20 NOV 2025 22:21:12 ** DQC25C ** DIAGNOSTICS PAGE 00096
3028
3029
3030 // VIF THU 20 NOV 2025 22:21:12 ** DQC25C ** GENERATED CODE PAGE 00097
3031
3032 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_,
3033 int_4 _p_ krul_, int_4 _p_ neval_)
3034 { // ** body not listed **
3171 }
3172
3173 // VIF THU 20 NOV 2025 22:21:12 ** DQC25F ** DQC25F PAGE 00100
3174
3175 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3176 // S S U U B B R R O O U U T I NN N E
3177 // S U U B B R R O O U U T I N N N E
3178 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3179 // S U U B B R R O O U U T I N N N E
3180 // S S U U B B R R O O U U T I N NN E
3181 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3182
3183 // DDDDDD QQQQQ CCCCC 22222 5555555 FFFFFFF
3184 // D D Q Q C C 2 2 5 F
3185 // D D Q Q C 2 5 F
3186 // D D Q Q C 22222 55555 FFFFF
3187 // D D Q Q Q C 2 5 F
3188 // D D Q Q C C 2 5 5 F
3189 // DDDDDD QQQQ Q CCCCC 2222222 55555 F
3190
3191
3192 // VIF THU 20 NOV 2025 22:21:12 ** DQC25F ** DIAGNOSTICS PAGE 00101
3193
3194
3195 // VIF THU 20 NOV 2025 22:21:12 ** DQC25F ** GENERATED CODE PAGE 00102
3196
3197 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_,
3198 int_4 _p_ maxp1_, int_4 _p_ ksave_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, real_8 _p_ resabs_,
3199 real_8 _p_ resasc_, int_4 _p_ momcom_, real_8 _p_ chebmo_)
3200 { // ** body not listed **
3440 }
3441
3442 // VIF THU 20 NOV 2025 22:21:12 ** DQC25S ** DQC25S PAGE 00107
3443
3444 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3445 // S S U U B B R R O O U U T I NN N E
3446 // S U U B B R R O O U U T I N N N E
3447 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3448 // S U U B B R R O O U U T I N N N E
3449 // S S U U B B R R O O U U T I N NN E
3450 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3451
3452 // DDDDDD QQQQQ CCCCC 22222 5555555 SSSSS
3453 // D D Q Q C C 2 2 5 S S
3454 // D D Q Q C 2 5 S
3455 // D D Q Q C 22222 55555 SSSSS
3456 // D D Q Q Q C 2 5 S
3457 // D D Q Q C C 2 5 5 S S
3458 // DDDDDD QQQQ Q CCCCC 2222222 55555 SSSSS
3459
3460
3461 // VIF THU 20 NOV 2025 22:21:12 ** DQC25S ** DIAGNOSTICS PAGE 00108
3462
3463
3464 // VIF THU 20 NOV 2025 22:21:12 ** DQC25S ** GENERATED CODE PAGE 00109
3465
3466 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
3467 _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_,
3468 real_8 _p_ resasc_, int_4 _p_ integr_, int_4 _p_ nev_)
3469 { // ** body not listed **
3733 }
3734
3735 // VIF THU 20 NOV 2025 22:21:12 ** DQCHEB ** DQCHEB PAGE 00115
3736
3737 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3738 // S S U U B B R R O O U U T I NN N E
3739 // S U U B B R R O O U U T I N N N E
3740 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3741 // S U U B B R R O O U U T I N N N E
3742 // S S U U B B R R O O U U T I N NN E
3743 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3744
3745 // DDDDDD QQQQQ CCCCC H H EEEEEEE BBBBBB
3746 // D D Q Q C C H H E B B
3747 // D D Q Q C H H E B B
3748 // D D Q Q C HHHHHHH EEEEE BBBBBB
3749 // D D Q Q Q C H H E B B
3750 // D D Q Q C C H H E B B
3751 // DDDDDD QQQQ Q CCCCC H H EEEEEEE BBBBBB
3752
3753
3754 // VIF THU 20 NOV 2025 22:21:12 ** DQCHEB ** DIAGNOSTICS PAGE 00116
3755
3756
3757 // VIF THU 20 NOV 2025 22:21:12 ** DQCHEB ** GENERATED CODE PAGE 00117
3758
3759 int_4 _dqcheb (real_8 _p_ x_, real_8 _p_ fval_, real_8 _p_ cheb12_, real_8 _p_ cheb24_)
3760 { // ** body not listed **
3857 }
3858
3859 // VIF THU 20 NOV 2025 22:21:12 ** DQELG ** DQELG PAGE 00119
3860
3861 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3862 // S S U U B B R R O O U U T I NN N E
3863 // S U U B B R R O O U U T I N N N E
3864 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3865 // S U U B B R R O O U U T I N N N E
3866 // S S U U B B R R O O U U T I N NN E
3867 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3868
3869 // DDDDDD QQQQQ EEEEEEE L GGGGG
3870 // D D Q Q E L G G
3871 // D D Q Q E L G
3872 // D D Q Q EEEEE L G GGGG
3873 // D D Q Q Q E L G G
3874 // D D Q Q E L G G
3875 // DDDDDD QQQQ Q EEEEEEE LLLLLLL GGGGG
3876
3877
3878 // VIF THU 20 NOV 2025 22:21:12 ** DQELG ** DIAGNOSTICS PAGE 00120
3879
3880
3881 // VIF THU 20 NOV 2025 22:21:12 ** DQELG ** GENERATED CODE PAGE 00121
3882
3883 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_
3884 nres_)
3885 { // ** body not listed **
3996 }
3997
3998 // VIF THU 20 NOV 2025 22:21:12 ** DQK15 ** DQK15 PAGE 00124
3999
4000 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4001 // S S U U B B R R O O U U T I NN N E
4002 // S U U B B R R O O U U T I N N N E
4003 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4004 // S U U B B R R O O U U T I N N N E
4005 // S S U U B B R R O O U U T I N NN E
4006 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4007
4008 // DDDDDD QQQQQ K K 1 5555555
4009 // D D Q Q K K 11 5
4010 // D D Q Q K K 1 1 5
4011 // D D Q Q KKK 1 55555
4012 // D D Q Q Q K K 1 5
4013 // D D Q Q K K 1 5 5
4014 // DDDDDD QQQQ Q K K 11111 55555
4015
4016
4017 // VIF THU 20 NOV 2025 22:21:12 ** DQK15 ** DIAGNOSTICS PAGE 00125
4018
4019
4020 // VIF THU 20 NOV 2025 22:21:12 ** DQK15 ** GENERATED CODE PAGE 00126
4021
4022 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_,
4023 real_8 _p_ resasc_)
4024 { // ** body not listed **
4334 }
4335
4336 // VIF THU 20 NOV 2025 22:21:12 ** DQK15I ** DQK15I PAGE 00133
4337
4338 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4339 // S S U U B B R R O O U U T I NN N E
4340 // S U U B B R R O O U U T I N N N E
4341 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4342 // S U U B B R R O O U U T I N N N E
4343 // S S U U B B R R O O U U T I N NN E
4344 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4345
4346 // DDDDDD QQQQQ K K 1 5555555 III
4347 // D D Q Q K K 11 5 I
4348 // D D Q Q K K 1 1 5 I
4349 // D D Q Q KKK 1 55555 I
4350 // D D Q Q Q K K 1 5 I
4351 // D D Q Q K K 1 5 5 I
4352 // DDDDDD QQQQ Q K K 11111 55555 III
4353
4354
4355 // VIF THU 20 NOV 2025 22:21:12 ** DQK15I ** DIAGNOSTICS PAGE 00134
4356
4357
4358 // VIF THU 20 NOV 2025 22:21:12 ** DQK15I ** GENERATED CODE PAGE 00135
4359
4360 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_,
4361 real_8 _p_ abserr_, real_8 _p_ resabs_, real_8 _p_ resasc_)
4362 { // ** body not listed **
4593 }
4594
4595 // VIF THU 20 NOV 2025 22:21:12 ** DQK15W ** DQK15W PAGE 00140
4596
4597 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4598 // S S U U B B R R O O U U T I NN N E
4599 // S U U B B R R O O U U T I N N N E
4600 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4601 // S U U B B R R O O U U T I N N N E
4602 // S S U U B B R R O O U U T I N NN E
4603 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4604
4605 // DDDDDD QQQQQ K K 1 5555555 W W
4606 // D D Q Q K K 11 5 W W
4607 // D D Q Q K K 1 1 5 W W
4608 // D D Q Q KKK 1 55555 W W W
4609 // D D Q Q Q K K 1 5 W W W
4610 // D D Q Q K K 1 5 5 W W W
4611 // DDDDDD QQQQ Q K K 11111 55555 WW WW
4612
4613
4614 // VIF THU 20 NOV 2025 22:21:12 ** DQK15W ** DIAGNOSTICS PAGE 00141
4615
4616
4617 // VIF THU 20 NOV 2025 22:21:12 ** DQK15W ** GENERATED CODE PAGE 00142
4618
4619 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
4620 _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_)
4621 { // ** body not listed **
4824 }
4825 // VIF THU 20 NOV 2025 22:21:12 ** DQK15W ** GENERATED CODE PAGE 00146
4826
4827
4828 // VIF THU 20 NOV 2025 22:21:12 ** DQK21 ** DQK21 PAGE 00147
4829
4830 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4831 // S S U U B B R R O O U U T I NN N E
4832 // S U U B B R R O O U U T I N N N E
4833 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4834 // S U U B B R R O O U U T I N N N E
4835 // S S U U B B R R O O U U T I N NN E
4836 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4837
4838 // DDDDDD QQQQQ K K 22222 1
4839 // D D Q Q K K 2 2 11
4840 // D D Q Q K K 2 1 1
4841 // D D Q Q KKK 22222 1
4842 // D D Q Q Q K K 2 1
4843 // D D Q Q K K 2 1
4844 // DDDDDD QQQQ Q K K 2222222 11111
4845
4846
4847 // VIF THU 20 NOV 2025 22:21:12 ** DQK21 ** DIAGNOSTICS PAGE 00148
4848
4849
4850 // VIF THU 20 NOV 2025 22:21:12 ** DQK21 ** GENERATED CODE PAGE 00149
4851
4852 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_,
4853 real_8 _p_ resasc_)
4854 { // ** body not listed **
5250 }
5251
5252 // VIF THU 20 NOV 2025 22:21:12 ** DQK31 ** DQK31 PAGE 00157
5253
5254 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5255 // S S U U B B R R O O U U T I NN N E
5256 // S U U B B R R O O U U T I N N N E
5257 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5258 // S U U B B R R O O U U T I N N N E
5259 // S S U U B B R R O O U U T I N NN E
5260 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5261
5262 // DDDDDD QQQQQ K K 33333 1
5263 // D D Q Q K K 3 3 11
5264 // D D Q Q K K 3 1 1
5265 // D D Q Q KKK 33333 1
5266 // D D Q Q Q K K 3 1
5267 // D D Q Q K K 3 3 1
5268 // DDDDDD QQQQ Q K K 33333 11111
5269
5270
5271 // VIF THU 20 NOV 2025 22:21:12 ** DQK31 ** DIAGNOSTICS PAGE 00158
5272
5273
5274 // VIF THU 20 NOV 2025 22:21:12 ** DQK31 ** GENERATED CODE PAGE 00159
5275
5276 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_,
5277 real_8 _p_ resasc_)
5278 { // ** body not listed **
5838 }
5839
5840 // VIF THU 20 NOV 2025 22:21:12 ** DQK41 ** DQK41 PAGE 00170
5841
5842 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5843 // S S U U B B R R O O U U T I NN N E
5844 // S U U B B R R O O U U T I N N N E
5845 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5846 // S U U B B R R O O U U T I N N N E
5847 // S S U U B B R R O O U U T I N NN E
5848 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5849
5850 // DDDDDD QQQQQ K K 4 1
5851 // D D Q Q K K 4 4 11
5852 // D D Q Q K K 4 4 1 1
5853 // D D Q Q KKK 4444444 1
5854 // D D Q Q Q K K 4 1
5855 // D D Q Q K K 4 1
5856 // DDDDDD QQQQ Q K K 4 11111
5857
5858
5859 // VIF THU 20 NOV 2025 22:21:12 ** DQK41 ** DIAGNOSTICS PAGE 00171
5860
5861
5862 // VIF THU 20 NOV 2025 22:21:12 ** DQK41 ** GENERATED CODE PAGE 00172
5863
5864 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_,
5865 real_8 _p_ resasc_)
5866 { // ** body not listed **
6577 }
6578
6579 // VIF THU 20 NOV 2025 22:21:12 ** DQK51 ** DQK51 PAGE 00186
6580
6581 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6582 // S S U U B B R R O O U U T I NN N E
6583 // S U U B B R R O O U U T I N N N E
6584 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6585 // S U U B B R R O O U U T I N N N E
6586 // S S U U B B R R O O U U T I N NN E
6587 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6588
6589 // DDDDDD QQQQQ K K 5555555 1
6590 // D D Q Q K K 5 11
6591 // D D Q Q K K 5 1 1
6592 // D D Q Q KKK 55555 1
6593 // D D Q Q Q K K 5 1
6594 // D D Q Q K K 5 5 1
6595 // DDDDDD QQQQ Q K K 55555 11111
6596
6597
6598 // VIF THU 20 NOV 2025 22:21:12 ** DQK51 ** DIAGNOSTICS PAGE 00187
6599
6600
6601 // VIF THU 20 NOV 2025 22:21:12 ** DQK51 ** GENERATED CODE PAGE 00188
6602
6603 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_,
6604 real_8 _p_ resasc_)
6605 { // ** body not listed **
7480 }
7481
7482 // VIF THU 20 NOV 2025 22:21:12 ** DQK61 ** DQK61 PAGE 00205
7483
7484 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7485 // S S U U B B R R O O U U T I NN N E
7486 // S U U B B R R O O U U T I N N N E
7487 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7488 // S U U B B R R O O U U T I N N N E
7489 // S S U U B B R R O O U U T I N NN E
7490 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7491
7492 // DDDDDD QQQQQ K K 66666 1
7493 // D D Q Q K K 6 6 11
7494 // D D Q Q K K 6 1 1
7495 // D D Q Q KKK 666666 1
7496 // D D Q Q Q K K 6 6 1
7497 // D D Q Q K K 6 6 1
7498 // DDDDDD QQQQ Q K K 66666 11111
7499
7500
7501 // VIF THU 20 NOV 2025 22:21:12 ** DQK61 ** DIAGNOSTICS PAGE 00206
7502
7503
7504 // VIF THU 20 NOV 2025 22:21:12 ** DQK61 ** GENERATED CODE PAGE 00207
7505
7506 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_,
7507 real_8 _p_ resasc_)
7508 { // ** body not listed **
8534 }
8535
8536 // VIF THU 20 NOV 2025 22:21:12 ** DQMOMO ** DQMOMO PAGE 00227
8537
8538 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8539 // S S U U B B R R O O U U T I NN N E
8540 // S U U B B R R O O U U T I N N N E
8541 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8542 // S U U B B R R O O U U T I N N N E
8543 // S S U U B B R R O O U U T I N NN E
8544 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8545
8546 // DDDDDD QQQQQ M M OOOOO M M OOOOO
8547 // D D Q Q MM MM O O MM MM O O
8548 // D D Q Q M M M M O O M M M M O O
8549 // D D Q Q M M M O O M M M O O
8550 // D D Q Q Q M M O O M M O O
8551 // D D Q Q M M O O M M O O
8552 // DDDDDD QQQQ Q M M OOOOO M M OOOOO
8553
8554
8555 // VIF THU 20 NOV 2025 22:21:12 ** DQMOMO ** DIAGNOSTICS PAGE 00228
8556
8557
8558 // VIF THU 20 NOV 2025 22:21:12 ** DQMOMO ** GENERATED CODE PAGE 00229
8559
8560 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_,
8561 int_4 _p_ integr_)
8562 { // ** body not listed **
8628 }
8629
8630 // VIF THU 20 NOV 2025 22:21:12 ** DQNC79 ** DQNC79 PAGE 00231
8631
8632 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8633 // S S U U B B R R O O U U T I NN N E
8634 // S U U B B R R O O U U T I N N N E
8635 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8636 // S U U B B R R O O U U T I N N N E
8637 // S S U U B B R R O O U U T I N NN E
8638 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8639
8640 // DDDDDD QQQQQ N N CCCCC 7777777 99999
8641 // D D Q Q NN N C C 7 7 9 9
8642 // D D Q Q N N N C 7 9 9
8643 // D D Q Q N N N C 7 999999
8644 // D D Q Q Q N N N C 7 9
8645 // D D Q Q N NN C C 7 9 9
8646 // DDDDDD QQQQ Q N N CCCCC 7 99999
8647
8648
8649 // VIF THU 20 NOV 2025 22:21:12 ** DQNC79 ** DIAGNOSTICS PAGE 00232
8650
8651
8652 // VIF THU 20 NOV 2025 22:21:12 ** DQNC79 ** GENERATED CODE PAGE 00233
8653
8654 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
8655 _p_ k_)
8656 { // ** body not listed **
8909 }
8910
8911 // VIF THU 20 NOV 2025 22:21:12 ** DQNG ** DQNG PAGE 00238
8912
8913 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8914 // S S U U B B R R O O U U T I NN N E
8915 // S U U B B R R O O U U T I N N N E
8916 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8917 // S U U B B R R O O U U T I N N N E
8918 // S S U U B B R R O O U U T I N NN E
8919 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8920
8921 // DDDDDD QQQQQ N N GGGGG
8922 // D D Q Q NN N G G
8923 // D D Q Q N N N G
8924 // D D Q Q N N N G GGGG
8925 // D D Q Q Q N N N G G
8926 // D D Q Q N NN G G
8927 // DDDDDD QQQQ Q N N GGGGG
8928
8929
8930 // VIF THU 20 NOV 2025 22:21:12 ** DQNG ** DIAGNOSTICS PAGE 00239
8931
8932
8933 // VIF THU 20 NOV 2025 22:21:12 ** DQNG ** GENERATED CODE PAGE 00240
8934
8935 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_,
8936 real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_)
8937 { // ** body not listed **
10632 }
10633
10634 // VIF THU 20 NOV 2025 22:21:12 ** DQPSRT ** DQPSRT PAGE 00273
10635
10636 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10637 // S S U U B B R R O O U U T I NN N E
10638 // S U U B B R R O O U U T I N N N E
10639 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10640 // S U U B B R R O O U U T I N N N E
10641 // S S U U B B R R O O U U T I N NN E
10642 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10643
10644 // DDDDDD QQQQQ PPPPPP SSSSS RRRRRR TTTTTTT
10645 // D D Q Q P P S S R R T
10646 // D D Q Q P P S R R T
10647 // D D Q Q PPPPPP SSSSS RRRRRR T
10648 // D D Q Q Q P S R R T
10649 // D D Q Q P S S R R T
10650 // DDDDDD QQQQ Q P SSSSS R R T
10651
10652
10653 // VIF THU 20 NOV 2025 22:21:12 ** DQPSRT ** DIAGNOSTICS PAGE 00274
10654
10655
10656 // VIF THU 20 NOV 2025 22:21:12 ** DQPSRT ** GENERATED CODE PAGE 00275
10657
10658 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_
10659 iord_, int_4 _p_ nrmax_)
10660 { // ** body not listed **
10727 }
10728
10729 // VIF THU 20 NOV 2025 22:21:12 ** DQWGTC ** DQWGTC PAGE 00277
10730
10731 // RRRRRR EEEEEEE A L 88888
10732 // R R E A A L * * 8 8
10733 // R R E A A L * * 8 8
10734 // RRRRRR EEEEE A A L ******* 88888
10735 // R R E AAAAAAA L * * 8 8
10736 // R R E A A L * * 8 8
10737 // R R EEEEEEE A A LLLLLLL 88888
10738
10739 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
10740 // F U U NN N C C T I O O NN N
10741 // F U U N N N C T I O O N N N
10742 // FFFFF U U N N N C T I O O N N N
10743 // F U U N N N C T I O O N N N
10744 // F U U N NN C C T I O O N NN
10745 // F UUUUU N N CCCCC T III OOOOO N N
10746
10747 // DDDDDD QQQQQ W W GGGGG TTTTTTT CCCCC
10748 // D D Q Q W W G G T C C
10749 // D D Q Q W W G T C
10750 // D D Q Q W W W G GGGG T C
10751 // D D Q Q Q W W W G G T C
10752 // D D Q Q W W W G G T C C
10753 // DDDDDD QQQQ Q WW WW GGGGG T CCCCC
10754
10755
10756 // VIF THU 20 NOV 2025 22:21:12 ** DQWGTC ** DIAGNOSTICS PAGE 00278
10757
10758
10759 // VIF THU 20 NOV 2025 22:21:12 ** DQWGTC ** GENERATED CODE PAGE 00279
10760
10761 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_)
10762 { // ** body not listed **
10767 }
10768
10769 // VIF THU 20 NOV 2025 22:21:12 ** DQWGTF ** DQWGTF PAGE 00280
10770
10771 // RRRRRR EEEEEEE A L 88888
10772 // R R E A A L * * 8 8
10773 // R R E A A L * * 8 8
10774 // RRRRRR EEEEE A A L ******* 88888
10775 // R R E AAAAAAA L * * 8 8
10776 // R R E A A L * * 8 8
10777 // R R EEEEEEE A A LLLLLLL 88888
10778
10779 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
10780 // F U U NN N C C T I O O NN N
10781 // F U U N N N C T I O O N N N
10782 // FFFFF U U N N N C T I O O N N N
10783 // F U U N N N C T I O O N N N
10784 // F U U N NN C C T I O O N NN
10785 // F UUUUU N N CCCCC T III OOOOO N N
10786
10787 // DDDDDD QQQQQ W W GGGGG TTTTTTT FFFFFFF
10788 // D D Q Q W W G G T F
10789 // D D Q Q W W G T F
10790 // D D Q Q W W W G GGGG T FFFFF
10791 // D D Q Q Q W W W G G T F
10792 // D D Q Q W W W G G T F
10793 // DDDDDD QQQQ Q WW WW GGGGG T F
10794
10795
10796 // VIF THU 20 NOV 2025 22:21:12 ** DQWGTF ** DIAGNOSTICS PAGE 00281
10797
10798
10799 // VIF THU 20 NOV 2025 22:21:12 ** DQWGTF ** GENERATED CODE PAGE 00282
10800
10801 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_)
10802 { // ** body not listed **
10819 }
10820
10821 // VIF THU 20 NOV 2025 22:21:12 ** DQWGTS ** DQWGTS PAGE 00283
10822
10823 // RRRRRR EEEEEEE A L 88888
10824 // R R E A A L * * 8 8
10825 // R R E A A L * * 8 8
10826 // RRRRRR EEEEE A A L ******* 88888
10827 // R R E AAAAAAA L * * 8 8
10828 // R R E A A L * * 8 8
10829 // R R EEEEEEE A A LLLLLLL 88888
10830
10831 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
10832 // F U U NN N C C T I O O NN N
10833 // F U U N N N C T I O O N N N
10834 // FFFFF U U N N N C T I O O N N N
10835 // F U U N N N C T I O O N N N
10836 // F U U N NN C C T I O O N NN
10837 // F UUUUU N N CCCCC T III OOOOO N N
10838
10839 // DDDDDD QQQQQ W W GGGGG TTTTTTT SSSSS
10840 // D D Q Q W W G G T S S
10841 // D D Q Q W W G T S
10842 // D D Q Q W W W G GGGG T SSSSS
10843 // D D Q Q Q W W W G G T S
10844 // D D Q Q W W W G G T S S
10845 // DDDDDD QQQQ Q WW WW GGGGG T SSSSS
10846
10847
10848 // VIF THU 20 NOV 2025 22:21:12 ** DQWGTS ** DIAGNOSTICS PAGE 00284
10849
10850
10851 // VIF THU 20 NOV 2025 22:21:12 ** DQWGTS ** GENERATED CODE PAGE 00285
10852
10853 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_)
10854 { // ** body not listed **
10878 }
10879
10880 // VIF THU 20 NOV 2025 22:21:12 ** QAGE ** QAGE PAGE 00286
10881
10882 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10883 // S S U U B B R R O O U U T I NN N E
10884 // S U U B B R R O O U U T I N N N E
10885 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10886 // S U U B B R R O O U U T I N N N E
10887 // S S U U B B R R O O U U T I N NN E
10888 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10889
10890 // QQQQQ A GGGGG EEEEEEE
10891 // Q Q A A G G E
10892 // Q Q A A G E
10893 // Q Q A A G GGGG EEEEE
10894 // Q Q Q AAAAAAA G G E
10895 // Q Q A A G G E
10896 // QQQQ Q A A GGGGG EEEEEEE
10897
10898
10899 // VIF THU 20 NOV 2025 22:21:12 ** QAGE ** DIAGNOSTICS PAGE 00287
10900
10901
10902 // VIF THU 20 NOV 2025 22:21:12 ** QAGE ** GENERATED CODE PAGE 00288
10903
10904 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_,
10905 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
10906 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
10907 { // ** body not listed **
11095 }
11096
11097 // VIF THU 20 NOV 2025 22:21:12 ** QAG ** QAG PAGE 00292
11098
11099 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11100 // S S U U B B R R O O U U T I NN N E
11101 // S U U B B R R O O U U T I N N N E
11102 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11103 // S U U B B R R O O U U T I N N N E
11104 // S S U U B B R R O O U U T I N NN E
11105 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11106
11107 // QQQQQ A GGGGG
11108 // Q Q A A G G
11109 // Q Q A A G
11110 // Q Q A A G GGGG
11111 // Q Q Q AAAAAAA G G
11112 // Q Q A A G G
11113 // QQQQ Q A A GGGGG
11114
11115
11116 // VIF THU 20 NOV 2025 22:21:12 ** QAG ** DIAGNOSTICS PAGE 00293
11117
11118
11119 // VIF THU 20 NOV 2025 22:21:12 ** QAG ** GENERATED CODE PAGE 00294
11120
11121 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_,
11122 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_
11123 last_, int_4 _p_ iwork_, real_4 _p_ work_)
11124 { // ** body not listed **
11147 }
11148
11149 // VIF THU 20 NOV 2025 22:21:12 ** QAGIE ** QAGIE PAGE 00295
11150
11151 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11152 // S S U U B B R R O O U U T I NN N E
11153 // S U U B B R R O O U U T I N N N E
11154 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11155 // S U U B B R R O O U U T I N N N E
11156 // S S U U B B R R O O U U T I N NN E
11157 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11158
11159 // QQQQQ A GGGGG III EEEEEEE
11160 // Q Q A A G G I E
11161 // Q Q A A G I E
11162 // Q Q A A G GGGG I EEEEE
11163 // Q Q Q AAAAAAA G G I E
11164 // Q Q A A G G I E
11165 // QQQQ Q A A GGGGG III EEEEEEE
11166
11167
11168 // VIF THU 20 NOV 2025 22:21:12 ** QAGIE ** DIAGNOSTICS PAGE 00296
11169
11170
11171 // VIF THU 20 NOV 2025 22:21:12 ** QAGIE ** GENERATED CODE PAGE 00297
11172
11173 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_
11174 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_,
11175 real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
11176 { // ** body not listed **
11450 }
11451
11452 // VIF THU 20 NOV 2025 22:21:12 ** QAGI ** QAGI PAGE 00303
11453
11454 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11455 // S S U U B B R R O O U U T I NN N E
11456 // S U U B B R R O O U U T I N N N E
11457 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11458 // S U U B B R R O O U U T I N N N E
11459 // S S U U B B R R O O U U T I N NN E
11460 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11461
11462 // QQQQQ A GGGGG III
11463 // Q Q A A G G I
11464 // Q Q A A G I
11465 // Q Q A A G GGGG I
11466 // Q Q Q AAAAAAA G G I
11467 // Q Q A A G G I
11468 // QQQQ Q A A GGGGG III
11469
11470
11471 // VIF THU 20 NOV 2025 22:21:12 ** QAGI ** DIAGNOSTICS PAGE 00304
11472
11473
11474 // VIF THU 20 NOV 2025 22:21:12 ** QAGI ** GENERATED CODE PAGE 00305
11475
11476 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_
11477 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_,
11478 int_4 _p_ iwork_, real_4 _p_ work_)
11479 { // ** body not listed **
11504 }
11505
11506 // VIF THU 20 NOV 2025 22:21:12 ** QAGPE ** QAGPE PAGE 00306
11507
11508 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11509 // S S U U B B R R O O U U T I NN N E
11510 // S U U B B R R O O U U T I N N N E
11511 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11512 // S U U B B R R O O U U T I N N N E
11513 // S S U U B B R R O O U U T I N NN E
11514 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11515
11516 // QQQQQ A GGGGG PPPPPP EEEEEEE
11517 // Q Q A A G G P P E
11518 // Q Q A A G P P E
11519 // Q Q A A G GGGG PPPPPP EEEEE
11520 // Q Q Q AAAAAAA G G P E
11521 // Q Q A A G G P E
11522 // QQQQ Q A A GGGGG P EEEEEEE
11523
11524
11525 // VIF THU 20 NOV 2025 22:21:12 ** QAGPE ** DIAGNOSTICS PAGE 00307
11526
11527
11528 // VIF THU 20 NOV 2025 22:21:12 ** QAGPE ** GENERATED CODE PAGE 00308
11529
11530 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_,
11531 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
11532 _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_
11533 , int_4 _p_ ndin_, int_4 _p_ last_)
11534 { // ** body not listed **
11890 }
11891
11892 // VIF THU 20 NOV 2025 22:21:12 ** QAGP ** QAGP PAGE 00315
11893
11894 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11895 // S S U U B B R R O O U U T I NN N E
11896 // S U U B B R R O O U U T I N N N E
11897 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11898 // S U U B B R R O O U U T I N N N E
11899 // S S U U B B R R O O U U T I N NN E
11900 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11901
11902 // QQQQQ A GGGGG PPPPPP
11903 // Q Q A A G G P P
11904 // Q Q A A G P P
11905 // Q Q A A G GGGG PPPPPP
11906 // Q Q Q AAAAAAA G G P
11907 // Q Q A A G G P
11908 // QQQQ Q A A GGGGG P
11909
11910
11911 // VIF THU 20 NOV 2025 22:21:12 ** QAGP ** DIAGNOSTICS PAGE 00316
11912
11913
11914 // VIF THU 20 NOV 2025 22:21:12 ** QAGP ** GENERATED CODE PAGE 00317
11915
11916 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_,
11917 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
11918 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_)
11919 { // ** body not listed **
11947 }
11948
11949 // VIF THU 20 NOV 2025 22:21:12 ** QAGSE ** QAGSE PAGE 00318
11950
11951 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11952 // S S U U B B R R O O U U T I NN N E
11953 // S U U B B R R O O U U T I N N N E
11954 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11955 // S U U B B R R O O U U T I N N N E
11956 // S S U U B B R R O O U U T I N NN E
11957 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11958
11959 // QQQQQ A GGGGG SSSSS EEEEEEE
11960 // Q Q A A G G S S E
11961 // Q Q A A G S E
11962 // Q Q A A G GGGG SSSSS EEEEE
11963 // Q Q Q AAAAAAA G G S E
11964 // Q Q A A G G S S E
11965 // QQQQ Q A A GGGGG SSSSS EEEEEEE
11966
11967
11968 // VIF THU 20 NOV 2025 22:21:12 ** QAGSE ** DIAGNOSTICS PAGE 00319
11969
11970
11971 // VIF THU 20 NOV 2025 22:21:12 ** QAGSE ** GENERATED CODE PAGE 00320
11972
11973 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_,
11974 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
11975 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
11976 { // ** body not listed **
12242 }
12243
12244 // VIF THU 20 NOV 2025 22:21:12 ** QAGS ** QAGS PAGE 00326
12245
12246 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12247 // S S U U B B R R O O U U T I NN N E
12248 // S U U B B R R O O U U T I N N N E
12249 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12250 // S U U B B R R O O U U T I N N N E
12251 // S S U U B B R R O O U U T I N NN E
12252 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12253
12254 // QQQQQ A GGGGG SSSSS
12255 // Q Q A A G G S S
12256 // Q Q A A G S
12257 // Q Q A A G GGGG SSSSS
12258 // Q Q Q AAAAAAA G G S
12259 // Q Q A A G G S S
12260 // QQQQ Q A A GGGGG SSSSS
12261
12262
12263 // VIF THU 20 NOV 2025 22:21:12 ** QAGS ** DIAGNOSTICS PAGE 00327
12264
12265
12266 // VIF THU 20 NOV 2025 22:21:12 ** QAGS ** GENERATED CODE PAGE 00328
12267
12268 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_,
12269 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_
12270 iwork_, real_4 _p_ work_)
12271 { // ** body not listed **
12296 }
12297
12298 // VIF THU 20 NOV 2025 22:21:12 ** QAWCE ** QAWCE PAGE 00329
12299
12300 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12301 // S S U U B B R R O O U U T I NN N E
12302 // S U U B B R R O O U U T I N N N E
12303 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12304 // S U U B B R R O O U U T I N N N E
12305 // S S U U B B R R O O U U T I N NN E
12306 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12307
12308 // QQQQQ A W W CCCCC EEEEEEE
12309 // Q Q A A W W C C E
12310 // Q Q A A W W C E
12311 // Q Q A A W W W C EEEEE
12312 // Q Q Q AAAAAAA W W W C E
12313 // Q Q A A W W W C C E
12314 // QQQQ Q A A WW WW CCCCC EEEEEEE
12315
12316
12317 // VIF THU 20 NOV 2025 22:21:12 ** QAWCE ** DIAGNOSTICS PAGE 00330
12318
12319
12320 // VIF THU 20 NOV 2025 22:21:12 ** QAWCE ** GENERATED CODE PAGE 00331
12321
12322 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_,
12323 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
12324 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
12325 { // ** body not listed **
12462 }
12463
12464 // VIF THU 20 NOV 2025 22:21:12 ** QAWC ** QAWC PAGE 00334
12465
12466 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12467 // S S U U B B R R O O U U T I NN N E
12468 // S U U B B R R O O U U T I N N N E
12469 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12470 // S U U B B R R O O U U T I N N N E
12471 // S S U U B B R R O O U U T I N NN E
12472 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12473
12474 // QQQQQ A W W CCCCC
12475 // Q Q A A W W C C
12476 // Q Q A A W W C
12477 // Q Q A A W W W C
12478 // Q Q Q AAAAAAA W W W C
12479 // Q Q A A W W W C C
12480 // QQQQ Q A A WW WW CCCCC
12481
12482
12483 // VIF THU 20 NOV 2025 22:21:12 ** QAWC ** DIAGNOSTICS PAGE 00335
12484
12485
12486 // VIF THU 20 NOV 2025 22:21:12 ** QAWC ** GENERATED CODE PAGE 00336
12487
12488 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_,
12489 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_
12490 last_, int_4 _p_ iwork_, real_4 _p_ work_)
12491 { // ** body not listed **
12516 }
12517
12518 // VIF THU 20 NOV 2025 22:21:12 ** QAWFE ** QAWFE PAGE 00337
12519
12520 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12521 // S S U U B B R R O O U U T I NN N E
12522 // S U U B B R R O O U U T I N N N E
12523 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12524 // S U U B B R R O O U U T I N N N E
12525 // S S U U B B R R O O U U T I N NN E
12526 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12527
12528 // QQQQQ A W W FFFFFFF EEEEEEE
12529 // Q Q A A W W F E
12530 // Q Q A A W W F E
12531 // Q Q A A W W W FFFFF EEEEE
12532 // Q Q Q AAAAAAA W W W F E
12533 // Q Q A A W W W F E
12534 // QQQQ Q A A WW WW F EEEEEEE
12535
12536
12537 // VIF THU 20 NOV 2025 22:21:12 ** QAWFE ** DIAGNOSTICS PAGE 00338
12538
12539
12540 // VIF THU 20 NOV 2025 22:21:12 ** QAWFE ** GENERATED CODE PAGE 00339
12541
12542 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_
12543 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_,
12544 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
12545 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, real_4 _p_ chebmo_)
12546 { // ** body not listed **
12713 }
12714
12715 // VIF THU 20 NOV 2025 22:21:12 ** QAWF ** QAWF PAGE 00343
12716
12717 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12718 // S S U U B B R R O O U U T I NN N E
12719 // S U U B B R R O O U U T I N N N E
12720 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12721 // S U U B B R R O O U U T I N N N E
12722 // S S U U B B R R O O U U T I N NN E
12723 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12724
12725 // QQQQQ A W W FFFFFFF
12726 // Q Q A A W W F
12727 // Q Q A A W W F
12728 // Q Q A A W W W FFFFF
12729 // Q Q Q AAAAAAA W W W F
12730 // Q Q A A W W W F
12731 // QQQQ Q A A WW WW F
12732
12733
12734 // VIF THU 20 NOV 2025 22:21:12 ** QAWF ** DIAGNOSTICS PAGE 00344
12735
12736
12737 // VIF THU 20 NOV 2025 22:21:12 ** QAWF ** GENERATED CODE PAGE 00345
12738
12739 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_
12740 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_,
12741 int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ iwork_, real_4 _p_ work_)
12742 { // ** body not listed **
12772 }
12773
12774 // VIF THU 20 NOV 2025 22:21:12 ** QAWOE ** QAWOE PAGE 00346
12775
12776 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12777 // S S U U B B R R O O U U T I NN N E
12778 // S U U B B R R O O U U T I N N N E
12779 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12780 // S U U B B R R O O U U T I N N N E
12781 // S S U U B B R R O O U U T I N NN E
12782 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12783
12784 // QQQQQ A W W OOOOO EEEEEEE
12785 // Q Q A A W W O O E
12786 // Q Q A A W W O O E
12787 // Q Q A A W W W O O EEEEE
12788 // Q Q Q AAAAAAA W W W O O E
12789 // Q Q A A W W W O O E
12790 // QQQQ Q A A WW WW OOOOO EEEEEEE
12791
12792
12793 // VIF THU 20 NOV 2025 22:21:12 ** QAWOE ** DIAGNOSTICS PAGE 00347
12794
12795
12796 // VIF THU 20 NOV 2025 22:21:12 ** QAWOE ** GENERATED CODE PAGE 00348
12797
12798 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_,
12799 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
12800 _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_
12801 , int_4 _p_ iord_, int_4 _p_ nnlog_, int_4 _p_ momcom_, real_4 _p_ chebmo_)
12802 { // ** body not listed **
13122 }
13123
13124 // VIF THU 20 NOV 2025 22:21:12 ** QAWO ** QAWO PAGE 00355
13125
13126 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13127 // S S U U B B R R O O U U T I NN N E
13128 // S U U B B R R O O U U T I N N N E
13129 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13130 // S U U B B R R O O U U T I N N N E
13131 // S S U U B B R R O O U U T I N NN E
13132 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13133
13134 // QQQQQ A W W OOOOO
13135 // Q Q A A W W O O
13136 // Q Q A A W W O O
13137 // Q Q A A W W W O O
13138 // Q Q Q AAAAAAA W W W O O
13139 // Q Q A A W W W O O
13140 // QQQQ Q A A WW WW OOOOO
13141
13142
13143 // VIF THU 20 NOV 2025 22:21:12 ** QAWO ** DIAGNOSTICS PAGE 00356
13144
13145
13146 // VIF THU 20 NOV 2025 22:21:12 ** QAWO ** GENERATED CODE PAGE 00357
13147
13148 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_,
13149 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
13150 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_)
13151 { // ** body not listed **
13179 }
13180
13181 // VIF THU 20 NOV 2025 22:21:12 ** QAWSE ** QAWSE PAGE 00358
13182
13183 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13184 // S S U U B B R R O O U U T I NN N E
13185 // S U U B B R R O O U U T I N N N E
13186 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13187 // S U U B B R R O O U U T I N N N E
13188 // S S U U B B R R O O U U T I N NN E
13189 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13190
13191 // QQQQQ A W W SSSSS EEEEEEE
13192 // Q Q A A W W S S E
13193 // Q Q A A W W S E
13194 // Q Q A A W W W SSSSS EEEEE
13195 // Q Q Q AAAAAAA W W W S E
13196 // Q Q A A W W W S S E
13197 // QQQQ Q A A WW WW SSSSS EEEEEEE
13198
13199
13200 // VIF THU 20 NOV 2025 22:21:12 ** QAWSE ** DIAGNOSTICS PAGE 00359
13201
13202
13203 // VIF THU 20 NOV 2025 22:21:12 ** QAWSE ** GENERATED CODE PAGE 00360
13204
13205 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_,
13206 real_4 _p_ epsabs_, real_4 _p_ epsrel_, int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_,
13207 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_
13208 last_)
13209 { // ** body not listed **
13357 }
13358
13359 // VIF THU 20 NOV 2025 22:21:12 ** QAWS ** QAWS PAGE 00363
13360
13361 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13362 // S S U U B B R R O O U U T I NN N E
13363 // S U U B B R R O O U U T I N N N E
13364 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13365 // S U U B B R R O O U U T I N N N E
13366 // S S U U B B R R O O U U T I N NN E
13367 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13368
13369 // QQQQQ A W W SSSSS
13370 // Q Q A A W W S S
13371 // Q Q A A W W S
13372 // Q Q A A W W W SSSSS
13373 // Q Q Q AAAAAAA W W W S
13374 // Q Q A A W W W S S
13375 // QQQQ Q A A WW WW SSSSS
13376
13377
13378 // VIF THU 20 NOV 2025 22:21:12 ** QAWS ** DIAGNOSTICS PAGE 00364
13379
13380
13381 // VIF THU 20 NOV 2025 22:21:12 ** QAWS ** GENERATED CODE PAGE 00365
13382
13383 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_,
13384 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
13385 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_)
13386 { // ** body not listed **
13411 }
13412
13413 // VIF THU 20 NOV 2025 22:21:12 ** QC25C ** QC25C PAGE 00366
13414
13415 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13416 // S S U U B B R R O O U U T I NN N E
13417 // S U U B B R R O O U U T I N N N E
13418 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13419 // S U U B B R R O O U U T I N N N E
13420 // S S U U B B R R O O U U T I N NN E
13421 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13422
13423 // QQQQQ CCCCC 22222 5555555 CCCCC
13424 // Q Q C C 2 2 5 C C
13425 // Q Q C 2 5 C
13426 // Q Q C 22222 55555 C
13427 // Q Q Q C 2 5 C
13428 // Q Q C C 2 5 5 C C
13429 // QQQQ Q CCCCC 2222222 55555 CCCCC
13430
13431
13432 // VIF THU 20 NOV 2025 22:21:12 ** QC25C ** DIAGNOSTICS PAGE 00367
13433
13434
13435 // VIF THU 20 NOV 2025 22:21:12 ** QC25C ** GENERATED CODE PAGE 00368
13436
13437 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_,
13438 int_4 _p_ krul_, int_4 _p_ neval_)
13439 { // ** body not listed **
13576 }
13577
13578 // VIF THU 20 NOV 2025 22:21:12 ** QC25F ** QC25F PAGE 00371
13579
13580 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13581 // S S U U B B R R O O U U T I NN N E
13582 // S U U B B R R O O U U T I N N N E
13583 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13584 // S U U B B R R O O U U T I N N N E
13585 // S S U U B B R R O O U U T I N NN E
13586 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13587
13588 // QQQQQ CCCCC 22222 5555555 FFFFFFF
13589 // Q Q C C 2 2 5 F
13590 // Q Q C 2 5 F
13591 // Q Q C 22222 55555 FFFFF
13592 // Q Q Q C 2 5 F
13593 // Q Q C C 2 5 5 F
13594 // QQQQ Q CCCCC 2222222 55555 F
13595
13596
13597 // VIF THU 20 NOV 2025 22:21:12 ** QC25F ** DIAGNOSTICS PAGE 00372
13598
13599
13600 // VIF THU 20 NOV 2025 22:21:12 ** QC25F ** GENERATED CODE PAGE 00373
13601
13602 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_,
13603 int_4 _p_ maxp1_, int_4 _p_ ksave_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, real_4 _p_ resabs_,
13604 real_4 _p_ resasc_, int_4 _p_ momcom_, real_4 _p_ chebmo_)
13605 { // ** body not listed **
13845 }
13846
13847 // VIF THU 20 NOV 2025 22:21:12 ** QC25S ** QC25S PAGE 00378
13848
13849 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13850 // S S U U B B R R O O U U T I NN N E
13851 // S U U B B R R O O U U T I N N N E
13852 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13853 // S U U B B R R O O U U T I N N N E
13854 // S S U U B B R R O O U U T I N NN E
13855 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13856
13857 // QQQQQ CCCCC 22222 5555555 SSSSS
13858 // Q Q C C 2 2 5 S S
13859 // Q Q C 2 5 S
13860 // Q Q C 22222 55555 SSSSS
13861 // Q Q Q C 2 5 S
13862 // Q Q C C 2 5 5 S S
13863 // QQQQ Q CCCCC 2222222 55555 SSSSS
13864
13865
13866 // VIF THU 20 NOV 2025 22:21:12 ** QC25S ** DIAGNOSTICS PAGE 00379
13867
13868
13869 // VIF THU 20 NOV 2025 22:21:12 ** QC25S ** GENERATED CODE PAGE 00380
13870
13871 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
13872 _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_,
13873 real_4 _p_ resasc_, int_4 _p_ integr_, int_4 _p_ nev_)
13874 { // ** body not listed **
14138 }
14139
14140 // VIF THU 20 NOV 2025 22:21:12 ** QCHEB ** QCHEB PAGE 00386
14141
14142 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14143 // S S U U B B R R O O U U T I NN N E
14144 // S U U B B R R O O U U T I N N N E
14145 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14146 // S U U B B R R O O U U T I N N N E
14147 // S S U U B B R R O O U U T I N NN E
14148 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14149
14150 // QQQQQ CCCCC H H EEEEEEE BBBBBB
14151 // Q Q C C H H E B B
14152 // Q Q C H H E B B
14153 // Q Q C HHHHHHH EEEEE BBBBBB
14154 // Q Q Q C H H E B B
14155 // Q Q C C H H E B B
14156 // QQQQ Q CCCCC H H EEEEEEE BBBBBB
14157
14158
14159 // VIF THU 20 NOV 2025 22:21:12 ** QCHEB ** DIAGNOSTICS PAGE 00387
14160
14161
14162 // VIF THU 20 NOV 2025 22:21:12 ** QCHEB ** GENERATED CODE PAGE 00388
14163
14164 int_4 _qcheb (real_4 _p_ x_, real_4 _p_ fval_, real_4 _p_ cheb12_, real_4 _p_ cheb24_)
14165 { // ** body not listed **
14262 }
14263
14264 // VIF THU 20 NOV 2025 22:21:12 ** QELG ** QELG PAGE 00390
14265
14266 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14267 // S S U U B B R R O O U U T I NN N E
14268 // S U U B B R R O O U U T I N N N E
14269 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14270 // S U U B B R R O O U U T I N N N E
14271 // S S U U B B R R O O U U T I N NN E
14272 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14273
14274 // QQQQQ EEEEEEE L GGGGG
14275 // Q Q E L G G
14276 // Q Q E L G
14277 // Q Q EEEEE L G GGGG
14278 // Q Q Q E L G G
14279 // Q Q E L G G
14280 // QQQQ Q EEEEEEE LLLLLLL GGGGG
14281
14282
14283 // VIF THU 20 NOV 2025 22:21:12 ** QELG ** DIAGNOSTICS PAGE 00391
14284
14285
14286 // VIF THU 20 NOV 2025 22:21:12 ** QELG ** GENERATED CODE PAGE 00392
14287
14288 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_
14289 nres_)
14290 { // ** body not listed **
14401 }
14402
14403 // VIF THU 20 NOV 2025 22:21:12 ** QK15 ** QK15 PAGE 00395
14404
14405 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14406 // S S U U B B R R O O U U T I NN N E
14407 // S U U B B R R O O U U T I N N N E
14408 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14409 // S U U B B R R O O U U T I N N N E
14410 // S S U U B B R R O O U U T I N NN E
14411 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14412
14413 // QQQQQ K K 1 5555555
14414 // Q Q K K 11 5
14415 // Q Q K K 1 1 5
14416 // Q Q KKK 1 55555
14417 // Q Q Q K K 1 5
14418 // Q Q K K 1 5 5
14419 // QQQQ Q K K 11111 55555
14420
14421
14422 // VIF THU 20 NOV 2025 22:21:12 ** QK15 ** DIAGNOSTICS PAGE 00396
14423
14424
14425 // VIF THU 20 NOV 2025 22:21:12 ** QK15 ** GENERATED CODE PAGE 00397
14426
14427 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_,
14428 real_4 _p_ resasc_)
14429 { // ** body not listed **
14629 }
14630
14631 // VIF THU 20 NOV 2025 22:21:12 ** QK15I ** QK15I PAGE 00401
14632
14633 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14634 // S S U U B B R R O O U U T I NN N E
14635 // S U U B B R R O O U U T I N N N E
14636 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14637 // S U U B B R R O O U U T I N N N E
14638 // S S U U B B R R O O U U T I N NN E
14639 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14640
14641 // QQQQQ K K 1 5555555 III
14642 // Q Q K K 11 5 I
14643 // Q Q K K 1 1 5 I
14644 // Q Q KKK 1 55555 I
14645 // Q Q Q K K 1 5 I
14646 // Q Q K K 1 5 5 I
14647 // QQQQ Q K K 11111 55555 III
14648
14649
14650 // VIF THU 20 NOV 2025 22:21:12 ** QK15I ** DIAGNOSTICS PAGE 00402
14651
14652
14653 // VIF THU 20 NOV 2025 22:21:12 ** QK15I ** GENERATED CODE PAGE 00403
14654
14655 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_,
14656 real_4 _p_ abserr_, real_4 _p_ resabs_, real_4 _p_ resasc_)
14657 { // ** body not listed **
14888 }
14889
14890 // VIF THU 20 NOV 2025 22:21:12 ** QK15W ** QK15W PAGE 00408
14891
14892 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14893 // S S U U B B R R O O U U T I NN N E
14894 // S U U B B R R O O U U T I N N N E
14895 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14896 // S U U B B R R O O U U T I N N N E
14897 // S S U U B B R R O O U U T I N NN E
14898 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14899
14900 // QQQQQ K K 1 5555555 W W
14901 // Q Q K K 11 5 W W
14902 // Q Q K K 1 1 5 W W
14903 // Q Q KKK 1 55555 W W W
14904 // Q Q Q K K 1 5 W W W
14905 // Q Q K K 1 5 5 W W W
14906 // QQQQ Q K K 11111 55555 WW WW
14907
14908
14909 // VIF THU 20 NOV 2025 22:21:12 ** QK15W ** DIAGNOSTICS PAGE 00409
14910
14911
14912 // VIF THU 20 NOV 2025 22:21:12 ** QK15W ** GENERATED CODE PAGE 00410
14913
14914 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_
14915 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_)
14916 { // ** body not listed **
15119 }
15120 // VIF THU 20 NOV 2025 22:21:12 ** QK15W ** GENERATED CODE PAGE 00414
15121
15122
15123 // VIF THU 20 NOV 2025 22:21:12 ** QK21 ** QK21 PAGE 00415
15124
15125 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15126 // S S U U B B R R O O U U T I NN N E
15127 // S U U B B R R O O U U T I N N N E
15128 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15129 // S U U B B R R O O U U T I N N N E
15130 // S S U U B B R R O O U U T I N NN E
15131 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15132
15133 // QQQQQ K K 22222 1
15134 // Q Q K K 2 2 11
15135 // Q Q K K 2 1 1
15136 // Q Q KKK 22222 1
15137 // Q Q Q K K 2 1
15138 // Q Q K K 2 1
15139 // QQQQ Q K K 2222222 11111
15140
15141
15142 // VIF THU 20 NOV 2025 22:21:12 ** QK21 ** DIAGNOSTICS PAGE 00416
15143
15144
15145 // VIF THU 20 NOV 2025 22:21:12 ** QK21 ** GENERATED CODE PAGE 00417
15146
15147 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_,
15148 real_4 _p_ resasc_)
15149 { // ** body not listed **
15393 }
15394
15395 // VIF THU 20 NOV 2025 22:21:12 ** QK31 ** QK31 PAGE 00422
15396
15397 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15398 // S S U U B B R R O O U U T I NN N E
15399 // S U U B B R R O O U U T I N N N E
15400 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15401 // S U U B B R R O O U U T I N N N E
15402 // S S U U B B R R O O U U T I N NN E
15403 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15404
15405 // QQQQQ K K 33333 1
15406 // Q Q K K 3 3 11
15407 // Q Q K K 3 1 1
15408 // Q Q KKK 33333 1
15409 // Q Q Q K K 3 1
15410 // Q Q K K 3 3 1
15411 // QQQQ Q K K 33333 11111
15412
15413
15414 // VIF THU 20 NOV 2025 22:21:12 ** QK31 ** DIAGNOSTICS PAGE 00423
15415
15416
15417 // VIF THU 20 NOV 2025 22:21:12 ** QK31 ** GENERATED CODE PAGE 00424
15418
15419 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_,
15420 real_4 _p_ resasc_)
15421 { // ** body not listed **
15747 }
15748
15749 // VIF THU 20 NOV 2025 22:21:12 ** QK41 ** QK41 PAGE 00431
15750
15751 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15752 // S S U U B B R R O O U U T I NN N E
15753 // S U U B B R R O O U U T I N N N E
15754 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15755 // S U U B B R R O O U U T I N N N E
15756 // S S U U B B R R O O U U T I N NN E
15757 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15758
15759 // QQQQQ K K 4 1
15760 // Q Q K K 4 4 11
15761 // Q Q K K 4 4 1 1
15762 // Q Q KKK 4444444 1
15763 // Q Q Q K K 4 1
15764 // Q Q K K 4 1
15765 // QQQQ Q K K 4 11111
15766
15767
15768 // VIF THU 20 NOV 2025 22:21:12 ** QK41 ** DIAGNOSTICS PAGE 00432
15769
15770
15771 // VIF THU 20 NOV 2025 22:21:12 ** QK41 ** GENERATED CODE PAGE 00433
15772
15773 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_,
15774 real_4 _p_ resasc_)
15775 { // ** body not listed **
16175 }
16176
16177 // VIF THU 20 NOV 2025 22:21:12 ** QK51 ** QK51 PAGE 00441
16178
16179 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16180 // S S U U B B R R O O U U T I NN N E
16181 // S U U B B R R O O U U T I N N N E
16182 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16183 // S U U B B R R O O U U T I N N N E
16184 // S S U U B B R R O O U U T I N NN E
16185 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16186
16187 // QQQQQ K K 5555555 1
16188 // Q Q K K 5 11
16189 // Q Q K K 5 1 1
16190 // Q Q KKK 55555 1
16191 // Q Q Q K K 5 1
16192 // Q Q K K 5 5 1
16193 // QQQQ Q K K 55555 11111
16194
16195
16196 // VIF THU 20 NOV 2025 22:21:12 ** QK51 ** DIAGNOSTICS PAGE 00442
16197
16198
16199 // VIF THU 20 NOV 2025 22:21:12 ** QK51 ** GENERATED CODE PAGE 00443
16200
16201 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_,
16202 real_4 _p_ resasc_)
16203 { // ** body not listed **
16697 }
16698
16699 // VIF THU 20 NOV 2025 22:21:12 ** QK61 ** QK61 PAGE 00453
16700
16701 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16702 // S S U U B B R R O O U U T I NN N E
16703 // S U U B B R R O O U U T I N N N E
16704 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16705 // S U U B B R R O O U U T I N N N E
16706 // S S U U B B R R O O U U T I N NN E
16707 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16708
16709 // QQQQQ K K 66666 1
16710 // Q Q K K 6 6 11
16711 // Q Q K K 6 1 1
16712 // Q Q KKK 666666 1
16713 // Q Q Q K K 6 6 1
16714 // Q Q K K 6 6 1
16715 // QQQQ Q K K 66666 11111
16716
16717
16718 // VIF THU 20 NOV 2025 22:21:12 ** QK61 ** DIAGNOSTICS PAGE 00454
16719
16720
16721 // VIF THU 20 NOV 2025 22:21:12 ** QK61 ** GENERATED CODE PAGE 00455
16722
16723 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_,
16724 real_4 _p_ resasc_)
16725 { // ** body not listed **
17313 }
17314
17315 // VIF THU 20 NOV 2025 22:21:12 ** QMOMO ** QMOMO PAGE 00467
17316
17317 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17318 // S S U U B B R R O O U U T I NN N E
17319 // S U U B B R R O O U U T I N N N E
17320 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17321 // S U U B B R R O O U U T I N N N E
17322 // S S U U B B R R O O U U T I N NN E
17323 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17324
17325 // QQQQQ M M OOOOO M M OOOOO
17326 // Q Q MM MM O O MM MM O O
17327 // Q Q M M M M O O M M M M O O
17328 // Q Q M M M O O M M M O O
17329 // Q Q Q M M O O M M O O
17330 // Q Q M M O O M M O O
17331 // QQQQ Q M M OOOOO M M OOOOO
17332
17333
17334 // VIF THU 20 NOV 2025 22:21:12 ** QMOMO ** DIAGNOSTICS PAGE 00468
17335
17336
17337 // VIF THU 20 NOV 2025 22:21:12 ** QMOMO ** GENERATED CODE PAGE 00469
17338
17339 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
17340 _p_ integr_)
17341 { // ** body not listed **
17407 }
17408
17409 // VIF THU 20 NOV 2025 22:21:12 ** QNC79 ** QNC79 PAGE 00471
17410
17411 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17412 // S S U U B B R R O O U U T I NN N E
17413 // S U U B B R R O O U U T I N N N E
17414 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17415 // S U U B B R R O O U U T I N N N E
17416 // S S U U B B R R O O U U T I N NN E
17417 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17418
17419 // QQQQQ N N CCCCC 7777777 99999
17420 // Q Q NN N C C 7 7 9 9
17421 // Q Q N N N C 7 9 9
17422 // Q Q N N N C 7 999999
17423 // Q Q Q N N N C 7 9
17424 // Q Q N NN C C 7 9 9
17425 // QQQQ Q N N CCCCC 7 99999
17426
17427
17428 // VIF THU 20 NOV 2025 22:21:12 ** QNC79 ** DIAGNOSTICS PAGE 00472
17429
17430
17431 // VIF THU 20 NOV 2025 22:21:12 ** QNC79 ** GENERATED CODE PAGE 00473
17432
17433 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
17434 _p_ k_)
17435 { // ** body not listed **
17688 }
17689
17690 // VIF THU 20 NOV 2025 22:21:12 ** QNG ** QNG PAGE 00478
17691
17692 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17693 // S S U U B B R R O O U U T I NN N E
17694 // S U U B B R R O O U U T I N N N E
17695 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17696 // S U U B B R R O O U U T I N N N E
17697 // S S U U B B R R O O U U T I N NN E
17698 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17699
17700 // QQQQQ N N GGGGG
17701 // Q Q NN N G G
17702 // Q Q N N N G
17703 // Q Q N N N G GGGG
17704 // Q Q Q N N N G G
17705 // Q Q N NN G G
17706 // QQQQ Q N N GGGGG
17707
17708
17709 // VIF THU 20 NOV 2025 22:21:12 ** QNG ** DIAGNOSTICS PAGE 00479
17710
17711
17712 // VIF THU 20 NOV 2025 22:21:12 ** QNG ** GENERATED CODE PAGE 00480
17713
17714 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_,
17715 real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_)
17716 { // ** body not listed **
18686 }
18687
18688 // VIF THU 20 NOV 2025 22:21:12 ** QPDOC ** QPDOC PAGE 00499
18689
18690 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18691 // S S U U B B R R O O U U T I NN N E
18692 // S U U B B R R O O U U T I N N N E
18693 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18694 // S U U B B R R O O U U T I N N N E
18695 // S S U U B B R R O O U U T I N NN E
18696 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18697
18698 // QQQQQ PPPPPP DDDDDD OOOOO CCCCC
18699 // Q Q P P D D O O C C
18700 // Q Q P P D D O O C
18701 // Q Q PPPPPP D D O O C
18702 // Q Q Q P D D O O C
18703 // Q Q P D D O O C C
18704 // QQQQ Q P DDDDDD OOOOO CCCCC
18705
18706
18707 // VIF THU 20 NOV 2025 22:21:12 ** QPDOC ** DIAGNOSTICS PAGE 00500
18708
18709
18710 // VIF THU 20 NOV 2025 22:21:12 ** QPDOC ** GENERATED CODE PAGE 00501
18711
18712 int_4 _qpdoc (void)
18713 { // ** body not listed **
18716 }
18717
18718 // VIF THU 20 NOV 2025 22:21:12 ** QPSRT ** QPSRT PAGE 00502
18719
18720 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18721 // S S U U B B R R O O U U T I NN N E
18722 // S U U B B R R O O U U T I N N N E
18723 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18724 // S U U B B R R O O U U T I N N N E
18725 // S S U U B B R R O O U U T I N NN E
18726 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18727
18728 // QQQQQ PPPPPP SSSSS RRRRRR TTTTTTT
18729 // Q Q P P S S R R T
18730 // Q Q P P S R R T
18731 // Q Q PPPPPP SSSSS RRRRRR T
18732 // Q Q Q P S R R T
18733 // Q Q P S S R R T
18734 // QQQQ Q P SSSSS R R T
18735
18736
18737 // VIF THU 20 NOV 2025 22:21:12 ** QPSRT ** DIAGNOSTICS PAGE 00503
18738
18739
18740 // VIF THU 20 NOV 2025 22:21:12 ** QPSRT ** GENERATED CODE PAGE 00504
18741
18742 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_
18743 iord_, int_4 _p_ nrmax_)
18744 { // ** body not listed **
18811 }
18812
18813 // VIF THU 20 NOV 2025 22:21:12 ** QWGTC ** QWGTC PAGE 00506
18814
18815 // RRRRRR EEEEEEE A L 4
18816 // R R E A A L * * 4 4
18817 // R R E A A L * * 4 4
18818 // RRRRRR EEEEE A A L ******* 4444444
18819 // R R E AAAAAAA L * * 4
18820 // R R E A A L * * 4
18821 // R R EEEEEEE A A LLLLLLL 4
18822
18823 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
18824 // F U U NN N C C T I O O NN N
18825 // F U U N N N C T I O O N N N
18826 // FFFFF U U N N N C T I O O N N N
18827 // F U U N N N C T I O O N N N
18828 // F U U N NN C C T I O O N NN
18829 // F UUUUU N N CCCCC T III OOOOO N N
18830
18831 // QQQQQ W W GGGGG TTTTTTT CCCCC
18832 // Q Q W W G G T C C
18833 // Q Q W W G T C
18834 // Q Q W W W G GGGG T C
18835 // Q Q Q W W W G G T C
18836 // Q Q W W W G G T C C
18837 // QQQQ Q WW WW GGGGG T CCCCC
18838
18839
18840 // VIF THU 20 NOV 2025 22:21:12 ** QWGTC ** DIAGNOSTICS PAGE 00507
18841
18842
18843 // VIF THU 20 NOV 2025 22:21:12 ** QWGTC ** GENERATED CODE PAGE 00508
18844
18845 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_)
18846 { // ** body not listed **
18851 }
18852
18853 // VIF THU 20 NOV 2025 22:21:12 ** QWGTF ** QWGTF PAGE 00509
18854
18855 // RRRRRR EEEEEEE A L 4
18856 // R R E A A L * * 4 4
18857 // R R E A A L * * 4 4
18858 // RRRRRR EEEEE A A L ******* 4444444
18859 // R R E AAAAAAA L * * 4
18860 // R R E A A L * * 4
18861 // R R EEEEEEE A A LLLLLLL 4
18862
18863 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
18864 // F U U NN N C C T I O O NN N
18865 // F U U N N N C T I O O N N N
18866 // FFFFF U U N N N C T I O O N N N
18867 // F U U N N N C T I O O N N N
18868 // F U U N NN C C T I O O N NN
18869 // F UUUUU N N CCCCC T III OOOOO N N
18870
18871 // QQQQQ W W GGGGG TTTTTTT FFFFFFF
18872 // Q Q W W G G T F
18873 // Q Q W W G T F
18874 // Q Q W W W G GGGG T FFFFF
18875 // Q Q Q W W W G G T F
18876 // Q Q W W W G G T F
18877 // QQQQ Q WW WW GGGGG T F
18878
18879
18880 // VIF THU 20 NOV 2025 22:21:12 ** QWGTF ** DIAGNOSTICS PAGE 00510
18881
18882
18883 // VIF THU 20 NOV 2025 22:21:12 ** QWGTF ** GENERATED CODE PAGE 00511
18884
18885 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_)
18886 { // ** body not listed **
18903 }
18904
18905 // VIF THU 20 NOV 2025 22:21:12 ** QWGTS ** QWGTS PAGE 00512
18906
18907 // RRRRRR EEEEEEE A L 4
18908 // R R E A A L * * 4 4
18909 // R R E A A L * * 4 4
18910 // RRRRRR EEEEE A A L ******* 4444444
18911 // R R E AAAAAAA L * * 4
18912 // R R E A A L * * 4
18913 // R R EEEEEEE A A LLLLLLL 4
18914
18915 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
18916 // F U U NN N C C T I O O NN N
18917 // F U U N N N C T I O O N N N
18918 // FFFFF U U N N N C T I O O N N N
18919 // F U U N N N C T I O O N N N
18920 // F U U N NN C C T I O O N NN
18921 // F UUUUU N N CCCCC T III OOOOO N N
18922
18923 // QQQQQ W W GGGGG TTTTTTT SSSSS
18924 // Q Q W W G G T S S
18925 // Q Q W W G T S
18926 // Q Q W W W G GGGG T SSSSS
18927 // Q Q Q W W W G G T S
18928 // Q Q W W W G G T S S
18929 // QQQQ Q WW WW GGGGG T SSSSS
18930
18931
18932 // VIF THU 20 NOV 2025 22:21:12 ** QWGTS ** DIAGNOSTICS PAGE 00513
18933
18934
18935 // VIF THU 20 NOV 2025 22:21:12 ** QWGTS ** GENERATED CODE PAGE 00514
18936
18937 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_)
18938 { // ** body not listed **
18962 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
