1: ! 2: ! Include file for Fortran use of the SNES package in PETSc 3: ! 4: #if !defined (__PETSCSNESDEF_H) 7: #include finclude/petsckspdef.h 9: #if !defined(PETSC_USE_FORTRAN_DATATYPES) 10: #define SNES PetscFortranAddr 11: #endif 12: #define SNESType character*(80) 13: #define SNESConvergedReason PetscEnum 14: #define MatMFFD PetscFortranAddr 15: #define MatMFFDType PetscFortranAddr 16: ! 17: ! SNESType 18: ! 19: #define SNESLS 'ls' 20: #define SNESTR 'tr' 21: #define SNESTEST 'test' 22: #define SNESPYTHON 'python' 23: ! 24: ! MatSNESMF 25: ! 26: #define MATMFFD_DEFAULT 'ds' 27: #define MATMFFD_WP 'wp' 29: #endif