Actual source code: petscda.h
1: !
2: ! $Id: petscda.h,v 1.19 2001/04/10 22:37:56 balay Exp $;
3: !
4: ! Include file for Fortran use of the DA (distributed array) package in PETSc
5: !
6: #if !defined (__PETSCDA_H)
9: #define DA PetscFortranAddr
10: #define DAPeriodicType integer
11: #define DAStencilType integer
12: #define DADirection integer
13: #define DMMG PetscFortranAddr
14: #define VecPack PetscFortranAddr
15: #define DM PetscFortranAddr
17: #endif
20: #if !defined (PETSC_AVOID_DECLARATIONS)
21: !
22: ! Types of stencils
23: !
24: integer DA_STENCIL_STAR,DA_STENCIL_BOX
26: parameter (DA_STENCIL_STAR = 0,DA_STENCIL_BOX = 1)
27: !
28: ! Types of periodicity
29: !
30: integer DA_NONPERIODIC,DA_XPERIODIC,DA_YPERIODIC,DA_XYPERIODIC
31: integer DA_XYZPERIODIC,DA_XZPERIODIC,DA_YZPERIODIC,DA_ZPERIODIC
33: parameter (DA_NONPERIODIC = 0,DA_XPERIODIC = 1,DA_YPERIODIC = 2)
34: parameter (DA_XYPERIODIC = 3,DA_XYZPERIODIC = 4)
35: parameter (DA_XZPERIODIC = 5,DA_YZPERIODIC = 6,DA_ZPERIODIC = 7)
36: !
37: ! DA Directions
38: !
39: integer DA_X,DA_Y,DA_Z
41: parameter (DA_X = 0,DA_Y = 1,DA_Z = 2)
42: !
43: ! End of Fortran include file for the DA package in PETSc
45: #endif