#include "petscsys.h"
#include "petscfix.h"
#include "petsc-private/fortranimpl.h"
/* basic.c */
/* Fortran interface file */

/*
* This file was generated automatically by bfort from the C source
* file.  
 */

#ifdef PETSC_USE_POINTER_CONVERSION
#if defined(__cplusplus)
extern "C" { 
#endif 
extern void *PetscToPointer(void*);
extern int PetscFromPointer(void *);
extern void PetscRmPointer(void*);
#if defined(__cplusplus)
} 
#endif 

#else

#define PetscToPointer(a) (*(long *)(a))
#define PetscFromPointer(a) (long)(a)
#define PetscRmPointer(a)
#endif

#include "slepceps.h"
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define epsprintsolution_ EPSPRINTSOLUTION
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define epsprintsolution_ epsprintsolution
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define epsreset_ EPSRESET
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define epsreset_ epsreset
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define epssettarget_ EPSSETTARGET
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define epssettarget_ epssettarget
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define epsgettarget_ EPSGETTARGET
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define epsgettarget_ epsgettarget
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define epssetinterval_ EPSSETINTERVAL
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define epssetinterval_ epssetinterval
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define epsgetinterval_ EPSGETINTERVAL
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define epsgetinterval_ epsgetinterval
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define epssetst_ EPSSETST
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define epssetst_ epssetst
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define epssetip_ EPSSETIP
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define epssetip_ epssetip
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define epssetds_ EPSSETDS
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define epssetds_ epssetds
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define epsisgeneralized_ EPSISGENERALIZED
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define epsisgeneralized_ epsisgeneralized
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define epsishermitian_ EPSISHERMITIAN
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define epsishermitian_ epsishermitian
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define epsispositive_ EPSISPOSITIVE
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define epsispositive_ epsispositive
#endif


/* Definitions of Fortran Wrapper routines */
#if defined(__cplusplus)
extern "C" {
#endif
void PETSC_STDCALL  epsprintsolution_(EPS *eps,PetscViewer viewer, int *__ierr ){
*__ierr = EPSPrintSolution(*eps,
	(PetscViewer)PetscToPointer((viewer) ));
}
void PETSC_STDCALL  epsreset_(EPS *eps, int *__ierr ){
*__ierr = EPSReset(*eps);
}
void PETSC_STDCALL  epssettarget_(EPS *eps,PetscScalar *target, int *__ierr ){
*__ierr = EPSSetTarget(*eps,*target);
}
void PETSC_STDCALL  epsgettarget_(EPS *eps,PetscScalar* target, int *__ierr ){
*__ierr = EPSGetTarget(*eps,target);
}
void PETSC_STDCALL  epssetinterval_(EPS *eps,PetscReal *inta,PetscReal *intb, int *__ierr ){
*__ierr = EPSSetInterval(*eps,*inta,*intb);
}
void PETSC_STDCALL  epsgetinterval_(EPS *eps,PetscReal* inta,PetscReal* intb, int *__ierr ){
*__ierr = EPSGetInterval(*eps,inta,intb);
}
void PETSC_STDCALL  epssetst_(EPS *eps,ST *st, int *__ierr ){
*__ierr = EPSSetST(*eps,*st);
}
void PETSC_STDCALL  epssetip_(EPS *eps,IP *ip, int *__ierr ){
*__ierr = EPSSetIP(*eps,*ip);
}
void PETSC_STDCALL  epssetds_(EPS *eps,DS *ds, int *__ierr ){
*__ierr = EPSSetDS(*eps,*ds);
}
void PETSC_STDCALL  epsisgeneralized_(EPS *eps,PetscBool* is, int *__ierr ){
*__ierr = EPSIsGeneralized(*eps,is);
}
void PETSC_STDCALL  epsishermitian_(EPS *eps,PetscBool* is, int *__ierr ){
*__ierr = EPSIsHermitian(*eps,is);
}
void PETSC_STDCALL  epsispositive_(EPS *eps,PetscBool* is, int *__ierr ){
*__ierr = EPSIsPositive(*eps,is);
}
#if defined(__cplusplus)
}
#endif
