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.10
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 };
119 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
120 _p_ liw_, real_8 _p_ rpar_, int_4 _p_ ipar_);
122 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
123 _p_ liw_, real_8 _p_ rpar_, int_4 _p_ ipar_);
125 , 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_
126 liw_, real_4 _p_ rpar_, int_4 _p_ ipar_);
128 , 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_
129 liw_, real_4 _p_ rpar_, int_4 _p_ ipar_);
131 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_
132 alpha_, real_8 _p_ og_, real_8 _p_ ow_, real_8 _p_ ox_, real_8 _p_ oy_);
134 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_
135 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_
136 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
137 _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
138 _p_ gi_, real_8 _p_ rpar_, int_4 _p_ ipar_);
140 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_
141 alpha_, real_4 _p_ og_, real_4 _p_ ow_, real_4 _p_ ox_, real_4 _p_ oy_);
143 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_
144 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_
145 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
146 _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
147 _p_ gi_, real_4 _p_ rpar_, int_4 _p_ ipar_);
148 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
149 _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_,
150 real_8 _p_ rpar_, int_4 _p_ ipar_)
151 { // ** body not listed **
363 }
364 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
365 _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_,
366 real_8 _p_ rpar_, int_4 _p_ ipar_)
367 { // ** body not listed **
551 }
552 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
553 _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_,
554 real_4 _p_ rpar_, int_4 _p_ ipar_)
555 { // ** body not listed **
767 }
768 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
769 _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_,
770 real_4 _p_ rpar_, int_4 _p_ ipar_)
771 { // ** body not listed **
955 }
956 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_,
957 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_,
958 real_8 _p_ og_, real_8 _p_ ow_, real_8 _p_ ox_, real_8 _p_ oy_)
959 { // ** body not listed **
1042 }
1043 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
1044 _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_,
1045 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_,
1046 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_
1047 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_
1048 gi_, real_8 _p_ rpar_, int_4 _p_ ipar_)
1049 { // ** body not listed **
1613 }
1614 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_,
1615 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_,
1616 real_4 _p_ og_, real_4 _p_ ow_, real_4 _p_ ox_, real_4 _p_ oy_)
1617 { // ** body not listed **
1700 }
1701 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_
1702 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_,
1703 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_,
1704 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_
1705 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_
1706 gi_, real_4 _p_ rpar_, int_4 _p_ ipar_)
1707 { // ** body not listed **
2271 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
