Actual source code: ex4.c

  2: static char help[] = "Tests ISStrideToGeneral().\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:   ISStrideToGeneral(is);

 21:   ISDestroy(is);

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