2: static char help[] = "Creating a general index set.\n\n";

  4: /*T
  5:     Concepts: index sets^manipulating a general index set;
  6:     Concepts: index sets^creating general;
  7:     Concepts: IS^creating a general index set;

  9:     Description: Creates an index set based on a set of integers. Views that index set
 10:     and then destroys it.
 11:     
 12: T*/
 13: 
 14: /*
 15:     Include petscis.h so we can use PETSc IS objects. Note that this automatically 
 16:   includes petsc.h.
 17: */
 18:  #include petscis.h

 22: int main(int argc,char **argv)
 23: {
 25:   PetscInt       *indices,n;
 26:   PetscMPIInt    rank;
 27:   IS             is;

 29:   PetscInitialize(&argc,&argv,(char*)0,help);
 30:   MPI_Comm_rank(PETSC_COMM_WORLD,&rank);

 32:   /*
 33:      Create an index set with 5 entries. Each processor creates
 34:    its own index set with its own list of integers.
 35:   */
 36:   PetscMalloc(5*sizeof(PetscInt),&indices);
 37:   indices[0] = rank + 1;
 38:   indices[1] = rank + 2;
 39:   indices[2] = rank + 3;
 40:   indices[3] = rank + 4;
 41:   indices[4] = rank + 5;
 42:   ISCreateGeneral(PETSC_COMM_SELF,5,indices,&is);
 43:   /*
 44:      Note that ISCreateGeneral() has made a copy of the indices
 45:      so we may (and generally should) free indices[]
 46:   */
 47:   PetscFree(indices);

 49:   /*
 50:      Print the index set to stdout
 51:   */
 52:   ISView(is,PETSC_VIEWER_STDOUT_SELF);

 54:   /*
 55:      Get the number of indices in the set 
 56:   */
 57:   ISGetLocalSize(is,&n);

 59:   /*
 60:      Get the indices in the index set
 61:   */
 62:   ISGetIndices(is,&indices);
 63:   /*
 64:      Now any code that needs access to the list of integers
 65:    has access to it here through indices[].
 66:    */
 67:   PetscPrintf(PETSC_COMM_SELF,"[%d] First index %D\n",rank,indices[0]);

 69:   /*
 70:      Once we no longer need access to the indices they should 
 71:      returned to the system 
 72:   */
 73:   ISRestoreIndices(is,&indices);

 75:   /*
 76:      One should destroy any PETSc object once one is completely
 77:     done with it.
 78:   */
 79:   ISDestroy(is);
 80:   PetscFinalize();
 81:   return 0;
 82: }
 83: