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,PC_MG_ADDITIVE,PC_MG_FULL
     15:       PetscEnum PC_MG_KASKADE,PC_MG_CASCADE
     16:       parameter (PC_MG_MULTIPLICATIVE=0,PC_MG_ADDITIVE=1)
     17:       parameter (PC_MG_FULL=2,PC_MG_KASKADE=3)
     18:       parameter (PC_MG_CASCADE=3)

     20: !
     21: !  Other defines
     22: !
     23:       PetscEnum PC_MG_V_CYCLE,PC_MG_W_CYCLE
     24:       parameter (PC_MG_V_CYCLE=1,PC_MG_W_CYCLE=2)

     26:       external  PCMGDEFAULTRESIDUAL

     28: !PETSC_DEC_ATTRIBUTES(PCMGDEFAULTRESIDUAL,'_PCMGDEFAULTRESIDUAL')

     30: !
     31: !     End of Fortran include file for the  MG include file in PETSc

     33: #endif