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