GNU Octave  4.4.1
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-2018 John W. Eaton
4 
5 This file is part of Octave.
6 
7 Octave is free software: you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
11 
12 Octave is distributed in the hope that it will be useful, but
13 WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with Octave; see the file COPYING. If not, see
19 <https://www.gnu.org/licenses/>.
20 
21 */
22 
23 #if ! defined (octave_lo_arpack_proto_h)
24 #define octave_lo_arpack_proto_h 1
25 
26 #include "octave-config.h"
27 
28 #include "f77-fcn.h"
29 
30 extern "C"
31 {
32 
33 #if defined (HAVE_ARPACK)
34 
35  // NAUPD
36 
37  F77_RET_T
38  F77_FUNC (dnaupd, DNAUPD) (F77_INT&,
40  const F77_INT&,
42  F77_INT&, const F77_DBLE&,
43  F77_DBLE*, const F77_INT&, F77_DBLE*,
44  const F77_INT&, F77_INT*,
46  const F77_INT&, F77_INT&
49 
50  F77_RET_T
51  F77_FUNC (znaupd, ZNAUPD) (F77_INT&,
53  const F77_INT&,
55  const F77_INT&, const F77_DBLE&,
57  const F77_INT&, F77_INT*,
59  const F77_INT&, F77_DBLE *, F77_INT&
62 
63  // NEUPD
64 
65  F77_RET_T
66  F77_FUNC (dneupd, DNEUPD) (const F77_INT&,
69  F77_DBLE*, const F77_INT&, const F77_DBLE&,
70  const F77_DBLE&, F77_DBLE*,
72  const F77_INT&,
74  F77_INT&, const F77_DBLE&, F77_DBLE*,
75  const F77_INT&, F77_DBLE*,
76  const F77_INT&, F77_INT*,
78  const F77_INT&, F77_INT&
82 
83  F77_RET_T
84  F77_FUNC (zneupd, ZNEUPD) (const F77_INT&,
87  const F77_INT&, const F77_DBLE_CMPLX*,
90  const F77_INT&,
92  const F77_INT&, const F77_DBLE&,
94  const F77_INT&, F77_INT*,
96  const F77_INT&, F77_DBLE *, F77_INT&
100 
101  // SAUPD
102 
103  F77_RET_T
104  F77_FUNC (dsaupd, DSAUPD) (F77_INT&,
106  const F77_INT&,
108  const F77_INT&, const F77_DBLE&,
109  F77_DBLE*, const F77_INT&, F77_DBLE*,
110  const F77_INT&, F77_INT*,
112  const F77_INT&, F77_INT&
115 
116  // SEUPD
117 
118  F77_RET_T
119  F77_FUNC (dseupd, DSEUPD) (const F77_INT&,
122  const F77_INT&, const F77_DBLE&,
124  const F77_INT&,
126  const F77_INT&, const F77_DBLE&, F77_DBLE*,
127  const F77_INT&, F77_DBLE*,
128  const F77_INT&, F77_INT*,
130  const F77_INT&, F77_INT&
134 
135 #endif
136 
137 }
138 
139 #endif
double _Complex F77_DBLE_CMPLX
Definition: f77-fcn.h:303
double F77_DBLE
Definition: f77-fcn.h:301
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_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)
F77_RET_T F77_FUNC(dnaupd, DNAUPD)(F77_INT &
octave_f77_int_type F77_INT
Definition: f77-fcn.h:305