GNU Octave  4.2.1
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
lo-arpack-proto.h
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 2016-2017 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 the
9 Free Software Foundation; either version 3 of the License, or (at your
10 option) any later version.
11 
12 Octave is distributed in the hope that it will be useful, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 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 <http://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*,
45  F77_INT*, F77_DBLE*, F77_DBLE*,
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&,
56  F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*,
57  const F77_INT&, F77_INT*,
58  F77_INT*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
59  const F77_INT&, F77_DBLE *, F77_INT&
62 
63  // NEUPD
64 
65  F77_RET_T
66  F77_FUNC (dneupd, DNEUPD) (const F77_INT&,
68  F77_INT*, F77_DBLE*, F77_DBLE*,
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*,
77  F77_INT*, F77_DBLE*, F77_DBLE*,
78  const F77_INT&, F77_INT&
82 
83  F77_RET_T
84  F77_FUNC (zneupd, ZNEUPD) (const F77_INT&,
86  F77_INT*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
87  const F77_INT&, const F77_DBLE_CMPLX*,
88  F77_DBLE_CMPLX*,
90  const F77_INT&,
92  const F77_INT&, const F77_DBLE&,
93  F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*,
94  const F77_INT&, F77_INT*,
95  F77_INT*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
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*,
111  F77_INT*, F77_DBLE*, F77_DBLE*,
112  const F77_INT&, F77_INT&
115 
116  // SEUPD
117 
118  F77_RET_T
119  F77_FUNC (dseupd, DSEUPD) (const F77_INT&,
121  F77_INT*, F77_DBLE*, F77_DBLE*,
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*,
129  F77_INT*, F77_DBLE*, F77_DBLE*,
130  const F77_INT&, F77_INT&
134 
135 #endif
136 
137 }
138 
139 #endif
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_FUNC(dnaupd, DNAUPD)(F77_INT &
#define F77_INT
Definition: f77-fcn.h:335
#define F77_DBLE_CMPLX
Definition: f77-fcn.h:333
#define F77_DBLE
Definition: f77-fcn.h:331