1: ! 2: ! Include file for Fortran use of the MG preconditioner in PETSc 3: ! 4: #if !defined (__PETSCMG_H) 7: #define PCMGType PetscEnum 9: #endif 11: #if !defined (PETSC_AVOID_DECLARATIONS) 12: ! 13: ! 14: PetscEnum PC_MG_MULTIPLICATIVE 15: PetscEnum PC_MG_ADDITIVE 16: PetscEnum PC_MG_FULL 17: PetscEnum PC_MG_KASKADE 18: PetscEnum PC_MG_CASCADE 19: parameter (PC_MG_MULTIPLICATIVE=0,PC_MG_ADDITIVE=1) 20: parameter (PC_MG_FULL=2,PC_MG_KASKADE=3) 21: parameter (PC_MG_CASCADE=3) 23: ! 24: ! Other defines 25: ! 26: PetscEnum PC_MG_V_CYCLE 27: PetscEnum PC_MG_W_CYCLE 28: parameter (PC_MG_V_CYCLE=1,PC_MG_W_CYCLE=2) 30: external PCMGDEFAULTRESIDUAL 32: !PETSC_DEC_ATTRIBUTES(PCMGDEFAULTRESIDUAL,'_PCMGDEFAULTRESIDUAL') 34: ! 35: ! End of Fortran include file for the MG include file in PETSc 37: #endif