1: ! 2: ! 3: ! Include file for Fortran use of the Mesh package in PETSc 4: ! 5: #if !defined (__PETSCMESHDEF_H) 8: #include finclude/petscdadef.h 10: #if !defined(PETSC_USE_FORTRAN_DATATYPES) 11: #define Mesh PetscFortranAddr 12: #define SectionReal PetscFortranAddr 13: #define SectionInt PetscFortranAddr 14: #endif 16: #define MeshType character*(80) 18: #define MESHSIEVE 'sieve' 20: #endif