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 //! 18 subprograms from SLATEC-PPPACK
24
25 // Compiled from Fortran source code by VIF.
26 // Selected subprograms are:
27 //
28 // BNFAC BSPDOC BSPVN DBNSLV DBSPVN DFC DPCHDF FC PCHDF PCHDOC
29 // BNSLV BSPDR DBNFAC DBSPDR DEFC DINTRV EFC INTRV
30
31 // Miscellaneous routines from SLATEC, not in other packages as BLAS,
32 // EISPACK, FISHPACK, FFTPACK, FNLIB, LINPACK etcetera.
33 //
34 // Source: netlib.org/slatec/
35 //
36 // For VIF, all source file have been formatted and labels have been renumbered.
37
38 // The license for SLATEC Fortran source code is:
39 //
40 // The SLATEC Common Mathematical Library was developed at
41 // US government research laboratories and is in the public domain.
42 //
43 // Repository: http://www.netlib.org/slatec/
44 //
45 // The SLATEC common mathematical library is issued by the following
46 //
47 // Air Force Weapons Laboratory, Albuquerque
48 // Lawrence Livermore National Laboratory, Livermore
49 // Los Alamos National Laboratory, Los Alamos
50 // National Institute of Standards and Technology, Washington
51 // National Energy Research Supercomputer Center, Livermore
52 // Oak Ridge National Laboratory, Oak Ridge
53 // Sandia National Laboratories, Albuquerque
54 // Sandia National Laboratories, Livermore
55 //
56 // All questions concerning the distribution of the library should be
57 // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
58 // Argonne, Illinois 60439, and not to the authors of the subprograms.
59 //
60 // * * * * * Notice * * * * *
61 //
62 // This material was prepared as an account of work sponsored by the
63 // United States Government. Neither the United States, nor the
64 // Department of Energy, nor the Department of Defense, nor any of
65 // their employees, nor any of their contractors, subcontractors, or
66 // their employees, makes any warranty, expressed or implied, or
67 // assumes any legal liability or responsibility for the accuracy,
68 // completeness, or usefulness of any information, apparatus, product,
69 // or process disclosed, or represents that its use would not infringe
70 // upon privately owned rights.
71
72 /*
73 Generated by VIF - experimental VIntage Fortran compiler.
74 VIF release 1.2.12
75 */
97 static CALLS __calls[__ncalls] = {
98 {"bnfac", 0}, // subroutine
99 {"bnslv", 0}, // subroutine
100 {"bspdoc", 0}, // subroutine
101 {"bspdr", 0}, // subroutine
102 {"bspvn", 0}, // subroutine
103 {"dbnfac", 0}, // subroutine
104 {"dbnslv", 0}, // subroutine
105 {"dbspdr", 0}, // subroutine
106 {"dbspvn", 0}, // subroutine
107 {"defc", 0}, // subroutine
108 {"dfc", 0}, // subroutine
109 {"dintrv", 0}, // subroutine
110 {"dpchdf", 0}, // real*8 function
111 {"efc", 0}, // subroutine
112 {"fc", 0}, // subroutine
113 {"intrv", 0}, // subroutine
114 {"pchdf", 0}, // real*4 function
115 {"pchdoc", 0}, // subroutine
116 {NULL, 0}
117 };
118
120 _p_ iflag_);
122 _p_ b_);
126 ileft_, real_4 _p_ vnikx_, real_4 _p_ work_, int_4 _p_ iwork_);
128 _p_ iflag_);
130 _p_ b_);
133 ileft_, real_8 _p_ vnikx_, real_8 _p_ work_, int_4 _p_ iwork_);
135 int_4 _p_ nbkpt_, real_8 _p_ bkpt_, int_4 _p_ mdein_, int_4 _p_ mdeout_, real_8 _p_ coeff_, int_4 _p_ lw_, real_8 _p_
136 w_);
138 int_4 _p_ nbkpt_, real_8 _p_ bkpt_, int_4 _p_ nconst_, real_8 _p_ xconst_, real_8 _p_ yconst_, int_4 _p_ nderiv_, int_4
139 _p_ mode_, real_8 _p_ coeff_, real_8 _p_ w_, int_4 _p_ iw_);
141 mflag_);
144 int_4 _p_ nbkpt_, real_4 _p_ bkpt_, int_4 _p_ mdein_, int_4 _p_ mdeout_, real_4 _p_ coeff_, int_4 _p_ lw_, real_4 _p_
145 w_);
147 _p_ nbkpt_, real_4 _p_ bkpt_, int_4 _p_ nconst_, real_4 _p_ xconst_, real_4 _p_ yconst_, int_4 _p_ nderiv_, int_4 _p_
148 mode_, real_4 _p_ coeff_, real_4 _p_ w_, int_4 _p_ iw_);
150 mflag_);
153 int_4 _bnfac (real_4 _p_ w_, int_4 _p_ nroww_, int_4 _p_ nrow_, int_4 _p_ nbandl_, int_4 _p_ nbandu_, int_4 _p_ iflag_)
154 { // ** body not listed **
224 }
225
226 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_)
227 { // ** body not listed **
268 }
269
270 int_4 _bspdoc (void)
271 { // ** body not listed **
274 }
275
276 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_)
277 { // ** body not listed **
326 }
327
328 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
329 _p_ vnikx_, real_4 _p_ work_, int_4 _p_ iwork_)
330 { // ** body not listed **
391 }
392
393 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_
394 )
395 { // ** body not listed **
465 }
466
467 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_)
468 { // ** body not listed **
509 }
510
511 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_)
512 { // ** body not listed **
561 }
562
563 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
564 _p_ vnikx_, real_8 _p_ work_, int_4 _p_ iwork_)
565 { // ** body not listed **
626 }
627
628 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_
629 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_)
630 { // ** body not listed **
645 }
646
647 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_
648 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_
649 , real_8 _p_ coeff_, real_8 _p_ w_, int_4 _p_ iw_)
650 { // ** body not listed **
667 }
668
669 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_)
670 { // ** body not listed **
754 }
755
756 real_8 _dpchdf (int_4 _p_ k_, real_8 _p_ x_, real_8 _p_ s_, int_4 _p_ ierr_)
757 { // ** body not listed **
795 }
796
797 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_
798 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_)
799 { // ** body not listed **
814 }
815
816 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_
817 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_
818 , real_4 _p_ coeff_, real_4 _p_ w_, int_4 _p_ iw_)
819 { // ** body not listed **
835 }
836
837 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_)
838 { // ** body not listed **
922 }
923
924 real_4 _pchdf (int_4 _p_ k_, real_4 _p_ x_, real_4 _p_ s_, int_4 _p_ ierr_)
925 { // ** body not listed **
963 }
964
965 int_4 _pchdoc (void)
966 { // ** body not listed **
969 }
970
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
