1: /*$Id: ex4.c,v 1.14 2001/04/10 19:34:49 bsmith Exp $*/ 3: static char help[] = "Tests ISStrideToGeneral().\n\n"; 5: #include petscis.h 9: int main(int argc,char **argv) 10: { 11: int ierr,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: