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