Actual source code: trlanp.h
slepc-3.11.2 2019-07-30
1: /*
2: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3: SLEPc - Scalable Library for Eigenvalue Problem Computations
4: Copyright (c) 2002-2019, Universitat Politecnica de Valencia, Spain
6: This file is part of SLEPc.
7: SLEPc is distributed under a 2-clause BSD license (see LICENSE).
8: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
9: */
10: /*
11: Private data structure used by the TRLAN interface
12: */
14: #if !defined(SLEPC_TRLAN_H)
15: #define SLEPC_TRLAN_H
17: typedef struct {
18: PetscBLASInt maxlan;
19: PetscBLASInt restart;
20: PetscReal *work;
21: PetscBLASInt lwork;
22: } EPS_TRLAN;
24: /*
25: Definition of routines from the TRLAN package
26: These are real case. TRLAN currently only has DOUBLE PRECISION version
27: */
29: #if defined(SLEPC_TRLAN_HAVE_UNDERSCORE)
30: #define TRLan_ trlan77_
31: #elif defined(SLEPC_TRLAN_HAVE_CAPS)
32: #define TRLan_ TRLAN77
33: #else
34: #define TRLan_ trlan77
35: #endif
37: SLEPC_EXTERN void TRLan_(PetscBLASInt(*op)(PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*),PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt*);
39: #endif