1: /*
2: Private data structure used by the TRLAN interface
4: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
5: SLEPc - Scalable Library for Eigenvalue Problem Computations
6: Copyright (c) 2002-2015, Universitat Politecnica de Valencia, Spain
8: This file is part of SLEPc.
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.
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.
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/>.
21: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
22: */
27: typedef struct {
28: PetscBLASInt maxlan;
29: PetscBLASInt restart;
30: PetscReal *work;
31: PetscBLASInt lwork;
32: } EPS_TRLAN;
34: /*
35: Definition of routines from the TRLAN package
36: These are real case. TRLAN currently only has DOUBLE PRECISION version
37: */
39: #if defined(SLEPC_TRLAN_HAVE_UNDERSCORE)
40: #define TRLan_ trlan77_ 41: #elif defined(SLEPC_TRLAN_HAVE_CAPS)
42: #define TRLan_ TRLAN77 43: #else
44: #define TRLan_ trlan77 45: #endif
47: PETSC_EXTERN void TRLan_(PetscBLASInt(*op)(PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*),PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt*);
49: #endif