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 32: #define SNESCompositeType PetscEnum 33: #define SNESFunctionType PetscEnum 35: ! 36: ! SNESType 37: ! 38: #define SNESNEWTONLS 'newtonls' 39: #define SNESNEWTONTR 'newtontr' 40: #define SNESNEWTONTRDC 'newtontrdc' 41: #define SNESPYTHON 'python' 42: #define SNESNRICHARDSON 'nrichardson' 43: #define SNESKSPONLY 'ksponly' 44: #define SNESKSPTRANSPOSEONLY 'ksptransposeonly' 45: #define SNESVINEWTONRSLS 'vinewtonrsls' 46: #define SNESVINEWTONSSLS 'vinewtonssls' 47: #define SNESNGMRES 'ngmres' 48: #define SNESQN 'qn' 49: #define SNESSHELL 'shell' 50: #define SNESNCG 'ncg' 51: #define SNESFAS 'fas' 52: #define SNESMS 'ms' 54: ! 55: ! SNESLineSearchType 56: ! 58: #define SNESLINESEARCHBASIC 'basic' 59: #define SNESLINESEARCHNONE 'none' 60: #define SNESLINESEARCHBT 'bt' 61: #define SNESLINESEARCHL2 'l2' 62: #define SNESLINESEARCHCP 'cp' 63: #define SNESLINESEARCHSHELL 'shell' 64: #define SNESLINESEARCHNCGLINEAR 'ncglinear' 66: ! 67: ! SNESLineSearchOrder 68: ! 70: #define SNES_LINESEARCH_ORDER_LINEAR 1 71: #define SNES_LINESEARCH_ORDER_QUADRATIC 2 72: #define SNES_LINESEARCH_ORDER_CUBIC 3 74: ! 75: ! SNESMSType 76: ! 77: #define SNESMSM62 'm62' 78: #define SNESMSEULER 'euler' 79: #define SNESMSJAMESON83 'jameson83' 80: #define SNESMSVLTP11 'vltp11' 81: #define SNESMSVLTP21 'vltp21' 82: #define SNESMSVLTP31 'vltp31' 83: #define SNESMSVLTP41 'vltp41' 84: #define SNESMSVLTP51 'vltp51' 85: #define SNESMSVLTP61 'vltp61' 87: #endif