mathlib-slatec-harwell.c
1 //! @file mathlib-slatec-harwell.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 //! 10 subprograms from SLATEC-HARWELL
24
25 // Compiled from Fortran source code by VIF.
26 // Selected subprograms are:
27 //
28 // LA05AD LA05AS LA05BD LA05BS LA05CD LA05CS LA05ED LA05ES MC20AD MC20AS
29
30 // Miscellaneous routines from SLATEC, not in other packages as BLAS,
31 // EISPACK, FISHPACK, FFTPACK, FNLIB, LINPACK etcetera.
32 //
33 // Source: netlib.org/slatec/
34 //
35 // For VIF, all source file have been formatted and labels have been renumbered.
36
37 // The license for SLATEC Fortran source code is:
38 //
39 // The SLATEC Common Mathematical Library was developed at
40 // US government research laboratories and is in the public domain.
41 //
42 // Repository: http://www.netlib.org/slatec/
43 //
44 // The SLATEC common mathematical library is issued by the following
45 //
46 // Air Force Weapons Laboratory, Albuquerque
47 // Lawrence Livermore National Laboratory, Livermore
48 // Los Alamos National Laboratory, Los Alamos
49 // National Institute of Standards and Technology, Washington
50 // National Energy Research Supercomputer Center, Livermore
51 // Oak Ridge National Laboratory, Oak Ridge
52 // Sandia National Laboratories, Albuquerque
53 // Sandia National Laboratories, Livermore
54 //
55 // All questions concerning the distribution of the library should be
56 // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
57 // Argonne, Illinois 60439, and not to the authors of the subprograms.
58 //
59 // * * * * * Notice * * * * *
60 //
61 // This material was prepared as an account of work sponsored by the
62 // United States Government. Neither the United States, nor the
63 // Department of Energy, nor the Department of Defense, nor any of
64 // their employees, nor any of their contractors, subcontractors, or
65 // their employees, makes any warranty, expressed or implied, or
66 // assumes any legal liability or responsibility for the accuracy,
67 // completeness, or usefulness of any information, apparatus, product,
68 // or process disclosed, or represents that its use would not infringe
69 // upon privately owned rights.
70
71 /*
72 Generated by VIF - experimental VIntage Fortran compiler.
73 VIF release 1.2.10
74 */
112 static CALLS __calls[__ncalls] = {
113 {"la05ad", 0}, // subroutine
114 {"la05as", 0}, // subroutine
115 {"la05bd", 0}, // subroutine
116 {"la05bs", 0}, // subroutine
117 {"la05cd", 0}, // subroutine
118 {"la05cs", 0}, // subroutine
119 {"la05ed", 0}, // subroutine
120 {"la05es", 0}, // subroutine
121 {"mc20ad", 0}, // subroutine
122 {"mc20as", 0}, // subroutine
123 {NULL, 0}
124 };
125 static struct {
126 int_4 lp_, lenl_, lenu_, ncp_, lrow_, lcol_;
127 real_8 small_;
128 } la05dd_;
129 static struct {
130 int_4 lp_, lenl_, lenu_, ncp_, lrow_, lcol_;
131 real_4 small_;
132 } la05ds_;
134 int_4 _p_ iw_, real_8 _p_ w_, real_8 _p_ g_, real_8 _p_ u_);
136 int_4 _p_ iw_, real_4 _p_ w_, real_4 _p_ g_, real_4 _p_ u_);
138 real_8 _p_ w_, real_8 _p_ g_, real_8 _p_ b_, logical_4 _p_ trans_);
140 real_4 _p_ w_, real_4 _p_ g_, real_4 _p_ b_, logical_4 _p_ trans_);
142 real_8 _p_ w_, real_8 _p_ g_, real_8 _p_ u_, int_4 _p_ mm_);
144 real_4 _p_ w_, real_4 _p_ g_, real_4 _p_ u_, int_4 _p_ mm_);
146 logical_4 _p_ reals_);
148 logical_4 _p_ reals_);
150 jnum_, int_4 _p_ jdisp_);
152 jnum_, int_4 _p_ jdisp_);
153 int_4 _la05ad (real_8 _p_ a_, int_4 _p_ ind_, int_4 _p_ nz_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_,
154 real_8 _p_ w_, real_8 _p_ g_, real_8 _p_ u_)
155 { // ** body not listed **
983 }
984 int_4 _la05as (real_4 _p_ a_, int_4 _p_ ind_, int_4 _p_ nz_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_,
985 real_4 _p_ w_, real_4 _p_ g_, real_4 _p_ u_)
986 { // ** body not listed **
1814 }
1815 int_4 _la05bd (real_8 _p_ a_, int_4 _p_ ind_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_, real_8 _p_ w_,
1816 real_8 _p_ g_, real_8 _p_ b_, logical_4 _p_ trans_)
1817 { // ** body not listed **
1932 }
1933 int_4 _la05bs (real_4 _p_ a_, int_4 _p_ ind_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_, real_4 _p_ w_,
1934 real_4 _p_ g_, real_4 _p_ b_, logical_4 _p_ trans_)
1935 { // ** body not listed **
2050 }
2051 int_4 _la05cd (real_8 _p_ a_, int_4 _p_ ind_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_, real_8 _p_ w_,
2052 real_8 _p_ g_, real_8 _p_ u_, int_4 _p_ mm_)
2053 { // ** body not listed **
2556 }
2557 int_4 _la05cs (real_4 _p_ a_, int_4 _p_ ind_, int_4 _p_ ia_, int_4 _p_ n_, int_4 _p_ ip_, int_4 _p_ iw_, real_4 _p_ w_,
2558 real_4 _p_ g_, real_4 _p_ u_, int_4 _p_ mm_)
2559 { // ** body not listed **
3062 }
3063 int_4 _la05ed (real_8 _p_ a_, int_4 _p_ irn_, int_4 _p_ ip_, int_4 _p_ n_, int_4 _p_ iw_, int_4 _p_ ia_, logical_4 _p_
3064 reals_)
3065 { // ** body not listed **
3112 }
3113 int_4 _la05es (real_4 _p_ a_, int_4 _p_ irn_, int_4 _p_ ip_, int_4 _p_ n_, int_4 _p_ iw_, int_4 _p_ ia_, logical_4 _p_
3114 reals_)
3115 { // ** body not listed **
3162 }
3163 int_4 _mc20ad (int_4 _p_ nc_, int_4 _p_ maxa_, real_8 _p_ a_, int_4 _p_ inum_, int_4 _p_ jptr_, int_4 _p_ jnum_, int_4
3164 _p_ jdisp_)
3165 { // ** body not listed **
3216 }
3217 int_4 _mc20as (int_4 _p_ nc_, int_4 _p_ maxa_, real_4 _p_ a_, int_4 _p_ inum_, int_4 _p_ jptr_, int_4 _p_ jnum_, int_4
3218 _p_ jdisp_)
3219 { // ** body not listed **
3270 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
