Actual source code: ex8.c
2: static char help[] = "Tests ISLocalToGlobalMappingSetBlockSize.\n\n";
4: #include <petscis.h>
5: #include <petscviewer.h>
7: int main(int argc, char **argv)
8: {
9: PetscInt indices[] = {0, 1, 2, 3, -1, -1, -1, -1, 4, 5, 6, 7};
10: PetscInt indices2[] = {0, 1, 2, 3, 4, 5, -1, -1, -1, -1, -1, -1, 6, 7, 8, 9, 10, 11};
11: ISLocalToGlobalMapping map;
14: PetscInitialize(&argc, &argv, (char *)0, help);
15: ISLocalToGlobalMappingCreate(PETSC_COMM_WORLD, 1, 12, indices, PETSC_COPY_VALUES, &map);
16: ISLocalToGlobalMappingView(map, NULL);
17: ISLocalToGlobalMappingSetBlockSize(map, 2);
18: ISLocalToGlobalMappingView(map, NULL);
19: ISLocalToGlobalMappingSetBlockSize(map, 4);
20: ISLocalToGlobalMappingView(map, NULL);
21: ISLocalToGlobalMappingSetBlockSize(map, 2);
22: ISLocalToGlobalMappingView(map, NULL);
23: ISLocalToGlobalMappingSetBlockSize(map, 1);
24: ISLocalToGlobalMappingView(map, NULL);
25: ISLocalToGlobalMappingDestroy(&map);
26: ISLocalToGlobalMappingCreate(PETSC_COMM_WORLD, 1, 18, indices2, PETSC_COPY_VALUES, &map);
27: ISLocalToGlobalMappingView(map, NULL);
28: ISLocalToGlobalMappingSetBlockSize(map, 3);
29: ISLocalToGlobalMappingView(map, NULL);
30: ISLocalToGlobalMappingSetBlockSize(map, 6);
31: ISLocalToGlobalMappingView(map, NULL);
32: ISLocalToGlobalMappingSetBlockSize(map, 3);
33: ISLocalToGlobalMappingView(map, NULL);
34: ISLocalToGlobalMappingSetBlockSize(map, 1);
35: ISLocalToGlobalMappingView(map, NULL);
36: ISLocalToGlobalMappingDestroy(&map);
37: ISLocalToGlobalMappingCreate(PETSC_COMM_WORLD, 5, 2, indices2, PETSC_COPY_VALUES, &map);
38: ISLocalToGlobalMappingView(map, NULL);
39: ISLocalToGlobalMappingSetBlockSize(map, 2);
40: ISLocalToGlobalMappingView(map, NULL);
41: ISLocalToGlobalMappingDestroy(&map);
42: PetscFinalize();
43: return 0;
44: }
46: /*TEST
48: test:
50: TEST*/