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