mathlib-fishpack.c
1 //! @file mathlib-fishpack.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 FISHPACK
24
25 // Compiled from Fortran source code by VIF.
26
27 // FISHPACK routines from SLATEC.
28 //
29 // Source: netlib.org/slatec/
30
31 // The license for FISHPACK Fortran source code is:
32 //
33 // The SLATEC Common Mathematical Library was developed at
34 // US government research laboratories and is in the public domain.
35 //
36 // Repository: http://www.netlib.org/slatec/
37 //
38 // The SLATEC common mathematical library is issued by the following
39 //
40 // Air Force Weapons Laboratory, Albuquerque
41 // Lawrence Livermore National Laboratory, Livermore
42 // Los Alamos National Laboratory, Los Alamos
43 // National Institute of Standards and Technology, Washington
44 // National Energy Research Supercomputer Center, Livermore
45 // Oak Ridge National Laboratory, Oak Ridge
46 // Sandia National Laboratories, Albuquerque
47 // Sandia National Laboratories, Livermore
48 //
49 // All questions concerning the distribution of the library should be
50 // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
51 // Argonne, Illinois 60439, and not to the authors of the subprograms.
52 //
53 // * * * * * Notice * * * * *
54 //
55 // This material was prepared as an account of work sponsored by the
56 // United States Government. Neither the United States, nor the
57 // Department of Energy, nor the Department of Defense, nor any of
58 // their employees, nor any of their contractors, subcontractors, or
59 // their employees, makes any warranty, expressed or implied, or
60 // assumes any legal liability or responsibility for the accuracy,
61 // completeness, or usefulness of any information, apparatus, product,
62 // or process disclosed, or represents that its use would not infringe
63 // upon privately owned rights.
64
65 // VIF THU 20 NOV 2025 22:19:45 ** MARCEL ** FISHPACK PAGE 00001
66
67
68
69 // M M A RRRRRR CCCCC EEEEEEE L
70 // MM MM A A R R C C E L
71 // M M M M A A R R C E L
72 // M M M A A RRRRRR C EEEEE L
73 // M M AAAAAAA R R C E L
74 // M M A A R R C C E L
75 // M M A A R R CCCCC EEEEEEE LLLLLLL
76
77 // FFFFFFF III SSSSS H H PPPPPP A CCCCC K K
78 // F I S S H H P P A A C C K K
79 // F I S H H P P A A C K K
80 // FFFFF I SSSSS HHHHHHH PPPPPP A A C KKK
81 // F I S H H P AAAAAAA C K K
82 // F I S S H H P A A C C K K
83 // F III SSSSS H H P A A CCCCC K K
84
85
86
87
88 // VIF THU 20 NOV 2025 22:19:45 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
89
90 // ** linker ** object size 214792 bytes
91 // ** statistics ** 19 subprograms, no errors, no warnings
92
93
94 // VIF THU 20 NOV 2025 22:19:45 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
95
96
97 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
98
99
100
101 // VIF THU 20 NOV 2025 22:19:45 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
102
103 /*
104 Generated by VIF - experimental VIntage Fortran compiler.
105 VIF release 1.4.1
106 */
107
108 #if defined (__GNUC__)
109 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
110 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
111 #if (__GNUC__ >= 14)
112 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
113 #pragma GCC diagnostic ignored "-Wimplicit-int"
114 #pragma GCC diagnostic ignored "-Wint-conversion"
115 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
116 #endif
117 #else
118 #error VIF requires GCC
119 #endif
120
121 #include <vif.h>
122
123 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
124
125
126
127
128
129 // VIF THU 20 NOV 2025 22:19:45 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00005
130
131 static FORMAT *__fmt_a = NULL;
132
133
134 // VIF THU 20 NOV 2025 22:19:45 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00006
135
136 #define __ncalls 20
137 static CALLS __calls[__ncalls] = {
138 { // ** body not listed **"blktri", 0}, // subroutine
140 { // ** body not listed **"cmgnbn", 0}, // subroutine
142 { // ** body not listed **"hstcrt", 0}, // subroutine
144 { // ** body not listed **"hstcyl", 0}, // subroutine
146 { // ** body not listed **"hstssp", 0}, // subroutine
148 { // ** body not listed **"hwscrt", 0}, // subroutine
150 { // ** body not listed **"hwscyl", 0}, // subroutine
152 { // ** body not listed **"hwsssp", 0}, // subroutine
154 { // ** body not listed **"poistg", 0}, // subroutine
156 { // ** body not listed **"sepx4", 0}, // subroutine
158 };
159
160
161
162 // VIF THU 20 NOV 2025 22:19:45 ** GLOBAL SCOPE ** COMMON BLOCKS PAGE 00007
163
164
165 // common /cblkt_/
166 static struct {
167 int_4 npp_, k_, nm_, ncmplx_, ik_;
168 real_4 eps_, cnv_;
169 } cblkt_;
170
171 // common /ccblk_/
172 static struct {
173 int_4 npp_, k_, nm_, ncmplx_, ik_;
174 real_4 eps_, cnv_;
175 } ccblk_;
176
177
178 // VIF THU 20 NOV 2025 22:19:45 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00008
179
180
181 prototype int_4 _blktri (int_4 _p_ iflg_, int_4 _p_ np_, int_4 _p_ n_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_,
182 int_4 _p_ mp_, int_4 _p_ m_, real_4 _p_ am_, real_4 _p_ bm_, real_4 _p_ cm_, int_4 _p_ idimy_, real_4 _p_ y_, int_4 _p_
183 ierror_, real_4 _p_ w_);
184 prototype int_4 _cblktr (int_4 _p_ iflg_, int_4 _p_ np_, int_4 _p_ n_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_,
185 int_4 _p_ mp_, int_4 _p_ m_, complex_8 _p_ am_, complex_8 _p_ bm_, complex_8 _p_ cm_, int_4 _p_ idimy_, complex_8 _p_
186 y_, int_4 _p_ ierror_, real_4 _p_ w_);
187 prototype int_4 _cmgnbn (int_4 _p_ nperod_, int_4 _p_ n_, int_4 _p_ mperod_, int_4 _p_ m_, complex_8 _p_ a_, complex_8
188 _p_ b_, complex_8 _p_ c_, int_4 _p_ idimy_, complex_8 _p_ y_, int_4 _p_ ierror_, complex_8 _p_ w_);
189 prototype int_4 _genbun (int_4 _p_ nperod_, int_4 _p_ n_, int_4 _p_ mperod_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_
190 , real_4 _p_ c_, int_4 _p_ idimy_, real_4 _p_ y_, int_4 _p_ ierror_, real_4 _p_ w_);
191 prototype int_4 _hstcrt (real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 _p_
192 bdb_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_
193 elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_);
194 prototype int_4 _hstcsp (int_4 _p_ intl_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_
195 bda_, real_4 _p_ bdb_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_,
196 real_4 _p_ elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_);
197 prototype int_4 _hstcyl (real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 _p_
198 bdb_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_
199 elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_);
200 prototype int_4 _hstplr (real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 _p_
201 bdb_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_
202 elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_);
203 prototype int_4 _hstssp (real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 _p_
204 bdb_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_
205 elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_);
206 prototype int_4 _hw3crt (real_4 _p_ xs_, real_4 _p_ xf_, int_4 _p_ l_, int_4 _p_ lbdcnd_, real_4 _p_ bdxs_, real_4 _p_
207 bdxf_, real_4 _p_ ys_, real_4 _p_ yf_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bdys_, real_4 _p_ bdyf_, real_4 _p_
208 zs_, real_4 _p_ zf_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdzs_, real_4 _p_ bdzf_, real_4 _p_ elmbda_, int_4 _p_
209 ldimf_, int_4 _p_ mdimf_, real_4 _p_ f_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_);
210 prototype int_4 _hwscrt (real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 _p_
211 bdb_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_
212 elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_);
213 prototype int_4 _hwscsp (int_4 _p_ intl_, real_4 _p_ ts_, real_4 _p_ tf_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_
214 bdts_, real_4 _p_ bdtf_, real_4 _p_ rs_, real_4 _p_ rf_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdrs_, real_4 _p_
215 bdrf_, real_4 _p_ elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_);
216 prototype int_4 _hwscyl (real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 _p_
217 bdb_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_
218 elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_);
219 prototype int_4 _hwsplr (real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 _p_
220 bdb_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_
221 elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_);
222 prototype int_4 _hwsssp (real_4 _p_ ts_, real_4 _p_ tf_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bdts_, real_4 _p_
223 bdtf_, real_4 _p_ ps_, real_4 _p_ pf_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdps_, real_4 _p_ bdpf_, real_4 _p_
224 elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_);
225 prototype int_4 _pois3d (int_4 _p_ lperod_, int_4 _p_ l_, real_4 _p_ c1_, int_4 _p_ mperod_, int_4 _p_ m_, real_4 _p_
226 c2_, int_4 _p_ nperod_, int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, int_4 _p_ ldimf_, int_4 _p_ mdimf_,
227 real_4 _p_ f_, int_4 _p_ ierror_, real_4 _p_ w_);
228 prototype int_4 _poistg (int_4 _p_ nperod_, int_4 _p_ n_, int_4 _p_ mperod_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_
229 , real_4 _p_ c_, int_4 _p_ idimy_, real_4 _p_ y_, int_4 _p_ ierror_, real_4 _p_ w_);
230 // VIF THU 20 NOV 2025 22:19:45 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00009
231
232 prototype int_4 _sepeli (int_4 _p_ intl_, int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_
233 mbdcnd_, real_4 _p_ bda_, real_4 _p_ alpha_, real_4 _p_ bdb_, real_4 _p_ beta_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_
234 n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ gama_, real_4 _p_ bdd_, real_4 _p_ xnu_, real_4 (*_cofx)(), real_4
235 (*_cofy)(), real_4 _p_ grhs_, real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ w_, real_4 _p_ pertrb_, int_4 _p_ ierror_);
236 prototype int_4 _sepx4 (int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_
237 bda_, real_4 _p_ alpha_, real_4 _p_ bdb_, real_4 _p_ beta_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_
238 nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 (*_cofx)(), real_4 _p_ grhs_, real_4 _p_ usol_, int_4 _p_ idmn_,
239 real_4 _p_ w_, real_4 _p_ pertrb_, int_4 _p_ ierror_);
240
241
242
243
244
245
246
247
248
249
250
251
252
253 // VIF THU 20 NOV 2025 22:19:45 ** BLKTRI ** BLKTRI PAGE 00010
254
255 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
256 // S S U U B B R R O O U U T I NN N E
257 // S U U B B R R O O U U T I N N N E
258 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
259 // S U U B B R R O O U U T I N N N E
260 // S S U U B B R R O O U U T I N NN E
261 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
262
263 // BBBBBB L K K TTTTTTT RRRRRR III
264 // B B L K K T R R I
265 // B B L K K T R R I
266 // BBBBBB L KKK T RRRRRR I
267 // B B L K K T R R I
268 // B B L K K T R R I
269 // BBBBBB LLLLLLL K K T R R III
270
271
272 // VIF THU 20 NOV 2025 22:19:45 ** BLKTRI ** DIAGNOSTICS PAGE 00011
273
274
275 // VIF THU 20 NOV 2025 22:19:45 ** BLKTRI ** GENERATED CODE PAGE 00012
276
277 int_4 _blktri (int_4 _p_ iflg_, int_4 _p_ np_, int_4 _p_ n_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, int_4 _p_
278 mp_, int_4 _p_ m_, real_4 _p_ am_, real_4 _p_ bm_, real_4 _p_ cm_, int_4 _p_ idimy_, real_4 _p_ y_, int_4 _p_ ierror_,
279 real_4 _p_ w_)
280 { // ** body not listed **
423 }
424
425 // VIF THU 20 NOV 2025 22:19:45 ** CBLKTR ** CBLKTR PAGE 00015
426
427 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
428 // S S U U B B R R O O U U T I NN N E
429 // S U U B B R R O O U U T I N N N E
430 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
431 // S U U B B R R O O U U T I N N N E
432 // S S U U B B R R O O U U T I N NN E
433 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
434
435 // CCCCC BBBBBB L K K TTTTTTT RRRRRR
436 // C C B B L K K T R R
437 // C B B L K K T R R
438 // C BBBBBB L KKK T RRRRRR
439 // C B B L K K T R R
440 // C C B B L K K T R R
441 // CCCCC BBBBBB LLLLLLL K K T R R
442
443
444 // VIF THU 20 NOV 2025 22:19:45 ** CBLKTR ** DIAGNOSTICS PAGE 00016
445
446
447 // VIF THU 20 NOV 2025 22:19:45 ** CBLKTR ** GENERATED CODE PAGE 00017
448
449 int_4 _cblktr (int_4 _p_ iflg_, int_4 _p_ np_, int_4 _p_ n_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, int_4 _p_
450 mp_, int_4 _p_ m_, complex_8 _p_ am_, complex_8 _p_ bm_, complex_8 _p_ cm_, int_4 _p_ idimy_, complex_8 _p_ y_, int_4
451 _p_ ierror_, real_4 _p_ w_)
452 { // ** body not listed **
596 }
597
598 // VIF THU 20 NOV 2025 22:19:45 ** CMGNBN ** CMGNBN PAGE 00020
599
600 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
601 // S S U U B B R R O O U U T I NN N E
602 // S U U B B R R O O U U T I N N N E
603 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
604 // S U U B B R R O O U U T I N N N E
605 // S S U U B B R R O O U U T I N NN E
606 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
607
608 // CCCCC M M GGGGG N N BBBBBB N N
609 // C C MM MM G G NN N B B NN N
610 // C M M M M G N N N B B N N N
611 // C M M M G GGGG N N N BBBBBB N N N
612 // C M M G G N N N B B N N N
613 // C C M M G G N NN B B N NN
614 // CCCCC M M GGGGG N N BBBBBB N N
615
616
617 // VIF THU 20 NOV 2025 22:19:45 ** CMGNBN ** DIAGNOSTICS PAGE 00021
618
619
620 // VIF THU 20 NOV 2025 22:19:45 ** CMGNBN ** GENERATED CODE PAGE 00022
621
622 int_4 _cmgnbn (int_4 _p_ nperod_, int_4 _p_ n_, int_4 _p_ mperod_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_,
623 complex_8 _p_ c_, int_4 _p_ idimy_, complex_8 _p_ y_, int_4 _p_ ierror_, complex_8 _p_ w_)
624 { // ** body not listed **
834 }
835
836 // VIF THU 20 NOV 2025 22:19:45 ** GENBUN ** GENBUN PAGE 00027
837
838 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
839 // S S U U B B R R O O U U T I NN N E
840 // S U U B B R R O O U U T I N N N E
841 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
842 // S U U B B R R O O U U T I N N N E
843 // S S U U B B R R O O U U T I N NN E
844 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
845
846 // GGGGG EEEEEEE N N BBBBBB U U N N
847 // G G E NN N B B U U NN N
848 // G E N N N B B U U N N N
849 // G GGGG EEEEE N N N BBBBBB U U N N N
850 // G G E N N N B B U U N N N
851 // G G E N NN B B U U N NN
852 // GGGGG EEEEEEE N N BBBBBB UUUUU N N
853
854
855 // VIF THU 20 NOV 2025 22:19:45 ** GENBUN ** DIAGNOSTICS PAGE 00028
856
857
858 // VIF THU 20 NOV 2025 22:19:45 ** GENBUN ** GENERATED CODE PAGE 00029
859
860 int_4 _genbun (int_4 _p_ nperod_, int_4 _p_ n_, int_4 _p_ mperod_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4
861 _p_ c_, int_4 _p_ idimy_, real_4 _p_ y_, int_4 _p_ ierror_, real_4 _p_ w_)
862 { // ** body not listed **
1073 }
1074
1075 // VIF THU 20 NOV 2025 22:19:45 ** HSTCRT ** HSTCRT PAGE 00034
1076
1077 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1078 // S S U U B B R R O O U U T I NN N E
1079 // S U U B B R R O O U U T I N N N E
1080 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1081 // S U U B B R R O O U U T I N N N E
1082 // S S U U B B R R O O U U T I N NN E
1083 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1084
1085 // H H SSSSS TTTTTTT CCCCC RRRRRR TTTTTTT
1086 // H H S S T C C R R T
1087 // H H S T C R R T
1088 // HHHHHHH SSSSS T C RRRRRR T
1089 // H H S T C R R T
1090 // H H S S T C C R R T
1091 // H H SSSSS T CCCCC R R T
1092
1093
1094 // VIF THU 20 NOV 2025 22:19:45 ** HSTCRT ** DIAGNOSTICS PAGE 00035
1095
1096
1097 // VIF THU 20 NOV 2025 22:19:45 ** HSTCRT ** GENERATED CODE PAGE 00036
1098
1099 int_4 _hstcrt (real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 _p_ bdb_, real_4
1100 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_ elmbda_, real_4
1101 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_)
1102 { // ** body not listed **
1311 }
1312
1313 // VIF THU 20 NOV 2025 22:19:45 ** HSTCSP ** HSTCSP PAGE 00041
1314
1315 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1316 // S S U U B B R R O O U U T I NN N E
1317 // S U U B B R R O O U U T I N N N E
1318 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1319 // S U U B B R R O O U U T I N N N E
1320 // S S U U B B R R O O U U T I N NN E
1321 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1322
1323 // H H SSSSS TTTTTTT CCCCC SSSSS PPPPPP
1324 // H H S S T C C S S P P
1325 // H H S T C S P P
1326 // HHHHHHH SSSSS T C SSSSS PPPPPP
1327 // H H S T C S P
1328 // H H S S T C C S S P
1329 // H H SSSSS T CCCCC SSSSS P
1330
1331
1332 // VIF THU 20 NOV 2025 22:19:45 ** HSTCSP ** DIAGNOSTICS PAGE 00042
1333
1334
1335 // VIF THU 20 NOV 2025 22:19:45 ** HSTCSP ** GENERATED CODE PAGE 00043
1336
1337 int_4 _hstcsp (int_4 _p_ intl_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4
1338 _p_ bdb_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_
1339 elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_)
1340 { // ** body not listed **
1417 }
1418
1419 // VIF THU 20 NOV 2025 22:19:45 ** HSTCYL ** HSTCYL PAGE 00045
1420
1421 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1422 // S S U U B B R R O O U U T I NN N E
1423 // S U U B B R R O O U U T I N N N E
1424 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1425 // S U U B B R R O O U U T I N N N E
1426 // S S U U B B R R O O U U T I N NN E
1427 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1428
1429 // H H SSSSS TTTTTTT CCCCC Y Y L
1430 // H H S S T C C Y Y L
1431 // H H S T C Y Y L
1432 // HHHHHHH SSSSS T C Y L
1433 // H H S T C Y L
1434 // H H S S T C C Y L
1435 // H H SSSSS T CCCCC Y LLLLLLL
1436
1437
1438 // VIF THU 20 NOV 2025 22:19:45 ** HSTCYL ** DIAGNOSTICS PAGE 00046
1439
1440
1441 // VIF THU 20 NOV 2025 22:19:45 ** HSTCYL ** GENERATED CODE PAGE 00047
1442
1443 int_4 _hstcyl (real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 _p_ bdb_, real_4
1444 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_ elmbda_, real_4
1445 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_)
1446 { // ** body not listed **
1670 }
1671
1672 // VIF THU 20 NOV 2025 22:19:45 ** HSTPLR ** HSTPLR PAGE 00052
1673
1674 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1675 // S S U U B B R R O O U U T I NN N E
1676 // S U U B B R R O O U U T I N N N E
1677 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1678 // S U U B B R R O O U U T I N N N E
1679 // S S U U B B R R O O U U T I N NN E
1680 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1681
1682 // H H SSSSS TTTTTTT PPPPPP L RRRRRR
1683 // H H S S T P P L R R
1684 // H H S T P P L R R
1685 // HHHHHHH SSSSS T PPPPPP L RRRRRR
1686 // H H S T P L R R
1687 // H H S S T P L R R
1688 // H H SSSSS T P LLLLLLL R R
1689
1690
1691 // VIF THU 20 NOV 2025 22:19:45 ** HSTPLR ** DIAGNOSTICS PAGE 00053
1692
1693
1694 // VIF THU 20 NOV 2025 22:19:45 ** HSTPLR ** GENERATED CODE PAGE 00054
1695
1696 int_4 _hstplr (real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 _p_ bdb_, real_4
1697 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_ elmbda_, real_4
1698 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_)
1699 { // ** body not listed **
1966 }
1967
1968 // VIF THU 20 NOV 2025 22:19:45 ** HSTSSP ** HSTSSP PAGE 00060
1969
1970 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1971 // S S U U B B R R O O U U T I NN N E
1972 // S U U B B R R O O U U T I N N N E
1973 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1974 // S U U B B R R O O U U T I N N N E
1975 // S S U U B B R R O O U U T I N NN E
1976 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1977
1978 // H H SSSSS TTTTTTT SSSSS SSSSS PPPPPP
1979 // H H S S T S S S S P P
1980 // H H S T S S P P
1981 // HHHHHHH SSSSS T SSSSS SSSSS PPPPPP
1982 // H H S T S S P
1983 // H H S S T S S S S P
1984 // H H SSSSS T SSSSS SSSSS P
1985
1986
1987 // VIF THU 20 NOV 2025 22:19:45 ** HSTSSP ** DIAGNOSTICS PAGE 00061
1988
1989
1990 // VIF THU 20 NOV 2025 22:19:45 ** HSTSSP ** GENERATED CODE PAGE 00062
1991
1992 int_4 _hstssp (real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 _p_ bdb_, real_4
1993 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_ elmbda_, real_4
1994 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_)
1995 { // ** body not listed **
2340 }
2341
2342 // VIF THU 20 NOV 2025 22:19:45 ** HW3CRT ** HW3CRT PAGE 00069
2343
2344 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2345 // S S U U B B R R O O U U T I NN N E
2346 // S U U B B R R O O U U T I N N N E
2347 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2348 // S U U B B R R O O U U T I N N N E
2349 // S S U U B B R R O O U U T I N NN E
2350 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2351
2352 // H H W W 33333 CCCCC RRRRRR TTTTTTT
2353 // H H W W 3 3 C C R R T
2354 // H H W W 3 C R R T
2355 // HHHHHHH W W W 33333 C RRRRRR T
2356 // H H W W W 3 C R R T
2357 // H H W W W 3 3 C C R R T
2358 // H H WW WW 33333 CCCCC R R T
2359
2360
2361 // VIF THU 20 NOV 2025 22:19:45 ** HW3CRT ** DIAGNOSTICS PAGE 00070
2362
2363
2364 // VIF THU 20 NOV 2025 22:19:45 ** HW3CRT ** GENERATED CODE PAGE 00071
2365
2366 int_4 _hw3crt (real_4 _p_ xs_, real_4 _p_ xf_, int_4 _p_ l_, int_4 _p_ lbdcnd_, real_4 _p_ bdxs_, real_4 _p_ bdxf_,
2367 real_4 _p_ ys_, real_4 _p_ yf_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bdys_, real_4 _p_ bdyf_, real_4 _p_ zs_,
2368 real_4 _p_ zf_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdzs_, real_4 _p_ bdzf_, real_4 _p_ elmbda_, int_4 _p_
2369 ldimf_, int_4 _p_ mdimf_, real_4 _p_ f_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_)
2370 { // ** body not listed **
2846 }
2847
2848 // VIF THU 20 NOV 2025 22:19:45 ** HWSCRT ** HWSCRT PAGE 00081
2849
2850 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2851 // S S U U B B R R O O U U T I NN N E
2852 // S U U B B R R O O U U T I N N N E
2853 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2854 // S U U B B R R O O U U T I N N N E
2855 // S S U U B B R R O O U U T I N NN E
2856 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2857
2858 // H H W W SSSSS CCCCC RRRRRR TTTTTTT
2859 // H H W W S S C C R R T
2860 // H H W W S C R R T
2861 // HHHHHHH W W W SSSSS C RRRRRR T
2862 // H H W W W S C R R T
2863 // H H W W W S S C C R R T
2864 // H H WW WW SSSSS CCCCC R R T
2865
2866
2867 // VIF THU 20 NOV 2025 22:19:45 ** HWSCRT ** DIAGNOSTICS PAGE 00082
2868
2869
2870 // VIF THU 20 NOV 2025 22:19:45 ** HWSCRT ** GENERATED CODE PAGE 00083
2871
2872 int_4 _hwscrt (real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 _p_ bdb_, real_4
2873 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_ elmbda_, real_4
2874 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_)
2875 { // ** body not listed **
3150 }
3151
3152 // VIF THU 20 NOV 2025 22:19:45 ** HWSCSP ** HWSCSP PAGE 00089
3153
3154 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3155 // S S U U B B R R O O U U T I NN N E
3156 // S U U B B R R O O U U T I N N N E
3157 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3158 // S U U B B R R O O U U T I N N N E
3159 // S S U U B B R R O O U U T I N NN E
3160 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3161
3162 // H H W W SSSSS CCCCC SSSSS PPPPPP
3163 // H H W W S S C C S S P P
3164 // H H W W S C S P P
3165 // HHHHHHH W W W SSSSS C SSSSS PPPPPP
3166 // H H W W W S C S P
3167 // H H W W W S S C C S S P
3168 // H H WW WW SSSSS CCCCC SSSSS P
3169
3170
3171 // VIF THU 20 NOV 2025 22:19:45 ** HWSCSP ** DIAGNOSTICS PAGE 00090
3172
3173
3174 // VIF THU 20 NOV 2025 22:19:45 ** HWSCSP ** GENERATED CODE PAGE 00091
3175
3176 int_4 _hwscsp (int_4 _p_ intl_, real_4 _p_ ts_, real_4 _p_ tf_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bdts_,
3177 real_4 _p_ bdtf_, real_4 _p_ rs_, real_4 _p_ rf_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdrs_, real_4 _p_ bdrf_,
3178 real_4 _p_ elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_)
3179 { // ** body not listed **
3297 }
3298
3299 // VIF THU 20 NOV 2025 22:19:45 ** HWSCYL ** HWSCYL PAGE 00094
3300
3301 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3302 // S S U U B B R R O O U U T I NN N E
3303 // S U U B B R R O O U U T I N N N E
3304 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3305 // S U U B B R R O O U U T I N N N E
3306 // S S U U B B R R O O U U T I N NN E
3307 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3308
3309 // H H W W SSSSS CCCCC Y Y L
3310 // H H W W S S C C Y Y L
3311 // H H W W S C Y Y L
3312 // HHHHHHH W W W SSSSS C Y L
3313 // H H W W W S C Y L
3314 // H H W W W S S C C Y L
3315 // H H WW WW SSSSS CCCCC Y LLLLLLL
3316
3317
3318 // VIF THU 20 NOV 2025 22:19:45 ** HWSCYL ** DIAGNOSTICS PAGE 00095
3319
3320
3321 // VIF THU 20 NOV 2025 22:19:45 ** HWSCYL ** GENERATED CODE PAGE 00096
3322
3323 int_4 _hwscyl (real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 _p_ bdb_, real_4
3324 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_ elmbda_, real_4
3325 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_)
3326 { // ** body not listed **
3654 }
3655
3656 // VIF THU 20 NOV 2025 22:19:45 ** HWSPLR ** HWSPLR PAGE 00103
3657
3658 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3659 // S S U U B B R R O O U U T I NN N E
3660 // S U U B B R R O O U U T I N N N E
3661 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3662 // S U U B B R R O O U U T I N N N E
3663 // S S U U B B R R O O U U T I N NN E
3664 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3665
3666 // H H W W SSSSS PPPPPP L RRRRRR
3667 // H H W W S S P P L R R
3668 // H H W W S P P L R R
3669 // HHHHHHH W W W SSSSS PPPPPP L RRRRRR
3670 // H H W W W S P L R R
3671 // H H W W W S S P L R R
3672 // H H WW WW SSSSS P LLLLLLL R R
3673
3674
3675 // VIF THU 20 NOV 2025 22:19:45 ** HWSPLR ** DIAGNOSTICS PAGE 00104
3676
3677
3678 // VIF THU 20 NOV 2025 22:19:45 ** HWSPLR ** GENERATED CODE PAGE 00105
3679
3680 int_4 _hwsplr (real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 _p_ bdb_, real_4
3681 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_ elmbda_, real_4
3682 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_)
3683 { // ** body not listed **
4069 }
4070
4071 // VIF THU 20 NOV 2025 22:19:45 ** HWSSSP ** HWSSSP PAGE 00113
4072
4073 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4074 // S S U U B B R R O O U U T I NN N E
4075 // S U U B B R R O O U U T I N N N E
4076 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4077 // S U U B B R R O O U U T I N N N E
4078 // S S U U B B R R O O U U T I N NN E
4079 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4080
4081 // H H W W SSSSS SSSSS SSSSS PPPPPP
4082 // H H W W S S S S S S P P
4083 // H H W W S S S P P
4084 // HHHHHHH W W W SSSSS SSSSS SSSSS PPPPPP
4085 // H H W W W S S S P
4086 // H H W W W S S S S S S P
4087 // H H WW WW SSSSS SSSSS SSSSS P
4088
4089
4090 // VIF THU 20 NOV 2025 22:19:45 ** HWSSSP ** DIAGNOSTICS PAGE 00114
4091
4092
4093 // VIF THU 20 NOV 2025 22:19:45 ** HWSSSP ** GENERATED CODE PAGE 00115
4094
4095 int_4 _hwsssp (real_4 _p_ ts_, real_4 _p_ tf_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bdts_, real_4 _p_ bdtf_,
4096 real_4 _p_ ps_, real_4 _p_ pf_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdps_, real_4 _p_ bdpf_, real_4 _p_ elmbda_
4097 , real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierror_, real_4 _p_ w_)
4098 { // ** body not listed **
4161 }
4162
4163 // VIF THU 20 NOV 2025 22:19:45 ** POIS3D ** POIS3D PAGE 00117
4164
4165 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4166 // S S U U B B R R O O U U T I NN N E
4167 // S U U B B R R O O U U T I N N N E
4168 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4169 // S U U B B R R O O U U T I N N N E
4170 // S S U U B B R R O O U U T I N NN E
4171 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4172
4173 // PPPPPP OOOOO III SSSSS 33333 DDDDDD
4174 // P P O O I S S 3 3 D D
4175 // P P O O I S 3 D D
4176 // PPPPPP O O I SSSSS 33333 D D
4177 // P O O I S 3 D D
4178 // P O O I S S 3 3 D D
4179 // P OOOOO III SSSSS 33333 DDDDDD
4180
4181
4182 // VIF THU 20 NOV 2025 22:19:45 ** POIS3D ** DIAGNOSTICS PAGE 00118
4183
4184
4185 // VIF THU 20 NOV 2025 22:19:45 ** POIS3D ** GENERATED CODE PAGE 00119
4186
4187 int_4 _pois3d (int_4 _p_ lperod_, int_4 _p_ l_, real_4 _p_ c1_, int_4 _p_ mperod_, int_4 _p_ m_, real_4 _p_ c2_, int_4
4188 _p_ nperod_, int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, int_4 _p_ ldimf_, int_4 _p_ mdimf_, real_4 _p_
4189 f_, int_4 _p_ ierror_, real_4 _p_ w_)
4190 { // ** body not listed **
4357 }
4358
4359 // VIF THU 20 NOV 2025 22:19:45 ** POISTG ** POISTG PAGE 00123
4360
4361 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4362 // S S U U B B R R O O U U T I NN N E
4363 // S U U B B R R O O U U T I N N N E
4364 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4365 // S U U B B R R O O U U T I N N N E
4366 // S S U U B B R R O O U U T I N NN E
4367 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4368
4369 // PPPPPP OOOOO III SSSSS TTTTTTT GGGGG
4370 // P P O O I S S T G G
4371 // P P O O I S T G
4372 // PPPPPP O O I SSSSS T G GGGG
4373 // P O O I S T G G
4374 // P O O I S S T G G
4375 // P OOOOO III SSSSS T GGGGG
4376
4377
4378 // VIF THU 20 NOV 2025 22:19:45 ** POISTG ** DIAGNOSTICS PAGE 00124
4379
4380
4381 // VIF THU 20 NOV 2025 22:19:45 ** POISTG ** GENERATED CODE PAGE 00125
4382
4383 int_4 _poistg (int_4 _p_ nperod_, int_4 _p_ n_, int_4 _p_ mperod_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4
4384 _p_ c_, int_4 _p_ idimy_, real_4 _p_ y_, int_4 _p_ ierror_, real_4 _p_ w_)
4385 { // ** body not listed **
4578 }
4579
4580 // VIF THU 20 NOV 2025 22:19:45 ** SEPELI ** SEPELI PAGE 00129
4581
4582 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4583 // S S U U B B R R O O U U T I NN N E
4584 // S U U B B R R O O U U T I N N N E
4585 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4586 // S U U B B R R O O U U T I N N N E
4587 // S S U U B B R R O O U U T I N NN E
4588 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4589
4590 // SSSSS EEEEEEE PPPPPP EEEEEEE L III
4591 // S S E P P E L I
4592 // S E P P E L I
4593 // SSSSS EEEEE PPPPPP EEEEE L I
4594 // S E P E L I
4595 // S S E P E L I
4596 // SSSSS EEEEEEE P EEEEEEE LLLLLLL III
4597
4598
4599 // VIF THU 20 NOV 2025 22:19:45 ** SEPELI ** DIAGNOSTICS PAGE 00130
4600
4601
4602 // VIF THU 20 NOV 2025 22:19:45 ** SEPELI ** GENERATED CODE PAGE 00131
4603
4604 int_4 _sepeli (int_4 _p_ intl_, int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_,
4605 real_4 _p_ bda_, real_4 _p_ alpha_, real_4 _p_ bdb_, real_4 _p_ beta_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_,
4606 int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ gama_, real_4 _p_ bdd_, real_4 _p_ xnu_, real_4 (*_cofx)(), real_4
4607 (*_cofy)(), real_4 _p_ grhs_, real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ w_, real_4 _p_ pertrb_, int_4 _p_ ierror_)
4608 { // ** body not listed **
4658 }
4659
4660 // VIF THU 20 NOV 2025 22:19:45 ** SEPX4 ** SEPX4 PAGE 00133
4661
4662 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4663 // S S U U B B R R O O U U T I NN N E
4664 // S U U B B R R O O U U T I N N N E
4665 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4666 // S U U B B R R O O U U T I N N N E
4667 // S S U U B B R R O O U U T I N NN E
4668 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4669
4670 // SSSSS EEEEEEE PPPPPP X X 4
4671 // S S E P P X X 4 4
4672 // S E P P X X 4 4
4673 // SSSSS EEEEE PPPPPP X 4444444
4674 // S E P X X 4
4675 // S S E P X X 4
4676 // SSSSS EEEEEEE P X X 4
4677
4678
4679 // VIF THU 20 NOV 2025 22:19:45 ** SEPX4 ** DIAGNOSTICS PAGE 00134
4680
4681
4682 // VIF THU 20 NOV 2025 22:19:45 ** SEPX4 ** GENERATED CODE PAGE 00135
4683
4684 int_4 _sepx4 (int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4
4685 _p_ alpha_, real_4 _p_ bdb_, real_4 _p_ beta_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4
4686 _p_ bdc_, real_4 _p_ bdd_, real_4 (*_cofx)(), real_4 _p_ grhs_, real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ w_,
4687 real_4 _p_ pertrb_, int_4 _p_ ierror_)
4688 { // ** body not listed **
4731 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
