1*639f9d9dSBarry Smith /* $Id: is.h,v 1.31 1996/09/28 20:21:29 curfman Exp bsmith $ */ 22eac72dbSBarry Smith 32eac72dbSBarry Smith /* 4f8256253SLois Curfman McInnes An index set is a generalization of a subset of integers. Index sets 5f8256253SLois Curfman McInnes are used for defining scatters and gathers. 62eac72dbSBarry Smith */ 72eac72dbSBarry Smith #if !defined(__IS_PACKAGE) 82eac72dbSBarry Smith #define __IS_PACKAGE 92eac72dbSBarry Smith #include "petsc.h" 102eac72dbSBarry Smith 119e25ed09SBarry Smith #define IS_COOKIE PETSC_COOKIE+2 12f0479e8cSBarry Smith 132eac72dbSBarry Smith typedef struct _IS* IS; 142eac72dbSBarry Smith 15*639f9d9dSBarry Smith /* 16*639f9d9dSBarry Smith Default index set data structures that PETSc provides. 17*639f9d9dSBarry Smith */ 18*639f9d9dSBarry Smith typedef enum {IS_GENERAL=0, IS_STRIDE=1, IS_BLOCK = 2} ISType; 19537820f0SBarry Smith extern int ISCreateGeneral(MPI_Comm,int,int *,IS *); 20537820f0SBarry Smith extern int ISCreateBlock(MPI_Comm,int,int,int *,IS *); 21537820f0SBarry Smith extern int ISCreateStride(MPI_Comm,int,int,int,IS *); 224b0e389bSBarry Smith 234b0e389bSBarry Smith extern int ISDestroy(IS); 244b0e389bSBarry Smith 25aabeff55SBarry Smith extern int ISSetPermutation(IS); 2677c4ece6SBarry Smith extern int ISPermutation(IS,PetscTruth*); 2708480c60SBarry Smith extern int ISSetIdentity(IS); 2877c4ece6SBarry Smith extern int ISIdentity(IS,PetscTruth*); 2908480c60SBarry Smith 30aabeff55SBarry Smith extern int ISGetIndices(IS,int **); 31aabeff55SBarry Smith extern int ISRestoreIndices(IS,int **); 32aabeff55SBarry Smith extern int ISGetSize(IS,int *); 33aabeff55SBarry Smith extern int ISInvertPermutation(IS,IS*); 34aabeff55SBarry Smith extern int ISView(IS,Viewer); 3577c4ece6SBarry Smith extern int ISEqual(IS, IS, PetscTruth *); 360f453280SSatish Balay extern int ISSort(IS); 3777c4ece6SBarry Smith extern int ISSorted(IS, PetscTruth *); 38612dd529SBarry Smith 39537820f0SBarry Smith extern int ISBlock(IS,PetscTruth*); 40c16cb8f2SBarry Smith extern int ISBlockGetIndices(IS,int **); 41c16cb8f2SBarry Smith extern int ISBlockRestoreIndices(IS,int **); 42537820f0SBarry Smith extern int ISBlockGetSize(IS,int *); 43537820f0SBarry Smith extern int ISBlockGetBlockSize(IS,int *); 44c16cb8f2SBarry Smith 45537820f0SBarry Smith extern int ISStride(IS,PetscTruth*); 46c16cb8f2SBarry Smith extern int ISStrideGetInfo(IS,int *,int*); 47c16cb8f2SBarry Smith 48*639f9d9dSBarry Smith /* 49*639f9d9dSBarry Smith ISColorings are sets of IS's that define a coloring 50*639f9d9dSBarry Smith of the underlying indices 51*639f9d9dSBarry Smith */ 52*639f9d9dSBarry Smith struct _ISColoring { 53*639f9d9dSBarry Smith int n; 54*639f9d9dSBarry Smith IS *is; 55*639f9d9dSBarry Smith MPI_Comm comm; 56*639f9d9dSBarry Smith }; 57*639f9d9dSBarry Smith typedef struct _ISColoring* ISColoring; 58*639f9d9dSBarry Smith 59*639f9d9dSBarry Smith extern int ISColoringDestroy(ISColoring); 60*639f9d9dSBarry Smith extern int ISColoringView(ISColoring,Viewer); 61*639f9d9dSBarry Smith extern int ISColoringCreate(MPI_Comm,int,int*,ISColoring*); 62*639f9d9dSBarry Smith 63a2ce50c7SBarry Smith #endif 647588ac45SBarry Smith 657588ac45SBarry Smith 66*639f9d9dSBarry Smith 67*639f9d9dSBarry Smith 68