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: