Actual source code: trlanp.h
1: /*
2: Private data structure used by the TRLAN interface
3: */
8: #include src/eps/epsimpl.h
10: typedef struct {
11: int maxlan;
12: int restart;
13: PetscReal *work;
14: int lwork;
15: } EPS_TRLAN;
18: /*
19: Definition of routines from the TRLAN package
20: */
21: #include "petsc.h"
23: /*
24: This include file on the Cray T3D/T3E defines the interface between
25: Fortran and C representations of charactor strings.
26: */
27: #if defined(PETSC_USES_CPTOFCD)
28: #include <fortran.h>
29: #endif
31: #if !defined(PETSC_USE_COMPLEX)
33: /*
34: These are real case. TRLAN currently only has DOUBLE PRECISION version
35: */
36: #if defined(PETSC_HAVE_FORTRAN_UNDERSCORE) || defined(PETSC_BLASLAPACK_F2C)
37: #define TRLan_ trlan77_
38: #elif defined(PETSC_HAVE_FORTRAN_CAPS)
39: #define TRLan_ TRLAN77
40: #else
41: #define TRLan_ trlan77
42: #endif
44: #endif
46: EXTERN_C_BEGIN
48: extern void TRLan_ (int(*op)(int*,int*,PetscReal*,int*,PetscReal*,int*),
49: int*,int*,int*,PetscScalar*,PetscScalar*,int*,PetscReal*,
50: int*);
52: EXTERN_C_END
54: #endif