mathlib-pchip.c
1 //! @file mathlib-pchip.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 PCHIP
24
25 // Compiled from Fortran source code by VIF.
26
27 // PCHIP routines from SLATEC.
28 //
29 // Source: netlib.org/slatec/
30
31 // The license for PCHIP 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:21:09 ** MARCEL ** PCHIP 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 // PPPPPP CCCCC H H III PPPPPP
78 // P P C C H H I P P
79 // P P C H H I P P
80 // PPPPPP C HHHHHHH I PPPPPP
81 // P C H H I P
82 // P C C H H I P
83 // P CCCCC H H III P
84
85
86
87
88 // VIF THU 20 NOV 2025 22:21:09 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
89
90 // ** linker ** object size 270904 bytes
91 // ** statistics ** 41 subprograms, no errors, no warnings
92
93
94 // VIF THU 20 NOV 2025 22:21:09 ** 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:21:09 ** 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 #define _dc_0 "slatec"
127 #define _dc_1 "chfdv"
128 #define _dc_2 "number of evaluation points less than one"
129 #define _dc_3 "interval endpoints equal"
130 #define _dc_4 "chfev"
131 #define _dc_5 "dchfdv"
132 #define _dc_6 "dchfev"
133 #define _dc_7 "dpchbs"
134 #define _dc_8 "knotyp greater than 2"
135 #define _dc_9 "knotyp.lt.0 and nknots.ne.(2*n+4)"
136 #define _dc_10 "dpchce"
137 #define _dc_11 "error return from dpchdf"
138 #define _dc_12 "dpchcm"
139 #define _dc_13 "number of data points less than two"
140 #define _dc_14 "increment less than one"
141 #define _dc_15 "x-array not strictly increasing"
142 #define _dc_16 "dpchdf"
143 #define _dc_17 "k less than three"
144 #define _dc_18 "dpchfd"
145 #define _dc_19 "error return from dchfdv -- fatal"
146 #define _dc_20 "dpchfe"
147 #define _dc_21 "error return from dchfev -- fatal"
148 #define _dc_22 "dpchia"
149 #define _dc_23 "trouble in dpchid"
150 #define _dc_24 "dpchic"
151 #define _dc_25 "ic out of range"
152 #define _dc_26 "work array too small"
153 #define _dc_27 "error return from dpchcs"
154 #define _dc_28 "error return from dpchce"
155 #define _dc_29 "dpchid"
156 // VIF THU 20 NOV 2025 22:21:09 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00005
157
158 #define _dc_30 "ia or ib out of range"
159 #define _dc_31 "dpchim"
160 #define _dc_32 "dpchsp"
161 #define _dc_33 "singular linear system"
162 #define _dc_34 "dpchsw"
163 #define _dc_35 "d1 and/or d2 invalid"
164 #define _dc_36 "negative radical"
165 #define _dc_37 "pchbs"
166 #define _dc_38 "pchce"
167 #define _dc_39 "error return from pchdf"
168 #define _dc_40 "pchcm"
169 #define _dc_41 "pchdf"
170 #define _dc_42 "pchfd"
171 #define _dc_43 "error return from chfdv -- fatal"
172 #define _dc_44 "pchfe"
173 #define _dc_45 "error return from chfev -- fatal"
174 #define _dc_46 "pchia"
175 #define _dc_47 "trouble in pchid"
176 #define _dc_48 "pchic"
177 #define _dc_49 "error return from pchcs"
178 #define _dc_50 "error return from pchce"
179 #define _dc_51 "pchid"
180 #define _dc_52 "pchim"
181 #define _dc_53 "pchsp"
182 #define _dc_54 "pchsw"
183
184
185
186 // VIF THU 20 NOV 2025 22:21:09 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00006
187
188 static FORMAT *__fmt_a = NULL;
189 typedef char char_7[8];
190 typedef char char_15[16];
191 typedef char char_31[32];
192 typedef char char_63[64];
193
194
195 // VIF THU 20 NOV 2025 22:21:09 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00007
196
197 #define __ncalls 42
198 static CALLS __calls[__ncalls] = {
199 { // ** body not listed **"chfcm", 0}, // integer*4 function
201 { // ** body not listed **"chfev", 0}, // subroutine
203 { // ** body not listed **"dchfcm", 0}, // integer*4 function
205 { // ** body not listed **"dchfev", 0}, // subroutine
207 { // ** body not listed **"dpchbs", 0}, // subroutine
209 { // ** body not listed **"dpchci", 0}, // subroutine
211 { // ** body not listed **"dpchcs", 0}, // subroutine
213 { // ** body not listed **"dpchfd", 0}, // subroutine
215 { // ** body not listed **"dpchia", 0}, // real*8 function
217 { // ** body not listed **"dpchid", 0}, // real*8 function
219 { // ** body not listed **"dpchkt", 0}, // subroutine
221 { // ** body not listed **"dpchst", 0}, // real*8 function
223 { // ** body not listed **"pchbs", 0}, // subroutine
225 { // ** body not listed **"pchci", 0}, // subroutine
227 { // ** body not listed **"pchcs", 0}, // subroutine
229 { // ** body not listed **"pchdoc", 0}, // subroutine
231 { // ** body not listed **"pchfe", 0}, // subroutine
233 { // ** body not listed **"pchic", 0}, // subroutine
235 { // ** body not listed **"pchim", 0}, // subroutine
237 { // ** body not listed **"pchsp", 0}, // subroutine
239 { // ** body not listed **"pchsw", 0}, // subroutine
241 };
242
243
244
245 // VIF THU 20 NOV 2025 22:21:09 ** GLOBAL SCOPE ** COMMON BLOCKS PAGE 00008
246
247
248
249 // VIF THU 20 NOV 2025 22:21:09 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00009
250
251
252 prototype int_4 _chfcm (real_4 _p_ d1_, real_4 _p_ d2_, real_4 _p_ delta_);
253 prototype int_4 _chfdv (real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ f1_, real_4 _p_ f2_, real_4 _p_ d1_, real_4 _p_ d2_,
254 int_4 _p_ ne_, real_4 _p_ xe_, real_4 _p_ fe_, real_4 _p_ de_, int_4 _p_ next_, int_4 _p_ ierr_);
255 prototype int_4 _chfev (real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ f1_, real_4 _p_ f2_, real_4 _p_ d1_, real_4 _p_ d2_,
256 int_4 _p_ ne_, real_4 _p_ xe_, real_4 _p_ fe_, int_4 _p_ next_, int_4 _p_ ierr_);
257 prototype real_4 _chfie (real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ f1_, real_4 _p_ f2_, real_4 _p_ d1_, real_4 _p_ d2_
258 , real_4 _p_ a_, real_4 _p_ b_);
259 prototype int_4 _dchfcm (real_8 _p_ d1_, real_8 _p_ d2_, real_8 _p_ delta_);
260 prototype int_4 _dchfdv (real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ f1_, real_8 _p_ f2_, real_8 _p_ d1_, real_8 _p_ d2_
261 , int_4 _p_ ne_, real_8 _p_ xe_, real_8 _p_ fe_, real_8 _p_ de_, int_4 _p_ next_, int_4 _p_ ierr_);
262 prototype int_4 _dchfev (real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ f1_, real_8 _p_ f2_, real_8 _p_ d1_, real_8 _p_ d2_
263 , int_4 _p_ ne_, real_8 _p_ xe_, real_8 _p_ fe_, int_4 _p_ next_, int_4 _p_ ierr_);
264 prototype real_8 _dchfie (real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ f1_, real_8 _p_ f2_, real_8 _p_ d1_, real_8 _p_
265 d2_, real_8 _p_ a_, real_8 _p_ b_);
266 prototype int_4 _dpchbs (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_ incfd_, int_4 _p_ knotyp_
267 , int_4 _p_ nknots_, real_8 _p_ t_, real_8 _p_ bcoef_, int_4 _p_ ndim_, int_4 _p_ kord_, int_4 _p_ ierr_);
268 prototype int_4 _dpchce (int_4 _p_ ic_, real_8 _p_ vc_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ h_, real_8 _p_ slope_,
269 real_8 _p_ d_, int_4 _p_ incfd_, int_4 _p_ ierr_);
270 prototype int_4 _dpchci (int_4 _p_ n_, real_8 _p_ h_, real_8 _p_ slope_, real_8 _p_ d_, int_4 _p_ incfd_);
271 prototype int_4 _dpchcm (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_ incfd_, logical_4 _p_
272 skip_, int_4 _p_ ismon_, int_4 _p_ ierr_);
273 prototype int_4 _dpchcs (real_8 _p_ switch_, int_4 _p_ n_, real_8 _p_ h_, real_8 _p_ slope_, real_8 _p_ d_, int_4 _p_
274 incfd_, int_4 _p_ ierr_);
275 prototype real_8 _dpchdf (int_4 _p_ k_, real_8 _p_ x_, real_8 _p_ s_, int_4 _p_ ierr_);
276 prototype int_4 _dpchfd (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_ incfd_, logical_4 _p_
277 skip_, int_4 _p_ ne_, real_8 _p_ xe_, real_8 _p_ fe_, real_8 _p_ de_, int_4 _p_ ierr_);
278 prototype int_4 _dpchfe (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_ incfd_, logical_4 _p_
279 skip_, int_4 _p_ ne_, real_8 _p_ xe_, real_8 _p_ fe_, int_4 _p_ ierr_);
280 prototype real_8 _dpchia (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_ incfd_, logical_4 _p_
281 skip_, real_8 _p_ a_, real_8 _p_ b_, int_4 _p_ ierr_);
282 prototype int_4 _dpchic (int_4 _p_ ic_, real_8 _p_ vc_, real_8 _p_ switch_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_,
283 real_8 _p_ d_, int_4 _p_ incfd_, real_8 _p_ wk_, int_4 _p_ nwk_, int_4 _p_ ierr_);
284 prototype real_8 _dpchid (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_ incfd_, logical_4 _p_
285 skip_, int_4 _p_ ia_, int_4 _p_ ib_, int_4 _p_ ierr_);
286 prototype int_4 _dpchim (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_ incfd_, int_4 _p_ ierr_);
287 prototype int_4 _dpchkt (int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ knotyp_, real_8 _p_ t_);
288 prototype int_4 _dpchsp (int_4 _p_ ic_, real_8 _p_ vc_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_,
289 int_4 _p_ incfd_, real_8 _p_ wk_, int_4 _p_ nwk_, int_4 _p_ ierr_);
290 prototype real_8 _dpchst (real_8 _p_ arg1_, real_8 _p_ arg2_);
291 prototype int_4 _dpchsw (real_8 _p_ dfmax_, int_4 _p_ iextrm_, real_8 _p_ d1_, real_8 _p_ d2_, real_8 _p_ h_, real_8
292 _p_ slope_, int_4 _p_ ierr_);
293 prototype int_4 _pchbs (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_ incfd_, int_4 _p_ knotyp_,
294 int_4 _p_ nknots_, real_4 _p_ t_, real_4 _p_ bcoef_, int_4 _p_ ndim_, int_4 _p_ kord_, int_4 _p_ ierr_);
295 prototype int_4 _pchce (int_4 _p_ ic_, real_4 _p_ vc_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ h_, real_4 _p_ slope_,
296 real_4 _p_ d_, int_4 _p_ incfd_, int_4 _p_ ierr_);
297 prototype int_4 _pchci (int_4 _p_ n_, real_4 _p_ h_, real_4 _p_ slope_, real_4 _p_ d_, int_4 _p_ incfd_);
298 prototype int_4 _pchcm (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_ incfd_, logical_4 _p_
299 skip_, int_4 _p_ ismon_, int_4 _p_ ierr_);
300 prototype int_4 _pchcs (real_4 _p_ switch_, int_4 _p_ n_, real_4 _p_ h_, real_4 _p_ slope_, real_4 _p_ d_, int_4 _p_
301 // VIF THU 20 NOV 2025 22:21:09 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00010
302
303 incfd_, int_4 _p_ ierr_);
304 prototype real_4 _pchdf (int_4 _p_ k_, real_4 _p_ x_, real_4 _p_ s_, int_4 _p_ ierr_);
305 prototype int_4 _pchdoc (void);
306 prototype int_4 _pchfd (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_ incfd_, logical_4 _p_
307 skip_, int_4 _p_ ne_, real_4 _p_ xe_, real_4 _p_ fe_, real_4 _p_ de_, int_4 _p_ ierr_);
308 prototype int_4 _pchfe (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_ incfd_, logical_4 _p_
309 skip_, int_4 _p_ ne_, real_4 _p_ xe_, real_4 _p_ fe_, int_4 _p_ ierr_);
310 prototype real_4 _pchia (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_ incfd_, logical_4 _p_
311 skip_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ ierr_);
312 prototype int_4 _pchic (int_4 _p_ ic_, real_4 _p_ vc_, real_4 _p_ switch_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_,
313 real_4 _p_ d_, int_4 _p_ incfd_, real_4 _p_ wk_, int_4 _p_ nwk_, int_4 _p_ ierr_);
314 prototype real_4 _pchid (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_ incfd_, logical_4 _p_
315 skip_, int_4 _p_ ia_, int_4 _p_ ib_, int_4 _p_ ierr_);
316 prototype int_4 _pchim (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_ incfd_, int_4 _p_ ierr_);
317 prototype int_4 _pchkt (int_4 _p_ n_, real_4 _p_ x_, int_4 _p_ knotyp_, real_4 _p_ t_);
318 prototype int_4 _pchsp (int_4 _p_ ic_, real_4 _p_ vc_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4
319 _p_ incfd_, real_4 _p_ wk_, int_4 _p_ nwk_, int_4 _p_ ierr_);
320 prototype real_4 _pchst (real_4 _p_ arg1_, real_4 _p_ arg2_);
321 prototype int_4 _pchsw (real_4 _p_ dfmax_, int_4 _p_ iextrm_, real_4 _p_ d1_, real_4 _p_ d2_, real_4 _p_ h_, real_4 _p_
322 slope_, int_4 _p_ ierr_);
323
324
325
326
327
328
329
330
331
332
333
334
335
336 // VIF THU 20 NOV 2025 22:21:09 ** CHFCM ** CHFCM PAGE 00011
337
338 // III N N TTTTTTT EEEEEEE GGGGG EEEEEEE RRRRRR 4
339 // I NN N T E G G E R R * * 4 4
340 // I N N N T E G E R R * * 4 4
341 // I N N N T EEEEE G GGGG EEEEE RRRRRR ******* 4444444
342 // I N N N T E G G E R R * * 4
343 // I N NN T E G G E R R * * 4
344 // III N N T EEEEEEE GGGGG EEEEEEE R R 4
345
346 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
347 // F U U NN N C C T I O O NN N
348 // F U U N N N C T I O O N N N
349 // FFFFF U U N N N C T I O O N N N
350 // F U U N N N C T I O O N N N
351 // F U U N NN C C T I O O N NN
352 // F UUUUU N N CCCCC T III OOOOO N N
353
354 // CCCCC H H FFFFFFF CCCCC M M
355 // C C H H F C C MM MM
356 // C H H F C M M M M
357 // C HHHHHHH FFFFF C M M M
358 // C H H F C M M
359 // C C H H F C C M M
360 // CCCCC H H F CCCCC M M
361
362
363 // VIF THU 20 NOV 2025 22:21:09 ** CHFCM ** DIAGNOSTICS PAGE 00012
364
365
366 // VIF THU 20 NOV 2025 22:21:09 ** CHFCM ** GENERATED CODE PAGE 00013
367
368 int_4 _chfcm (real_4 _p_ d1_, real_4 _p_ d2_, real_4 _p_ delta_)
369 { // ** body not listed **
481 }
482
483 // VIF THU 20 NOV 2025 22:21:09 ** CHFDV ** CHFDV PAGE 00016
484
485 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
486 // S S U U B B R R O O U U T I NN N E
487 // S U U B B R R O O U U T I N N N E
488 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
489 // S U U B B R R O O U U T I N N N E
490 // S S U U B B R R O O U U T I N NN E
491 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
492
493 // CCCCC H H FFFFFFF DDDDDD V V
494 // C C H H F D D V V
495 // C H H F D D V V
496 // C HHHHHHH FFFFF D D V V
497 // C H H F D D V V
498 // C C H H F D D V V
499 // CCCCC H H F DDDDDD V
500
501
502 // VIF THU 20 NOV 2025 22:21:09 ** CHFDV ** DIAGNOSTICS PAGE 00017
503
504
505 // VIF THU 20 NOV 2025 22:21:09 ** CHFDV ** GENERATED CODE PAGE 00018
506
507 int_4 _chfdv (real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ f1_, real_4 _p_ f2_, real_4 _p_ d1_, real_4 _p_ d2_, int_4 _p_
508 ne_, real_4 _p_ xe_, real_4 _p_ fe_, real_4 _p_ de_, int_4 _p_ next_, int_4 _p_ ierr_)
509 { // ** body not listed **
568 }
569
570 // VIF THU 20 NOV 2025 22:21:09 ** CHFEV ** CHFEV PAGE 00020
571
572 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
573 // S S U U B B R R O O U U T I NN N E
574 // S U U B B R R O O U U T I N N N E
575 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
576 // S U U B B R R O O U U T I N N N E
577 // S S U U B B R R O O U U T I N NN E
578 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
579
580 // CCCCC H H FFFFFFF EEEEEEE V V
581 // C C H H F E V V
582 // C H H F E V V
583 // C HHHHHHH FFFFF EEEEE V V
584 // C H H F E V V
585 // C C H H F E V V
586 // CCCCC H H F EEEEEEE V
587
588
589 // VIF THU 20 NOV 2025 22:21:09 ** CHFEV ** DIAGNOSTICS PAGE 00021
590
591
592 // VIF THU 20 NOV 2025 22:21:09 ** CHFEV ** GENERATED CODE PAGE 00022
593
594 int_4 _chfev (real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ f1_, real_4 _p_ f2_, real_4 _p_ d1_, real_4 _p_ d2_, int_4 _p_
595 ne_, real_4 _p_ xe_, real_4 _p_ fe_, int_4 _p_ next_, int_4 _p_ ierr_)
596 { // ** body not listed **
652 }
653
654 // VIF THU 20 NOV 2025 22:21:09 ** CHFIE ** CHFIE PAGE 00024
655
656 // RRRRRR EEEEEEE A L 4
657 // R R E A A L * * 4 4
658 // R R E A A L * * 4 4
659 // RRRRRR EEEEE A A L ******* 4444444
660 // R R E AAAAAAA L * * 4
661 // R R E A A L * * 4
662 // R R EEEEEEE A A LLLLLLL 4
663
664 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
665 // F U U NN N C C T I O O NN N
666 // F U U N N N C T I O O N N N
667 // FFFFF U U N N N C T I O O N N N
668 // F U U N N N C T I O O N N N
669 // F U U N NN C C T I O O N NN
670 // F UUUUU N N CCCCC T III OOOOO N N
671
672 // CCCCC H H FFFFFFF III EEEEEEE
673 // C C H H F I E
674 // C H H F I E
675 // C HHHHHHH FFFFF I EEEEE
676 // C H H F I E
677 // C C H H F I E
678 // CCCCC H H F III EEEEEEE
679
680
681 // VIF THU 20 NOV 2025 22:21:09 ** CHFIE ** DIAGNOSTICS PAGE 00025
682
683
684 // VIF THU 20 NOV 2025 22:21:09 ** CHFIE ** GENERATED CODE PAGE 00026
685
686 real_4 _chfie (real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ f1_, real_4 _p_ f2_, real_4 _p_ d1_, real_4 _p_ d2_, real_4
687 _p_ a_, real_4 _p_ b_)
688 { // ** body not listed **
774 }
775
776 // VIF THU 20 NOV 2025 22:21:09 ** DCHFCM ** DCHFCM PAGE 00028
777
778 // III N N TTTTTTT EEEEEEE GGGGG EEEEEEE RRRRRR 4
779 // I NN N T E G G E R R * * 4 4
780 // I N N N T E G E R R * * 4 4
781 // I N N N T EEEEE G GGGG EEEEE RRRRRR ******* 4444444
782 // I N N N T E G G E R R * * 4
783 // I N NN T E G G E R R * * 4
784 // III N N T EEEEEEE GGGGG EEEEEEE R R 4
785
786 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
787 // F U U NN N C C T I O O NN N
788 // F U U N N N C T I O O N N N
789 // FFFFF U U N N N C T I O O N N N
790 // F U U N N N C T I O O N N N
791 // F U U N NN C C T I O O N NN
792 // F UUUUU N N CCCCC T III OOOOO N N
793
794 // DDDDDD CCCCC H H FFFFFFF CCCCC M M
795 // D D C C H H F C C MM MM
796 // D D C H H F C M M M M
797 // D D C HHHHHHH FFFFF C M M M
798 // D D C H H F C M M
799 // D D C C H H F C C M M
800 // DDDDDD CCCCC H H F CCCCC M M
801
802
803 // VIF THU 20 NOV 2025 22:21:09 ** DCHFCM ** DIAGNOSTICS PAGE 00029
804
805
806 // VIF THU 20 NOV 2025 22:21:09 ** DCHFCM ** GENERATED CODE PAGE 00030
807
808 int_4 _dchfcm (real_8 _p_ d1_, real_8 _p_ d2_, real_8 _p_ delta_)
809 { // ** body not listed **
921 }
922
923 // VIF THU 20 NOV 2025 22:21:09 ** DCHFDV ** DCHFDV PAGE 00033
924
925 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
926 // S S U U B B R R O O U U T I NN N E
927 // S U U B B R R O O U U T I N N N E
928 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
929 // S U U B B R R O O U U T I N N N E
930 // S S U U B B R R O O U U T I N NN E
931 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
932
933 // DDDDDD CCCCC H H FFFFFFF DDDDDD V V
934 // D D C C H H F D D V V
935 // D D C H H F D D V V
936 // D D C HHHHHHH FFFFF D D V V
937 // D D C H H F D D V V
938 // D D C C H H F D D V V
939 // DDDDDD CCCCC H H F DDDDDD V
940
941
942 // VIF THU 20 NOV 2025 22:21:09 ** DCHFDV ** DIAGNOSTICS PAGE 00034
943
944
945 // VIF THU 20 NOV 2025 22:21:09 ** DCHFDV ** GENERATED CODE PAGE 00035
946
947 int_4 _dchfdv (real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ f1_, real_8 _p_ f2_, real_8 _p_ d1_, real_8 _p_ d2_, int_4
948 _p_ ne_, real_8 _p_ xe_, real_8 _p_ fe_, real_8 _p_ de_, int_4 _p_ next_, int_4 _p_ ierr_)
949 { // ** body not listed **
1008 }
1009
1010 // VIF THU 20 NOV 2025 22:21:09 ** DCHFEV ** DCHFEV PAGE 00037
1011
1012 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1013 // S S U U B B R R O O U U T I NN N E
1014 // S U U B B R R O O U U T I N N N E
1015 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1016 // S U U B B R R O O U U T I N N N E
1017 // S S U U B B R R O O U U T I N NN E
1018 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1019
1020 // DDDDDD CCCCC H H FFFFFFF EEEEEEE V V
1021 // D D C C H H F E V V
1022 // D D C H H F E V V
1023 // D D C HHHHHHH FFFFF EEEEE V V
1024 // D D C H H F E V V
1025 // D D C C H H F E V V
1026 // DDDDDD CCCCC H H F EEEEEEE V
1027
1028
1029 // VIF THU 20 NOV 2025 22:21:09 ** DCHFEV ** DIAGNOSTICS PAGE 00038
1030
1031
1032 // VIF THU 20 NOV 2025 22:21:09 ** DCHFEV ** GENERATED CODE PAGE 00039
1033
1034 int_4 _dchfev (real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ f1_, real_8 _p_ f2_, real_8 _p_ d1_, real_8 _p_ d2_, int_4
1035 _p_ ne_, real_8 _p_ xe_, real_8 _p_ fe_, int_4 _p_ next_, int_4 _p_ ierr_)
1036 { // ** body not listed **
1092 }
1093
1094 // VIF THU 20 NOV 2025 22:21:09 ** DCHFIE ** DCHFIE PAGE 00041
1095
1096 // RRRRRR EEEEEEE A L 88888
1097 // R R E A A L * * 8 8
1098 // R R E A A L * * 8 8
1099 // RRRRRR EEEEE A A L ******* 88888
1100 // R R E AAAAAAA L * * 8 8
1101 // R R E A A L * * 8 8
1102 // R R EEEEEEE A A LLLLLLL 88888
1103
1104 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
1105 // F U U NN N C C T I O O NN N
1106 // F U U N N N C T I O O N N N
1107 // FFFFF U U N N N C T I O O N N N
1108 // F U U N N N C T I O O N N N
1109 // F U U N NN C C T I O O N NN
1110 // F UUUUU N N CCCCC T III OOOOO N N
1111
1112 // DDDDDD CCCCC H H FFFFFFF III EEEEEEE
1113 // D D C C H H F I E
1114 // D D C H H F I E
1115 // D D C HHHHHHH FFFFF I EEEEE
1116 // D D C H H F I E
1117 // D D C C H H F I E
1118 // DDDDDD CCCCC H H F III EEEEEEE
1119
1120
1121 // VIF THU 20 NOV 2025 22:21:09 ** DCHFIE ** DIAGNOSTICS PAGE 00042
1122
1123
1124 // VIF THU 20 NOV 2025 22:21:09 ** DCHFIE ** GENERATED CODE PAGE 00043
1125
1126 real_8 _dchfie (real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ f1_, real_8 _p_ f2_, real_8 _p_ d1_, real_8 _p_ d2_, real_8
1127 _p_ a_, real_8 _p_ b_)
1128 { // ** body not listed **
1214 }
1215
1216 // VIF THU 20 NOV 2025 22:21:09 ** DPCHBS ** DPCHBS PAGE 00045
1217
1218 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1219 // S S U U B B R R O O U U T I NN N E
1220 // S U U B B R R O O U U T I N N N E
1221 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1222 // S U U B B R R O O U U T I N N N E
1223 // S S U U B B R R O O U U T I N NN E
1224 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1225
1226 // DDDDDD PPPPPP CCCCC H H BBBBBB SSSSS
1227 // D D P P C C H H B B S S
1228 // D D P P C H H B B S
1229 // D D PPPPPP C HHHHHHH BBBBBB SSSSS
1230 // D D P C H H B B S
1231 // D D P C C H H B B S S
1232 // DDDDDD P CCCCC H H BBBBBB SSSSS
1233
1234
1235 // VIF THU 20 NOV 2025 22:21:09 ** DPCHBS ** DIAGNOSTICS PAGE 00046
1236
1237
1238 // VIF THU 20 NOV 2025 22:21:09 ** DPCHBS ** GENERATED CODE PAGE 00047
1239
1240 int_4 _dpchbs (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_ incfd_, int_4 _p_ knotyp_, int_4
1241 _p_ nknots_, real_8 _p_ t_, real_8 _p_ bcoef_, int_4 _p_ ndim_, int_4 _p_ kord_, int_4 _p_ ierr_)
1242 { // ** body not listed **
1279 }
1280
1281 // VIF THU 20 NOV 2025 22:21:09 ** DPCHCE ** DPCHCE PAGE 00048
1282
1283 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1284 // S S U U B B R R O O U U T I NN N E
1285 // S U U B B R R O O U U T I N N N E
1286 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1287 // S U U B B R R O O U U T I N N N E
1288 // S S U U B B R R O O U U T I N NN E
1289 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1290
1291 // DDDDDD PPPPPP CCCCC H H CCCCC EEEEEEE
1292 // D D P P C C H H C C E
1293 // D D P P C H H C E
1294 // D D PPPPPP C HHHHHHH C EEEEE
1295 // D D P C H H C E
1296 // D D P C C H H C C E
1297 // DDDDDD P CCCCC H H CCCCC EEEEEEE
1298
1299
1300 // VIF THU 20 NOV 2025 22:21:09 ** DPCHCE ** DIAGNOSTICS PAGE 00049
1301
1302
1303 // VIF THU 20 NOV 2025 22:21:09 ** DPCHCE ** GENERATED CODE PAGE 00050
1304
1305 int_4 _dpchce (int_4 _p_ ic_, real_8 _p_ vc_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ h_, real_8 _p_ slope_, real_8 _p_
1306 d_, int_4 _p_ incfd_, int_4 _p_ ierr_)
1307 { // ** body not listed **
1467 }
1468
1469 // VIF THU 20 NOV 2025 22:21:09 ** DPCHCI ** DPCHCI PAGE 00054
1470
1471 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1472 // S S U U B B R R O O U U T I NN N E
1473 // S U U B B R R O O U U T I N N N E
1474 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1475 // S U U B B R R O O U U T I N N N E
1476 // S S U U B B R R O O U U T I N NN E
1477 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1478
1479 // DDDDDD PPPPPP CCCCC H H CCCCC III
1480 // D D P P C C H H C C I
1481 // D D P P C H H C I
1482 // D D PPPPPP C HHHHHHH C I
1483 // D D P C H H C I
1484 // D D P C C H H C C I
1485 // DDDDDD P CCCCC H H CCCCC III
1486
1487
1488 // VIF THU 20 NOV 2025 22:21:09 ** DPCHCI ** DIAGNOSTICS PAGE 00055
1489
1490
1491 // VIF THU 20 NOV 2025 22:21:09 ** DPCHCI ** GENERATED CODE PAGE 00056
1492
1493 int_4 _dpchci (int_4 _p_ n_, real_8 _p_ h_, real_8 _p_ slope_, real_8 _p_ d_, int_4 _p_ incfd_)
1494 { // ** body not listed **
1582 }
1583
1584 // VIF THU 20 NOV 2025 22:21:09 ** DPCHCM ** DPCHCM PAGE 00058
1585
1586 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1587 // S S U U B B R R O O U U T I NN N E
1588 // S U U B B R R O O U U T I N N N E
1589 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1590 // S U U B B R R O O U U T I N N N E
1591 // S S U U B B R R O O U U T I N NN E
1592 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1593
1594 // DDDDDD PPPPPP CCCCC H H CCCCC M M
1595 // D D P P C C H H C C MM MM
1596 // D D P P C H H C M M M M
1597 // D D PPPPPP C HHHHHHH C M M M
1598 // D D P C H H C M M
1599 // D D P C C H H C C M M
1600 // DDDDDD P CCCCC H H CCCCC M M
1601
1602
1603 // VIF THU 20 NOV 2025 22:21:09 ** DPCHCM ** DIAGNOSTICS PAGE 00059
1604
1605
1606 // VIF THU 20 NOV 2025 22:21:09 ** DPCHCM ** GENERATED CODE PAGE 00060
1607
1608 int_4 _dpchcm (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_ incfd_, logical_4 _p_ skip_, int_4
1609 _p_ ismon_, int_4 _p_ ierr_)
1610 { // ** body not listed **
1668 }
1669
1670 // VIF THU 20 NOV 2025 22:21:09 ** DPCHCS ** DPCHCS PAGE 00062
1671
1672 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1673 // S S U U B B R R O O U U T I NN N E
1674 // S U U B B R R O O U U T I N N N E
1675 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1676 // S U U B B R R O O U U T I N N N E
1677 // S S U U B B R R O O U U T I N NN E
1678 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1679
1680 // DDDDDD PPPPPP CCCCC H H CCCCC SSSSS
1681 // D D P P C C H H C C S S
1682 // D D P P C H H C S
1683 // D D PPPPPP C HHHHHHH C SSSSS
1684 // D D P C H H C S
1685 // D D P C C H H C C S S
1686 // DDDDDD P CCCCC H H CCCCC SSSSS
1687
1688
1689 // VIF THU 20 NOV 2025 22:21:09 ** DPCHCS ** DIAGNOSTICS PAGE 00063
1690
1691
1692 // VIF THU 20 NOV 2025 22:21:09 ** DPCHCS ** GENERATED CODE PAGE 00064
1693
1694 int_4 _dpchcs (real_8 _p_ switch_, int_4 _p_ n_, real_8 _p_ h_, real_8 _p_ slope_, real_8 _p_ d_, int_4 _p_ incfd_,
1695 int_4 _p_ ierr_)
1696 { // ** body not listed **
1850 }
1851
1852 // VIF THU 20 NOV 2025 22:21:09 ** DPCHDF ** DPCHDF PAGE 00068
1853
1854 // RRRRRR EEEEEEE A L 88888
1855 // R R E A A L * * 8 8
1856 // R R E A A L * * 8 8
1857 // RRRRRR EEEEE A A L ******* 88888
1858 // R R E AAAAAAA L * * 8 8
1859 // R R E A A L * * 8 8
1860 // R R EEEEEEE A A LLLLLLL 88888
1861
1862 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
1863 // F U U NN N C C T I O O NN N
1864 // F U U N N N C T I O O N N N
1865 // FFFFF U U N N N C T I O O N N N
1866 // F U U N N N C T I O O N N N
1867 // F U U N NN C C T I O O N NN
1868 // F UUUUU N N CCCCC T III OOOOO N N
1869
1870 // DDDDDD PPPPPP CCCCC H H DDDDDD FFFFFFF
1871 // D D P P C C H H D D F
1872 // D D P P C H H D D F
1873 // D D PPPPPP C HHHHHHH D D FFFFF
1874 // D D P C H H D D F
1875 // D D P C C H H D D F
1876 // DDDDDD P CCCCC H H DDDDDD F
1877
1878
1879 // VIF THU 20 NOV 2025 22:21:09 ** DPCHDF ** DIAGNOSTICS PAGE 00069
1880
1881
1882 // VIF THU 20 NOV 2025 22:21:09 ** DPCHDF ** GENERATED CODE PAGE 00070
1883
1884 real_8 _dpchdf (int_4 _p_ k_, real_8 _p_ x_, real_8 _p_ s_, int_4 _p_ ierr_)
1885 { // ** body not listed **
1924 }
1925
1926 // VIF THU 20 NOV 2025 22:21:09 ** DPCHFD ** DPCHFD PAGE 00071
1927
1928 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1929 // S S U U B B R R O O U U T I NN N E
1930 // S U U B B R R O O U U T I N N N E
1931 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1932 // S U U B B R R O O U U T I N N N E
1933 // S S U U B B R R O O U U T I N NN E
1934 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1935
1936 // DDDDDD PPPPPP CCCCC H H FFFFFFF DDDDDD
1937 // D D P P C C H H F D D
1938 // D D P P C H H F D D
1939 // D D PPPPPP C HHHHHHH FFFFF D D
1940 // D D P C H H F D D
1941 // D D P C C H H F D D
1942 // DDDDDD P CCCCC H H F DDDDDD
1943
1944
1945 // VIF THU 20 NOV 2025 22:21:09 ** DPCHFD ** DIAGNOSTICS PAGE 00072
1946
1947
1948 // VIF THU 20 NOV 2025 22:21:09 ** DPCHFD ** GENERATED CODE PAGE 00073
1949
1950 int_4 _dpchfd (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_ incfd_, logical_4 _p_ skip_, int_4
1951 _p_ ne_, real_8 _p_ xe_, real_8 _p_ fe_, real_8 _p_ de_, int_4 _p_ ierr_)
1952 { // ** body not listed **
2073 }
2074
2075 // VIF THU 20 NOV 2025 22:21:09 ** DPCHFE ** DPCHFE PAGE 00076
2076
2077 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2078 // S S U U B B R R O O U U T I NN N E
2079 // S U U B B R R O O U U T I N N N E
2080 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2081 // S U U B B R R O O U U T I N N N E
2082 // S S U U B B R R O O U U T I N NN E
2083 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2084
2085 // DDDDDD PPPPPP CCCCC H H FFFFFFF EEEEEEE
2086 // D D P P C C H H F E
2087 // D D P P C H H F E
2088 // D D PPPPPP C HHHHHHH FFFFF EEEEE
2089 // D D P C H H F E
2090 // D D P C C H H F E
2091 // DDDDDD P CCCCC H H F EEEEEEE
2092
2093
2094 // VIF THU 20 NOV 2025 22:21:09 ** DPCHFE ** DIAGNOSTICS PAGE 00077
2095
2096
2097 // VIF THU 20 NOV 2025 22:21:09 ** DPCHFE ** GENERATED CODE PAGE 00078
2098
2099 int_4 _dpchfe (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_ incfd_, logical_4 _p_ skip_, int_4
2100 _p_ ne_, real_8 _p_ xe_, real_8 _p_ fe_, int_4 _p_ ierr_)
2101 { // ** body not listed **
2222 }
2223
2224 // VIF THU 20 NOV 2025 22:21:09 ** DPCHIA ** DPCHIA PAGE 00081
2225
2226 // RRRRRR EEEEEEE A L 88888
2227 // R R E A A L * * 8 8
2228 // R R E A A L * * 8 8
2229 // RRRRRR EEEEE A A L ******* 88888
2230 // R R E AAAAAAA L * * 8 8
2231 // R R E A A L * * 8 8
2232 // R R EEEEEEE A A LLLLLLL 88888
2233
2234 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
2235 // F U U NN N C C T I O O NN N
2236 // F U U N N N C T I O O N N N
2237 // FFFFF U U N N N C T I O O N N N
2238 // F U U N N N C T I O O N N N
2239 // F U U N NN C C T I O O N NN
2240 // F UUUUU N N CCCCC T III OOOOO N N
2241
2242 // DDDDDD PPPPPP CCCCC H H III A
2243 // D D P P C C H H I A A
2244 // D D P P C H H I A A
2245 // D D PPPPPP C HHHHHHH I A A
2246 // D D P C H H I AAAAAAA
2247 // D D P C C H H I A A
2248 // DDDDDD P CCCCC H H III A A
2249
2250
2251 // VIF THU 20 NOV 2025 22:21:09 ** DPCHIA ** DIAGNOSTICS PAGE 00082
2252
2253
2254 // VIF THU 20 NOV 2025 22:21:09 ** DPCHIA ** GENERATED CODE PAGE 00083
2255
2256 real_8 _dpchia (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_ incfd_, logical_4 _p_ skip_,
2257 real_8 _p_ a_, real_8 _p_ b_, int_4 _p_ ierr_)
2258 { // ** body not listed **
2378 }
2379
2380 // VIF THU 20 NOV 2025 22:21:09 ** DPCHIC ** DPCHIC PAGE 00086
2381
2382 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2383 // S S U U B B R R O O U U T I NN N E
2384 // S U U B B R R O O U U T I N N N E
2385 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2386 // S U U B B R R O O U U T I N N N E
2387 // S S U U B B R R O O U U T I N NN E
2388 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2389
2390 // DDDDDD PPPPPP CCCCC H H III CCCCC
2391 // D D P P C C H H I C C
2392 // D D P P C H H I C
2393 // D D PPPPPP C HHHHHHH I C
2394 // D D P C H H I C
2395 // D D P C C H H I C C
2396 // DDDDDD P CCCCC H H III CCCCC
2397
2398
2399 // VIF THU 20 NOV 2025 22:21:09 ** DPCHIC ** DIAGNOSTICS PAGE 00087
2400
2401
2402 // VIF THU 20 NOV 2025 22:21:09 ** DPCHIC ** GENERATED CODE PAGE 00088
2403
2404 int_4 _dpchic (int_4 _p_ ic_, real_8 _p_ vc_, real_8 _p_ switch_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8
2405 _p_ d_, int_4 _p_ incfd_, real_8 _p_ wk_, int_4 _p_ nwk_, int_4 _p_ ierr_)
2406 { // ** body not listed **
2512 }
2513
2514 // VIF THU 20 NOV 2025 22:21:09 ** DPCHID ** DPCHID PAGE 00091
2515
2516 // RRRRRR EEEEEEE A L 88888
2517 // R R E A A L * * 8 8
2518 // R R E A A L * * 8 8
2519 // RRRRRR EEEEE A A L ******* 88888
2520 // R R E AAAAAAA L * * 8 8
2521 // R R E A A L * * 8 8
2522 // R R EEEEEEE A A LLLLLLL 88888
2523
2524 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
2525 // F U U NN N C C T I O O NN N
2526 // F U U N N N C T I O O N N N
2527 // FFFFF U U N N N C T I O O N N N
2528 // F U U N N N C T I O O N N N
2529 // F U U N NN C C T I O O N NN
2530 // F UUUUU N N CCCCC T III OOOOO N N
2531
2532 // DDDDDD PPPPPP CCCCC H H III DDDDDD
2533 // D D P P C C H H I D D
2534 // D D P P C H H I D D
2535 // D D PPPPPP C HHHHHHH I D D
2536 // D D P C H H I D D
2537 // D D P C C H H I D D
2538 // DDDDDD P CCCCC H H III DDDDDD
2539
2540
2541 // VIF THU 20 NOV 2025 22:21:09 ** DPCHID ** DIAGNOSTICS PAGE 00092
2542
2543
2544 // VIF THU 20 NOV 2025 22:21:09 ** DPCHID ** GENERATED CODE PAGE 00093
2545
2546 real_8 _dpchid (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_ incfd_, logical_4 _p_ skip_, int_4
2547 _p_ ia_, int_4 _p_ ib_, int_4 _p_ ierr_)
2548 { // ** body not listed **
2647 }
2648 // VIF THU 20 NOV 2025 22:21:09 ** DPCHID ** GENERATED CODE PAGE 00095
2649
2650
2651 // VIF THU 20 NOV 2025 22:21:09 ** DPCHIM ** DPCHIM PAGE 00096
2652
2653 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2654 // S S U U B B R R O O U U T I NN N E
2655 // S U U B B R R O O U U T I N N N E
2656 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2657 // S U U B B R R O O U U T I N N N E
2658 // S S U U B B R R O O U U T I N NN E
2659 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2660
2661 // DDDDDD PPPPPP CCCCC H H III M M
2662 // D D P P C C H H I MM MM
2663 // D D P P C H H I M M M M
2664 // D D PPPPPP C HHHHHHH I M M M
2665 // D D P C H H I M M
2666 // D D P C C H H I M M
2667 // DDDDDD P CCCCC H H III M M
2668
2669
2670 // VIF THU 20 NOV 2025 22:21:09 ** DPCHIM ** DIAGNOSTICS PAGE 00097
2671
2672
2673 // VIF THU 20 NOV 2025 22:21:09 ** DPCHIM ** GENERATED CODE PAGE 00098
2674
2675 int_4 _dpchim (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_ incfd_, int_4 _p_ ierr_)
2676 { // ** body not listed **
2816 }
2817
2818 // VIF THU 20 NOV 2025 22:21:09 ** DPCHKT ** DPCHKT PAGE 00101
2819
2820 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2821 // S S U U B B R R O O U U T I NN N E
2822 // S U U B B R R O O U U T I N N N E
2823 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2824 // S U U B B R R O O U U T I N N N E
2825 // S S U U B B R R O O U U T I N NN E
2826 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2827
2828 // DDDDDD PPPPPP CCCCC H H K K TTTTTTT
2829 // D D P P C C H H K K T
2830 // D D P P C H H K K T
2831 // D D PPPPPP C HHHHHHH KKK T
2832 // D D P C H H K K T
2833 // D D P C C H H K K T
2834 // DDDDDD P CCCCC H H K K T
2835
2836
2837 // VIF THU 20 NOV 2025 22:21:09 ** DPCHKT ** DIAGNOSTICS PAGE 00102
2838
2839
2840 // VIF THU 20 NOV 2025 22:21:09 ** DPCHKT ** GENERATED CODE PAGE 00103
2841
2842 int_4 _dpchkt (int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ knotyp_, real_8 _p_ t_)
2843 { // ** body not listed **
2871 }
2872
2873 // VIF THU 20 NOV 2025 22:21:09 ** DPCHSP ** DPCHSP PAGE 00104
2874
2875 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2876 // S S U U B B R R O O U U T I NN N E
2877 // S U U B B R R O O U U T I N N N E
2878 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2879 // S U U B B R R O O U U T I N N N E
2880 // S S U U B B R R O O U U T I N NN E
2881 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2882
2883 // DDDDDD PPPPPP CCCCC H H SSSSS PPPPPP
2884 // D D P P C C H H S S P P
2885 // D D P P C H H S P P
2886 // D D PPPPPP C HHHHHHH SSSSS PPPPPP
2887 // D D P C H H S P
2888 // D D P C C H H S S P
2889 // DDDDDD P CCCCC H H SSSSS P
2890
2891
2892 // VIF THU 20 NOV 2025 22:21:09 ** DPCHSP ** DIAGNOSTICS PAGE 00105
2893
2894
2895 // VIF THU 20 NOV 2025 22:21:09 ** DPCHSP ** GENERATED CODE PAGE 00106
2896
2897 int_4 _dpchsp (int_4 _p_ ic_, real_8 _p_ vc_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ f_, real_8 _p_ d_, int_4 _p_
2898 incfd_, real_8 _p_ wk_, int_4 _p_ nwk_, int_4 _p_ ierr_)
2899 { // ** body not listed **
3150 }
3151
3152 // VIF THU 20 NOV 2025 22:21:09 ** DPCHST ** DPCHST PAGE 00111
3153
3154 // RRRRRR EEEEEEE A L 88888
3155 // R R E A A L * * 8 8
3156 // R R E A A L * * 8 8
3157 // RRRRRR EEEEE A A L ******* 88888
3158 // R R E AAAAAAA L * * 8 8
3159 // R R E A A L * * 8 8
3160 // R R EEEEEEE A A LLLLLLL 88888
3161
3162 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
3163 // F U U NN N C C T I O O NN N
3164 // F U U N N N C T I O O N N N
3165 // FFFFF U U N N N C T I O O N N N
3166 // F U U N N N C T I O O N N N
3167 // F U U N NN C C T I O O N NN
3168 // F UUUUU N N CCCCC T III OOOOO N N
3169
3170 // DDDDDD PPPPPP CCCCC H H SSSSS TTTTTTT
3171 // D D P P C C H H S S T
3172 // D D P P C H H S T
3173 // D D PPPPPP C HHHHHHH SSSSS T
3174 // D D P C H H S T
3175 // D D P C C H H S S T
3176 // DDDDDD P CCCCC H H SSSSS T
3177
3178
3179 // VIF THU 20 NOV 2025 22:21:09 ** DPCHST ** DIAGNOSTICS PAGE 00112
3180
3181
3182 // VIF THU 20 NOV 2025 22:21:09 ** DPCHST ** GENERATED CODE PAGE 00113
3183
3184 real_8 _dpchst (real_8 _p_ arg1_, real_8 _p_ arg2_)
3185 { // ** body not listed **
3217 }
3218
3219 // VIF THU 20 NOV 2025 22:21:09 ** DPCHSW ** DPCHSW PAGE 00114
3220
3221 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3222 // S S U U B B R R O O U U T I NN N E
3223 // S U U B B R R O O U U T I N N N E
3224 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3225 // S U U B B R R O O U U T I N N N E
3226 // S S U U B B R R O O U U T I N NN E
3227 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3228
3229 // DDDDDD PPPPPP CCCCC H H SSSSS W W
3230 // D D P P C C H H S S W W
3231 // D D P P C H H S W W
3232 // D D PPPPPP C HHHHHHH SSSSS W W W
3233 // D D P C H H S W W W
3234 // D D P C C H H S S W W W
3235 // DDDDDD P CCCCC H H SSSSS WW WW
3236
3237
3238 // VIF THU 20 NOV 2025 22:21:09 ** DPCHSW ** DIAGNOSTICS PAGE 00115
3239
3240
3241 // VIF THU 20 NOV 2025 22:21:09 ** DPCHSW ** GENERATED CODE PAGE 00116
3242
3243 int_4 _dpchsw (real_8 _p_ dfmax_, int_4 _p_ iextrm_, real_8 _p_ d1_, real_8 _p_ d2_, real_8 _p_ h_, real_8 _p_ slope_,
3244 int_4 _p_ ierr_)
3245 { // ** body not listed **
3389 }
3390
3391 // VIF THU 20 NOV 2025 22:21:09 ** PCHBS ** PCHBS PAGE 00119
3392
3393 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3394 // S S U U B B R R O O U U T I NN N E
3395 // S U U B B R R O O U U T I N N N E
3396 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3397 // S U U B B R R O O U U T I N N N E
3398 // S S U U B B R R O O U U T I N NN E
3399 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3400
3401 // PPPPPP CCCCC H H BBBBBB SSSSS
3402 // P P C C H H B B S S
3403 // P P C H H B B S
3404 // PPPPPP C HHHHHHH BBBBBB SSSSS
3405 // P C H H B B S
3406 // P C C H H B B S S
3407 // P CCCCC H H BBBBBB SSSSS
3408
3409
3410 // VIF THU 20 NOV 2025 22:21:09 ** PCHBS ** DIAGNOSTICS PAGE 00120
3411
3412
3413 // VIF THU 20 NOV 2025 22:21:09 ** PCHBS ** GENERATED CODE PAGE 00121
3414
3415 int_4 _pchbs (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_ incfd_, int_4 _p_ knotyp_, int_4 _p_
3416 nknots_, real_4 _p_ t_, real_4 _p_ bcoef_, int_4 _p_ ndim_, int_4 _p_ kord_, int_4 _p_ ierr_)
3417 { // ** body not listed **
3454 }
3455
3456 // VIF THU 20 NOV 2025 22:21:09 ** PCHCE ** PCHCE PAGE 00122
3457
3458 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3459 // S S U U B B R R O O U U T I NN N E
3460 // S U U B B R R O O U U T I N N N E
3461 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3462 // S U U B B R R O O U U T I N N N E
3463 // S S U U B B R R O O U U T I N NN E
3464 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3465
3466 // PPPPPP CCCCC H H CCCCC EEEEEEE
3467 // P P C C H H C C E
3468 // P P C H H C E
3469 // PPPPPP C HHHHHHH C EEEEE
3470 // P C H H C E
3471 // P C C H H C C E
3472 // P CCCCC H H CCCCC EEEEEEE
3473
3474
3475 // VIF THU 20 NOV 2025 22:21:09 ** PCHCE ** DIAGNOSTICS PAGE 00123
3476
3477
3478 // VIF THU 20 NOV 2025 22:21:09 ** PCHCE ** GENERATED CODE PAGE 00124
3479
3480 int_4 _pchce (int_4 _p_ ic_, real_4 _p_ vc_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ h_, real_4 _p_ slope_, real_4 _p_
3481 d_, int_4 _p_ incfd_, int_4 _p_ ierr_)
3482 { // ** body not listed **
3642 }
3643
3644 // VIF THU 20 NOV 2025 22:21:09 ** PCHCI ** PCHCI PAGE 00128
3645
3646 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3647 // S S U U B B R R O O U U T I NN N E
3648 // S U U B B R R O O U U T I N N N E
3649 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3650 // S U U B B R R O O U U T I N N N E
3651 // S S U U B B R R O O U U T I N NN E
3652 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3653
3654 // PPPPPP CCCCC H H CCCCC III
3655 // P P C C H H C C I
3656 // P P C H H C I
3657 // PPPPPP C HHHHHHH C I
3658 // P C H H C I
3659 // P C C H H C C I
3660 // P CCCCC H H CCCCC III
3661
3662
3663 // VIF THU 20 NOV 2025 22:21:09 ** PCHCI ** DIAGNOSTICS PAGE 00129
3664
3665
3666 // VIF THU 20 NOV 2025 22:21:09 ** PCHCI ** GENERATED CODE PAGE 00130
3667
3668 int_4 _pchci (int_4 _p_ n_, real_4 _p_ h_, real_4 _p_ slope_, real_4 _p_ d_, int_4 _p_ incfd_)
3669 { // ** body not listed **
3757 }
3758
3759 // VIF THU 20 NOV 2025 22:21:09 ** PCHCM ** PCHCM PAGE 00132
3760
3761 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3762 // S S U U B B R R O O U U T I NN N E
3763 // S U U B B R R O O U U T I N N N E
3764 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3765 // S U U B B R R O O U U T I N N N E
3766 // S S U U B B R R O O U U T I N NN E
3767 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3768
3769 // PPPPPP CCCCC H H CCCCC M M
3770 // P P C C H H C C MM MM
3771 // P P C H H C M M M M
3772 // PPPPPP C HHHHHHH C M M M
3773 // P C H H C M M
3774 // P C C H H C C M M
3775 // P CCCCC H H CCCCC M M
3776
3777
3778 // VIF THU 20 NOV 2025 22:21:09 ** PCHCM ** DIAGNOSTICS PAGE 00133
3779
3780
3781 // VIF THU 20 NOV 2025 22:21:09 ** PCHCM ** GENERATED CODE PAGE 00134
3782
3783 int_4 _pchcm (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_ incfd_, logical_4 _p_ skip_, int_4
3784 _p_ ismon_, int_4 _p_ ierr_)
3785 { // ** body not listed **
3843 }
3844
3845 // VIF THU 20 NOV 2025 22:21:09 ** PCHCS ** PCHCS PAGE 00136
3846
3847 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3848 // S S U U B B R R O O U U T I NN N E
3849 // S U U B B R R O O U U T I N N N E
3850 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3851 // S U U B B R R O O U U T I N N N E
3852 // S S U U B B R R O O U U T I N NN E
3853 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3854
3855 // PPPPPP CCCCC H H CCCCC SSSSS
3856 // P P C C H H C C S S
3857 // P P C H H C S
3858 // PPPPPP C HHHHHHH C SSSSS
3859 // P C H H C S
3860 // P C C H H C C S S
3861 // P CCCCC H H CCCCC SSSSS
3862
3863
3864 // VIF THU 20 NOV 2025 22:21:09 ** PCHCS ** DIAGNOSTICS PAGE 00137
3865
3866
3867 // VIF THU 20 NOV 2025 22:21:09 ** PCHCS ** GENERATED CODE PAGE 00138
3868
3869 int_4 _pchcs (real_4 _p_ switch_, int_4 _p_ n_, real_4 _p_ h_, real_4 _p_ slope_, real_4 _p_ d_, int_4 _p_ incfd_,
3870 int_4 _p_ ierr_)
3871 { // ** body not listed **
4025 }
4026
4027 // VIF THU 20 NOV 2025 22:21:09 ** PCHDF ** PCHDF PAGE 00142
4028
4029 // RRRRRR EEEEEEE A L 4
4030 // R R E A A L * * 4 4
4031 // R R E A A L * * 4 4
4032 // RRRRRR EEEEE A A L ******* 4444444
4033 // R R E AAAAAAA L * * 4
4034 // R R E A A L * * 4
4035 // R R EEEEEEE A A LLLLLLL 4
4036
4037 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
4038 // F U U NN N C C T I O O NN N
4039 // F U U N N N C T I O O N N N
4040 // FFFFF U U N N N C T I O O N N N
4041 // F U U N N N C T I O O N N N
4042 // F U U N NN C C T I O O N NN
4043 // F UUUUU N N CCCCC T III OOOOO N N
4044
4045 // PPPPPP CCCCC H H DDDDDD FFFFFFF
4046 // P P C C H H D D F
4047 // P P C H H D D F
4048 // PPPPPP C HHHHHHH D D FFFFF
4049 // P C H H D D F
4050 // P C C H H D D F
4051 // P CCCCC H H DDDDDD F
4052
4053
4054 // VIF THU 20 NOV 2025 22:21:09 ** PCHDF ** DIAGNOSTICS PAGE 00143
4055
4056
4057 // VIF THU 20 NOV 2025 22:21:09 ** PCHDF ** GENERATED CODE PAGE 00144
4058
4059 real_4 _pchdf (int_4 _p_ k_, real_4 _p_ x_, real_4 _p_ s_, int_4 _p_ ierr_)
4060 { // ** body not listed **
4099 }
4100
4101 // VIF THU 20 NOV 2025 22:21:09 ** PCHDOC ** PCHDOC PAGE 00145
4102
4103 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4104 // S S U U B B R R O O U U T I NN N E
4105 // S U U B B R R O O U U T I N N N E
4106 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4107 // S U U B B R R O O U U T I N N N E
4108 // S S U U B B R R O O U U T I N NN E
4109 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4110
4111 // PPPPPP CCCCC H H DDDDDD OOOOO CCCCC
4112 // P P C C H H D D O O C C
4113 // P P C H H D D O O C
4114 // PPPPPP C HHHHHHH D D O O C
4115 // P C H H D D O O C
4116 // P C C H H D D O O C C
4117 // P CCCCC H H DDDDDD OOOOO CCCCC
4118
4119
4120 // VIF THU 20 NOV 2025 22:21:09 ** PCHDOC ** DIAGNOSTICS PAGE 00146
4121
4122
4123 // VIF THU 20 NOV 2025 22:21:09 ** PCHDOC ** GENERATED CODE PAGE 00147
4124
4125 int_4 _pchdoc (void)
4126 { // ** body not listed **
4129 }
4130
4131 // VIF THU 20 NOV 2025 22:21:09 ** PCHFD ** PCHFD PAGE 00148
4132
4133 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4134 // S S U U B B R R O O U U T I NN N E
4135 // S U U B B R R O O U U T I N N N E
4136 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4137 // S U U B B R R O O U U T I N N N E
4138 // S S U U B B R R O O U U T I N NN E
4139 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4140
4141 // PPPPPP CCCCC H H FFFFFFF DDDDDD
4142 // P P C C H H F D D
4143 // P P C H H F D D
4144 // PPPPPP C HHHHHHH FFFFF D D
4145 // P C H H F D D
4146 // P C C H H F D D
4147 // P CCCCC H H F DDDDDD
4148
4149
4150 // VIF THU 20 NOV 2025 22:21:09 ** PCHFD ** DIAGNOSTICS PAGE 00149
4151
4152
4153 // VIF THU 20 NOV 2025 22:21:09 ** PCHFD ** GENERATED CODE PAGE 00150
4154
4155 int_4 _pchfd (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_ incfd_, logical_4 _p_ skip_, int_4
4156 _p_ ne_, real_4 _p_ xe_, real_4 _p_ fe_, real_4 _p_ de_, int_4 _p_ ierr_)
4157 { // ** body not listed **
4278 }
4279
4280 // VIF THU 20 NOV 2025 22:21:09 ** PCHFE ** PCHFE PAGE 00153
4281
4282 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4283 // S S U U B B R R O O U U T I NN N E
4284 // S U U B B R R O O U U T I N N N E
4285 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4286 // S U U B B R R O O U U T I N N N E
4287 // S S U U B B R R O O U U T I N NN E
4288 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4289
4290 // PPPPPP CCCCC H H FFFFFFF EEEEEEE
4291 // P P C C H H F E
4292 // P P C H H F E
4293 // PPPPPP C HHHHHHH FFFFF EEEEE
4294 // P C H H F E
4295 // P C C H H F E
4296 // P CCCCC H H F EEEEEEE
4297
4298
4299 // VIF THU 20 NOV 2025 22:21:09 ** PCHFE ** DIAGNOSTICS PAGE 00154
4300
4301
4302 // VIF THU 20 NOV 2025 22:21:09 ** PCHFE ** GENERATED CODE PAGE 00155
4303
4304 int_4 _pchfe (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_ incfd_, logical_4 _p_ skip_, int_4
4305 _p_ ne_, real_4 _p_ xe_, real_4 _p_ fe_, int_4 _p_ ierr_)
4306 { // ** body not listed **
4427 }
4428
4429 // VIF THU 20 NOV 2025 22:21:09 ** PCHIA ** PCHIA PAGE 00158
4430
4431 // RRRRRR EEEEEEE A L 4
4432 // R R E A A L * * 4 4
4433 // R R E A A L * * 4 4
4434 // RRRRRR EEEEE A A L ******* 4444444
4435 // R R E AAAAAAA L * * 4
4436 // R R E A A L * * 4
4437 // R R EEEEEEE A A LLLLLLL 4
4438
4439 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
4440 // F U U NN N C C T I O O NN N
4441 // F U U N N N C T I O O N N N
4442 // FFFFF U U N N N C T I O O N N N
4443 // F U U N N N C T I O O N N N
4444 // F U U N NN C C T I O O N NN
4445 // F UUUUU N N CCCCC T III OOOOO N N
4446
4447 // PPPPPP CCCCC H H III A
4448 // P P C C H H I A A
4449 // P P C H H I A A
4450 // PPPPPP C HHHHHHH I A A
4451 // P C H H I AAAAAAA
4452 // P C C H H I A A
4453 // P CCCCC H H III A A
4454
4455
4456 // VIF THU 20 NOV 2025 22:21:09 ** PCHIA ** DIAGNOSTICS PAGE 00159
4457
4458
4459 // VIF THU 20 NOV 2025 22:21:09 ** PCHIA ** GENERATED CODE PAGE 00160
4460
4461 real_4 _pchia (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_ incfd_, logical_4 _p_ skip_, real_4
4462 _p_ a_, real_4 _p_ b_, int_4 _p_ ierr_)
4463 { // ** body not listed **
4583 }
4584
4585 // VIF THU 20 NOV 2025 22:21:09 ** PCHIC ** PCHIC PAGE 00163
4586
4587 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4588 // S S U U B B R R O O U U T I NN N E
4589 // S U U B B R R O O U U T I N N N E
4590 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4591 // S U U B B R R O O U U T I N N N E
4592 // S S U U B B R R O O U U T I N NN E
4593 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4594
4595 // PPPPPP CCCCC H H III CCCCC
4596 // P P C C H H I C C
4597 // P P C H H I C
4598 // PPPPPP C HHHHHHH I C
4599 // P C H H I C
4600 // P C C H H I C C
4601 // P CCCCC H H III CCCCC
4602
4603
4604 // VIF THU 20 NOV 2025 22:21:09 ** PCHIC ** DIAGNOSTICS PAGE 00164
4605
4606
4607 // VIF THU 20 NOV 2025 22:21:09 ** PCHIC ** GENERATED CODE PAGE 00165
4608
4609 int_4 _pchic (int_4 _p_ ic_, real_4 _p_ vc_, real_4 _p_ switch_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_
4610 d_, int_4 _p_ incfd_, real_4 _p_ wk_, int_4 _p_ nwk_, int_4 _p_ ierr_)
4611 { // ** body not listed **
4717 }
4718
4719 // VIF THU 20 NOV 2025 22:21:09 ** PCHID ** PCHID PAGE 00168
4720
4721 // RRRRRR EEEEEEE A L 4
4722 // R R E A A L * * 4 4
4723 // R R E A A L * * 4 4
4724 // RRRRRR EEEEE A A L ******* 4444444
4725 // R R E AAAAAAA L * * 4
4726 // R R E A A L * * 4
4727 // R R EEEEEEE A A LLLLLLL 4
4728
4729 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
4730 // F U U NN N C C T I O O NN N
4731 // F U U N N N C T I O O N N N
4732 // FFFFF U U N N N C T I O O N N N
4733 // F U U N N N C T I O O N N N
4734 // F U U N NN C C T I O O N NN
4735 // F UUUUU N N CCCCC T III OOOOO N N
4736
4737 // PPPPPP CCCCC H H III DDDDDD
4738 // P P C C H H I D D
4739 // P P C H H I D D
4740 // PPPPPP C HHHHHHH I D D
4741 // P C H H I D D
4742 // P C C H H I D D
4743 // P CCCCC H H III DDDDDD
4744
4745
4746 // VIF THU 20 NOV 2025 22:21:09 ** PCHID ** DIAGNOSTICS PAGE 00169
4747
4748
4749 // VIF THU 20 NOV 2025 22:21:09 ** PCHID ** GENERATED CODE PAGE 00170
4750
4751 real_4 _pchid (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_ incfd_, logical_4 _p_ skip_, int_4
4752 _p_ ia_, int_4 _p_ ib_, int_4 _p_ ierr_)
4753 { // ** body not listed **
4852 }
4853 // VIF THU 20 NOV 2025 22:21:09 ** PCHID ** GENERATED CODE PAGE 00172
4854
4855
4856 // VIF THU 20 NOV 2025 22:21:09 ** PCHIM ** PCHIM PAGE 00173
4857
4858 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4859 // S S U U B B R R O O U U T I NN N E
4860 // S U U B B R R O O U U T I N N N E
4861 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4862 // S U U B B R R O O U U T I N N N E
4863 // S S U U B B R R O O U U T I N NN E
4864 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4865
4866 // PPPPPP CCCCC H H III M M
4867 // P P C C H H I MM MM
4868 // P P C H H I M M M M
4869 // PPPPPP C HHHHHHH I M M M
4870 // P C H H I M M
4871 // P C C H H I M M
4872 // P CCCCC H H III M M
4873
4874
4875 // VIF THU 20 NOV 2025 22:21:09 ** PCHIM ** DIAGNOSTICS PAGE 00174
4876
4877
4878 // VIF THU 20 NOV 2025 22:21:09 ** PCHIM ** GENERATED CODE PAGE 00175
4879
4880 int_4 _pchim (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_ incfd_, int_4 _p_ ierr_)
4881 { // ** body not listed **
5021 }
5022
5023 // VIF THU 20 NOV 2025 22:21:09 ** PCHKT ** PCHKT PAGE 00178
5024
5025 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5026 // S S U U B B R R O O U U T I NN N E
5027 // S U U B B R R O O U U T I N N N E
5028 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5029 // S U U B B R R O O U U T I N N N E
5030 // S S U U B B R R O O U U T I N NN E
5031 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5032
5033 // PPPPPP CCCCC H H K K TTTTTTT
5034 // P P C C H H K K T
5035 // P P C H H K K T
5036 // PPPPPP C HHHHHHH KKK T
5037 // P C H H K K T
5038 // P C C H H K K T
5039 // P CCCCC H H K K T
5040
5041
5042 // VIF THU 20 NOV 2025 22:21:09 ** PCHKT ** DIAGNOSTICS PAGE 00179
5043
5044
5045 // VIF THU 20 NOV 2025 22:21:09 ** PCHKT ** GENERATED CODE PAGE 00180
5046
5047 int_4 _pchkt (int_4 _p_ n_, real_4 _p_ x_, int_4 _p_ knotyp_, real_4 _p_ t_)
5048 { // ** body not listed **
5076 }
5077
5078 // VIF THU 20 NOV 2025 22:21:09 ** PCHSP ** PCHSP PAGE 00181
5079
5080 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5081 // S S U U B B R R O O U U T I NN N E
5082 // S U U B B R R O O U U T I N N N E
5083 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5084 // S U U B B R R O O U U T I N N N E
5085 // S S U U B B R R O O U U T I N NN E
5086 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5087
5088 // PPPPPP CCCCC H H SSSSS PPPPPP
5089 // P P C C H H S S P P
5090 // P P C H H S P P
5091 // PPPPPP C HHHHHHH SSSSS PPPPPP
5092 // P C H H S P
5093 // P C C H H S S P
5094 // P CCCCC H H SSSSS P
5095
5096
5097 // VIF THU 20 NOV 2025 22:21:09 ** PCHSP ** DIAGNOSTICS PAGE 00182
5098
5099
5100 // VIF THU 20 NOV 2025 22:21:09 ** PCHSP ** GENERATED CODE PAGE 00183
5101
5102 int_4 _pchsp (int_4 _p_ ic_, real_4 _p_ vc_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ f_, real_4 _p_ d_, int_4 _p_
5103 incfd_, real_4 _p_ wk_, int_4 _p_ nwk_, int_4 _p_ ierr_)
5104 { // ** body not listed **
5355 }
5356
5357 // VIF THU 20 NOV 2025 22:21:09 ** PCHST ** PCHST PAGE 00188
5358
5359 // RRRRRR EEEEEEE A L 4
5360 // R R E A A L * * 4 4
5361 // R R E A A L * * 4 4
5362 // RRRRRR EEEEE A A L ******* 4444444
5363 // R R E AAAAAAA L * * 4
5364 // R R E A A L * * 4
5365 // R R EEEEEEE A A LLLLLLL 4
5366
5367 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
5368 // F U U NN N C C T I O O NN N
5369 // F U U N N N C T I O O N N N
5370 // FFFFF U U N N N C T I O O N N N
5371 // F U U N N N C T I O O N N N
5372 // F U U N NN C C T I O O N NN
5373 // F UUUUU N N CCCCC T III OOOOO N N
5374
5375 // PPPPPP CCCCC H H SSSSS TTTTTTT
5376 // P P C C H H S S T
5377 // P P C H H S T
5378 // PPPPPP C HHHHHHH SSSSS T
5379 // P C H H S T
5380 // P C C H H S S T
5381 // P CCCCC H H SSSSS T
5382
5383
5384 // VIF THU 20 NOV 2025 22:21:09 ** PCHST ** DIAGNOSTICS PAGE 00189
5385
5386
5387 // VIF THU 20 NOV 2025 22:21:09 ** PCHST ** GENERATED CODE PAGE 00190
5388
5389 real_4 _pchst (real_4 _p_ arg1_, real_4 _p_ arg2_)
5390 { // ** body not listed **
5422 }
5423
5424 // VIF THU 20 NOV 2025 22:21:09 ** PCHSW ** PCHSW PAGE 00191
5425
5426 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5427 // S S U U B B R R O O U U T I NN N E
5428 // S U U B B R R O O U U T I N N N E
5429 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5430 // S U U B B R R O O U U T I N N N E
5431 // S S U U B B R R O O U U T I N NN E
5432 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5433
5434 // PPPPPP CCCCC H H SSSSS W W
5435 // P P C C H H S S W W
5436 // P P C H H S W W
5437 // PPPPPP C HHHHHHH SSSSS W W W
5438 // P C H H S W W W
5439 // P C C H H S S W W W
5440 // P CCCCC H H SSSSS WW WW
5441
5442
5443 // VIF THU 20 NOV 2025 22:21:09 ** PCHSW ** DIAGNOSTICS PAGE 00192
5444
5445
5446 // VIF THU 20 NOV 2025 22:21:09 ** PCHSW ** GENERATED CODE PAGE 00193
5447
5448 int_4 _pchsw (real_4 _p_ dfmax_, int_4 _p_ iextrm_, real_4 _p_ d1_, real_4 _p_ d2_, real_4 _p_ h_, real_4 _p_ slope_,
5449 int_4 _p_ ierr_)
5450 { // ** body not listed **
5594 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
