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