Mercurial > octave

annotate liboctave/numeric/lo-qrupdate-proto.h @ 31249:de6fc38c78c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make Jacobian types offered by dlsode.f accessible by lsode (bug #31626). * liboctave/numeric/LSODE-opts.in: Add options "jacobian type", "lower jacobian subdiagonals", and "upper jacobian subdiagonals". * liboctave/numeric/LSODE.cc (file scope, lsode_j, LSODE::do_integrate (double)): Handle new configurable Jacobian types. * build-aux/mk-opts.pl: Don't implicitly convert to integer in condition.
author Olaf Till <olaf.till@uni-jena.de>
date Fri, 12 Nov 2010 08:53:05 +0100
parents 796f54d4ddbf
children 597f3ee61a48
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
1 ////////////////////////////////////////////////////////////////////////
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
2 //
30564
796f54d4ddbf update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents: 30394
diff changeset
3 // Copyright (C) 2016-2022 The Octave Project Developers
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
4 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
5 // See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
6 // distribution or <https://octave.org/copyright/>.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
7 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
8 // This file is part of Octave.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
9 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
10 // Octave is free software: you can redistribute it and/or modify it
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
11 // under the terms of the GNU General Public License as published by
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
12 // the Free Software Foundation, either version 3 of the License, or
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
13 // (at your option) any later version.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
14 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
15 // Octave is distributed in the hope that it will be useful, but
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
16 // WITHOUT ANY WARRANTY; without even the implied warranty of
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
18 // GNU General Public License for more details.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
19 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
20 // You should have received a copy of the GNU General Public License
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
21 // along with Octave; see the file COPYING. If not, see
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
22 // <https://www.gnu.org/licenses/>.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
23 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
24 ////////////////////////////////////////////////////////////////////////
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
25
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
26 #if ! defined (octave_lo_qrupdate_proto_h)
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
27 #define octave_lo_qrupdate_proto_h 1
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
28
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
29 #include "octave-config.h"
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
30
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
31 #include "f77-fcn.h"
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
32
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
33 extern "C"
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
34 {
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
35
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
36 #if defined (HAVE_QRUPDATE)
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
37
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
38 // CH1DN
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
39
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
40 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
41 F77_FUNC (cch1dn, CCH1DN) (const F77_INT&, F77_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
42 const F77_INT&, F77_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
43 F77_REAL *, F77_INT&);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
44
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
45 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
46 F77_FUNC (dch1dn, DCH1DN) (const F77_INT&, F77_DBLE *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
47 const F77_INT&, F77_DBLE *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
48 F77_DBLE *, F77_INT&);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
49
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
50 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
51 F77_FUNC (sch1dn, SCH1DN) (const F77_INT&, F77_REAL *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
52 const F77_INT&, F77_REAL *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
53 F77_REAL *, F77_INT&);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
54
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
55 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
56 F77_FUNC (zch1dn, ZCH1DN) (const F77_INT&, F77_DBLE_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
57 const F77_INT&, F77_DBLE_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
58 F77_DBLE *, F77_INT&);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
59
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
60 // CH1UP
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
61
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
62 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
63 F77_FUNC (cch1up, CCH1UP) (const F77_INT&, F77_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
64 const F77_INT&, F77_CMPLX *, F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
65
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
66 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
67 F77_FUNC (dch1up, DCH1UP) (const F77_INT&, F77_DBLE *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
68 const F77_INT&, F77_DBLE *, F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
69
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
70 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
71 F77_FUNC (sch1up, SCH1UP) (const F77_INT&, F77_REAL *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
72 const F77_INT&, F77_REAL *, F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
73
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
74 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
75 F77_FUNC (zch1up, ZCH1UP) (const F77_INT&, F77_DBLE_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
76 const F77_INT&, F77_DBLE_CMPLX *, F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
77
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
78 // CHDEX
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
79
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
80 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
81 F77_FUNC (dchdex, DCHDEX) (const F77_INT&, F77_DBLE *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
82 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
83 F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
84
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
85 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
86 F77_FUNC (schdex, SCHDEX) (const F77_INT&, F77_REAL *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
87 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
88 F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
89
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
90 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
91 F77_FUNC (cchdex, CCHDEX) (const F77_INT&, F77_CMPLX *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
92 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
93 F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
94
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
95 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
96 F77_FUNC (zchdex, ZCHDEX) (const F77_INT&, F77_DBLE_CMPLX *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
97 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
98 F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
99
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
100 // CHINX
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
101
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
102 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
103 F77_FUNC (cchinx, CCHINX) (const F77_INT&, F77_CMPLX *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
104 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
105 F77_CMPLX *, F77_REAL *, F77_INT&);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
106
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
107 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
108 F77_FUNC (dchinx, DCHINX) (const F77_INT&, F77_DBLE *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
109 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
110 F77_DBLE *, F77_DBLE *, F77_INT&);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
111
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
112 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
113 F77_FUNC (schinx, SCHINX) (const F77_INT&, F77_REAL *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
114 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
115 F77_REAL *, F77_REAL *, F77_INT&);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
116
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
117 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
118 F77_FUNC (zchinx, ZCHINX) (const F77_INT&, F77_DBLE_CMPLX *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
119 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
120 F77_DBLE_CMPLX *, F77_DBLE *, F77_INT&);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
121
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
122 // CHSHX
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
123
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
124 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
125 F77_FUNC (cchshx, CCHSHX) (const F77_INT&, F77_CMPLX *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
126 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
127 const F77_INT&, F77_CMPLX *, F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
128
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
129 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
130 F77_FUNC (dchshx, DCHSHX) (const F77_INT&, F77_DBLE *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
131 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
132 const F77_INT&, F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
133
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
134 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
135 F77_FUNC (schshx, SCHSHX) (const F77_INT&, F77_REAL *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
136 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
137 const F77_INT&, F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
138
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
139 F77_RET_T
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
140 F77_FUNC (zchshx, ZCHSHX) (const F77_INT&, F77_DBLE_CMPLX *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
141 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
142 const F77_INT&, F77_DBLE_CMPLX *, F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
143
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
144 // QR1UP
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
145
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
146 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
147 F77_FUNC (cqr1up, CQR1UP) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
148 const F77_INT&, F77_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
149 const F77_INT&, F77_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
150 const F77_INT&, F77_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
151 F77_CMPLX *, F77_CMPLX *, F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
152
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
153 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
154 F77_FUNC (dqr1up, DQR1UP) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
155 const F77_INT&, F77_DBLE *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
156 const F77_INT&, F77_DBLE *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
157 const F77_INT&, F77_DBLE *, F77_DBLE *, F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
158
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
159 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
160 F77_FUNC (sqr1up, SQR1UP) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
161 const F77_INT&, F77_REAL *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
162 const F77_INT&, F77_REAL *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
163 const F77_INT&, F77_REAL *, F77_REAL *, F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
164
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
165 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
166 F77_FUNC (zqr1up, ZQR1UP) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
167 const F77_INT&, F77_DBLE_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
168 const F77_INT&, F77_DBLE_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
169 const F77_INT&, F77_DBLE_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
170 F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
171
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
172 // QRDEC
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
173
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
174 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
175 F77_FUNC (cqrdec, CQRDEC) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
176 const F77_INT&, F77_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
177 const F77_INT&, F77_CMPLX *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
178 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
179 F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
180
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
181 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
182 F77_FUNC (dqrdec, DQRDEC) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
183 const F77_INT&, F77_DBLE *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
184 const F77_INT&, F77_DBLE *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
185 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
186 F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
187
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
188 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
189 F77_FUNC (sqrdec, SQRDEC) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
190 const F77_INT&, F77_REAL *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
191 const F77_INT&, F77_REAL *,
23475
d691ed308237 maint: Clean up #includes in liboctave/numeric directory.
Rik <rik@octave.org>
parents: 23220
diff changeset
192 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
193 F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
194
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
195 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
196 F77_FUNC (zqrdec, ZQRDEC) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
197 const F77_INT&, F77_DBLE_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
198 const F77_INT&, F77_DBLE_CMPLX *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
199 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
200 F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
201
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
202 // QRDER
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
203
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
204 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
205 F77_FUNC (cqrder, CQRDER) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
206 F77_CMPLX *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
207 F77_CMPLX *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
208 const F77_INT&, F77_CMPLX *, F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
209
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
210 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
211 F77_FUNC (dqrder, DQRDER) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
212 F77_DBLE *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
213 F77_DBLE *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
214 const F77_INT&, F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
215
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
216 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
217 F77_FUNC (sqrder, SQRDER) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
218 F77_REAL *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
219 F77_REAL *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
220 const F77_INT&, F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
221
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
222 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
223 F77_FUNC (zqrder, ZQRDER) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
224 F77_DBLE_CMPLX *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
225 F77_DBLE_CMPLX *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
226 const F77_INT&, F77_DBLE_CMPLX *, F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
227
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
228 // QRINC
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
229
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
230 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
231 F77_FUNC (cqrinc, CQRINC) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
232 const F77_INT&, F77_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
233 const F77_INT&, F77_CMPLX *,
23475
d691ed308237 maint: Clean up #includes in liboctave/numeric directory.
Rik <rik@octave.org>
parents: 23220
diff changeset
234 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
235 const F77_CMPLX *, F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
236
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
237 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
238 F77_FUNC (dqrinc, DQRINC) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
239 const F77_INT&, F77_DBLE *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
240 const F77_INT&, F77_DBLE *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
241 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
242 const F77_DBLE *, F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
243
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
244 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
245 F77_FUNC (sqrinc, SQRINC) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
246 const F77_INT&, F77_REAL *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
247 const F77_INT&, F77_REAL *,
23475
d691ed308237 maint: Clean up #includes in liboctave/numeric directory.
Rik <rik@octave.org>
parents: 23220
diff changeset
248 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
249 const F77_REAL *, F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
250
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
251 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
252 F77_FUNC (zqrinc, ZQRINC) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
253 const F77_INT&, F77_DBLE_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
254 const F77_INT&, F77_DBLE_CMPLX *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
255 const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
256 const F77_DBLE_CMPLX *, F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
257
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
258 // QRINR
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
259
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
260 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
261 F77_FUNC (cqrinr, CQRINR) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
262 F77_CMPLX *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
263 F77_CMPLX *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
264 const F77_INT&, const F77_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
265 F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
266
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
267 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
268 F77_FUNC (dqrinr, DQRINR) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
269 F77_DBLE *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
270 F77_DBLE *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
271 const F77_INT&, const F77_DBLE *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
272 F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
273
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
274 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
275 F77_FUNC (sqrinr, SQRINR) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
276 F77_REAL *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
277 F77_REAL *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
278 const F77_INT&, const F77_REAL *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
279 F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
280
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
281 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
282 F77_FUNC (zqrinr, ZQRINR) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
283 F77_DBLE_CMPLX *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
284 F77_DBLE_CMPLX *, const F77_INT&,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
285 const F77_INT&, const F77_DBLE_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
286 F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
287
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
288 // QRSHC
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
289
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
290 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
291 F77_FUNC (cqrshc, CQRSHC) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
292 const F77_INT&, F77_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
293 const F77_INT&, F77_CMPLX *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
294 const F77_INT&, const F77_INT&,
23475
d691ed308237 maint: Clean up #includes in liboctave/numeric directory.
Rik <rik@octave.org>
parents: 23220
diff changeset
295 const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
296 F77_CMPLX *, F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
297 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
298 F77_FUNC (dqrshc, DQRSHC) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
299 const F77_INT&, F77_DBLE *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
300 const F77_INT&, F77_DBLE *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
301 const F77_INT&, const F77_INT&,
23475
d691ed308237 maint: Clean up #includes in liboctave/numeric directory.
Rik <rik@octave.org>
parents: 23220
diff changeset
302 const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
303 F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
304
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
305 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
306 F77_FUNC (sqrshc, SQRSHC) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
307 const F77_INT&, F77_REAL *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
308 const F77_INT&, F77_REAL *,
23475
d691ed308237 maint: Clean up #includes in liboctave/numeric directory.
Rik <rik@octave.org>
parents: 23220
diff changeset
309 const F77_INT&, const F77_INT&,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
310 const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
311 F77_REAL *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
312
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
313 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
314 F77_FUNC (zqrshc, ZQRSHC) (const F77_INT&, const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
315 const F77_INT&, F77_DBLE_CMPLX *,
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
316 const F77_INT&, F77_DBLE_CMPLX *,
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
317 const F77_INT&, const F77_INT&,
23475
d691ed308237 maint: Clean up #includes in liboctave/numeric directory.
Rik <rik@octave.org>
parents: 23220
diff changeset
318 const F77_INT&,
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 29358
diff changeset
319 F77_DBLE_CMPLX *, F77_DBLE *);
22322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
320
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
321 #endif
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
322
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
323 #if defined (HAVE_QRUPDATE_LUU)
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
324
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
325 // LU1UP
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
326
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
327 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
328 F77_FUNC (clu1up, CLU1UP) (const F77_INT&, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
329 F77_CMPLX *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
330 F77_CMPLX *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
331 F77_CMPLX *, F77_CMPLX *);
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
332
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
333 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
334 F77_FUNC (dlu1up, DLU1UP) (const F77_INT&, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
335 F77_DBLE *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
336 F77_DBLE *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
337 F77_DBLE *, F77_DBLE *);
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
338
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
339 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
340 F77_FUNC (slu1up, SLU1UP) (const F77_INT&, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
341 F77_REAL *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
342 F77_REAL *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
343 F77_REAL *, F77_REAL *);
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
344
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
345 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
346 F77_FUNC (zlu1up, ZLU1UP) (const F77_INT&, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
347 F77_DBLE_CMPLX *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
348 F77_DBLE_CMPLX *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
349 F77_DBLE_CMPLX *, F77_DBLE_CMPLX *);
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
350
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
351 // LUP1UP
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
352
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
353 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
354 F77_FUNC (clup1up, CLUP1UP) (const F77_INT&, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
355 F77_CMPLX *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
356 F77_CMPLX *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
357 F77_INT *, const F77_CMPLX *,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
358 const F77_CMPLX *, F77_CMPLX *);
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
359 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
360 F77_FUNC (dlup1up, DLUP1UP) (const F77_INT&, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
361 F77_DBLE *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
362 F77_DBLE *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
363 F77_INT *, const F77_DBLE *,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
364 const F77_DBLE *, F77_DBLE *);
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
365
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
366 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
367 F77_FUNC (slup1up, SLUP1UP) (const F77_INT&, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
368 F77_REAL *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
369 F77_REAL *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
370 F77_INT *, const F77_REAL *,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
371 const F77_REAL *, F77_REAL *);
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
372
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
373 F77_RET_T
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
374 F77_FUNC (zlup1up, ZLUP1UP) (const F77_INT&, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
375 F77_DBLE_CMPLX *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
376 F77_DBLE_CMPLX *, const F77_INT&,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
377 F77_INT *, const F77_DBLE_CMPLX *,
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
378 const F77_DBLE_CMPLX *, F77_DBLE_CMPLX *);
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
379
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
380 #endif
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
381
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
382 }
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
383
93b3cdd36854 move most f77 function decls to separate header files
John W. Eaton <jwe@octave.org>
parents:
diff changeset
384 #endif