mathlib-slatec-depac.c
1 //! @file mathlib-slatec-depac.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 //! 8 subprograms from SLATEC-DEPAC
24
25 // Compiled from Fortran source code by VIF.
26 // Selected subprograms are:
27 //
28 // DDEABM DDERKF DEABM DERKF DINTP DSTEPS SINTRP STEPS
29
30 // The license for SLATEC Fortran source code is:
31 //
32 // The SLATEC Common Mathematical Library was developed at
33 // US government research laboratories and is in the public domain.
34 //
35 // Repository: http://www.netlib.org/slatec/
36 //
37 // The SLATEC common mathematical library is issued by the following
38 //
39 // Air Force Weapons Laboratory, Albuquerque
40 // Lawrence Livermore National Laboratory, Livermore
41 // Los Alamos National Laboratory, Los Alamos
42 // National Institute of Standards and Technology, Washington
43 // National Energy Research Supercomputer Center, Livermore
44 // Oak Ridge National Laboratory, Oak Ridge
45 // Sandia National Laboratories, Albuquerque
46 // Sandia National Laboratories, Livermore
47 //
48 // All questions concerning the distribution of the library should be
49 // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
50 // Argonne, Illinois 60439, and not to the authors of the subprograms.
51 //
52 // * * * * * Notice * * * * *
53 //
54 // This material was prepared as an account of work sponsored by the
55 // United States Government. Neither the United States, nor the
56 // Department of Energy, nor the Department of Defense, nor any of
57 // their employees, nor any of their contractors, subcontractors, or
58 // their employees, makes any warranty, expressed or implied, or
59 // assumes any legal liability or responsibility for the accuracy,
60 // completeness, or usefulness of any information, apparatus, product,
61 // or process disclosed, or represents that its use would not infringe
62 // upon privately owned rights.
63
64 /*
65 Generated by VIF - experimental VIntage Fortran compiler.
66 VIF release 1.2.12
67 */
107 static CALLS __calls[__ncalls] = {
108 {"ddeabm", 0}, // subroutine
109 {"dderkf", 0}, // subroutine
110 {"deabm", 0}, // subroutine
111 {"derkf", 0}, // subroutine
112 {"dintp", 0}, // subroutine
113 {"dsteps", 0}, // subroutine
114 {"sintrp", 0}, // subroutine
115 {"steps", 0}, // subroutine
116 {NULL, 0}
117 };
118
120 info_, real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ idid_, real_8 _p_ rwork_, int_4 _p_ lrw_, int_4 _p_ iwork_, int_4
121 _p_ liw_, real_8 _p_ rpar_, int_4 _p_ ipar_);
123 info_, real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ idid_, real_8 _p_ rwork_, int_4 _p_ lrw_, int_4 _p_ iwork_, int_4
124 _p_ liw_, real_8 _p_ rpar_, int_4 _p_ ipar_);
126 , real_4 _p_ rtol_, real_4 _p_ atol_, int_4 _p_ idid_, real_4 _p_ rwork_, int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_
127 liw_, real_4 _p_ rpar_, int_4 _p_ ipar_);
129 , real_4 _p_ rtol_, real_4 _p_ atol_, int_4 _p_ idid_, real_4 _p_ rwork_, int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_
130 liw_, real_4 _p_ rpar_, int_4 _p_ ipar_);
132 neqn_, int_4 _p_ kold_, real_8 _p_ phi_, int_4 _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_8 _p_ gi_, real_8 _p_
133 alpha_, real_8 _p_ og_, real_8 _p_ ow_, real_8 _p_ ox_, real_8 _p_ oy_);
135 real_8 _p_ wt_, logical_4 _p_ start_, real_8 _p_ hold_, int_4 _p_ k_, int_4 _p_ kold_, logical_4 _p_ crash_, real_8 _p_
136 phi_, real_8 _p_ p_, real_8 _p_ yp_, real_8 _p_ psi_, real_8 _p_ alpha_, real_8 _p_ beta_, real_8 _p_ sig_, real_8 _p_
137 v_, real_8 _p_ w_, real_8 _p_ g_, logical_4 _p_ phase1_, int_4 _p_ ns_, logical_4 _p_ nornd_, int_4 _p_ ksteps_, real_8
138 _p_ twou_, real_8 _p_ fouru_, real_8 _p_ xold_, int_4 _p_ kprev_, int_4 _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_8
139 _p_ gi_, real_8 _p_ rpar_, int_4 _p_ ipar_);
141 neqn_, int_4 _p_ kold_, real_4 _p_ phi_, int_4 _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_4 _p_ gi_, real_4 _p_
142 alpha_, real_4 _p_ og_, real_4 _p_ ow_, real_4 _p_ ox_, real_4 _p_ oy_);
144 real_4 _p_ wt_, logical_4 _p_ start_, real_4 _p_ hold_, int_4 _p_ k_, int_4 _p_ kold_, logical_4 _p_ crash_, real_4 _p_
145 phi_, real_4 _p_ p_, real_4 _p_ yp_, real_4 _p_ psi_, real_4 _p_ alpha_, real_4 _p_ beta_, real_4 _p_ sig_, real_4 _p_
146 v_, real_4 _p_ w_, real_4 _p_ g_, logical_4 _p_ phase1_, int_4 _p_ ns_, logical_4 _p_ nornd_, int_4 _p_ ksteps_, real_4
147 _p_ twou_, real_4 _p_ fouru_, real_4 _p_ xold_, int_4 _p_ kprev_, int_4 _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_4
148 _p_ gi_, real_4 _p_ rpar_, int_4 _p_ ipar_);
149 int_4 _ddeabm (real_4 (*_df)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ tout_, int_4 _p_ info_, real_8
150 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ idid_, real_8 _p_ rwork_, int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_,
151 real_8 _p_ rpar_, int_4 _p_ ipar_)
152 { // ** body not listed **
364 }
365
366 int_4 _dderkf (real_4 (*_df)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ tout_, int_4 _p_ info_, real_8
367 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ idid_, real_8 _p_ rwork_, int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_,
368 real_8 _p_ rpar_, int_4 _p_ ipar_)
369 { // ** body not listed **
553 }
554
555 int_4 _deabm (real_4 (*_f)(), int_4 _p_ neq_, real_4 _p_ t_, real_4 _p_ y_, real_4 _p_ tout_, int_4 _p_ info_, real_4
556 _p_ rtol_, real_4 _p_ atol_, int_4 _p_ idid_, real_4 _p_ rwork_, int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_,
557 real_4 _p_ rpar_, int_4 _p_ ipar_)
558 { // ** body not listed **
770 }
771
772 int_4 _derkf (real_4 (*_f)(), int_4 _p_ neq_, real_4 _p_ t_, real_4 _p_ y_, real_4 _p_ tout_, int_4 _p_ info_, real_4
773 _p_ rtol_, real_4 _p_ atol_, int_4 _p_ idid_, real_4 _p_ rwork_, int_4 _p_ lrw_, int_4 _p_ iwork_, int_4 _p_ liw_,
774 real_4 _p_ rpar_, int_4 _p_ ipar_)
775 { // ** body not listed **
959 }
960
961 int_4 _dintp (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ xout_, real_8 _p_ yout_, real_8 _p_ ypout_, int_4 _p_ neqn_,
962 int_4 _p_ kold_, real_8 _p_ phi_, int_4 _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_8 _p_ gi_, real_8 _p_ alpha_,
963 real_8 _p_ og_, real_8 _p_ ow_, real_8 _p_ ox_, real_8 _p_ oy_)
964 { // ** body not listed **
1047 }
1048
1049 int_4 _dsteps (int_4 (*_df)(), int_4 _p_ neqn_, real_8 _p_ y_, real_8 _p_ x_, real_8 _p_ h_, real_8 _p_ eps_, real_8
1050 _p_ wt_, logical_4 _p_ start_, real_8 _p_ hold_, int_4 _p_ k_, int_4 _p_ kold_, logical_4 _p_ crash_, real_8 _p_ phi_,
1051 real_8 _p_ p_, real_8 _p_ yp_, real_8 _p_ psi_, real_8 _p_ alpha_, real_8 _p_ beta_, real_8 _p_ sig_, real_8 _p_ v_,
1052 real_8 _p_ w_, real_8 _p_ g_, logical_4 _p_ phase1_, int_4 _p_ ns_, logical_4 _p_ nornd_, int_4 _p_ ksteps_, real_8 _p_
1053 twou_, real_8 _p_ fouru_, real_8 _p_ xold_, int_4 _p_ kprev_, int_4 _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_8 _p_
1054 gi_, real_8 _p_ rpar_, int_4 _p_ ipar_)
1055 { // ** body not listed **
1619 }
1620
1621 int_4 _sintrp (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ xout_, real_4 _p_ yout_, real_4 _p_ ypout_, int_4 _p_ neqn_,
1622 int_4 _p_ kold_, real_4 _p_ phi_, int_4 _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_4 _p_ gi_, real_4 _p_ alpha_,
1623 real_4 _p_ og_, real_4 _p_ ow_, real_4 _p_ ox_, real_4 _p_ oy_)
1624 { // ** body not listed **
1707 }
1708
1709 int_4 _steps (int_4 (*_f)(), int_4 _p_ neqn_, real_4 _p_ y_, real_4 _p_ x_, real_4 _p_ h_, real_4 _p_ eps_, real_4 _p_
1710 wt_, logical_4 _p_ start_, real_4 _p_ hold_, int_4 _p_ k_, int_4 _p_ kold_, logical_4 _p_ crash_, real_4 _p_ phi_,
1711 real_4 _p_ p_, real_4 _p_ yp_, real_4 _p_ psi_, real_4 _p_ alpha_, real_4 _p_ beta_, real_4 _p_ sig_, real_4 _p_ v_,
1712 real_4 _p_ w_, real_4 _p_ g_, logical_4 _p_ phase1_, int_4 _p_ ns_, logical_4 _p_ nornd_, int_4 _p_ ksteps_, real_4 _p_
1713 twou_, real_4 _p_ fouru_, real_4 _p_ xold_, int_4 _p_ kprev_, int_4 _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_4 _p_
1714 gi_, real_4 _p_ rpar_, int_4 _p_ ipar_)
1715 { // ** body not listed **
2279 }
2280
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
