Actual source code: petscmg.h

  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