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 SNESLINESEARCHBT 'bt' 56: #define SNESLINESEARCHL2 'l2' 57: #define SNESLINESEARCHCP 'cp' 58: #define SNESLINESEARCHSHELL 'shell' 59: #define SNESLINESEARCHNCGLINEAR 'ncglinear' 61: ! 62: ! SNESLineSearchOrder 63: ! 65: #define SNES_LINESEARCH_ORDER_LINEAR 1 66: #define SNES_LINESEARCH_ORDER_QUADRATIC 2 67: #define SNES_LINESEARCH_ORDER_CUBIC 3 69: ! 70: ! SNESMSType 71: ! 72: #define SNESMSM62 'm62' 73: #define SNESMSEULER 'euler' 74: #define SNESMSJAMESON83 'jameson83' 75: #define SNESMSVLTP11 'vltp11' 76: #define SNESMSVLTP21 'vltp21' 77: #define SNESMSVLTP31 'vltp31' 78: #define SNESMSVLTP41 'vltp41' 79: #define SNESMSVLTP51 'vltp51' 80: #define SNESMSVLTP61 'vltp61' 82: #endif