mathlib-odepack.c
1 //! @file mathlib-odepack.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 ODEPACK
24
25 // Compiled from Fortran source code by VIF.
26
27 // ODEPACK - A Systematized Collection of ODE Solvers
28 //
29 // Source: netlib.org/odepack
30 //
31 // Original author is Alan C. Hindmarsh.
32 //
33 // Work performed under the auspices of the U.S. Department of Energy
34 // by the Lawrence Livermore National Laboratory under contract
35 // No. W-7405-Eng-48, and supported (formerly) by the DOE Office of
36 // Energy Research, Applied Mathematical Sciences Research Program.
37 //
38
39 // The license for ODEPACK Fortran source code is:
40 //
41 // NOTICE
42 //
43 // This work was produced at the University of California, Lawrence Livermore
44 // National Laboratory (UC LLNL) under contract no. W-7405-ENG-48 (Contract
45 // 48) between the U.S. Department of Energy (DOE) and The Regents of the
46 // University of California (University) for the operation of UC LLNL. The
47 // rights of the Federal Government are reserved under Contract 48 subject
48 // to the restrictions agreed upon by the DOE and University as allowed
49 // under DOE Acquisition Letter 97-1.
50 //
51 // The ODEPACK package has been declared to be in the Public Domain.
52 //
53 // DISCLAIMER
54 //
55 // This work was prepared as an account of work sponsored by an agency of
56 // the United States Government. Neither the United States Government nor the
57 // University of California nor any of their employees, makes any warranty,
58 // express or implied, or assumes any liability or responsibility for the
59 // accuracy, completeness, or usefulness of any information, apparatus,
60 // product, or process disclosed, or represents that its use would not
61 // infringe privately-owned rights. Reference herein to any specific
62 // commercial products, process, or service by trade name, trademark,
63 // manufacturer or otherwise does not necessarily constitute or imply
64 // its endorsement, recommendation, or favoring by the United States
65 // Government or the University of California. The views and opinions of
66 // authors expressed herein do not necessarily state or reflect those of
67 // the United States Government or the University of California, and shall
68 // not be used for advertising or product endorsement purposes.
69
70 // VIF THU 13 NOV 2025 17:29:08 ** MARCEL ** ODEPACK PAGE 00001
71
72
73
74 // M M A RRRRRR CCCCC EEEEEEE L
75 // MM MM A A R R C C E L
76 // M M M M A A R R C E L
77 // M M M A A RRRRRR C EEEEE L
78 // M M AAAAAAA R R C E L
79 // M M A A R R C C E L
80 // M M A A R R CCCCC EEEEEEE LLLLLLL
81
82 // OOOOO DDDDDD EEEEEEE PPPPPP A CCCCC K K
83 // O O D D E P P A A C C K K
84 // O O D D E P P A A C K K
85 // O O D D EEEEE PPPPPP A A C KKK
86 // O O D D E P AAAAAAA C K K
87 // O O D D E P A A C C K K
88 // OOOOO DDDDDD EEEEEEE P A A CCCCC K K
89
90
91
92
93 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
94
95 // ** linker ** object size 1415016 bytes
96 // ** statistics ** 84 subprograms, no errors, no warnings
97
98
99 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
100
101
102 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
103
104
105
106 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
107
108 /*
109 Generated by VIF - experimental VIntage Fortran compiler.
110 VIF release 1.4.0
111 */
112
113 #if defined (__GNUC__)
114 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
115 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
116 #if (__GNUC__ >= 14)
117 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
118 #pragma GCC diagnostic ignored "-Wimplicit-int"
119 #pragma GCC diagnostic ignored "-Wint-conversion"
120 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
121 #endif
122 #else
123 #error VIF requires GCC
124 #endif
125
126 #include <vif.h>
127
128 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
129
130
131 #define _dc_0 "dintdy- k (=i1) illegal "
132 #define _dc_1 "dintdy- t (=r1) illegal "
133 #define _dc_2 " t not in interval tcur - hu (= r1) to tcur (=r2) "
134 #define _dc_3 "dlsoda- warning.. rwork length is sufficient for now, but "
135 #define _dc_4 " may not be later. integration will proceed anyway. "
136 #define _dc_5 " length needed is lenrw = i1, while lrw = i2."
137 #define _dc_6 "dlsoda- warning.. iwork length is sufficient for now, but "
138 #define _dc_7 " length needed is leniw = i1, while liw = i2."
139 #define _dc_8 "dlsoda- warning..internal t (=r1) and h (=r2) are"
140 #define _dc_9 " such that in the machine, t + h = t on the next step "
141 #define _dc_10 " (h = step size). solver will continue anyway."
142 #define _dc_11 "dlsoda- above warning has been issued i1 times. "
143 #define _dc_12 " it will not be issued again for this problem."
144 #define _dc_13 "dlsoda- a switch to the bdf (stiff) method has occurred "
145 #define _dc_14 "dlsoda- a switch to the adams (nonstiff) method has occurred"
146 #define _dc_15 " at t = r1, tentative step size h = r2, step nst = i1 "
147 #define _dc_16 "dlsoda- at current t (=r1), mxstep (=i1) steps "
148 #define _dc_17 " taken on this call before reaching tout "
149 #define _dc_18 "dlsoda- at t (=r1), ewt(i1) has become r2 .le. 0."
150 #define _dc_19 "dlsoda- at t (=r1), too much accuracy requested "
151 #define _dc_20 " for precision of machine.. see tolsf (=r2) "
152 #define _dc_21 "dlsoda- at t(=r1) and step size h(=r2), the error"
153 #define _dc_22 " test failed repeatedly or with abs(h) = hmin"
154 #define _dc_23 "dlsoda- at t (=r1) and step size h (=r2), the "
155 #define _dc_24 " corrector convergence failed repeatedly "
156 #define _dc_25 " or with abs(h) = hmin "
157 #define _dc_26 "dlsoda- at current t(=r1), rwork length too small"
158 #define _dc_27 " to proceed. the integration was otherwise successful."
159 #define _dc_28 "dlsoda- at current t(=r1), iwork length too small"
160 #define _dc_29 "dlsoda- istate (=i1) illegal."
161 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00005
162
163 #define _dc_30 "dlsoda- itask (=i1) illegal. "
164 #define _dc_31 "dlsoda- istate .gt. 1 but dlsoda not initialized."
165 #define _dc_32 "dlsoda- neq (=i1) .lt. 1 "
166 #define _dc_33 "dlsoda- istate = 3 and neq increased (i1 to i2). "
167 #define _dc_34 "dlsoda- itol (=i1) illegal. "
168 #define _dc_35 "dlsoda- iopt (=i1) illegal. "
169 #define _dc_36 "dlsoda- jt (=i1) illegal. "
170 #define _dc_37 "dlsoda- ml (=i1) illegal: .lt.0 or .ge.neq (=i2) "
171 #define _dc_38 "dlsoda- mu (=i1) illegal: .lt.0 or .ge.neq (=i2) "
172 #define _dc_39 "dlsoda- ixpr (=i1) illegal. "
173 #define _dc_40 "dlsoda- mxstep (=i1) .lt. 0 "
174 #define _dc_41 "dlsoda- mxhnil (=i1) .lt. 0 "
175 #define _dc_42 "dlsoda- tout (=r1) behind t (=r2) "
176 #define _dc_43 " integration direction is given by h0 (=r1) "
177 #define _dc_44 "dlsoda- hmax (=r1) .lt. 0.0 "
178 #define _dc_45 "dlsoda- hmin (=r1) .lt. 0.0 "
179 #define _dc_46 "dlsoda- rwork length needed, lenrw (=i1), exceeds lrw (=i2)"
180 #define _dc_47 "dlsoda- iwork length needed, leniw (=i1), exceeds liw (=i2)"
181 #define _dc_48 "dlsoda- rtol(i1) is r1 .lt. 0.0 "
182 #define _dc_49 "dlsoda- atol(i1) is r1 .lt. 0.0 "
183 #define _dc_50 "dlsoda- ewt(i1) is r1 .le. 0.0 "
184 #define _dc_51 "dlsoda- tout(=r1) too close to t(=r2) to start integration."
185 #define _dc_52 "dlsoda- itask = i1 and tout (=r1) behind tcur - hu (= r2) "
186 #define _dc_53 "dlsoda- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) "
187 #define _dc_54 "dlsoda- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) "
188 #define _dc_55 "dlsoda- at start of problem, too much accuracy "
189 #define _dc_56 " requested for precision of machine.. see tolsf (=r1) "
190 #define _dc_57 "dlsoda- trouble in dintdy. itask = i1, tout = r1"
191 #define _dc_58 "dlsoda- mxordn (=i1) .lt. 0 "
192 #define _dc_59 "dlsoda- mxords (=i1) .lt. 0 "
193 #define _dc_60 "dlsoda- run aborted.. apparent infinite loop. "
194 #define _dc_61 "dlsodar- warning.. rwork length is sufficient for now, but "
195 #define _dc_62 "dlsodar- warning.. iwork length is sufficient for now, but "
196 #define _dc_63 "dlsodar- warning..internal t(=r1) and h(=r2) are "
197 #define _dc_64 "dlsodar- above warning has been issued i1 times. "
198 #define _dc_65 "dlsodar- a switch to the bdf (stiff) method has occurred "
199 #define _dc_66 "dlsodar- a switch to the adams (nonstiff) method occurred "
200 #define _dc_67 "dlsodar- at current t (=r1), mxstep (=i1) steps "
201 #define _dc_68 "dlsodar- at t(=r1), ewt(i1) has become r2 .le. 0."
202 #define _dc_69 "dlsodar- at t (=r1), too much accuracy requested "
203 #define _dc_70 "dlsodar- at t(=r1), step size h(=r2), the error "
204 #define _dc_71 "dlsodar- at t (=r1) and step size h (=r2), the "
205 #define _dc_72 "dlsodar- at current t(=r1), rwork length too small"
206 #define _dc_73 "dlsodar- at current t(=r1), iwork length too small"
207 #define _dc_74 "dlsodar- istate(=i1) illegal."
208 #define _dc_75 "dlsodar- itask (=i1) illegal."
209 #define _dc_76 "dlsodar- istate.gt.1 but dlsodar not initialized."
210 #define _dc_77 "dlsodar- neq (=i1) .lt. 1 "
211 #define _dc_78 "dlsodar- istate = 3 and neq increased (i1 to i2)."
212 #define _dc_79 "dlsodar- itol (=i1) illegal. "
213 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00006
214
215 #define _dc_80 "dlsodar- iopt (=i1) illegal. "
216 #define _dc_81 "dlsodar- jt (=i1) illegal. "
217 #define _dc_82 "dlsodar- ml (=i1) illegal: .lt.0 or .ge.neq (=i2)"
218 #define _dc_83 "dlsodar- mu (=i1) illegal: .lt.0 or .ge.neq (=i2)"
219 #define _dc_84 "dlsodar- ixpr (=i1) illegal. "
220 #define _dc_85 "dlsodar- mxstep (=i1) .lt. 0 "
221 #define _dc_86 "dlsodar- mxhnil (=i1) .lt. 0 "
222 #define _dc_87 "dlsodar- tout (=r1) behind t (=r2) "
223 #define _dc_88 "dlsodar- hmax (=r1) .lt. 0.0 "
224 #define _dc_89 "dlsodar- hmin (=r1) .lt. 0.0 "
225 #define _dc_90 "dlsodar- rwork length needed, lenrw(=i1), exceeds lrw(=i2) "
226 #define _dc_91 "dlsodar- iwork length needed, leniw(=i1), exceeds liw(=i2) "
227 #define _dc_92 "dlsodar- rtol(i1) is r1 .lt. 0.0 "
228 #define _dc_93 "dlsodar- atol(i1) is r1 .lt. 0.0 "
229 #define _dc_94 "dlsodar- ewt(i1) is r1 .le. 0.0 "
230 #define _dc_95 "dlsodar- tout(=r1) too close to t(=r2) to start integration."
231 #define _dc_96 "dlsodar- itask = i1 and tout (=r1) behind tcur - hu (= r2) "
232 #define _dc_97 "dlsodar- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) "
233 #define _dc_98 "dlsodar- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) "
234 #define _dc_99 "dlsodar- at start of problem, too much accuracy "
235 #define _dc_100 "dlsodar- trouble in dintdy. itask = i1, tout = r1"
236 #define _dc_101 "dlsodar- mxordn (=i1) .lt. 0 "
237 #define _dc_102 "dlsodar- mxords (=i1) .lt. 0 "
238 #define _dc_103 "dlsodar- ng (=i1) .lt. 0 "
239 #define _dc_104 "dlsodar- ng changed (from i1 to i2) illegally, "
240 #define _dc_105 " i.e. not immediately after a root was found."
241 #define _dc_106 "dlsodar- one or more components of g has a root "
242 #define _dc_107 " too near to the initial point. "
243 #define _dc_108 "dlsodar- run aborted.. apparent infinite loop. "
244 #define _dc_109 "dlsode- warning..internal t (=r1) and h (=r2) are"
245 #define _dc_110 " (h = step size). solver will continue anyway"
246 #define _dc_111 "dlsode- above warning has been issued i1 times. "
247 #define _dc_112 " it will not be issued again for this problem"
248 #define _dc_113 "dlsode- at current t (=r1), mxstep (=i1) steps "
249 #define _dc_114 "dlsode- at t (=r1), ewt(i1) has become r2 .le. 0."
250 #define _dc_115 "dlsode- at t (=r1), too much accuracy requested "
251 #define _dc_116 "dlsode- at t(=r1) and step size h(=r2), the error"
252 #define _dc_117 "dlsode- at t (=r1) and step size h (=r2), the "
253 #define _dc_118 "dlsode- istate (=i1) illegal "
254 #define _dc_119 "dlsode- itask (=i1) illegal "
255 #define _dc_120 "dlsode- istate .gt. 1 but dlsode not initialized "
256 #define _dc_121 "dlsode- neq (=i1) .lt. 1 "
257 #define _dc_122 "dlsode- istate = 3 and neq increased (i1 to i2) "
258 #define _dc_123 "dlsode- itol (=i1) illegal "
259 #define _dc_124 "dlsode- iopt (=i1) illegal "
260 #define _dc_125 "dlsode- mf (=i1) illegal "
261 #define _dc_126 "dlsode- ml (=i1) illegal.. .lt.0 or .ge.neq (=i2)"
262 #define _dc_127 "dlsode- mu (=i1) illegal.. .lt.0 or .ge.neq (=i2)"
263 #define _dc_128 "dlsode- maxord (=i1) .lt. 0 "
264 #define _dc_129 "dlsode- mxstep (=i1) .lt. 0 "
265 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00007
266
267 #define _dc_130 "dlsode- mxhnil (=i1) .lt. 0 "
268 #define _dc_131 "dlsode- tout (=r1) behind t (=r2) "
269 #define _dc_132 "dlsode- hmax (=r1) .lt. 0.0 "
270 #define _dc_133 "dlsode- hmin (=r1) .lt. 0.0 "
271 #define _dc_134 "dlsode- rwork length needed, lenrw (=i1), exceeds lrw (=i2)"
272 #define _dc_135 "dlsode- iwork length needed, leniw (=i1), exceeds liw (=i2)"
273 #define _dc_136 "dlsode- rtol(i1) is r1 .lt. 0.0 "
274 #define _dc_137 "dlsode- atol(i1) is r1 .lt. 0.0 "
275 #define _dc_138 "dlsode- ewt(i1) is r1 .le. 0.0 "
276 #define _dc_139 "dlsode- tout (=r1) too close to t(=r2) to start integration"
277 #define _dc_140 "dlsode- itask = i1 and tout (=r1) behind tcur - hu (= r2) "
278 #define _dc_141 "dlsode- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) "
279 #define _dc_142 "dlsode- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) "
280 #define _dc_143 "dlsode- at start of problem, too much accuracy "
281 #define _dc_144 "dlsode- trouble in dintdy. itask = i1, tout = r1"
282 #define _dc_145 "dlsode- run aborted.. apparent infinite loop "
283 #define _dc_146 "dlsodes- warning..internal t (=r1) and h (=r2) are"
284 #define _dc_147 "dlsodes- above warning has been issued i1 times. "
285 #define _dc_148 "dlsodes- at current t (=r1), mxstep (=i1) steps "
286 #define _dc_149 "dlsodes- at t (=r1), ewt(i1) has become r2 .le. 0."
287 #define _dc_150 "dlsodes- at t (=r1), too much accuracy requested "
288 #define _dc_151 "dlsodes- at t(=r1) and step size h(=r2), the error"
289 #define _dc_152 "dlsodes- at t (=r1) and step size h (=r2), the "
290 #define _dc_153 "dlsodes- at t (=r1) and step size h (=r2), a fatal"
291 #define _dc_154 " error flag was returned by cdrv (by way of "
292 #define _dc_155 " subroutine dprjs or dsolss) "
293 #define _dc_156 "dlsodes- istate (=i1) illegal."
294 #define _dc_157 "dlsodes- itask (=i1) illegal. "
295 #define _dc_158 "dlsodes- istate.gt.1 but dlsodes not initialized. "
296 #define _dc_159 "dlsodes- neq (=i1) .lt. 1 "
297 #define _dc_160 "dlsodes- istate = 3 and neq increased (i1 to i2). "
298 #define _dc_161 "dlsodes- itol (=i1) illegal. "
299 #define _dc_162 "dlsodes- iopt (=i1) illegal. "
300 #define _dc_163 "dlsodes- mf (=i1) illegal. "
301 #define _dc_164 "dlsodes- seth (=r1) .lt. 0.0 "
302 #define _dc_165 "dlsodes- maxord (=i1) .lt. 0 "
303 #define _dc_166 "dlsodes- mxstep (=i1) .lt. 0 "
304 #define _dc_167 "dlsodes- mxhnil (=i1) .lt. 0 "
305 #define _dc_168 "dlsodes- tout (=r1) behind t (=r2) "
306 #define _dc_169 "dlsodes- hmax (=r1) .lt. 0.0 "
307 #define _dc_170 "dlsodes- hmin (=r1) .lt. 0.0 "
308 #define _dc_171 "dlsodes- rwork length is insufficient to proceed. "
309 #define _dc_172 " length needed is .ge. lenrw (=i1), exceeds lrw (=i2)"
310 #define _dc_173 "dlsodes- iwork length is insufficient to proceed. "
311 #define _dc_174 " length needed is .ge. leniw (=i1), exceeds liw (=i2)"
312 #define _dc_175 "dlsodes- rtol(i1) is r1 .lt. 0.0 "
313 #define _dc_176 "dlsodes- atol(i1) is r1 .lt. 0.0 "
314 #define _dc_177 "dlsodes- ewt(i1) is r1 .le. 0.0 "
315 #define _dc_178 "dlsodes- tout(=r1) too close to t(=r2) to start integration."
316 #define _dc_179 "dlsodes- itask = i1 and tout (=r1) behind tcur - hu (= r2) "
317 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00008
318
319 #define _dc_180 "dlsodes- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) "
320 #define _dc_181 "dlsodes- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) "
321 #define _dc_182 "dlsodes- at start of problem, too much accuracy "
322 #define _dc_183 "dlsodes- trouble in dintdy. itask = i1, tout = r1"
323 #define _dc_184 "dlsodes- rwork length insufficient (for subroutine dprep). "
324 #define _dc_185 "dlsodes- rwork length insufficient (for subroutine jgroup). "
325 #define _dc_186 "dlsodes- rwork length insufficient (for subroutine odrv). "
326 #define _dc_187 "dlsodes- error from odrv in yale sparse matrix package. "
327 #define _dc_188 " at t (=r1), odrv returned error flag = i1*neq + i2. "
328 #define _dc_189 "dlsodes- rwork length insufficient (for subroutine cdrv). "
329 #define _dc_190 "dlsodes- error from cdrv in yale sparse matrix package. "
330 #define _dc_191 " at t (=r1), cdrv returned error flag = i1*neq + i2. "
331 #define _dc_192 " duplicate entry in sparsity structure descriptors. "
332 #define _dc_193 " insufficient storage for nsfc (called by cdrv). "
333 #define _dc_194 "dlsodes- run aborted.. apparent infinite loop. "
334 #define _dc_195 "dlsoibt- warning..internal t (=r1) and h (=r2) are"
335 #define _dc_196 "dlsoibt- above warning has been issued i1 times. "
336 #define _dc_197 "dlsoibt- at current t (=r1), mxstep (=i1) steps "
337 #define _dc_198 "dlsoibt- at t (=r1), ewt(i1) has become r2 .le. 0."
338 #define _dc_199 "dlsoibt- at t (=r1), too much accuracy requested "
339 #define _dc_200 "dlsoibt- at t (=r1) and step size h (=r2), the "
340 #define _dc_201 "error test failed repeatedly or with abs(h) = hmin"
341 #define _dc_202 "dlsoibt- at t (=r1) residual routine returned "
342 #define _dc_203 " error ires = 3 repeatedly. "
343 #define _dc_204 "dlsoibt- attempt to initialize dy/dt failed: matrix a has a"
344 #define _dc_205 " singular diagonal block, block no. = (i1) "
345 #define _dc_206 "dlsoibt- attempt to initialize dy/dt failed "
346 #define _dc_207 " because residual routine set its error flag "
347 #define _dc_208 " to ires = (i1)"
348 #define _dc_209 "dlsoibt- residual routine set its flag ires "
349 #define _dc_210 " to (i1) when called for final output. "
350 #define _dc_211 "dlsoibt- istate (=i1) illegal."
351 #define _dc_212 "dlsoibt- itask (=i1) illegal. "
352 #define _dc_213 "dlsoibt- istate.gt.1 but dlsoibt not initialized. "
353 #define _dc_214 "dlsoibt- neq (=i1) .lt. 1 "
354 #define _dc_215 "dlsoibt- istate = 3 and neq increased (i1 to i2). "
355 #define _dc_216 "dlsoibt- itol (=i1) illegal. "
356 #define _dc_217 "dlsoibt- iopt (=i1) illegal. "
357 #define _dc_218 "dlsoibt- mf (=i1) illegal. "
358 #define _dc_219 "dlsoibt- mb (=i1) or nb (=i2) illegal. "
359 #define _dc_220 "dlsoibt- nb (=i1) .lt. 4 illegal. "
360 #define _dc_221 "dlsoibt- maxord (=i1) .lt. 0 "
361 #define _dc_222 "dlsoibt- mxstep (=i1) .lt. 0 "
362 #define _dc_223 "dlsoibt- mxhnil (=i1) .lt. 0 "
363 #define _dc_224 "dlsoibt- tout (=r1) behind t (=r2) "
364 #define _dc_225 "dlsoibt- hmax (=r1) .lt. 0.0 "
365 #define _dc_226 "dlsoibt- hmin (=r1) .lt. 0.0 "
366 #define _dc_227 "dlsoibt- rwork length needed, lenrw (=i1), exceeds lrw (=i2)"
367 #define _dc_228 "dlsoibt- iwork length needed, leniw (=i1), exceeds liw (=i2)"
368 #define _dc_229 "dlsoibt- rtol(=i1) is r1 .lt. 0.0 "
369 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00009
370
371 #define _dc_230 "dlsoibt- atol(=i1) is r1 .lt. 0.0 "
372 #define _dc_231 "dlsoibt- ewt(i1) is r1 .le. 0.0 "
373 #define _dc_232 "dlsoibt- tout(=r1) too close to t(=r2) to start integration."
374 #define _dc_233 "dlsoibt- itask = i1 and tout (=r1) behind tcur - hu (= r2) "
375 #define _dc_234 "dlsoibt- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) "
376 #define _dc_235 "dlsoibt- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) "
377 #define _dc_236 "dlsoibt- at start of problem, too much accuracy "
378 #define _dc_237 "dlsoibt- trouble in dintdy. itask = i1, tout = r1"
379 #define _dc_238 "dlsoibt- run aborted.. apparent infinite loop. "
380 #define _dc_239 "dlsodi- warning..internal t (=r1) and h (=r2) are"
381 #define _dc_240 "dlsodi- above warning has been issued i1 times. "
382 #define _dc_241 "dlsodi- at current t (=r1), mxstep (=i1) steps "
383 #define _dc_242 "dlsodi- at t (=r1), ewt(i1) has become r2 .le. 0."
384 #define _dc_243 "dlsodi- at t (=r1), too much accuracy requested "
385 #define _dc_244 "dlsodi- at t(=r1) and step size h(=r2), the error"
386 #define _dc_245 "dlsodi- at t (=r1) and step size h (=r2), the "
387 #define _dc_246 "dlsodi- at t (=r1) residual routine returned "
388 #define _dc_247 "dlsodi- attempt to initialize dy/dt failed: matrix a is "
389 #define _dc_248 " singular. dgefa or dgbfa returned info = i1"
390 #define _dc_249 "dlsodi- attempt to initialize dy/dt failed "
391 #define _dc_250 "dlsodi- residual routine set its flag ires "
392 #define _dc_251 "dlsodi- istate (=i1) illegal."
393 #define _dc_252 "dlsodi- itask (=i1) illegal. "
394 #define _dc_253 "dlsodi- istate .gt. 1 but dlsodi not initialized."
395 #define _dc_254 "dlsodi- neq (=i1) .lt. 1 "
396 #define _dc_255 "dlsodi- istate = 3 and neq increased (i1 to i2). "
397 #define _dc_256 "dlsodi- itol (=i1) illegal. "
398 #define _dc_257 "dlsodi- iopt (=i1) illegal. "
399 #define _dc_258 "dlsodi- mf (=i1) illegal. "
400 #define _dc_259 "dlsodi- ml(=i1) illegal: .lt. 0 or .ge. neq(=i2) "
401 #define _dc_260 "dlsodi- mu(=i1) illegal: .lt. 0 or .ge. neq(=i2) "
402 #define _dc_261 "dlsodi- maxord (=i1) .lt. 0 "
403 #define _dc_262 "dlsodi- mxstep (=i1) .lt. 0 "
404 #define _dc_263 "dlsodi- mxhnil (=i1) .lt. 0 "
405 #define _dc_264 "dlsodi- tout (=r1) behind t (=r2) "
406 #define _dc_265 "dlsodi- hmax (=r1) .lt. 0.0 "
407 #define _dc_266 "dlsodi- hmin (=r1) .lt. 0.0 "
408 #define _dc_267 "dlsodi- rwork length needed, lenrw (=i1), exceeds lrw (=i2)"
409 #define _dc_268 "dlsodi- iwork length needed, leniw (=i1), exceeds liw (=i2)"
410 #define _dc_269 "dlsodi- rtol(=i1) is r1 .lt. 0.0 "
411 #define _dc_270 "dlsodi- atol(=i1) is r1 .lt. 0.0 "
412 #define _dc_271 "dlsodi- ewt(i1) is r1 .le. 0.0 "
413 #define _dc_272 "dlsodi- tout(=r1) too close to t(=r2) to start integration."
414 #define _dc_273 "dlsodi- itask = i1 and tout (=r1) behind tcur - hu (= r2) "
415 #define _dc_274 "dlsodi- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) "
416 #define _dc_275 "dlsodi- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) "
417 #define _dc_276 "dlsodi- at start of problem, too much accuracy "
418 #define _dc_277 "dlsodi- trouble in dintdy. itask = i1, tout = r1"
419 #define _dc_278 "dlsodi- run aborted.. apparent infinite loop. "
420 #define _dc_279 "dlsodis- warning..internal t (=r1) and h (=r2) are"
421 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00010
422
423 #define _dc_280 "dlsodis- above warning has been issued i1 times. "
424 #define _dc_281 "dlsodis- at current t (=r1), mxstep (=i1) steps "
425 #define _dc_282 "dlsodis- at t (=r1), ewt(i1) has become r2 .le. 0."
426 #define _dc_283 "dlsodis- at t (=r1), too much accuracy requested "
427 #define _dc_284 "dlsodis- at t (=r1) and step size h (=r2), the "
428 #define _dc_285 " error test failed repeatedly or with abs(h) = hmin "
429 #define _dc_286 "dlsodis- at t (=r1) residual routine returned "
430 #define _dc_287 " error ires = 3 repeatedly."
431 #define _dc_288 "dlsodis- at t (=r1) and step size h (=r2), a fatal"
432 #define _dc_289 " subroutine dprjis or dsolss) "
433 #define _dc_290 "dlsodis- attempt to initialize dy/dt failed because matrix a"
434 #define _dc_291 " was singular. cdrv returned zero pivot error flag. "
435 #define _dc_292 "dainvgs set its error flag to ier = (i1)"
436 #define _dc_293 "dlsodis- attempt to initialize dy/dt failed "
437 #define _dc_294 "dlsodis- residual routine set its flag ires "
438 #define _dc_295 "dlsodis- istate (=i1) illegal."
439 #define _dc_296 "dlsodis- itask (=i1) illegal. "
440 #define _dc_297 "dlsodis-istate .gt. 1 but dlsodis not initialized."
441 #define _dc_298 "dlsodis- neq (=i1) .lt. 1 "
442 #define _dc_299 "dlsodis- istate = 3 and neq increased (i1 to i2). "
443 #define _dc_300 "dlsodis- itol (=i1) illegal. "
444 #define _dc_301 "dlsodis- iopt (=i1) illegal. "
445 #define _dc_302 "dlsodis- mf (=i1) illegal. "
446 #define _dc_303 "dlsodis- maxord (=i1) .lt. 0 "
447 #define _dc_304 "dlsodis- mxstep (=i1) .lt. 0 "
448 #define _dc_305 "dlsodis- mxhnil (=i1) .lt. 0 "
449 #define _dc_306 "dlsodis- tout (=r1) behind t (=r2) "
450 #define _dc_307 "dlsodis- hmax (=r1) .lt. 0.0 "
451 #define _dc_308 "dlsodis- hmin (=r1) .lt. 0.0 "
452 #define _dc_309 "dlsodis- rwork length is insufficient to proceed. "
453 #define _dc_310 "dlsodis- iwork length is insufficient to proceed. "
454 #define _dc_311 "dlsodis- rtol(=i1) is r1 .lt. 0.0 "
455 #define _dc_312 "dlsodis- atol(=i1) is r1 .lt. 0.0 "
456 #define _dc_313 "dlsodis- ewt(i1) is r1 .le. 0.0 "
457 #define _dc_314 "dlsodis- tout(=r1) too close to t(=r2) to start integration."
458 #define _dc_315 "dlsodis- itask = i1 and tout (=r1) behind tcur - hu (= r2) "
459 #define _dc_316 "dlsodis- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) "
460 #define _dc_317 "dlsodis- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) "
461 #define _dc_318 "dlsodis- at start of problem, too much accuracy "
462 #define _dc_319 "dlsodis- trouble in dintdy. itask = i1, tout = r1"
463 #define _dc_320 "dlsodis- rwork length insufficient (for subroutine dprepi). "
464 #define _dc_321 "dlsodis- rwork length insufficient (for subroutine jgroup). "
465 #define _dc_322 "dlsodis- rwork length insufficient (for subroutine odrv). "
466 #define _dc_323 "dlsodis- error from odrv in yale sparse matrix package. "
467 #define _dc_324 "dlsodis- rwork length insufficient (for subroutine cdrv). "
468 #define _dc_325 "dlsodis- error from cdrv in yale sparse matrix package. "
469 #define _dc_326 "dlsodis- at t (=r1) residual routine (called by dprepi) "
470 #define _dc_327 " returned error ires (=i1)"
471 #define _dc_328 "dlsodis- run aborted.. apparent infinite loop. "
472 #define _dc_329 "dlsodkr- warning. poor iterative algorithm performance seen "
473 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00011
474
475 #define _dc_330 " at t = r1 by average no. of linear iterations = r2 "
476 #define _dc_331 " at t = r1 by nonlinear convergence failure rate = r2 "
477 #define _dc_332 " at t = r1 by linear convergence failure rate = r2 "
478 #define _dc_333 "dlsodkr- warning.. internal t(=r1) and h(=r2) are"
479 #define _dc_334 "dlsodkr- above warning has been issued i1 times. "
480 #define _dc_335 "dlsodkr- at current t (=r1), mxstep (=i1) steps "
481 #define _dc_336 "dlsodkr- at t(=r1), ewt(i1) has become r2 .le. 0."
482 #define _dc_337 "dlsodkr- at t (=r1), too much accuracy requested "
483 #define _dc_338 "dlsodkr- at t(=r1) and step size h(=r2), the error"
484 #define _dc_339 "dlsodkr- at t (=r1) and step size h (=r2), the "
485 #define _dc_340 "dlsodkr- at t (=r1) an unrecoverable error return"
486 #define _dc_341 " was made from subroutine psol "
487 #define _dc_342 "dlsodkr- istate(=i1) illegal."
488 #define _dc_343 "dlsodkr- itask (=i1) illegal."
489 #define _dc_344 "dlsodkr- istate.gt.1 but dlsodkr not initialized. "
490 #define _dc_345 "dlsodkr- neq (=i1) .lt. 1 "
491 #define _dc_346 "dlsodkr- istate = 3 and neq increased (i1 to i2)."
492 #define _dc_347 "dlsodkr- itol (=i1) illegal. "
493 #define _dc_348 "dlsodkr- iopt (=i1) illegal. "
494 #define _dc_349 "dlsodkr- mf (=i1) illegal. "
495 #define _dc_350 "dlsodkr- maxord (=i1) .lt. 0 "
496 #define _dc_351 "dlsodkr- mxstep (=i1) .lt. 0 "
497 #define _dc_352 "dlsodkr- mxhnil (=i1) .lt. 0 "
498 #define _dc_353 "dlsodkr- tout (=r1) behind t (=r2) "
499 #define _dc_354 "dlsodkr- hmax (=r1) .lt. 0.0 "
500 #define _dc_355 "dlsodkr- hmin (=r1) .lt. 0.0 "
501 #define _dc_356 "dlsodkr- rwork length needed, lenrw(=i1), exceeds lrw(=i2) "
502 #define _dc_357 "dlsodkr- iwork length needed, leniw(=i1), exceeds liw(=i2) "
503 #define _dc_358 "dlsodkr- rtol(i1) is r1 .lt. 0.0 "
504 #define _dc_359 "dlsodkr- atol(i1) is r1 .lt. 0.0 "
505 #define _dc_360 "dlsodkr- ewt(i1) is r1 .le. 0.0 "
506 #define _dc_361 "dlsodkr- tout(=r1) too close to t(=r2) to start integration."
507 #define _dc_362 "dlsodkr- itask = i1 and tout (=r1) behind tcur - hu (= r2) "
508 #define _dc_363 "dlsodkr- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) "
509 #define _dc_364 "dlsodkr- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) "
510 #define _dc_365 "dlsodkr- at start of problem, too much accuracy "
511 #define _dc_366 "dlsodkr- trouble in dintdy. itask = i1, tout = r1"
512 #define _dc_367 "dlsodkr- ng (=i1) .lt. 0 "
513 #define _dc_368 "dlsodkr- ng changed (from i1 to i2) illegally, "
514 #define _dc_369 "dlsodkr- one or more components of g has a root "
515 #define _dc_370 "dlsodkr- run aborted.. apparent infinite loop. "
516 #define _dc_371 "dlsodpk- warning. poor iterative algorithm performance seen "
517 #define _dc_372 "dlsodpk- warning..internal t(=r1) and h(=r2) are "
518 #define _dc_373 "dlsodpk- above warning has been issued i1 times. "
519 #define _dc_374 "dlsodpk- at current t (=r1), mxstep (=i1) steps "
520 #define _dc_375 "dlsodpk- at t (=r1), ewt(i1) has become r2.le.0. "
521 #define _dc_376 "dlsodpk- at t (=r1), too much accuracy requested "
522 #define _dc_377 "dlsodpk- at t(=r1), step size h(=r2), the error "
523 #define _dc_378 "dlsodpk- at t (=r1) and step size h (=r2), the "
524 #define _dc_379 "dlsodpk- at t (=r1) an unrecoverable error return"
525 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00012
526
527 #define _dc_380 "dlsodpk- istate(=i1) illegal."
528 #define _dc_381 "dlsodpk- itask (=i1) illegal."
529 #define _dc_382 "dlsodpk- istate.gt.1 but dlsodpk not initialized."
530 #define _dc_383 "dlsodpk- neq (=i1) .lt. 1 "
531 #define _dc_384 "dlsodpk- istate = 3 and neq increased (i1 to i2)."
532 #define _dc_385 "dlsodpk- itol (=i1) illegal. "
533 #define _dc_386 "dlsodpk- iopt (=i1) illegal. "
534 #define _dc_387 "dlsodpk- mf (=i1) illegal. "
535 #define _dc_388 "dlsodpk- maxord (=i1) .lt. 0 "
536 #define _dc_389 "dlsodpk- mxstep (=i1) .lt. 0 "
537 #define _dc_390 "dlsodpk- mxhnil (=i1) .lt. 0 "
538 #define _dc_391 "dlsodpk- tout (=r1) behind t (=r2) "
539 #define _dc_392 "dlsodpk- hmax (=r1) .lt. 0.0 "
540 #define _dc_393 "dlsodpk- hmin (=r1) .lt. 0.0 "
541 #define _dc_394 "dlsodpk- rwork length needed, lenrw(=i1), exceeds lrw(=i2) "
542 #define _dc_395 "dlsodpk- iwork length needed, leniw(=i1), exceeds liw(=i2) "
543 #define _dc_396 "dlsodpk- rtol(i1) is r1 .lt. 0.0 "
544 #define _dc_397 "dlsodpk- atol(i1) is r1 .lt. 0.0 "
545 #define _dc_398 "dlsodpk- ewt(i1) is r1 .le. 0.0 "
546 #define _dc_399 "dlsodpk- tout(=r1) too close to t(=r2) to start integration."
547 #define _dc_400 "dlsodpk- itask = i1 and tout (=r1) behind tcur - hu (= r2) "
548 #define _dc_401 "dlsodpk- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) "
549 #define _dc_402 "dlsodpk- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) "
550 #define _dc_403 "dlsodpk- at start of problem, too much accuracy "
551 #define _dc_404 "dlsodpk- trouble in dintdy. itask = i1, tout = r1"
552 #define _dc_405 "dlsodpk- run aborted.. apparent infinite loop. "
553 #define _dc_406 " "
554 #define _dc_407 " "
555 #define _dc_408 "in above message, i1 ="
556 #define _dc_409 " "
557 #define _dc_410 "i2 ="
558 #define _dc_411 "in above message, r1 ="
559 #define _dc_412 "in above, r1 ="
560 #define _dc_413 "r2 ="
561
562
563
564 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00013
565
566 static FORMAT *__fmt_a = NULL;
567 typedef char char_31[32];
568 typedef char char_63[64];
569 typedef char char_127[128];
570
571
572 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00014
573
574 #define __ncalls 85
575 static CALLS __calls[__ncalls] = {
576 { // ** body not listed **"adjlr", 0}, // subroutine
578 { // ** body not listed **"nroc", 0}, // subroutine
580 { // ** body not listed **"nnfc", 0}, // subroutine
582 { // ** body not listed **"nntc", 0}, // subroutine
584 { // ** body not listed **"daigbt", 0}, // subroutine
586 { // ** body not listed **"dainvgs", 0}, // subroutine
588 { // ** body not listed **"datv", 0}, // subroutine
590 { // ** body not listed **"dcfode", 0}, // subroutine
592 { // ** body not listed **"dewset", 0}, // subroutine
594 { // ** body not listed **"dhefa", 0}, // subroutine
596 { // ** body not listed **"dheqr", 0}, // subroutine
598 { // ** body not listed **"dintdy", 0}, // subroutine
600 { // ** body not listed **"diprepi", 0}, // subroutine
602 { // ** body not listed **"dlsoda", 0}, // subroutine
604 { // ** body not listed **"dlsode", 0}, // subroutine
606 { // ** body not listed **"dlsoibt", 0}, // subroutine
608 { // ** body not listed **"dlsodis", 0}, // subroutine
610 { // ** body not listed **"dlsodpk", 0}, // subroutine
612 { // ** body not listed **"dorthog", 0}, // subroutine
614 { // ** body not listed **"dpcgs", 0}, // subroutine
616 { // ** body not listed **"dpkset", 0}, // subroutine
618 { // ** body not listed **"dprepi", 0}, // subroutine
620 { // ** body not listed **"dprepji", 0}, // subroutine
622 { // ** body not listed **"dprjis", 0}, // subroutine
626 { // ** body not listed **"drchek", 0}, // subroutine
628 { // ** body not listed **"dsetpk", 0}, // subroutine
630 { // ** body not listed **"dsolbt", 0}, // subroutine
632 { // ** body not listed **"dsolss", 0}, // subroutine
634 { // ** body not listed **"dspigmr", 0}, // subroutine
636 { // ** body not listed **"dsrcar", 0}, // subroutine
638 { // ** body not listed **"dsrcma", 0}, // subroutine
640 { // ** body not listed **"dsrcom", 0}, // subroutine
642 { // ** body not listed **"dstoda", 0}, // subroutine
644 { // ** body not listed **"dstodi", 0}, // subroutine
646 { // ** body not listed **"dstoka", 0}, // subroutine
648 { // ** body not listed **"dumsum", 0}, // subroutine
650 { // ** body not listed **"dvnorm", 0}, // real*8 function
652 { // ** body not listed **"ixsav", 0}, // integer*4 function
654 { // ** body not listed **"odrv", 0}, // subroutine
656 { // ** body not listed **"mdi", 0}, // subroutine
658 { // ** body not listed **"mdp", 0}, // subroutine
660 { // ** body not listed **"sro", 0}, // subroutine
662 { // ** body not listed **NULL, 0}
663 };
676 } dlss01_;
677
678 // common /dls001_/
679 static struct {
680 int_4 iownd_[6], iowns_[6], icf_, ierpj_, iersl_, jcur_, jstart_, kflag_, l_, lyh_, lewt_, lacor_, lsavf_, lwm_, liwm_,
681 meth_, miter_, maxord_, maxcor_, msbp_, mxncf_, n_, nq_, nst_, nfe_, nje_, nqu_, init_, mxstep_, mxhnil_, nhnil_,
682 nslast_, nyh_, ils_[37], ialth_, ipup_, lmax_, meo_, nqnyh_, nslp_;
683 real_8 rowns_[209], ccmax_, el0_, h_, hmin_, hmxi_, hu_, rc_, tn_, uround_, rls_[218], conit_, crate_, el_[13],
684 elco_[156], hold_, rmax_, tesco_[36];
685 } dls001_;
686
687 // common /dlsa01_/
688 static struct {
689 int_4 insufr_, insufi_, ixpr_, iowns2_[2], jtyp_, mused_, mxordn_, mxords_, iownd2_[3], ilsa_[9], icount_, irflag_;
690 real_8 tsw_, rowns2_[20], pdnorm_, rownd2_, rlsa_[22], cm1_[12], cm2_[5], pdest_, pdlast_, ratio_;
691 } dlsa01_;
692
693 // common /dlsr01_/
694 static struct {
695 int_4 lg0_, lg1_, lgx_, iownr3_[2], irfnd_, itaskc_, ngc_, nge_, iownd3_[3], imax_, last_, idum3_[4], ilsr_[9];
696 real_8 rownr3_[2], t0_, tlast_, toutc_, alpha_, x2_, rdum3_[3], rlsr_[5];
697 } dlsr01_;
698
699 // common /dls002_/
700 static struct {
701 int_4 newt_, nsfi_, nslj_, njev_, ils2_[4];
702 real_8 stifr_, rls2_;
703 } dls002_;
704
705 // common /dlpk01_/
706 static struct {
707 int_4 jpre_, jacflg_, locwp_, lociwp_, lsavx_, kmp_, maxl_, mnewt_, nni_, nli_, nps_, ncfn_, ncfl_, ilsp_[13];
708 real_8 delt_, epcon_, sqrtn_, rsqrtn_, rlsp_[4];
709 } dlpk01_;
710
711
712 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00017
713
714
715 prototype int_4 _adjlr (int_4 _p_ n_, int_4 _p_ isp_, int_4 _p_ ldif_);
716 prototype int_4 _cdrv (int_4 _p_ n_, int_4 _p_ r_, int_4 _p_ c_, int_4 _p_ ic_, int_4 _p_ ia_, int_4 _p_ ja_, real_8
717 _p_ a_, real_8 _p_ b_, real_8 _p_ z_, int_4 _p_ nsp_, int_4 _p_ isp_, real_8 _p_ rsp_, int_4 _p_ esp_, int_4 _p_ path_,
718 int_4 _p_ flag_);
719 prototype int_4 _nroc (int_4 _p_ n_, int_4 _p_ ic_, int_4 _p_ ia_, int_4 _p_ ja_, real_8 _p_ a_, int_4 _p_ jar_, real_8
720 _p_ ar_, int_4 _p_ p_, int_4 _p_ flag_);
721 prototype int_4 _nsfc (int_4 _p_ n_, int_4 _p_ r_, int_4 _p_ ic_, int_4 _p_ ia_, int_4 _p_ ja_, int_4 _p_ jlmax_, int_4
722 _p_ il_, int_4 _p_ jl_, int_4 _p_ ijl_, int_4 _p_ jumax_, int_4 _p_ iu_, int_4 _p_ ju_, int_4 _p_ iju_, int_4 _p_ q_,
723 int_4 _p_ ira_, int_4 _p_ jra_, int_4 _p_ irac_, int_4 _p_ irl_, int_4 _p_ jrl_, int_4 _p_ iru_, int_4 _p_ jru_, int_4
724 _p_ flag_);
725 prototype int_4 _nnfc (int_4 _p_ n_, int_4 _p_ r_, int_4 _p_ c_, int_4 _p_ ic_, int_4 _p_ ia_, int_4 _p_ ja_, real_8
726 _p_ a_, real_8 _p_ z_, real_8 _p_ b_, int_4 _p_ lmax_, int_4 _p_ il_, int_4 _p_ jl_, int_4 _p_ ijl_, real_8 _p_ l_,
727 real_8 _p_ d_, int_4 _p_ umax_, int_4 _p_ iu_, int_4 _p_ ju_, int_4 _p_ iju_, real_8 _p_ u_, real_8 _p_ row_, real_8
728 _p_ tmp_, int_4 _p_ irl_, int_4 _p_ jrl_, int_4 _p_ flag_);
729 prototype int_4 _nnsc (int_4 _p_ n_, int_4 _p_ r_, int_4 _p_ c_, int_4 _p_ il_, int_4 _p_ jl_, int_4 _p_ ijl_, real_8
730 _p_ l_, real_8 _p_ d_, int_4 _p_ iu_, int_4 _p_ ju_, int_4 _p_ iju_, real_8 _p_ u_, real_8 _p_ z_, real_8 _p_ b_,
731 real_8 _p_ tmp_);
732 prototype int_4 _nntc (int_4 _p_ n_, int_4 _p_ r_, int_4 _p_ c_, int_4 _p_ il_, int_4 _p_ jl_, int_4 _p_ ijl_, real_8
733 _p_ l_, real_8 _p_ d_, int_4 _p_ iu_, int_4 _p_ ju_, int_4 _p_ iju_, real_8 _p_ u_, real_8 _p_ z_, real_8 _p_ b_,
734 real_8 _p_ tmp_);
735 prototype int_4 _cntnzu (int_4 _p_ n_, int_4 _p_ ia_, int_4 _p_ ja_, int_4 _p_ nzsut_);
736 prototype int_4 _daigbt (int_4 (*_res)(), int_4 (*_adda)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_
737 ydot_, int_4 _p_ mb_, int_4 _p_ nb_, real_8 _p_ pw_, int_4 _p_ ipvt_, int_4 _p_ ier_);
738 prototype int_4 _dainvg (int_4 (*_res)(), int_4 (*_adda)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_
739 ydot_, int_4 _p_ miter_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ pw_, int_4 _p_ ipvt_, int_4 _p_ ier_);
740 prototype int_4 _dainvgs (int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ wk_, int_4 _p_ iwk_, real_8 _p_ tem_
741 , real_8 _p_ ydot_, int_4 _p_ ier_, int_4 (*_res)(), int_4 (*_adda)());
742 prototype int_4 _datp (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ p_, real_8 _p_ wght_, real_8 _p_
743 hl0_, real_8 _p_ wk_, int_4 (*_f)(), real_8 _p_ w_);
744 prototype int_4 _datv (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ v_, real_8 _p_ wght_, real_8 _p_
745 ftem_, int_4 (*_f)(), int_4 (*_psol)(), real_8 _p_ z_, real_8 _p_ vtem_, real_8 _p_ wp_, int_4 _p_ iwp_, real_8 _p_
746 hl0_, int_4 _p_ jpre_, int_4 _p_ ier_, int_4 _p_ npsl_);
747 prototype real_8 _dbnorm (int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ nra_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ w_);
748 prototype int_4 _dcfode (int_4 _p_ meth_, real_8 _p_ elco_, real_8 _p_ tesco_);
749 prototype int_4 _ddecbt (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, int_4 _p_ ip_, int_4
750 _p_ ier_);
751 prototype int_4 _dewset (int_4 _p_ n_, int_4 _p_ itol_, real_8 _p_ rtol_, real_8 _p_ atol_, real_8 _p_ ycur_, real_8
752 _p_ ewt_);
753 prototype real_8 _dfnorm (int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ w_);
754 prototype int_4 _dhefa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_, int_4 _p_ job_);
755 prototype int_4 _dhels (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ q_, real_8 _p_ b_);
756 prototype int_4 _dheqr (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ q_, int_4 _p_ info_, int_4 _p_ ijob_);
757 prototype int_4 _dhesl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_8 _p_ b_);
758 prototype int_4 _dintdy (real_8 _p_ t_, int_4 _p_ k_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ dky_, int_4 _p_ iflag_
759 );
760 prototype int_4 _diprep (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ rwork_, int_4 _p_ ia_, int_4 _p_ ja_, int_4 _p_
761 ipflag_, real_4 (*_f)(), int_4 (*_jac)());
762 prototype int_4 _diprepi (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ s_, real_8 _p_ rwork_, int_4 _p_ ia_, int_4 _p_ ja_
763 , int_4 _p_ ic_, int_4 _p_ jc_, int_4 _p_ ipflag_, real_4 (*_res)(), int_4 (*_jac)(), real_4 (*_adda)());
764 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00018
765
766 prototype int_4 _dlhin (int_4 _p_ neq_, int_4 _p_ n_, real_8 _p_ t0_, real_8 _p_ y0_, real_8 _p_ ydot_, int_4 (*_f)(),
767 real_8 _p_ tout_, real_8 _p_ uround_, real_8 _p_ ewt_, int_4 _p_ itol_, real_8 _p_ atol_, real_8 _p_ y_, real_8 _p_
768 temp_, real_8 _p_ h0_, int_4 _p_ niter_, int_4 _p_ ier_);
769 prototype int_4 _dlsoda (int_4 (*_f)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_ itol_
770 , real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_, int_4
771 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 (*_jac)(), int_4 _p_ jt_);
772 prototype int_4 _dlsodar (int_4 (*_f)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_
773 itol_, real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_,
774 int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 (*_jac)(), int_4 _p_ jt_, real_4 (*_g)(), int_4 _p_ ng_, int_4
775 _p_ jroot_);
776 prototype int_4 _dlsode (int_4 (*_f)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_ itol_
777 , real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_, int_4
778 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 (*_jac)(), int_4 _p_ mf_);
779 prototype int_4 _dlsodes (int_4 (*_f)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_
780 itol_, real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_,
781 int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 (*_jac)(), int_4 _p_ mf_);
782 prototype int_4 _dlsoibt (int_4 (*_res)(), real_4 (*_adda)(), int_4 (*_jac)(), int_4 _p_ neq_, real_8 _p_ y_, real_8
783 _p_ ydoti_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_ itol_, real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_,
784 int_4 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_, int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ mf_)
785 ;
786 prototype int_4 _dlsodi (int_4 (*_res)(), real_4 (*_adda)(), int_4 (*_jac)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_
787 ydoti_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_ itol_, real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4
788 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_, int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ mf_);
789 prototype int_4 _dlsodis (int_4 (*_res)(), real_4 (*_adda)(), int_4 (*_jac)(), int_4 _p_ neq_, real_8 _p_ y_, real_8
790 _p_ ydoti_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_ itol_, real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_,
791 int_4 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_, int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ mf_)
792 ;
793 prototype int_4 _dlsodkr (int_4 (*_f)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_
794 itol_, real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_,
795 int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 (*_jac)(), real_4 (*_psol)(), int_4 _p_ mf_, real_4 (*_g)(),
796 int_4 _p_ ng_, int_4 _p_ jroot_);
797 prototype int_4 _dlsodpk (int_4 (*_f)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_
798 itol_, real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_,
799 int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 (*_jac)(), real_4 (*_psol)(), int_4 _p_ mf_);
800 prototype real_8 _dmnorm (int_4 _p_ n_, real_8 _p_ v_, real_8 _p_ w_);
801 prototype int_4 _dorthog (real_8 _p_ vnew_, real_8 _p_ v_, real_8 _p_ hes_, int_4 _p_ n_, int_4 _p_ ll_, int_4 _p_
802 ldhes_, int_4 _p_ kmp_, real_8 _p_ snormw_);
803 prototype int_4 _dpcg (int_4 _p_ neq_, real_8 _p_ tn_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ r_, real_8 _p_ wght_
804 , int_4 _p_ n_, int_4 _p_ maxl_, real_8 _p_ delta_, real_8 _p_ hl0_, int_4 _p_ jpre_, int_4 _p_ mnewt_, real_4 (*_f)(),
805 int_4 (*_psol)(), int_4 _p_ npsl_, real_8 _p_ x_, real_8 _p_ p_, real_8 _p_ w_, real_8 _p_ z_, int_4 _p_ lpcg_, real_8
806 _p_ wp_, int_4 _p_ iwp_, real_8 _p_ wk_, int_4 _p_ iflag_);
807 prototype int_4 _dpcgs (int_4 _p_ neq_, real_8 _p_ tn_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ r_, real_8 _p_
808 wght_, int_4 _p_ n_, int_4 _p_ maxl_, real_8 _p_ delta_, real_8 _p_ hl0_, int_4 _p_ jpre_, int_4 _p_ mnewt_, real_4
809 (*_f)(), int_4 (*_psol)(), int_4 _p_ npsl_, real_8 _p_ x_, real_8 _p_ p_, real_8 _p_ w_, real_8 _p_ z_, int_4 _p_ lpcg_
810 , real_8 _p_ wp_, int_4 _p_ iwp_, real_8 _p_ wk_, int_4 _p_ iflag_);
811 prototype int_4 _dpjibt (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ ewt_, real_8 _p_
812 rtem_, real_8 _p_ savr_, real_8 _p_ s_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_res)(), int_4 (*_jac)(), int_4
813 (*_adda)());
814 prototype int_4 _dpkset (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ ysv_, real_8 _p_ ewt_, real_8 _p_ ftem_, real_8 _p_
815 savf_, real_8 _p_ wm_, int_4 _p_ iwm_, real_4 (*_f)(), int_4 (*_jac)());
816 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00019
817
818 prototype int_4 _dprep (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, real_8 _p_ savf_, real_8 _p_ ewt_, real_8 _p_
819 ftem_, int_4 _p_ ia_, int_4 _p_ ja_, real_8 _p_ wk_, int_4 _p_ iwk_, int_4 _p_ ipper_, int_4 (*_f)(), int_4 (*_jac)());
820 prototype int_4 _dprepi (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ s_, real_8 _p_ yh_, real_8 _p_ savr_, real_8 _p_
821 ewt_, real_8 _p_ rtem_, int_4 _p_ ia_, int_4 _p_ ja_, int_4 _p_ ic_, int_4 _p_ jc_, real_8 _p_ wk_, int_4 _p_ iwk_,
822 int_4 _p_ ipper_, int_4 (*_res)(), int_4 (*_jac)(), int_4 (*_adda)());
823 prototype int_4 _dprepj (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ ewt_, real_8 _p_
824 ftem_, real_8 _p_ savf_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_f)(), int_4 (*_jac)());
825 prototype int_4 _dprepji (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ ewt_, real_8 _p_
826 rtem_, real_8 _p_ savr_, real_8 _p_ s_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_res)(), int_4 (*_jac)(), int_4
827 (*_adda)());
828 prototype int_4 _dprja (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ ewt_, real_8 _p_
829 ftem_, real_8 _p_ savf_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_f)(), int_4 (*_jac)());
830 prototype int_4 _dprjis (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ ewt_, real_8 _p_
831 rtem_, real_8 _p_ savr_, real_8 _p_ s_, real_8 _p_ wk_, int_4 _p_ iwk_, int_4 (*_res)(), int_4 (*_jac)(), int_4
832 (*_adda)());
833 prototype int_4 _dprjs (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ ewt_, real_8 _p_
834 ftem_, real_8 _p_ savf_, real_8 _p_ wk_, int_4 _p_ iwk_, int_4 (*_f)(), int_4 (*_jac)());
835 prototype int_4 _drchek (int_4 _p_ job_, int_4 (*_g)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_,
836 real_8 _p_ g0_, real_8 _p_ g1_, real_8 _p_ gx_, int_4 _p_ jroot_, int_4 _p_ irt_);
837 prototype int_4 _droots (int_4 _p_ ng_, real_8 _p_ hmin_, int_4 _p_ jflag_, real_8 _p_ x0_, real_8 _p_ x1_, real_8 _p_
838 g0_, real_8 _p_ g1_, real_8 _p_ gx_, real_8 _p_ x_, int_4 _p_ jroot_);
839 prototype int_4 _dsetpk (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ ysv_, real_8 _p_ ewt_, real_8 _p_ ftem_, real_8 _p_
840 savf_, int_4 _p_ jok_, real_8 _p_ wm_, int_4 _p_ iwm_, real_4 (*_f)(), int_4 (*_jac)());
841 prototype int_4 _dslsbt (real_8 _p_ wm_, int_4 _p_ iwm_, real_8 _p_ x_, real_8 _p_ tem_);
842 prototype int_4 _dsolbt (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ y_, int_4
843 _p_ ip_);
844 prototype int_4 _dsolpk (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ x_, real_8 _p_ ewt_, real_8 _p_
845 wm_, int_4 _p_ iwm_, real_4 (*_f)(), real_4 (*_psol)());
846 prototype int_4 _dsolss (real_8 _p_ wk_, int_4 _p_ iwk_, real_8 _p_ x_, real_8 _p_ tem_);
847 prototype int_4 _dsolsy (real_8 _p_ wm_, int_4 _p_ iwm_, real_8 _p_ x_, real_8 _p_ tem_);
848 prototype int_4 _dspigmr (int_4 _p_ neq_, real_8 _p_ tn_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ b_, real_8 _p_
849 wght_, int_4 _p_ n_, int_4 _p_ maxl_, int_4 _p_ maxlp1_, int_4 _p_ kmp_, real_8 _p_ delta_, real_8 _p_ hl0_, int_4 _p_
850 jpre_, int_4 _p_ mnewt_, real_4 (*_f)(), int_4 (*_psol)(), int_4 _p_ npsl_, real_8 _p_ x_, real_8 _p_ v_, real_8 _p_
851 hes_, real_8 _p_ q_, int_4 _p_ lgmr_, real_8 _p_ wp_, int_4 _p_ iwp_, real_8 _p_ wk_, real_8 _p_ dl_, int_4 _p_ iflag_)
852 ;
853 prototype int_4 _dspiom (int_4 _p_ neq_, real_8 _p_ tn_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ b_, real_8 _p_
854 wght_, int_4 _p_ n_, int_4 _p_ maxl_, int_4 _p_ kmp_, real_8 _p_ delta_, real_8 _p_ hl0_, int_4 _p_ jpre_, int_4 _p_
855 mnewt_, real_4 (*_f)(), int_4 (*_psol)(), int_4 _p_ npsl_, real_8 _p_ x_, real_8 _p_ v_, real_8 _p_ hes_, int_4 _p_
856 ipvt_, int_4 _p_ liom_, real_8 _p_ wp_, int_4 _p_ iwp_, real_8 _p_ wk_, int_4 _p_ iflag_);
857 prototype int_4 _dsrcar (real_8 _p_ rsav_, int_4 _p_ isav_, int_4 _p_ job_);
858 prototype int_4 _dsrckr (real_8 _p_ rsav_, int_4 _p_ isav_, int_4 _p_ job_);
859 prototype int_4 _dsrcma (real_8 _p_ rsav_, int_4 _p_ isav_, int_4 _p_ job_);
860 prototype int_4 _dsrcms (real_8 _p_ rsav_, int_4 _p_ isav_, int_4 _p_ job_);
861 prototype int_4 _dsrcom (real_8 _p_ rsav_, int_4 _p_ isav_, int_4 _p_ job_);
862 prototype int_4 _dsrcpk (real_8 _p_ rsav_, int_4 _p_ isav_, int_4 _p_ job_);
863 prototype int_4 _dstoda (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ yh1_, real_8 _p_
864 ewt_, real_8 _p_ savf_, real_8 _p_ acor_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_f)(), int_4 (*_jac)(), int_4
865 (*_pjac)(), int_4 (*_slvs)());
866 prototype int_4 _dstode (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ yh1_, real_8 _p_
867 ewt_, real_8 _p_ savf_, real_8 _p_ acor_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_f)(), int_4 (*_jac)(), int_4
868 // VIF THU 13 NOV 2025 17:29:08 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00020
869
870 (*_pjac)(), int_4 (*_slvs)());
871 prototype int_4 _dstodi (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ yh1_, real_8 _p_
872 ewt_, real_8 _p_ savf_, real_8 _p_ savr_, real_8 _p_ acor_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_res)(), real_4
873 (*_adda)(), int_4 (*_jac)(), int_4 (*_pjac)(), int_4 (*_slvs)());
874 prototype int_4 _dstodpk (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ yh1_, real_8 _p_
875 ewt_, real_8 _p_ savf_, real_8 _p_ savx_, real_8 _p_ acor_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_f)(), int_4
876 (*_jac)(), real_4 (*_psol)());
877 prototype int_4 _dstoka (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ yh1_, real_8 _p_
878 ewt_, real_8 _p_ savf_, real_8 _p_ savx_, real_8 _p_ acor_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_f)(), int_4
879 (*_jac)(), real_4 (*_psol)());
880 prototype real_8 _dumach (void);
881 prototype int_4 _dumsum (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_);
882 prototype int_4 _dusol (int_4 _p_ neq_, real_8 _p_ tn_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ b_, real_8 _p_
883 wght_, int_4 _p_ n_, real_8 _p_ delta_, real_8 _p_ hl0_, int_4 _p_ mnewt_, int_4 (*_psol)(), int_4 _p_ npsl_, real_8
884 _p_ x_, real_8 _p_ wp_, int_4 _p_ iwp_, real_8 _p_ wk_, int_4 _p_ iflag_);
885 prototype real_8 _dvnorm (int_4 _p_ n_, real_8 _p_ v_, real_8 _p_ w_);
886 prototype int_4 _iumach (void);
887 prototype int_4 _ixsav (int_4 _p_ ipar_, int_4 _p_ ivalue_, logical_4 _p_ iset_);
888 prototype int_4 _jgroup (int_4 _p_ n_, int_4 _p_ ia_, int_4 _p_ ja_, int_4 _p_ maxg_, int_4 _p_ ngrp_, int_4 _p_ igp_,
889 int_4 _p_ jgp_, int_4 _p_ incl_, int_4 _p_ jdone_, int_4 _p_ ier_);
890 prototype int_4 _odrv (int_4 _p_ n_, int_4 _p_ ia_, int_4 _p_ ja_, real_8 _p_ a_, int_4 _p_ p_, int_4 _p_ ip_, int_4
891 _p_ nsp_, int_4 _p_ isp_, int_4 _p_ path_, int_4 _p_ flag_);
892 prototype int_4 _md (int_4 _p_ n_, int_4 _p_ ia_, int_4 _p_ ja_, int_4 _p_ max_, int_4 _p_ v_, int_4 _p_ l_, int_4 _p_
893 head_, int_4 _p_ last_, int_4 _p_ next_, int_4 _p_ mark_, int_4 _p_ flag_);
894 prototype int_4 _mdi (int_4 _p_ n_, int_4 _p_ ia_, int_4 _p_ ja_, int_4 _p_ max_, int_4 _p_ v_, int_4 _p_ l_, int_4 _p_
895 head_, int_4 _p_ last_, int_4 _p_ next_, int_4 _p_ mark_, int_4 _p_ tag_, int_4 _p_ flag_);
896 prototype int_4 _mdm (int_4 _p_ vk_, int_4 _p_ tail_, int_4 _p_ v_, int_4 _p_ l_, int_4 _p_ last_, int_4 _p_ next_,
897 int_4 _p_ mark_);
898 prototype int_4 _mdp (int_4 _p_ k_, int_4 _p_ ek_, int_4 _p_ tail_, int_4 _p_ v_, int_4 _p_ l_, int_4 _p_ head_, int_4
899 _p_ last_, int_4 _p_ next_, int_4 _p_ mark_);
900 prototype int_4 _mdu (int_4 _p_ ek_, int_4 _p_ dmin_, int_4 _p_ v_, int_4 _p_ l_, int_4 _p_ head_, int_4 _p_ last_,
901 int_4 _p_ next_, int_4 _p_ mark_);
902 prototype int_4 _sro (int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ ia_, int_4 _p_ ja_, real_8 _p_ a_, int_4 _p_ q_, int_4 _p_
903 r_, logical_4 _p_ dflag_);
904 prototype int_4 _xerrwd (char _p_ msg_, int_4 _p_ nmes_, int_4 _p_ nerr_, int_4 _p_ level_, int_4 _p_ ni_, int_4 _p_
905 i1_, int_4 _p_ i2_, int_4 _p_ nr_, real_8 _p_ r1_, real_8 _p_ r2_);
906
907
908
909
910
911
912
913
914
915
916
917
918
919 // VIF THU 13 NOV 2025 17:29:08 ** ADJLR ** ADJLR PAGE 00021
920
921 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
922 // S S U U B B R R O O U U T I NN N E
923 // S U U B B R R O O U U T I N N N E
924 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
925 // S U U B B R R O O U U T I N N N E
926 // S S U U B B R R O O U U T I N NN E
927 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
928
929 // A DDDDDD J L RRRRRR
930 // A A D D J L R R
931 // A A D D J L R R
932 // A A D D J L RRRRRR
933 // AAAAAAA D D J J L R R
934 // A A D D J J L R R
935 // A A DDDDDD JJJJJ LLLLLLL R R
936
937
938 // VIF THU 13 NOV 2025 17:29:08 ** ADJLR ** DIAGNOSTICS PAGE 00022
939
940
941 // VIF THU 13 NOV 2025 17:29:08 ** ADJLR ** GENERATED CODE PAGE 00023
942
943 int_4 _adjlr (int_4 _p_ n_, int_4 _p_ isp_, int_4 _p_ ldif_)
944 { // ** body not listed **
955 }
956
957 // VIF THU 13 NOV 2025 17:29:08 ** CDRV ** CDRV PAGE 00024
958
959 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
960 // S S U U B B R R O O U U T I NN N E
961 // S U U B B R R O O U U T I N N N E
962 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
963 // S U U B B R R O O U U T I N N N E
964 // S S U U B B R R O O U U T I N NN E
965 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
966
967 // CCCCC DDDDDD RRRRRR V V
968 // C C D D R R V V
969 // C D D R R V V
970 // C D D RRRRRR V V
971 // C D D R R V V
972 // C C D D R R V V
973 // CCCCC DDDDDD R R V
974
975
976 // VIF THU 13 NOV 2025 17:29:08 ** CDRV ** DIAGNOSTICS PAGE 00025
977
978
979 // VIF THU 13 NOV 2025 17:29:08 ** CDRV ** GENERATED CODE PAGE 00026
980
981 int_4 _cdrv (int_4 _p_ n_, int_4 _p_ r_, int_4 _p_ c_, int_4 _p_ ic_, int_4 _p_ ia_, int_4 _p_ ja_, real_8 _p_ a_,
982 real_8 _p_ b_, real_8 _p_ z_, int_4 _p_ nsp_, int_4 _p_ isp_, real_8 _p_ rsp_, int_4 _p_ esp_, int_4 _p_ path_, int_4
983 _p_ flag_)
984 { // ** body not listed **
1107 }
1108
1109 // VIF THU 13 NOV 2025 17:29:08 ** NROC ** NROC PAGE 00029
1110
1111 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1112 // S S U U B B R R O O U U T I NN N E
1113 // S U U B B R R O O U U T I N N N E
1114 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1115 // S U U B B R R O O U U T I N N N E
1116 // S S U U B B R R O O U U T I N NN E
1117 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1118
1119 // N N RRRRRR OOOOO CCCCC
1120 // NN N R R O O C C
1121 // N N N R R O O C
1122 // N N N RRRRRR O O C
1123 // N N N R R O O C
1124 // N NN R R O O C C
1125 // N N R R OOOOO CCCCC
1126
1127
1128 // VIF THU 13 NOV 2025 17:29:08 ** NROC ** DIAGNOSTICS PAGE 00030
1129
1130
1131 // VIF THU 13 NOV 2025 17:29:08 ** NROC ** GENERATED CODE PAGE 00031
1132
1133 int_4 _nroc (int_4 _p_ n_, int_4 _p_ ic_, int_4 _p_ ia_, int_4 _p_ ja_, real_8 _p_ a_, int_4 _p_ jar_, real_8 _p_ ar_,
1134 int_4 _p_ p_, int_4 _p_ flag_)
1135 { // ** body not listed **
1177 }
1178
1179 // VIF THU 13 NOV 2025 17:29:08 ** NSFC ** NSFC PAGE 00032
1180
1181 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1182 // S S U U B B R R O O U U T I NN N E
1183 // S U U B B R R O O U U T I N N N E
1184 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1185 // S U U B B R R O O U U T I N N N E
1186 // S S U U B B R R O O U U T I N NN E
1187 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1188
1189 // N N SSSSS FFFFFFF CCCCC
1190 // NN N S S F C C
1191 // N N N S F C
1192 // N N N SSSSS FFFFF C
1193 // N N N S F C
1194 // N NN S S F C C
1195 // N N SSSSS F CCCCC
1196
1197
1198 // VIF THU 13 NOV 2025 17:29:08 ** NSFC ** DIAGNOSTICS PAGE 00033
1199
1200
1201 // VIF THU 13 NOV 2025 17:29:08 ** NSFC ** GENERATED CODE PAGE 00034
1202
1203 int_4 _nsfc (int_4 _p_ n_, int_4 _p_ r_, int_4 _p_ ic_, int_4 _p_ ia_, int_4 _p_ ja_, int_4 _p_ jlmax_, int_4 _p_ il_,
1204 int_4 _p_ jl_, int_4 _p_ ijl_, int_4 _p_ jumax_, int_4 _p_ iu_, int_4 _p_ ju_, int_4 _p_ iju_, int_4 _p_ q_, int_4 _p_
1205 ira_, int_4 _p_ jra_, int_4 _p_ irac_, int_4 _p_ irl_, int_4 _p_ jrl_, int_4 _p_ iru_, int_4 _p_ jru_, int_4 _p_ flag_)
1206 { // ** body not listed **
1609 }
1610
1611 // VIF THU 13 NOV 2025 17:29:08 ** NNFC ** NNFC PAGE 00042
1612
1613 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1614 // S S U U B B R R O O U U T I NN N E
1615 // S U U B B R R O O U U T I N N N E
1616 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1617 // S U U B B R R O O U U T I N N N E
1618 // S S U U B B R R O O U U T I N NN E
1619 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1620
1621 // N N N N FFFFFFF CCCCC
1622 // NN N NN N F C C
1623 // N N N N N N F C
1624 // N N N N N N FFFFF C
1625 // N N N N N N F C
1626 // N NN N NN F C C
1627 // N N N N F CCCCC
1628
1629
1630 // VIF THU 13 NOV 2025 17:29:08 ** NNFC ** DIAGNOSTICS PAGE 00043
1631
1632
1633 // VIF THU 13 NOV 2025 17:29:08 ** NNFC ** GENERATED CODE PAGE 00044
1634
1635 int_4 _nnfc (int_4 _p_ n_, int_4 _p_ r_, int_4 _p_ c_, int_4 _p_ ic_, int_4 _p_ ia_, int_4 _p_ ja_, real_8 _p_ a_,
1636 real_8 _p_ z_, real_8 _p_ b_, int_4 _p_ lmax_, int_4 _p_ il_, int_4 _p_ jl_, int_4 _p_ ijl_, real_8 _p_ l_, real_8 _p_
1637 d_, int_4 _p_ umax_, int_4 _p_ iu_, int_4 _p_ ju_, int_4 _p_ iju_, real_8 _p_ u_, real_8 _p_ row_, real_8 _p_ tmp_,
1638 int_4 _p_ irl_, int_4 _p_ jrl_, int_4 _p_ flag_)
1639 { // ** body not listed **
1798 }
1799
1800 // VIF THU 13 NOV 2025 17:29:08 ** NNSC ** NNSC PAGE 00048
1801
1802 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1803 // S S U U B B R R O O U U T I NN N E
1804 // S U U B B R R O O U U T I N N N E
1805 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1806 // S U U B B R R O O U U T I N N N E
1807 // S S U U B B R R O O U U T I N NN E
1808 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1809
1810 // N N N N SSSSS CCCCC
1811 // NN N NN N S S C C
1812 // N N N N N N S C
1813 // N N N N N N SSSSS C
1814 // N N N N N N S C
1815 // N NN N NN S S C C
1816 // N N N N SSSSS CCCCC
1817
1818
1819 // VIF THU 13 NOV 2025 17:29:08 ** NNSC ** DIAGNOSTICS PAGE 00049
1820
1821
1822 // VIF THU 13 NOV 2025 17:29:08 ** NNSC ** GENERATED CODE PAGE 00050
1823
1824 int_4 _nnsc (int_4 _p_ n_, int_4 _p_ r_, int_4 _p_ c_, int_4 _p_ il_, int_4 _p_ jl_, int_4 _p_ ijl_, real_8 _p_ l_,
1825 real_8 _p_ d_, int_4 _p_ iu_, int_4 _p_ ju_, int_4 _p_ iju_, real_8 _p_ u_, real_8 _p_ z_, real_8 _p_ b_, real_8 _p_
1826 tmp_)
1827 { // ** body not listed **
1866 }
1867
1868 // VIF THU 13 NOV 2025 17:29:08 ** NNTC ** NNTC PAGE 00051
1869
1870 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1871 // S S U U B B R R O O U U T I NN N E
1872 // S U U B B R R O O U U T I N N N E
1873 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1874 // S U U B B R R O O U U T I N N N E
1875 // S S U U B B R R O O U U T I N NN E
1876 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1877
1878 // N N N N TTTTTTT CCCCC
1879 // NN N NN N T C C
1880 // N N N N N N T C
1881 // N N N N N N T C
1882 // N N N N N N T C
1883 // N NN N NN T C C
1884 // N N N N T CCCCC
1885
1886
1887 // VIF THU 13 NOV 2025 17:29:08 ** NNTC ** DIAGNOSTICS PAGE 00052
1888
1889
1890 // VIF THU 13 NOV 2025 17:29:08 ** NNTC ** GENERATED CODE PAGE 00053
1891
1892 int_4 _nntc (int_4 _p_ n_, int_4 _p_ r_, int_4 _p_ c_, int_4 _p_ il_, int_4 _p_ jl_, int_4 _p_ ijl_, real_8 _p_ l_,
1893 real_8 _p_ d_, int_4 _p_ iu_, int_4 _p_ ju_, int_4 _p_ iju_, real_8 _p_ u_, real_8 _p_ z_, real_8 _p_ b_, real_8 _p_
1894 tmp_)
1895 { // ** body not listed **
1933 }
1934
1935 // VIF THU 13 NOV 2025 17:29:08 ** CNTNZU ** CNTNZU PAGE 00054
1936
1937 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1938 // S S U U B B R R O O U U T I NN N E
1939 // S U U B B R R O O U U T I N N N E
1940 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1941 // S U U B B R R O O U U T I N N N E
1942 // S S U U B B R R O O U U T I N NN E
1943 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1944
1945 // CCCCC N N TTTTTTT N N ZZZZZZZ U U
1946 // C C NN N T NN N Z U U
1947 // C N N N T N N N Z U U
1948 // C N N N T N N N Z U U
1949 // C N N N T N N N Z U U
1950 // C C N NN T N NN * U U
1951 // CCCCC N N T N N ZZZZZZZ UUUUU
1952
1953
1954 // VIF THU 13 NOV 2025 17:29:08 ** CNTNZU ** DIAGNOSTICS PAGE 00055
1955
1956
1957 // VIF THU 13 NOV 2025 17:29:08 ** CNTNZU ** GENERATED CODE PAGE 00056
1958
1959 int_4 _cntnzu (int_4 _p_ n_, int_4 _p_ ia_, int_4 _p_ ja_, int_4 _p_ nzsut_)
1960 { // ** body not listed **
2000 }
2001
2002 // VIF THU 13 NOV 2025 17:29:08 ** DAIGBT ** DAIGBT PAGE 00057
2003
2004 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2005 // S S U U B B R R O O U U T I NN N E
2006 // S U U B B R R O O U U T I N N N E
2007 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2008 // S U U B B R R O O U U T I N N N E
2009 // S S U U B B R R O O U U T I N NN E
2010 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2011
2012 // DDDDDD A III GGGGG BBBBBB TTTTTTT
2013 // D D A A I G G B B T
2014 // D D A A I G B B T
2015 // D D A A I G GGGG BBBBBB T
2016 // D D AAAAAAA I G G B B T
2017 // D D A A I G G B B T
2018 // DDDDDD A A III GGGGG BBBBBB T
2019
2020
2021 // VIF THU 13 NOV 2025 17:29:08 ** DAIGBT ** DIAGNOSTICS PAGE 00058
2022
2023
2024 // VIF THU 13 NOV 2025 17:29:08 ** DAIGBT ** GENERATED CODE PAGE 00059
2025
2026 int_4 _daigbt (int_4 (*_res)(), int_4 (*_adda)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ ydot_, int_4
2027 _p_ mb_, int_4 _p_ nb_, real_8 _p_ pw_, int_4 _p_ ipvt_, int_4 _p_ ier_)
2028 { // ** body not listed **
2054 }
2055
2056 // VIF THU 13 NOV 2025 17:29:08 ** DAINVG ** DAINVG PAGE 00060
2057
2058 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2059 // S S U U B B R R O O U U T I NN N E
2060 // S U U B B R R O O U U T I N N N E
2061 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2062 // S U U B B R R O O U U T I N N N E
2063 // S S U U B B R R O O U U T I N NN E
2064 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2065
2066 // DDDDDD A III N N V V GGGGG
2067 // D D A A I NN N V V G G
2068 // D D A A I N N N V V G
2069 // D D A A I N N N V V G GGGG
2070 // D D AAAAAAA I N N N V V G G
2071 // D D A A I N NN V V G G
2072 // DDDDDD A A III N N V GGGGG
2073
2074
2075 // VIF THU 13 NOV 2025 17:29:08 ** DAINVG ** DIAGNOSTICS PAGE 00061
2076
2077
2078 // VIF THU 13 NOV 2025 17:29:08 ** DAINVG ** GENERATED CODE PAGE 00062
2079
2080 int_4 _dainvg (int_4 (*_res)(), int_4 (*_adda)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ ydot_, int_4
2081 _p_ miter_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ pw_, int_4 _p_ ipvt_, int_4 _p_ ier_)
2082 { // ** body not listed **
2132 }
2133
2134 // VIF THU 13 NOV 2025 17:29:08 ** DAINVGS ** DAINVGS PAGE 00064
2135
2136 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2137 // S S U U B B R R O O U U T I NN N E
2138 // S U U B B R R O O U U T I N N N E
2139 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2140 // S U U B B R R O O U U T I N N N E
2141 // S S U U B B R R O O U U T I N NN E
2142 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2143
2144 // DDDDDD A III N N V V GGGGG SSSSS
2145 // D D A A I NN N V V G G S S
2146 // D D A A I N N N V V G S
2147 // D D A A I N N N V V G GGGG SSSSS
2148 // D D AAAAAAA I N N N V V G G S
2149 // D D A A I N NN V V G G S S
2150 // DDDDDD A A III N N V GGGGG SSSSS
2151
2152
2153 // VIF THU 13 NOV 2025 17:29:08 ** DAINVGS ** DIAGNOSTICS PAGE 00065
2154
2155
2156 // VIF THU 13 NOV 2025 17:29:08 ** DAINVGS ** GENERATED CODE PAGE 00066
2157
2158 int_4 _dainvgs (int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ wk_, int_4 _p_ iwk_, real_8 _p_ tem_, real_8
2159 _p_ ydot_, int_4 _p_ ier_, int_4 (*_res)(), int_4 (*_adda)())
2160 { // ** body not listed **
2217 }
2218
2219 // VIF THU 13 NOV 2025 17:29:08 ** DATP ** DATP PAGE 00068
2220
2221 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2222 // S S U U B B R R O O U U T I NN N E
2223 // S U U B B R R O O U U T I N N N E
2224 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2225 // S U U B B R R O O U U T I N N N E
2226 // S S U U B B R R O O U U T I N NN E
2227 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2228
2229 // DDDDDD A TTTTTTT PPPPPP
2230 // D D A A T P P
2231 // D D A A T P P
2232 // D D A A T PPPPPP
2233 // D D AAAAAAA T P
2234 // D D A A T P
2235 // DDDDDD A A T P
2236
2237
2238 // VIF THU 13 NOV 2025 17:29:08 ** DATP ** DIAGNOSTICS PAGE 00069
2239
2240
2241 // VIF THU 13 NOV 2025 17:29:08 ** DATP ** GENERATED CODE PAGE 00070
2242
2243 int_4 _datp (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ p_, real_8 _p_ wght_, real_8 _p_ hl0_, real_8
2244 _p_ wk_, int_4 (*_f)(), real_8 _p_ w_)
2245 { // ** body not listed **
2263 }
2264
2265 // VIF THU 13 NOV 2025 17:29:08 ** DATV ** DATV PAGE 00071
2266
2267 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2268 // S S U U B B R R O O U U T I NN N E
2269 // S U U B B R R O O U U T I N N N E
2270 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2271 // S U U B B R R O O U U T I N N N E
2272 // S S U U B B R R O O U U T I N NN E
2273 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2274
2275 // DDDDDD A TTTTTTT V V
2276 // D D A A T V V
2277 // D D A A T V V
2278 // D D A A T V V
2279 // D D AAAAAAA T V V
2280 // D D A A T V V
2281 // DDDDDD A A T V
2282
2283
2284 // VIF THU 13 NOV 2025 17:29:08 ** DATV ** DIAGNOSTICS PAGE 00072
2285
2286
2287 // VIF THU 13 NOV 2025 17:29:08 ** DATV ** GENERATED CODE PAGE 00073
2288
2289 int_4 _datv (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ v_, real_8 _p_ wght_, real_8 _p_ ftem_, int_4
2290 (*_f)(), int_4 (*_psol)(), real_8 _p_ z_, real_8 _p_ vtem_, real_8 _p_ wp_, int_4 _p_ iwp_, real_8 _p_ hl0_, int_4 _p_
2291 jpre_, int_4 _p_ ier_, int_4 _p_ npsl_)
2292 { // ** body not listed **
2353 }
2354
2355 // VIF THU 13 NOV 2025 17:29:08 ** DBNORM ** DBNORM PAGE 00075
2356
2357 // RRRRRR EEEEEEE A L 88888
2358 // R R E A A L * * 8 8
2359 // R R E A A L * * 8 8
2360 // RRRRRR EEEEE A A L ******* 88888
2361 // R R E AAAAAAA L * * 8 8
2362 // R R E A A L * * 8 8
2363 // R R EEEEEEE A A LLLLLLL 88888
2364
2365 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
2366 // F U U NN N C C T I O O NN N
2367 // F U U N N N C T I O O N N N
2368 // FFFFF U U N N N C T I O O N N N
2369 // F U U N N N C T I O O N N N
2370 // F U U N NN C C T I O O N NN
2371 // F UUUUU N N CCCCC T III OOOOO N N
2372
2373 // DDDDDD BBBBBB N N OOOOO RRRRRR M M
2374 // D D B B NN N O O R R MM MM
2375 // D D B B N N N O O R R M M M M
2376 // D D BBBBBB N N N O O RRRRRR M M M
2377 // D D B B N N N O O R R M M
2378 // D D B B N NN O O R R M M
2379 // DDDDDD BBBBBB N N OOOOO R R M M
2380
2381
2382 // VIF THU 13 NOV 2025 17:29:08 ** DBNORM ** DIAGNOSTICS PAGE 00076
2383
2384
2385 // VIF THU 13 NOV 2025 17:29:08 ** DBNORM ** GENERATED CODE PAGE 00077
2386
2387 real_8 _dbnorm (int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ nra_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ w_)
2388 { // ** body not listed **
2406 }
2407
2408 // VIF THU 13 NOV 2025 17:29:08 ** DCFODE ** DCFODE PAGE 00078
2409
2410 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2411 // S S U U B B R R O O U U T I NN N E
2412 // S U U B B R R O O U U T I N N N E
2413 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2414 // S U U B B R R O O U U T I N N N E
2415 // S S U U B B R R O O U U T I N NN E
2416 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2417
2418 // DDDDDD CCCCC FFFFFFF OOOOO DDDDDD EEEEEEE
2419 // D D C C F O O D D E
2420 // D D C F O O D D E
2421 // D D C FFFFF O O D D EEEEE
2422 // D D C F O O D D E
2423 // D D C C F O O D D E
2424 // DDDDDD CCCCC F OOOOO DDDDDD EEEEEEE
2425
2426
2427 // VIF THU 13 NOV 2025 17:29:08 ** DCFODE ** DIAGNOSTICS PAGE 00079
2428
2429
2430 // VIF THU 13 NOV 2025 17:29:08 ** DCFODE ** GENERATED CODE PAGE 00080
2431
2432 int_4 _dcfode (int_4 _p_ meth_, real_8 _p_ elco_, real_8 _p_ tesco_)
2433 { // ** body not listed **
2510 }
2511
2512 // VIF THU 13 NOV 2025 17:29:08 ** DDECBT ** DDECBT PAGE 00082
2513
2514 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2515 // S S U U B B R R O O U U T I NN N E
2516 // S U U B B R R O O U U T I N N N E
2517 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2518 // S U U B B R R O O U U T I N N N E
2519 // S S U U B B R R O O U U T I N NN E
2520 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2521
2522 // DDDDDD DDDDDD EEEEEEE CCCCC BBBBBB TTTTTTT
2523 // D D D D E C C B B T
2524 // D D D D E C B B T
2525 // D D D D EEEEE C BBBBBB T
2526 // D D D D E C B B T
2527 // D D D D E C C B B T
2528 // DDDDDD DDDDDD EEEEEEE CCCCC BBBBBB T
2529
2530
2531 // VIF THU 13 NOV 2025 17:29:08 ** DDECBT ** DIAGNOSTICS PAGE 00083
2532
2533
2534 // VIF THU 13 NOV 2025 17:29:08 ** DDECBT ** GENERATED CODE PAGE 00084
2535
2536 int_4 _ddecbt (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, int_4 _p_ ip_, int_4 _p_ ier_)
2537 { // ** body not listed **
2613 }
2614
2615 // VIF THU 13 NOV 2025 17:29:08 ** DEWSET ** DEWSET PAGE 00086
2616
2617 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2618 // S S U U B B R R O O U U T I NN N E
2619 // S U U B B R R O O U U T I N N N E
2620 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2621 // S U U B B R R O O U U T I N N N E
2622 // S S U U B B R R O O U U T I N NN E
2623 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2624
2625 // DDDDDD EEEEEEE W W SSSSS EEEEEEE TTTTTTT
2626 // D D E W W S S E T
2627 // D D E W W S E T
2628 // D D EEEEE W W W SSSSS EEEEE T
2629 // D D E W W W S E T
2630 // D D E W W W S S E T
2631 // DDDDDD EEEEEEE WW WW SSSSS EEEEEEE T
2632
2633
2634 // VIF THU 13 NOV 2025 17:29:08 ** DEWSET ** DIAGNOSTICS PAGE 00087
2635
2636
2637 // VIF THU 13 NOV 2025 17:29:08 ** DEWSET ** GENERATED CODE PAGE 00088
2638
2639 int_4 _dewset (int_4 _p_ n_, int_4 _p_ itol_, real_8 _p_ rtol_, real_8 _p_ atol_, real_8 _p_ ycur_, real_8 _p_ ewt_)
2640 { // ** body not listed **
2671 }
2672
2673 // VIF THU 13 NOV 2025 17:29:08 ** DFNORM ** DFNORM PAGE 00089
2674
2675 // RRRRRR EEEEEEE A L 88888
2676 // R R E A A L * * 8 8
2677 // R R E A A L * * 8 8
2678 // RRRRRR EEEEE A A L ******* 88888
2679 // R R E AAAAAAA L * * 8 8
2680 // R R E A A L * * 8 8
2681 // R R EEEEEEE A A LLLLLLL 88888
2682
2683 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
2684 // F U U NN N C C T I O O NN N
2685 // F U U N N N C T I O O N N N
2686 // FFFFF U U N N N C T I O O N N N
2687 // F U U N N N C T I O O N N N
2688 // F U U N NN C C T I O O N NN
2689 // F UUUUU N N CCCCC T III OOOOO N N
2690
2691 // DDDDDD FFFFFFF N N OOOOO RRRRRR M M
2692 // D D F NN N O O R R MM MM
2693 // D D F N N N O O R R M M M M
2694 // D D FFFFF N N N O O RRRRRR M M M
2695 // D D F N N N O O R R M M
2696 // D D F N NN O O R R M M
2697 // DDDDDD F N N OOOOO R R M M
2698
2699
2700 // VIF THU 13 NOV 2025 17:29:08 ** DFNORM ** DIAGNOSTICS PAGE 00090
2701
2702
2703 // VIF THU 13 NOV 2025 17:29:08 ** DFNORM ** GENERATED CODE PAGE 00091
2704
2705 real_8 _dfnorm (int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ w_)
2706 { // ** body not listed **
2721 }
2722
2723 // VIF THU 13 NOV 2025 17:29:08 ** DHEFA ** DHEFA PAGE 00092
2724
2725 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2726 // S S U U B B R R O O U U T I NN N E
2727 // S U U B B R R O O U U T I N N N E
2728 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2729 // S U U B B R R O O U U T I N N N E
2730 // S S U U B B R R O O U U T I N NN E
2731 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2732
2733 // DDDDDD H H EEEEEEE FFFFFFF A
2734 // D D H H E F A A
2735 // D D H H E F A A
2736 // D D HHHHHHH EEEEE FFFFF A A
2737 // D D H H E F AAAAAAA
2738 // D D H H E F A A
2739 // DDDDDD H H EEEEEEE F A A
2740
2741
2742 // VIF THU 13 NOV 2025 17:29:08 ** DHEFA ** DIAGNOSTICS PAGE 00093
2743
2744
2745 // VIF THU 13 NOV 2025 17:29:08 ** DHEFA ** GENERATED CODE PAGE 00094
2746
2747 int_4 _dhefa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_, int_4 _p_ job_)
2748 { // ** body not listed **
2857 }
2858
2859 // VIF THU 13 NOV 2025 17:29:08 ** DHELS ** DHELS PAGE 00097
2860
2861 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2862 // S S U U B B R R O O U U T I NN N E
2863 // S U U B B R R O O U U T I N N N E
2864 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2865 // S U U B B R R O O U U T I N N N E
2866 // S S U U B B R R O O U U T I N NN E
2867 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2868
2869 // DDDDDD H H EEEEEEE L SSSSS
2870 // D D H H E L S S
2871 // D D H H E L S
2872 // D D HHHHHHH EEEEE L SSSSS
2873 // D D H H E L S
2874 // D D H H E L S S
2875 // DDDDDD H H EEEEEEE LLLLLLL SSSSS
2876
2877
2878 // VIF THU 13 NOV 2025 17:29:08 ** DHELS ** DIAGNOSTICS PAGE 00098
2879
2880
2881 // VIF THU 13 NOV 2025 17:29:08 ** DHELS ** GENERATED CODE PAGE 00099
2882
2883 int_4 _dhels (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ q_, real_8 _p_ b_)
2884 { // ** body not listed **
2906 }
2907
2908 // VIF THU 13 NOV 2025 17:29:08 ** DHEQR ** DHEQR PAGE 00100
2909
2910 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2911 // S S U U B B R R O O U U T I NN N E
2912 // S U U B B R R O O U U T I N N N E
2913 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2914 // S U U B B R R O O U U T I N N N E
2915 // S S U U B B R R O O U U T I N NN E
2916 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2917
2918 // DDDDDD H H EEEEEEE QQQQQ RRRRRR
2919 // D D H H E Q Q R R
2920 // D D H H E Q Q R R
2921 // D D HHHHHHH EEEEE Q Q RRRRRR
2922 // D D H H E Q Q Q R R
2923 // D D H H E Q Q R R
2924 // DDDDDD H H EEEEEEE QQQQ Q R R
2925
2926
2927 // VIF THU 13 NOV 2025 17:29:08 ** DHEQR ** DIAGNOSTICS PAGE 00101
2928
2929
2930 // VIF THU 13 NOV 2025 17:29:08 ** DHEQR ** GENERATED CODE PAGE 00102
2931
2932 int_4 _dheqr (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ q_, int_4 _p_ info_, int_4 _p_ ijob_)
2933 { // ** body not listed **
3031 }
3032
3033 // VIF THU 13 NOV 2025 17:29:08 ** DHESL ** DHESL PAGE 00104
3034
3035 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3036 // S S U U B B R R O O U U T I NN N E
3037 // S U U B B R R O O U U T I N N N E
3038 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3039 // S U U B B R R O O U U T I N N N E
3040 // S S U U B B R R O O U U T I N NN E
3041 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3042
3043 // DDDDDD H H EEEEEEE SSSSS L
3044 // D D H H E S S L
3045 // D D H H E S L
3046 // D D HHHHHHH EEEEE SSSSS L
3047 // D D H H E S L
3048 // D D H H E S S L
3049 // DDDDDD H H EEEEEEE SSSSS LLLLLLL
3050
3051
3052 // VIF THU 13 NOV 2025 17:29:08 ** DHESL ** DIAGNOSTICS PAGE 00105
3053
3054
3055 // VIF THU 13 NOV 2025 17:29:08 ** DHESL ** GENERATED CODE PAGE 00106
3056
3057 int_4 _dhesl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_8 _p_ b_)
3058 { // ** body not listed **
3086 }
3087
3088 // VIF THU 13 NOV 2025 17:29:08 ** DINTDY ** DINTDY PAGE 00107
3089
3090 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3091 // S S U U B B R R O O U U T I NN N E
3092 // S U U B B R R O O U U T I N N N E
3093 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3094 // S U U B B R R O O U U T I N N N E
3095 // S S U U B B R R O O U U T I N NN E
3096 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3097
3098 // DDDDDD III N N TTTTTTT DDDDDD Y Y
3099 // D D I NN N T D D Y Y
3100 // D D I N N N T D D Y Y
3101 // D D I N N N T D D Y
3102 // D D I N N N T D D Y
3103 // D D I N NN T D D Y
3104 // DDDDDD III N N T DDDDDD Y
3105
3106
3107 // VIF THU 13 NOV 2025 17:29:08 ** DINTDY ** DIAGNOSTICS PAGE 00108
3108
3109
3110 // VIF THU 13 NOV 2025 17:29:08 ** DINTDY ** GENERATED CODE PAGE 00109
3111
3112 int_4 _dintdy (real_8 _p_ t_, int_4 _p_ k_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ dky_, int_4 _p_ iflag_)
3113 { // ** body not listed **
3190 }
3191
3192 // VIF THU 13 NOV 2025 17:29:08 ** DIPREP ** DIPREP PAGE 00111
3193
3194 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3195 // S S U U B B R R O O U U T I NN N E
3196 // S U U B B R R O O U U T I N N N E
3197 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3198 // S U U B B R R O O U U T I N N N E
3199 // S S U U B B R R O O U U T I N NN E
3200 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3201
3202 // DDDDDD III PPPPPP RRRRRR EEEEEEE PPPPPP
3203 // D D I P P R R E P P
3204 // D D I P P R R E P P
3205 // D D I PPPPPP RRRRRR EEEEE PPPPPP
3206 // D D I P R R E P
3207 // D D I P R R E P
3208 // DDDDDD III P R R EEEEEEE P
3209
3210
3211 // VIF THU 13 NOV 2025 17:29:08 ** DIPREP ** DIAGNOSTICS PAGE 00112
3212
3213
3214 // VIF THU 13 NOV 2025 17:29:08 ** DIPREP ** GENERATED CODE PAGE 00113
3215
3216 int_4 _diprep (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ rwork_, int_4 _p_ ia_, int_4 _p_ ja_, int_4 _p_ ipflag_,
3217 real_4 (*_f)(), int_4 (*_jac)())
3218 { // ** body not listed **
3258 }
3259
3260 // VIF THU 13 NOV 2025 17:29:08 ** DIPREPI ** DIPREPI PAGE 00114
3261
3262 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3263 // S S U U B B R R O O U U T I NN N E
3264 // S U U B B R R O O U U T I N N N E
3265 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3266 // S U U B B R R O O U U T I N N N E
3267 // S S U U B B R R O O U U T I N NN E
3268 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3269
3270 // DDDDDD III PPPPPP RRRRRR EEEEEEE PPPPPP III
3271 // D D I P P R R E P P I
3272 // D D I P P R R E P P I
3273 // D D I PPPPPP RRRRRR EEEEE PPPPPP I
3274 // D D I P R R E P I
3275 // D D I P R R E P I
3276 // DDDDDD III P R R EEEEEEE P III
3277
3278
3279 // VIF THU 13 NOV 2025 17:29:08 ** DIPREPI ** DIAGNOSTICS PAGE 00115
3280
3281
3282 // VIF THU 13 NOV 2025 17:29:08 ** DIPREPI ** GENERATED CODE PAGE 00116
3283
3284 int_4 _diprepi (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ s_, real_8 _p_ rwork_, int_4 _p_ ia_, int_4 _p_ ja_, int_4
3285 _p_ ic_, int_4 _p_ jc_, int_4 _p_ ipflag_, real_4 (*_res)(), int_4 (*_jac)(), real_4 (*_adda)())
3286 { // ** body not listed **
3327 }
3328
3329 // VIF THU 13 NOV 2025 17:29:08 ** DLHIN ** DLHIN PAGE 00117
3330
3331 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3332 // S S U U B B R R O O U U T I NN N E
3333 // S U U B B R R O O U U T I N N N E
3334 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3335 // S U U B B R R O O U U T I N N N E
3336 // S S U U B B R R O O U U T I N NN E
3337 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3338
3339 // DDDDDD L H H III N N
3340 // D D L H H I NN N
3341 // D D L H H I N N N
3342 // D D L HHHHHHH I N N N
3343 // D D L H H I N N N
3344 // D D L H H I N NN
3345 // DDDDDD LLLLLLL H H III N N
3346
3347
3348 // VIF THU 13 NOV 2025 17:29:08 ** DLHIN ** DIAGNOSTICS PAGE 00118
3349
3350
3351 // VIF THU 13 NOV 2025 17:29:08 ** DLHIN ** GENERATED CODE PAGE 00119
3352
3353 int_4 _dlhin (int_4 _p_ neq_, int_4 _p_ n_, real_8 _p_ t0_, real_8 _p_ y0_, real_8 _p_ ydot_, int_4 (*_f)(), real_8 _p_
3354 tout_, real_8 _p_ uround_, real_8 _p_ ewt_, int_4 _p_ itol_, real_8 _p_ atol_, real_8 _p_ y_, real_8 _p_ temp_, real_8
3355 _p_ h0_, int_4 _p_ niter_, int_4 _p_ ier_)
3356 { // ** body not listed **
3481 }
3482
3483 // VIF THU 13 NOV 2025 17:29:08 ** DLSODA ** DLSODA PAGE 00122
3484
3485 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3486 // S S U U B B R R O O U U T I NN N E
3487 // S U U B B R R O O U U T I N N N E
3488 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3489 // S U U B B R R O O U U T I N N N E
3490 // S S U U B B R R O O U U T I N NN E
3491 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3492
3493 // DDDDDD L SSSSS OOOOO DDDDDD A
3494 // D D L S S O O D D A A
3495 // D D L S O O D D A A
3496 // D D L SSSSS O O D D A A
3497 // D D L S O O D D AAAAAAA
3498 // D D L S S O O D D A A
3499 // DDDDDD LLLLLLL SSSSS OOOOO DDDDDD A A
3500
3501
3502 // VIF THU 13 NOV 2025 17:29:08 ** DLSODA ** DIAGNOSTICS PAGE 00123
3503
3504
3505 // VIF THU 13 NOV 2025 17:29:08 ** DLSODA ** GENERATED CODE PAGE 00124
3506
3507 int_4 _dlsoda (int_4 (*_f)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_ itol_, real_8
3508 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_, int_4 _p_ lrw_,
3509 int_4 _p_ iwork_, int_4 _p_ liw_, int_4 (*_jac)(), int_4 _p_ jt_)
3510 { // ** body not listed **
4430 }
4431
4432 // VIF THU 13 NOV 2025 17:29:08 ** DLSODAR ** DLSODAR PAGE 00142
4433
4434 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4435 // S S U U B B R R O O U U T I NN N E
4436 // S U U B B R R O O U U T I N N N E
4437 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4438 // S U U B B R R O O U U T I N N N E
4439 // S S U U B B R R O O U U T I N NN E
4440 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4441
4442 // DDDDDD L SSSSS OOOOO DDDDDD A RRRRRR
4443 // D D L S S O O D D A A R R
4444 // D D L S O O D D A A R R
4445 // D D L SSSSS O O D D A A RRRRRR
4446 // D D L S O O D D AAAAAAA R R
4447 // D D L S S O O D D A A R R
4448 // DDDDDD LLLLLLL SSSSS OOOOO DDDDDD A A R R
4449
4450
4451 // VIF THU 13 NOV 2025 17:29:08 ** DLSODAR ** DIAGNOSTICS PAGE 00143
4452
4453
4454 // VIF THU 13 NOV 2025 17:29:08 ** DLSODAR ** GENERATED CODE PAGE 00144
4455
4456 int_4 _dlsodar (int_4 (*_f)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_ itol_, real_8
4457 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_, int_4 _p_ lrw_,
4458 int_4 _p_ iwork_, int_4 _p_ liw_, int_4 (*_jac)(), int_4 _p_ jt_, real_4 (*_g)(), int_4 _p_ ng_, int_4 _p_ jroot_)
4459 { // ** body not listed **
5490 }
5491
5492 // VIF THU 13 NOV 2025 17:29:08 ** DLSODE ** DLSODE PAGE 00164
5493
5494 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5495 // S S U U B B R R O O U U T I NN N E
5496 // S U U B B R R O O U U T I N N N E
5497 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5498 // S U U B B R R O O U U T I N N N E
5499 // S S U U B B R R O O U U T I N NN E
5500 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5501
5502 // DDDDDD L SSSSS OOOOO DDDDDD EEEEEEE
5503 // D D L S S O O D D E
5504 // D D L S O O D D E
5505 // D D L SSSSS O O D D EEEEE
5506 // D D L S O O D D E
5507 // D D L S S O O D D E
5508 // DDDDDD LLLLLLL SSSSS OOOOO DDDDDD EEEEEEE
5509
5510
5511 // VIF THU 13 NOV 2025 17:29:08 ** DLSODE ** DIAGNOSTICS PAGE 00165
5512
5513
5514 // VIF THU 13 NOV 2025 17:29:08 ** DLSODE ** GENERATED CODE PAGE 00166
5515
5516 int_4 _dlsode (int_4 (*_f)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_ itol_, real_8
5517 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_, int_4 _p_ lrw_,
5518 int_4 _p_ iwork_, int_4 _p_ liw_, int_4 (*_jac)(), int_4 _p_ mf_)
5519 { // ** body not listed **
6302 }
6303
6304 // VIF THU 13 NOV 2025 17:29:08 ** DLSODES ** DLSODES PAGE 00182
6305
6306 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6307 // S S U U B B R R O O U U T I NN N E
6308 // S U U B B R R O O U U T I N N N E
6309 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6310 // S U U B B R R O O U U T I N N N E
6311 // S S U U B B R R O O U U T I N NN E
6312 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6313
6314 // DDDDDD L SSSSS OOOOO DDDDDD EEEEEEE SSSSS
6315 // D D L S S O O D D E S S
6316 // D D L S O O D D E S
6317 // D D L SSSSS O O D D EEEEE SSSSS
6318 // D D L S O O D D E S
6319 // D D L S S O O D D E S S
6320 // DDDDDD LLLLLLL SSSSS OOOOO DDDDDD EEEEEEE SSSSS
6321
6322
6323 // VIF THU 13 NOV 2025 17:29:08 ** DLSODES ** DIAGNOSTICS PAGE 00183
6324
6325
6326 // VIF THU 13 NOV 2025 17:29:08 ** DLSODES ** GENERATED CODE PAGE 00184
6327
6328 int_4 _dlsodes (int_4 (*_f)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_ itol_, real_8
6329 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_, int_4 _p_ lrw_,
6330 int_4 _p_ iwork_, int_4 _p_ liw_, int_4 (*_jac)(), int_4 _p_ mf_)
6331 { // ** body not listed **
7352 }
7353
7354 // VIF THU 13 NOV 2025 17:29:08 ** DLSOIBT ** DLSOIBT PAGE 00204
7355
7356 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7357 // S S U U B B R R O O U U T I NN N E
7358 // S U U B B R R O O U U T I N N N E
7359 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7360 // S U U B B R R O O U U T I N N N E
7361 // S S U U B B R R O O U U T I N NN E
7362 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7363
7364 // DDDDDD L SSSSS OOOOO III BBBBBB TTTTTTT
7365 // D D L S S O O I B B T
7366 // D D L S O O I B B T
7367 // D D L SSSSS O O I BBBBBB T
7368 // D D L S O O I B B T
7369 // D D L S S O O I B B T
7370 // DDDDDD LLLLLLL SSSSS OOOOO III BBBBBB T
7371
7372
7373 // VIF THU 13 NOV 2025 17:29:08 ** DLSOIBT ** DIAGNOSTICS PAGE 00205
7374
7375
7376 // VIF THU 13 NOV 2025 17:29:08 ** DLSOIBT ** GENERATED CODE PAGE 00206
7377
7378 int_4 _dlsoibt (int_4 (*_res)(), real_4 (*_adda)(), int_4 (*_jac)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ ydoti_,
7379 real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_ itol_, real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_
7380 istate_, int_4 _p_ iopt_, real_8 _p_ rwork_, int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ mf_)
7381 { // ** body not listed **
8225 }
8226
8227 // VIF THU 13 NOV 2025 17:29:08 ** DLSODI ** DLSODI PAGE 00223
8228
8229 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8230 // S S U U B B R R O O U U T I NN N E
8231 // S U U B B R R O O U U T I N N N E
8232 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8233 // S U U B B R R O O U U T I N N N E
8234 // S S U U B B R R O O U U T I N NN E
8235 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8236
8237 // DDDDDD L SSSSS OOOOO DDDDDD III
8238 // D D L S S O O D D I
8239 // D D L S O O D D I
8240 // D D L SSSSS O O D D I
8241 // D D L S O O D D I
8242 // D D L S S O O D D I
8243 // DDDDDD LLLLLLL SSSSS OOOOO DDDDDD III
8244
8245
8246 // VIF THU 13 NOV 2025 17:29:08 ** DLSODI ** DIAGNOSTICS PAGE 00224
8247
8248
8249 // VIF THU 13 NOV 2025 17:29:08 ** DLSODI ** GENERATED CODE PAGE 00225
8250
8251 int_4 _dlsodi (int_4 (*_res)(), real_4 (*_adda)(), int_4 (*_jac)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ ydoti_,
8252 real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_ itol_, real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_
8253 istate_, int_4 _p_ iopt_, real_8 _p_ rwork_, int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ mf_)
8254 { // ** body not listed **
9109 }
9110
9111 // VIF THU 13 NOV 2025 17:29:08 ** DLSODIS ** DLSODIS PAGE 00242
9112
9113 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9114 // S S U U B B R R O O U U T I NN N E
9115 // S U U B B R R O O U U T I N N N E
9116 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9117 // S U U B B R R O O U U T I N N N E
9118 // S S U U B B R R O O U U T I N NN E
9119 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9120
9121 // DDDDDD L SSSSS OOOOO DDDDDD III SSSSS
9122 // D D L S S O O D D I S S
9123 // D D L S O O D D I S
9124 // D D L SSSSS O O D D I SSSSS
9125 // D D L S O O D D I S
9126 // D D L S S O O D D I S S
9127 // DDDDDD LLLLLLL SSSSS OOOOO DDDDDD III SSSSS
9128
9129
9130 // VIF THU 13 NOV 2025 17:29:08 ** DLSODIS ** DIAGNOSTICS PAGE 00243
9131
9132
9133 // VIF THU 13 NOV 2025 17:29:08 ** DLSODIS ** GENERATED CODE PAGE 00244
9134
9135 int_4 _dlsodis (int_4 (*_res)(), real_4 (*_adda)(), int_4 (*_jac)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ ydoti_,
9136 real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_ itol_, real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_
9137 istate_, int_4 _p_ iopt_, real_8 _p_ rwork_, int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ mf_)
9138 { // ** body not listed **
10263 }
10264
10265 // VIF THU 13 NOV 2025 17:29:08 ** DLSODKR ** DLSODKR PAGE 00266
10266
10267 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10268 // S S U U B B R R O O U U T I NN N E
10269 // S U U B B R R O O U U T I N N N E
10270 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10271 // S U U B B R R O O U U T I N N N E
10272 // S S U U B B R R O O U U T I N NN E
10273 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10274
10275 // DDDDDD L SSSSS OOOOO DDDDDD K K RRRRRR
10276 // D D L S S O O D D K K R R
10277 // D D L S O O D D K K R R
10278 // D D L SSSSS O O D D KKK RRRRRR
10279 // D D L S O O D D K K R R
10280 // D D L S S O O D D K K R R
10281 // DDDDDD LLLLLLL SSSSS OOOOO DDDDDD K K R R
10282
10283
10284 // VIF THU 13 NOV 2025 17:29:08 ** DLSODKR ** DIAGNOSTICS PAGE 00267
10285
10286
10287 // VIF THU 13 NOV 2025 17:29:08 ** DLSODKR ** GENERATED CODE PAGE 00268
10288
10289 int_4 _dlsodkr (int_4 (*_f)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_ itol_, real_8
10290 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_, int_4 _p_ lrw_,
10291 int_4 _p_ iwork_, int_4 _p_ liw_, int_4 (*_jac)(), real_4 (*_psol)(), int_4 _p_ mf_, real_4 (*_g)(), int_4 _p_ ng_,
10292 int_4 _p_ jroot_)
10293 { // ** body not listed **
11280 }
11281
11282 // VIF THU 13 NOV 2025 17:29:08 ** DLSODPK ** DLSODPK PAGE 00288
11283
11284 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11285 // S S U U B B R R O O U U T I NN N E
11286 // S U U B B R R O O U U T I N N N E
11287 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11288 // S U U B B R R O O U U T I N N N E
11289 // S S U U B B R R O O U U T I N NN E
11290 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11291
11292 // DDDDDD L SSSSS OOOOO DDDDDD PPPPPP K K
11293 // D D L S S O O D D P P K K
11294 // D D L S O O D D P P K K
11295 // D D L SSSSS O O D D PPPPPP KKK
11296 // D D L S O O D D P K K
11297 // D D L S S O O D D P K K
11298 // DDDDDD LLLLLLL SSSSS OOOOO DDDDDD P K K
11299
11300
11301 // VIF THU 13 NOV 2025 17:29:08 ** DLSODPK ** DIAGNOSTICS PAGE 00289
11302
11303
11304 // VIF THU 13 NOV 2025 17:29:08 ** DLSODPK ** GENERATED CODE PAGE 00290
11305
11306 int_4 _dlsodpk (int_4 (*_f)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ t_, real_8 _p_ tout_, int_4 _p_ itol_, real_8
11307 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ itask_, int_4 _p_ istate_, int_4 _p_ iopt_, real_8 _p_ rwork_, int_4 _p_ lrw_,
11308 int_4 _p_ iwork_, int_4 _p_ liw_, int_4 (*_jac)(), real_4 (*_psol)(), int_4 _p_ mf_)
11309 { // ** body not listed **
12204 }
12205
12206 // VIF THU 13 NOV 2025 17:29:08 ** DMNORM ** DMNORM PAGE 00308
12207
12208 // RRRRRR EEEEEEE A L 88888
12209 // R R E A A L * * 8 8
12210 // R R E A A L * * 8 8
12211 // RRRRRR EEEEE A A L ******* 88888
12212 // R R E AAAAAAA L * * 8 8
12213 // R R E A A L * * 8 8
12214 // R R EEEEEEE A A LLLLLLL 88888
12215
12216 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
12217 // F U U NN N C C T I O O NN N
12218 // F U U N N N C T I O O N N N
12219 // FFFFF U U N N N C T I O O N N N
12220 // F U U N N N C T I O O N N N
12221 // F U U N NN C C T I O O N NN
12222 // F UUUUU N N CCCCC T III OOOOO N N
12223
12224 // DDDDDD M M N N OOOOO RRRRRR M M
12225 // D D MM MM NN N O O R R MM MM
12226 // D D M M M M N N N O O R R M M M M
12227 // D D M M M N N N O O RRRRRR M M M
12228 // D D M M N N N O O R R M M
12229 // D D M M N NN O O R R M M
12230 // DDDDDD M M N N OOOOO R R M M
12231
12232
12233 // VIF THU 13 NOV 2025 17:29:08 ** DMNORM ** DIAGNOSTICS PAGE 00309
12234
12235
12236 // VIF THU 13 NOV 2025 17:29:08 ** DMNORM ** GENERATED CODE PAGE 00310
12237
12238 real_8 _dmnorm (int_4 _p_ n_, real_8 _p_ v_, real_8 _p_ w_)
12239 { // ** body not listed **
12250 }
12251
12252 // VIF THU 13 NOV 2025 17:29:08 ** DORTHOG ** DORTHOG PAGE 00311
12253
12254 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12255 // S S U U B B R R O O U U T I NN N E
12256 // S U U B B R R O O U U T I N N N E
12257 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12258 // S U U B B R R O O U U T I N N N E
12259 // S S U U B B R R O O U U T I N NN E
12260 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12261
12262 // DDDDDD OOOOO RRRRRR TTTTTTT H H OOOOO GGGGG
12263 // D D O O R R T H H O O G G
12264 // D D O O R R T H H O O G
12265 // D D O O RRRRRR T HHHHHHH O O G GGGG
12266 // D D O O R R T H H O O G G
12267 // D D O O R R T H H O O G G
12268 // DDDDDD OOOOO R R T H H OOOOO GGGGG
12269
12270
12271 // VIF THU 13 NOV 2025 17:29:08 ** DORTHOG ** DIAGNOSTICS PAGE 00312
12272
12273
12274 // VIF THU 13 NOV 2025 17:29:08 ** DORTHOG ** GENERATED CODE PAGE 00313
12275
12276 int_4 _dorthog (real_8 _p_ vnew_, real_8 _p_ v_, real_8 _p_ hes_, int_4 _p_ n_, int_4 _p_ ll_, int_4 _p_ ldhes_, int_4
12277 _p_ kmp_, real_8 _p_ snormw_)
12278 { // ** body not listed **
12313 }
12314
12315 // VIF THU 13 NOV 2025 17:29:08 ** DPCG ** DPCG PAGE 00314
12316
12317 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12318 // S S U U B B R R O O U U T I NN N E
12319 // S U U B B R R O O U U T I N N N E
12320 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12321 // S U U B B R R O O U U T I N N N E
12322 // S S U U B B R R O O U U T I N NN E
12323 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12324
12325 // DDDDDD PPPPPP CCCCC GGGGG
12326 // D D P P C C G G
12327 // D D P P C G
12328 // D D PPPPPP C G GGGG
12329 // D D P C G G
12330 // D D P C C G G
12331 // DDDDDD P CCCCC GGGGG
12332
12333
12334 // VIF THU 13 NOV 2025 17:29:08 ** DPCG ** DIAGNOSTICS PAGE 00315
12335
12336
12337 // VIF THU 13 NOV 2025 17:29:08 ** DPCG ** GENERATED CODE PAGE 00316
12338
12339 int_4 _dpcg (int_4 _p_ neq_, real_8 _p_ tn_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ r_, real_8 _p_ wght_, int_4
12340 _p_ n_, int_4 _p_ maxl_, real_8 _p_ delta_, real_8 _p_ hl0_, int_4 _p_ jpre_, int_4 _p_ mnewt_, real_4 (*_f)(), int_4
12341 (*_psol)(), int_4 _p_ npsl_, real_8 _p_ x_, real_8 _p_ p_, real_8 _p_ w_, real_8 _p_ z_, int_4 _p_ lpcg_, real_8 _p_
12342 wp_, int_4 _p_ iwp_, real_8 _p_ wk_, int_4 _p_ iflag_)
12343 { // ** body not listed **
12433 }
12434
12435 // VIF THU 13 NOV 2025 17:29:08 ** DPCGS ** DPCGS PAGE 00318
12436
12437 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12438 // S S U U B B R R O O U U T I NN N E
12439 // S U U B B R R O O U U T I N N N E
12440 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12441 // S U U B B R R O O U U T I N N N E
12442 // S S U U B B R R O O U U T I N NN E
12443 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12444
12445 // DDDDDD PPPPPP CCCCC GGGGG SSSSS
12446 // D D P P C C G G S S
12447 // D D P P C G S
12448 // D D PPPPPP C G GGGG SSSSS
12449 // D D P C G G S
12450 // D D P C C G G S S
12451 // DDDDDD P CCCCC GGGGG SSSSS
12452
12453
12454 // VIF THU 13 NOV 2025 17:29:08 ** DPCGS ** DIAGNOSTICS PAGE 00319
12455
12456
12457 // VIF THU 13 NOV 2025 17:29:08 ** DPCGS ** GENERATED CODE PAGE 00320
12458
12459 int_4 _dpcgs (int_4 _p_ neq_, real_8 _p_ tn_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ r_, real_8 _p_ wght_, int_4
12460 _p_ n_, int_4 _p_ maxl_, real_8 _p_ delta_, real_8 _p_ hl0_, int_4 _p_ jpre_, int_4 _p_ mnewt_, real_4 (*_f)(), int_4
12461 (*_psol)(), int_4 _p_ npsl_, real_8 _p_ x_, real_8 _p_ p_, real_8 _p_ w_, real_8 _p_ z_, int_4 _p_ lpcg_, real_8 _p_
12462 wp_, int_4 _p_ iwp_, real_8 _p_ wk_, int_4 _p_ iflag_)
12463 { // ** body not listed **
12558 }
12559
12560 // VIF THU 13 NOV 2025 17:29:08 ** DPJIBT ** DPJIBT PAGE 00322
12561
12562 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12563 // S S U U B B R R O O U U T I NN N E
12564 // S U U B B R R O O U U T I N N N E
12565 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12566 // S U U B B R R O O U U T I N N N E
12567 // S S U U B B R R O O U U T I N NN E
12568 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12569
12570 // DDDDDD PPPPPP J III BBBBBB TTTTTTT
12571 // D D P P J I B B T
12572 // D D P P J I B B T
12573 // D D PPPPPP J I BBBBBB T
12574 // D D P J J I B B T
12575 // D D P J J I B B T
12576 // DDDDDD P JJJJJ III BBBBBB T
12577
12578
12579 // VIF THU 13 NOV 2025 17:29:08 ** DPJIBT ** DIAGNOSTICS PAGE 00323
12580
12581
12582 // VIF THU 13 NOV 2025 17:29:08 ** DPJIBT ** GENERATED CODE PAGE 00324
12583
12584 int_4 _dpjibt (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ ewt_, real_8 _p_ rtem_, real_8
12585 _p_ savr_, real_8 _p_ s_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_res)(), int_4 (*_jac)(), int_4 (*_adda)())
12586 { // ** body not listed **
12720 }
12721
12722 // VIF THU 13 NOV 2025 17:29:08 ** DPKSET ** DPKSET PAGE 00327
12723
12724 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12725 // S S U U B B R R O O U U T I NN N E
12726 // S U U B B R R O O U U T I N N N E
12727 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12728 // S U U B B R R O O U U T I N N N E
12729 // S S U U B B R R O O U U T I N NN E
12730 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12731
12732 // DDDDDD PPPPPP K K SSSSS EEEEEEE TTTTTTT
12733 // D D P P K K S S E T
12734 // D D P P K K S E T
12735 // D D PPPPPP KKK SSSSS EEEEE T
12736 // D D P K K S E T
12737 // D D P K K S S E T
12738 // DDDDDD P K K SSSSS EEEEEEE T
12739
12740
12741 // VIF THU 13 NOV 2025 17:29:08 ** DPKSET ** DIAGNOSTICS PAGE 00328
12742
12743
12744 // VIF THU 13 NOV 2025 17:29:08 ** DPKSET ** GENERATED CODE PAGE 00329
12745
12746 int_4 _dpkset (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ ysv_, real_8 _p_ ewt_, real_8 _p_ ftem_, real_8 _p_ savf_,
12747 real_8 _p_ wm_, int_4 _p_ iwm_, real_4 (*_f)(), int_4 (*_jac)())
12748 { // ** body not listed **
12764 }
12765
12766 // VIF THU 13 NOV 2025 17:29:08 ** DPREP ** DPREP PAGE 00330
12767
12768 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12769 // S S U U B B R R O O U U T I NN N E
12770 // S U U B B R R O O U U T I N N N E
12771 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12772 // S U U B B R R O O U U T I N N N E
12773 // S S U U B B R R O O U U T I N NN E
12774 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12775
12776 // DDDDDD PPPPPP RRRRRR EEEEEEE PPPPPP
12777 // D D P P R R E P P
12778 // D D P P R R E P P
12779 // D D PPPPPP RRRRRR EEEEE PPPPPP
12780 // D D P R R E P
12781 // D D P R R E P
12782 // DDDDDD P R R EEEEEEE P
12783
12784
12785 // VIF THU 13 NOV 2025 17:29:08 ** DPREP ** DIAGNOSTICS PAGE 00331
12786
12787
12788 // VIF THU 13 NOV 2025 17:29:08 ** DPREP ** GENERATED CODE PAGE 00332
12789
12790 int_4 _dprep (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, real_8 _p_ savf_, real_8 _p_ ewt_, real_8 _p_ ftem_, int_4
12791 _p_ ia_, int_4 _p_ ja_, real_8 _p_ wk_, int_4 _p_ iwk_, int_4 _p_ ipper_, int_4 (*_f)(), int_4 (*_jac)())
12792 { // ** body not listed **
13061 }
13062
13063 // VIF THU 13 NOV 2025 17:29:08 ** DPREPI ** DPREPI PAGE 00338
13064
13065 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13066 // S S U U B B R R O O U U T I NN N E
13067 // S U U B B R R O O U U T I N N N E
13068 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13069 // S U U B B R R O O U U T I N N N E
13070 // S S U U B B R R O O U U T I N NN E
13071 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13072
13073 // DDDDDD PPPPPP RRRRRR EEEEEEE PPPPPP III
13074 // D D P P R R E P P I
13075 // D D P P R R E P P I
13076 // D D PPPPPP RRRRRR EEEEE PPPPPP I
13077 // D D P R R E P I
13078 // D D P R R E P I
13079 // DDDDDD P R R EEEEEEE P III
13080
13081
13082 // VIF THU 13 NOV 2025 17:29:08 ** DPREPI ** DIAGNOSTICS PAGE 00339
13083
13084
13085 // VIF THU 13 NOV 2025 17:29:08 ** DPREPI ** GENERATED CODE PAGE 00340
13086
13087 int_4 _dprepi (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ s_, real_8 _p_ yh_, real_8 _p_ savr_, real_8 _p_ ewt_, real_8
13088 _p_ rtem_, int_4 _p_ ia_, int_4 _p_ ja_, int_4 _p_ ic_, int_4 _p_ jc_, real_8 _p_ wk_, int_4 _p_ iwk_, int_4 _p_ ipper_
13089 , int_4 (*_res)(), int_4 (*_jac)(), int_4 (*_adda)())
13090 { // ** body not listed **
13510 }
13511
13512 // VIF THU 13 NOV 2025 17:29:08 ** DPREPJ ** DPREPJ PAGE 00349
13513
13514 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13515 // S S U U B B R R O O U U T I NN N E
13516 // S U U B B R R O O U U T I N N N E
13517 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13518 // S U U B B R R O O U U T I N N N E
13519 // S S U U B B R R O O U U T I N NN E
13520 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13521
13522 // DDDDDD PPPPPP RRRRRR EEEEEEE PPPPPP J
13523 // D D P P R R E P P J
13524 // D D P P R R E P P J
13525 // D D PPPPPP RRRRRR EEEEE PPPPPP J
13526 // D D P R R E P J J
13527 // D D P R R E P J J
13528 // DDDDDD P R R EEEEEEE P JJJJJ
13529
13530
13531 // VIF THU 13 NOV 2025 17:29:08 ** DPREPJ ** DIAGNOSTICS PAGE 00350
13532
13533
13534 // VIF THU 13 NOV 2025 17:29:08 ** DPREPJ ** GENERATED CODE PAGE 00351
13535
13536 int_4 _dprepj (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ ewt_, real_8 _p_ ftem_, real_8
13537 _p_ savf_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_f)(), int_4 (*_jac)())
13538 { // ** body not listed **
13689 }
13690 // VIF THU 13 NOV 2025 17:29:08 ** DPREPJ ** GENERATED CODE PAGE 00354
13691
13692
13693 // VIF THU 13 NOV 2025 17:29:08 ** DPREPJI ** DPREPJI PAGE 00355
13694
13695 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13696 // S S U U B B R R O O U U T I NN N E
13697 // S U U B B R R O O U U T I N N N E
13698 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13699 // S U U B B R R O O U U T I N N N E
13700 // S S U U B B R R O O U U T I N NN E
13701 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13702
13703 // DDDDDD PPPPPP RRRRRR EEEEEEE PPPPPP J III
13704 // D D P P R R E P P J I
13705 // D D P P R R E P P J I
13706 // D D PPPPPP RRRRRR EEEEE PPPPPP J I
13707 // D D P R R E P J J I
13708 // D D P R R E P J J I
13709 // DDDDDD P R R EEEEEEE P JJJJJ III
13710
13711
13712 // VIF THU 13 NOV 2025 17:29:08 ** DPREPJI ** DIAGNOSTICS PAGE 00356
13713
13714
13715 // VIF THU 13 NOV 2025 17:29:08 ** DPREPJI ** GENERATED CODE PAGE 00357
13716
13717 int_4 _dprepji (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ ewt_, real_8 _p_ rtem_,
13718 real_8 _p_ savr_, real_8 _p_ s_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_res)(), int_4 (*_jac)(), int_4 (*_adda)())
13719 { // ** body not listed **
13876 }
13877
13878 // VIF THU 13 NOV 2025 17:29:08 ** DPRJA ** DPRJA PAGE 00361
13879
13880 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13881 // S S U U B B R R O O U U T I NN N E
13882 // S U U B B R R O O U U T I N N N E
13883 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13884 // S U U B B R R O O U U T I N N N E
13885 // S S U U B B R R O O U U T I N NN E
13886 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13887
13888 // DDDDDD PPPPPP RRRRRR J A
13889 // D D P P R R J A A
13890 // D D P P R R J A A
13891 // D D PPPPPP RRRRRR J A A
13892 // D D P R R J J AAAAAAA
13893 // D D P R R J J A A
13894 // DDDDDD P R R JJJJJ A A
13895
13896
13897 // VIF THU 13 NOV 2025 17:29:08 ** DPRJA ** DIAGNOSTICS PAGE 00362
13898
13899
13900 // VIF THU 13 NOV 2025 17:29:08 ** DPRJA ** GENERATED CODE PAGE 00363
13901
13902 int_4 _dprja (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ ewt_, real_8 _p_ ftem_, real_8
13903 _p_ savf_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_f)(), int_4 (*_jac)())
13904 { // ** body not listed **
14034 }
14035
14036 // VIF THU 13 NOV 2025 17:29:08 ** DPRJIS ** DPRJIS PAGE 00366
14037
14038 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14039 // S S U U B B R R O O U U T I NN N E
14040 // S U U B B R R O O U U T I N N N E
14041 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14042 // S U U B B R R O O U U T I N N N E
14043 // S S U U B B R R O O U U T I N NN E
14044 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14045
14046 // DDDDDD PPPPPP RRRRRR J III SSSSS
14047 // D D P P R R J I S S
14048 // D D P P R R J I S
14049 // D D PPPPPP RRRRRR J I SSSSS
14050 // D D P R R J J I S
14051 // D D P R R J J I S S
14052 // DDDDDD P R R JJJJJ III SSSSS
14053
14054
14055 // VIF THU 13 NOV 2025 17:29:08 ** DPRJIS ** DIAGNOSTICS PAGE 00367
14056
14057
14058 // VIF THU 13 NOV 2025 17:29:08 ** DPRJIS ** GENERATED CODE PAGE 00368
14059
14060 int_4 _dprjis (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ ewt_, real_8 _p_ rtem_, real_8
14061 _p_ savr_, real_8 _p_ s_, real_8 _p_ wk_, int_4 _p_ iwk_, int_4 (*_res)(), int_4 (*_jac)(), int_4 (*_adda)())
14062 { // ** body not listed **
14176 }
14177
14178 // VIF THU 13 NOV 2025 17:29:08 ** DPRJS ** DPRJS PAGE 00371
14179
14180 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14181 // S S U U B B R R O O U U T I NN N E
14182 // S U U B B R R O O U U T I N N N E
14183 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14184 // S U U B B R R O O U U T I N N N E
14185 // S S U U B B R R O O U U T I N NN E
14186 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14187
14188 // DDDDDD PPPPPP RRRRRR J SSSSS
14189 // D D P P R R J S S
14190 // D D P P R R J S
14191 // D D PPPPPP RRRRRR J SSSSS
14192 // D D P R R J J S
14193 // D D P R R J J S S
14194 // DDDDDD P R R JJJJJ SSSSS
14195
14196
14197 // VIF THU 13 NOV 2025 17:29:08 ** DPRJS ** DIAGNOSTICS PAGE 00372
14198
14199
14200 // VIF THU 13 NOV 2025 17:29:08 ** DPRJS ** GENERATED CODE PAGE 00373
14201
14202 int_4 _dprjs (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ ewt_, real_8 _p_ ftem_, real_8
14203 _p_ savf_, real_8 _p_ wk_, int_4 _p_ iwk_, int_4 (*_f)(), int_4 (*_jac)())
14204 { // ** body not listed **
14379 }
14380
14381 // VIF THU 13 NOV 2025 17:29:08 ** DRCHEK ** DRCHEK PAGE 00377
14382
14383 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14384 // S S U U B B R R O O U U T I NN N E
14385 // S U U B B R R O O U U T I N N N E
14386 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14387 // S U U B B R R O O U U T I N N N E
14388 // S S U U B B R R O O U U T I N NN E
14389 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14390
14391 // DDDDDD RRRRRR CCCCC H H EEEEEEE K K
14392 // D D R R C C H H E K K
14393 // D D R R C H H E K K
14394 // D D RRRRRR C HHHHHHH EEEEE KKK
14395 // D D R R C H H E K K
14396 // D D R R C C H H E K K
14397 // DDDDDD R R CCCCC H H EEEEEEE K K
14398
14399
14400 // VIF THU 13 NOV 2025 17:29:08 ** DRCHEK ** DIAGNOSTICS PAGE 00378
14401
14402
14403 // VIF THU 13 NOV 2025 17:29:08 ** DRCHEK ** GENERATED CODE PAGE 00379
14404
14405 int_4 _drchek (int_4 _p_ job_, int_4 (*_g)(), int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_
14406 g0_, real_8 _p_ g1_, real_8 _p_ gx_, int_4 _p_ jroot_, int_4 _p_ irt_)
14407 { // ** body not listed **
14553 }
14554
14555 // VIF THU 13 NOV 2025 17:29:08 ** DROOTS ** DROOTS PAGE 00382
14556
14557 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14558 // S S U U B B R R O O U U T I NN N E
14559 // S U U B B R R O O U U T I N N N E
14560 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14561 // S U U B B R R O O U U T I N N N E
14562 // S S U U B B R R O O U U T I N NN E
14563 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14564
14565 // DDDDDD RRRRRR OOOOO OOOOO TTTTTTT SSSSS
14566 // D D R R O O O O T S S
14567 // D D R R O O O O T S
14568 // D D RRRRRR O O O O T SSSSS
14569 // D D R R O O O O T S
14570 // D D R R O O O O T S S
14571 // DDDDDD R R OOOOO OOOOO T SSSSS
14572
14573
14574 // VIF THU 13 NOV 2025 17:29:08 ** DROOTS ** DIAGNOSTICS PAGE 00383
14575
14576
14577 // VIF THU 13 NOV 2025 17:29:08 ** DROOTS ** GENERATED CODE PAGE 00384
14578
14579 int_4 _droots (int_4 _p_ ng_, real_8 _p_ hmin_, int_4 _p_ jflag_, real_8 _p_ x0_, real_8 _p_ x1_, real_8 _p_ g0_,
14580 real_8 _p_ g1_, real_8 _p_ gx_, real_8 _p_ x_, int_4 _p_ jroot_)
14581 { // ** body not listed **
14811 }
14812
14813 // VIF THU 13 NOV 2025 17:29:08 ** DSETPK ** DSETPK PAGE 00389
14814
14815 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14816 // S S U U B B R R O O U U T I NN N E
14817 // S U U B B R R O O U U T I N N N E
14818 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14819 // S U U B B R R O O U U T I N N N E
14820 // S S U U B B R R O O U U T I N NN E
14821 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14822
14823 // DDDDDD SSSSS EEEEEEE TTTTTTT PPPPPP K K
14824 // D D S S E T P P K K
14825 // D D S E T P P K K
14826 // D D SSSSS EEEEE T PPPPPP KKK
14827 // D D S E T P K K
14828 // D D S S E T P K K
14829 // DDDDDD SSSSS EEEEEEE T P K K
14830
14831
14832 // VIF THU 13 NOV 2025 17:29:08 ** DSETPK ** DIAGNOSTICS PAGE 00390
14833
14834
14835 // VIF THU 13 NOV 2025 17:29:08 ** DSETPK ** GENERATED CODE PAGE 00391
14836
14837 int_4 _dsetpk (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ ysv_, real_8 _p_ ewt_, real_8 _p_ ftem_, real_8 _p_ savf_,
14838 int_4 _p_ jok_, real_8 _p_ wm_, int_4 _p_ iwm_, real_4 (*_f)(), int_4 (*_jac)())
14839 { // ** body not listed **
14858 }
14859
14860 // VIF THU 13 NOV 2025 17:29:08 ** DSLSBT ** DSLSBT PAGE 00392
14861
14862 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14863 // S S U U B B R R O O U U T I NN N E
14864 // S U U B B R R O O U U T I N N N E
14865 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14866 // S U U B B R R O O U U T I N N N E
14867 // S S U U B B R R O O U U T I N NN E
14868 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14869
14870 // DDDDDD SSSSS L SSSSS BBBBBB TTTTTTT
14871 // D D S S L S S B B T
14872 // D D S L S B B T
14873 // D D SSSSS L SSSSS BBBBBB T
14874 // D D S L S B B T
14875 // D D S S L S S B B T
14876 // DDDDDD SSSSS LLLLLLL SSSSS BBBBBB T
14877
14878
14879 // VIF THU 13 NOV 2025 17:29:08 ** DSLSBT ** DIAGNOSTICS PAGE 00393
14880
14881
14882 // VIF THU 13 NOV 2025 17:29:08 ** DSLSBT ** GENERATED CODE PAGE 00394
14883
14884 int_4 _dslsbt (real_8 _p_ wm_, int_4 _p_ iwm_, real_8 _p_ x_, real_8 _p_ tem_)
14885 { // ** body not listed **
14895 }
14896
14897 // VIF THU 13 NOV 2025 17:29:08 ** DSOLBT ** DSOLBT PAGE 00395
14898
14899 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14900 // S S U U B B R R O O U U T I NN N E
14901 // S U U B B R R O O U U T I N N N E
14902 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14903 // S U U B B R R O O U U T I N N N E
14904 // S S U U B B R R O O U U T I N NN E
14905 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14906
14907 // DDDDDD SSSSS OOOOO L BBBBBB TTTTTTT
14908 // D D S S O O L B B T
14909 // D D S O O L B B T
14910 // D D SSSSS O O L BBBBBB T
14911 // D D S O O L B B T
14912 // D D S S O O L B B T
14913 // DDDDDD SSSSS OOOOO LLLLLLL BBBBBB T
14914
14915
14916 // VIF THU 13 NOV 2025 17:29:08 ** DSOLBT ** DIAGNOSTICS PAGE 00396
14917
14918
14919 // VIF THU 13 NOV 2025 17:29:08 ** DSOLBT ** GENERATED CODE PAGE 00397
14920
14921 int_4 _dsolbt (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ y_, int_4 _p_ ip_)
14922 { // ** body not listed **
14959 }
14960
14961 // VIF THU 13 NOV 2025 17:29:08 ** DSOLPK ** DSOLPK PAGE 00398
14962
14963 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14964 // S S U U B B R R O O U U T I NN N E
14965 // S U U B B R R O O U U T I N N N E
14966 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14967 // S U U B B R R O O U U T I N N N E
14968 // S S U U B B R R O O U U T I N NN E
14969 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14970
14971 // DDDDDD SSSSS OOOOO L PPPPPP K K
14972 // D D S S O O L P P K K
14973 // D D S O O L P P K K
14974 // D D SSSSS O O L PPPPPP KKK
14975 // D D S O O L P K K
14976 // D D S S O O L P K K
14977 // DDDDDD SSSSS OOOOO LLLLLLL P K K
14978
14979
14980 // VIF THU 13 NOV 2025 17:29:08 ** DSOLPK ** DIAGNOSTICS PAGE 00399
14981
14982
14983 // VIF THU 13 NOV 2025 17:29:08 ** DSOLPK ** GENERATED CODE PAGE 00400
14984
14985 int_4 _dsolpk (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ x_, real_8 _p_ ewt_, real_8 _p_ wm_, int_4
14986 _p_ iwm_, real_4 (*_f)(), real_4 (*_psol)())
14987 { // ** body not listed **
15126 }
15127
15128 // VIF THU 13 NOV 2025 17:29:08 ** DSOLSS ** DSOLSS PAGE 00403
15129
15130 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15131 // S S U U B B R R O O U U T I NN N E
15132 // S U U B B R R O O U U T I N N N E
15133 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15134 // S U U B B R R O O U U T I N N N E
15135 // S S U U B B R R O O U U T I N NN E
15136 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15137
15138 // DDDDDD SSSSS OOOOO L SSSSS SSSSS
15139 // D D S S O O L S S S S
15140 // D D S O O L S S
15141 // D D SSSSS O O L SSSSS SSSSS
15142 // D D S O O L S S
15143 // D D S S O O L S S S S
15144 // DDDDDD SSSSS OOOOO LLLLLLL SSSSS SSSSS
15145
15146
15147 // VIF THU 13 NOV 2025 17:29:08 ** DSOLSS ** DIAGNOSTICS PAGE 00404
15148
15149
15150 // VIF THU 13 NOV 2025 17:29:08 ** DSOLSS ** GENERATED CODE PAGE 00405
15151
15152 int_4 _dsolss (real_8 _p_ wk_, int_4 _p_ iwk_, real_8 _p_ x_, real_8 _p_ tem_)
15153 { // ** body not listed **
15197 }
15198
15199 // VIF THU 13 NOV 2025 17:29:08 ** DSOLSY ** DSOLSY PAGE 00406
15200
15201 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15202 // S S U U B B R R O O U U T I NN N E
15203 // S U U B B R R O O U U T I N N N E
15204 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15205 // S U U B B R R O O U U T I N N N E
15206 // S S U U B B R R O O U U T I N NN E
15207 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15208
15209 // DDDDDD SSSSS OOOOO L SSSSS Y Y
15210 // D D S S O O L S S Y Y
15211 // D D S O O L S Y Y
15212 // D D SSSSS O O L SSSSS Y
15213 // D D S O O L S Y
15214 // D D S S O O L S S Y
15215 // DDDDDD SSSSS OOOOO LLLLLLL SSSSS Y
15216
15217
15218 // VIF THU 13 NOV 2025 17:29:08 ** DSOLSY ** DIAGNOSTICS PAGE 00407
15219
15220
15221 // VIF THU 13 NOV 2025 17:29:08 ** DSOLSY ** GENERATED CODE PAGE 00408
15222
15223 int_4 _dsolsy (real_8 _p_ wm_, int_4 _p_ iwm_, real_8 _p_ x_, real_8 _p_ tem_)
15224 { // ** body not listed **
15270 }
15271
15272 // VIF THU 13 NOV 2025 17:29:08 ** DSPIGMR ** DSPIGMR PAGE 00409
15273
15274 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15275 // S S U U B B R R O O U U T I NN N E
15276 // S U U B B R R O O U U T I N N N E
15277 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15278 // S U U B B R R O O U U T I N N N E
15279 // S S U U B B R R O O U U T I N NN E
15280 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15281
15282 // DDDDDD SSSSS PPPPPP III GGGGG M M RRRRRR
15283 // D D S S P P I G G MM MM R R
15284 // D D S P P I G M M M M R R
15285 // D D SSSSS PPPPPP I G GGGG M M M RRRRRR
15286 // D D S P I G G M M R R
15287 // D D S S P I G G M M R R
15288 // DDDDDD SSSSS P III GGGGG M M R R
15289
15290
15291 // VIF THU 13 NOV 2025 17:29:08 ** DSPIGMR ** DIAGNOSTICS PAGE 00410
15292
15293
15294 // VIF THU 13 NOV 2025 17:29:08 ** DSPIGMR ** GENERATED CODE PAGE 00411
15295
15296 int_4 _dspigmr (int_4 _p_ neq_, real_8 _p_ tn_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ b_, real_8 _p_ wght_, int_4
15297 _p_ n_, int_4 _p_ maxl_, int_4 _p_ maxlp1_, int_4 _p_ kmp_, real_8 _p_ delta_, real_8 _p_ hl0_, int_4 _p_ jpre_, int_4
15298 _p_ mnewt_, real_4 (*_f)(), int_4 (*_psol)(), int_4 _p_ npsl_, real_8 _p_ x_, real_8 _p_ v_, real_8 _p_ hes_, real_8
15299 _p_ q_, int_4 _p_ lgmr_, real_8 _p_ wp_, int_4 _p_ iwp_, real_8 _p_ wk_, real_8 _p_ dl_, int_4 _p_ iflag_)
15300 { // ** body not listed **
15448 }
15449
15450 // VIF THU 13 NOV 2025 17:29:08 ** DSPIOM ** DSPIOM PAGE 00414
15451
15452 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15453 // S S U U B B R R O O U U T I NN N E
15454 // S U U B B R R O O U U T I N N N E
15455 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15456 // S U U B B R R O O U U T I N N N E
15457 // S S U U B B R R O O U U T I N NN E
15458 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15459
15460 // DDDDDD SSSSS PPPPPP III OOOOO M M
15461 // D D S S P P I O O MM MM
15462 // D D S P P I O O M M M M
15463 // D D SSSSS PPPPPP I O O M M M
15464 // D D S P I O O M M
15465 // D D S S P I O O M M
15466 // DDDDDD SSSSS P III OOOOO M M
15467
15468
15469 // VIF THU 13 NOV 2025 17:29:08 ** DSPIOM ** DIAGNOSTICS PAGE 00415
15470
15471
15472 // VIF THU 13 NOV 2025 17:29:08 ** DSPIOM ** GENERATED CODE PAGE 00416
15473
15474 int_4 _dspiom (int_4 _p_ neq_, real_8 _p_ tn_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ b_, real_8 _p_ wght_, int_4
15475 _p_ n_, int_4 _p_ maxl_, int_4 _p_ kmp_, real_8 _p_ delta_, real_8 _p_ hl0_, int_4 _p_ jpre_, int_4 _p_ mnewt_, real_4
15476 (*_f)(), int_4 (*_psol)(), int_4 _p_ npsl_, real_8 _p_ x_, real_8 _p_ v_, real_8 _p_ hes_, int_4 _p_ ipvt_, int_4 _p_
15477 liom_, real_8 _p_ wp_, int_4 _p_ iwp_, real_8 _p_ wk_, int_4 _p_ iflag_)
15478 { // ** body not listed **
15615 }
15616
15617 // VIF THU 13 NOV 2025 17:29:08 ** DSRCAR ** DSRCAR PAGE 00419
15618
15619 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15620 // S S U U B B R R O O U U T I NN N E
15621 // S U U B B R R O O U U T I N N N E
15622 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15623 // S U U B B R R O O U U T I N N N E
15624 // S S U U B B R R O O U U T I N NN E
15625 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15626
15627 // DDDDDD SSSSS RRRRRR CCCCC A RRRRRR
15628 // D D S S R R C C A A R R
15629 // D D S R R C A A R R
15630 // D D SSSSS RRRRRR C A A RRRRRR
15631 // D D S R R C AAAAAAA R R
15632 // D D S S R R C C A A R R
15633 // DDDDDD SSSSS R R CCCCC A A R R
15634
15635
15636 // VIF THU 13 NOV 2025 17:29:08 ** DSRCAR ** DIAGNOSTICS PAGE 00420
15637
15638
15639 // VIF THU 13 NOV 2025 17:29:08 ** DSRCAR ** GENERATED CODE PAGE 00421
15640
15641 int_4 _dsrcar (real_8 _p_ rsav_, int_4 _p_ isav_, int_4 _p_ job_)
15642 { // ** body not listed **
15761 }
15762
15763 // VIF THU 13 NOV 2025 17:29:08 ** DSRCKR ** DSRCKR PAGE 00424
15764
15765 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15766 // S S U U B B R R O O U U T I NN N E
15767 // S U U B B R R O O U U T I N N N E
15768 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15769 // S U U B B R R O O U U T I N N N E
15770 // S S U U B B R R O O U U T I N NN E
15771 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15772
15773 // DDDDDD SSSSS RRRRRR CCCCC K K RRRRRR
15774 // D D S S R R C C K K R R
15775 // D D S R R C K K R R
15776 // D D SSSSS RRRRRR C KKK RRRRRR
15777 // D D S R R C K K R R
15778 // D D S S R R C C K K R R
15779 // DDDDDD SSSSS R R CCCCC K K R R
15780
15781
15782 // VIF THU 13 NOV 2025 17:29:08 ** DSRCKR ** DIAGNOSTICS PAGE 00425
15783
15784
15785 // VIF THU 13 NOV 2025 17:29:08 ** DSRCKR ** GENERATED CODE PAGE 00426
15786
15787 int_4 _dsrckr (real_8 _p_ rsav_, int_4 _p_ isav_, int_4 _p_ job_)
15788 { // ** body not listed **
15905 }
15906
15907 // VIF THU 13 NOV 2025 17:29:08 ** DSRCMA ** DSRCMA PAGE 00429
15908
15909 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15910 // S S U U B B R R O O U U T I NN N E
15911 // S U U B B R R O O U U T I N N N E
15912 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15913 // S U U B B R R O O U U T I N N N E
15914 // S S U U B B R R O O U U T I N NN E
15915 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15916
15917 // DDDDDD SSSSS RRRRRR CCCCC M M A
15918 // D D S S R R C C MM MM A A
15919 // D D S R R C M M M M A A
15920 // D D SSSSS RRRRRR C M M M A A
15921 // D D S R R C M M AAAAAAA
15922 // D D S S R R C C M M A A
15923 // DDDDDD SSSSS R R CCCCC M M A A
15924
15925
15926 // VIF THU 13 NOV 2025 17:29:08 ** DSRCMA ** DIAGNOSTICS PAGE 00430
15927
15928
15929 // VIF THU 13 NOV 2025 17:29:08 ** DSRCMA ** GENERATED CODE PAGE 00431
15930
15931 int_4 _dsrcma (real_8 _p_ rsav_, int_4 _p_ isav_, int_4 _p_ job_)
15932 { // ** body not listed **
16011 }
16012
16013 // VIF THU 13 NOV 2025 17:29:08 ** DSRCMS ** DSRCMS PAGE 00433
16014
16015 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16016 // S S U U B B R R O O U U T I NN N E
16017 // S U U B B R R O O U U T I N N N E
16018 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16019 // S U U B B R R O O U U T I N N N E
16020 // S S U U B B R R O O U U T I N NN E
16021 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16022
16023 // DDDDDD SSSSS RRRRRR CCCCC M M SSSSS
16024 // D D S S R R C C MM MM S S
16025 // D D S R R C M M M M S
16026 // D D SSSSS RRRRRR C M M M SSSSS
16027 // D D S R R C M M S
16028 // D D S S R R C C M M S S
16029 // DDDDDD SSSSS R R CCCCC M M SSSSS
16030
16031
16032 // VIF THU 13 NOV 2025 17:29:08 ** DSRCMS ** DIAGNOSTICS PAGE 00434
16033
16034
16035 // VIF THU 13 NOV 2025 17:29:08 ** DSRCMS ** GENERATED CODE PAGE 00435
16036
16037 int_4 _dsrcms (real_8 _p_ rsav_, int_4 _p_ isav_, int_4 _p_ job_)
16038 { // ** body not listed **
16117 }
16118
16119 // VIF THU 13 NOV 2025 17:29:08 ** DSRCOM ** DSRCOM PAGE 00437
16120
16121 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16122 // S S U U B B R R O O U U T I NN N E
16123 // S U U B B R R O O U U T I N N N E
16124 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16125 // S U U B B R R O O U U T I N N N E
16126 // S S U U B B R R O O U U T I N NN E
16127 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16128
16129 // DDDDDD SSSSS RRRRRR CCCCC OOOOO M M
16130 // D D S S R R C C O O MM MM
16131 // D D S R R C O O M M M M
16132 // D D SSSSS RRRRRR C O O M M M
16133 // D D S R R C O O M M
16134 // D D S S R R C C O O M M
16135 // DDDDDD SSSSS R R CCCCC OOOOO M M
16136
16137
16138 // VIF THU 13 NOV 2025 17:29:08 ** DSRCOM ** DIAGNOSTICS PAGE 00438
16139
16140
16141 // VIF THU 13 NOV 2025 17:29:08 ** DSRCOM ** GENERATED CODE PAGE 00439
16142
16143 int_4 _dsrcom (real_8 _p_ rsav_, int_4 _p_ isav_, int_4 _p_ job_)
16144 { // ** body not listed **
16189 }
16190
16191 // VIF THU 13 NOV 2025 17:29:08 ** DSRCPK ** DSRCPK PAGE 00440
16192
16193 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16194 // S S U U B B R R O O U U T I NN N E
16195 // S U U B B R R O O U U T I N N N E
16196 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16197 // S U U B B R R O O U U T I N N N E
16198 // S S U U B B R R O O U U T I N NN E
16199 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16200
16201 // DDDDDD SSSSS RRRRRR CCCCC PPPPPP K K
16202 // D D S S R R C C P P K K
16203 // D D S R R C P P K K
16204 // D D SSSSS RRRRRR C PPPPPP KKK
16205 // D D S R R C P K K
16206 // D D S S R R C C P K K
16207 // DDDDDD SSSSS R R CCCCC P K K
16208
16209
16210 // VIF THU 13 NOV 2025 17:29:08 ** DSRCPK ** DIAGNOSTICS PAGE 00441
16211
16212
16213 // VIF THU 13 NOV 2025 17:29:08 ** DSRCPK ** GENERATED CODE PAGE 00442
16214
16215 int_4 _dsrcpk (real_8 _p_ rsav_, int_4 _p_ isav_, int_4 _p_ job_)
16216 { // ** body not listed **
16287 }
16288
16289 // VIF THU 13 NOV 2025 17:29:08 ** DSTODA ** DSTODA PAGE 00444
16290
16291 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16292 // S S U U B B R R O O U U T I NN N E
16293 // S U U B B R R O O U U T I N N N E
16294 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16295 // S U U B B R R O O U U T I N N N E
16296 // S S U U B B R R O O U U T I N NN E
16297 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16298
16299 // DDDDDD SSSSS TTTTTTT OOOOO DDDDDD A
16300 // D D S S T O O D D A A
16301 // D D S T O O D D A A
16302 // D D SSSSS T O O D D A A
16303 // D D S T O O D D AAAAAAA
16304 // D D S S T O O D D A A
16305 // DDDDDD SSSSS T OOOOO DDDDDD A A
16306
16307
16308 // VIF THU 13 NOV 2025 17:29:08 ** DSTODA ** DIAGNOSTICS PAGE 00445
16309
16310
16311 // VIF THU 13 NOV 2025 17:29:08 ** DSTODA ** GENERATED CODE PAGE 00446
16312
16313 int_4 _dstoda (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ yh1_, real_8 _p_ ewt_, real_8
16314 _p_ savf_, real_8 _p_ acor_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_f)(), int_4 (*_jac)(), int_4 (*_pjac)(), int_4
16315 (*_slvs)())
16316 { // ** body not listed **
16907 }
16908
16909 // VIF THU 13 NOV 2025 17:29:08 ** DSTODE ** DSTODE PAGE 00458
16910
16911 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16912 // S S U U B B R R O O U U T I NN N E
16913 // S U U B B R R O O U U T I N N N E
16914 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16915 // S U U B B R R O O U U T I N N N E
16916 // S S U U B B R R O O U U T I N NN E
16917 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16918
16919 // DDDDDD SSSSS TTTTTTT OOOOO DDDDDD EEEEEEE
16920 // D D S S T O O D D E
16921 // D D S T O O D D E
16922 // D D SSSSS T O O D D EEEEE
16923 // D D S T O O D D E
16924 // D D S S T O O D D E
16925 // DDDDDD SSSSS T OOOOO DDDDDD EEEEEEE
16926
16927
16928 // VIF THU 13 NOV 2025 17:29:08 ** DSTODE ** DIAGNOSTICS PAGE 00459
16929
16930
16931 // VIF THU 13 NOV 2025 17:29:08 ** DSTODE ** GENERATED CODE PAGE 00460
16932
16933 int_4 _dstode (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ yh1_, real_8 _p_ ewt_, real_8
16934 _p_ savf_, real_8 _p_ acor_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_f)(), int_4 (*_jac)(), int_4 (*_pjac)(), int_4
16935 (*_slvs)())
16936 { // ** body not listed **
17361 }
17362
17363 // VIF THU 13 NOV 2025 17:29:08 ** DSTODI ** DSTODI PAGE 00469
17364
17365 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17366 // S S U U B B R R O O U U T I NN N E
17367 // S U U B B R R O O U U T I N N N E
17368 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17369 // S U U B B R R O O U U T I N N N E
17370 // S S U U B B R R O O U U T I N NN E
17371 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17372
17373 // DDDDDD SSSSS TTTTTTT OOOOO DDDDDD III
17374 // D D S S T O O D D I
17375 // D D S T O O D D I
17376 // D D SSSSS T O O D D I
17377 // D D S T O O D D I
17378 // D D S S T O O D D I
17379 // DDDDDD SSSSS T OOOOO DDDDDD III
17380
17381
17382 // VIF THU 13 NOV 2025 17:29:08 ** DSTODI ** DIAGNOSTICS PAGE 00470
17383
17384
17385 // VIF THU 13 NOV 2025 17:29:08 ** DSTODI ** GENERATED CODE PAGE 00471
17386
17387 int_4 _dstodi (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ yh1_, real_8 _p_ ewt_, real_8
17388 _p_ savf_, real_8 _p_ savr_, real_8 _p_ acor_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_res)(), real_4 (*_adda)(),
17389 int_4 (*_jac)(), int_4 (*_pjac)(), int_4 (*_slvs)())
17390 { // ** body not listed **
17816 }
17817
17818 // VIF THU 13 NOV 2025 17:29:08 ** DSTODPK ** DSTODPK PAGE 00480
17819
17820 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17821 // S S U U B B R R O O U U T I NN N E
17822 // S U U B B R R O O U U T I N N N E
17823 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17824 // S U U B B R R O O U U T I N N N E
17825 // S S U U B B R R O O U U T I N NN E
17826 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17827
17828 // DDDDDD SSSSS TTTTTTT OOOOO DDDDDD PPPPPP K K
17829 // D D S S T O O D D P P K K
17830 // D D S T O O D D P P K K
17831 // D D SSSSS T O O D D PPPPPP KKK
17832 // D D S T O O D D P K K
17833 // D D S S T O O D D P K K
17834 // DDDDDD SSSSS T OOOOO DDDDDD P K K
17835
17836
17837 // VIF THU 13 NOV 2025 17:29:08 ** DSTODPK ** DIAGNOSTICS PAGE 00481
17838
17839
17840 // VIF THU 13 NOV 2025 17:29:08 ** DSTODPK ** GENERATED CODE PAGE 00482
17841
17842 int_4 _dstodpk (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ yh1_, real_8 _p_ ewt_, real_8
17843 _p_ savf_, real_8 _p_ savx_, real_8 _p_ acor_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_f)(), int_4 (*_jac)(), real_4
17844 (*_psol)())
17845 { // ** body not listed **
18283 }
18284
18285 // VIF THU 13 NOV 2025 17:29:08 ** DSTOKA ** DSTOKA PAGE 00491
18286
18287 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18288 // S S U U B B R R O O U U T I NN N E
18289 // S U U B B R R O O U U T I N N N E
18290 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18291 // S U U B B R R O O U U T I N N N E
18292 // S S U U B B R R O O U U T I N NN E
18293 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18294
18295 // DDDDDD SSSSS TTTTTTT OOOOO K K A
18296 // D D S S T O O K K A A
18297 // D D S T O O K K A A
18298 // D D SSSSS T O O KKK A A
18299 // D D S T O O K K AAAAAAA
18300 // D D S S T O O K K A A
18301 // DDDDDD SSSSS T OOOOO K K A A
18302
18303
18304 // VIF THU 13 NOV 2025 17:29:08 ** DSTOKA ** DIAGNOSTICS PAGE 00492
18305
18306
18307 // VIF THU 13 NOV 2025 17:29:08 ** DSTOKA ** GENERATED CODE PAGE 00493
18308
18309 int_4 _dstoka (int_4 _p_ neq_, real_8 _p_ y_, real_8 _p_ yh_, int_4 _p_ nyh_, real_8 _p_ yh1_, real_8 _p_ ewt_, real_8
18310 _p_ savf_, real_8 _p_ savx_, real_8 _p_ acor_, real_8 _p_ wm_, int_4 _p_ iwm_, int_4 (*_f)(), int_4 (*_jac)(), real_4
18311 (*_psol)())
18312 { // ** body not listed **
18810 }
18811
18812 // VIF THU 13 NOV 2025 17:29:08 ** DUMACH ** DUMACH PAGE 00503
18813
18814 // RRRRRR EEEEEEE A L 88888
18815 // R R E A A L * * 8 8
18816 // R R E A A L * * 8 8
18817 // RRRRRR EEEEE A A L ******* 88888
18818 // R R E AAAAAAA L * * 8 8
18819 // R R E A A L * * 8 8
18820 // R R EEEEEEE A A LLLLLLL 88888
18821
18822 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
18823 // F U U NN N C C T I O O NN N
18824 // F U U N N N C T I O O N N N
18825 // FFFFF U U N N N C T I O O N N N
18826 // F U U N N N C T I O O N N N
18827 // F U U N NN C C T I O O N NN
18828 // F UUUUU N N CCCCC T III OOOOO N N
18829
18830 // DDDDDD U U M M A CCCCC H H
18831 // D D U U MM MM A A C C H H
18832 // D D U U M M M M A A C H H
18833 // D D U U M M M A A C HHHHHHH
18834 // D D U U M M AAAAAAA C H H
18835 // D D U U M M A A C C H H
18836 // DDDDDD UUUUU M M A A CCCCC H H
18837
18838
18839 // VIF THU 13 NOV 2025 17:29:08 ** DUMACH ** DIAGNOSTICS PAGE 00504
18840
18841
18842 // VIF THU 13 NOV 2025 17:29:08 ** DUMACH ** GENERATED CODE PAGE 00505
18843
18844 real_8 _dumach (void)
18845 { // ** body not listed **
18859 }
18860
18861 // VIF THU 13 NOV 2025 17:29:08 ** DUMSUM ** DUMSUM PAGE 00506
18862
18863 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18864 // S S U U B B R R O O U U T I NN N E
18865 // S U U B B R R O O U U T I N N N E
18866 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18867 // S U U B B R R O O U U T I N N N E
18868 // S S U U B B R R O O U U T I N NN E
18869 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18870
18871 // DDDDDD U U M M SSSSS U U M M
18872 // D D U U MM MM S S U U MM MM
18873 // D D U U M M M M S U U M M M M
18874 // D D U U M M M SSSSS U U M M M
18875 // D D U U M M S U U M M
18876 // D D U U M M S S U U M M
18877 // DDDDDD UUUUU M M SSSSS UUUUU M M
18878
18879
18880 // VIF THU 13 NOV 2025 17:29:08 ** DUMSUM ** DIAGNOSTICS PAGE 00507
18881
18882
18883 // VIF THU 13 NOV 2025 17:29:08 ** DUMSUM ** GENERATED CODE PAGE 00508
18884
18885 int_4 _dumsum (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_)
18886 { // ** body not listed **
18890 }
18891
18892 // VIF THU 13 NOV 2025 17:29:08 ** DUSOL ** DUSOL PAGE 00509
18893
18894 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18895 // S S U U B B R R O O U U T I NN N E
18896 // S U U B B R R O O U U T I N N N E
18897 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18898 // S U U B B R R O O U U T I N N N E
18899 // S S U U B B R R O O U U T I N NN E
18900 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18901
18902 // DDDDDD U U SSSSS OOOOO L
18903 // D D U U S S O O L
18904 // D D U U S O O L
18905 // D D U U SSSSS O O L
18906 // D D U U S O O L
18907 // D D U U S S O O L
18908 // DDDDDD UUUUU SSSSS OOOOO LLLLLLL
18909
18910
18911 // VIF THU 13 NOV 2025 17:29:08 ** DUSOL ** DIAGNOSTICS PAGE 00510
18912
18913
18914 // VIF THU 13 NOV 2025 17:29:08 ** DUSOL ** GENERATED CODE PAGE 00511
18915
18916 int_4 _dusol (int_4 _p_ neq_, real_8 _p_ tn_, real_8 _p_ y_, real_8 _p_ savf_, real_8 _p_ b_, real_8 _p_ wght_, int_4
18917 _p_ n_, real_8 _p_ delta_, real_8 _p_ hl0_, int_4 _p_ mnewt_, int_4 (*_psol)(), int_4 _p_ npsl_, real_8 _p_ x_, real_8
18918 _p_ wp_, int_4 _p_ iwp_, real_8 _p_ wk_, int_4 _p_ iflag_)
18919 { // ** body not listed **
18957 }
18958
18959 // VIF THU 13 NOV 2025 17:29:08 ** DVNORM ** DVNORM PAGE 00512
18960
18961 // RRRRRR EEEEEEE A L 88888
18962 // R R E A A L * * 8 8
18963 // R R E A A L * * 8 8
18964 // RRRRRR EEEEE A A L ******* 88888
18965 // R R E AAAAAAA L * * 8 8
18966 // R R E A A L * * 8 8
18967 // R R EEEEEEE A A LLLLLLL 88888
18968
18969 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
18970 // F U U NN N C C T I O O NN N
18971 // F U U N N N C T I O O N N N
18972 // FFFFF U U N N N C T I O O N N N
18973 // F U U N N N C T I O O N N N
18974 // F U U N NN C C T I O O N NN
18975 // F UUUUU N N CCCCC T III OOOOO N N
18976
18977 // DDDDDD V V N N OOOOO RRRRRR M M
18978 // D D V V NN N O O R R MM MM
18979 // D D V V N N N O O R R M M M M
18980 // D D V V N N N O O RRRRRR M M M
18981 // D D V V N N N O O R R M M
18982 // D D V V N NN O O R R M M
18983 // DDDDDD V N N OOOOO R R M M
18984
18985
18986 // VIF THU 13 NOV 2025 17:29:08 ** DVNORM ** DIAGNOSTICS PAGE 00513
18987
18988
18989 // VIF THU 13 NOV 2025 17:29:08 ** DVNORM ** GENERATED CODE PAGE 00514
18990
18991 real_8 _dvnorm (int_4 _p_ n_, real_8 _p_ v_, real_8 _p_ w_)
18992 { // ** body not listed **
19004 }
19005
19006 // VIF THU 13 NOV 2025 17:29:08 ** IUMACH ** IUMACH PAGE 00515
19007
19008 // III N N TTTTTTT EEEEEEE GGGGG EEEEEEE RRRRRR 4
19009 // I NN N T E G G E R R * * 4 4
19010 // I N N N T E G E R R * * 4 4
19011 // I N N N T EEEEE G GGGG EEEEE RRRRRR ******* 4444444
19012 // I N N N T E G G E R R * * 4
19013 // I N NN T E G G E R R * * 4
19014 // III N N T EEEEEEE GGGGG EEEEEEE R R 4
19015
19016 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
19017 // F U U NN N C C T I O O NN N
19018 // F U U N N N C T I O O N N N
19019 // FFFFF U U N N N C T I O O N N N
19020 // F U U N N N C T I O O N N N
19021 // F U U N NN C C T I O O N NN
19022 // F UUUUU N N CCCCC T III OOOOO N N
19023
19024 // III U U M M A CCCCC H H
19025 // I U U MM MM A A C C H H
19026 // I U U M M M M A A C H H
19027 // I U U M M M A A C HHHHHHH
19028 // I U U M M AAAAAAA C H H
19029 // I U U M M A A C C H H
19030 // III UUUUU M M A A CCCCC H H
19031
19032
19033 // VIF THU 13 NOV 2025 17:29:08 ** IUMACH ** DIAGNOSTICS PAGE 00516
19034
19035
19036 // VIF THU 13 NOV 2025 17:29:08 ** IUMACH ** GENERATED CODE PAGE 00517
19037
19038 int_4 _iumach (void)
19039 { // ** body not listed **
19044 }
19045
19046 // VIF THU 13 NOV 2025 17:29:08 ** IXSAV ** IXSAV PAGE 00518
19047
19048 // III N N TTTTTTT EEEEEEE GGGGG EEEEEEE RRRRRR 4
19049 // I NN N T E G G E R R * * 4 4
19050 // I N N N T E G E R R * * 4 4
19051 // I N N N T EEEEE G GGGG EEEEE RRRRRR ******* 4444444
19052 // I N N N T E G G E R R * * 4
19053 // I N NN T E G G E R R * * 4
19054 // III N N T EEEEEEE GGGGG EEEEEEE R R 4
19055
19056 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
19057 // F U U NN N C C T I O O NN N
19058 // F U U N N N C T I O O N N N
19059 // FFFFF U U N N N C T I O O N N N
19060 // F U U N N N C T I O O N N N
19061 // F U U N NN C C T I O O N NN
19062 // F UUUUU N N CCCCC T III OOOOO N N
19063
19064 // III X X SSSSS A V V
19065 // I X X S S A A V V
19066 // I X X S A A V V
19067 // I X SSSSS A A V V
19068 // I X X S AAAAAAA V V
19069 // I X X S S A A V V
19070 // III X X SSSSS A A V
19071
19072
19073 // VIF THU 13 NOV 2025 17:29:08 ** IXSAV ** DIAGNOSTICS PAGE 00519
19074
19075
19076 // VIF THU 13 NOV 2025 17:29:08 ** IXSAV ** GENERATED CODE PAGE 00520
19077
19078 int_4 _ixsav (int_4 _p_ ipar_, int_4 _p_ ivalue_, logical_4 _p_ iset_)
19079 { // ** body not listed **
19122 }
19123
19124 // VIF THU 13 NOV 2025 17:29:08 ** JGROUP ** JGROUP PAGE 00521
19125
19126 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19127 // S S U U B B R R O O U U T I NN N E
19128 // S U U B B R R O O U U T I N N N E
19129 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19130 // S U U B B R R O O U U T I N N N E
19131 // S S U U B B R R O O U U T I N NN E
19132 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19133
19134 // J GGGGG RRRRRR OOOOO U U PPPPPP
19135 // J G G R R O O U U P P
19136 // J G R R O O U U P P
19137 // J G GGGG RRRRRR O O U U PPPPPP
19138 // J J G G R R O O U U P
19139 // J J G G R R O O U U P
19140 // JJJJJ GGGGG R R OOOOO UUUUU P
19141
19142
19143 // VIF THU 13 NOV 2025 17:29:08 ** JGROUP ** DIAGNOSTICS PAGE 00522
19144
19145
19146 // VIF THU 13 NOV 2025 17:29:08 ** JGROUP ** GENERATED CODE PAGE 00523
19147
19148 int_4 _jgroup (int_4 _p_ n_, int_4 _p_ ia_, int_4 _p_ ja_, int_4 _p_ maxg_, int_4 _p_ ngrp_, int_4 _p_ igp_, int_4 _p_
19149 jgp_, int_4 _p_ incl_, int_4 _p_ jdone_, int_4 _p_ ier_)
19150 { // ** body not listed **
19201 }
19202
19203 // VIF THU 13 NOV 2025 17:29:08 ** ODRV ** ODRV PAGE 00525
19204
19205 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19206 // S S U U B B R R O O U U T I NN N E
19207 // S U U B B R R O O U U T I N N N E
19208 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19209 // S U U B B R R O O U U T I N N N E
19210 // S S U U B B R R O O U U T I N NN E
19211 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19212
19213 // OOOOO DDDDDD RRRRRR V V
19214 // O O D D R R V V
19215 // O O D D R R V V
19216 // O O D D RRRRRR V V
19217 // O O D D R R V V
19218 // O O D D R R V V
19219 // OOOOO DDDDDD R R V
19220
19221
19222 // VIF THU 13 NOV 2025 17:29:08 ** ODRV ** DIAGNOSTICS PAGE 00526
19223
19224
19225 // VIF THU 13 NOV 2025 17:29:08 ** ODRV ** GENERATED CODE PAGE 00527
19226
19227 int_4 _odrv (int_4 _p_ n_, int_4 _p_ ia_, int_4 _p_ ja_, real_8 _p_ a_, int_4 _p_ p_, int_4 _p_ ip_, int_4 _p_ nsp_,
19228 int_4 _p_ isp_, int_4 _p_ path_, int_4 _p_ flag_)
19229 { // ** body not listed **
19274 }
19275
19276 // VIF THU 13 NOV 2025 17:29:08 ** MD ** MD PAGE 00528
19277
19278 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19279 // S S U U B B R R O O U U T I NN N E
19280 // S U U B B R R O O U U T I N N N E
19281 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19282 // S U U B B R R O O U U T I N N N E
19283 // S S U U B B R R O O U U T I N NN E
19284 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19285
19286 // M M DDDDDD
19287 // MM MM D D
19288 // M M M M D D
19289 // M M M D D
19290 // M M D D
19291 // M M D D
19292 // M M DDDDDD
19293
19294
19295 // VIF THU 13 NOV 2025 17:29:08 ** MD ** DIAGNOSTICS PAGE 00529
19296
19297
19298 // VIF THU 13 NOV 2025 17:29:08 ** MD ** GENERATED CODE PAGE 00530
19299
19300 int_4 _md (int_4 _p_ n_, int_4 _p_ ia_, int_4 _p_ ja_, int_4 _p_ max_, int_4 _p_ v_, int_4 _p_ l_, int_4 _p_ head_,
19301 int_4 _p_ last_, int_4 _p_ next_, int_4 _p_ mark_, int_4 _p_ flag_)
19302 { // ** body not listed **
19345 }
19346
19347 // VIF THU 13 NOV 2025 17:29:08 ** MDI ** MDI PAGE 00531
19348
19349 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19350 // S S U U B B R R O O U U T I NN N E
19351 // S U U B B R R O O U U T I N N N E
19352 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19353 // S U U B B R R O O U U T I N N N E
19354 // S S U U B B R R O O U U T I N NN E
19355 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19356
19357 // M M DDDDDD III
19358 // MM MM D D I
19359 // M M M M D D I
19360 // M M M D D I
19361 // M M D D I
19362 // M M D D I
19363 // M M DDDDDD III
19364
19365
19366 // VIF THU 13 NOV 2025 17:29:08 ** MDI ** DIAGNOSTICS PAGE 00532
19367
19368
19369 // VIF THU 13 NOV 2025 17:29:08 ** MDI ** GENERATED CODE PAGE 00533
19370
19371 int_4 _mdi (int_4 _p_ n_, int_4 _p_ ia_, int_4 _p_ ja_, int_4 _p_ max_, int_4 _p_ v_, int_4 _p_ l_, int_4 _p_ head_,
19372 int_4 _p_ last_, int_4 _p_ next_, int_4 _p_ mark_, int_4 _p_ tag_, int_4 _p_ flag_)
19373 { // ** body not listed **
19447 }
19448
19449 // VIF THU 13 NOV 2025 17:29:08 ** MDM ** MDM PAGE 00535
19450
19451 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19452 // S S U U B B R R O O U U T I NN N E
19453 // S U U B B R R O O U U T I N N N E
19454 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19455 // S U U B B R R O O U U T I N N N E
19456 // S S U U B B R R O O U U T I N NN E
19457 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19458
19459 // M M DDDDDD M M
19460 // MM MM D D MM MM
19461 // M M M M D D M M M M
19462 // M M M D D M M M
19463 // M M D D M M
19464 // M M D D M M
19465 // M M DDDDDD M M
19466
19467
19468 // VIF THU 13 NOV 2025 17:29:08 ** MDM ** DIAGNOSTICS PAGE 00536
19469
19470
19471 // VIF THU 13 NOV 2025 17:29:08 ** MDM ** GENERATED CODE PAGE 00537
19472
19473 int_4 _mdm (int_4 _p_ vk_, int_4 _p_ tail_, int_4 _p_ v_, int_4 _p_ l_, int_4 _p_ last_, int_4 _p_ next_, int_4 _p_
19474 mark_)
19475 { // ** body not listed **
19517 }
19518
19519 // VIF THU 13 NOV 2025 17:29:08 ** MDP ** MDP PAGE 00538
19520
19521 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19522 // S S U U B B R R O O U U T I NN N E
19523 // S U U B B R R O O U U T I N N N E
19524 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19525 // S U U B B R R O O U U T I N N N E
19526 // S S U U B B R R O O U U T I N NN E
19527 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19528
19529 // M M DDDDDD PPPPPP
19530 // MM MM D D P P
19531 // M M M M D D P P
19532 // M M M D D PPPPPP
19533 // M M D D P
19534 // M M D D P
19535 // M M DDDDDD P
19536
19537
19538 // VIF THU 13 NOV 2025 17:29:08 ** MDP ** DIAGNOSTICS PAGE 00539
19539
19540
19541 // VIF THU 13 NOV 2025 17:29:08 ** MDP ** GENERATED CODE PAGE 00540
19542
19543 int_4 _mdp (int_4 _p_ k_, int_4 _p_ ek_, int_4 _p_ tail_, int_4 _p_ v_, int_4 _p_ l_, int_4 _p_ head_, int_4 _p_ last_,
19544 int_4 _p_ next_, int_4 _p_ mark_)
19545 { // ** body not listed **
19635 }
19636
19637 // VIF THU 13 NOV 2025 17:29:08 ** MDU ** MDU PAGE 00542
19638
19639 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19640 // S S U U B B R R O O U U T I NN N E
19641 // S U U B B R R O O U U T I N N N E
19642 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19643 // S U U B B R R O O U U T I N N N E
19644 // S S U U B B R R O O U U T I N NN E
19645 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19646
19647 // M M DDDDDD U U
19648 // MM MM D D U U
19649 // M M M M D D U U
19650 // M M M D D U U
19651 // M M D D U U
19652 // M M D D U U
19653 // M M DDDDDD UUUUU
19654
19655
19656 // VIF THU 13 NOV 2025 17:29:08 ** MDU ** DIAGNOSTICS PAGE 00543
19657
19658
19659 // VIF THU 13 NOV 2025 17:29:08 ** MDU ** GENERATED CODE PAGE 00544
19660
19661 int_4 _mdu (int_4 _p_ ek_, int_4 _p_ dmin_, int_4 _p_ v_, int_4 _p_ l_, int_4 _p_ head_, int_4 _p_ last_, int_4 _p_
19662 next_, int_4 _p_ mark_)
19663 { // ** body not listed **
19752 }
19753
19754 // VIF THU 13 NOV 2025 17:29:08 ** SRO ** SRO PAGE 00546
19755
19756 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19757 // S S U U B B R R O O U U T I NN N E
19758 // S U U B B R R O O U U T I N N N E
19759 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19760 // S U U B B R R O O U U T I N N N E
19761 // S S U U B B R R O O U U T I N NN E
19762 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19763
19764 // SSSSS RRRRRR OOOOO
19765 // S S R R O O
19766 // S R R O O
19767 // SSSSS RRRRRR O O
19768 // S R R O O
19769 // S S R R O O
19770 // SSSSS R R OOOOO
19771
19772
19773 // VIF THU 13 NOV 2025 17:29:08 ** SRO ** DIAGNOSTICS PAGE 00547
19774
19775
19776 // VIF THU 13 NOV 2025 17:29:08 ** SRO ** GENERATED CODE PAGE 00548
19777
19778 int_4 _sro (int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ ia_, int_4 _p_ ja_, real_8 _p_ a_, int_4 _p_ q_, int_4 _p_ r_,
19779 logical_4 _p_ dflag_)
19780 { // ** body not listed **
19848 }
19849
19850 // VIF THU 13 NOV 2025 17:29:08 ** XERRWD ** XERRWD PAGE 00550
19851
19852 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19853 // S S U U B B R R O O U U T I NN N E
19854 // S U U B B R R O O U U T I N N N E
19855 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19856 // S U U B B R R O O U U T I N N N E
19857 // S S U U B B R R O O U U T I N NN E
19858 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19859
19860 // X X EEEEEEE RRRRRR RRRRRR W W DDDDDD
19861 // X X E R R R R W W D D
19862 // X X E R R R R W W D D
19863 // X EEEEE RRRRRR RRRRRR W W W D D
19864 // X X E R R R R W W W D D
19865 // X X E R R R R W W W D D
19866 // X X EEEEEEE R R R R WW WW DDDDDD
19867
19868
19869 // VIF THU 13 NOV 2025 17:29:08 ** XERRWD ** DIAGNOSTICS PAGE 00551
19870
19871
19872 // VIF THU 13 NOV 2025 17:29:08 ** XERRWD ** GENERATED CODE PAGE 00552
19873
19874 int_4 _xerrwd (char _p_ msg_, int_4 _p_ nmes_, int_4 _p_ nerr_, int_4 _p_ level_, int_4 _p_ ni_, int_4 _p_ i1_, int_4
19875 _p_ i2_, int_4 _p_ nr_, real_8 _p_ r1_, real_8 _p_ r2_)
19876 { // ** body not listed **
20141 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
