Actual source code: petscmg.h

  1: !
  2: !  $Id: petscmg.h,v 1.11 2001/01/15 21:50:11 bsmith Exp $;
  3: !
  4: !  Include file for Fortran use of the MG preconditioner in PETSc
  5: !
  6: #if !defined (__PETSCMG_H)

  9: #define MGType integer

 11: #endif

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

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

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

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

 32: #endif