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: