Actual source code: ex4.c

petsc-3.3-p6 2013-02-11
  2: static char help[] = "Tests ISToGeneral().\n\n";

  4: #include <petscis.h>

  8: int main(int argc,char **argv)
  9: {
 10:   PetscErrorCode  ierr;
 11:   PetscInt        step = 2;
 12:   IS              is;

 14:   PetscInitialize(&argc,&argv,(char*)0,help);

 16:   PetscOptionsGetInt(PETSC_NULL,"-step",&step,PETSC_NULL);
 17:   ISCreateStride(PETSC_COMM_SELF,10,0,step,&is);

 19:   ISToGeneral(is);

 21:   ISDestroy(&is);

 23:   PetscFinalize();
 24:   return 0;
 25: }
 26: