Actual source code: petscmg.h

  1: !
  2: !
  3: !  Include file for Fortran use of the MG preconditioner in PETSc
  4: !
  5: #if !defined (__PETSCMG_H)

  8: #define MGType PetscEnum

 10: #endif

 12: #if !defined (PETSC_AVOID_DECLARATIONS)
 13: !
 14: !
 15:       PetscEnum MGMULTIPLICATIVE,MGADDITIVE,MGFULL,MGKASKADE,MGCASCADE
 16:       parameter (MGMULTIPLICATIVE=0,MGADDITIVE=1,MGFULL=2,MGKASKADE=3)
 17:       parameter (MGCASCADE=3)

 19: !
 20: !  Other defines
 21: !
 22:       PetscEnum MG_V_CYCLE,MG_W_CYCLE
 23:       parameter (MG_V_CYCLE=1,MG_W_CYCLE=2)

 25:       external MGDEFAULTRESIDUAL
 26: !PETSC_DEC_ATTRIBUTES(MGDEFAULTRESIDUAL,'_MGDEFAULTRESIDUAL')

 28: !
 29: !     End of Fortran include file for the  MG include file in PETSc

 31: #endif