1: ! 2: ! Include file for Fortran use of the MG preconditioner in PETSc 3: ! 4: #include finclude/petscmgdef.h 6: ! 7: ! 8: PetscEnum PC_MG_MULTIPLICATIVE 9: PetscEnum PC_MG_ADDITIVE 10: PetscEnum PC_MG_FULL 11: PetscEnum PC_MG_KASKADE 12: PetscEnum PC_MG_CASCADE 13: parameter (PC_MG_MULTIPLICATIVE=0,PC_MG_ADDITIVE=1) 14: parameter (PC_MG_FULL=2,PC_MG_KASKADE=3) 15: parameter (PC_MG_CASCADE=3) 17: ! 18: ! Other defines 19: ! 20: PetscEnum PC_MG_V_CYCLE 21: PetscEnum PC_MG_W_CYCLE 22: parameter (PC_MG_V_CYCLE=1,PC_MG_W_CYCLE=2) 24: PetscEnum PC_EXOTIC_FACE 25: PetscEnum PC_EXOTIC_WIREBASKET 26: parameter (PC_EXOTIC_FACE=0,PC_EXOTIC_WIREBASKET=1) 28: external PCMGDEFAULTRESIDUAL 30: !PETSC_DEC_ATTRIBUTES(PCMGDEFAULTRESIDUAL,'_PCMGDEFAULTRESIDUAL') 32: ! 33: ! End of Fortran include file for the MG include file in PETSc