mathlib-slatec-pppack.c
1 //! @file mathlib-slatec-pppack.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 SLATEC-PPPACK
24
25 // Compiled from Fortran source code by VIF.
26
27 // Miscellaneous routines from SLATEC, not in other packages as BLAS,
28 // EISPACK, FISHPACK, FFTPACK, FNLIB, LINPACK etcetera.
29 //
30 // Source: netlib.org/slatec/
31 //
32 // For VIF, all source file have been formatted and labels have been renumbered.
33
34 // The license for SLATEC Fortran source code is:
35 //
36 // The SLATEC Common Mathematical Library was developed at
37 // US government research laboratories and is in the public domain.
38 //
39 // Repository: http://www.netlib.org/slatec/
40 //
41 // The SLATEC common mathematical library is issued by the following
42 //
43 // Air Force Weapons Laboratory, Albuquerque
44 // Lawrence Livermore National Laboratory, Livermore
45 // Los Alamos National Laboratory, Los Alamos
46 // National Institute of Standards and Technology, Washington
47 // National Energy Research Supercomputer Center, Livermore
48 // Oak Ridge National Laboratory, Oak Ridge
49 // Sandia National Laboratories, Albuquerque
50 // Sandia National Laboratories, Livermore
51 //
52 // All questions concerning the distribution of the library should be
53 // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
54 // Argonne, Illinois 60439, and not to the authors of the subprograms.
55 //
56 // * * * * * Notice * * * * *
57 //
58 // This material was prepared as an account of work sponsored by the
59 // United States Government. Neither the United States, nor the
60 // Department of Energy, nor the Department of Defense, nor any of
61 // their employees, nor any of their contractors, subcontractors, or
62 // their employees, makes any warranty, expressed or implied, or
63 // assumes any legal liability or responsibility for the accuracy,
64 // completeness, or usefulness of any information, apparatus, product,
65 // or process disclosed, or represents that its use would not infringe
66 // upon privately owned rights.
67
68 // VIF THU 20 NOV 2025 22:21:11 ** MARCEL ** SLATEC PPPACK PAGE 00001
69
70
71
72 // M M A RRRRRR CCCCC EEEEEEE L
73 // MM MM A A R R C C E L
74 // M M M M A A R R C E L
75 // M M M A A RRRRRR C EEEEE L
76 // M M AAAAAAA R R C E L
77 // M M A A R R C C E L
78 // M M A A R R CCCCC EEEEEEE LLLLLLL
79
80 // SSSSS L A TTTTTTT EEEEEEE CCCCC PPPPPP PPPPPP PPPPPP A CCCCC
81 // S S L A A T E C C P P P P P P A A C C
82 // S L A A T E C P P P P P P A A C
83 // SSSSS L A A T EEEEE C ***** PPPPPP PPPPPP PPPPPP A A C
84 // S L AAAAAAA T E C P P P AAAAAAA C
85 // S S L A A T E C C P P P A A C C
86 // SSSSS LLLLLLL A A T EEEEEEE CCCCC P P P A A CCCCC
87
88
89
90
91 // VIF THU 20 NOV 2025 22:21:11 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
92
93 // ** linker ** object size 65184 bytes
94 // ** statistics ** 18 subprograms, no errors, no warnings
95
96
97 // VIF THU 20 NOV 2025 22:21:11 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
98
99
100 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
101
102
103
104 // VIF THU 20 NOV 2025 22:21:11 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
105
106 /*
107 Generated by VIF - experimental VIntage Fortran compiler.
108 VIF release 1.4.1
109 */
110
111 #if defined (__GNUC__)
112 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
113 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
114 #if (__GNUC__ >= 14)
115 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
116 #pragma GCC diagnostic ignored "-Wimplicit-int"
117 #pragma GCC diagnostic ignored "-Wint-conversion"
118 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
119 #endif
120 #else
121 #error VIF requires GCC
122 #endif
123
124 #include <vif.h>
125
126 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
127
128
129 #define _dc_0 "slatec"
130 #define _dc_1 "bspdr"
131 #define _dc_2 "k does not satisfy k.ge.1"
132 #define _dc_3 "n does not satisfy n.ge.k"
133 #define _dc_4 "nderiv does not satisfy 1.le.nderiv.le.k"
134 #define _dc_5 "bspvn"
135 #define _dc_6 "jhigh does not satisfy 1.le.jhigh.le.k"
136 #define _dc_7 "index is not 1 or 2"
137 #define _dc_8 "x does not satisfy t(ileft).le.x.le.t(ileft+1)"
138 #define _dc_9 "dbspdr"
139 #define _dc_10 "dbspvn"
140 #define _dc_11 "dpchdf"
141 #define _dc_12 "k less than three"
142 #define _dc_13 "pchdf"
143
144
145
146 // VIF THU 20 NOV 2025 22:21:11 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00005
147
148 static FORMAT *__fmt_a = NULL;
149 typedef char char_7[8];
150 typedef char char_31[32];
151 typedef char char_63[64];
152
153
154 // VIF THU 20 NOV 2025 22:21:11 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00006
155
156 #define __ncalls 19
157 static CALLS __calls[__ncalls] = {
158 { // ** body not listed **"bnfac", 0}, // subroutine
160 { // ** body not listed **"bspdoc", 0}, // subroutine
162 { // ** body not listed **"bspvn", 0}, // subroutine
164 { // ** body not listed **"dbnslv", 0}, // subroutine
166 { // ** body not listed **"dbspvn", 0}, // subroutine
168 { // ** body not listed **"dfc", 0}, // subroutine
170 { // ** body not listed **"dpchdf", 0}, // real*8 function
172 { // ** body not listed **"fc", 0}, // subroutine
174 { // ** body not listed **"pchdf", 0}, // real*4 function
176 { // ** body not listed **NULL, 0}
177 };
260 { // ** body not listed **
332 }
333
334 // VIF THU 20 NOV 2025 22:21:11 ** BNSLV ** BNSLV PAGE 00013
335
336 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
337 // S S U U B B R R O O U U T I NN N E
338 // S U U B B R R O O U U T I N N N E
339 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
340 // S U U B B R R O O U U T I N N N E
341 // S S U U B B R R O O U U T I N NN E
342 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
343
344 // BBBBBB N N SSSSS L V V
345 // B B NN N S S L V V
346 // B B N N N S L V V
347 // BBBBBB N N N SSSSS L V V
348 // B B N N N S L V V
349 // B B N NN S S L V V
350 // BBBBBB N N SSSSS LLLLLLL V
351
352
353 // VIF THU 20 NOV 2025 22:21:11 ** BNSLV ** DIAGNOSTICS PAGE 00014
354
355
356 // VIF THU 20 NOV 2025 22:21:11 ** BNSLV ** GENERATED CODE PAGE 00015
357
358 int_4 _bnslv (real_4 _p_ w_, int_4 _p_ nroww_, int_4 _p_ nrow_, int_4 _p_ nbandl_, int_4 _p_ nbandu_, real_4 _p_ b_)
359 { // ** body not listed **
400 }
401
402 // VIF THU 20 NOV 2025 22:21:11 ** BSPDOC ** BSPDOC PAGE 00016
403
404 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
405 // S S U U B B R R O O U U T I NN N E
406 // S U U B B R R O O U U T I N N N E
407 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
408 // S U U B B R R O O U U T I N N N E
409 // S S U U B B R R O O U U T I N NN E
410 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
411
412 // BBBBBB SSSSS PPPPPP DDDDDD OOOOO CCCCC
413 // B B S S P P D D O O C C
414 // B B S P P D D O O C
415 // BBBBBB SSSSS PPPPPP D D O O C
416 // B B S P D D O O C
417 // B B S S P D D O O C C
418 // BBBBBB SSSSS P DDDDDD OOOOO CCCCC
419
420
421 // VIF THU 20 NOV 2025 22:21:11 ** BSPDOC ** DIAGNOSTICS PAGE 00017
422
423
424 // VIF THU 20 NOV 2025 22:21:11 ** BSPDOC ** GENERATED CODE PAGE 00018
425
426 int_4 _bspdoc (void)
427 { // ** body not listed **
430 }
431
432 // VIF THU 20 NOV 2025 22:21:11 ** BSPDR ** BSPDR PAGE 00019
433
434 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
435 // S S U U B B R R O O U U T I NN N E
436 // S U U B B R R O O U U T I N N N E
437 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
438 // S U U B B R R O O U U T I N N N E
439 // S S U U B B R R O O U U T I N NN E
440 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
441
442 // BBBBBB SSSSS PPPPPP DDDDDD RRRRRR
443 // B B S S P P D D R R
444 // B B S P P D D R R
445 // BBBBBB SSSSS PPPPPP D D RRRRRR
446 // B B S P D D R R
447 // B B S S P D D R R
448 // BBBBBB SSSSS P DDDDDD R R
449
450
451 // VIF THU 20 NOV 2025 22:21:11 ** BSPDR ** DIAGNOSTICS PAGE 00020
452
453
454 // VIF THU 20 NOV 2025 22:21:11 ** BSPDR ** GENERATED CODE PAGE 00021
455
456 int_4 _bspdr (real_4 _p_ t_, real_4 _p_ a_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ nderiv_, real_4 _p_ ad_)
457 { // ** body not listed **
508 }
509
510 // VIF THU 20 NOV 2025 22:21:11 ** BSPVN ** BSPVN PAGE 00023
511
512 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
513 // S S U U B B R R O O U U T I NN N E
514 // S U U B B R R O O U U T I N N N E
515 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
516 // S U U B B R R O O U U T I N N N E
517 // S S U U B B R R O O U U T I N NN E
518 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
519
520 // BBBBBB SSSSS PPPPPP V V N N
521 // B B S S P P V V NN N
522 // B B S P P V V N N N
523 // BBBBBB SSSSS PPPPPP V V N N N
524 // B B S P V V N N N
525 // B B S S P V V N NN
526 // BBBBBB SSSSS P V N N
527
528
529 // VIF THU 20 NOV 2025 22:21:11 ** BSPVN ** DIAGNOSTICS PAGE 00024
530
531
532 // VIF THU 20 NOV 2025 22:21:11 ** BSPVN ** GENERATED CODE PAGE 00025
533
534 int_4 _bspvn (real_4 _p_ t_, int_4 _p_ jhigh_, int_4 _p_ k_, int_4 _p_ index_, real_4 _p_ x_, int_4 _p_ ileft_, real_4
535 _p_ vnikx_, real_4 _p_ work_, int_4 _p_ iwork_)
536 { // ** body not listed **
599 }
600
601 // VIF THU 20 NOV 2025 22:21:11 ** DBNFAC ** DBNFAC PAGE 00027
602
603 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
604 // S S U U B B R R O O U U T I NN N E
605 // S U U B B R R O O U U T I N N N E
606 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
607 // S U U B B R R O O U U T I N N N E
608 // S S U U B B R R O O U U T I N NN E
609 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
610
611 // DDDDDD BBBBBB N N FFFFFFF A CCCCC
612 // D D B B NN N F A A C C
613 // D D B B N N N F A A C
614 // D D BBBBBB N N N FFFFF A A C
615 // D D B B N N N F AAAAAAA C
616 // D D B B N NN F A A C C
617 // DDDDDD BBBBBB N N F A A CCCCC
618
619
620 // VIF THU 20 NOV 2025 22:21:11 ** DBNFAC ** DIAGNOSTICS PAGE 00028
621
622
623 // VIF THU 20 NOV 2025 22:21:11 ** DBNFAC ** GENERATED CODE PAGE 00029
624
625 int_4 _dbnfac (real_8 _p_ w_, int_4 _p_ nroww_, int_4 _p_ nrow_, int_4 _p_ nbandl_, int_4 _p_ nbandu_, int_4 _p_ iflag_
626 )
627 { // ** body not listed **
699 }
700
701 // VIF THU 20 NOV 2025 22:21:11 ** DBNSLV ** DBNSLV PAGE 00031
702
703 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
704 // S S U U B B R R O O U U T I NN N E
705 // S U U B B R R O O U U T I N N N E
706 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
707 // S U U B B R R O O U U T I N N N E
708 // S S U U B B R R O O U U T I N NN E
709 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
710
711 // DDDDDD BBBBBB N N SSSSS L V V
712 // D D B B NN N S S L V V
713 // D D B B N N N S L V V
714 // D D BBBBBB N N N SSSSS L V V
715 // D D B B N N N S L V V
716 // D D B B N NN S S L V V
717 // DDDDDD BBBBBB N N SSSSS LLLLLLL V
718
719
720 // VIF THU 20 NOV 2025 22:21:11 ** DBNSLV ** DIAGNOSTICS PAGE 00032
721
722
723 // VIF THU 20 NOV 2025 22:21:11 ** DBNSLV ** GENERATED CODE PAGE 00033
724
725 int_4 _dbnslv (real_8 _p_ w_, int_4 _p_ nroww_, int_4 _p_ nrow_, int_4 _p_ nbandl_, int_4 _p_ nbandu_, real_8 _p_ b_)
726 { // ** body not listed **
767 }
768
769 // VIF THU 20 NOV 2025 22:21:11 ** DBSPDR ** DBSPDR PAGE 00034
770
771 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
772 // S S U U B B R R O O U U T I NN N E
773 // S U U B B R R O O U U T I N N N E
774 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
775 // S U U B B R R O O U U T I N N N E
776 // S S U U B B R R O O U U T I N NN E
777 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
778
779 // DDDDDD BBBBBB SSSSS PPPPPP DDDDDD RRRRRR
780 // D D B B S S P P D D R R
781 // D D B B S P P D D R R
782 // D D BBBBBB SSSSS PPPPPP D D RRRRRR
783 // D D B B S P D D R R
784 // D D B B S S P D D R R
785 // DDDDDD BBBBBB SSSSS P DDDDDD R R
786
787
788 // VIF THU 20 NOV 2025 22:21:11 ** DBSPDR ** DIAGNOSTICS PAGE 00035
789
790
791 // VIF THU 20 NOV 2025 22:21:11 ** DBSPDR ** GENERATED CODE PAGE 00036
792
793 int_4 _dbspdr (real_8 _p_ t_, real_8 _p_ a_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ nderiv_, real_8 _p_ ad_)
794 { // ** body not listed **
845 }
846
847 // VIF THU 20 NOV 2025 22:21:11 ** DBSPVN ** DBSPVN PAGE 00038
848
849 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
850 // S S U U B B R R O O U U T I NN N E
851 // S U U B B R R O O U U T I N N N E
852 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
853 // S U U B B R R O O U U T I N N N E
854 // S S U U B B R R O O U U T I N NN E
855 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
856
857 // DDDDDD BBBBBB SSSSS PPPPPP V V N N
858 // D D B B S S P P V V NN N
859 // D D B B S P P V V N N N
860 // D D BBBBBB SSSSS PPPPPP V V N N N
861 // D D B B S P V V N N N
862 // D D B B S S P V V N NN
863 // DDDDDD BBBBBB SSSSS P V N N
864
865
866 // VIF THU 20 NOV 2025 22:21:11 ** DBSPVN ** DIAGNOSTICS PAGE 00039
867
868
869 // VIF THU 20 NOV 2025 22:21:11 ** DBSPVN ** GENERATED CODE PAGE 00040
870
871 int_4 _dbspvn (real_8 _p_ t_, int_4 _p_ jhigh_, int_4 _p_ k_, int_4 _p_ index_, real_8 _p_ x_, int_4 _p_ ileft_, real_8
872 _p_ vnikx_, real_8 _p_ work_, int_4 _p_ iwork_)
873 { // ** body not listed **
936 }
937
938 // VIF THU 20 NOV 2025 22:21:11 ** DEFC ** DEFC PAGE 00042
939
940 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
941 // S S U U B B R R O O U U T I NN N E
942 // S U U B B R R O O U U T I N N N E
943 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
944 // S U U B B R R O O U U T I N N N E
945 // S S U U B B R R O O U U T I N NN E
946 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
947
948 // DDDDDD EEEEEEE FFFFFFF CCCCC
949 // D D E F C C
950 // D D E F C
951 // D D EEEEE FFFFF C
952 // D D E F C
953 // D D E F C C
954 // DDDDDD EEEEEEE F CCCCC
955
956
957 // VIF THU 20 NOV 2025 22:21:11 ** DEFC ** DIAGNOSTICS PAGE 00043
958
959
960 // VIF THU 20 NOV 2025 22:21:11 ** DEFC ** GENERATED CODE PAGE 00044
961
962 int_4 _defc (int_4 _p_ ndata_, real_8 _p_ xdata_, real_8 _p_ ydata_, real_8 _p_ sddata_, int_4 _p_ nord_, int_4 _p_
963 nbkpt_, real_8 _p_ bkpt_, int_4 _p_ mdein_, int_4 _p_ mdeout_, real_8 _p_ coeff_, int_4 _p_ lw_, real_8 _p_ w_)
964 { // ** body not listed **
979 }
980
981 // VIF THU 20 NOV 2025 22:21:11 ** DFC ** DFC PAGE 00045
982
983 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
984 // S S U U B B R R O O U U T I NN N E
985 // S U U B B R R O O U U T I N N N E
986 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
987 // S U U B B R R O O U U T I N N N E
988 // S S U U B B R R O O U U T I N NN E
989 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
990
991 // DDDDDD FFFFFFF CCCCC
992 // D D F C C
993 // D D F C
994 // D D FFFFF C
995 // D D F C
996 // D D F C C
997 // DDDDDD F CCCCC
998
999
1000 // VIF THU 20 NOV 2025 22:21:11 ** DFC ** DIAGNOSTICS PAGE 00046
1001
1002
1003 // VIF THU 20 NOV 2025 22:21:11 ** DFC ** GENERATED CODE PAGE 00047
1004
1005 int_4 _dfc (int_4 _p_ ndata_, real_8 _p_ xdata_, real_8 _p_ ydata_, real_8 _p_ sddata_, int_4 _p_ nord_, int_4 _p_
1006 nbkpt_, real_8 _p_ bkpt_, int_4 _p_ nconst_, real_8 _p_ xconst_, real_8 _p_ yconst_, int_4 _p_ nderiv_, int_4 _p_ mode_
1007 , real_8 _p_ coeff_, real_8 _p_ w_, int_4 _p_ iw_)
1008 { // ** body not listed **
1025 }
1026
1027 // VIF THU 20 NOV 2025 22:21:11 ** DINTRV ** DINTRV PAGE 00048
1028
1029 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1030 // S S U U B B R R O O U U T I NN N E
1031 // S U U B B R R O O U U T I N N N E
1032 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1033 // S U U B B R R O O U U T I N N N E
1034 // S S U U B B R R O O U U T I N NN E
1035 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1036
1037 // DDDDDD III N N TTTTTTT RRRRRR V V
1038 // D D I NN N T R R V V
1039 // D D I N N N T R R V V
1040 // D D I N N N T RRRRRR V V
1041 // D D I N N N T R R V V
1042 // D D I N NN T R R V V
1043 // DDDDDD III N N T R R V
1044
1045
1046 // VIF THU 20 NOV 2025 22:21:11 ** DINTRV ** DIAGNOSTICS PAGE 00049
1047
1048
1049 // VIF THU 20 NOV 2025 22:21:11 ** DINTRV ** GENERATED CODE PAGE 00050
1050
1051 int_4 _dintrv (real_8 _p_ xt_, int_4 _p_ lxt_, real_8 _p_ x_, int_4 _p_ ilo_, int_4 _p_ ileft_, int_4 _p_ mflag_)
1052 { // ** body not listed **
1138 }
1139
1140 // VIF THU 20 NOV 2025 22:21:11 ** DPCHDF ** DPCHDF PAGE 00052
1141
1142 // RRRRRR EEEEEEE A L 88888
1143 // R R E A A L * * 8 8
1144 // R R E A A L * * 8 8
1145 // RRRRRR EEEEE A A L ******* 88888
1146 // R R E AAAAAAA L * * 8 8
1147 // R R E A A L * * 8 8
1148 // R R EEEEEEE A A LLLLLLL 88888
1149
1150 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
1151 // F U U NN N C C T I O O NN N
1152 // F U U N N N C T I O O N N N
1153 // FFFFF U U N N N C T I O O N N N
1154 // F U U N N N C T I O O N N N
1155 // F U U N NN C C T I O O N NN
1156 // F UUUUU N N CCCCC T III OOOOO N N
1157
1158 // DDDDDD PPPPPP CCCCC H H DDDDDD FFFFFFF
1159 // D D P P C C H H D D F
1160 // D D P P C H H D D F
1161 // D D PPPPPP C HHHHHHH D D FFFFF
1162 // D D P C H H D D F
1163 // D D P C C H H D D F
1164 // DDDDDD P CCCCC H H DDDDDD F
1165
1166
1167 // VIF THU 20 NOV 2025 22:21:11 ** DPCHDF ** DIAGNOSTICS PAGE 00053
1168
1169
1170 // VIF THU 20 NOV 2025 22:21:11 ** DPCHDF ** GENERATED CODE PAGE 00054
1171
1172 real_8 _dpchdf (int_4 _p_ k_, real_8 _p_ x_, real_8 _p_ s_, int_4 _p_ ierr_)
1173 { // ** body not listed **
1212 }
1213
1214 // VIF THU 20 NOV 2025 22:21:11 ** EFC ** EFC PAGE 00055
1215
1216 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1217 // S S U U B B R R O O U U T I NN N E
1218 // S U U B B R R O O U U T I N N N E
1219 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1220 // S U U B B R R O O U U T I N N N E
1221 // S S U U B B R R O O U U T I N NN E
1222 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1223
1224 // EEEEEEE FFFFFFF CCCCC
1225 // E F C C
1226 // E F C
1227 // EEEEE FFFFF C
1228 // E F C
1229 // E F C C
1230 // EEEEEEE F CCCCC
1231
1232
1233 // VIF THU 20 NOV 2025 22:21:11 ** EFC ** DIAGNOSTICS PAGE 00056
1234
1235
1236 // VIF THU 20 NOV 2025 22:21:11 ** EFC ** GENERATED CODE PAGE 00057
1237
1238 int_4 _efc (int_4 _p_ ndata_, real_4 _p_ xdata_, real_4 _p_ ydata_, real_4 _p_ sddata_, int_4 _p_ nord_, int_4 _p_
1239 nbkpt_, real_4 _p_ bkpt_, int_4 _p_ mdein_, int_4 _p_ mdeout_, real_4 _p_ coeff_, int_4 _p_ lw_, real_4 _p_ w_)
1240 { // ** body not listed **
1255 }
1256
1257 // VIF THU 20 NOV 2025 22:21:11 ** FC ** FC PAGE 00058
1258
1259 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1260 // S S U U B B R R O O U U T I NN N E
1261 // S U U B B R R O O U U T I N N N E
1262 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1263 // S U U B B R R O O U U T I N N N E
1264 // S S U U B B R R O O U U T I N NN E
1265 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1266
1267 // FFFFFFF CCCCC
1268 // F C C
1269 // F C
1270 // FFFFF C
1271 // F C
1272 // F C C
1273 // F CCCCC
1274
1275
1276 // VIF THU 20 NOV 2025 22:21:11 ** FC ** DIAGNOSTICS PAGE 00059
1277
1278
1279 // VIF THU 20 NOV 2025 22:21:11 ** FC ** GENERATED CODE PAGE 00060
1280
1281 int_4 _fc (int_4 _p_ ndata_, real_4 _p_ xdata_, real_4 _p_ ydata_, real_4 _p_ sddata_, int_4 _p_ nord_, int_4 _p_
1282 nbkpt_, real_4 _p_ bkpt_, int_4 _p_ nconst_, real_4 _p_ xconst_, real_4 _p_ yconst_, int_4 _p_ nderiv_, int_4 _p_ mode_
1283 , real_4 _p_ coeff_, real_4 _p_ w_, int_4 _p_ iw_)
1284 { // ** body not listed **
1300 }
1301
1302 // VIF THU 20 NOV 2025 22:21:11 ** INTRV ** INTRV PAGE 00061
1303
1304 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1305 // S S U U B B R R O O U U T I NN N E
1306 // S U U B B R R O O U U T I N N N E
1307 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1308 // S U U B B R R O O U U T I N N N E
1309 // S S U U B B R R O O U U T I N NN E
1310 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1311
1312 // III N N TTTTTTT RRRRRR V V
1313 // I NN N T R R V V
1314 // I N N N T R R V V
1315 // I N N N T RRRRRR V V
1316 // I N N N T R R V V
1317 // I N NN T R R V V
1318 // III N N T R R V
1319
1320
1321 // VIF THU 20 NOV 2025 22:21:11 ** INTRV ** DIAGNOSTICS PAGE 00062
1322
1323
1324 // VIF THU 20 NOV 2025 22:21:11 ** INTRV ** GENERATED CODE PAGE 00063
1325
1326 int_4 _intrv (real_4 _p_ xt_, int_4 _p_ lxt_, real_4 _p_ x_, int_4 _p_ ilo_, int_4 _p_ ileft_, int_4 _p_ mflag_)
1327 { // ** body not listed **
1413 }
1414
1415 // VIF THU 20 NOV 2025 22:21:11 ** PCHDF ** PCHDF PAGE 00065
1416
1417 // RRRRRR EEEEEEE A L 4
1418 // R R E A A L * * 4 4
1419 // R R E A A L * * 4 4
1420 // RRRRRR EEEEE A A L ******* 4444444
1421 // R R E AAAAAAA L * * 4
1422 // R R E A A L * * 4
1423 // R R EEEEEEE A A LLLLLLL 4
1424
1425 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
1426 // F U U NN N C C T I O O NN N
1427 // F U U N N N C T I O O N N N
1428 // FFFFF U U N N N C T I O O N N N
1429 // F U U N N N C T I O O N N N
1430 // F U U N NN C C T I O O N NN
1431 // F UUUUU N N CCCCC T III OOOOO N N
1432
1433 // PPPPPP CCCCC H H DDDDDD FFFFFFF
1434 // P P C C H H D D F
1435 // P P C H H D D F
1436 // PPPPPP C HHHHHHH D D FFFFF
1437 // P C H H D D F
1438 // P C C H H D D F
1439 // P CCCCC H H DDDDDD F
1440
1441
1442 // VIF THU 20 NOV 2025 22:21:11 ** PCHDF ** DIAGNOSTICS PAGE 00066
1443
1444
1445 // VIF THU 20 NOV 2025 22:21:11 ** PCHDF ** GENERATED CODE PAGE 00067
1446
1447 real_4 _pchdf (int_4 _p_ k_, real_4 _p_ x_, real_4 _p_ s_, int_4 _p_ ierr_)
1448 { // ** body not listed **
1487 }
1488
1489 // VIF THU 20 NOV 2025 22:21:11 ** PCHDOC ** PCHDOC PAGE 00068
1490
1491 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1492 // S S U U B B R R O O U U T I NN N E
1493 // S U U B B R R O O U U T I N N N E
1494 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1495 // S U U B B R R O O U U T I N N N E
1496 // S S U U B B R R O O U U T I N NN E
1497 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1498
1499 // PPPPPP CCCCC H H DDDDDD OOOOO CCCCC
1500 // P P C C H H D D O O C C
1501 // P P C H H D D O O C
1502 // PPPPPP C HHHHHHH D D O O C
1503 // P C H H D D O O C
1504 // P C C H H D D O O C C
1505 // P CCCCC H H DDDDDD OOOOO CCCCC
1506
1507
1508 // VIF THU 20 NOV 2025 22:21:11 ** PCHDOC ** DIAGNOSTICS PAGE 00069
1509
1510
1511 // VIF THU 20 NOV 2025 22:21:11 ** PCHDOC ** GENERATED CODE PAGE 00070
1512
1513 int_4 _pchdoc (void)
1514 { // ** body not listed **
1517 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
