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