Actual source code: plansop.h

  1: /*
  2:    Private data structure used by the PLANSO interface
  3: */


 8:  #include src/eps/epsimpl.h

 10: typedef struct {
 11:   PetscReal *work;
 12:   int        lwork;
 13: } EPS_PLANSO;

 15: /*
 16:    Definition of routines from the PLANSO package
 17: */

 19: #if defined(SLEPC_PLANSO_HAVE_UNDERSCORE)
 20: #define SLEPC_PLANSO(lcase,ucase) lcase##_
 21: #elif defined(SLEPC_PLANSO_HAVE_CAPS)
 22: #define SLEPC_PLANSO(lcase,ucase) ucase
 23: #else
 24: #define SLEPC_PLANSO(lcase,ucase) lcase
 25: #endif

 27: /*
 28:     These are real case. PLANSO currently only has DOUBLE PRECISION version
 29: */

 31: #define PLANdr2_   SLEPC_PLANSO(plandr2,PLANDR2)
 32: #define PLANop_    SLEPC_PLANSO(op,OP)
 33: #define PLANopm_   SLEPC_PLANSO(opm,OPM)


 37: EXTERN void  PLANdr2_(int*,int*,int*,int*,PetscReal*,
 38:                       PetscReal*,int*,int*,PetscScalar*,PetscScalar*,PetscReal*,int*,
 39:                       int*,int*,MPI_Fint*);


 43: #endif