1a3101111SPatrick Sanan #if !defined(DMSTAG_H_) 2a3101111SPatrick Sanan #define DMSTAG_H_ 3a3101111SPatrick Sanan 4a3101111SPatrick Sanan #include <petscdm.h> 5a3101111SPatrick Sanan #include <petscdmproduct.h> 6a3101111SPatrick Sanan 7a3101111SPatrick Sanan /*E 8a3101111SPatrick Sanan DMStagStencilLocation - enumerated type denoted a location relative to an element in a DMStag grid 9a3101111SPatrick Sanan 10a3101111SPatrick Sanan The interpretation of these values is dimension-dependent. 11a3101111SPatrick Sanan 12a3101111SPatrick Sanan Level: beginner 13a3101111SPatrick Sanan 14a3101111SPatrick Sanan .seealso: DMSTAG, DMStagStencil, DMStagGetLocationSlot() 15a3101111SPatrick Sanan E*/ 16a3101111SPatrick Sanan typedef enum { 17a3101111SPatrick Sanan DMSTAG_NULL_LOCATION=0, 18a3101111SPatrick Sanan DMSTAG_BACK_DOWN_LEFT, 19a3101111SPatrick Sanan DMSTAG_BACK_DOWN, 20a3101111SPatrick Sanan DMSTAG_BACK_DOWN_RIGHT, 21a3101111SPatrick Sanan DMSTAG_BACK_LEFT, 22a3101111SPatrick Sanan DMSTAG_BACK, 23a3101111SPatrick Sanan DMSTAG_BACK_RIGHT, 24a3101111SPatrick Sanan DMSTAG_BACK_UP_LEFT, 25a3101111SPatrick Sanan DMSTAG_BACK_UP, 26a3101111SPatrick Sanan DMSTAG_BACK_UP_RIGHT, 27a3101111SPatrick Sanan DMSTAG_DOWN_LEFT, 28a3101111SPatrick Sanan DMSTAG_DOWN, 29a3101111SPatrick Sanan DMSTAG_DOWN_RIGHT, 30a3101111SPatrick Sanan DMSTAG_LEFT, 31a3101111SPatrick Sanan DMSTAG_ELEMENT, 32a3101111SPatrick Sanan DMSTAG_RIGHT, 33a3101111SPatrick Sanan DMSTAG_UP_LEFT, 34a3101111SPatrick Sanan DMSTAG_UP, 35a3101111SPatrick Sanan DMSTAG_UP_RIGHT, 36a3101111SPatrick Sanan DMSTAG_FRONT_DOWN_LEFT, 37a3101111SPatrick Sanan DMSTAG_FRONT_DOWN, 38a3101111SPatrick Sanan DMSTAG_FRONT_DOWN_RIGHT, 39a3101111SPatrick Sanan DMSTAG_FRONT_LEFT, 40a3101111SPatrick Sanan DMSTAG_FRONT, 41a3101111SPatrick Sanan DMSTAG_FRONT_RIGHT, 42a3101111SPatrick Sanan DMSTAG_FRONT_UP_LEFT, 43a3101111SPatrick Sanan DMSTAG_FRONT_UP, 44a3101111SPatrick Sanan DMSTAG_FRONT_UP_RIGHT 45a3101111SPatrick Sanan } DMStagStencilLocation; 46a3101111SPatrick Sanan PETSC_EXTERN const char *const DMStagStencilLocations[]; /* Corresponding strings (see stagstencil.c) */ 47a3101111SPatrick Sanan 48a3101111SPatrick Sanan /*S 49a3101111SPatrick Sanan DMStagStencil - data structure representing a degree of freedom on a DMStag grid 50a3101111SPatrick Sanan 51a3101111SPatrick Sanan Data structure (C struct), analogous to describing a degree of freedom associated with a DMStag object, 52a3101111SPatrick Sanan in terms of a global element index in each of up to three directions, a "location" as defined by DMStagStencilLocation, 53a3101111SPatrick Sanan and a component number. Primarily for use with DMStagMatSetValuesStencil() (compare with use of MatStencil with MatSetValuesStencil()). 54a3101111SPatrick Sanan 55a3101111SPatrick Sanan Note: 56a3101111SPatrick Sanan The component (c) field must always be set, even if there is a single component at a given location (in which case c should be set to 0). 57a3101111SPatrick Sanan 58a3101111SPatrick Sanan Level: beginner 59a3101111SPatrick Sanan 60a3101111SPatrick Sanan .seealso: DMSTAG, DMStagMatSetValuesStencil(), DMStagVecSetValuesStencil(), DMStagStencilLocation, DMStagSetStencilWidth(), DMStagSetStencilType(), DMStagVecGetValuesStencil() 61a3101111SPatrick Sanan S*/ 62a3101111SPatrick Sanan typedef struct { 63a3101111SPatrick Sanan DMStagStencilLocation loc; 64a3101111SPatrick Sanan PetscInt i,j,k,c; 65a3101111SPatrick Sanan } DMStagStencil; 66a3101111SPatrick Sanan 67a3101111SPatrick Sanan /*E 68a3101111SPatrick Sanan DMStagStencilType - Elementwise stencil type, determining which neighbors participate in communication 69a3101111SPatrick Sanan 70a3101111SPatrick Sanan Level: beginner 71a3101111SPatrick Sanan 72a3101111SPatrick Sanan .seealso: DMSTAG, DMStagCreate1d(), DMStagCreate2d(), DMStagCreate3d(), DMStagStencil 73a3101111SPatrick Sanan E*/ 74a3101111SPatrick Sanan 75a3101111SPatrick Sanan typedef enum{DMSTAG_STENCIL_NONE=0,DMSTAG_STENCIL_STAR,DMSTAG_STENCIL_BOX} DMStagStencilType; 76a3101111SPatrick Sanan PETSC_EXTERN const char *const DMStagStencilTypes[]; /* Corresponding strings (see stagstencil.c) */ 77a3101111SPatrick Sanan 78a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMCreate_Stag(DM); 79a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagCreate1d(MPI_Comm,DMBoundaryType,PetscInt,PetscInt,PetscInt,DMStagStencilType,PetscInt,const PetscInt[],DM*); 80a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagCreate2d(MPI_Comm,DMBoundaryType,DMBoundaryType,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,DMStagStencilType,PetscInt,const PetscInt[],const PetscInt[],DM*); 81a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagCreate3d(MPI_Comm,DMBoundaryType,DMBoundaryType,DMBoundaryType,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,DMStagStencilType,PetscInt,const PetscInt[],const PetscInt[],const PetscInt[],DM*); 82c0ec7fa4SChris Eldred PETSC_EXTERN PetscErrorCode DMStagCreateCompatibleDMStag(DM,PetscInt,PetscInt,PetscInt,PetscInt,DM*); 83c0ec7fa4SChris Eldred PETSC_EXTERN PetscErrorCode DMStagGetBoundaryTypes(DM,DMBoundaryType*,DMBoundaryType*,DMBoundaryType*); 84a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagGetCorners(DM,PetscInt*,PetscInt*,PetscInt*,PetscInt*,PetscInt*,PetscInt*,PetscInt*,PetscInt*,PetscInt*); 85a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagGetDOF(DM,PetscInt*,PetscInt*,PetscInt*,PetscInt*); 86a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagGetEntriesPerElement(DM,PetscInt*); 87a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagGetGhostCorners(DM,PetscInt*,PetscInt*,PetscInt*,PetscInt*,PetscInt*,PetscInt*); 88a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagGetGlobalSizes(DM,PetscInt*,PetscInt*,PetscInt*); 89a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagGetIsFirstRank(DM,PetscBool*,PetscBool*,PetscBool*); 90a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagGetIsLastRank(DM,PetscBool*,PetscBool*,PetscBool*); 91a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagGetLocalSizes(DM,PetscInt*,PetscInt*,PetscInt*); 92c0ec7fa4SChris Eldred PETSC_EXTERN PetscErrorCode DMStagGetLocationDOF(DM,DMStagStencilLocation,PetscInt*); 93c0ec7fa4SChris Eldred PETSC_EXTERN PetscErrorCode DMStagGetLocationSlot(DM,DMStagStencilLocation,PetscInt,PetscInt*); 94a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagGetNumRanks(DM,PetscInt*,PetscInt*,PetscInt*); 95c0ec7fa4SChris Eldred PETSC_EXTERN PetscErrorCode DMStagGetOwnershipRanges(DM,const PetscInt**,const PetscInt**,const PetscInt**); 961d60c44bSPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagGetProductCoordinateArrays(DM,void*,void*,void*); 971d60c44bSPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagGetProductCoordinateArraysRead(DM,void*,void*,void*); 981d60c44bSPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagGetProductCoordinateLocationSlot(DM,DMStagStencilLocation,PetscInt*); 99995a9760SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagGetStencilType(DM,DMStagStencilType*); 100c0ec7fa4SChris Eldred PETSC_EXTERN PetscErrorCode DMStagGetStencilWidth(DM,PetscInt*); 101*afea8018SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagMatGetValuesStencil(DM,Mat,PetscInt,const DMStagStencil*,PetscInt,const DMStagStencil*,PetscScalar*); 102a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagMatSetValuesStencil(DM,Mat,PetscInt,const DMStagStencil*,PetscInt,const DMStagStencil*,const PetscScalar*,InsertMode); 103c0ec7fa4SChris Eldred PETSC_EXTERN PetscErrorCode DMStagMigrateVec(DM,Vec,DM,Vec); 104d844a136SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagPopulateLocalToGlobalInjective(DM); 1051d60c44bSPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagRestoreProductCoordinateArrays(DM,void*,void*,void*); 1061d60c44bSPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagRestoreProductCoordinateArraysRead(DM,void*,void*,void*); 107a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagSetBoundaryTypes(DM,DMBoundaryType,DMBoundaryType,DMBoundaryType); 108a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagSetCoordinateDMType(DM,DMType); 109a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagSetDOF(DM,PetscInt,PetscInt,PetscInt,PetscInt); 110a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagSetGlobalSizes(DM,PetscInt,PetscInt,PetscInt); 111a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagSetNumRanks(DM,PetscInt,PetscInt,PetscInt); 112a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagSetOwnershipRanges(DM,PetscInt const *,PetscInt const *,PetscInt const *); 113995a9760SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagSetStencilType(DM,DMStagStencilType); 114c0ec7fa4SChris Eldred PETSC_EXTERN PetscErrorCode DMStagSetStencilWidth(DM,PetscInt); 115a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagSetUniformCoordinates(DM,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal); 116a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagSetUniformCoordinatesExplicit(DM,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal); 117a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagSetUniformCoordinatesProduct(DM,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal); 118b5700429SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagVecGetArray(DM,Vec,void*); 119b5700429SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagVecGetArrayRead(DM,Vec,void*); 120c0ec7fa4SChris Eldred PETSC_EXTERN PetscErrorCode DMStagVecGetValuesStencil(DM,Vec,PetscInt,const DMStagStencil*,PetscScalar*); 121b5700429SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagVecRestoreArray(DM,Vec,void*); 122b5700429SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagVecRestoreArrayRead(DM,Vec,void*); 123a3101111SPatrick Sanan PETSC_EXTERN PetscErrorCode DMStagVecSetValuesStencil(DM,Vec,PetscInt,const DMStagStencil*,const PetscScalar*,InsertMode); 124c0ec7fa4SChris Eldred PETSC_EXTERN PetscErrorCode DMStagVecSplitToDMDA(DM,Vec,DMStagStencilLocation,PetscInt,DM*,Vec*); 125a3101111SPatrick Sanan 1261d60c44bSPatrick Sanan PETSC_DEPRECATED_FUNCTION("Use DMStagGetProductCoordinateArraysRead() (since version 3.13") PETSC_STATIC_INLINE PetscErrorCode DMStagGet1dCoordinateArraysDOFRead(DM dm,void *ax,void *ay,void *az) {return DMStagGetProductCoordinateArraysRead(dm,ax,ay,az);} 1271d60c44bSPatrick Sanan PETSC_DEPRECATED_FUNCTION("Use DMStagGetProductCoordinateLocationSlot() (since version 3.13") PETSC_STATIC_INLINE PetscErrorCode DMStagGet1dCoordinateLocationSlot(DM dm,DMStagStencilLocation loc,PetscInt *s) {return DMStagGetProductCoordinateLocationSlot(dm,loc,s);} 12825ef9dfeSBarry Smith PETSC_DEPRECATED_FUNCTION("Use DMStagGetStencilType() (since version 3.11)") PETSC_STATIC_INLINE PetscErrorCode DMStagGetGhostType(DM dm,DMStagStencilType *s) {return DMStagGetStencilType(dm,s);} 1291d60c44bSPatrick Sanan PETSC_DEPRECATED_FUNCTION("Use DMStagRestoreProductCoordinateArraysRead() (since version 3.13") PETSC_STATIC_INLINE PetscErrorCode DMStagRestore1dCoordinateArraysDOFRead(DM dm,void *ax,void *ay,void *az) {return DMStagRestoreProductCoordinateArraysRead(dm,ax,ay,az);} 13025ef9dfeSBarry Smith PETSC_DEPRECATED_FUNCTION("Use DMStagSetStencilType() (since version 3.11)") PETSC_STATIC_INLINE PetscErrorCode DMStagSetGhostType(DM dm,DMStagStencilType *s) {return DMStagGetStencilType(dm,s);} 131b5700429SPatrick Sanan PETSC_DEPRECATED_FUNCTION("Use DMStagVecGetArray() (since version 3.13") PETSC_STATIC_INLINE PetscErrorCode DMStagVecGetArrayDOF(DM dm,Vec v,void *a) {return DMStagVecGetArray(dm,v,a);} 132b5700429SPatrick Sanan PETSC_DEPRECATED_FUNCTION("Use DMStagVecGetArrayRead() (since version 3.13") PETSC_STATIC_INLINE PetscErrorCode DMStagVecGetArrayDOFRead(DM dm,Vec v,void *a) {return DMStagVecGetArrayRead(dm,v,a);} 133b5700429SPatrick Sanan PETSC_DEPRECATED_FUNCTION("Use DMStagVecRestoreArray() (since version 3.13") PETSC_STATIC_INLINE PetscErrorCode DMStagVecRestoreArrayDOF(DM dm,Vec v,void *a) {return DMStagVecRestoreArray(dm,v,a);} 134b5700429SPatrick Sanan PETSC_DEPRECATED_FUNCTION("Use DMStagVecRestoreArrayRead() (since version 3.13") PETSC_STATIC_INLINE PetscErrorCode DMStagVecRestoreArrayDOFRead(DM dm,Vec v,void *a) {return DMStagVecRestoreArrayRead(dm,v,a);} 135995a9760SPatrick Sanan 136a3101111SPatrick Sanan #endif 137