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*/