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.10
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 };
119 _p_ iflag_);
121 _p_ b_);
125 ileft_, real_4 _p_ vnikx_, real_4 _p_ work_, int_4 _p_ iwork_);
127 _p_ iflag_);
129 _p_ b_);
132 ileft_, real_8 _p_ vnikx_, real_8 _p_ work_, int_4 _p_ iwork_);
134 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_
135 w_);
137 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
138 _p_ mode_, real_8 _p_ coeff_, real_8 _p_ w_, int_4 _p_ iw_);
140 mflag_);
143 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_
144 w_);
146 _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_
147 mode_, real_4 _p_ coeff_, real_4 _p_ w_, int_4 _p_ iw_);
149 mflag_);
152 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_)
153 { // ** body not listed **
223 }
224 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_)
225 { // ** body not listed **
266 }
267 int_4 _bspdoc (void)
268 { // ** body not listed **
271 }
272 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_)
273 { // ** body not listed **
322 }
323 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
324 _p_ vnikx_, real_4 _p_ work_, int_4 _p_ iwork_)
325 { // ** body not listed **
386 }
387 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_
388 )
389 { // ** body not listed **
459 }
460 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_)
461 { // ** body not listed **
502 }
503 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_)
504 { // ** body not listed **
553 }
554 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
555 _p_ vnikx_, real_8 _p_ work_, int_4 _p_ iwork_)
556 { // ** body not listed **
617 }
618 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_
619 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_)
620 { // ** body not listed **
635 }
636 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_
637 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_
638 , real_8 _p_ coeff_, real_8 _p_ w_, int_4 _p_ iw_)
639 { // ** body not listed **
656 }
657 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_)
658 { // ** body not listed **
742 }
743 real_8 _dpchdf (int_4 _p_ k_, real_8 _p_ x_, real_8 _p_ s_, int_4 _p_ ierr_)
744 { // ** body not listed **
782 }
783 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_
784 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_)
785 { // ** body not listed **
800 }
801 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_
802 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_
803 , real_4 _p_ coeff_, real_4 _p_ w_, int_4 _p_ iw_)
804 { // ** body not listed **
820 }
821 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_)
822 { // ** body not listed **
906 }
907 real_4 _pchdf (int_4 _p_ k_, real_4 _p_ x_, real_4 _p_ s_, int_4 _p_ ierr_)
908 { // ** body not listed **
946 }
947 int_4 _pchdoc (void)
948 { // ** body not listed **
951 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
