GNU Octave  8.1.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
lo-arpack-proto.h
Go to the documentation of this file.
1 ////////////////////////////////////////////////////////////////////////
2 //
3 // Copyright (C) 2016-2023 The Octave Project Developers
4 //
5 // See the file COPYRIGHT.md in the top-level directory of this
6 // distribution or <https://octave.org/copyright/>.
7 //
8 // This file is part of Octave.
9 //
10 // Octave is free software: you can redistribute it and/or modify it
11 // under the terms of the GNU General Public License as published by
12 // the Free Software Foundation, either version 3 of the License, or
13 // (at your option) any later version.
14 //
15 // Octave is distributed in the hope that it will be useful, but
16 // WITHOUT ANY WARRANTY; without even the implied warranty of
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 // GNU General Public License for more details.
19 //
20 // You should have received a copy of the GNU General Public License
21 // along with Octave; see the file COPYING. If not, see
22 // <https://www.gnu.org/licenses/>.
23 //
24 ////////////////////////////////////////////////////////////////////////
25 
26 #if ! defined (octave_lo_arpack_proto_h)
27 #define octave_lo_arpack_proto_h 1
28 
29 #include "octave-config.h"
30 
31 #include "f77-fcn.h"
32 
33 extern "C"
34 {
35 
36 #if defined (HAVE_ARPACK)
37 
38  // NAUPD
39 
40  F77_RET_T
41  F77_FUNC (dnaupd, DNAUPD) (F77_INT&,
43  const F77_INT&,
45  F77_INT&, const F77_DBLE&,
46  F77_DBLE *, const F77_INT&, F77_DBLE *,
47  const F77_INT&, F77_INT *,
48  F77_INT *, F77_DBLE *, F77_DBLE *,
49  const F77_INT&, F77_INT&
52 
53  F77_RET_T
54  F77_FUNC (znaupd, ZNAUPD) (F77_INT&,
56  const F77_INT&,
58  const F77_INT&, const F77_DBLE&,
60  const F77_INT&, F77_INT *,
62  const F77_INT&, F77_DBLE *, F77_INT&
65 
66  // NEUPD
67 
68  F77_RET_T
69  F77_FUNC (dneupd, DNEUPD) (const F77_INT&,
71  F77_INT *, F77_DBLE *, F77_DBLE *,
72  F77_DBLE *, const F77_INT&, const F77_DBLE&,
73  const F77_DBLE&, F77_DBLE *,
75  const F77_INT&,
77  F77_INT&, const F77_DBLE&, F77_DBLE *,
78  const F77_INT&, F77_DBLE *,
79  const F77_INT&, F77_INT *,
80  F77_INT *, F77_DBLE *, F77_DBLE *,
81  const F77_INT&, F77_INT&
85 
86  F77_RET_T
87  F77_FUNC (zneupd, ZNEUPD) (const F77_INT&,
90  const F77_INT&, const F77_DBLE_CMPLX *,
93  const F77_INT&,
95  const F77_INT&, const F77_DBLE&,
97  const F77_INT&, F77_INT *,
99  const F77_INT&, F77_DBLE *, F77_INT&
103 
104  // SAUPD
105 
106  F77_RET_T
107  F77_FUNC (dsaupd, DSAUPD) (F77_INT&,
109  const F77_INT&,
111  const F77_INT&, const F77_DBLE&,
112  F77_DBLE *, const F77_INT&, F77_DBLE *,
113  const F77_INT&, F77_INT *,
114  F77_INT *, F77_DBLE *, F77_DBLE *,
115  const F77_INT&, F77_INT&
118 
119  // SEUPD
120 
121  F77_RET_T
122  F77_FUNC (dseupd, DSEUPD) (const F77_INT&,
124  F77_INT *, F77_DBLE *, F77_DBLE *,
125  const F77_INT&, const F77_DBLE&,
127  const F77_INT&,
129  const F77_INT&, const F77_DBLE&, F77_DBLE *,
130  const F77_INT&, F77_DBLE *,
131  const F77_INT&, F77_INT *,
132  F77_INT *, F77_DBLE *, F77_DBLE *,
133  const F77_INT&, F77_INT&
137 
138 #endif
139 
140 }
141 
142 #endif
double F77_DBLE
Definition: f77-fcn.h:302
double _Complex F77_DBLE_CMPLX
Definition: f77-fcn.h:304
octave_f77_int_type F77_INT
Definition: f77-fcn.h:306
F77_RET_T F77_FUNC(dnaupd, DNAUPD)(F77_INT &
F77_RET_T F77_CONST_CHAR_ARG_DECL
F77_RET_T const F77_INT F77_INT const F77_DBLE F77_DBLE const F77_INT F77_DBLE const F77_INT F77_INT F77_INT F77_DBLE F77_DBLE const F77_INT F77_INT &F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL
F77_RET_T(F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT &, const F77_INT &, const F77_INT &, F77_INT &, F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, F77_DBLE *, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, F77_INT *, F77_INT &F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL)