| 6 |
dsic.upv.es!jroman |
1 |
/*
|
|
|
2 |
Private data structure used by the TRLAN interface
|
| 1376 |
slepc |
3 |
|
|
|
4 |
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
| 1672 |
slepc |
5 |
SLEPc - Scalable Library for Eigenvalue Problem Computations
|
| 2116 |
eromero |
6 |
Copyright (c) 2002-2010, Universidad Politecnica de Valencia, Spain
|
| 1672 |
slepc |
7 |
|
|
|
8 |
This file is part of SLEPc.
|
|
|
9 |
|
|
|
10 |
SLEPc is free software: you can redistribute it and/or modify it under the
|
|
|
11 |
terms of version 3 of the GNU Lesser General Public License as published by
|
|
|
12 |
the Free Software Foundation.
|
|
|
13 |
|
|
|
14 |
SLEPc is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
|
15 |
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
|
|
16 |
FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for
|
|
|
17 |
more details.
|
|
|
18 |
|
|
|
19 |
You should have received a copy of the GNU Lesser General Public License
|
|
|
20 |
along with SLEPc. If not, see <http://www.gnu.org/licenses/>.
|
| 1376 |
slepc |
21 |
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
| 6 |
dsic.upv.es!jroman |
22 |
*/
|
|
|
23 |
|
|
|
24 |
#if !defined(__TRLANP_H)
|
|
|
25 |
#define __TRLANP_H
|
|
|
26 |
|
| 1525 |
slepc |
27 |
#include "private/epsimpl.h"
|
| 6 |
dsic.upv.es!jroman |
28 |
|
|
|
29 |
typedef struct {
|
| 1509 |
slepc |
30 |
PetscBLASInt maxlan;
|
|
|
31 |
PetscBLASInt restart;
|
|
|
32 |
PetscReal *work;
|
|
|
33 |
PetscBLASInt lwork;
|
| 6 |
dsic.upv.es!jroman |
34 |
} EPS_TRLAN;
|
|
|
35 |
|
|
|
36 |
/*
|
|
|
37 |
Definition of routines from the TRLAN package
|
| 806 |
dsic.upv.es!antodo |
38 |
These are real case. TRLAN currently only has DOUBLE PRECISION version
|
| 6 |
dsic.upv.es!jroman |
39 |
*/
|
|
|
40 |
|
| 806 |
dsic.upv.es!antodo |
41 |
#if defined(SLEPC_TRLAN_HAVE_UNDERSCORE)
|
|
|
42 |
#define TRLan_ trlan77_
|
|
|
43 |
#elif defined(SLEPC_TRLAN_HAVE_CAPS)
|
|
|
44 |
#define TRLan_ TRLAN77
|
|
|
45 |
#else
|
|
|
46 |
#define TRLan_ trlan77
|
|
|
47 |
#endif
|
| 6 |
dsic.upv.es!jroman |
48 |
|
|
|
49 |
EXTERN_C_BEGIN
|
|
|
50 |
|
| 1509 |
slepc |
51 |
extern void TRLan_ (PetscBLASInt(*op)(PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*),
|
|
|
52 |
PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscReal*,
|
|
|
53 |
PetscBLASInt*);
|
| 6 |
dsic.upv.es!jroman |
54 |
|
|
|
55 |
EXTERN_C_END
|
|
|
56 |
|
|
|
57 |
#endif
|
|
|
58 |
|