1: ! 2: ! Include file for Fortran use of the SNES package in PETSc 3: ! 4: #if !defined (PETSCSNESDEF_H) 5: #define PETSCSNESDEF_H 7: #include "petsc/finclude/petscksp.h" 9: #define SNES type(tSNES) 11: #define PetscConvEst type(tPetscConvEst) 13: #define SNESType character*(80) 14: #define SNESMSType character*(80) 15: #define SNESConvergedReason PetscEnum 16: #define SNESLineSearchReason PetscEnum 17: #define SNESLineSearchType character*(80) 18: #define MatMFFD PetscFortranAddr 19: #define MatMFFDType PetscFortranAddr 20: #define SNESLineSearch PetscFortranAddr 21: #define SNESLineSearchOrder PetscEnum 22: #define SNESNormSchedule PetscEnum 23: #define SNESQNType PetscEnum 24: #define SNESQNRestartType PetscEnum 25: #define SNESQNCompositionType PetscEnum 26: #define SNESQNScaleType PetscEnum 27: #define SNESNCGType PetscEnum 28: #define SNESNGMRESRestartType PetscEnum 29: #define SNESNGMRESSelectType PetscEnum 30: #define SNESNewtonTRFallbackType PetscEnum 31: #define SNESNewtonTRQNType PetscEnum 33: ! 34: ! SNESType 35: ! 36: #define SNESNEWTONLS 'newtonls' 37: #define SNESNEWTONTR 'newtontr' 38: #define SNESNEWTONTRDC 'newtontrdc' 39: #define SNESPYTHON 'python' 40: #define SNESNRICHARDSON 'nrichardson' 41: #define SNESKSPONLY 'ksponly' 42: #define SNESKSPTRANSPOSEONLY 'ksptransposeonly' 43: #define SNESVINEWTONRSLS 'vinewtonrsls' 44: #define SNESVINEWTONSSLS 'vinewtonssls' 45: #define SNESNGMRES 'ngmres' 46: #define SNESQN 'qn' 47: #define SNESSHELL 'shell' 48: #define SNESNCG 'ncg' 49: #define SNESFAS 'fas' 50: #define SNESMS 'ms' 52: ! 53: ! SNESLineSearchType 54: ! 56: #define SNESLINESEARCHBASIC 'basic' 57: #define SNESLINESEARCHNONE 'none' 58: #define SNESLINESEARCHBT 'bt' 59: #define SNESLINESEARCHL2 'l2' 60: #define SNESLINESEARCHCP 'cp' 61: #define SNESLINESEARCHSHELL 'shell' 62: #define SNESLINESEARCHNCGLINEAR 'ncglinear' 64: ! 65: ! SNESLineSearchOrder 66: ! 68: #define SNES_LINESEARCH_ORDER_LINEAR 1 69: #define SNES_LINESEARCH_ORDER_QUADRATIC 2 70: #define SNES_LINESEARCH_ORDER_CUBIC 3 72: ! 73: ! SNESMSType 74: ! 75: #define SNESMSM62 'm62' 76: #define SNESMSEULER 'euler' 77: #define SNESMSJAMESON83 'jameson83' 78: #define SNESMSVLTP11 'vltp11' 79: #define SNESMSVLTP21 'vltp21' 80: #define SNESMSVLTP31 'vltp31' 81: #define SNESMSVLTP41 'vltp41' 82: #define SNESMSVLTP51 'vltp51' 83: #define SNESMSVLTP61 'vltp61' 85: #endif