Actual source code: ex4.c

  1: /*$Id: ex4.c,v 1.14 2001/04/10 19:34:49 bsmith Exp $*/

  3: static char help[] = "Tests ISStrideToGeneral().nn";

 5:  #include petscis.h

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

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

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

 17:   ISStrideToGeneral(is);

 19:   ISDestroy(is);

 21:   PetscFinalize();
 22:   return 0;
 23: }
 24: