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: